start tok64 d64-cWUhsF
90 REM paratrooper
91 REM compute!
92 REM january 1985
100 PRINT"{clear}{down*5}"TAB(13)"please wait":js=56320
110 FORi=1TO1016:READa:ch=ch+a:NEXTi
120 IFch<>67163THENPRINT"incorrect data":END
130 RESTORE
140 GOSUB930
150 a$="{home}{space*39}"
160 sc=0:tr=10:mb=53264:xp=53248:yp=xp+1:xa=yp+1:ya=xa+1:js=56320:sd=12288
170 pr=2040:en=53269:cd=53278:cl=194:sh=195:pl=193:pa=192:cr=53287:s=54272
180 GOSUB630:GOSUB370:FORi=53250TO53256STEP2:POKEi,INT(RND(0)*255):NEXT
190 FORi=ypTOyp+14STEP2:READa:POKEi,a:NEXT
200 GOSUB690
210 GOSUB650:GOSUB530
220 POKEen,254:POKE53276,224:POKE53258,35:POKE53260,170:POKEmb,32:POKE53262,50
230 REM *****start game*****
240 SYS49360
250 ws=INT(RND(0)*10)+1:wt=INT(RND(0)*225)+75:GOSUB530:POKE49155,11-ws
260 POKE49156,11-ws:GETb$:IFb$=""THEN260
270 REM *** jump! ***
280 d=PEEK(cd):POKEmb,(PEEK(mb))OR((PEEK(mb)AND2)/2):px=PEEK(xa):py=PEEK(ya)+21
290 POKExp,px:POKEyp,py:POKEen,255:GOSUB880:dx=ws/7:dy=wt/200
300 POKExp,px:POKEyp,py:ht=INT(RND(0)*20)+170
310 py=py+dy:IFpy>htTHENGOTO440
320 px=px+dx:IFpx>255THENpx=0:POKEmb,PEEK(mb)OR1
330 IF(px>80)AND((PEEK(mb)AND1)=1)THENpx=10:POKEyp,0:POKEmb,PEEK(mb)AND254
340 tp=PEEK(cd):IF(tpAND1)THENIF(tpAND224)THENIFPEEK(yp)<=141THEN560
350 GOTO300
360 REM *** read in sprite data ***
370 FORi=sdTOsd+767:READa:POKEi,a:NEXT
380 POKEpr,pa:POKEpr+1,pl:POKEpr+2,cl:POKEpr+3,sh:POKEpr+4,sh
390 IFa$="n"THEN410
400 POKEpr+5,196:POKEpr+6,197:POKEpr+7,198
410 POKEcr,1:POKEcr+1,11:POKEcr+2,15:POKEcr+3,8:POKEcr+4,5:POKEcr+5,2
420 POKEcr+6,7:POKEcr+7,3:RETURN
430 REM *** bad landing ***
440 POKEpr,200:GOSUB850:PRINTa$"{home}{space*10}trooper missed target"
450 FORi=1TO1000:NEXT:PRINTa$:POKEen,254:tr=tr-1:sc=sc-10
460 POKEmb,PEEK(mb)AND254:POKEpr,pa:IFtr=0THENGOTO480
470 POKE198,0:GOTO250
480 PRINTa$:GOSUB530:PRINT:PRINT:PRINT:PRINTTAB(15)"game over"
490 PRINT:PRINTTAB(7)"press any key to play again":POKE198,0
500 GET b$:IF b$=""THEN500
510 POKEen,0:POKE53277,0:PRINT"{clear}":GOSUB700:sc=0:tr=10:GOTO210
520 REM *** display score ***
530 PRINT"{home}{white}{space*2}score"sc"{left}"TAB(13)"troops"tr"{left}"TAB(23)"ws"ws"{left}";
540 PRINTTAB(30)"wt"wt"{left}":RETURN
550 REM *** good landing ***
560 POKE2040,199:FORi=1TO500:NEXTi:GOSUB780
570 PRINTa$"{home}{space*10}mission accomplished{space*7}":FORi=1TO1000:NEXT:PRINTa$
580 IF(tpAND32)=32THENsc=sc+25:GOTO610
590 IF(tpAND64)=64THENsc=sc+50:GOTO610
600 IF(tpAND128)=128THENsc=sc+75
610 POKEmb,PEEK(mb)AND254:POKEen,254:POKE2040,pa:POKE198,0:GOTO250
620 REM *** clear sound registers ***
630 FORi=sTOs+24:POKEi,0:NEXT:RETURN
640 REM *** game background ***
650 rw=1584:cr=54272:FORi=rwTOrw+39:POKEcr+i,5:NEXT:POKE53280,0:POKE53285,0
660 b$="{light blue}{reverse on}{space*40}"
670 FORi=1TO14:PRINTb$;:NEXT:RETURN
680 REM *** title screen ***
690 PRINT"{clear}":FORa=0TO10:READl:GOSUB910:NEXT
700 PRINT"{down*12}"TAB(14)"{cyan}(n)ovice":PRINTTAB(14)"{yellow}(i)ntermediate"
710 PRINTTAB(14)"{green}(e)xpert":POKE198,0
720 GETb$:IFb$=""THEN720
730 PRINT"{clear}"
740 IFb$="n"THENPOKE53277,224:POKE2045,201:POKE2046,202:POKE2047,203:RETURN
750 IFb$="e"THENPOKE2045,201:POKE2046,202:POKE2047,203:RETURN
760 POKE2045,196:POKE2046,197:POKE2047,198:RETURN
770 REM *** charge sound ***
780 POKEs,97:POKEs+1,8:POKEs+5,0:POKEs+6,240:POKEs+24,15:POKEs+4,33
790 FORi=1TO75:NEXT:POKEs+4,32:POKEs,143:POKEs+1,10:POKEs+4,33
800 FORi=1TO75:NEXT:POKEs+4,32:POKEs+1,12:POKEs+4,33:FORi=1TO75:NEXT
810 POKEs+4,32:POKEs,195:POKEs+1,16:POKEs+4,33:FORi=1TO150:NEXT:POKEs+4,32
820 POKEs,143:POKEs+1,12:POKEs+4,33:FORi=1TO75:NEXT:POKEs+4,32:POKEs,195
830 POKEs+1,16:POKEs+4,33:FORi=1TO150:NEXT:POKEs+4,32:RETURN
840 REM *** splash ***
850 POKEs,0:POKEs+1,64:POKEs+5,17:POKEs+6,249:POKEs+24,15
860 POKEs+4,129:FORi=1TO100:NEXT:POKEs+4,128:FORi=1TO500:NEXT:POKEs+1,0:RETURN
870 REM *** "poof!" sound ***
880 POKEs,0:POKEs+1,5:POKEs+5,145:POKEs+6,245:POKEs+24,15:POKEs+4,129
890 FORi=1TO25:NEXT:POKEs+4,128:FORi=1TO200:NEXT:POKEs+1,0:RETURN
900 REM *** title letters ***
910 FORi=1038+aTO1478+aSTEP40:t=i+54272:POKEt,1:POKEt-40,6:POKEi,l
920 FORw=1TO10:NEXTw:NEXTi:RETURN
930 i=49152
940 READa:IFa=256THENRETURN
950 POKEi,a:i=i+1:GOTO940
960 DATA 0,0,0,0,0,0
970 DATA 0,20,10,88,1,32
980 DATA 173,192,173,2,208,56
990 DATA 233,1,144,38,141,2
1000 DATA 208,173,16,208,41,2
1010 DATA 208,39,173,2,208,205
1020 DATA 10,192,176,31,32,196
1030 DATA 192,173,9,192,141,2
1040 DATA 208,173,16,208,9,2
1050 DATA 141,16,208,76,71,192
1060 DATA 141,2,208,173,16,208
1070 DATA 41,253,141,16,208,206
1080 DATA 3,192,208,94,173,4
1090 DATA 192,141,3,192,169,2
1100 DATA 141,0,192,14,0,192
1110 DATA 172,0,192,170,169,1
1120 DATA 10,202,208,252,141,1
1130 DATA 192,185,0,208,24,105
1140 DATA 1,153,0,208,176,36
1150 DATA 173,16,208,45,1,192
1160 DATA 240,37,185,0,208,205
1170 DATA 9,192,144,29,32,187
1180 DATA 192,153,0,208,173,1
1190 DATA 192,73,255,45,16,208
1200 DATA 141,16,208,76,159,192
1210 DATA 173,16,208,13,1,192
1220 DATA 141,16,208,173,0,192
1230 DATA 74,168,200,152,192,5
1240 DATA 208,170,76,49,234,169
1250 DATA 255,141,15,212,169,128
1260 DATA 141,18,212,173,27,212
1270 DATA 96,32,183,192,41,15
1280 DATA 153,0,208,96,32,183
1290 DATA 192,41,40,24,105,50
1300 DATA 141,3,208,96,120,169
1310 DATA 11,141,20,3,169,192
1320 DATA 141,21,3,88,96,120
1330 DATA 169,49,141,20,3,169,256
1340 REM *** para ***
1350 DATA 0,60,0,1,255,128,7,255
1360 DATA 224,15,255,240,31,255,248,63
1370 DATA 255,252,63,255,252,59,189,220
1380 DATA 049,24,140,16,0,8,8,24
1390 DATA 16,4,60,32,3,60,192,1
1400 DATA 153,128,0,255,0,0,60,0
1410 DATA 0,60,0,0,60,0,0,36
1420 DATA 0,0,36,0,0,102,0,255
1430 DATA 0,0,0,0,0,0,0,0
1440 DATA 0,0,0,0,0,0,0,0
1450 DATA 0,0,0,0,0,0,0,0
1460 DATA 0,0,0,0,0,3,1,224
1470 DATA 7,66,16,15,79,255,255,127
1480 DATA 255,255,64,0,0,64,0,0
1490 DATA 0,0,0,0,0,0,0,0
1500 DATA 0,0,0,0,0,0,0,190
1510 DATA 0,0,0,0,0,0,0,0
1520 DATA 0,0,0,0,0,0,0,0
1530 DATA 0,0,0,0,0,0,0,0
1540 DATA 0,0,0,0,0,0,0,7
1550 DATA 128,0,15,240,0,31,252,0
1560 DATA 31,254,0,63,255,0,255,255
1570 DATA 1,255,255,7,255,254,31,255
1580 DATA 248,255,255,192,0,0,0,0
1590 DATA 0,6,0,0,6,0,0,15
1600 DATA 0,0,31,128,0,22,128,0
1610 DATA 038,192,0,38,64,0,102,64
1620 DATA 0,230,96,3,230,96,3,230
1630 DATA 96,7,230,112,31,246,112,32
1640 DATA 30,120,127,254,252,0,6,140
1650 DATA 0,7,6,255,255,255,255,255
1660 DATA 248,255,255,224,255,255,128,0
1670 DATA 21,85,84,26,149,84,21,149
1680 DATA 84,21,149,84,26,149,84,25
1690 DATA 85,84,25,86,164,25,86,84
1700 DATA 26,150,84,21,86,164,21,85
1710 DATA 100,21,85,100,21,85,100,21
1720 DATA 86,164,21,85,84,0,0,0
1730 DATA 0,0,0,0,0,0,0,0
1740 DATA 0,0,0,0,0,0,0,255
1750 DATA 5,85,80,6,149,80,6,85
1760 DATA 80,6,85,80,6,149,80,5
1770 DATA 149,80,5,154,144,5,153,144
1780 DATA 6,153,144,5,89,144,5,89
1790 DATA 144,5,89,144,5,89,144,5
1800 DATA 90,144,5,85,80,0,0,0
1810 DATA 0,0,0,0,0,0,0,0
1820 DATA 0,0,0,0,0,0,0,255
1830 DATA 1,85,64,1,165,64,1,101
1840 DATA 64,1,101,64,1,101,64,1
1850 DATA 101,64,1,101,64,1,85,64
1860 DATA 1,90,64,1,89,64,1,90
1870 DATA 64,1,86,64,1,86,64,1
1880 DATA 90,64,1,85,64,0,0,0
1890 DATA 0,0,0,0,0,0,0,0
1900 DATA 0,0,0,0,0,0,0,255
1910 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
1920 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0
1930 DATA 24,0,1,60,128,1,60,128
1940 DATA 1,24,128,1,255,128,0,60
1950 DATA 0,0,60,0,0,60,0,0
1960 DATA 36,0,0,36,0,0,36,0
1970 DATA 0,102,0,255
1980 DATA 0,0,0,0,0,0,0,0
1990 DATA 0,0,0,0,0,0,0,0
2000 DATA 0,0,0,0,0,0,0,0
2010 DATA 0,0,0,0,24,0,112,24
2020 DATA 14,204,24,51,6,24,96,3
2030 DATA 60,192,1,189,128,112,189,14
2040 DATA 220,255,59,7,126,224,1,255
2050 DATA 128,0,255,0,0,126,0,0
2060 DATA 5,85,80,6,165,80,5,101
2070 DATA 80,6,165,80,6,85,80,6
2080 DATA 85,80,6,165,80,5,85,80
2090 DATA 5,90,144,5,89,80,5,90
2100 DATA 144,5,85,144,5,85,144,5
2110 DATA 90,144,5,85,80,0,0,0
2120 DATA 0,0,0,0,0,0,0,0
2130 DATA 0,0,0,0,0,0,0,255
2140 DATA 1,85,64,1,169,64,1,149
2150 DATA 64,1,169,64,1,89,64,1
2160 DATA 89,64,1,169,64,1,85,64
2170 DATA 1,106,64,1,102,64,1,102
2180 DATA 64,1,102,64,1,102,64,1
2190 DATA 106,64,1,85,64,0,0,0
2200 DATA 0,0,0,0,0,0,0,0
2210 DATA 0,0,0,0,0,0,0,255
2220 DATA 0,85,0,0,105,0,0,89
2230 DATA 0,0,89,0,0,89,0,0
2240 DATA 89,0,0,89,0,0,85,0
2250 DATA 0,105,0,0,101,0,0,105
2260 DATA 0,0,89,0,0,89,0,0
2270 DATA 105,0,0,85,0,0,0,0
2280 DATA 0,0,0,0,0,0,0,0
2290 DATA 0,0,0,0,0,0,0,255
2300 DATA 0,70,80,220,210,160,160,160
2310 DATA 16,1,18,1,20,18,15,15,16,5,18
stop tok64
(bastext 1.0)