2500 "A"RANDOM :CLS :CLEAR :WAIT 0:T=3 2505 CURSOR 61:PRINT "Padobr:3":CURSOR 85:PRINT "Pogodj:0" 2506 X=29:LINE -(0,31):LINE (83,15)-(123,23),X,BF 2510 P=0:LINE (75,0)-(75,31) 2520 A=RND 64+2:B=RND 64+2:C=RND 64+2:D=RND 8+8:E=RND 8+D+8 2525 GCURSOR (X,31):GPRINT "000080C070C0800000" 2530 FOR I=-25 TO 39 2540 GCURSOR (A,I):GPRINT "040ED63ED60E04" 2542 GCURSOR (B,I+D):GPRINT "040ED63ED60E04" 2544 GCURSOR (C,I+E):GPRINT "040ED63ED60E04" 2550 IF INKEY$ ="Z"LET P=1:W=29:Q=X+4 2560 IF P=1GOSUB 2650 2565 IF INKEY$ LET X=(INKEY$ =",")*2-(INKEY$ ="+")*2+X:GCURSOR (X,31):GPRINT "000080C070C0800000" 2570 NEXT I:T=T+3:IF T>15 WAIT :PRINT " Kraj !":GOTO 2500 2580 CURSOR 68:PRINT STR$ T:GOTO 2510 2650 W=W-2:IF POINT (Q,W) GOTO 2700 2660 PSET (Q,W):PRESET (Q,W+2) 2670 RETURN 2700 M=I-7:IF I>=WAND W>MLET N=A:M=I:A=-100:GOTO 2740 2710 IF I+D>=WAND W>M+DLET N=B:M=I+D:B=-100:GOTO 2740 2720 IF I+E>=WAND W>M+ELET N=C:M=I+E:C=-100:GOTO 2740 2730 P=0:GOTO 2670 2740 GCURSOR (N,M):GPRINT "4910A518B8451284":BEEP 1 2750 P=0:R=R+1:CURSOR 92:PRINT STR$ R 2760 GCURSOR (N,M):GPRINT "0000000000000000" 2770 GOTO 2670