/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / files / a / auto / Auto

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 20 | 41 75 74 6f 34 0d 00 14 |..... > |Auto4...|
|00000010| 4c f4 20 3e 20 41 75 74 | 6f 20 3c 64 69 72 65 63 |L. > Aut|o <direc|
|00000020| 74 6f 72 79 3e 20 3c 61 | 70 70 6c 20 6f 70 74 69 |tory> <a|ppl opti|
|00000030| 6f 6e 3e 20 3c 66 69 6c | 65 20 6f 70 74 69 6f 6e |on> <fil|e option|
|00000040| 3e 20 5b 3c 66 6c 61 67 | 73 3e 5d 20 5b 3c 74 65 |> [<flag|s>] [<te|
|00000050| 6d 70 20 66 69 6c 65 3e | 5d 0d 00 1e 40 f4 20 3e |mp file>|]...@. >|
|00000060| 20 3c 74 65 6d 70 20 66 | 69 6c 65 3e 20 6e 65 65 | <temp f|ile> nee|
|00000070| 64 20 6f 6e 6c 79 20 62 | 65 20 64 65 66 69 6e 65 |d only b|e define|
|00000080| 64 20 69 66 20 6e 6f 74 | 20 75 73 69 6e 67 20 74 |d if not| using t|
|00000090| 68 65 20 73 20 66 6c 61 | 67 0d 00 1f 37 f4 20 3e |he s fla|g...7. >|
|000000a0| 20 75 73 65 20 27 6e 6f | 6e 65 27 20 66 6f 72 20 | use 'no|ne' for |
|000000b0| 65 69 74 68 65 72 20 6f | 70 74 69 6f 6e 20 69 66 |either o|ption if|
|000000c0| 20 6e 6f 6e 65 20 69 73 | 20 64 65 73 69 72 65 64 | none is| desired|
|000000d0| 0d 00 20 4b f4 20 3e 20 | 66 6c 61 67 73 20 61 72 |.. K. > |flags ar|
|000000e0| 65 20 28 72 29 65 63 75 | 72 73 65 2c 20 28 77 29 |e (r)ecu|rse, (w)|
|000000f0| 69 70 65 20 6f 62 65 79 | 66 69 6c 65 2c 20 28 71 |ipe obey|file, (q|
|00000100| 29 75 69 65 74 2c 20 75 | 73 65 20 21 28 73 29 63 |)uiet, u|se !(s)c|
|00000110| 72 61 70 2c 20 28 65 29 | 63 68 6f 0d 00 28 1a f4 |rap, (e)|cho..(..|
|00000120| 20 3e 20 65 28 78 29 65 | 63 75 74 65 2c 20 28 64 | > e(x)e|cute, (d|
|00000130| 29 65 62 75 67 0d 00 29 | 40 f4 20 3e 20 66 69 6c |)ebug..)|@. > fil|
|00000140| 65 20 6f 70 74 69 6f 6e | 20 69 73 20 66 6f 72 20 |e option| is for |
|00000150| 74 68 6f 73 65 20 74 79 | 70 65 73 20 74 68 61 74 |those ty|pes that|
|00000160| 20 61 72 65 6e 27 74 20 | 73 70 65 63 69 61 6c 20 | aren't |special |
|00000170| 63 61 73 65 73 0d 00 32 | 22 f4 20 3e 20 53 70 65 |cases..2|". > Spe|
|00000180| 63 69 61 6c 20 63 61 73 | 65 73 20 61 72 65 3a 20 |cial cas|es are: |
|00000190| 53 70 72 69 74 65 73 0d | 00 3c 17 ee 20 85 20 f1 |Sprites.|.<.. . .|
|000001a0| 20 f6 24 3b 22 20 61 74 | 20 22 3b 9e 3a e0 0d 00 | .$;" at| ";.:...|
|000001b0| 46 19 c8 99 20 22 4f 53 | 5f 47 65 74 45 6e 76 22 |F... "OS|_GetEnv"|
|000001c0| 20 b8 20 65 6e 76 24 0d | 00 50 1c 65 6e 76 24 20 | . env$.|.P.env$ |
|000001d0| 3d 20 c1 65 6e 76 24 2c | a7 65 6e 76 24 2c bd 33 |= .env$,|.env$,.3|
|000001e0| 34 29 29 0d 00 5a 16 73 | 69 7a 65 25 20 3d 20 31 |4))..Z.s|ize% = 1|
|000001f0| 30 30 20 2a 20 31 30 32 | 34 0d 00 64 1f de 20 61 |00 * 102|4..d.. a|
|00000200| 72 67 76 24 28 31 30 30 | 29 2c 20 62 75 66 66 65 |rgv$(100|), buffe|
|00000210| 72 25 20 73 69 7a 65 25 | 0d 00 6e 23 6d 65 6d 6f |r% size%|..n#memo|
|00000220| 72 79 5f 6c 69 6d 69 74 | 25 20 3d 20 62 75 66 66 |ry_limit|% = buff|
|00000230| 65 72 25 20 2b 20 73 69 | 7a 65 25 0d 00 78 0b 61 |er% + si|ze%..x.a|
|00000240| 72 67 63 25 3d 30 0d 00 | 82 20 f2 67 65 74 61 72 |rgc%=0..|. .getar|
|00000250| 67 73 28 65 6e 76 24 2c | 61 72 67 63 25 2c 61 72 |gs(env$,|argc%,ar|
|00000260| 67 76 24 28 29 29 0d 00 | 8c 11 e7 20 61 72 67 63 |gv$())..|... argc|
|00000270| 25 20 3c 20 34 20 8c 0d | 00 96 2a 20 f1 20 22 57 |% < 4 ..|..* . "W|
|00000280| 72 6f 6e 67 20 6e 75 6d | 62 65 72 20 6f 66 20 61 |rong num|ber of a|
|00000290| 72 67 75 6d 65 6e 74 73 | 20 74 6f 20 41 75 74 6f |rguments| to Auto|
|000002a0| 22 0d 00 a0 05 cc 0d 00 | aa 0f 20 70 72 6f 63 65 |".......|.. proce|
|000002b0| 65 64 25 3d b9 0d 00 b4 | 2b 20 64 69 72 24 20 3d |ed%=....|+ dir$ =|
|000002c0| 20 a4 63 61 6e 6f 6e 69 | 63 61 6c 69 73 65 28 61 | .canoni|calise(a|
|000002d0| 72 67 76 24 28 31 29 2c | 62 75 66 66 65 72 25 29 |rgv$(1),|buffer%)|
|000002e0| 0d 00 be 3e 20 e7 20 a4 | 6c 6f 77 65 72 63 61 73 |...> . .|lowercas|
|000002f0| 65 28 61 72 67 76 24 28 | 32 29 29 20 3d 20 22 6e |e(argv$(|2)) = "n|
|00000300| 6f 6e 65 22 20 8c 20 61 | 70 70 6c 61 63 74 25 3d |one" . a|pplact%=|
|00000310| a3 20 8b 20 61 70 70 6c | 61 63 74 25 3d b9 0d 00 |. . appl|act%=...|
|00000320| c8 3e 20 e7 20 a4 6c 6f | 77 65 72 63 61 73 65 28 |.> . .lo|wercase(|
|00000330| 61 72 67 76 24 28 33 29 | 29 20 3d 20 22 6e 6f 6e |argv$(3)|) = "non|
|00000340| 65 22 20 8c 20 66 69 6c | 65 61 63 74 25 3d a3 20 |e" . fil|eact%=. |
|00000350| 8b 20 66 69 6c 65 61 63 | 74 25 3d b9 0d 00 d2 3e |. fileac|t%=....>|
|00000360| 20 e7 20 61 72 67 63 25 | 20 3e 20 34 20 8c 20 66 | . argc%| > 4 . f|
|00000370| 6c 61 67 73 24 3d a4 6c | 6f 77 65 72 63 61 73 65 |lags$=.l|owercase|
|00000380| 28 61 72 67 76 24 28 34 | 29 29 20 8b 20 66 6c 61 |(argv$(4|)) . fla|
|00000390| 67 73 24 3d 22 72 77 71 | 73 22 0d 00 dc 24 20 72 |gs$="rwq|s"...$ r|
|000003a0| 65 63 75 72 73 65 25 20 | 3d 20 a4 66 6c 61 67 73 |ecurse% |= .flags|
|000003b0| 65 74 28 66 6c 61 67 73 | 24 2c 22 72 22 29 0d 00 |et(flags|$,"r")..|
|000003c0| e6 21 20 77 69 70 65 25 | 20 3d 20 a4 66 6c 61 67 |.! wipe%| = .flag|
|000003d0| 73 65 74 28 66 6c 61 67 | 73 24 2c 22 77 22 29 0d |set(flag|s$,"w").|
|000003e0| 00 f0 22 20 71 75 69 65 | 74 25 20 3d 20 a4 66 6c |.." quie|t% = .fl|
|000003f0| 61 67 73 65 74 28 66 6c | 61 67 73 24 2c 22 71 22 |agset(fl|ags$,"q"|
|00000400| 29 0d 00 fa 22 20 73 63 | 72 61 70 25 20 3d 20 a4 |)..." sc|rap% = .|
|00000410| 66 6c 61 67 73 65 74 28 | 66 6c 61 67 73 24 2c 22 |flagset(|flags$,"|
|00000420| 73 22 29 0d 01 04 21 20 | 65 63 68 6f 25 20 3d 20 |s")...! |echo% = |
|00000430| a4 66 6c 61 67 73 65 74 | 28 66 6c 61 67 73 24 2c |.flagset|(flags$,|
|00000440| 22 65 22 29 0d 01 0e 22 | 20 64 65 62 75 67 25 20 |"e")..."| debug% |
|00000450| 3d 20 a4 66 6c 61 67 73 | 65 74 28 66 6c 61 67 73 |= .flags|et(flags|
|00000460| 24 2c 22 64 22 29 0d 01 | 18 20 20 65 78 65 25 20 |$,"d")..|.  exe% |
|00000470| 3d 20 a4 66 6c 61 67 73 | 65 74 28 66 6c 61 67 73 |= .flags|et(flags|
|00000480| 24 2c 22 78 22 29 0d 01 | 19 0f 20 e7 20 73 63 72 |$,"x")..|.. . scr|
|00000490| 61 70 25 20 8c 0d 01 22 | 2f 20 20 66 69 6c 65 24 |ap% ..."|/  file$|
|000004a0| 20 3d 20 a4 72 65 61 64 | 76 61 72 76 61 6c 28 22 | = .read|varval("|
|000004b0| 57 69 6d 70 24 53 63 72 | 61 70 22 2c 62 75 66 66 |Wimp$Scr|ap",buff|
|000004c0| 65 72 25 29 0d 01 2c 06 | 20 cc 0d 01 36 45 20 20 |er%)..,.| ...6E  |
|000004d0| e7 20 61 72 67 63 25 3e | 3d 36 20 8c 20 66 69 6c |. argc%>|=6 . fil|
|000004e0| 65 24 20 3d 20 a4 63 61 | 6e 6f 6e 69 63 61 6c 69 |e$ = .ca|nonicali|
|000004f0| 73 65 28 61 72 67 76 24 | 28 35 29 2c 62 75 66 66 |se(argv$|(5),buff|
|00000500| 65 72 25 29 20 8b 20 66 | 69 6c 65 24 3d 22 22 0d |er%) . f|ile$="".|
|00000510| 01 40 06 20 cd 0d 01 4a | 13 20 e7 20 66 69 6c 65 |.@. ...J|. . file|
|00000520| 24 20 3d 20 22 22 20 8c | 0d 01 54 10 20 20 e7 20 |$ = "" .|..T.  . |
|00000530| 73 63 72 61 70 25 20 8c | 0d 01 5e 4a 20 20 20 f2 |scrap% .|..^J   .|
|00000540| 70 72 69 6e 74 28 22 21 | 53 63 72 61 70 20 6e 65 |print("!|Scrap ne|
|00000550| 65 64 73 20 74 6f 20 68 | 61 76 65 20 62 65 65 6e |eds to h|ave been|
|00000560| 20 73 65 65 6e 2c 20 6f | 72 20 64 6f 6e 27 74 20 | seen, o|r don't |
|00000570| 73 65 74 20 74 68 65 20 | 27 73 27 20 66 6c 61 67 |set the |'s' flag|
|00000580| 22 29 0d 01 68 07 20 20 | cc 0d 01 72 48 20 20 20 |")..h.  |...rH   |
|00000590| f2 70 72 69 6e 74 28 22 | 4e 6f 20 74 65 6d 70 6f |.print("|No tempo|
|000005a0| 72 61 72 79 20 66 69 6c | 65 6e 61 6d 65 20 73 75 |rary fil|ename su|
|000005b0| 70 70 6c 69 65 64 20 77 | 68 69 6c 65 20 6e 6f 74 |pplied w|hile not|
|000005c0| 20 75 73 69 6e 67 20 27 | 73 27 20 66 6c 61 67 22 | using '|s' flag"|
|000005d0| 29 0d 01 7c 07 20 20 cd | 0d 01 86 10 20 20 70 72 |)..|.  .|....  pr|
|000005e0| 6f 63 65 65 64 25 3d a3 | 0d 01 90 06 20 cd 0d 01 |oceed%=.|.... ...|
|000005f0| 9a 18 20 e7 20 ac 20 a4 | 65 78 69 73 74 73 28 64 |.. . . .|exists(d|
|00000600| 69 72 24 29 20 8c 0d 01 | a4 32 20 20 f2 70 72 69 |ir$) ...|.2  .pri|
|00000610| 6e 74 28 22 44 69 72 65 | 63 74 6f 72 79 20 73 70 |nt("Dire|ctory sp|
|00000620| 65 63 69 66 69 65 64 20 | 64 6f 65 73 20 6e 6f 74 |ecified |does not|
|00000630| 20 65 78 69 73 74 22 29 | 0d 01 ae 10 20 20 70 72 | exist")|....  pr|
|00000640| 6f 63 65 65 64 25 3d a3 | 0d 01 b8 06 20 cd 0d 01 |oceed%=.|.... ...|
|00000650| c2 20 20 e7 20 66 69 6c | 65 61 63 74 25 3d a3 20 |.  . fil|eact%=. |
|00000660| 80 20 61 70 70 6c 61 63 | 74 25 3d a3 20 8c 0d 01 |. applac|t%=. ...|
|00000670| cc 3f 20 20 f2 70 72 69 | 6e 74 28 22 4e 6f 20 61 |.?  .pri|nt("No a|
|00000680| 63 74 69 6f 6e 73 20 73 | 70 65 63 69 66 69 65 64 |ctions s|pecified|
|00000690| 20 2d 20 77 61 73 74 65 | 20 6f 66 20 74 69 6d 65 | - waste| of time|
|000006a0| 20 63 6f 6e 74 69 6e 75 | 69 6e 67 22 29 0d 01 d6 | continu|ing")...|
|000006b0| 10 20 20 70 72 6f 63 65 | 65 64 25 3d a3 0d 01 e0 |.  proce|ed%=....|
|000006c0| 06 20 cd 0d 01 ea 11 20 | e7 20 70 72 6f 63 65 65 |. ..... |. procee|
|000006d0| 64 25 20 8c 0d 01 f4 10 | 20 20 e7 20 64 65 62 75 |d% .....|  . debu|
|000006e0| 67 25 20 8c 0d 01 fe 0b | 20 20 20 eb 20 31 36 0d |g% .....|   . 16.|
|000006f0| 02 08 21 20 20 20 f1 20 | 22 41 75 74 6f 20 56 65 |..!   . |"Auto Ve|
|00000700| 72 73 69 6f 6e 20 34 20 | 28 64 65 62 75 67 29 22 |rsion 4 |(debug)"|
|00000710| 0d 02 12 21 20 20 20 f1 | 20 22 3d 3d 3d 3d 3d 3d |...!   .| "======|
|00000720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000730| 22 0d 02 1c 24 20 20 20 | f1 27 22 53 63 61 6e 6e |"...$   |.'"Scann|
|00000740| 69 6e 67 20 64 69 72 65 | 63 74 6f 72 79 3a 20 22 |ing dire|ctory: "|
|00000750| 3b 64 69 72 24 0d 02 26 | 22 20 20 20 f1 20 22 55 |;dir$..&|"   . "U|
|00000760| 73 69 6e 67 20 6f 62 65 | 79 20 66 69 6c 65 3a 20 |sing obe|y file: |
|00000770| 22 3b 66 69 6c 65 24 0d | 02 30 1d 20 20 20 f1 20 |";file$.|.0.   . |
|00000780| 22 46 6c 61 67 73 20 61 | 72 65 3a 20 22 3b 66 6c |"Flags a|re: ";fl|
|00000790| 61 67 73 24 0d 02 3a 07 | 20 20 cd 0d 02 44 15 20 |ags$..:.|  ...D. |
|000007a0| 20 66 69 6c 65 25 20 3d | 20 ae 20 66 69 6c 65 24 | file% =| . file$|
|000007b0| 0d 02 4e 1c 20 20 f2 73 | 63 61 6e 64 69 72 28 64 |..N.  .s|candir(d|
|000007c0| 69 72 24 2c 62 75 66 66 | 65 72 25 29 0d 02 58 29 |ir$,buff|er%)..X)|
|000007d0| 20 20 e7 20 77 69 70 65 | 25 20 8c 20 d5 23 20 66 |  . wipe|% . .# f|
|000007e0| 69 6c 65 25 2c 20 22 52 | 65 6d 6f 76 65 20 22 2b |ile%, "R|emove "+|
|000007f0| 66 69 6c 65 24 0d 02 62 | 0e 20 20 d9 23 20 66 69 |file$..b|.  .# fi|
|00000800| 6c 65 25 0d 02 6c 2c 20 | 20 e7 20 ac 20 77 69 70 |le%..l, | . . wip|
|00000810| 65 25 20 8c 20 ff 20 22 | 53 65 74 74 79 70 65 20 |e% . . "|Settype |
|00000820| 22 2b 66 69 6c 65 24 2b | 22 20 54 65 78 74 22 0d |"+file$+|" Text".|
|00000830| 02 76 16 20 20 63 6f 6d | 6d 61 6e 64 24 3d 22 4f |.v.  com|mand$="O|
|00000840| 62 65 79 20 22 0d 02 80 | 1f 20 20 e7 20 65 63 68 |bey "...|.  . ech|
|00000850| 6f 25 20 8c 20 63 6f 6d | 6d 61 6e 64 24 2b 3d 22 |o% . com|mand$+="|
|00000860| 2d 76 20 22 0d 02 8a 17 | 20 20 63 6f 6d 6d 61 6e |-v "....|  comman|
|00000870| 64 24 20 2b 3d 20 66 69 | 6c 65 24 0d 02 94 23 20 |d$ += fi|le$...# |
|00000880| 20 e7 20 65 78 65 25 20 | 8c 20 c8 99 20 22 4f 53 | . exe% |. .. "OS|
|00000890| 5f 43 4c 49 22 2c 63 6f | 6d 6d 61 6e 64 24 0d 02 |_CLI",co|mmand$..|
|000008a0| 9e 06 20 cc 0d 02 a8 2a | 20 20 f2 70 72 69 6e 74 |.. ....*|  .print|
|000008b0| 28 22 41 75 74 6f 20 66 | 69 6e 69 73 68 65 64 20 |("Auto f|inished |
|000008c0| 64 75 65 20 74 6f 20 65 | 72 72 6f 72 22 29 0d 02 |due to e|rror")..|
|000008d0| b2 06 20 cd 0d 02 bc 05 | cd 0d 02 c6 05 e0 0d 02 |.. .....|........|
|000008e0| d0 04 0d 02 da 22 dd 20 | a4 63 61 6e 6f 6e 69 63 |.....". |.canonic|
|000008f0| 61 6c 69 73 65 28 6e 61 | 6d 65 24 2c 62 75 66 66 |alise(na|me$,buff|
|00000900| 65 72 25 29 0d 02 e4 2e | c8 99 20 22 4f 53 5f 46 |er%)....|.. "OS_F|
|00000910| 53 43 6f 6e 74 72 6f 6c | 22 2c 33 37 2c 6e 61 6d |SControl|",37,nam|
|00000920| 65 24 2c 62 75 66 66 65 | 72 25 2c 30 2c 30 2c 32 |e$,buffe|r%,0,0,2|
|00000930| 35 36 0d 02 ee 16 3d a4 | 67 65 74 6e 61 6d 65 28 |56....=.|getname(|
|00000940| 62 75 66 66 65 72 25 29 | 0d 02 f8 04 0d 03 02 18 |buffer%)|........|
|00000950| dd 20 a4 65 78 69 73 74 | 73 28 66 69 6c 65 6e 61 |. .exist|s(filena|
|00000960| 6d 65 24 29 0d 03 0c 0d | ea 20 72 65 73 75 6c 74 |me$)....|. result|
|00000970| 25 0d 03 16 26 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |%...&.. |"OS_File|
|00000980| 22 2c 35 2c 66 69 6c 65 | 6e 61 6d 65 24 20 b8 20 |",5,file|name$ . |
|00000990| 72 65 73 75 6c 74 25 0d | 03 20 1c e7 20 72 65 73 |result%.|. .. res|
|000009a0| 75 6c 74 25 3c 3e 30 20 | 8c 20 72 65 73 75 6c 74 |ult%<>0 |. result|
|000009b0| 25 3d b9 0d 03 2a 0c 3d | 72 65 73 75 6c 74 25 0d |%=...*.=|result%.|
|000009c0| 03 34 04 0d 03 3e 1d dd | 20 a4 66 6c 61 67 73 65 |.4...>..| .flagse|
|000009d0| 74 28 73 74 72 69 6e 67 | 24 2c 66 6c 61 67 24 29 |t(string|$,flag$)|
|000009e0| 0d 03 48 0d ea 20 72 65 | 73 75 6c 74 25 0d 03 52 |..H.. re|sult%..R|
|000009f0| 2d e7 20 a7 73 74 72 69 | 6e 67 24 2c 66 6c 61 67 |-. .stri|ng$,flag|
|00000a00| 24 29 20 8c 20 72 65 73 | 75 6c 74 25 3d b9 20 8b |$) . res|ult%=. .|
|00000a10| 20 72 65 73 75 6c 74 25 | 3d a3 0d 03 5c 0c 3d 72 | result%|=...\.=r|
|00000a20| 65 73 75 6c 74 25 0d 03 | 66 04 0d 03 70 18 dd 20 |esult%..|f...p.. |
|00000a30| a4 67 65 74 6e 61 6d 65 | 28 61 64 64 72 65 73 73 |.getname|(address|
|00000a40| 25 29 0d 03 7a 0b ea 20 | 6e 61 6d 65 24 0d 03 84 |%)..z.. |name$...|
|00000a50| 15 c8 95 20 3f 61 64 64 | 72 65 73 73 25 20 3e 20 |... ?add|ress% > |
|00000a60| 33 31 0d 03 8e 16 20 6e | 61 6d 65 24 2b 3d bd 3f |31.... n|ame$+=.?|
|00000a70| 61 64 64 72 65 73 73 25 | 0d 03 98 10 20 61 64 64 |address%|.... add|
|00000a80| 72 65 73 73 25 2b 3d 31 | 0d 03 a2 05 ce 0d 03 ac |ress%+=1|........|
|00000a90| 0a 3d 6e 61 6d 65 24 0d | 03 b6 04 0d 03 c0 17 dd |.=name$.|........|
|00000aa0| 20 a4 67 65 74 6e 65 78 | 74 61 72 67 28 65 6e 76 | .getnex|targ(env|
|00000ab0| 24 29 0d 03 ca 24 ea 20 | 71 75 6f 74 65 25 2c 61 |$)...$. |quote%,a|
|00000ac0| 72 67 24 2c 69 6e 64 65 | 78 25 2c 63 68 61 72 24 |rg$,inde|x%,char$|
|00000ad0| 2c 64 6f 6e 65 25 0d 03 | d4 16 e3 20 69 6e 64 65 |,done%..|... inde|
|00000ae0| 78 25 3d 31 20 b8 20 a9 | 65 6e 76 24 0d 03 de 10 |x%=1 . .|env$....|
|00000af0| 20 e7 20 ac 20 64 6f 6e | 65 25 20 8c 0d 03 e8 1d | . . don|e% .....|
|00000b00| 20 20 63 68 61 72 24 20 | 3d 20 c1 65 6e 76 24 2c |  char$ |= .env$,|
|00000b10| 69 6e 64 65 78 25 2c 31 | 29 0d 03 f2 10 20 20 c8 |index%,1|)....  .|
|00000b20| 8e 20 63 68 61 72 24 20 | ca 0d 03 fc 2b 20 20 20 |. char$ |....+   |
|00000b30| c9 20 bd 33 32 20 3a 20 | e7 20 28 71 75 6f 74 65 |. .32 : |. (quote|
|00000b40| 25 20 83 20 32 29 3d 30 | 20 8c 20 64 6f 6e 65 25 |% . 2)=0| . done%|
|00000b50| 20 3d 20 b9 0d 04 06 28 | 20 20 20 c9 20 bd 33 34 | = ....(|   . .34|
|00000b60| 20 3a 20 71 75 6f 74 65 | 25 2b 3d 31 20 3a 20 61 | : quote|%+=1 : a|
|00000b70| 72 67 24 20 2b 3d 20 63 | 68 61 72 24 0d 04 10 1a |rg$ += c|har$....|
|00000b80| 20 20 20 7f 20 20 20 3a | 20 61 72 67 24 20 2b 3d |   .   :| arg$ +=|
|00000b90| 20 63 68 61 72 24 0d 04 | 1a 07 20 20 cb 0d 04 24 | char$..|..  ...$|
|00000ba0| 06 20 cd 0d 04 2e 0c ed | 20 69 6e 64 65 78 25 0d |. ......| index%.|
|00000bb0| 04 38 09 3d 61 72 67 24 | 0d 04 42 04 0d 04 4c 19 |.8.=arg$|..B...L.|
|00000bc0| dd 20 a4 6c 6f 77 65 72 | 63 61 73 65 28 73 74 72 |. .lower|case(str|
|00000bd0| 69 6e 67 24 29 0d 04 56 | 11 ea 20 6c 6f 6f 70 25 |ing$)..V|.. loop%|
|00000be0| 2c 63 68 61 72 25 0d 04 | 60 1a e3 20 6c 6f 6f 70 |,char%..|`.. loop|
|00000bf0| 25 20 3d 20 31 20 b8 20 | a9 73 74 72 69 6e 67 24 |% = 1 . |.string$|
|00000c00| 0d 04 6a 20 20 63 68 61 | 72 25 20 3d 20 97 20 c1 |..j  cha|r% = . .|
|00000c10| 73 74 72 69 6e 67 24 2c | 6c 6f 6f 70 25 2c 31 29 |string$,|loop%,1)|
|00000c20| 0d 04 74 26 20 e7 20 63 | 68 61 72 25 20 3e 3d 20 |..t& . c|har% >= |
|00000c30| 97 22 41 22 20 80 20 63 | 68 61 72 25 20 3c 3d 20 |."A" . c|har% <= |
|00000c40| 97 22 5a 22 20 8c 0d 04 | 7e 27 20 20 c1 73 74 72 |."Z" ...|~'  .str|
|00000c50| 69 6e 67 24 2c 6c 6f 6f | 70 25 2c 31 29 20 3d 20 |ing$,loo|p%,1) = |
|00000c60| bd 28 63 68 61 72 25 20 | 2b 20 33 32 29 0d 04 88 |.(char% |+ 32)...|
|00000c70| 06 20 cd 0d 04 92 0b ed | 20 6c 6f 6f 70 25 0d 04 |. ......| loop%..|
|00000c80| 9c 0c 3d 73 74 72 69 6e | 67 24 0d 04 a6 04 0d 04 |..=strin|g$......|
|00000c90| b0 1f dd 20 a4 72 65 61 | 64 76 61 72 76 61 6c 28 |... .rea|dvarval(|
|00000ca0| 76 61 72 24 2c 62 75 66 | 66 65 72 25 29 0d 04 ba |var$,buf|fer%)...|
|00000cb0| 10 ea 20 66 6c 61 67 25 | 2c 76 61 6c 24 0d 04 c4 |.. flag%|,val$...|
|00000cc0| 35 c8 99 20 22 58 4f 53 | 5f 52 65 61 64 56 61 72 |5.. "XOS|_ReadVar|
|00000cd0| 56 61 6c 22 2c 76 61 72 | 24 2c 62 75 66 66 65 72 |Val",var|$,buffer|
|00000ce0| 25 2c 2d 31 2c 30 2c 33 | 20 b8 20 2c 2c 66 6c 61 |%,-1,0,3| . ,,fla|
|00000cf0| 67 25 0d 04 ce 12 e7 20 | 66 6c 61 67 25 20 3e 3d |g%..... |flag% >=|
|00000d00| 20 30 20 8c 0d 04 d8 0c | 20 76 61 6c 24 3d 22 22 | 0 .....| val$=""|
|00000d10| 0d 04 e2 05 cc 0d 04 ec | 36 20 c8 99 20 22 4f 53 |........|6 .. "OS|
|00000d20| 5f 52 65 61 64 56 61 72 | 56 61 6c 22 2c 76 61 72 |_ReadVar|Val",var|
|00000d30| 24 2c 62 75 66 66 65 72 | 25 2c 32 35 36 2c 30 2c |$,buffer|%,256,0,|
|00000d40| 33 20 b8 20 2c 2c 66 6c | 61 67 25 0d 04 f6 17 20 |3 . ,,fl|ag%.... |
|00000d50| 62 75 66 66 65 72 25 3f | 66 6c 61 67 25 20 3d 20 |buffer%?|flag% = |
|00000d60| 31 33 0d 05 00 14 20 76 | 61 6c 24 20 3d 20 24 62 |13.... v|al$ = $b|
|00000d70| 75 66 66 65 72 25 0d 05 | 0a 05 cd 0d 05 14 09 3d |uffer%..|.......=|
|00000d80| 76 61 6c 24 0d 05 1e 04 | 0d 05 28 24 dd 20 a4 72 |val$....|..($. .r|
|00000d90| 65 6d 6f 76 65 5f 6c 65 | 61 64 69 6e 67 28 73 74 |emove_le|ading(st|
|00000da0| 72 69 6e 67 24 2c 63 68 | 61 72 24 29 0d 05 32 0c |ring$,ch|ar$)..2.|
|00000db0| ea 20 63 6f 75 6e 74 25 | 0d 05 3c 0c 63 6f 75 6e |. count%|..<.coun|
|00000dc0| 74 25 3d 31 0d 05 46 1f | c8 95 20 c1 73 74 72 69 |t%=1..F.|.. .stri|
|00000dd0| 6e 67 24 2c 63 6f 75 6e | 74 25 2c 31 29 3d 63 68 |ng$,coun|t%,1)=ch|
|00000de0| 61 72 24 0d 05 50 10 20 | 63 6f 75 6e 74 25 20 2b |ar$..P. |count% +|
|00000df0| 3d 20 31 0d 05 5a 05 ce | 0d 05 64 1c 73 74 72 69 |= 1..Z..|..d.stri|
|00000e00| 6e 67 24 3d c1 73 74 72 | 69 6e 67 24 2c 63 6f 75 |ng$=.str|ing$,cou|
|00000e10| 6e 74 25 29 0d 05 6e 0c | 3d 73 74 72 69 6e 67 24 |nt%)..n.|=string$|
|00000e20| 0d 05 78 04 0d 05 82 17 | dd 20 f2 61 70 70 6c 28 |..x.....|. .appl(|
|00000e30| 64 69 72 24 2c 6c 65 61 | 66 24 29 0d 05 8c 30 f2 |dir$,lea|f$)...0.|
|00000e40| 6f 75 74 70 75 74 28 61 | 72 67 76 24 28 32 29 20 |output(a|rgv$(2) |
|00000e50| 2b 20 22 20 22 20 2b 20 | 64 69 72 24 20 2b 20 22 |+ " " + |dir$ + "|
|00000e60| 2e 22 20 2b 20 6c 65 61 | 66 24 29 0d 05 96 05 e1 |." + lea|f$).....|
|00000e70| 0d 05 a0 04 0d 05 aa 17 | dd 20 f2 66 69 6c 65 28 |........|. .file(|
|00000e80| 64 69 72 24 2c 6c 65 61 | 66 24 29 0d 05 b4 30 f2 |dir$,lea|f$)...0.|
|00000e90| 6f 75 74 70 75 74 28 61 | 72 67 76 24 28 33 29 20 |output(a|rgv$(3) |
|00000ea0| 2b 20 22 20 22 20 2b 20 | 64 69 72 24 20 2b 20 22 |+ " " + |dir$ + "|
|00000eb0| 2e 22 20 2b 20 6c 65 61 | 66 24 29 0d 05 be 05 e1 |." + lea|f$).....|
|00000ec0| 0d 05 c8 04 0d 05 d2 24 | dd 20 f2 67 65 74 61 72 |.......$|. .getar|
|00000ed0| 67 73 28 65 6e 76 24 2c | f8 20 61 72 67 63 25 2c |gs(env$,|. argc%,|
|00000ee0| 61 72 67 76 24 28 29 29 | 0d 05 dc 0b ea 20 74 68 |argv$())|..... th|
|00000ef0| 69 73 24 0d 05 e6 11 c8 | 95 20 65 6e 76 24 20 3c |is$.....|. env$ <|
|00000f00| 3e 20 22 22 0d 05 f0 1e | 20 74 68 69 73 24 20 3d |> ""....| this$ =|
|00000f10| 20 a4 67 65 74 6e 65 78 | 74 61 72 67 28 65 6e 76 | .getnex|targ(env|
|00000f20| 24 29 0d 05 fa 19 20 61 | 72 67 76 24 28 61 72 67 |$).... a|rgv$(arg|
|00000f30| 63 25 29 20 3d 20 74 68 | 69 73 24 0d 06 04 0f 20 |c%) = th|is$.... |
|00000f40| 61 72 67 63 25 20 2b 3d | 20 31 0d 06 0e 32 20 65 |argc% +=| 1...2 e|
|00000f50| 6e 76 24 20 3d 20 a4 72 | 65 6d 6f 76 65 5f 6c 65 |nv$ = .r|emove_le|
|00000f60| 61 64 69 6e 67 28 c1 65 | 6e 76 24 2c a9 74 68 69 |ading(.e|nv$,.thi|
|00000f70| 73 24 20 2b 20 31 29 2c | bd 33 32 29 0d 06 18 05 |s$ + 1),|.32)....|
|00000f80| ce 0d 06 22 05 e1 0d 06 | 2c 04 0d 06 36 14 dd 20 |..."....|,...6.. |
|00000f90| f2 6f 75 74 70 75 74 28 | 74 65 78 74 24 29 0d 06 |.output(|text$)..|
|00000fa0| 40 13 d5 23 20 66 69 6c | 65 25 2c 20 74 65 78 74 |@..# fil|e%, text|
|00000fb0| 24 0d 06 4a 05 e1 0d 06 | 54 04 0d 06 5e 15 dd 20 |$..J....|T...^.. |
|00000fc0| f2 70 72 69 6e 74 28 73 | 74 72 69 6e 67 24 29 0d |.print(s|tring$).|
|00000fd0| 06 68 1a e7 20 ac 20 71 | 75 69 65 74 25 20 8c 20 |.h.. . q|uiet% . |
|00000fe0| f1 20 73 74 72 69 6e 67 | 24 0d 06 72 05 e1 0d 06 |. string|$..r....|
|00000ff0| 7c 04 0d 06 86 1d dd 20 | f2 73 63 61 6e 64 69 72 ||...... |.scandir|
|00001000| 28 64 69 72 24 2c 61 64 | 64 72 65 73 73 25 29 0d |(dir$,ad|dress%).|
|00001010| 06 90 32 ea 20 6e 75 6d | 62 65 72 25 2c 6f 66 66 |..2. num|ber%,off|
|00001020| 73 65 74 25 2c 6f 62 6a | 65 63 74 24 2c 6c 6f 6f |set%,obj|ect$,loo|
|00001030| 70 25 2c 74 79 70 65 25 | 2c 70 6f 69 6e 74 65 72 |p%,type%|,pointer|
|00001040| 25 0d 06 9a 25 61 64 64 | 72 65 73 73 25 20 3d 20 |%...%add|ress% = |
|00001050| 28 61 64 64 72 65 73 73 | 25 20 2b 20 33 29 20 80 |(address|% + 3) .|
|00001060| 20 28 ac 20 33 29 0d 06 | a4 69 e7 20 64 65 62 75 | (. 3)..|.i. debu|
|00001070| 67 25 20 8c 20 f1 20 22 | 53 63 61 6e 6e 69 6e 67 |g% . . "|Scanning|
|00001080| 20 64 69 72 65 63 74 6f | 72 79 20 22 3b 64 69 72 | directo|ry ";dir|
|00001090| 24 3b 22 20 77 69 74 68 | 20 22 3b 28 6d 65 6d 6f |$;" with| ";(memo|
|000010a0| 72 79 5f 6c 69 6d 69 74 | 25 2d 61 64 64 72 65 73 |ry_limit|%-addres|
|000010b0| 73 25 29 3b 22 20 62 79 | 74 65 73 20 6f 66 20 73 |s%);" by|tes of s|
|000010c0| 74 6f 72 65 20 72 65 6d | 61 69 6e 69 6e 67 22 0d |tore rem|aining".|
|000010d0| 06 ae 14 c8 95 20 6f 66 | 66 73 65 74 25 20 3c 3e |..... of|fset% <>|
|000010e0| 20 2d 31 0d 06 b8 59 20 | c8 99 20 22 4f 53 5f 47 | -1...Y |.. "OS_G|
|000010f0| 42 50 42 22 2c 31 32 2c | 64 69 72 24 2c 61 64 64 |BPB",12,|dir$,add|
|00001100| 72 65 73 73 25 2c 37 37 | 2c 6f 66 66 73 65 74 25 |ress%,77|,offset%|
|00001110| 2c 6d 65 6d 6f 72 79 5f | 6c 69 6d 69 74 25 2d 61 |,memory_|limit%-a|
|00001120| 64 64 72 65 73 73 25 20 | b8 20 2c 2c 2c 6e 75 6d |ddress% |. ,,,num|
|00001130| 62 65 72 25 2c 6f 66 66 | 73 65 74 25 0d 06 c2 14 |ber%,off|set%....|
|00001140| 20 e7 20 6e 75 6d 62 65 | 72 25 20 3e 20 30 20 8c | . numbe|r% > 0 .|
|00001150| 0d 06 cc 19 20 20 70 6f | 69 6e 74 65 72 25 20 3d |....  po|inter% =|
|00001160| 20 61 64 64 72 65 73 73 | 25 0d 06 d6 1b 20 20 e3 | address|%....  .|
|00001170| 20 6c 6f 6f 70 25 20 3d | 20 31 20 b8 20 6e 75 6d | loop% =| 1 . num|
|00001180| 62 65 72 25 0d 06 e0 1a | 20 20 20 74 79 70 65 25 |ber%....|   type%|
|00001190| 20 3d 20 70 6f 69 6e 74 | 65 72 25 21 32 30 0d 06 | = point|er%!20..|
|000011a0| ea 26 20 20 20 6f 62 6a | 65 63 74 24 20 3d 20 a4 |.&   obj|ect$ = .|
|000011b0| 67 65 74 6e 61 6d 65 28 | 70 6f 69 6e 74 65 72 25 |getname(|pointer%|
|000011c0| 2b 32 34 29 0d 06 f4 20 | 20 20 20 70 6f 69 6e 74 |+24)... |   point|
|000011d0| 65 72 25 20 2b 3d 20 32 | 35 20 2b 20 a9 6f 62 6a |er% += 2|5 + .obj|
|000011e0| 65 63 74 24 0d 06 fe 28 | 20 20 20 70 6f 69 6e 74 |ect$...(|   point|
|000011f0| 65 72 25 20 3d 20 28 70 | 6f 69 6e 74 65 72 25 20 |er% = (p|ointer% |
|00001200| 2b 20 33 29 20 80 20 28 | ac 20 33 29 0d 07 08 11 |+ 3) . (|. 3)....|
|00001210| 20 20 20 c8 8e 20 74 79 | 70 65 25 20 ca 0d 07 12 |   .. ty|pe% ....|
|00001220| 4f 20 20 20 20 c9 20 26 | 31 30 30 30 20 20 3a 20 |O    . &|1000  : |
|00001230| e7 20 72 65 63 75 72 73 | 65 25 20 8c 20 f2 73 63 |. recurs|e% . .sc|
|00001240| 61 6e 64 69 72 28 64 69 | 72 24 2b 22 2e 22 2b 6f |andir(di|r$+"."+o|
|00001250| 62 6a 65 63 74 24 2c 61 | 64 64 72 65 73 73 25 20 |bject$,a|ddress% |
|00001260| 2b 20 28 33 36 20 2a 20 | 37 37 29 29 0d 07 1c 33 |+ (36 * |77))...3|
|00001270| 20 20 20 20 c9 20 26 32 | 30 30 30 20 20 3a 20 e7 |    . &2|000  : .|
|00001280| 20 61 70 70 6c 61 63 74 | 25 20 8c 20 f2 61 70 70 | applact|% . .app|
|00001290| 6c 28 64 69 72 24 2c 6f | 62 6a 65 63 74 24 29 0d |l(dir$,o|bject$).|
|000012a0| 07 26 39 20 20 20 20 c9 | 20 26 46 46 39 20 20 20 |.&9    .| &FF9   |
|000012b0| 3a 20 e7 20 66 69 6c 65 | 61 63 74 25 20 8c 20 f2 |: . file|act% . .|
|000012c0| 73 70 72 69 74 65 66 69 | 6c 65 28 64 69 72 24 2c |spritefi|le(dir$,|
|000012d0| 6f 62 6a 65 63 74 24 29 | 0d 07 30 2e 20 20 20 20 |object$)|..0.    |
|000012e0| 7f 20 20 20 3a 20 e7 20 | 66 69 6c 65 61 63 74 25 |.   : . |fileact%|
|000012f0| 20 8c 20 f2 66 69 6c 65 | 28 64 69 72 24 2c 6f 62 | . .file|(dir$,ob|
|00001300| 6a 65 63 74 24 29 0d 07 | 3a 08 20 20 20 cb 0d 07 |ject$)..|:.   ...|
|00001310| 44 0d 20 20 ed 20 6c 6f | 6f 70 25 0d 07 4e 06 20 |D.  . lo|op%..N. |
|00001320| cd 0d 07 58 05 ce 0d 07 | 62 05 e1 0d 07 6c 04 0d |...X....|b....l..|
|00001330| 07 76 1d dd 20 f2 73 70 | 72 69 74 65 66 69 6c 65 |.v.. .sp|ritefile|
|00001340| 28 64 69 72 24 2c 6c 65 | 61 66 24 29 0d 07 80 22 |(dir$,le|af$)..."|
|00001350| e7 20 c0 a4 6c 6f 77 65 | 72 63 61 73 65 28 6c 65 |. ..lowe|rcase(le|
|00001360| 61 66 24 29 29 3d 22 74 | 6f 6f 6c 22 20 8c 0d 07 |af$))="t|ool" ...|
|00001370| 8a 2b 20 f2 6f 75 74 70 | 75 74 28 22 54 6f 6f 6c |.+ .outp|ut("Tool|
|00001380| 53 70 72 69 74 65 73 20 | 22 2b 64 69 72 24 2b 22 |Sprites |"+dir$+"|
|00001390| 2e 22 2b 6c 65 61 66 24 | 29 0d 07 94 05 cc 0d 07 |."+leaf$|).......|
|000013a0| 9e 2b 20 f2 6f 75 74 70 | 75 74 28 22 49 63 6f 6e |.+ .outp|ut("Icon|
|000013b0| 53 70 72 69 74 65 73 20 | 22 2b 64 69 72 24 2b 22 |Sprites |"+dir$+"|
|000013c0| 2e 22 2b 6c 65 61 66 24 | 29 0d 07 a8 05 cd 0d 07 |."+leaf$|).......|
|000013d0| b2 05 e1 0d ff          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+