home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-09-03 | 9.8 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 18 f4 20 4d 75 | 6c 74 69 2d 74 61 73 6b |..... Mu|lti-task|
|00000010| 69 6e 67 20 62 6f 6f 74 | 0d 00 14 18 f4 20 a9 20 |ing boot|..... . |
|00000020| 53 61 6d 20 4b 69 6e 67 | 74 6f 6e 20 31 39 39 34 |Sam King|ton 1994|
|00000030| 0d 00 1e 1d f4 20 56 65 | 72 73 69 6f 6e 20 31 2e |..... Ve|rsion 1.|
|00000040| 31 30 20 28 38 2d 4a 75 | 6c 2d 39 34 29 0d 00 28 |10 (8-Ju|l-94)..(|
|00000050| 04 0d 00 32 0f e0 3d 90 | 2b 33 32 2a 31 30 32 34 |...2..=.|+32*1024|
|00000060| 0d 00 3c 0e 65 72 72 6f | 72 6e 75 6d 3d 31 0d 00 |..<.erro|rnum=1..|
|00000070| 46 0f de 20 62 6c 6f 63 | 6b 20 32 35 35 0d 00 50 |F.. bloc|k 255..P|
|00000080| 04 0d 00 5a 20 ee 20 85 | 20 65 72 72 6f 72 6e 75 |...Z . .| errornu|
|00000090| 6d 3d 31 20 3a 20 f2 63 | 72 75 64 65 65 72 72 6f |m=1 : .c|rudeerro|
|000000a0| 72 0d 00 64 04 0d 00 6e | 31 6e 75 6d 72 75 6e 6e |r..d...n|1numrunn|
|000000b0| 69 6e 67 3d bb 28 a4 72 | 65 61 64 76 61 72 28 22 |ing=.(.r|eadvar("|
|000000c0| 4d 75 6c 74 69 4f 62 65 | 79 24 52 75 6e 6e 69 6e |MultiObe|y$Runnin|
|000000d0| 67 22 29 29 2b 31 0d 00 | 78 31 ff 28 22 53 65 74 |g"))+1..|x1.("Set|
|000000e0| 45 76 61 6c 20 4d 75 6c | 74 69 4f 62 65 79 24 52 |Eval Mul|tiObey$R|
|000000f0| 75 6e 6e 69 6e 67 20 22 | 2b c3 28 6e 75 6d 72 75 |unning "|+.(numru|
|00000100| 6e 6e 69 6e 67 29 29 0d | 00 82 04 0d 00 8c 0b 73 |nning)).|.......s|
|00000110| 74 61 72 74 3d 91 0d 00 | 96 19 63 6d 64 24 3d 22 |tart=...|..cmd$="|
|00000120| 4e 6f 20 63 6f 6d 6d 61 | 6e 64 20 79 65 74 22 0d |No comma|nd yet".|
|00000130| 00 a0 10 73 74 61 72 74 | 63 6d 64 24 3d 22 22 0d |...start|cmd$="".|
|00000140| 00 aa 0e 66 69 6c 65 6f | 70 65 6e 3d a3 0d 00 b4 |...fileo|pen=....|
|00000150| 0f 66 69 72 73 74 74 69 | 6d 65 3d b9 0d 00 be 0d |.firstti|me=.....|
|00000160| de 20 61 72 67 24 28 38 | 29 0d 00 c8 16 f2 72 65 |. arg$(8|).....re|
|00000170| 61 64 63 6f 6d 6d 61 6e | 64 73 74 72 69 6e 67 0d |adcomman|dstring.|
|00000180| 00 d2 12 e7 20 66 69 6c | 65 24 3d 22 22 20 8c 20 |.... fil|e$="" . |
|00000190| e0 0d 00 dc 22 6c 65 61 | 66 24 3d a4 6c 6f 77 65 |...."lea|f$=.lowe|
|000001a0| 72 63 61 73 65 28 a4 6c | 65 61 66 28 66 69 6c 65 |rcase(.l|eaf(file|
|000001b0| 24 29 29 0d 00 e6 31 e7 | 20 6c 65 61 66 24 3d 22 |$))...1.| leaf$="|
|000001c0| 21 72 75 6e 22 20 84 20 | 6c 65 61 66 24 3d 22 21 |!run" . |leaf$="!|
|000001d0| 62 6f 6f 74 22 20 8c 20 | f2 6f 62 65 79 28 66 69 |boot" . |.obey(fi|
|000001e0| 6c 65 24 29 0d 00 f0 16 | f2 73 65 74 6f 62 65 79 |le$)....|.setobey|
|000001f0| 64 69 72 28 66 69 6c 65 | 24 29 0d 00 fa 04 0d 01 |dir(file|$)......|
|00000200| 04 22 ff 28 22 53 65 74 | 20 4d 75 6c 74 69 4f 62 |.".("Set| MultiOb|
|00000210| 65 79 24 46 69 6c 65 20 | 22 2b 66 69 6c 65 24 29 |ey$File |"+file$)|
|00000220| 0d 01 0e 11 66 69 6c 65 | 3d 8e 28 66 69 6c 65 24 |....file|=.(file$|
|00000230| 29 0d 01 18 2c e7 20 66 | 69 6c 65 3d 30 20 8c 20 |)...,. f|ile=0 . |
|00000240| 85 20 a2 20 30 2c 20 66 | 69 6c 65 24 2b 22 20 6e |. . 0, f|ile$+" n|
|00000250| 6f 74 20 66 6f 75 6e 64 | 22 20 3a 20 e0 0d 01 22 |ot found|" : ..."|
|00000260| 0e 66 69 6c 65 6f 70 65 | 6e 3d b9 0d 01 2c 04 0d |.fileope|n=...,..|
|00000270| 01 36 0f 69 63 6f 6e 6c | 65 6e 3d 35 36 36 0d 01 |.6.iconl|en=566..|
|00000280| 40 10 73 6c 69 64 65 72 | 69 63 6f 6e 3d 33 0d 01 |@.slider|icon=3..|
|00000290| 4a 0b 61 62 6f 72 74 3d | 35 0d 01 54 0a 73 6b 69 |J.abort=|5..T.ski|
|000002a0| 70 3d 36 0d 01 5e 0a 73 | 74 65 70 3d 37 0d 01 68 |p=6..^.s|tep=7..h|
|000002b0| 0b 70 61 75 73 65 3d 38 | 0d 01 72 0c 70 61 75 73 |.pause=8|..r.paus|
|000002c0| 65 64 3d a3 0d 01 7c 10 | 73 69 6e 67 6c 65 73 74 |ed=...|.|singlest|
|000002d0| 65 70 3d a3 0d 01 86 10 | 67 65 74 63 6f 6d 6d 61 |ep=.....|getcomma|
|000002e0| 6e 64 3d b9 0d 01 90 10 | 72 75 6e 63 6f 6d 6d 61 |nd=.....|runcomma|
|000002f0| 6e 64 3d b9 0d 01 9a 11 | 5f 63 6f 6d 61 74 69 6d |nd=.....|_comatim|
|00000300| 65 3d 32 35 30 0d 01 a4 | 11 63 6c 6f 73 65 77 69 |e=250...|.closewi|
|00000310| 6e 64 6f 77 3d b9 0d 01 | ae 04 0d 01 b8 41 c8 99 |ndow=...|.....A..|
|00000320| 20 22 57 69 6d 70 5f 49 | 6e 69 74 69 61 6c 69 73 | "Wimp_I|nitialis|
|00000330| 65 22 2c 20 33 31 30 2c | 20 26 34 42 35 33 34 31 |e", 310,| &4B5341|
|00000340| 35 34 2c 20 22 4f 62 65 | 79 22 2c 20 30 20 b8 20 |54, "Obe|y", 0 . |
|00000350| 2c 74 61 73 6b 68 61 6e | 64 6c 65 0d 01 c2 04 0d |,taskhan|dle.....|
|00000360| 01 cc 19 de 20 69 6e 70 | 75 74 20 32 30 2c 20 6f |.... inp|ut 20, o|
|00000370| 75 74 70 75 74 20 32 30 | 0d 01 d6 0c 21 69 6e 70 |utput 20|....!inp|
|00000380| 75 74 3d 34 0d 01 e0 0d | 69 6e 70 75 74 21 34 3d |ut=4....|input!4=|
|00000390| 35 0d 01 ea 0e 69 6e 70 | 75 74 21 38 3d 31 31 0d |5....inp|ut!8=11.|
|000003a0| 01 f4 0f 69 6e 70 75 74 | 21 31 32 3d 31 32 0d 01 |...input|!12=12..|
|000003b0| fe 0f 69 6e 70 75 74 21 | 31 36 3d 2d 31 0d 02 08 |..input!|16=-1...|
|000003c0| 2b c8 99 20 22 4f 53 5f | 52 65 61 64 56 64 75 56 |+.. "OS_|ReadVduV|
|000003d0| 61 72 69 61 62 6c 65 73 | 22 2c 20 69 6e 70 75 74 |ariables|", input|
|000003e0| 2c 20 6f 75 74 70 75 74 | 0d 02 12 21 73 63 72 65 |, output|...!scre|
|000003f0| 65 6e 77 69 64 74 68 3d | 6f 75 74 70 75 74 21 38 |enwidth=|output!8|
|00000400| 3c 3c 21 6f 75 74 70 75 | 74 0d 02 1c 24 73 63 72 |<<!outpu|t...$scr|
|00000410| 65 65 6e 68 65 69 67 68 | 74 3d 6f 75 74 70 75 74 |eenheigh|t=output|
|00000420| 21 31 32 3c 3c 6f 75 74 | 70 75 74 21 34 0d 02 26 |!12<<out|put!4..&|
|00000430| 04 0d 02 30 27 6f 66 66 | 73 65 74 3d 28 28 28 6e |...0'off|set=(((n|
|00000440| 75 6d 72 75 6e 6e 69 6e | 67 2b 35 29 20 83 20 31 |umrunnin|g+5) . 1|
|00000450| 30 29 2d 36 29 2a 34 30 | 0d 02 3a 38 c8 99 20 22 |0)-6)*40|..:8.. "|
|00000460| 57 69 6d 70 5f 4f 70 65 | 6e 54 65 6d 70 6c 61 74 |Wimp_Ope|nTemplat|
|00000470| 65 22 2c 20 2c 22 3c 4d | 75 6c 74 69 4f 62 65 79 |e", ,"<M|ultiObey|
|00000480| 24 44 69 72 3e 2e 54 65 | 6d 70 6c 61 74 65 73 22 |$Dir>.Te|mplates"|
|00000490| 0d 02 44 41 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |..DA.. "|Wimp_Loa|
|000004a0| 64 54 65 6d 70 6c 61 74 | 65 22 2c 20 2c 2d 31 2c |dTemplat|e", ,-1,|
|000004b0| 2c 2c 2c 20 22 6f 62 65 | 79 22 2c 20 30 20 b8 20 |,,, "obe|y", 0 . |
|000004c0| 2c 62 75 66 73 69 7a 65 | 2c 20 69 6e 64 73 69 7a |,bufsize|, indsiz|
|000004d0| 65 0d 02 4e 24 de 20 74 | 65 6d 70 6c 61 74 65 73 |e..N$. t|emplates|
|000004e0| 20 62 75 66 73 69 7a 65 | 2c 20 69 6e 64 20 69 6e | bufsize|, ind in|
|000004f0| 64 73 69 7a 65 0d 02 58 | 47 c8 99 20 22 57 69 6d |dsize..X|G.. "Wim|
|00000500| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00000510| 20 2c 74 65 6d 70 6c 61 | 74 65 73 2c 20 69 6e 64 | ,templa|tes, ind|
|00000520| 2c 20 69 6e 64 2b 69 6e | 64 73 69 7a 65 2c 20 2d |, ind+in|dsize, -|
|00000530| 31 2c 20 22 6f 62 65 79 | 22 2c 20 30 0d 02 62 19 |1, "obey|", 0..b.|
|00000540| 24 28 74 65 6d 70 6c 61 | 74 65 73 21 37 32 29 3d |$(templa|tes!72)=|
|00000550| 66 69 6c 65 24 0d 02 6c | 28 e7 20 a9 28 66 69 6c |file$..l|(. .(fil|
|00000560| 65 24 29 3e 33 30 20 8c | 20 74 65 6d 70 6c 61 74 |e$)>30 .| templat|
|00000570| 65 73 21 35 36 2d 3d 28 | 31 3c 3c 33 29 0d 02 76 |es!56-=(|1<<3)..v|
|00000580| 30 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |0.. "Wim|p_Create|
|00000590| 57 69 6e 64 6f 77 22 2c | 2c 74 65 6d 70 6c 61 74 |Window",|,templat|
|000005a0| 65 73 20 b8 20 77 69 6e | 5f 6f 62 65 79 0d 02 80 |es . win|_obey...|
|000005b0| 1b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |... "Wim|p_CloseT|
|000005c0| 65 6d 70 6c 61 74 65 22 | 0d 02 8a 13 21 62 6c 6f |emplate"|....!blo|
|000005d0| 63 6b 3d 77 69 6e 5f 6f | 62 65 79 0d 02 94 23 c8 |ck=win_o|bey...#.|
|000005e0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|000005f0| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 0d 02 |wState",|,block..|
|00000600| 9e 1d 77 69 6e 77 69 64 | 74 68 3d 62 6c 6f 63 6b |..winwid|th=block|
|00000610| 21 31 32 2d 62 6c 6f 63 | 6b 21 34 0d 02 a8 1e 77 |!12-bloc|k!4....w|
|00000620| 69 6e 68 65 69 67 68 74 | 3d 62 6c 6f 63 6b 21 31 |inheight|=block!1|
|00000630| 36 2d 62 6c 6f 63 6b 21 | 38 0d 02 b2 2b 62 6c 6f |6-block!|8...+blo|
|00000640| 63 6b 21 34 3d 28 73 63 | 72 65 65 6e 77 69 64 74 |ck!4=(sc|reenwidt|
|00000650| 68 2d 77 69 6e 77 69 64 | 74 68 29 2f 32 2b 6f 66 |h-winwid|th)/2+of|
|00000660| 66 73 65 74 0d 02 bc 2d | 62 6c 6f 63 6b 21 38 3d |fset...-|block!8=|
|00000670| 28 73 63 72 65 65 6e 68 | 65 69 67 68 74 2d 77 69 |(screenh|eight-wi|
|00000680| 6e 68 65 69 67 68 74 29 | 2f 32 2d 6f 66 66 73 65 |nheight)|/2-offse|
|00000690| 74 0d 02 c6 24 62 6c 6f | 63 6b 21 31 32 3d 62 6c |t...$blo|ck!12=bl|
|000006a0| 6f 63 6b 21 34 2b 77 69 | 6e 77 69 64 74 68 2b 6f |ock!4+wi|nwidth+o|
|000006b0| 66 66 73 65 74 0d 02 d0 | 25 62 6c 6f 63 6b 21 31 |ffset...|%block!1|
|000006c0| 36 3d 62 6c 6f 63 6b 21 | 38 2b 77 69 6e 68 65 69 |6=block!|8+winhei|
|000006d0| 67 68 74 2d 6f 66 66 73 | 65 74 0d 02 da 1f c8 99 |ght-offs|et......|
|000006e0| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|000006f0| 77 22 2c 2c 62 6c 6f 63 | 6b 0d 02 e4 20 c8 99 20 |w",,bloc|k... .. |
|00000700| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000710| 77 22 2c 2c 62 6c 6f 63 | 6b 0d 02 ee 04 0d 02 f8 |w",,bloc|k.......|
|00000720| 1a ee 20 85 20 ee 20 85 | 20 87 20 3a 20 f2 65 72 |.. . . .| . : .er|
|00000730| 72 6f 72 20 3a 20 e0 0d | 03 02 09 f2 70 6f 6c 6c |ror : ..|....poll|
|00000740| 0d 03 0c 0b f2 66 69 6e | 69 73 68 0d 03 16 05 e0 |.....fin|ish.....|
|00000750| 0d 03 20 04 0d 03 2a 0c | dd f2 66 69 6e 69 73 68 |.. ...*.|..finish|
|00000760| 0d 03 34 20 ee 20 85 20 | 65 72 72 6f 72 6e 75 6d |..4 . . |errornum|
|00000770| 3d 31 20 3a 20 f2 63 72 | 75 64 65 65 72 72 6f 72 |=1 : .cr|udeerror|
|00000780| 0d 03 3e 17 e7 20 66 69 | 6c 65 6f 70 65 6e 20 8c |..>.. fi|leopen .|
|00000790| 20 d9 23 66 69 6c 65 0d | 03 48 15 f2 6d 75 6c 74 | .#file.|.H..mult|
|000007a0| 69 6f 62 65 79 72 75 6e | 6e 69 6e 67 0d 03 52 13 |iobeyrun|ning..R.|
|000007b0| e7 20 63 6c 6f 73 65 77 | 69 6e 64 6f 77 20 8c 0d |. closew|indow ..|
|000007c0| 03 5c 16 20 20 20 21 62 | 6c 6f 63 6b 3d 77 69 6e |.\. !b|lock=win|
|000007d0| 5f 6f 62 65 79 0d 03 66 | 23 20 20 20 c8 99 20 22 |_obey..f|# .. "|
|000007e0| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|000007f0| 22 2c 2c 62 6c 6f 63 6b | 0d 03 70 05 cd 0d 03 7a |",,block|..p....z|
|00000800| 27 c8 99 20 22 4f 53 5f | 52 65 61 64 4d 6f 6e 6f |'.. "OS_|ReadMono|
|00000810| 74 6f 6e 69 63 54 69 6d | 65 22 20 b8 20 6e 65 77 |tonicTim|e" . new|
|00000820| 74 69 6d 65 0d 03 84 1d | 65 6e 64 74 69 6d 65 3d |time....|endtime=|
|00000830| 6e 65 77 74 69 6d 65 2b | 5f 63 6f 6d 61 74 69 6d |newtime+|_comatim|
|00000840| 65 0d 03 8e 05 f5 0d 03 | 98 3c 20 20 20 c8 99 20 |e.......|.< .. |
|00000850| 22 57 69 6d 70 5f 50 6f | 6c 6c 49 64 6c 65 22 2c |"Wimp_Po|llIdle",|
|00000860| 20 6d 61 73 6b 2c 20 62 | 6c 6f 63 6b 2c 20 65 6e | mask, b|lock, en|
|00000870| 64 74 69 6d 65 20 b8 20 | 72 65 61 73 6f 6e 63 6f |dtime . |reasonco|
|00000880| 64 65 0d 03 a2 2a 20 20 | 20 c8 99 20 22 4f 53 5f |de...* | .. "OS_|
|00000890| 52 65 61 64 4d 6f 6e 6f | 74 6f 6e 69 63 54 69 6d |ReadMono|tonicTim|
|000008a0| 65 22 20 b8 20 6e 65 77 | 74 69 6d 65 0d 03 ac 16 |e" . new|time....|
|000008b0| fd 20 6e 65 77 74 69 6d | 65 3e 3d 65 6e 64 74 69 |. newtim|e>=endti|
|000008c0| 6d 65 0d 03 b6 13 21 62 | 6c 6f 63 6b 3d 77 69 6e |me....!b|lock=win|
|000008d0| 5f 6f 62 65 79 0d 03 c0 | 20 c8 99 20 22 57 69 6d |_obey...| .. "Wim|
|000008e0| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|000008f0| 62 6c 6f 63 6b 0d 03 ca | 2e c8 99 20 22 57 69 6d |block...|... "Wim|
|00000900| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 20 74 61 |p_CloseD|own", ta|
|00000910| 73 6b 68 61 6e 64 6c 65 | 2c 20 26 34 42 35 33 34 |skhandle|, &4B534|
|00000920| 31 35 34 0d 03 d4 05 e0 | 0d 03 de 05 e1 0d 03 e8 |154.....|........|
|00000930| 04 0d 03 f2 10 dd f2 63 | 72 75 64 65 65 72 72 6f |.......c|rudeerro|
|00000940| 72 0d 03 fc 0f 65 72 72 | 6f 72 6e 75 6d 2b 3d 31 |r....err|ornum+=1|
|00000950| 0d 04 06 12 e7 20 65 72 | 72 6f 72 6e 75 6d 3d 31 |..... er|rornum=1|
|00000960| 20 8c 0d 04 10 27 20 20 | 20 e7 20 66 69 6c 65 6f | ....' | . fileo|
|00000970| 70 65 6e 20 8c 20 66 69 | 6c 65 6f 70 65 6e 3d a3 |pen . fi|leopen=.|
|00000980| 20 3a 20 d9 23 66 69 6c | 65 0d 04 1a 18 20 20 20 | : .#fil|e.... |
|00000990| f2 6d 75 6c 74 69 6f 62 | 65 79 72 75 6e 6e 69 6e |.multiob|eyrunnin|
|000009a0| 67 0d 04 24 05 cd 0d 04 | 2e 2e 85 20 a2 20 9f 2c |g..$....|... . .,|
|000009b0| 20 22 49 6e 74 65 72 6e | 61 6c 20 65 72 72 6f 72 | "Intern|al error|
|000009c0| 20 63 6f 64 65 20 22 2b | c3 28 9e 29 2b 22 3a 20 | code "+|.(.)+": |
|000009d0| 22 2b f6 24 0d 04 38 05 | e0 0d 04 42 04 0d 04 4c |"+.$..8.|...B...L|
|000009e0| 0a dd f2 70 6f 6c 6c 0d | 04 56 16 ea 20 6d 61 73 |...poll.|.V.. mas|
|000009f0| 6b 2c 20 72 65 61 73 6f | 6e 63 6f 64 65 0d 04 60 |k, reaso|ncode..`|
|00000a00| 05 f5 0d 04 6a 2e 20 20 | 20 e7 20 ac 20 28 67 65 |....j. | . . (ge|
|00000a10| 74 63 6f 6d 6d 61 6e 64 | 20 84 20 72 75 6e 63 6f |tcommand| . runco|
|00000a20| 6d 6d 61 6e 64 29 20 8c | 20 6d 61 73 6b 2b 3d 31 |mmand) .| mask+=1|
|00000a30| 0d 04 74 21 20 20 20 6d | 61 73 6b 3d 25 31 31 30 |..t! m|ask=%110|
|00000a40| 30 30 30 31 31 31 30 30 | 31 30 30 31 31 30 30 31 |00011100|10011001|
|00000a50| 30 0d 04 7e 2f 20 20 20 | c8 99 20 22 57 69 6d 70 |0..~/ |.. "Wimp|
|00000a60| 5f 50 6f 6c 6c 22 2c 20 | 6d 61 73 6b 2c 20 62 6c |_Poll", |mask, bl|
|00000a70| 6f 63 6b 20 b8 20 72 65 | 61 73 6f 6e 63 6f 64 65 |ock . re|asoncode|
|00000a80| 0d 04 88 14 20 20 20 e7 | 20 66 69 72 73 74 74 69 |.... .| firstti|
|00000a90| 6d 65 20 8c 0d 04 92 15 | 20 20 20 20 20 20 66 69 |me .....| fi|
|00000aa0| 72 73 74 74 69 6d 65 3d | a3 0d 04 9c 1c 20 20 20 |rsttime=|..... |
|00000ab0| 20 20 20 62 6c 6f 63 6b | 21 31 32 38 3d 77 69 6e | block|!128=win|
|00000ac0| 5f 6f 62 65 79 0d 04 a6 | 2d 20 20 20 20 20 20 c8 |_obey...|- .|
|00000ad0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00000ae0| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 2b 31 |wState",|,block+1|
|00000af0| 32 38 0d 04 b0 29 20 20 | 20 20 20 20 c8 99 20 22 |28...) | .. "|
|00000b00| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00000b10| 2c 2c 62 6c 6f 63 6b 2b | 31 32 38 0d 04 ba 08 20 |,,block+|128.... |
|00000b20| 20 20 cd 0d 04 c4 17 20 | 20 20 e7 20 72 65 61 73 | ..... | . reas|
|00000b30| 6f 6e 63 6f 64 65 3d 30 | 20 8c 0d 04 ce 3a 20 20 |oncode=0| ....: |
|00000b40| 20 20 20 20 e7 20 73 74 | 61 72 74 63 6d 64 24 3c | . st|artcmd$<|
|00000b50| 3e 22 22 20 8c 20 c8 99 | 20 22 57 69 6d 70 5f 53 |>"" . ..| "Wimp_S|
|00000b60| 74 61 72 74 54 61 73 6b | 22 2c 20 73 74 61 72 74 |tartTask|", start|
|00000b70| 63 6d 64 24 0d 04 d8 10 | 20 20 20 20 20 20 f2 70 |cmd$....| .p|
|00000b80| 61 72 73 65 0d 04 e2 08 | 20 20 20 cd 0d 04 ec 33 |arse....| ....3|
|00000b90| 20 20 20 e7 20 72 65 61 | 73 6f 6e 63 6f 64 65 3d | . rea|soncode=|
|00000ba0| 32 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |2 . .. "|Wimp_Ope|
|00000bb0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 0d |nWindow"|,,block.|
|00000bc0| 04 f6 28 20 20 20 71 75 | 69 74 3d 28 72 65 61 73 |..( qu|it=(reas|
|00000bd0| 6f 6e 63 6f 64 65 3d 31 | 37 20 80 20 62 6c 6f 63 |oncode=1|7 . bloc|
|00000be0| 6b 21 31 36 3d 30 29 0d | 05 00 23 20 20 20 e7 20 |k!16=0).|..# . |
|00000bf0| 72 65 61 73 6f 6e 63 6f | 64 65 3d 36 20 8c 20 f2 |reasonco|de=6 . .|
|00000c00| 6d 6f 75 73 65 63 6c 69 | 63 6b 0d 05 0a 14 20 20 |mousecli|ck.... |
|00000c10| 20 e7 20 65 6e 64 6f 66 | 66 69 6c 65 20 8c 0d 05 | . endof|file ...|
|00000c20| 14 18 20 20 20 20 20 20 | 6c 65 6e 67 74 68 3d 91 |.. |length=.|
|00000c30| 2d 73 74 61 72 74 0d 05 | 1e 1e 20 20 20 20 20 20 |-start..|.. |
|00000c40| f2 73 65 74 69 63 6f 6e | 6c 65 6e 28 69 63 6f 6e |.seticon|len(icon|
|00000c50| 6c 65 6e 29 0d 05 28 17 | 20 20 20 20 20 20 63 6c |len)..(.| cl|
|00000c60| 6f 73 65 77 69 6e 64 6f | 77 3d a3 0d 05 32 3b 20 |osewindo|w=...2; |
|00000c70| 20 20 20 20 20 6f 75 74 | 24 3d 22 46 69 6e 69 73 | out|$="Finis|
|00000c80| 68 65 64 20 61 66 74 65 | 72 20 22 2b c3 28 6c 65 |hed afte|r "+.(le|
|00000c90| 6e 67 74 68 20 81 20 36 | 30 30 30 29 2b 22 20 6d |ngth . 6|000)+" m|
|00000ca0| 69 6e 75 74 65 22 0d 05 | 3c 33 20 20 20 20 20 20 |inute"..|<3 |
|00000cb0| e7 20 6c 65 6e 67 74 68 | 3e 3d 31 32 30 30 30 20 |. length|>=12000 |
|00000cc0| 84 20 6c 65 6e 67 74 68 | 3c 36 30 30 30 20 8c 20 |. length|<6000 . |
|00000cd0| 6f 75 74 24 2b 3d 22 73 | 22 0d 05 46 23 20 20 20 |out$+="s|"..F# |
|00000ce0| 20 20 20 73 65 63 3d 28 | 6c 65 6e 67 74 68 20 83 | sec=(|length .|
|00000cf0| 20 36 30 30 30 29 20 81 | 20 31 30 30 0d 05 50 14 | 6000) .| 100..P.|
|00000d00| 20 20 20 20 20 20 e7 20 | 73 65 63 3c 3e 30 20 8c | . |sec<>0 .|
|00000d10| 0d 05 5a 2b 20 20 20 20 | 20 20 20 20 20 6f 75 74 |..Z+ | out|
|00000d20| 24 2b 3d 22 20 61 6e 64 | 20 22 2b c3 28 73 65 63 |$+=" and| "+.(sec|
|00000d30| 29 2b 22 20 73 65 63 6f | 6e 64 22 0d 05 64 21 20 |)+" seco|nd"..d! |
|00000d40| 20 20 20 20 20 20 20 20 | e7 20 73 65 63 3c 3e 31 | |. sec<>1|
|00000d50| 20 8c 20 6f 75 74 24 2b | 3d 22 73 22 0d 05 6e 0b | . out$+|="s"..n.|
|00000d60| 20 20 20 20 20 20 cd 0d | 05 78 1d 20 20 20 20 20 | ..|.x. |
|00000d70| 20 f2 77 72 69 74 65 69 | 63 6f 6e 28 34 2c 20 6f | .writei|con(4, o|
|00000d80| 75 74 24 29 0d 05 82 08 | 20 20 20 cd 0d 05 8c 16 |ut$)....| .....|
|00000d90| fd 20 71 75 69 74 20 84 | 20 65 6e 64 6f 66 66 69 |. quit .| endoffi|
|00000da0| 6c 65 0d 05 96 05 e1 0d | 05 a0 04 0d 05 aa 0b dd |le......|........|
|00000db0| f2 70 61 72 73 65 0d 05 | b4 14 65 6e 64 6f 66 66 |.parse..|..endoff|
|00000dc0| 69 6c 65 3d c5 23 66 69 | 6c 65 0d 05 be 45 e7 20 |ile=.#fi|le...E. |
|00000dd0| bb 28 a4 72 65 61 64 76 | 61 72 28 22 4d 75 6c 74 |.(.readv|ar("Mult|
|00000de0| 69 4f 62 65 79 24 52 75 | 6e 6e 69 6e 67 22 29 29 |iObey$Ru|nning"))|
|00000df0| 3c 3e 6e 75 6d 72 75 6e | 6e 69 6e 67 20 8c 20 73 |<>numrun|ning . s|
|00000e00| 74 61 72 74 63 6d 64 24 | 3d 22 22 20 3a 20 e1 0d |tartcmd$|="" : ..|
|00000e10| 05 f0 1e e7 20 67 65 74 | 63 6f 6d 6d 61 6e 64 20 |.... get|command |
|00000e20| 8c 20 f2 67 65 74 63 6f | 6d 6d 61 6e 64 0d 05 fa |. .getco|mmand...|
|00000e30| 17 67 65 74 63 6f 6d 6d | 61 6e 64 3d ac 20 70 61 |.getcomm|and=. pa|
|00000e40| 75 73 65 64 0d 06 04 1d | e7 20 72 75 6e 63 6f 6d |used....|. runcom|
|00000e50| 6d 61 6e 64 20 80 20 63 | 6d 64 24 3c 3e 22 22 20 |mand . c|md$<>"" |
|00000e60| 8c 0d 06 0e 15 20 20 20 | 73 74 61 72 74 63 6d 64 |..... |startcmd|
|00000e70| 24 3d 63 6d 64 24 0d 06 | 18 15 20 20 20 e7 20 73 |$=cmd$..|.. . s|
|00000e80| 69 6e 67 6c 65 73 74 65 | 70 20 8c 0d 06 22 12 20 |ingleste|p ...". |
|00000e90| 20 20 20 20 20 70 61 75 | 73 65 64 3d b9 0d 06 2c | pau|sed=...,|
|00000ea0| 16 20 20 20 20 20 20 72 | 75 6e 63 6f 6d 6d 61 6e |. r|uncomman|
|00000eb0| 64 3d a3 0d 06 36 16 20 | 20 20 20 20 20 67 65 74 |d=...6. | get|
|00000ec0| 63 6f 6d 6d 61 6e 64 3d | b9 0d 06 40 16 20 20 20 |command=|...@. |
|00000ed0| 20 20 20 f2 77 72 69 74 | 65 70 61 75 73 65 64 0d | .writ|epaused.|
|00000ee0| 06 4a 08 20 20 20 cd 0d | 06 54 05 cc 0d 06 5e 13 |.J. ..|.T....^.|
|00000ef0| 20 20 20 73 74 61 72 74 | 63 6d 64 24 3d 22 22 0d | start|cmd$="".|
|00000f00| 06 68 05 cd 0d 06 72 05 | e1 0d 06 7c 04 0d 06 86 |.h....r.|...|....|
|00000f10| 10 dd f2 67 65 74 63 6f | 6d 6d 61 6e 64 0d 06 90 |...getco|mmand...|
|00000f20| 0e ea 20 72 65 61 6c 6c | 69 6e 65 0d 06 9a 10 e7 |.. reall|ine.....|
|00000f30| 20 ac 20 c5 23 66 69 6c | 65 20 8c 0d 06 a4 08 20 | . .#fil|e ..... |
|00000f40| 20 20 f5 0d 06 ae 15 20 | 20 20 20 20 20 63 6d 64 | ..... | cmd|
|00000f50| 24 3d be 23 66 69 6c 65 | 0d 06 b8 35 20 20 20 20 |$=.#file|...5 |
|00000f60| 20 20 c8 95 20 c0 63 6d | 64 24 2c 20 31 29 3d 22 | .. .cm|d$, 1)="|
|00000f70| 20 22 20 63 6d 64 24 3d | c2 63 6d 64 24 2c 20 a9 | " cmd$=|.cmd$, .|
|00000f80| 28 63 6d 64 24 29 2d 31 | 29 20 3a 20 ce 0d 06 c2 |(cmd$)-1|) : ....|
|00000f90| 2d 20 20 20 20 20 20 72 | 65 61 6c 6c 69 6e 65 3d |- r|ealline=|
|00000fa0| 28 63 6d 64 24 3c 3e 22 | 22 20 80 20 c0 63 6d 64 |(cmd$<>"|" . .cmd|
|00000fb0| 24 2c 31 29 3c 3e 22 7c | 22 29 0d 06 cc 16 20 20 |$,1)<>"||").... |
|00000fc0| 20 20 20 20 e7 20 72 65 | 61 6c 6c 69 6e 65 20 8c | . re|alline .|
|00000fd0| 0d 06 d6 15 20 20 20 20 | 20 20 20 20 20 f2 6f 62 |.... | .ob|
|00000fe0| 65 79 64 69 72 0d 06 e0 | 2d 20 20 20 20 20 20 20 |eydir...|- |
|00000ff0| 20 20 e7 20 a7 63 6d 64 | 24 2c 20 22 25 22 29 20 | . .cmd|$, "%") |
|00001000| 8c 20 f2 61 72 67 75 6d | 65 6e 74 73 28 63 6d 64 |. .argum|ents(cmd|
|00001010| 24 29 0d 06 ea 2d 20 20 | 20 20 20 20 20 20 20 ff |$)...- | .|
|00001020| 28 22 53 65 74 20 4d 75 | 6c 74 69 4f 62 65 79 24 |("Set Mu|ltiObey$|
|00001030| 43 6f 6d 6d 61 6e 64 20 | 22 2b 63 6d 64 24 29 0d |Command |"+cmd$).|
|00001040| 06 f4 20 20 20 20 20 20 | 20 20 20 20 f2 77 72 69 |.. | .wri|
|00001050| 74 65 69 63 6f 6e 28 34 | 2c 20 63 6d 64 24 29 0d |teicon(4|, cmd$).|
|00001060| 06 fe 1e 20 20 20 20 20 | 20 20 20 20 f2 66 69 6e |... | .fin|
|00001070| 64 73 70 72 69 74 65 28 | 63 6d 64 24 29 0d 07 08 |dsprite(|cmd$)...|
|00001080| 2f 20 20 20 20 20 20 20 | 20 20 f2 73 65 74 69 63 |/ | .setic|
|00001090| 6f 6e 6c 65 6e 28 69 63 | 6f 6e 6c 65 6e 2a 8f 23 |onlen(ic|onlen*.#|
|000010a0| 66 69 6c 65 2f a2 23 66 | 69 6c 65 29 0d 07 12 1c |file/.#f|ile)....|
|000010b0| 20 20 20 20 20 20 20 20 | 20 21 62 6c 6f 63 6b 3d | | !block=|
|000010c0| 77 69 6e 5f 6f 62 65 79 | 0d 07 1c 2c 20 20 20 20 |win_obey|..., |
|000010d0| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 | .. |"Wimp_Ge|
|000010e0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|000010f0| 6c 6f 63 6b 0d 07 26 18 | 20 20 20 20 20 20 20 20 |lock..&.| |
|00001100| 20 62 6c 6f 63 6b 21 32 | 38 3d 2d 31 0d 07 30 28 | block!2|8=-1..0(|
|00001110| 20 20 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d | | .. "Wim|
|00001120| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00001130| 6c 6f 63 6b 0d 07 3a 0b | 20 20 20 20 20 20 cd 0d |lock..:.| ..|
|00001140| 07 44 1a 20 20 20 fd 20 | 72 65 61 6c 6c 69 6e 65 |.D. . |realline|
|00001150| 20 84 20 c5 23 66 69 6c | 65 0d 07 4e 05 cd 0d 07 | . .#fil|e..N....|
|00001160| 58 23 e7 20 c5 23 66 69 | 6c 65 20 80 20 ac 20 72 |X#. .#fi|le . . r|
|00001170| 65 61 6c 6c 69 6e 65 20 | 8c 20 63 6d 64 24 3d 22 |ealline |. cmd$="|
|00001180| 22 0d 07 62 05 e1 0d 07 | 6c 04 0d 07 76 0b dd f2 |"..b....|l...v...|
|00001190| 65 72 72 6f 72 0d 07 80 | 0c ea 20 72 65 73 75 6c |error...|.. resul|
|000011a0| 74 0d 07 8a 20 ee 20 85 | 20 65 72 72 6f 72 6e 75 |t... . .| errornu|
|000011b0| 6d 3d 31 20 3a 20 f2 63 | 72 75 64 65 65 72 72 6f |m=1 : .c|rudeerro|
|000011c0| 72 0d 07 94 0c 21 62 6c | 6f 63 6b 3d 9f 0d 07 9e |r....!bl|ock=....|
|000011d0| 45 24 28 62 6c 6f 63 6b | 2b 34 29 3d 22 4f 62 65 |E$(block|+4)="Obe|
|000011e0| 79 20 65 72 72 6f 72 20 | 22 2b c3 28 9e 29 2b 22 |y error |"+.(.)+"|
|000011f0| 3a 20 22 2b f6 24 2b 22 | 20 64 75 72 69 6e 67 20 |: "+.$+"| during |
|00001200| 6c 69 6e 65 20 22 2b 63 | 6d 64 24 2b 22 2e 22 2b |line "+c|md$+"."+|
|00001210| bd 30 0d 07 a8 35 c8 99 | 20 22 57 69 6d 70 5f 52 |.0...5..| "Wimp_R|
|00001220| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 20 62 6c 6f |eportErr|or", blo|
|00001230| 63 6b 2c 20 33 2c 20 22 | 4f 62 65 79 22 20 b8 20 |ck, 3, "|Obey" . |
|00001240| 2c 72 65 73 75 6c 74 0d | 07 b2 1c e7 20 72 65 73 |,result.|.... res|
|00001250| 75 6c 74 3d 32 20 8c 20 | f2 61 72 65 79 6f 75 73 |ult=2 . |.areyous|
|00001260| 75 72 65 0d 07 bc 18 ee | 20 85 20 ee 85 20 87 20 |ure.....| . .. . |
|00001270| 3a f2 65 72 72 6f 72 20 | 3a 20 e0 0d 07 c6 09 f2 |:.error |: ......|
|00001280| 70 6f 6c 6c 0d 07 d0 05 | e1 0d 07 da 04 0d 07 e4 |poll....|........|
|00001290| 10 dd f2 61 72 65 79 6f | 75 73 75 72 65 0d 07 ee |...areyo|usure...|
|000012a0| 0c ea 20 72 65 73 75 6c | 74 0d 07 f8 0c 21 62 6c |.. resul|t....!bl|
|000012b0| 6f 63 6b 3d 30 0d 08 02 | 6e 24 28 62 6c 6f 63 6b |ock=0...|n$(block|
|000012c0| 2b 34 29 3d 22 41 72 65 | 20 79 6f 75 20 73 75 72 |+4)="Are| you sur|
|000012d0| 65 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 71 75 |e you wa|nt to qu|
|000012e0| 69 74 20 74 68 65 20 70 | 72 6f 67 72 61 6d 3f 20 |it the p|rogram? |
|000012f0| 43 6c 69 63 6b 20 4f 4b | 20 74 6f 20 71 75 69 74 |Click OK| to quit|
|00001300| 2c 20 43 61 6e 63 65 6c | 20 74 6f 20 72 65 74 75 |, Cancel| to retu|
|00001310| 72 6e 20 74 6f 20 74 68 | 65 20 70 72 6f 67 72 61 |rn to th|e progra|
|00001320| 6d 2e 22 0d 08 0c 43 c8 | 99 20 22 57 69 6d 70 5f |m."...C.|. "Wimp_|
|00001330| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 20 62 6c |ReportEr|ror", bl|
|00001340| 6f 63 6b 2c 20 32 33 2c | 20 22 4d 65 73 73 61 67 |ock, 23,| "Messag|
|00001350| 65 20 66 72 6f 6d 20 4f | 62 65 79 22 20 b8 20 2c |e from O|bey" . ,|
|00001360| 72 65 73 75 6c 74 0d 08 | 16 18 e7 20 72 65 73 75 |result..|... resu|
|00001370| 6c 74 3d 31 20 8c 20 f2 | 66 69 6e 69 73 68 0d 08 |lt=1 . .|finish..|
|00001380| 20 05 e1 0d 08 2a 04 0d | 08 34 1e dd f2 77 72 69 | ....*..|.4...wri|
|00001390| 74 65 69 63 6f 6e 28 69 | 63 6f 6e 2c 20 73 74 72 |teicon(i|con, str|
|000013a0| 69 6e 67 24 29 0d 08 3e | 13 21 62 6c 6f 63 6b 3d |ing$)..>|.!block=|
|000013b0| 77 69 6e 5f 6f 62 65 79 | 0d 08 48 10 62 6c 6f 63 |win_obey|..H.bloc|
|000013c0| 6b 21 34 3d 69 63 6f 6e | 0d 08 52 21 c8 99 20 22 |k!4=icon|..R!.. "|
|000013d0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|000013e0| 65 22 2c 2c 62 6c 6f 63 | 6b 0d 08 5c 17 24 28 62 |e",,bloc|k..\.$(b|
|000013f0| 6c 6f 63 6b 21 32 38 29 | 3d 73 74 72 69 6e 67 24 |lock!28)|=string$|
|00001400| 0d 08 66 48 c8 99 20 22 | 57 69 6d 70 5f 46 6f 72 |..fH.. "|Wimp_For|
|00001410| 63 65 52 65 64 72 61 77 | 22 2c 20 21 62 6c 6f 63 |ceRedraw|", !bloc|
|00001420| 6b 2c 20 62 6c 6f 63 6b | 21 38 2c 20 62 6c 6f 63 |k, block|!8, bloc|
|00001430| 6b 21 31 32 2c 20 62 6c | 6f 63 6b 21 31 36 2c 20 |k!12, bl|ock!16, |
|00001440| 62 6c 6f 63 6b 21 32 30 | 0d 08 70 05 e1 0d 08 7a |block!20|..p....z|
|00001450| 04 0d 08 84 15 dd f2 73 | 65 74 69 63 6f 6e 6c 65 |.......s|eticonle|
|00001460| 6e 28 6c 65 6e 29 0d 08 | 8e 13 21 62 6c 6f 63 6b |n(len)..|..!block|
|00001470| 3d 77 69 6e 5f 6f 62 65 | 79 0d 08 98 16 62 6c 6f |=win_obe|y....blo|
|00001480| 63 6b 21 34 3d 73 6c 69 | 64 65 72 69 63 6f 6e 0d |ck!4=sli|dericon.|
|00001490| 08 a2 21 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |..!.. "W|imp_GetI|
|000014a0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|000014b0| 0d 08 ac 1f c8 99 20 22 | 57 69 6d 70 5f 44 65 6c |...... "|Wimp_Del|
|000014c0| 65 74 65 49 63 6f 6e 22 | 2c 2c 62 6c 6f 63 6b 0d |eteIcon"|,,block.|
|000014d0| 08 b6 14 62 6c 6f 63 6b | 21 34 3d 77 69 6e 5f 6f |...block|!4=win_o|
|000014e0| 62 65 79 0d 08 c0 18 62 | 6c 6f 63 6b 21 31 36 3d |bey....b|lock!16=|
|000014f0| 62 6c 6f 63 6b 21 38 2b | 6c 65 6e 0d 08 ca 2e c8 |block!8+|len.....|
|00001500| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00001510| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 2b 34 20 b8 20 73 |on",,blo|ck+4 . s|
|00001520| 6c 69 64 65 72 69 63 6f | 6e 0d 08 d4 4a c8 99 20 |liderico|n...J.. |
|00001530| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00001540| 77 22 2c 20 77 69 6e 5f | 6f 62 65 79 2c 20 62 6c |w", win_|obey, bl|
|00001550| 6f 63 6b 21 38 2c 20 62 | 6c 6f 63 6b 21 31 32 2c |ock!8, b|lock!12,|
|00001560| 20 62 6c 6f 63 6b 21 31 | 36 2c 20 62 6c 6f 63 6b | block!1|6, block|
|00001570| 21 32 30 0d 08 de 05 e1 | 0d 08 e8 04 0d 08 f2 16 |!20.....|........|
|00001580| dd f2 66 69 6e 64 73 70 | 72 69 74 65 28 63 6d 64 |..findsp|rite(cmd|
|00001590| 24 29 0d 08 fc 27 ea 20 | 66 69 6c 65 24 2c 20 70 |$)...'. |file$, p|
|000015a0| 6f 73 2c 20 73 74 61 72 | 74 70 6f 73 2c 20 6e 75 |os, star|tpos, nu|
|000015b0| 6d 24 2c 20 66 6c 61 67 | 73 0d 09 06 30 c8 95 20 |m$, flag|s...0.. |
|000015c0| c0 63 6d 64 24 2c 31 29 | 3d 22 20 22 20 3a 20 63 |.cmd$,1)|=" " : c|
|000015d0| 6d 64 24 3d c2 63 6d 64 | 24 2c 20 a9 28 63 6d 64 |md$=.cmd|$, .(cmd|
|000015e0| 24 29 2d 31 29 20 3a 20 | ce 0d 09 10 2d e7 20 c0 |$)-1) : |....-. .|
|000015f0| 63 6d 64 24 2c 31 29 3d | 22 2f 22 20 8c 20 70 6f |cmd$,1)=|"/" . po|
|00001600| 73 3d 32 20 8b 20 70 6f | 73 3d a7 63 6d 64 24 2c |s=2 . po|s=.cmd$,|
|00001610| 22 20 22 29 2b 31 0d 09 | 1a 10 73 74 61 72 74 70 |" ")+1..|..startp|
|00001620| 6f 73 3d 70 6f 73 0d 09 | 24 0c 66 69 6c 65 24 3d |os=pos..|$.file$=|
|00001630| 22 22 0d 09 2e 05 f5 0d | 09 38 1c 20 20 20 66 69 |""......|.8. fi|
|00001640| 6c 65 24 2b 3d c1 63 6d | 64 24 2c 20 70 6f 73 2c |le$+=.cm|d$, pos,|
|00001650| 20 31 29 0d 09 42 0d 20 | 20 20 70 6f 73 2b 3d 31 | 1)..B. | pos+=1|
|00001660| 0d 09 4c 26 fd 20 c1 63 | 6d 64 24 2c 20 70 6f 73 |..L&. .c|md$, pos|
|00001670| 2c 20 31 29 3d 22 20 22 | 20 84 20 70 6f 73 3e a9 |, 1)=" "| . pos>.|
|00001680| 28 63 6d 64 24 29 0d 09 | 56 31 e7 20 a7 a4 6c 65 |(cmd$)..|V1. ..le|
|00001690| 61 66 28 66 69 6c 65 24 | 29 2c 20 22 2a 22 29 20 |af(file$|), "*") |
|000016a0| 84 20 a7 a4 6c 65 61 66 | 28 66 69 6c 65 24 29 2c |. ..leaf|(file$),|
|000016b0| 20 22 23 22 29 20 8c 0d | 09 60 1b 20 20 20 66 69 | "#") ..|.`. fi|
|000016c0| 6c 65 24 3d a4 70 61 72 | 65 6e 74 28 66 69 6c 65 |le$=.par|ent(file|
|000016d0| 24 29 0d 09 6a 20 20 20 | 20 ff 28 22 53 65 74 20 |$)..j | .("Set |
|000016e0| 44 75 6d 6d 79 24 56 61 | 72 20 22 2b 66 69 6c 65 |Dummy$Va|r "+file|
|000016f0| 24 29 0d 09 74 05 cd 0d | 09 7e 33 c8 99 20 22 58 |$)..t...|.~3.. "X|
|00001700| 4f 53 5f 46 69 6c 65 22 | 2c 20 32 33 2c 20 66 69 |OS_File"|, 23, fi|
|00001710| 6c 65 24 20 b8 20 2c 2c | 2c 2c 2c 2c 66 69 6c 65 |le$ . ,,|,,,,file|
|00001720| 74 79 70 65 3b 66 6c 61 | 67 73 0d 09 88 20 e7 20 |type;fla|gs... . |
|00001730| 28 66 6c 61 67 73 20 80 | 20 31 29 3e 30 20 8c 20 |(flags .| 1)>0 . |
|00001740| 66 69 6c 65 74 79 70 65 | 3d 30 0d 09 92 11 c8 8e |filetype|=0......|
|00001750| 20 66 69 6c 65 74 79 70 | 65 20 ca 0d 09 9c 1f 20 | filetyp|e ..... |
|00001760| 20 20 c9 20 30 20 3a 20 | 73 70 72 69 74 65 24 3d | . 0 : |sprite$=|
|00001770| 22 73 77 69 74 63 68 65 | 72 22 0d 09 a6 22 20 20 |"switche|r"..." |
|00001780| 20 c9 20 2d 31 20 3a 20 | 73 70 72 69 74 65 24 3d | . -1 : |sprite$=|
|00001790| 22 21 6d 75 6c 74 69 6f | 62 65 79 22 0d 09 b0 24 |"!multio|bey"...$|
|000017a0| 20 20 20 c9 20 26 31 30 | 30 30 20 3a 20 73 70 72 | . &10|00 : spr|
|000017b0| 69 74 65 24 3d 22 64 69 | 72 65 63 74 6f 72 79 22 |ite$="di|rectory"|
|000017c0| 0d 09 ba 0e 20 20 20 c9 | 20 26 32 30 30 30 0d 09 |.... .| &2000..|
|000017d0| c4 12 20 20 20 20 20 20 | 73 65 70 70 6f 73 3d 30 |.. |seppos=0|
|000017e0| 0d 09 ce 0b 20 20 20 20 | 20 20 f5 0d 09 d8 27 20 |.... | ....' |
|000017f0| 20 20 20 20 20 20 20 20 | 70 6f 73 3d a7 66 69 6c | |pos=.fil|
|00001800| 65 24 2c 20 22 2e 22 2c | 20 73 65 70 70 6f 73 2b |e$, ".",| seppos+|
|00001810| 31 29 0d 09 e2 31 20 20 | 20 20 20 20 20 20 20 e7 |1)...1 | .|
|00001820| 20 70 6f 73 3d 30 20 8c | 20 70 6f 73 3d a7 66 69 | pos=0 .| pos=.fi|
|00001830| 6c 65 24 2c 20 22 3a 22 | 2c 20 73 65 70 70 6f 73 |le$, ":"|, seppos|
|00001840| 2b 31 29 0d 09 ec 22 20 | 20 20 20 20 20 20 20 20 |+1)..." | |
|00001850| e7 20 70 6f 73 3c 3e 30 | 20 8c 20 73 65 70 70 6f |. pos<>0| . seppo|
|00001860| 73 3d 70 6f 73 0d 09 f6 | 11 20 20 20 20 20 20 fd |s=pos...|. .|
|00001870| 20 70 6f 73 3d 30 0d 0a | 00 2a 20 20 20 20 20 20 | pos=0..|.* |
|00001880| 73 70 72 69 74 65 24 3d | c2 66 69 6c 65 24 2c 20 |sprite$=|.file$, |
|00001890| a9 28 66 69 6c 65 24 29 | 2d 73 65 70 70 6f 73 29 |.(file$)|-seppos)|
|000018a0| 0d 0a 14 2b 20 20 20 20 | 20 20 c8 99 20 22 58 4f |...+ | .. "XO|
|000018b0| 53 5f 43 4c 49 22 2c 20 | 22 46 69 6c 65 72 5f 42 |S_CLI", |"Filer_B|
|000018c0| 6f 6f 74 20 22 2b 66 69 | 6c 65 24 0d 0a 1e 08 20 |oot "+fi|le$.... |
|000018d0| 20 20 7f 0d 0a 28 1b 20 | 20 20 20 20 20 6e 75 6d | ...(. | num|
|000018e0| 24 3d c3 7e 28 66 69 6c | 65 74 79 70 65 29 0d 0a |$=.~(fil|etype)..|
|000018f0| 32 2a 20 20 20 20 20 20 | c8 95 20 a9 28 6e 75 6d |2* |.. .(num|
|00001900| 24 29 3c 33 20 3a 20 6e | 75 6d 24 3d 22 30 22 2b |$)<3 : n|um$="0"+|
|00001910| 6e 75 6d 24 20 3a 20 ce | 0d 0a 3c 1e 20 20 20 20 |num$ : .|..<. |
|00001920| 20 20 73 70 72 69 74 65 | 24 3d 22 66 69 6c 65 5f | sprite|$="file_|
|00001930| 22 2b 6e 75 6d 24 0d 0a | 46 05 cb 0d 0a 50 1a f2 |"+num$..|F....P..|
|00001940| 77 72 69 74 65 69 63 6f | 6e 28 30 2c 20 73 70 72 |writeico|n(0, spr|
|00001950| 69 74 65 24 29 0d 0a 5a | 48 c8 99 20 22 57 69 6d |ite$)..Z|H.. "Wim|
|00001960| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 20 |p_ForceR|edraw", |
|00001970| 21 62 6c 6f 63 6b 2c 20 | 62 6c 6f 63 6b 21 38 2c |!block, |block!8,|
|00001980| 20 62 6c 6f 63 6b 21 31 | 32 2c 20 62 6c 6f 63 6b | block!1|2, block|
|00001990| 21 31 36 2c 20 62 6c 6f | 63 6b 21 32 30 0d 0a 64 |!16, blo|ck!20..d|
|000019a0| 05 e1 0d 0a 6e 04 0d 0a | 78 10 dd f2 6d 6f 75 73 |....n...|x...mous|
|000019b0| 65 63 6c 69 63 6b 0d 0a | 82 20 ea 20 62 75 74 74 |eclick..|. . butt|
|000019c0| 6f 6e 73 2c 20 69 63 6f | 6e 2c 20 66 6c 61 67 73 |ons, ico|n, flags|
|000019d0| 2c 20 73 74 72 24 0d 0a | 8c 13 62 75 74 74 6f 6e |, str$..|..button|
|000019e0| 73 3d 62 6c 6f 63 6b 21 | 38 0d 0a 96 11 69 63 6f |s=block!|8....ico|
|000019f0| 6e 3d 62 6c 6f 63 6b 21 | 31 36 0d 0a a0 0d c8 8e |n=block!|16......|
|00001a00| 20 69 63 6f 6e 20 ca 0d | 0a aa 17 20 20 20 c9 20 | icon ..|... . |
|00001a10| 61 62 6f 72 74 20 3a 20 | 71 75 69 74 3d b9 0d 0a |abort : |quit=...|
|00001a20| b4 1b 20 20 20 c9 20 73 | 6b 69 70 20 3a 20 f2 67 |.. . s|kip : .g|
|00001a30| 65 74 63 6f 6d 6d 61 6e | 64 0d 0a be 0d 20 20 20 |etcomman|d.... |
|00001a40| c9 20 73 74 65 70 0d 0a | c8 19 20 20 20 20 20 20 |. step..|.. |
|00001a50| 21 62 6c 6f 63 6b 3d 77 | 69 6e 5f 6f 62 65 79 0d |!block=w|in_obey.|
|00001a60| 0a d2 16 20 20 20 20 20 | 20 62 6c 6f 63 6b 21 34 |... | block!4|
|00001a70| 3d 73 74 65 70 0d 0a dc | 27 20 20 20 20 20 20 c8 |=step...|' .|
|00001a80| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00001a90| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 0d 0a e6 18 |tate",,b|lock....|
|00001aa0| 20 20 20 20 20 20 66 6c | 61 67 73 3d 62 6c 6f 63 | fl|ags=bloc|
|00001ab0| 6b 21 32 34 0d 0a f0 28 | 20 20 20 20 20 20 73 69 |k!24...(| si|
|00001ac0| 6e 67 6c 65 73 74 65 70 | 3d 28 66 6c 61 67 73 20 |nglestep|=(flags |
|00001ad0| 80 20 28 31 3c 3c 32 31 | 29 29 3e 30 0d 0a fa 0e |. (1<<21|))>0....|
|00001ae0| 20 20 20 c9 20 70 61 75 | 73 65 0d 0b 04 19 20 20 | . pau|se.... |
|00001af0| 20 20 20 20 70 61 75 73 | 65 64 3d ac 20 70 61 75 | paus|ed=. pau|
|00001b00| 73 65 64 0d 0b 0e 30 20 | 20 20 20 20 20 e7 20 70 |sed...0 | . p|
|00001b10| 61 75 73 65 64 20 8c 20 | 67 65 74 63 6f 6d 6d 61 |aused . |getcomma|
|00001b20| 6e 64 3d b9 20 3a 20 72 | 75 6e 63 6f 6d 6d 61 6e |nd=. : r|uncomman|
|00001b30| 64 3d a3 0d 0b 18 32 20 | 20 20 20 20 20 e7 20 ac |d=....2 | . .|
|00001b40| 20 70 61 75 73 65 64 20 | 8c 20 67 65 74 63 6f 6d | paused |. getcom|
|00001b50| 6d 61 6e 64 3d a3 20 3a | 20 72 75 6e 63 6f 6d 6d |mand=. :| runcomm|
|00001b60| 61 6e 64 3d b9 0d 0b 22 | 16 20 20 20 20 20 20 f2 |and=..."|. .|
|00001b70| 77 72 69 74 65 70 61 75 | 73 65 64 0d 0b 2c 05 cb |writepau|sed..,..|
|00001b80| 0d 0b 36 05 e1 0d 0b 40 | 04 0d 0b 4a 11 dd f2 77 |..6....@|...J...w|
|00001b90| 72 69 74 65 70 61 75 73 | 65 64 0d 0b 54 2d e7 20 |ritepaus|ed..T-. |
|00001ba0| 70 61 75 73 65 64 20 8c | 20 73 74 72 24 3d 22 43 |paused .| str$="C|
|00001bb0| 6f 6e 74 69 6e 75 65 22 | 20 8b 20 73 74 72 24 3d |ontinue"| . str$=|
|00001bc0| 22 50 61 75 73 65 22 0d | 0b 5e 1b f2 77 72 69 74 |"Pause".|.^..writ|
|00001bd0| 65 69 63 6f 6e 28 70 61 | 75 73 65 2c 20 73 74 72 |eicon(pa|use, str|
|00001be0| 24 29 0d 0b 68 05 e1 0d | 0b 72 04 0d 0b 7c 18 dd |$)..h...|.r...|..|
|00001bf0| a4 72 65 61 64 73 74 72 | 69 6e 67 28 6f 66 66 73 |.readstr|ing(offs|
|00001c00| 65 74 29 0d 0b 86 0d ea | 20 73 74 72 69 6e 67 24 |et).....| string$|
|00001c10| 0d 0b 90 11 c8 95 20 3f | 6f 66 66 73 65 74 3c 3e |...... ?|offset<>|
|00001c20| 30 0d 0b 9a 1a 20 20 20 | 73 74 72 69 6e 67 24 2b |0.... |string$+|
|00001c30| 3d bd 28 3f 6f 66 66 73 | 65 74 29 0d 0b a4 10 20 |=.(?offs|et).... |
|00001c40| 20 20 6f 66 66 73 65 74 | 2b 3d 31 0d 0b ae 05 ce | offset|+=1.....|
|00001c50| 0d 0b b8 0c 3d 73 74 72 | 69 6e 67 24 0d 0b c2 04 |....=str|ing$....|
|00001c60| 0d 0b cc 17 dd f2 72 65 | 61 64 63 6f 6d 6d 61 6e |......re|adcomman|
|00001c70| 64 73 74 72 69 6e 67 0d | 0b d6 1b ea 20 70 6f 69 |dstring.|.... poi|
|00001c80| 6e 74 65 72 2c 20 63 6d | 64 24 2c 20 64 75 6d 6d |nter, cm|d$, dumm|
|00001c90| 79 24 0d 0b e0 1c c8 99 | 20 22 4f 53 5f 47 65 74 |y$......| "OS_Get|
|00001ca0| 45 6e 76 22 20 b8 20 70 | 6f 69 6e 74 65 72 0d 0b |Env" . p|ointer..|
|00001cb0| ea 1d 63 6d 64 24 3d a4 | 72 65 61 64 73 74 72 69 |..cmd$=.|readstri|
|00001cc0| 6e 67 28 70 6f 69 6e 74 | 65 72 29 0d 0b f4 10 e3 |ng(point|er).....|
|00001cd0| 20 6c 6f 6f 70 3d 31 20 | b8 20 33 0d 0b fe 1f 20 | loop=1 |. 3.... |
|00001ce0| 20 20 f2 73 74 72 69 70 | 77 6f 72 64 28 63 6d 64 | .strip|word(cmd|
|00001cf0| 24 2c 20 64 75 6d 6d 79 | 24 29 0d 0c 08 05 ed 0d |$, dummy|$)......|
|00001d00| 0c 12 1b f2 73 74 72 69 | 70 77 6f 72 64 28 63 6d |....stri|pword(cm|
|00001d10| 64 24 2c 20 66 69 6c 65 | 24 29 0d 0c 1c 10 e3 20 |d$, file|$)..... |
|00001d20| 6c 6f 6f 70 3d 30 20 b8 | 20 38 0d 0c 26 23 20 20 |loop=0 .| 8..&# |
|00001d30| 20 f2 73 74 72 69 70 77 | 6f 72 64 28 63 6d 64 24 | .stripw|ord(cmd$|
|00001d40| 2c 20 61 72 67 24 28 6c | 6f 6f 70 29 29 0d 0c 30 |, arg$(l|oop))..0|
|00001d50| 05 ed 0d 0c 3a 05 e1 0d | 0c 44 04 0d 0c 4e 25 dd |....:...|.D...N%.|
|00001d60| f2 73 74 72 69 70 77 6f | 72 64 28 f8 20 73 74 72 |.stripwo|rd(. str|
|00001d70| 69 6e 67 24 2c 20 f8 20 | 6f 75 74 70 75 74 24 29 |ing$, . |output$)|
|00001d80| 0d 0c 58 09 ea 20 70 6f | 73 0d 0c 62 21 e7 20 73 |..X.. po|s..b!. s|
|00001d90| 74 72 69 6e 67 24 3d 22 | 22 20 8c 20 6f 75 74 70 |tring$="|" . outp|
|00001da0| 75 74 24 3d 22 22 20 3a | 20 e1 0d 0c 6c 16 70 6f |ut$="" :| ...l.po|
|00001db0| 73 3d a7 73 74 72 69 6e | 67 24 2c 20 22 20 22 29 |s=.strin|g$, " ")|
|00001dc0| 0d 0c 76 0d e7 20 70 6f | 73 3d 30 20 8c 0d 0c 80 |..v.. po|s=0 ....|
|00001dd0| 16 20 20 20 6f 75 74 70 | 75 74 24 3d 73 74 72 69 |. outp|ut$=stri|
|00001de0| 6e 67 24 0d 0c 8a 11 20 | 20 20 73 74 72 69 6e 67 |ng$.... | string|
|00001df0| 24 3d 22 22 0d 0c 94 05 | cc 0d 0c 9e 1f 20 20 20 |$=""....|..... |
|00001e00| 6f 75 74 70 75 74 24 3d | c0 73 74 72 69 6e 67 24 |output$=|.string$|
|00001e10| 2c 20 70 6f 73 2d 31 29 | 0d 0c a8 28 20 20 20 73 |, pos-1)|...( s|
|00001e20| 74 72 69 6e 67 24 3d c2 | 73 74 72 69 6e 67 24 2c |tring$=.|string$,|
|00001e30| 20 a9 28 73 74 72 69 6e | 67 24 29 2d 70 6f 73 29 | .(strin|g$)-pos)|
|00001e40| 0d 0c b2 05 cd 0d 0c bc | 05 e1 0d 0c c6 04 0d 0c |........|........|
|00001e50| d0 11 dd a4 6c 65 61 66 | 28 66 69 6c 65 24 29 0d |....leaf|(file$).|
|00001e60| 0c da 11 ea 20 73 65 70 | 70 6f 73 2c 20 70 6f 73 |.... sep|pos, pos|
|00001e70| 0d 0c e4 0c 73 65 70 70 | 6f 73 3d 30 0d 0c ee 05 |....sepp|os=0....|
|00001e80| f5 0d 0c f8 21 20 20 20 | 70 6f 73 3d a7 66 69 6c |....! |pos=.fil|
|00001e90| 65 24 2c 20 22 2e 22 2c | 20 73 65 70 70 6f 73 2b |e$, ".",| seppos+|
|00001ea0| 31 29 0d 0d 02 2b 20 20 | 20 e7 20 70 6f 73 3d 30 |1)...+ | . pos=0|
|00001eb0| 20 8c 20 70 6f 73 3d a7 | 66 69 6c 65 24 2c 20 22 | . pos=.|file$, "|
|00001ec0| 3a 22 2c 20 73 65 70 70 | 6f 73 2b 31 29 0d 0d 0c |:", sepp|os+1)...|
|00001ed0| 1c 20 20 20 e7 20 70 6f | 73 3c 3e 30 20 8c 20 73 |. . po|s<>0 . s|
|00001ee0| 65 70 70 6f 73 3d 70 6f | 73 0d 0d 16 0b fd 20 70 |eppos=po|s..... p|
|00001ef0| 6f 73 3d 30 0d 0d 20 1d | 3d c2 66 69 6c 65 24 2c |os=0.. .|=.file$,|
|00001f00| 20 a9 28 66 69 6c 65 24 | 29 2d 73 65 70 70 6f 73 | .(file$|)-seppos|
|00001f10| 29 0d 0d 2a 04 0d 0d 34 | 13 dd a4 70 61 72 65 6e |)..*...4|...paren|
|00001f20| 74 28 66 69 6c 65 24 29 | 0d 0d 3e 0d ea 20 70 61 |t(file$)|..>.. pa|
|00001f30| 72 65 6e 74 24 0d 0d 48 | 2d 70 61 72 65 6e 74 24 |rent$..H|-parent$|
|00001f40| 3d c0 66 69 6c 65 24 2c | 20 a9 28 66 69 6c 65 24 |=.file$,| .(file$|
|00001f50| 29 2d a9 28 a4 6c 65 61 | 66 28 66 69 6c 65 24 29 |)-.(.lea|f(file$)|
|00001f60| 29 29 0d 0d 52 27 e7 20 | c2 70 61 72 65 6e 74 24 |))..R'. |.parent$|
|00001f70| 29 3d 22 2e 22 20 8c 20 | 70 61 72 65 6e 74 24 3d |)="." . |parent$=|
|00001f80| c0 70 61 72 65 6e 74 24 | 29 0d 0d 5c 0c 3d 70 61 |.parent$|)..\.=pa|
|00001f90| 72 65 6e 74 24 0d 0d 66 | 04 0d 0d 70 17 dd f2 73 |rent$..f|...p...s|
|00001fa0| 65 74 6f 62 65 79 64 69 | 72 28 66 69 6c 65 24 29 |etobeydi|r(file$)|
|00001fb0| 0d 0d 7a 0d ea 20 70 61 | 72 65 6e 74 24 0d 0d 84 |..z.. pa|rent$...|
|00001fc0| 1a 70 61 72 65 6e 74 24 | 3d a4 70 61 72 65 6e 74 |.parent$|=.parent|
|00001fd0| 28 66 69 6c 65 24 29 0d | 0d 8e 1a f4 20 53 74 72 |(file$).|.... Str|
|00001fe0| 69 70 20 2e 2c 20 62 75 | 74 20 6c 65 61 76 65 20 |ip ., bu|t leave |
|00001ff0| 3a 0d 0d 98 14 6f 62 65 | 79 64 69 72 24 3d 70 61 |:....obe|ydir$=pa|
|00002000| 72 65 6e 74 24 0d 0d a2 | 0c f2 6f 62 65 79 64 69 |rent$...|..obeydi|
|00002010| 72 0d 0d ac 05 e1 0d 0d | b6 04 0d 0d c0 0d dd f2 |r.......|........|
|00002020| 6f 62 65 79 64 69 72 0d | 0d ca 20 ff 20 28 22 53 |obeydir.|.. . ("S|
|00002030| 65 74 20 4f 62 65 79 24 | 44 69 72 20 22 2b 6f 62 |et Obey$|Dir "+ob|
|00002040| 65 79 64 69 72 24 29 0d | 0d d4 05 e1 0d 0d de 04 |eydir$).|........|
|00002050| 0d 0d e8 17 dd f2 61 72 | 67 75 6d 65 6e 74 73 28 |......ar|guments(|
|00002060| f8 20 63 6d 64 24 29 0d | 0d f2 36 ea 20 70 6f 73 |. cmd$).|..6. pos|
|00002070| 2c 20 63 68 61 72 24 2c | 20 70 65 72 63 65 6e 74 |, char$,| percent|
|00002080| 2c 20 61 72 67 6e 75 6d | 2c 20 73 75 62 73 74 24 |, argnum|, subst$|
|00002090| 2c 20 70 63 70 6f 73 2c | 20 6c 6f 6f 70 0d 0d fc |, pcpos,| loop...|
|000020a0| 09 70 6f 73 3d 30 0d 0e | 06 0d 70 65 72 63 65 6e |.pos=0..|..percen|
|000020b0| 74 3d a3 0d 0e 10 05 f5 | 0d 0e 1a 1b 20 20 20 63 |t=......|.... c|
|000020c0| 68 61 72 24 3d c1 63 6d | 64 24 2c 20 70 6f 73 2c |har$=.cm|d$, pos,|
|000020d0| 20 31 29 0d 0e 24 14 20 | 20 20 e7 20 63 68 61 72 | 1)..$. | . char|
|000020e0| 24 3d 22 25 22 20 8c 0d | 0e 2e 13 20 20 20 20 20 |$="%" ..|... |
|000020f0| 20 70 63 70 6f 73 3d 70 | 6f 73 0d 0e 38 10 20 20 | pcpos=p|os..8. |
|00002100| 20 20 20 20 70 6f 73 2b | 3d 31 0d 0e 42 1e 20 20 | pos+|=1..B. |
|00002110| 20 20 20 20 63 68 61 72 | 24 3d c1 63 6d 64 24 2c | char|$=.cmd$,|
|00002120| 20 70 6f 73 2c 20 31 29 | 0d 0e 4c 20 20 20 20 20 | pos, 1)|..L |
|00002130| 20 20 61 72 67 6e 75 6d | 3d 97 28 63 68 61 72 24 | argnum|=.(char$|
|00002140| 29 2d 97 28 22 30 22 29 | 0d 0e 56 17 20 20 20 20 |)-.("0")|..V. |
|00002150| 20 20 e7 20 63 68 61 72 | 24 3d 22 25 22 20 8c 0d | . char|$="%" ..|
|00002160| 0e 60 37 20 20 20 20 20 | 20 20 20 20 63 6d 64 24 |.`7 | cmd$|
|00002170| 3d c0 63 6d 64 24 2c 20 | 70 63 70 6f 73 2d 31 29 |=.cmd$, |pcpos-1)|
|00002180| 2b c2 63 6d 64 24 2c 20 | a9 28 63 6d 64 24 29 2d |+.cmd$, |.(cmd$)-|
|00002190| 70 6f 73 2b 31 29 0d 0e | 6a 13 20 20 20 20 20 20 |pos+1)..|j. |
|000021a0| 20 20 20 70 6f 73 2d 3d | 31 0d 0e 74 0b 20 20 20 | pos-=|1..t. |
|000021b0| 20 20 20 cc 0d 0e 7e 34 | 20 20 20 20 20 20 20 20 | ...~4| |
|000021c0| 20 e7 20 28 61 72 67 6e | 75 6d 3e 3d 30 20 80 20 | . (argn|um>=0 . |
|000021d0| 61 72 67 6e 75 6d 3c 3d | 38 29 20 84 20 63 68 61 |argnum<=|8) . cha|
|000021e0| 72 24 3d 22 2a 22 20 8c | 0d 0e 88 1d 20 20 20 20 |r$="*" .|.... |
|000021f0| 20 20 20 20 20 20 20 20 | e7 20 63 68 61 72 24 3d | |. char$=|
|00002200| 22 2a 22 20 8c 0d 0e 92 | 19 20 20 20 20 20 20 20 |"*" ....|. |
|00002210| 20 20 20 20 20 20 20 20 | 70 6f 73 2b 3d 31 0d 0e | |pos+=1..|
|00002220| 9c 27 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.' | |
|00002230| 20 63 68 61 72 24 3d c1 | 63 6d 64 24 2c 20 70 6f | char$=.|cmd$, po|
|00002240| 73 2c 20 31 29 0d 0e a6 | 29 20 20 20 20 20 20 20 |s, 1)...|) |
|00002250| 20 20 20 20 20 20 20 20 | 61 72 67 6e 75 6d 3d 97 | |argnum=.|
|00002260| 28 63 68 61 72 24 29 2d | 97 28 22 30 22 29 0d 0e |(char$)-|.("0")..|
|00002270| b0 1c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002280| 20 73 75 62 73 74 24 3d | 22 22 0d 0e ba 2e 20 20 | subst$=|"".... |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 e7 20 28 | | . (|
|000022a0| 61 72 67 6e 75 6d 3e 3d | 30 20 80 20 61 72 67 6e |argnum>=|0 . argn|
|000022b0| 75 6d 3c 3d 38 29 20 8c | 0d 0e c4 27 20 20 20 20 |um<=8) .|...' |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 e3 20 | | . |
|000022d0| 6c 6f 6f 70 3d 61 72 67 | 6e 75 6d 20 b8 20 38 0d |loop=arg|num . 8.|
|000022e0| 0e ce 42 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..B | |
|000022f0| 20 20 20 20 20 20 20 20 | e7 20 61 72 67 24 28 6c | |. arg$(l|
|00002300| 6f 6f 70 29 3c 3e 22 22 | 20 8c 20 73 75 62 73 74 |oop)<>""| . subst|
|00002310| 24 2b 3d 22 20 22 2b 61 | 72 67 24 28 6c 6f 6f 70 |$+=" "+a|rg$(loop|
|00002320| 29 0d 0e d8 17 20 20 20 | 20 20 20 20 20 20 20 20 |).... | |
|00002330| 20 20 20 20 20 20 20 ed | 0d 0e e2 32 20 20 20 20 | .|...2 |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 75 | | su|
|00002350| 62 73 74 24 3d c2 73 75 | 62 73 74 24 2c 20 a9 28 |bst$=.su|bst$, .(|
|00002360| 73 75 62 73 74 24 29 2d | 31 29 0d 0e ec 14 20 20 |subst$)-|1).... |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 cc 0d 0e | | ...|
|00002380| f6 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |." | |
|00002390| 20 20 20 20 73 75 62 73 | 74 24 3d 63 68 61 72 24 | subs|t$=char$|
|000023a0| 0d 0f 00 14 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|000023b0| 20 20 20 cd 0d 0f 0a 11 | 20 20 20 20 20 20 20 20 | .....| |
|000023c0| 20 20 20 20 cc 0d 0f 14 | 26 20 20 20 20 20 20 20 | ....|& |
|000023d0| 20 20 20 20 20 20 20 20 | 73 75 62 73 74 24 3d 61 | |subst$=a|
|000023e0| 72 67 24 28 61 72 67 6e | 75 6d 29 0d 0f 1e 11 20 |rg$(argn|um).... |
|000023f0| 20 20 20 20 20 20 20 20 | 20 20 20 cd 0d 0f 28 3f | | ...(?|
|00002400| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6d 64 24 | | cmd$|
|00002410| 3d c0 63 6d 64 24 2c 20 | 70 63 70 6f 73 2d 31 29 |=.cmd$, |pcpos-1)|
|00002420| 2b 73 75 62 73 74 24 2b | c2 63 6d 64 24 2c 20 a9 |+subst$+|.cmd$, .|
|00002430| 28 63 6d 64 24 29 2d 70 | 6f 73 29 0d 0f 32 25 20 |(cmd$)-p|os)..2% |
|00002440| 20 20 20 20 20 20 20 20 | 20 20 20 70 6f 73 3d 70 | | pos=p|
|00002450| 63 70 6f 73 2b a9 28 73 | 75 62 73 74 24 29 2d 31 |cpos+.(s|ubst$)-1|
|00002460| 0d 0f 3c 0e 20 20 20 20 | 20 20 20 20 20 cd 0d 0f |..<. | ...|
|00002470| 46 0b 20 20 20 20 20 20 | cd 0d 0f 50 08 20 20 20 |F. |...P. |
|00002480| cd 0d 0f 5a 0d 20 20 20 | 70 6f 73 2b 3d 31 0d 0f |...Z. |pos+=1..|
|00002490| 64 11 fd 20 70 6f 73 3d | a9 28 63 6d 64 24 29 0d |d.. pos=|.(cmd$).|
|000024a0| 0f 6e 05 e1 0d 0f 78 04 | 0d 0f 82 13 dd a4 72 65 |.n....x.|......re|
|000024b0| 61 64 76 61 72 28 76 61 | 72 24 29 0d 0f 8c 0d ea |advar(va|r$).....|
|000024c0| 20 6e 75 6d 72 65 61 64 | 0d 0f 96 3b c8 99 20 22 | numread|...;.. "|
|000024d0| 58 4f 53 5f 52 65 61 64 | 56 61 72 56 61 6c 22 2c |XOS_Read|VarVal",|
|000024e0| 20 76 61 72 24 2c 20 62 | 6c 6f 63 6b 2c 20 32 35 | var$, b|lock, 25|
|000024f0| 35 2c 20 30 2c 20 33 20 | b8 20 2c 2c 6e 75 6d 72 |5, 0, 3 |. ,,numr|
|00002500| 65 61 64 0d 0f a0 14 62 | 6c 6f 63 6b 3f 6e 75 6d |ead....b|lock?num|
|00002510| 72 65 61 64 3d 31 33 0d | 0f aa 0b 3d 24 62 6c 6f |read=13.|...=$blo|
|00002520| 63 6b 0d 0f b4 04 0d 0f | be 16 dd f2 6d 75 6c 74 |ck......|....mult|
|00002530| 69 6f 62 65 79 72 75 6e | 6e 69 6e 67 0d 0f c8 0d |iobeyrun|ning....|
|00002540| ea 20 72 75 6e 6e 69 6e | 67 0d 0f d2 2c 72 75 6e |. runnin|g...,run|
|00002550| 6e 69 6e 67 3d bb 28 a4 | 72 65 61 64 76 61 72 28 |ning=.(.|readvar(|
|00002560| 22 4d 75 6c 74 69 4f 62 | 65 79 24 52 75 6e 6e 69 |"MultiOb|ey$Runni|
|00002570| 6e 67 22 29 29 0d 0f dc | 4a e7 20 72 75 6e 6e 69 |ng"))...|J. runni|
|00002580| 6e 67 3d 6e 75 6d 72 75 | 6e 6e 69 6e 67 20 8c 20 |ng=numru|nning . |
|00002590| ff 28 22 53 65 74 45 76 | 61 6c 20 4d 75 6c 74 69 |.("SetEv|al Multi|
|000025a0| 4f 62 65 79 24 52 75 6e | 6e 69 6e 67 20 22 2b c3 |Obey$Run|ning "+.|
|000025b0| 28 6e 75 6d 72 75 6e 6e | 69 6e 67 2d 31 29 29 0d |(numrunn|ing-1)).|
|000025c0| 0f e6 05 e1 0d 0f f0 04 | 0d 0f fa 15 dd a4 6c 6f |........|......lo|
|000025d0| 77 65 72 63 61 73 65 28 | 73 74 72 24 29 0d 10 04 |wercase(|str$)...|
|000025e0| 0f ea 20 70 6f 73 2c 20 | 63 68 61 72 0d 10 0e 15 |.. pos, |char....|
|000025f0| e3 20 70 6f 73 3d 31 20 | b8 20 a9 28 73 74 72 24 |. pos=1 |. .(str$|
|00002600| 29 0d 10 18 1d 20 20 20 | 63 68 61 72 3d 97 28 c1 |).... |char=.(.|
|00002610| 73 74 72 24 2c 20 70 6f | 73 2c 20 31 29 29 0d 10 |str$, po|s, 1))..|
|00002620| 22 1e 20 20 20 e7 20 63 | 68 61 72 3e 3d 36 35 20 |". . c|har>=65 |
|00002630| 80 20 63 68 61 72 3c 3d | 39 30 20 8c 0d 10 2c 12 |. char<=|90 ...,.|
|00002640| 20 20 20 20 20 20 63 68 | 61 72 2b 3d 33 32 0d 10 | ch|ar+=32..|
|00002650| 36 20 20 20 20 20 20 20 | c1 73 74 72 24 2c 20 70 |6 |.str$, p|
|00002660| 6f 73 2c 20 31 29 3d bd | 28 63 68 61 72 29 0d 10 |os, 1)=.|(char)..|
|00002670| 40 08 20 20 20 cd 0d 10 | 4a 05 ed 0d 10 54 09 3d |@. ...|J....T.=|
|00002680| 73 74 72 24 0d 10 5e 04 | 0d 10 68 11 dd f2 6f 62 |str$..^.|..h...ob|
|00002690| 65 79 28 66 69 6c 65 24 | 29 0d 10 72 0a ea 20 6c |ey(file$|)..r.. l|
|000026a0| 6f 6f 70 0d 10 7c 16 63 | 6d 64 24 3d 22 4f 62 65 |oop..|.c|md$="Obe|
|000026b0| 79 20 22 2b 66 69 6c 65 | 24 0d 10 86 10 e3 20 6c |y "+file|$..... l|
|000026c0| 6f 6f 70 3d 30 20 b8 20 | 38 0d 10 90 2e 20 20 20 |oop=0 . |8.... |
|000026d0| e7 20 61 72 67 24 28 6c | 6f 6f 70 29 3c 3e 22 22 |. arg$(l|oop)<>""|
|000026e0| 20 8c 20 63 6d 64 24 2b | 3d 22 20 22 2b 61 72 67 | . cmd$+|=" "+arg|
|000026f0| 24 28 6c 6f 6f 70 29 0d | 10 9a 05 ed 0d 10 a4 0b |$(loop).|........|
|00002700| ff 28 63 6d 64 24 29 0d | 10 ae 05 e0 0d 10 b8 05 |.(cmd$).|........|
|00002710| e1 0d ff | |... | |
+--------+-------------------------+-------------------------+--------+--------+
