home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-10-22 | 23.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 34 f4 20 54 72 | 65 6c 6c 69 73 20 2d 20 |...4. Tr|ellis - |
|00000010| 41 64 76 65 6e 74 75 72 | 65 20 49 6e 74 65 72 70 |Adventur|e Interp|
|00000020| 72 65 74 65 72 20 56 65 | 72 73 69 6f 6e 20 31 2e |reter Ve|rsion 1.|
|00000030| 31 31 30 70 0d 00 14 1e | f4 20 57 72 69 74 74 65 |110p....|. Writte|
|00000040| 6e 20 62 79 20 56 69 6e | 63 65 20 4d 2e 20 48 75 |n by Vin|ce M. Hu|
|00000050| 64 64 0d 00 1e 20 f4 20 | a9 31 39 39 31 2d 34 20 |dd... . |.1991-4 |
|00000060| 53 6f 66 74 20 52 6f 63 | 6b 20 53 6f 66 74 77 61 |Soft Roc|k Softwa|
|00000070| 72 65 0d 00 28 04 0d 00 | 32 0f ee 20 85 20 f2 5f |re..(...|2.. . ._|
|00000080| 45 72 72 6f 72 0d 00 3c | 04 0d 00 46 0b f2 5f 53 |Error..<|...F.._S|
|00000090| 65 74 55 70 0d 00 50 04 | 0d 00 5a 05 f5 0d 00 64 |etUp..P.|..Z....d|
|000000a0| 04 0d 00 6e 0e 20 f2 5f | 4e 65 77 47 61 6d 65 0d |...n. ._|NewGame.|
|000000b0| 00 78 04 0d 00 82 06 20 | f5 0d 00 8c 04 0d 00 96 |.x..... |........|
|000000c0| 12 20 20 f2 5f 52 65 61 | 64 53 63 72 69 70 74 0d |. ._Rea|dScript.|
|000000d0| 00 a0 04 0d 00 aa 13 20 | 20 c8 8e 20 43 6f 6d 6d |....... | .. Comm|
|000000e0| 61 6e 64 24 20 ca 0d 00 | b4 43 20 20 20 c9 20 22 |and$ ...|.C . "|
|000000f0| 53 54 4f 50 22 3a c8 98 | 3a f4 20 20 20 20 20 20 |STOP":..|:. |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 51 55 49 | | QUI|
|00000110| 54 20 20 20 20 20 20 20 | 20 20 2d 20 4c 65 61 76 |T | - Leav|
|00000120| 65 20 70 72 6f 67 72 61 | 6d 0d 00 be 49 20 20 20 |e progra|m...I |
|00000130| c9 20 22 4c 45 54 22 20 | 3a 20 f2 5f 53 74 6f 72 |. "LET" |: ._Stor|
|00000140| 65 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 4c |e:. | L|
|00000150| 45 54 20 20 20 20 20 20 | 20 20 20 20 2d 20 61 6c |ET | - al|
|00000160| 74 65 72 20 73 74 6f 72 | 65 20 63 6f 6e 74 65 6e |ter stor|e conten|
|00000170| 74 73 0d 00 c8 44 20 20 | 20 c9 20 22 3a 22 20 3a |ts...D | . ":" :|
|00000180| 20 f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 3a 20 20 20 20 | | : |
|000001a0| 20 20 20 20 20 20 20 20 | 2d 20 64 65 66 69 6e 65 | |- define|
|000001b0| 20 6c 61 62 65 6c 0d 00 | d2 42 20 20 20 c9 20 22 | label..|.B . "|
|000001c0| 47 4f 54 4f 22 20 3a 20 | f2 5f 4a 75 6d 70 3a f4 |GOTO" : |._Jump:.|
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 47 4f 20 20 | | GO |
|000001e0| 20 20 20 20 20 20 20 20 | 20 2d 20 6a 75 6d 70 20 | | - jump |
|000001f0| 74 6f 20 6c 61 62 65 6c | 0d 00 dc 41 20 20 20 c9 |to label|...A .|
|00000200| 20 22 43 4c 53 22 20 3a | 20 f2 5f 43 6c 73 3a f4 | "CLS" :| ._Cls:.|
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 4c | | CL|
|00000220| 53 20 20 20 20 20 20 20 | 20 20 20 2d 20 63 6c 65 |S | - cle|
|00000230| 61 72 20 73 63 72 65 65 | 6e 0d 00 e6 46 20 20 20 |ar scree|n...F |
|00000240| c9 20 22 4c 4f 4f 4b 22 | 20 3a 20 f2 5f 4c 6f 6f |. "LOOK"| : ._Loo|
|00000250| 6b 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 4c |k:. | L|
|00000260| 4f 4f 4b 20 20 20 20 20 | 20 20 20 20 2d 20 64 65 |OOK | - de|
|00000270| 73 63 72 69 62 65 20 6c | 6f 63 61 74 69 6f 6e 0d |scribe l|ocation.|
|00000280| 00 f0 47 20 20 20 c9 20 | 22 49 4e 50 55 54 22 20 |..G . |"INPUT" |
|00000290| 3a 20 f2 5f 49 6e 70 75 | 74 3a f4 20 20 20 20 20 |: ._Inpu|t:. |
|000002a0| 20 20 20 20 20 49 4e 50 | 55 54 20 20 20 20 20 20 | INP|UT |
|000002b0| 20 20 2d 20 67 65 74 20 | 70 6c 61 79 65 72 20 63 | - get |player c|
|000002c0| 6f 6d 6d 61 6e 64 0d 00 | fa 4b 20 20 20 c9 20 22 |ommand..|.K . "|
|000002d0| 43 4f 4d 4d 41 4e 44 22 | 20 3a 20 f2 5f 43 6f 6d |COMMAND"| : ._Com|
|000002e0| 6d 61 6e 64 3a f4 20 20 | 20 20 20 20 43 4f 4d 4d |mand:. | COMM|
|000002f0| 41 4e 44 20 20 20 20 20 | 20 2d 20 65 78 65 63 75 |AND | - execu|
|00000300| 74 65 20 70 6c 61 79 65 | 72 20 63 6f 6d 6d 61 6e |te playe|r comman|
|00000310| 64 0d 01 04 4c 20 20 20 | c9 20 22 52 45 53 54 41 |d...L |. "RESTA|
|00000320| 52 54 22 20 3a 20 f4 20 | 20 20 20 20 20 20 20 20 |RT" : . | |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 52 45 53 54 41 52 | | RESTAR|
|00000340| 54 20 20 20 20 20 20 2d | 20 70 72 6f 6d 70 74 20 |T -| prompt |
|00000350| 74 6f 20 70 6c 61 79 20 | 61 67 61 69 6e 0d 01 0e |to play |again...|
|00000360| 48 20 20 20 c9 20 22 51 | 55 49 54 22 20 20 20 20 |H . "Q|UIT" |
|00000370| 3a 20 f2 5f 51 75 69 74 | 3a f4 20 20 20 20 20 20 |: ._Quit|:. |
|00000380| 20 20 20 51 55 49 54 20 | 20 20 20 20 20 20 20 20 | QUIT | |
|00000390| 2d 20 70 72 6f 6d 70 74 | 20 74 6f 20 65 78 69 74 |- prompt| to exit|
|000003a0| 20 67 61 6d 65 0d 01 18 | 3e 20 20 20 c9 20 22 49 | game...|> . "I|
|000003b0| 46 22 20 3a 20 f2 5f 49 | 66 3a f4 20 20 20 20 20 |F" : ._I|f:. |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 49 46 20 20 20 | | IF |
|000003d0| 20 20 20 20 20 20 20 20 | 2d 20 63 6f 6e 64 69 74 | |- condit|
|000003e0| 69 6f 6e 0d 01 22 3e 20 | 20 20 c9 20 22 45 4c 53 |ion.."> | . "ELS|
|000003f0| 45 22 20 3a 20 f2 5f 45 | 6c 73 65 3a f4 20 20 20 |E" : ._E|lse:. |
|00000400| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 20 20 20 | | ELSE |
|00000410| 20 20 20 20 20 20 2d 20 | 63 6f 6e 64 69 74 69 6f | - |conditio|
|00000420| 6e 0d 01 2c 45 20 20 20 | c9 20 22 45 4e 44 20 49 |n..,E |. "END I|
|00000430| 46 22 20 3a 20 f2 5f 45 | 6e 64 49 66 3a f4 20 20 |F" : ._E|ndIf:. |
|00000440| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 20 20 20 | E|ND IF |
|00000450| 20 20 20 20 2d 20 65 6e | 64 20 6f 66 20 63 6f 6e | - en|d of con|
|00000460| 64 69 74 69 6f 6e 0d 01 | 36 3f 20 20 20 c9 20 22 |dition..|6? . "|
|00000470| 47 45 54 22 20 3a 20 f2 | 5f 47 65 74 3a f4 20 20 |GET" : .|_Get:. |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 47 45 54 20 | | GET |
|00000490| 20 20 20 20 20 20 20 20 | 20 2d 20 67 65 74 20 6f | | - get o|
|000004a0| 62 6a 65 63 74 0d 01 40 | 40 20 20 20 c9 20 22 44 |bject..@|@ . "D|
|000004b0| 52 4f 50 22 20 3a 20 f2 | 5f 44 72 6f 70 3a f4 20 |ROP" : .|_Drop:. |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 44 52 4f 50 20 | | DROP |
|000004d0| 20 20 20 20 20 20 20 20 | 2d 20 64 72 6f 70 20 6f | |- drop o|
|000004e0| 62 6a 65 63 74 0d 01 4a | 44 20 20 20 c9 20 22 50 |bject..J|D . "P|
|000004f0| 52 49 4e 54 22 20 3a 20 | f2 5f 50 72 69 6e 74 3a |RINT" : |._Print:|
|00000500| f4 20 20 20 20 20 20 20 | 20 20 20 50 52 49 4e 54 |. | PRINT|
|00000510| 20 20 20 20 20 20 20 20 | 2d 20 70 72 69 6e 74 20 | |- print |
|00000520| 73 74 61 74 65 6d 65 6e | 74 0d 01 54 48 20 20 20 |statemen|t..TH |
|00000530| c9 20 22 52 45 4d 22 20 | 3a 20 f4 20 20 20 20 20 |. "REM" |: . |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000550| 20 20 52 45 4d 20 20 20 | 20 20 20 20 20 20 20 2d | REM | -|
|00000560| 20 72 65 6d 61 72 6b 20 | 73 74 61 74 65 6d 65 6e | remark |statemen|
|00000570| 74 0d 01 5e 42 20 20 20 | c9 20 22 22 20 3a 20 f4 |t..^B |. "" : .|
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 52 45 4d 20 20 20 | | REM |
|000005a0| 20 20 20 20 20 20 20 2d | 20 62 6c 61 6e 6b 20 6c | -| blank l|
|000005b0| 69 6e 65 0d 01 68 49 20 | 20 20 c9 20 22 53 50 41 |ine..hI | . "SPA|
|000005c0| 43 45 22 20 3a 20 f2 5f | 53 70 61 63 65 3a f4 20 |CE" : ._|Space:. |
|000005d0| 20 20 20 20 20 20 20 20 | 20 53 50 41 43 45 20 20 | | SPACE |
|000005e0| 20 20 20 20 20 20 2d 20 | 70 72 65 73 73 20 3c 73 | - |press <s|
|000005f0| 70 61 63 65 3e 20 70 72 | 6f 6d 70 74 0d 01 72 3e |pace> pr|ompt..r>|
|00000600| 20 20 20 c9 20 22 49 4e | 56 22 20 3a 20 f2 5f 49 | . "IN|V" : ._I|
|00000610| 6e 76 65 6e 74 6f 72 79 | 3a f4 20 20 20 20 20 20 |nventory|:. |
|00000620| 20 20 49 4e 56 20 20 20 | 20 20 20 20 20 20 20 2d | INV | -|
|00000630| 20 69 6e 76 65 6e 74 6f | 72 79 0d 01 7c 47 20 20 | invento|ry..|G |
|00000640| 20 c9 20 22 45 58 41 4d | 49 4e 45 22 20 3a 20 f2 | . "EXAM|INE" : .|
|00000650| 5f 45 78 61 6d 69 6e 65 | 3a f4 20 20 20 20 20 20 |_Examine|:. |
|00000660| 45 58 41 4d 49 4e 45 20 | 20 20 20 20 20 2d 20 64 |EXAMINE | - d|
|00000670| 65 73 63 72 69 62 65 20 | 61 6e 20 6f 62 6a 65 63 |escribe |an objec|
|00000680| 74 0d 01 86 04 0d 01 90 | 54 20 20 20 7f 3a 20 f2 |t.......|T .: .|
|00000690| 5f 52 65 70 6f 72 74 28 | 22 55 6e 64 65 66 69 6e |_Report(|"Undefin|
|000006a0| 65 64 20 43 6f 6d 6d 61 | 6e 64 20 69 6e 20 73 63 |ed Comma|nd in sc|
|000006b0| 72 69 70 74 20 66 69 6c | 65 3a 20 22 2b 43 6f 6d |ript fil|e: "+Com|
|000006c0| 6d 61 6e 64 24 2b 22 20 | 22 2b c3 28 a9 28 43 6f |mand$+" |"+.(.(Co|
|000006d0| 6d 6d 61 6e 64 24 29 29 | 29 0d 01 9a 07 20 20 cb |mmand$))|).... .|
|000006e0| 0d 01 a4 19 20 fd 20 43 | 6f 6d 6d 61 6e 64 24 3d |.... . C|ommand$=|
|000006f0| 22 52 45 53 54 41 52 54 | 22 0d 01 ae 04 0d 01 b8 |"RESTART|".......|
|00000700| 19 20 e7 20 43 6f 6d 6d | 61 6e 64 24 3d 22 52 45 |. . Comm|and$="RE|
|00000710| 53 54 41 52 54 22 0d 01 | c2 34 20 20 f2 5f 4f 75 |START"..|.4 ._Ou|
|00000720| 74 70 75 74 28 bd 31 33 | 2b 22 44 6f 20 79 6f 75 |tput(.13|+"Do you|
|00000730| 20 77 61 6e 74 20 74 6f | 20 70 6c 61 79 20 61 67 | want to| play ag|
|00000740| 61 69 6e 3f 22 2b bd 31 | 33 29 0d 01 cc 32 20 20 |ain?"+.1|3)...2 |
|00000750| f2 5f 4f 75 74 70 75 74 | 28 22 50 72 65 73 73 20 |._Output|("Press |
|00000760| 59 20 66 6f 72 20 79 65 | 73 20 6f 72 20 4e 20 66 |Y for ye|s or N f|
|00000770| 6f 72 20 6e 6f 2e 22 2b | bd 31 33 29 0d 01 d6 07 |or no."+|.13)....|
|00000780| 20 20 f5 0d 01 e0 0b 20 | 20 20 41 24 3d be 0d 01 | ..... | A$=...|
|00000790| ea 29 20 20 fd 20 41 24 | 3d 22 4e 22 20 84 20 41 |.) . A$|="N" . A|
|000007a0| 24 3d 22 6e 22 20 84 20 | 41 24 3d 22 59 22 20 84 |$="n" . |A$="Y" .|
|000007b0| 20 41 24 3d 22 79 22 0d | 01 f4 16 20 20 f2 5f 4f | A$="y".|... ._O|
|000007c0| 75 74 70 75 74 28 41 24 | 2b bd 31 33 29 0d 01 fe |utput(A$|+.13)...|
|000007d0| 1c 20 20 e7 20 41 24 3d | 22 4e 22 20 84 20 41 24 |. . A$=|"N" . A$|
|000007e0| 3d 22 6e 22 20 8c 20 c8 | 98 0d 02 08 06 20 cd 0d |="n" . .|..... ..|
|000007f0| 02 12 04 0d 02 1c 07 fd | 20 a3 0d 02 26 04 0d 02 |........| ...&...|
|00000800| 30 0d dd 20 f2 5f 45 72 | 72 6f 72 0d 02 3a 04 0d |0.. ._Er|ror..:..|
|00000810| 02 44 07 20 ef 34 0d 02 | 4e 06 20 87 0d 02 58 20 |.D. .4..|N. ...X |
|00000820| 20 f1 27 27 22 45 52 52 | 4f 52 20 22 3b 9f 3b 22 | .''"ERR|OR ";.;"|
|00000830| 20 41 54 20 4c 49 4e 45 | 20 22 3b 9e 0d 02 62 09 | AT LINE| ";...b.|
|00000840| 20 f1 20 f6 24 0d 02 6c | 07 20 c8 98 0d 02 76 04 | . .$..l|. ....v.|
|00000850| 0d 02 80 05 e1 0d 02 8a | 04 0d 02 94 0d dd 20 f2 |........|...... .|
|00000860| 5f 53 65 74 55 70 0d 02 | 9e 04 0d 02 a8 14 20 de |_SetUp..|...... .|
|00000870| 20 53 70 72 69 74 65 25 | 20 31 33 30 30 30 0d 02 | Sprite%| 13000..|
|00000880| b2 13 20 21 53 70 72 69 | 74 65 25 3d 31 33 30 30 |.. !Spri|te%=1300|
|00000890| 30 0d 02 bc 21 20 c8 99 | 20 22 4f 53 5f 53 70 72 |0...! ..| "OS_Spr|
|000008a0| 69 74 65 4f 70 22 2c 32 | 36 35 2c 53 70 72 69 74 |iteOp",2|65,Sprit|
|000008b0| 65 25 0d 02 c6 40 20 c8 | 99 20 22 4f 53 5f 53 70 |e%...@ .|. "OS_Sp|
|000008c0| 72 69 74 65 4f 70 22 2c | 32 36 36 2c 53 70 72 69 |riteOp",|266,Spri|
|000008d0| 74 65 25 2c 22 3c 53 52 | 53 54 72 65 6c 6c 69 73 |te%,"<SR|STrellis|
|000008e0| 24 50 61 74 68 3e 2e 53 | 70 72 69 74 65 46 69 6c |$Path>.S|priteFil|
|000008f0| 65 22 0d 02 d0 04 0d 02 | da 1f 20 de 20 4d 43 6f |e"......|.. . MCo|
|00000900| 64 65 25 20 31 30 30 30 | 2c 20 53 74 61 63 6b 25 |de% 1000|, Stack%|
|00000910| 20 31 30 30 30 0d 02 e4 | 36 20 ff 28 22 4c 4f 41 | 1000...|6 .("LOA|
|00000920| 44 20 3c 53 52 53 54 72 | 65 6c 6c 69 73 24 50 61 |D <SRSTr|ellis$Pa|
|00000930| 74 68 3e 2e 53 52 53 41 | 52 4d 4c 69 62 20 22 2b |th>.SRSA|RMLib "+|
|00000940| c3 7e 28 4d 43 6f 64 65 | 25 29 29 0d 02 ee 28 20 |.~(MCode|%))...( |
|00000950| 46 25 3d 8e 28 22 3c 53 | 52 53 54 72 65 6c 6c 69 |F%=.("<S|RSTrelli|
|00000960| 73 24 50 61 74 68 3e 2e | 53 52 53 41 52 4d 47 65 |s$Path>.|SRSARMGe|
|00000970| 6e 22 29 0d 02 f8 2a 20 | 20 e8 23 46 25 2c 52 65 |n")...* | .#F%,Re|
|00000980| 70 6f 72 74 25 2c 43 6c | 72 53 63 6e 25 2c 53 63 |port%,Cl|rScn%,Sc|
|00000990| 6e 41 64 72 25 2c 45 78 | 70 53 63 6e 25 0d 03 02 |nAdr%,Ex|pScn%...|
|000009a0| 2a 20 20 e8 23 46 25 2c | 53 70 72 50 6c 74 25 2c |* .#F%,|SprPlt%,|
|000009b0| 4c 66 54 6f 43 72 25 2c | 43 6f 70 79 4d 65 25 2c |LfToCr%,|CopyMe%,|
|000009c0| 46 69 6e 64 42 79 25 0d | 03 0c 09 20 d9 23 46 25 |FindBy%.|... .#F%|
|000009d0| 0d 03 16 04 0d 03 20 28 | 20 44 75 6d 6d 79 25 3d |...... (| Dummy%=|
|000009e0| a4 43 61 6c 6c 28 52 65 | 70 6f 72 74 25 2c 30 2c |.Call(Re|port%,0,|
|000009f0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 29 0d 03 2a 04 |0,0,0,0,|0,0)..*.|
|00000a00| 0d 03 34 1c 20 53 69 7a | 65 5f 54 25 3d a4 5f 53 |..4. Siz|e_T%=._S|
|00000a10| 69 7a 65 28 22 54 69 74 | 6c 65 22 29 0d 03 3e 1c |ize("Tit|le")..>.|
|00000a20| 20 53 69 7a 65 5f 52 25 | 3d a4 5f 53 69 7a 65 28 | Size_R%|=._Size(|
|00000a30| 22 52 6f 6f 6d 73 22 29 | 0d 03 48 1c 20 53 69 7a |"Rooms")|..H. Siz|
|00000a40| 65 5f 57 25 3d a4 5f 53 | 69 7a 65 28 22 57 6f 72 |e_W%=._S|ize("Wor|
|00000a50| 64 73 22 29 0d 03 52 1d | 20 53 69 7a 65 5f 53 25 |ds")..R.| Size_S%|
|00000a60| 3d a4 5f 53 69 7a 65 28 | 22 53 63 72 69 70 74 22 |=._Size(|"Script"|
|00000a70| 29 0d 03 5c 1e 20 53 69 | 7a 65 5f 4f 25 3d a4 5f |)..\. Si|ze_O%=._|
|00000a80| 53 69 7a 65 28 22 4f 62 | 6a 65 63 74 73 22 29 0d |Size("Ob|jects").|
|00000a90| 03 66 04 0d 03 70 45 20 | de 20 54 69 74 6c 65 25 |.f...pE |. Title%|
|00000aa0| 20 53 69 7a 65 5f 54 25 | 2c 20 52 6f 6f 6d 73 25 | Size_T%|, Rooms%|
|00000ab0| 20 53 69 7a 65 5f 52 25 | 2c 20 57 6f 72 64 73 25 | Size_R%|, Words%|
|00000ac0| 20 53 69 7a 65 5f 57 25 | 2c 20 53 63 72 69 70 25 | Size_W%|, Scrip%|
|00000ad0| 20 53 69 7a 65 5f 53 25 | 0d 03 7a 15 20 de 20 4f | Size_S%|..z. . O|
|00000ae0| 62 6a 63 73 25 20 53 69 | 7a 65 5f 4f 25 0d 03 84 |bjcs% Si|ze_O%...|
|00000af0| 04 0d 03 8e 2c 20 53 74 | 61 72 74 5f 54 25 3d a4 |...., St|art_T%=.|
|00000b00| 5f 4c 6f 61 64 28 22 54 | 69 74 6c 65 22 2c 54 69 |_Load("T|itle",Ti|
|00000b10| 74 6c 65 25 2c 53 69 7a | 65 5f 54 25 29 0d 03 98 |tle%,Siz|e_T%)...|
|00000b20| 2c 20 53 74 61 72 74 5f | 52 25 3d a4 5f 4c 6f 61 |, Start_|R%=._Loa|
|00000b30| 64 28 22 52 6f 6f 6d 73 | 22 2c 52 6f 6f 6d 73 25 |d("Rooms|",Rooms%|
|00000b40| 2c 53 69 7a 65 5f 52 25 | 29 0d 03 a2 2c 20 53 74 |,Size_R%|)..., St|
|00000b50| 61 72 74 5f 57 25 3d a4 | 5f 4c 6f 61 64 28 22 57 |art_W%=.|_Load("W|
|00000b60| 6f 72 64 73 22 2c 57 6f | 72 64 73 25 2c 53 69 7a |ords",Wo|rds%,Siz|
|00000b70| 65 5f 57 25 29 0d 03 ac | 2d 20 53 74 61 72 74 5f |e_W%)...|- Start_|
|00000b80| 53 25 3d a4 5f 4c 6f 61 | 64 28 22 53 63 72 69 70 |S%=._Loa|d("Scrip|
|00000b90| 74 22 2c 53 63 72 69 70 | 25 2c 53 69 7a 65 5f 53 |t",Scrip|%,Size_S|
|00000ba0| 25 29 0d 03 b6 2e 20 53 | 74 61 72 74 5f 4f 25 3d |%).... S|tart_O%=|
|00000bb0| a4 5f 4c 6f 61 64 28 22 | 4f 62 6a 65 63 74 73 22 |._Load("|Objects"|
|00000bc0| 2c 4f 62 6a 63 73 25 2c | 53 69 7a 65 5f 4f 25 29 |,Objcs%,|Size_O%)|
|00000bd0| 0d 03 c0 04 0d 03 ca 19 | 20 4f 5f 4e 75 6d 62 25 |........| O_Numb%|
|00000be0| 3d bb 28 24 53 74 61 72 | 74 5f 4f 25 29 0d 03 d4 |=.($Star|t_O%)...|
|00000bf0| 25 20 53 74 61 72 74 5f | 4f 25 3d 53 74 61 72 74 |% Start_|O%=Start|
|00000c00| 5f 4f 25 2b a9 28 24 53 | 74 61 72 74 5f 4f 25 29 |_O%+.($S|tart_O%)|
|00000c10| 2b 31 0d 03 de 19 20 52 | 5f 4e 75 6d 62 25 3d bb |+1.... R|_Numb%=.|
|00000c20| 28 24 53 74 61 72 74 5f | 52 25 29 0d 03 e8 25 20 |($Start_|R%)...% |
|00000c30| 53 74 61 72 74 5f 52 25 | 3d 53 74 61 72 74 5f 52 |Start_R%|=Start_R|
|00000c40| 25 2b a9 28 24 53 74 61 | 72 74 5f 52 25 29 2b 31 |%+.($Sta|rt_R%)+1|
|00000c50| 0d 03 f2 19 20 57 5f 4e | 75 6d 62 25 3d bb 28 24 |.... W_N|umb%=.($|
|00000c60| 53 74 61 72 74 5f 57 25 | 29 0d 03 fc 25 20 53 74 |Start_W%|)...% St|
|00000c70| 61 72 74 5f 57 25 3d 53 | 74 61 72 74 5f 57 25 2b |art_W%=S|tart_W%+|
|00000c80| a9 28 24 53 74 61 72 74 | 5f 57 25 29 2b 31 0d 04 |.($Start|_W%)+1..|
|00000c90| 06 04 0d 04 10 04 0d 04 | 1a 60 20 de 20 4f 62 6a |........|.` . Obj|
|00000ca0| 65 63 74 24 28 4f 5f 4e | 75 6d 62 25 29 2c 20 4c |ect$(O_N|umb%), L|
|00000cb0| 69 73 74 24 28 4f 5f 4e | 75 6d 62 25 29 2c 20 4c |ist$(O_N|umb%), L|
|00000cc0| 6f 63 61 74 69 6f 6e 25 | 28 4f 5f 4e 75 6d 62 25 |ocation%|(O_Numb%|
|00000cd0| 29 2c 20 57 65 69 67 68 | 74 25 28 4f 5f 4e 75 6d |), Weigh|t%(O_Num|
|00000ce0| 62 25 29 2c 20 45 78 61 | 6d 69 6e 65 24 28 4f 5f |b%), Exa|mine$(O_|
|00000cf0| 4e 75 6d 62 25 29 0d 04 | 24 54 20 de 20 52 6f 6f |Numb%)..|$T . Roo|
|00000d00| 6d 24 28 52 5f 4e 75 6d | 62 25 29 2c 4c 69 67 68 |m$(R_Num|b%),Ligh|
|00000d10| 74 25 28 52 5f 4e 75 6d | 62 25 29 2c 4e 6f 72 74 |t%(R_Num|b%),Nort|
|00000d20| 68 25 28 52 5f 4e 75 6d | 62 25 29 2c 45 61 73 74 |h%(R_Num|b%),East|
|00000d30| 25 28 52 5f 4e 75 6d 62 | 25 29 2c 53 6f 75 74 68 |%(R_Numb|%),South|
|00000d40| 25 28 52 5f 4e 75 6d 62 | 25 29 0d 04 2e 31 20 de |%(R_Numb|%)...1 .|
|00000d50| 20 57 65 73 74 25 28 52 | 5f 4e 75 6d 62 25 29 2c | West%(R|_Numb%),|
|00000d60| 55 70 25 28 52 5f 4e 75 | 6d 62 25 29 2c 44 6f 77 |Up%(R_Nu|mb%),Dow|
|00000d70| 6e 25 28 52 5f 4e 75 6d | 62 25 29 0d 04 38 29 20 |n%(R_Num|b%)..8) |
|00000d80| de 20 57 6f 72 64 24 28 | 57 5f 4e 75 6d 62 25 29 |. Word$(|W_Numb%)|
|00000d90| 2c 55 73 65 64 5f 57 6f | 72 64 25 28 57 5f 4e 75 |,Used_Wo|rd%(W_Nu|
|00000da0| 6d 62 25 29 0d 04 42 18 | 20 de 20 55 73 65 64 5f |mb%)..B.| . Used_|
|00000db0| 43 6f 6d 6d 61 6e 64 25 | 28 31 33 29 0d 04 4c 12 |Command%|(13)..L.|
|00000dc0| 20 de 20 53 74 6f 72 65 | 25 28 31 30 30 29 0d 04 | . Store|%(100)..|
|00000dd0| 56 16 20 e3 20 4e 75 6d | 62 65 72 25 3d 30 20 b8 |V. . Num|ber%=0 .|
|00000de0| 20 31 30 30 0d 04 60 17 | 20 20 53 74 6f 72 65 25 | 100..`.| Store%|
|00000df0| 28 4e 75 6d 62 65 72 25 | 29 3d 30 0d 04 6a 06 20 |(Number%|)=0..j. |
|00000e00| ed 0d 04 74 04 0d 04 7e | 36 20 f4 20 53 74 6f 72 |...t...~|6 . Stor|
|00000e10| 65 20 20 30 20 3d 20 6c | 69 67 68 74 20 73 6f 75 |e 0 = l|ight sou|
|00000e20| 72 63 65 20 63 61 72 72 | 69 65 64 20 61 6e 64 20 |rce carr|ied and |
|00000e30| 73 77 69 74 63 68 65 64 | 20 6f 6e 0d 04 88 1e 20 |switched| on.... |
|00000e40| f4 20 20 20 20 20 20 20 | 20 31 20 3d 20 77 65 69 |. | 1 = wei|
|00000e50| 67 68 74 20 6c 69 6d 69 | 74 0d 04 92 20 20 f4 20 |ght limi|t... . |
|00000e60| 20 20 20 20 20 20 20 32 | 20 3d 20 77 65 69 67 68 | 2| = weigh|
|00000e70| 74 20 63 61 72 72 69 65 | 64 0d 04 9c 21 20 f4 20 |t carrie|d...! . |
|00000e80| 20 20 20 20 20 20 20 33 | 20 3d 20 70 6c 61 79 65 | 3| = playe|
|00000e90| 72 20 6c 6f 63 61 74 69 | 6f 6e 0d 04 a6 04 0d 04 |r locati|on......|
|00000ea0| b0 09 20 eb 20 31 35 0d | 04 ba 06 20 db 0d 04 c4 |.. . 15.|... ....|
|00000eb0| 08 20 ef 20 35 0d 04 ce | 04 0d 04 d8 16 20 50 6f |. . 5...|..... Po|
|00000ec0| 69 6e 74 65 72 25 3d 53 | 74 61 72 74 5f 54 25 0d |inter%=S|tart_T%.|
|00000ed0| 04 e2 04 0d 04 ec 10 20 | e6 20 34 39 20 c8 9c 20 |....... |. 49 .. |
|00000ee0| 31 39 32 0d 04 f6 14 20 | 54 65 78 74 24 3d 24 50 |192.... |Text$=$P|
|00000ef0| 6f 69 6e 74 65 72 25 0d | 05 00 21 20 50 6f 69 6e |ointer%.|..! Poin|
|00000f00| 74 65 72 25 3d 50 6f 69 | 6e 74 65 72 25 2b a9 28 |ter%=Poi|nter%+.(|
|00000f10| 54 65 78 74 24 29 2b 31 | 0d 05 0a 3d 20 e7 20 a9 |Text$)+1|...= . .|
|00000f20| 28 54 65 78 74 24 29 3e | 37 38 20 8c 20 f2 5f 52 |(Text$)>|78 . ._R|
|00000f30| 65 70 6f 72 74 28 22 4c | 69 6e 65 20 69 6e 20 74 |eport("L|ine in t|
|00000f40| 69 74 6c 65 20 66 69 6c | 65 20 74 6f 6f 20 6c 6f |itle fil|e too lo|
|00000f50| 6e 67 2e 22 29 0d 05 14 | 1b 20 ef 20 32 33 2c 31 |ng.")...|. . 23,1|
|00000f60| 37 2c 37 2c 36 2c 31 32 | 3b 31 36 3b 30 3b 30 3b |7,7,6,12|;16;0;0;|
|00000f70| 0d 05 1e 1c 20 ec 20 36 | 34 30 2d a9 28 54 65 78 |.... . 6|40-.(Tex|
|00000f80| 74 24 29 2f 32 2a 32 34 | 2c 39 31 32 0d 05 28 0c |t$)/2*24|,912..(.|
|00000f90| 20 f1 20 54 65 78 74 24 | 0d 05 32 04 0d 05 3c 10 | . Text$|..2...<.|
|00000fa0| 20 e6 20 31 33 20 c8 9c | 20 31 32 38 0d 05 46 2f | . 13 ..| 128..F/|
|00000fb0| 20 c8 93 20 36 31 36 2d | a9 28 54 65 78 74 24 29 | .. 616-|.(Text$)|
|00000fc0| 2f 32 2a 32 34 2c 38 34 | 30 2c a9 28 54 65 78 74 |/2*24,84|0,.(Text|
|00000fd0| 24 29 2a 32 34 2b 34 38 | 2c 38 34 0d 05 50 2f 20 |$)*24+48|,84..P/ |
|00000fe0| c8 93 20 36 31 38 2d a9 | 28 54 65 78 74 24 29 2f |.. 618-.|(Text$)/|
|00000ff0| 32 2a 32 34 2c 38 34 30 | 2c a9 28 54 65 78 74 24 |2*24,840|,.(Text$|
|00001000| 29 2a 32 34 2b 34 38 2c | 38 34 0d 05 5a 04 0d 05 |)*24+48,|84..Z...|
|00001010| 64 10 20 e6 20 31 38 20 | c8 9c 20 31 32 38 0d 05 |d. . 18 |.. 128..|
|00001020| 6e 19 20 ef 20 32 33 2c | 31 37 2c 37 2c 36 2c 38 |n. . 23,|17,7,6,8|
|00001030| 3b 38 3b 30 3b 30 3b 0d | 05 78 0e 20 ec 20 36 32 |;8;0;0;.|.x. . 62|
|00001040| 34 2c 38 32 38 0d 05 82 | 0a 20 f1 22 62 79 22 0d |4,828...|. ."by".|
|00001050| 05 8c 04 0d 05 96 10 20 | e6 20 32 33 20 c8 9c 20 |....... |. 23 .. |
|00001060| 31 39 32 0d 05 a0 14 20 | 54 65 78 74 24 3d 24 50 |192.... |Text$=$P|
|00001070| 6f 69 6e 74 65 72 25 0d | 05 aa 21 20 50 6f 69 6e |ointer%.|..! Poin|
|00001080| 74 65 72 25 3d 50 6f 69 | 6e 74 65 72 25 2b a9 28 |ter%=Poi|nter%+.(|
|00001090| 54 65 78 74 24 29 2b 31 | 0d 05 b4 3d 20 e7 20 a9 |Text$)+1|...= . .|
|000010a0| 28 54 65 78 74 24 29 3e | 37 38 20 8c 20 f2 5f 52 |(Text$)>|78 . ._R|
|000010b0| 65 70 6f 72 74 28 22 4c | 69 6e 65 20 69 6e 20 74 |eport("L|ine in t|
|000010c0| 69 74 6c 65 20 66 69 6c | 65 20 74 6f 6f 20 6c 6f |itle fil|e too lo|
|000010d0| 6e 67 2e 22 29 0d 05 be | 1c 20 ec 20 36 34 30 2d |ng.")...|. . 640-|
|000010e0| a9 28 54 65 78 74 24 29 | 2f 32 2a 31 36 2c 37 38 |.(Text$)|/2*16,78|
|000010f0| 34 0d 05 c8 0c 20 f1 20 | 54 65 78 74 24 0d 05 d2 |4.... . |Text$...|
|00001100| 04 0d 05 dc 14 20 54 65 | 78 74 24 3d 24 50 6f 69 |..... Te|xt$=$Poi|
|00001110| 6e 74 65 72 25 0d 05 e6 | 21 20 50 6f 69 6e 74 65 |nter%...|! Pointe|
|00001120| 72 25 3d 50 6f 69 6e 74 | 65 72 25 2b a9 28 54 65 |r%=Point|er%+.(Te|
|00001130| 78 74 24 29 2b 31 0d 05 | f0 15 20 54 65 78 74 32 |xt$)+1..|.. Text2|
|00001140| 24 3d 24 50 6f 69 6e 74 | 65 72 25 0d 05 fa 22 20 |$=$Point|er%..." |
|00001150| 50 6f 69 6e 74 65 72 25 | 3d 50 6f 69 6e 74 65 72 |Pointer%|=Pointer|
|00001160| 25 2b a9 28 54 65 78 74 | 32 24 29 2b 31 0d 06 04 |%+.(Text|2$)+1...|
|00001170| 20 20 54 65 78 74 24 3d | bd 31 36 39 2b 54 65 78 | Text$=|.169+Tex|
|00001180| 74 24 2b 22 20 22 2b 54 | 65 78 74 32 24 0d 06 0e |t$+" "+T|ext2$...|
|00001190| 3d 20 e7 20 a9 28 54 65 | 78 74 24 29 3e 37 38 20 |= . .(Te|xt$)>78 |
|000011a0| 8c 20 f2 5f 52 65 70 6f | 72 74 28 22 4c 69 6e 65 |. ._Repo|rt("Line|
|000011b0| 20 69 6e 20 74 69 74 6c | 65 20 66 69 6c 65 20 74 | in titl|e file t|
|000011c0| 6f 6f 20 6c 6f 6e 67 2e | 22 29 0d 06 18 1c 20 ec |oo long.|").... .|
|000011d0| 20 36 34 30 2d a9 28 54 | 65 78 74 24 29 2f 32 2a | 640-.(T|ext$)/2*|
|000011e0| 31 36 2c 37 34 30 0d 06 | 22 0c 20 f1 20 54 65 78 |16,740..|". . Tex|
|000011f0| 74 24 0d 06 2c 04 0d 06 | 36 10 20 e6 20 32 34 20 |t$..,...|6. . 24 |
|00001200| c8 9c 20 31 39 32 0d 06 | 40 0e 20 e3 20 79 3d 31 |.. 192..|@. . y=1|
|00001210| 20 b8 20 36 0d 06 4a 15 | 20 20 54 65 78 74 24 3d | . 6..J.| Text$=|
|00001220| 24 50 6f 69 6e 74 65 72 | 25 0d 06 54 22 20 20 50 |$Pointer|%..T" P|
|00001230| 6f 69 6e 74 65 72 25 3d | 50 6f 69 6e 74 65 72 25 |ointer%=|Pointer%|
|00001240| 2b a9 28 54 65 78 74 24 | 29 2b 31 0d 06 5e 3e 20 |+.(Text$|)+1..^> |
|00001250| 20 e7 20 a9 28 54 65 78 | 74 24 29 3e 37 38 20 8c | . .(Tex|t$)>78 .|
|00001260| 20 f2 5f 52 65 70 6f 72 | 74 28 22 4c 69 6e 65 20 | ._Repor|t("Line |
|00001270| 69 6e 20 74 69 74 6c 65 | 20 66 69 6c 65 20 74 6f |in title| file to|
|00001280| 6f 20 6c 6f 6e 67 2e 22 | 29 0d 06 68 22 20 20 ec |o long."|)..h" .|
|00001290| 20 36 34 30 2d a9 28 54 | 65 78 74 24 29 2f 32 2a | 640-.(T|ext$)/2*|
|000012a0| 31 36 2c 37 30 30 2d 79 | 2a 34 30 0d 06 72 0d 20 |16,700-y|*40..r. |
|000012b0| 20 f1 20 54 65 78 74 24 | 0d 06 7c 06 20 ed 0d 06 | . Text$|..|. ...|
|000012c0| 86 04 0d 06 90 32 20 c8 | 99 20 22 4f 53 5f 53 70 |.....2 .|. "OS_Sp|
|000012d0| 72 69 74 65 4f 70 22 2c | 32 39 30 2c 53 70 72 69 |riteOp",|290,Spri|
|000012e0| 74 65 25 2c 22 54 69 74 | 6c 65 22 2c 32 39 34 2c |te%,"Tit|le",294,|
|000012f0| 36 34 2c 30 0d 06 9a 04 | 0d 06 a4 15 20 e3 20 41 |64,0....|.... . A|
|00001300| 25 3d 30 20 b8 20 36 33 | 20 88 20 32 31 0d 06 ae |%=0 . 63| . 21...|
|00001310| 17 20 20 e3 20 42 25 3d | 30 20 b8 20 31 39 32 20 |. . B%=|0 . 192 |
|00001320| 88 20 36 34 0d 06 b8 11 | 20 20 20 e6 20 41 25 20 |. 64....| . A% |
|00001330| c8 9c 20 42 25 0d 06 c2 | 10 20 20 20 ec 20 35 35 |.. B%...|. . 55|
|00001340| 32 2c 34 30 30 0d 06 cc | 15 20 20 20 f1 22 50 72 |2,400...|. ."Pr|
|00001350| 65 73 73 20 53 50 41 43 | 45 22 0d 06 d6 15 20 20 |ess SPAC|E".... |
|00001360| 20 e3 20 43 25 3d 30 20 | b8 20 37 35 30 3a ed 0d | . C%=0 |. 750:..|
|00001370| 06 e0 07 20 20 ed 0d 06 | ea 06 20 ed 0d 06 f4 0d |... ...|.. .....|
|00001380| 20 f5 20 fd 20 a5 3d 33 | 32 0d 06 fe 0c 20 2a 46 | . . .=3|2.... *F|
|00001390| 58 31 35 2c 31 0d 07 08 | 07 20 ef 34 0d 07 12 06 |X15,1...|. .4....|
|000013a0| 20 87 0d 07 1c 04 0d 07 | 26 05 e1 0d 07 30 04 0d | .......|&....0..|
|000013b0| 07 3a 13 dd 20 a4 5f 53 | 69 7a 65 28 46 69 6c 65 |.:.. ._S|ize(File|
|000013c0| 24 29 0d 07 44 04 0d 07 | 4e 15 20 ea 20 48 61 6e |$)..D...|N. . Han|
|000013d0| 64 6c 65 25 2c 20 53 69 | 7a 65 25 0d 07 58 04 0d |dle%, Si|ze%..X..|
|000013e0| 07 62 2a 20 48 61 6e 64 | 6c 65 25 3d ad 28 22 3c |.b* Hand|le%=.("<|
|000013f0| 53 52 53 54 72 65 47 61 | 6d 65 24 50 61 74 68 3e |SRSTreGa|me$Path>|
|00001400| 2e 22 2b 46 69 6c 65 24 | 29 0d 07 6c 14 20 53 69 |."+File$|)..l. Si|
|00001410| 7a 65 25 3d a2 23 48 61 | 6e 64 6c 65 25 0d 07 76 |ze%=.#Ha|ndle%..v|
|00001420| 0e 20 d9 23 48 61 6e 64 | 6c 65 25 0d 07 80 04 0d |. .#Hand|le%.....|
|00001430| 07 8a 0a 3d 53 69 7a 65 | 25 0d 07 94 04 0d 07 9e |...=Size|%.......|
|00001440| 24 dd 20 a4 5f 4c 6f 61 | 64 28 46 69 6c 65 24 2c |$. ._Loa|d(File$,|
|00001450| 20 41 64 64 72 65 73 73 | 25 2c 20 53 69 7a 65 25 | Address|%, Size%|
|00001460| 29 0d 07 a8 04 0d 07 b2 | 16 20 ea 20 54 65 78 74 |).......|. . Text|
|00001470| 24 2c 20 50 6f 69 6e 74 | 65 72 25 0d 07 bc 04 0d |$, Point|er%.....|
|00001480| 07 c6 38 20 ff 28 22 4c | 4f 41 44 20 3c 53 52 53 |..8 .("L|OAD <SRS|
|00001490| 54 72 65 47 61 6d 65 24 | 50 61 74 68 3e 2e 22 2b |TreGame$|Path>."+|
|000014a0| 46 69 6c 65 24 2b 22 20 | 22 2b c3 7e 28 41 64 64 |File$+" |"+.~(Add|
|000014b0| 72 65 73 73 25 29 29 0d | 07 d0 04 0d 07 da 33 20 |ress%)).|......3 |
|000014c0| 44 75 6d 6d 79 25 3d a4 | 43 61 6c 6c 28 4c 66 54 |Dummy%=.|Call(LfT|
|000014d0| 6f 43 72 25 2c 41 64 64 | 72 65 73 73 25 2c 53 69 |oCr%,Add|ress%,Si|
|000014e0| 7a 65 25 2c 30 2c 30 2c | 30 2c 30 2c 30 29 0d 07 |ze%,0,0,|0,0,0)..|
|000014f0| e4 04 0d 07 ee 16 20 50 | 6f 69 6e 74 65 72 25 3d |...... P|ointer%=|
|00001500| 41 64 64 72 65 73 73 25 | 0d 07 f8 04 0d 08 02 06 |Address%|........|
|00001510| 20 f5 0d 08 0c 15 20 20 | 54 65 78 74 24 3d 24 50 | ..... |Text$=$P|
|00001520| 6f 69 6e 74 65 72 25 0d | 08 16 22 20 20 50 6f 69 |ointer%.|.." Poi|
|00001530| 6e 74 65 72 25 3d 50 6f | 69 6e 74 65 72 25 2b a9 |nter%=Po|inter%+.|
|00001540| 28 54 65 78 74 24 29 2b | 31 0d 08 20 11 20 fd 20 |(Text$)+|1.. . . |
|00001550| a9 28 54 65 78 74 24 29 | 3d 30 0d 08 2a 04 0d 08 |.(Text$)|=0..*...|
|00001560| 34 0d 3d 50 6f 69 6e 74 | 65 72 25 0d 08 3e 04 0d |4.=Point|er%..>..|
|00001570| 08 48 0f dd 20 f2 5f 4e | 65 77 47 61 6d 65 0d 08 |.H.. ._N|ewGame..|
|00001580| 52 04 0d 08 5c 09 20 eb | 20 31 32 0d 08 66 06 20 |R...\. .| 12..f. |
|00001590| 87 0d 08 70 04 0d 08 7a | 14 20 50 6f 73 5f 4f 25 |...p...z|. Pos_O%|
|000015a0| 3d 53 74 61 72 74 5f 4f | 25 0d 08 84 1a 20 e3 20 |=Start_O|%.... . |
|000015b0| 4e 75 6d 62 65 72 25 3d | 31 20 b8 20 4f 5f 4e 75 |Number%=|1 . O_Nu|
|000015c0| 6d 62 25 0d 08 8e 2c 20 | 20 54 65 78 74 24 3d 24 |mb%..., | Text$=$|
|000015d0| 50 6f 73 5f 4f 25 3a 50 | 6f 73 5f 4f 25 3d 50 6f |Pos_O%:P|os_O%=Po|
|000015e0| 73 5f 4f 25 2b a9 28 54 | 65 78 74 24 29 2b 31 0d |s_O%+.(T|ext$)+1.|
|000015f0| 08 98 43 20 20 54 65 78 | 74 24 3d 24 50 6f 73 5f |..C Tex|t$=$Pos_|
|00001600| 4f 25 3a 50 6f 73 5f 4f | 25 3d 50 6f 73 5f 4f 25 |O%:Pos_O|%=Pos_O%|
|00001610| 2b a9 28 54 65 78 74 24 | 29 2b 31 3a 4f 62 6a 65 |+.(Text$|)+1:Obje|
|00001620| 63 74 24 28 4e 75 6d 62 | 65 72 25 29 3d 54 65 78 |ct$(Numb|er%)=Tex|
|00001630| 74 24 0d 08 a2 41 20 20 | 54 65 78 74 24 3d 24 50 |t$...A |Text$=$P|
|00001640| 6f 73 5f 4f 25 3a 50 6f | 73 5f 4f 25 3d 50 6f 73 |os_O%:Po|s_O%=Pos|
|00001650| 5f 4f 25 2b a9 28 54 65 | 78 74 24 29 2b 31 3a 4c |_O%+.(Te|xt$)+1:L|
|00001660| 69 73 74 24 28 4e 75 6d | 62 65 72 25 29 3d 54 65 |ist$(Num|ber%)=Te|
|00001670| 78 74 24 0d 08 ac 48 20 | 20 54 65 78 74 24 3d 24 |xt$...H | Text$=$|
|00001680| 50 6f 73 5f 4f 25 3a 50 | 6f 73 5f 4f 25 3d 50 6f |Pos_O%:P|os_O%=Po|
|00001690| 73 5f 4f 25 2b a9 28 54 | 65 78 74 24 29 2b 31 3a |s_O%+.(T|ext$)+1:|
|000016a0| 4c 6f 63 61 74 69 6f 6e | 25 28 4e 75 6d 62 65 72 |Location|%(Number|
|000016b0| 25 29 3d bb 28 54 65 78 | 74 24 29 0d 08 b6 46 20 |%)=.(Tex|t$)...F |
|000016c0| 20 54 65 78 74 24 3d 24 | 50 6f 73 5f 4f 25 3a 50 | Text$=$|Pos_O%:P|
|000016d0| 6f 73 5f 4f 25 3d 50 6f | 73 5f 4f 25 2b a9 28 54 |os_O%=Po|s_O%+.(T|
|000016e0| 65 78 74 24 29 2b 31 3a | 57 65 69 67 68 74 25 28 |ext$)+1:|Weight%(|
|000016f0| 4e 75 6d 62 65 72 25 29 | 3d bb 28 54 65 78 74 24 |Number%)|=.(Text$|
|00001700| 29 0d 08 c0 44 20 20 54 | 65 78 74 24 3d 24 50 6f |)...D T|ext$=$Po|
|00001710| 73 5f 4f 25 3a 50 6f 73 | 5f 4f 25 3d 50 6f 73 5f |s_O%:Pos|_O%=Pos_|
|00001720| 4f 25 2b a9 28 54 65 78 | 74 24 29 2b 31 3a 45 78 |O%+.(Tex|t$)+1:Ex|
|00001730| 61 6d 69 6e 65 24 28 4e | 75 6d 62 65 72 25 29 3d |amine$(N|umber%)=|
|00001740| 54 65 78 74 24 0d 08 ca | 06 20 ed 0d 08 d4 04 0d |Text$...|. ......|
|00001750| 08 de 14 20 50 6f 73 5f | 57 25 3d 53 74 61 72 74 |... Pos_|W%=Start|
|00001760| 5f 57 25 0d 08 e8 1a 20 | e3 20 4e 75 6d 62 65 72 |_W%.... |. Number|
|00001770| 25 3d 31 20 b8 20 57 5f | 4e 75 6d 62 25 0d 08 f2 |%=1 . W_|Numb%...|
|00001780| 41 20 20 54 65 78 74 24 | 3d 24 50 6f 73 5f 57 25 |A Text$|=$Pos_W%|
|00001790| 3a 50 6f 73 5f 57 25 3d | 50 6f 73 5f 57 25 2b a9 |:Pos_W%=|Pos_W%+.|
|000017a0| 28 54 65 78 74 24 29 2b | 31 3a 57 6f 72 64 24 28 |(Text$)+|1:Word$(|
|000017b0| 4e 75 6d 62 65 72 25 29 | 3d 54 65 78 74 24 0d 08 |Number%)|=Text$..|
|000017c0| fc 1b 20 20 55 73 65 64 | 5f 57 6f 72 64 25 28 4e |.. Used|_Word%(N|
|000017d0| 75 6d 62 65 72 25 29 3d | a3 0d 09 06 06 20 ed 0d |umber%)=|..... ..|
|000017e0| 09 10 04 0d 09 1a 14 20 | 50 6f 73 5f 52 25 3d 53 |....... |Pos_R%=S|
|000017f0| 74 61 72 74 5f 52 25 0d | 09 24 1a 20 e3 20 4e 75 |tart_R%.|.$. . Nu|
|00001800| 6d 62 65 72 25 3d 31 20 | b8 20 52 5f 4e 75 6d 62 |mber%=1 |. R_Numb|
|00001810| 25 0d 09 2e 2c 20 20 54 | 65 78 74 24 3d 24 50 6f |%..., T|ext$=$Po|
|00001820| 73 5f 52 25 3a 50 6f 73 | 5f 52 25 3d 50 6f 73 5f |s_R%:Pos|_R%=Pos_|
|00001830| 52 25 2b a9 28 54 65 78 | 74 24 29 2b 31 0d 09 38 |R%+.(Tex|t$)+1..8|
|00001840| 41 20 20 54 65 78 74 24 | 3d 24 50 6f 73 5f 52 25 |A Text$|=$Pos_R%|
|00001850| 3a 50 6f 73 5f 52 25 3d | 50 6f 73 5f 52 25 2b a9 |:Pos_R%=|Pos_R%+.|
|00001860| 28 54 65 78 74 24 29 2b | 31 3a 52 6f 6f 6d 24 28 |(Text$)+|1:Room$(|
|00001870| 4e 75 6d 62 65 72 25 29 | 3d 54 65 78 74 24 0d 09 |Number%)|=Text$..|
|00001880| 42 2c 20 20 54 65 78 74 | 24 3d 24 50 6f 73 5f 52 |B, Text|$=$Pos_R|
|00001890| 25 3a 50 6f 73 5f 52 25 | 3d 50 6f 73 5f 52 25 2b |%:Pos_R%|=Pos_R%+|
|000018a0| a9 28 54 65 78 74 24 29 | 2b 31 0d 09 4c 17 20 20 |.(Text$)|+1..L. |
|000018b0| 4c 69 67 68 74 25 28 4e | 75 6d 62 65 72 25 29 3d |Light%(N|umber%)=|
|000018c0| a3 0d 09 56 3a 20 20 4e | 6f 72 74 68 25 28 4e 75 |...V: N|orth%(Nu|
|000018d0| 6d 62 65 72 25 29 3d 30 | 3a 45 61 73 74 25 28 4e |mber%)=0|:East%(N|
|000018e0| 75 6d 62 65 72 25 29 3d | 30 3a 53 6f 75 74 68 25 |umber%)=|0:South%|
|000018f0| 28 4e 75 6d 62 65 72 25 | 29 3d 30 0d 09 60 36 20 |(Number%|)=0..`6 |
|00001900| 20 57 65 73 74 25 28 4e | 75 6d 62 65 72 25 29 3d | West%(N|umber%)=|
|00001910| 30 3a 55 70 25 28 4e 75 | 6d 62 65 72 25 29 3d 30 |0:Up%(Nu|mber%)=0|
|00001920| 3a 44 6f 77 6e 25 28 4e | 75 6d 62 65 72 25 29 3d |:Down%(N|umber%)=|
|00001930| 30 0d 09 6a 29 20 20 e7 | 20 a7 54 65 78 74 24 2c |0..j) .| .Text$,|
|00001940| 22 4c 22 29 3e 30 20 8c | 20 4c 69 67 68 74 25 28 |"L")>0 .| Light%(|
|00001950| 4e 75 6d 62 65 72 25 29 | 3d b9 0d 09 74 17 20 20 |Number%)|=...t. |
|00001960| 50 6f 73 6e 25 3d a7 54 | 65 78 74 24 2c 22 4e 22 |Posn%=.T|ext$,"N"|
|00001970| 29 0d 09 7e 3b 20 20 e7 | 20 50 6f 73 6e 25 3e 30 |)..~; .| Posn%>0|
|00001980| 20 8c 20 4e 6f 72 74 68 | 25 28 4e 75 6d 62 65 72 | . North|%(Number|
|00001990| 25 29 3d bb 28 c2 54 65 | 78 74 24 2c a9 28 54 65 |%)=.(.Te|xt$,.(Te|
|000019a0| 78 74 24 29 2d 50 6f 73 | 6e 25 29 29 0d 09 88 17 |xt$)-Pos|n%))....|
|000019b0| 20 20 50 6f 73 6e 25 3d | a7 54 65 78 74 24 2c 22 | Posn%=|.Text$,"|
|000019c0| 45 22 29 0d 09 92 3a 20 | 20 e7 20 50 6f 73 6e 25 |E")...: | . Posn%|
|000019d0| 3e 30 20 8c 20 45 61 73 | 74 25 28 4e 75 6d 62 65 |>0 . Eas|t%(Numbe|
|000019e0| 72 25 29 3d bb 28 c2 54 | 65 78 74 24 2c a9 28 54 |r%)=.(.T|ext$,.(T|
|000019f0| 65 78 74 24 29 2d 50 6f | 73 6e 25 29 29 0d 09 9c |ext$)-Po|sn%))...|
|00001a00| 17 20 20 50 6f 73 6e 25 | 3d a7 54 65 78 74 24 2c |. Posn%|=.Text$,|
|00001a10| 22 53 22 29 0d 09 a6 3b | 20 20 e7 20 50 6f 73 6e |"S")...;| . Posn|
|00001a20| 25 3e 30 20 8c 20 53 6f | 75 74 68 25 28 4e 75 6d |%>0 . So|uth%(Num|
|00001a30| 62 65 72 25 29 3d bb 28 | c2 54 65 78 74 24 2c a9 |ber%)=.(|.Text$,.|
|00001a40| 28 54 65 78 74 24 29 2d | 50 6f 73 6e 25 29 29 0d |(Text$)-|Posn%)).|
|00001a50| 09 b0 17 20 20 50 6f 73 | 6e 25 3d a7 54 65 78 74 |... Pos|n%=.Text|
|00001a60| 24 2c 22 57 22 29 0d 09 | ba 3a 20 20 e7 20 50 6f |$,"W")..|.: . Po|
|00001a70| 73 6e 25 3e 30 20 8c 20 | 57 65 73 74 25 28 4e 75 |sn%>0 . |West%(Nu|
|00001a80| 6d 62 65 72 25 29 3d bb | 28 c2 54 65 78 74 24 2c |mber%)=.|(.Text$,|
|00001a90| a9 28 54 65 78 74 24 29 | 2d 50 6f 73 6e 25 29 29 |.(Text$)|-Posn%))|
|00001aa0| 0d 09 c4 17 20 20 50 6f | 73 6e 25 3d a7 54 65 78 |.... Po|sn%=.Tex|
|00001ab0| 74 24 2c 22 55 22 29 0d | 09 ce 38 20 20 e7 20 50 |t$,"U").|..8 . P|
|00001ac0| 6f 73 6e 25 3e 30 20 8c | 20 55 70 25 28 4e 75 6d |osn%>0 .| Up%(Num|
|00001ad0| 62 65 72 25 29 3d bb 28 | c2 54 65 78 74 24 2c a9 |ber%)=.(|.Text$,.|
|00001ae0| 28 54 65 78 74 24 29 2d | 50 6f 73 6e 25 29 29 0d |(Text$)-|Posn%)).|
|00001af0| 09 d8 17 20 20 50 6f 73 | 6e 25 3d a7 54 65 78 74 |... Pos|n%=.Text|
|00001b00| 24 2c 22 44 22 29 0d 09 | e2 3a 20 20 e7 20 50 6f |$,"D")..|.: . Po|
|00001b10| 73 6e 25 3e 30 20 8c 20 | 44 6f 77 6e 25 28 4e 75 |sn%>0 . |Down%(Nu|
|00001b20| 6d 62 65 72 25 29 3d bb | 28 c2 54 65 78 74 24 2c |mber%)=.|(.Text$,|
|00001b30| a9 28 54 65 78 74 24 29 | 2d 50 6f 73 6e 25 29 29 |.(Text$)|-Posn%))|
|00001b40| 0d 09 ec 06 20 ed 0d 09 | f6 04 0d 0a 00 10 20 53 |.... ...|...... S|
|00001b50| 74 6f 72 65 25 28 33 29 | 3d 31 0d 0a 0a 14 20 50 |tore%(3)|=1.... P|
|00001b60| 6f 73 5f 53 25 3d 53 74 | 61 72 74 5f 53 25 0d 0a |os_S%=St|art_S%..|
|00001b70| 14 15 20 43 6f 6e 64 69 | 74 69 6f 6e 53 74 61 74 |.. Condi|tionStat|
|00001b80| 25 3d 30 0d 0a 1e 11 20 | 43 6f 6d 6d 61 6e 64 32 |%=0.... |Command2|
|00001b90| 24 3d 22 22 0d 0a 28 0d | 20 4d 6f 76 65 64 25 3d |$=""..(.| Moved%=|
|00001ba0| a3 0d 0a 32 04 0d 0a 3c | 05 e1 0d 0a 46 04 0d 0a |...2...<|....F...|
|00001bb0| 50 12 dd 20 f2 5f 52 65 | 61 64 53 63 72 69 70 74 |P.. ._Re|adScript|
|00001bc0| 0d 0a 5a 04 0d 0a 64 06 | 20 f5 0d 0a 6e 04 0d 0a |..Z...d.| ...n...|
|00001bd0| 78 15 20 e7 20 43 6f 6d | 6d 61 6e 64 32 24 3d 22 |x. . Com|mand2$="|
|00001be0| 22 20 8c 0d 0a 82 04 0d | 0a 8c 07 20 20 f5 0d 0a |" ......|... ...|
|00001bf0| 96 14 20 20 20 4c 69 6e | 65 24 3d 24 50 6f 73 5f |.. Lin|e$=$Pos_|
|00001c00| 53 25 0d 0a a0 1f 20 20 | 20 50 6f 73 5f 53 25 3d |S%.... | Pos_S%=|
|00001c10| 50 6f 73 5f 53 25 2b a9 | 28 4c 69 6e 65 24 29 2b |Pos_S%+.|(Line$)+|
|00001c20| 31 0d 0a aa 1b 20 20 20 | 4c 69 6e 65 24 3d a4 5f |1.... |Line$=._|
|00001c30| 53 74 72 69 70 28 4c 69 | 6e 65 24 29 0d 0a b4 11 |Strip(Li|ne$)....|
|00001c40| 20 20 fd 20 4c 69 6e 65 | 24 3c 3e 22 22 0d 0a be | . Line|$<>""...|
|00001c50| 04 0d 0a c8 06 20 cc 0d | 0a d2 04 0d 0a dc 15 20 |..... ..|....... |
|00001c60| 20 4c 69 6e 65 24 3d 43 | 6f 6d 6d 61 6e 64 32 24 | Line$=C|ommand2$|
|00001c70| 0d 0a e6 12 20 20 43 6f | 6d 6d 61 6e 64 32 24 3d |.... Co|mmand2$=|
|00001c80| 22 22 0d 0a f0 04 0d 0a | fa 06 20 cd 0d 0b 04 04 |""......|.. .....|
|00001c90| 0d 0b 0e 1a 20 20 4c 69 | 6e 65 24 3d a4 5f 53 74 |.... Li|ne$=._St|
|00001ca0| 72 69 70 28 4c 69 6e 65 | 24 29 0d 0b 18 11 20 20 |rip(Line|$).... |
|00001cb0| 43 6f 6d 6d 61 6e 64 24 | 3d 22 22 0d 0b 22 0f 20 |Command$|=""..". |
|00001cc0| 20 50 61 72 61 6d 24 3d | 22 22 0d 0b 2c 16 20 20 | Param$=|""..,. |
|00001cd0| 4c 65 6e 67 74 68 25 3d | a9 28 4c 69 6e 65 24 29 |Length%=|.(Line$)|
|00001ce0| 0d 0b 36 04 0d 0b 40 1a | 20 20 e7 20 c0 4c 69 6e |..6...@.| . .Lin|
|00001cf0| 65 24 2c 34 29 3d 22 53 | 54 4f 50 22 20 8c 0d 0b |e$,4)="S|TOP" ...|
|00001d00| 4a 16 20 20 20 43 6f 6d | 6d 61 6e 64 24 3d 22 53 |J. Com|mand$="S|
|00001d10| 54 4f 50 22 0d 0b 54 10 | 20 20 20 50 61 72 61 6d |TOP"..T.| Param|
|00001d20| 24 3d 22 22 0d 0b 5e 07 | 20 20 cd 0d 0b 68 04 0d |$=""..^.| ...h..|
|00001d30| 0b 72 04 0d 0b 7c 19 20 | 20 e7 20 c0 4c 69 6e 65 |.r...|. | . .Line|
|00001d40| 24 2c 33 29 3d 22 4c 45 | 54 22 20 8c 0d 0b 86 15 |$,3)="LE|T" .....|
|00001d50| 20 20 20 43 6f 6d 6d 61 | 6e 64 24 3d 22 4c 45 54 | Comma|nd$="LET|
|00001d60| 22 0d 0b 90 1f 20 20 20 | 50 61 72 61 6d 24 3d c2 |".... |Param$=.|
|00001d70| 4c 69 6e 65 24 2c 4c 65 | 6e 67 74 68 25 2d 33 29 |Line$,Le|ngth%-3)|
|00001d80| 0d 0b 9a 07 20 20 cd 0d | 0b a4 04 0d 0b ae 17 20 |.... ..|....... |
|00001d90| 20 e7 20 c0 4c 69 6e 65 | 24 2c 31 29 3d 22 3a 22 | . .Line|$,1)=":"|
|00001da0| 20 8c 0d 0b b8 13 20 20 | 20 43 6f 6d 6d 61 6e 64 | ..... | Command|
|00001db0| 24 3d 22 3a 22 0d 0b c2 | 1f 20 20 20 50 61 72 61 |$=":"...|. Para|
|00001dc0| 6d 24 3d c2 4c 69 6e 65 | 24 2c 4c 65 6e 67 74 68 |m$=.Line|$,Length|
|00001dd0| 25 2d 31 29 0d 0b cc 07 | 20 20 cd 0d 0b d6 04 0d |%-1)....| ......|
|00001de0| 0b e0 1a 20 20 e7 20 c0 | 4c 69 6e 65 24 2c 34 29 |... . .|Line$,4)|
|00001df0| 3d 22 47 4f 54 4f 22 20 | 8c 0d 0b ea 16 20 20 20 |="GOTO" |..... |
|00001e00| 43 6f 6d 6d 61 6e 64 24 | 3d 22 47 4f 54 4f 22 0d |Command$|="GOTO".|
|00001e10| 0b f4 1f 20 20 20 50 61 | 72 61 6d 24 3d c2 4c 69 |... Pa|ram$=.Li|
|00001e20| 6e 65 24 2c 4c 65 6e 67 | 74 68 25 2d 34 29 0d 0b |ne$,Leng|th%-4)..|
|00001e30| fe 07 20 20 cd 0d 0c 08 | 04 0d 0c 12 19 20 20 e7 |.. ....|..... .|
|00001e40| 20 c0 4c 69 6e 65 24 2c | 33 29 3d 22 43 4c 53 22 | .Line$,|3)="CLS"|
|00001e50| 20 8c 0d 0c 1c 15 20 20 | 20 43 6f 6d 6d 61 6e 64 | ..... | Command|
|00001e60| 24 3d 22 43 4c 53 22 0d | 0c 26 10 20 20 20 50 61 |$="CLS".|.&. Pa|
|00001e70| 72 61 6d 24 3d 22 22 0d | 0c 30 07 20 20 cd 0d 0c |ram$="".|.0. ...|
|00001e80| 3a 04 0d 0c 44 1a 20 20 | e7 20 c0 4c 69 6e 65 24 |:...D. |. .Line$|
|00001e90| 2c 34 29 3d 22 4c 4f 4f | 4b 22 20 8c 0d 0c 4e 16 |,4)="LOO|K" ...N.|
|00001ea0| 20 20 20 43 6f 6d 6d 61 | 6e 64 24 3d 22 4c 4f 4f | Comma|nd$="LOO|
|00001eb0| 4b 22 0d 0c 58 10 20 20 | 20 50 61 72 61 6d 24 3d |K"..X. | Param$=|
|00001ec0| 22 22 0d 0c 62 07 20 20 | cd 0d 0c 6c 04 0d 0c 76 |""..b. |...l...v|
|00001ed0| 1b 20 20 e7 20 c0 4c 69 | 6e 65 24 2c 35 29 3d 22 |. . .Li|ne$,5)="|
|00001ee0| 49 4e 50 55 54 22 20 8c | 0d 0c 80 17 20 20 20 43 |INPUT" .|.... C|
|00001ef0| 6f 6d 6d 61 6e 64 24 3d | 22 49 4e 50 55 54 22 0d |ommand$=|"INPUT".|
|00001f00| 0c 8a 10 20 20 20 50 61 | 72 61 6d 24 3d 22 22 0d |... Pa|ram$="".|
|00001f10| 0c 94 07 20 20 cd 0d 0c | 9e 04 0d 0c a8 1d 20 20 |... ...|...... |
|00001f20| e7 20 c0 4c 69 6e 65 24 | 2c 37 29 3d 22 43 4f 4d |. .Line$|,7)="COM|
|00001f30| 4d 41 4e 44 22 20 8c 0d | 0c b2 19 20 20 20 43 6f |MAND" ..|... Co|
|00001f40| 6d 6d 61 6e 64 24 3d 22 | 43 4f 4d 4d 41 4e 44 22 |mmand$="|COMMAND"|
|00001f50| 0d 0c bc 10 20 20 20 50 | 61 72 61 6d 24 3d 22 22 |.... P|aram$=""|
|00001f60| 0d 0c c6 07 20 20 cd 0d | 0c d0 04 0d 0c da 1d 20 |.... ..|....... |
|00001f70| 20 e7 20 c0 4c 69 6e 65 | 24 2c 37 29 3d 22 52 45 | . .Line|$,7)="RE|
|00001f80| 53 54 41 52 54 22 20 8c | 0d 0c e4 19 20 20 20 43 |START" .|.... C|
|00001f90| 6f 6d 6d 61 6e 64 24 3d | 22 52 45 53 54 41 52 54 |ommand$=|"RESTART|
|00001fa0| 22 0d 0c ee 10 20 20 20 | 50 61 72 61 6d 24 3d 22 |".... |Param$="|
|00001fb0| 22 0d 0c f8 07 20 20 cd | 0d 0d 02 04 0d 0d 0c 1a |".... .|........|
|00001fc0| 20 20 e7 20 c0 4c 69 6e | 65 24 2c 34 29 3d 22 51 | . .Lin|e$,4)="Q|
|00001fd0| 55 49 54 22 20 8c 0d 0d | 16 16 20 20 20 43 6f 6d |UIT" ...|.. Com|
|00001fe0| 6d 61 6e 64 24 3d 22 51 | 55 49 54 22 0d 0d 20 10 |mand$="Q|UIT".. .|
|00001ff0| 20 20 20 50 61 72 61 6d | 24 3d 22 22 0d 0d 2a 07 | Param|$=""..*.|
|00002000| 20 20 cd 0d 0d 34 04 0d | 0d 3e 18 20 20 e7 20 c0 | ...4..|.>. . .|
|00002010| 4c 69 6e 65 24 2c 32 29 | 3d 22 49 46 22 20 8c 0d |Line$,2)|="IF" ..|
|00002020| 0d 48 14 20 20 20 43 6f | 6d 6d 61 6e 64 24 3d 22 |.H. Co|mmand$="|
|00002030| 49 46 22 0d 0d 52 1f 20 | 20 20 50 61 72 61 6d 24 |IF"..R. | Param$|
|00002040| 3d c2 4c 69 6e 65 24 2c | 4c 65 6e 67 74 68 25 2d |=.Line$,|Length%-|
|00002050| 32 29 0d 0d 5c 07 20 20 | cd 0d 0d 66 04 0d 0d 70 |2)..\. |...f...p|
|00002060| 1a 20 20 e7 20 c0 4c 69 | 6e 65 24 2c 34 29 3d 22 |. . .Li|ne$,4)="|
|00002070| 45 4c 53 45 22 20 8c 0d | 0d 7a 16 20 20 20 43 6f |ELSE" ..|.z. Co|
|00002080| 6d 6d 61 6e 64 24 3d 22 | 45 4c 53 45 22 0d 0d 84 |mmand$="|ELSE"...|
|00002090| 10 20 20 20 50 61 72 61 | 6d 24 3d 22 22 0d 0d 8e |. Para|m$=""...|
|000020a0| 07 20 20 cd 0d 0d 98 04 | 0d 0d a2 1c 20 20 e7 20 |. .....|.... . |
|000020b0| c0 4c 69 6e 65 24 2c 36 | 29 3d 22 45 4e 44 20 49 |.Line$,6|)="END I|
|000020c0| 46 22 20 8c 0d 0d ac 18 | 20 20 20 43 6f 6d 6d 61 |F" .....| Comma|
|000020d0| 6e 64 24 3d 22 45 4e 44 | 20 49 46 22 0d 0d b6 10 |nd$="END| IF"....|
|000020e0| 20 20 20 50 61 72 61 6d | 24 3d 22 22 0d 0d c0 07 | Param|$=""....|
|000020f0| 20 20 cd 0d 0d ca 04 0d | 0d d4 19 20 20 e7 20 c0 | ......|... . .|
|00002100| 4c 69 6e 65 24 2c 33 29 | 3d 22 47 45 54 22 20 8c |Line$,3)|="GET" .|
|00002110| 0d 0d de 15 20 20 20 43 | 6f 6d 6d 61 6e 64 24 3d |.... C|ommand$=|
|00002120| 22 47 45 54 22 0d 0d e8 | 1f 20 20 20 50 61 72 61 |"GET"...|. Para|
|00002130| 6d 24 3d c2 4c 69 6e 65 | 24 2c 4c 65 6e 67 74 68 |m$=.Line|$,Length|
|00002140| 25 2d 33 29 0d 0d f2 07 | 20 20 cd 0d 0d fc 04 0d |%-3)....| ......|
|00002150| 0e 06 1a 20 20 e7 20 c0 | 4c 69 6e 65 24 2c 34 29 |... . .|Line$,4)|
|00002160| 3d 22 44 52 4f 50 22 20 | 8c 0d 0e 10 16 20 20 20 |="DROP" |..... |
|00002170| 43 6f 6d 6d 61 6e 64 24 | 3d 22 44 52 4f 50 22 0d |Command$|="DROP".|
|00002180| 0e 1a 1f 20 20 20 50 61 | 72 61 6d 24 3d c2 4c 69 |... Pa|ram$=.Li|
|00002190| 6e 65 24 2c 4c 65 6e 67 | 74 68 25 2d 34 29 0d 0e |ne$,Leng|th%-4)..|
|000021a0| 24 07 20 20 cd 0d 0e 2e | 04 0d 0e 38 1b 20 20 e7 |$. ....|...8. .|
|000021b0| 20 c0 4c 69 6e 65 24 2c | 35 29 3d 22 50 52 49 4e | .Line$,|5)="PRIN|
|000021c0| 54 22 20 8c 0d 0e 42 17 | 20 20 20 43 6f 6d 6d 61 |T" ...B.| Comma|
|000021d0| 6e 64 24 3d 22 50 52 49 | 4e 54 22 0d 0e 4c 1f 20 |nd$="PRI|NT"..L. |
|000021e0| 20 20 50 61 72 61 6d 24 | 3d c2 4c 69 6e 65 24 2c | Param$|=.Line$,|
|000021f0| 4c 65 6e 67 74 68 25 2d | 35 29 0d 0e 56 07 20 20 |Length%-|5)..V. |
|00002200| cd 0d 0e 60 04 0d 0e 6a | 19 20 20 e7 20 c0 4c 69 |...`...j|. . .Li|
|00002210| 6e 65 24 2c 33 29 3d 22 | 52 45 4d 22 20 8c 0d 0e |ne$,3)="|REM" ...|
|00002220| 74 15 20 20 20 43 6f 6d | 6d 61 6e 64 24 3d 22 52 |t. Com|mand$="R|
|00002230| 45 4d 22 0d 0e 7e 10 20 | 20 20 50 61 72 61 6d 24 |EM"..~. | Param$|
|00002240| 3d 22 22 0d 0e 88 07 20 | 20 cd 0d 0e 92 04 0d 0e |="".... | .......|
|00002250| 9c 1b 20 20 e7 20 c0 4c | 69 6e 65 24 2c 35 29 3d |.. . .L|ine$,5)=|
|00002260| 22 53 50 41 43 45 22 20 | 8c 0d 0e a6 17 20 20 20 |"SPACE" |..... |
|00002270| 43 6f 6d 6d 61 6e 64 24 | 3d 22 53 50 41 43 45 22 |Command$|="SPACE"|
|00002280| 0d 0e b0 1f 20 20 20 50 | 61 72 61 6d 24 3d c2 4c |.... P|aram$=.L|
|00002290| 69 6e 65 24 2c 4c 65 6e | 67 74 68 25 2d 35 29 0d |ine$,Len|gth%-5).|
|000022a0| 0e ba 07 20 20 cd 0d 0e | c4 04 0d 0e ce 19 20 20 |... ...|...... |
|000022b0| e7 20 c0 4c 69 6e 65 24 | 2c 33 29 3d 22 49 4e 56 |. .Line$|,3)="INV|
|000022c0| 22 20 8c 0d 0e d8 15 20 | 20 20 43 6f 6d 6d 61 6e |" ..... | Comman|
|000022d0| 64 24 3d 22 49 4e 56 22 | 0d 0e e2 10 20 20 20 50 |d$="INV"|.... P|
|000022e0| 61 72 61 6d 24 3d 22 22 | 0d 0e ec 07 20 20 cd 0d |aram$=""|.... ..|
|000022f0| 0e f6 04 0d 0f 00 1d 20 | 20 e7 20 c0 4c 69 6e 65 |....... | . .Line|
|00002300| 24 2c 37 29 3d 22 45 58 | 41 4d 49 4e 45 22 20 8c |$,7)="EX|AMINE" .|
|00002310| 0d 0f 0a 19 20 20 20 43 | 6f 6d 6d 61 6e 64 24 3d |.... C|ommand$=|
|00002320| 22 45 58 41 4d 49 4e 45 | 22 0d 0f 14 1f 20 20 20 |"EXAMINE|".... |
|00002330| 50 61 72 61 6d 24 3d c2 | 4c 69 6e 65 24 2c 4c 65 |Param$=.|Line$,Le|
|00002340| 6e 67 74 68 25 2d 37 29 | 0d 0f 1e 07 20 20 cd 0d |ngth%-7)|.... ..|
|00002350| 0f 28 04 0d 0f 32 2e 20 | fd 20 43 6f 6d 6d 61 6e |.(...2. |. Comman|
|00002360| 64 24 3c 3e 22 52 45 4d | 22 20 84 20 50 6f 73 5f |d$<>"REM|" . Pos_|
|00002370| 53 25 3e 53 63 72 69 70 | 25 2b 53 69 7a 65 5f 53 |S%>Scrip|%+Size_S|
|00002380| 25 0d 0f 3c 04 0d 0f 46 | 46 20 e7 20 50 6f 73 5f |%..<...F|F . Pos_|
|00002390| 53 25 3e 53 63 72 69 70 | 25 2b 53 69 7a 65 5f 53 |S%>Scrip|%+Size_S|
|000023a0| 25 20 8c 20 f2 5f 52 65 | 70 6f 72 74 28 22 52 65 |% . ._Re|port("Re|
|000023b0| 61 63 68 65 64 20 65 6e | 64 20 6f 66 20 73 63 72 |ached en|d of scr|
|000023c0| 69 70 74 20 66 69 6c 65 | 2e 22 29 0d 0f 50 04 0d |ipt file|.")..P..|
|000023d0| 0f 5a 2a 20 e7 20 50 61 | 72 61 6d 24 3c 3e 22 22 |.Z* . Pa|ram$<>""|
|000023e0| 20 8c 20 50 61 72 61 6d | 24 3d a4 5f 53 74 72 69 | . Param|$=._Stri|
|000023f0| 70 28 50 61 72 61 6d 24 | 29 0d 0f 64 04 0d 0f 6e |p(Param$|)..d...n|
|00002400| 05 e1 0d 0f 78 04 0d 0f | 82 14 dd 20 a4 5f 53 74 |....x...|... ._St|
|00002410| 72 69 70 28 54 65 78 74 | 24 29 0d 0f 8c 04 0d 0f |rip(Text|$)......|
|00002420| 96 0e 20 ea 20 4c 65 6e | 67 74 68 25 0d 0f a0 04 |.. . Len|gth%....|
|00002430| 0d 0f aa 15 20 c8 95 20 | c0 54 65 78 74 24 2c 31 |.... .. |.Text$,1|
|00002440| 29 3d 22 20 22 0d 0f b4 | 04 0d 0f be 16 20 20 4c |)=" "...|..... L|
|00002450| 65 6e 67 74 68 25 3d a9 | 28 54 65 78 74 24 29 0d |ength%=.|(Text$).|
|00002460| 0f c8 1d 20 20 54 65 78 | 74 24 3d c2 54 65 78 74 |... Tex|t$=.Text|
|00002470| 24 2c 4c 65 6e 67 74 68 | 25 2d 31 29 0d 0f d2 04 |$,Length|%-1)....|
|00002480| 0d 0f dc 06 20 ce 0d 0f | e6 04 0d 0f f0 15 20 c8 |.... ...|...... .|
|00002490| 95 20 c2 54 65 78 74 24 | 2c 31 29 3d 22 20 22 0d |. .Text$|,1)=" ".|
|000024a0| 0f fa 04 0d 10 04 16 20 | 20 4c 65 6e 67 74 68 25 |....... | Length%|
|000024b0| 3d a9 28 54 65 78 74 24 | 29 0d 10 0e 1d 20 20 54 |=.(Text$|).... T|
|000024c0| 65 78 74 24 3d c0 54 65 | 78 74 24 2c 4c 65 6e 67 |ext$=.Te|xt$,Leng|
|000024d0| 74 68 25 2d 31 29 0d 10 | 18 04 0d 10 22 06 20 ce |th%-1)..|....". .|
|000024e0| 0d 10 2c 04 0d 10 36 0a | 3d 54 65 78 74 24 0d 10 |..,...6.|=Text$..|
|000024f0| 40 04 0d 10 4a 0d dd 20 | f2 5f 53 74 6f 72 65 0d |@...J.. |._Store.|
|00002500| 10 54 04 0d 10 5e 18 20 | 45 71 75 61 6c 25 3d a7 |.T...^. |Equal%=.|
|00002510| 50 61 72 61 6d 24 2c 22 | 3d 22 29 0d 10 68 3b 20 |Param$,"|=")..h; |
|00002520| e7 20 45 71 75 61 6c 25 | 3d 30 20 8c 20 f2 5f 52 |. Equal%|=0 . ._R|
|00002530| 65 70 6f 72 74 28 22 42 | 61 64 20 4c 45 54 20 63 |eport("B|ad LET c|
|00002540| 6f 6d 6d 61 6e 64 20 2d | 20 6d 69 73 73 69 6e 67 |ommand -| missing|
|00002550| 20 27 3d 27 22 29 0d 10 | 72 04 0d 10 7c 1c 20 50 | '='")..|r...|. P|
|00002560| 61 72 31 24 3d c0 50 61 | 72 61 6d 24 2c 45 71 75 |ar1$=.Pa|ram$,Equ|
|00002570| 61 6c 25 2d 31 29 0d 10 | 86 24 20 50 61 72 32 24 |al%-1)..|.$ Par2$|
|00002580| 3d c2 50 61 72 61 6d 24 | 2c a9 28 50 61 72 61 6d |=.Param$|,.(Param|
|00002590| 24 29 2d 45 71 75 61 6c | 25 29 0d 10 90 13 20 c8 |$)-Equal|%).... .|
|000025a0| 8e 20 c0 50 61 72 31 24 | 2c 33 29 20 ca 0d 10 9a |. .Par1$|,3) ....|
|000025b0| 18 20 20 c9 20 22 52 6f | 6f 22 3a 20 f2 5f 6c 65 |. . "Ro|o": ._le|
|000025c0| 74 72 6f 6f 6d 0d 10 a4 | 19 20 20 c9 20 22 4c 69 |troom...|. . "Li|
|000025d0| 67 22 3a 20 f2 5f 6c 65 | 74 6c 69 67 68 74 0d 10 |g": ._le|tlight..|
|000025e0| ae 19 20 20 c9 20 22 4e | 6f 72 22 3a 20 f2 5f 6c |.. . "N|or": ._l|
|000025f0| 65 74 6e 6f 72 74 68 0d | 10 b8 18 20 20 c9 20 22 |etnorth.|... . "|
|00002600| 45 61 73 22 3a 20 f2 5f | 6c 65 74 65 61 73 74 0d |Eas": ._|leteast.|
|00002610| 10 c2 19 20 20 c9 20 22 | 53 6f 75 22 3a 20 f2 5f |... . "|Sou": ._|
|00002620| 6c 65 74 73 6f 75 74 68 | 0d 10 cc 18 20 20 c9 20 |letsouth|.... . |
|00002630| 22 57 65 73 22 3a 20 f2 | 5f 6c 65 74 77 65 73 74 |"Wes": .|_letwest|
|00002640| 0d 10 d6 16 20 20 c9 20 | 22 55 70 25 22 3a 20 f2 |.... . |"Up%": .|
|00002650| 5f 6c 65 74 75 70 0d 10 | e0 18 20 20 c9 20 22 44 |_letup..|.. . "D|
|00002660| 6f 77 22 3a 20 f2 5f 6c | 65 74 64 6f 77 6e 0d 10 |ow": ._l|etdown..|
|00002670| ea 1a 20 20 c9 20 22 4f | 62 6a 22 3a 20 f2 5f 6c |.. . "O|bj": ._l|
|00002680| 65 74 6f 62 6a 65 63 74 | 0d 10 f4 18 20 20 c9 20 |etobject|.... . |
|00002690| 22 4c 69 73 22 3a 20 f2 | 5f 6c 65 74 6c 69 73 74 |"Lis": .|_letlist|
|000026a0| 0d 10 fe 1b 20 20 c9 20 | 22 45 78 61 22 3a 20 f2 |.... . |"Exa": .|
|000026b0| 5f 6c 65 74 65 78 61 6d | 69 6e 65 0d 11 08 1a 20 |_letexam|ine.... |
|000026c0| 20 c9 20 22 57 65 69 22 | 3a 20 f2 5f 6c 65 74 77 | . "Wei"|: ._letw|
|000026d0| 65 69 67 68 74 0d 11 12 | 1c 20 20 c9 20 22 4c 6f |eight...|. . "Lo|
|000026e0| 63 22 3a 20 f2 5f 6c 65 | 74 6c 6f 63 61 74 69 6f |c": ._le|tlocatio|
|000026f0| 6e 0d 11 1c 19 20 20 c9 | 20 22 53 74 6f 22 3a 20 |n.... .| "Sto": |
|00002700| f2 5f 6c 65 74 73 74 6f | 72 65 0d 11 26 2a 20 20 |._letsto|re..&* |
|00002710| 7f 3a 20 20 f2 5f 52 65 | 70 6f 72 74 28 22 49 6e |.: ._Re|port("In|
|00002720| 76 61 6c 69 64 20 4c 45 | 54 20 63 6f 6d 6d 61 6e |valid LE|T comman|
|00002730| 64 2e 22 29 0d 11 30 06 | 20 cb 0d 11 3a 04 0d 11 |d.")..0.| ...:...|
|00002740| 44 05 e1 0d 11 4e 04 0d | 11 58 0f dd 20 f2 5f 6c |D....N..|.X.. ._l|
|00002750| 65 74 72 6f 6f 6d 0d 11 | 62 13 50 61 72 31 24 3d |etroom..|b.Par1$=|
|00002760| c1 50 61 72 31 24 2c 36 | 29 0d 11 6c 1c 52 6f 6f |.Par1$,6|)..l.Roo|
|00002770| 6d 24 28 a0 28 50 61 72 | 31 24 29 29 3d a0 28 50 |m$(.(Par|1$))=.(P|
|00002780| 61 72 32 24 29 0d 11 76 | 05 e1 0d 11 80 10 dd 20 |ar2$)..v|....... |
|00002790| f2 5f 6c 65 74 6c 69 67 | 68 74 0d 11 8a 13 50 61 |._letlig|ht....Pa|
|000027a0| 72 31 24 3d c1 50 61 72 | 31 24 2c 37 29 0d 11 94 |r1$=.Par|1$,7)...|
|000027b0| 1d 4c 69 67 68 74 25 28 | a0 28 50 61 72 31 24 29 |.Light%(|.(Par1$)|
|000027c0| 29 3d a0 28 50 61 72 32 | 24 29 0d 11 9e 05 e1 0d |)=.(Par2|$)......|
|000027d0| 11 a8 10 dd 20 f2 5f 6c | 65 74 6e 6f 72 74 68 0d |.... ._l|etnorth.|
|000027e0| 11 b2 13 50 61 72 31 24 | 3d c1 50 61 72 31 24 2c |...Par1$|=.Par1$,|
|000027f0| 37 29 0d 11 bc 1d 4e 6f | 72 74 68 25 28 a0 28 50 |7)....No|rth%(.(P|
|00002800| 61 72 31 24 29 29 3d a0 | 28 50 61 72 32 24 29 0d |ar1$))=.|(Par2$).|
|00002810| 11 c6 05 e1 0d 11 d0 10 | dd 20 f2 5f 6c 65 74 73 |........|. ._lets|
|00002820| 6f 75 74 68 0d 11 da 13 | 50 61 72 31 24 3d c1 50 |outh....|Par1$=.P|
|00002830| 61 72 31 24 2c 37 29 0d | 11 e4 1d 53 6f 75 74 68 |ar1$,7).|...South|
|00002840| 25 28 a0 28 50 61 72 31 | 24 29 29 3d a0 28 50 61 |%(.(Par1|$))=.(Pa|
|00002850| 72 32 24 29 0d 11 ee 05 | e1 0d 11 f8 0f dd 20 f2 |r2$)....|...... .|
|00002860| 5f 6c 65 74 65 61 73 74 | 0d 12 02 13 50 61 72 31 |_leteast|....Par1|
|00002870| 24 3d c1 50 61 72 31 24 | 2c 36 29 0d 12 0c 1c 45 |$=.Par1$|,6)....E|
|00002880| 61 73 74 25 28 a0 28 50 | 61 72 31 24 29 29 3d a0 |ast%(.(P|ar1$))=.|
|00002890| 28 50 61 72 32 24 29 0d | 12 16 05 e1 0d 12 20 0f |(Par2$).|...... .|
|000028a0| dd 20 f2 5f 6c 65 74 77 | 65 73 74 0d 12 2a 13 50 |. ._letw|est..*.P|
|000028b0| 61 72 31 24 3d c1 50 61 | 72 31 24 2c 36 29 0d 12 |ar1$=.Pa|r1$,6)..|
|000028c0| 34 1c 57 65 73 74 25 28 | a0 28 50 61 72 31 24 29 |4.West%(|.(Par1$)|
|000028d0| 29 3d a0 28 50 61 72 32 | 24 29 0d 12 3e 05 e1 0d |)=.(Par2|$)..>...|
|000028e0| 12 48 0d dd 20 f2 5f 6c | 65 74 75 70 0d 12 52 13 |.H.. ._l|etup..R.|
|000028f0| 50 61 72 31 24 3d c1 50 | 61 72 31 24 2c 34 29 0d |Par1$=.P|ar1$,4).|
|00002900| 12 5c 1a 55 70 25 28 a0 | 28 50 61 72 31 24 29 29 |.\.Up%(.|(Par1$))|
|00002910| 3d a0 28 50 61 72 32 24 | 29 0d 12 66 05 e1 0d 12 |=.(Par2$|)..f....|
|00002920| 70 0f dd 20 f2 5f 6c 65 | 74 64 6f 77 6e 0d 12 7a |p.. ._le|tdown..z|
|00002930| 13 50 61 72 31 24 3d c1 | 50 61 72 31 24 2c 36 29 |.Par1$=.|Par1$,6)|
|00002940| 0d 12 84 1c 44 6f 77 6e | 25 28 a0 28 50 61 72 31 |....Down|%(.(Par1|
|00002950| 24 29 29 3d a0 28 50 61 | 72 32 24 29 0d 12 8e 05 |$))=.(Pa|r2$)....|
|00002960| e1 0d 12 98 11 dd 20 f2 | 5f 6c 65 74 6f 62 6a 65 |...... .|_letobje|
|00002970| 63 74 0d 12 a2 13 50 61 | 72 31 24 3d c1 50 61 72 |ct....Pa|r1$=.Par|
|00002980| 31 24 2c 38 29 0d 12 ac | 1e 4f 62 6a 65 63 74 24 |1$,8)...|.Object$|
|00002990| 28 a0 28 50 61 72 31 24 | 29 29 3d a0 28 50 61 72 |(.(Par1$|))=.(Par|
|000029a0| 32 24 29 0d 12 b6 05 e1 | 0d 12 c0 0f dd 20 f2 5f |2$).....|..... ._|
|000029b0| 6c 65 74 6c 69 73 74 0d | 12 ca 13 50 61 72 31 24 |letlist.|...Par1$|
|000029c0| 3d c1 50 61 72 31 24 2c | 36 29 0d 12 d4 1c 4c 69 |=.Par1$,|6)....Li|
|000029d0| 73 74 24 28 a0 28 50 61 | 72 31 24 29 29 3d a0 28 |st$(.(Pa|r1$))=.(|
|000029e0| 50 61 72 32 24 29 0d 12 | de 05 e1 0d 12 e8 12 dd |Par2$)..|........|
|000029f0| 20 f2 5f 6c 65 74 65 78 | 61 6d 69 6e 65 0d 12 f2 | ._letex|amine...|
|00002a00| 13 50 61 72 31 24 3d c1 | 50 61 72 31 24 2c 39 29 |.Par1$=.|Par1$,9)|
|00002a10| 0d 12 fc 1f 45 78 61 6d | 69 6e 65 24 28 a0 28 50 |....Exam|ine$(.(P|
|00002a20| 61 72 31 24 29 29 3d a0 | 28 50 61 72 32 24 29 0d |ar1$))=.|(Par2$).|
|00002a30| 13 06 05 e1 0d 13 10 11 | dd 20 f2 5f 6c 65 74 77 |........|. ._letw|
|00002a40| 65 69 67 68 74 0d 13 1a | 13 50 61 72 31 24 3d c1 |eight...|.Par1$=.|
|00002a50| 50 61 72 31 24 2c 38 29 | 0d 13 24 1e 57 65 69 67 |Par1$,8)|..$.Weig|
|00002a60| 68 74 25 28 a0 28 50 61 | 72 31 24 29 29 3d a0 28 |ht%(.(Pa|r1$))=.(|
|00002a70| 50 61 72 32 24 29 0d 13 | 2e 05 e1 0d 13 38 13 dd |Par2$)..|.....8..|
|00002a80| 20 f2 5f 6c 65 74 6c 6f | 63 61 74 69 6f 6e 0d 13 | ._letlo|cation..|
|00002a90| 42 14 50 61 72 31 24 3d | c1 50 61 72 31 24 2c 31 |B.Par1$=|.Par1$,1|
|00002aa0| 30 29 0d 13 4c 20 4c 6f | 63 61 74 69 6f 6e 25 28 |0)..L Lo|cation%(|
|00002ab0| a0 28 50 61 72 31 24 29 | 29 3d a0 28 50 61 72 32 |.(Par1$)|)=.(Par2|
|00002ac0| 24 29 0d 13 56 05 e1 0d | 13 60 10 dd 20 f2 5f 6c |$)..V...|.`.. ._l|
|00002ad0| 65 74 73 74 6f 72 65 0d | 13 6a 13 50 61 72 31 24 |etstore.|.j.Par1$|
|00002ae0| 3d c1 50 61 72 31 24 2c | 37 29 0d 13 74 1d 53 74 |=.Par1$,|7)..t.St|
|00002af0| 6f 72 65 25 28 a0 28 50 | 61 72 31 24 29 29 3d a0 |ore%(.(P|ar1$))=.|
|00002b00| 28 50 61 72 32 24 29 0d | 13 7e 05 e1 0d 13 88 04 |(Par2$).|.~......|
|00002b10| 0d 13 92 0c dd 20 f2 5f | 4a 75 6d 70 0d 13 9c 04 |..... ._|Jump....|
|00002b20| 0d 13 a6 12 20 4c 61 62 | 65 6c 24 3d 50 61 72 61 |.... Lab|el$=Para|
|00002b30| 6d 24 0d 13 b0 1f 20 50 | 6f 73 5f 53 25 3d a4 5f |m$.... P|os_S%=._|
|00002b40| 46 69 6e 64 4c 61 62 65 | 6c 28 4c 61 62 65 6c 24 |FindLabe|l(Label$|
|00002b50| 29 0d 13 ba 04 0d 13 c4 | 4f 20 43 6f 6e 64 69 74 |).......|O Condit|
|00002b60| 69 6f 6e 53 74 61 74 25 | 3d 30 3a f4 20 2d 20 65 |ionStat%|=0:. - e|
|00002b70| 6e 73 75 72 65 20 74 68 | 65 20 73 6f 66 74 77 61 |nsure th|e softwa|
|00002b80| 72 65 20 64 6f 65 73 6e | 27 74 20 74 68 69 6e 6b |re doesn|'t think|
|00002b90| 20 69 74 27 73 20 69 6e | 20 61 20 63 6f 6e 64 69 | it's in| a condi|
|00002ba0| 74 69 6f 6e 0d 13 ce 04 | 0d 13 d8 05 e1 0d 13 e2 |tion....|........|
|00002bb0| 04 0d 13 ec 0b dd 20 f2 | 5f 43 6c 73 0d 13 f6 04 |...... .|_Cls....|
|00002bc0| 0d 14 00 06 20 db 0d 14 | 0a 04 0d 14 14 05 e1 0d |.... ...|........|
|00002bd0| 14 1e 04 0d 14 28 0c dd | 20 f2 5f 4c 6f 6f 6b 0d |.....(..| ._Look.|
|00002be0| 14 32 04 0d 14 3c 28 20 | e7 20 4c 69 67 68 74 25 |.2...<( |. Light%|
|00002bf0| 28 53 74 6f 72 65 25 28 | 33 29 29 20 84 20 53 74 |(Store%(|3)) . St|
|00002c00| 6f 72 65 25 28 30 29 3d | 31 20 8c 0d 14 46 10 20 |ore%(0)=|1 ...F. |
|00002c10| 20 f4 20 50 52 4f 43 5f | 43 6c 73 0d 14 50 20 20 | . PROC_|Cls..P |
|00002c20| 20 f2 5f 4f 75 74 70 75 | 74 28 52 6f 6f 6d 24 28 | ._Outpu|t(Room$(|
|00002c30| 53 74 6f 72 65 25 28 33 | 29 29 29 0d 14 5a 04 0d |Store%(3|)))..Z..|
|00002c40| 14 64 1b 20 20 54 65 78 | 74 24 3d 22 a0 59 6f 75 |.d. Tex|t$=".You|
|00002c50| 20 63 61 6e 20 73 65 65 | 20 22 0d 14 6e 1b 20 20 | can see| "..n. |
|00002c60| e3 20 4e 75 6d 62 65 72 | 25 3d 31 20 b8 20 4f 5f |. Number|%=1 . O_|
|00002c70| 4e 75 6d 62 25 0d 14 78 | 27 20 20 20 e7 20 4c 6f |Numb%..x|' . Lo|
|00002c80| 63 61 74 69 6f 6e 25 28 | 4e 75 6d 62 65 72 25 29 |cation%(|Number%)|
|00002c90| 3d 53 74 6f 72 65 25 28 | 33 29 20 8c 0d 14 82 22 |=Store%(|3) ...."|
|00002ca0| 20 20 20 20 54 65 78 74 | 24 3d 54 65 78 74 24 2b | Text|$=Text$+|
|00002cb0| 4c 69 73 74 24 28 4e 75 | 6d 62 65 72 25 29 0d 14 |List$(Nu|mber%)..|
|00002cc0| 8c 18 20 20 20 20 54 65 | 78 74 24 3d 54 65 78 74 |.. Te|xt$=Text|
|00002cd0| 24 2b 22 2c 20 22 0d 14 | 96 08 20 20 20 cd 0d 14 |$+", "..|.. ...|
|00002ce0| a0 07 20 20 ed 0d 14 aa | 20 20 20 e7 20 54 65 78 |.. ....| . Tex|
|00002cf0| 74 24 3c 3e 22 a0 59 6f | 75 20 63 61 6e 20 73 65 |t$<>".Yo|u can se|
|00002d00| 65 20 22 20 8c 0d 14 b4 | 23 20 20 20 54 65 78 74 |e " ....|# Text|
|00002d10| 24 3d c0 54 65 78 74 24 | 2c a9 28 54 65 78 74 24 |$=.Text$|,.(Text$|
|00002d20| 29 2d 32 29 2b 22 2e 22 | 0d 14 be 16 20 20 20 f2 |)-2)+"."|.... .|
|00002d30| 5f 4f 75 74 70 75 74 28 | 54 65 78 74 24 29 0d 14 |_Output(|Text$)..|
|00002d40| c8 07 20 20 cd 0d 14 d2 | 04 0d 14 dc 1a 20 20 54 |.. ....|..... T|
|00002d50| 65 78 74 24 3d 22 a0 45 | 78 69 74 73 20 6c 65 61 |ext$=".E|xits lea|
|00002d60| 64 20 22 0d 14 e6 33 20 | 20 e7 20 4e 6f 72 74 68 |d "...3 | . North|
|00002d70| 25 28 53 74 6f 72 65 25 | 28 33 29 29 3e 30 20 8c |%(Store%|(3))>0 .|
|00002d80| 20 54 65 78 74 24 3d 54 | 65 78 74 24 2b 22 4e 6f | Text$=T|ext$+"No|
|00002d90| 72 74 68 2c 20 22 0d 14 | f0 31 20 20 e7 20 45 61 |rth, "..|.1 . Ea|
|00002da0| 73 74 25 28 53 74 6f 72 | 65 25 28 33 29 29 3e 30 |st%(Stor|e%(3))>0|
|00002db0| 20 8c 20 54 65 78 74 24 | 3d 54 65 78 74 24 2b 22 | . Text$|=Text$+"|
|00002dc0| 45 61 73 74 2c 20 22 0d | 14 fa 33 20 20 e7 20 53 |East, ".|..3 . S|
|00002dd0| 6f 75 74 68 25 28 53 74 | 6f 72 65 25 28 33 29 29 |outh%(St|ore%(3))|
|00002de0| 3e 30 20 8c 20 54 65 78 | 74 24 3d 54 65 78 74 24 |>0 . Tex|t$=Text$|
|00002df0| 2b 22 53 6f 75 74 68 2c | 20 22 0d 15 04 31 20 20 |+"South,| "...1 |
|00002e00| e7 20 57 65 73 74 25 28 | 53 74 6f 72 65 25 28 33 |. West%(|Store%(3|
|00002e10| 29 29 3e 30 20 8c 20 54 | 65 78 74 24 3d 54 65 78 |))>0 . T|ext$=Tex|
|00002e20| 74 24 2b 22 57 65 73 74 | 2c 20 22 0d 15 0e 2d 20 |t$+"West|, "...- |
|00002e30| 20 e7 20 55 70 25 28 53 | 74 6f 72 65 25 28 33 29 | . Up%(S|tore%(3)|
|00002e40| 29 3e 30 20 8c 20 54 65 | 78 74 24 3d 54 65 78 74 |)>0 . Te|xt$=Text|
|00002e50| 24 2b 22 55 70 2c 20 22 | 0d 15 18 31 20 20 e7 20 |$+"Up, "|...1 . |
|00002e60| 44 6f 77 6e 25 28 53 74 | 6f 72 65 25 28 33 29 29 |Down%(St|ore%(3))|
|00002e70| 3e 30 20 8c 20 54 65 78 | 74 24 3d 54 65 78 74 24 |>0 . Tex|t$=Text$|
|00002e80| 2b 22 44 6f 77 6e 2c 20 | 22 0d 15 22 1f 20 20 e7 |+"Down, |"..". .|
|00002e90| 20 54 65 78 74 24 3c 3e | 22 a0 45 78 69 74 73 20 | Text$<>|".Exits |
|00002ea0| 6c 65 61 64 20 22 20 8c | 0d 15 2c 23 20 20 20 54 |lead " .|..,# T|
|00002eb0| 65 78 74 24 3d c0 54 65 | 78 74 24 2c a9 28 54 65 |ext$=.Te|xt$,.(Te|
|00002ec0| 78 74 24 29 2d 32 29 2b | 22 2e 22 0d 15 36 16 20 |xt$)-2)+|"."..6. |
|00002ed0| 20 20 f2 5f 4f 75 74 70 | 75 74 28 54 65 78 74 24 | ._Outp|ut(Text$|
|00002ee0| 29 0d 15 40 07 20 20 cd | 0d 15 4a 06 20 cc 0d 15 |)..@. .|..J. ...|
|00002ef0| 54 36 20 20 f2 5f 4f 75 | 74 70 75 74 28 22 49 74 |T6 ._Ou|tput("It|
|00002f00| 20 69 73 20 74 6f 6f 20 | 64 61 72 6b 20 74 6f 20 | is too |dark to |
|00002f10| 73 65 65 20 61 6e 79 74 | 68 69 6e 67 20 68 65 72 |see anyt|hing her|
|00002f20| 65 2e 22 29 0d 15 5e 06 | 20 cd 0d 15 68 04 0d 15 |e.")..^.| ...h...|
|00002f30| 72 05 e1 0d 15 7c 04 0d | 15 86 15 dd 20 f2 5f 4f |r....|..|.... ._O|
|00002f40| 75 74 70 75 74 28 54 65 | 78 74 24 29 0d 15 90 04 |utput(Te|xt$)....|
|00002f50| 0d 15 9a 08 20 fb 20 33 | 0d 15 a4 24 20 e7 20 c0 |.... . 3|...$ . .|
|00002f60| 54 65 78 74 24 2c 31 29 | 3d 22 20 22 20 8c 20 c0 |Text$,1)|=" " . .|
|00002f70| 54 65 78 74 24 2c 31 29 | 3d 22 a0 22 0d 15 ae 24 |Text$,1)|="."...$|
|00002f80| 20 e7 20 c2 54 65 78 74 | 24 2c 31 29 3d 22 20 22 | . .Text|$,1)=" "|
|00002f90| 20 8c 20 c2 54 65 78 74 | 24 2c 31 29 3d 22 a0 22 | . .Text|$,1)="."|
|00002fa0| 0d 15 b8 04 0d 15 c2 1d | 20 c8 99 22 4f 53 5f 50 |........| .."OS_P|
|00002fb0| 72 65 74 74 79 50 72 69 | 6e 74 22 2c 54 65 78 74 |rettyPri|nt",Text|
|00002fc0| 24 0d 15 cc 04 0d 15 d6 | 05 e1 0d 15 e0 04 0d 15 |$.......|........|
|00002fd0| ea 0d dd 20 f2 5f 49 6e | 70 75 74 0d 15 f4 04 0d |... ._In|put.....|
|00002fe0| 15 fe 0d 20 4d 6f 76 65 | 64 25 3d a3 0d 16 08 0d |... Move|d%=.....|
|00002ff0| 20 54 65 78 74 24 3d 22 | 22 0d 16 12 06 20 f5 0d | Text$="|".... ..|
|00003000| 16 1c 09 20 20 fb 20 31 | 0d 16 26 16 20 20 f1 22 |... . 1|..&. ."|
|00003010| 57 68 61 74 20 4e 6f 77 | 3f 20 3e 20 22 3b 0d 16 |What Now|? > ";..|
|00003020| 30 09 20 20 fb 20 37 0d | 16 3a 0e 20 20 e8 22 22 |0. . 7.|.:. .""|
|00003030| 54 65 78 74 24 0d 16 44 | 10 20 fd 20 54 65 78 74 |Text$..D|. . Text|
|00003040| 24 3c 3e 22 22 0d 16 4e | 04 0d 16 58 0e 20 49 6e |$<>""..N|...X. In|
|00003050| 70 75 74 24 3d 22 22 0d | 16 62 18 20 e3 20 50 6f |put$="".|.b. . Po|
|00003060| 73 25 3d 31 20 b8 20 a9 | 28 54 65 78 74 24 29 0d |s%=1 . .|(Text$).|
|00003070| 16 6c 1c 20 20 4c 65 74 | 74 65 72 24 3d c1 54 65 |.l. Let|ter$=.Te|
|00003080| 78 74 24 2c 50 6f 73 25 | 2c 31 29 0d 16 76 25 20 |xt$,Pos%|,1)..v% |
|00003090| 20 e7 20 4c 65 74 74 65 | 72 24 3e 3d 22 61 22 20 | . Lette|r$>="a" |
|000030a0| 80 20 4c 65 74 74 65 72 | 24 3c 3d 22 7a 22 20 8c |. Letter|$<="z" .|
|000030b0| 0d 16 80 1f 20 20 20 4c | 65 74 74 65 72 24 3d bd |.... L|etter$=.|
|000030c0| 28 97 28 4c 65 74 74 65 | 72 24 29 2d 33 32 29 0d |(.(Lette|r$)-32).|
|000030d0| 16 8a 07 20 20 cd 0d 16 | 94 1b 20 20 49 6e 70 75 |... ...|.. Inpu|
|000030e0| 74 24 3d 49 6e 70 75 74 | 24 2b 4c 65 74 74 65 72 |t$=Input|$+Letter|
|000030f0| 24 0d 16 9e 06 20 ed 0d | 16 a8 04 0d 16 b2 1a 20 |$.... ..|....... |
|00003100| e3 20 4e 75 6d 62 65 72 | 25 3d 31 20 b8 20 57 5f |. Number|%=1 . W_|
|00003110| 4e 75 6d 62 25 0d 16 bc | 32 20 20 55 73 65 64 5f |Numb%...|2 Used_|
|00003120| 57 6f 72 64 25 28 4e 75 | 6d 62 65 72 25 29 3d a4 |Word%(Nu|mber%)=.|
|00003130| 5f 43 49 66 45 6e 74 28 | 57 6f 72 64 24 28 4e 75 |_CIfEnt(|Word$(Nu|
|00003140| 6d 62 65 72 25 29 29 0d | 16 c6 06 20 ed 0d 16 d0 |mber%)).|... ....|
|00003150| 47 20 20 55 73 65 64 5f | 43 6f 6d 6d 61 6e 64 25 |G Used_|Command%|
|00003160| 28 31 29 3d a4 5f 43 49 | 66 45 6e 74 28 22 47 45 |(1)=._CI|fEnt("GE|
|00003170| 54 2c 54 41 4b 45 2c 47 | 52 41 42 2c 4c 49 46 54 |T,TAKE,G|RAB,LIFT|
|00003180| 2c 50 49 43 4b 2c 53 54 | 45 41 4c 2c 50 49 4e 43 |,PICK,ST|EAL,PINC|
|00003190| 48 2c 22 29 0d 16 da 47 | 20 20 55 73 65 64 5f 43 |H,")...G| Used_C|
|000031a0| 6f 6d 6d 61 6e 64 25 28 | 32 29 3d a4 5f 43 49 66 |ommand%(|2)=._CIf|
|000031b0| 45 6e 74 28 22 44 52 4f | 50 2c 4c 45 41 56 45 2c |Ent("DRO|P,LEAVE,|
|000031c0| 41 42 41 4e 44 4f 4e 2c | 54 48 52 4f 57 2c 43 48 |ABANDON,|THROW,CH|
|000031d0| 55 43 4b 2c 47 49 56 45 | 2c 22 29 0d 16 e4 29 20 |UCK,GIVE|,")...) |
|000031e0| 20 55 73 65 64 5f 43 6f | 6d 6d 61 6e 64 25 28 33 | Used_Co|mmand%(3|
|000031f0| 29 3d a4 5f 43 49 66 45 | 6e 74 28 22 4e 4f 52 54 |)=._CIfE|nt("NORT|
|00003200| 48 2c 22 29 0d 16 ee 28 | 20 20 55 73 65 64 5f 43 |H,")...(| Used_C|
|00003210| 6f 6d 6d 61 6e 64 25 28 | 34 29 3d a4 5f 43 49 66 |ommand%(|4)=._CIf|
|00003220| 45 6e 74 28 22 45 41 53 | 54 2c 22 29 0d 16 f8 29 |Ent("EAS|T,")...)|
|00003230| 20 20 55 73 65 64 5f 43 | 6f 6d 6d 61 6e 64 25 28 | Used_C|ommand%(|
|00003240| 35 29 3d a4 5f 43 49 66 | 45 6e 74 28 22 53 4f 55 |5)=._CIf|Ent("SOU|
|00003250| 54 48 2c 22 29 0d 17 02 | 28 20 20 55 73 65 64 5f |TH,")...|( Used_|
|00003260| 43 6f 6d 6d 61 6e 64 25 | 28 36 29 3d a4 5f 43 49 |Command%|(6)=._CI|
|00003270| 66 45 6e 74 28 22 57 45 | 53 54 2c 22 29 0d 17 0c |fEnt("WE|ST,")...|
|00003280| 26 20 20 55 73 65 64 5f | 43 6f 6d 6d 61 6e 64 25 |& Used_|Command%|
|00003290| 28 37 29 3d a4 5f 43 49 | 66 45 6e 74 28 22 55 50 |(7)=._CI|fEnt("UP|
|000032a0| 2c 22 29 0d 17 16 28 20 | 20 55 73 65 64 5f 43 6f |,")...( | Used_Co|
|000032b0| 6d 6d 61 6e 64 25 28 38 | 29 3d a4 5f 43 49 66 45 |mmand%(8|)=._CIfE|
|000032c0| 6e 74 28 22 44 4f 57 4e | 2c 22 29 0d 17 20 27 20 |nt("DOWN|,").. ' |
|000032d0| 20 55 73 65 64 5f 43 6f | 6d 6d 61 6e 64 25 28 39 | Used_Co|mmand%(9|
|000032e0| 29 3d a4 5f 43 49 66 45 | 6e 74 28 22 49 4e 56 2c |)=._CIfE|nt("INV,|
|000032f0| 22 29 0d 17 2a 41 20 20 | 55 73 65 64 5f 43 6f 6d |")..*A |Used_Com|
|00003300| 6d 61 6e 64 25 28 31 30 | 29 3d a4 5f 43 49 66 45 |mand%(10|)=._CIfE|
|00003310| 6e 74 28 22 45 58 41 4d | 49 4e 45 2c 53 54 55 44 |nt("EXAM|INE,STUD|
|00003320| 59 2c 43 48 45 43 4b 2c | 44 45 53 43 52 49 42 45 |Y,CHECK,|DESCRIBE|
|00003330| 2c 22 29 0d 17 34 30 20 | 20 55 73 65 64 5f 43 6f |,")..40 | Used_Co|
|00003340| 6d 6d 61 6e 64 25 28 31 | 31 29 3d a4 5f 43 49 66 |mmand%(1|1)=._CIf|
|00003350| 45 6e 74 28 22 4c 4f 4f | 4b 2c 53 45 41 52 43 48 |Ent("LOO|K,SEARCH|
|00003360| 2c 22 29 0d 17 3e 43 20 | 20 55 73 65 64 5f 43 6f |,")..>C | Used_Co|
|00003370| 6d 6d 61 6e 64 25 28 31 | 32 29 3d a4 5f 43 49 66 |mmand%(1|2)=._CIf|
|00003380| 45 6e 74 28 22 51 55 49 | 54 2c 45 4e 44 2c 46 49 |Ent("QUI|T,END,FI|
|00003390| 4e 49 53 48 2c 54 45 52 | 4d 49 4e 41 54 45 2c 53 |NISH,TER|MINATE,S|
|000033a0| 54 4f 50 2c 22 29 0d 17 | 48 35 20 20 55 73 65 64 |TOP,")..|H5 Used|
|000033b0| 5f 43 6f 6d 6d 61 6e 64 | 25 28 31 33 29 3d a4 5f |_Command|%(13)=._|
|000033c0| 43 49 66 45 6e 74 28 22 | 48 45 4c 50 2c 53 55 50 |CIfEnt("|HELP,SUP|
|000033d0| 50 4f 52 54 2c 41 49 44 | 2c 22 29 0d 17 52 04 0d |PORT,AID|,")..R..|
|000033e0| 17 5c 05 e1 0d 17 66 04 | 0d 17 70 16 dd 20 a4 5f |.\....f.|..p.. ._|
|000033f0| 43 49 66 45 6e 74 28 57 | 6f 72 64 73 24 29 0d 17 |CIfEnt(W|ords$)..|
|00003400| 7a 04 0d 17 84 0e 20 52 | 65 73 75 6c 74 25 3d a3 |z..... R|esult%=.|
|00003410| 0d 17 8e 28 20 e7 20 c2 | 57 6f 72 64 73 24 2c 31 |...( . .|Words$,1|
|00003420| 29 3c 3e 22 2c 22 20 8c | 20 57 6f 72 64 24 3d 57 |)<>"," .| Word$=W|
|00003430| 6f 72 64 24 2b 22 2c 22 | 0d 17 98 06 20 f5 0d 17 |ord$+","|.... ...|
|00003440| a2 17 20 20 43 6f 6d 25 | 3d a7 57 6f 72 64 73 24 |.. Com%|=.Words$|
|00003450| 2c 22 2c 22 29 0d 17 ac | 1b 20 20 57 6f 72 64 24 |,",")...|. Word$|
|00003460| 3d c0 57 6f 72 64 73 24 | 2c 43 6f 6d 25 2d 31 29 |=.Words$|,Com%-1)|
|00003470| 0d 17 b6 1a 20 20 57 6f | 72 64 24 3d a4 5f 53 74 |.... Wo|rd$=._St|
|00003480| 72 69 70 28 57 6f 72 64 | 24 29 0d 17 c0 1c 20 20 |rip(Word|$).... |
|00003490| 57 6f 72 64 73 24 3d c1 | 57 6f 72 64 73 24 2c 43 |Words$=.|Words$,C|
|000034a0| 6f 6d 25 2b 31 29 0d 17 | ca 24 20 20 e7 20 a7 49 |om%+1)..|.$ . .I|
|000034b0| 6e 70 75 74 24 2c 57 6f | 72 64 24 29 3e 30 20 8c |nput$,Wo|rd$)>0 .|
|000034c0| 20 52 65 73 75 6c 74 25 | 3d b9 0d 17 d4 12 20 fd | Result%|=..... .|
|000034d0| 20 a9 28 57 6f 72 64 73 | 24 29 3d 30 0d 17 de 04 | .(Words|$)=0....|
|000034e0| 0d 17 e8 0c 3d 52 65 73 | 75 6c 74 25 0d 17 f2 04 |....=Res|ult%....|
|000034f0| 0d 17 fc 0c dd 20 f2 5f | 51 75 69 74 0d 18 06 04 |..... ._|Quit....|
|00003500| 0d 18 10 41 20 f2 5f 4f | 75 74 70 75 74 28 bd 31 |...A ._O|utput(.1|
|00003510| 33 2b 22 41 72 65 20 79 | 6f 75 20 73 75 72 65 20 |3+"Are y|ou sure |
|00003520| 79 6f 75 20 77 69 73 68 | 20 74 6f 20 71 75 69 74 |you wish| to quit|
|00003530| 20 74 68 69 73 20 67 61 | 6d 65 3f 22 2b bd 31 33 | this ga|me?"+.13|
|00003540| 29 0d 18 1a 32 20 f2 5f | 4f 75 74 70 75 74 28 22 |)...2 ._|Output("|
|00003550| 50 72 65 73 73 20 59 20 | 66 6f 72 20 79 65 73 20 |Press Y |for yes |
|00003560| 6f 72 20 4e 20 20 66 6f | 72 20 6e 6f 2e 22 2b bd |or N fo|r no."+.|
|00003570| 31 33 29 0d 18 24 04 0d | 18 2e 06 20 f5 0d 18 38 |13)..$..|... ...8|
|00003580| 0a 20 20 41 24 3d be 0d | 18 42 28 20 fd 20 41 24 |. A$=..|.B( . A$|
|00003590| 3d 22 59 22 20 84 20 41 | 24 3d 22 79 22 20 84 20 |="Y" . A|$="y" . |
|000035a0| 41 24 3d 22 4e 22 20 84 | 20 41 24 3d 22 6e 22 0d |A$="N" .| A$="n".|
|000035b0| 18 4c 15 20 f2 5f 4f 75 | 74 70 75 74 28 41 24 2b |.L. ._Ou|tput(A$+|
|000035c0| bd 31 33 29 0d 18 56 39 | 20 e7 20 41 24 3d 22 59 |.13)..V9| . A$="Y|
|000035d0| 22 20 84 20 41 24 3d 22 | 79 22 20 8c 20 43 6f 6d |" . A$="|y" . Com|
|000035e0| 6d 61 6e 64 24 3d 22 52 | 45 53 54 41 52 54 22 20 |mand$="R|ESTART" |
|000035f0| 8b 20 43 6f 6d 6d 61 6e | 64 24 3d 22 22 0d 18 60 |. Comman|d$=""..`|
|00003600| 04 0d 18 6a 05 e1 0d 18 | 74 04 0d 18 7e 0d dd 20 |...j....|t...~.. |
|00003610| f2 5f 50 72 69 6e 74 0d | 18 88 04 0d 18 92 16 20 |._Print.|....... |
|00003620| 4c 65 6e 67 74 68 25 3d | a9 28 50 61 72 61 6d 24 |Length%=|.(Param$|
|00003630| 29 0d 18 9c 11 20 c8 95 | 20 4c 65 6e 67 74 68 25 |).... ..| Length%|
|00003640| 3e 30 0d 18 a6 13 20 20 | 41 24 3d c0 50 61 72 61 |>0.... |A$=.Para|
|00003650| 6d 24 2c 31 29 0d 18 b0 | 04 0d 18 ba 0d 20 20 c8 |m$,1)...|..... .|
|00003660| 8e 20 41 24 20 ca 0d 18 | c4 45 20 20 20 c9 20 22 |. A$ ...|.E . "|
|00003670| 22 22 22 3a f2 5f 50 54 | 65 78 74 3a f4 20 20 20 |""":._PT|ext:. |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 20 20 | | " |
|00003690| 2d 20 70 72 69 6e 74 20 | 74 65 78 74 20 62 65 74 |- print |text bet|
|000036a0| 77 65 65 6e 20 71 75 6f | 74 65 73 0d 18 ce 40 20 |ween quo|tes...@ |
|000036b0| 20 20 c9 20 22 5b 22 3a | f2 5f 50 53 74 6f 72 65 | . "[":|._PStore|
|000036c0| 3a f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|000036d0| 20 20 23 20 20 2d 20 70 | 72 69 6e 74 20 73 74 6f | # - p|rint sto|
|000036e0| 72 65 20 63 6f 6e 74 65 | 6e 74 73 0d 18 d8 3d 20 |re conte|nts...= |
|000036f0| 20 20 c9 20 22 27 22 3a | f2 5f 50 43 72 3a f4 20 | . "'":|._PCr:. |
|00003700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003710| 20 20 43 48 41 52 20 2d | 20 70 72 69 6e 74 20 63 | CHAR -| print c|
|00003720| 68 61 72 61 63 74 65 72 | 0d 18 e2 2e 20 20 20 7f |haracter|.... .|
|00003730| 3a f2 5f 52 65 70 6f 72 | 74 28 22 55 6e 72 65 63 |:._Repor|t("Unrec|
|00003740| 6f 67 6e 69 73 65 64 20 | 50 52 49 4e 54 20 66 6f |ognised |PRINT fo|
|00003750| 72 6d 61 74 22 29 0d 18 | ec 07 20 20 cb 0d 18 f6 |rmat")..|.. ....|
|00003760| 04 0d 19 00 17 20 20 4c | 65 6e 67 74 68 25 3d a9 |..... L|ength%=.|
|00003770| 28 50 61 72 61 6d 24 29 | 0d 19 0a 06 20 ce 0d 19 |(Param$)|.... ...|
|00003780| 14 04 0d 19 1e 05 e1 0d | 19 28 04 0d 19 32 0d dd |........|.(...2..|
|00003790| 20 f2 5f 50 54 65 78 74 | 0d 19 3c 04 0d 19 46 1e | ._PText|..<...F.|
|000037a0| 20 50 61 72 61 6d 24 3d | c2 50 61 72 61 6d 24 2c | Param$=|.Param$,|
|000037b0| 4c 65 6e 67 74 68 25 2d | 31 29 0d 19 50 16 20 4c |Length%-|1)..P. L|
|000037c0| 65 6e 67 74 68 25 3d 4c | 65 6e 67 74 68 25 2d 31 |ength%=L|ength%-1|
|000037d0| 0d 19 5a 04 0d 19 64 17 | 20 50 6f 73 25 3d a7 50 |..Z...d.| Pos%=.P|
|000037e0| 61 72 61 6d 24 2c 22 22 | 22 22 29 0d 19 6e 40 20 |aram$,""|"")..n@ |
|000037f0| e7 20 50 6f 73 25 3d 30 | 20 8c 20 f2 5f 52 65 70 |. Pos%=0| . ._Rep|
|00003800| 6f 72 74 28 22 49 6e 63 | 6f 72 72 65 63 74 20 66 |ort("Inc|orrect f|
|00003810| 6f 72 6d 61 74 20 6f 66 | 20 50 52 49 4e 54 20 73 |ormat of| PRINT s|
|00003820| 74 61 74 65 6d 65 6e 74 | 2e 22 29 0d 19 78 04 0d |tatement|.")..x..|
|00003830| 19 82 1a 20 54 65 78 74 | 24 3d c0 50 61 72 61 6d |... Text|$=.Param|
|00003840| 24 2c 50 6f 73 25 2d 31 | 29 0d 19 8c 04 0d 19 96 |$,Pos%-1|).......|
|00003850| 14 20 f2 5f 4f 75 74 70 | 75 74 28 54 65 78 74 24 |. ._Outp|ut(Text$|
|00003860| 29 0d 19 a0 21 20 50 61 | 72 61 6d 24 3d c2 50 61 |)...! Pa|ram$=.Pa|
|00003870| 72 61 6d 24 2c 4c 65 6e | 67 74 68 25 2d 50 6f 73 |ram$,Len|gth%-Pos|
|00003880| 25 29 0d 19 aa 04 0d 19 | b4 1b 20 50 61 72 61 6d |%)......|.. Param|
|00003890| 24 3d a4 5f 53 74 72 69 | 70 28 50 61 72 61 6d 24 |$=._Stri|p(Param$|
|000038a0| 29 0d 19 be 04 0d 19 c8 | 05 e1 0d 19 d2 04 0d 19 |).......|........|
|000038b0| dc 0e dd 20 f2 5f 50 53 | 74 6f 72 65 0d 19 e6 04 |... ._PS|tore....|
|000038c0| 0d 19 f0 20 20 50 61 72 | 61 6d 24 3d c2 50 61 72 |... Par|am$=.Par|
|000038d0| 61 6d 24 2c a9 28 50 61 | 72 61 6d 24 29 2d 31 29 |am$,.(Pa|ram$)-1)|
|000038e0| 0d 19 fa 04 0d 1a 04 1b | 20 50 61 72 61 6d 24 3d |........| Param$=|
|000038f0| a4 5f 53 74 72 69 70 28 | 50 61 72 61 6d 24 29 0d |._Strip(|Param$).|
|00003900| 1a 0e 04 0d 1a 18 16 20 | 4c 65 6e 67 74 68 25 3d |....... |Length%=|
|00003910| a9 28 50 61 72 61 6d 24 | 29 0d 1a 22 04 0d 1a 2c |.(Param$|).."...,|
|00003920| 43 20 e7 20 4c 65 6e 67 | 74 68 25 3d 30 20 8c 20 |C . Leng|th%=0 . |
|00003930| f2 5f 52 65 70 6f 72 74 | 28 22 49 6e 63 6f 72 72 |._Report|("Incorr|
|00003940| 65 63 74 20 66 6f 72 6d | 61 74 20 6f 66 20 50 52 |ect form|at of PR|
|00003950| 49 4e 54 20 73 74 61 74 | 65 6d 65 6e 74 2e 22 29 |INT stat|ement.")|
|00003960| 0d 1a 36 04 0d 1a 40 18 | 20 46 5f 45 6e 64 25 3d |..6...@.| F_End%=|
|00003970| a7 50 61 72 61 6d 24 2c | 22 5d 22 29 0d 1a 4a 43 |.Param$,|"]")..JC|
|00003980| 20 e7 20 46 5f 45 6e 64 | 25 3c 3d 31 20 8c 20 f2 | . F_End|%<=1 . .|
|00003990| 5f 52 65 70 6f 72 74 28 | 22 49 6e 63 6f 72 72 65 |_Report(|"Incorre|
|000039a0| 63 74 20 66 6f 72 6d 61 | 74 20 6f 66 20 50 52 49 |ct forma|t of PRI|
|000039b0| 4e 54 20 73 74 61 74 65 | 6d 65 6e 74 2e 22 29 0d |NT state|ment.").|
|000039c0| 1a 54 1c 20 46 6f 72 6d | 24 3d c0 50 61 72 61 6d |.T. Form|$=.Param|
|000039d0| 24 2c 46 5f 45 6e 64 25 | 2d 31 29 0d 1a 5e 25 20 |$,F_End%|-1)..^% |
|000039e0| 50 61 72 61 6d 24 3d c2 | 50 61 72 61 6d 24 2c a9 |Param$=.|Param$,.|
|000039f0| 28 50 61 72 61 6d 24 29 | 2d 46 5f 45 6e 64 25 29 |(Param$)|-F_End%)|
|00003a00| 0d 1a 68 04 0d 1a 72 1a | 20 f2 5f 4f 75 74 70 75 |..h...r.| ._Outpu|
|00003a10| 74 28 c3 28 a0 28 46 6f | 72 6d 24 29 29 29 0d 1a |t(.(.(Fo|rm$)))..|
|00003a20| 7c 04 0d 1a 86 1b 20 50 | 61 72 61 6d 24 3d a4 5f ||..... P|aram$=._|
|00003a30| 53 74 72 69 70 28 50 61 | 72 61 6d 24 29 0d 1a 90 |Strip(Pa|ram$)...|
|00003a40| 04 0d 1a 9a 05 e1 0d 1a | a4 04 0d 1a ae 0b dd 20 |........|....... |
|00003a50| f2 5f 50 43 72 0d 1a b8 | 04 0d 1a c2 16 20 4c 65 |._PCr...|..... Le|
|00003a60| 6e 67 74 68 25 3d a9 28 | 50 61 72 61 6d 24 29 0d |ngth%=.(|Param$).|
|00003a70| 1a cc 04 0d 1a d6 1e 20 | 50 61 72 61 6d 24 3d c2 |....... |Param$=.|
|00003a80| 50 61 72 61 6d 24 2c 4c | 65 6e 67 74 68 25 2d 31 |Param$,L|ength%-1|
|00003a90| 29 0d 1a e0 1b 20 50 61 | 72 61 6d 24 3d a4 5f 53 |).... Pa|ram$=._S|
|00003aa0| 74 72 69 70 28 50 61 72 | 61 6d 24 29 0d 1a ea 16 |trip(Par|am$)....|
|00003ab0| 20 4c 65 6e 67 74 68 25 | 3d a9 28 50 61 72 61 6d | Length%|=.(Param|
|00003ac0| 24 29 0d 1a f4 04 0d 1a | fe 14 20 f2 5f 4f 75 74 |$)......|.. ._Out|
|00003ad0| 70 75 74 28 bd 28 31 33 | 29 29 0d 1b 08 04 0d 1b |put(.(13|))......|
|00003ae0| 12 05 e1 0d 1b 1c 04 0d | 1b 26 0d dd 20 f2 5f 53 |........|.&.. ._S|
|00003af0| 70 61 63 65 0d 1b 30 04 | 0d 1b 3a 0c 20 f2 5f 50 |pace..0.|..:. ._P|
|00003b00| 72 69 6e 74 0d 1b 44 0d | 20 f5 20 fd 20 a5 3d 33 |rint..D.| . . .=3|
|00003b10| 32 0d 1b 4e 0c 20 2a 46 | 58 31 35 2c 31 0d 1b 58 |2..N. *F|X15,1..X|
|00003b20| 04 0d 1b 62 05 e1 0d 1b | 6c 04 0d 1b 76 0c dd 20 |...b....|l...v.. |
|00003b30| f2 5f 50 47 65 74 0d 1b | 80 04 0d 1b 8a 17 20 e3 |._PGet..|...... .|
|00003b40| 20 6f 62 6a 25 3d 31 20 | b8 20 4f 5f 4e 75 6d 62 | obj%=1 |. O_Numb|
|00003b50| 25 0d 1b 94 1a 20 20 50 | 61 72 61 6d 24 3d 4f 62 |%.... P|aram$=Ob|
|00003b60| 6a 65 63 74 24 28 6f 62 | 6a 25 29 0d 1b 9e 13 20 |ject$(ob|j%).... |
|00003b70| 20 50 6c 25 3d a9 28 50 | 61 72 61 6d 24 29 0d 1b | Pl%=.(P|aram$)..|
|00003b80| a8 18 20 20 e3 20 6b 65 | 79 25 3d 31 20 b8 20 57 |.. . ke|y%=1 . W|
|00003b90| 5f 4e 75 6d 62 25 0d 1b | b2 36 20 20 20 e7 20 c0 |_Numb%..|.6 . .|
|00003ba0| 57 6f 72 64 24 28 6b 65 | 79 25 29 2c 50 6c 25 29 |Word$(ke|y%),Pl%)|
|00003bb0| 3d 50 61 72 61 6d 24 20 | 80 20 55 73 65 64 5f 57 |=Param$ |. Used_W|
|00003bc0| 6f 72 64 25 28 6b 65 79 | 25 29 20 8c 0d 1b bc 26 |ord%(key|%) ....&|
|00003bd0| 20 20 20 20 e7 20 4c 6f | 63 61 74 69 6f 6e 25 28 | . Lo|cation%(|
|00003be0| 6f 62 6a 25 29 3c 3e 53 | 74 6f 72 65 25 28 33 29 |obj%)<>S|tore%(3)|
|00003bf0| 20 8c 0d 1b c6 2e 20 20 | 20 20 20 f2 5f 4f 75 74 | ..... | ._Out|
|00003c00| 70 75 74 28 22 59 6f 75 | 20 64 6f 6e 27 74 20 73 |put("You| don't s|
|00003c10| 65 65 20 74 68 61 74 2e | 22 2b bd 28 31 33 29 29 |ee that.|"+.(13))|
|00003c20| 0d 1b d0 09 20 20 20 20 | cc 0d 1b da 30 20 20 20 |.... |....0 |
|00003c30| 20 20 e7 20 28 53 74 6f | 72 65 25 28 32 29 2b 57 | . (Sto|re%(2)+W|
|00003c40| 65 69 67 68 74 25 28 6f | 62 6a 25 29 29 3e 53 74 |eight%(o|bj%))>St|
|00003c50| 6f 72 65 25 28 31 29 20 | 8c 0d 1b e4 2c 20 20 20 |ore%(1) |...., |
|00003c60| 20 20 20 f2 5f 4f 75 74 | 70 75 74 28 22 49 74 20 | ._Out|put("It |
|00003c70| 69 73 20 74 6f 6f 20 68 | 65 61 76 79 2e 22 2b bd |is too h|eavy."+.|
|00003c80| 28 31 33 29 29 0d 1b ee | 0a 20 20 20 20 20 cc 0d |(13))...|. ..|
|00003c90| 1b f8 21 20 20 20 20 20 | 20 f2 5f 4f 75 74 70 75 |..! | ._Outpu|
|00003ca0| 74 28 22 4f 6b 61 79 2e | 22 2b bd 28 31 33 29 29 |t("Okay.|"+.(13))|
|00003cb0| 0d 1c 02 2b 20 20 20 20 | 20 20 53 74 6f 72 65 25 |...+ | Store%|
|00003cc0| 28 32 29 3d 53 74 6f 72 | 65 25 28 32 29 2b 57 65 |(2)=Stor|e%(2)+We|
|00003cd0| 69 67 68 74 25 28 6f 62 | 6a 25 29 0d 1c 0c 1b 20 |ight%(ob|j%).... |
|00003ce0| 20 20 20 20 20 4c 6f 63 | 61 74 69 6f 6e 25 28 6f | Loc|ation%(o|
|00003cf0| 62 6a 25 29 3d 30 0d 1c | 16 0a 20 20 20 20 20 cd |bj%)=0..|.. .|
|00003d00| 0d 1c 20 09 20 20 20 20 | cd 0d 1c 2a 08 20 20 20 |.. . |...*. |
|00003d10| cd 0d 1c 34 07 20 20 ed | 0d 1c 3e 06 20 ed 0d 1c |...4. .|..>. ...|
|00003d20| 48 05 e1 0d 1c 52 04 0d | 1c 5c 0b dd 20 f2 5f 47 |H....R..|.\.. ._G|
|00003d30| 65 74 0d 1c 66 04 0d 1c | 70 14 20 4f 62 6a 65 63 |et..f...|p. Objec|
|00003d40| 74 4e 75 6d 62 65 72 25 | 3d 30 0d 1c 7a 04 0d 1c |tNumber%|=0..z...|
|00003d50| 84 15 20 e3 20 41 25 3d | 31 20 b8 20 4f 5f 4e 75 |.. . A%=|1 . O_Nu|
|00003d60| 6d 62 25 0d 1c 8e 2d 20 | 20 e7 20 4f 62 6a 65 63 |mb%...- | . Objec|
|00003d70| 74 24 28 41 25 29 3d 50 | 61 72 61 6d 24 20 8c 20 |t$(A%)=P|aram$ . |
|00003d80| 4f 62 6a 65 63 74 4e 75 | 6d 62 65 72 25 3d 41 25 |ObjectNu|mber%=A%|
|00003d90| 0d 1c 98 06 20 ed 0d 1c | a2 04 0d 1c ac 18 20 e7 |.... ...|...... .|
|00003da0| 20 4f 62 6a 65 63 74 4e | 75 6d 62 65 72 25 3d 30 | ObjectN|umber%=0|
|00003db0| 20 8c 0d 1c b6 20 20 20 | f2 5f 4f 75 74 70 75 74 | .... |._Output|
|00003dc0| 28 22 59 6f 75 20 63 61 | 6e 27 74 2e 22 2b bd 31 |("You ca|n't."+.1|
|00003dd0| 33 29 0d 1c c0 06 20 cc | 0d 1c ca 2d 20 20 e7 20 |3).... .|...- . |
|00003de0| 4c 6f 63 61 74 69 6f 6e | 25 28 4f 62 6a 65 63 74 |Location|%(Object|
|00003df0| 4e 75 6d 62 65 72 25 29 | 3c 3e 53 74 6f 72 65 25 |Number%)|<>Store%|
|00003e00| 28 33 29 20 8c 0d 1c d4 | 2d 20 20 20 f2 5f 4f 75 |(3) ....|- ._Ou|
|00003e10| 74 70 75 74 28 22 49 20 | 64 6f 6e 27 74 20 73 65 |tput("I |don't se|
|00003e20| 65 20 74 68 61 74 20 68 | 65 72 65 2e 22 2b bd 31 |e that h|ere."+.1|
|00003e30| 33 29 0d 1c de 07 20 20 | cc 0d 1c e8 35 20 20 20 |3).... |....5 |
|00003e40| e7 20 57 65 69 67 68 74 | 25 28 4f 62 6a 65 63 74 |. Weight|%(Object|
|00003e50| 4e 75 6d 62 65 72 25 29 | 2b 53 74 6f 72 65 25 28 |Number%)|+Store%(|
|00003e60| 32 29 3e 53 74 6f 72 65 | 25 28 31 29 20 8c 0d 1c |2)>Store|%(1) ...|
|00003e70| f2 28 20 20 20 20 f2 5f | 4f 75 74 70 75 74 28 22 |.( ._|Output("|
|00003e80| 49 74 20 69 73 20 74 6f | 6f 20 68 65 61 76 79 2e |It is to|o heavy.|
|00003e90| 22 2b bd 31 33 29 0d 1c | fc 08 20 20 20 cc 0d 1d |"+.13)..|.. ...|
|00003ea0| 06 1d 20 20 20 20 f2 5f | 4f 75 74 70 75 74 28 22 |.. ._|Output("|
|00003eb0| 4f 6b 61 79 2e 22 2b bd | 31 33 29 0d 1d 10 22 20 |Okay."+.|13)..." |
|00003ec0| 20 20 20 4c 6f 63 61 74 | 69 6f 6e 25 28 4f 62 6a | Locat|ion%(Obj|
|00003ed0| 65 63 74 4e 75 6d 62 65 | 72 25 29 3d 30 0d 1d 1a |ectNumbe|r%)=0...|
|00003ee0| 32 20 20 20 20 53 74 6f | 72 65 25 28 32 29 3d 57 |2 Sto|re%(2)=W|
|00003ef0| 65 69 67 68 74 25 28 4f | 62 6a 65 63 74 4e 75 6d |eight%(O|bjectNum|
|00003f00| 62 65 72 25 29 2b 53 74 | 6f 72 65 25 28 32 29 0d |ber%)+St|ore%(2).|
|00003f10| 1d 24 08 20 20 20 cd 0d | 1d 2e 07 20 20 cd 0d 1d |.$. ..|... ...|
|00003f20| 38 06 20 cd 0d 1d 42 04 | 0d 1d 4c 05 e1 0d 1d 56 |8. ...B.|..L....V|
|00003f30| 04 0d 1d 60 0d dd 20 f2 | 5f 50 44 72 6f 70 0d 1d |...`.. .|_PDrop..|
|00003f40| 6a 04 0d 1d 74 17 20 e3 | 20 6f 62 6a 25 3d 31 20 |j...t. .| obj%=1 |
|00003f50| b8 20 4f 5f 4e 75 6d 62 | 25 0d 1d 7e 1a 20 20 50 |. O_Numb|%..~. P|
|00003f60| 61 72 61 6d 24 3d 4f 62 | 6a 65 63 74 24 28 6f 62 |aram$=Ob|ject$(ob|
|00003f70| 6a 25 29 0d 1d 88 13 20 | 20 50 6c 25 3d a9 28 50 |j%).... | Pl%=.(P|
|00003f80| 61 72 61 6d 24 29 0d 1d | 92 18 20 20 e3 20 6b 65 |aram$)..|.. . ke|
|00003f90| 79 25 3d 31 20 b8 20 57 | 5f 4e 75 6d 62 25 0d 1d |y%=1 . W|_Numb%..|
|00003fa0| 9c 36 20 20 20 e7 20 c0 | 57 6f 72 64 24 28 6b 65 |.6 . .|Word$(ke|
|00003fb0| 79 25 29 2c 50 6c 25 29 | 3d 50 61 72 61 6d 24 20 |y%),Pl%)|=Param$ |
|00003fc0| 80 20 55 73 65 64 5f 57 | 6f 72 64 25 28 6b 65 79 |. Used_W|ord%(key|
|00003fd0| 25 29 20 8c 0d 1d a6 1e | 20 20 20 20 e7 20 4c 6f |%) .....| . Lo|
|00003fe0| 63 61 74 69 6f 6e 25 28 | 6f 62 6a 25 29 3c 3e 30 |cation%(|obj%)<>0|
|00003ff0| 20 8c 0d 1d b0 2f 20 20 | 20 20 20 f2 5f 4f 75 74 | ..../ | ._Out|
|00004000| 70 75 74 28 22 59 6f 75 | 20 64 6f 6e 27 74 20 68 |put("You| don't h|
|00004010| 61 76 65 20 74 68 61 74 | 2e 22 2b bd 28 31 33 29 |ave that|."+.(13)|
|00004020| 29 0d 1d ba 09 20 20 20 | 20 cc 0d 1d c4 20 20 20 |).... | .... |
|00004030| 20 20 20 f2 5f 4f 75 74 | 70 75 74 28 22 4f 6b 61 | ._Out|put("Oka|
|00004040| 79 2e 22 2b bd 28 31 33 | 29 29 0d 1d ce 2a 20 20 |y."+.(13|))...* |
|00004050| 20 20 20 53 74 6f 72 65 | 25 28 32 29 3d 53 74 6f | Store|%(2)=Sto|
|00004060| 72 65 25 28 32 29 2d 57 | 65 69 67 68 74 25 28 6f |re%(2)-W|eight%(o|
|00004070| 62 6a 25 29 0d 1d d8 22 | 20 20 20 20 20 4c 6f 63 |bj%)..."| Loc|
|00004080| 61 74 69 6f 6e 25 28 6f | 62 6a 25 29 3d 53 74 6f |ation%(o|bj%)=Sto|
|00004090| 72 65 25 28 33 29 0d 1d | e2 09 20 20 20 20 cd 0d |re%(3)..|.. ..|
|000040a0| 1d ec 08 20 20 20 cd 0d | 1d f6 07 20 20 ed 0d 1e |... ..|... ...|
|000040b0| 00 06 20 ed 0d 1e 0a 04 | 0d 1e 14 05 e1 0d 1e 1e |.. .....|........|
|000040c0| 04 0d 1e 28 0c dd 20 f2 | 5f 44 72 6f 70 0d 1e 32 |...(.. .|_Drop..2|
|000040d0| 04 0d 1e 3c 14 20 4f 62 | 6a 65 63 74 4e 75 6d 62 |...<. Ob|jectNumb|
|000040e0| 65 72 25 3d 30 0d 1e 46 | 04 0d 1e 50 15 20 e3 20 |er%=0..F|...P. . |
|000040f0| 41 25 3d 31 20 b8 20 4f | 5f 4e 75 6d 62 25 0d 1e |A%=1 . O|_Numb%..|
|00004100| 5a 2d 20 20 e7 20 4f 62 | 6a 65 63 74 24 28 41 25 |Z- . Ob|ject$(A%|
|00004110| 29 3d 50 61 72 61 6d 24 | 20 8c 20 4f 62 6a 65 63 |)=Param$| . Objec|
|00004120| 74 4e 75 6d 62 65 72 25 | 3d 41 25 0d 1e 64 06 20 |tNumber%|=A%..d. |
|00004130| ed 0d 1e 6e 04 0d 1e 78 | 36 20 e7 20 4f 62 6a 65 |...n...x|6 . Obje|
|00004140| 63 74 4e 75 6d 62 65 72 | 25 3d 30 20 84 20 4c 6f |ctNumber|%=0 . Lo|
|00004150| 63 61 74 69 6f 6e 25 28 | 4f 62 6a 65 63 74 4e 75 |cation%(|ObjectNu|
|00004160| 6d 62 65 72 25 29 3c 3e | 30 20 8c 0d 1e 82 2a 20 |mber%)<>|0 ....* |
|00004170| 20 f2 5f 4f 75 74 70 75 | 74 28 22 59 6f 75 20 64 | ._Outpu|t("You d|
|00004180| 6f 6e 27 74 20 68 61 76 | 65 20 74 68 61 74 2e 22 |on't hav|e that."|
|00004190| 2b bd 31 33 29 0d 1e 8c | 06 20 cc 0d 1e 96 28 20 |+.13)...|. ....( |
|000041a0| 20 4c 6f 63 61 74 69 6f | 6e 25 28 4f 62 6a 65 63 | Locatio|n%(Objec|
|000041b0| 74 4e 75 6d 62 65 72 25 | 29 3d 53 74 6f 72 65 25 |tNumber%|)=Store%|
|000041c0| 28 33 29 0d 1e a0 30 20 | 20 53 74 6f 72 65 25 28 |(3)...0 | Store%(|
|000041d0| 32 29 3d 53 74 6f 72 65 | 25 28 32 29 2d 57 65 69 |2)=Store|%(2)-Wei|
|000041e0| 67 68 74 25 28 4f 62 6a | 65 63 74 4e 75 6d 62 65 |ght%(Obj|ectNumbe|
|000041f0| 72 25 29 0d 1e aa 1b 20 | 20 f2 5f 4f 75 74 70 75 |r%).... | ._Outpu|
|00004200| 74 28 22 4f 6b 61 79 2e | 22 2b bd 31 33 29 0d 1e |t("Okay.|"+.13)..|
|00004210| b4 06 20 cd 0d 1e be 04 | 0d 1e c8 05 e1 0d 1e d2 |.. .....|........|
|00004220| 04 0d 1e dc 11 dd 20 f2 | 5f 49 6e 76 65 6e 74 6f |...... .|_Invento|
|00004230| 72 79 0d 1e e6 04 0d 1e | f0 16 20 54 65 78 74 24 |ry......|.. Text$|
|00004240| 3d 22 59 6f 75 20 68 61 | 76 65 20 22 0d 1e fa 1a |="You ha|ve "....|
|00004250| 20 e3 20 4e 75 6d 62 65 | 72 25 3d 31 20 b8 20 4f | . Numbe|r%=1 . O|
|00004260| 5f 4e 75 6d 62 25 0d 1f | 04 1e 20 20 e7 20 4c 6f |_Numb%..|.. . Lo|
|00004270| 63 61 74 69 6f 6e 25 28 | 4e 75 6d 62 65 72 25 29 |cation%(|Number%)|
|00004280| 3d 30 20 8c 0d 1f 0e 21 | 20 20 20 54 65 78 74 24 |=0 ....!| Text$|
|00004290| 3d 54 65 78 74 24 2b 4c | 69 73 74 24 28 4e 75 6d |=Text$+L|ist$(Num|
|000042a0| 62 65 72 25 29 0d 1f 18 | 17 20 20 20 54 65 78 74 |ber%)...|. Text|
|000042b0| 24 3d 54 65 78 74 24 2b | 22 2c 20 22 0d 1f 22 07 |$=Text$+|", "..".|
|000042c0| 20 20 cd 0d 1f 2c 06 20 | ed 0d 1f 36 1b 20 e7 20 | ...,. |...6. . |
|000042d0| 54 65 78 74 24 3c 3e 22 | 59 6f 75 20 68 61 76 65 |Text$<>"|You have|
|000042e0| 20 22 20 8c 0d 1f 40 22 | 20 20 54 65 78 74 24 3d | " ...@"| Text$=|
|000042f0| c0 54 65 78 74 24 2c a9 | 28 54 65 78 74 24 29 2d |.Text$,.|(Text$)-|
|00004300| 32 29 2b 22 2e 22 0d 1f | 4a 19 20 20 f2 5f 4f 75 |2)+"."..|J. ._Ou|
|00004310| 74 70 75 74 28 54 65 78 | 74 24 2b bd 31 33 29 0d |tput(Tex|t$+.13).|
|00004320| 1f 54 06 20 cc 0d 1f 5e | 27 20 20 f2 5f 4f 75 74 |.T. ...^|' ._Out|
|00004330| 70 75 74 28 22 59 6f 75 | 20 68 61 76 65 20 6e 6f |put("You| have no|
|00004340| 74 68 69 6e 67 2e 22 2b | bd 31 33 29 0d 1f 68 06 |thing."+|.13)..h.|
|00004350| 20 cd 0d 1f 72 04 0d 1f | 7c 05 e1 0d 1f 86 04 0d | ...r...||.......|
|00004360| 1f 90 0a dd 20 f2 5f 49 | 66 0d 1f 9a 04 0d 1f a4 |.... ._I|f.......|
|00004370| 1b 20 50 61 72 61 6d 24 | 3d a4 5f 53 74 72 69 70 |. Param$|=._Strip|
|00004380| 28 50 61 72 61 6d 24 29 | 0d 1f ae 1c 20 54 68 65 |(Param$)|.... The|
|00004390| 6e 50 6f 73 3d a7 50 61 | 72 61 6d 24 2c 22 54 48 |nPos=.Pa|ram$,"TH|
|000043a0| 45 4e 22 29 0d 1f b8 2c | 20 e7 20 54 68 65 6e 50 |EN")...,| . ThenP|
|000043b0| 6f 73 3d 30 20 8c 20 f2 | 5f 52 65 70 6f 72 74 28 |os=0 . .|_Report(|
|000043c0| 22 4d 69 73 73 69 6e 67 | 20 54 48 45 4e 2e 22 29 |"Missing| THEN.")|
|000043d0| 0d 1f c2 1a 20 50 61 72 | 61 6d 4c 65 6e 67 74 68 |.... Par|amLength|
|000043e0| 3d a9 28 50 61 72 61 6d | 24 29 0d 1f cc 1e 20 e7 |=.(Param|$).... .|
|000043f0| 20 54 68 65 6e 50 6f 73 | 3d 50 61 72 61 6d 4c 65 | ThenPos|=ParamLe|
|00004400| 6e 67 74 68 2d 33 20 8c | 0d 1f d6 1f 20 20 50 61 |ngth-3 .|.... Pa|
|00004410| 72 61 6d 24 3d c0 50 61 | 72 61 6d 24 2c 54 68 65 |ram$=.Pa|ram$,The|
|00004420| 6e 50 6f 73 2d 31 29 0d | 1f e0 0e 20 20 f2 5f 49 |nPos-1).|... ._I|
|00004430| 66 32 28 b9 29 0d 1f ea | 06 20 cc 0d 1f f4 22 20 |f2(.)...|. ...." |
|00004440| 20 43 6f 6d 6d 61 6e 64 | 32 24 3d c1 50 61 72 61 | Command|2$=.Para|
|00004450| 6d 24 2c 54 68 65 6e 50 | 6f 73 2b 34 29 0d 1f fe |m$,ThenP|os+4)...|
|00004460| 1f 20 20 50 61 72 61 6d | 24 3d c0 50 61 72 61 6d |. Param|$=.Param|
|00004470| 24 2c 54 68 65 6e 50 6f | 73 2d 31 29 0d 20 08 0e |$,ThenPo|s-1). ..|
|00004480| 20 20 f2 5f 49 66 32 28 | a3 29 0d 20 12 06 20 cd | ._If2(|.). .. .|
|00004490| 0d 20 1c 04 0d 20 26 05 | e1 0d 20 30 04 0d 20 3a |. ... &.|.. 0.. :|
|000044a0| 14 dd 20 f2 5f 49 66 32 | 28 49 66 54 79 70 65 25 |.. ._If2|(IfType%|
|000044b0| 29 0d 20 44 04 0d 20 4e | 4a 20 e7 20 49 66 54 79 |). D.. N|J . IfTy|
|000044c0| 70 65 25 20 80 20 43 6f | 6e 64 69 74 69 6f 6e 53 |pe% . Co|nditionS|
|000044d0| 74 61 74 25 3e 30 20 8c | 20 f2 5f 52 65 70 6f 72 |tat%>0 .| ._Repor|
|000044e0| 74 28 22 41 74 74 65 6d | 70 74 20 74 6f 20 6e 65 |t("Attem|pt to ne|
|000044f0| 73 74 20 63 6f 6e 64 69 | 74 69 6f 6e 2e 22 29 0d |st condi|tion.").|
|00004500| 20 58 04 0d 20 62 1b 20 | 50 61 72 61 6d 24 3d a4 | X.. b. |Param$=.|
|00004510| 5f 53 74 72 69 70 28 50 | 61 72 61 6d 24 29 0d 20 |_Strip(P|aram$). |
|00004520| 6c 04 0d 20 76 16 20 4c | 65 6e 67 74 68 25 3d a9 |l.. v. L|ength%=.|
|00004530| 28 50 61 72 61 6d 24 29 | 0d 20 80 34 20 e7 20 4c |(Param$)|. .4 . L|
|00004540| 65 6e 67 74 68 25 3d 30 | 20 8c 20 f2 5f 52 65 70 |ength%=0| . ._Rep|
|00004550| 6f 72 74 28 22 49 46 20 | 77 69 74 68 6f 75 74 20 |ort("IF |without |
|00004560| 63 6f 6e 64 69 74 69 6f | 6e 2e 22 29 0d 20 8a 04 |conditio|n."). ..|
|00004570| 0d 20 94 16 20 52 65 73 | 75 6c 74 25 3d a0 28 50 |. .. Res|ult%=.(P|
|00004580| 61 72 61 6d 24 29 0d 20 | 9e 04 0d 20 a8 10 20 e7 |aram$). |... .. .|
|00004590| 20 49 66 54 79 70 65 25 | 20 8c 0d 20 b2 13 20 20 | IfType%| .. .. |
|000045a0| e7 20 ac 20 52 65 73 75 | 6c 74 25 20 8c 0d 20 bc |. . Resu|lt% .. .|
|000045b0| 17 20 20 20 43 6f 6e 64 | 69 74 69 6f 6e 53 74 61 |. Cond|itionSta|
|000045c0| 74 25 3d 31 0d 20 c6 27 | 20 20 20 50 6f 73 5f 53 |t%=1. .'| Pos_S|
|000045d0| 25 3d a4 5f 46 69 6e 64 | 45 6c 73 65 4f 72 45 6e |%=._Find|ElseOrEn|
|000045e0| 64 69 66 28 50 6f 73 5f | 53 25 29 0d 20 d0 07 20 |dif(Pos_|S%). .. |
|000045f0| 20 cc 0d 20 da 17 20 20 | 20 43 6f 6e 64 69 74 69 | .. .. | Conditi|
|00004600| 6f 6e 53 74 61 74 25 3d | 31 0d 20 e4 07 20 20 cd |onStat%=|1. .. .|
|00004610| 0d 20 ee 06 20 cc 0d 20 | f8 13 20 20 e7 20 ac 20 |. .. .. |.. . . |
|00004620| 52 65 73 75 6c 74 25 20 | 8c 0d 21 02 13 20 20 20 |Result% |..!.. |
|00004630| 43 6f 6d 6d 61 6e 64 32 | 24 3d 22 22 0d 21 0c 07 |Command2|$="".!..|
|00004640| 20 20 cc 0d 21 16 2f 20 | 20 20 f4 20 44 6f 20 6e | ..!./ | . Do n|
|00004650| 6f 74 68 69 6e 67 20 2d | 20 6c 65 61 76 65 20 63 |othing -| leave c|
|00004660| 6f 6d 6d 61 6e 64 20 32 | 20 69 6e 20 70 6c 61 63 |ommand 2| in plac|
|00004670| 65 2e 0d 21 20 07 20 20 | cd 0d 21 2a 06 20 cd 0d |e..! . |..!*. ..|
|00004680| 21 34 04 0d 21 3e 05 e1 | 0d 21 48 04 0d 21 52 0c |!4..!>..|.!H..!R.|
|00004690| dd 20 f2 5f 45 6c 73 65 | 0d 21 5c 04 0d 21 66 36 |. ._Else|.!\..!f6|
|000046a0| 20 e7 20 43 6f 6e 64 69 | 74 69 6f 6e 53 74 61 74 | . Condi|tionStat|
|000046b0| 25 3d 30 20 8c 20 f2 5f | 52 65 70 6f 72 74 28 22 |%=0 . ._|Report("|
|000046c0| 45 4c 53 45 20 77 69 74 | 68 6f 75 74 20 49 46 2e |ELSE wit|hout IF.|
|000046d0| 22 29 0d 21 70 40 20 e7 | 20 43 6f 6e 64 69 74 69 |").!p@ .| Conditi|
|000046e0| 6f 6e 53 74 61 74 25 3d | 32 20 8c 20 f2 5f 52 65 |onStat%=|2 . ._Re|
|000046f0| 70 6f 72 74 28 22 41 74 | 74 65 6d 70 74 20 74 6f |port("At|tempt to|
|00004700| 20 6e 65 73 74 20 63 6f | 6e 64 69 74 69 6f 6e 2e | nest co|ndition.|
|00004710| 22 29 0d 21 7a 04 0d 21 | 84 15 20 43 6f 6e 64 69 |").!z..!|.. Condi|
|00004720| 74 69 6f 6e 53 74 61 74 | 25 3d 30 0d 21 8e 1f 20 |tionStat|%=0.!.. |
|00004730| 50 6f 73 5f 53 25 3d a4 | 5f 46 69 6e 64 45 6e 64 |Pos_S%=.|_FindEnd|
|00004740| 69 66 28 50 6f 73 5f 53 | 25 29 0d 21 98 04 0d 21 |if(Pos_S|%).!...!|
|00004750| a2 05 e1 0d 21 ac 04 0d | 21 b6 0d dd 20 f2 5f 45 |....!...|!... ._E|
|00004760| 6e 64 49 66 0d 21 c0 04 | 0d 21 ca 38 20 e7 20 43 |ndIf.!..|.!.8 . C|
|00004770| 6f 6e 64 69 74 69 6f 6e | 53 74 61 74 25 3d 30 20 |ondition|Stat%=0 |
|00004780| 8c 20 f2 5f 52 65 70 6f | 72 74 28 22 45 4e 44 20 |. ._Repo|rt("END |
|00004790| 49 46 20 77 69 74 68 6f | 75 74 20 49 46 2e 22 29 |IF witho|ut IF.")|
|000047a0| 0d 21 d4 04 0d 21 de 15 | 20 43 6f 6e 64 69 74 69 |.!...!..| Conditi|
|000047b0| 6f 6e 53 74 61 74 25 3d | 30 0d 21 e8 04 0d 21 f2 |onStat%=|0.!...!.|
|000047c0| 05 e1 0d 21 fc 04 0d 22 | 06 04 0d 22 10 15 dd 20 |...!..."|..."... |
|000047d0| f2 5f 52 65 70 6f 72 74 | 28 54 65 78 74 24 29 0d |._Report|(Text$).|
|000047e0| 22 1a 04 0d 22 24 08 20 | fb 20 32 0d 22 2e 04 0d |"..."$. |. 2."...|
|000047f0| 22 38 0f 20 f1 27 27 54 | 65 78 74 24 27 27 0d 22 |"8. .''T|ext$''."|
|00004800| 42 07 20 c8 98 0d 22 4c | 04 0d 22 56 05 e1 0d 22 |B. ..."L|.."V..."|
|00004810| 60 04 0d 22 6a 0f dd 20 | f2 5f 43 6f 6d 6d 61 6e |`.."j.. |._Comman|
|00004820| 64 0d 22 74 04 0d 22 7e | 0d 20 4d 6f 76 65 64 25 |d."t.."~|. Moved%|
|00004830| 3d a3 0d 22 88 0c 20 44 | 6f 6e 65 25 3d a3 0d 22 |=..".. D|one%=.."|
|00004840| 92 04 0d 22 9c 10 20 e7 | 20 ac 20 44 6f 6e 65 25 |...".. .| . Done%|
|00004850| 20 8c 0d 22 a6 1c 20 20 | e7 20 55 73 65 64 5f 43 | ..".. |. Used_C|
|00004860| 6f 6d 6d 61 6e 64 25 28 | 31 29 3d b9 20 8c 0d 22 |ommand%(|1)=. .."|
|00004870| b0 0d 20 20 20 f2 5f 50 | 47 65 74 0d 22 ba 0e 20 |.. ._P|Get.".. |
|00004880| 20 20 44 6f 6e 65 25 3d | b9 0d 22 c4 07 20 20 cd | Done%=|..".. .|
|00004890| 0d 22 ce 06 20 cd 0d 22 | d8 04 0d 22 e2 10 20 e7 |.".. .."|...".. .|
|000048a0| 20 ac 20 44 6f 6e 65 25 | 20 8c 0d 22 ec 1a 20 20 | . Done%| ..".. |
|000048b0| e7 20 55 73 65 64 5f 43 | 6f 6d 6d 61 6e 64 25 28 |. Used_C|ommand%(|
|000048c0| 32 29 20 8c 0d 22 f6 0e | 20 20 20 f2 5f 50 44 72 |2) .."..| ._PDr|
|000048d0| 6f 70 0d 23 00 0e 20 20 | 20 44 6f 6e 65 25 3d b9 |op.#.. | Done%=.|
|000048e0| 0d 23 0a 07 20 20 cd 0d | 23 14 06 20 cd 0d 23 1e |.#.. ..|#.. ..#.|
|000048f0| 04 0d 23 28 10 20 e7 20 | ac 20 44 6f 6e 65 25 20 |..#(. . |. Done% |
|00004900| 8c 0d 23 32 1a 20 20 e7 | 20 55 73 65 64 5f 43 6f |..#2. .| Used_Co|
|00004910| 6d 6d 61 6e 64 25 28 33 | 29 20 8c 0d 23 3c 14 20 |mmand%(3|) ..#<. |
|00004920| 20 20 f2 5f 54 72 61 76 | 65 6c 28 22 4e 22 29 0d | ._Trav|el("N").|
|00004930| 23 46 0e 20 20 20 44 6f | 6e 65 25 3d b9 0d 23 50 |#F. Do|ne%=..#P|
|00004940| 07 20 20 cd 0d 23 5a 06 | 20 cd 0d 23 64 04 0d 23 |. ..#Z.| ..#d..#|
|00004950| 6e 10 20 e7 20 ac 20 44 | 6f 6e 65 25 20 8c 0d 23 |n. . . D|one% ..#|
|00004960| 78 1c 20 20 e7 20 55 73 | 65 64 5f 43 6f 6d 6d 61 |x. . Us|ed_Comma|
|00004970| 6e 64 25 28 35 29 3d b9 | 20 8c 0d 23 82 14 20 20 |nd%(5)=.| ..#.. |
|00004980| 20 f2 5f 54 72 61 76 65 | 6c 28 22 53 22 29 0d 23 | ._Trave|l("S").#|
|00004990| 8c 0e 20 20 20 44 6f 6e | 65 25 3d b9 0d 23 96 07 |.. Don|e%=..#..|
|000049a0| 20 20 cd 0d 23 a0 06 20 | cd 0d 23 aa 04 0d 23 b4 | ..#.. |..#...#.|
|000049b0| 10 20 e7 20 ac 20 44 6f | 6e 65 25 20 8c 0d 23 be |. . . Do|ne% ..#.|
|000049c0| 1a 20 20 e7 20 55 73 65 | 64 5f 43 6f 6d 6d 61 6e |. . Use|d_Comman|
|000049d0| 64 25 28 34 29 20 8c 0d | 23 c8 14 20 20 20 f2 5f |d%(4) ..|#.. ._|
|000049e0| 54 72 61 76 65 6c 28 22 | 45 22 29 0d 23 d2 0e 20 |Travel("|E").#.. |
|000049f0| 20 20 44 6f 6e 65 25 3d | b9 0d 23 dc 07 20 20 cd | Done%=|..#.. .|
|00004a00| 0d 23 e6 06 20 cd 0d 23 | f0 04 0d 23 fa 10 20 e7 |.#.. ..#|...#.. .|
|00004a10| 20 ac 20 44 6f 6e 65 25 | 20 8c 0d 24 04 1a 20 20 | . Done%| ..$.. |
|00004a20| e7 20 55 73 65 64 5f 43 | 6f 6d 6d 61 6e 64 25 28 |. Used_C|ommand%(|
|00004a30| 36 29 20 8c 0d 24 0e 14 | 20 20 20 f2 5f 54 72 61 |6) ..$..| ._Tra|
|00004a40| 76 65 6c 28 22 57 22 29 | 0d 24 18 0e 20 20 20 44 |vel("W")|.$.. D|
|00004a50| 6f 6e 65 25 3d b9 0d 24 | 22 07 20 20 cd 0d 24 2c |one%=..$|". ..$,|
|00004a60| 06 20 cd 0d 24 36 04 0d | 24 40 10 20 e7 20 ac 20 |. ..$6..|$@. . . |
|00004a70| 44 6f 6e 65 25 20 8c 0d | 24 4a 19 20 e7 20 55 73 |Done% ..|$J. . Us|
|00004a80| 65 64 5f 43 6f 6d 6d 61 | 6e 64 25 28 37 29 20 8c |ed_Comma|nd%(7) .|
|00004a90| 0d 24 54 14 20 20 20 f2 | 5f 54 72 61 76 65 6c 28 |.$T. .|_Travel(|
|00004aa0| 22 55 22 29 0d 24 5e 0e | 20 20 20 44 6f 6e 65 25 |"U").$^.| Done%|
|00004ab0| 3d b9 0d 24 68 07 20 20 | cd 0d 24 72 06 20 cd 0d |=..$h. |..$r. ..|
|00004ac0| 24 7c 04 0d 24 86 10 20 | e7 20 ac 20 44 6f 6e 65 |$|..$.. |. . Done|
|00004ad0| 25 20 8c 0d 24 90 1a 20 | 20 e7 20 55 73 65 64 5f |% ..$.. | . Used_|
|00004ae0| 43 6f 6d 6d 61 6e 64 25 | 28 38 29 20 8c 0d 24 9a |Command%|(8) ..$.|
|00004af0| 14 20 20 20 f2 5f 54 72 | 61 76 65 6c 28 22 44 22 |. ._Tr|avel("D"|
|00004b00| 29 0d 24 a4 0e 20 20 20 | 44 6f 6e 65 25 3d b9 0d |).$.. |Done%=..|
|00004b10| 24 ae 07 20 20 cd 0d 24 | b8 06 20 cd 0d 24 c2 04 |$.. ..$|.. ..$..|
|00004b20| 0d 24 cc 10 20 e7 20 ac | 20 44 6f 6e 65 25 20 8c |.$.. . .| Done% .|
|00004b30| 0d 24 d6 1a 20 20 e7 20 | 55 73 65 64 5f 43 6f 6d |.$.. . |Used_Com|
|00004b40| 6d 61 6e 64 25 28 39 29 | 20 8c 0d 24 e0 12 20 20 |mand%(9)| ..$.. |
|00004b50| 20 f2 5f 49 6e 76 65 6e | 74 6f 72 79 0d 24 ea 0e | ._Inven|tory.$..|
|00004b60| 20 20 20 44 6f 6e 65 25 | 3d b9 0d 24 f4 07 20 20 | Done%|=..$.. |
|00004b70| cd 0d 24 fe 06 20 cd 0d | 25 08 04 0d 25 12 10 20 |..$.. ..|%...%.. |
|00004b80| e7 20 ac 20 44 6f 6e 65 | 25 20 8c 0d 25 1c 1b 20 |. . Done|% ..%.. |
|00004b90| 20 e7 20 55 73 65 64 5f | 43 6f 6d 6d 61 6e 64 25 | . Used_|Command%|
|00004ba0| 28 31 30 29 20 8c 0d 25 | 26 11 20 20 20 f2 5f 50 |(10) ..%|&. ._P|
|00004bb0| 45 78 61 6d 69 6e 65 0d | 25 30 0e 20 20 20 44 6f |Examine.|%0. Do|
|00004bc0| 6e 65 25 3d b9 0d 25 3a | 07 20 20 cd 0d 25 44 06 |ne%=..%:|. ..%D.|
|00004bd0| 20 cd 0d 25 4e 04 0d 25 | 58 10 20 e7 20 ac 20 44 | ..%N..%|X. . . D|
|00004be0| 6f 6e 65 25 20 8c 0d 25 | 62 1b 20 20 e7 20 55 73 |one% ..%|b. . Us|
|00004bf0| 65 64 5f 43 6f 6d 6d 61 | 6e 64 25 28 31 31 29 20 |ed_Comma|nd%(11) |
|00004c00| 8c 0d 25 6c 1b 20 20 20 | f2 5f 4c 6f 6f 6b 3a f2 |..%l. |._Look:.|
|00004c10| 5f 4f 75 74 70 75 74 28 | bd 31 33 29 0d 25 76 0e |_Output(|.13).%v.|
|00004c20| 20 20 20 44 6f 6e 65 25 | 3d b9 0d 25 80 07 20 20 | Done%|=..%.. |
|00004c30| cd 0d 25 8a 06 20 cd 0d | 25 94 04 0d 25 9e 34 20 |..%.. ..|%...%.4 |
|00004c40| e7 20 ac 20 44 6f 6e 65 | 25 20 8c 20 f2 5f 4f 75 |. . Done|% . ._Ou|
|00004c50| 74 70 75 74 28 22 49 20 | 64 6f 6e 27 74 20 75 6e |tput("I |don't un|
|00004c60| 64 65 72 73 74 61 6e 64 | 2e 22 2b bd 31 33 29 0d |derstand|."+.13).|
|00004c70| 25 a8 04 0d 25 b2 05 e1 | 0d 25 bc 04 0d 25 c6 10 |%...%...|.%...%..|
|00004c80| dd 20 f2 5f 50 45 78 61 | 6d 69 6e 65 0d 25 d0 04 |. ._PExa|mine.%..|
|00004c90| 0d 25 da 17 20 e3 20 6f | 62 6a 25 3d 31 20 b8 20 |.%.. . o|bj%=1 . |
|00004ca0| 4f 5f 4e 75 6d 62 25 0d | 25 e4 1a 20 20 50 61 72 |O_Numb%.|%.. Par|
|00004cb0| 61 6d 24 3d 4f 62 6a 65 | 63 74 24 28 6f 62 6a 25 |am$=Obje|ct$(obj%|
|00004cc0| 29 0d 25 ee 13 20 20 50 | 6c 25 3d a9 28 50 61 72 |).%.. P|l%=.(Par|
|00004cd0| 61 6d 24 29 0d 25 f8 18 | 20 20 e3 20 6b 65 79 25 |am$).%..| . key%|
|00004ce0| 3d 31 20 b8 20 57 5f 4e | 75 6d 62 25 0d 26 02 36 |=1 . W_N|umb%.&.6|
|00004cf0| 20 20 20 e7 20 c0 57 6f | 72 64 24 28 6b 65 79 25 | . .Wo|rd$(key%|
|00004d00| 29 2c 50 6c 25 29 3d 50 | 61 72 61 6d 24 20 80 20 |),Pl%)=P|aram$ . |
|00004d10| 55 73 65 64 5f 57 6f 72 | 64 25 28 6b 65 79 25 29 |Used_Wor|d%(key%)|
|00004d20| 20 8c 0d 26 0c 3b 20 20 | 20 20 e7 20 4c 6f 63 61 | ..&.; | . Loca|
|00004d30| 74 69 6f 6e 25 28 6f 62 | 6a 25 29 3c 3e 30 20 80 |tion%(ob|j%)<>0 .|
|00004d40| 20 4c 6f 63 61 74 69 6f | 6e 25 28 6f 62 6a 25 29 | Locatio|n%(obj%)|
|00004d50| 3c 3e 53 74 6f 72 65 25 | 28 33 29 20 8c 0d 26 16 |<>Store%|(3) ..&.|
|00004d60| 2e 20 20 20 20 20 f2 5f | 4f 75 74 70 75 74 28 22 |. ._|Output("|
|00004d70| 59 6f 75 20 64 6f 6e 27 | 74 20 73 65 65 20 74 68 |You don'|t see th|
|00004d80| 61 74 2e 22 2b bd 28 31 | 33 29 29 0d 26 20 09 20 |at."+.(1|3)).& . |
|00004d90| 20 20 20 cc 0d 26 2a 27 | 20 20 20 20 20 f2 5f 4f | ..&*'| ._O|
|00004da0| 75 74 70 75 74 28 45 78 | 61 6d 69 6e 65 24 28 6f |utput(Ex|amine$(o|
|00004db0| 62 6a 25 29 2b bd 28 31 | 33 29 29 0d 26 34 09 20 |bj%)+.(1|3)).&4. |
|00004dc0| 20 20 20 cd 0d 26 3e 08 | 20 20 20 cd 0d 26 48 07 | ..&>.| ..&H.|
|00004dd0| 20 20 ed 0d 26 52 06 20 | ed 0d 26 5c 04 0d 26 66 | ..&R. |..&\..&f|
|00004de0| 05 e1 0d 26 70 04 0d 26 | 7a 0f dd 20 f2 5f 45 78 |...&p..&|z.. ._Ex|
|00004df0| 61 6d 69 6e 65 0d 26 84 | 04 0d 26 8e 14 20 4f 62 |amine.&.|..&.. Ob|
|00004e00| 6a 65 63 74 4e 75 6d 62 | 65 72 25 3d 30 0d 26 98 |jectNumb|er%=0.&.|
|00004e10| 04 0d 26 a2 15 20 e3 20 | 41 25 3d 31 20 b8 20 4f |..&.. . |A%=1 . O|
|00004e20| 5f 4e 75 6d 62 25 0d 26 | ac 2d 20 20 e7 20 4f 62 |_Numb%.&|.- . Ob|
|00004e30| 6a 65 63 74 24 28 41 25 | 29 3d 50 61 72 61 6d 24 |ject$(A%|)=Param$|
|00004e40| 20 8c 20 4f 62 6a 65 63 | 74 4e 75 6d 62 65 72 25 | . Objec|tNumber%|
|00004e50| 3d 41 25 0d 26 b6 06 20 | ed 0d 26 c0 04 0d 26 ca |=A%.&.. |..&...&.|
|00004e60| 5e 20 e7 20 4f 62 6a 65 | 63 74 4e 75 6d 62 65 72 |^ . Obje|ctNumber|
|00004e70| 25 3d 30 20 84 20 28 4c | 6f 63 61 74 69 6f 6e 25 |%=0 . (L|ocation%|
|00004e80| 28 4f 62 6a 65 63 74 4e | 75 6d 62 65 72 25 29 3c |(ObjectN|umber%)<|
|00004e90| 3e 30 20 80 20 4c 6f 63 | 61 74 69 6f 6e 25 28 4f |>0 . Loc|ation%(O|
|00004ea0| 62 6a 65 63 74 4e 75 6d | 62 65 72 25 29 3c 3e 53 |bjectNum|ber%)<>S|
|00004eb0| 74 6f 72 65 25 28 33 29 | 29 20 8c 0d 26 d4 29 20 |tore%(3)|) ..&.) |
|00004ec0| 20 f2 5f 4f 75 74 70 75 | 74 28 22 59 6f 75 20 64 | ._Outpu|t("You d|
|00004ed0| 6f 6e 27 74 20 73 65 65 | 20 74 68 61 74 2e 22 2b |on't see| that."+|
|00004ee0| bd 31 33 29 0d 26 de 06 | 20 cc 0d 26 e8 2b 20 20 |.13).&..| ..&.+ |
|00004ef0| f2 5f 4f 75 74 70 75 74 | 28 45 78 61 6d 69 6e 65 |._Output|(Examine|
|00004f00| 24 28 4f 62 6a 65 63 74 | 4e 75 6d 62 65 72 25 29 |$(Object|Number%)|
|00004f10| 2b bd 31 33 29 0d 26 f2 | 06 20 cd 0d 26 fc 04 0d |+.13).&.|. ..&...|
|00004f20| 27 06 05 e1 0d 27 10 04 | 0d 27 1a 1a dd 20 f2 5f |'....'..|.'... ._|
|00004f30| 54 72 61 76 65 6c 28 44 | 69 72 65 63 74 69 6f 6e |Travel(D|irection|
|00004f40| 24 29 0d 27 24 04 0d 27 | 2e 14 20 c8 8e 20 44 69 |$).'$..'|.. .. Di|
|00004f50| 72 65 63 74 69 6f 6e 24 | 20 ca 0d 27 38 25 20 20 |rection$| ..'8% |
|00004f60| c9 20 22 4e 22 3a 4e 65 | 77 4c 6f 63 25 3d 4e 6f |. "N":Ne|wLoc%=No|
|00004f70| 72 74 68 25 28 53 74 6f | 72 65 25 28 33 29 29 0d |rth%(Sto|re%(3)).|
|00004f80| 27 42 24 20 20 c9 20 22 | 45 22 3a 4e 65 77 4c 6f |'B$ . "|E":NewLo|
|00004f90| 63 25 3d 45 61 73 74 25 | 28 53 74 6f 72 65 25 28 |c%=East%|(Store%(|
|00004fa0| 33 29 29 0d 27 4c 25 20 | 20 c9 20 22 53 22 3a 4e |3)).'L% | . "S":N|
|00004fb0| 65 77 4c 6f 63 25 3d 53 | 6f 75 74 68 25 28 53 74 |ewLoc%=S|outh%(St|
|00004fc0| 6f 72 65 25 28 33 29 29 | 0d 27 56 24 20 20 c9 20 |ore%(3))|.'V$ . |
|00004fd0| 22 57 22 3a 4e 65 77 4c | 6f 63 25 3d 57 65 73 74 |"W":NewL|oc%=West|
|00004fe0| 25 28 53 74 6f 72 65 25 | 28 33 29 29 0d 27 60 22 |%(Store%|(3)).'`"|
|00004ff0| 20 20 c9 20 22 55 22 3a | 4e 65 77 4c 6f 63 25 3d | . "U":|NewLoc%=|
|00005000| 55 70 25 28 53 74 6f 72 | 65 25 28 33 29 29 0d 27 |Up%(Stor|e%(3)).'|
|00005010| 6a 24 20 20 c9 20 22 44 | 22 3a 4e 65 77 4c 6f 63 |j$ . "D|":NewLoc|
|00005020| 25 3d 44 6f 77 6e 25 28 | 53 74 6f 72 65 25 28 33 |%=Down%(|Store%(3|
|00005030| 29 29 0d 27 74 06 20 cb | 0d 27 7e 04 0d 27 88 12 |)).'t. .|.'~..'..|
|00005040| 20 e7 20 4e 65 77 4c 6f | 63 25 3d 30 20 8c 0d 27 | . NewLo|c%=0 ..'|
|00005050| 92 20 20 20 f2 5f 4f 75 | 74 70 75 74 28 22 59 6f |. ._Ou|tput("Yo|
|00005060| 75 20 63 61 6e 27 74 2e | 22 2b bd 31 33 29 0d 27 |u can't.|"+.13).'|
|00005070| 9c 06 20 cc 0d 27 a6 04 | 0d 27 b0 17 20 20 53 74 |.. ..'..|.'.. St|
|00005080| 6f 72 65 25 28 33 29 3d | 4e 65 77 4c 6f 63 25 0d |ore%(3)=|NewLoc%.|
|00005090| 27 ba 0e 20 20 4d 6f 76 | 65 64 25 3d b9 0d 27 c4 |'.. Mov|ed%=..'.|
|000050a0| 1b 20 20 f2 5f 4f 75 74 | 70 75 74 28 22 4f 6b 61 |. ._Out|put("Oka|
|000050b0| 79 2e 22 2b bd 31 33 29 | 0d 27 ce 04 0d 27 d8 06 |y."+.13)|.'...'..|
|000050c0| 20 cd 0d 27 e2 04 0d 27 | ec 05 e1 0d 27 f6 04 0d | ..'...'|....'...|
|000050d0| 28 00 19 dd 20 a4 5f 46 | 69 6e 64 4c 61 62 65 6c |(... ._F|indLabel|
|000050e0| 28 4c 61 62 65 6c 24 29 | 0d 28 0a 04 0d 28 14 17 |(Label$)|.(...(..|
|000050f0| 20 50 6f 73 69 74 69 6f | 6e 25 3d 53 74 61 72 74 | Positio|n%=Start|
|00005100| 5f 53 25 0d 28 1e 06 20 | f5 0d 28 28 46 20 20 50 |_S%.(.. |..((F P|
|00005110| 6f 73 69 74 69 6f 6e 25 | 3d a4 43 61 6c 6c 28 46 |osition%|=.Call(F|
|00005120| 69 6e 64 42 79 25 2c 50 | 6f 73 69 74 69 6f 6e 25 |indBy%,P|osition%|
|00005130| 2c 53 63 72 69 70 25 2b | 53 69 7a 65 5f 53 25 2c |,Scrip%+|Size_S%,|
|00005140| 31 2c 97 28 22 3a 22 29 | 2c 30 2c 30 2c 30 29 0d |1,.(":")|,0,0,0).|
|00005150| 28 32 3a 20 20 e7 20 50 | 6f 73 69 74 69 6f 6e 25 |(2: . P|osition%|
|00005160| 3d 30 20 8c 20 f2 5f 52 | 65 70 6f 72 74 28 22 4c |=0 . ._R|eport("L|
|00005170| 61 62 65 6c 20 6e 6f 74 | 20 66 6f 75 6e 64 3a 20 |abel not| found: |
|00005180| 22 2b 4c 61 62 65 6c 24 | 29 0d 28 3c 16 20 20 4c |"+Label$|).(<. L|
|00005190| 69 6e 65 24 3d 24 50 6f | 73 69 74 69 6f 6e 25 0d |ine$=$Po|sition%.|
|000051a0| 28 46 24 20 20 50 6f 73 | 69 74 69 6f 6e 25 3d 50 |(F$ Pos|ition%=P|
|000051b0| 6f 73 69 74 69 6f 6e 25 | 2b a9 28 4c 69 6e 65 24 |osition%|+.(Line$|
|000051c0| 29 2b 31 0d 28 50 1a 20 | 20 4c 69 6e 65 24 3d a4 |)+1.(P. | Line$=.|
|000051d0| 5f 53 74 72 69 70 28 4c | 69 6e 65 24 29 0d 28 5a |_Strip(L|ine$).(Z|
|000051e0| 13 20 fd 20 4c 69 6e 65 | 24 3d 4c 61 62 65 6c 24 |. . Line|$=Label$|
|000051f0| 0d 28 64 04 0d 28 6e 0e | 3d 50 6f 73 69 74 69 6f |.(d..(n.|=Positio|
|00005200| 6e 25 0d 28 78 04 0d 28 | 82 22 dd 20 a4 5f 46 69 |n%.(x..(|.". ._Fi|
|00005210| 6e 64 45 6c 73 65 4f 72 | 45 6e 64 69 66 28 50 6f |ndElseOr|Endif(Po|
|00005220| 73 69 74 69 6f 6e 25 29 | 0d 28 8c 04 0d 28 96 06 |sition%)|.(...(..|
|00005230| 20 f5 0d 28 a0 46 20 20 | 50 6f 73 69 74 69 6f 6e | ..(.F |Position|
|00005240| 25 3d a4 43 61 6c 6c 28 | 46 69 6e 64 42 79 25 2c |%=.Call(|FindBy%,|
|00005250| 50 6f 73 69 74 69 6f 6e | 25 2c 53 63 72 69 70 25 |Position|%,Scrip%|
|00005260| 2b 53 69 7a 65 5f 53 25 | 2c 31 2c 97 28 22 45 22 |+Size_S%|,1,.("E"|
|00005270| 29 2c 30 2c 30 2c 30 29 | 0d 28 aa 3b 20 20 e7 20 |),0,0,0)|.(.; . |
|00005280| 50 6f 73 69 74 69 6f 6e | 25 3d 30 20 8c 20 f2 5f |Position|%=0 . ._|
|00005290| 52 65 70 6f 72 74 28 22 | 49 46 20 77 69 74 68 6f |Report("|IF witho|
|000052a0| 75 74 20 45 4c 53 45 20 | 6f 72 20 45 4e 44 20 49 |ut ELSE |or END I|
|000052b0| 46 22 29 0d 28 b4 16 20 | 20 4c 69 6e 65 24 3d 24 |F").(.. | Line$=$|
|000052c0| 50 6f 73 69 74 69 6f 6e | 25 0d 28 be 24 20 20 50 |Position|%.(.$ P|
|000052d0| 6f 73 69 74 69 6f 6e 25 | 3d 50 6f 73 69 74 69 6f |osition%|=Positio|
|000052e0| 6e 25 2b a9 28 4c 69 6e | 65 24 29 2b 31 0d 28 c8 |n%+.(Lin|e$)+1.(.|
|000052f0| 2a 20 20 e7 20 c0 4c 69 | 6e 65 24 2c 33 29 3d 22 |* . .Li|ne$,3)="|
|00005300| 4c 53 45 22 20 8c 20 43 | 6f 6e 64 69 74 69 6f 6e |LSE" . C|ondition|
|00005310| 53 74 61 74 25 3d 32 0d | 28 d2 2c 20 20 e7 20 c0 |Stat%=2.|(., . .|
|00005320| 4c 69 6e 65 24 2c 35 29 | 3d 22 4e 44 20 49 46 22 |Line$,5)|="ND IF"|
|00005330| 20 8c 20 43 6f 6e 64 69 | 74 69 6f 6e 53 74 61 74 | . Condi|tionStat|
|00005340| 25 3d 30 0d 28 dc 18 20 | fd 20 43 6f 6e 64 69 74 |%=0.(.. |. Condit|
|00005350| 69 6f 6e 53 74 61 74 25 | 3c 3e 31 0d 28 e6 04 0d |ionStat%|<>1.(...|
|00005360| 28 f0 0e 3d 50 6f 73 69 | 74 69 6f 6e 25 0d 28 fa |(..=Posi|tion%.(.|
|00005370| 04 0d 29 04 1c dd 20 a4 | 5f 46 69 6e 64 45 6e 64 |..)... .|_FindEnd|
|00005380| 69 66 28 50 6f 73 69 74 | 69 6f 6e 25 29 0d 29 0e |if(Posit|ion%).).|
|00005390| 04 0d 29 18 06 20 f5 0d | 29 22 46 20 20 50 6f 73 |..).. ..|)"F Pos|
|000053a0| 69 74 69 6f 6e 25 3d a4 | 43 61 6c 6c 28 46 69 6e |ition%=.|Call(Fin|
|000053b0| 64 42 79 25 2c 50 6f 73 | 69 74 69 6f 6e 25 2c 53 |dBy%,Pos|ition%,S|
|000053c0| 63 72 69 70 25 2b 53 69 | 7a 65 5f 53 25 2c 31 2c |crip%+Si|ze_S%,1,|
|000053d0| 97 28 22 45 22 29 2c 30 | 2c 30 2c 30 29 0d 29 2c |.("E"),0|,0,0).),|
|000053e0| 39 20 20 e7 20 50 6f 73 | 69 74 69 6f 6e 25 3d 30 |9 . Pos|ition%=0|
|000053f0| 20 8c 20 f2 5f 52 65 70 | 6f 72 74 28 22 49 46 2e | . ._Rep|ort("IF.|
|00005400| 2e 45 4c 53 45 20 77 69 | 74 68 6f 75 74 20 45 4e |.ELSE wi|thout EN|
|00005410| 44 20 49 46 22 29 0d 29 | 36 16 20 20 4c 69 6e 65 |D IF").)|6. Line|
|00005420| 24 3d 24 50 6f 73 69 74 | 69 6f 6e 25 0d 29 40 24 |$=$Posit|ion%.)@$|
|00005430| 20 20 50 6f 73 69 74 69 | 6f 6e 25 3d 50 6f 73 69 | Positi|on%=Posi|
|00005440| 74 69 6f 6e 25 2b a9 28 | 4c 69 6e 65 24 29 2b 31 |tion%+.(|Line$)+1|
|00005450| 0d 29 4a 18 20 fd 20 c0 | 4c 69 6e 65 24 2c 35 29 |.)J. . .|Line$,5)|
|00005460| 3d 22 4e 44 20 49 46 22 | 0d 29 54 15 20 43 6f 6e |="ND IF"|.)T. Con|
|00005470| 64 69 74 69 6f 6e 53 74 | 61 74 25 3d 30 0d 29 5e |ditionSt|at%=0.)^|
|00005480| 04 0d 29 68 0e 3d 50 6f | 73 69 74 69 6f 6e 25 0d |..)h.=Po|sition%.|
|00005490| 29 72 04 0d 29 7c 29 dd | 20 a4 43 61 6c 6c 28 4f |)r..)|).| .Call(O|
|000054a0| 66 66 73 65 74 25 2c 41 | 25 2c 42 25 2c 43 25 2c |ffset%,A|%,B%,C%,|
|000054b0| 44 25 2c 45 25 2c 46 25 | 2c 47 25 29 0d 29 86 04 |D%,E%,F%|,G%).)..|
|000054c0| 0d 29 90 0e 20 48 25 3d | 53 74 61 63 6b 25 0d 29 |.).. H%=|Stack%.)|
|000054d0| 9a 04 0d 29 a4 16 3d ba | 28 4d 43 6f 64 65 25 2b |...)..=.|(MCode%+|
|000054e0| 4f 66 66 73 65 74 25 29 | 0d 29 ae 04 0d 29 b8 1b |Offset%)|.)...)..|
|000054f0| dd 20 a4 53 61 69 64 28 | 57 6f 72 64 5f 54 6f 5f |. .Said(|Word_To_|
|00005500| 43 68 65 63 6b 24 29 0d | 29 c2 04 0d 29 cc 4b f4 |Check$).|)...).K.|
|00005510| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 69 | This fu|nction i|
|00005520| 73 20 70 72 6f 76 69 64 | 65 64 20 66 6f 72 20 75 |s provid|ed for u|
|00005530| 73 65 20 6f 66 20 70 65 | 6f 70 6c 65 20 77 72 69 |se of pe|ople wri|
|00005540| 74 69 6e 67 20 67 61 6d | 65 73 20 69 6e 20 54 53 |ting gam|es in TS|
|00005550| 63 72 69 70 74 2e 0d 29 | d6 4a f4 20 49 74 20 72 |cript..)|.J. It r|
|00005560| 65 74 75 72 6e 73 20 65 | 69 74 68 65 72 20 54 52 |eturns e|ither TR|
|00005570| 55 45 20 6f 72 20 46 41 | 4c 53 45 2c 20 64 65 70 |UE or FA|LSE, dep|
|00005580| 65 6e 64 69 6e 67 20 6f | 6e 20 77 65 74 68 65 72 |ending o|n wether|
|00005590| 20 6f 72 20 6e 6f 74 20 | 74 68 65 20 77 6f 72 64 | or not |the word|
|000055a0| 0d 29 e0 38 f4 20 73 75 | 70 70 6c 69 65 64 20 61 |.).8. su|pplied a|
|000055b0| 73 20 61 20 70 61 72 61 | 6d 65 74 65 72 20 77 61 |s a para|meter wa|
|000055c0| 73 20 65 6e 74 65 72 65 | 64 20 62 79 20 74 68 65 |s entere|d by the|
|000055d0| 20 70 6c 61 79 65 72 2e | 0d 29 ea 4a f4 20 49 74 | player.|.).J. It|
|000055e0| 27 73 20 6d 61 69 6e 20 | 70 75 72 70 6f 73 65 20 |'s main |purpose |
|000055f0| 69 73 20 74 6f 20 6e 65 | 67 61 74 65 20 74 68 65 |is to ne|gate the|
|00005600| 20 6e 65 65 64 20 74 6f | 20 72 65 66 65 72 20 74 | need to| refer t|
|00005610| 6f 20 77 6f 72 64 73 20 | 61 73 20 6e 75 6d 62 65 |o words |as numbe|
|00005620| 72 73 0d 29 f4 48 f4 20 | 75 73 69 6e 67 20 74 68 |rs.).H. |using th|
|00005630| 65 20 61 72 72 61 79 73 | 20 27 55 73 65 64 5f 57 |e arrays| 'Used_W|
|00005640| 6f 72 64 25 28 78 29 27 | 20 61 6e 64 20 27 55 73 |ord%(x)'| and 'Us|
|00005650| 65 64 5f 43 6f 6d 6d 61 | 6e 64 25 28 78 29 27 20 |ed_Comma|nd%(x)' |
|00005660| 77 68 65 72 65 20 78 20 | 69 73 0d 29 fe 49 f4 20 |where x |is.).I. |
|00005670| 74 68 65 20 77 6f 72 64 | 20 6e 75 6d 62 65 72 2e |the word| number.|
|00005680| 20 49 6e 73 74 65 61 64 | 2c 20 74 68 65 20 61 63 | Instead|, the ac|
|00005690| 74 75 61 6c 20 77 6f 72 | 64 20 63 61 6e 20 62 65 |tual wor|d can be|
|000056a0| 20 75 73 65 64 20 69 6e | 73 74 65 61 64 2c 20 65 | used in|stead, e|
|000056b0| 67 3a 2d 0d 2a 08 36 f4 | 20 20 20 20 20 20 49 46 |g:-.*.6.| IF|
|000056c0| 20 46 4e 53 61 69 64 28 | 22 46 49 47 48 54 22 29 | FNSaid(|"FIGHT")|
|000056d0| 20 41 4e 44 20 46 4e 53 | 61 69 64 28 22 42 45 41 | AND FNS|aid("BEA|
|000056e0| 53 54 22 29 20 54 48 45 | 4e 0d 2a 12 2f f4 20 63 |ST") THE|N.*./. c|
|000056f0| 6f 75 6c 64 20 62 65 20 | 75 73 65 64 20 69 6e 73 |ould be |used ins|
|00005700| 74 65 61 64 20 6f 66 20 | 73 6f 6d 65 74 68 69 6e |tead of |somethin|
|00005710| 67 20 6c 69 6b 65 3a 2d | 0d 2a 1c 34 f4 20 20 20 |g like:-|.*.4. |
|00005720| 20 20 20 49 46 20 55 73 | 65 64 5f 57 6f 72 64 25 | IF Us|ed_Word%|
|00005730| 28 31 34 29 20 41 4e 44 | 20 55 73 65 64 5f 57 6f |(14) AND| Used_Wo|
|00005740| 72 64 25 28 32 39 29 20 | 54 48 45 4e 0d 2a 26 20 |rd%(29) |THEN.*& |
|00005750| f4 20 77 68 69 63 68 20 | 69 73 20 61 20 6c 6f 74 |. which |is a lot|
|00005760| 20 6c 65 73 73 20 63 6c | 65 61 72 2e 0d 2a 30 4c | less cl|ear..*0L|
|00005770| f4 20 4e 6f 74 65 3a 20 | 74 68 65 20 77 6f 72 64 |. Note: |the word|
|00005780| 20 67 69 76 65 6e 20 61 | 73 20 61 20 70 61 72 61 | given a|s a para|
|00005790| 6d 65 74 65 72 20 73 68 | 6f 75 6c 64 20 62 65 20 |meter sh|ould be |
|000057a0| 61 20 6b 65 79 77 6f 72 | 64 20 28 69 65 2e 20 74 |a keywor|d (ie. t|
|000057b0| 68 65 20 66 69 72 73 74 | 0d 2a 3a 4c f4 20 20 20 |he first|.*:L. |
|000057c0| 20 20 20 20 77 6f 72 64 | 20 6f 6e 20 61 20 6c 69 | word| on a li|
|000057d0| 6e 65 20 69 6e 20 74 68 | 65 20 57 6f 72 64 73 20 |ne in th|e Words |
|000057e0| 66 69 6c 65 29 20 69 66 | 20 61 6e 79 20 77 6f 72 |file) if| any wor|
|000057f0| 64 20 6f 6e 20 74 68 61 | 74 20 6c 69 6e 65 20 69 |d on tha|t line i|
|00005800| 73 20 74 6f 0d 2a 44 4a | f4 20 20 20 20 20 20 20 |s to.*DJ|. |
|00005810| 62 65 20 63 68 65 63 6b | 65 64 20 66 6f 72 2e 20 |be check|ed for. |
|00005820| 49 66 20 69 74 20 69 73 | 20 6e 6f 74 20 73 75 63 |If it is| not suc|
|00005830| 68 20 61 20 6b 65 79 77 | 6f 72 64 20 69 74 20 77 |h a keyw|ord it w|
|00005840| 69 6c 6c 20 62 65 20 63 | 68 65 63 6b 65 64 0d 2a |ill be c|hecked.*|
|00005850| 4e 4c f4 20 20 20 20 20 | 20 20 66 6f 72 20 65 78 |NL. | for ex|
|00005860| 70 6c 69 63 69 74 6c 79 | 3b 20 54 72 65 6c 6c 69 |plicitly|; Trelli|
|00005870| 73 20 77 69 6c 6c 20 73 | 63 61 6e 20 74 68 65 20 |s will s|can the |
|00005880| 70 6c 61 79 65 72 27 73 | 20 69 6e 70 75 74 20 6c |player's| input l|
|00005890| 69 6e 65 20 74 6f 20 73 | 65 65 0d 2a 58 49 f4 20 |ine to s|ee.*XI. |
|000058a0| 20 20 20 20 20 20 69 66 | 20 74 68 65 20 77 6f 72 | if| the wor|
|000058b0| 64 20 67 69 76 65 6e 20 | 77 61 73 20 61 63 74 75 |d given |was actu|
|000058c0| 61 6c 6c 79 20 65 6e 74 | 65 72 65 64 20 2d 20 69 |ally ent|ered - i|
|000058d0| 65 2e 20 6e 6f 20 61 6c | 74 65 72 6e 61 74 69 76 |e. no al|ternativ|
|000058e0| 65 73 2e 0d 2a 62 04 0d | 2a 6c 30 ea 20 4e 75 6d |es..*b..|*l0. Num|
|000058f0| 62 65 72 25 2c 20 57 6f | 72 64 4e 75 6d 62 65 72 |ber%, Wo|rdNumber|
|00005900| 25 2c 20 43 6f 6d 6d 61 | 5f 50 6f 73 25 2c 20 4b |%, Comma|_Pos%, K|
|00005910| 65 79 77 6f 72 64 24 0d | 2a 76 0d 4e 75 6d 62 65 |eyword$.|*v.Numbe|
|00005920| 72 25 3d 30 0d 2a 80 17 | c8 8e 20 57 6f 72 64 5f |r%=0.*..|.. Word_|
|00005930| 54 6f 5f 43 68 65 63 6b | 24 20 ca 0d 2a 8a 16 20 |To_Check|$ ..*.. |
|00005940| c9 20 22 47 45 54 22 3a | 4e 75 6d 62 65 72 25 3d |. "GET":|Number%=|
|00005950| 31 0d 2a 94 17 20 c9 20 | 22 44 52 4f 50 22 3a 4e |1.*.. . |"DROP":N|
|00005960| 75 6d 62 65 72 25 3d 32 | 0d 2a 9e 18 20 c9 20 22 |umber%=2|.*.. . "|
|00005970| 4e 4f 52 54 48 22 3a 4e | 75 6d 62 65 72 25 3d 33 |NORTH":N|umber%=3|
|00005980| 0d 2a a8 17 20 c9 20 22 | 45 41 53 54 22 3a 4e 75 |.*.. . "|EAST":Nu|
|00005990| 6d 62 65 72 25 3d 34 0d | 2a b2 18 20 c9 20 22 53 |mber%=4.|*.. . "S|
|000059a0| 4f 55 54 48 22 3a 4e 75 | 6d 62 65 72 25 3d 35 0d |OUTH":Nu|mber%=5.|
|000059b0| 2a bc 17 20 c9 20 22 57 | 45 53 54 22 3a 4e 75 6d |*.. . "W|EST":Num|
|000059c0| 62 65 72 25 3d 36 0d 2a | c6 15 20 c9 20 22 55 50 |ber%=6.*|.. . "UP|
|000059d0| 22 3a 4e 75 6d 62 65 72 | 25 3d 37 0d 2a d0 17 20 |":Number|%=7.*.. |
|000059e0| c9 20 22 44 4f 57 4e 22 | 3a 4e 75 6d 62 65 72 25 |. "DOWN"|:Number%|
|000059f0| 3d 38 0d 2a da 16 20 c9 | 20 22 49 4e 56 22 3a 4e |=8.*.. .| "INV":N|
|00005a00| 75 6d 62 65 72 25 3d 39 | 0d 2a e4 1b 20 c9 20 22 |umber%=9|.*.. . "|
|00005a10| 45 58 41 4d 49 4e 45 22 | 3a 4e 75 6d 62 65 72 25 |EXAMINE"|:Number%|
|00005a20| 3d 31 30 0d 2a ee 18 20 | c9 20 22 4c 4f 4f 4b 22 |=10.*.. |. "LOOK"|
|00005a30| 3a 4e 75 6d 62 65 72 25 | 3d 31 31 0d 2a f8 18 20 |:Number%|=11.*.. |
|00005a40| c9 20 22 51 55 49 54 22 | 3a 4e 75 6d 62 65 72 25 |. "QUIT"|:Number%|
|00005a50| 3d 31 32 0d 2b 02 18 20 | c9 20 22 48 45 4c 50 22 |=12.+.. |. "HELP"|
|00005a60| 3a 4e 75 6d 62 65 72 25 | 3d 31 33 0d 2b 0c 05 cb |:Number%|=13.+...|
|00005a70| 0d 2b 16 04 0d 2b 20 29 | e7 20 4e 75 6d 62 65 72 |.+...+ )|. Number|
|00005a80| 25 3e 30 20 8c 20 3d 55 | 73 65 64 5f 43 6f 6d 6d |%>0 . =U|sed_Comm|
|00005a90| 61 6e 64 25 28 4e 75 6d | 62 65 72 25 29 0d 2b 2a |and%(Num|ber%).+*|
|00005aa0| 04 0d 2b 34 1d e3 20 57 | 6f 72 64 4e 75 6d 62 65 |..+4.. W|ordNumbe|
|00005ab0| 72 25 3d 31 20 b8 20 57 | 5f 4e 75 6d 62 25 0d 2b |r%=1 . W|_Numb%.+|
|00005ac0| 3e 28 20 43 6f 6d 6d 61 | 5f 50 6f 73 25 3d a7 57 |>( Comma|_Pos%=.W|
|00005ad0| 6f 72 64 24 28 57 6f 72 | 64 4e 75 6d 62 65 72 25 |ord$(Wor|dNumber%|
|00005ae0| 29 2c 22 2c 22 29 0d 2b | 48 2f 20 4b 65 79 77 6f |),",").+|H/ Keywo|
|00005af0| 72 64 24 3d c0 57 6f 72 | 64 24 28 57 6f 72 64 4e |rd$=.Wor|d$(WordN|
|00005b00| 75 6d 62 65 72 25 29 2c | 43 6f 6d 6d 61 5f 50 6f |umber%),|Comma_Po|
|00005b10| 73 25 2d 31 29 0d 2b 52 | 34 20 e7 20 57 6f 72 64 |s%-1).+R|4 . Word|
|00005b20| 5f 54 6f 5f 43 68 65 63 | 6b 24 3d 4b 65 79 77 6f |_To_Chec|k$=Keywo|
|00005b30| 72 64 24 20 8c 20 4e 75 | 6d 62 65 72 25 3d 57 6f |rd$ . Nu|mber%=Wo|
|00005b40| 72 64 4e 75 6d 62 65 72 | 25 0d 2b 5c 05 ed 0d 2b |rdNumber|%.+\...+|
|00005b50| 66 04 0d 2b 70 26 e7 20 | 4e 75 6d 62 65 72 25 3e |f..+p&. |Number%>|
|00005b60| 30 20 8c 20 3d 55 73 65 | 64 5f 57 6f 72 64 25 28 |0 . =Use|d_Word%(|
|00005b70| 4e 75 6d 62 65 72 25 29 | 0d 2b 7a 04 0d 2b 84 29 |Number%)|.+z..+.)|
|00005b80| e7 20 a7 49 6e 70 75 74 | 24 2c 57 6f 72 64 5f 54 |. .Input|$,Word_T|
|00005b90| 6f 5f 43 68 65 63 6b 24 | 29 3e 30 20 8c 20 3d b9 |o_Check$|)>0 . =.|
|00005ba0| 20 8b 20 3d a3 0d 2b 8e | 04 0d 2b 98 1d f4 20 2a | . =..+.|..+... *|
|00005bb0| 2a 2a 20 65 6e 64 20 6f | 66 20 66 75 6e 63 74 69 |** end o|f functi|
|00005bc0| 6f 6e 21 21 21 21 0d 2b | a2 04 0d 2b ac 04 0d ff |on!!!!.+|...+....|
+--------+-------------------------+-------------------------+--------+--------+
