/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / tojpeg / !ToJPEG / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 ee 20 85 20 | f2 65 72 72 6f 72 20 3a |..... . |.error :|
|00000010| e0 0d 00 14 0b f2 6d 79 | 76 61 72 73 0d 00 1e 48 |......my|vars...H|
|00000020| c8 99 20 26 34 34 45 43 | 46 2c 30 2c 33 31 30 2c |.. &44EC|F,0,310,|
|00000030| 57 6d 65 73 73 25 2c 54 | 6d 65 73 73 25 2c 22 3c |Wmess%,T|mess%,"<|
|00000040| 54 6f 4a 50 45 47 24 44 | 69 72 3e 22 2c 6d 65 73 |ToJPEG$D|ir>",mes|
|00000050| 73 66 25 2c 54 62 6c 6b | 25 20 b8 20 76 25 2c 74 |sf%,Tblk|% . v%,t|
|00000060| 61 73 6b 25 0d 00 28 18 | ee 20 85 20 e7 20 a4 77 |ask%..(.|. . . .w|
|00000070| 69 6d 70 65 72 72 6f 72 | 20 8c 20 e0 0d 00 32 13 |imperror| . ...2.|
|00000080| f5 3a f2 70 6f 6c 6c 3a | fd 20 71 75 69 74 25 0d |.:.poll:|. quit%.|
|00000090| 00 3c 0a f2 63 6c 6f 73 | 65 0d 00 46 05 e0 0d 00 |.<..clos|e..F....|
|000000a0| 50 05 3a 0d 00 5a 0a dd | f2 70 6f 6c 6c 0d 00 64 |P.:..Z..|.poll..d|
|000000b0| 1c c8 99 20 26 34 30 30 | 43 37 2c 31 2c 51 25 20 |... &400|C7,1,Q% |
|000000c0| b8 20 72 65 61 73 6f 6e | 25 0d 00 6e 10 c8 8e 20 |. reason|%..n... |
|000000d0| 72 65 61 73 6f 6e 25 20 | ca 0d 00 78 16 20 20 c9 |reason% |...x.  .|
|000000e0| 20 31 37 2c 31 38 3a f2 | 72 65 63 65 69 76 65 0d | 17,18:.|receive.|
|000000f0| 00 82 17 20 20 c9 20 26 | 32 30 30 3a f2 74 6f 6f |...  . &|200:.too|
|00000100| 6c 65 76 65 6e 74 0d 00 | 8c 05 cb 0d 00 96 05 e1 |levent..|........|
|00000110| 0d 00 a0 05 3a 0d 00 aa | 0f dd f2 74 6f 6f 6c 65 |....:...|...toole|
|00000120| 76 65 6e 74 0d 00 b4 11 | 68 61 6e 25 3d 54 62 6c |vent....|han%=Tbl|
|00000130| 6b 25 21 31 36 0d 00 be | 0d c8 8e 20 51 25 21 38 |k%!16...|... Q%!8|
|00000140| 20 ca 0d 00 c8 0e 20 20 | c9 20 26 34 34 65 63 31 | .....  |. &44ec1|
|00000150| 0d 00 d2 1b 20 20 20 20 | c8 8e 20 a4 73 74 72 69 |....    |.. .stri|
|00000160| 6e 67 28 51 25 2b 31 36 | 29 20 ca 0d 00 dc 20 20 |ng(Q%+16|) ....  |
|00000170| 20 20 20 20 20 c9 20 22 | 57 69 6e 64 6f 77 22 3a |     . "|Window":|
|00000180| 77 69 6e 69 64 25 3d 68 | 61 6e 25 0d 00 e6 16 20 |winid%=h|an%.... |
|00000190| 20 20 20 20 20 c9 20 22 | 50 72 6f 67 49 6e 66 6f |     . "|ProgInfo|
|000001a0| 22 0d 00 f0 2a 20 20 20 | 20 20 20 20 c8 99 26 34 |"...*   |    ..&4|
|000001b0| 31 35 30 32 2c 6d 65 73 | 73 66 25 2c 22 76 65 72 |1502,mes|sf%,"ver|
|000001c0| 73 22 2c 30 20 b8 20 2c | 2c 64 25 0d 00 fa 20 20 |s",0 . ,|,d%...  |
|000001d0| 20 20 20 20 20 20 c8 99 | 20 26 34 34 65 63 36 2c |      ..| &44ec6,|
|000001e0| 30 2c 68 61 6e 25 2c 31 | 2c 64 25 0d 01 04 08 20 |0,han%,1|,d%.... |
|000001f0| 20 20 cb 0d 01 0e 0e 20 | 20 c9 20 26 34 34 65 63 |  ..... | . &44ec|
|00000200| 30 0d 01 18 23 20 20 20 | 20 e7 20 51 25 21 31 36 |0...#   | . Q%!16|
|00000210| 3d 26 38 30 42 36 33 33 | 20 62 25 3d 31 20 8b 20 |=&80B633| b%=1 . |
|00000220| 62 25 3d 33 0d 01 22 27 | 20 20 20 20 c8 99 20 26 |b%=3.."'|    .. &|
|00000230| 34 30 30 44 46 2c 51 25 | 2b 31 36 2c 62 25 2c 70 |400DF,Q%|+16,b%,p|
|00000240| 72 6f 67 24 20 b8 20 2c | 72 65 25 0d 01 2c 18 20 |rog$ . ,|re%..,. |
|00000250| 20 20 20 e7 20 72 65 25 | 3d 32 20 f2 63 6c 6f 73 |   . re%|=2 .clos|
|00000260| 65 3a e0 0d 01 36 16 20 | 20 c9 20 26 38 32 61 39 |e:...6. | . &82a9|
|00000270| 31 3a 71 75 69 74 25 3d | b9 0d 01 40 1c 20 20 c9 |1:quit%=|...@.  .|
|00000280| 20 26 38 32 38 38 38 3a | f2 69 6e 69 74 69 61 74 | &82888:|.initiat|
|00000290| 65 73 61 76 65 0d 01 4a | 34 20 20 c9 20 26 38 32 |esave..J|4  . &82|
|000002a0| 38 38 37 3a e7 20 a4 72 | 65 61 64 28 77 69 6e 69 |887:. .r|ead(wini|
|000002b0| 64 25 2c 32 29 3d 22 22 | 20 f2 73 65 74 28 32 2c |d%,2)=""| .set(2,|
|000002c0| 22 4f 75 74 70 75 74 22 | 29 0d 01 54 11 20 20 c9 |"Output"|)..T.  .|
|000002d0| 20 31 3a f2 73 61 76 65 | 69 74 0d 01 5e 05 cb 0d | 1:.save|it..^...|
|000002e0| 01 68 05 e1 0d 01 72 05 | 3a 0d 01 7c 12 dd f2 69 |.h....r.|:..|...i|
|000002f0| 6e 69 74 69 61 74 65 73 | 61 76 65 0d 01 86 11 c8 |nitiates|ave.....|
|00000300| 99 20 26 34 30 30 43 46 | 2c 2c 51 25 0d 01 90 3c |. &400CF|,,Q%...<|
|00000310| 51 25 21 32 30 3d 51 25 | 21 31 32 3a 51 25 21 32 |Q%!20=Q%|!12:Q%!2|
|00000320| 34 3d 51 25 21 31 36 3a | 51 25 21 32 38 3d 51 25 |4=Q%!16:|Q%!28=Q%|
|00000330| 21 30 3a 51 25 21 33 32 | 3d 51 25 21 34 3a 51 25 |!0:Q%!32|=Q%!4:Q%|
|00000340| 21 33 36 3d 26 31 30 30 | 0d 01 9a 27 51 25 21 30 |!36=&100|...'Q%!0|
|00000350| 3d 32 35 36 3a 51 25 21 | 31 32 3d 30 3a 51 25 21 |=256:Q%!|12=0:Q%!|
|00000360| 31 36 3d 31 3a 51 25 21 | 34 30 3d 26 30 30 36 0d |16=1:Q%!|40=&006.|
|00000370| 01 a4 23 24 28 51 25 2b | 34 34 29 3d a4 6c 65 61 |..#$(Q%+|44)=.lea|
|00000380| 66 28 a4 72 65 61 64 28 | 77 69 6e 69 64 25 2c 32 |f(.read(|winid%,2|
|00000390| 29 29 0d 01 ae 1f c8 99 | 20 26 34 30 30 45 37 2c |))......| &400E7,|
|000003a0| 31 37 2c 51 25 2c 51 25 | 21 32 30 2c 51 25 21 32 |17,Q%,Q%|!20,Q%!2|
|000003b0| 34 0d 01 b8 05 e1 0d 01 | c2 05 3a 0d 01 cc 0d dd |4.......|..:.....|
|000003c0| f2 72 65 63 65 69 76 65 | 0d 01 d6 0e c8 8e 20 51 |.receive|...... Q|
|000003d0| 25 21 31 36 20 ca 0d 01 | e0 11 20 20 c9 20 30 3a |%!16 ...|..  . 0:|
|000003e0| 71 75 69 74 25 3d b9 0d | 01 ea 13 20 20 c9 20 32 |quit%=..|...  . 2|
|000003f0| 3a f2 64 61 74 61 73 61 | 76 65 0d 01 f4 12 20 20 |:.datasa|ve....  |
|00000400| c9 20 33 3a f2 6c 6f 61 | 64 61 63 6b 0d 01 fe 05 |. 3:.loa|dack....|
|00000410| cb 0d 02 08 05 e1 0d 02 | 12 05 3a 0d 02 1c 0b dd |........|..:.....|
|00000420| f2 63 6c 6f 73 65 0d 02 | 26 14 c8 99 20 26 34 31 |.close..|&... &41|
|00000430| 35 30 34 2c 6d 65 73 73 | 66 25 0d 02 30 22 24 51 |504,mess|f%..0"$Q|
|00000440| 25 3d 22 54 41 53 4b 22 | 3a c8 99 20 26 34 30 30 |%="TASK"|:.. &400|
|00000450| 44 44 2c 74 61 73 6b 25 | 2c 21 51 25 0d 02 3a 05 |DD,task%|,!Q%..:.|
|00000460| e1 0d 02 44 05 3a 0d 02 | 4e 0b dd f2 65 72 72 6f |...D.:..|N...erro|
|00000470| 72 0d 02 58 1f ef 34 2c | 32 36 2c 33 30 3a f1 20 |r..X..4,|26,30:. |
|00000480| f6 24 3b 22 20 61 74 20 | 6c 69 6e 65 20 22 3b 9e |.$;" at |line ";.|
|00000490| 0d 02 62 05 e1 0d 02 6c | 05 3a 0d 02 76 0f dd a4 |..b....l|.:..v...|
|000004a0| 77 69 6d 70 65 72 72 6f | 72 0d 02 80 20 e7 20 fc |wimperro|r... . .|
|000004b0| 20 d5 23 fc 2c f6 24 2b | 22 20 28 20 63 6f 64 65 | .#.,.$+|" ( code|
|000004c0| 20 22 2b c3 9e 2b 22 29 | 22 0d 02 8a 0d c8 99 20 | "+..+")|"...... |
|000004d0| 26 34 30 36 43 32 0d 02 | 94 29 21 51 25 3d 9f 3a |&406C2..|.)!Q%=.:|
|000004e0| 24 28 51 25 2b 34 29 3d | f6 24 2b 22 20 28 20 63 |$(Q%+4)=|.$+" ( c|
|000004f0| 6f 64 65 20 22 2b c3 9e | 2b 22 29 22 2b bd 30 0d |ode "+..|+")"+.0.|
|00000500| 02 9e 1e c8 99 20 26 34 | 30 30 44 46 2c 51 25 2c |..... &4|00DF,Q%,|
|00000510| 33 2c 70 72 6f 67 24 20 | b8 20 2c 72 25 0d 02 a8 |3,prog$ |. ,r%...|
|00000520| 11 e7 20 72 25 3d 32 20 | f2 63 6c 6f 73 65 0d 02 |.. r%=2 |.close..|
|00000530| b2 09 3d 72 25 3d 32 0d | 02 bc 05 3a 0d 02 c6 25 |..=r%=2.|...:...%|
|00000540| dd a4 73 74 72 69 6e 67 | 28 6c 25 29 3a c8 99 20 |..string|(l%):.. |
|00000550| 26 34 36 2c 6c 25 2c 30 | 20 b8 20 64 24 3a 3d 64 |&46,l%,0| . d$:=d|
|00000560| 24 0d 02 d0 05 3a 0d 02 | da 11 dd f2 65 72 72 6d |$....:..|....errm|
|00000570| 65 73 73 28 65 25 29 0d | 02 e4 0c e7 20 65 25 3d |ess(e%).|.... e%=|
|00000580| 30 20 e1 0d 02 ee 2f 21 | 42 32 25 3d 30 3a c8 99 |0 ..../!|B2%=0:..|
|00000590| 20 26 34 31 35 30 32 2c | 6d 65 73 73 66 25 2c 22 | &41502,|messf%,"|
|000005a0| 65 72 72 22 2b c3 65 25 | 2c 42 32 25 2b 34 2c 32 |err"+.e%|,B2%+4,2|
|000005b0| 35 30 0d 02 f8 19 c8 99 | 20 26 34 30 30 44 46 2c |50......| &400DF,|
|000005c0| 42 32 25 2c 31 2c 70 72 | 6f 67 24 0d 03 02 0a 65 |B2%,1,pr|og$....e|
|000005d0| 72 72 25 3d b9 0d 03 0c | 05 e1 0d 03 16 05 3a 0d |rr%=....|......:.|
|000005e0| 03 20 35 dd a4 67 65 74 | 6e 75 6d 62 65 72 28 77 |. 5..get|number(w|
|000005f0| 25 2c 67 25 29 3a c8 99 | 20 26 34 34 65 63 36 2c |%,g%):..| &44ec6,|
|00000600| 30 2c 77 25 2c 38 33 33 | 2c 67 25 20 b8 20 73 25 |0,w%,833|,g% . s%|
|00000610| 3a 3d 73 25 0d 03 2a 3d | dd a4 72 65 61 64 77 68 |:=s%..*=|..readwh|
|00000620| 69 63 68 72 61 64 69 6f | 28 77 25 2c 67 25 29 3a |ichradio|(w%,g%):|
|00000630| c8 99 20 26 34 34 65 63 | 36 2c 30 2c 77 25 2c 33 |.. &44ec|6,0,w%,3|
|00000640| 38 39 2c 67 25 20 b8 20 | 2c 73 69 25 3a 3d 73 69 |89,g% . |,si%:=si|
|00000650| 25 0d 03 34 05 3a 0d 03 | 3e 10 dd f2 73 65 74 28 |%..4.:..|>...set(|
|00000660| 67 25 2c 76 24 29 0d 03 | 48 22 c8 99 20 26 34 34 |g%,v$)..|H".. &44|
|00000670| 65 63 36 2c 30 2c 77 69 | 6e 69 64 25 2c 37 30 2c |ec6,0,wi|nid%,70,|
|00000680| 67 25 20 b8 20 74 67 25 | 0d 03 52 0c c8 8e 20 74 |g% . tg%|..R... t|
|00000690| 67 25 20 ca 0d 03 5c 10 | 20 20 c9 20 34 34 38 2c |g% ...\.|  . 448,|
|000006a0| 35 31 32 3a 0d 03 66 13 | 20 20 c9 20 39 36 30 3a |512:..f.|  . 960:|
|000006b0| 74 67 25 3d 39 36 32 0d | 03 70 05 7f 0d 03 7a 07 |tg%=962.|.p....z.|
|000006c0| 20 20 e1 0d 03 84 05 cb | 0d 03 8e 20 c8 99 20 26 |  ......|... .. &|
|000006d0| 34 34 65 63 36 2c 30 2c | 77 69 6e 69 64 25 2c 74 |44ec6,0,|winid%,t|
|000006e0| 67 25 2c 67 25 2c 76 24 | 0d 03 98 05 e1 0d 03 a2 |g%,g%,v$|........|
|000006f0| 05 3a 0d 03 ac 11 dd a4 | 72 65 61 64 28 77 25 2c |.:......|read(w%,|
|00000700| 67 25 29 0d 03 b6 1e c8 | 99 20 26 34 34 65 63 36 |g%).....|. &44ec6|
|00000710| 2c 30 2c 77 25 2c 37 30 | 2c 67 25 20 b8 20 74 67 |,0,w%,70|,g% . tg|
|00000720| 25 0d 03 c0 0c c8 8e 20 | 74 67 25 20 ca 0d 03 ca |%...... |tg% ....|
|00000730| 15 20 c9 20 34 34 38 2c | 35 31 32 3a 74 67 25 2b |. . 448,|512:tg%+|
|00000740| 3d 31 0d 03 d4 12 20 c9 | 20 39 36 30 3a 74 67 25 |=1.... .| 960:tg%|
|00000750| 3d 39 36 33 0d 03 de 05 | 7f 0d 03 e8 0c 20 20 3a |=963....|.....  :|
|00000760| 3d 22 3f 3f 22 0d 03 f2 | 05 cb 0d 03 fc 2c c8 99 |="??"...|.....,..|
|00000770| 20 26 34 34 65 63 36 2c | 30 2c 77 25 2c 74 67 25 | &44ec6,|0,w%,tg%|
|00000780| 2c 67 25 2c 42 32 25 2c | 26 31 30 30 20 b8 20 2c |,g%,B2%,|&100 . ,|
|00000790| 2c 2c 2c 2c 6c 25 0d 04 | 06 17 f5 3a 6c 25 2d 3d |,,,,l%..|...:l%-=|
|000007a0| 31 3a fd 20 42 32 25 3f | 6c 25 3e 33 31 0d 04 10 |1:. B2%?|l%>31...|
|000007b0| 11 42 32 25 3f 28 6c 25 | 2b 31 29 3d 31 33 0d 04 |.B2%?(l%|+1)=13..|
|000007c0| 1a 14 e7 20 3f 42 32 25 | 3d 30 20 3f 42 32 25 3d |... ?B2%|=0 ?B2%=|
|000007d0| 31 33 0d 04 24 09 3d 24 | 42 32 25 0d 04 2e 05 3a |13..$.=$|B2%....:|
|000007e0| 0d 04 38 11 dd a4 6c 65 | 61 66 28 6e 61 6d 65 24 |..8...le|af(name$|
|000007f0| 29 0d 04 42 30 c8 95 20 | a7 6e 61 6d 65 24 2c 22 |)..B0.. |.name$,"|
|00000800| 2e 22 29 3a 6e 61 6d 65 | 24 3d c1 6e 61 6d 65 24 |."):name|$=.name$|
|00000810| 2c a7 6e 61 6d 65 24 2c | 22 2e 22 29 2b 31 29 3a |,.name$,|".")+1):|
|00000820| ce 0d 04 4c 0d 3d 6e 61 | 6d 65 24 2b bd 30 0d 04 |...L.=na|me$+.0..|
|00000830| 56 04 0d 04 60 0c dd f2 | 6d 79 76 61 72 73 0d 04 |V...`...|myvars..|
|00000840| 6a 0e 6c 65 6e 51 25 3d | 26 32 30 30 0d 04 74 34 |j.lenQ%=|&200..t4|
|00000850| de 20 51 25 20 6c 65 6e | 51 25 2c 57 6d 65 73 73 |. Q% len|Q%,Wmess|
|00000860| 25 20 31 32 2c 54 6d 65 | 73 73 25 20 34 2c 54 62 |% 12,Tme|ss% 4,Tb|
|00000870| 6c 6b 25 20 32 34 2c 6d | 65 73 73 66 25 20 31 36 |lk% 24,m|essf% 16|
|00000880| 0d 04 7e 39 42 32 25 3d | 51 25 2b 26 31 30 30 3a |..~9B2%=|Q%+&100:|
|00000890| 21 57 6d 65 73 73 25 3d | 32 3a 57 6d 65 73 73 25 |!Wmess%=|2:Wmess%|
|000008a0| 21 34 3d 33 3a 57 6d 65 | 73 73 25 21 38 3d 30 3a |!4=3:Wme|ss%!8=0:|
|000008b0| 21 54 6d 65 73 73 25 3d | 30 0d 04 88 1b 71 75 69 |!Tmess%=|0....qui|
|000008c0| 74 25 3d a3 3a 70 72 6f | 67 24 3d 22 21 54 6f 4a |t%=.:pro|g$="!ToJ|
|000008d0| 50 45 47 22 0d 04 92 11 | 69 6e 24 3d 22 22 3a 65 |PEG"....|in$="":e|
|000008e0| 72 72 25 3d a3 0d 04 9c | 05 e1 0d 04 a6 05 3a 0d |rr%=....|......:.|
|000008f0| 04 b0 0e dd f2 64 61 74 | 61 73 61 76 65 0d 04 ba |.....dat|asave...|
|00000900| 1c 66 75 6c 6c 6e 61 6d | 65 24 3d a4 73 74 72 69 |.fullnam|e$=.stri|
|00000910| 6e 67 28 51 25 2b 34 34 | 29 0d 04 c4 20 e7 20 51 |ng(Q%+44|)... . Q|
|00000920| 25 3f 33 36 3e 2d 31 20 | f2 73 65 74 28 32 2c 66 |%?36>-1 |.set(2,f|
|00000930| 75 6c 6c 6e 61 6d 65 24 | 29 0d 04 ce 1e 51 25 21 |ullname$|)....Q%!|
|00000940| 31 32 3d 51 25 21 38 3a | 51 25 21 31 36 3d 33 3a |12=Q%!8:|Q%!16=3:|
|00000950| 21 51 25 3d 32 35 36 0d | 04 d8 1f c8 99 20 26 34 |!Q%=256.|..... &4|
|00000960| 30 30 45 37 2c 31 38 2c | 51 25 2c 51 25 21 32 30 |00E7,18,|Q%,Q%!20|
|00000970| 2c 51 25 21 32 34 0d 04 | e2 05 e1 0d 04 ec 05 3a |,Q%!24..|.......:|
|00000980| 0d 04 f6 12 dd a4 67 65 | 74 70 61 74 68 28 69 6e |......ge|tpath(in|
|00000990| 24 29 0d 05 00 16 70 24 | 3d 22 22 3a 69 25 3d a7 |$)....p$|="":i%=.|
|000009a0| 69 6e 24 2c 22 2e 22 29 | 0d 05 0a 36 c8 95 20 69 |in$,".")|...6.. i|
|000009b0| 25 3e 30 3a 70 24 2b 3d | c0 69 6e 24 2c 69 25 29 |%>0:p$+=|.in$,i%)|
|000009c0| 3a 69 6e 24 3d c1 69 6e | 24 2c 69 25 2b 31 29 3a |:in$=.in|$,i%+1):|
|000009d0| 69 25 3d a7 69 6e 24 2c | 22 2e 22 29 3a ce 0d 05 |i%=.in$,|"."):...|
|000009e0| 14 09 3d c0 70 24 29 0d | 05 1e 05 3a 0d 05 28 0d |..=.p$).|...:..(.|
|000009f0| dd f2 6c 6f 61 64 61 63 | 6b 0d 05 32 0e 51 25 21 |..loadac|k..2.Q%!|
|00000a00| 31 32 3d 51 25 21 38 0d | 05 3c 18 c8 99 20 26 34 |12=Q%!8.|.<... &4|
|00000a10| 30 30 45 37 2c 31 37 2c | 51 25 2c 51 25 21 34 0d |00E7,17,|Q%,Q%!4.|
|00000a20| 05 46 0f 74 79 70 65 25 | 3d 51 25 21 34 30 0d 05 |.F.type%|=Q%!40..|
|00000a30| 50 3e e7 20 74 79 70 65 | 25 3c 3e 26 36 39 64 20 |P>. type|%<>&69d |
|00000a40| 80 20 74 79 70 65 25 3c | 3e 26 36 39 65 20 80 20 |. type%<|>&69e . |
|00000a50| 74 79 70 65 25 3c 3e 26 | 31 30 30 30 20 80 20 74 |type%<>&|1000 . t|
|00000a60| 79 70 65 25 3c 3e 26 66 | 66 39 20 e1 0d 05 5a 16 |ype%<>&f|f9 ...Z.|
|00000a70| 69 6e 24 3d a4 73 74 72 | 69 6e 67 28 51 25 2b 34 |in$=.str|ing(Q%+4|
|00000a80| 34 29 0d 05 64 32 e7 20 | 74 79 70 65 25 3c 3e 26 |4)..d2. |type%<>&|
|00000a90| 31 30 30 30 20 70 61 74 | 68 24 3d a4 67 65 74 70 |1000 pat|h$=.getp|
|00000aa0| 61 74 68 28 69 6e 24 29 | 20 8b 20 70 61 74 68 24 |ath(in$)| . path$|
|00000ab0| 3d 69 6e 24 0d 05 6e 11 | f2 73 65 74 28 33 2c 70 |=in$..n.|.set(3,p|
|00000ac0| 61 74 68 24 29 0d 05 78 | 18 c8 99 20 26 34 34 65 |ath$)..x|... &44e|
|00000ad0| 63 33 2c 30 2c 77 69 6e | 69 64 25 2c 30 0d 05 82 |c3,0,win|id%,0...|
|00000ae0| 05 e1 0d 05 8c 05 3a 0d | 05 96 18 dd f2 63 6f 75 |......:.|.....cou|
|00000af0| 6e 74 28 72 6f 6f 74 24 | 2c 6e 61 6d 65 24 29 0d |nt(root$|,name$).|
|00000b00| 05 a0 0d ea 20 72 34 2c | 65 72 72 25 0d 05 aa 0f |.... r4,|err%....|
|00000b10| 65 72 72 25 3d a3 3a 72 | 34 3d 30 0d 05 b4 14 ff |err%=.:r|4=0.....|
|00000b20| 28 22 43 44 49 52 20 22 | 2b 6e 61 6d 65 24 29 0d |("CDIR "|+name$).|
|00000b30| 05 be 05 f5 0d 05 c8 31 | 20 20 c8 99 20 26 43 2c |.......1|  .. &C,|
|00000b40| 31 32 2c 72 6f 6f 74 24 | 2c 51 25 2c 31 2c 72 34 |12,root$|,Q%,1,r4|
|00000b50| 2c 6c 65 6e 51 25 2c 22 | 2a 22 20 b8 20 2c 2c 2c |,lenQ%,"|*" . ,,,|
|00000b60| 72 33 2c 72 34 0d 05 d2 | 0f 20 20 e7 20 72 33 3e |r3,r4...|.  . r3>|
|00000b70| 30 20 20 8c 0d 05 dc 18 | 20 20 20 64 24 3d a4 73 |0  .....|   d$=.s|
|00000b80| 74 72 69 6e 67 28 51 25 | 2b 32 34 29 0d 05 e6 0f |tring(Q%|+24)....|
|00000b90| 20 20 20 64 25 3d 51 25 | 21 32 30 0d 05 f0 0e 20 |   d%=Q%|!20.... |
|00000ba0| 20 20 c8 8e 20 64 25 20 | ca 0d 05 fa 25 20 20 20 |  .. d% |....%   |
|00000bb0| 20 c9 20 26 36 39 64 2c | 26 36 39 65 2c 26 66 66 | . &69d,|&69e,&ff|
|00000bc0| 39 2c 26 63 38 35 3a 6e | 75 6d 25 2b 3d 31 0d 06 |9,&c85:n|um%+=1..|
|00000bd0| 04 31 20 20 20 20 c9 20 | 26 31 30 30 30 3a f2 63 |.1    . |&1000:.c|
|00000be0| 6f 75 6e 74 28 72 6f 6f | 74 24 2b 22 2e 22 2b 64 |ount(roo|t$+"."+d|
|00000bf0| 24 2c 6e 61 6d 65 24 2b | 22 2e 22 2b 64 24 29 0d |$,name$+|"."+d$).|
|00000c00| 06 0e 08 20 20 20 cb 0d | 06 18 07 20 20 cd 0d 06 |...   ..|...  ...|
|00000c10| 22 11 fd 20 72 34 3c 30 | 20 84 20 65 72 72 25 0d |".. r4<0| . err%.|
|00000c20| 06 2c 05 e1 0d 06 36 05 | 3a 0d 06 40 18 dd f2 63 |.,....6.|:..@...c|
|00000c30| 68 65 63 6b 28 72 6f 6f | 74 24 2c 6e 61 6d 65 24 |heck(roo|t$,name$|
|00000c40| 29 0d 06 4a 1a e7 20 6e | 75 6d 25 3d 30 20 f2 65 |)..J.. n|um%=0 .e|
|00000c50| 72 72 6d 65 73 73 28 32 | 29 3a e1 0d 06 54 0d ea |rrmess(2|):...T..|
|00000c60| 20 72 34 2c 65 72 72 25 | 0d 06 5e 0f 65 72 72 25 | r4,err%|..^.err%|
|00000c70| 3d a3 3a 72 34 3d 30 0d | 06 68 05 f5 0d 06 72 31 |=.:r4=0.|.h....r1|
|00000c80| 20 20 c8 99 20 26 43 2c | 31 32 2c 72 6f 6f 74 24 |  .. &C,|12,root$|
|00000c90| 2c 51 25 2c 31 2c 72 34 | 2c 6c 65 6e 51 25 2c 22 |,Q%,1,r4|,lenQ%,"|
|00000ca0| 2a 22 20 b8 20 2c 2c 2c | 72 33 2c 72 34 0d 06 7c |*" . ,,,|r3,r4..||
|00000cb0| 0f 20 20 e7 20 72 33 3e | 30 20 20 8c 0d 06 86 18 |.  . r3>|0  .....|
|00000cc0| 20 20 20 64 24 3d a4 73 | 74 72 69 6e 67 28 51 25 |   d$=.s|tring(Q%|
|00000cd0| 2b 32 34 29 0d 06 90 15 | 20 20 20 64 25 3d 51 25 |+24)....|   d%=Q%|
|00000ce0| 21 32 30 3a 6f 6b 25 3d | b9 0d 06 9a 0e 20 20 20 |!20:ok%=|.....   |
|00000cf0| c8 8e 20 64 25 20 ca 0d | 06 a4 37 20 20 20 20 c9 |.. d% ..|..7    .|
|00000d00| 20 26 36 39 64 2c 26 66 | 66 39 2c 26 36 39 65 3a | &69d,&f|f9,&69e:|
|00000d10| 64 6f 6e 65 25 2b 3d 31 | 3a f2 63 68 67 66 73 69 |done%+=1|:.chgfsi|
|00000d20| 28 72 6f 6f 74 24 2c 64 | 24 2c 6f 32 24 29 0d 06 |(root$,d|$,o2$)..|
|00000d30| ae 2d 20 20 20 20 c9 20 | 26 63 38 35 3a 64 6f 6e |.-    . |&c85:don|
|00000d40| 65 25 2b 3d 31 3a f2 63 | 68 67 66 73 69 28 72 6f |e%+=1:.c|hgfsi(ro|
|00000d50| 6f 74 24 2c 64 24 2c 6f | 33 24 29 0d 06 b8 31 20 |ot$,d$,o|3$)...1 |
|00000d60| 20 20 20 c9 20 26 31 30 | 30 30 3a f2 63 68 65 63 |   . &10|00:.chec|
|00000d70| 6b 28 72 6f 6f 74 24 2b | 22 2e 22 2b 64 24 2c 6e |k(root$+|"."+d$,n|
|00000d80| 61 6d 65 24 2b 22 2e 22 | 2b 64 24 29 0d 06 c2 08 |ame$+"."|+d$)....|
|00000d90| 20 20 20 cb 0d 06 cc 1e | 20 20 20 c8 99 20 26 34 |   .....|   .. &4|
|00000da0| 30 36 63 34 2c 39 35 2a | 64 6f 6e 65 25 2f 6e 75 |06c4,95*|done%/nu|
|00000db0| 6d 25 0d 06 d6 07 20 20 | cd 0d 06 e0 11 fd 20 72 |m%....  |...... r|
|00000dc0| 34 3c 30 20 84 20 65 72 | 72 25 0d 06 ea 05 e1 0d |4<0 . er|r%......|
|00000dd0| 06 f4 05 3a 0d 06 fe 0c | dd f2 73 61 76 65 69 74 |...:....|..saveit|
|00000de0| 0d 07 08 0a 65 72 72 25 | 3d a3 0d 07 12 17 69 6e |....err%|=.....in|
|00000df0| 24 3d a4 72 65 61 64 28 | 77 69 6e 69 64 25 2c 33 |$=.read(|winid%,3|
|00000e00| 29 0d 07 1c 1a e7 20 69 | 6e 24 3d 22 22 20 f2 65 |)..... i|n$="" .e|
|00000e10| 72 72 6d 65 73 73 28 31 | 29 3a e1 0d 07 26 19 6e |rrmess(1|):...&.n|
|00000e20| 61 6d 65 24 3d a4 72 65 | 61 64 28 77 69 6e 69 64 |ame$=.re|ad(winid|
|00000e30| 25 2c 32 29 0d 07 30 1c | e7 20 6e 61 6d 65 24 3d |%,2)..0.|. name$=|
|00000e40| 22 22 20 f2 65 72 72 6d | 65 73 73 28 38 29 3a e1 |"" .errm|ess(8):.|
|00000e50| 0d 07 3a 21 e7 20 a7 6e | 61 6d 65 24 2c 22 2e 22 |..:!. .n|ame$,"."|
|00000e60| 29 3c 31 20 f2 65 72 72 | 6d 65 73 73 28 37 29 3a |)<1 .err|mess(7):|
|00000e70| e1 0d 07 44 0c e7 20 65 | 72 72 25 20 e1 0d 07 4e |...D.. e|rr% ...N|
|00000e80| 25 6d 6f 6e 6f 25 3d 37 | 2d a4 72 65 61 64 77 68 |%mono%=7|-.readwh|
|00000e90| 69 63 68 72 61 64 69 6f | 28 77 69 6e 69 64 25 2c |ichradio|(winid%,|
|00000ea0| 37 29 0d 07 58 1e 71 75 | 61 6c 25 3d a4 67 65 74 |7)..X.qu|al%=.get|
|00000eb0| 6e 75 6d 62 65 72 28 77 | 69 6e 69 64 25 2c 36 29 |number(w|inid%,6)|
|00000ec0| 0d 07 62 24 6f 31 24 3d | 22 3c 43 68 61 6e 67 65 |..b$o1$=|"<Change|
|00000ed0| 66 73 69 24 44 69 72 3e | 2e 63 68 61 6e 67 65 66 |fsi$Dir>|.changef|
|00000ee0| 73 69 20 22 0d 07 6c 23 | 6f 32 24 3d 22 20 4a 50 |si "..l#|o2$=" JP|
|00000ef0| 45 47 22 3a e7 20 6d 6f | 6e 6f 25 20 6f 32 24 2b |EG":. mo|no% o2$+|
|00000f00| 3d 22 4d 4f 4e 4f 22 0d | 07 76 1a 6f 32 24 2b 3d |="MONO".|.v.o2$+=|
|00000f10| c3 71 75 61 6c 25 2b 22 | 20 2d 6e 6f 6d 6f 64 65 |.qual%+"| -nomode|
|00000f20| 22 0d 07 80 1c 6f 33 24 | 3d 22 20 53 33 32 2c 39 |"....o3$|=" S32,9|
|00000f30| 30 2c 39 30 20 2d 6e 6f | 6d 6f 64 65 22 0d 07 8a |0,90 -no|mode"...|
|00000f40| 0d c8 99 20 26 34 30 36 | 43 30 0d 07 94 1e 6e 75 |... &406|C0....nu|
|00000f50| 6d 25 3d 30 3a f2 63 6f | 75 6e 74 28 70 61 74 68 |m%=0:.co|unt(path|
|00000f60| 24 2c 6e 61 6d 65 24 29 | 0d 07 9e 11 f4 53 59 53 |$,name$)|.....SYS|
|00000f70| 20 26 34 30 36 43 34 2c | 31 0d 07 a8 1f 64 6f 6e | &406C4,|1....don|
|00000f80| 65 25 3d 30 3a f2 63 68 | 65 63 6b 28 70 61 74 68 |e%=0:.ch|eck(path|
|00000f90| 24 2c 6e 61 6d 65 24 29 | 0d 07 b2 0d c8 99 20 26 |$,name$)|...... &|
|00000fa0| 34 30 36 43 31 0d 07 bc | 05 e1 0d 07 c6 04 0d 07 |406C1...|........|
|00000fb0| d0 17 dd f2 63 68 67 66 | 73 69 28 66 72 24 2c 64 |....chgf|si(fr$,d|
|00000fc0| 24 2c 6f 24 29 0d 07 da | 3e c8 99 20 22 57 69 6d |$,o$)...|>.. "Wim|
|00000fd0| 70 5f 53 74 61 72 74 54 | 61 73 6b 22 2c 6f 31 24 |p_StartT|ask",o1$|
|00000fe0| 2b 22 20 22 2b 66 72 24 | 2b 22 2e 22 2b 64 24 2b |+" "+fr$|+"."+d$+|
|00000ff0| 22 20 22 2b 6e 61 6d 65 | 24 2b 22 2e 22 2b 64 24 |" "+name|$+"."+d$|
|00001000| 2b 6f 24 0d 07 e4 05 e1 | 0d 07 ee 04 0d 07 f8 04 |+o$.....|........|
|00001010| 0d 08 02 04 0d 08 0c 04 | 0d 08 16 04 0d ff       |........|......  |
+--------+-------------------------+-------------------------+--------+--------+