2 CLS:POKE24,23:GOSUB2000
3 GOSUB700
4 POKE23,30:POKE24,5
5 CLS
6 REM
7 FORR=4TO59:PRINT&25,R;"^";CHR$(7);:NEXTR
8 A=4:A1=3:X1=0:Y1=60:Z=0:X=0:Y=60:RESTORE:GOSUB707
10 POKE24,2:IFRND(8)>.7THENX=X+SGN(24-X):Y=Y+SGN(A-Y):GOTO30
19 X=X+INT(RND(7)*2.5)-1
20 Y=Y+INT(RND(8)*3)-1
23 IFX>24THENX=24
24 IFX<0THENX=0
25 IFY>62THENY=62
26 IFY<0THENY=0
30 POKE59392+X1*64+Y1,15
40 POKE59392+X*64+Y,9
50 X1=X:Y1=Y
60 POKE23,X*2+Y:CALL63859
70 IFINKEY$="V"ANDA>4THENA=A-1
80 IFINKEY$="N"ANDA<60THENA=A+1
85 POKE60992+A1,30
90 POKE60992+A,6
120 IFA=YANDX=24THEN300
125 IFZ>2THEN150
130 IFINKEY$="Z"THENZ=24
140 IFZ<2THEN170
150 Z=Z-1
155 POKE24,15:K=PEEK(HEX(E800)+Z*64+A)
157 IFK=143THENPOKE59392+Z*64+A,42:CALL63859:POKE59392+Z*64+A,32:Z=1
160 IFK=9THEN500
163 POKE59392+Z*64+A,46
165 POKE59392+Z1*64+A1,32
167 Z1=Z
170 A1=A:GOTO10
300 FORR=0TO4
301 PRINT&24-R/2+1,A-R;"*";
302 PRINT&24-R/2+1,A+R;"*";
306 PRINT&24-R,A+R;"*";
307 PRINT&24-R,A;"*";
308 PRINT&24-R,A-R;"*";
309 PRINT&24,A;"F";
310 POKE24,25:POKE23,100-R*24:CALLHEX(F973)
312 PRINT&24,A;"*";
314 NEXTR
320 POKE24,255:POKE23,200:CALL63859
323 WAIT(30)
350 IFINKEY$=""THEN350
360 RUN
500 POKE24,5:FORR=50TO0STEP-5
510 PRINT&X,Y;"I""";
520 POKE23,R:CALL63859
530 PRINT&X,Y;"I";
540 POKE23,200-R:CALL63859
545 NEXTR:POKE59392+Z1*64+A1,32
547 PRINT&X,Y;"O";
550 A1=A:SC=SC+1:PRINT&28,3;"SCORE";SC;:WAIT(20)
560 IFSC<20THEN6
570 GOTO0
700 RESTORE:PRINT&15,5;"** SOUBOJ ZACINA **"
707 FORR=0TO7
710 READC:POKE23,C:POKE24,23
720 CALL63859:NEXTR:RETURN
1000 DATA10,20,30,20,200,100,20,7
2000 CLS:PRINT&10,0"HRA SE OVLADA TLACITKY N,V,Z."
2100 PRINT:PRINT"N - POSUNUJE MOUCHU DOPRAVA":PRINT
2110 PRINT"V - POSUNUJE MOUCHU DOLEVA"
2200 PRINT:PRINT"Z - MOUCHA PLIVA JED,KTERY":PRINT:PRINT"    PAVOUKA ZNICI"
2222 IFINKEY$=""THEN2222
2223 CLS:RETURN