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