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 �<