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%)�" "