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