Run Magazine ReRun 1992 March & April/rerun-1992-03-04-side-b.d64/raging thunder

Commodore BASIC | 1992-01-01 | 7.4 KB | 250 lines

1 rem raging thunder by craig buck
2 ifol=1andtl<>1then2456
3 ifol=1andtl=1then2458
4 poke53265,peek(53265)and239
5 poke 53265,peek(53265)or 64
6 poke 53281,15:poke 53280,0
7 poke53282,15:poke 53283,11
8 poke53284,15
9 c=7:poke 53272,(peek(53272)and 240)or 2*c
10 s=53248:e=53760:n=14336
20 poke 56333,127:poke 1,51
25 l=e-s:en=l+n
30 a%=l/256:a=l-256*a%:b%=(en-a)/256:b=en-256*b%-a:c%=(e-a)/256:c=e-256*c%-a
40 poke 781,a%+1:poke 782,a:poke 90,c:poke 91,c%:poke 88,b:poke89,b%:sys41964
50 poke 1,55:poke 56333,129
55 read u:if u= -1 then 1000
60 poke 56,48
70 for j=u+2048tou+2055:read n:poke j,n:next j
75 goto 55
80 data 12504,255,255,255,255,255,255,255,255
90 data 12512,223,223,223,223,223,223,223,223,12520,251,251,251,251,251,251
100 data 251,251,12528,0,0,255,255,0,255,255,255
110 data 12536,0,0,255,255,192,223,223,223,12552,0,0,255,255,3,251,251,251
120 data 12568,223,223,223,192,255,255,0,0,12576,251,251,251,3,255,255,0,0
130 data 12584,255,255,255,0,255,255,0,0,12592,255,0,255,0,255,0,255,0
140 data 12600,255,255,255,0,255,255,255,255,12608,0,0,255,255,255,255,255
150 data 255,12616,0,126,126,126,126,126,126,0
160 data 12624,6,6,6,6,6,6,6,6,12632,0,255,255,0,0,0,0,0,12640,6,7,7
170 data 0,0,0,0,0,12648,0,255,255,0,0,0,0,0,12656,0,248,254,255,255
175 data 254,248,0,12664,248,255,255,127,127,255,255,248,-1
1000 rem     screen  printout
1005 poke53281,0:poke53280,0
1007 gosub1010:goto1510
1010 poke53282,15:poke53284,15:poke53269,0
1015 print"[147]      [158] raging thunder       [151]*[depth[151][[146][[["
1020 print"[152]_^^^^^^^^^^^^^^^^^^^^^^^^^^!";
1030 print"[151]*[110[151][ft[151][[[146][ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]]";
1040 print"[151]*[[[[[[[[[[ [152]\[160][160][206][160][201][160][199][160][200][160][212][160][160][160][160][160][215][160][207][160][204][160][198][152][160][160][160]]";
1050 print"[151]*[[158]heading[151][[146][ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]]";
1060 print"[151]*[[158]000[151][[158]deg[151][146][[ [152]\[160][160][160][160][160][160][160][160][154][193][160][215][193][212][197][210][217][160][199][210][193][214][197][152][160][160][160][160]]";
1070 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][154][212][207][160][193][206][217][207][206][197][160][215][200][207][152][160][160][160][160][160]]";
1080 print"[151]*[speed[151][146][[[[ [152]\[160][160][160][160][160][160][160][160][154][196][193][210][197][211][160][197][206][199][193][199][197][152][160][160][160][160][160][160]]";
1090 print"[151]*[000[151][knts[151][146][ [152]\[160][160][160][160][160][160][160][160][154][207][213][210][160][201][205][205][197][206][197][206][212][152][160][160][160][160][160][160]]";
1100 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][154][198][204][197][197][212][152][160][160][160][160][160][160][160][160][160][160][160][160][160]]";
1110 print"[151]*[[159]rudder[151][146][[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][154][193][160][194][160][211][152][160][160][160]]";
1120 print"[151]*[[159]straight[151][146][ [152]\[160][154][199][211][160]6[154][160][160][204][197][214][197][204][160]1[154][160][160][160][160]0[160]0[160]1[152][160][160][160]]";
1130 print"[151]*'''''''''' [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1140 print"[151]*[[129]weapons[151][146][[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1150 print"[151]*[-------[151][146][[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1160 print"[151]*[[158]tube[151][[158]1[151][146][[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1170 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1180 print"[151]*'''''''''' [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1190 print"[151]*[[[[[[[[[[ [152]\[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]]";
1200 print"[151]*[[158]radar[151][146][[155])[151][[ [152]#%%%%%%%%%%%%%%%%%%%%%%%%%%$";
1210 print"[151]*[[158]u v d[151][146][[155])[151][[151][                             [151]*[[158]72 se[151][146][[155])[151][["
1220 print"[151] [145]  [152]/st[158]00[152].  [152]/th[158]00[152].  [152]/sa[158]00[152].   [151]*[[[[[[[[[["
1230 print"[151]                            ,+++++++++";
1240 poke1942,43:poke56214,11
1250 return
1510 open2,8,2,"0:it sprites,s,r"
1520 input#2,n:rem # of sprites
1525 input#2,n$
1526 rem
1527 rem pointers moved to 10240
1528 rem for more room (page 104)
1529 rem
1530 for p=10240to10302:input#2,d:pokep,d:next p
1535 input#2,n$
1540 for p=10304to10366:input#2,d:pokep,d:next p
1545 input#2,n$
1550 for p=10368to10430:input#2,d:pokep,d:next p
1555 input#2,n$
1560 for p=10432to10494:input#2,d:pokep,d:next p
1565 input#2,n$
1570 forpt=10496to10558:input#2,d:pokept,d:next
1575 input#2,n$
1580 for p=10560to10622:input#2,d:pokep,d:next p
1585 input#2,n$
1590 for p=10624to10686:input#2,d:pokep,d:next p
1595 input#2,n$
1600 for p=10688to10750:input#2,d:pokep,d:next p
1605 input#2,n$
1610 for p=10752to10814:input#2,d:pokep,d:next p
1615 input#2,n$
1620 for p=10816to10878:input#2,d:pokep,d:next p
1625 input#2,n$
1630 for p=10880to10942:input#2,d:pokep,d:next p
1640 input#2,n
1645 input#2,n$
1650 for p=10944to11006:input#2,d:pokep,d:nextp
1655 input#2,n$
1660 for p=11008to11070:input#2,d:pokep,d:nextp
1665 input#2,n$
1670 for p=11072to11134:input#2,d:pokep,d:nextp
1675 input#2,n$
1680 for p=11136to11198:input#2,d:pokep,d:nextp
1685 input#2,n$
1690 for p=11200to11262:input#2,d:pokep,d:nextp
1695 input#2,n$
1700 for p=11264to11326:input#2,d:pokep,d:nextp
1705 input#2,n$
1710 for p=11328to11390:input#2,d:pokep,d:nextp
1715 input#2,n$
1720 for p=11392to11454:input#2,d:pokep,d:nextp
1725 input#2,n$
1730 for p=11456to11518:input#2,d:pokep,d:nextp
1735 input#2,n$
1740 for p=11520to11582:input#2,d:pokep,d:nextp
1745 input#2,n$
1750 for p=11584to11646:input#2,d:pokep,d:nextp
1755 input#2,n$
1760 for p=11648to11710:input#2,d:pokep,d:nextp
1765 input#2,n$
1770 for p=11712to11774:input#2,d:pokep,d:nextp
1786 rem
1800 input#2,n
1805 input#2,n$
1810 for p=11776to11838:input#2,d:pokep,d:nextp
1815 input#2,n$
1820 for p=11840to11902:input#2,d:pokep,d:nextp
1825 input#2,n$
1830 for p=11904to11966:input#2,d:pokep,d:nextp
1835 input#2,n$
1840 for p=11968to12030:input#2,d:pokep,d:nextp
1845 input#2,n$
1850 for p=12032to12094:input#2,d:pokep,d:nextp
1863 rem
1900 input#2,n
1905 input#2,n$
1910 forp=12096to12158:input#2,d:pokep,d:nextp
1915 input#2,n$
1920 forp=12160to12222:input#2,d:pokep,d:nextp
1925 input#2,n$
1930 forp=12224to12286:input#2,d:pokep,d:nextp
1935 input#2,n$
1940 forp=12288to12350:input#2,d:pokep,d:nextp
1945 input#2,n$
1950 forp=12352to12414:input#2,d:pokep,d:nextp
1955 input#2,n$
1960 forp=12416to12478:input#2,d:pokep,d:nextp
1965 input#2,n$
1970 forp=12480to12542:input#2,d:pokep,d:nextp
1975 input#2,n$
1980 forp=12544to12606:input#2,d:pokep,d:nextp
1985 input#2,n$
1990 forp=12608to12670:input#2,d:pokep,d:nextp
2005 input#2,n$
2010 forp=12672to12734:input#2,d:pokep,d:nextp
2015 input#2,n$
2020 forp=12736to12798:input#2,d:pokep,d:nextp
2025 input#2,n$
2030 forp=12800to12862:input#2,d:pokep,d:nextp
2035 input#2,n$
2040 forp=12864to12926:input#2,d:pokep,d:nextp
2045 input#2,n$
2050 forp=12928to12990:input#2,d:pokep,d:nextp
2055 input#2,n$
2060 forp=12992to13054:input#2,d:pokep,d:nextp
2070 close2
2100 rem         wolf(added)
2101 rem
2110 forp=13056to13118:readd:pokep,d:nextp
2120 forp=13120to13182:readd:pokep,d:nextp
2126 rem     rocket s.a.m.(added)
2130 forp=13184to13246:readd:pokep,d:nextp
2140 forp=13248to13310:readd:pokep,d:nextp
2150 forp=13312to13374:readd:pokep,d:nextp
2200 poke53265,peek(53265)and239
2203 fori=828to1019:pokei,0:nexti:rem cllear all m/l var.
2204 v=53248:pokev+29,0:ifnr=1thengosub1010
2205 poke2040,204:pokev+0,55:pokev+1,90
2210 poke2041,205:pokev+2,55:pokev+3,90
2212 pokev+39,0:pokev+40,1:pokev+21,3
2214 poke53265,peek(53265)or16
2215 uc=1
2220 lv=1:gs=6
2300 j=15-(peek(56320)and15)
2302 if j<>8then2310
2304 gs=gs+1:ifgs>6thengs=1
2308 poke1469,(gs+48)
2310 ifj<>4then2320
2312 gs=gs-1:ifgs<1thengs=6
2314 poke1469,(gs+48)
2320 ifj<>1 then2330
2322 lv=lv+1:iflv>6thenlv=1
2324 poke1478,(48+lv)
2330 ifj<>2 then2340
2332 lv=lv-1:iflv<1thenlv=6
2334 poke1478,(48+lv)
2340 iflv<>1then2345
2341 s=1:b=0:a=0:poke1483,(a+48):poke1485,(b+48):poke1487,(48+s)
2343 poke993,3:poke992,0:poke994,1:poke995,1:poke996,0
2345 iflv<>2then2350
2346 s=0:b=1:a=0:poke1483,(a+48):poke1485,(b+48):poke1487,(48+s)
2348 poke993,5:poke992,0:poke994,1:poke995,1:poke996,0
2350 iflv<>3then2355
2352 s=0:b=0:a=1:poke1483,(a+48):poke1485,(b+48):poke1487,(48+s)
2354 poke993,4:poke992,0:poke994,1:poke995,1:poke996,0
2355 iflv<>4then2360
2357 s=2:b=1:a=0:poke1483,(a+48):poke1485,(b+48):poke1487,(48+s)
2358 poke992,1:poke993,1:poke994,3:poke995,1:poke996,5
2360 iflv<>5then2365
2362 s=1:b=2:a=1:poke1483,(a+48):poke1485,(b+48):poke1487,(48+s)
2363 poke992,1:poke993,7:poke994,4:poke995,2:poke996,4
2365 iflv<>6then2370
2367 s=2:b=2:a=2:poke1483,(a+48):poke1485,(b+48):poke1487,(48+s)
2368 poke992,2:poke993,5:poke994,5:poke995,3:poke996,0
2370 poke1830,peek(992)+48:poke1831,peek(993)+48
2373 poke1839,peek(994)+48
2375 poke1846,peek(995)+48:poke1847,peek(996)+48
2380 if(peek(56320)and16)<>0then2300
2400 poke986,gs:poke53269,0
2402 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
2404 fori=1to8
2406 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2408 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
2410 nexti:print"";:poke53282,14:poke53284,14
2430 poke870,s:poke871,b:poke872,a
2440 poke51,0:poke52,127:poke55,0:poke56,127
2445 ifnr=1then2458
2450 ol=1:nr=1
2452 load"mlrage.obj",8,1
2456 iftl=1then2458
2457 tl=1:load"mlactn.obj",8,1
2458 sys 32768
2465 sys 49152
2470 if peek(982)>0then2200
2475 goto2458
2500 data 4,0,0,6,3,0,15,3,128,15,251,192,15,255,192,31,255,224,31,142,32
2505 data 63,39,160,62,121,224,126,0,240,123,248,60,121,224,12,224,0,0
2510 data 240,15,248,240,30,8,252,3,240,252,0,0,253,3,248,255,38,60
2515 data 255,240,60,255,240,126
2520 rem      white
2525 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,255,224,63,255,224
2530 data 63,255,224,127,255,240,127,255,248,127,255,248,255,255,248
2535 data 255,255,248,255,254,0,255,255,240,255,255,240
2540 data 255,255,248,255,255,248,255,255,248,255,255,248
2545 rem      rocket(grey)
2550 data 6,0,0,15,0,0,15,0,0,57,192,0,240,240,0,16,128,0
2555 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2560 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2565 rem      rocket(yellow)
2570 data 0,0,0,0,0,0,0,0,0,15,128,0,15,128,0,15,128,0
2575 data 15,0,0,7,0,0,6,0,0,2,0,0,2,0,0
2580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2600 rem      torpedo
2602 data 48,0,0,120,0,0,120,0,0,204,0,0,16,0,0,72,0,0,16,0,0,160,0,0
2604 data 72,0,0,16,0,0,0,0,0
2606 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0