Home » Recent acquisitions » Commodore_16 » tape009b_c16_commodore_16_games_pack_1.wav » looney landa
looney landa
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: | looney landa |
| Read OK: | ✔ |
| File size: | 0730 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 COLOR0,1:COLOR4,1:COLOR2,7:COLOR3,10,2:COLOR1,6,5:GRAPHIC3,1:VOL8
20 GOSUB320:B=1:TL=16:GOSUB410
30 TH=0:FU%=1000:M=1000:VX=0:VY=0:SX=9600:SY=1080:G=10:TM=.1:BO=0
40 CHAR1,34,0,"ROLL":CHAR1,34,6,"FUEL":CHAR1,34,10,"VERT":CHAR1,34,15,"HORZ":COLOR1,4,5
50 GETA$:CHAR1,34,8,STR$(FU%)+" "
60 CHAR1,34,13,STR$(INT(VY))+" "
70 CHAR1,34,19,STR$(INT(VX))+" "
80 IFSX>9120ANDSX<10560ANDSY>16200THEN450
90 BOX0,INT(SX/120),INT(SY/120)-5,INT(SX/120)+4,INT(SY/120),INT(TL*360/32)
100 IFA$<>"P"THEN130
110 GOSUB400:TL=TL+1:IFTL>31THENTL=0
120 B=1:GOSUB410
130 IFA$<>"I"THEN160
140 GOSUB400:TL=TL-1:IFTL<0THENTL=31
150 B=1:GOSUB410
160 IFFU%=0THENGOSUB200:GOTO50
170 IFA$="Q"THENTH=TH-1:IFTH<0THENTH=0
180 IFA$="Z"THENTH=TH+1:IFTH>9-BOTHENTH=9-BO
190 IFTH>FU%THENTH=FU%
200 QY=((TH*9000)/(M+FU%))*COS(((TL-16)*π)/32)
210 QX=((TH*9000)/(M+FU%))*SIN(((TL-16)*π)/32)
220 SX=SX+VX+.005*QX:SY=SY+VY+.005*QY:VY=VY+G-QY:VX=VX+QX:FU%=FU%-TH
230 IF(PEEK(8192+INT(SY/960)*320+INT(SX/960)*16+((INT(SY/120))AND7))AND30)>0THEN460
240 IF(PEEK(8196+INT(SY/960)*320+INT(SX/960)*16+((INT(SY/120))AND7))AND30)>0THEN460
250 BOX1,INT(SX/120),INT(SY/120)-5,INT(SX/120)+4,INT(SY/120),INT(TL*360/32)
260 IFTH=0THEN50
270 SOUND3,500+30*TH,80:IFTH>5-BOTHENSOUND1,990,10
280 IFTH+BO-5<=0ORRND(0)>(TH+BO-5)/30THEN50
290 BO=BO+1:SOUND3,1020,20:IFTH>9-BOTHENTH=TH-1
300 IFBO=9THENCHAR1,0,22,"RETRO FAILURE!!"
310 GOTO50
320 DRAW3,0,0TO0,159TO131,159TO131,0
330 DRAW3,0,0TO4,8TO6,16TO7,24TO8,32TO9,40TO10,48TO12,56TO7,64TO13,72TO14,80
340 DRAW3TO16,88TO14,96TO10,104TO6,112TO8,120TO8,128TO10,136TO12,144TO14,152TO18,157
350 DRAW3,37,157TO47,152TO50,144TO52,136TO56,128TO64,120TO72,128TO76,136TO80,136
360 DRAW3TO78,136TO90,136TO94,130TO94,126TO90,120TO86,115TO85,108TO90,104TO96,95
370 DRAW3TO105,90TO112,95TO116,88TO124,80TO125,66TO118,60TO115,48TO126,22TO128,7TO131,0
380 DRAW3,18,157TO27,130TO37,157:DRAW2,78,135TO90,135:PAINT3,1,9
390 RETURN
400 B=0
410 DRAWB,147+9*COS(((TL-16)*π)/16),26+18*SIN(((TL-16)*π)/16)
420 DRAWBTO147-9*COS(((TL-16)*π)/16),26-18*SIN(((TL-16)*π)/16)
430 DRAWB,147,26TO147+9*SIN(((TL-16)*π)/16),26-18*COS(((TL-16)*π)/16)
440 RETURN
450 IFTL=16ANDABS(VX)<=10ANDVY<=10THENEND
460 SOUND3,900,300:FORI=1TO16:COLOR3,I,4:FORJ=1TO200:NEXTJ,I
+ �0,1:�4,1:�2,7:�3,10,2:�1,6,5:�3,1:�8 C �320:B�1:TL�16:�410 � TH�0:FU%�1000:M�1000:VX�0:VY�0:SX�9600:SY�1080:G�10:TM�.1:BO�0 �( �1,34,0,"ROLL":�1,34,6,"FUEL":�1,34,10,"VERT":�1,34,15,"HORZ":�1,4,5 �2 �A$:�1,34,8,�(FU%)�" "