Home » Recent acquisitions » Commodore_16 » tape009b_c16_commodore_16_games_pack_1.wav » zapp
zapp
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Recent acquisitions » Commodore_16 » tape009b_c16_commodore_16_games_pack_1.wav |
| Filename: | zapp |
| Read OK: | ✔ |
| File size: | 0767 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 DIMNM%(3,2):C%=7:T=0:G%=3:SC%=0:LV=1:LX=79:LY=79:GRAPHIC4,1
20 COLOR0,2,2:COLOR4,1:COLOR1,8:COLOR2,3,4:COLOR3,15,5:VOL8
30 GOSUB400
40 GETA$:T=T+1:GOSUB190:IFT=6-LVTHENGOSUB220
50 IFA$="I"THENGOSUB200:LX=LX-7:IFLX<4THENLX=4
60 IFA$="P"THENGOSUB200:LX=LX+7:IFLX>155THENLX=155
70 IFA$="Q"THENGOSUB200:LY=LY-9:IFLY<5THENLY=5
80 IFA$="Z"THENGOSUB200:LY=LY+9:IFLY>147THENLY=147
90 IFA$<>" "ORG%=0THENGOTO40
100 IF(G%AND2)=2THENDRAW1,3,148TOLX-2,LY
110 IF(G%AND1)=1THENDRAW1,156,148TOLX+2,LY
120 DRAW0,3,148TOLX-2,LY:DRAW0,156,148TOLX+2,LY:SOUND3,1000,15
130 FORI=0TO3:IFNM%(I,0)<=0THEN160
140 IFNM%(I,0)<LX-3ORNM%(I,0)>LX+3ORNM%(I,1)<LY-5ORNM%(I,1)>LY+5THEN160
150 SOUND3,900,25:SC%=SC%+LV*5:NM%(I,0)=-1:CIRCLE2,LX,LY,2,4:K%=K%+1
160 NEXTI
170 IFK%=LV*4THENLV=LV+1:SCNCLR:K%=0:PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>SCORE";SC%:GOSUB400
180 GOTO40
190 B%=2:GOTO210
200 B%=0
210 DRAWB%,LX,LY-5TOLX,LY+5:DRAWB%,LX-3,LYTOLX+3,LY:RETURN
220 FORI=0TO3
230 IFNM%(I,0)>0THEN260
240 IFRND(1)>.08*LVTHEN390
250 NM%(I,0)=INT(RND(1)*140+5):NM%(I,1)=0
260 IFRND(1)<.3THENNM%(I,2)=INT(RND(1)*11-5)
270 IFNM%(I,0)+NM%(I,2)<5THENNM%(I,2)=INT(RND(1)*6)
280 IFNM%(I,0)+NM%(I,2)>154THENNM%(I,2)=-INT(RND(1)*6)
290 NM%(I,0)=NM%(I,0)+NM%(I,2):NM%(I,1)=NM%(I,1)+5
300 DRAW3,NM%(I,0),NM%(I,1)TONM%(I,0)-NM%(I,2),NM%(I,1)-5
310 IFNM%(I,1)<154THEN380
320 IF(C%AND1)>0ANDNM%(I,0)>24ANDNM%(I,0)<56THENC%=C%-1:D%=0:GOSUB510
330 IF(C%AND2)>0ANDNM%(I,0)>64ANDNM%(I,0)<96THENC%=C%-2:D%=1:GOSUB510
340 IF(C%AND4)>0ANDNM%(I,0)>104ANDNM%(I,0)<136THENC%=C%-4:D%=2:GOSUB510
350 IFNM%(I,0)<13THENG%=(G%AND1):CHAR1,1,19,"*"
360 IFNM%(I,0)>147THENG%=(G%AND2):CHAR1,38,19,"*"
370 IFC%=0THENCHAR1,12,12,"GAME OVER":END
380 IFNM%(I,1)>159THENNM%(I,0)=-1
390 NEXTI:T=0:RETURN
400 IF(G%AND2)=0THEN430
410 DRAW3,0,148TO3,148TO6,151TO12,151TO12,154TO0,154TO0,148:PAINT3,3,151
420 DRAW3,159,148TO156,148TO153,151TO147,151TO147,154TO159,154TO159,148:PAINT3,156,150
430 IF(G%AND1)=0THEN450
440 DRAW3,159,148TO156,148TO153,151TO147,151TO147,154TO159,154TO159,148:PAINT3,156,150
450 FORI=0TO2:IF(C%AND(2^I))=0THEN500
460 DRAW2,25+I*40,154TO25+I*40,159TO55+I*40,159TO55+I*40,154TO53+I*40,154
470 FORJ=0TO3:DRAW2TO53+I*40-J*7,146TO48+I*40-J*7,146TO48+I*40-J*7,154
480 DRAW2TO46+I*40-J*7,154:NEXT
490 PAINT2,38+I*40,157
500 NEXTI:RETURN
510 CHAR1,7+D%*10,19,"######":SOUND3,600,20:RETURN
9 �NM%(3,2):C%�7:T�0:G%�3:SC%�0:LV�1:LX�79:LY�79:�4,1 ` �0,2,2:�4,1:�1,8:�2,3,4:�3,15,5:�8 i �400 �( �A$:T�T�1:�190:�T�6�LV��220 �2 �A$�"I"��200:LX�LX�7:�LX�4�LX�4 �<