10 '*DNA copy*
20 CLS:CLV
30 LET [0],#41,#43,#47,#54
40 O=15:A=10:X=A*10:V=0
50 '@SPLOOP
60 D=RND(4)
70 LOCATE O+X/10,23:PRINT CHR$([D]);
80 LOCATE O-X/10,23:PRINT CHR$([3-D])
90 WAIT 3
100 IF X>0 THEN V=V-1 ELSE V=V+1
110 X=X+V
120 IF V<>0 THEN GOTO 50
130 L=O+X/10:R=O-X/10
140 S=0:CLT
150 '@GAMELOOP
160 D=RND(4)
170 LOCATE L,23:PRINT CHR$([D],1);
180 '@INPUTL
190 K=INKEY()
200 IF TICK()>=3600 THEN GOTO 320
210 IF K<>[3-D] THEN GOTO 180
220 LOCATE L+1,23:PRINT CHR$(K);
230 BEEP:S=S+1
240 LOCATE R-1,23:PRINT CHR$(1,[3-D]);
250 '@INPUTR
260 K=INKEY()
270 IF TICK()>=3600 THEN GOTO 320
280 IF K<>[D] THEN GOTO 250
290 LOCATE R-1,23:PRINT CHR$(K)
300 BEEP:S=S+1
310 GOTO 150
320 '@GAMEEND
330 BEEP 40,40
340 PRINT:PRINT
350 PRINT "* GAME END *"
360 PRINT "SCORE=";S
370 END