Home » Personal collection » Acorn DFS disks » dfs_box02_disk01b_pipeline.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 » Personal collection » Acorn DFS disks » dfs_box02_disk01b_pipeline.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:
- Recent acquisitions » Acorn DFS disks » dfs_box10_disk01a_play_it_again_sam_11.scp » MISSION
- STH website » Superior » Superior_Pipeline_Pipeline.ssd » MISSION
- Personal collection » Acorn DFS disks » dfs_box02_disk01_pipeline.scp » MISSION
- Personal collection » Acorn DFS disks » dfs_box02_disk01b_pipeline.scp » MISSION
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