4500 "C"CLEAR :DIM P$(7,7)*1:CLS :WAIT 0:G=30:PRINT "sacekaj" 4520 FOR J=0 TO 2:FOR I=0 TO 11-4*J 4530 X=RND 8-1:Y=RND 8-1:IF VAL P$(X,Y)>0 GOTO 4530 4540 P$(X,Y)=STR$ (J+1):NEXT I:NEXT J 4550 CLS :FOR I=0 TO 64 STEP 8:LINE (I,0)-(I,31):NEXT I 4560 FOR I=0 TO 31 STEP 4:LINE (0,I)-(63,I):NEXT I 4565 LINE (64,0)-(149,22),B 4566 LINE (68,5)-(144,17),&1111,BF 4570 CURSOR 82:PRINT "X=":CURSOR 84:INPUT X:X=X-1 4571 CURSOR 82:PRINT "Y=":CURSOR 84:INPUT Y:Y=Y-1 4575 IF X<0 OR Y<0 OR X>7 OR Y>7 GOTO 4570 4580 Q=X*8+1:W=(7-Y)*4+1:LINE (Q+1,W+1)-(Q+5,W+1) 4600 P=VAL P$(X,Y)+1:ON PGOTO 4610,4620,4630,4640 4610 CURSOR 86:PAUSE "Promasaj !":GOTO 4660 4620 O=O+1:GOTO 4650 4630 O=O+3:GOTO 4650 4640 O=O+5 4650 LINE (Q,W)-(Q+7,W+2),BF:P$(X,Y)=STR$ 0:CURSOR 86:PAUSE " B U M ! " 4660 G=G-1:IF G=0 WAIT :PRINT "K R A J ! Poena:";O:GOTO 4500 4670 USING "###":CURSOR 86:PRINT G;"g :";O;"p":GOTO 4570