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