2000 "X"WAIT 0:CLEAR :USING 
2005 CLS :C=0:CURSOR 20:PRINT "R:";O+1:CURSOR 44:PRINT "P:";P
2007 Y=15:A=110:B=15:LINE (124,16)-(149,31),&F6C5,BF
2008 GOSUB 2100:LINE (0,0)-(120,31),&FABE,B
2010 FOR X=1 TO 100 STEP 2:IF INKEY$ GOSUB 2100
2020 IF C=1 GOSUB 2200
2030 Y=RND 3-2+Y:GCURSOR (X,Y):GPRINT "00002838381010381010
2040 NEXT X
2050 GOTO 2320
2100 IF INKEY$ ="Z"LET Q=A-1:W=B-3:C=1:GOSUB 2200
2110 B=(INKEY$ =",")-(INKEY$ =")")+B
2120 GCURSOR (A,B):GPRINT "10103838387C7C6C
2130 RETURN 
2200 IF POINT (Q,W) GOTO 2300
2205 IF Q<X LET C=0
2210 PSET (Q+1,W):PRESET (Q+6,W)
2220 Q=Q-5:RETURN 
2300 GCURSOR (X,Y):GPRINT "4910A518B8451284"
2310 BEEP 1:X=100:NEXT X:P=P+1
2320 O=O+1:IF O<5 GOTO 2005
2340 CURSOR 75:IF P>4 PRINT "BRAVO !  ";
2350 WAIT :PRINT "Sredio si ";P:GOTO 2000