	     	 ?c              EXIT T    ------ ----     _*             _3S            _@             _             T2 ----------                                                                                         1OLDSTART?@]@                     0b*
1{* * * * * 1*** * * * * * * * * * ** * * * * * * 1('(c**@* ****V*(*d*2*****1*h****H*$*101234567890                 0                                                                                0                     *O SUCH LIAS@34
LIAS EXISTS@33LIAS XPANSION@32
REPROCESSOR@31WILIGHT ONED@30HELL STACK@29
LOGGED PIPE@28LAG@27	AD CODE@26ISSING QUOTE@25AILED@24ILE EXISTS@23OT EXECUTIBLE@22ISK WRITE@21IRECTORY NOT E
PTY@20CCESS@19O SUCH DIRECTORY@18
AN'T REMOVE@17UT OF MEMORY@16NKNOWN COMMAND@15
PASTIC LINK@14INE TOO LONG@13ND OF ILE@12
O SUCH FILE@11
ILE EAD@10ILE RITE@9AN'T CLOSE@8AMDRIVE FULL@7ILENAME LENGTH@6
AN'T CREATE@5AD  MODE@4MPTY DIRECTORY@3LLEGAL ERROR@2 RROR@0@ULL FOR ALGORYHM1i* 1h* 1g* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 0* 1TMP001~1bUNALIAS1aALIAS1`EXIT1_REN1^MKDIR1]CD1\DISK1[SH1ZCP1YRM1XECHO1WRMDIRD8D8D9D9;D9
D9D9 D90D9D9(D9D9D9'E8E8E9E9;E9
E9E9 E90E9E9(E9E9E9'*** 0***********D9~D9]D9^D9_D9`D9aD9b0D9WD9XD9YD9ZD9[D9\E9~E9]E9^E9_E9`E9aE9b0E9WE9XE9YE9ZE9[E9\----------------`8 9N9N1V*`8*1T 9N9U9/ 9P9V 8?1U999T9/ 9R98 9Q97 9098(a97*OPEN 8,19/* 1S99`9S 8;*8840@*16@*896PEN RIVE FILE 1A@*1?81R)1Q)1P)----------------`1O8h 9NERR DOESNT MATTER 8@99EMOVE FILE1MH`*9O 8=991N 919L9/9M 8>991L 939M*1L@*9/ 93HK EXISTENCE 9298 9597 9098(b97*OPEN 1,8,29/* 1K99KEEP FNUM`1J*ANT CREATE9K 8;*89J840@*16@*896REATE RIVE FILE 1A@*1>8----------------`*1I 919H*
 9} 939I1H9/L9G 91 90%@**  9298(o 9597*9/1G* *  1A@*89G1=0Q@*END DOS CMD----------------`84%@*(84 8a16@*iD8QCHAR* REMOVE LEADING96ARRY SET WILLiE8Q 8_CBM FILE STRING1AONVERT TO A----------------L9}1@*
----------------`* 1B 919C*1E 9@L9D 9}9E9B9/1D 93 9}*  8\8*0*@*9:9C999B9/9:9: 931C99*9B9/ 9298 9597 9098(`97A "OUR " MAG*IPPED OUT OF A 9A9/THE 1541 DIRECTORY* ROUTINE TO PRINT 9@OUGH AND READY 8<8$1<8# HOW DIRECTORY TO STDONUM----------------`8*NKNOWN CMDL9?%@*.*L9>%@*.?L9=%@*.@9<.$OF NOUN8Q HOLDS START1; 8_ET 1ST CHAR1:(19(18(17(16(15)14)13)12)11)B10)1/(  *...  END FILE TO DRIVE  ?...  ET FILE FROM DRIVE  @...  END DISK CMD, READ ERR CHAN.  $...  EAD DIRECTORY 1541 INTERFACE COMMANDS,----------------L8>8# 9v9u1}9r  - RINT  CHAR TO STDONUM----------------L8=1-8#`1)8*AD HEXCODE1. 9-`*OUN REPEAT1.@*1, 9-XIT 9}*
9, 8`1*.L9+ 9}ȹ8Q09*1+8  8_HK 4 STRING8  8a9*8-9) 8<8#1(8$ LAG: "" - O EWLINE  STRING TO STDONUM   2/2/1991----------------L8W88#88%8/88889&*8/1&@* 8<8$8#1&@* 8<*1'8%`81&* XICUTE A SCRIPT----------------`81!*ILE DOESNT(,1"*ILE EXISTS`1%* 9$ȑ89%1$*PAD FILENAME* 9#8!81#8Q*REPLACE FILENAME8R8!8S8!8 8S8 9" 8Y8! 8^2ND DOESNT?80@*0@*889! 8Y8 1  8^1ST FILE EXIST? ENAME A DIR ENTRY (FILE/DIR)----------------`* `8%@**h 8=8# 8=8%1H9 8>8# 9v9u9{9 8?18%9 8<8$8#9 8<*8%9z1y* 9{9y 8`1z9w*9{1* 1w SCTVPUD T:PETCBM, V:ASCCBM, U:ASCPET D:DUMPASC, S:CBMPET,LAGS P:PETASC, C:CBMASC OPY STDIN TO STDOUT----------------L) h1h`* 9.N9SCRIPTS.YKBD TO STOP NASTY1 )TRAIGHT FROM 8[8#0@*D98CONFORMATION1E9HECK FOROLDSTART----------------L) h1hOP RETURN ADDRESSXIT TO URBOSSEMBLER----------------`1*O SUCH FILE(,*EPEAT NOUNS1@* 8@ILL!9 8YCHK ITS THERE1 8^ ELETE ILE----------------`*8)*81*PLAT PROT`81*NO SUCH DIR(,1*CCESS(,1*OT EMPTY9)*8*98!8  8G* 9818 FIND IF ANY BELOW9)*8*CHK WRITE PROT9888 * CHK DIRPARENT0@*0@*88 8D8!9 8Y1 8^ET NXT WORD EMOVE (MULT) DIRECTORY----------------`8*RETURN CODE IN HERE8*8
8**1@* 8=1@* 8;1*A DIRECTORY, THEN SPLAT IT'S ̓E CREATE A FILE, TURN IT INTO A`81*IR EXISTS9 8Y1 8^CHK EXIST AKE (MULT) DIRECTORY----------------`*88 9)*8CHK IF  PROT*9* 8A18 `81*O DIR(,1*CCESSL9 8G* CURRDIR=PARENT890Q@*91
*9* 9*CURRDIR=ROOT9./9
..8Q 8_9* 8aCHK IF / OR ..9 8Y1
 8^SCAN HANGE CURRENT DIRECTORY----------------L8;1	*L8wTRY AGAIN1@*i*1@*1@**08w*:1@*i*1@*ECIMAL INC TMP#9	OT THERE 8F8*0@*D980wE9 REATE A RANDOMLY NAMED TMP FILE----------------`8S0a 8^`8R0_ 8^`8U0^8----------------L9}91HEX NYBBLE)*h 9JJJJHEX BYTE0]H8' 8]8( 98)5 DIGITS OUT(918)y98)8(y98(8'y98'9n8*1N0*@**8'8(BINARY INTO DEC8)MINE TO CONVERT* IFTY ROUTINE OF0\ UTPUT A 5 DIGIT NUMBER----------------1 `8Ȱ9  8> 9vI*@9 I*@08* 9u9r0[  ASSUMED, AND  CONTAINS FNUM UTPUT STRING [INDR3] TERMED BY @----------------L8[08L8ʍ0@*i* 0@*8m88*@80* L8*8*080* 0@*D88E80*" RROR" AFTERWARDS 880**80Z* TRING INDEXED BY , ECHOED TO Ҁ    RROR MESSAGE HANDLER----------------`8h 8H0*AD INPUT(,0*OT EXICUTIBLEL8=088*88D8	0@*0@*8ȑ808 * 8!0 8G8*8D8 8?8E8 8?80@*D0A*8E0A*0x@*D88xE88 * 8 8<80r*08* (SING 'LASHLOAD' TO AVOID DELAYS) RANSFER FILE INTO XICUTE MEM---------------`8LAIS EXISTS89i0@*%@*88808Q*  8_0@*8L88K9i8888O`0OT FOUND%@**@8088 8a80ީ*IS PRESENT. =OT THEREHECK IN STRINGS TABLE IF CURRENT NOUN--------------L8H*0P@*?0O@*?0N@*?0M@*?0L@*?0K@*?0* 8*?ș8P0P@*8O0O@*8N* 0N@*8M80M@*88L* 0L@*8K80K@*8808L0880@*%@*80@*%@*880880@*0@*8808* OBBLE ALIAS&DEF0@*0@*0@*888EN OF ALIAS+DEF80@*i* 0@*8m88""=+LEN8y8P8OCALC LEN0@*8L88K""88OT DEF'ED 8ޙHK EXIST8ݽ8T 8^HK 4 QUOTE0 8I--------------L8H80*"OESN'T EXIST(,0ݩ*OT QUOTED(,0* VERFLOW(,0ߩ*!XISTS`89h0@*%@*8808Q* 0 8_L8H* 80@*0@*88 88P9h 8a88N0@*8M89gRANSFER DEF 88O9h 8aRANSFER ALIAS8L0@*0@*8K8809g8ABLE FULL8*@808O* IND MT SPOT8ߙLREADY DEF'ED 8ޙHK EXIST8ݝMANDITORY!8T"NAME" 8^HK 4 QUOTE ON0 8I2 GET AT STRINGS PPEND LIAS----------------L8H8ڈ8Q0ڹ80Π*OL8͎80L88*Oȝ80չ) 808ɠ* 0A** 0֮8ȍ8ɹ8P0@*8N0@*8M0Ԭ8L8H8NOT FAR FROM THE SHOPS0ש* ICE CENTRAL LOCATION,L8֍0@*i* D8Q0@*iE8Q8R8ɽ8S0Ю888ϗHK REST OF LIST0) 8Q808ɠ* 0@*8L0@*8K8*"UOTED-IGNORE!8Q8R80ь8˝MP STRING888й8O8*@80Ϭ8ʌ8ʠ* MP LENGTH8L8%@**8S808ǌ8Ȍ88̈0̙8* *O 8I0 8 UST NOT CHANGE IF QUOTED. REPROCESSING - SE ALIASES----------------`80é*L8ƗCHANGE ALIASES8ʝ8Q0Ž80*O0`**8*
*088Q0L888
88 88



8 8808L88088TODAY!*'M 20 YEARS OLD8SPACES08ON'T SPLIT QUOTED8*"8IF ENTIRE WORD* NLY "ABSOLUTE QUOTE"0QA*88I*08L888088.\8*#8*"8* 88Q80888ʎ89j1j8* 0j*O REPROCESS INPUT: REMOVE #,QUOTING,ETC----------------`088* 08Q* 8* ONT CHANGE8*08QBACK TO NORMAL* ONVERT HARD SPCS8083L808T0* (,8S8RKIP QUOTE8*"88Q88THEN HANDLE "8FROM PREPROS8F NOT PARSING8S8R808* 88Q0ȍ88R8* 88Q0Ȫ88T8S08R**LR STARTS80k*(,0*  ARSE BUFFER, FIND START OF WORDS----------------`8h 8F88CHK DEV DIRH88 8FCHK CURR DIR0@*i* D8Q8iE8Q08FIND FNUM`0`80*L88 8=8#8 8;8$SO PREPARE8O,DOESN'T EXIST8# 88+808"OUTPUT PREP8%8 88,80o8&INPUT PREP REPARE REDIRECTION INTO FILES----------------`h08T'S NOT($T'S THERE88V888V*0Ƞ*H0`8 HECK IF . IS A FLAG (=YES)----------------0* *\* *<* *>`08`80*O FILE(,0*AD FLAG88.8V*ș8V8.8* 8Q808 HK LENGTH<>1L8088,08&L88$8"8+8*08 8R8 8S8ȘUSE THAT8ET NXT WRD &8* BY A SPACE88QHK IF SPLIT0ȀRECORD START OF FILENOUNS88-8U* NOUNS MARKș8U8-8NOT A REDIR, SO PUT ON NOUNTAB8808*CHK FOR REDIRECT8.-8Q8 8 8SGET LEN OF FILE0L8800*L88.;8.^h8QHL8%@*8R08CHK IF MORE NOUNS8Vʎ8"8&8.8-0n*  CAN NOUNLINE. REDIRECTION,ETC----------------L8F0@*iD8Q* 8iE8Q8R80Y8SSCANDIR2 REQUIRES NOUNNUM08SCAN 4 VERB`80* DONT`08 KNOW !88hRESTORE CURR 8882ND SCAN PATHH880 81ST SCAN CURR`0x@*88x88ET ROUTINE START8888Q08* HK STRING8R88S0@*888GET STRING POS88S88CMP LENGTHS88INTERNAL TABLE08O THROUGH80m*HK INTERNAL 1ST  - CAN INTERNAL+CURR DIR----------------`084`80*
8*Pș8Q 9v9u9s8*
0@* 8?080* 808Q* 0X*O NPUT LINE FROM FILE----------------L8[80@*D8b80eE8b CHO PROMPT TO STDOUT----------------`8/88888/ 8=8 8=0i8----------------L8H0@*D8J8E8J8~ș0J@+ 0J@+ 0J@+ 0~8J8/8*  8I888588680c*؀ NITIALIZE SHELL PARAMS----------------0}L8W0f 8Z0h*TACK ERR0|` 8@818|0{8L8l8* 8=81828y80 8{L8W%@*.^L8l 8{%@*.;8Q8Rʎ8L8W 8{%@*830z88v8-88F NOUNS REMAIN8z*HK IF AUTOREPEAT8z0y* IGNORE REMAINING CMDS8f0x)0v* XICUTE ROUTINE8#82 8w8u858#8v0s80IPING OUTPUT8%0t81L8f0u*LOGGED PIPE8t868%8s0q8ANDLE PIPED INPUTL8f%@* 8rTRANSFER ROUTINE8q0p8HECK IF INTERNALL8f%@* 8oL8f%@* 8n8880* L8f%@* 8m8ʎ8$*8#88%0l8DEFAULT /ύ88* 8W*HK IF BLANK LINE8R 8kL8f%@*0g 8jL8W 8iL8h%@*8/L8f%@**F  THEN POP STD8g0d 8XL8f8d 8e8d860W8 8c0  8:----------------8bL8aL8`L8_L8^L8]L8\L8[L8ZL8YL8XL8WL8 HELL ROUTINE TABLE) ----------------0V                0U                0T                    0S                    0R                                                                                   0Q                     )@----------------0P0O@*@0O0N@*@0N0M@*@0M0L@*@0L0K@*@0K0J@+0J) 1v)0	0I)-	0H)*	0G)'	0F)$	0E)!	0D)	0C)	0B)	0A)	0@)	0?)	0>)	0=)		0<)	0;)	0:) 	  0908@*0807@*0706@*0605@*05)0 1u(@1t*1s*1r*1q*1p*1o*1n*04(03(r02(q01(p00(o0/(n0.(m0-(l0,(k0+(j0*(h0)(g0((f0'(e0&(d0%(c0$(b0#(a0"(`0!(_0 (^0(]0(\0([0(Z0(Y0(X0(1e(0(0(0(0(0(0(	0(0(0(0(0( 0*0
*0*0*0
*0	) Г64000) 60000) 60000) -28000) -28000* 0*`560) !0)   L8 ) --------------------------------------- AST AMMENDMENT: 22/2/91 ODING COMMENCE: 22/11/90 () 1990-91 AIRD RODUCTIONS STERIX HELL, ERSION 1.6.40--------------------------------------- TURBO((        	       Ń  Ń Ń  Ņ    у      ׃ ؃҃ Ń Ӄ   ۃ  Ń      Ń    ŃŇ Ń   ƃ  ŃŁ ŃŁŁ  փВ Ń  Ӄρ ́  Ń   Ń ׃  Ń Ó Ń  Ð  Ń Ń Ń  Ӄ ́ Ł    ŁÃ ́   Ѓ у ŁÁ ρ # Ń Ń Ã Ã Á Ń  ŃԃŃÁ ( ŃŁ Ń Ń  Ń  ؊  Ń  Ń  Ã  Ń   Ł  ŃŁ  Ń Ń Ѓ  ŃƔ  Ł  ܘ  Ń  ŃŃƃ Ã  Ń     Ń Ń       ŃŃ  Ӂ ŏ      Ń Ń  Ń  ņ  ' Ń Ń́ Ń   %  Ń      ÃŃ    Ń  ρ ' ŃŃ ÄŃŃ Ń #% ÃŃ  ÁȃÃ  Ê΃  Ń Ń Ń " ƃ  Ń  ʃ   Ń ́ Ń   σЁ !! Ń  ҃ ׃ с Ѓ 
 ő ҁ  ց 
 Аԕ Á   ŃŃÃ  Ń Ã  Ճ   Ń ҃ Ł с  Ł Ń    # Ń  Ń  Ń ʆ ŏÁ Ń ' Ń &   ґ   Ń  ŃŃŃŁ  Ń  Ё  Ճ Ń ŃŁ  Æ с σ  Ń Ń ÏÁ  Æ  Ń Ń Ń Ń  

 				  	  	
   	   `%ҠMևAh5eܕPÁ  7'-   ?! ;? `     ?  ?STARPADIDIRLEDIRRODIRENVDRIVVENEXICUTEXECENFILELENGTFILEMODDEVDITOTDEVCMDPATINDRINDRSTDERSTDISTDOUDIRCURPROTECFLENGTFNAMPOINTEINDRWORDTICNOUNTICPIPEINOUNENCMDFNUCOUNTTSTDOSSTDONUSTDOMODSTDINUSTDISDECLDECMDECHDWORSTDOLESTDILENOUNTOFLAGTOSTACPIPEOUPIPEINUPIPEONUWORDTOFNLETTCOKBPRNUINIOPEOPENFNUCLOSCHROUCHRIDELFNUGETTYPGETMODFINDPAGCALCDISEECHKEXISDIRREAPAGEOPAGEOFSTRINGASTASTDEFSTDEFSTALEDEFLEBUFFEWORDSTARWORDLEQUOTELSNOUNTAFLAGLSMAILINEISCANDIRERROSTROUDECOUHEXOUNOUNNUNOUNSTARFLAGCHNOUNLEPRMPSHINIMAINPROMPBUMAINMAINBARPOPSTACPREPROPARSMAINVERNOUPREMAINRUMOVEPRORUNRUNRUNRUNRANDFILSTARTVERUNRUNDELPIPDELPBUGENSHIENDSTSTACKISTACKOULINEFILELINFILEINLINELONFILEINSCANTMSCANSTRLESCANSTRLSTRHSCANCMDLCMDHSCANDISCANFOUNSCANNOUNNOUNONOUNPIPNOUNNOUNFLANOUNREDIRTYNOUNNOUNNOUNBANOUN1NOUNNOUNBADFLAGTMCFLAGCFLAGPREPPREPOPREPBAPREPEXIPARSETYYSTPARSETSPARSEPARSE2PARSEENDPARSPARSEPARSEPARPAR2ENDPENDPENDPQUOTTABTABPRETMPTMPBUPREPRESPACPREQUOTPREREPRECODPREENPREPREPRENYPREBARFNYBBPREENDALIASIWTICBUFPNWLEYTICALPNALINALINALEXIALINALNOTFNCHKSTRINSMCALINALFNSMCTRANALIASOTRANALINALINALTICALIAALBUGALCHALBUGALALALBUGTRANSAALALBUGUNALIACHKTICGOBBLEGOBBLE1GOBBLE1GOBBLEGOBBLE2CHKNUCHKLEALCHKALCHKALCHKMOVEMOVEBUMOVEMOVEMOVEBAMOVEERRORERRSLAVERRTABLERRERRERRERRSTRSTRDECDECPOW2POW2POW2HEXHEXTXTMPNAMRANDC7C7YEC7NC7OC7NOC8C8C8NC1C1BUC1BUGC1C1C1BUGC3ERCIAC4C4C4C9LENC9LENC9C9ERC9ERRC9LOOPC9LOOPC9BRANC5BARC5C2ECHOBACBCBCBCBCLOSECHOBARSIECBUDIRFITKSACPTUNTALTALFNADFSTMPTMPC6DOSDIDOSCMDOSREADOSWRITCDOSNAMFINISDIRDIRNXTLICRDERROERRIENDIDOSRDOSRDOSRDOSRDOSCLOSDOSRCIOULISTESECONDOSWDOSWDOSWDOSWCCCCCCCCCCCCBYDECMIINDREXECUTALTMTRANSLEALCHKTMPRETAALSTPOINTCONTMCBMPECBMASPETCBASCCBPETASASCPEASCDUMCONVMODCONVERC4FLAGCHKFLAC4OC4OCPMODCHROOUASCOUCCDKILLTXCDKIḺNOUNNOUNNEXNOUNTSCANDIRNOUNTNOUNBANOUNTDIRINOUNREANOUNWRITNOUNNOUNSTDOMODNOUNNOUNSTDOSSTDISSTDINUSTDON                             S                                                                @ A  @@   `        @      Q        A@H         `      @  @         E            A  