start tok64 d64-w6uT8L 100 REM{reverse on}****************************** 110 REM{reverse on}* chopper rescue * 115 REM{reverse on}* * 118 REM{reverse on}* copyrighted by h. campbell * 120 REM{reverse on}* * 130 REM{reverse on}* not for commercial sale * 140 REM{reverse on}****************************** 150 : 160 : 170 POKE53281,0:POKE53280,0 180 GOSUB 10000 200 v=53248 : REM{reverse on}v=vicii starting address 202 s=54272 : REM{reverse on}s=sid starting address 204 dn$="{down*23}{light gray}^":sr$="{home}{down*24}" 242 ::FORi=828TO949:READa:POKEi,a:NEXTi : REM{reverse on}poke ml joystick reader 243 ::FORi=0TO191 244 ::READa: REM{reverse on}get sprite data 245 ::POKEi+12288,a : REM{reverse on}place data at 12288 on 246 ::NEXTi 247 PRINT"{clear}{down*5}do you want instructions? {reverse on}y{reverse off}es or {reverse on}n{reverse off}o":POKE198,0 248 GETa$:IFa$<>"y"ANDa$<>"n"THEN248 249 IFa$="y"THENGOSUB20000 250 POKE2040,192 : REM{reverse on}point sprite 0 data pointer to 12288 260 sc=0:ch=0:ct=0 270 POKEv+39,6 : REM{reverse on}set sprite 0 color 272 POKEv+37,1 : REM{reverse on}multi-color 1 273 POKEv+38,7 : REM{reverse on}multi-color 2 275 POKE53276,3 : REM{reverse on}set mobs to multi-color 280 POKEv+1,55 : POKEv,155 : POKEv+16,0 281 POKEv+2,120 : POKEv+3,0 282 POKE2041,194 : REM{reverse on}point sprite 1 data pointer 283 POKEv+40,9 : REM{reverse on}set sprite 1 color 284 a=PEEK(v+31) : REM{reverse on}clear spr/chr collision register 285 a=PEEK(v+30) : REM{reverse on}clear spr/spr collision register 286 PRINT"{clear}";:POKEv+21,3 : REM{reverse on}turn on sprites 288 ti$="{0*6}":SYS 937 290 FORi=sTOs+24:POKEi,0:NEXT : REM{reverse on}clear sid 292 POKEs+1,8 : POKEs+6,128 : POKEs+24,15 293 PRINT"{clear}";:GOSUB500 294 POKEs+1,8 : POKEs+6,128 : POKEs+24,15 295 POKEs+24,0 : POKEv+21,0 300 PRINT"{clear}{reverse on}{white}score{reverse off}"sc 310 PRINT"{down*2}would you like to play again?" 320 INPUT"{space*2}y{left*3}";a$ 330 IFa$="y"THEN250 340 PRINT"{clear}";:END 400 RUN 410 : 420 : 500 REM{reverse on}//////////////// 510 REM{reverse on}/ main routine / 520 REM{reverse on}//////////////// 530 : 540 : 545 gt=129:s1=192:s2=193:of=128:ic=.001:un=1:ll=229 550 POKE2040,s1:POKEs+4,gt 565 IFRND(.)+ct>.9THENPRINT"{home}"SPC(INT(RND(.)*38));:PRINTdn$ 567 POKEv+3,PEEK(v+3)+2*-1*(PEEK(v+3)<255):IFPEEK(v+3)>llTHENch=0:sc=sc-100 568 PRINTsr$:PRINT"{home}{reverse on}{white}score{reverse off}"sc:POKE2040,s2:POKEs+4,of:ct=ct+ic 570 IFPEEK(v+31)=unTHENGOSUB 700 : RETURN : REM{reverse on}collision detection 572 IFPEEK(v+1)>245THENGOSUB700 : RETURN 578 IFch=0THENPOKEv+2,RND(.)*200+55:POKEv+3,RND(.)*150+55:ch=1:POKEv+30,0 579 IFPEEK(v+30)<>.THENPOKEv+3,0:sc=sc+100:ch=0:REM{reverse on}mob collision detection 580 GOTO 550 590 : 600 : 700 REM{reverse on}////////////////////// 710 REM{reverse on}/ collision response / 720 REM{reverse on}////////////////////// 730 : 735 POKE2040,832/64 :POKE2040,192 738 POKEs+5,8:POKEs+1,2:POKEs+6,64:POKEs+4,129 740 ::FORi=PEEK(v+1)TO255STEP5 745 ::IFRND(.)>.5THENPRINT"{home}"SPC(INT(RND(.)*38));:PRINTdn$ 746 ::PRINTsr$:PRINT"{home}{reverse on}{white}score{reverse off}"sc 747 ::POKEv+3,PEEK(v+3)+2*-1*(PEEK(v+3)<250) 750 ::POKEv+1,i 760 ::IFPEEK(v+31)=1THENPOKE2040,832/64 :POKE2040,192 770 ::NEXTi 780 RETURN 2000 REM{reverse on}/////////////////////////// 2010 REM{reverse on}/ ml joystick reader data / 2020 REM{reverse on}/////////////////////////// 2030 : 2040 DATA 173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173 2050 DATA 0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208 2060 DATA 169,80,141,0,208,76,49,234,173,16,208,41,254,141,16,208,206 2070 DATA0,208,76,49,234,74,176,32,238,0,208,240,30,169,80,205,0,208 2080 DATA 208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169 2090 DATA 0,141,0,208,76,49,234,173,16,208,9,1,141,16,208,76,49,234 2100 DATA120,169,60,141,20,3,169,3,141,21,3,88,96 9000 REM{reverse on}/////////////// 9010 REM{reverse on}/ sprite data / 9020 REM{reverse on}/////////////// 9030 : 9031 DATA003,255,255,000,002,000,192,002 9032 DATA000,192,002,128,234,170,164,234 9033 DATA128,165,192,170,165,000,042,165 9034 DATA000,010,170,000,002,170,000,001 9035 DATA000,000,001,001,001,085,085,000 9036 DATA000,000,000,000,000,000,000,000 9037 DATA000,000,000,000,000,000,000,000 9038 DATA000,000,000,000,000,000,000,003 9039 DATA000,003,000,000,002,000,000,002 9040 DATA000,000,002,128,242,170,164,234 9041 DATA128,165,000,170,165,000,042,165 9042 DATA000,010,170,000,002,170,000,001 9043 DATA000,000,001,001,001,085,085,000 9044 DATA000,000,000,000,000,000,000,000 9045 DATA000,000,000,000,000,000,000,000 9046 DATA000,000,000,000,000,000,000,003 9047 DATA000,085,000,001,085,064,005,085 9048 DATA080,021,085,084,032,000,008,011 9049 DATA020,224,002,215,128,000,190,000 9050 DATA000,040,000,000,060,000,000,060 9051 DATA000,000,195,000,000,195,000,000 9052 DATA195,000,002,130,128,000,000,000 9053 DATA000,000,000,000,000,000,000,000 9054 DATA000,000,000,000,000,000,000,255 10000 REM{reverse on}////////////// 10001 REM{reverse on}/ title page / 10002 REM{reverse on}////////////// 10003 : 10009 PRINT"{clear}{down*4}{yellow}{reverse on}{space*40}"; 10010 PRINT"{yellow}{reverse on} {reverse off}{space*38}{reverse on} "; 10020 PRINT"{yellow}{reverse on} {reverse off}{space*38}{reverse on} "; 10030 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on}{space*32}{reverse off}{space*3}{reverse on} "; 10040 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*30}{reverse on} {reverse off}{space*3}{reverse on} "; 10050 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{cm a}{C*24}{cm s}{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10060 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}B{space*2}{cm a}{C*18}{cm s}{space*2}B{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10070 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}B{space*2}B{cm a}{C*16}{cm s}B{space*2}B{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10080 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}B{space*2}BB {white}{reverse on}chopper rescue{reverse off} {yellow}BB{space*2}B{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10090 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}B{space*2}B{cm z}{C*16}{cm x}B{space*2}B{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10100 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}B{space*2}{cm z}{C*18}{cm x}{space*2}B{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10110 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{cm z}{C*24}{cm x}{space*2}{reverse on} {reverse off}{space*3}{reverse on} "; 10120 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*30}{reverse on} {reverse off}{space*3}{reverse on} "; 10130 PRINT"{yellow}{reverse on} {reverse off}{space*3}{reverse on}{space*11}written by:{space*10}{reverse off}{space*3}{reverse on} "; 10140 PRINT"{yellow}{reverse on} {reverse off}{space*38}{reverse on} "; 10150 PRINT"{yellow}{reverse on} {reverse off}{space*38}{reverse on} "; 10160 PRINT"{yellow}{reverse on}{space*13}howard campbell{space*12}"; 10170 PRINT"{home}{reverse off}"; 10180 RETURN 20000 REM{reverse on}//////////////// 20001 REM{reverse on}/ instructions / 20002 REM{reverse on}//////////////// 20003 : 20009 PRINT"{clear}{down*3}{light green}you are the pilot of a rescue helicopter"; 20010 PRINT"{light green}on the front lines of the war zone. 20020 PRINT"{light green}your misson is to rescue the pilots of 20030 PRINT"{light green}downed planes as they parachute to the 20040 PRINT"{light green}ground.{space*2}if the pilots land they will be"; 20050 PRINT"{light green}immediately captured. 20060 PRINT 20070 PRINT"{light green}you will be fired upon by the ground 20080 PRINT"{light green}forces with ground-to-air missles.{space*2}the 20090 PRINT"{light green}longer you remain in the area, the more 20100 PRINT"{light green}missles you will encounter. 20102 PRINT"{down}you will recieve 100 points for every ":PRINT"pilot you rescue "; 20104 PRINT"and lose 100 points for";:PRINT"each one that is captured." 20110 PRINT"{down}you control the helicopter with a{space*7}joystick plugged in port 2." 20120 PRINT"{down}{space*13}{light green}{reverse on}good luck{!*3}{reverse off}{home}"; 20130 PRINT"{home}"SPC(7)"{down*24}{reverse on}{yellow}press to continue{home}";:POKE198,0 20140 GETa$:IFa$=""THEN20140 20150 RETURN stop tok64 (bastext 1.0)