home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 September
/
Ahoy_Magazine_85-09_1985_Double_L.d64
/
superhero
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
197 lines
10 rem superhero
20 rem by j.c.hilty
30 rem 1036 barnsley dr.
40 rem library,pa.,15129
100 print"[147]"
102 sr=0:alt=000
103 q=192:l=1141:c=28:cm=54272:m=0
105 v=53248:o=54272
108 poke 52,48:poke 56,48
110 poke 53281,6:poke 53280,2
120 print""tab(5)" [223]"
130 print tab(5)" [223]"
140 print tab(5)"[144] [158] [223][146] [144] [223][144] [223][144] [223][144] [223]"
150 print tab(5)"[144] [158] [144] [223][144] [144] [144] [144] [223]"
160 print tab(5)"[144] [158] [144] [158] [144] [158] [144] [158] [144] [158] [144] [158] "
170 print tab(5)"[144][223] [158] [144] [158] [144] [158] [144] [158] [144] [158] [144] [158] [144] [158] [144] [158] "
180 print tab(6)"[144][223][158] [144] [158] [144] [158] [144] [158] [144] [158] [146] [144] [158] [144][223]"
190 print tab(10)"[144] [158] [144] [158] [144] [158] [144] [158] [146] [144][223] [158] [146][144][223][158] [146] [144][223][158] "
200 print tab(5)"[144] [144] [158] [144] [158] [146][144][223][158] "
210 print tab(5)"[144] [144] [158] [146][144][223][158] "
220 print tab(5)"[144][223] [158] "
230 print tab(6)"[144][223][158] [146] [144] [223][144] [223][146] [144] [223][146] [144] [223][146] [144] [223]"
240 print tab(15)"[144] [158] [144] [158] [146] [144] [158] [146] [144] [158] [146] [144] [158] "
250 print tab(15)"[144] [158] [144] [158] [146] [144] [158] [144] [223][146] [158] [144] [158] [146] [144] [158] [144] [158] "
260 print tab(15)"[144] [158] [146] [144] [158] [146] [144] [158] [146] [144] [158] [144] [158] "
270 print tab(15)"[144] [158] [144] [158] [146] [144] [158] [144] [223][146] [144] [158] [144][146][223][158] [146] [144] [158] [144] [158] "
280 print tab(15)"[144][223][158] [146][144][223][158] [146] [144][223][158] [146] [144][223][158] [146] [144][223][158] [146] [144][223][158] "
290 print
300 print tab(9)"save the space shuttle"
310 print tab(16)"press any key"
320 get a$:if a$="" then 320
330 print"":print"" tab(15)"please wait..."
340 print tab(15)"reading data"
370 for x=12288 to 12350
380 read a:poke x,a:next
390 for x=12352 to 12414
400 read a:poke x,a:next
410 for x= 12416 to 12478
420 read a:poke x,a:next
430 for x=12480 to 12542
440 read a:pokex,a:next
464 for x=828 to 973
466 read a:pokex,a:next
470 print"[147]"
480 poke 53280,0:poke 53281,0
490 poke 2040,194:poke 2041,195
500 poke v+39,6:poke v+40,1
510 poke v+0,70:poke v+1,80:poke v+2,70:poke v+3,140
530 poke v+29,3:poke v+23,3
540 poke v+28,1:poke v+37,10:poke v+38,2
550 print"":print"[159]"tab(12)"graphics chart"
560 poke v+21,3
570 print""tab(12)"\ superhero"
580 print""tab(18)"spaceshuttle"
590 print""tab(12)"*[159] zyptonite meteor"
600 print""tab(14)"press any key"
610 get a$:if a$="" then 610
620 print"[147]":poke v+21,0
630 poke 53280,2:poke 53281,0
700 dima(3)
710 a(0)=2:a(1)=-80:a(2)=-2:a(3)=80
720 wl=160:hl=32:sc=1024:a=sc+81
740 for i=1 to 6
741 print " [146] "
742 next i
744 for i=1 to 9
745 print " "
746 next i
748 for i=1 to 8
750 print" [146] "
760 next i
770 pokea,4
780 j=int(rnd(1)*4):x=j
790 b=a+a(j):if peek(b)=wlthenpokeb,j:pokea+a(j)/2,hl:a=b:goto 780
800 j=(j+1)*-(j<3):if j<>xthen790
810 j=peek(a):poke a,hl:ifj<4thena=a-a(j):goto 780
820 print"":print""tab(16)"[159]score"
830 print tab(17);sr
831 print""tab(16)"alt":print tab(16);alt
832 poke 2040,192
833 poke v+0,150:poke v+1,60:poke v+2,150:poke v+3,190
834 poke v+21,3
840 poke 1113,81 :poke 1113+cm,7
842 poke 1835,81:poke 1835+cm,7
844 poke 1825,81:poke 1825+cm,7
846 poke 1509,81:poke 1509+cm,7
848 poke 1599,81:poke 1599+cm,7
850 poke 1605,81:poke 1605+cm,7
852 poke 1137,81:poke 1137+cm,7
854 poke 1131,81:poke 1131+cm,7
856 poke 1857,81:poke 1857+cm,7
858 poke 1851,81:poke 1851+cm,7
860 poke 1141,28:poke 1141+cm,3
865 poke a,42:j=2
870 q=q+1:if q=195 then q=192
871 poke 2040,q
872 alt=alt+1
873 if alt=800then3500
875 print"":print"[159]" tab(16);alt
876 b=a+a(j)/2
877 if peek(b)=32thenpokeb,42:pokea,32:a=b:j=(j+2)+4*(j>1)
878 if peek(b)=81 then poke b,42:poke a,81:poke a+cm,7:a=b:j=(j+2)+4*(j>1)
879 if peek(b)=28 then 3000
880 j=(j-1)-4*(j=0)
881 sys(828):r=peek(254)-peek(253)
890 if r=0 then 870
900 w=peek(l+r)
910 if w=81 then 1500
920 if w<>32 then 870
930 l=l+r:poke l-r,32:poke(l-r)+cm,5
940 poke l,c:poke l+cm,3
950 goto 870
1500 m=m+1:if m=10 then 2500
1505 l=l+r:poke l-r,32
1510 pokel,c:pokel+cm,3
1520 gosub 2000
1530 print"":sr=sr+10:print"[159]"tab(17);sr
1540 goto 870
2000 for x=o to 0+24:poke x,0:next
2010 poke o,150:pokeo+1,200:pokeo+5,8:pokeo+6,248
2020 pokeo+24,15:pokeo+4,17
2030 for t=0to50:next
2040 pokeo+4,16
2050 for t=0to50:next
2060 pokeo+24,0
2070 return
2100 for x=o to o+24:pokex,0:next
2110 pokeo+24,15:pokeo+12,160:pokeo+13,252
2120 pokeo+8,80:pokeo+7,40:poke o+11,129
2130 for t=0to100:next
2140 pokeo+11,128:return
2500 print"[147]"
2502 print"[159]"tab(6)"congratulations"
2503 print" play on!"
2504 for t=0 to 3000:next
2510 m=0
2520 sr=sr+100:alt=alt -200
2525 l=1141
2528 print"[147]"
2530 goto 710
3000 print"[147]"
3005 for t=1 to 30
3010 poke v+39,2:poke v+39,1:poke v+39,6
3020 next
3030 gosub 2100
3040 print"sorry,a zyptonite meteor crushed you."
3050 for t=0 to 3000:next
3060 goto 4000
3500 print "[147]"
3510 for t=1 to 20
3520 poke v+40,2:poke v+40,6:poke v+40,1
3530 next
3540 gosub 2100
3550 print"[159]the shuttle is 800 miles up--too late."
3560 for t=0 to 3000:next
3570 goto 4000
4000 print"[147]"
4005 poke v+21,0
4010 print"s c o r e ";sr
4020 print"play again---y or n "
4030 get junk$:if junk$<>""then 4030
4040 get a$:if a$=""then 4040
4050 if a$="y" then 4060
4055 end
4060 print"[147]"
4070 m=0
4080 l=1141
4090 alt=000
4100 sr=0
4110 goto 710
6240 rem multicolor superhero x3
6250 data 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,12,160,0
6260 data 48,160,0,48,160,0,48,160,0,48,128,0,192,128,0,192,192,0
6270 data 192,192,0,192,128,0,192,128,0,0,128,0,0,128,0,0,192,0
6280 data 0,192,0,0,192,0,0,240,0
6290 data 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,0,50,170,64,50,170,64
6300 data 50,160,0,56,128,0,204,128,0,196,192,0,192,192,0,194,32,0
6310 data 194,32,0,8,8,0,8,8,0,48,12,0,48,12,0,12,12,0,0,15,0
6320 data 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,64,48,171,0,48,162,0
6330 data 48,164,0,48,136,0,192,128,0,192,192,0,192,192,0,194,32,0
6340 data 194,32,0,2,32,0,2,32,0,2,32,0,3,48,0,3,48,0,3,252,0
6350 rem spaceshuttle
6360 data 0,0,0,0,0,0,32,0,0,32,0,0,48,0,0,56,0,0
6370 data 63,255,192,63,255,224,61,85,48,63,255,56
6380 data 63,255,252,12,62,0,8,60,0,8,56,0,0,48,0
6390 data 0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6450 rem ml joystick routine
6460 data 173,1,220,74,176,40,74,74,176,11,169,0
6470 data 133,254,169,41,133,253,76,182,3,74,176,11,169,0,133,254,169,39
6480 data 133,253,76,182,3,169,0,133,254,169,40,133,253,76,182,3,74,176
6490 data 39,74,176,11,169,39,133,254,169,0,133,253,76,182,3,74,176,11
6500 data 169,41,133,254,169,0,133,253,76,182,3,169,40,133,254,169,0
6510 data 133,253,76,182,3,74,176,11,169,0,133,254,169,1,133,253,76,182,3
6520 data 74,176,11,169,1,133,254,169,0,133,253,76,182,3,169,0,133,254
6530 data 133,253,173,1,220,74,74,74,74,74,176,7,169,1,133,80,76,203,3
6540 data 169,0,133,80,96,234,234