1500 "Z"WAIT 0:CLEAR :M=15:R=1:USING "###
1505 CLS 
1506 CURSOR 41:PRINT "Mun:";M
1507 CURSOR 65:PRINT "Pog:";P
1508 CURSOR 89:PRINT "Rak:";R
1509 LINE (0,0)-(100,31),B
1510 A=RND 10+8:B=RND 70+20:LINE (B,31)-(B+3,31),X
1520 FOR I=1TO 90STEP 3
1525 GCURSOR (I,A):GPRINT "00000000BAFE7C38BA7C3810
1530 IF INKEY$ <>"" AND K=0 LET K=1:M=M-1:J=31
1540 IF K GOTO 1600
1550 NEXT I
1560 R=R+1:IF R>16 OR M=0 CURSOR 75:WAIT :PRINT "Kraj !":GOTO 1500
1570 GOTO 1505
1600 GCURSOR (B,J):GPRINT "1C0F1C":J=J-4
1610 IF A>J LET K=0:GOTO 1650
1620 I=I+1:GOTO 1550
1650 IF B>I+1 AND B<I+12 AND A<J+6 GOTO 1660
1655 I=90:GOTO 1550
1660 GCURSOR (I+4,A):GPRINT "802994583A842945":BEEP 1
1665 WAIT 20:GCURSOR (I+4,A):GPRINT "220800A500480091
1670 WAIT 0:P=P+1:I=90:GOTO 1550