10 '*BABA1 SERVER
20 CLV:VIDEO 3:UART 0,0
30 @YOU
40 CLS:BEEP:?"1":?
50 ?"?";:CLK
60 K=INKEY():IF K<28 OR K>29 CONT
70 BEEP
80 IF K=28 ?"LEFT"
90 IF K=29 ?"RIGHT"
100 UART 9:?CHR$(K):UART 0,1
110 C=INKEY():IF !C OR C=256 CONT
120 LC 1:?CHR$(C):UART 0,0
130 IF C=49 GOTO @GEND
140 @OPP
150 CLS:BEEP
160 IF RND(2) ?"1J" ELSE ?"J1"
170 ?:?"WAITING...":CLK:UART 0,1
180 K=INKEY():IF K<28 OR K>29 CONT
190 IF K=28 ?"LEFT"
200 IF K=29 ?"RIGHT"
210 C=SCR(K-28,0)
220 UART 9,0:?CHR$(C):UART 0
230 LC K-28:?CHR$(127)
240 WAIT 300:IF C!=49 GOTO @YOU
250 BEEP 30,30
260 LC 0,4:?"***LOSE!***"
270 END
280 @GEND
290 BEEP 10,30
300 LC 0,4:?"***WIN!***"