home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-01-19 | 6.7 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
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 1a f4 20 3d 3d | 3e 20 21 53 63 72 61 70 |..... ==|> !Scrap|
|00000010| 2e 21 52 75 6e 69 6d 61 | 67 65 0d 00 14 05 f4 0d |.!Runima|ge......|
|00000020| 00 1e 2d f4 20 56 65 72 | 73 69 6f 6e 20 31 2e 38 |..-. Ver|sion 1.8|
|00000030| 30 20 20 33 30 2d 53 65 | 70 2d 39 33 20 20 42 72 |0 30-Se|p-93 Br|
|00000040| 75 63 65 20 43 6f 63 6b | 62 75 72 6e 0d 00 28 58 |uce Cock|burn..(X|
|00000050| f4 20 56 65 72 73 69 6f | 6e 20 31 2e 38 31 20 20 |. Versio|n 1.81 |
|00000060| 30 38 2d 4f 63 74 2d 39 | 33 20 20 42 72 75 63 65 |08-Oct-9|3 Bruce|
|00000070| 20 43 6f 63 6b 62 75 72 | 6e 2c 20 43 68 61 6e 67 | Cockbur|n, Chang|
|00000080| 65 64 20 53 57 49 20 63 | 61 6c 6c 73 20 74 6f 20 |ed SWI c|alls to |
|00000090| 6e 6f 74 20 6c 6f 6f 6b | 20 75 70 20 74 68 65 20 |not look| up the |
|000000a0| 6e 61 6d 65 0d 00 32 4b | f4 20 56 65 72 73 69 6f |name..2K|. Versio|
|000000b0| 6e 20 31 2e 38 32 20 20 | 32 38 2d 4f 63 74 2d 39 |n 1.82 |28-Oct-9|
|000000c0| 33 20 20 4a 6f 6e 61 74 | 68 61 6e 20 52 6f 61 63 |3 Jonat|han Roac|
|000000d0| 68 2c 20 4d 6f 76 65 64 | 20 73 63 72 61 70 20 64 |h, Moved| scrap d|
|000000e0| 69 72 65 63 74 6f 72 69 | 65 73 20 69 6e 74 6f 0d |irectori|es into.|
|000000f0| 00 3c 4e f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |.<N. | |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 63 | | Sc|
|00000110| 72 61 70 44 69 72 73 2e | 20 54 68 69 73 20 69 73 |rapDirs.| This is|
|00000120| 20 74 6f 20 6d 61 6b 65 | 20 46 53 4c 6f 63 6b 27 | to make| FSLock'|
|00000130| 73 20 6a 6f 62 20 64 6f | 61 62 6c 65 2e 0d 00 46 |s job do|able...F|
|00000140| 57 f4 20 56 65 72 73 69 | 6f 6e 20 31 2e 38 33 20 |W. Versi|on 1.83 |
|00000150| 20 31 39 2d 4a 61 6e 2d | 39 34 20 20 42 72 75 63 | 19-Jan-|94 Bruc|
|00000160| 65 20 43 6f 63 6b 62 75 | 72 6e 2c 20 46 69 78 65 |e Cockbu|rn, Fixe|
|00000170| 64 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 73 |d error |messages|
|00000180| 20 74 6f 20 75 73 65 20 | 2b 20 69 6e 73 74 65 61 | to use |+ instea|
|00000190| 64 20 6f 66 0d 00 50 4a | f4 20 20 20 20 20 20 20 |d of..PJ|. |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001b0| 20 20 20 3b 20 66 6f 72 | 20 73 74 72 69 6e 67 20 | ; for| string |
|000001c0| 63 6f 6e 63 61 74 65 6e | 61 74 69 6f 6e 2e 20 20 |concaten|ation. |
|000001d0| 42 75 67 20 4d 45 44 2d | 30 32 33 31 38 2e 0d 00 |Bug MED-|02318...|
|000001e0| 5a 05 f4 0d 00 64 05 3a | 0d 00 6e 17 44 65 66 61 |Z....d.:|..n.Defa|
|000001f0| 75 6c 74 24 3d 22 53 63 | 72 61 70 44 69 72 22 0d |ult$="Sc|rapDir".|
|00000200| 00 78 11 4e 65 74 77 6f | 72 6b 24 3d 22 49 44 22 |.x.Netwo|rk$="ID"|
|00000210| 0d 00 82 1e 52 65 73 75 | 6c 74 44 69 72 24 3d 22 |....Resu|ltDir$="|
|00000220| 57 69 6d 70 24 53 63 72 | 61 70 44 69 72 22 0d 00 |Wimp$Scr|apDir"..|
|00000230| 8c 1c 52 65 73 75 6c 74 | 46 69 6c 65 24 3d 22 57 |..Result|File$="W|
|00000240| 69 6d 70 24 53 63 72 61 | 70 22 0d 00 96 05 3a 0d |imp$Scra|p"....:.|
|00000250| 00 a0 13 4f 53 5f 46 69 | 6c 65 25 3d 26 30 30 30 |...OS_Fi|le%=&000|
|00000260| 30 38 0d 00 aa 15 4f 53 | 5f 47 65 74 45 6e 76 25 |08....OS|_GetEnv%|
|00000270| 3d 26 30 30 30 31 30 0d | 00 b4 19 4f 53 5f 52 65 |=&00010.|...OS_Re|
|00000280| 61 64 56 61 72 56 61 6c | 25 3d 26 30 30 30 32 33 |adVarVal|%=&00023|
|00000290| 0d 00 be 18 4f 53 5f 53 | 65 74 56 61 72 56 61 6c |....OS_S|etVarVal|
|000002a0| 25 3d 26 30 30 30 32 34 | 0d 00 c8 16 4f 53 5f 47 |%=&00024|....OS_G|
|000002b0| 53 54 72 61 6e 73 25 3d | 26 30 30 30 32 37 0d 00 |STrans%=|&00027..|
|000002c0| d2 18 4f 53 5f 46 53 43 | 6f 6e 74 72 6f 6c 25 3d |..OS_FSC|ontrol%=|
|000002d0| 26 30 30 30 32 39 0d 00 | dc 20 4f 53 5f 52 65 61 |&00029..|. OS_Rea|
|000002e0| 64 4d 6f 6e 6f 74 6f 6e | 69 63 54 69 6d 65 25 3d |dMonoton|icTime%=|
|000002f0| 26 30 30 30 34 32 0d 00 | e6 14 58 4f 53 5f 46 69 |&00042..|..XOS_Fi|
|00000300| 6c 65 25 3d 26 32 30 30 | 30 38 0d 00 f0 1a 58 4f |le%=&200|08....XO|
|00000310| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 25 3d 26 32 |S_ReadVa|rVal%=&2|
|00000320| 30 30 32 33 0d 00 fa 2a | 58 45 63 6f 6e 65 74 5f |0023...*|XEconet_|
|00000330| 52 65 61 64 4c 6f 63 61 | 6c 53 74 61 74 69 6f 6e |ReadLoca|lStation|
|00000340| 41 6e 64 4e 65 74 25 3d | 26 36 30 30 30 41 0d 01 |AndNet%=|&6000A..|
|00000350| 04 05 3a 0d 01 0e 13 56 | 25 3d a3 3a 20 f4 20 56 |..:....V|%=.: . V|
|00000360| 65 72 62 6f 73 65 0d 01 | 18 05 3a 0d 01 22 13 42 |erbose..|..:..".B|
|00000370| 75 66 66 65 72 53 69 7a | 65 25 3d 32 30 30 0d 01 |ufferSiz|e%=200..|
|00000380| 2c 23 de 20 41 72 67 73 | 24 28 39 29 2c 20 42 75 |,#. Args|$(9), Bu|
|00000390| 66 66 65 72 25 20 42 75 | 66 66 65 72 53 69 7a 65 |ffer% Bu|fferSize|
|000003a0| 25 0d 01 36 16 45 6e 76 | 24 3d a4 53 68 65 6c 6c |%..6.Env|$=.Shell|
|000003b0| 5f 47 65 74 45 6e 76 0d | 01 40 04 0d 01 4a 2c 4e |_GetEnv.|.@...J,N|
|000003c0| 75 6d 62 65 72 4f 66 41 | 72 67 73 25 3d a4 53 68 |umberOfA|rgs%=.Sh|
|000003d0| 65 6c 6c 5f 41 72 72 61 | 79 28 41 72 67 73 24 28 |ell_Arra|y(Args$(|
|000003e0| 29 2c 45 6e 76 24 29 0d | 01 54 16 c8 8e 20 4e 75 |),Env$).|.T... Nu|
|000003f0| 6d 62 65 72 4f 66 41 72 | 67 73 25 20 ca 0d 01 5e |mberOfAr|gs% ...^|
|00000400| 0a 20 20 c9 20 31 3a 0d | 01 68 2e 20 20 20 20 e7 |. . 1:.|.h. .|
|00000410| 20 a4 53 68 65 6c 6c 5f | 53 74 72 69 6e 67 5f 55 | .Shell_|String_U|
|00000420| 43 28 41 72 67 73 24 28 | 31 29 29 3d 22 2d 48 45 |C(Args$(|1))="-HE|
|00000430| 4c 50 22 20 8c 0d 01 72 | 13 20 20 20 20 20 20 f2 |LP" ...r|. .|
|00000440| 47 69 76 65 48 65 6c 70 | 0d 01 7c 09 20 20 20 20 |GiveHelp|..|. |
|00000450| cc 0d 01 86 18 20 20 20 | 20 20 20 f2 52 75 6e 28 |..... | .Run(|
|00000460| 41 72 67 73 24 28 31 29 | 29 0d 01 90 09 20 20 20 |Args$(1)|).... |
|00000470| 20 cd 0d 01 9a 0a 20 20 | c9 20 32 3a 0d 01 a4 2e | ..... |. 2:....|
|00000480| 20 20 20 20 e7 20 a4 53 | 68 65 6c 6c 5f 53 74 72 | . .S|hell_Str|
|00000490| 69 6e 67 5f 55 43 28 41 | 72 67 73 24 28 32 29 29 |ing_UC(A|rgs$(2))|
|000004a0| 3d 22 2d 42 4f 4f 54 22 | 20 8c 0d 01 ae 19 20 20 |="-BOOT"| ..... |
|000004b0| 20 20 20 20 f2 42 6f 6f | 74 28 41 72 67 73 24 28 | .Boo|t(Args$(|
|000004c0| 31 29 29 0d 01 b8 09 20 | 20 20 20 cc 0d 01 c2 13 |1)).... | .....|
|000004d0| 20 20 20 20 20 20 f2 47 | 69 76 65 48 65 6c 70 0d | .G|iveHelp.|
|000004e0| 01 cc 09 20 20 20 20 cd | 0d 01 d6 12 20 20 7f 3a |... .|.... .:|
|000004f0| 20 f2 47 69 76 65 48 65 | 6c 70 0d 01 e0 05 cb 0d | .GiveHe|lp......|
|00000500| 01 ea 66 e7 20 56 25 20 | 8c 20 f1 20 22 54 68 65 |..f. V% |. . "The|
|00000510| 20 73 63 72 61 70 20 64 | 69 72 65 63 74 6f 72 79 | scrap d|irectory|
|00000520| 20 3c 22 2b 52 65 73 75 | 6c 74 44 69 72 24 2b 22 | <"+Resu|ltDir$+"|
|00000530| 3e 20 68 61 73 20 62 65 | 65 6e 20 73 65 74 20 74 |> has be|en set t|
|00000540| 6f 20 22 22 22 2b a4 52 | 65 61 64 56 61 72 69 61 |o """+.R|eadVaria|
|00000550| 62 6c 65 28 52 65 73 75 | 6c 74 44 69 72 24 29 2b |ble(Resu|ltDir$)+|
|00000560| 22 22 22 2e 22 0d 01 f4 | 05 e0 0d 01 fe 05 3a 0d |"""."...|......:.|
|00000570| 02 08 0f dd 20 f2 47 69 | 76 65 48 65 6c 70 0d 02 |.... .Gi|veHelp..|
|00000580| 12 26 f1 20 22 53 79 6e | 74 61 78 20 69 73 3a 20 |.&. "Syn|tax is: |
|00000590| 3c 44 69 72 65 63 74 6f | 72 79 3e 20 5b 2d 62 6f |<Directo|ry> [-bo|
|000005a0| 6f 74 5d 22 0d 02 1c 05 | e1 0d 02 26 05 3a 0d 02 |ot]"....|...&.:..|
|000005b0| 30 10 dd 20 f2 52 75 6e | 28 44 69 72 24 29 0d 02 |0.. .Run|(Dir$)..|
|000005c0| 3a 21 e7 20 56 25 20 8c | 20 f1 20 22 53 63 72 61 |:!. V% .| . "Scra|
|000005d0| 70 20 68 61 73 20 62 65 | 65 6e 20 72 75 6e 22 0d |p has be|en run".|
|000005e0| 02 44 31 e7 20 56 25 20 | 8c 20 f1 20 22 49 6e 76 |.D1. V% |. . "Inv|
|000005f0| 6f 63 61 74 69 6f 6e 20 | 73 74 72 69 6e 67 20 69 |ocation |string i|
|00000600| 73 20 22 22 22 2b 44 69 | 72 24 2b 22 22 22 2e 22 |s """+Di|r$+"""."|
|00000610| 0d 02 4e 27 44 69 72 24 | 3d a4 47 53 54 72 61 6e |..N'Dir$|=.GSTran|
|00000620| 73 41 6e 64 43 61 6e 6e | 6f 6e 69 63 61 6c 69 73 |sAndCann|onicalis|
|00000630| 65 28 44 69 72 24 29 0d | 02 58 30 e7 20 56 25 20 |e(Dir$).|.X0. V% |
|00000640| 8c 20 f1 20 22 49 6e 76 | 6f 63 61 74 69 6f 6e 20 |. . "Inv|ocation |
|00000650| 76 61 6c 75 65 20 69 73 | 20 22 22 22 2b 44 69 72 |value is| """+Dir|
|00000660| 24 2b 22 22 22 2e 22 0d | 02 62 2a 43 72 65 61 74 |$+""".".|.b*Creat|
|00000670| 65 46 61 69 6c 75 72 65 | 24 3d a4 43 72 65 61 74 |eFailure|$=.Creat|
|00000680| 65 50 65 72 6d 69 73 73 | 69 6f 6e 28 44 69 72 24 |ePermiss|ion(Dir$|
|00000690| 29 0d 02 6c 35 e7 20 56 | 25 20 8c 20 f1 20 22 43 |)..l5. V|% . . "C|
|000006a0| 72 65 61 74 65 46 61 69 | 6c 75 72 65 24 3d 22 22 |reateFai|lure$=""|
|000006b0| 22 2b 43 72 65 61 74 65 | 46 61 69 6c 75 72 65 24 |"+Create|Failure$|
|000006c0| 2b 22 22 22 2e 22 0d 02 | 76 19 e7 20 43 72 65 61 |+"""."..|v.. Crea|
|000006d0| 74 65 46 61 69 6c 75 72 | 65 24 3d 22 22 20 8c 0d |teFailur|e$="" ..|
|000006e0| 02 80 32 20 20 e7 20 56 | 25 20 8c 20 f1 20 22 49 |..2 . V|% . . "I|
|000006f0| 6e 76 6f 63 61 74 69 6f | 6e 20 76 61 6c 75 65 20 |nvocatio|n value |
|00000700| 69 73 20 22 22 22 2b 44 | 69 72 24 2b 22 22 22 2e |is """+D|ir$+""".|
|00000710| 22 0d 02 8a 16 20 20 53 | 63 72 61 70 24 3d a4 45 |".... S|crap$=.E|
|00000720| 76 61 6c 75 61 74 65 0d | 02 94 32 20 20 e7 20 56 |valuate.|..2 . V|
|00000730| 25 20 8c 20 f1 20 22 49 | 6e 76 6f 63 61 74 69 6f |% . . "I|nvocatio|
|00000740| 6e 20 76 61 6c 75 65 20 | 69 73 20 22 22 22 2b 44 |n value |is """+D|
|00000750| 69 72 24 2b 22 22 22 2e | 22 0d 02 9e 33 20 20 e7 |ir$+""".|"...3 .|
|00000760| 20 56 25 20 8c 20 f1 20 | 22 53 63 72 61 70 20 65 | V% . . |"Scrap e|
|00000770| 76 61 6c 75 61 74 65 73 | 20 74 6f 20 22 22 22 2b |valuates| to """+|
|00000780| 53 63 72 61 70 24 2b 22 | 22 22 2e 22 0d 02 a8 2f |Scrap$+"|"".".../|
|00000790| 20 20 f2 53 65 74 56 61 | 72 69 61 62 6c 65 28 52 | .SetVa|riable(R|
|000007a0| 65 73 75 6c 74 44 69 72 | 24 2c 20 44 69 72 24 2b |esultDir|$, Dir$+|
|000007b0| 22 2e 22 2b 53 63 72 61 | 70 24 29 0d 02 b2 3d 20 |"."+Scra|p$)...= |
|000007c0| 20 f2 53 65 74 56 61 72 | 69 61 62 6c 65 28 52 65 | .SetVar|iable(Re|
|000007d0| 73 75 6c 74 46 69 6c 65 | 24 2c 20 44 69 72 24 2b |sultFile|$, Dir$+|
|000007e0| 22 2e 22 2b 53 63 72 61 | 70 24 2b 22 2e 53 63 72 |"."+Scra|p$+".Scr|
|000007f0| 61 70 46 69 6c 65 22 29 | 0d 02 bc 27 20 20 ff 28 |apFile")|...' .(|
|00000800| 20 22 43 44 69 72 20 22 | 2b 44 69 72 24 2b 22 2e | "CDir "|+Dir$+".|
|00000810| 22 2b 53 63 72 61 70 24 | 2b 22 20 31 22 20 29 0d |"+Scrap$|+" 1" ).|
|00000820| 02 c6 05 cc 0d 02 d0 60 | 20 20 85 20 a2 20 36 2c |.......`| . . 6,|
|00000830| 20 22 55 6e 61 62 6c 65 | 20 74 6f 20 63 72 65 61 | "Unable| to crea|
|00000840| 74 65 20 66 69 6c 65 73 | 20 69 6e 20 22 22 22 2b |te files| in """+|
|00000850| 44 69 72 24 2b 22 22 22 | 2c 20 65 72 72 6f 72 20 |Dir$+"""|, error |
|00000860| 72 65 74 75 72 6e 65 64 | 20 69 73 3a 20 22 22 22 |returned| is: """|
|00000870| 2b 43 72 65 61 74 65 46 | 61 69 6c 75 72 65 24 2b |+CreateF|ailure$+|
|00000880| 22 22 22 22 0d 02 da 05 | cd 0d 02 e4 05 e1 0d 02 |""""....|........|
|00000890| ee 05 3a 0d 02 f8 11 dd | 20 f2 42 6f 6f 74 28 44 |..:.....| .Boot(D|
|000008a0| 69 72 24 29 0d 03 02 0e | ea 20 43 75 72 72 65 6e |ir$)....|. Curren|
|000008b0| 74 24 0d 03 0c 24 e7 20 | 56 25 20 8c 20 f1 20 22 |t$...$. |V% . . "|
|000008c0| 53 63 72 61 70 20 68 61 | 73 20 62 65 65 6e 20 62 |Scrap ha|s been b|
|000008d0| 6f 6f 74 65 64 22 0d 03 | 16 31 e7 20 56 25 20 8c |ooted"..|.1. V% .|
|000008e0| 20 f1 20 22 49 6e 76 6f | 63 61 74 69 6f 6e 20 73 | . "Invo|cation s|
|000008f0| 74 72 69 6e 67 20 69 73 | 20 22 22 22 2b 44 69 72 |tring is| """+Dir|
|00000900| 24 2b 22 22 22 2e 22 0d | 03 20 27 44 69 72 24 3d |$+""".".|. 'Dir$=|
|00000910| a4 47 53 54 72 61 6e 73 | 41 6e 64 43 61 6e 6e 6f |.GSTrans|AndCanno|
|00000920| 6e 69 63 61 6c 69 73 65 | 28 44 69 72 24 29 0d 03 |nicalise|(Dir$)..|
|00000930| 2a 30 e7 20 56 25 20 8c | 20 f1 20 22 49 6e 76 6f |*0. V% .| . "Invo|
|00000940| 63 61 74 69 6f 6e 20 76 | 61 6c 75 65 20 69 73 20 |cation v|alue is |
|00000950| 22 22 22 2b 44 69 72 24 | 2b 22 22 22 2e 22 0d 03 |"""+Dir$|+"""."..|
|00000960| 34 2a 43 72 65 61 74 65 | 46 61 69 6c 75 72 65 24 |4*Create|Failure$|
|00000970| 3d a4 43 72 65 61 74 65 | 50 65 72 6d 69 73 73 69 |=.Create|Permissi|
|00000980| 6f 6e 28 44 69 72 24 29 | 0d 03 3e 35 e7 20 56 25 |on(Dir$)|..>5. V%|
|00000990| 20 8c 20 f1 20 22 43 72 | 65 61 74 65 46 61 69 6c | . . "Cr|eateFail|
|000009a0| 75 72 65 24 3d 22 22 22 | 2b 43 72 65 61 74 65 46 |ure$="""|+CreateF|
|000009b0| 61 69 6c 75 72 65 24 2b | 22 22 22 2e 22 0d 03 48 |ailure$+|"""."..H|
|000009c0| 19 e7 20 43 72 65 61 74 | 65 46 61 69 6c 75 72 65 |.. Creat|eFailure|
|000009d0| 24 3d 22 22 20 8c 0d 03 | 52 16 20 20 53 63 72 61 |$="" ...|R. Scra|
|000009e0| 70 24 3d a4 45 76 61 6c | 75 61 74 65 0d 03 5c 33 |p$=.Eval|uate..\3|
|000009f0| 20 20 e7 20 56 25 20 8c | 20 f1 20 22 53 63 72 61 | . V% .| . "Scra|
|00000a00| 70 20 65 76 61 6c 75 61 | 74 65 73 20 74 6f 20 22 |p evalua|tes to "|
|00000a10| 22 22 2b 53 63 72 61 70 | 24 2b 22 22 22 2e 22 0d |""+Scrap|$+""".".|
|00000a20| 03 66 2a 20 20 43 75 72 | 72 65 6e 74 24 3d a4 52 |.f* Cur|rent$=.R|
|00000a30| 65 61 64 56 61 72 69 61 | 62 6c 65 28 20 52 65 73 |eadVaria|ble( Res|
|00000a40| 75 6c 74 44 69 72 24 20 | 29 0d 03 70 38 20 20 f4 |ultDir$ |)..p8 .|
|00000a50| 20 4e 6f 77 20 63 68 65 | 63 6b 20 74 6f 20 73 65 | Now che|ck to se|
|00000a60| 65 20 69 66 20 57 69 6d | 70 24 53 63 72 61 70 44 |e if Wim|p$ScrapD|
|00000a70| 69 72 20 69 73 20 61 6c | 72 65 61 64 79 20 73 65 |ir is al|ready se|
|00000a80| 74 0d 03 7a 73 20 20 e7 | 20 28 43 75 72 72 65 6e |t..zs .| (Curren|
|00000a90| 74 24 20 3d 20 22 22 29 | 20 84 20 28 43 75 72 72 |t$ = "")| . (Curr|
|00000aa0| 65 6e 74 24 20 3d 20 22 | 53 79 73 74 65 6d 3a 53 |ent$ = "|System:S|
|00000ab0| 63 72 61 70 44 69 72 22 | 29 20 84 20 28 43 75 72 |crapDir"|) . (Cur|
|00000ac0| 72 65 6e 74 24 20 3d 20 | a4 52 65 61 64 56 61 72 |rent$ = |.ReadVar|
|00000ad0| 69 61 62 6c 65 28 20 22 | 53 79 73 74 65 6d 24 44 |iable( "|System$D|
|00000ae0| 69 72 22 20 29 2b 22 2e | 53 63 72 61 70 44 69 72 |ir" )+".|ScrapDir|
|00000af0| 22 29 20 8c 0d 03 84 31 | 20 20 20 20 f2 53 65 74 |") ....1| .Set|
|00000b00| 56 61 72 69 61 62 6c 65 | 28 52 65 73 75 6c 74 44 |Variable|(ResultD|
|00000b10| 69 72 24 2c 20 44 69 72 | 24 2b 22 2e 22 2b 53 63 |ir$, Dir|$+"."+Sc|
|00000b20| 72 61 70 24 29 0d 03 8e | 3f 20 20 20 20 f2 53 65 |rap$)...|? .Se|
|00000b30| 74 56 61 72 69 61 62 6c | 65 28 52 65 73 75 6c 74 |tVariabl|e(Result|
|00000b40| 46 69 6c 65 24 2c 20 44 | 69 72 24 2b 22 2e 22 2b |File$, D|ir$+"."+|
|00000b50| 53 63 72 61 70 24 2b 22 | 2e 53 63 72 61 70 46 69 |Scrap$+"|.ScrapFi|
|00000b60| 6c 65 22 29 0d 03 98 29 | 20 20 20 20 ff 28 20 22 |le")...)| .( "|
|00000b70| 43 44 69 72 20 22 2b 44 | 69 72 24 2b 22 2e 22 2b |CDir "+D|ir$+"."+|
|00000b80| 53 63 72 61 70 24 2b 22 | 20 31 22 20 29 0d 03 a2 |Scrap$+"| 1" )...|
|00000b90| 07 20 20 cd 0d 03 ac 05 | cc 0d 03 b6 12 20 20 f4 |. .....|..... .|
|00000ba0| 20 44 6f 20 6e 6f 74 68 | 69 6e 67 0d 03 c0 05 cd | Do noth|ing.....|
|00000bb0| 0d 03 ca 05 e1 0d 03 d4 | 05 3a 0d 03 de 2c f4 20 |........|.:...,. |
|00000bc0| 46 75 6e 63 74 69 6f 6e | 20 74 6f 20 67 65 74 20 |Function| to get |
|00000bd0| 74 68 65 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |the envi|ronment |
|00000be0| 73 74 72 69 6e 67 0d 03 | e8 13 dd 20 a4 53 68 65 |string..|... .She|
|00000bf0| 6c 6c 5f 47 65 74 45 6e | 76 0d 03 f2 08 ea 20 41 |ll_GetEn|v..... A|
|00000c00| 24 0d 03 fc 16 c8 99 20 | 4f 53 5f 47 65 74 45 6e |$...... |OS_GetEn|
|00000c10| 76 25 20 b8 20 41 24 0d | 04 06 25 c8 95 20 28 c0 |v% . A$.|..%.. (.|
|00000c20| 41 24 2c 31 29 20 3c 3e | 20 22 20 22 29 20 80 20 |A$,1) <>| " ") . |
|00000c30| 28 a9 28 41 24 29 20 3c | 3e 20 30 29 0d 04 10 0f |(.(A$) <|> 0)....|
|00000c40| 20 20 41 24 3d c1 41 24 | 2c 32 29 0d 04 1a 05 ce | A$=.A$|,2).....|
|00000c50| 0d 04 24 13 c8 95 20 c0 | 41 24 2c 31 29 20 3d 20 |..$... .|A$,1) = |
|00000c60| 22 20 22 0d 04 2e 0f 20 | 20 41 24 3d c1 41 24 2c |" ".... | A$=.A$,|
|00000c70| 32 29 0d 04 38 05 ce 0d | 04 42 11 c8 95 20 c2 41 |2)..8...|.B... .A|
|00000c80| 24 2c 31 29 3d 22 20 22 | 0d 04 4c 0d 20 20 41 24 |$,1)=" "|..L. A$|
|00000c90| 3d c0 41 24 29 0d 04 56 | 05 ce 0d 04 60 28 e7 20 |=.A$)..V|....`(. |
|00000ca0| a4 53 68 65 6c 6c 5f 53 | 74 72 69 6e 67 5f 55 43 |.Shell_S|tring_UC|
|00000cb0| 28 c0 41 24 2c 35 29 29 | 3d 22 2d 51 55 49 54 22 |(.A$,5))|="-QUIT"|
|00000cc0| 20 8c 0d 04 6a 0f 20 20 | 41 24 3d c1 41 24 2c 37 | ...j. |A$=.A$,7|
|00000cd0| 29 0d 04 74 27 20 20 c8 | 95 20 28 c0 41 24 2c 31 |)..t' .|. (.A$,1|
|00000ce0| 29 20 3c 3e 20 22 20 22 | 29 20 80 20 28 a9 28 41 |) <> " "|) . (.(A|
|00000cf0| 24 29 20 3c 3e 20 30 29 | 0d 04 7e 11 20 20 20 20 |$) <> 0)|..~. |
|00000d00| 41 24 3d c1 41 24 2c 32 | 29 0d 04 88 07 20 20 ce |A$=.A$,2|).... .|
|00000d10| 0d 04 92 15 20 20 c8 95 | 20 c0 41 24 2c 31 29 20 |.... ..| .A$,1) |
|00000d20| 3d 20 22 20 22 0d 04 9c | 11 20 20 20 20 41 24 3d |= " "...|. A$=|
|00000d30| c1 41 24 2c 32 29 0d 04 | a6 07 20 20 ce 0d 04 b0 |.A$,2)..|.. ....|
|00000d40| 05 cd 0d 04 ba 07 3d 41 | 24 0d 04 c4 05 3a 0d 04 |......=A|$....:..|
|00000d50| ce 2e f4 20 46 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |... Func|tion to |
|00000d60| 63 6f 6e 76 65 72 74 20 | 73 74 72 69 6e 67 20 74 |convert |string t|
|00000d70| 6f 20 75 70 70 65 72 20 | 63 61 73 65 0d 04 d8 1a |o upper |case....|
|00000d80| dd 20 a4 53 68 65 6c 6c | 5f 53 74 72 69 6e 67 5f |. .Shell|_String_|
|00000d90| 55 43 28 41 24 29 0d 04 | e2 08 ea 20 5a 25 0d 04 |UC(A$)..|... Z%..|
|00000da0| ec 12 e3 20 5a 25 3d 31 | 20 b8 20 a9 28 41 24 29 |... Z%=1| . .(A$)|
|00000db0| 0d 04 f6 39 20 20 e7 20 | 28 97 28 c1 41 24 2c 5a |...9 . |(.(.A$,Z|
|00000dc0| 25 2c 31 29 29 20 3e 3d | 20 97 22 61 22 29 20 80 |%,1)) >=| ."a") .|
|00000dd0| 20 28 97 28 c1 41 24 2c | 5a 25 2c 31 29 29 20 3c | (.(.A$,|Z%,1)) <|
|00000de0| 3d 20 97 22 7a 22 29 20 | 8c 0d 05 00 24 20 20 20 |= ."z") |....$ |
|00000df0| 20 c1 41 24 2c 5a 25 2c | 31 29 3d bd 28 97 28 c1 | .A$,Z%,|1)=.(.(.|
|00000e00| 41 24 2c 5a 25 2c 31 29 | 29 2d 33 32 29 0d 05 0a |A$,Z%,1)|)-32)...|
|00000e10| 07 20 20 cd 0d 05 14 09 | ed 3a 3d 41 24 0d 05 1e |. .....|.:=A$...|
|00000e20| 05 3a 0d 05 28 42 f4 20 | 46 75 6e 63 74 69 6f 6e |.:..(B. |Function|
|00000e30| 20 74 6f 20 73 70 6c 69 | 74 20 73 74 72 69 6e 67 | to spli|t string|
|00000e40| 20 74 6f 20 61 72 72 61 | 79 20 6f 66 20 73 74 72 | to arra|y of str|
|00000e50| 69 6e 67 73 20 61 6e 64 | 20 67 69 76 65 20 6e 75 |ings and| give nu|
|00000e60| 6d 62 65 72 0d 05 32 1b | dd 20 a4 53 68 65 6c 6c |mber..2.|. .Shell|
|00000e70| 5f 41 72 72 61 79 28 41 | 24 28 29 2c 41 24 29 0d |_Array(A|$(),A$).|
|00000e80| 05 3c 3f e7 20 de 28 41 | 24 28 29 29 3c 3e 31 20 |.<?. .(A|$())<>1 |
|00000e90| 85 20 a2 20 37 2c 20 22 | 57 72 6f 6e 67 20 73 69 |. . 7, "|Wrong si|
|00000ea0| 7a 65 20 61 72 72 61 79 | 20 66 6f 72 20 53 68 65 |ze array| for She|
|00000eb0| 6c 6c 5f 41 72 72 61 79 | 20 63 61 6c 6c 22 0d 05 |ll_Array| call"..|
|00000ec0| 46 0b ea 20 41 25 2c 42 | 25 0d 05 50 08 41 25 3d |F.. A%,B|%..P.A%=|
|00000ed0| 30 0d 05 5a 0f 42 25 3d | a7 41 24 2c 22 20 22 29 |0..Z.B%=|.A$," ")|
|00000ee0| 0d 05 64 0c c8 95 20 42 | 25 3c 3e 30 0d 05 6e 0b |..d... B|%<>0..n.|
|00000ef0| 20 20 41 25 2b 3d 31 0d | 05 78 16 20 20 41 24 28 | A%+=1.|.x. A$(|
|00000f00| 41 25 29 3d c0 41 24 2c | 42 25 2d 31 29 0d 05 82 |A%)=.A$,|B%-1)...|
|00000f10| 12 20 20 41 24 3d c1 41 | 24 2c 42 25 2b 31 29 0d |. A$=.A|$,B%+1).|
|00000f20| 05 8c 15 20 20 c8 95 20 | c0 41 24 2c 31 29 20 3d |... .. |.A$,1) =|
|00000f30| 20 22 20 22 0d 05 96 11 | 20 20 20 20 41 24 3d c1 | " "....| A$=.|
|00000f40| 41 24 2c 32 29 0d 05 a0 | 07 20 20 ce 0d 05 aa 11 |A$,2)...|. .....|
|00000f50| 20 20 42 25 3d a7 41 24 | 2c 22 20 22 29 0d 05 b4 | B%=.A$|," ")...|
|00000f60| 05 ce 0d 05 be 21 e7 20 | 41 24 20 3c 3e 20 22 22 |.....!. |A$ <> ""|
|00000f70| 20 8c 20 41 25 2b 3d 31 | 3a 20 41 24 28 41 25 29 | . A%+=1|: A$(A%)|
|00000f80| 3d 41 24 0d 05 c8 07 3d | 41 25 0d 05 d2 05 3a 0d |=A$....=|A%....:.|
|00000f90| 05 dc 24 dd 20 a4 47 53 | 54 72 61 6e 73 41 6e 64 |..$. .GS|TransAnd|
|00000fa0| 43 61 6e 6e 6f 6e 69 63 | 61 6c 69 73 65 28 44 69 |Cannonic|alise(Di|
|00000fb0| 72 24 29 0d 05 e6 0b ea | 20 53 69 7a 65 25 0d 05 |r$).....| Size%..|
|00000fc0| f0 41 c8 99 20 4f 53 5f | 47 53 54 72 61 6e 73 25 |.A.. OS_|GSTrans%|
|00000fd0| 2c 20 44 69 72 24 2c 20 | 42 75 66 66 65 72 25 2c |, Dir$, |Buffer%,|
|00000fe0| 20 42 75 66 66 65 72 53 | 69 7a 65 25 20 b8 20 2c | BufferS|ize% . ,|
|00000ff0| 2c 20 53 69 7a 65 25 3b | 20 46 6c 61 67 73 25 0d |, Size%;| Flags%.|
|00001000| 05 fa 18 e7 20 28 46 6c | 61 67 73 25 20 80 20 32 |.... (Fl|ags% . 2|
|00001010| 29 20 3d 20 30 20 8c 0d | 06 04 16 20 20 42 75 66 |) = 0 ..|... Buf|
|00001020| 66 65 72 25 3f 53 69 7a | 65 25 3d 31 33 0d 06 0e |fer%?Siz|e%=13...|
|00001030| 13 20 20 44 69 72 24 3d | 24 42 75 66 66 65 72 25 |. Dir$=|$Buffer%|
|00001040| 0d 06 18 05 cc 0d 06 22 | 39 20 20 85 20 a2 20 34 |......."|9 . . 4|
|00001050| 2c 20 22 42 75 66 66 65 | 72 20 6f 76 65 72 66 6c |, "Buffe|r overfl|
|00001060| 6f 77 20 69 6e 20 47 53 | 54 72 61 6e 73 20 6f 66 |ow in GS|Trans of|
|00001070| 20 22 22 22 2b 44 69 72 | 24 2b 22 22 22 22 0d 06 | """+Dir|$+""""..|
|00001080| 2c 05 cd 0d 06 36 48 c8 | 99 20 4f 53 5f 46 53 43 |,....6H.|. OS_FSC|
|00001090| 6f 6e 74 72 6f 6c 25 2c | 20 33 37 2c 20 44 69 72 |ontrol%,| 37, Dir|
|000010a0| 24 2c 20 42 75 66 66 65 | 72 25 2c 20 30 2c 20 30 |$, Buffe|r%, 0, 0|
|000010b0| 2c 20 42 75 66 66 65 72 | 53 69 7a 65 25 20 b8 20 |, Buffer|Size% . |
|000010c0| 2c 2c 2c 2c 2c 20 53 69 | 7a 65 25 0d 06 40 12 e7 |,,,,, Si|ze%..@..|
|000010d0| 20 53 69 7a 65 25 20 3e | 3d 20 31 20 8c 0d 06 4a | Size% >|= 1 ...J|
|000010e0| 1d 20 20 53 69 7a 65 25 | 3d 42 75 66 66 65 72 53 |. Size%|=BufferS|
|000010f0| 69 7a 65 25 2d 53 69 7a | 65 25 0d 06 54 16 20 20 |ize%-Siz|e%..T. |
|00001100| 42 75 66 66 65 72 25 3f | 53 69 7a 65 25 3d 31 33 |Buffer%?|Size%=13|
|00001110| 0d 06 5e 13 20 20 44 69 | 72 24 3d 24 42 75 66 66 |..^. Di|r$=$Buff|
|00001120| 65 72 25 0d 06 68 05 cc | 0d 06 72 43 20 20 85 20 |er%..h..|..rC . |
|00001130| a2 20 35 2c 20 22 42 75 | 66 66 65 72 20 6f 76 65 |. 5, "Bu|ffer ove|
|00001140| 72 66 6c 6f 77 20 69 6e | 20 63 61 6e 6e 6f 6e 69 |rflow in| cannoni|
|00001150| 63 61 6c 69 73 61 74 69 | 6f 6e 20 6f 66 20 22 22 |calisati|on of ""|
|00001160| 22 2b 44 69 72 24 2b 22 | 22 22 22 0d 06 7c 05 cd |"+Dir$+"|"""..|..|
|00001170| 0d 06 86 51 f4 20 45 6e | 73 75 72 65 20 53 63 72 |...Q. En|sure Scr|
|00001180| 61 70 44 69 72 73 20 65 | 78 69 73 74 73 2c 20 62 |apDirs e|xists, b|
|00001190| 75 74 20 69 67 6e 6f 72 | 65 20 61 6e 79 20 65 72 |ut ignor|e any er|
|000011a0| 72 6f 72 20 61 73 20 46 | 53 4c 6f 63 6b 20 6d 61 |ror as F|SLock ma|
|000011b0| 79 20 68 61 76 65 20 69 | 6e 74 65 72 66 65 72 65 |y have i|nterfere|
|000011c0| 64 0d 06 90 1e c8 99 20 | 58 4f 53 5f 46 69 6c 65 |d...... |XOS_File|
|000011d0| 25 2c 20 38 2c 20 44 69 | 72 24 2c 2c 2c 20 30 0d |%, 8, Di|r$,,, 0.|
|000011e0| 06 9a 09 3d 44 69 72 24 | 0d 06 a4 05 3a 0d 06 ae |...=Dir$|....:...|
|000011f0| 1f dd 20 a4 43 72 65 61 | 74 65 50 65 72 6d 69 73 |.. .Crea|tePermis|
|00001200| 73 69 6f 6e 28 50 6c 61 | 63 65 24 29 0d 06 b8 3c |sion(Pla|ce$)...<|
|00001210| ea 20 52 65 73 75 6c 74 | 24 2c 20 54 79 70 65 25 |. Result|$, Type%|
|00001220| 2c 20 55 49 44 25 2c 20 | 55 49 44 24 2c 20 45 72 |, UID%, |UID$, Er|
|00001230| 72 6f 72 25 2c 20 46 6c | 61 67 73 25 3a 20 52 65 |ror%, Fl|ags%: Re|
|00001240| 73 75 6c 74 24 3d 22 22 | 0d 06 c2 22 c8 99 20 4f |sult$=""|...".. O|
|00001250| 53 5f 46 69 6c 65 25 2c | 20 35 2c 20 50 6c 61 63 |S_File%,| 5, Plac|
|00001260| 65 24 20 b8 20 54 79 70 | 65 25 0d 06 cc 1d e7 20 |e$ . Typ|e%..... |
|00001270| 56 25 20 8c 20 f1 20 22 | 54 79 70 65 20 69 73 20 |V% . . "|Type is |
|00001280| 22 2b 54 79 70 65 25 0d | 06 d6 17 e7 20 28 54 79 |"+Type%.|.... (Ty|
|00001290| 70 65 25 20 80 20 32 29 | 20 3d 20 32 20 8c 0d 06 |pe% . 2)| = 2 ...|
|000012a0| e0 07 20 20 f5 0d 06 ea | 27 20 20 20 20 c8 99 20 |.. ....|' .. |
|000012b0| 4f 53 5f 52 65 61 64 4d | 6f 6e 6f 74 6f 6e 69 63 |OS_ReadM|onotonic|
|000012c0| 54 69 6d 65 25 20 b8 20 | 55 49 44 25 0d 06 f4 20 |Time% . |UID%... |
|000012d0| 20 20 20 20 55 49 44 24 | 3d 50 6c 61 63 65 24 2b | UID$|=Place$+|
|000012e0| 22 2e 22 2b c3 7e 28 55 | 49 44 25 29 0d 06 fe 25 |"."+.~(U|ID%)...%|
|000012f0| 20 20 20 20 e7 20 56 25 | 20 8c 20 f1 20 22 55 49 | . V%| . . "UI|
|00001300| 44 24 3d 22 22 22 2b 55 | 49 44 24 2b 22 22 22 2e |D$="""+U|ID$+""".|
|00001310| 22 0d 07 08 24 20 20 20 | 20 c8 99 20 4f 53 5f 46 |"...$ | .. OS_F|
|00001320| 69 6c 65 25 2c 20 35 2c | 20 55 49 44 24 20 b8 20 |ile%, 5,| UID$ . |
|00001330| 54 79 70 65 25 0d 07 12 | 0f 20 20 fd 20 54 79 70 |Type%...|. . Typ|
|00001340| 65 25 3d 30 0d 07 1c 2e | 20 20 e7 20 56 25 20 8c |e%=0....| . V% .|
|00001350| 20 f1 20 22 55 49 44 20 | 73 65 6c 65 63 74 65 64 | . "UID |selected|
|00001360| 20 69 73 20 22 22 22 2b | 55 49 44 24 2b 22 22 22 | is """+|UID$+"""|
|00001370| 2e 22 0d 07 26 38 20 20 | c8 99 20 58 4f 53 5f 46 |."..&8 |.. XOS_F|
|00001380| 69 6c 65 25 2c 20 37 2c | 20 55 49 44 24 2c 20 30 |ile%, 7,| UID$, 0|
|00001390| 2c 20 30 2c 20 30 2c 20 | 31 20 b8 20 45 72 72 6f |, 0, 0, |1 . Erro|
|000013a0| 72 25 3b 20 46 6c 61 67 | 73 25 0d 07 30 26 20 20 |r%; Flag|s%..0& |
|000013b0| e7 20 56 25 20 8c 20 f1 | 20 22 43 72 65 61 74 65 |. V% . .| "Create|
|000013c0| 64 20 22 22 22 2b 55 49 | 44 24 2b 22 22 22 2e 22 |d """+UI|D$+"""."|
|000013d0| 0d 07 3a 1b 20 20 e7 20 | 28 46 6c 61 67 73 25 20 |..:. . |(Flags% |
|000013e0| 80 20 31 29 20 3c 3e 20 | 31 20 8c 0d 07 44 1c 20 |. 1) <> |1 ...D. |
|000013f0| 20 20 20 c8 99 20 4f 53 | 5f 46 69 6c 65 25 2c 20 | .. OS|_File%, |
|00001400| 36 2c 20 55 49 44 24 0d | 07 4e 07 20 20 cc 0d 07 |6, UID$.|.N. ...|
|00001410| 58 11 20 20 20 20 45 72 | 72 6f 72 25 2b 3d 34 0d |X. Er|ror%+=4.|
|00001420| 07 62 18 20 20 20 20 c8 | 95 20 45 72 72 6f 72 25 |.b. .|. Error%|
|00001430| 3f 30 20 3c 3e 20 30 0d | 07 6c 25 20 20 20 20 20 |?0 <> 0.|.l% |
|00001440| 20 52 65 73 75 6c 74 24 | 3d 52 65 73 75 6c 74 24 | Result$|=Result$|
|00001450| 2b bd 28 45 72 72 6f 72 | 25 3f 30 29 0d 07 76 13 |+.(Error|%?0)..v.|
|00001460| 20 20 20 20 20 20 45 72 | 72 6f 72 25 2b 3d 31 0d | Er|ror%+=1.|
|00001470| 07 80 09 20 20 20 20 ce | 0d 07 8a 07 20 20 cd 0d |... .|.... ..|
|00001480| 07 94 05 cc 0d 07 9e 3c | 20 20 52 65 73 75 6c 74 |.......<| Result|
|00001490| 24 3d 22 54 68 65 20 6f | 62 6a 65 63 74 20 22 22 |$="The o|bject ""|
|000014a0| 22 2b 50 6c 61 63 65 24 | 2b 22 22 22 20 69 73 20 |"+Place$|+""" is |
|000014b0| 6e 6f 74 20 61 20 64 69 | 72 65 63 74 6f 72 79 22 |not a di|rectory"|
|000014c0| 0d 07 a8 05 cd 0d 07 b2 | 0c 3d 52 65 73 75 6c 74 |........|.=Result|
|000014d0| 24 0d 07 bc 05 3a 0d 07 | c6 0f dd 20 a4 45 76 61 |$....:..|... .Eva|
|000014e0| 6c 75 61 74 65 0d 07 d0 | 41 ea 20 52 65 73 75 6c |luate...|A. Resul|
|000014f0| 74 24 2c 20 45 78 69 73 | 74 61 6e 63 65 25 2c 20 |t$, Exis|tance%, |
|00001500| 53 74 61 74 69 6f 6e 25 | 2c 20 4e 65 74 77 6f 72 |Station%|, Networ|
|00001510| 6b 25 2c 20 46 6c 61 67 | 73 25 3a 20 52 65 73 75 |k%, Flag|s%: Resu|
|00001520| 6c 74 24 3d 22 22 0d 07 | da 4b c8 99 20 58 4f 53 |lt$=""..|.K.. XOS|
|00001530| 5f 52 65 61 64 56 61 72 | 56 61 6c 25 2c 20 22 49 |_ReadVar|Val%, "I|
|00001540| 4e 65 74 24 4c 6f 63 61 | 6c 41 64 64 72 22 2c 20 |Net$Loca|lAddr", |
|00001550| 42 75 66 66 65 72 25 2c | 20 2d 31 2c 20 30 2c 20 |Buffer%,| -1, 0, |
|00001560| 30 20 b8 20 2c 2c 20 45 | 78 69 73 74 61 6e 63 65 |0 . ,, E|xistance|
|00001570| 25 0d 07 e4 23 e7 20 56 | 25 20 f1 20 22 45 78 69 |%...#. V|% . "Exi|
|00001580| 73 74 61 6e 63 65 25 3d | 22 2b 45 78 69 73 74 61 |stance%=|"+Exista|
|00001590| 6e 63 65 25 0d 07 ee 16 | e7 20 45 78 69 73 74 61 |nce%....|. Exista|
|000015a0| 6e 63 65 25 20 3c 20 30 | 20 8c 0d 07 f8 58 20 20 |nce% < 0| ....X |
|000015b0| c8 99 20 4f 53 5f 52 65 | 61 64 56 61 72 56 61 6c |.. OS_Re|adVarVal|
|000015c0| 25 2c 20 22 49 4e 65 74 | 24 4c 6f 63 61 6c 41 64 |%, "INet|$LocalAd|
|000015d0| 64 72 22 2c 20 42 75 66 | 66 65 72 25 2c 20 42 75 |dr", Buf|fer%, Bu|
|000015e0| 66 66 65 72 53 69 7a 65 | 25 2c 20 30 2c 20 30 20 |fferSize|%, 0, 0 |
|000015f0| b8 20 2c 2c 20 53 69 7a | 65 25 2c 2c 20 54 79 70 |. ,, Siz|e%,, Typ|
|00001600| 65 25 0d 08 02 10 20 20 | c8 8e 20 54 79 70 65 25 |e%.... |.. Type%|
|00001610| 20 ca 0d 08 0c 38 20 20 | 20 20 c9 20 30 3a 20 42 | ....8 | . 0: B|
|00001620| 75 66 66 65 72 25 3f 53 | 69 7a 65 25 3d 31 33 3a |uffer%?S|ize%=13:|
|00001630| 20 52 65 73 75 6c 74 24 | 3d 4e 65 74 77 6f 72 6b | Result$|=Network|
|00001640| 24 2b 24 42 75 66 66 65 | 72 25 0d 08 16 4a 20 20 |$+$Buffe|r%...J |
|00001650| 20 20 c9 20 31 3a 20 85 | 20 a2 20 31 2c 20 22 54 | . 1: .| . 1, "T|
|00001660| 68 65 20 76 61 72 69 61 | 62 6c 65 20 49 4e 65 74 |he varia|ble INet|
|00001670| 24 4c 6f 63 61 6c 41 64 | 64 72 20 69 73 20 61 20 |$LocalAd|dr is a |
|00001680| 6e 75 6d 62 65 72 20 6e | 6f 74 20 61 20 73 74 72 |number n|ot a str|
|00001690| 69 6e 67 22 0d 08 20 49 | 20 20 20 20 c9 20 32 3a |ing".. I| . 2:|
|000016a0| 20 85 20 a2 20 32 2c 20 | 22 54 68 65 20 76 61 72 | . . 2, |"The var|
|000016b0| 69 61 62 6c 65 20 49 4e | 65 74 24 4c 6f 63 61 6c |iable IN|et$Local|
|000016c0| 41 64 64 72 20 69 73 20 | 61 20 6d 61 63 72 6f 20 |Addr is |a macro |
|000016d0| 6e 6f 74 20 61 20 73 74 | 72 69 6e 67 22 0d 08 2a |not a st|ring"..*|
|000016e0| 43 20 20 20 20 7f 3a 20 | 85 20 a2 20 33 2c 20 22 |C .: |. . 3, "|
|000016f0| 54 68 65 20 76 61 72 69 | 61 62 6c 65 20 49 4e 65 |The vari|able INe|
|00001700| 74 24 4c 6f 63 61 6c 41 | 64 64 72 20 68 61 73 20 |t$LocalA|ddr has |
|00001710| 61 6e 20 75 6e 6b 6e 6f | 77 6e 20 74 79 70 65 22 |an unkno|wn type"|
|00001720| 0d 08 34 07 20 20 cb 0d | 08 3e 05 cc 0d 08 48 2b |..4. ..|.>....H+|
|00001730| 20 20 e7 20 56 25 20 f1 | 20 22 49 4e 65 74 24 4c | . V% .| "INet$L|
|00001740| 6f 63 61 6c 41 64 64 72 | 20 64 6f 65 73 6e 27 74 |ocalAddr| doesn't|
|00001750| 20 65 78 69 73 74 22 0d | 08 52 05 cd 0d 08 5c 14 | exist".|.R....\.|
|00001760| e7 20 52 65 73 75 6c 74 | 24 20 3d 20 22 22 20 8c |. Result|$ = "" .|
|00001770| 0d 08 66 45 20 20 c8 99 | 20 58 45 63 6f 6e 65 74 |..fE ..| XEconet|
|00001780| 5f 52 65 61 64 4c 6f 63 | 61 6c 53 74 61 74 69 6f |_ReadLoc|alStatio|
|00001790| 6e 41 6e 64 4e 65 74 25 | 20 b8 20 53 74 61 74 69 |nAndNet%| . Stati|
|000017a0| 6f 6e 25 2c 20 4e 65 74 | 77 6f 72 6b 25 3b 20 46 |on%, Net|work%; F|
|000017b0| 6c 61 67 73 25 0d 08 70 | 37 20 20 e7 20 56 25 20 |lags%..p|7 . V% |
|000017c0| f1 20 22 53 74 61 74 69 | 6f 6e 25 3d 22 2b 53 74 |. "Stati|on%="+St|
|000017d0| 61 74 69 6f 6e 25 2b 22 | 20 4e 65 74 77 6f 72 6b |ation%+"| Network|
|000017e0| 25 3d 22 2b 4e 65 74 77 | 6f 72 6b 25 0d 08 7a 1a |%="+Netw|ork%..z.|
|000017f0| 20 20 e7 20 28 46 6c 61 | 67 73 25 20 80 20 31 29 | . (Fla|gs% . 1)|
|00001800| 20 3d 20 30 20 8c 0d 08 | 84 46 20 20 20 20 52 65 | = 0 ...|.F Re|
|00001810| 73 75 6c 74 24 3d 4e 65 | 74 77 6f 72 6b 24 2b c2 |sult$=Ne|twork$+.|
|00001820| 22 30 30 22 2b c3 28 4e | 65 74 77 6f 72 6b 25 29 |"00"+.(N|etwork%)|
|00001830| 2c 33 29 2b 22 21 22 2b | c2 22 30 30 22 2b c3 28 |,3)+"!"+|."00"+.(|
|00001840| 53 74 61 74 69 6f 6e 25 | 29 2c 33 29 0d 08 8e 07 |Station%|),3)....|
|00001850| 20 20 cd 0d 08 98 05 cd | 0d 08 a2 14 e7 20 52 65 | ......|..... Re|
|00001860| 73 75 6c 74 24 20 3d 20 | 22 22 20 8c 0d 08 ac 16 |sult$ = |"" .....|
|00001870| 20 20 52 65 73 75 6c 74 | 24 3d 44 65 66 61 75 6c | Result|$=Defaul|
|00001880| 74 24 0d 08 b6 05 cd 0d | 08 c0 0c 3d 52 65 73 75 |t$......|...=Resu|
|00001890| 6c 74 24 0d 08 ca 05 3a | 0d 08 d4 27 dd 20 f2 53 |lt$....:|...'. .S|
|000018a0| 65 74 56 61 72 69 61 62 | 6c 65 28 20 56 61 72 69 |etVariab|le( Vari|
|000018b0| 61 62 6c 65 24 2c 20 56 | 61 6c 75 65 24 20 29 0d |able$, V|alue$ ).|
|000018c0| 08 de 39 e7 20 56 25 20 | 8c 20 f1 20 22 53 65 74 |..9. V% |. . "Set|
|000018d0| 74 69 6e 67 20 3c 22 2b | 56 61 72 69 61 62 6c 65 |ting <"+|Variable|
|000018e0| 24 2b 22 3e 20 74 6f 20 | 22 22 22 2b 56 61 6c 75 |$+"> to |"""+Valu|
|000018f0| 65 24 2b 22 22 22 2e 22 | 0d 08 e8 38 c8 99 20 4f |e$+"""."|...8.. O|
|00001900| 53 5f 53 65 74 56 61 72 | 56 61 6c 25 2c 20 56 61 |S_SetVar|Val%, Va|
|00001910| 72 69 61 62 6c 65 24 2c | 20 56 61 6c 75 65 24 2c |riable$,| Value$,|
|00001920| 20 a9 28 56 61 6c 75 65 | 24 29 2c 20 30 2c 20 34 | .(Value|$), 0, 4|
|00001930| 0d 08 f2 05 e1 0d 08 fc | 05 3a 0d 09 06 20 dd 20 |........|.:... . |
|00001940| a4 52 65 61 64 56 61 72 | 69 61 62 6c 65 28 20 56 |.ReadVar|iable( V|
|00001950| 61 72 69 61 62 6c 65 24 | 20 29 0d 09 10 25 ea 20 |ariable$| )...%. |
|00001960| 52 65 73 75 6c 74 24 2c | 20 45 78 69 73 74 61 6e |Result$,| Existan|
|00001970| 63 65 25 3a 20 52 65 73 | 75 6c 74 24 3d 22 22 0d |ce%: Res|ult$="".|
|00001980| 09 1a 44 c8 99 20 58 4f | 53 5f 52 65 61 64 56 61 |..D.. XO|S_ReadVa|
|00001990| 72 56 61 6c 25 2c 20 56 | 61 72 69 61 62 6c 65 24 |rVal%, V|ariable$|
|000019a0| 2c 20 42 75 66 66 65 72 | 25 2c 20 2d 31 2c 20 30 |, Buffer|%, -1, 0|
|000019b0| 2c 20 33 20 b8 20 2c 2c | 20 45 78 69 73 74 61 6e |, 3 . ,,| Existan|
|000019c0| 63 65 25 0d 09 24 16 e7 | 20 45 78 69 73 74 61 6e |ce%..$..| Existan|
|000019d0| 63 65 25 20 3c 20 30 20 | 8c 0d 09 2e 51 20 20 c8 |ce% < 0 |....Q .|
|000019e0| 99 20 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 25 |. OS_Rea|dVarVal%|
|000019f0| 2c 20 56 61 72 69 61 62 | 6c 65 24 2c 20 42 75 66 |, Variab|le$, Buf|
|00001a00| 66 65 72 25 2c 20 42 75 | 66 66 65 72 53 69 7a 65 |fer%, Bu|fferSize|
|00001a10| 25 2c 20 30 2c 20 33 20 | b8 20 2c 2c 20 53 69 7a |%, 0, 3 |. ,, Siz|
|00001a20| 65 25 2c 2c 20 54 79 70 | 65 25 0d 09 38 10 20 20 |e%,, Typ|e%..8. |
|00001a30| c8 8e 20 54 79 70 65 25 | 20 ca 0d 09 42 2f 20 20 |.. Type%| ...B/ |
|00001a40| 20 20 c9 20 30 3a 20 42 | 75 66 66 65 72 25 3f 53 | . 0: B|uffer%?S|
|00001a50| 69 7a 65 25 3d 31 33 3a | 20 52 65 73 75 6c 74 24 |ize%=13:| Result$|
|00001a60| 3d 24 42 75 66 66 65 72 | 25 0d 09 4c 45 20 20 20 |=$Buffer|%..LE |
|00001a70| 20 7f 3a 20 85 20 a2 20 | 33 2c 20 22 54 68 65 20 | .: . . |3, "The |
|00001a80| 76 61 72 69 61 62 6c 65 | 20 22 22 22 2b 56 61 72 |variable| """+Var|
|00001a90| 69 61 62 6c 65 2b 22 22 | 22 20 68 61 73 20 61 6e |iable+""|" has an|
|00001aa0| 20 75 6e 6b 6e 6f 77 6e | 20 74 79 70 65 22 0d 09 | unknown| type"..|
|00001ab0| 56 07 20 20 cb 0d 09 60 | 05 cd 0d 09 6a 0c 3d 52 |V. ...`|....j.=R|
|00001ac0| 65 73 75 6c 74 24 0d ff | |esult$..| |
+--------+-------------------------+-------------------------+--------+--------+
