Home » Recent acquisitions » Acorn DFS disks » dfs_box10_disk01a_play_it_again_sam_11.scp » MISSION

MISSION

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 » Recent acquisitions » Acorn DFS disks » dfs_box10_disk01a_play_it_again_sam_11.scp
Filename: MISSION
Read OK:
File size: 1828 bytes
Load address: FF1900
Exec address: FF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM"   � PIPELINE
   20REM"�MISSION GENERATOR.
   30REM"�By�Ian Holmes !
   40REM"�Game by�IAN HOLMES
   50REM"�and�WILLIAM REEVE
   60REM"����Hello,��all my friends!  �          ����Hello,��all my friends!  ���H)U
�ph)�JpHJhj���`
   70:
   80*FX229 1
   90ONERRORPROCerr:IFERR<>17GOTO130
  100REM Sorry about the GOTO
  110CLEAR
  120MODE7:PROCinit
  130ONERRORPROCerr
  140*FX229
  150REPEAT
  160CLS
  170PRINT"Key:";
  180RESTORE420
  190FORN%=1TOopts
  200READA$
  210PRINTTAB(7);N%" to "A$TAB(28)CHR$(132)CHR$(157);:NEXT
  220PRINTTAB(3)"ESCAPE to leave this program"
  230VDU26:K%=0:REPEAT
  240REPEAT:A%=GET:*FX15
  250I%=0:IFA%=105ORA%=104PROClock
  260IFA%>13ANDA%<138 A%=A%OR16
  270UNTILA%>=49ANDA%<=(opts+48)ORA%=13ORA%=138ORA%=139
  280IFA%<>13PROCline
  290UNTILA%=13ANDK%>0:PROCw
  300PRINTTAB(0,opts+2);
  310IFK%=1PROCmiss
  320IFK%=2PROCattrs
  330IFK%=3PROCloadgrf(FNname)
  340IFK%=4PROCsavegrf
  350IFK%=5PROCloadlev
  360IFK%=6PROCsavelev
  370IFK%=7PROCloadmss
  380IFK%=8PROCsavemss
  390IFK%=9PROCviewcat
  400UNTIL0
  410:
  420DATAchange name,change features,load graphics,save graphics,load a level,save a level,load a mission,save a mission,see a catalogue
  430:
  440DEFPROCinit
  450Y%=0:A%=0
  460X%=USR(&FFDA)AND&FF
  470T%=(X%=1ORX%=2)
  480*FX4 1
  490numlev=4
  500size=&91F
  510grfs=&E00
  520attrs=5
  530miss=30
  540names=&134
  550data=size-&800
  560puznms=320
  570opts=9+T%
  580DIM F% (2*names+miss+attrs+numlev*size+grfs)
  590DIM osc 40,B% size+puznms
  600L%=F%+names+miss+attrs
  610G%=L%+numlev*size
  620addr=&5800-numlev*size-grfs-attrs-miss-names
  630PROCtitle
  640PRINT''TAB(1-7*T%)CHR$(134)CHR$(157)CHR$(132);
  650IFT%PRINT"Please wait";ELSEPRINT"Loading Standard Graphics";
  660PRINT":  "CHR$(157)
  670FORN%=0TOnames+miss+4STEP4
  680N%!F%=0:NEXT
  690FORN%=numlev*4TOnumlev*data-4STEP4
  700L%!N%=-1:NEXT
  710L%!(numlev*data-4)=-1
  720FORN%=(numlev*data)TO(numlev*size)STEP4
  730L%!N%=0:NEXT
  740X%=L%+(numlev*3)
  750FORN%=0TOnumlev-1
  760X%!(N%*4)=1319473
  770NEXT:F%?(names+miss)=15
  780F%!(names+miss+1)=393730
  790IFNOTT%THENPROCloadgrf("Default")
  800ENDPROC
  810DEFPROCcursor(N%)
  820VDU23,1,N%;0;0;0;
  830ENDPROC
  840DEFPROCtitle
  850PROCcursor(0)
  860VDU26,12:FORN%=1TO2
  870PRINTTAB(3,N%)CHR$(141)CHR$(129)CHR$(157)CHR$(131)"PIPELINE Mission Generator  "CHR$(156)
  880NEXT:FORN%=4TO24
  890PRINTTAB(0,N%)CHR$(132)CHR$(157)CHR$(131)TAB(38,N%)CHR$(156);:NEXT
  900PROCw:C%=0:ENDPROC
  910DEFPROCw:VDU28,3,23,36,5:ENDPROC
  920DEFPROCline:A%=A%-48
  930IFA%>89ANDK%=0ENDPROC
  940IFA%=90A%=K%+1:IFA%>opts A%=1
  950IFA%=91A%=K%-1:IFA%=0A%=opts
  960*FX19
  970IFK%>0ANDK%<>A%VDU31,7,K%+4,32,32,32
  980K%=A%:VDU31,7,K%+4,130,157,132
  990ENDPROC
 1000:
 1010DEFPROCosc($osc)
 1020X%=osc MOD256:Y%=osc DIV256
 1030CALL&FFF7:ENDPROC
 1040DEFFNinput(A$,N%,min,max)
 1050PRINTA$CHR$(134)CHR$(157)CHR$(132)SPC(N%+2)CHR$(157)STRING$(N%+3,CHR$(8));:PROCcursor(1)
 1060A$="":REPEAT
 1070REPEAT:A%=GET
 1080IFA%>min ANDA%<max ANDLEN(A$)=N% VDU7
 1090UNTIL(A%=127ANDLEN(A$)>0)ORA%=13OR(A%>min ANDA%<max ANDLEN(A$)<N%)
 1100VDUA%:IFA%=13PRINT
 1110IFA%>min ANDA%<max A$=A$+CHR$(A%)
 1120IFA%=127 A$=LEFT$(A$,LEN(A$)-1)
 1130UNTILA%=13:PROCcursor(0):=A$
 1140DEFFNname=FNinput("Enter filename: ",12+2*T%,32,127)
 1150DEFFNlevel=(VAL(FNinput("Which level number ? ",1,48,49+numlev))-1)AND3
 1160DEFFNn
 1170E%=EVAL("&0"+FNinput("Enter editing code: ",6,47,58)):CALLPAGE+198:=E%
 1180DEFFNattr(N%)
 1190RESTORE2110:FORA%=0TON%
 1200READA$:NEXT:A%=F%?(names+miss+N%)
 1210IFN%=0A%=A%-6ELSEIFN%=2A%=A%+1
 1220=A$+": "+STR$(A%)+STRING$(8," ")
 1230DEFPROCbit(A%)
 1240VDU34:FORN%=3TO14
 1250X%=F%?(names+A%+N%)
 1260IFX%>31ANDX%<127ORX%=9VDUX%
 1270NEXT:VDU34:ENDPROC
 1280DEFPROCstore(A%):FORN%=0TO11
 1290X%=ASC(MID$(A$+STRING$(12," "),N%+1,1))
 1300IFX%=32X%=9
 1310F%?(names+A%+N%+3)=X%
 1320NEXT:ENDPROC
 1330DEFPROCname(A$)
 1340FORA%=1TO8
 1350B%?(N%*8+A%-9)=ASC(MID$(A$,A%,1))
 1360NEXT:FORA%=9TO10
 1370B%?(N%*2+A%+245)=ASC(MID$(A$,A%,1))
 1380NEXT:ENDPROC
 1390DEFPROClock:I%=A%*2-209
 1400A%=opts+47:PROCline
 1410A%=13:ENDPROC
 1420:
 1430REM"�Hello,�Soni
 1440:
 1450DEFPROCloadgrf(A$)
 1460PROCosc("LOAD "+CHR$(34)+A$+CHR$(34)+" "+STR$~G%)
 1470X%=G%+grfs
 1480FORA%=0TOnames-4STEP4
 1490A%!F%=A%!X%:NEXT
 1500ENDPROC
 1510:
 1520DEFPROCsavegrf
 1530X%=G%+grfs
 1540FORA%=0TOnames-4STEP4
 1550A%!X%=A%!F%:NEXT
 1560PROCosc("SAVE "+CHR$(34)+FNname+CHR$(34)+" "+STR$~G%+"+"+STR$~(grfs+names)+" 0 4000")
 1570ENDPROC
 1580:
 1590DEFPROCloadlev
 1600S%=FNlevel:PRINT
 1610PROCosc("LOAD "+CHR$(34)+FNname+CHR$(34)+" "+STR$~B%)
 1620PRINT'"Please wait..."
 1630X%=L%+S%*&800+numlev*data
 1640Y%=B%+puznms+data
 1650FORZ%=0TO&7FC STEP4
 1660Z%!X%=Z%!Y%
 1670NEXT:pnt=0:RESTORE2090
 1680FORN%=1TO11:READext
 1690X%=L%+numlev*pnt+S%*ext
 1700Y%=B%+puznms+pnt
 1710FORD%=0TOext-1
 1720D%?X%=D%?Y%
 1730NEXT:pnt=pnt+ext:NEXT
 1740ENDPROC
 1750:
 1760DEFPROCsavelev
 1770S%=FNlevel
 1780IFL%?-1PRINT:IFFNn<>L%?S%*65536+L%?(S%+4)*256+L%?(S%+8)ENDPROC
 1790PRINT'"Please wait..."'
 1800X%=B%+puznms+data
 1810Y%=L%+S%*&800+numlev*data
 1820FORZ%=0TO&7FC STEP4
 1830Z%!X%=Z%!Y%
 1840NEXT:pnt=0:RESTORE2090
 1850FORN%=1TO11:READext
 1860X%=B%+puznms+pnt
 1870Y%=L%+numlev*pnt+S%*ext
 1880FORD%=0TOext-1
 1890D%?X%=D%?Y%
 1900NEXT:pnt=pnt+ext:NEXT
 1910FORN%=1TO32
 1920PROCname("Puzzle "+STR$N%+"  ")
 1930NEXT:PROCosc("SAVE "+CHR$(34)+FNname+CHR$(34)+" "+STR$~B%+"+"+STR$~(size+puznms)+" 8380 "+STR$~(&3000-size-puznms))
 1940ENDPROC
 1950:
 1960DEFPROCloadmss
 1970PROCosc("LOAD "+CHR$(34)+FNname+CHR$(34)+" "+STR$~F%)
 1980ENDPROC
 1990:
 2000DEFPROCsavemss
 2010N%=F%+names
 2020?N%=31:N%?1=18:N%?2=16
 2030N%=N%+miss/2
 2040?N%=31:N%?1=14:N%?2=17
 2050IFL%?-1>0ENDPROC ELSEL%?-1=I%
 2060PROCosc("SAVE "+CHR$(34)+FNname+CHR$(34)+" "+STR$~F%+"+"+STR$~(names+miss+attrs+numlev*size+grfs)+" 0 "+STR$~addr)
 2070ENDPROC
 2080:
 2090DATA1,1,1,4,8,32,16,32,64,64,64
 2100:
 2110DATA Time consumption,Mapping ability,Backpack size,Throwing distance
 2120DATA 2,47,58,1,47,53,1,49,53,2,47,58,1,48,52
 2130DEFPROCattrs
 2140PRINT"Select feature to change:"'
 2150V%=VPOS:PRINT"]";
 2160FORN%=0TO3
 2170PRINTTAB(3)FNattr(N%)
 2180NEXT
 2190PRINTTAB(3)"Return to main menu"
 2200N%=0:REPEAT:*FX15
 2210K%=GET:IFK%=138ORK%=139PROCarrow
 2220IFK%=13ANDN%<4PROCchangeattr
 2230UNTILK%=13ANDN%=4:ENDPROC
 2240DEFPROCarrow
 2250PRINTTAB(0,N%+V%)" "
 2260IFK%=138N%=(N%+1)MOD5
 2270IFK%=139N%=N%-1:IFN%<0N%=4
 2280PRINTTAB(0,N%+V%)"]"
 2290ENDPROC
 2300DEFPROCchangeattr
 2310REPEAT:RESTORE2110
 2320FORH%=0TON%
 2330READA$:NEXT
 2340RESTORE2120
 2350FORH%=0TON%
 2360READA%,X%,Y%:NEXT
 2370PRINTTAB(3,N%+V%);
 2380A%=VAL(FNinput(A$+": ",A%,X%,Y%))
 2390UNTIL(A%<17AND(A%>0ORN%=1))OR(A%<64ANDN%=3)
 2400IFN%=0A%=A%+6ELSEIFN%=2A%=A%-1
 2410F%?(names+miss+N%)=A%
 2420PRINTTAB(3,N%+V%)FNattr(N%)
 2430ENDPROC
 2440:
 2450DEFPROCmiss:PRINT
 2460PROCbit(0):VDU32
 2470PROCbit(miss/2):PRINT'
 2480A$=FNinput("First part:",miss/2-3,31,127):PRINT:IFA$<>""PROCstore(0)
 2490A$=FNinput("Second part:",miss/2-3,31,127):IFA$<>""PROCstore(miss/2)
 2500ENDPROC
 2510:
 2520DEFPROCviewcat
 2530A$=FNinput("Which drive ?",1,47,52)
 2540C%=1:VDU28,0,23,39,5
 2550CLS:VDU28,0,22,39,6,14
 2560PROCosc("CAT "+A$):VDU15
 2570PRINT'"Press"CHR$(135)CHR$(157)CHR$(129)"SPACE...  "CHR$(156);
 2580REPEATA%=GET
 2590UNTILA%=32
 2600PROCtitle
 2610ENDPROC
 2620:
 2630DEFPROCerr:VDU15
 2640IFC%=1PROCtitle
 2650IFERR=17 PROCquit:ENDPROC
 2660PROCreport
 2670ENDPROC
 2680DEFPROCquit
 2690PROCw:REPEAT:CLS
 2700A$=LEFT$(FNinput("Are you sure (Y/N) ? ",3,68,90),1)
 2710UNTILA$="Y"ORA$="N"
 2720IFA$="N" ENDPROC
 2730IFT%THENCALL!-4
 2740PRINT''"Insert PIPELINE disk and"'" press a key":IFGET
 2750*/MRUN
 2760END
 2770:
 2780REM"�This subroutine was written by             �William�Reeve�(mainly)
 2790:
 2800DEFPROCreport:C%=1
 2810VDU26:FORN%=1TO6
 2820Y%=20-(N% AND1)*N% DIV2+(N% AND1EOR1)*N% DIV2:*FX19
 2830PRINTTAB(2,Y%);CHR$135;CHR$157;CHR$132;SPC(30);CHR$132;CHR$157;
 2840NEXT:VDU28,5,23,33,18
 2850PRINT"Error ";ERR;" has occurred."
 2860REPORT
 2870PRINT''"Press a key - or"CHR$(136)"ESCAPE";
 2880N%=GET:PROCtitle
 2890ENDPROC

�"   � PIPELINE
�"�MISSION GENERATOR.
�"�By�Ian Holmes !
(�"�Game by�IAN HOLMES
2�"�and�WILLIAM REEVE
<k�"����Hello,��all my friends!  �          ����Hello,��all my friends!  ���H)U
�ph)�JpHJhj���`
F:
P*FX229 1
Z��err:�<>17�tB@
d� Sorry about the GOTO
n�
x�7:�init
�
��err
�
*FX229
��
��
��"Key:";
�	��tdA
��N%=1�opts
��A$
�&�7);N%" to "A$�28)�(132)�(157);:�
�&�3)"ESCAPE to leave this program"
��26:K%=0:�
��:A%=�:*FX15
�I%=0:�A%=105�A%=104�lock
�A%>13�A%<138 A%=A%�16
-�A%>=49�A%<=(opts+48)�A%=13�A%=138�A%=139
�A%<>13�line
"�A%=13�K%>0:�w
,�0,opts+2);
6�K%=1�miss
@�K%=2�attrs
J�K%=3�loadgrf(�name)
T�K%=4�savegrf
^�K%=5�loadlev
h�K%=6�savelev
r�K%=7�loadmss
|�K%=8�savemss
��K%=9�viewcat
��0
�:
���change name,change features,load graphics,save graphics,load a level,save a level,load a mission,save a mission,see a catalogue
�:
�
��init
�
Y%=0:A%=0
�X%=�(&FFDA)�&FF
�T%=(X%=1�X%=2)
�
*FX4 1
�numlev=4
�
size=&91F
�
grfs=&E00
attrs=5
miss=30
names=&134
&data=size-&800
0puznms=320
:
opts=9+T%
D.� F% (2*names+miss+attrs+numlev*size+grfs)
N� osc 40,B% size+puznms
XL%=F%+names+miss+attrs
bG%=L%+numlev*size
l0addr=&5800-numlev*size-grfs-attrs-miss-names
v
�title
�"�''�1-7*T%)�(134)�(157)�(132);
�4�T%�"Please wait";��"Loading Standard Graphics";
��":  "�(157)
��N%=0�names+miss+4�4
�
N%!F%=0:�
� �N%=numlev*4�numlev*data-4�4
�L%!N%=-1:�
�L%!(numlev*data-4)=-1
�%�N%=(numlev*data)�(numlev*size)�4
�
L%!N%=0:�
�X%=L%+(numlev*3)
��N%=0�numlev-1
�X%!(N%*4)=1319473
�:F%?(names+miss)=15
F%!(names+miss+1)=393730
�T%��loadgrf("Default")
 �
*��cursor(N%)
4�23,1,N%;0;0;0;
>�
H��title
R�cursor(0)
\�26,12:�N%=1�2
fG�3,N%)�(141)�(129)�(157)�(131)"PIPELINE Mission Generator  "�(156)
p�:�N%=4�24
z-�0,N%)�(132)�(157)�(131)�38,N%)�(156);:�
�
�w:C%=0:�
���w:�28,3,23,36,5:�
���line:A%=A%-48
��A%>89�K%=0�
��A%=90A%=K%+1:�A%>opts A%=1
��A%=91A%=K%-1:�A%=0A%=opts
�	*FX19
�#�K%>0�K%<>A%�31,7,K%+4,32,32,32
� K%=A%:�31,7,K%+4,130,157,132
��
�:
���osc($osc)
�X%=osc �256:Y%=osc �256
�&FFF7:�
ݤinput(A$,N%,min,max)
=�A$�(134)�(157)�(132)�(N%+2)�(157)�N%+3,�(8));:�cursor(1)
$A$="":�
.
�:A%=�
8 �A%>min �A%<max ��(A$)=N% �7
B6�(A%=127��(A$)>0)�A%=13�(A%>min �A%<max ��(A$)<N%)
L�A%:�A%=13�
V�A%>min �A%<max A$=A$+�(A%)
`�A%=127 A$=�A$,�(A$)-1)
j�A%=13:�cursor(0):=A$
t4ݤname=�input("Enter filename: ",12+2*T%,32,127)
~Cݤlevel=(�(�input("Which level number ? ",1,48,49+numlev))-1)�3
�ݤn
�@E%=�("&0"+�input("Enter editing code: ",6,47,58)):֐+198:=E%
�ݤattr(N%)
���T~H:�A%=0�N%
��A$:�:A%=F%?(names+miss+N%)
��N%=0A%=A%-6��N%=2A%=A%+1
�=A$+": "+�(A%)+�8," ")
�
��bit(A%)
��34:�N%=3�14
�X%=F%?(names+A%+N%)
��X%>31�X%<127�X%=9�X%
��:�34:�
��store(A%):�N%=0�11

X%=�(�A$+�12," "),N%+1,1))
�X%=32X%=9
F%?(names+A%+N%+3)=X%
(�:�
2��name(A$)
<�A%=1�8
FB%?(N%*8+A%-9)=�(�A$,A%,1))
P�:�A%=9�10
Z!B%?(N%*2+A%+245)=�(�A$,A%,1))
d�:�
n��lock:I%=A%*2-209
xA%=opts+47:�line
�A%=13:�
�:
��"�Hello,�Soni
�:
���loadgrf(A$)
�)�osc("LOAD "+�(34)+A$+�(34)+" "+�~G%)
�X%=G%+grfs
��A%=0�names-4�4
�A%!F%=A%!X%:�
��
�:
�
��savegrf
�X%=G%+grfs
�A%=0�names-4�4
A%!X%=A%!F%:�
I�osc("SAVE "+�(34)+�name+�(34)+" "+�~G%+"+"+�~(grfs+names)+" 0 4000")
"�
,:
6
��loadlev
@S%=�level:�
J,�osc("LOAD "+�(34)+�name+�(34)+" "+�~B%)
T�'"Please wait..."
^X%=L%+S%*&800+numlev*data
hY%=B%+puznms+data
r�Z%=0�&7FC �4
|Z%!X%=Z%!Y%
��:pnt=0:��TjH
��N%=1�11:�ext
�X%=L%+numlev*pnt+S%*ext
�Y%=B%+puznms+pnt
��D%=0�ext-1
�D%?X%=D%?Y%
��:pnt=pnt+ext:�
��
�:
�
��savelev
�
S%=�level
�5�L%?-1�:�n<>L%?S%*65536+L%?(S%+4)*256+L%?(S%+8)�
��'"Please wait..."'
X%=B%+puznms+data
Y%=L%+S%*&800+numlev*data
�Z%=0�&7FC �4
&Z%!X%=Z%!Y%
0�:pnt=0:��TjH
:�N%=1�11:�ext
DX%=B%+puznms+pnt
NY%=L%+numlev*pnt+S%*ext
X�D%=0�ext-1
bD%?X%=D%?Y%
l�:pnt=pnt+ext:�
v�N%=1�32
��name("Puzzle "+�N%+"  ")
�a�:�osc("SAVE "+�(34)+�name+�(34)+" "+�~B%+"+"+�~(size+puznms)+" 8380 "+�~(&3000-size-puznms))
��
�:
�
��loadmss
�,�osc("LOAD "+�(34)+�name+�(34)+" "+�~F%)
��
�:
�
��savemss
�N%=F%+names
�?N%=31:N%?1=18:N%?2=16
�N%=N%+miss/2
�?N%=31:N%?1=14:N%?2=17
�L%?-1>0� �L%?-1=I%
c�osc("SAVE "+�(34)+�name+�(34)+" "+�~F%+"+"+�~(names+miss+attrs+numlev*size+grfs)+" 0 "+�~addr)
�
 :
* �1,1,1,4,8,32,16,32,64,64,64
4:
>F� Time consumption,Mapping ability,Backpack size,Throwing distance
H-� 2,47,58,1,47,53,1,49,53,2,47,58,1,48,52
R��attrs
\!�"Select feature to change:"'
fV%=�:�"]";
p�N%=0�3
z�3)�attr(N%)
��
��3)"Return to main menu"
�N%=0:�:*FX15
�K%=�:�K%=138�K%=139�arrow
��K%=13�N%<4�changeattr
��K%=13�N%=4:�
���arrow
��0,N%+V%)" "
��K%=138N%=(N%+1)�5
��K%=139N%=N%-1:�N%<0N%=4
��0,N%+V%)"]"
��
���changeattr
	�:��T~H
	�H%=0�N%
		�A$:�
	$	��DHH
	.�H%=0�N%
	8�A%,X%,Y%:�
	B�3,N%+V%);
	L"A%=�(�input(A$+": ",A%,X%,Y%))
	V%�(A%<17�(A%>0�N%=1))�(A%<64�N%=3)
	`�N%=0A%=A%+6��N%=2A%=A%-1
	jF%?(names+miss+N%)=A%
	t�3,N%+V%)�attr(N%)
	~�
	�:
	���miss:�
	��bit(0):�32
	��bit(miss/2):�'
	�?A$=�input("First part:",miss/2-3,31,127):�:�A$<>""�store(0)
	�CA$=�input("Second part:",miss/2-3,31,127):�A$<>""�store(miss/2)
	��
	�:
	�
��viewcat
	�&A$=�input("Which drive ?",1,47,52)
	�C%=1:�28,0,23,39,5
	��:�28,0,22,39,6,14
�osc("CAT "+A$):�15

2�'"Press"�(135)�(157)�(129)"SPACE...  "�(156);
	�A%=�

�A%=32
(
�title
2�
<:
F
��err:�15
P�C%=1�title
Z�=17 �quit:�
d�report
n�
x
��quit
�
�w:�:�
�2A$=��input("Are you sure (Y/N) ? ",3,68,90),1)
��A$="Y"�A$="N"
�
�A$="N" �
��T%��!-4
�3�''"Insert PIPELINE disk and"'" press a key":�
�
*/MRUN
��
�:
�I�"�This subroutine was written by             �William�Reeve�(mainly)
�:
���report:C%=1
��26:�N%=1�6
-Y%=20-(N% �1)*N% �2+(N% �1�1)*N% �2:*FX19
+�2,Y%);�135;�157;�132;�(30);�132;�157;
�:�28,5,23,33,18
" �"Error ";�;" has occurred."
,�
6(�''"Press a key - or"�(136)"ESCAPE";
@N%=�:�title
J�
�
00000000  0d 00 0a 14 f4 22 7f 20  20 20 86 20 50 49 50 45  |.....".   . PIPE|
00000010  4c 49 4e 45 0d 00 14 1a  f4 22 7f 83 4d 49 53 53  |LINE....."..MISS|
00000020  49 4f 4e 20 47 45 4e 45  52 41 54 4f 52 2e 0d 00  |ION GENERATOR...|
00000030  1e 17 f4 22 7f 85 42 79  82 49 61 6e 20 48 6f 6c  |..."..By.Ian Hol|
00000040  6d 65 73 20 21 0d 00 28  1a f4 22 7f 85 47 61 6d  |mes !..(.."..Gam|
00000050  65 20 62 79 82 49 41 4e  20 48 4f 4c 4d 45 53 0d  |e by.IAN HOLMES.|
00000060  00 32 19 f4 22 7f 85 61  6e 64 82 57 49 4c 4c 49  |.2.."..and.WILLI|
00000070  41 4d 20 52 45 45 56 45  0d 00 3c 6b f4 22 7f 84  |AM REEVE..<k."..|
00000080  9d 82 8d 48 65 6c 6c 6f  2c 83 88 61 6c 6c 20 6d  |...Hello,..all m|
00000090  79 20 66 72 69 65 6e 64  73 21 20 20 9c 20 20 20  |y friends!  .   |
000000a0  20 20 20 20 20 20 20 84  9d 82 8d 48 65 6c 6c 6f  |       ....Hello|
000000b0  2c 83 88 61 6c 6c 20 6d  79 20 66 72 69 65 6e 64  |,..all my friend|
000000c0  73 21 20 20 9c 15 a2 02  bd 14 04 48 29 55 0a 85  |s!  .......H)U..|
000000d0  70 68 29 aa 4a 05 70 48  4a 68 6a 9d 14 04 ca 10  |ph).J.pHJhj.....|
000000e0  e7 60 06 0d 00 46 05 3a  0d 00 50 0c 2a 46 58 32  |.`...F.:..P.*FX2|
000000f0  32 39 20 31 0d 00 5a 16  ee 85 f2 65 72 72 3a e7  |29 1..Z....err:.|
00000100  9f 3c 3e 31 37 e5 8d 74  42 40 0d 00 64 1a f4 20  |.<>17..tB@..d.. |
00000110  53 6f 72 72 79 20 61 62  6f 75 74 20 74 68 65 20  |Sorry about the |
00000120  47 4f 54 4f 0d 00 6e 05  d8 0d 00 78 0c eb 37 3a  |GOTO..n....x..7:|
00000130  f2 69 6e 69 74 0d 00 82  0a ee 85 f2 65 72 72 0d  |.init.......err.|
00000140  00 8c 0a 2a 46 58 32 32  39 0d 00 96 05 f5 0d 00  |...*FX229.......|
00000150  a0 05 db 0d 00 aa 0c f1  22 4b 65 79 3a 22 3b 0d  |........"Key:";.|
00000160  00 b4 09 f7 8d 74 64 41  0d 00 be 0e e3 4e 25 3d  |.....tdA.....N%=|
00000170  31 b8 6f 70 74 73 0d 00  c8 07 f3 41 24 0d 00 d2  |1.opts.....A$...|
00000180  26 f1 8a 37 29 3b 4e 25  22 20 74 6f 20 22 41 24  |&..7);N%" to "A$|
00000190  8a 32 38 29 bd 28 31 33  32 29 bd 28 31 35 37 29  |.28).(132).(157)|
000001a0  3b 3a ed 0d 00 dc 26 f1  8a 33 29 22 45 53 43 41  |;:....&..3)"ESCA|
000001b0  50 45 20 74 6f 20 6c 65  61 76 65 20 74 68 69 73  |PE to leave this|
000001c0  20 70 72 6f 67 72 61 6d  22 0d 00 e6 0e ef 32 36  | program".....26|
000001d0  3a 4b 25 3d 30 3a f5 0d  00 f0 10 f5 3a 41 25 3d  |:K%=0:......:A%=|
000001e0  a5 3a 2a 46 58 31 35 0d  00 fa 1c 49 25 3d 30 3a  |.:*FX15....I%=0:|
000001f0  e7 41 25 3d 31 30 35 84  41 25 3d 31 30 34 f2 6c  |.A%=105.A%=104.l|
00000200  6f 63 6b 0d 01 04 1a e7  41 25 3e 31 33 80 41 25  |ock.....A%>13.A%|
00000210  3c 31 33 38 20 41 25 3d  41 25 84 31 36 0d 01 0e  |<138 A%=A%.16...|
00000220  2d fd 41 25 3e 3d 34 39  80 41 25 3c 3d 28 6f 70  |-.A%>=49.A%<=(op|
00000230  74 73 2b 34 38 29 84 41  25 3d 31 33 84 41 25 3d  |ts+48).A%=13.A%=|
00000240  31 33 38 84 41 25 3d 31  33 39 0d 01 18 10 e7 41  |138.A%=139.....A|
00000250  25 3c 3e 31 33 f2 6c 69  6e 65 0d 01 22 12 fd 41  |%<>13.line.."..A|
00000260  25 3d 31 33 80 4b 25 3e  30 3a f2 77 0d 01 2c 10  |%=13.K%>0:.w..,.|
00000270  f1 8a 30 2c 6f 70 74 73  2b 32 29 3b 0d 01 36 0e  |..0,opts+2);..6.|
00000280  e7 4b 25 3d 31 f2 6d 69  73 73 0d 01 40 0f e7 4b  |.K%=1.miss..@..K|
00000290  25 3d 32 f2 61 74 74 72  73 0d 01 4a 18 e7 4b 25  |%=2.attrs..J..K%|
000002a0  3d 33 f2 6c 6f 61 64 67  72 66 28 a4 6e 61 6d 65  |=3.loadgrf(.name|
000002b0  29 0d 01 54 11 e7 4b 25  3d 34 f2 73 61 76 65 67  |)..T..K%=4.saveg|
000002c0  72 66 0d 01 5e 11 e7 4b  25 3d 35 f2 6c 6f 61 64  |rf..^..K%=5.load|
000002d0  6c 65 76 0d 01 68 11 e7  4b 25 3d 36 f2 73 61 76  |lev..h..K%=6.sav|
000002e0  65 6c 65 76 0d 01 72 11  e7 4b 25 3d 37 f2 6c 6f  |elev..r..K%=7.lo|
000002f0  61 64 6d 73 73 0d 01 7c  11 e7 4b 25 3d 38 f2 73  |admss..|..K%=8.s|
00000300  61 76 65 6d 73 73 0d 01  86 11 e7 4b 25 3d 39 f2  |avemss.....K%=9.|
00000310  76 69 65 77 63 61 74 0d  01 90 06 fd 30 0d 01 9a  |viewcat.....0...|
00000320  05 3a 0d 01 a4 84 dc 63  68 61 6e 67 65 20 6e 61  |.:.....change na|
00000330  6d 65 2c 63 68 61 6e 67  65 20 66 65 61 74 75 72  |me,change featur|
00000340  65 73 2c 6c 6f 61 64 20  67 72 61 70 68 69 63 73  |es,load graphics|
00000350  2c 73 61 76 65 20 67 72  61 70 68 69 63 73 2c 6c  |,save graphics,l|
00000360  6f 61 64 20 61 20 6c 65  76 65 6c 2c 73 61 76 65  |oad a level,save|
00000370  20 61 20 6c 65 76 65 6c  2c 6c 6f 61 64 20 61 20  | a level,load a |
00000380  6d 69 73 73 69 6f 6e 2c  73 61 76 65 20 61 20 6d  |mission,save a m|
00000390  69 73 73 69 6f 6e 2c 73  65 65 20 61 20 63 61 74  |ission,see a cat|
000003a0  61 6c 6f 67 75 65 0d 01  ae 05 3a 0d 01 b8 0a dd  |alogue....:.....|
000003b0  f2 69 6e 69 74 0d 01 c2  0d 59 25 3d 30 3a 41 25  |.init....Y%=0:A%|
000003c0  3d 30 0d 01 cc 13 58 25  3d ba 28 26 46 46 44 41  |=0....X%=.(&FFDA|
000003d0  29 80 26 46 46 0d 01 d6  12 54 25 3d 28 58 25 3d  |).&FF....T%=(X%=|
000003e0  31 84 58 25 3d 32 29 0d  01 e0 0a 2a 46 58 34 20  |1.X%=2)....*FX4 |
000003f0  31 0d 01 ea 0c 6e 75 6d  6c 65 76 3d 34 0d 01 f4  |1....numlev=4...|
00000400  0d 73 69 7a 65 3d 26 39  31 46 0d 01 fe 0d 67 72  |.size=&91F....gr|
00000410  66 73 3d 26 45 30 30 0d  02 08 0b 61 74 74 72 73  |fs=&E00....attrs|
00000420  3d 35 0d 02 12 0b 6d 69  73 73 3d 33 30 0d 02 1c  |=5....miss=30...|
00000430  0e 6e 61 6d 65 73 3d 26  31 33 34 0d 02 26 12 64  |.names=&134..&.d|
00000440  61 74 61 3d 73 69 7a 65  2d 26 38 30 30 0d 02 30  |ata=size-&800..0|
00000450  0e 70 75 7a 6e 6d 73 3d  33 32 30 0d 02 3a 0d 6f  |.puznms=320..:.o|
00000460  70 74 73 3d 39 2b 54 25  0d 02 44 2e de 20 46 25  |pts=9+T%..D.. F%|
00000470  20 28 32 2a 6e 61 6d 65  73 2b 6d 69 73 73 2b 61  | (2*names+miss+a|
00000480  74 74 72 73 2b 6e 75 6d  6c 65 76 2a 73 69 7a 65  |ttrs+numlev*size|
00000490  2b 67 72 66 73 29 0d 02  4e 1b de 20 6f 73 63 20  |+grfs)..N.. osc |
000004a0  34 30 2c 42 25 20 73 69  7a 65 2b 70 75 7a 6e 6d  |40,B% size+puznm|
000004b0  73 0d 02 58 1a 4c 25 3d  46 25 2b 6e 61 6d 65 73  |s..X.L%=F%+names|
000004c0  2b 6d 69 73 73 2b 61 74  74 72 73 0d 02 62 15 47  |+miss+attrs..b.G|
000004d0  25 3d 4c 25 2b 6e 75 6d  6c 65 76 2a 73 69 7a 65  |%=L%+numlev*size|
000004e0  0d 02 6c 30 61 64 64 72  3d 26 35 38 30 30 2d 6e  |..l0addr=&5800-n|
000004f0  75 6d 6c 65 76 2a 73 69  7a 65 2d 67 72 66 73 2d  |umlev*size-grfs-|
00000500  61 74 74 72 73 2d 6d 69  73 73 2d 6e 61 6d 65 73  |attrs-miss-names|
00000510  0d 02 76 0a f2 74 69 74  6c 65 0d 02 80 22 f1 27  |..v..title...".'|
00000520  27 8a 31 2d 37 2a 54 25  29 bd 28 31 33 34 29 bd  |'.1-7*T%).(134).|
00000530  28 31 35 37 29 bd 28 31  33 32 29 3b 0d 02 8a 34  |(157).(132);...4|
00000540  e7 54 25 f1 22 50 6c 65  61 73 65 20 77 61 69 74  |.T%."Please wait|
00000550  22 3b 8b f1 22 4c 6f 61  64 69 6e 67 20 53 74 61  |";.."Loading Sta|
00000560  6e 64 61 72 64 20 47 72  61 70 68 69 63 73 22 3b  |ndard Graphics";|
00000570  0d 02 94 10 f1 22 3a 20  20 22 bd 28 31 35 37 29  |.....":  ".(157)|
00000580  0d 02 9e 18 e3 4e 25 3d  30 b8 6e 61 6d 65 73 2b  |.....N%=0.names+|
00000590  6d 69 73 73 2b 34 88 34  0d 02 a8 0d 4e 25 21 46  |miss+4.4....N%!F|
000005a0  25 3d 30 3a ed 0d 02 b2  20 e3 4e 25 3d 6e 75 6d  |%=0:.... .N%=num|
000005b0  6c 65 76 2a 34 b8 6e 75  6d 6c 65 76 2a 64 61 74  |lev*4.numlev*dat|
000005c0  61 2d 34 88 34 0d 02 bc  0e 4c 25 21 4e 25 3d 2d  |a-4.4....L%!N%=-|
000005d0  31 3a ed 0d 02 c6 19 4c  25 21 28 6e 75 6d 6c 65  |1:.....L%!(numle|
000005e0  76 2a 64 61 74 61 2d 34  29 3d 2d 31 0d 02 d0 25  |v*data-4)=-1...%|
000005f0  e3 4e 25 3d 28 6e 75 6d  6c 65 76 2a 64 61 74 61  |.N%=(numlev*data|
00000600  29 b8 28 6e 75 6d 6c 65  76 2a 73 69 7a 65 29 88  |).(numlev*size).|
00000610  34 0d 02 da 0d 4c 25 21  4e 25 3d 30 3a ed 0d 02  |4....L%!N%=0:...|
00000620  e4 14 58 25 3d 4c 25 2b  28 6e 75 6d 6c 65 76 2a  |..X%=L%+(numlev*|
00000630  33 29 0d 02 ee 12 e3 4e  25 3d 30 b8 6e 75 6d 6c  |3).....N%=0.numl|
00000640  65 76 2d 31 0d 02 f8 15  58 25 21 28 4e 25 2a 34  |ev-1....X%!(N%*4|
00000650  29 3d 31 33 31 39 34 37  33 0d 03 02 18 ed 3a 46  |)=1319473.....:F|
00000660  25 3f 28 6e 61 6d 65 73  2b 6d 69 73 73 29 3d 31  |%?(names+miss)=1|
00000670  35 0d 03 0c 1c 46 25 21  28 6e 61 6d 65 73 2b 6d  |5....F%!(names+m|
00000680  69 73 73 2b 31 29 3d 33  39 33 37 33 30 0d 03 16  |iss+1)=393730...|
00000690  1c e7 ac 54 25 8c f2 6c  6f 61 64 67 72 66 28 22  |...T%..loadgrf("|
000006a0  44 65 66 61 75 6c 74 22  29 0d 03 20 05 e1 0d 03  |Default").. ....|
000006b0  2a 10 dd f2 63 75 72 73  6f 72 28 4e 25 29 0d 03  |*...cursor(N%)..|
000006c0  34 13 ef 32 33 2c 31 2c  4e 25 3b 30 3b 30 3b 30  |4..23,1,N%;0;0;0|
000006d0  3b 0d 03 3e 05 e1 0d 03  48 0b dd f2 74 69 74 6c  |;..>....H...titl|
000006e0  65 0d 03 52 0e f2 63 75  72 73 6f 72 28 30 29 0d  |e..R..cursor(0).|
000006f0  03 5c 12 ef 32 36 2c 31  32 3a e3 4e 25 3d 31 b8  |.\..26,12:.N%=1.|
00000700  32 0d 03 66 47 f1 8a 33  2c 4e 25 29 bd 28 31 34  |2..fG..3,N%).(14|
00000710  31 29 bd 28 31 32 39 29  bd 28 31 35 37 29 bd 28  |1).(129).(157).(|
00000720  31 33 31 29 22 50 49 50  45 4c 49 4e 45 20 4d 69  |131)"PIPELINE Mi|
00000730  73 73 69 6f 6e 20 47 65  6e 65 72 61 74 6f 72 20  |ssion Generator |
00000740  20 22 bd 28 31 35 36 29  0d 03 70 0e ed 3a e3 4e  | ".(156)..p..:.N|
00000750  25 3d 34 b8 32 34 0d 03  7a 2d f1 8a 30 2c 4e 25  |%=4.24..z-..0,N%|
00000760  29 bd 28 31 33 32 29 bd  28 31 35 37 29 bd 28 31  |).(132).(157).(1|
00000770  33 31 29 8a 33 38 2c 4e  25 29 bd 28 31 35 36 29  |31).38,N%).(156)|
00000780  3b 3a ed 0d 03 84 0d f2  77 3a 43 25 3d 30 3a e1  |;:......w:C%=0:.|
00000790  0d 03 8e 17 dd f2 77 3a  ef 32 38 2c 33 2c 32 33  |......w:.28,3,23|
000007a0  2c 33 36 2c 35 3a e1 0d  03 98 13 dd f2 6c 69 6e  |,36,5:.......lin|
000007b0  65 3a 41 25 3d 41 25 2d  34 38 0d 03 a2 10 e7 41  |e:A%=A%-48.....A|
000007c0  25 3e 38 39 80 4b 25 3d  30 e1 0d 03 ac 1f e7 41  |%>89.K%=0......A|
000007d0  25 3d 39 30 41 25 3d 4b  25 2b 31 3a e7 41 25 3e  |%=90A%=K%+1:.A%>|
000007e0  6f 70 74 73 20 41 25 3d  31 0d 03 b6 1e e7 41 25  |opts A%=1.....A%|
000007f0  3d 39 31 41 25 3d 4b 25  2d 31 3a e7 41 25 3d 30  |=91A%=K%-1:.A%=0|
00000800  41 25 3d 6f 70 74 73 0d  03 c0 09 2a 46 58 31 39  |A%=opts....*FX19|
00000810  0d 03 ca 23 e7 4b 25 3e  30 80 4b 25 3c 3e 41 25  |...#.K%>0.K%<>A%|
00000820  ef 33 31 2c 37 2c 4b 25  2b 34 2c 33 32 2c 33 32  |.31,7,K%+4,32,32|
00000830  2c 33 32 0d 03 d4 20 4b  25 3d 41 25 3a ef 33 31  |,32... K%=A%:.31|
00000840  2c 37 2c 4b 25 2b 34 2c  31 33 30 2c 31 35 37 2c  |,7,K%+4,130,157,|
00000850  31 33 32 0d 03 de 05 e1  0d 03 e8 05 3a 0d 03 f2  |132.........:...|
00000860  0f dd f2 6f 73 63 28 24  6f 73 63 29 0d 03 fc 1b  |...osc($osc)....|
00000870  58 25 3d 6f 73 63 20 83  32 35 36 3a 59 25 3d 6f  |X%=osc .256:Y%=o|
00000880  73 63 20 81 32 35 36 0d  04 06 0c d6 26 46 46 46  |sc .256.....&FFF|
00000890  37 3a e1 0d 04 10 1a dd  a4 69 6e 70 75 74 28 41  |7:.......input(A|
000008a0  24 2c 4e 25 2c 6d 69 6e  2c 6d 61 78 29 0d 04 1a  |$,N%,min,max)...|
000008b0  3d f1 41 24 bd 28 31 33  34 29 bd 28 31 35 37 29  |=.A$.(134).(157)|
000008c0  bd 28 31 33 32 29 89 28  4e 25 2b 32 29 bd 28 31  |.(132).(N%+2).(1|
000008d0  35 37 29 c4 4e 25 2b 33  2c bd 28 38 29 29 3b 3a  |57).N%+3,.(8));:|
000008e0  f2 63 75 72 73 6f 72 28  31 29 0d 04 24 0b 41 24  |.cursor(1)..$.A$|
000008f0  3d 22 22 3a f5 0d 04 2e  0a f5 3a 41 25 3d a5 0d  |="":......:A%=..|
00000900  04 38 20 e7 41 25 3e 6d  69 6e 20 80 41 25 3c 6d  |.8 .A%>min .A%<m|
00000910  61 78 20 80 a9 28 41 24  29 3d 4e 25 20 ef 37 0d  |ax ..(A$)=N% .7.|
00000920  04 42 36 fd 28 41 25 3d  31 32 37 80 a9 28 41 24  |.B6.(A%=127..(A$|
00000930  29 3e 30 29 84 41 25 3d  31 33 84 28 41 25 3e 6d  |)>0).A%=13.(A%>m|
00000940  69 6e 20 80 41 25 3c 6d  61 78 20 80 a9 28 41 24  |in .A%<max ..(A$|
00000950  29 3c 4e 25 29 0d 04 4c  0f ef 41 25 3a e7 41 25  |)<N%)..L..A%:.A%|
00000960  3d 31 33 f1 0d 04 56 1f  e7 41 25 3e 6d 69 6e 20  |=13...V..A%>min |
00000970  80 41 25 3c 6d 61 78 20  41 24 3d 41 24 2b bd 28  |.A%<max A$=A$+.(|
00000980  41 25 29 0d 04 60 1b e7  41 25 3d 31 32 37 20 41  |A%)..`..A%=127 A|
00000990  24 3d c0 41 24 2c a9 28  41 24 29 2d 31 29 0d 04  |$=.A$,.(A$)-1)..|
000009a0  6a 19 fd 41 25 3d 31 33  3a f2 63 75 72 73 6f 72  |j..A%=13:.cursor|
000009b0  28 30 29 3a 3d 41 24 0d  04 74 34 dd a4 6e 61 6d  |(0):=A$..t4..nam|
000009c0  65 3d a4 69 6e 70 75 74  28 22 45 6e 74 65 72 20  |e=.input("Enter |
000009d0  66 69 6c 65 6e 61 6d 65  3a 20 22 2c 31 32 2b 32  |filename: ",12+2|
000009e0  2a 54 25 2c 33 32 2c 31  32 37 29 0d 04 7e 43 dd  |*T%,32,127)..~C.|
000009f0  a4 6c 65 76 65 6c 3d 28  bb 28 a4 69 6e 70 75 74  |.level=(.(.input|
00000a00  28 22 57 68 69 63 68 20  6c 65 76 65 6c 20 6e 75  |("Which level nu|
00000a10  6d 62 65 72 20 3f 20 22  2c 31 2c 34 38 2c 34 39  |mber ? ",1,48,49|
00000a20  2b 6e 75 6d 6c 65 76 29  29 2d 31 29 80 33 0d 04  |+numlev))-1).3..|
00000a30  88 07 dd a4 6e 0d 04 92  40 45 25 3d a0 28 22 26  |....n...@E%=.("&|
00000a40  30 22 2b a4 69 6e 70 75  74 28 22 45 6e 74 65 72  |0"+.input("Enter|
00000a50  20 65 64 69 74 69 6e 67  20 63 6f 64 65 3a 20 22  | editing code: "|
00000a60  2c 36 2c 34 37 2c 35 38  29 29 3a d6 90 2b 31 39  |,6,47,58)):..+19|
00000a70  38 3a 3d 45 25 0d 04 9c  0e dd a4 61 74 74 72 28  |8:=E%......attr(|
00000a80  4e 25 29 0d 04 a6 12 f7  8d 54 7e 48 3a e3 41 25  |N%)......T~H:.A%|
00000a90  3d 30 b8 4e 25 0d 04 b0  1f f3 41 24 3a ed 3a 41  |=0.N%.....A$:.:A|
00000aa0  25 3d 46 25 3f 28 6e 61  6d 65 73 2b 6d 69 73 73  |%=F%?(names+miss|
00000ab0  2b 4e 25 29 0d 04 ba 1d  e7 4e 25 3d 30 41 25 3d  |+N%).....N%=0A%=|
00000ac0  41 25 2d 36 8b e7 4e 25  3d 32 41 25 3d 41 25 2b  |A%-6..N%=2A%=A%+|
00000ad0  31 0d 04 c4 1a 3d 41 24  2b 22 3a 20 22 2b c3 28  |1....=A$+": "+.(|
00000ae0  41 25 29 2b c4 38 2c 22  20 22 29 0d 04 ce 0d dd  |A%)+.8," ").....|
00000af0  f2 62 69 74 28 41 25 29  0d 04 d8 10 ef 33 34 3a  |.bit(A%).....34:|
00000b00  e3 4e 25 3d 33 b8 31 34  0d 04 e2 17 58 25 3d 46  |.N%=3.14....X%=F|
00000b10  25 3f 28 6e 61 6d 65 73  2b 41 25 2b 4e 25 29 0d  |%?(names+A%+N%).|
00000b20  04 ec 19 e7 58 25 3e 33  31 80 58 25 3c 31 32 37  |....X%>31.X%<127|
00000b30  84 58 25 3d 39 ef 58 25  0d 04 f6 0b ed 3a ef 33  |.X%=9.X%.....:.3|
00000b40  34 3a e1 0d 05 00 18 dd  f2 73 74 6f 72 65 28 41  |4:.......store(A|
00000b50  25 29 3a e3 4e 25 3d 30  b8 31 31 0d 05 0a 1e 58  |%):.N%=0.11....X|
00000b60  25 3d 97 28 c1 41 24 2b  c4 31 32 2c 22 20 22 29  |%=.(.A$+.12," ")|
00000b70  2c 4e 25 2b 31 2c 31 29  29 0d 05 14 0e e7 58 25  |,N%+1,1)).....X%|
00000b80  3d 33 32 58 25 3d 39 0d  05 1e 19 46 25 3f 28 6e  |=32X%=9....F%?(n|
00000b90  61 6d 65 73 2b 41 25 2b  4e 25 2b 33 29 3d 58 25  |ames+A%+N%+3)=X%|
00000ba0  0d 05 28 07 ed 3a e1 0d  05 32 0e dd f2 6e 61 6d  |..(..:...2...nam|
00000bb0  65 28 41 24 29 0d 05 3c  0b e3 41 25 3d 31 b8 38  |e(A$)..<..A%=1.8|
00000bc0  0d 05 46 1f 42 25 3f 28  4e 25 2a 38 2b 41 25 2d  |..F.B%?(N%*8+A%-|
00000bd0  39 29 3d 97 28 c1 41 24  2c 41 25 2c 31 29 29 0d  |9)=.(.A$,A%,1)).|
00000be0  05 50 0e ed 3a e3 41 25  3d 39 b8 31 30 0d 05 5a  |.P..:.A%=9.10..Z|
00000bf0  21 42 25 3f 28 4e 25 2a  32 2b 41 25 2b 32 34 35  |!B%?(N%*2+A%+245|
00000c00  29 3d 97 28 c1 41 24 2c  41 25 2c 31 29 29 0d 05  |)=.(.A$,A%,1))..|
00000c10  64 07 ed 3a e1 0d 05 6e  16 dd f2 6c 6f 63 6b 3a  |d..:...n...lock:|
00000c20  49 25 3d 41 25 2a 32 2d  32 30 39 0d 05 78 14 41  |I%=A%*2-209..x.A|
00000c30  25 3d 6f 70 74 73 2b 34  37 3a f2 6c 69 6e 65 0d  |%=opts+47:.line.|
00000c40  05 82 0b 41 25 3d 31 33  3a e1 0d 05 8c 05 3a 0d  |...A%=13:.....:.|
00000c50  05 96 13 f4 22 7f 82 48  65 6c 6c 6f 2c 83 53 6f  |...."..Hello,.So|
00000c60  6e 69 0d 05 a0 05 3a 0d  05 aa 11 dd f2 6c 6f 61  |ni....:......loa|
00000c70  64 67 72 66 28 41 24 29  0d 05 b4 29 f2 6f 73 63  |dgrf(A$)...).osc|
00000c80  28 22 4c 4f 41 44 20 22  2b bd 28 33 34 29 2b 41  |("LOAD "+.(34)+A|
00000c90  24 2b bd 28 33 34 29 2b  22 20 22 2b c3 7e 47 25  |$+.(34)+" "+.~G%|
00000ca0  29 0d 05 be 0e 58 25 3d  47 25 2b 67 72 66 73 0d  |)....X%=G%+grfs.|
00000cb0  05 c8 13 e3 41 25 3d 30  b8 6e 61 6d 65 73 2d 34  |....A%=0.names-4|
00000cc0  88 34 0d 05 d2 11 41 25  21 46 25 3d 41 25 21 58  |.4....A%!F%=A%!X|
00000cd0  25 3a ed 0d 05 dc 05 e1  0d 05 e6 05 3a 0d 05 f0  |%:..........:...|
00000ce0  0d dd f2 73 61 76 65 67  72 66 0d 05 fa 0e 58 25  |...savegrf....X%|
00000cf0  3d 47 25 2b 67 72 66 73  0d 06 04 13 e3 41 25 3d  |=G%+grfs.....A%=|
00000d00  30 b8 6e 61 6d 65 73 2d  34 88 34 0d 06 0e 11 41  |0.names-4.4....A|
00000d10  25 21 58 25 3d 41 25 21  46 25 3a ed 0d 06 18 49  |%!X%=A%!F%:....I|
00000d20  f2 6f 73 63 28 22 53 41  56 45 20 22 2b bd 28 33  |.osc("SAVE "+.(3|
00000d30  34 29 2b a4 6e 61 6d 65  2b bd 28 33 34 29 2b 22  |4)+.name+.(34)+"|
00000d40  20 22 2b c3 7e 47 25 2b  22 2b 22 2b c3 7e 28 67  | "+.~G%+"+"+.~(g|
00000d50  72 66 73 2b 6e 61 6d 65  73 29 2b 22 20 30 20 34  |rfs+names)+" 0 4|
00000d60  30 30 30 22 29 0d 06 22  05 e1 0d 06 2c 05 3a 0d  |000").."....,.:.|
00000d70  06 36 0d dd f2 6c 6f 61  64 6c 65 76 0d 06 40 0f  |.6...loadlev..@.|
00000d80  53 25 3d a4 6c 65 76 65  6c 3a f1 0d 06 4a 2c f2  |S%=.level:...J,.|
00000d90  6f 73 63 28 22 4c 4f 41  44 20 22 2b bd 28 33 34  |osc("LOAD "+.(34|
00000da0  29 2b a4 6e 61 6d 65 2b  bd 28 33 34 29 2b 22 20  |)+.name+.(34)+" |
00000db0  22 2b c3 7e 42 25 29 0d  06 54 16 f1 27 22 50 6c  |"+.~B%)..T..'"Pl|
00000dc0  65 61 73 65 20 77 61 69  74 2e 2e 2e 22 0d 06 5e  |ease wait..."..^|
00000dd0  1d 58 25 3d 4c 25 2b 53  25 2a 26 38 30 30 2b 6e  |.X%=L%+S%*&800+n|
00000de0  75 6d 6c 65 76 2a 64 61  74 61 0d 06 68 15 59 25  |umlev*data..h.Y%|
00000df0  3d 42 25 2b 70 75 7a 6e  6d 73 2b 64 61 74 61 0d  |=B%+puznms+data.|
00000e00  06 72 11 e3 5a 25 3d 30  b8 26 37 46 43 20 88 34  |.r..Z%=0.&7FC .4|
00000e10  0d 06 7c 0f 5a 25 21 58  25 3d 5a 25 21 59 25 0d  |..|.Z%!X%=Z%!Y%.|
00000e20  06 86 11 ed 3a 70 6e 74  3d 30 3a f7 8d 54 6a 48  |....:pnt=0:..TjH|
00000e30  0d 06 90 11 e3 4e 25 3d  31 b8 31 31 3a f3 65 78  |.....N%=1.11:.ex|
00000e40  74 0d 06 9a 1b 58 25 3d  4c 25 2b 6e 75 6d 6c 65  |t....X%=L%+numle|
00000e50  76 2a 70 6e 74 2b 53 25  2a 65 78 74 0d 06 a4 14  |v*pnt+S%*ext....|
00000e60  59 25 3d 42 25 2b 70 75  7a 6e 6d 73 2b 70 6e 74  |Y%=B%+puznms+pnt|
00000e70  0d 06 ae 0f e3 44 25 3d  30 b8 65 78 74 2d 31 0d  |.....D%=0.ext-1.|
00000e80  06 b8 0f 44 25 3f 58 25  3d 44 25 3f 59 25 0d 06  |...D%?X%=D%?Y%..|
00000e90  c2 13 ed 3a 70 6e 74 3d  70 6e 74 2b 65 78 74 3a  |...:pnt=pnt+ext:|
00000ea0  ed 0d 06 cc 05 e1 0d 06  d6 05 3a 0d 06 e0 0d dd  |..........:.....|
00000eb0  f2 73 61 76 65 6c 65 76  0d 06 ea 0d 53 25 3d a4  |.savelev....S%=.|
00000ec0  6c 65 76 65 6c 0d 06 f4  35 e7 4c 25 3f 2d 31 f1  |level...5.L%?-1.|
00000ed0  3a e7 a4 6e 3c 3e 4c 25  3f 53 25 2a 36 35 35 33  |:..n<>L%?S%*6553|
00000ee0  36 2b 4c 25 3f 28 53 25  2b 34 29 2a 32 35 36 2b  |6+L%?(S%+4)*256+|
00000ef0  4c 25 3f 28 53 25 2b 38  29 e1 0d 06 fe 17 f1 27  |L%?(S%+8)......'|
00000f00  22 50 6c 65 61 73 65 20  77 61 69 74 2e 2e 2e 22  |"Please wait..."|
00000f10  27 0d 07 08 15 58 25 3d  42 25 2b 70 75 7a 6e 6d  |'....X%=B%+puznm|
00000f20  73 2b 64 61 74 61 0d 07  12 1d 59 25 3d 4c 25 2b  |s+data....Y%=L%+|
00000f30  53 25 2a 26 38 30 30 2b  6e 75 6d 6c 65 76 2a 64  |S%*&800+numlev*d|
00000f40  61 74 61 0d 07 1c 11 e3  5a 25 3d 30 b8 26 37 46  |ata.....Z%=0.&7F|
00000f50  43 20 88 34 0d 07 26 0f  5a 25 21 58 25 3d 5a 25  |C .4..&.Z%!X%=Z%|
00000f60  21 59 25 0d 07 30 11 ed  3a 70 6e 74 3d 30 3a f7  |!Y%..0..:pnt=0:.|
00000f70  8d 54 6a 48 0d 07 3a 11  e3 4e 25 3d 31 b8 31 31  |.TjH..:..N%=1.11|
00000f80  3a f3 65 78 74 0d 07 44  14 58 25 3d 42 25 2b 70  |:.ext..D.X%=B%+p|
00000f90  75 7a 6e 6d 73 2b 70 6e  74 0d 07 4e 1b 59 25 3d  |uznms+pnt..N.Y%=|
00000fa0  4c 25 2b 6e 75 6d 6c 65  76 2a 70 6e 74 2b 53 25  |L%+numlev*pnt+S%|
00000fb0  2a 65 78 74 0d 07 58 0f  e3 44 25 3d 30 b8 65 78  |*ext..X..D%=0.ex|
00000fc0  74 2d 31 0d 07 62 0f 44  25 3f 58 25 3d 44 25 3f  |t-1..b.D%?X%=D%?|
00000fd0  59 25 0d 07 6c 13 ed 3a  70 6e 74 3d 70 6e 74 2b  |Y%..l..:pnt=pnt+|
00000fe0  65 78 74 3a ed 0d 07 76  0c e3 4e 25 3d 31 b8 33  |ext:...v..N%=1.3|
00000ff0  32 0d 07 80 1d f2 6e 61  6d 65 28 22 50 75 7a 7a  |2.....name("Puzz|
00001000  6c 65 20 22 2b c3 4e 25  2b 22 20 20 22 29 0d 07  |le "+.N%+"  ")..|
00001010  8a 61 ed 3a f2 6f 73 63  28 22 53 41 56 45 20 22  |.a.:.osc("SAVE "|
00001020  2b bd 28 33 34 29 2b a4  6e 61 6d 65 2b bd 28 33  |+.(34)+.name+.(3|
00001030  34 29 2b 22 20 22 2b c3  7e 42 25 2b 22 2b 22 2b  |4)+" "+.~B%+"+"+|
00001040  c3 7e 28 73 69 7a 65 2b  70 75 7a 6e 6d 73 29 2b  |.~(size+puznms)+|
00001050  22 20 38 33 38 30 20 22  2b c3 7e 28 26 33 30 30  |" 8380 "+.~(&300|
00001060  30 2d 73 69 7a 65 2d 70  75 7a 6e 6d 73 29 29 0d  |0-size-puznms)).|
00001070  07 94 05 e1 0d 07 9e 05  3a 0d 07 a8 0d dd f2 6c  |........:......l|
00001080  6f 61 64 6d 73 73 0d 07  b2 2c f2 6f 73 63 28 22  |oadmss...,.osc("|
00001090  4c 4f 41 44 20 22 2b bd  28 33 34 29 2b a4 6e 61  |LOAD "+.(34)+.na|
000010a0  6d 65 2b bd 28 33 34 29  2b 22 20 22 2b c3 7e 46  |me+.(34)+" "+.~F|
000010b0  25 29 0d 07 bc 05 e1 0d  07 c6 05 3a 0d 07 d0 0d  |%).........:....|
000010c0  dd f2 73 61 76 65 6d 73  73 0d 07 da 0f 4e 25 3d  |..savemss....N%=|
000010d0  46 25 2b 6e 61 6d 65 73  0d 07 e4 1a 3f 4e 25 3d  |F%+names....?N%=|
000010e0  33 31 3a 4e 25 3f 31 3d  31 38 3a 4e 25 3f 32 3d  |31:N%?1=18:N%?2=|
000010f0  31 36 0d 07 ee 10 4e 25  3d 4e 25 2b 6d 69 73 73  |16....N%=N%+miss|
00001100  2f 32 0d 07 f8 1a 3f 4e  25 3d 33 31 3a 4e 25 3f  |/2....?N%=31:N%?|
00001110  31 3d 31 34 3a 4e 25 3f  32 3d 31 37 0d 08 02 17  |1=14:N%?2=17....|
00001120  e7 4c 25 3f 2d 31 3e 30  e1 20 8b 4c 25 3f 2d 31  |.L%?-1>0. .L%?-1|
00001130  3d 49 25 0d 08 0c 63 f2  6f 73 63 28 22 53 41 56  |=I%...c.osc("SAV|
00001140  45 20 22 2b bd 28 33 34  29 2b a4 6e 61 6d 65 2b  |E "+.(34)+.name+|
00001150  bd 28 33 34 29 2b 22 20  22 2b c3 7e 46 25 2b 22  |.(34)+" "+.~F%+"|
00001160  2b 22 2b c3 7e 28 6e 61  6d 65 73 2b 6d 69 73 73  |+"+.~(names+miss|
00001170  2b 61 74 74 72 73 2b 6e  75 6d 6c 65 76 2a 73 69  |+attrs+numlev*si|
00001180  7a 65 2b 67 72 66 73 29  2b 22 20 30 20 22 2b c3  |ze+grfs)+" 0 "+.|
00001190  7e 61 64 64 72 29 0d 08  16 05 e1 0d 08 20 05 3a  |~addr)....... .:|
000011a0  0d 08 2a 20 dc 31 2c 31  2c 31 2c 34 2c 38 2c 33  |..* .1,1,1,4,8,3|
000011b0  32 2c 31 36 2c 33 32 2c  36 34 2c 36 34 2c 36 34  |2,16,32,64,64,64|
000011c0  0d 08 34 05 3a 0d 08 3e  46 dc 20 54 69 6d 65 20  |..4.:..>F. Time |
000011d0  63 6f 6e 73 75 6d 70 74  69 6f 6e 2c 4d 61 70 70  |consumption,Mapp|
000011e0  69 6e 67 20 61 62 69 6c  69 74 79 2c 42 61 63 6b  |ing ability,Back|
000011f0  70 61 63 6b 20 73 69 7a  65 2c 54 68 72 6f 77 69  |pack size,Throwi|
00001200  6e 67 20 64 69 73 74 61  6e 63 65 0d 08 48 2d dc  |ng distance..H-.|
00001210  20 32 2c 34 37 2c 35 38  2c 31 2c 34 37 2c 35 33  | 2,47,58,1,47,53|
00001220  2c 31 2c 34 39 2c 35 33  2c 32 2c 34 37 2c 35 38  |,1,49,53,2,47,58|
00001230  2c 31 2c 34 38 2c 35 32  0d 08 52 0b dd f2 61 74  |,1,48,52..R...at|
00001240  74 72 73 0d 08 5c 21 f1  22 53 65 6c 65 63 74 20  |trs..\!."Select |
00001250  66 65 61 74 75 72 65 20  74 6f 20 63 68 61 6e 67  |feature to chang|
00001260  65 3a 22 27 0d 08 66 0e  56 25 3d bc 3a f1 22 5d  |e:"'..f.V%=.:."]|
00001270  22 3b 0d 08 70 0b e3 4e  25 3d 30 b8 33 0d 08 7a  |";..p..N%=0.3..z|
00001280  11 f1 8a 33 29 a4 61 74  74 72 28 4e 25 29 0d 08  |...3).attr(N%)..|
00001290  84 05 ed 0d 08 8e 1d f1  8a 33 29 22 52 65 74 75  |.........3)"Retu|
000012a0  72 6e 20 74 6f 20 6d 61  69 6e 20 6d 65 6e 75 22  |rn to main menu"|
000012b0  0d 08 98 10 4e 25 3d 30  3a f5 3a 2a 46 58 31 35  |....N%=0:.:*FX15|
000012c0  0d 08 a2 1d 4b 25 3d a5  3a e7 4b 25 3d 31 33 38  |....K%=.:.K%=138|
000012d0  84 4b 25 3d 31 33 39 f2  61 72 72 6f 77 0d 08 ac  |.K%=139.arrow...|
000012e0  1a e7 4b 25 3d 31 33 80  4e 25 3c 34 f2 63 68 61  |..K%=13.N%<4.cha|
000012f0  6e 67 65 61 74 74 72 0d  08 b6 11 fd 4b 25 3d 31  |ngeattr.....K%=1|
00001300  33 80 4e 25 3d 34 3a e1  0d 08 c0 0b dd f2 61 72  |3.N%=4:.......ar|
00001310  72 6f 77 0d 08 ca 11 f1  8a 30 2c 4e 25 2b 56 25  |row......0,N%+V%|
00001320  29 22 20 22 0d 08 d4 16  e7 4b 25 3d 31 33 38 4e  |)" ".....K%=138N|
00001330  25 3d 28 4e 25 2b 31 29  83 35 0d 08 de 1c e7 4b  |%=(N%+1).5.....K|
00001340  25 3d 31 33 39 4e 25 3d  4e 25 2d 31 3a e7 4e 25  |%=139N%=N%-1:.N%|
00001350  3c 30 4e 25 3d 34 0d 08  e8 11 f1 8a 30 2c 4e 25  |<0N%=4......0,N%|
00001360  2b 56 25 29 22 5d 22 0d  08 f2 05 e1 0d 08 fc 10  |+V%)"]".........|
00001370  dd f2 63 68 61 6e 67 65  61 74 74 72 0d 09 06 0b  |..changeattr....|
00001380  f5 3a f7 8d 54 7e 48 0d  09 10 0c e3 48 25 3d 30  |.:..T~H.....H%=0|
00001390  b8 4e 25 0d 09 1a 09 f3  41 24 3a ed 0d 09 24 09  |.N%.....A$:...$.|
000013a0  f7 8d 44 48 48 0d 09 2e  0c e3 48 25 3d 30 b8 4e  |..DHH.....H%=0.N|
000013b0  25 0d 09 38 0f f3 41 25  2c 58 25 2c 59 25 3a ed  |%..8..A%,X%,Y%:.|
000013c0  0d 09 42 0f f1 8a 33 2c  4e 25 2b 56 25 29 3b 0d  |..B...3,N%+V%);.|
000013d0  09 4c 22 41 25 3d bb 28  a4 69 6e 70 75 74 28 41  |.L"A%=.(.input(A|
000013e0  24 2b 22 3a 20 22 2c 41  25 2c 58 25 2c 59 25 29  |$+": ",A%,X%,Y%)|
000013f0  29 0d 09 56 25 fd 28 41  25 3c 31 37 80 28 41 25  |)..V%.(A%<17.(A%|
00001400  3e 30 84 4e 25 3d 31 29  29 84 28 41 25 3c 36 34  |>0.N%=1)).(A%<64|
00001410  80 4e 25 3d 33 29 0d 09  60 1d e7 4e 25 3d 30 41  |.N%=3)..`..N%=0A|
00001420  25 3d 41 25 2b 36 8b e7  4e 25 3d 32 41 25 3d 41  |%=A%+6..N%=2A%=A|
00001430  25 2d 31 0d 09 6a 19 46  25 3f 28 6e 61 6d 65 73  |%-1..j.F%?(names|
00001440  2b 6d 69 73 73 2b 4e 25  29 3d 41 25 0d 09 74 17  |+miss+N%)=A%..t.|
00001450  f1 8a 33 2c 4e 25 2b 56  25 29 a4 61 74 74 72 28  |..3,N%+V%).attr(|
00001460  4e 25 29 0d 09 7e 05 e1  0d 09 88 05 3a 0d 09 92  |N%)..~......:...|
00001470  0c dd f2 6d 69 73 73 3a  f1 0d 09 9c 0f f2 62 69  |...miss:......bi|
00001480  74 28 30 29 3a ef 33 32  0d 09 a6 13 f2 62 69 74  |t(0):.32.....bit|
00001490  28 6d 69 73 73 2f 32 29  3a f1 27 0d 09 b0 3f 41  |(miss/2):.'...?A|
000014a0  24 3d a4 69 6e 70 75 74  28 22 46 69 72 73 74 20  |$=.input("First |
000014b0  70 61 72 74 3a 22 2c 6d  69 73 73 2f 32 2d 33 2c  |part:",miss/2-3,|
000014c0  33 31 2c 31 32 37 29 3a  f1 3a e7 41 24 3c 3e 22  |31,127):.:.A$<>"|
000014d0  22 f2 73 74 6f 72 65 28  30 29 0d 09 ba 43 41 24  |".store(0)...CA$|
000014e0  3d a4 69 6e 70 75 74 28  22 53 65 63 6f 6e 64 20  |=.input("Second |
000014f0  70 61 72 74 3a 22 2c 6d  69 73 73 2f 32 2d 33 2c  |part:",miss/2-3,|
00001500  33 31 2c 31 32 37 29 3a  e7 41 24 3c 3e 22 22 f2  |31,127):.A$<>"".|
00001510  73 74 6f 72 65 28 6d 69  73 73 2f 32 29 0d 09 c4  |store(miss/2)...|
00001520  05 e1 0d 09 ce 05 3a 0d  09 d8 0d dd f2 76 69 65  |......:......vie|
00001530  77 63 61 74 0d 09 e2 26  41 24 3d a4 69 6e 70 75  |wcat...&A$=.inpu|
00001540  74 28 22 57 68 69 63 68  20 64 72 69 76 65 20 3f  |t("Which drive ?|
00001550  22 2c 31 2c 34 37 2c 35  32 29 0d 09 ec 16 43 25  |",1,47,52)....C%|
00001560  3d 31 3a ef 32 38 2c 30  2c 32 33 2c 33 39 2c 35  |=1:.28,0,23,39,5|
00001570  0d 09 f6 16 db 3a ef 32  38 2c 30 2c 32 32 2c 33  |.....:.28,0,22,3|
00001580  39 2c 36 2c 31 34 0d 0a  00 17 f2 6f 73 63 28 22  |9,6,14.....osc("|
00001590  43 41 54 20 22 2b 41 24  29 3a ef 31 35 0d 0a 0a  |CAT "+A$):.15...|
000015a0  32 f1 27 22 50 72 65 73  73 22 bd 28 31 33 35 29  |2.'"Press".(135)|
000015b0  bd 28 31 35 37 29 bd 28  31 32 39 29 22 53 50 41  |.(157).(129)"SPA|
000015c0  43 45 2e 2e 2e 20 20 22  bd 28 31 35 36 29 3b 0d  |CE...  ".(156);.|
000015d0  0a 14 09 f5 41 25 3d a5  0d 0a 1e 0a fd 41 25 3d  |....A%=......A%=|
000015e0  33 32 0d 0a 28 0a f2 74  69 74 6c 65 0d 0a 32 05  |32..(..title..2.|
000015f0  e1 0d 0a 3c 05 3a 0d 0a  46 0d dd f2 65 72 72 3a  |...<.:..F...err:|
00001600  ef 31 35 0d 0a 50 0f e7  43 25 3d 31 f2 74 69 74  |.15..P..C%=1.tit|
00001610  6c 65 0d 0a 5a 11 e7 9f  3d 31 37 20 f2 71 75 69  |le..Z...=17 .qui|
00001620  74 3a e1 0d 0a 64 0b f2  72 65 70 6f 72 74 0d 0a  |t:...d..report..|
00001630  6e 05 e1 0d 0a 78 0a dd  f2 71 75 69 74 0d 0a 82  |n....x...quit...|
00001640  0a f2 77 3a f5 3a db 0d  0a 8c 32 41 24 3d c0 a4  |..w:.:....2A$=..|
00001650  69 6e 70 75 74 28 22 41  72 65 20 79 6f 75 20 73  |input("Are you s|
00001660  75 72 65 20 28 59 2f 4e  29 20 3f 20 22 2c 33 2c  |ure (Y/N) ? ",3,|
00001670  36 38 2c 39 30 29 2c 31  29 0d 0a 96 12 fd 41 24  |68,90),1).....A$|
00001680  3d 22 59 22 84 41 24 3d  22 4e 22 0d 0a a0 0d e7  |="Y".A$="N".....|
00001690  41 24 3d 22 4e 22 20 e1  0d 0a aa 0c e7 54 25 8c  |A$="N" ......T%.|
000016a0  d6 21 2d 34 0d 0a b4 33  f1 27 27 22 49 6e 73 65  |.!-4...3.''"Inse|
000016b0  72 74 20 50 49 50 45 4c  49 4e 45 20 64 69 73 6b  |rt PIPELINE disk|
000016c0  20 61 6e 64 22 27 22 20  70 72 65 73 73 20 61 20  | and"'" press a |
000016d0  6b 65 79 22 3a e7 a5 0d  0a be 0a 2a 2f 4d 52 55  |key":......*/MRU|
000016e0  4e 0d 0a c8 05 e0 0d 0a  d2 05 3a 0d 0a dc 49 f4  |N.........:...I.|
000016f0  22 86 54 68 69 73 20 73  75 62 72 6f 75 74 69 6e  |".This subroutin|
00001700  65 20 77 61 73 20 77 72  69 74 74 65 6e 20 62 79  |e was written by|
00001710  20 20 20 20 20 20 20 20  20 20 20 20 20 81 57 69  |             .Wi|
00001720  6c 6c 69 61 6d 83 52 65  65 76 65 82 28 6d 61 69  |lliam.Reeve.(mai|
00001730  6e 6c 79 29 0d 0a e6 05  3a 0d 0a f0 11 dd f2 72  |nly)....:......r|
00001740  65 70 6f 72 74 3a 43 25  3d 31 0d 0a fa 0f ef 32  |eport:C%=1.....2|
00001750  36 3a e3 4e 25 3d 31 b8  36 0d 0b 04 2d 59 25 3d  |6:.N%=1.6...-Y%=|
00001760  32 30 2d 28 4e 25 20 80  31 29 2a 4e 25 20 81 32  |20-(N% .1)*N% .2|
00001770  2b 28 4e 25 20 80 31 82  31 29 2a 4e 25 20 81 32  |+(N% .1.1)*N% .2|
00001780  3a 2a 46 58 31 39 0d 0b  0e 2b f1 8a 32 2c 59 25  |:*FX19...+..2,Y%|
00001790  29 3b bd 31 33 35 3b bd  31 35 37 3b bd 31 33 32  |);.135;.157;.132|
000017a0  3b 89 28 33 30 29 3b bd  31 33 32 3b bd 31 35 37  |;.(30);.132;.157|
000017b0  3b 0d 0b 18 14 ed 3a ef  32 38 2c 35 2c 32 33 2c  |;.....:.28,5,23,|
000017c0  33 33 2c 31 38 0d 0b 22  20 f1 22 45 72 72 6f 72  |33,18.." ."Error|
000017d0  20 22 3b 9f 3b 22 20 68  61 73 20 6f 63 63 75 72  | ";.;" has occur|
000017e0  72 65 64 2e 22 0d 0b 2c  05 f6 0d 0b 36 28 f1 27  |red."..,....6(.'|
000017f0  27 22 50 72 65 73 73 20  61 20 6b 65 79 20 2d 20  |'"Press a key - |
00001800  6f 72 22 bd 28 31 33 36  29 22 45 53 43 41 50 45  |or".(136)"ESCAPE|
00001810  22 3b 0d 0b 40 0f 4e 25  3d a5 3a f2 74 69 74 6c  |";..@.N%=.:.titl|
00001820  65 0d 0b 4a 05 e1 0d ff                           |e..J....|
00001828
MISSION.m0
MISSION.m1
MISSION.m2
MISSION.m4
MISSION.m5