G/SEARCHA

Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf » G/SEARCHA

G/SEARCHA

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 » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf
Filename:	G/SEARCHA
Read OK:	✔
File size:	2223 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_54.ADF » G/SEARCHA
Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf » G/SEARCHA

File contents

   10IFPAGE<>&E00 THEN COLOUR0:PROCloc
   20 
   30REM Search And Rescue v1.01
   40 
   50REM From The Book
   60REM PCW SOFTWARE FOR THE ELECTRON
   70REM (C) G. Little & M. Orton
   80 
   90REM * Bug removed by (the) Dave *
  100 
  110@%=0:*TV255,1
  120PROCUDG
  130MODE4:L=0:HI=0:SC=0:FU=0:FR=0:GCOL 0,0:VDU19,1,6;0;:VDU23;8202;0;0;0;
  140DIML$(4),D$(25),H$(1,1,1),A$(37),HD(9),VD(9),F$(1)
  150PROCTITLE:PROCINTRO
  160$&B00=CHR$246+R$+"       "+RO$+CHR$250+" "+U$+STRING$(10,L$)+CHR$251+";;;;;"+R$+CHR$247+CHR$252+RO$+CHR$250+" "+STRING$(3,L$)+U$+CHR$233+CHR$253+" "
  170D$(0)=CHR$30:FORX=1TO25:D$(X)=D$(X-1)+D$:NEXT
  180FORX=1TO37:A$(X)=A$(X-1)+CHR$9:NEXT
  190IFQ$="Y"ORQ$="y"PROCPAGE1
  200L$(0)=STRING$(3,CHR$232)+L$+L$+L$+D$+STRING$(3,CHR$232):L$(1)=R$+L$(0)+RO$
  210FORX=2TO4:L$(X)=L$(0):NEXT
  220H$(0,0,0)=CHR$228+CHR$233+CHR$228+D$+L$+L$+L$+CHR$224+R$+CHR$227+RO$+CHR$237
  230H$(1,0,0)=" "+CHR$233+" "+D$+L$+L$+L$+CHR$224+R$+CHR$227+RO$+CHR$237
  240H$(0,1,0)=CHR$228+CHR$233+CHR$228+D$+L$+L$+L$+CHR$236+R$+CHR$227+RO$+CHR$224
  250H$(1,1,0)=" "+CHR$233+" "+D$+L$+L$+L$+CHR$236+R$+CHR$227+RO$+CHR$224
  260H$(0,0,1)=CHR$228+CHR$233+CHR$228+D$+L$+L$+L$+CHR$224+R$+";"+RO$+CHR$237
  270H$(1,0,1)=" "+CHR$233+" "+D$+L$+L$+L$+CHR$224+R$+";"+RO$+CHR$237
  280H$(0,1,1)=CHR$228+CHR$233+CHR$228+D$+L$+L$+L$+CHR$236+R$+";"+RO$+CHR$224
  290H$(1,1,1)=" "+CHR$233+" "+D$+L$+L$+L$+CHR$236+R$+";"+RO$+CHR$224
  300F$=CHR$235+STRING$(20,CHR$228)+CHR$234+A$(18)+CHR$238+"Thankyou for playing"+CHR$239+A$(18)
  310F$=F$+CHR$236+STRING$(20,CHR$227)+CHR$237+CHR$30:EM$=R$+"E"+L$+D$+"M"+L$+D$+"P"+L$+D$+"T"+L$+D$+"Y"+L$+D$+" "+L$+D$+" "+RO$
  320X$="ABDEDBABDFDBAACDEDBAABDEFDCDBAABCDBAABCA"
  330FORX=1TO40:W$=W$+CHR$(ASC(MID$(X$,X,1))+159):NEXT
  340IFQ$="Y"ORQ$="y"PROCPAGE2
  350F$(0)=R$:F$(1)=RO$
  360E$="   "+D$+L$+L$+L$+"   "
  370EX$=CHR$241+CHR$240+CHR$242+D$+L$+L$+L$+CHR$242+"V"+CHR$241+U$+L$+L$+L$+CHR$235+CHR$243+CHR$234+D$+L$+L$+L$+CHR$236+CHR$245+CHR$237+U$+L$+L$+L$
  380C$=R$+" "+CHR$246+RO$+CHR$233+"    "+R$+CHR$247+CHR$248+RO$+" "+U$+STRING$(10,L$)+R$+CHR$246+RO$+"      "+CHR$233+CHR$242+U$+L$+L$+"  "+D$+D$+STRING$(9,L$)
  390C1$=U$+" "+D$+L$+"         "+U$+L$+L$+"   "
  400FB$=STRING$(40," ")
  410IFQ$="Y"ORQ$="y"PROCPAGE3
  420SOUND17,0,0,1:VV=0:HV=0:VP=6:HP=0:R=0:D=0:M=0:SC=0:FU=750:LP=604:PROCFILLBOAT
  430CLS:SOUND3,1,200,255:PROCDISPLAY
  440IFINKEY(-99)PROCLADDER
  450Q2=0:Q3=0:IFINKEY(-98) Q2=-0.32
  460IFINKEY(-67) Q2=0.32
  470IFINKEY(-105) Q3=0.32
  480IFINKEY(-73) Q3=-0.32
  490IFINKEY(-17) OSCLI("FX 210 1")
  500IFINKEY(-82) OSCLI("FX 210 0")
  510V=VV+Q3:VV=V-0.32*((V<-2.1)-(V>2.1)):V=HV+Q2
  520HV=V-0.32*((V<-2.1)-(V>2.1)):FU=INT((FU-ABS(HV)-ABS(VV+.2)-M)*.995)
  530PRINTD$(23)A$(28)FU" ":IFFU<.1 FU=0:GOTO730
  540D=-(HV<0):R=1-R:V=VP:H=HP
  550P=VP+VV:IFP>1 AND P<22 VP=P
  560P=HP+HV:IFP>0 AND P<36 HP=P
  570PRINTD$(V)A$(H)E$:IFFNC(VP)<>32ORFND(VP)<>32 THEN770
  580PRINTD$(VP)A$(HP)H$(R,D,M):SOUND16,-15,4,2:SOUND17,-15,5,1
  590IFINT(HP)=0 ANDINT(VP)=6 ANDINKEY(-1) PROCFILLUP
  600PROCUPDATE:GOTO440
  610DEFPROCLADDER
  620FU=FU-5:IF-M THEN690
  630IFFNB(VP+2)<>32ENDPROC
  640P=VP+1:REPEAT:P=P+1:IFFNB(P)=32 PRINTD$(P)A$(HP+1)CHR$239;:UNTILP=VP+6:P=P+1 ELSE UNTIL-1
  650IFFNB(P)<>59 M$=CHR$239:GOTO670
  660?(2845+(INT(HP)-INT(BP))+1)=32:M$=";":M=1:PRINTD$(21)A$(BP)$&B00:SOUND1,2,100,50
  670FORP=P-1TOINT(VP)+2STEP-1:PRINTD$(P)A$(HP+1)M$;
  680PROCDELAY(20):PRINTL$" ":NEXT:ENDPROC
  690M=0:R=1-R:P=VP+2:PRINTD$(VP)A$(HP)H$(R,D,M)D$L$L$;
  700IFFNB(P)=32 PRINT";"L$;:PROCDELAY(10):PRINT" "D$L$;:P=P+1:GOTO700
  710IFP-VP<4 GOTO720 ELSE VDU30:PRINT"SPLAT":PROCDELAY(600):SOUND1,-15,30,100:VDU30:PRINTSPC5:GOTO510
  720SC=SC+1:PRINTD$(23)A$(6)SC:FORP=HP TO1STEP-1:J=FNG(33568+P):PRINTTAB(P,20)";"L$;:PROCDELAY(50):VDUJ:NEXT:SOUND1,2,200,50:GOTO510
  730IFHP<9 AND FNB(VP+2)<>32 THEN870
  740PRINTD$(VP)A$(HP)E$:VV=VV-.3*(VV<.7):VP=VP-VV*((VP+VV)>0):HV=HV*.9:HP=HP+HV
  750IFHP<0ORHP>37ORFNC(VP)<>32ORFND(VP)<>32THEN770
  760PRINTD$(VP)A$(HP)H$(R,D,M):PROCDELAY(20):GOTO740
  770PRINTD$(VP)A$(INT(FNE(HP)));:FORX=1TO30:SOUND0,-15,RND(3)+3,1:PRINTEX$;:NEXT:PRINTE$
  780SOUND19,0,0,1:IFSC>HI HI=SC:SOUND1,2,230,100:PRINTTAB(14,0)"New High Score"
  790SOUND17,3,200,255:PROCDISPLAY:PROCUPDATE:*FX15,1
  800PROCUPDATE:PROCAGAIN:QW$=INKEY$(0):Q=(QW$="Y"ORQW$="y")+(QW$="N"ORQW$="n")*2:ON1-Q GOTO800,420,810
  810PRINTD$(11)A$(11)F$:SOUND17,0,0,1:END
  820DEFPROCFILLUP
  830IFNOTINKEY(-1)ENDPROC
  840PRINTD$(23)A$(28)FU" "
  850IFLP>380 FU=FU+36:MOVE32,LP:DRAW60,LP:LP=LP-4:SOUND1,-15,650-LP,1:GOTO830
  860PRINTD$(13)A$(1)EM$:ENDPROC
  870PRINTD$(VP)A$(HP)H$(R,D,M)
  880PRINTD$(15)A$(12)"You Ran Out Of Fuel"D$A$(22)"But Landed Safely":GOTO780
  890DEFPROCDISPLAY
  900VDU31,0,8,233,228,233,10,8,8,8,232,232,232,10,8,8,8,232,232,232,10,8,8,8,246,248,247,10,8,8,8
  910PRINTR$"o  "STRING$(5,(D$+L$+L$+L$+"   "))D$L$L$L$"  o"D$L$L$L$"   "D$L$L$L$" "RO$" "CHR$248D$L$L$L$STRING$(9,CHR$249)
  920PROCSCORE:ENDPROC
  930DEFPROCSCORE
  940PRINTD$(23)"Score:";SC;"     Helicopter Fuel:"FU''"Hi-score:"HI"  "
  950PROCUPDATE:ENDPROC
  960DEFPROCUPDATE
  970WP=RND(38):PRINTD$(22)MID$(W$,WP)LEFT$(W$,WP-1);
  980BP=BP-RND(1)/3:IFBP<31 PRINTD$(21)A$(BP)$&B00
  990PRINTD$(9)L$(L):L=L+1:L=-(L>5)*L:IFINT(BP)<>9 ENDPROC
 1000PRINTD$(21)A$(BP);:PROCDELAY(150):PRINTC$;:PROCDELAY(150):PRINTC1$:PROCFILLBOAT:ENDPROC
 1010DEFPROCFILLBOAT
 1020FORX=2846TO2850:?X=59:NEXT:BP=RND(10)+30:ENDPROC
 1030DEFPROCAGAIN
 1040PRINTD$(2)A$(12)"Press 'Y' To Restart":PRINTD$(4)A$(14)"Press 'N' To Stop":PROCDELAY(50):ENDPROC
 1050DEFPROCDELAY(N)
 1060FORZ=1TON:NEXTZ:ENDPROC
 1070DEFPROCKEY
 1080PRINT'"      Press Any Key To Continue"CHR$30
 1090QW$=GET$
 1100PROCTITLE:ENDPROC
 1110DEFPROCTITLE
 1120CLS:PRINTTAB(11,0)R$"Search & Rescue"RO$:ENDPROC
 1130DEFPROCINTRO
 1140PRINT'TAB(13)"(C)  1982"'TAB(13)"By G.J.Little"TAB(13)"& M.Orton"
 1150PRINT''''''"   Do you want instructions ? ";
 1160Q$=GET$:QW$="No":IFQ$="Y"ORQ$="y"QW$="Yes"
 1170PRINTQW$:ENDPROC
 1180DEFPROCPAGE1:PROCTITLE
 1190 
 1200PRINT'"   You are the pilot of a search and"
 1210PRINT" rescue helicopter. The helicopter is"
 1220PRINT" controlled using the following keys"
 1230PRINT" to accelerate you in your chosen        direction"
 1240PRINT''SPC13"':' - Up"
 1250PRINT'SPC2"'Z' - Left"SPC12"'X' - Right"
 1260PRINT'SPC13"'/' - Down"
 1270PRINT'"   You may also use a combination of"
 1280PRINT" keys, i.e. 'X' and '/' to go down and"
 1290PRINT" to the right at the same time."
 1300PRINT'"   Other controls are the SHIFT key"
 1310PRINT" and the SPACE BAR."
 1320PRINT'"   The SHIFT key operates refuelling"
 1330PRINT" from the top of the lighthouse only."
 1340PRINT" It is possible to return there to"
 1350PRINT" refuel during sorties."
 1360PROCKEY:ENDPROC
 1370DEFPROCPAGE2
 1380PRINT'"   The SPACE BAR operates the rope,"
 1390PRINT" dropping the passenger when one is"
 1400PRINT" carried or lowering the rope when one"
 1410PRINT" is not."
 1420PRINT'"   The idea is to manoeuvre the"
 1430PRINT" helicopter above the approaching ship"
 1440PRINT" and lower the rope onto one of the"
 1450PRINT" men on deck, who will then climb up"
 1460PRINT" into the helicopter. To bring the man"
 1470PRINT" to safety you must again manoeuvre so"
 1480PRINT" that you are situated above the rock"
 1490PRINT" platform next to the lighthouse. Then"
 1500PRINT" simply depress the SPACE BAR to drop"
 1510PRINT" the passenger who will then run into"
 1520PRINT" the lighthouse."
 1530PRINT'"   If you begin to run low on fuel,"
 1540PRINT" move the helicopter to be stationary"
 1550PRINT" above the helicopter platform (Start"
 1560PRINT" Position) and depress the SHIFT key"
 1570PRINT" until you think you have enough fuel."
 1580PROCKEY:ENDPROC
 1590DEFPROCPAGE3:PROCTITLE
 1600PRINT'"   POINTS TO NOTE:-"
 1610PRINT''"   The rate of fuel consumption is"
 1620PRINT" related to the amount of fuel carried,"
 1630PRINT" carrying a passenger, lowering the"
 1640PRINT" rope and your speed."
 1650PRINT'"   The keys accelerate you. Thus to"
 1660PRINT" change direction you will slow down,"
 1670PRINT" turn around and then accelerate."
 1680PRINT'"   Passengers being fairly fragile"
 1690PRINT" cannot be dropped above the height of"
 1700PRINT" the lowest lighthouse window."
 1710PRINT'"   When you run out of fuel, if you are"
 1720PRINT" positioned above the helicopter, or"
 1730PRINT" rock platform you will land safely."
 1740PROCKEY
 1750BP=25:PROCDISPLAY
 1760FI$=CHR$233+CHR$228+CHR$233+RO$:FD=8:FA=0:FQ$="Helicopter Pad":FL=24:PROCTEST
 1770FI$=STRING$(7," "+L$+D$):FD=13:FA=1:FQ$="Fuel Gauge":FL=25:PROCTEST
 1780FI$="o":FD=18:FA=2:FQ$="Minimum Height For Dropping Man":FL=24:PROCTEST
 1790FI$=";":FD=20:FA=26:FQ$="Men":FL=25:PROCTEST
 1800PRINTD$(5)A$(8)"Press Any Key To Start"
 1810QW$=GET$:ENDPROC
 1820DEFPROCTEST
 1830PRINTD$(5)A$(19-LEN(FQ$)/2)FQ$
 1840FORX=1TOFL:PRINTD$(FD)A$(FA)F$(FR)FI$:FR=1-FR:PROCDELAY(100):NEXT
 1850PRINTD$(5)A$(19-LEN(FQ$)/2)LEFT$(FB$,LEN(FQ$)):ENDPROC
 1860DEFPROCUDG
 1870VDU23,224,255,0,0,0,0,0,0,0
 1880VDU23,225,0,255,0,0,0,0,0,0
 1890VDU23,226,0,0,255,0,0,0,0,0
 1900VDU23,227,0,0,0,255,0,0,0,0
 1910VDU23,228,0,0,0,0,255,0,0,0
 1920VDU23,229,0,0,0,0,0,255,0,0
 1930VDU23,230,0,0,0,0,0,0,255,0
 1940VDU23,231,0,0,0,0,0,0,0,255
 1950VDU23,232,129,66,36,24,24,36,66,129
 1960VDU23,233,0,0,0,0,255,24,24,24
 1970VDU23,234,0,0,0,0,240,8,4,4
 1980VDU23,235,0,0,0,0,15,16,32,32
 1990VDU23,236,32,32,16,15,0,0,0,0
 2000VDU23,237,4,4,8,240,0,0,0,0
 2010VDU23,238,32,32,32,32,32,32,32,32
 2020VDU23,239,4,4,4,4,4,4,4,4
 2030VDU23,240,24,60,90,153,24,24,24,24
 2040VDU23,241,128,64,32,16,8,4,2,1
 2050VDU23,242,1,2,4,8,16,32,64,128
 2060VDU23,243,24,24,24,24,255,0,0,0
 2070VDU23,244,24,24,24,255,0,0,0,0
 2080VDU23,245,0,0,0,255,24,24,24,24
 2090VDU23,246,255,127,63,31,15,7,3,1
 2100VDU23,247,255,254,252,248,240,224,192,128
 2110VDU23,248,255,255,255,255,255,255,255,255
 2120VDU23,249,170,85,170,85,170,85,170,85
 2130VDU23,250,192,192,192,192,192,192,192,192
 2140VDU23,251,0,0,0,0,0,0,255,255
 2150VDU23,252,24,24,24,24,255,24,24,24
 2160VDU23,253,128,128,128,128,128,128,128,128
 2170ENVELOPE2,3,0,0,0,0,0,0,121,-10,-5,-2,120,120
 2180ENVELOPE1,2,80,50,80,20,30,20,20,0,0,-127,75,0
 2190ENVELOPE3,4,16,12,8,10,8,10,10,0,0,0,120,0
 2200R$=CHR$17+CHR$0+CHR$17+CHR$129:RO$=CHR$17+CHR$1+CHR$17+CHR$128
 2210L$=CHR$8:U$=CHR$11:D$=CHR$10
 2220ENDPROC
 2230DEFFNG(X)
 2240I=X-32768
 2250VDU31,I MOD40,I DIV40
 2260A%=135:C=USR(&FFF4) AND&FFFF:C=C DIV256
 2270=C
 2280DEFFNA(X)=32768+INT(X)*40+HP
 2290DEFFNB(X)=FNG(FNA(X)+1)
 2300DEFFNC(X)=FNG(FNA(X+1)+2*(1-D))
 2310DEFFND(X)=FNG(FNA(X+1)+2*D)
 2320DEFFNE(X)=(X+(X<0)*X+(X>37)*(X-37))
 2330DEFPROCloc
 2340*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
 2350*FX138,0,128
 2360END


�<>&E00 � �0:�loc
 
� Search And Rescue v1.01
( 
2� From The Book
<#� PCW SOFTWARE FOR THE ELECTRON
F� (C) G. Little & M. Orton
P 
Z#� * Bug removed by (the) Dave *
d 
n@%=0:*TV255,1
x�UDG
�?�4:L=0:HI=0:SC=0:FU=0:FR=0:� 0,0:�19,1,6;0;:�23;8202;0;0;0;
�4�L$(4),D$(25),H$(1,1,1),A$(37),HD(9),VD(9),F$(1)
��TITLE:�INTRO
�r$&B00=�246+R$+"       "+RO$+�250+" "+U$+�10,L$)+�251+";;;;;"+R$+�247+�252+RO$+�250+" "+�3,L$)+U$+�233+�253+" "
�(D$(0)=�30:�X=1�25:D$(X)=D$(X-1)+D$:�
��X=1�37:A$(X)=A$(X-1)+�9:�
��Q$="Y"�Q$="y"�PAGE1
�:L$(0)=�3,�232)+L$+L$+L$+D$+�3,�232):L$(1)=R$+L$(0)+RO$
��X=2�4:L$(X)=L$(0):�
�>H$(0,0,0)=�228+�233+�228+D$+L$+L$+L$+�224+R$+�227+RO$+�237
�<H$(1,0,0)=" "+�233+" "+D$+L$+L$+L$+�224+R$+�227+RO$+�237
�>H$(0,1,0)=�228+�233+�228+D$+L$+L$+L$+�236+R$+�227+RO$+�224
�<H$(1,1,0)=" "+�233+" "+D$+L$+L$+L$+�236+R$+�227+RO$+�224
=H$(0,0,1)=�228+�233+�228+D$+L$+L$+L$+�224+R$+";"+RO$+�237
;H$(1,0,1)=" "+�233+" "+D$+L$+L$+L$+�224+R$+";"+RO$+�237
=H$(0,1,1)=�228+�233+�228+D$+L$+L$+L$+�236+R$+";"+RO$+�224
";H$(1,1,1)=" "+�233+" "+D$+L$+L$+L$+�236+R$+";"+RO$+�224
,IF$=�235+�20,�228)+�234+A$(18)+�238+"Thankyou for playing"+�239+A$(18)
6lF$=F$+�236+�20,�227)+�237+�30:EM$=R$+"E"+L$+D$+"M"+L$+D$+"P"+L$+D$+"T"+L$+D$+"Y"+L$+D$+" "+L$+D$+" "+RO$
@1X$="ABDEDBABDFDBAACDEDBAABDEFDCDBAABCDBAABCA"
J&�X=1�40:W$=W$+�(�(�X$,X,1))+159):�
T�Q$="Y"�Q$="y"�PAGE2
^F$(0)=R$:F$(1)=RO$
hE$="   "+D$+L$+L$+L$+"   "
rrEX$=�241+�240+�242+D$+L$+L$+L$+�242+"V"+�241+U$+L$+L$+L$+�235+�243+�234+D$+L$+L$+L$+�236+�245+�237+U$+L$+L$+L$
||C$=R$+" "+�246+RO$+�233+"    "+R$+�247+�248+RO$+" "+U$+�10,L$)+R$+�246+RO$+"      "+�233+�242+U$+L$+L$+"  "+D$+D$+�9,L$)
�/C1$=U$+" "+D$+L$+"         "+U$+L$+L$+"   "
�FB$=�40," ")
��Q$="Y"�Q$="y"�PAGE3
�J�17,0,0,1:VV=0:HV=0:VP=6:HP=0:R=0:D=0:M=0:SC=0:FU=750:LP=604:�FILLBOAT
��:�3,1,200,255:�DISPLAY
��(-99)�LADDER
�Q2=0:Q3=0:�(-98) Q2=-0.32
��(-67) Q2=0.32
��(-105) Q3=0.32
��(-73) Q3=-0.32
��(-17) �("FX 210 1")
��(-82) �("FX 210 0")
�0V=VV+Q3:VV=V-0.32*((V<-2.1)-(V>2.1)):V=HV+Q2
AHV=V-0.32*((V<-2.1)-(V>2.1)):FU=�((FU-�(HV)-�(VV+.2)-M)*.995)
(�D$(23)A$(28)FU" ":�FU<.1 FU=0:�dZB
D=-(HV<0):R=1-R:V=VP:H=HP
&P=VP+VV:�P>1 � P<22 VP=P
0P=HP+HV:�P>0 � P<36 HP=P
:.�D$(V)A$(H)E$:�C(VP)<>32��D(VP)<>32 ��TBC
D2�D$(VP)A$(HP)H$(R,D,M):�16,-15,4,2:�17,-15,5,1
N$�(HP)=0 ��(VP)=6 ��(-1) �FILLUP
X�UPDATE:�txA
b��LADDER
lFU=FU-5:�-M ��trB
v�B(VP+2)<>32�
�DP=VP+1:�:P=P+1:�B(P)=32 �D$(P)A$(HP+1)�239;:�P=VP+6:P=P+1 � �-1
��B(P)<>59 M$=�239:�t^B
�H?(2845+(�(HP)-�(BP))+1)=32:M$=";":M=1:�D$(21)A$(BP)$&B00:�1,2,100,50
�'�P=P-1��(VP)+2�-1:�D$(P)A$(HP+1)M$;
��DELAY(20):�L$" ":�:�
�2M=0:R=1-R:P=VP+2:�D$(VP)A$(HP)H$(R,D,M)D$L$L$;
�6�B(P)=32 �";"L$;:�DELAY(10):�" "D$L$;:P=P+1:�t|B
�H�P-VP<4 �dPB � �30:�"SPLAT":�DELAY(600):�1,-15,30,100:�30:�5:�d~A
�dSC=SC+1:�D$(23)A$(6)SC:�P=HP �1�-1:J=�G(33568+P):�P,20)";"L$;:�DELAY(50):�J:�:�1,2,200,50:�d~A
��HP<9 � �B(VP+2)<>32 ��DfC
�K�D$(VP)A$(HP)E$:VV=VV-.3*(VV<.7):VP=VP-VV*((VP+VV)>0):HV=HV*.9:HP=HP+HV
�*�HP<0�HP>37��C(VP)<>32��D(VP)<>32��TBC
�+�D$(VP)A$(HP)H$(R,D,M):�DELAY(20):�ddB
=�D$(VP)A$(�(�E(HP)));:�X=1�30:�0,-15,�(3)+3,1:�EX$;:�:�E$
?�19,0,0,1:�SC>HI HI=SC:�1,2,230,100:�14,0)"New High Score"
*�17,3,200,255:�DISPLAY:�UPDATE:*FX15,1
 X�UPDATE:�AGAIN:QW$=�(0):Q=(QW$="Y"�QW$="y")+(QW$="N"�QW$="n")*2:�1-Q �T`C,�tdA,�TjC
*�D$(11)A$(11)F$:�17,0,0,1:�
4��FILLUP
>符(-1)�
H�D$(23)A$(28)FU" "
R@�LP>380 FU=FU+36:�32,LP:�60,LP:LP=LP-4:�1,-15,650-LP,1:�T~C
\�D$(13)A$(1)EM$:�
f�D$(VP)A$(HP)H$(R,D,M)
pG�D$(15)A$(12)"You Ran Out Of Fuel"D$A$(22)"But Landed Safely":�TLC
z
��DISPLAY
�_�31,0,8,233,228,233,10,8,8,8,232,232,232,10,8,8,8,232,232,232,10,8,8,8,246,248,247,10,8,8,8
�b�R$"o  "�5,(D$+L$+L$+L$+"   "))D$L$L$L$"  o"D$L$L$L$"   "D$L$L$L$" "RO$" "�248D$L$L$L$�9,�249)
��SCORE:�
���SCORE
�C�D$(23)"Score:";SC;"     Helicopter Fuel:"FU''"Hi-score:"HI"  "
�
�UPDATE:�
���UPDATE
�%WP=�(38):�D$(22)�W$,WP)�W$,WP-1);
�*BP=BP-�(1)/3:�BP<31 �D$(21)A$(BP)$&B00
�,�D$(9)L$(L):L=L+1:L=-(L>5)*L:�(BP)<>9 �
�@�D$(21)A$(BP);:�DELAY(150):�C$;:�DELAY(150):�C1$:�FILLBOAT:�
���FILLBOAT
�&�X=2846�2850:?X=59:�:BP=�(10)+30:�
��AGAIN
S�D$(2)A$(12)"Press 'Y' To Restart":�D$(4)A$(14)"Press 'N' To Stop":�DELAY(50):�
��DELAY(N)
$�Z=1�N:�Z:�
.	��KEY
8*�'"      Press Any Key To Continue"�30
B	QW$=�
L�TITLE:�
V��TITLE
`%�:�11,0)R$"Search & Rescue"RO$:�
j��INTRO
t8�'�13)"(C)  1982"'�13)"By G.J.Little"�13)"& M.Orton"
~,�''''''"   Do you want instructions ? ";
�)Q$=�:QW$="No":�Q$="Y"�Q$="y"QW$="Yes"
�
�QW$:�
���PAGE1:�TITLE
� 
�,�'"   You are the pilot of a search and"
�,�" rescue helicopter. The helicopter is"
�+�" controlled using the following keys"
�9�" to accelerate you in your chosen        direction"
��''�13"':' - Up"
�$�'�2"'Z' - Left"�12"'X' - Right"
��'�13"'/' - Down"
�,�'"   You may also use a combination of"
-�" keys, i.e. 'X' and '/' to go down and"

&�" to the right at the same time."
+�'"   Other controls are the SHIFT key"
�" and the SPACE BAR."
(,�'"   The SHIFT key operates refuelling"
2,�" from the top of the lighthouse only."
<)�" It is possible to return there to"
F�" refuel during sorties."
P
�KEY:�
Z��PAGE2
d+�'"   The SPACE BAR operates the rope,"
n*�" dropping the passenger when one is"
x-�" carried or lowering the rope when one"
��" is not."
�'�'"   The idea is to manoeuvre the"
�-�" helicopter above the approaching ship"
�*�" and lower the rope onto one of the"
�+�" men on deck, who will then climb up"
�-�" into the helicopter. To bring the man"
�-�" to safety you must again manoeuvre so"
�,�" that you are situated above the rock"
�-�" platform next to the lighthouse. Then"
�,�" simply depress the SPACE BAR to drop"
�,�" the passenger who will then run into"
��" the lighthouse."
�+�'"   If you begin to run low on fuel,"
,�" move the helicopter to be stationary"
,�" above the helicopter platform (Start"
+�" Position) and depress the SHIFT key"
"-�" until you think you have enough fuel."
,
�KEY:�
6��PAGE3:�TITLE
@�'"   POINTS TO NOTE:-"
J+�''"   The rate of fuel consumption is"
T.�" related to the amount of fuel carried,"
^*�" carrying a passenger, lowering the"
h�" rope and your speed."
r+�'"   The keys accelerate you. Thus to"
|,�" change direction you will slow down,"
�(�" turn around and then accelerate."
�*�'"   Passengers being fairly fragile"
�-�" cannot be dropped above the height of"
�%�" the lowest lighthouse window."
�/�'"   When you run out of fuel, if you are"
�+�" positioned above the helicopter, or"
�+�" rock platform you will land safely."
��KEY
�BP=25:�DISPLAY
�EFI$=�233+�228+�233+RO$:FD=8:FA=0:FQ$="Helicopter Pad":FL=24:�TEST
�=FI$=�7," "+L$+D$):FD=13:FA=1:FQ$="Fuel Gauge":FL=25:�TEST
�HFI$="o":FD=18:FA=2:FQ$="Minimum Height For Dropping Man":FL=24:�TEST
�-FI$=";":FD=20:FA=26:FQ$="Men":FL=25:�TEST
'�D$(5)A$(8)"Press Any Key To Start"
QW$=�:�

��TEST
&�D$(5)A$(19-�(FQ$)/2)FQ$
08�X=1�FL:�D$(FD)A$(FA)F$(FR)FI$:FR=1-FR:�DELAY(100):�
:'�D$(5)A$(19-�(FQ$)/2)�FB$,�(FQ$)):�
D	��UDG
N�23,224,255,0,0,0,0,0,0,0
X�23,225,0,255,0,0,0,0,0,0
b�23,226,0,0,255,0,0,0,0,0
l�23,227,0,0,0,255,0,0,0,0
v�23,228,0,0,0,0,255,0,0,0
��23,229,0,0,0,0,0,255,0,0
��23,230,0,0,0,0,0,0,255,0
��23,231,0,0,0,0,0,0,0,255
�%�23,232,129,66,36,24,24,36,66,129
� �23,233,0,0,0,0,255,24,24,24
��23,234,0,0,0,0,240,8,4,4
��23,235,0,0,0,0,15,16,32,32
��23,236,32,32,16,15,0,0,0,0
��23,237,4,4,8,240,0,0,0,0
�#�23,238,32,32,32,32,32,32,32,32
��23,239,4,4,4,4,4,4,4,4
�$�23,240,24,60,90,153,24,24,24,24
� �23,241,128,64,32,16,8,4,2,1
 �23,242,1,2,4,8,16,32,64,128
!�23,243,24,24,24,24,255,0,0,0
 �23,244,24,24,24,255,0,0,0,0
 !�23,245,0,0,0,255,24,24,24,24
*"�23,246,255,127,63,31,15,7,3,1
4+�23,247,255,254,252,248,240,224,192,128
>+�23,248,255,255,255,255,255,255,255,255
H'�23,249,170,85,170,85,170,85,170,85
R+�23,250,192,192,192,192,192,192,192,192
\�23,251,0,0,0,0,0,0,255,255
f$�23,252,24,24,24,24,255,24,24,24
p+�23,253,128,128,128,128,128,128,128,128
z*�2,3,0,0,0,0,0,0,121,-10,-5,-2,120,120
�+�1,2,80,50,80,20,30,20,20,0,0,-127,75,0
�'�3,4,16,12,8,10,8,10,10,0,0,0,120,0
�*R$=�17+�0+�17+�129:RO$=�17+�1+�17+�128
�L$=�8:U$=�11:D$=�10
��
�
ݤG(X)
�
I=X-32768
��31,I �40,I �40
�%A%=135:C=�(&FFF4) �&FFFF:C=C �256
�=C
�ݤA(X)=32768+�(X)*40+HP
�ݤB(X)=�G(�A(X)+1)
�ݤC(X)=�G(�A(X+1)+2*(1-D))
	ݤD(X)=�G(�A(X+1)+2*D)
	$ݤE(X)=(X+(X<0)*X+(X>37)*(X-37))
		��loc
	$R*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
	.*FX138,0,128
	8�
�

00000000  0d 00 0a 16 e7 90 3c 3e  26 45 30 30 20 8c 20 fb  |......<>&E00 . .|
00000010  30 3a f2 6c 6f 63 0d 00  14 05 20 0d 00 1e 1d f4  |0:.loc.... .....|
00000020  20 53 65 61 72 63 68 20  41 6e 64 20 52 65 73 63  | Search And Resc|
00000030  75 65 20 76 31 2e 30 31  0d 00 28 05 20 0d 00 32  |ue v1.01..(. ..2|
00000040  13 f4 20 46 72 6f 6d 20  54 68 65 20 42 6f 6f 6b  |.. From The Book|
00000050  0d 00 3c 23 f4 20 50 43  57 20 53 4f 46 54 57 41  |..<#. PCW SOFTWA|
00000060  52 45 20 46 4f 52 20 54  48 45 20 45 4c 45 43 54  |RE FOR THE ELECT|
00000070  52 4f 4e 0d 00 46 1e f4  20 28 43 29 20 47 2e 20  |RON..F.. (C) G. |
00000080  4c 69 74 74 6c 65 20 26  20 4d 2e 20 4f 72 74 6f  |Little & M. Orto|
00000090  6e 0d 00 50 05 20 0d 00  5a 23 f4 20 2a 20 42 75  |n..P. ..Z#. * Bu|
000000a0  67 20 72 65 6d 6f 76 65  64 20 62 79 20 28 74 68  |g removed by (th|
000000b0  65 29 20 44 61 76 65 20  2a 0d 00 64 05 20 0d 00  |e) Dave *..d. ..|
000000c0  6e 11 40 25 3d 30 3a 2a  54 56 32 35 35 2c 31 0d  |n.@%=0:*TV255,1.|
000000d0  00 78 08 f2 55 44 47 0d  00 82 3f eb 34 3a 4c 3d  |.x..UDG...?.4:L=|
000000e0  30 3a 48 49 3d 30 3a 53  43 3d 30 3a 46 55 3d 30  |0:HI=0:SC=0:FU=0|
000000f0  3a 46 52 3d 30 3a e6 20  30 2c 30 3a ef 31 39 2c  |:FR=0:. 0,0:.19,|
00000100  31 2c 36 3b 30 3b 3a ef  32 33 3b 38 32 30 32 3b  |1,6;0;:.23;8202;|
00000110  30 3b 30 3b 30 3b 0d 00  8c 34 de 4c 24 28 34 29  |0;0;0;...4.L$(4)|
00000120  2c 44 24 28 32 35 29 2c  48 24 28 31 2c 31 2c 31  |,D$(25),H$(1,1,1|
00000130  29 2c 41 24 28 33 37 29  2c 48 44 28 39 29 2c 56  |),A$(37),HD(9),V|
00000140  44 28 39 29 2c 46 24 28  31 29 0d 00 96 11 f2 54  |D(9),F$(1).....T|
00000150  49 54 4c 45 3a f2 49 4e  54 52 4f 0d 00 a0 72 24  |ITLE:.INTRO...r$|
00000160  26 42 30 30 3d bd 32 34  36 2b 52 24 2b 22 20 20  |&B00=.246+R$+"  |
00000170  20 20 20 20 20 22 2b 52  4f 24 2b bd 32 35 30 2b  |     "+RO$+.250+|
00000180  22 20 22 2b 55 24 2b c4  31 30 2c 4c 24 29 2b bd  |" "+U$+.10,L$)+.|
00000190  32 35 31 2b 22 3b 3b 3b  3b 3b 22 2b 52 24 2b bd  |251+";;;;;"+R$+.|
000001a0  32 34 37 2b bd 32 35 32  2b 52 4f 24 2b bd 32 35  |247+.252+RO$+.25|
000001b0  30 2b 22 20 22 2b c4 33  2c 4c 24 29 2b 55 24 2b  |0+" "+.3,L$)+U$+|
000001c0  bd 32 33 33 2b bd 32 35  33 2b 22 20 22 0d 00 aa  |.233+.253+" "...|
000001d0  28 44 24 28 30 29 3d bd  33 30 3a e3 58 3d 31 b8  |(D$(0)=.30:.X=1.|
000001e0  32 35 3a 44 24 28 58 29  3d 44 24 28 58 2d 31 29  |25:D$(X)=D$(X-1)|
000001f0  2b 44 24 3a ed 0d 00 b4  1e e3 58 3d 31 b8 33 37  |+D$:......X=1.37|
00000200  3a 41 24 28 58 29 3d 41  24 28 58 2d 31 29 2b bd  |:A$(X)=A$(X-1)+.|
00000210  39 3a ed 0d 00 be 18 e7  51 24 3d 22 59 22 84 51  |9:......Q$="Y".Q|
00000220  24 3d 22 79 22 f2 50 41  47 45 31 0d 00 c8 3a 4c  |$="y".PAGE1...:L|
00000230  24 28 30 29 3d c4 33 2c  bd 32 33 32 29 2b 4c 24  |$(0)=.3,.232)+L$|
00000240  2b 4c 24 2b 4c 24 2b 44  24 2b c4 33 2c bd 32 33  |+L$+L$+D$+.3,.23|
00000250  32 29 3a 4c 24 28 31 29  3d 52 24 2b 4c 24 28 30  |2):L$(1)=R$+L$(0|
00000260  29 2b 52 4f 24 0d 00 d2  18 e3 58 3d 32 b8 34 3a  |)+RO$.....X=2.4:|
00000270  4c 24 28 58 29 3d 4c 24  28 30 29 3a ed 0d 00 dc  |L$(X)=L$(0):....|
00000280  3e 48 24 28 30 2c 30 2c  30 29 3d bd 32 32 38 2b  |>H$(0,0,0)=.228+|
00000290  bd 32 33 33 2b bd 32 32  38 2b 44 24 2b 4c 24 2b  |.233+.228+D$+L$+|
000002a0  4c 24 2b 4c 24 2b bd 32  32 34 2b 52 24 2b bd 32  |L$+L$+.224+R$+.2|
000002b0  32 37 2b 52 4f 24 2b bd  32 33 37 0d 00 e6 3c 48  |27+RO$+.237...<H|
000002c0  24 28 31 2c 30 2c 30 29  3d 22 20 22 2b bd 32 33  |$(1,0,0)=" "+.23|
000002d0  33 2b 22 20 22 2b 44 24  2b 4c 24 2b 4c 24 2b 4c  |3+" "+D$+L$+L$+L|
000002e0  24 2b bd 32 32 34 2b 52  24 2b bd 32 32 37 2b 52  |$+.224+R$+.227+R|
000002f0  4f 24 2b bd 32 33 37 0d  00 f0 3e 48 24 28 30 2c  |O$+.237...>H$(0,|
00000300  31 2c 30 29 3d bd 32 32  38 2b bd 32 33 33 2b bd  |1,0)=.228+.233+.|
00000310  32 32 38 2b 44 24 2b 4c  24 2b 4c 24 2b 4c 24 2b  |228+D$+L$+L$+L$+|
00000320  bd 32 33 36 2b 52 24 2b  bd 32 32 37 2b 52 4f 24  |.236+R$+.227+RO$|
00000330  2b bd 32 32 34 0d 00 fa  3c 48 24 28 31 2c 31 2c  |+.224...<H$(1,1,|
00000340  30 29 3d 22 20 22 2b bd  32 33 33 2b 22 20 22 2b  |0)=" "+.233+" "+|
00000350  44 24 2b 4c 24 2b 4c 24  2b 4c 24 2b bd 32 33 36  |D$+L$+L$+L$+.236|
00000360  2b 52 24 2b bd 32 32 37  2b 52 4f 24 2b bd 32 32  |+R$+.227+RO$+.22|
00000370  34 0d 01 04 3d 48 24 28  30 2c 30 2c 31 29 3d bd  |4...=H$(0,0,1)=.|
00000380  32 32 38 2b bd 32 33 33  2b bd 32 32 38 2b 44 24  |228+.233+.228+D$|
00000390  2b 4c 24 2b 4c 24 2b 4c  24 2b bd 32 32 34 2b 52  |+L$+L$+L$+.224+R|
000003a0  24 2b 22 3b 22 2b 52 4f  24 2b bd 32 33 37 0d 01  |$+";"+RO$+.237..|
000003b0  0e 3b 48 24 28 31 2c 30  2c 31 29 3d 22 20 22 2b  |.;H$(1,0,1)=" "+|
000003c0  bd 32 33 33 2b 22 20 22  2b 44 24 2b 4c 24 2b 4c  |.233+" "+D$+L$+L|
000003d0  24 2b 4c 24 2b bd 32 32  34 2b 52 24 2b 22 3b 22  |$+L$+.224+R$+";"|
000003e0  2b 52 4f 24 2b bd 32 33  37 0d 01 18 3d 48 24 28  |+RO$+.237...=H$(|
000003f0  30 2c 31 2c 31 29 3d bd  32 32 38 2b bd 32 33 33  |0,1,1)=.228+.233|
00000400  2b bd 32 32 38 2b 44 24  2b 4c 24 2b 4c 24 2b 4c  |+.228+D$+L$+L$+L|
00000410  24 2b bd 32 33 36 2b 52  24 2b 22 3b 22 2b 52 4f  |$+.236+R$+";"+RO|
00000420  24 2b bd 32 32 34 0d 01  22 3b 48 24 28 31 2c 31  |$+.224..";H$(1,1|
00000430  2c 31 29 3d 22 20 22 2b  bd 32 33 33 2b 22 20 22  |,1)=" "+.233+" "|
00000440  2b 44 24 2b 4c 24 2b 4c  24 2b 4c 24 2b bd 32 33  |+D$+L$+L$+L$+.23|
00000450  36 2b 52 24 2b 22 3b 22  2b 52 4f 24 2b bd 32 32  |6+R$+";"+RO$+.22|
00000460  34 0d 01 2c 49 46 24 3d  bd 32 33 35 2b c4 32 30  |4..,IF$=.235+.20|
00000470  2c bd 32 32 38 29 2b bd  32 33 34 2b 41 24 28 31  |,.228)+.234+A$(1|
00000480  38 29 2b bd 32 33 38 2b  22 54 68 61 6e 6b 79 6f  |8)+.238+"Thankyo|
00000490  75 20 66 6f 72 20 70 6c  61 79 69 6e 67 22 2b bd  |u for playing"+.|
000004a0  32 33 39 2b 41 24 28 31  38 29 0d 01 36 6c 46 24  |239+A$(18)..6lF$|
000004b0  3d 46 24 2b bd 32 33 36  2b c4 32 30 2c bd 32 32  |=F$+.236+.20,.22|
000004c0  37 29 2b bd 32 33 37 2b  bd 33 30 3a 45 4d 24 3d  |7)+.237+.30:EM$=|
000004d0  52 24 2b 22 45 22 2b 4c  24 2b 44 24 2b 22 4d 22  |R$+"E"+L$+D$+"M"|
000004e0  2b 4c 24 2b 44 24 2b 22  50 22 2b 4c 24 2b 44 24  |+L$+D$+"P"+L$+D$|
000004f0  2b 22 54 22 2b 4c 24 2b  44 24 2b 22 59 22 2b 4c  |+"T"+L$+D$+"Y"+L|
00000500  24 2b 44 24 2b 22 20 22  2b 4c 24 2b 44 24 2b 22  |$+D$+" "+L$+D$+"|
00000510  20 22 2b 52 4f 24 0d 01  40 31 58 24 3d 22 41 42  | "+RO$..@1X$="AB|
00000520  44 45 44 42 41 42 44 46  44 42 41 41 43 44 45 44  |DEDBABDFDBAACDED|
00000530  42 41 41 42 44 45 46 44  43 44 42 41 41 42 43 44  |BAABDEFDCDBAABCD|
00000540  42 41 41 42 43 41 22 0d  01 4a 26 e3 58 3d 31 b8  |BAABCA"..J&.X=1.|
00000550  34 30 3a 57 24 3d 57 24  2b bd 28 97 28 c1 58 24  |40:W$=W$+.(.(.X$|
00000560  2c 58 2c 31 29 29 2b 31  35 39 29 3a ed 0d 01 54  |,X,1))+159):...T|
00000570  18 e7 51 24 3d 22 59 22  84 51 24 3d 22 79 22 f2  |..Q$="Y".Q$="y".|
00000580  50 41 47 45 32 0d 01 5e  16 46 24 28 30 29 3d 52  |PAGE2..^.F$(0)=R|
00000590  24 3a 46 24 28 31 29 3d  52 4f 24 0d 01 68 1e 45  |$:F$(1)=RO$..h.E|
000005a0  24 3d 22 20 20 20 22 2b  44 24 2b 4c 24 2b 4c 24  |$="   "+D$+L$+L$|
000005b0  2b 4c 24 2b 22 20 20 20  22 0d 01 72 72 45 58 24  |+L$+"   "..rrEX$|
000005c0  3d bd 32 34 31 2b bd 32  34 30 2b bd 32 34 32 2b  |=.241+.240+.242+|
000005d0  44 24 2b 4c 24 2b 4c 24  2b 4c 24 2b bd 32 34 32  |D$+L$+L$+L$+.242|
000005e0  2b 22 56 22 2b bd 32 34  31 2b 55 24 2b 4c 24 2b  |+"V"+.241+U$+L$+|
000005f0  4c 24 2b 4c 24 2b bd 32  33 35 2b bd 32 34 33 2b  |L$+L$+.235+.243+|
00000600  bd 32 33 34 2b 44 24 2b  4c 24 2b 4c 24 2b 4c 24  |.234+D$+L$+L$+L$|
00000610  2b bd 32 33 36 2b bd 32  34 35 2b bd 32 33 37 2b  |+.236+.245+.237+|
00000620  55 24 2b 4c 24 2b 4c 24  2b 4c 24 0d 01 7c 7c 43  |U$+L$+L$+L$..||C|
00000630  24 3d 52 24 2b 22 20 22  2b bd 32 34 36 2b 52 4f  |$=R$+" "+.246+RO|
00000640  24 2b bd 32 33 33 2b 22  20 20 20 20 22 2b 52 24  |$+.233+"    "+R$|
00000650  2b bd 32 34 37 2b bd 32  34 38 2b 52 4f 24 2b 22  |+.247+.248+RO$+"|
00000660  20 22 2b 55 24 2b c4 31  30 2c 4c 24 29 2b 52 24  | "+U$+.10,L$)+R$|
00000670  2b bd 32 34 36 2b 52 4f  24 2b 22 20 20 20 20 20  |+.246+RO$+"     |
00000680  20 22 2b bd 32 33 33 2b  bd 32 34 32 2b 55 24 2b  | "+.233+.242+U$+|
00000690  4c 24 2b 4c 24 2b 22 20  20 22 2b 44 24 2b 44 24  |L$+L$+"  "+D$+D$|
000006a0  2b c4 39 2c 4c 24 29 0d  01 86 2f 43 31 24 3d 55  |+.9,L$).../C1$=U|
000006b0  24 2b 22 20 22 2b 44 24  2b 4c 24 2b 22 20 20 20  |$+" "+D$+L$+"   |
000006c0  20 20 20 20 20 20 22 2b  55 24 2b 4c 24 2b 4c 24  |      "+U$+L$+L$|
000006d0  2b 22 20 20 20 22 0d 01  90 10 46 42 24 3d c4 34  |+"   "....FB$=.4|
000006e0  30 2c 22 20 22 29 0d 01  9a 18 e7 51 24 3d 22 59  |0," ").....Q$="Y|
000006f0  22 84 51 24 3d 22 79 22  f2 50 41 47 45 33 0d 01  |".Q$="y".PAGE3..|
00000700  a4 4a d4 31 37 2c 30 2c  30 2c 31 3a 56 56 3d 30  |.J.17,0,0,1:VV=0|
00000710  3a 48 56 3d 30 3a 56 50  3d 36 3a 48 50 3d 30 3a  |:HV=0:VP=6:HP=0:|
00000720  52 3d 30 3a 44 3d 30 3a  4d 3d 30 3a 53 43 3d 30  |R=0:D=0:M=0:SC=0|
00000730  3a 46 55 3d 37 35 30 3a  4c 50 3d 36 30 34 3a f2  |:FU=750:LP=604:.|
00000740  46 49 4c 4c 42 4f 41 54  0d 01 ae 1b db 3a d4 33  |FILLBOAT.....:.3|
00000750  2c 31 2c 32 30 30 2c 32  35 35 3a f2 44 49 53 50  |,1,200,255:.DISP|
00000760  4c 41 59 0d 01 b8 12 e7  a6 28 2d 39 39 29 f2 4c  |LAY......(-99).L|
00000770  41 44 44 45 52 0d 01 c2  1e 51 32 3d 30 3a 51 33  |ADDER....Q2=0:Q3|
00000780  3d 30 3a e7 a6 28 2d 39  38 29 20 51 32 3d 2d 30  |=0:..(-98) Q2=-0|
00000790  2e 33 32 0d 01 cc 13 e7  a6 28 2d 36 37 29 20 51  |.32......(-67) Q|
000007a0  32 3d 30 2e 33 32 0d 01  d6 14 e7 a6 28 2d 31 30  |2=0.32......(-10|
000007b0  35 29 20 51 33 3d 30 2e  33 32 0d 01 e0 14 e7 a6  |5) Q3=0.32......|
000007c0  28 2d 37 33 29 20 51 33  3d 2d 30 2e 33 32 0d 01  |(-73) Q3=-0.32..|
000007d0  ea 19 e7 a6 28 2d 31 37  29 20 ff 28 22 46 58 20  |....(-17) .("FX |
000007e0  32 31 30 20 31 22 29 0d  01 f4 19 e7 a6 28 2d 38  |210 1")......(-8|
000007f0  32 29 20 ff 28 22 46 58  20 32 31 30 20 30 22 29  |2) .("FX 210 0")|
00000800  0d 01 fe 30 56 3d 56 56  2b 51 33 3a 56 56 3d 56  |...0V=VV+Q3:VV=V|
00000810  2d 30 2e 33 32 2a 28 28  56 3c 2d 32 2e 31 29 2d  |-0.32*((V<-2.1)-|
00000820  28 56 3e 32 2e 31 29 29  3a 56 3d 48 56 2b 51 32  |(V>2.1)):V=HV+Q2|
00000830  0d 02 08 41 48 56 3d 56  2d 30 2e 33 32 2a 28 28  |...AHV=V-0.32*((|
00000840  56 3c 2d 32 2e 31 29 2d  28 56 3e 32 2e 31 29 29  |V<-2.1)-(V>2.1))|
00000850  3a 46 55 3d a8 28 28 46  55 2d 94 28 48 56 29 2d  |:FU=.((FU-.(HV)-|
00000860  94 28 56 56 2b 2e 32 29  2d 4d 29 2a 2e 39 39 35  |.(VV+.2)-M)*.995|
00000870  29 0d 02 12 28 f1 44 24  28 32 33 29 41 24 28 32  |)...(.D$(23)A$(2|
00000880  38 29 46 55 22 20 22 3a  e7 46 55 3c 2e 31 20 46  |8)FU" ":.FU<.1 F|
00000890  55 3d 30 3a e5 8d 64 5a  42 0d 02 1c 1d 44 3d 2d  |U=0:..dZB....D=-|
000008a0  28 48 56 3c 30 29 3a 52  3d 31 2d 52 3a 56 3d 56  |(HV<0):R=1-R:V=V|
000008b0  50 3a 48 3d 48 50 0d 02  26 1c 50 3d 56 50 2b 56  |P:H=HP..&.P=VP+V|
000008c0  56 3a e7 50 3e 31 20 80  20 50 3c 32 32 20 56 50  |V:.P>1 . P<22 VP|
000008d0  3d 50 0d 02 30 1c 50 3d  48 50 2b 48 56 3a e7 50  |=P..0.P=HP+HV:.P|
000008e0  3e 30 20 80 20 50 3c 33  36 20 48 50 3d 50 0d 02  |>0 . P<36 HP=P..|
000008f0  3a 2e f1 44 24 28 56 29  41 24 28 48 29 45 24 3a  |:..D$(V)A$(H)E$:|
00000900  e7 a4 43 28 56 50 29 3c  3e 33 32 84 a4 44 28 56  |..C(VP)<>32..D(V|
00000910  50 29 3c 3e 33 32 20 8c  8d 54 42 43 0d 02 44 32  |P)<>32 ..TBC..D2|
00000920  f1 44 24 28 56 50 29 41  24 28 48 50 29 48 24 28  |.D$(VP)A$(HP)H$(|
00000930  52 2c 44 2c 4d 29 3a d4  31 36 2c 2d 31 35 2c 34  |R,D,M):.16,-15,4|
00000940  2c 32 3a d4 31 37 2c 2d  31 35 2c 35 2c 31 0d 02  |,2:.17,-15,5,1..|
00000950  4e 24 e7 a8 28 48 50 29  3d 30 20 80 a8 28 56 50  |N$..(HP)=0 ..(VP|
00000960  29 3d 36 20 80 a6 28 2d  31 29 20 f2 46 49 4c 4c  |)=6 ..(-1) .FILL|
00000970  55 50 0d 02 58 11 f2 55  50 44 41 54 45 3a e5 8d  |UP..X..UPDATE:..|
00000980  74 78 41 0d 02 62 0c dd  f2 4c 41 44 44 45 52 0d  |txA..b...LADDER.|
00000990  02 6c 15 46 55 3d 46 55  2d 35 3a e7 2d 4d 20 8c  |.l.FU=FU-5:.-M .|
000009a0  8d 74 72 42 0d 02 76 12  e7 a4 42 28 56 50 2b 32  |.trB..v...B(VP+2|
000009b0  29 3c 3e 33 32 e1 0d 02  80 44 50 3d 56 50 2b 31  |)<>32....DP=VP+1|
000009c0  3a f5 3a 50 3d 50 2b 31  3a e7 a4 42 28 50 29 3d  |:.:P=P+1:..B(P)=|
000009d0  33 32 20 f1 44 24 28 50  29 41 24 28 48 50 2b 31  |32 .D$(P)A$(HP+1|
000009e0  29 bd 32 33 39 3b 3a fd  50 3d 56 50 2b 36 3a 50  |).239;:.P=VP+6:P|
000009f0  3d 50 2b 31 20 8b 20 fd  2d 31 0d 02 8a 1c e7 a4  |=P+1 . .-1......|
00000a00  42 28 50 29 3c 3e 35 39  20 4d 24 3d bd 32 33 39  |B(P)<>59 M$=.239|
00000a10  3a e5 8d 74 5e 42 0d 02  94 48 3f 28 32 38 34 35  |:..t^B...H?(2845|
00000a20  2b 28 a8 28 48 50 29 2d  a8 28 42 50 29 29 2b 31  |+(.(HP)-.(BP))+1|
00000a30  29 3d 33 32 3a 4d 24 3d  22 3b 22 3a 4d 3d 31 3a  |)=32:M$=";":M=1:|
00000a40  f1 44 24 28 32 31 29 41  24 28 42 50 29 24 26 42  |.D$(21)A$(BP)$&B|
00000a50  30 30 3a d4 31 2c 32 2c  31 30 30 2c 35 30 0d 02  |00:.1,2,100,50..|
00000a60  9e 27 e3 50 3d 50 2d 31  b8 a8 28 56 50 29 2b 32  |.'.P=P-1..(VP)+2|
00000a70  88 2d 31 3a f1 44 24 28  50 29 41 24 28 48 50 2b  |.-1:.D$(P)A$(HP+|
00000a80  31 29 4d 24 3b 0d 02 a8  19 f2 44 45 4c 41 59 28  |1)M$;.....DELAY(|
00000a90  32 30 29 3a f1 4c 24 22  20 22 3a ed 3a e1 0d 02  |20):.L$" ":.:...|
00000aa0  b2 32 4d 3d 30 3a 52 3d  31 2d 52 3a 50 3d 56 50  |.2M=0:R=1-R:P=VP|
00000ab0  2b 32 3a f1 44 24 28 56  50 29 41 24 28 48 50 29  |+2:.D$(VP)A$(HP)|
00000ac0  48 24 28 52 2c 44 2c 4d  29 44 24 4c 24 4c 24 3b  |H$(R,D,M)D$L$L$;|
00000ad0  0d 02 bc 36 e7 a4 42 28  50 29 3d 33 32 20 f1 22  |...6..B(P)=32 ."|
00000ae0  3b 22 4c 24 3b 3a f2 44  45 4c 41 59 28 31 30 29  |;"L$;:.DELAY(10)|
00000af0  3a f1 22 20 22 44 24 4c  24 3b 3a 50 3d 50 2b 31  |:." "D$L$;:P=P+1|
00000b00  3a e5 8d 74 7c 42 0d 02  c6 48 e7 50 2d 56 50 3c  |:..t|B...H.P-VP<|
00000b10  34 20 e5 8d 64 50 42 20  8b 20 ef 33 30 3a f1 22  |4 ..dPB . .30:."|
00000b20  53 50 4c 41 54 22 3a f2  44 45 4c 41 59 28 36 30  |SPLAT":.DELAY(60|
00000b30  30 29 3a d4 31 2c 2d 31  35 2c 33 30 2c 31 30 30  |0):.1,-15,30,100|
00000b40  3a ef 33 30 3a f1 89 35  3a e5 8d 64 7e 41 0d 02  |:.30:..5:..d~A..|
00000b50  d0 64 53 43 3d 53 43 2b  31 3a f1 44 24 28 32 33  |.dSC=SC+1:.D$(23|
00000b60  29 41 24 28 36 29 53 43  3a e3 50 3d 48 50 20 b8  |)A$(6)SC:.P=HP .|
00000b70  31 88 2d 31 3a 4a 3d a4  47 28 33 33 35 36 38 2b  |1.-1:J=.G(33568+|
00000b80  50 29 3a f1 8a 50 2c 32  30 29 22 3b 22 4c 24 3b  |P):..P,20)";"L$;|
00000b90  3a f2 44 45 4c 41 59 28  35 30 29 3a ef 4a 3a ed  |:.DELAY(50):.J:.|
00000ba0  3a d4 31 2c 32 2c 32 30  30 2c 35 30 3a e5 8d 64  |:.1,2,200,50:..d|
00000bb0  7e 41 0d 02 da 1e e7 48  50 3c 39 20 80 20 a4 42  |~A.....HP<9 . .B|
00000bc0  28 56 50 2b 32 29 3c 3e  33 32 20 8c 8d 44 66 43  |(VP+2)<>32 ..DfC|
00000bd0  0d 02 e4 4b f1 44 24 28  56 50 29 41 24 28 48 50  |...K.D$(VP)A$(HP|
00000be0  29 45 24 3a 56 56 3d 56  56 2d 2e 33 2a 28 56 56  |)E$:VV=VV-.3*(VV|
00000bf0  3c 2e 37 29 3a 56 50 3d  56 50 2d 56 56 2a 28 28  |<.7):VP=VP-VV*((|
00000c00  56 50 2b 56 56 29 3e 30  29 3a 48 56 3d 48 56 2a  |VP+VV)>0):HV=HV*|
00000c10  2e 39 3a 48 50 3d 48 50  2b 48 56 0d 02 ee 2a e7  |.9:HP=HP+HV...*.|
00000c20  48 50 3c 30 84 48 50 3e  33 37 84 a4 43 28 56 50  |HP<0.HP>37..C(VP|
00000c30  29 3c 3e 33 32 84 a4 44  28 56 50 29 3c 3e 33 32  |)<>32..D(VP)<>32|
00000c40  8c 8d 54 42 43 0d 02 f8  2b f1 44 24 28 56 50 29  |..TBC...+.D$(VP)|
00000c50  41 24 28 48 50 29 48 24  28 52 2c 44 2c 4d 29 3a  |A$(HP)H$(R,D,M):|
00000c60  f2 44 45 4c 41 59 28 32  30 29 3a e5 8d 64 64 42  |.DELAY(20):..ddB|
00000c70  0d 03 02 3d f1 44 24 28  56 50 29 41 24 28 a8 28  |...=.D$(VP)A$(.(|
00000c80  a4 45 28 48 50 29 29 29  3b 3a e3 58 3d 31 b8 33  |.E(HP)));:.X=1.3|
00000c90  30 3a d4 30 2c 2d 31 35  2c b3 28 33 29 2b 33 2c  |0:.0,-15,.(3)+3,|
00000ca0  31 3a f1 45 58 24 3b 3a  ed 3a f1 45 24 0d 03 0c  |1:.EX$;:.:.E$...|
00000cb0  3f d4 31 39 2c 30 2c 30  2c 31 3a e7 53 43 3e 48  |?.19,0,0,1:.SC>H|
00000cc0  49 20 48 49 3d 53 43 3a  d4 31 2c 32 2c 32 33 30  |I HI=SC:.1,2,230|
00000cd0  2c 31 30 30 3a f1 8a 31  34 2c 30 29 22 4e 65 77  |,100:..14,0)"New|
00000ce0  20 48 69 67 68 20 53 63  6f 72 65 22 0d 03 16 2a  | High Score"...*|
00000cf0  d4 31 37 2c 33 2c 32 30  30 2c 32 35 35 3a f2 44  |.17,3,200,255:.D|
00000d00  49 53 50 4c 41 59 3a f2  55 50 44 41 54 45 3a 2a  |ISPLAY:.UPDATE:*|
00000d10  46 58 31 35 2c 31 0d 03  20 58 f2 55 50 44 41 54  |FX15,1.. X.UPDAT|
00000d20  45 3a f2 41 47 41 49 4e  3a 51 57 24 3d bf 28 30  |E:.AGAIN:QW$=.(0|
00000d30  29 3a 51 3d 28 51 57 24  3d 22 59 22 84 51 57 24  |):Q=(QW$="Y".QW$|
00000d40  3d 22 79 22 29 2b 28 51  57 24 3d 22 4e 22 84 51  |="y")+(QW$="N".Q|
00000d50  57 24 3d 22 6e 22 29 2a  32 3a ee 31 2d 51 20 e5  |W$="n")*2:.1-Q .|
00000d60  8d 54 60 43 2c 8d 74 64  41 2c 8d 54 6a 43 0d 03  |.T`C,.tdA,.TjC..|
00000d70  2a 1f f1 44 24 28 31 31  29 41 24 28 31 31 29 46  |*..D$(11)A$(11)F|
00000d80  24 3a d4 31 37 2c 30 2c  30 2c 31 3a e0 0d 03 34  |$:.17,0,0,1:...4|
00000d90  0c dd f2 46 49 4c 4c 55  50 0d 03 3e 0c e7 ac a6  |...FILLUP..>....|
00000da0  28 2d 31 29 e1 0d 03 48  16 f1 44 24 28 32 33 29  |(-1)...H..D$(23)|
00000db0  41 24 28 32 38 29 46 55  22 20 22 0d 03 52 40 e7  |A$(28)FU" "..R@.|
00000dc0  4c 50 3e 33 38 30 20 46  55 3d 46 55 2b 33 36 3a  |LP>380 FU=FU+36:|
00000dd0  ec 33 32 2c 4c 50 3a df  36 30 2c 4c 50 3a 4c 50  |.32,LP:.60,LP:LP|
00000de0  3d 4c 50 2d 34 3a d4 31  2c 2d 31 35 2c 36 35 30  |=LP-4:.1,-15,650|
00000df0  2d 4c 50 2c 31 3a e5 8d  54 7e 43 0d 03 5c 15 f1  |-LP,1:..T~C..\..|
00000e00  44 24 28 31 33 29 41 24  28 31 29 45 4d 24 3a e1  |D$(13)A$(1)EM$:.|
00000e10  0d 03 66 1a f1 44 24 28  56 50 29 41 24 28 48 50  |..f..D$(VP)A$(HP|
00000e20  29 48 24 28 52 2c 44 2c  4d 29 0d 03 70 47 f1 44  |)H$(R,D,M)..pG.D|
00000e30  24 28 31 35 29 41 24 28  31 32 29 22 59 6f 75 20  |$(15)A$(12)"You |
00000e40  52 61 6e 20 4f 75 74 20  4f 66 20 46 75 65 6c 22  |Ran Out Of Fuel"|
00000e50  44 24 41 24 28 32 32 29  22 42 75 74 20 4c 61 6e  |D$A$(22)"But Lan|
00000e60  64 65 64 20 53 61 66 65  6c 79 22 3a e5 8d 54 4c  |ded Safely":..TL|
00000e70  43 0d 03 7a 0d dd f2 44  49 53 50 4c 41 59 0d 03  |C..z...DISPLAY..|
00000e80  84 5f ef 33 31 2c 30 2c  38 2c 32 33 33 2c 32 32  |._.31,0,8,233,22|
00000e90  38 2c 32 33 33 2c 31 30  2c 38 2c 38 2c 38 2c 32  |8,233,10,8,8,8,2|
00000ea0  33 32 2c 32 33 32 2c 32  33 32 2c 31 30 2c 38 2c  |32,232,232,10,8,|
00000eb0  38 2c 38 2c 32 33 32 2c  32 33 32 2c 32 33 32 2c  |8,8,232,232,232,|
00000ec0  31 30 2c 38 2c 38 2c 38  2c 32 34 36 2c 32 34 38  |10,8,8,8,246,248|
00000ed0  2c 32 34 37 2c 31 30 2c  38 2c 38 2c 38 0d 03 8e  |,247,10,8,8,8...|
00000ee0  62 f1 52 24 22 6f 20 20  22 c4 35 2c 28 44 24 2b  |b.R$"o  ".5,(D$+|
00000ef0  4c 24 2b 4c 24 2b 4c 24  2b 22 20 20 20 22 29 29  |L$+L$+L$+"   "))|
00000f00  44 24 4c 24 4c 24 4c 24  22 20 20 6f 22 44 24 4c  |D$L$L$L$"  o"D$L|
00000f10  24 4c 24 4c 24 22 20 20  20 22 44 24 4c 24 4c 24  |$L$L$"   "D$L$L$|
00000f20  4c 24 22 20 22 52 4f 24  22 20 22 bd 32 34 38 44  |L$" "RO$" ".248D|
00000f30  24 4c 24 4c 24 4c 24 c4  39 2c bd 32 34 39 29 0d  |$L$L$L$.9,.249).|
00000f40  03 98 0c f2 53 43 4f 52  45 3a e1 0d 03 a2 0b dd  |....SCORE:......|
00000f50  f2 53 43 4f 52 45 0d 03  ac 43 f1 44 24 28 32 33  |.SCORE...C.D$(23|
00000f60  29 22 53 63 6f 72 65 3a  22 3b 53 43 3b 22 20 20  |)"Score:";SC;"  |
00000f70  20 20 20 48 65 6c 69 63  6f 70 74 65 72 20 46 75  |   Helicopter Fu|
00000f80  65 6c 3a 22 46 55 27 27  22 48 69 2d 73 63 6f 72  |el:"FU''"Hi-scor|
00000f90  65 3a 22 48 49 22 20 20  22 0d 03 b6 0d f2 55 50  |e:"HI"  ".....UP|
00000fa0  44 41 54 45 3a e1 0d 03  c0 0c dd f2 55 50 44 41  |DATE:.......UPDA|
00000fb0  54 45 0d 03 ca 25 57 50  3d b3 28 33 38 29 3a f1  |TE...%WP=.(38):.|
00000fc0  44 24 28 32 32 29 c1 57  24 2c 57 50 29 c0 57 24  |D$(22).W$,WP).W$|
00000fd0  2c 57 50 2d 31 29 3b 0d  03 d4 2a 42 50 3d 42 50  |,WP-1);...*BP=BP|
00000fe0  2d b3 28 31 29 2f 33 3a  e7 42 50 3c 33 31 20 f1  |-.(1)/3:.BP<31 .|
00000ff0  44 24 28 32 31 29 41 24  28 42 50 29 24 26 42 30  |D$(21)A$(BP)$&B0|
00001000  30 0d 03 de 2c f1 44 24  28 39 29 4c 24 28 4c 29  |0...,.D$(9)L$(L)|
00001010  3a 4c 3d 4c 2b 31 3a 4c  3d 2d 28 4c 3e 35 29 2a  |:L=L+1:L=-(L>5)*|
00001020  4c 3a e7 a8 28 42 50 29  3c 3e 39 20 e1 0d 03 e8  |L:..(BP)<>9 ....|
00001030  40 f1 44 24 28 32 31 29  41 24 28 42 50 29 3b 3a  |@.D$(21)A$(BP);:|
00001040  f2 44 45 4c 41 59 28 31  35 30 29 3a f1 43 24 3b  |.DELAY(150):.C$;|
00001050  3a f2 44 45 4c 41 59 28  31 35 30 29 3a f1 43 31  |:.DELAY(150):.C1|
00001060  24 3a f2 46 49 4c 4c 42  4f 41 54 3a e1 0d 03 f2  |$:.FILLBOAT:....|
00001070  0e dd f2 46 49 4c 4c 42  4f 41 54 0d 03 fc 26 e3  |...FILLBOAT...&.|
00001080  58 3d 32 38 34 36 b8 32  38 35 30 3a 3f 58 3d 35  |X=2846.2850:?X=5|
00001090  39 3a ed 3a 42 50 3d b3  28 31 30 29 2b 33 30 3a  |9:.:BP=.(10)+30:|
000010a0  e1 0d 04 06 0b dd f2 41  47 41 49 4e 0d 04 10 53  |.......AGAIN...S|
000010b0  f1 44 24 28 32 29 41 24  28 31 32 29 22 50 72 65  |.D$(2)A$(12)"Pre|
000010c0  73 73 20 27 59 27 20 54  6f 20 52 65 73 74 61 72  |ss 'Y' To Restar|
000010d0  74 22 3a f1 44 24 28 34  29 41 24 28 31 34 29 22  |t":.D$(4)A$(14)"|
000010e0  50 72 65 73 73 20 27 4e  27 20 54 6f 20 53 74 6f  |Press 'N' To Sto|
000010f0  70 22 3a f2 44 45 4c 41  59 28 35 30 29 3a e1 0d  |p":.DELAY(50):..|
00001100  04 1a 0e dd f2 44 45 4c  41 59 28 4e 29 0d 04 24  |.....DELAY(N)..$|
00001110  0f e3 5a 3d 31 b8 4e 3a  ed 5a 3a e1 0d 04 2e 09  |..Z=1.N:.Z:.....|
00001120  dd f2 4b 45 59 0d 04 38  2a f1 27 22 20 20 20 20  |..KEY..8*.'"    |
00001130  20 20 50 72 65 73 73 20  41 6e 79 20 4b 65 79 20  |  Press Any Key |
00001140  54 6f 20 43 6f 6e 74 69  6e 75 65 22 bd 33 30 0d  |To Continue".30.|
00001150  04 42 09 51 57 24 3d be  0d 04 4c 0c f2 54 49 54  |.B.QW$=...L..TIT|
00001160  4c 45 3a e1 0d 04 56 0b  dd f2 54 49 54 4c 45 0d  |LE:...V...TITLE.|
00001170  04 60 25 db 3a f1 8a 31  31 2c 30 29 52 24 22 53  |.`%.:..11,0)R$"S|
00001180  65 61 72 63 68 20 26 20  52 65 73 63 75 65 22 52  |earch & Rescue"R|
00001190  4f 24 3a e1 0d 04 6a 0b  dd f2 49 4e 54 52 4f 0d  |O$:...j...INTRO.|
000011a0  04 74 38 f1 27 8a 31 33  29 22 28 43 29 20 20 31  |.t8.'.13)"(C)  1|
000011b0  39 38 32 22 27 8a 31 33  29 22 42 79 20 47 2e 4a  |982"'.13)"By G.J|
000011c0  2e 4c 69 74 74 6c 65 22  8a 31 33 29 22 26 20 4d  |.Little".13)"& M|
000011d0  2e 4f 72 74 6f 6e 22 0d  04 7e 2c f1 27 27 27 27  |.Orton"..~,.''''|
000011e0  27 27 22 20 20 20 44 6f  20 79 6f 75 20 77 61 6e  |''"   Do you wan|
000011f0  74 20 69 6e 73 74 72 75  63 74 69 6f 6e 73 20 3f  |t instructions ?|
00001200  20 22 3b 0d 04 88 29 51  24 3d be 3a 51 57 24 3d  | ";...)Q$=.:QW$=|
00001210  22 4e 6f 22 3a e7 51 24  3d 22 59 22 84 51 24 3d  |"No":.Q$="Y".Q$=|
00001220  22 79 22 51 57 24 3d 22  59 65 73 22 0d 04 92 0a  |"y"QW$="Yes"....|
00001230  f1 51 57 24 3a e1 0d 04  9c 12 dd f2 50 41 47 45  |.QW$:.......PAGE|
00001240  31 3a f2 54 49 54 4c 45  0d 04 a6 05 20 0d 04 b0  |1:.TITLE.... ...|
00001250  2c f1 27 22 20 20 20 59  6f 75 20 61 72 65 20 74  |,.'"   You are t|
00001260  68 65 20 70 69 6c 6f 74  20 6f 66 20 61 20 73 65  |he pilot of a se|
00001270  61 72 63 68 20 61 6e 64  22 0d 04 ba 2c f1 22 20  |arch and"...,." |
00001280  72 65 73 63 75 65 20 68  65 6c 69 63 6f 70 74 65  |rescue helicopte|
00001290  72 2e 20 54 68 65 20 68  65 6c 69 63 6f 70 74 65  |r. The helicopte|
000012a0  72 20 69 73 22 0d 04 c4  2b f1 22 20 63 6f 6e 74  |r is"...+." cont|
000012b0  72 6f 6c 6c 65 64 20 75  73 69 6e 67 20 74 68 65  |rolled using the|
000012c0  20 66 6f 6c 6c 6f 77 69  6e 67 20 6b 65 79 73 22  | following keys"|
000012d0  0d 04 ce 39 f1 22 20 74  6f 20 61 63 63 65 6c 65  |...9." to accele|
000012e0  72 61 74 65 20 79 6f 75  20 69 6e 20 79 6f 75 72  |rate you in your|
000012f0  20 63 68 6f 73 65 6e 20  20 20 20 20 20 20 20 64  | chosen        d|
00001300  69 72 65 63 74 69 6f 6e  22 0d 04 d8 14 f1 27 27  |irection".....''|
00001310  89 31 33 22 27 3a 27 20  2d 20 55 70 22 0d 04 e2  |.13"':' - Up"...|
00001320  24 f1 27 89 32 22 27 5a  27 20 2d 20 4c 65 66 74  |$.'.2"'Z' - Left|
00001330  22 89 31 32 22 27 58 27  20 2d 20 52 69 67 68 74  |".12"'X' - Right|
00001340  22 0d 04 ec 15 f1 27 89  31 33 22 27 2f 27 20 2d  |".....'.13"'/' -|
00001350  20 44 6f 77 6e 22 0d 04  f6 2c f1 27 22 20 20 20  | Down"...,.'"   |
00001360  59 6f 75 20 6d 61 79 20  61 6c 73 6f 20 75 73 65  |You may also use|
00001370  20 61 20 63 6f 6d 62 69  6e 61 74 69 6f 6e 20 6f  | a combination o|
00001380  66 22 0d 05 00 2d f1 22  20 6b 65 79 73 2c 20 69  |f"...-." keys, i|
00001390  2e 65 2e 20 27 58 27 20  61 6e 64 20 27 2f 27 20  |.e. 'X' and '/' |
000013a0  74 6f 20 67 6f 20 64 6f  77 6e 20 61 6e 64 22 0d  |to go down and".|
000013b0  05 0a 26 f1 22 20 74 6f  20 74 68 65 20 72 69 67  |..&." to the rig|
000013c0  68 74 20 61 74 20 74 68  65 20 73 61 6d 65 20 74  |ht at the same t|
000013d0  69 6d 65 2e 22 0d 05 14  2b f1 27 22 20 20 20 4f  |ime."...+.'"   O|
000013e0  74 68 65 72 20 63 6f 6e  74 72 6f 6c 73 20 61 72  |ther controls ar|
000013f0  65 20 74 68 65 20 53 48  49 46 54 20 6b 65 79 22  |e the SHIFT key"|
00001400  0d 05 1e 1a f1 22 20 61  6e 64 20 74 68 65 20 53  |....." and the S|
00001410  50 41 43 45 20 42 41 52  2e 22 0d 05 28 2c f1 27  |PACE BAR."..(,.'|
00001420  22 20 20 20 54 68 65 20  53 48 49 46 54 20 6b 65  |"   The SHIFT ke|
00001430  79 20 6f 70 65 72 61 74  65 73 20 72 65 66 75 65  |y operates refue|
00001440  6c 6c 69 6e 67 22 0d 05  32 2c f1 22 20 66 72 6f  |lling"..2,." fro|
00001450  6d 20 74 68 65 20 74 6f  70 20 6f 66 20 74 68 65  |m the top of the|
00001460  20 6c 69 67 68 74 68 6f  75 73 65 20 6f 6e 6c 79  | lighthouse only|
00001470  2e 22 0d 05 3c 29 f1 22  20 49 74 20 69 73 20 70  |."..<)." It is p|
00001480  6f 73 73 69 62 6c 65 20  74 6f 20 72 65 74 75 72  |ossible to retur|
00001490  6e 20 74 68 65 72 65 20  74 6f 22 0d 05 46 1e f1  |n there to"..F..|
000014a0  22 20 72 65 66 75 65 6c  20 64 75 72 69 6e 67 20  |" refuel during |
000014b0  73 6f 72 74 69 65 73 2e  22 0d 05 50 0a f2 4b 45  |sorties."..P..KE|
000014c0  59 3a e1 0d 05 5a 0b dd  f2 50 41 47 45 32 0d 05  |Y:...Z...PAGE2..|
000014d0  64 2b f1 27 22 20 20 20  54 68 65 20 53 50 41 43  |d+.'"   The SPAC|
000014e0  45 20 42 41 52 20 6f 70  65 72 61 74 65 73 20 74  |E BAR operates t|
000014f0  68 65 20 72 6f 70 65 2c  22 0d 05 6e 2a f1 22 20  |he rope,"..n*." |
00001500  64 72 6f 70 70 69 6e 67  20 74 68 65 20 70 61 73  |dropping the pas|
00001510  73 65 6e 67 65 72 20 77  68 65 6e 20 6f 6e 65 20  |senger when one |
00001520  69 73 22 0d 05 78 2d f1  22 20 63 61 72 72 69 65  |is"..x-." carrie|
00001530  64 20 6f 72 20 6c 6f 77  65 72 69 6e 67 20 74 68  |d or lowering th|
00001540  65 20 72 6f 70 65 20 77  68 65 6e 20 6f 6e 65 22  |e rope when one"|
00001550  0d 05 82 0f f1 22 20 69  73 20 6e 6f 74 2e 22 0d  |....." is not.".|
00001560  05 8c 27 f1 27 22 20 20  20 54 68 65 20 69 64 65  |..'.'"   The ide|
00001570  61 20 69 73 20 74 6f 20  6d 61 6e 6f 65 75 76 72  |a is to manoeuvr|
00001580  65 20 74 68 65 22 0d 05  96 2d f1 22 20 68 65 6c  |e the"...-." hel|
00001590  69 63 6f 70 74 65 72 20  61 62 6f 76 65 20 74 68  |icopter above th|
000015a0  65 20 61 70 70 72 6f 61  63 68 69 6e 67 20 73 68  |e approaching sh|
000015b0  69 70 22 0d 05 a0 2a f1  22 20 61 6e 64 20 6c 6f  |ip"...*." and lo|
000015c0  77 65 72 20 74 68 65 20  72 6f 70 65 20 6f 6e 74  |wer the rope ont|
000015d0  6f 20 6f 6e 65 20 6f 66  20 74 68 65 22 0d 05 aa  |o one of the"...|
000015e0  2b f1 22 20 6d 65 6e 20  6f 6e 20 64 65 63 6b 2c  |+." men on deck,|
000015f0  20 77 68 6f 20 77 69 6c  6c 20 74 68 65 6e 20 63  | who will then c|
00001600  6c 69 6d 62 20 75 70 22  0d 05 b4 2d f1 22 20 69  |limb up"...-." i|
00001610  6e 74 6f 20 74 68 65 20  68 65 6c 69 63 6f 70 74  |nto the helicopt|
00001620  65 72 2e 20 54 6f 20 62  72 69 6e 67 20 74 68 65  |er. To bring the|
00001630  20 6d 61 6e 22 0d 05 be  2d f1 22 20 74 6f 20 73  | man"...-." to s|
00001640  61 66 65 74 79 20 79 6f  75 20 6d 75 73 74 20 61  |afety you must a|
00001650  67 61 69 6e 20 6d 61 6e  6f 65 75 76 72 65 20 73  |gain manoeuvre s|
00001660  6f 22 0d 05 c8 2c f1 22  20 74 68 61 74 20 79 6f  |o"...,." that yo|
00001670  75 20 61 72 65 20 73 69  74 75 61 74 65 64 20 61  |u are situated a|
00001680  62 6f 76 65 20 74 68 65  20 72 6f 63 6b 22 0d 05  |bove the rock"..|
00001690  d2 2d f1 22 20 70 6c 61  74 66 6f 72 6d 20 6e 65  |.-." platform ne|
000016a0  78 74 20 74 6f 20 74 68  65 20 6c 69 67 68 74 68  |xt to the lighth|
000016b0  6f 75 73 65 2e 20 54 68  65 6e 22 0d 05 dc 2c f1  |ouse. Then"...,.|
000016c0  22 20 73 69 6d 70 6c 79  20 64 65 70 72 65 73 73  |" simply depress|
000016d0  20 74 68 65 20 53 50 41  43 45 20 42 41 52 20 74  | the SPACE BAR t|
000016e0  6f 20 64 72 6f 70 22 0d  05 e6 2c f1 22 20 74 68  |o drop"...,." th|
000016f0  65 20 70 61 73 73 65 6e  67 65 72 20 77 68 6f 20  |e passenger who |
00001700  77 69 6c 6c 20 74 68 65  6e 20 72 75 6e 20 69 6e  |will then run in|
00001710  74 6f 22 0d 05 f0 17 f1  22 20 74 68 65 20 6c 69  |to"....." the li|
00001720  67 68 74 68 6f 75 73 65  2e 22 0d 05 fa 2b f1 27  |ghthouse."...+.'|
00001730  22 20 20 20 49 66 20 79  6f 75 20 62 65 67 69 6e  |"   If you begin|
00001740  20 74 6f 20 72 75 6e 20  6c 6f 77 20 6f 6e 20 66  | to run low on f|
00001750  75 65 6c 2c 22 0d 06 04  2c f1 22 20 6d 6f 76 65  |uel,"...,." move|
00001760  20 74 68 65 20 68 65 6c  69 63 6f 70 74 65 72 20  | the helicopter |
00001770  74 6f 20 62 65 20 73 74  61 74 69 6f 6e 61 72 79  |to be stationary|
00001780  22 0d 06 0e 2c f1 22 20  61 62 6f 76 65 20 74 68  |"...,." above th|
00001790  65 20 68 65 6c 69 63 6f  70 74 65 72 20 70 6c 61  |e helicopter pla|
000017a0  74 66 6f 72 6d 20 28 53  74 61 72 74 22 0d 06 18  |tform (Start"...|
000017b0  2b f1 22 20 50 6f 73 69  74 69 6f 6e 29 20 61 6e  |+." Position) an|
000017c0  64 20 64 65 70 72 65 73  73 20 74 68 65 20 53 48  |d depress the SH|
000017d0  49 46 54 20 6b 65 79 22  0d 06 22 2d f1 22 20 75  |IFT key".."-." u|
000017e0  6e 74 69 6c 20 79 6f 75  20 74 68 69 6e 6b 20 79  |ntil you think y|
000017f0  6f 75 20 68 61 76 65 20  65 6e 6f 75 67 68 20 66  |ou have enough f|
00001800  75 65 6c 2e 22 0d 06 2c  0a f2 4b 45 59 3a e1 0d  |uel."..,..KEY:..|
00001810  06 36 12 dd f2 50 41 47  45 33 3a f2 54 49 54 4c  |.6...PAGE3:.TITL|
00001820  45 0d 06 40 1b f1 27 22  20 20 20 50 4f 49 4e 54  |E..@..'"   POINT|
00001830  53 20 54 4f 20 4e 4f 54  45 3a 2d 22 0d 06 4a 2b  |S TO NOTE:-"..J+|
00001840  f1 27 27 22 20 20 20 54  68 65 20 72 61 74 65 20  |.''"   The rate |
00001850  6f 66 20 66 75 65 6c 20  63 6f 6e 73 75 6d 70 74  |of fuel consumpt|
00001860  69 6f 6e 20 69 73 22 0d  06 54 2e f1 22 20 72 65  |ion is"..T.." re|
00001870  6c 61 74 65 64 20 74 6f  20 74 68 65 20 61 6d 6f  |lated to the amo|
00001880  75 6e 74 20 6f 66 20 66  75 65 6c 20 63 61 72 72  |unt of fuel carr|
00001890  69 65 64 2c 22 0d 06 5e  2a f1 22 20 63 61 72 72  |ied,"..^*." carr|
000018a0  79 69 6e 67 20 61 20 70  61 73 73 65 6e 67 65 72  |ying a passenger|
000018b0  2c 20 6c 6f 77 65 72 69  6e 67 20 74 68 65 22 0d  |, lowering the".|
000018c0  06 68 1c f1 22 20 72 6f  70 65 20 61 6e 64 20 79  |.h.." rope and y|
000018d0  6f 75 72 20 73 70 65 65  64 2e 22 0d 06 72 2b f1  |our speed."..r+.|
000018e0  27 22 20 20 20 54 68 65  20 6b 65 79 73 20 61 63  |'"   The keys ac|
000018f0  63 65 6c 65 72 61 74 65  20 79 6f 75 2e 20 54 68  |celerate you. Th|
00001900  75 73 20 74 6f 22 0d 06  7c 2c f1 22 20 63 68 61  |us to"..|,." cha|
00001910  6e 67 65 20 64 69 72 65  63 74 69 6f 6e 20 79 6f  |nge direction yo|
00001920  75 20 77 69 6c 6c 20 73  6c 6f 77 20 64 6f 77 6e  |u will slow down|
00001930  2c 22 0d 06 86 28 f1 22  20 74 75 72 6e 20 61 72  |,"...(." turn ar|
00001940  6f 75 6e 64 20 61 6e 64  20 74 68 65 6e 20 61 63  |ound and then ac|
00001950  63 65 6c 65 72 61 74 65  2e 22 0d 06 90 2a f1 27  |celerate."...*.'|
00001960  22 20 20 20 50 61 73 73  65 6e 67 65 72 73 20 62  |"   Passengers b|
00001970  65 69 6e 67 20 66 61 69  72 6c 79 20 66 72 61 67  |eing fairly frag|
00001980  69 6c 65 22 0d 06 9a 2d  f1 22 20 63 61 6e 6e 6f  |ile"...-." canno|
00001990  74 20 62 65 20 64 72 6f  70 70 65 64 20 61 62 6f  |t be dropped abo|
000019a0  76 65 20 74 68 65 20 68  65 69 67 68 74 20 6f 66  |ve the height of|
000019b0  22 0d 06 a4 25 f1 22 20  74 68 65 20 6c 6f 77 65  |"...%." the lowe|
000019c0  73 74 20 6c 69 67 68 74  68 6f 75 73 65 20 77 69  |st lighthouse wi|
000019d0  6e 64 6f 77 2e 22 0d 06  ae 2f f1 27 22 20 20 20  |ndow.".../.'"   |
000019e0  57 68 65 6e 20 79 6f 75  20 72 75 6e 20 6f 75 74  |When you run out|
000019f0  20 6f 66 20 66 75 65 6c  2c 20 69 66 20 79 6f 75  | of fuel, if you|
00001a00  20 61 72 65 22 0d 06 b8  2b f1 22 20 70 6f 73 69  | are"...+." posi|
00001a10  74 69 6f 6e 65 64 20 61  62 6f 76 65 20 74 68 65  |tioned above the|
00001a20  20 68 65 6c 69 63 6f 70  74 65 72 2c 20 6f 72 22  | helicopter, or"|
00001a30  0d 06 c2 2b f1 22 20 72  6f 63 6b 20 70 6c 61 74  |...+." rock plat|
00001a40  66 6f 72 6d 20 79 6f 75  20 77 69 6c 6c 20 6c 61  |form you will la|
00001a50  6e 64 20 73 61 66 65 6c  79 2e 22 0d 06 cc 08 f2  |nd safely.".....|
00001a60  4b 45 59 0d 06 d6 12 42  50 3d 32 35 3a f2 44 49  |KEY....BP=25:.DI|
00001a70  53 50 4c 41 59 0d 06 e0  45 46 49 24 3d bd 32 33  |SPLAY...EFI$=.23|
00001a80  33 2b bd 32 32 38 2b bd  32 33 33 2b 52 4f 24 3a  |3+.228+.233+RO$:|
00001a90  46 44 3d 38 3a 46 41 3d  30 3a 46 51 24 3d 22 48  |FD=8:FA=0:FQ$="H|
00001aa0  65 6c 69 63 6f 70 74 65  72 20 50 61 64 22 3a 46  |elicopter Pad":F|
00001ab0  4c 3d 32 34 3a f2 54 45  53 54 0d 06 ea 3d 46 49  |L=24:.TEST...=FI|
00001ac0  24 3d c4 37 2c 22 20 22  2b 4c 24 2b 44 24 29 3a  |$=.7," "+L$+D$):|
00001ad0  46 44 3d 31 33 3a 46 41  3d 31 3a 46 51 24 3d 22  |FD=13:FA=1:FQ$="|
00001ae0  46 75 65 6c 20 47 61 75  67 65 22 3a 46 4c 3d 32  |Fuel Gauge":FL=2|
00001af0  35 3a f2 54 45 53 54 0d  06 f4 48 46 49 24 3d 22  |5:.TEST...HFI$="|
00001b00  6f 22 3a 46 44 3d 31 38  3a 46 41 3d 32 3a 46 51  |o":FD=18:FA=2:FQ|
00001b10  24 3d 22 4d 69 6e 69 6d  75 6d 20 48 65 69 67 68  |$="Minimum Heigh|
00001b20  74 20 46 6f 72 20 44 72  6f 70 70 69 6e 67 20 4d  |t For Dropping M|
00001b30  61 6e 22 3a 46 4c 3d 32  34 3a f2 54 45 53 54 0d  |an":FL=24:.TEST.|
00001b40  06 fe 2d 46 49 24 3d 22  3b 22 3a 46 44 3d 32 30  |..-FI$=";":FD=20|
00001b50  3a 46 41 3d 32 36 3a 46  51 24 3d 22 4d 65 6e 22  |:FA=26:FQ$="Men"|
00001b60  3a 46 4c 3d 32 35 3a f2  54 45 53 54 0d 07 08 27  |:FL=25:.TEST...'|
00001b70  f1 44 24 28 35 29 41 24  28 38 29 22 50 72 65 73  |.D$(5)A$(8)"Pres|
00001b80  73 20 41 6e 79 20 4b 65  79 20 54 6f 20 53 74 61  |s Any Key To Sta|
00001b90  72 74 22 0d 07 12 0b 51  57 24 3d be 3a e1 0d 07  |rt"....QW$=.:...|
00001ba0  1c 0a dd f2 54 45 53 54  0d 07 26 1c f1 44 24 28  |....TEST..&..D$(|
00001bb0  35 29 41 24 28 31 39 2d  a9 28 46 51 24 29 2f 32  |5)A$(19-.(FQ$)/2|
00001bc0  29 46 51 24 0d 07 30 38  e3 58 3d 31 b8 46 4c 3a  |)FQ$..08.X=1.FL:|
00001bd0  f1 44 24 28 46 44 29 41  24 28 46 41 29 46 24 28  |.D$(FD)A$(FA)F$(|
00001be0  46 52 29 46 49 24 3a 46  52 3d 31 2d 46 52 3a f2  |FR)FI$:FR=1-FR:.|
00001bf0  44 45 4c 41 59 28 31 30  30 29 3a ed 0d 07 3a 27  |DELAY(100):...:'|
00001c00  f1 44 24 28 35 29 41 24  28 31 39 2d a9 28 46 51  |.D$(5)A$(19-.(FQ|
00001c10  24 29 2f 32 29 c0 46 42  24 2c a9 28 46 51 24 29  |$)/2).FB$,.(FQ$)|
00001c20  29 3a e1 0d 07 44 09 dd  f2 55 44 47 0d 07 4e 1d  |):...D...UDG..N.|
00001c30  ef 32 33 2c 32 32 34 2c  32 35 35 2c 30 2c 30 2c  |.23,224,255,0,0,|
00001c40  30 2c 30 2c 30 2c 30 2c  30 0d 07 58 1d ef 32 33  |0,0,0,0,0..X..23|
00001c50  2c 32 32 35 2c 30 2c 32  35 35 2c 30 2c 30 2c 30  |,225,0,255,0,0,0|
00001c60  2c 30 2c 30 2c 30 0d 07  62 1d ef 32 33 2c 32 32  |,0,0,0..b..23,22|
00001c70  36 2c 30 2c 30 2c 32 35  35 2c 30 2c 30 2c 30 2c  |6,0,0,255,0,0,0,|
00001c80  30 2c 30 0d 07 6c 1d ef  32 33 2c 32 32 37 2c 30  |0,0..l..23,227,0|
00001c90  2c 30 2c 30 2c 32 35 35  2c 30 2c 30 2c 30 2c 30  |,0,0,255,0,0,0,0|
00001ca0  0d 07 76 1d ef 32 33 2c  32 32 38 2c 30 2c 30 2c  |..v..23,228,0,0,|
00001cb0  30 2c 30 2c 32 35 35 2c  30 2c 30 2c 30 0d 07 80  |0,0,255,0,0,0...|
00001cc0  1d ef 32 33 2c 32 32 39  2c 30 2c 30 2c 30 2c 30  |..23,229,0,0,0,0|
00001cd0  2c 30 2c 32 35 35 2c 30  2c 30 0d 07 8a 1d ef 32  |,0,255,0,0.....2|
00001ce0  33 2c 32 33 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,230,0,0,0,0,0,|
00001cf0  30 2c 32 35 35 2c 30 0d  07 94 1d ef 32 33 2c 32  |0,255,0.....23,2|
00001d00  33 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |31,0,0,0,0,0,0,0|
00001d10  2c 32 35 35 0d 07 9e 25  ef 32 33 2c 32 33 32 2c  |,255...%.23,232,|
00001d20  31 32 39 2c 36 36 2c 33  36 2c 32 34 2c 32 34 2c  |129,66,36,24,24,|
00001d30  33 36 2c 36 36 2c 31 32  39 0d 07 a8 20 ef 32 33  |36,66,129... .23|
00001d40  2c 32 33 33 2c 30 2c 30  2c 30 2c 30 2c 32 35 35  |,233,0,0,0,0,255|
00001d50  2c 32 34 2c 32 34 2c 32  34 0d 07 b2 1d ef 32 33  |,24,24,24.....23|
00001d60  2c 32 33 34 2c 30 2c 30  2c 30 2c 30 2c 32 34 30  |,234,0,0,0,0,240|
00001d70  2c 38 2c 34 2c 34 0d 07  bc 1f ef 32 33 2c 32 33  |,8,4,4.....23,23|
00001d80  35 2c 30 2c 30 2c 30 2c  30 2c 31 35 2c 31 36 2c  |5,0,0,0,0,15,16,|
00001d90  33 32 2c 33 32 0d 07 c6  1f ef 32 33 2c 32 33 36  |32,32.....23,236|
00001da0  2c 33 32 2c 33 32 2c 31  36 2c 31 35 2c 30 2c 30  |,32,32,16,15,0,0|
00001db0  2c 30 2c 30 0d 07 d0 1d  ef 32 33 2c 32 33 37 2c  |,0,0.....23,237,|
00001dc0  34 2c 34 2c 38 2c 32 34  30 2c 30 2c 30 2c 30 2c  |4,4,8,240,0,0,0,|
00001dd0  30 0d 07 da 23 ef 32 33  2c 32 33 38 2c 33 32 2c  |0...#.23,238,32,|
00001de0  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |32,32,32,32,32,3|
00001df0  32 2c 33 32 0d 07 e4 1b  ef 32 33 2c 32 33 39 2c  |2,32.....23,239,|
00001e00  34 2c 34 2c 34 2c 34 2c  34 2c 34 2c 34 2c 34 0d  |4,4,4,4,4,4,4,4.|
00001e10  07 ee 24 ef 32 33 2c 32  34 30 2c 32 34 2c 36 30  |..$.23,240,24,60|
00001e20  2c 39 30 2c 31 35 33 2c  32 34 2c 32 34 2c 32 34  |,90,153,24,24,24|
00001e30  2c 32 34 0d 07 f8 20 ef  32 33 2c 32 34 31 2c 31  |,24... .23,241,1|
00001e40  32 38 2c 36 34 2c 33 32  2c 31 36 2c 38 2c 34 2c  |28,64,32,16,8,4,|
00001e50  32 2c 31 0d 08 02 20 ef  32 33 2c 32 34 32 2c 31  |2,1... .23,242,1|
00001e60  2c 32 2c 34 2c 38 2c 31  36 2c 33 32 2c 36 34 2c  |,2,4,8,16,32,64,|
00001e70  31 32 38 0d 08 0c 21 ef  32 33 2c 32 34 33 2c 32  |128...!.23,243,2|
00001e80  34 2c 32 34 2c 32 34 2c  32 34 2c 32 35 35 2c 30  |4,24,24,24,255,0|
00001e90  2c 30 2c 30 0d 08 16 20  ef 32 33 2c 32 34 34 2c  |,0,0... .23,244,|
00001ea0  32 34 2c 32 34 2c 32 34  2c 32 35 35 2c 30 2c 30  |24,24,24,255,0,0|
00001eb0  2c 30 2c 30 0d 08 20 21  ef 32 33 2c 32 34 35 2c  |,0,0.. !.23,245,|
00001ec0  30 2c 30 2c 30 2c 32 35  35 2c 32 34 2c 32 34 2c  |0,0,0,255,24,24,|
00001ed0  32 34 2c 32 34 0d 08 2a  22 ef 32 33 2c 32 34 36  |24,24..*".23,246|
00001ee0  2c 32 35 35 2c 31 32 37  2c 36 33 2c 33 31 2c 31  |,255,127,63,31,1|
00001ef0  35 2c 37 2c 33 2c 31 0d  08 34 2b ef 32 33 2c 32  |5,7,3,1..4+.23,2|
00001f00  34 37 2c 32 35 35 2c 32  35 34 2c 32 35 32 2c 32  |47,255,254,252,2|
00001f10  34 38 2c 32 34 30 2c 32  32 34 2c 31 39 32 2c 31  |48,240,224,192,1|
00001f20  32 38 0d 08 3e 2b ef 32  33 2c 32 34 38 2c 32 35  |28..>+.23,248,25|
00001f30  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00001f40  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 08 48  |5,255,255,255..H|
00001f50  27 ef 32 33 2c 32 34 39  2c 31 37 30 2c 38 35 2c  |'.23,249,170,85,|
00001f60  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
00001f70  30 2c 38 35 0d 08 52 2b  ef 32 33 2c 32 35 30 2c  |0,85..R+.23,250,|
00001f80  31 39 32 2c 31 39 32 2c  31 39 32 2c 31 39 32 2c  |192,192,192,192,|
00001f90  31 39 32 2c 31 39 32 2c  31 39 32 2c 31 39 32 0d  |192,192,192,192.|
00001fa0  08 5c 1f ef 32 33 2c 32  35 31 2c 30 2c 30 2c 30  |.\..23,251,0,0,0|
00001fb0  2c 30 2c 30 2c 30 2c 32  35 35 2c 32 35 35 0d 08  |,0,0,0,255,255..|
00001fc0  66 24 ef 32 33 2c 32 35  32 2c 32 34 2c 32 34 2c  |f$.23,252,24,24,|
00001fd0  32 34 2c 32 34 2c 32 35  35 2c 32 34 2c 32 34 2c  |24,24,255,24,24,|
00001fe0  32 34 0d 08 70 2b ef 32  33 2c 32 35 33 2c 31 32  |24..p+.23,253,12|
00001ff0  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 2c 31 32  |8,128,128,128,12|
00002000  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 0d 08 7a  |8,128,128,128..z|
00002010  2a e2 32 2c 33 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |*.2,3,0,0,0,0,0,|
00002020  30 2c 31 32 31 2c 2d 31  30 2c 2d 35 2c 2d 32 2c  |0,121,-10,-5,-2,|
00002030  31 32 30 2c 31 32 30 0d  08 84 2b e2 31 2c 32 2c  |120,120...+.1,2,|
00002040  38 30 2c 35 30 2c 38 30  2c 32 30 2c 33 30 2c 32  |80,50,80,20,30,2|
00002050  30 2c 32 30 2c 30 2c 30  2c 2d 31 32 37 2c 37 35  |0,20,0,0,-127,75|
00002060  2c 30 0d 08 8e 27 e2 33  2c 34 2c 31 36 2c 31 32  |,0...'.3,4,16,12|
00002070  2c 38 2c 31 30 2c 38 2c  31 30 2c 31 30 2c 30 2c  |,8,10,8,10,10,0,|
00002080  30 2c 30 2c 31 32 30 2c  30 0d 08 98 2a 52 24 3d  |0,0,120,0...*R$=|
00002090  bd 31 37 2b bd 30 2b bd  31 37 2b bd 31 32 39 3a  |.17+.0+.17+.129:|
000020a0  52 4f 24 3d bd 31 37 2b  bd 31 2b bd 31 37 2b bd  |RO$=.17+.1+.17+.|
000020b0  31 32 38 0d 08 a2 17 4c  24 3d bd 38 3a 55 24 3d  |128....L$=.8:U$=|
000020c0  bd 31 31 3a 44 24 3d bd  31 30 0d 08 ac 05 e1 0d  |.11:D$=.10......|
000020d0  08 b6 0a dd a4 47 28 58  29 0d 08 c0 0d 49 3d 58  |.....G(X)....I=X|
000020e0  2d 33 32 37 36 38 0d 08  ca 13 ef 33 31 2c 49 20  |-32768.....31,I |
000020f0  83 34 30 2c 49 20 81 34  30 0d 08 d4 25 41 25 3d  |.40,I .40...%A%=|
00002100  31 33 35 3a 43 3d ba 28  26 46 46 46 34 29 20 80  |135:C=.(&FFF4) .|
00002110  26 46 46 46 46 3a 43 3d  43 20 81 32 35 36 0d 08  |&FFFF:C=C .256..|
00002120  de 06 3d 43 0d 08 e8 1b  dd a4 41 28 58 29 3d 33  |..=C......A(X)=3|
00002130  32 37 36 38 2b a8 28 58  29 2a 34 30 2b 48 50 0d  |2768+.(X)*40+HP.|
00002140  08 f2 16 dd a4 42 28 58  29 3d a4 47 28 a4 41 28  |.....B(X)=.G(.A(|
00002150  58 29 2b 31 29 0d 08 fc  1e dd a4 43 28 58 29 3d  |X)+1)......C(X)=|
00002160  a4 47 28 a4 41 28 58 2b  31 29 2b 32 2a 28 31 2d  |.G(.A(X+1)+2*(1-|
00002170  44 29 29 0d 09 06 1a dd  a4 44 28 58 29 3d a4 47  |D))......D(X)=.G|
00002180  28 a4 41 28 58 2b 31 29  2b 32 2a 44 29 0d 09 10  |(.A(X+1)+2*D)...|
00002190  24 dd a4 45 28 58 29 3d  28 58 2b 28 58 3c 30 29  |$..E(X)=(X+(X<0)|
000021a0  2a 58 2b 28 58 3e 33 37  29 2a 28 58 2d 33 37 29  |*X+(X>37)*(X-37)|
000021b0  29 0d 09 1a 09 dd f2 6c  6f 63 0d 09 24 52 2a 4b  |)......loc..$R*K|
000021c0  45 59 20 30 20 2a 54 41  50 45 7c 4d 46 4f 52 49  |EY 0 *TAPE|MFORI|
000021d0  25 3d 30 20 54 4f 20 54  4f 50 20 53 54 45 50 34  |%=0 TO TOP STEP4|
000021e0  3a 49 25 21 26 45 30 30  3d 49 25 21 26 31 44 30  |:I%!&E00=I%!&1D0|
000021f0  30 3a 4e 45 58 54 3a 50  41 47 45 3d 26 45 30 30  |0:NEXT:PAGE=&E00|
00002200  7c 4d 4f 4c 44 7c 4d 52  55 4e 7c 4d 0d 09 2e 10  ||MOLD|MRUN|M....|
00002210  2a 46 58 31 33 38 2c 30  2c 31 32 38 0d 09 38 05  |*FX138,0,128..8.|
00002220  e0 0d ff                                          |...|
00002223

G/SEARCHA.m0

G/SEARCHA.m1

G/SEARCHA.m2

G/SEARCHA.m4

G/SEARCHA.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .