/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / audio / p / stmodmake / !STModMake / !RUNIMAGE

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 11 f4 20 28 | 43 29 20 45 2e 53 70 69 |e..... (|C) E.Spi|
|00000020| 65 72 0d 00 1e 41 f4 20 | 49 6e 73 70 69 72 65 64 |er...A. |Inspired|
|00000030| 20 62 79 20 61 20 72 61 | 74 68 65 72 20 77 6f 72 | by a ra|ther wor|
|00000040| 72 69 6e 67 20 61 6d 6f | 75 6e 74 20 6f 66 20 66 |ring amo|unt of f|
|00000050| 72 65 65 20 48 44 20 73 | 70 61 63 65 20 28 31 32 |ree HD s|pace (12|
|00000060| 6b 29 21 0d 00 28 05 3a | 0d 00 32 36 ee 20 85 20 |k)!..(.:|..26. . |
|00000070| f6 3a f1 22 20 61 74 20 | 6c 69 6e 65 20 22 3b 9e |.:." at |line ";.|
|00000080| 3a c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 53 |:.. "Hou|rglass_S|
|00000090| 6d 61 73 68 22 3a d9 23 | 30 3a ef 36 3a e0 0d 00 |mash":.#|0:.6:...|
|000000a0| 3c 05 3a 0d 00 46 15 c8 | 99 20 22 48 6f 75 72 67 |<.:..F..|. "Hourg|
|000000b0| 6c 61 73 73 5f 4f 6e 22 | 0d 00 50 05 3a 0d 00 5a |lass_On"|..P.:..Z|
|000000c0| 1a 73 61 6d 70 6c 65 5f | 72 6f 6f 74 24 3d 22 73 |.sample_|root$="s|
|000000d0| 61 6d 70 6c 65 3a 22 0d | 00 64 05 3a 0d 00 6e 1b |ample:".|.d.:..n.|
|000000e0| 70 72 6f 67 5f 74 69 74 | 6c 65 24 3d 22 53 54 6d |prog_tit|le$="STm|
|000000f0| 6f 64 6d 61 6b 65 22 0d | 00 78 20 70 72 6f 67 5f |odmake".|.x prog_|
|00000100| 64 61 74 65 24 3d 22 31 | 2e 30 31 20 28 38 2d 41 |date$="1|.01 (8-A|
|00000110| 70 72 2d 39 32 29 22 0d | 00 82 1f 61 70 70 5f 70 |pr-92)".|...app_p|
|00000120| 61 74 68 24 3d 22 3c 53 | 54 6d 6f 64 6d 61 6b 65 |ath$="<S|Tmodmake|
|00000130| 24 44 69 72 3e 22 0d 00 | 8c 05 3a 0d 00 96 11 73 |$Dir>"..|..:....s|
|00000140| 70 6c 69 74 74 65 72 25 | 20 20 3d a3 0d 00 a0 15 |plitter%|  =.....|
|00000150| 73 61 6d 70 6c 65 5f 73 | 61 76 65 24 3d 22 24 2e |sample_s|ave$="$.|
|00000160| 22 0d 00 aa 1f 6c 65 66 | 74 6d 61 72 67 69 6e 25 |"....lef|tmargin%|
|00000170| 3d 38 3a 74 6f 70 6d 61 | 72 67 69 6e 25 3d 31 36 |=8:topma|rgin%=16|
|00000180| 0d 00 b4 1f 78 5f 73 70 | 61 63 69 6e 67 25 3d 31 |....x_sp|acing%=1|
|00000190| 36 3a 79 5f 73 70 61 63 | 69 6e 67 25 3d 34 34 0d |6:y_spac|ing%=44.|
|000001a0| 00 be 05 3a 0d 00 c8 11 | 69 6e 64 69 72 6c 65 6e |...:....|indirlen|
|000001b0| 25 3d 37 30 30 0d 00 d2 | 45 de 20 74 61 73 6b 69 |%=700...|E. taski|
|000001c0| 64 25 20 34 2c 71 25 20 | 31 30 30 30 2c 6d 65 6e |d% 4,q% |1000,men|
|000001d0| 75 62 75 66 25 20 32 35 | 36 2c 69 6e 64 69 72 25 |ubuf% 25|6,indir%|
|000001e0| 20 69 6e 64 69 72 6c 65 | 6e 25 3a 24 74 61 73 6b | indirle|n%:$task|
|000001f0| 69 64 25 3d 22 54 41 53 | 4b 22 0d 00 dc 44 c8 99 |id%="TAS|K"...D..|
|00000200| 20 22 57 69 6d 70 5f 49 | 6e 69 74 69 61 6c 69 73 | "Wimp_I|nitialis|
|00000210| 65 22 2c 32 30 30 2c 21 | 74 61 73 6b 69 64 25 2c |e",200,!|taskid%,|
|00000220| 70 72 6f 67 5f 74 69 74 | 6c 65 24 20 b8 20 76 65 |prog_tit|le$ . ve|
|00000230| 72 73 69 6f 6e 25 2c 74 | 61 73 6b 69 64 25 0d 00 |rsion%,t|askid%..|
|00000240| e6 05 3a 0d 00 f0 42 c8 | 99 20 22 58 4f 53 5f 52 |..:...B.|. "XOS_R|
|00000250| 65 61 64 56 61 72 56 61 | 6c 22 2c 22 53 54 6d 6f |eadVarVa|l","STmo|
|00000260| 64 6d 61 6b 65 24 6d 6f | 64 75 6c 65 74 79 70 65 |dmake$mo|duletype|
|00000270| 22 2c 71 25 2c 31 30 2c | 30 2c 30 20 b8 20 2c 2c |",q%,10,|0,0 . ,,|
|00000280| 74 65 6d 70 25 0d 00 fa | 2d e7 20 74 65 6d 70 25 |temp%...|-. temp%|
|00000290| 20 3c 3e 20 30 20 80 20 | a4 63 68 6b 68 65 78 28 | <> 0 . |.chkhex(|
|000002a0| a4 6d 65 6d 74 6f 73 74 | 72 28 71 25 2c 33 29 29 |.memtost|r(q%,3))|
|000002b0| 20 8c 0d 01 04 26 6d 6f | 64 75 6c 65 74 79 70 65 | ....&mo|duletype|
|000002c0| 25 3d a0 28 22 26 22 2b | a4 6d 65 6d 74 6f 73 74 |%=.("&"+|.memtost|
|000002d0| 72 28 71 25 2c 33 29 29 | 0d 01 0e 2a e7 20 6d 6f |r(q%,3))|...*. mo|
|000002e0| 64 75 6c 65 74 79 70 65 | 25 20 3d 20 30 20 8c 20 |duletype|% = 0 . |
|000002f0| 6d 6f 64 75 6c 65 74 79 | 70 65 25 20 3d 20 26 36 |modulety|pe% = &6|
|00000300| 35 31 0d 01 18 05 cc 0d | 01 22 16 6d 6f 64 75 6c |51......|.".modul|
|00000310| 65 74 79 70 65 25 20 3d | 20 26 36 35 31 0d 01 2c |etype% =| &651..,|
|00000320| 05 cd 0d 01 36 05 3a 0d | 01 40 40 c8 99 20 22 58 |....6.:.|.@@.. "X|
|00000330| 4f 53 5f 52 65 61 64 56 | 61 72 56 61 6c 22 2c 22 |OS_ReadV|arVal","|
|00000340| 53 54 6d 6f 64 6d 61 6b | 65 24 73 6f 6e 67 74 79 |STmodmak|e$songty|
|00000350| 70 65 22 2c 71 25 2c 31 | 30 2c 30 2c 30 20 b8 20 |pe",q%,1|0,0,0 . |
|00000360| 2c 2c 74 65 6d 70 25 0d | 01 4a 2d e7 20 74 65 6d |,,temp%.|.J-. tem|
|00000370| 70 25 20 3c 3e 20 30 20 | 80 20 a4 63 68 6b 68 65 |p% <> 0 |. .chkhe|
|00000380| 78 28 a4 6d 65 6d 74 6f | 73 74 72 28 71 25 2c 33 |x(.memto|str(q%,3|
|00000390| 29 29 20 8c 0d 01 54 24 | 73 6f 6e 67 74 79 70 65 |)) ...T$|songtype|
|000003a0| 25 3d a0 28 22 26 22 2b | a4 6d 65 6d 74 6f 73 74 |%=.("&"+|.memtost|
|000003b0| 72 28 71 25 2c 33 29 29 | 0d 01 5e 26 e7 20 73 6f |r(q%,3))|..^&. so|
|000003c0| 6e 67 74 79 70 65 25 20 | 3d 20 30 20 8c 20 73 6f |ngtype% |= 0 . so|
|000003d0| 6e 67 74 79 70 65 25 20 | 3d 20 26 41 46 31 0d 01 |ngtype% |= &AF1..|
|000003e0| 68 05 cc 0d 01 72 14 73 | 6f 6e 67 74 79 70 65 25 |h....r.s|ongtype%|
|000003f0| 20 3d 20 26 41 46 31 0d | 01 7c 05 cd 0d 01 86 05 | = &AF1.|.|......|
|00000400| 3a 0d 01 90 1a ee 20 85 | 20 d9 23 30 3a f2 65 72 |:..... .| .#0:.er|
|00000410| 72 6f 72 62 6f 78 28 b9 | 29 3a e0 0d 01 9a 05 3a |rorbox(.|):.....:|
|00000420| 0d 01 a4 51 ff 20 22 52 | 4d 45 6e 73 75 72 65 20 |...Q. "R|MEnsure |
|00000430| 54 72 61 63 6b 65 72 4d | 6f 64 75 6c 65 20 30 20 |TrackerM|odule 0 |
|00000440| 45 72 72 6f 72 20 30 20 | 53 6f 75 6e 64 74 72 61 |Error 0 |Soundtra|
|00000450| 63 6b 65 72 20 70 6c 61 | 79 65 72 20 6d 6f 64 75 |cker pla|yer modu|
|00000460| 6c 65 20 6e 6f 74 20 69 | 6e 73 74 61 6c 6c 65 64 |le not i|nstalled|
|00000470| 22 0d 01 ae 05 3a 0d 01 | b8 29 c8 99 20 22 57 69 |"....:..|.).. "Wi|
|00000480| 6d 70 5f 53 6c 6f 74 53 | 69 7a 65 22 2c 2d 31 2c |mp_SlotS|ize",-1,|
|00000490| 2d 31 20 b8 20 73 74 61 | 72 74 73 6c 6f 74 25 0d |-1 . sta|rtslot%.|
|000004a0| 01 c2 1b 63 75 72 72 65 | 6e 74 73 6c 6f 74 25 3d |...curre|ntslot%=|
|000004b0| 73 74 61 72 74 73 6c 6f | 74 25 0d 01 cc 05 3a 0d |startslo|t%....:.|
|000004c0| 01 d6 10 f2 73 79 73 74 | 65 6d 5f 76 61 72 73 0d |....syst|em_vars.|
|000004d0| 01 e0 0e f2 70 72 6f 67 | 5f 69 6e 69 74 0d 01 ea |....prog|_init...|
|000004e0| 05 3a 0d 01 f4 16 ee 20 | 85 20 f2 65 72 72 6f 72 |.:..... |. .error|
|000004f0| 62 6f 78 28 b9 29 3a e0 | 0d 01 fe 05 3a 0d 02 08 |box(.):.|....:...|
|00000500| 0d 64 72 61 67 62 6f 78 | 3d a3 0d 02 12 1a de 20 |.dragbox|=...... |
|00000510| 63 75 72 72 65 6e 74 6c | 79 70 6c 61 79 69 6e 67 |currentl|yplaying|
|00000520| 25 20 31 35 0d 02 1c 22 | 24 63 75 72 72 65 6e 74 |% 15..."|$current|
|00000530| 6c 79 70 6c 61 79 69 6e | 67 25 3d 22 4e 6f 20 4d |lyplayin|g%="No M|
|00000540| 6f 64 75 6c 65 22 0d 02 | 26 3c 69 63 62 61 72 25 |odule"..|&<icbar%|
|00000550| 3d a4 69 63 6f 6e 62 61 | 72 28 22 21 53 54 6d 6f |=.iconba|r("!STmo|
|00000560| 64 6d 61 6b 65 22 2c 73 | 70 72 69 74 65 73 25 2c |dmake",s|prites%,|
|00000570| 63 75 72 72 65 6e 74 6c | 79 70 6c 61 79 69 6e 67 |currentl|yplaying|
|00000580| 25 29 0d 02 30 05 3a 0d | 02 3a 2f 69 63 62 61 72 |%)..0.:.|.:/icbar|
|00000590| 6d 65 6e 75 24 3d 22 3e | 49 6e 66 6f 2e 69 6e 66 |menu$=">|Info.inf|
|000005a0| 6f 25 2c 53 74 6f 70 2c | 53 70 6c 69 74 74 65 72 |o%,Stop,|Splitter|
|000005b0| 2c 51 75 69 74 22 0d 02 | 44 05 3a 0d 02 4e 16 c8 |,Quit"..|D.:..N..|
|000005c0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|000005d0| 22 0d 02 58 14 ee 20 85 | 20 f2 65 72 72 6f 72 62 |"..X.. .| .errorb|
|000005e0| 6f 78 28 a3 29 0d 02 62 | 05 3a 0d 02 6c 19 c8 99 |ox(.)..b|.:..l...|
|000005f0| 20 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c | "Wimp_D|ragBox",|
|00000600| 2c 2d 31 0d 02 76 05 f5 | 0d 02 80 1f c8 99 20 22 |,-1..v..|...... "|
|00000610| 57 69 6d 70 5f 50 6f 6c | 6c 22 2c 31 2c 71 25 20 |Wimp_Pol|l",1,q% |
|00000620| b8 20 70 6f 6c 6c 25 0d | 02 8a 0e c8 8e 20 70 6f |. poll%.|..... po|
|00000630| 6c 6c 25 20 ca 0d 02 94 | 09 c9 20 30 20 3a 0d 02 |ll% ....|.. 0 :..|
|00000640| 9e 1c c9 20 31 20 3a f2 | 72 65 64 72 61 77 5f 73 |... 1 :.|redraw_s|
|00000650| 65 72 76 69 63 65 28 71 | 25 29 0d 02 a8 42 c9 20 |ervice(q|%)...B. |
|00000660| 32 20 3a f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 |2 :.open|_window(|
|00000670| 21 71 25 2c 71 25 21 34 | 2c 71 25 21 38 2c 71 25 |!q%,q%!4|,q%!8,q%|
|00000680| 21 31 32 2c 71 25 21 31 | 36 2c 71 25 21 32 30 2c |!12,q%!1|6,q%!20,|
|00000690| 71 25 21 32 34 2c 71 25 | 21 32 38 29 0d 02 b2 1b |q%!24,q%|!28)....|
|000006a0| c9 20 33 20 3a f2 63 6c | 6f 73 65 5f 77 69 6e 64 |. 3 :.cl|ose_wind|
|000006b0| 6f 77 28 21 71 25 29 0d | 02 bc 11 e7 20 21 71 25 |ow(!q%).|.... !q%|
|000006c0| 3d 73 61 76 65 25 20 8c | 0d 02 c6 24 c8 99 20 22 |=save% .|...$.. "|
|000006d0| 57 69 6d 70 5f 53 6c 6f | 74 53 69 7a 65 22 2c 73 |Wimp_Slo|tSize",s|
|000006e0| 74 61 72 74 73 6c 6f 74 | 25 2c 2d 31 0d 02 d0 1b |tartslot|%,-1....|
|000006f0| 63 75 72 72 65 6e 74 73 | 6c 6f 74 25 3d 73 74 61 |currents|lot%=sta|
|00000700| 72 74 73 6c 6f 74 25 0d | 02 da 05 cd 0d 02 e4 09 |rtslot%.|........|
|00000710| c9 20 34 20 3a 0d 02 ee | 09 c9 20 35 20 3a 0d 02 |. 4 :...|.. 5 :..|
|00000720| f8 35 c9 20 36 20 3a f2 | 63 68 65 63 6b 6d 6f 75 |.5. 6 :.|checkmou|
|00000730| 73 65 28 21 71 25 2c 71 | 25 21 34 2c 71 25 21 38 |se(!q%,q|%!4,q%!8|
|00000740| 2c 71 25 21 31 32 2c 71 | 25 21 31 36 2c 71 25 21 |,q%!12,q|%!16,q%!|
|00000750| 32 30 29 0d 03 02 15 c9 | 20 37 20 3a f2 64 72 61 |20).....| 7 :.dra|
|00000760| 67 62 6f 78 28 71 25 29 | 0d 03 0c 09 c9 20 38 20 |gbox(q%)|..... 8 |
|00000770| 3a 0d 03 16 18 c9 20 39 | 20 3a f2 6d 65 6e 75 73 |:..... 9| :.menus|
|00000780| 65 6c 65 63 74 28 71 25 | 29 0d 03 20 18 c9 20 31 |elect(q%|).. .. 1|
|00000790| 37 2c 31 38 3a f2 72 65 | 63 65 69 76 65 28 71 25 |7,18:.re|ceive(q%|
|000007a0| 29 0d 03 2a 05 cb 0d 03 | 34 07 fd 20 a3 0d 03 3e |)..*....|4.. ...>|
|000007b0| 05 e0 0d 03 48 05 3a 0d | 03 52 12 dd 20 f2 72 65 |....H.:.|.R.. .re|
|000007c0| 63 65 69 76 65 28 71 25 | 29 0d 03 5c 0e c8 8e 20 |ceive(q%|)..\... |
|000007d0| 71 25 21 31 36 20 ca 0d | 03 66 16 c9 20 26 30 30 |q%!16 ..|.f.. &00|
|000007e0| 30 30 30 20 3a 20 f2 66 | 69 6e 69 73 68 0d 03 70 |000 : .f|inish..p|
|000007f0| 1c c9 20 31 20 20 20 20 | 20 20 3a 20 f2 64 61 74 |.. 1    |  : .dat|
|00000800| 61 73 61 76 65 28 71 25 | 29 0d 03 7a 1f c9 20 32 |asave(q%|)..z.. 2|
|00000810| 20 20 20 20 20 20 3a 20 | f2 64 61 74 61 73 61 76 |      : |.datasav|
|00000820| 65 61 63 6b 28 71 25 29 | 0d 03 84 22 c9 20 33 2c |eack(q%)|...". 3,|
|00000830| 35 20 20 20 20 3a 20 f2 | 64 61 74 61 6c 6f 61 64 |5    : .|dataload|
|00000840| 28 71 25 2c 71 25 21 31 | 36 29 0d 03 8e 1f c9 20 |(q%,q%!1|6)..... |
|00000850| 34 20 20 20 20 20 20 3a | 20 f2 64 61 74 61 6c 6f |4      :| .datalo|
|00000860| 61 64 61 63 6b 28 71 25 | 29 0d 03 98 74 c9 20 26 |adack(q%|)...t. &|
|00000870| 30 30 35 30 32 3a 20 e7 | 20 71 25 21 33 32 3d 2d |00502: .| q%!32=-|
|00000880| 32 20 8c 20 f2 73 65 6e | 64 5f 68 65 6c 70 28 71 |2 . .sen|d_help(q|
|00000890| 25 2c 22 54 68 69 73 20 | 69 73 20 74 68 65 20 53 |%,"This |is the S|
|000008a0| 54 6d 6f 64 6d 61 6b 65 | 72 20 69 63 6f 6e 2e 7c |Tmodmake|r icon.||
|000008b0| 4d 43 6c 69 63 6b 20 68 | 65 72 65 20 74 6f 20 6f |MClick h|ere to o|
|000008c0| 70 65 6e 20 74 68 65 20 | 6d 6f 64 75 6c 65 20 6c |pen the |module l|
|000008d0| 69 73 74 20 77 69 6e 64 | 6f 77 2e 22 29 0d 03 a2 |ist wind|ow.")...|
|000008e0| 35 c9 20 26 34 30 30 43 | 31 20 3a 20 21 71 25 3d |5. &400C|1 : !q%=|
|000008f0| 34 3a 71 25 21 34 3d 35 | 3a 71 25 21 38 3d 31 31 |4:q%!4=5|:q%!8=11|
|00000900| 3a 71 25 21 31 32 3d 31 | 32 3a 71 25 21 31 36 3d |:q%!12=1|2:q%!16=|
|00000910| 2d 31 0d 03 ac 25 c8 99 | 20 22 4f 53 5f 52 65 61 |-1...%..| "OS_Rea|
|00000920| 64 56 64 75 56 61 72 69 | 61 62 6c 65 73 22 2c 71 |dVduVari|ables",q|
|00000930| 25 2c 71 25 2b 32 30 0d | 03 b6 37 6d 61 78 5f 78 |%,q%+20.|..7max_x|
|00000940| 5f 73 63 72 25 3d 71 25 | 21 32 38 2b 31 3c 3c 71 |_scr%=q%|!28+1<<q|
|00000950| 25 21 32 30 3a 6d 61 78 | 5f 79 5f 73 63 72 25 3d |%!20:max|_y_scr%=|
|00000960| 71 25 21 33 32 2b 31 3c | 3c 71 25 21 32 34 0d 03 |q%!32+1<|<q%!24..|
|00000970| c0 05 cb 0d 03 ca 05 e1 | 0d 03 d4 05 3a 0d 03 de |........|....:...|
|00000980| 2d dd 20 f2 63 68 65 63 | 6b 6d 6f 75 73 65 28 78 |-. .chec|kmouse(x|
|00000990| 25 2c 79 25 2c 62 25 2c | 77 68 61 6e 64 25 2c 69 |%,y%,b%,|whand%,i|
|000009a0| 68 61 6e 64 25 2c 6f 62 | 25 29 0d 03 e8 0b ea 20 |hand%,ob|%)..... |
|000009b0| 69 74 65 6d 25 0d 03 f2 | 6b e7 20 77 68 61 6e 64 |item%...|k. whand|
|000009c0| 25 3d 2d 32 20 80 20 62 | 25 3d 32 20 8c 20 f2 64 |%=-2 . b|%=2 . .d|
|000009d0| 6f 6d 65 6e 75 28 31 2c | 6d 65 6e 75 62 75 66 25 |omenu(1,|menubuf%|
|000009e0| 2c 69 63 62 61 72 6d 65 | 6e 75 24 2c 70 72 6f 67 |,icbarme|nu$,prog|
|000009f0| 5f 74 69 74 6c 65 24 2c | 78 25 2d 36 34 2c 39 36 |_title$,|x%-64,96|
|00000a00| 2b 34 30 2a a4 63 6f 75 | 6e 74 69 74 65 6d 73 28 |+40*.cou|ntitems(|
|00000a10| 69 63 62 61 72 6d 65 6e | 75 24 2c 22 2c 22 29 29 |icbarmen|u$,","))|
|00000a20| 0d 03 fc 2e e7 20 77 68 | 61 6e 64 25 3d 2d 32 20 |..... wh|and%=-2 |
|00000a30| 80 20 62 25 3c 3e 32 20 | 8c 20 f2 66 72 6f 6e 74 |. b%<>2 |. .front|
|00000a40| 28 64 69 72 65 63 74 6f | 72 69 65 73 25 29 0d 04 |(directo|ries%)..|
|00000a50| 06 05 3a 0d 04 10 1b e7 | 20 77 68 61 6e 64 25 3d |..:.....| whand%=|
|00000a60| 64 69 72 65 63 74 6f 72 | 69 65 73 25 20 8c 0d 04 |director|ies% ...|
|00000a70| 1a 15 71 25 21 30 3d 64 | 69 72 65 63 74 6f 72 69 |..q%!0=d|irectori|
|00000a80| 65 73 25 0d 04 24 20 c8 | 99 20 22 57 69 6d 70 5f |es%..$ .|. "Wimp_|
|00000a90| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00000aa0| 2c 71 25 0d 04 2e 41 53 | 74 61 72 74 58 25 3d 71 |,q%...AS|tartX%=q|
|00000ab0| 25 21 34 2b 6c 65 66 74 | 6d 61 72 67 69 6e 25 2d |%!4+left|margin%-|
|00000ac0| 71 25 21 32 30 3a 53 74 | 61 72 74 59 25 3d 71 25 |q%!20:St|artY%=q%|
|00000ad0| 21 31 36 2d 74 6f 70 6d | 61 72 67 69 6e 25 2d 71 |!16-topm|argin%-q|
|00000ae0| 25 21 32 34 0d 04 38 2a | 6d 65 6e 75 73 61 6d 70 |%!24..8*|menusamp|
|00000af0| 6c 65 25 3d 2d 28 28 79 | 25 2d 53 74 61 72 74 59 |le%=-((y|%-StartY|
|00000b00| 25 29 2f 79 5f 73 70 61 | 63 69 6e 67 25 29 0d 04 |%)/y_spa|cing%)..|
|00000b10| 42 05 3a 0d 04 4c 24 e7 | 20 6d 65 6e 75 73 61 6d |B.:..L$.| menusam|
|00000b20| 70 6c 65 25 3c 6e 6f 6f | 66 64 69 72 65 63 74 6f |ple%<noo|fdirecto|
|00000b30| 72 69 65 73 25 20 8c 0d | 04 56 05 3a 0d 04 60 59 |ries% ..|.V.:..`Y|
|00000b40| e7 20 62 25 20 3d 20 32 | 20 8c 20 f2 64 6f 6d 65 |. b% = 2| . .dome|
|00000b50| 6e 75 28 32 2c 6d 65 6e | 75 62 75 66 25 2c 22 44 |nu(2,men|ubuf%,"D|
|00000b60| 65 6c 65 74 65 22 2c 22 | 27 22 2b a4 6c 65 61 66 |elete","|'"+.leaf|
|00000b70| 28 64 69 72 6e 61 6d 65 | 24 28 6d 65 6e 75 73 61 |(dirname|$(menusa|
|00000b80| 6d 70 6c 65 25 29 29 2b | 22 27 22 2c 78 25 2d 36 |mple%))+|"'",x%-6|
|00000b90| 34 2c 79 25 29 0d 04 6a | 05 3a 0d 04 74 0e e7 20 |4,y%)..j|.:..t.. |
|00000ba0| 62 25 20 3d 20 31 20 8c | 0d 04 7e 44 ff 20 22 53 |b% = 1 .|..~D. "S|
|00000bb0| 65 74 20 61 6c 69 61 73 | 24 53 54 6d 6f 64 6d 61 |et alias|$STmodma|
|00000bc0| 6b 65 4f 70 65 6e 20 46 | 69 6c 65 72 5f 4f 70 65 |keOpen F|iler_Ope|
|00000bd0| 6e 44 69 72 20 22 2b 64 | 69 72 6e 61 6d 65 24 28 |nDir "+d|irname$(|
|00000be0| 6d 65 6e 75 73 61 6d 70 | 6c 65 25 29 0d 04 88 15 |menusamp|le%)....|
|00000bf0| ff 20 22 53 54 6d 6f 64 | 6d 61 6b 65 4f 70 65 6e |. "STmod|makeOpen|
|00000c00| 22 0d 04 92 21 ff 20 22 | 55 6e 73 65 74 20 61 6c |"...!. "|Unset al|
|00000c10| 69 61 73 24 53 54 6d 6f | 64 6d 61 6b 65 4f 70 65 |ias$STmo|dmakeOpe|
|00000c20| 6e 22 0d 04 9c 05 cd 0d | 04 a6 05 3a 0d 04 b0 05 |n"......|...:....|
|00000c30| cc 0d 04 ba 3a e7 20 62 | 25 20 3d 20 32 20 8c 20 |....:. b|% = 2 . |
|00000c40| f2 64 6f 6d 65 6e 75 28 | 32 2c 6d 65 6e 75 62 75 |.domenu(|2,menubu|
|00000c50| 66 25 2c 22 3c 44 65 6c | 65 74 65 22 2c 22 27 27 |f%,"<Del|ete","''|
|00000c60| 22 2c 78 25 2d 36 34 2c | 79 25 29 0d 04 c4 05 cd |",x%-64,|y%).....|
|00000c70| 0d 04 ce 05 cd 0d 04 d8 | 05 3a 0d 04 e2 43 e7 20 |........|.:...C. |
|00000c80| 77 68 61 6e 64 25 3d 73 | 61 76 65 25 20 80 20 69 |whand%=s|ave% . i|
|00000c90| 68 61 6e 64 25 3d 32 20 | 80 20 62 25 3c 3e 32 20 |hand%=2 |. b%<>2 |
|00000ca0| 8c 20 f2 73 65 74 75 70 | 64 72 61 67 62 6f 78 28 |. .setup|dragbox(|
|00000cb0| 73 61 76 65 25 2c 69 68 | 61 6e 64 25 29 0d 04 ec |save%,ih|and%)...|
|00000cc0| 27 e7 20 77 68 61 6e 64 | 25 3d 73 61 76 65 25 20 |'. whand|%=save% |
|00000cd0| 80 20 69 68 61 6e 64 25 | 3d 31 20 80 20 62 25 3c |. ihand%|=1 . b%<|
|00000ce0| 3e 32 20 8c 0d 04 f6 24 | e7 20 24 66 69 6c 65 6e |>2 ....$|. $filen|
|00000cf0| 61 6d 65 25 3d a4 6c 65 | 61 66 28 24 66 69 6c 65 |ame%=.le|af($file|
|00000d00| 6e 61 6d 65 25 29 20 8c | 0d 05 00 3d f2 77 61 72 |name%) .|...=.war|
|00000d10| 6e 69 6e 67 28 22 54 6f | 20 73 61 76 65 2c 20 64 |ning("To| save, d|
|00000d20| 72 61 67 20 74 68 65 20 | 69 63 6f 6e 20 74 6f 20 |rag the |icon to |
|00000d30| 61 20 64 69 72 65 63 74 | 6f 72 79 20 76 69 65 77 |a direct|ory view|
|00000d40| 65 72 2e 22 29 0d 05 0a | 05 cc 0d 05 14 3c ff 20 |er.")...|.....<. |
|00000d50| 22 53 61 76 65 20 22 2b | 24 66 69 6c 65 6e 61 6d |"Save "+|$filenam|
|00000d60| 65 25 2b 22 20 22 2b c3 | 7e 6d 6f 64 75 6c 65 70 |e%+" "+.|~modulep|
|00000d70| 74 72 25 2b 22 20 22 2b | c3 7e 65 6e 64 6f 66 6d |tr%+" "+|.~endofm|
|00000d80| 6f 64 75 6c 65 25 0d 05 | 1e 2d ff 20 22 53 65 74 |odule%..|.-. "Set|
|00000d90| 54 79 70 65 20 22 2b 24 | 66 69 6c 65 6e 61 6d 65 |Type "+$|filename|
|00000da0| 25 2b 22 20 22 2b c3 7e | 28 73 61 76 65 74 79 70 |%+" "+.~|(savetyp|
|00000db0| 65 25 29 0d 05 28 18 f2 | 63 6c 6f 73 65 5f 77 69 |e%)..(..|close_wi|
|00000dc0| 6e 64 6f 77 28 73 61 76 | 65 25 29 0d 05 32 05 cd |ndow(sav|e%)..2..|
|00000dd0| 0d 05 3c 05 cd 0d 05 46 | 27 e7 20 77 68 61 6e 64 |..<....F|'. whand|
|00000de0| 25 3d 73 61 76 65 25 20 | 80 20 69 68 61 6e 64 25 |%=save% |. ihand%|
|00000df0| 3d 33 20 80 20 62 25 3c | 3e 32 20 8c 0d 05 50 10 |=3 . b%<|>2 ...P.|
|00000e00| ff 20 22 50 6c 61 79 53 | 74 6f 70 22 0d 05 5a 3a |. "PlayS|top"..Z:|
|00000e10| ff 20 22 53 61 76 65 20 | 3c 57 69 6d 70 24 53 63 |. "Save |<Wimp$Sc|
|00000e20| 72 61 70 3e 20 22 2b c3 | 7e 6d 6f 64 75 6c 65 70 |rap> "+.|~modulep|
|00000e30| 74 72 25 2b 22 20 22 2b | c3 7e 65 6e 64 6f 66 6d |tr%+" "+|.~endofm|
|00000e40| 6f 64 75 6c 65 25 0d 05 | 64 1c ff 20 22 50 6c 61 |odule%..|d.. "Pla|
|00000e50| 79 4d 6f 64 20 3c 57 69 | 6d 70 24 53 63 72 61 70 |yMod <Wi|mp$Scrap|
|00000e60| 3e 22 0d 05 6e 1b ff 20 | 22 44 65 6c 65 74 65 20 |>"..n.. |"Delete |
|00000e70| 3c 57 69 6d 70 24 53 63 | 72 61 70 3e 22 0d 05 78 |<Wimp$Sc|rap>"..x|
|00000e80| 18 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 73 |..close_|window(s|
|00000e90| 61 76 65 25 29 0d 05 82 | 24 c8 99 20 22 57 69 6d |ave%)...|$.. "Wim|
|00000ea0| 70 5f 53 6c 6f 74 53 69 | 7a 65 22 2c 73 74 61 72 |p_SlotSi|ze",star|
|00000eb0| 74 73 6c 6f 74 25 2c 2d | 31 0d 05 8c 1b 63 75 72 |tslot%,-|1....cur|
|00000ec0| 72 65 6e 74 73 6c 6f 74 | 25 3d 73 74 61 72 74 73 |rentslot|%=starts|
|00000ed0| 6c 6f 74 25 0d 05 96 1f | 24 63 75 72 72 65 6e 74 |lot%....|$current|
|00000ee0| 6c 79 70 6c 61 79 69 6e | 67 25 3d c4 31 30 2c 22 |lyplayin|g%=.10,"|
|00000ef0| 20 22 29 0d 05 a0 41 71 | 25 21 30 3d 2d 31 3a 71 | ")...Aq|%!0=-1:q|
|00000f00| 25 21 34 3d 69 63 62 61 | 72 25 3a 71 25 21 38 3d |%!4=icba|r%:q%!8=|
|00000f10| 30 3a 71 25 21 31 32 3d | 30 3a c8 99 20 22 57 69 |0:q%!12=|0:.. "Wi|
|00000f20| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00000f30| 2c 2c 71 25 0d 05 aa 27 | 24 63 75 72 72 65 6e 74 |,,q%...'|$current|
|00000f40| 6c 79 70 6c 61 79 69 6e | 67 25 3d a4 6c 65 61 66 |lyplayin|g%=.leaf|
|00000f50| 28 70 61 74 68 6e 61 6d | 65 24 29 0d 05 b4 41 71 |(pathnam|e$)...Aq|
|00000f60| 25 21 30 3d 2d 31 3a 71 | 25 21 34 3d 69 63 62 61 |%!0=-1:q|%!4=icba|
|00000f70| 72 25 3a 71 25 21 38 3d | 30 3a 71 25 21 31 32 3d |r%:q%!8=|0:q%!12=|
|00000f80| 30 3a c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |0:.. "Wi|mp_SetIc|
|00000f90| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 25 0d 05 be 05 |onState"|,,q%....|
|00000fa0| cd 0d 05 c8 05 e1 0d 05 | d2 05 3a 0d 05 dc 19 dd |........|..:.....|
|00000fb0| 20 f2 6d 65 6e 75 73 65 | 6c 65 63 74 28 6d 65 6e | .menuse|lect(men|
|00000fc0| 75 73 25 29 0d 05 e6 12 | ea 20 61 2c 61 24 2c 6c |us%)....|. a,a$,l|
|00000fd0| 65 76 65 6c 31 24 0d 05 | f0 3d c8 99 20 22 57 69 |evel1$..|.=.. "Wi|
|00000fe0| 6d 70 5f 44 65 63 6f 64 | 65 4d 65 6e 75 22 2c 2c |mp_Decod|eMenu",,|
|00000ff0| 28 6d 65 6e 75 62 75 66 | 25 2b 34 29 2c 6d 65 6e |(menubuf|%+4),men|
|00001000| 75 73 25 2c c4 32 30 30 | 2c 22 20 22 29 b8 2c 2c |us%,.200|," ").,,|
|00001010| 2c 61 24 0d 05 fa 0f e7 | 20 61 24 3d 22 22 20 8c |,a$.....| a$="" .|
|00001020| 20 e1 0d 06 04 1a 6c 65 | 76 65 6c 31 24 3d a4 70 | .....le|vel1$=.p|
|00001030| 61 72 28 61 24 2c 22 2e | 22 2c 61 29 0d 06 0e 13 |ar(a$,".|",a)....|
|00001040| c8 8e 20 6d 65 6e 75 62 | 75 66 25 21 30 20 ca 0d |.. menub|uf%!0 ..|
|00001050| 06 18 07 c9 20 31 0d 06 | 22 20 e7 20 6c 65 76 65 |.... 1..|" . leve|
|00001060| 6c 31 24 3d 22 51 75 69 | 74 22 20 8c 20 f2 66 69 |l1$="Qui|t" . .fi|
|00001070| 6e 69 73 68 3a e0 0d 06 | 2c 16 e7 20 6c 65 76 65 |nish:...|,.. leve|
|00001080| 6c 31 24 3d 22 53 74 6f | 70 22 20 8c 0d 06 36 10 |l1$="Sto|p" ...6.|
|00001090| ff 20 22 50 6c 61 79 53 | 74 6f 70 22 0d 06 40 1f |. "PlayS|top"..@.|
|000010a0| 24 63 75 72 72 65 6e 74 | 6c 79 70 6c 61 79 69 6e |$current|lyplayin|
|000010b0| 67 25 3d c4 31 30 2c 22 | 20 22 29 0d 06 4a 41 71 |g%=.10,"| ")..JAq|
|000010c0| 25 21 30 3d 2d 31 3a 71 | 25 21 34 3d 69 63 62 61 |%!0=-1:q|%!4=icba|
|000010d0| 72 25 3a 71 25 21 38 3d | 30 3a 71 25 21 31 32 3d |r%:q%!8=|0:q%!12=|
|000010e0| 30 3a c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |0:.. "Wi|mp_SetIc|
|000010f0| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 25 0d 06 54 22 |onState"|,,q%..T"|
|00001100| 24 63 75 72 72 65 6e 74 | 6c 79 70 6c 61 79 69 6e |$current|lyplayin|
|00001110| 67 25 3d 22 4e 6f 20 4d | 6f 64 75 6c 65 22 0d 06 |g%="No M|odule"..|
|00001120| 5e 41 71 25 21 30 3d 2d | 31 3a 71 25 21 34 3d 69 |^Aq%!0=-|1:q%!4=i|
|00001130| 63 62 61 72 25 3a 71 25 | 21 38 3d 30 3a 71 25 21 |cbar%:q%|!8=0:q%!|
|00001140| 31 32 3d 30 3a c8 99 20 | 22 57 69 6d 70 5f 53 65 |12=0:.. |"Wimp_Se|
|00001150| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00001160| 06 68 05 cd 0d 06 72 1a | e7 20 6c 65 76 65 6c 31 |.h....r.|. level1|
|00001170| 24 3d 22 53 70 6c 69 74 | 74 65 72 22 20 8c 0d 06 |$="Split|ter" ...|
|00001180| 7c 18 73 70 6c 69 74 74 | 65 72 25 3d ac 73 70 6c ||.splitt|er%=.spl|
|00001190| 69 74 74 65 72 25 0d 06 | 86 31 69 63 62 61 72 6d |itter%..|.1icbarm|
|000011a0| 65 6e 75 24 3d a4 74 6f | 67 67 6c 65 74 69 63 6b |enu$=.to|ggletick|
|000011b0| 28 69 63 62 61 72 6d 65 | 6e 75 24 2c 22 53 70 6c |(icbarme|nu$,"Spl|
|000011c0| 69 74 74 65 72 22 29 0d | 06 90 11 e7 20 73 70 6c |itter").|.... spl|
|000011d0| 69 74 74 65 72 25 20 8c | 0d 06 9a 10 ff 20 22 50 |itter% .|..... "P|
|000011e0| 6c 61 79 53 74 6f 70 22 | 0d 06 a4 1f 24 63 75 72 |layStop"|....$cur|
|000011f0| 72 65 6e 74 6c 79 70 6c | 61 79 69 6e 67 25 3d c4 |rentlypl|aying%=.|
|00001200| 31 30 2c 22 20 22 29 0d | 06 ae 41 71 25 21 30 3d |10," ").|..Aq%!0=|
|00001210| 2d 31 3a 71 25 21 34 3d | 69 63 62 61 72 25 3a 71 |-1:q%!4=|icbar%:q|
|00001220| 25 21 38 3d 30 3a 71 25 | 21 31 32 3d 30 3a c8 99 |%!8=0:q%|!12=0:..|
|00001230| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00001240| 61 74 65 22 2c 2c 71 25 | 0d 06 b8 21 24 63 75 72 |ate",,q%|...!$cur|
|00001250| 72 65 6e 74 6c 79 70 6c | 61 79 69 6e 67 25 3d 22 |rentlypl|aying%="|
|00001260| 53 70 6c 69 74 74 65 72 | 22 0d 06 c2 41 71 25 21 |Splitter|"...Aq%!|
|00001270| 30 3d 2d 31 3a 71 25 21 | 34 3d 69 63 62 61 72 25 |0=-1:q%!|4=icbar%|
|00001280| 3a 71 25 21 38 3d 30 3a | 71 25 21 31 32 3d 30 3a |:q%!8=0:|q%!12=0:|
|00001290| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|000012a0| 53 74 61 74 65 22 2c 2c | 71 25 0d 06 cc 18 f2 63 |State",,|q%.....c|
|000012b0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 73 61 76 65 |lose_win|dow(save|
|000012c0| 25 29 0d 06 d6 24 c8 99 | 20 22 57 69 6d 70 5f 53 |%)...$..| "Wimp_S|
|000012d0| 6c 6f 74 53 69 7a 65 22 | 2c 73 74 61 72 74 73 6c |lotSize"|,startsl|
|000012e0| 6f 74 25 2c 2d 31 0d 06 | e0 1b 63 75 72 72 65 6e |ot%,-1..|..curren|
|000012f0| 74 73 6c 6f 74 25 3d 73 | 74 61 72 74 73 6c 6f 74 |tslot%=s|tartslot|
|00001300| 25 0d 06 ea 05 cc 0d 06 | f4 1f 24 63 75 72 72 65 |%.......|..$curre|
|00001310| 6e 74 6c 79 70 6c 61 79 | 69 6e 67 25 3d c4 31 30 |ntlyplay|ing%=.10|
|00001320| 2c 22 20 22 29 0d 06 fe | 41 71 25 21 30 3d 2d 31 |," ")...|Aq%!0=-1|
|00001330| 3a 71 25 21 34 3d 69 63 | 62 61 72 25 3a 71 25 21 |:q%!4=ic|bar%:q%!|
|00001340| 38 3d 30 3a 71 25 21 31 | 32 3d 30 3a c8 99 20 22 |8=0:q%!1|2=0:.. "|
|00001350| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00001360| 65 22 2c 2c 71 25 0d 07 | 08 22 24 63 75 72 72 65 |e",,q%..|."$curre|
|00001370| 6e 74 6c 79 70 6c 61 79 | 69 6e 67 25 3d 22 4e 6f |ntlyplay|ing%="No|
|00001380| 20 4d 6f 64 75 6c 65 22 | 0d 07 12 41 71 25 21 30 | Module"|...Aq%!0|
|00001390| 3d 2d 31 3a 71 25 21 34 | 3d 69 63 62 61 72 25 3a |=-1:q%!4|=icbar%:|
|000013a0| 71 25 21 38 3d 30 3a 71 | 25 21 31 32 3d 30 3a c8 |q%!8=0:q|%!12=0:.|
|000013b0| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|000013c0| 74 61 74 65 22 2c 2c 71 | 25 0d 07 1c 05 cd 0d 07 |tate",,q|%.......|
|000013d0| 26 05 cd 0d 07 30 07 c9 | 20 32 0d 07 3a 37 e7 20 |&....0..| 2..:7. |
|000013e0| 6c 65 76 65 6c 31 24 3d | 22 44 65 6c 65 74 65 22 |level1$=|"Delete"|
|000013f0| 20 8c 20 f2 64 65 6c 65 | 74 65 73 61 6d 70 6c 65 | . .dele|tesample|
|00001400| 70 61 74 68 28 6d 65 6e | 75 73 61 6d 70 6c 65 25 |path(men|usample%|
|00001410| 29 0d 07 44 05 cb 0d 07 | 4e 0f f2 67 65 74 70 6f |)..D....|N..getpo|
|00001420| 69 6e 74 65 72 0d 07 58 | 59 e7 20 28 62 25 20 80 |inter..X|Y. (b% .|
|00001430| 20 31 29 3d 31 20 80 20 | 6d 65 6e 75 62 75 66 25 | 1)=1 . |menubuf%|
|00001440| 21 30 3d 31 20 8c 20 f2 | 64 6f 6d 65 6e 75 28 6d |!0=1 . .|domenu(m|
|00001450| 65 6e 75 62 75 66 25 21 | 30 2c 6d 65 6e 75 62 75 |enubuf%!|0,menubu|
|00001460| 66 25 2c 69 63 62 61 72 | 6d 65 6e 75 24 2c 70 72 |f%,icbar|menu$,pr|
|00001470| 6f 67 5f 74 69 74 6c 65 | 24 2c 30 2c 30 29 0d 07 |og_title|$,0,0)..|
|00001480| 62 05 e1 0d 07 6c 05 3a | 0d 07 76 10 dd 20 f2 70 |b....l.:|..v.. .p|
|00001490| 72 6f 67 5f 69 6e 69 74 | 0d 07 80 12 ea 20 68 61 |rog_init|..... ha|
|000014a0| 6e 64 6c 65 25 2c 6c 65 | 6e 25 0d 07 8a 05 3a 0d |ndle%,le|n%....:.|
|000014b0| 07 94 40 68 61 6e 64 6c | 65 25 3d 8e 20 28 61 70 |..@handl|e%=. (ap|
|000014c0| 70 5f 70 61 74 68 24 2b | 22 2e 53 70 72 69 74 65 |p_path$+|".Sprite|
|000014d0| 73 22 29 3a 6c 65 6e 25 | 3d a2 23 68 61 6e 64 6c |s"):len%|=.#handl|
|000014e0| 65 25 2b 31 36 3a d9 23 | 68 61 6e 64 6c 65 25 0d |e%+16:.#|handle%.|
|000014f0| 07 9e 13 de 20 73 70 72 | 69 74 65 73 25 20 6c 65 |.... spr|ites% le|
|00001500| 6e 25 0d 07 a8 20 21 73 | 70 72 69 74 65 73 25 3d |n%... !s|prites%=|
|00001510| 6c 65 6e 25 3a 73 70 72 | 69 74 65 73 25 21 38 3d |len%:spr|ites%!8=|
|00001520| 31 32 0d 07 b2 22 c8 99 | 20 22 4f 53 5f 53 70 72 |12..."..| "OS_Spr|
|00001530| 69 74 65 4f 70 22 2c 26 | 31 30 39 2c 73 70 72 69 |iteOp",&|109,spri|
|00001540| 74 65 73 25 0d 07 bc 37 | c8 99 20 22 4f 53 5f 53 |tes%...7|.. "OS_S|
|00001550| 70 72 69 74 65 4f 70 22 | 2c 26 31 30 41 2c 73 70 |priteOp"|,&10A,sp|
|00001560| 72 69 74 65 73 25 2c 61 | 70 70 5f 70 61 74 68 24 |rites%,a|pp_path$|
|00001570| 2b 22 2e 53 70 72 69 74 | 65 73 22 0d 07 c6 05 3a |+".Sprit|es"....:|
|00001580| 0d 07 d0 32 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...2.. "|Wimp_Ope|
|00001590| 6e 54 65 6d 70 6c 61 74 | 65 22 2c 2c 61 70 70 5f |nTemplat|e",,app_|
|000015a0| 70 61 74 68 24 2b 22 2e | 54 65 6d 70 6c 61 74 65 |path$+".|Template|
|000015b0| 73 22 0d 07 da 10 74 65 | 6d 70 25 3d 69 6e 64 69 |s"....te|mp%=indi|
|000015c0| 72 25 0d 07 e4 1e 69 6e | 64 69 72 65 6e 64 25 3d |r%....in|dirend%=|
|000015d0| 69 6e 64 69 72 25 2b 69 | 6e 64 69 72 6c 65 6e 25 |indir%+i|ndirlen%|
|000015e0| 0d 07 ee 44 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...D.. "|Wimp_Loa|
|000015f0| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 25 2c 74 |dTemplat|e",,q%,t|
|00001600| 65 6d 70 25 2c 69 6e 64 | 69 72 65 6e 64 25 2c 2d |emp%,ind|irend%,-|
|00001610| 31 2c 22 69 6e 66 6f 22 | 2c 30 20 b8 20 2c 2c 74 |1,"info"|,0 . ,,t|
|00001620| 65 6d 70 25 0d 07 f8 12 | 71 25 21 36 34 3d 73 70 |emp%....|q%!64=sp|
|00001630| 72 69 74 65 73 25 0d 08 | 02 26 c8 99 20 22 57 69 |rites%..|.&.. "Wi|
|00001640| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00001650| 2c 2c 71 25 20 b8 20 69 | 6e 66 6f 25 0d 08 0c 23 |,,q% . i|nfo%...#|
|00001660| 71 25 21 30 3d 69 6e 66 | 6f 25 3a 71 25 21 34 3d |q%!0=inf|o%:q%!4=|
|00001670| 34 3a c8 99 20 26 34 30 | 30 43 45 2c 2c 71 25 0d |4:.. &40|0CE,,q%.|
|00001680| 08 16 1a 24 28 21 28 71 | 25 2b 32 38 29 29 3d 70 |...$(!(q|%+28))=p|
|00001690| 72 6f 67 5f 64 61 74 65 | 24 0d 08 20 05 3a 0d 08 |rog_date|$.. .:..|
|000016a0| 2a 13 66 69 6c 65 6e 61 | 6d 65 25 3d 74 65 6d 70 |*.filena|me%=temp|
|000016b0| 25 0d 08 34 44 c8 99 20 | 22 57 69 6d 70 5f 4c 6f |%..4D.. |"Wimp_Lo|
|000016c0| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 71 25 2c |adTempla|te",,q%,|
|000016d0| 74 65 6d 70 25 2c 69 6e | 64 69 72 65 6e 64 25 2c |temp%,in|dirend%,|
|000016e0| 2d 31 2c 22 73 61 76 65 | 22 2c 30 20 b8 20 2c 2c |-1,"save|",0 . ,,|
|000016f0| 74 65 6d 70 25 0d 08 3e | 0b 71 25 21 36 34 3d 31 |temp%..>|.q%!64=1|
|00001700| 0d 08 48 26 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..H&.. "|Wimp_Cre|
|00001710| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 20 b8 |ateWindo|w",,q% .|
|00001720| 20 73 61 76 65 25 0d 08 | 52 05 3a 0d 08 5c 4b c8 | save%..|R.:..\K.|
|00001730| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|00001740| 6c 61 74 65 22 2c 2c 71 | 25 2c 74 65 6d 70 25 2c |late",,q|%,temp%,|
|00001750| 69 6e 64 69 72 65 6e 64 | 25 2c 2d 31 2c 22 64 69 |indirend|%,-1,"di|
|00001760| 72 65 63 74 6f 72 69 65 | 73 22 2c 30 20 b8 20 2c |rectorie|s",0 . ,|
|00001770| 2c 74 65 6d 70 25 0d 08 | 66 0b 71 25 21 36 34 3d |,temp%..|f.q%!64=|
|00001780| 31 0d 08 70 16 6d 69 6e | 65 78 74 65 6e 74 25 3d |1..p.min|extent%=|
|00001790| 71 25 21 38 30 2b 34 0d | 08 7a 18 64 69 72 77 69 |q%!80+4.|.z.dirwi|
|000017a0| 64 74 68 25 3d 6d 69 6e | 65 78 74 65 6e 74 25 0d |dth%=min|extent%.|
|000017b0| 08 84 0c 71 25 21 36 38 | 3d 31 30 0d 08 8e 2d c8 |...q%!68|=10...-.|
|000017c0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|000017d0| 6e 64 6f 77 22 2c 2c 71 | 25 20 b8 20 64 69 72 65 |ndow",,q|% . dire|
|000017e0| 63 74 6f 72 69 65 73 25 | 0d 08 98 05 3a 0d 08 a2 |ctories%|....:...|
|000017f0| 1b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |... "Wim|p_CloseT|
|00001800| 65 6d 70 6c 61 74 65 22 | 0d 08 ac 05 3a 0d 08 b6 |emplate"|....:...|
|00001810| 19 6d 79 72 65 66 25 3d | 2d 31 3a 64 72 61 67 62 |.myref%=|-1:dragb|
|00001820| 6f 78 25 3d 2d 31 0d 08 | c0 14 f2 72 65 61 64 64 |ox%=-1..|...readd|
|00001830| 69 72 65 63 74 6f 72 69 | 65 73 0d 08 ca 05 e1 0d |irectori|es......|
|00001840| 08 d4 05 3a 0d 08 de 12 | dd 20 f2 73 79 73 74 65 |...:....|. .syste|
|00001850| 6d 5f 76 61 72 73 0d 08 | e8 17 77 62 63 6f 6c 20 |m_vars..|..wbcol |
|00001860| 3d 26 31 3a 74 62 63 6f | 6c 20 3d 26 32 0d 08 f2 |=&1:tbco|l =&2...|
|00001870| 17 73 63 6f 20 20 20 3d | 26 33 3a 73 63 69 20 20 |.sco   =|&3:sci  |
|00001880| 20 3d 26 44 0d 08 fc 17 | 74 62 63 6f 6c 32 3d 26 | =&D....|tbcol2=&|
|00001890| 43 3a 6d 62 63 6f 6c 20 | 3d 26 30 0d 09 06 17 77 |C:mbcol |=&0....w|
|000018a0| 66 63 6f 6c 20 3d 26 37 | 3a 74 66 63 6f 6c 20 3d |fcol =&7|:tfcol =|
|000018b0| 26 37 0d 09 10 05 e1 0d | 09 1a 05 3a 0d 09 24 34 |&7......|...:..$4|
|000018c0| dd 20 f2 64 6f 6d 65 6e | 75 28 68 61 6e 64 6c 65 |. .domen|u(handle|
|000018d0| 25 2c 6d 65 6e 75 70 74 | 72 25 2c 6d 65 6e 75 24 |%,menupt|r%,menu$|
|000018e0| 2c 6d 65 6e 75 74 69 74 | 6c 65 24 2c 78 2c 79 29 |,menutit|le$,x,y)|
|000018f0| 0d 09 2e 12 ea 20 64 75 | 6d 6d 79 25 2c 6e 65 78 |..... du|mmy%,nex|
|00001900| 74 25 0d 09 38 14 6e 65 | 78 74 25 3d 6d 65 6e 75 |t%..8.ne|xt%=menu|
|00001910| 70 74 72 25 2b 34 0d 09 | 42 16 6d 65 6e 75 70 74 |ptr%+4..|B.menupt|
|00001920| 72 25 21 30 3d 68 61 6e | 64 6c 65 25 0d 09 4c 27 |r%!0=han|dle%..L'|
|00001930| 64 75 6d 6d 79 25 3d a4 | 63 5f 6d 28 6e 65 78 74 |dummy%=.|c_m(next|
|00001940| 25 2c 6d 65 6e 75 24 2c | 6d 65 6e 75 74 69 74 6c |%,menu$,|menutitl|
|00001950| 65 24 29 0d 09 56 24 c8 | 99 20 22 57 69 6d 70 5f |e$)..V$.|. "Wimp_|
|00001960| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 64 75 6d |CreateMe|nu",,dum|
|00001970| 6d 79 25 2c 78 2c 79 0d | 09 60 05 e1 0d 09 6a 05 |my%,x,y.|.`....j.|
|00001980| 3a 0d 09 74 25 dd 20 a4 | 63 5f 6d 28 6d 65 6e 75 |:..t%. .|c_m(menu|
|00001990| 70 74 72 25 2c 6d 65 6e | 75 24 2c 6d 65 6e 75 74 |ptr%,men|u$,menut|
|000019a0| 69 74 6c 65 24 29 0d 09 | 7e 18 ea 20 69 25 2c 63 |itle$)..|~.. i%,c|
|000019b0| 61 6c 6c 25 2c 69 74 65 | 6d 24 2c 77 2c 6c 0d 09 |all%,ite|m$,w,l..|
|000019c0| 88 12 63 61 6c 6c 25 3d | 6d 65 6e 75 70 74 72 25 |..call%=|menuptr%|
|000019d0| 0d 09 92 11 77 3d a9 6d | 65 6e 75 74 69 74 6c 65 |....w=.m|enutitle|
|000019e0| 24 0d 09 9c 0d 6e 65 78 | 74 25 2b 3d 35 32 0d 09 |$....nex|t%+=52..|
|000019f0| a6 11 e3 20 69 25 3d 30 | b8 a9 6d 65 6e 75 24 0d |... i%=0|..menu$.|
|00001a00| 09 b0 22 e7 20 c1 6d 65 | 6e 75 24 2c 69 25 2c 31 |..". .me|nu$,i%,1|
|00001a10| 29 3d 22 2c 22 20 8c 20 | 6e 65 78 74 25 2b 3d 32 |)="," . |next%+=2|
|00001a20| 34 0d 09 ba 05 ed 0d 09 | c4 08 69 25 3d 30 0d 09 |4.......|..i%=0..|
|00001a30| ce 12 6d 65 6e 75 70 74 | 72 25 21 32 30 3d 34 30 |..menupt|r%!20=40|
|00001a40| 0d 09 d8 18 24 6d 65 6e | 75 70 74 72 25 3d 6d 65 |....$men|uptr%=me|
|00001a50| 6e 75 74 69 74 6c 65 24 | 0d 09 e2 47 6d 65 6e 75 |nutitle$|...Gmenu|
|00001a60| 70 74 72 25 3f 31 32 3d | 74 66 63 6f 6c 3a 6d 65 |ptr%?12=|tfcol:me|
|00001a70| 6e 75 70 74 72 25 3f 31 | 33 3d 32 3a 6d 65 6e 75 |nuptr%?1|3=2:menu|
|00001a80| 70 74 72 25 3f 31 34 3d | 77 66 63 6f 6c 3a 6d 65 |ptr%?14=|wfcol:me|
|00001a90| 6e 75 70 74 72 25 3f 31 | 35 3d 6d 62 63 6f 6c 0d |nuptr%?1|5=mbcol.|
|00001aa0| 09 ec 11 6d 65 6e 75 70 | 74 72 25 21 32 34 3d 30 |...menup|tr%!24=0|
|00001ab0| 0d 09 f6 10 6d 65 6e 75 | 70 74 72 25 2b 3d 32 38 |....menu|ptr%+=28|
|00001ac0| 0d 0a 00 05 f5 0d 0a 0a | 1c 69 74 65 6d 24 3d a4 |........|.item$=.|
|00001ad0| 70 61 72 28 6d 65 6e 75 | 24 2c 22 2c 22 2c 69 25 |par(menu|$,",",i%|
|00001ae0| 29 0d 0a 14 28 6d 65 6e | 75 70 74 72 25 3d a4 6d |)...(men|uptr%=.m|
|00001af0| 65 6e 75 69 74 65 6d 28 | 6d 65 6e 75 70 74 72 25 |enuitem(|menuptr%|
|00001b00| 2c 69 74 65 6d 24 2c 6c | 29 0d 0a 1e 0f 77 3d a4 |,item$,l|)....w=.|
|00001b10| 6d 61 78 28 6c 2c 77 29 | 0d 0a 28 0e fd 20 69 74 |max(l,w)|..(.. it|
|00001b20| 65 6d 24 3d 22 22 0d 0a | 32 14 63 61 6c 6c 25 21 |em$=""..|2.call%!|
|00001b30| 31 36 3d 31 36 2a 77 2b | 31 32 0d 0a 3c 23 6d 65 |16=16*w+|12..<#me|
|00001b40| 6e 75 70 74 72 25 21 2d | 32 34 3d 28 6d 65 6e 75 |nuptr%!-|24=(menu|
|00001b50| 70 74 72 25 21 2d 32 34 | 29 84 26 38 30 0d 0a 46 |ptr%!-24|).&80..F|
|00001b60| 0a 3d 63 61 6c 6c 25 0d | 0a 50 05 3a 0d 0a 5a 1f |.=call%.|.P.:..Z.|
|00001b70| dd 20 a4 6d 65 6e 75 69 | 74 65 6d 28 70 74 72 25 |. .menui|tem(ptr%|
|00001b80| 2c 74 65 78 74 24 2c f8 | 20 6c 29 0d 0a 64 14 e7 |,text$,.| l)..d..|
|00001b90| 20 74 65 78 74 24 3d 22 | 22 20 3d 70 74 72 25 0d | text$="|" =ptr%.|
|00001ba0| 0a 6e 0f ea 20 61 2c 74 | 24 2c 74 65 78 74 0d 0a |.n.. a,t|$,text..|
|00001bb0| 78 0a 74 65 78 74 3d b9 | 0d 0a 82 07 61 3d 30 0d |x.text=.|....a=0.|
|00001bc0| 0a 8c 0b 21 70 74 72 25 | 3d 30 0d 0a 96 14 70 74 |...!ptr%|=0....pt|
|00001bd0| 72 25 21 38 3d 26 30 37 | 30 30 30 30 32 31 0d 0a |r%!8=&07|000021..|
|00001be0| a0 0d 70 74 72 25 21 34 | 3d 2d 31 0d 0a aa 32 e7 |..ptr%!4|=-1...2.|
|00001bf0| 20 c0 74 65 78 74 24 2c | 31 29 3d 22 3a 22 21 70 | .text$,|1)=":"!p|
|00001c00| 74 72 25 3d 21 70 74 72 | 25 20 84 20 32 3a 74 65 |tr%=!ptr|% . 2:te|
|00001c10| 78 74 24 3d c1 74 65 78 | 74 24 2c 32 29 0d 0a b4 |xt$=.tex|t$,2)...|
|00001c20| 37 e7 20 c0 74 65 78 74 | 24 2c 31 29 3d 22 3c 22 |7. .text|$,1)="<"|
|00001c30| 70 74 72 25 21 38 3d 70 | 74 72 25 21 38 20 84 20 |ptr%!8=p|tr%!8 . |
|00001c40| 32 5e 32 32 3a 74 65 78 | 74 24 3d c1 74 65 78 74 |2^22:tex|t$=.text|
|00001c50| 24 2c 32 29 0d 0a be 36 | e7 20 c0 74 65 78 74 24 |$,2)...6|. .text$|
|00001c60| 2c 31 29 3d 22 40 22 21 | 70 74 72 25 3d 21 6d 65 |,1)="@"!|ptr%=!me|
|00001c70| 6e 75 70 74 72 25 20 84 | 20 31 3a 74 65 78 74 24 |nuptr% .| 1:text$|
|00001c80| 3d c1 74 65 78 74 24 2c | 32 29 0d 0a c8 15 e7 20 |=.text$,|2)..... |
|00001c90| c0 74 65 78 74 24 2c 31 | 29 3d 22 60 22 20 8c 0d |.text$,1|)="`" ..|
|00001ca0| 0a d2 13 74 65 78 74 24 | 3d c1 74 65 78 74 24 2c |...text$|=.text$,|
|00001cb0| 32 29 0d 0a dc 14 70 74 | 72 25 21 38 3d 26 30 37 |2)....pt|r%!8=&07|
|00001cc0| 30 30 30 31 32 31 0d 0a | e6 13 21 70 74 72 25 3d |000121..|..!ptr%=|
|00001cd0| 21 70 74 72 25 20 84 20 | 34 0d 0a f0 18 74 24 3d |!ptr% . |4....t$=|
|00001ce0| a4 70 61 72 28 74 65 78 | 74 24 2c 22 2e 22 2c 61 |.par(tex|t$,".",a|
|00001cf0| 29 0d 0a fa 11 70 74 72 | 25 21 31 32 3d a0 28 74 |)....ptr|%!12=.(t|
|00001d00| 24 29 0d 0b 04 18 74 24 | 3d a4 70 61 72 28 74 65 |$)....t$|=.par(te|
|00001d10| 78 74 24 2c 22 2e 22 2c | 61 29 0d 0b 0e 11 70 74 |xt$,".",|a)....pt|
|00001d20| 72 25 21 31 36 3d a0 28 | 74 24 29 0d 0b 18 18 74 |r%!16=.(|t$)....t|
|00001d30| 24 3d a4 70 61 72 28 74 | 65 78 74 24 2c 22 2e 22 |$=.par(t|ext$,"."|
|00001d40| 2c 61 29 0d 0b 22 11 70 | 74 72 25 21 32 30 3d a0 |,a)..".p|tr%!20=.|
|00001d50| 28 74 24 29 0d 0b 2c 0a | 74 65 78 74 3d a3 0d 0b |(t$)..,.|text=...|
|00001d60| 36 0c 74 65 78 74 24 3d | 22 22 0d 0b 40 05 cd 0d |6.text$=|""..@...|
|00001d70| 0b 4a 15 e7 20 c0 74 65 | 78 74 24 2c 31 29 3d 22 |.J.. .te|xt$,1)="|
|00001d80| 3e 22 20 8c 0d 0b 54 13 | 74 65 78 74 24 3d c1 74 |>" ...T.|text$=.t|
|00001d90| 65 78 74 24 2c 32 29 0d | 0b 5e 18 74 24 3d a4 70 |ext$,2).|.^.t$=.p|
|00001da0| 61 72 28 74 65 78 74 24 | 2c 22 2e 22 2c 61 29 0d |ar(text$|,".",a).|
|00001db0| 0b 68 1f 70 74 72 25 21 | 34 3d a0 28 a4 70 61 72 |.h.ptr%!|4=.(.par|
|00001dc0| 28 74 65 78 74 24 2c 22 | 2e 22 2c 61 29 29 0d 0b |(text$,"|.",a))..|
|00001dd0| 72 0c 74 65 78 74 24 3d | 74 24 0d 0b 7c 05 cd 0d |r.text$=|t$..|...|
|00001de0| 0b 86 15 e7 20 c0 74 65 | 78 74 24 2c 31 29 3d 22 |.... .te|xt$,1)="|
|00001df0| 7e 22 20 8c 0d 0b 90 13 | 74 65 78 74 24 3d c1 74 |~" .....|text$=.t|
|00001e00| 65 78 74 24 2c 32 29 0d | 0b 9a 18 74 24 3d a4 70 |ext$,2).|...t$=.p|
|00001e10| 61 72 28 74 65 78 74 24 | 2c 22 2e 22 2c 61 29 0d |ar(text$|,".",a).|
|00001e20| 0b a4 50 70 74 72 25 21 | 34 3d a0 28 22 46 4e 63 |..Pptr%!|4=.("FNc|
|00001e30| 5f 6d 28 6e 65 78 74 25 | 2c 22 2b a4 70 61 72 28 |_m(next%|,"+.par(|
|00001e40| 74 65 78 74 24 2c 22 2e | 22 2c 61 29 2b 22 2c 22 |text$,".|",a)+","|
|00001e50| 2b bd 33 34 2b a4 70 61 | 72 28 74 65 78 74 24 2c |+.34+.pa|r(text$,|
|00001e60| 22 2e 22 2c 61 29 2b bd | 33 34 2b 22 29 22 29 0d |".",a)+.|34+")").|
|00001e70| 0b ae 0c 74 65 78 74 24 | 3d 74 24 0d 0b b8 05 cd |...text$|=t$.....|
|00001e80| 0d 0b c2 1d e7 20 74 65 | 78 74 20 8c 20 24 28 70 |..... te|xt . $(p|
|00001e90| 74 72 25 2b 31 32 29 3d | 74 65 78 74 24 0d 0b cc |tr%+12)=|text$...|
|00001ea0| 0c 6c 3d a9 74 65 78 74 | 24 0d 0b d6 0c 3d 70 74 |.l=.text|$....=pt|
|00001eb0| 72 25 2b 32 34 0d 0b e0 | 05 3a 0d 0b ea 16 dd 20 |r%+24...|.:..... |
|00001ec0| a4 70 61 72 28 61 24 2c | 73 24 2c f8 20 69 25 29 |.par(a$,|s$,. i%)|
|00001ed0| 0d 0b f4 09 ea 20 69 31 | 25 0d 0b fe 1e 69 31 25 |..... i1|%....i1%|
|00001ee0| 3d 69 25 2b 31 3a 69 25 | 3d a7 61 24 2b 73 24 2c |=i%+1:i%|=.a$+s$,|
|00001ef0| 73 24 2c 69 31 25 29 0d | 0c 08 14 3d c1 61 24 2c |s$,i1%).|...=.a$,|
|00001f00| 69 31 25 2c 69 25 2d 69 | 31 25 29 0d 0c 12 05 3a |i1%,i%-i|1%)....:|
|00001f10| 0d 0c 1c 1c dd 20 a4 63 | 6f 75 6e 74 69 74 65 6d |..... .c|ountitem|
|00001f20| 73 28 73 72 63 24 2c 74 | 67 74 24 29 0d 0c 26 19 |s(src$,t|gt$)..&.|
|00001f30| ea 20 61 2c 63 6f 75 6e | 74 3a 63 6f 75 6e 74 3d |. a,coun|t:count=|
|00001f40| 30 3a 61 3d 30 0d 0c 30 | 29 c8 95 20 a4 70 61 72 |0:a=0..0|).. .par|
|00001f50| 28 73 72 63 24 2c 74 67 | 74 24 2c 61 29 20 3c 3e |(src$,tg|t$,a) <>|
|00001f60| 20 22 22 3a 63 6f 75 6e | 74 2b 3d 31 3a ce 0d 0c | "":coun|t+=1:...|
|00001f70| 3a 0a 3d 63 6f 75 6e 74 | 0d 0c 44 05 3a 0d 0c 4e |:.=count|..D.:..N|
|00001f80| 12 dd 20 a4 74 69 63 6b | 28 6d 24 2c 6e 24 29 0d |.. .tick|(m$,n$).|
|00001f90| 0c 58 07 ea 20 61 0d 0c | 62 15 e7 20 a7 6d 24 2c |.X.. a..|b.. .m$,|
|00001fa0| 6e 24 29 3d 30 20 8c 20 | 3d 6d 24 0d 0c 6c 0d 61 |n$)=0 . |=m$..l.a|
|00001fb0| 3d a7 6d 24 2c 6e 24 29 | 0d 0c 76 1c e7 20 c1 6d |=.m$,n$)|..v.. .m|
|00001fc0| 24 2c 61 2d 31 2c 31 29 | 20 3d 20 22 40 22 20 8c |$,a-1,1)| = "@" .|
|00001fd0| 20 3d 6d 24 0d 0c 80 18 | 3d c0 6d 24 2c 61 2d 31 | =m$....|=.m$,a-1|
|00001fe0| 29 2b 22 40 22 2b c1 6d | 24 2c 61 29 0d 0c 8a 05 |)+"@"+.m|$,a)....|
|00001ff0| 3a 0d 0c 94 14 dd 20 a4 | 75 6e 74 69 63 6b 28 6d |:..... .|untick(m|
|00002000| 24 2c 6e 24 29 0d 0c 9e | 07 ea 20 61 0d 0c a8 15 |$,n$)...|.. a....|
|00002010| e7 20 a7 6d 24 2c 6e 24 | 29 3d 30 20 8c 20 3d 6d |. .m$,n$|)=0 . =m|
|00002020| 24 0d 0c b2 0d 61 3d a7 | 6d 24 2c 6e 24 29 0d 0c |$....a=.|m$,n$)..|
|00002030| bc 1d e7 20 c1 6d 24 2c | 61 2d 31 2c 31 29 20 3c |... .m$,|a-1,1) <|
|00002040| 3e 20 22 40 22 20 8c 20 | 3d 6d 24 0d 0c c6 14 3d |> "@" . |=m$....=|
|00002050| c0 6d 24 2c 61 2d 32 29 | 2b c1 6d 24 2c 61 29 0d |.m$,a-2)|+.m$,a).|
|00002060| 0c d0 05 3a 0d 0c da 18 | dd 20 a4 74 6f 67 67 6c |...:....|. .toggl|
|00002070| 65 74 69 63 6b 28 6d 24 | 2c 6e 24 29 0d 0c e4 0a |etick(m$|,n$)....|
|00002080| ea 20 61 2c 61 24 0d 0c | ee 15 e7 20 a7 6d 24 2c |. a,a$..|... .m$,|
|00002090| 6e 24 29 3d 30 20 8c 20 | 3d 6d 24 0d 0c f8 0d 61 |n$)=0 . |=m$....a|
|000020a0| 3d a7 6d 24 2c 6e 24 29 | 0d 0d 02 18 e7 20 c1 6d |=.m$,n$)|..... .m|
|000020b0| 24 2c 61 2d 31 2c 31 29 | 20 3d 20 22 40 22 20 8c |$,a-1,1)| = "@" .|
|000020c0| 0d 0d 0c 18 61 24 20 3d | 20 c0 6d 24 2c 61 2d 32 |....a$ =| .m$,a-2|
|000020d0| 29 2b c1 6d 24 2c 61 29 | 0d 0d 16 05 cc 0d 0d 20 |)+.m$,a)|....... |
|000020e0| 1c 61 24 20 3d 20 c0 6d | 24 2c 61 2d 31 29 2b 22 |.a$ = .m|$,a-1)+"|
|000020f0| 40 22 2b c1 6d 24 2c 61 | 29 0d 0d 2a 05 cd 0d 0d |@"+.m$,a|)..*....|
|00002100| 34 07 3d 61 24 0d 0d 3e | 05 3a 0d 0d 48 16 dd 20 |4.=a$..>|.:..H.. |
|00002110| a4 6f 6e 6c 79 74 69 63 | 6b 28 6d 24 2c 6e 24 29 |.onlytic|k(m$,n$)|
|00002120| 0d 0d 52 0a ea 20 61 2c | 62 24 0d 0d 5c 07 61 3d |..R.. a,|b$..\.a=|
|00002130| 30 0d 0d 66 15 62 24 3d | a4 70 61 72 28 6d 24 2c |0..f.b$=|.par(m$,|
|00002140| 22 2c 22 2c 61 29 0d 0d | 70 0d c8 95 20 62 24 3c |",",a)..|p... b$<|
|00002150| 3e 22 22 0d 0d 7a 1c e7 | 20 c0 62 24 2c 31 29 3d |>""..z..| .b$,1)=|
|00002160| 22 40 22 20 8c 20 62 24 | 3d c1 62 24 2c 32 29 0d |"@" . b$|=.b$,2).|
|00002170| 0d 84 15 6d 24 3d a4 75 | 6e 74 69 63 6b 28 6d 24 |...m$=.u|ntick(m$|
|00002180| 2c 62 24 29 0d 0d 8e 15 | 62 24 3d a4 70 61 72 28 |,b$)....|b$=.par(|
|00002190| 6d 24 2c 22 2c 22 2c 61 | 29 0d 0d 98 05 ce 0d 0d |m$,",",a|).......|
|000021a0| a2 11 3d a4 74 69 63 6b | 28 6d 24 2c 6e 24 29 0d |..=.tick|(m$,n$).|
|000021b0| 0d ac 05 3a 0d 0d b6 15 | dd 20 f2 66 72 6f 6e 74 |...:....|. .front|
|000021c0| 28 68 61 6e 64 6c 65 25 | 29 0d 0d c0 11 e7 68 61 |(handle%|).....ha|
|000021d0| 6e 64 6c 65 25 3d 2d 31 | 8c e1 0d 0d ca 12 f2 67 |ndle%=-1|.......g|
|000021e0| 65 74 77 28 68 61 6e 64 | 6c 65 25 29 0d 0d d4 36 |etw(hand|le%)...6|
|000021f0| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 68 61 6e |.open_wi|ndow(han|
|00002200| 64 6c 65 25 2c 78 30 25 | 2c 79 30 25 2c 78 31 25 |dle%,x0%|,y0%,x1%|
|00002210| 2c 79 31 25 2c 73 63 78 | 25 2c 73 63 79 25 2c 2d |,y1%,scx|%,scy%,-|
|00002220| 31 29 0d 0d de 05 e1 0d | 0d e8 05 3a 0d 0d f2 3e |1)......|...:...>|
|00002230| dd 20 f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 68 |. .open_|window(h|
|00002240| 61 6e 64 6c 65 25 2c 78 | 30 25 2c 79 30 25 2c 78 |andle%,x|0%,y0%,x|
|00002250| 31 25 2c 79 31 25 2c 73 | 63 78 25 2c 73 63 79 25 |1%,y1%,s|cx%,scy%|
|00002260| 2c 62 68 61 6e 64 6c 65 | 25 29 0d 0d fc 11 e7 68 |,bhandle|%).....h|
|00002270| 61 6e 64 6c 65 25 3d 2d | 31 8c e1 0d 0e 06 1f 71 |andle%=-|1......q|
|00002280| 25 21 30 3d 68 61 6e 64 | 6c 65 25 3a 71 25 21 32 |%!0=hand|le%:q%!2|
|00002290| 38 3d 62 68 61 6e 64 6c | 65 25 0d 0e 10 29 71 25 |8=bhandl|e%...)q%|
|000022a0| 21 34 3d 78 30 25 3a 71 | 25 21 38 3d 79 30 25 3a |!4=x0%:q|%!8=y0%:|
|000022b0| 71 25 21 31 32 3d 78 31 | 25 3a 71 25 21 31 36 3d |q%!12=x1|%:q%!16=|
|000022c0| 79 31 25 0d 0e 1a 19 71 | 25 21 32 30 3d 73 63 78 |y1%....q|%!20=scx|
|000022d0| 25 3a 71 25 21 32 34 3d | 73 63 79 25 0d 0e 24 1c |%:q%!24=|scy%..$.|
|000022e0| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|000022f0| 64 6f 77 22 2c 2c 71 25 | 0d 0e 2e 05 e1 0d 0e 38 |dow",,q%|.......8|
|00002300| 05 3a 0d 0e 42 1c dd 20 | f2 63 6c 6f 73 65 5f 77 |.:..B.. |.close_w|
|00002310| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 29 0d 0e |indow(ha|ndle%)..|
|00002320| 4c 0f 21 71 25 3d 68 61 | 6e 64 6c 65 25 0d 0e 56 |L.!q%=ha|ndle%..V|
|00002330| 1d c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |... "Wim|p_CloseW|
|00002340| 69 6e 64 6f 77 22 2c 2c | 71 25 0d 0e 60 05 e1 0d |indow",,|q%..`...|
|00002350| 0e 6a 05 3a 0d 0e 74 14 | dd 20 f2 67 65 74 77 28 |.j.:..t.|. .getw(|
|00002360| 68 61 6e 64 6c 65 25 29 | 0d 0e 7e 2b 21 71 25 3d |handle%)|..~+!q%=|
|00002370| 68 61 6e 64 6c 65 25 3a | c8 99 20 22 57 69 6d 70 |handle%:|.. "Wimp|
|00002380| 5f 47 65 74 57 69 6e 64 | 6f 77 49 6e 66 6f 22 2c |_GetWind|owInfo",|
|00002390| 2c 71 25 0d 0e 88 1f 78 | 30 25 3d 71 25 21 34 3a |,q%....x|0%=q%!4:|
|000023a0| 79 30 25 3d 71 25 21 38 | 3a 78 31 25 3d 71 25 21 |y0%=q%!8|:x1%=q%!|
|000023b0| 31 32 0d 0e 92 23 79 31 | 25 3d 71 25 21 31 36 3a |12...#y1|%=q%!16:|
|000023c0| 73 63 78 25 3d 71 25 21 | 32 30 3a 73 63 79 25 3d |scx%=q%!|20:scy%=|
|000023d0| 71 25 21 32 34 0d 0e 9c | 1d 62 78 25 3d 78 30 25 |q%!24...|.bx%=x0%|
|000023e0| 2d 73 63 78 25 3a 62 79 | 25 3d 79 31 25 2d 73 63 |-scx%:by|%=y1%-sc|
|000023f0| 79 25 0d 0e a6 1f 62 68 | 61 6e 64 6c 65 25 3d 71 |y%....bh|andle%=q|
|00002400| 25 21 32 38 3a 66 6c 61 | 67 73 25 3d 71 25 21 33 |%!28:fla|gs%=q%!3|
|00002410| 32 0d 0e b0 05 e1 0d 0e | ba 05 3a 0d 0e c4 11 dd |2.......|..:.....|
|00002420| 20 f2 67 65 74 70 6f 69 | 6e 74 65 72 0d 0e ce 20 | .getpoi|nter... |
|00002430| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00002440| 74 65 72 49 6e 66 6f 22 | 2c 2c 71 25 0d 0e d8 48 |terInfo"|,,q%...H|
|00002450| 6d 6f 75 73 65 78 25 3d | 21 71 25 3a 6d 6f 75 73 |mousex%=|!q%:mous|
|00002460| 65 79 25 3d 71 25 21 34 | 3a 62 25 3d 71 25 21 38 |ey%=q%!4|:b%=q%!8|
|00002470| 3a 68 61 6e 64 6c 65 25 | 3d 71 25 21 31 32 3a 69 |:handle%|=q%!12:i|
|00002480| 63 6f 6e 25 3d 71 25 21 | 31 36 3a 6f 62 25 3d 71 |con%=q%!|16:ob%=q|
|00002490| 25 21 32 30 0d 0e e2 05 | e1 0d 0e ec 05 3a 0d 0e |%!20....|.....:..|
|000024a0| f6 16 dd 20 f2 65 72 72 | 6f 72 62 6f 78 28 71 75 |... .err|orbox(qu|
|000024b0| 69 74 25 29 0d 0f 00 0d | ea 20 72 65 73 75 6c 74 |it%)....|. result|
|000024c0| 25 0d 0f 0a 2e c8 99 20 | 22 57 69 6d 70 5f 44 72 |%...... |"Wimp_Dr|
|000024d0| 61 67 42 6f 78 22 2c 2c | 2d 31 3a c8 99 20 22 48 |agBox",,|-1:.. "H|
|000024e0| 6f 75 72 67 6c 61 73 73 | 5f 53 6d 61 73 68 22 0d |ourglass|_Smash".|
|000024f0| 0f 14 24 c8 99 20 22 57 | 69 6d 70 5f 53 6c 6f 74 |..$.. "W|imp_Slot|
|00002500| 53 69 7a 65 22 2c 73 74 | 61 72 74 73 6c 6f 74 25 |Size",st|artslot%|
|00002510| 2c 2d 31 0d 0f 1e 1b 63 | 75 72 72 65 6e 74 73 6c |,-1....c|urrentsl|
|00002520| 6f 74 25 3d 73 74 61 72 | 74 73 6c 6f 74 25 0d 0f |ot%=star|tslot%..|
|00002530| 28 73 21 71 25 3d 9f 3a | 24 28 71 25 2b 34 29 3d |(s!q%=.:|$(q%+4)=|
|00002540| 22 2a 2a 2a 2a 2a 20 44 | 69 61 67 6e 6f 73 74 69 |"***** D|iagnosti|
|00002550| 63 20 52 65 70 6f 72 74 | 20 2a 2a 2a 2a 2a 20 22 |c Report| ***** "|
|00002560| 2b f6 24 2b 22 20 28 22 | 2b c3 9e 2b 22 29 22 2b |+.$+" ("|+..+")"+|
|00002570| 22 20 4f 6b 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 |" Ok to |continue|
|00002580| 2c 20 43 61 6e 63 65 6c | 20 74 6f 20 6b 69 6c 6c |, Cancel| to kill|
|00002590| 20 22 2b 70 72 6f 67 5f | 74 69 74 6c 65 24 2b bd | "+prog_|title$+.|
|000025a0| 30 0d 0f 32 21 e7 20 71 | 75 69 74 25 20 8c 20 71 |0..2!. q|uit% . q|
|000025b0| 75 69 74 25 3d 32 20 8b | 20 71 75 69 74 25 20 3d |uit%=2 .| quit% =|
|000025c0| 20 33 0d 0f 3c 3c c8 99 | 20 22 57 69 6d 70 5f 52 | 3..<<..| "Wimp_R|
|000025d0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 71 25 2c 71 |eportErr|or",q%,q|
|000025e0| 75 69 74 25 2c 70 72 6f | 67 5f 74 69 74 6c 65 24 |uit%,pro|g_title$|
|000025f0| 2b bd 30 20 b8 20 2c 72 | 65 73 75 6c 74 25 0d 0f |+.0 . ,r|esult%..|
|00002600| 46 19 e7 20 72 65 73 75 | 6c 74 25 3d 32 20 8c 20 |F.. resu|lt%=2 . |
|00002610| f2 66 69 6e 69 73 68 0d | 0f 50 05 e1 0d 0f 5a 05 |.finish.|.P....Z.|
|00002620| 3a 0d 0f 64 0d dd 20 f2 | 66 69 6e 69 73 68 0d 0f |:..d.. .|finish..|
|00002630| 6e 10 ff 20 22 50 6c 61 | 79 53 74 6f 70 22 0d 0f |n.. "Pla|yStop"..|
|00002640| 78 19 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |x... "Wi|mp_Close|
|00002650| 44 6f 77 6e 22 3a e0 0d | 0f 82 05 e1 0d 0f 8c 05 |Down":..|........|
|00002660| 3a 0d 0f 96 29 dd 20 a4 | 69 63 6f 6e 62 61 72 28 |:...). .|iconbar(|
|00002670| 73 70 6e 61 6d 65 24 2c | 73 70 72 69 74 65 61 72 |spname$,|spritear|
|00002680| 65 61 25 2c 74 65 78 74 | 25 29 0d 0f a0 09 ea 20 |ea%,text|%)..... |
|00002690| 69 63 25 0d 0f aa 0a 21 | 71 25 3d 2d 31 0d 0f b4 |ic%....!|q%=-1...|
|000026a0| 10 e7 20 74 65 78 74 25 | 3d 2d 31 20 8c 0d 0f be |.. text%|=-1 ....|
|000026b0| 23 71 25 21 34 3d 30 3a | 71 25 21 38 3d 30 3a 71 |#q%!4=0:|q%!8=0:q|
|000026c0| 25 21 31 32 3d 36 33 3a | 71 25 21 31 36 3d 36 38 |%!12=63:|q%!16=68|
|000026d0| 0d 0f c8 0f 71 25 21 32 | 30 3d 26 32 31 30 32 0d |....q%!2|0=&2102.|
|000026e0| 0f d2 18 de 20 71 25 21 | 32 34 20 28 a9 73 70 6e |.... q%!|24 (.spn|
|000026f0| 61 6d 65 24 2b 31 29 0d | 0f dc 37 24 28 71 25 21 |ame$+1).|..7$(q%!|
|00002700| 32 34 29 3d 73 70 6e 61 | 6d 65 24 3a 71 25 21 32 |24)=spna|me$:q%!2|
|00002710| 38 3d 73 70 72 69 74 65 | 61 72 65 61 25 3a 71 25 |8=sprite|area%:q%|
|00002720| 21 33 32 3d a9 73 70 6e | 61 6d 65 24 2b 31 0d 0f |!32=.spn|ame$+1..|
|00002730| e6 22 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.".. "Wi|mp_Creat|
|00002740| 65 49 63 6f 6e 22 2c 2c | 71 25 20 b8 20 69 63 25 |eIcon",,|q% . ic%|
|00002750| 0d 0f f0 05 cc 0d 0f fa | 26 71 25 21 34 3d 30 3a |........|&q%!4=0:|
|00002760| 71 25 21 38 3d 2d 31 36 | 3a 71 25 21 31 32 3d 31 |q%!8=-16|:q%!12=1|
|00002770| 36 34 3a 71 25 21 31 36 | 3d 36 30 0d 10 04 13 71 |64:q%!16|=60....q|
|00002780| 25 21 32 30 3d 26 31 37 | 30 31 32 31 30 42 0d 10 |%!20=&17|01210B..|
|00002790| 0e 18 de 20 71 25 21 32 | 38 20 28 a9 73 70 6e 61 |... q%!2|8 (.spna|
|000027a0| 6d 65 24 2b 32 29 0d 10 | 18 35 71 25 21 32 34 3d |me$+2)..|.5q%!24=|
|000027b0| 74 65 78 74 25 3a 24 28 | 71 25 21 32 38 29 3d 22 |text%:$(|q%!28)="|
|000027c0| 73 22 2b 73 70 6e 61 6d | 65 24 3a 71 25 21 33 32 |s"+spnam|e$:q%!32|
|000027d0| 3d a9 20 28 24 74 65 78 | 74 25 29 0d 10 22 22 c8 |=. ($tex|t%).."".|
|000027e0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|000027f0| 6f 6e 22 2c 2c 71 25 20 | b8 20 69 63 25 0d 10 2c |on",,q% |. ic%..,|
|00002800| 05 cd 0d 10 36 08 3d 69 | 63 25 0d 10 40 05 3a 0d |....6.=i|c%..@.:.|
|00002810| 10 4a 19 dd 20 f2 72 65 | 64 72 61 77 5f 73 65 72 |.J.. .re|draw_ser|
|00002820| 76 69 63 65 28 71 25 29 | 0d 10 54 0a ea 20 66 6c |vice(q%)|..T.. fl|
|00002830| 61 67 0d 10 5e 24 c8 99 | 22 57 69 6d 70 5f 52 65 |ag..^$..|"Wimp_Re|
|00002840| 64 72 61 77 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |drawWind|ow",,q% |
|00002850| b8 20 66 6c 61 67 0d 10 | 68 0b c8 95 20 66 6c 61 |. flag..|h... fla|
|00002860| 67 0d 10 72 0f f2 72 65 | 64 72 61 77 28 71 25 29 |g..r..re|draw(q%)|
|00002870| 0d 10 7c 24 c8 99 22 57 | 69 6d 70 5f 47 65 74 52 |..|$.."W|imp_GetR|
|00002880| 65 63 74 61 6e 67 6c 65 | 22 2c 2c 71 25 20 b8 20 |ectangle|",,q% . |
|00002890| 66 6c 61 67 0d 10 86 05 | ce 0d 10 90 05 e1 0d 10 |flag....|........|
|000028a0| 9a 05 3a 0d 10 a4 11 dd | 20 f2 72 65 64 72 61 77 |..:.....| .redraw|
|000028b0| 28 71 25 29 0d 10 ae 0b | ea 20 6c 6f 6f 70 25 0d |(q%)....|. loop%.|
|000028c0| 10 b8 0c c8 8e 20 21 71 | 25 20 ca 0d 10 c2 12 c9 |..... !q|% ......|
|000028d0| 20 64 69 72 65 63 74 6f | 72 69 65 73 25 0d 10 cc | directo|ries%...|
|000028e0| 1b e7 20 6e 6f 6f 66 64 | 69 72 65 63 74 6f 72 69 |.. noofd|irectori|
|000028f0| 65 73 25 3c 3e 30 20 8c | 0d 10 d6 41 53 74 61 72 |es%<>0 .|...AStar|
|00002900| 74 58 25 3d 71 25 21 34 | 2b 6c 65 66 74 6d 61 72 |tX%=q%!4|+leftmar|
|00002910| 67 69 6e 25 2d 71 25 21 | 32 30 3a 53 74 61 72 74 |gin%-q%!|20:Start|
|00002920| 59 25 3d 71 25 21 31 36 | 2d 74 6f 70 6d 61 72 67 |Y%=q%!16|-topmarg|
|00002930| 69 6e 25 2d 71 25 21 32 | 34 0d 10 e0 20 e3 20 6c |in%-q%!2|4... . l|
|00002940| 6f 6f 70 25 3d 30 20 b8 | 20 6e 6f 6f 66 64 69 72 |oop%=0 .| noofdir|
|00002950| 65 63 74 6f 72 69 65 73 | 25 0d 10 ea 20 43 59 25 |ectories|%... CY%|
|00002960| 3d 53 74 61 72 74 59 25 | 2d 6c 6f 6f 70 25 2a 79 |=StartY%|-loop%*y|
|00002970| 5f 73 70 61 63 69 6e 67 | 25 0d 10 f4 29 f4 20 49 |_spacing|%...). I|
|00002980| 46 20 43 59 25 3c 71 25 | 21 34 30 2b 33 31 20 41 |F CY%<q%|!40+31 A|
|00002990| 4e 44 20 43 59 25 3e 3d | 71 25 21 33 32 20 54 48 |ND CY%>=|q%!32 TH|
|000029a0| 45 4e 0d 10 fe 23 ec 20 | 53 74 61 72 74 58 25 2c |EN...#. |StartX%,|
|000029b0| 43 59 25 3a f1 20 64 69 | 72 6e 61 6d 65 24 28 6c |CY%:. di|rname$(l|
|000029c0| 6f 6f 70 25 29 0d 11 08 | 05 ed 0d 11 12 05 cd 0d |oop%)...|........|
|000029d0| 11 1c 21 7f 20 85 20 30 | 2c 22 55 6e 6b 6e 6f 77 |..!. . 0|,"Unknow|
|000029e0| 6e 20 57 69 6e 64 6f 77 | 20 48 61 6e 64 6c 65 22 |n Window| Handle"|
|000029f0| 0d 11 26 05 cb 0d 11 30 | 05 e1 0d 11 3a 05 3a 0d |..&....0|....:.:.|
|00002a00| 11 44 24 dd 20 f2 6d 6f | 75 73 65 72 65 63 74 61 |.D$. .mo|userecta|
|00002a10| 6e 67 6c 65 28 78 25 2c | 79 25 2c 78 31 25 2c 79 |ngle(x%,|y%,x1%,y|
|00002a20| 31 25 29 0d 11 4e 1d c8 | 97 20 c8 93 20 78 25 2c |1%)..N..|. .. x%,|
|00002a30| 79 25 2c 78 31 25 2d 78 | 25 2c 79 31 25 2d 79 25 |y%,x1%-x|%,y1%-y%|
|00002a40| 0d 11 58 05 e1 0d 11 62 | 05 3a 0d 11 6c 18 dd 20 |..X....b|.:..l.. |
|00002a50| f2 73 65 6c 65 63 74 69 | 63 6f 6e 28 77 25 2c 69 |.selecti|con(w%,i|
|00002a60| 25 29 0d 11 76 2a 71 25 | 21 30 3d 77 25 3a 71 25 |%)..v*q%|!0=w%:q%|
|00002a70| 21 34 3d 69 25 3a 71 25 | 21 38 3d 31 3c 3c 32 31 |!4=i%:q%|!8=1<<21|
|00002a80| 3a 71 25 21 31 32 3d 31 | 3c 3c 32 31 0d 11 80 1f |:q%!12=1|<<21....|
|00002a90| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00002aa0| 53 74 61 74 65 22 2c 30 | 2c 71 25 0d 11 8a 05 e1 |State",0|,q%.....|
|00002ab0| 0d 11 94 05 3a 0d 11 9e | 1a dd 20 f2 64 65 73 65 |....:...|.. .dese|
|00002ac0| 6c 65 63 74 69 63 6f 6e | 28 77 25 2c 69 25 29 0d |lecticon|(w%,i%).|
|00002ad0| 11 a8 26 71 25 21 30 3d | 77 25 3a 71 25 21 34 3d |..&q%!0=|w%:q%!4=|
|00002ae0| 69 25 3a 71 25 21 38 3d | 30 3a 71 25 21 31 32 3d |i%:q%!8=|0:q%!12=|
|00002af0| 31 3c 3c 32 31 0d 11 b2 | 1f c8 99 20 22 57 69 6d |1<<21...|... "Wim|
|00002b00| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00002b10| 30 2c 71 25 0d 11 bc 05 | e1 0d 11 c6 05 3a 0d 11 |0,q%....|.....:..|
|00002b20| d0 18 dd 20 f2 66 6c 61 | 73 68 5f 69 63 6f 6e 28 |... .fla|sh_icon(|
|00002b30| 77 25 2c 69 25 29 0d 11 | da 07 ea 20 74 0d 11 e4 |w%,i%)..|... t...|
|00002b40| 10 ff 20 28 22 66 78 32 | 31 2c 30 22 29 0d 11 ee |.. ("fx2|1,0")...|
|00002b50| 44 71 25 21 30 3d 77 25 | 3a 71 25 21 34 3d 69 25 |Dq%!0=w%|:q%!4=i%|
|00002b60| 3a 71 25 21 38 3d 31 3c | 3c 32 31 3a 71 25 21 31 |:q%!8=1<|<21:q%!1|
|00002b70| 32 3d 31 3c 3c 32 31 3a | c8 99 22 57 69 6d 70 5f |2=1<<21:|.."Wimp_|
|00002b80| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00002b90| 25 0d 11 f8 14 74 3d 91 | 3a f5 20 fd 20 91 3e 28 |%....t=.|:. . .>(|
|00002ba0| 74 2b 31 30 29 0d 12 02 | 40 71 25 21 30 3d 77 25 |t+10)...|@q%!0=w%|
|00002bb0| 3a 71 25 21 34 3d 69 25 | 3a 71 25 21 38 3d 30 3a |:q%!4=i%|:q%!8=0:|
|00002bc0| 71 25 21 31 32 3d 31 3c | 3c 32 31 3a c8 99 22 57 |q%!12=1<|<21:.."W|
|00002bd0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00002be0| 22 2c 2c 71 25 0d 12 0c | 05 e1 0d 12 16 05 3a 0d |",,q%...|......:.|
|00002bf0| 12 20 1e dd 20 a4 6d 61 | 78 28 61 2c 62 29 3a e7 |. .. .ma|x(a,b):.|
|00002c00| 20 61 3e 62 20 3d 20 61 | 20 8b 20 3d 62 0d 12 2a | a>b = a| . =b..*|
|00002c10| 1e dd 20 a4 6d 69 6e 28 | 61 2c 62 29 3a e7 20 61 |.. .min(|a,b):. a|
|00002c20| 3c 62 20 3d 20 61 20 8b | 20 3d 62 0d 12 34 05 3a |<b = a .| =b..4.:|
|00002c30| 0d 12 3e 14 dd 20 f2 73 | 65 6e 64 5f 68 65 6c 70 |..>.. .s|end_help|
|00002c40| 28 61 24 29 0d 12 48 1a | 21 28 71 25 2b 30 30 29 |(a$)..H.|!(q%+00)|
|00002c50| 3d 28 a9 61 24 2b 32 35 | 29 20 80 20 ac 33 0d 12 |=(.a$+25|) . .3..|
|00002c60| 52 0e 71 25 21 31 32 3d | 71 25 21 38 0d 12 5c 11 |R.q%!12=|q%!8..\.|
|00002c70| 21 28 71 25 2b 31 36 29 | 3d 26 35 30 33 0d 12 66 |!(q%+16)|=&503..f|
|00002c80| 0f 24 28 71 25 2b 32 30 | 29 3d 61 24 0d 12 70 14 |.$(q%+20|)=a$..p.|
|00002c90| 3f 28 71 25 2b 32 30 2b | a9 61 24 2b 31 29 3d 30 |?(q%+20+|.a$+1)=0|
|00002ca0| 0d 12 7a 24 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |..z$.. "|Wimp_Sen|
|00002cb0| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 71 25 2c |dMessage|",17,q%,|
|00002cc0| 71 25 21 34 0d 12 84 05 | e1 0d 12 8e 05 3a 0d 12 |q%!4....|.....:..|
|00002cd0| 98 23 dd 20 a4 68 65 6c | 70 5f 74 65 78 74 28 62 |.#. .hel|p_text(b|
|00002ce0| 75 66 25 2c 65 6e 64 62 | 75 66 25 2c 6e 75 6d 62 |uf%,endb|uf%,numb|
|00002cf0| 29 0d 12 a2 14 ea 20 6e | 65 78 74 25 2c 61 24 2c |)..... n|ext%,a$,|
|00002d00| 6c 6f 6f 70 25 0d 12 ac | 1f c8 95 20 6e 65 78 74 |loop%...|... next|
|00002d10| 25 20 3c 3d 20 65 6e 64 | 62 75 66 25 20 80 20 61 |% <= end|buf% . a|
|00002d20| 24 3d 22 22 0d 12 b6 10 | 6e 65 78 74 25 3d 62 75 |$=""....|next%=bu|
|00002d30| 66 25 2b 32 0d 12 c0 05 | f5 0d 12 ca 0c 6e 65 78 |f%+2....|.....nex|
|00002d40| 74 25 2b 3d 31 0d 12 d4 | 32 fd 20 3f 6e 65 78 74 |t%+=1...|2. ?next|
|00002d50| 25 20 3d 20 31 30 20 84 | 20 3f 6e 65 78 74 25 20 |% = 10 .| ?next% |
|00002d60| 3d 20 31 33 20 84 20 6e | 65 78 74 25 20 3e 3d 20 |= 13 . n|ext% >= |
|00002d70| 65 6e 64 62 75 66 25 0d | 12 de 33 e7 20 6e 75 6d |endbuf%.|..3. num|
|00002d80| 62 3d bb 28 bd 3f 62 75 | 66 25 2b bd 3f 28 62 75 |b=.(.?bu|f%+.?(bu|
|00002d90| 66 25 2b 31 29 29 20 80 | 20 6e 65 78 74 25 20 3c |f%+1)) .| next% <|
|00002da0| 20 65 6e 64 62 75 66 25 | 20 8c 0d 12 e8 1c e3 20 | endbuf%| ...... |
|00002db0| 6c 6f 6f 70 25 3d 62 75 | 66 25 2b 32 20 b8 20 6e |loop%=bu|f%+2 . n|
|00002dc0| 65 78 74 25 2d 31 0d 12 | f2 13 61 24 3d 61 24 2b |ext%-1..|..a$=a$+|
|00002dd0| bd 28 3f 6c 6f 6f 70 25 | 29 0d 12 fc 05 ed 0d 13 |.(?loop%|).......|
|00002de0| 06 05 cd 0d 13 10 10 62 | 75 66 25 3d 6e 65 78 74 |.......b|uf%=next|
|00002df0| 25 2b 31 0d 13 1a 05 ce | 0d 13 24 07 3d 61 24 0d |%+1.....|..$.=a$.|
|00002e00| 13 2e 05 3a 0d 13 38 1b | dd 20 a4 71 75 65 72 79 |...:..8.|. .query|
|00002e10| 28 71 75 65 72 79 24 2c | 74 69 74 6c 65 24 29 0d |(query$,|title$).|
|00002e20| 13 42 0c ea 20 72 65 73 | 75 6c 74 0d 13 4c 28 6d |.B.. res|ult..L(m|
|00002e30| 65 6e 75 62 75 66 25 21 | 30 3d 30 3a 24 28 6d 65 |enubuf%!|0=0:$(me|
|00002e40| 6e 75 62 75 66 25 2b 34 | 29 3d 71 75 65 72 79 24 |nubuf%+4|)=query$|
|00002e50| 2b bd 30 0d 13 56 39 c8 | 99 20 22 57 69 6d 70 5f |+.0..V9.|. "Wimp_|
|00002e60| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 6d 65 6e |ReportEr|ror",men|
|00002e70| 75 62 75 66 25 2c 31 39 | 2c 74 69 74 6c 65 24 2b |ubuf%,19|,title$+|
|00002e80| bd 30 20 b8 20 2c 72 65 | 73 75 6c 74 0d 13 60 16 |.0 . ,re|sult..`.|
|00002e90| e7 20 72 65 73 75 6c 74 | 20 3d 20 31 20 8c 20 3d |. result| = 1 . =|
|00002ea0| 20 b9 0d 13 6a 07 3d 20 | a3 0d 13 74 05 3a 0d 13 | ...j.= |...t.:..|
|00002eb0| 7e 12 dd 20 a4 6c 65 61 | 66 28 70 61 74 68 24 29 |~.. .lea|f(path$)|
|00002ec0| 0d 13 88 2e c8 95 20 a7 | 70 61 74 68 24 2c 22 2e |...... .|path$,".|
|00002ed0| 22 29 3a 70 61 74 68 24 | 3d c1 70 61 74 68 24 2c |"):path$|=.path$,|
|00002ee0| a7 70 61 74 68 24 2c 22 | 2e 22 29 2b 31 29 0d 13 |.path$,"|.")+1)..|
|00002ef0| 92 05 ce 0d 13 9c 0a 3d | 70 61 74 68 24 0d 13 a6 |.......=|path$...|
|00002f00| 05 3a 0d 13 b0 12 dd 20 | a4 70 61 74 68 28 70 61 |.:..... |.path(pa|
|00002f10| 74 68 24 29 0d 13 ba 2e | c8 95 20 c2 70 61 74 68 |th$)....|.. .path|
|00002f20| 24 2c 31 29 20 3c 3e 20 | 22 2e 22 20 70 61 74 68 |$,1) <> |"." path|
|00002f30| 24 3d c0 70 61 74 68 24 | 2c a9 70 61 74 68 24 2d |$=.path$|,.path$-|
|00002f40| 31 29 0d 13 c4 05 ce 0d | 13 ce 15 3d c0 70 61 74 |1)......|...=.pat|
|00002f50| 68 24 2c a9 70 61 74 68 | 24 2d 31 29 0d 13 d8 05 |h$,.path|$-1)....|
|00002f60| 3a 0d 13 e2 17 dd 20 a4 | 6d 65 6d 74 6f 73 74 72 |:..... .|memtostr|
|00002f70| 28 70 74 72 2c 6d 6c 29 | 0d 13 ec 17 ea 20 66 24 |(ptr,ml)|..... f$|
|00002f80| 2c 6d 61 78 3a 6d 61 78 | 3d 70 74 72 2b 6d 6c 0d |,max:max|=ptr+ml.|
|00002f90| 13 f6 26 c8 95 20 3f 70 | 74 72 20 80 20 70 74 72 |..&.. ?p|tr . ptr|
|00002fa0| 3c 6d 61 78 20 66 24 2b | 3d bd 3f 70 74 72 3a 70 |<max f$+|=.?ptr:p|
|00002fb0| 74 72 2b 3d 31 0d 14 00 | 05 ce 0d 14 0a 07 3d 66 |tr+=1...|......=f|
|00002fc0| 24 0d 14 14 05 3a 0d 14 | 1e 16 dd 20 a4 70 61 72 |$....:..|... .par|
|00002fd0| 61 6d 28 74 24 2c 73 24 | 2c 64 24 29 0d 14 28 0b |am(t$,s$|,d$)..(.|
|00002fe0| ea 20 6c 25 2c 61 25 0d | 14 32 24 6c 25 3d a7 73 |. l%,a%.|.2$l%=.s|
|00002ff0| 24 2c 74 24 29 20 84 20 | a7 73 24 2c a4 75 70 70 |$,t$) . |.s$,.upp|
|00003000| 65 72 63 61 73 65 28 74 | 24 29 29 0d 14 3c 0d e7 |ercase(t|$))..<..|
|00003010| 20 6c 25 3c 3e 30 20 8c | 0d 14 46 12 6c 25 3d a7 | l%<>0 .|..F.l%=.|
|00003020| 73 24 2c 22 20 22 2c 6c | 25 29 0d 14 50 1c c8 95 |s$," ",l|%)..P...|
|00003030| 20 c1 73 24 2c 6c 25 2c | 31 29 3d 22 20 22 3a 6c | .s$,l%,|1)=" ":l|
|00003040| 25 2b 3d 31 3a ce 0d 14 | 5a 1d e7 20 a7 73 24 2c |%+=1:...|Z.. .s$,|
|00003050| 22 20 22 2c 6c 25 29 3d | 30 20 8c 20 73 24 2b 3d |" ",l%)=|0 . s$+=|
|00003060| 22 20 22 0d 14 64 1b 3d | c1 73 24 2c 6c 25 2c a7 |" "..d.=|.s$,l%,.|
|00003070| 73 24 2c 22 20 22 2c 6c | 25 29 2d 6c 25 29 0d 14 |s$," ",l|%)-l%)..|
|00003080| 6e 05 cd 0d 14 78 07 3d | 64 24 0d 14 82 05 3a 0d |n....x.=|d$....:.|
|00003090| 14 8c 12 dd 20 a4 63 6f | 6d 6d 61 6e 64 74 61 69 |.... .co|mmandtai|
|000030a0| 6c 0d 14 96 19 ea 20 69 | 2c 6e 75 6d 73 70 61 63 |l..... i|,numspac|
|000030b0| 65 73 2c 63 6f 6d 6d 61 | 6e 64 0d 14 a0 1c c8 99 |es,comma|nd......|
|000030c0| 20 22 4f 53 5f 47 65 74 | 45 6e 76 22 20 b8 20 63 | "OS_Get|Env" . c|
|000030d0| 6f 6d 6d 61 6e 64 0d 14 | aa 07 69 3d 30 0d 14 b4 |ommand..|..i=0...|
|000030e0| 13 c8 95 20 63 6f 6d 6d | 61 6e 64 3f 69 3c 3e 30 |... comm|and?i<>0|
|000030f0| 0d 14 be 08 69 2b 3d 31 | 0d 14 c8 05 ce 0d 14 d2 |....i+=1|........|
|00003100| 10 63 6f 6d 6d 61 6e 64 | 3f 69 3d 31 33 0d 14 dc |.command|?i=13...|
|00003110| 0f 6e 75 6d 73 70 61 63 | 65 73 3d 30 0d 14 e6 07 |.numspac|es=0....|
|00003120| 69 3d 30 0d 14 f0 12 c8 | 95 20 6e 75 6d 73 70 61 |i=0.....|. numspa|
|00003130| 63 65 73 3c 33 0d 14 fa | 22 e7 20 63 6f 6d 6d 61 |ces<3...|". comma|
|00003140| 6e 64 3f 69 3d 26 32 30 | 20 8c 20 6e 75 6d 73 70 |nd?i=&20| . numsp|
|00003150| 61 63 65 73 2b 3d 31 0d | 15 04 08 69 2b 3d 31 0d |aces+=1.|...i+=1.|
|00003160| 15 0e 05 ce 0d 15 18 11 | 3d 24 28 63 6f 6d 6d 61 |........|=$(comma|
|00003170| 6e 64 2b 69 29 0d 15 22 | 05 3a 0d 15 2c 14 dd 20 |nd+i).."|.:..,.. |
|00003180| a4 66 69 6c 65 73 74 79 | 70 65 28 66 24 29 0d 15 |.filesty|pe(f$)..|
|00003190| 36 10 ea 20 74 79 70 65 | 25 2c 6f 62 6a 25 0d 15 |6.. type|%,obj%..|
|000031a0| 40 23 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 35 |@#.. "OS|_File",5|
|000031b0| 2c 66 24 20 b8 20 6f 62 | 6a 25 2c 2c 74 79 70 65 |,f$ . ob|j%,,type|
|000031c0| 25 0d 15 4a 12 e7 20 6f | 62 6a 25 3d 32 20 8c 20 |%..J.. o|bj%=2 . |
|000031d0| 3d 2d 32 0d 15 54 35 e7 | 20 6f 62 6a 25 3d 31 20 |=-2..T5.| obj%=1 |
|000031e0| 8c 20 74 79 70 65 25 3d | 28 74 79 70 65 25 20 80 |. type%=|(type% .|
|000031f0| 20 26 46 46 46 30 30 29 | 20 3e 3e 20 38 20 8b 20 | &FFF00)| >> 8 . |
|00003200| 74 79 70 65 25 3d 2d 31 | 0d 15 5e 0a 3d 74 79 70 |type%=-1|..^.=typ|
|00003210| 65 25 0d 15 68 05 3a 0d | 15 72 15 dd 20 a4 70 61 |e%..h.:.|.r.. .pa|
|00003220| 64 28 61 24 2c 73 70 61 | 63 65 73 29 0d 15 7c 1d |d(a$,spa|ces)..|.|
|00003230| 3d c0 61 24 2b c4 73 70 | 61 63 65 73 2c 22 20 22 |=.a$+.sp|aces," "|
|00003240| 29 2c 73 70 61 63 65 73 | 29 0d 15 86 05 3a 0d 15 |),spaces|)....:..|
|00003250| 90 10 dd 20 a4 73 74 72 | 69 70 28 61 24 29 0d 15 |... .str|ip(a$)..|
|00003260| 9a 1d c8 95 20 c2 61 24 | 2c 31 29 3d 22 20 22 20 |.... .a$|,1)=" " |
|00003270| 84 20 c2 61 24 2c 31 29 | 3d bd 30 0d 15 a4 15 61 |. .a$,1)|=.0....a|
|00003280| 24 3d c0 61 24 2c a9 20 | 61 24 20 2d 20 31 20 29 |$=.a$,. |a$ - 1 )|
|00003290| 0d 15 ae 05 ce 0d 15 b8 | 11 c8 95 20 c0 61 24 2c |........|... .a$,|
|000032a0| 31 29 3d 22 20 22 0d 15 | c2 15 61 24 3d c2 61 24 |1)=" "..|..a$=.a$|
|000032b0| 2c a9 20 61 24 20 2d 20 | 31 20 29 0d 15 cc 05 ce |,. a$ - |1 ).....|
|000032c0| 0d 15 d6 07 3d 61 24 0d | 15 e0 05 3a 0d 15 ea 1c |....=a$.|...:....|
|000032d0| dd 20 a4 66 69 6c 74 65 | 72 28 61 24 2c 6c 6f 77 |. .filte|r(a$,low|
|000032e0| 25 2c 68 69 67 68 25 29 | 0d 15 f4 0f ea 20 63 6f |%,high%)|..... co|
|000032f0| 75 6e 74 25 2c 62 24 0d | 15 fe 15 e3 20 63 6f 75 |unt%,b$.|.... cou|
|00003300| 6e 74 25 3d 31 20 b8 20 | a9 20 61 24 0d 16 08 36 |nt%=1 . |. a$...6|
|00003310| e7 20 97 20 c1 61 24 2c | 63 6f 75 6e 74 25 2c 31 |. . .a$,|count%,1|
|00003320| 29 3e 3d 6c 6f 77 25 20 | 80 20 97 20 c1 61 24 2c |)>=low% |. . .a$,|
|00003330| 63 6f 75 6e 74 25 2c 31 | 29 3c 3d 68 69 67 68 25 |count%,1|)<=high%|
|00003340| 20 8c 0d 16 12 15 62 24 | 2b 3d c1 61 24 2c 63 6f | .....b$|+=.a$,co|
|00003350| 75 6e 74 25 2c 31 29 0d | 16 1c 05 cd 0d 16 26 05 |unt%,1).|......&.|
|00003360| ed 0d 16 30 07 3d 62 24 | 0d 16 3a 05 3a 0d 16 44 |...0.=b$|..:.:..D|
|00003370| 17 dd 20 a4 75 70 70 65 | 72 63 61 73 65 28 74 65 |.. .uppe|rcase(te|
|00003380| 78 74 24 29 0d 16 4e 13 | ea 20 6c 6f 6f 70 25 2c |xt$)..N.|. loop%,|
|00003390| 73 74 72 24 2c 61 24 0d | 16 58 14 e3 20 6c 6f 6f |str$,a$.|.X.. loo|
|000033a0| 70 25 3d 31 b8 a9 74 65 | 78 74 24 0d 16 62 16 61 |p%=1..te|xt$..b.a|
|000033b0| 24 3d c1 74 65 78 74 24 | 2c 6c 6f 6f 70 25 2c 31 |$=.text$|,loop%,1|
|000033c0| 29 0d 16 6c 29 e7 20 61 | 24 3e 3d 22 61 22 20 80 |)..l). a|$>="a" .|
|000033d0| 20 61 24 3c 3d 22 7a 22 | 20 8c 20 61 24 3d bd 28 | a$<="z"| . a$=.(|
|000033e0| 97 61 24 20 80 20 26 44 | 46 29 0d 16 76 0c 73 74 |.a$ . &D|F)..v.st|
|000033f0| 72 24 2b 3d 61 24 0d 16 | 80 05 ed 0d 16 8a 09 3d |r$+=a$..|.......=|
|00003400| 73 74 72 24 0d 16 94 05 | 3a 0d 16 9e 1a dd 20 f2 |str$....|:..... .|
|00003410| 73 65 74 75 70 64 72 61 | 67 62 6f 78 28 77 25 2c |setupdra|gbox(w%,|
|00003420| 69 25 29 0d 16 a8 0d ea | 20 77 65 78 2c 77 65 79 |i%).....| wex,wey|
|00003430| 0d 16 b2 6a 71 25 21 30 | 3d 77 25 3a c8 99 20 22 |...jq%!0|=w%:.. "|
|00003440| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00003450| 61 74 65 22 2c 2c 71 25 | 3a 77 65 78 3d 71 25 21 |ate",,q%|:wex=q%!|
|00003460| 34 2d 71 25 21 32 30 3a | 77 65 79 3d 71 25 21 31 |4-q%!20:|wey=q%!1|
|00003470| 36 2d 71 25 21 32 34 3a | 71 25 21 34 3d 69 25 3a |6-q%!24:|q%!4=i%:|
|00003480| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00003490| 53 74 61 74 65 22 2c 2c | 71 25 0d 16 bc 5f 21 71 |State",,|q%..._!q|
|000034a0| 25 3d 77 25 3a 71 25 21 | 34 3d 35 3a 71 25 21 38 |%=w%:q%!|4=5:q%!8|
|000034b0| 3d 71 25 21 38 2b 77 65 | 78 3a 71 25 21 31 32 3d |=q%!8+we|x:q%!12=|
|000034c0| 71 25 21 31 32 2b 77 65 | 79 3a 71 25 21 31 36 3d |q%!12+we|y:q%!16=|
|000034d0| 71 25 21 31 36 2b 77 65 | 78 3a 71 25 21 32 30 3d |q%!16+we|x:q%!20=|
|000034e0| 71 25 21 32 30 2b 77 65 | 79 3a 71 25 21 32 34 3d |q%!20+we|y:q%!24=|
|000034f0| 30 3a 71 25 21 32 38 3d | 30 0d 16 c6 39 71 25 21 |0:q%!28=|0...9q%!|
|00003500| 33 32 3d 26 37 46 46 46 | 46 46 46 46 3a 71 25 21 |32=&7FFF|FFFF:q%!|
|00003510| 33 36 3d 26 37 46 46 46 | 46 46 46 46 3a c8 99 20 |36=&7FFF|FFFF:.. |
|00003520| 22 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 22 2c 2c |"Wimp_Dr|agBox",,|
|00003530| 71 25 0d 16 d0 0e 64 72 | 61 67 62 6f 78 25 3d b9 |q%....dr|agbox%=.|
|00003540| 0d 16 da 05 e1 0d 16 e4 | 05 3a 0d 16 ee 17 dd 20 |........|.:..... |
|00003550| a4 66 69 6c 65 73 70 72 | 69 74 65 28 74 79 70 65 |.filespr|ite(type|
|00003560| 29 0d 16 f8 11 ea 20 74 | 79 70 65 24 2c 66 6c 61 |)..... t|ype$,fla|
|00003570| 67 73 0d 17 02 1b e7 20 | 74 79 70 65 3d 2d 31 20 |gs..... |type=-1 |
|00003580| 8c 20 3d 22 66 69 6c 65 | 5f 78 78 78 22 0d 17 0c |. ="file|_xxx"...|
|00003590| 21 74 79 70 65 24 3d 22 | 66 69 6c 65 5f 22 2b c2 |!type$="|file_"+.|
|000035a0| 22 30 30 22 2b c3 7e 74 | 79 70 65 2c 33 29 0d 17 |"00"+.~t|ype,3)..|
|000035b0| 16 2a c8 99 20 22 58 57 | 69 6d 70 5f 53 70 72 69 |.*.. "XW|imp_Spri|
|000035c0| 74 65 4f 70 22 2c 32 34 | 2c 2c 74 79 70 65 24 20 |teOp",24|,,type$ |
|000035d0| b8 20 3b 66 6c 61 67 73 | 0d 17 20 24 e7 20 28 66 |. ;flags|.. $. (f|
|000035e0| 6c 61 67 73 20 80 20 31 | 29 20 8c 20 74 79 70 65 |lags . 1|) . type|
|000035f0| 24 3d 22 66 69 6c 65 5f | 78 78 78 22 0d 17 2a 0a |$="file_|xxx"..*.|
|00003600| 3d 74 79 70 65 24 0d 17 | 34 05 3a 0d 17 3e 1c dd |=type$..|4.:..>..|
|00003610| 20 a4 73 6d 61 6c 6c 66 | 69 6c 65 73 70 72 69 74 | .smallf|ilesprit|
|00003620| 65 28 74 79 70 65 29 0d | 17 48 11 ea 20 74 79 70 |e(type).|.H.. typ|
|00003630| 65 24 2c 66 6c 61 67 73 | 0d 17 52 1c e7 20 74 79 |e$,flags|..R.. ty|
|00003640| 70 65 3d 2d 31 20 8c 20 | 3d 22 73 6d 61 6c 6c 5f |pe=-1 . |="small_|
|00003650| 78 78 78 22 0d 17 5c 0c | 73 6d 61 6c 6c 25 3d a3 |xxx"..\.|small%=.|
|00003660| 0d 17 66 22 74 79 70 65 | 24 3d 22 73 6d 61 6c 6c |..f"type|$="small|
|00003670| 5f 22 2b c2 22 30 30 22 | 2b c3 7e 74 79 70 65 2c |_"+."00"|+.~type,|
|00003680| 33 29 0d 17 70 2a c8 99 | 20 22 58 57 69 6d 70 5f |3)..p*..| "XWimp_|
|00003690| 53 70 72 69 74 65 4f 70 | 22 2c 32 34 2c 2c 74 79 |SpriteOp|",24,,ty|
|000036a0| 70 65 24 20 b8 20 3b 66 | 6c 61 67 73 0d 17 7a 13 |pe$ . ;f|lags..z.|
|000036b0| e7 20 28 66 6c 61 67 73 | 20 80 20 31 29 20 8c 0d |. (flags| . 1) ..|
|000036c0| 17 84 21 74 79 70 65 24 | 3d 22 66 69 6c 65 5f 22 |..!type$|="file_"|
|000036d0| 2b c2 22 30 30 22 2b c3 | 7e 74 79 70 65 2c 33 29 |+."00"+.|~type,3)|
|000036e0| 0d 17 8e 2a c8 99 20 22 | 58 57 69 6d 70 5f 53 70 |...*.. "|XWimp_Sp|
|000036f0| 72 69 74 65 4f 70 22 2c | 32 34 2c 2c 74 79 70 65 |riteOp",|24,,type|
|00003700| 24 20 b8 20 3b 66 6c 61 | 67 73 0d 17 98 30 e7 20 |$ . ;fla|gs...0. |
|00003710| 28 66 6c 61 67 73 20 80 | 20 31 29 20 8c 20 74 79 |(flags .| 1) . ty|
|00003720| 70 65 24 3d 22 73 6d 61 | 6c 6c 5f 78 78 78 22 20 |pe$="sma|ll_xxx" |
|00003730| 8b 20 73 6d 61 6c 6c 25 | 3d b9 0d 17 a2 05 cd 0d |. small%|=.......|
|00003740| 17 ac 0a 3d 74 79 70 65 | 24 0d 17 b6 05 3a 0d 17 |...=type|$....:..|
|00003750| c0 1c dd 20 f2 73 74 72 | 74 6f 69 63 6f 6e 28 77 |... .str|toicon(w|
|00003760| 25 2c f8 20 69 25 2c 61 | 24 29 0d 17 ca 35 71 25 |%,. i%,a|$)...5q%|
|00003770| 21 30 3d 77 25 3a 71 25 | 21 34 3d 69 25 3a c8 99 |!0=w%:q%|!4=i%:..|
|00003780| 20 26 34 30 30 43 45 2c | 2c 71 25 3a f4 20 57 69 | &400CE,|,q%:. Wi|
|00003790| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 0d |mp_GetIc|onState.|
|000037a0| 17 d4 24 71 25 21 30 3d | 77 25 3a c8 99 20 22 57 |..$q%!0=|w%:.. "W|
|000037b0| 69 6d 70 5f 44 65 6c 65 | 74 65 49 63 6f 6e 22 2c |imp_Dele|teIcon",|
|000037c0| 2c 71 25 0d 17 de 0f 24 | 28 71 25 2b 32 38 29 3d |,q%....$|(q%+28)=|
|000037d0| 61 24 0d 17 e8 2d 71 25 | 21 34 3d 77 25 3a c8 99 |a$...-q%|!4=w%:..|
|000037e0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|000037f0| 6e 22 2c 2c 28 71 25 2b | 34 29 20 b8 20 69 25 0d |n",,(q%+|4) . i%.|
|00003800| 17 f2 21 71 25 21 30 3d | 77 25 3a 71 25 21 34 3d |..!q%!0=|w%:q%!4=|
|00003810| 69 25 3a c8 99 20 26 34 | 30 30 43 45 2c 2c 71 25 |i%:.. &4|00CE,,q%|
|00003820| 0d 17 fc 3b 71 25 21 34 | 3d 77 25 3a c8 99 20 22 |...;q%!4|=w%:.. "|
|00003830| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00003840| 22 2c 77 25 2c 71 25 21 | 38 2c 71 25 21 31 32 2c |",w%,q%!|8,q%!12,|
|00003850| 71 25 21 31 36 2c 71 25 | 21 32 30 0d 18 06 05 e1 |q%!16,q%|!20.....|
|00003860| 0d 18 10 05 3a 0d 18 1a | 19 dd 20 f2 64 61 74 61 |....:...|.. .data|
|00003870| 6c 6f 61 64 28 71 25 2c | 63 61 6c 6c 25 29 0d 18 |load(q%,|call%)..|
|00003880| 24 26 ea 20 70 74 72 25 | 2c 6c 65 6e 25 2c 74 79 |$&. ptr%|,len%,ty|
|00003890| 70 65 25 2c 68 61 6e 64 | 6c 65 25 2c 6c 6f 6f 70 |pe%,hand|le%,loop|
|000038a0| 25 2c 61 24 0d 18 2e 20 | e7 20 71 25 21 31 32 20 |%,a$... |. q%!12 |
|000038b0| 3d 20 30 20 84 20 71 25 | 21 31 32 3d 6d 79 72 65 |= 0 . q%|!12=myre|
|000038c0| 66 25 20 8c 0d 18 38 22 | 70 61 74 68 6e 61 6d 65 |f% ...8"|pathname|
|000038d0| 24 3d a4 6d 65 6d 74 6f | 73 74 72 28 71 25 2b 34 |$=.memto|str(q%+4|
|000038e0| 34 2c 32 35 30 29 0d 18 | 42 1f 74 79 70 65 25 3d |4,250)..|B.type%=|
|000038f0| a4 66 69 6c 65 73 74 79 | 70 65 28 70 61 74 68 6e |.filesty|pe(pathn|
|00003900| 61 6d 65 24 29 0d 18 4c | 05 3a 0d 18 56 2d e7 20 |ame$)..L|.:..V-. |
|00003910| 74 79 70 65 25 20 3e 20 | 30 20 80 20 74 79 70 65 |type% > |0 . type|
|00003920| 25 20 3c 20 26 31 30 30 | 30 20 80 20 63 61 6c 6c |% < &100|0 . call|
|00003930| 25 20 3d 20 33 20 8c 0d | 18 60 0e c8 8e 20 74 79 |% = 3 ..|.`... ty|
|00003940| 70 65 25 20 ca 0d 18 6a | 1d c9 20 73 6f 6e 67 74 |pe% ...j|.. songt|
|00003950| 79 70 65 25 2c 6d 6f 64 | 75 6c 65 74 79 70 65 25 |ype%,mod|uletype%|
|00003960| 20 3a 0d 18 74 05 7f 0d | 18 7e 68 e7 20 a4 71 75 | :..t...|.~h. .qu|
|00003970| 65 72 79 28 22 46 69 6c | 65 20 27 22 2b a4 6c 65 |ery("Fil|e '"+.le|
|00003980| 61 66 28 70 61 74 68 6e | 61 6d 65 24 29 2b 22 27 |af(pathn|ame$)+"'|
|00003990| 20 6e 6f 74 20 72 65 63 | 6f 67 6e 69 73 65 64 2c | not rec|ognised,|
|000039a0| 20 6c 6f 61 64 20 61 73 | 20 61 20 54 72 61 63 6b | load as| a Track|
|000039b0| 65 72 20 66 69 6c 65 3f | 22 2c 22 4c 6f 61 64 20 |er file?|","Load |
|000039c0| 61 73 20 54 72 61 63 6b | 65 72 3f 22 29 20 8c 0d |as Track|er?") ..|
|000039d0| 18 88 17 74 79 70 65 25 | 20 3d 20 6d 6f 64 75 6c |...type%| = modul|
|000039e0| 65 74 79 70 65 25 0d 18 | 92 05 cc 0d 18 9c 82 e7 |etype%..|........|
|000039f0| 20 ac 20 73 70 6c 69 74 | 74 65 72 25 20 e7 20 a4 | . split|ter% . .|
|00003a00| 71 75 65 72 79 28 22 46 | 69 6c 65 20 27 22 2b a4 |query("F|ile '"+.|
|00003a10| 6c 65 61 66 28 70 61 74 | 68 6e 61 6d 65 24 29 2b |leaf(pat|hname$)+|
|00003a20| 22 27 20 6e 6f 74 20 72 | 65 63 6f 67 6e 69 73 65 |"' not r|ecognise|
|00003a30| 64 2c 20 6c 6f 61 64 20 | 61 73 20 61 20 53 6f 6e |d, load |as a Son|
|00003a40| 67 20 66 69 6c 65 3f 22 | 2c 22 4c 6f 61 64 20 61 |g file?"|,"Load a|
|00003a50| 73 20 53 6f 6e 67 3f 22 | 29 20 8c 20 74 79 70 65 |s Song?"|) . type|
|00003a60| 25 20 3d 20 73 6f 6e 67 | 74 79 70 65 25 0d 18 a6 |% = song|type%...|
|00003a70| 05 cd 0d 18 b0 05 cb 0d | 18 ba 05 cd 0d 18 c4 05 |........|........|
|00003a80| 3a 0d 18 ce 0e c8 8e 20 | 74 79 70 65 25 20 ca 0d |:...... |type% ..|
|00003a90| 18 d8 0f c9 20 73 6f 6e | 67 74 79 70 65 25 0d 18 |.... son|gtype%..|
|00003aa0| e2 13 e7 20 ac 20 73 70 | 6c 69 74 74 65 72 25 20 |... . sp|litter% |
|00003ab0| 8c 0d 18 ec 3f 71 25 21 | 30 3d 32 30 3a 71 25 21 |....?q%!|0=20:q%!|
|00003ac0| 31 32 3d 71 25 21 38 3a | 71 25 21 31 36 3d 34 3a |12=q%!8:|q%!16=4:|
|00003ad0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00003ae0| 73 61 67 65 22 2c 31 37 | 2c 71 25 2c 71 25 21 34 |sage",17|,q%,q%!4|
|00003af0| 0d 18 f6 15 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |...... "|Hourglas|
|00003b00| 73 5f 4f 6e 22 0d 19 00 | 1a f2 6c 6f 61 64 6d 6f |s_On"...|..loadmo|
|00003b10| 64 75 6c 65 28 70 61 74 | 68 6e 61 6d 65 24 29 0d |dule(pat|hname$).|
|00003b20| 19 0a 16 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|00003b30| 5f 4f 66 66 22 0d 19 14 | 05 cc 0d 19 1e 5a f2 77 |_Off"...|.....Z.w|
|00003b40| 61 72 6e 69 6e 67 28 22 | 49 6e 20 73 70 6c 69 74 |arning("|In split|
|00003b50| 74 65 72 20 6d 6f 64 65 | 2c 20 74 6f 20 70 6c 61 |ter mode|, to pla|
|00003b60| 79 20 27 22 2b 70 61 74 | 68 6e 61 6d 65 24 2b 22 |y '"+pat|hname$+"|
|00003b70| 27 20 73 65 6c 65 63 74 | 20 27 53 70 6c 69 74 74 |' select| 'Splitt|
|00003b80| 65 72 27 20 66 72 6f 6d | 20 74 68 65 20 6d 65 6e |er' from| the men|
|00003b90| 75 2e 22 29 0d 19 28 05 | cd 0d 19 32 11 c9 20 6d |u.")..(.|...2.. m|
|00003ba0| 6f 64 75 6c 65 74 79 70 | 65 25 0d 19 3c 3f 71 25 |oduletyp|e%..<?q%|
|00003bb0| 21 30 3d 32 30 3a 71 25 | 21 31 32 3d 71 25 21 38 |!0=20:q%|!12=q%!8|
|00003bc0| 3a 71 25 21 31 36 3d 34 | 3a c8 99 20 22 57 69 6d |:q%!16=4|:.. "Wim|
|00003bd0| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00003be0| 37 2c 71 25 2c 71 25 21 | 34 0d 19 46 11 e7 20 73 |7,q%,q%!|4..F.. s|
|00003bf0| 70 6c 69 74 74 65 72 25 | 20 8c 0d 19 50 1b f2 73 |plitter%| ...P..s|
|00003c00| 70 6c 69 74 6d 6f 64 75 | 6c 65 28 70 61 74 68 6e |plitmodu|le(pathn|
|00003c10| 61 6d 65 24 29 0d 19 5a | 05 cc 0d 19 64 10 ff 20 |ame$)..Z|....d.. |
|00003c20| 22 50 6c 61 79 53 74 6f | 70 22 0d 19 6e 1a ff 20 |"PlaySto|p"..n.. |
|00003c30| 22 50 6c 61 79 4d 6f 64 | 20 22 2b 70 61 74 68 6e |"PlayMod| "+pathn|
|00003c40| 61 6d 65 24 0d 19 78 1f | 24 63 75 72 72 65 6e 74 |ame$..x.|$current|
|00003c50| 6c 79 70 6c 61 79 69 6e | 67 25 3d c4 31 30 2c 22 |lyplayin|g%=.10,"|
|00003c60| 20 22 29 0d 19 82 41 71 | 25 21 30 3d 2d 31 3a 71 | ")...Aq|%!0=-1:q|
|00003c70| 25 21 34 3d 69 63 62 61 | 72 25 3a 71 25 21 38 3d |%!4=icba|r%:q%!8=|
|00003c80| 30 3a 71 25 21 31 32 3d | 30 3a c8 99 20 22 57 69 |0:q%!12=|0:.. "Wi|
|00003c90| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00003ca0| 2c 2c 71 25 0d 19 8c 27 | 24 63 75 72 72 65 6e 74 |,,q%...'|$current|
|00003cb0| 6c 79 70 6c 61 79 69 6e | 67 25 3d a4 6c 65 61 66 |lyplayin|g%=.leaf|
|00003cc0| 28 70 61 74 68 6e 61 6d | 65 24 29 0d 19 96 41 71 |(pathnam|e$)...Aq|
|00003cd0| 25 21 30 3d 2d 31 3a 71 | 25 21 34 3d 69 63 62 61 |%!0=-1:q|%!4=icba|
|00003ce0| 72 25 3a 71 25 21 38 3d | 30 3a 71 25 21 31 32 3d |r%:q%!8=|0:q%!12=|
|00003cf0| 30 3a c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |0:.. "Wi|mp_SetIc|
|00003d00| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 25 0d 19 a0 05 |onState"|,,q%....|
|00003d10| cd 0d 19 aa 08 c9 20 2d | 32 0d 19 b4 0f e7 20 63 |...... -|2..... c|
|00003d20| 61 6c 6c 25 3d 33 20 8c | 0d 19 be a9 e7 20 6e 6f |all%=3 .|..... no|
|00003d30| 6f 66 64 69 72 65 63 74 | 6f 72 69 65 73 25 3d 6d |ofdirect|ories%=m|
|00003d40| 61 78 64 69 72 65 63 74 | 6f 72 69 65 73 25 20 8c |axdirect|ories% .|
|00003d50| 20 f2 77 61 72 6e 69 6e | 67 28 22 54 6f 20 61 64 | .warnin|g("To ad|
|00003d60| 64 20 65 78 74 72 61 20 | 64 69 72 65 63 74 6f 72 |d extra |director|
|00003d70| 69 65 73 2c 20 64 75 65 | 20 74 6f 20 69 6e 74 65 |ies, due| to inte|
|00003d80| 72 6e 61 6c 20 64 61 74 | 61 20 73 74 72 75 63 74 |rnal dat|a struct|
|00003d90| 75 72 65 73 2c 20 70 6c | 65 61 73 65 20 71 75 69 |ures, pl|ease qui|
|00003da0| 74 20 74 68 69 73 20 61 | 70 70 6c 69 63 61 74 69 |t this a|pplicati|
|00003db0| 6f 6e 20 61 6e 64 20 74 | 68 65 6e 20 72 65 6c 6f |on and t|hen relo|
|00003dc0| 61 64 20 61 6e 64 20 72 | 65 74 72 79 2e 22 29 3a |ad and r|etry."):|
|00003dd0| e1 0d 19 c8 3f 71 25 21 | 30 3d 32 30 3a 71 25 21 |....?q%!|0=20:q%!|
|00003de0| 31 32 3d 71 25 21 38 3a | 71 25 21 31 36 3d 34 3a |12=q%!8:|q%!16=4:|
|00003df0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00003e00| 73 61 67 65 22 2c 31 37 | 2c 71 25 2c 71 25 21 34 |sage",17|,q%,q%!4|
|00003e10| 0d 19 d2 28 64 69 72 6e | 61 6d 65 24 28 6e 6f 6f |...(dirn|ame$(noo|
|00003e20| 66 64 69 72 65 63 74 6f | 72 69 65 73 25 29 3d 70 |fdirecto|ries%)=p|
|00003e30| 61 74 68 6e 61 6d 65 24 | 0d 19 dc 17 6e 6f 6f 66 |athname$|....noof|
|00003e40| 64 69 72 65 63 74 6f 72 | 69 65 73 25 2b 3d 31 0d |director|ies%+=1.|
|00003e50| 19 e6 25 68 61 6e 64 6c | 65 25 3d ad 28 61 70 70 |..%handl|e%=.(app|
|00003e60| 5f 70 61 74 68 24 2b 22 | 2e 73 61 6d 70 70 61 74 |_path$+"|.samppat|
|00003e70| 68 73 22 29 0d 19 f0 1e | f1 23 68 61 6e 64 6c 65 |hs")....|.#handle|
|00003e80| 25 2c 6e 6f 6f 66 64 69 | 72 65 63 74 6f 72 69 65 |%,noofdi|rectorie|
|00003e90| 73 25 0d 19 fa 1a e7 20 | 6e 6f 6f 66 64 69 72 65 |s%..... |noofdire|
|00003ea0| 63 74 6f 72 69 65 73 25 | 3e 31 20 8c 0d 1a 04 31 |ctories%|>1 ....1|
|00003eb0| e3 20 6c 6f 6f 70 25 3d | 31 20 b8 20 6e 6f 6f 66 |. loop%=|1 . noof|
|00003ec0| 64 69 72 65 63 74 6f 72 | 69 65 73 25 2d 31 3a e8 |director|ies%-1:.|
|00003ed0| 23 68 61 6e 64 6c 65 25 | 2c 61 24 3a ed 0d 1a 0e |#handle%|,a$:....|
|00003ee0| 05 cd 0d 1a 18 17 f1 23 | 68 61 6e 64 6c 65 25 2c |.......#|handle%,|
|00003ef0| 70 61 74 68 6e 61 6d 65 | 24 0d 1a 22 29 64 69 72 |pathname|$..")dir|
|00003f00| 77 69 64 74 68 25 3d a4 | 6d 61 78 28 64 69 72 77 |width%=.|max(dirw|
|00003f10| 69 64 74 68 25 2c a9 20 | 70 61 74 68 6e 61 6d 65 |idth%,. |pathname|
|00003f20| 24 29 0d 1a 2c 0d d9 23 | 68 61 6e 64 6c 65 25 0d |$)..,..#|handle%.|
|00003f30| 1a 36 12 71 25 21 30 3d | 30 3a 71 25 21 31 32 3d |.6.q%!0=|0:q%!12=|
|00003f40| 30 0d 1a 40 3e 71 25 21 | 38 3d 64 69 72 77 69 64 |0..@>q%!|8=dirwid|
|00003f50| 74 68 25 2a 31 36 2b 31 | 36 3a 71 25 21 34 3d 2d |th%*16+1|6:q%!4=-|
|00003f60| 28 6e 6f 6f 66 64 69 72 | 65 63 74 6f 72 69 65 73 |(noofdir|ectories|
|00003f70| 25 2a 79 5f 73 70 61 63 | 69 6e 67 25 2b 38 29 0d |%*y_spac|ing%+8).|
|00003f80| 1a 4a 27 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 45 |.J'.. "W|imp_SetE|
|00003f90| 78 74 65 6e 74 22 2c 64 | 69 72 65 63 74 6f 72 69 |xtent",d|irectori|
|00003fa0| 65 73 25 2c 71 25 0d 1a | 54 5b c8 99 20 22 57 69 |es%,q%..|T[.. "Wi|
|00003fb0| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|00003fc0| 64 69 72 65 63 74 6f 72 | 69 65 73 25 2c 30 2c 2d |director|ies%,0,-|
|00003fd0| 28 6e 6f 6f 66 64 69 72 | 65 63 74 6f 72 69 65 73 |(noofdir|ectories|
|00003fe0| 25 2a 79 5f 73 70 61 63 | 69 6e 67 25 2b 38 29 2c |%*y_spac|ing%+8),|
|00003ff0| 64 69 72 77 69 64 74 68 | 25 2a 31 36 2b 31 36 2c |dirwidth|%*16+16,|
|00004000| 30 0d 1a 5e 05 cd 0d 1a | 68 05 cb 0d 1a 72 05 cd |0..^....|h....r..|
|00004010| 0d 1a 7c 05 e1 0d 1a 86 | 05 3a 0d 1a 90 10 dd 20 |..|.....|.:..... |
|00004020| f2 6e 6f 61 63 6b 28 71 | 25 29 0d 1a 9a 15 e7 20 |.noack(q|%)..... |
|00004030| 71 25 21 38 20 3d 20 6d | 79 72 65 66 25 20 8c 0d |q%!8 = m|yref% ..|
|00004040| 1a a4 35 24 28 71 25 2b | 34 29 3d 22 48 6d 6d 2e |..5$(q%+|4)="Hmm.|
|00004050| 20 57 68 79 20 64 6f 65 | 73 20 6e 6f 20 6f 6e 65 | Why doe|s no one|
|00004060| 20 61 63 6b 6e 6f 77 6c | 65 64 67 65 20 6d 65 3f | acknowl|edge me?|
|00004070| 22 2b bd 30 0d 1a ae 2a | c8 99 20 22 57 69 6d 70 |"+.0...*|.. "Wimp|
|00004080| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 71 25 |_ReportE|rror",q%|
|00004090| 2c 31 2c 70 72 6f 67 5f | 74 69 74 6c 65 24 0d 1a |,1,prog_|title$..|
|000040a0| b8 0d 6d 79 72 65 66 25 | 3d 2d 31 0d 1a c2 05 cd |..myref%|=-1.....|
|000040b0| 0d 1a cc 05 e1 0d 1a d6 | 05 3a 0d 1a e0 16 dd 20 |........|.:..... |
|000040c0| f2 64 61 74 61 6c 6f 61 | 64 61 63 6b 28 71 25 29 |.dataloa|dack(q%)|
|000040d0| 0d 1a ea 14 e7 20 71 25 | 21 31 32 3d 6d 79 72 65 |..... q%|!12=myre|
|000040e0| 66 25 20 8c 0d 1a f4 0d | 6d 79 72 65 66 25 3d 2d |f% .....|myref%=-|
|000040f0| 31 0d 1a fe 10 6c 65 61 | 66 6e 61 6d 65 24 3d 22 |1....lea|fname$="|
|00004100| 22 0d 1b 08 05 cd 0d 1b | 12 05 e1 0d 1b 1c 05 3a |".......|.......:|
|00004110| 0d 1b 26 13 dd 20 f2 64 | 61 74 61 73 61 76 65 28 |..&.. .d|atasave(|
|00004120| 71 25 29 0d 1b 30 16 e7 | 20 71 25 21 34 3d 74 61 |q%)..0..| q%!4=ta|
|00004130| 73 6b 69 64 25 20 8c 20 | e1 0d 1b 3a 1a e7 20 71 |skid% . |...:.. q|
|00004140| 25 21 34 30 3c 3e 73 6f | 6e 67 74 79 70 65 25 20 |%!40<>so|ngtype% |
|00004150| 8c 20 e1 0d 1b 44 29 6c | 65 61 66 6e 61 6d 65 24 |. ...D)l|eafname$|
|00004160| 3d a4 6c 65 61 66 28 a4 | 6d 65 6d 74 6f 73 74 72 |=.leaf(.|memtostr|
|00004170| 28 71 25 2b 34 34 2c 31 | 30 30 29 29 0d 1b 4e 0b |(q%+44,1|00))..N.|
|00004180| 71 25 21 30 3d 36 30 0d | 1b 58 0e 71 25 21 31 32 |q%!0=60.|.X.q%!12|
|00004190| 3d 71 25 21 38 0d 1b 62 | 0b 71 25 21 31 36 3d 32 |=q%!8..b|.q%!16=2|
|000041a0| 0d 1b 6c 0c 71 25 21 33 | 36 3d 2d 31 0d 1b 76 3c |..l.q%!3|6=-1..v<|
|000041b0| c8 99 20 22 58 4f 53 5f | 52 65 61 64 56 61 72 56 |.. "XOS_|ReadVarV|
|000041c0| 61 6c 22 2c 22 57 69 6d | 70 24 53 63 72 61 70 22 |al","Wim|p$Scrap"|
|000041d0| 2c 71 25 2b 31 30 30 2c | 31 30 2c 30 2c 30 20 b8 |,q%+100,|10,0,0 .|
|000041e0| 20 2c 2c 74 65 6d 70 25 | 0d 1b 80 12 e7 20 74 65 | ,,temp%|..... te|
|000041f0| 6d 70 25 20 3c 3e 20 30 | 20 8c 0d 1b 8a 1b 24 28 |mp% <> 0| .....$(|
|00004200| 71 25 2b 34 34 29 3d 22 | 3c 57 69 6d 70 24 53 63 |q%+44)="|<Wimp$Sc|
|00004210| 72 61 70 3e 22 0d 1b 94 | 24 c8 99 20 22 57 69 6d |rap>"...|$.. "Wim|
|00004220| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00004230| 38 2c 71 25 2c 71 25 21 | 34 0d 1b 9e 0f 6d 79 72 |8,q%,q%!|4....myr|
|00004240| 65 66 25 3d 71 25 21 38 | 0d 1b a8 05 cc 0d 1b b2 |ef%=q%!8|........|
|00004250| 28 f2 77 61 72 6e 69 6e | 67 28 22 3c 57 69 6d 70 |(.warnin|g("<Wimp|
|00004260| 24 53 63 72 61 70 3e 20 | 6e 6f 74 20 64 65 66 69 |$Scrap> |not defi|
|00004270| 6e 65 64 22 29 0d 1b bc | 05 cd 0d 1b c6 05 e1 0d |ned")...|........|
|00004280| 1b d0 05 3a 0d 1b da 18 | dd 20 f2 6c 6f 61 64 6d |...:....|. .loadm|
|00004290| 6f 64 75 6c 65 28 66 69 | 6c 65 24 29 0d 1b e4 43 |odule(fi|le$)...C|
|000042a0| ea 20 68 61 6e 64 6c 65 | 25 2c 73 69 7a 65 25 2c |. handle|%,size%,|
|000042b0| 6e 65 77 25 2c 73 61 6d | 70 6c 65 69 2c 74 72 61 |new%,sam|plei,tra|
|000042c0| 63 6b 73 25 2c 6c 6f 6f | 70 31 25 2c 6c 6f 6f 70 |cks%,loo|p1%,loop|
|000042d0| 32 25 2c 73 61 6d 70 6c | 65 73 74 6f 72 65 25 0d |2%,sampl|estore%.|
|000042e0| 1b ee 12 e7 20 66 69 6c | 65 24 3d 22 22 20 8c 20 |.... fil|e$="" . |
|000042f0| e1 0d 1b f8 55 68 61 6e | 64 6c 65 25 3d ad 20 66 |....Uhan|dle%=. f|
|00004300| 69 6c 65 24 3a e7 20 68 | 61 6e 64 6c 65 25 3d 30 |ile$:. h|andle%=0|
|00004310| 20 8c 20 d9 23 68 61 6e | 64 6c 65 25 3a f2 77 61 | . .#han|dle%:.wa|
|00004320| 72 6e 69 6e 67 28 22 43 | 61 6e 27 74 20 66 69 6e |rning("C|an't fin|
|00004330| 64 20 66 69 6c 65 20 27 | 22 2b 66 69 6c 65 24 2b |d file '|"+file$+|
|00004340| 22 27 22 29 3a e1 0d 1c | 02 21 74 75 6e 65 73 69 |"'"):...|.!tunesi|
|00004350| 7a 65 25 3d a2 23 68 61 | 6e 64 6c 65 25 3a d9 23 |ze%=.#ha|ndle%:.#|
|00004360| 68 61 6e 64 6c 65 25 0d | 1c 0c 3c c8 99 20 22 57 |handle%.|..<.. "W|
|00004370| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 28 73 |imp_Slot|Size",(s|
|00004380| 74 61 72 74 73 6c 6f 74 | 25 2b 74 75 6e 65 73 69 |tartslot|%+tunesi|
|00004390| 7a 65 25 2b 31 30 32 34 | 29 2c 2d 31 20 b8 20 6e |ze%+1024|),-1 . n|
|000043a0| 65 77 25 0d 1c 16 23 e7 | 20 28 6e 65 77 25 2d 73 |ew%...#.| (new%-s|
|000043b0| 74 61 72 74 73 6c 6f 74 | 25 29 3c 74 75 6e 65 73 |tartslot|%)<tunes|
|000043c0| 69 7a 65 25 20 8c 0d 1c | 20 26 c8 99 20 22 57 69 |ize% ...| &.. "Wi|
|000043d0| 6d 70 5f 53 6c 6f 74 53 | 69 7a 65 22 2c 63 75 72 |mp_SlotS|ize",cur|
|000043e0| 72 65 6e 74 73 6c 6f 74 | 25 2c 2d 31 0d 1c 2a 3a |rentslot|%,-1..*:|
|000043f0| f2 77 61 72 6e 69 6e 67 | 28 22 4e 6f 74 20 65 6e |.warning|("Not en|
|00004400| 6f 75 67 68 20 6d 65 6d | 6f 72 79 20 61 76 61 69 |ough mem|ory avai|
|00004410| 6c 61 62 6c 65 20 74 6f | 20 6c 6f 61 64 20 6d 6f |lable to| load mo|
|00004420| 64 75 6c 65 22 29 0d 1c | 34 05 e1 0d 1c 3e 05 cd |dule")..|4....>..|
|00004430| 0d 1c 48 15 63 75 72 72 | 65 6e 74 73 6c 6f 74 25 |..H.curr|entslot%|
|00004440| 3d 6e 65 77 25 0d 1c 52 | 14 6d 6f 64 75 6c 65 70 |=new%..R|.modulep|
|00004450| 74 72 25 3d 93 2b 32 35 | 36 0d 1c 5c 05 3a 0d 1c |tr%=.+25|6..\.:..|
|00004460| 66 1a 73 61 6d 70 6c 65 | 69 3d 6d 6f 64 75 6c 65 |f.sample|i=module|
|00004470| 70 74 72 25 2b 26 31 34 | 0d 1c 70 25 73 61 6d 70 |ptr%+&14|..p%samp|
|00004480| 6c 65 73 74 6f 72 65 25 | 3d 6d 6f 64 75 6c 65 70 |lestore%|=modulep|
|00004490| 74 72 25 2b 74 75 6e 65 | 73 69 7a 65 25 0d 1c 7a |tr%+tune|size%..z|
|000044a0| 05 3a 0d 1c 84 25 ff 28 | 22 4c 4f 41 44 20 22 2b |.:...%.(|"LOAD "+|
|000044b0| 66 69 6c 65 24 2b 22 20 | 22 2b c3 7e 6d 6f 64 75 |file$+" |"+.~modu|
|000044c0| 6c 65 70 74 72 25 29 0d | 1c 8e 05 3a 0d 1c 98 0f |leptr%).|...:....|
|000044d0| 73 61 6d 70 73 69 7a 65 | 25 3d 30 0d 1c a2 13 e3 |sampsize|%=0.....|
|000044e0| 20 6c 6f 6f 70 31 25 3d | 30 20 b8 20 31 34 0d 1c | loop1%=|0 . 14..|
|000044f0| ac 20 73 61 6d 70 6c 65 | 6f 3d 73 61 6d 70 6c 65 |. sample|o=sample|
|00004500| 69 2b 28 6c 6f 6f 70 31 | 25 2a 26 31 45 29 0d 1c |i+(loop1|%*&1E)..|
|00004510| b6 15 6e 61 6d 65 24 3d | 22 22 3a 6c 6f 6f 70 32 |..name$=|"":loop2|
|00004520| 25 3d 30 0d 1c c0 05 f5 | 0d 1c ca 3c e7 20 28 73 |%=0.....|...<. (s|
|00004530| 61 6d 70 6c 65 6f 3f 6c | 6f 6f 70 32 25 29 3c 3e |ampleo?l|oop2%)<>|
|00004540| 30 20 6e 61 6d 65 24 2b | 3d bd 28 73 61 6d 70 6c |0 name$+|=.(sampl|
|00004550| 65 6f 3f 6c 6f 6f 70 32 | 25 29 3a 6c 6f 6f 70 32 |eo?loop2|%):loop2|
|00004560| 25 2b 3d 31 0d 1c d4 23 | fd 28 73 61 6d 70 6c 65 |%+=1...#|.(sample|
|00004570| 6f 3f 6c 6f 6f 70 32 25 | 29 3d 30 20 84 20 6c 6f |o?loop2%|)=0 . lo|
|00004580| 6f 70 32 25 3d 31 30 0d | 1c de 2b e7 20 6e 61 6d |op2%=10.|..+. nam|
|00004590| 65 24 3d 22 62 61 73 73 | 64 72 75 6d 31 22 20 8c |e$="bass|drum1" .|
|000045a0| 20 6e 61 6d 65 24 3d 22 | 62 61 73 73 64 72 75 6d | name$="|bassdrum|
|000045b0| 33 22 0d 1c e8 11 e7 20 | 6e 61 6d 65 24 3c 3e 22 |3"..... |name$<>"|
|000045c0| 22 20 8c 0d 1c f2 30 73 | 61 6d 70 73 69 7a 65 25 |" ....0s|ampsize%|
|000045d0| 2b 3d 32 2a 28 28 73 61 | 6d 70 6c 65 6f 3f 32 32 |+=2*((sa|mpleo?22|
|000045e0| 29 2a 32 35 36 2b 28 73 | 61 6d 70 6c 65 6f 3f 32 |)*256+(s|ampleo?2|
|000045f0| 33 29 29 0d 1c fc 05 cd | 0d 1d 06 05 ed 0d 1d 10 |3)).....|........|
|00004600| 05 3a 0d 1d 1a 46 c8 99 | 20 22 57 69 6d 70 5f 53 |.:...F..| "Wimp_S|
|00004610| 6c 6f 74 53 69 7a 65 22 | 2c 28 73 74 61 72 74 73 |lotSize"|,(starts|
|00004620| 6c 6f 74 25 2b 74 75 6e | 65 73 69 7a 65 25 2b 73 |lot%+tun|esize%+s|
|00004630| 61 6d 70 73 69 7a 65 25 | 2b 31 30 32 34 29 2c 2d |ampsize%|+1024),-|
|00004640| 31 20 b8 20 6e 65 77 25 | 0d 1d 24 2d e7 20 28 6e |1 . new%|..$-. (n|
|00004650| 65 77 25 2d 73 74 61 72 | 74 73 6c 6f 74 25 29 3c |ew%-star|tslot%)<|
|00004660| 74 75 6e 65 73 69 7a 65 | 25 2b 73 61 6d 70 73 69 |tunesize|%+sampsi|
|00004670| 7a 65 25 20 8c 0d 1d 2e | 26 c8 99 20 22 57 69 6d |ze% ....|&.. "Wim|
|00004680| 70 5f 53 6c 6f 74 53 69 | 7a 65 22 2c 63 75 72 72 |p_SlotSi|ze",curr|
|00004690| 65 6e 74 73 6c 6f 74 25 | 2c 2d 31 0d 1d 38 3a f2 |entslot%|,-1..8:.|
|000046a0| 77 61 72 6e 69 6e 67 28 | 22 4e 6f 74 20 65 6e 6f |warning(|"Not eno|
|000046b0| 75 67 68 20 6d 65 6d 6f | 72 79 20 61 76 61 69 6c |ugh memo|ry avail|
|000046c0| 61 62 6c 65 20 74 6f 20 | 6c 6f 61 64 20 6d 6f 64 |able to |load mod|
|000046d0| 75 6c 65 22 29 0d 1d 42 | 05 e1 0d 1d 4c 05 cd 0d |ule")..B|....L...|
|000046e0| 1d 56 15 63 75 72 72 65 | 6e 74 73 6c 6f 74 25 3d |.V.curre|ntslot%=|
|000046f0| 6e 65 77 25 0d 1d 60 05 | 3a 0d 1d 6a 13 e3 20 6c |new%..`.|:..j.. l|
|00004700| 6f 6f 70 31 25 3d 30 20 | b8 20 31 34 0d 1d 74 20 |oop1%=0 |. 14..t |
|00004710| 73 61 6d 70 6c 65 6f 3d | 73 61 6d 70 6c 65 69 2b |sampleo=|samplei+|
|00004720| 28 6c 6f 6f 70 31 25 2a | 26 31 45 29 0d 1d 7e 15 |(loop1%*|&1E)..~.|
|00004730| 6e 61 6d 65 24 3d 22 22 | 3a 6c 6f 6f 70 32 25 3d |name$=""|:loop2%=|
|00004740| 30 0d 1d 88 05 f5 0d 1d | 92 3c e7 20 28 73 61 6d |0.......|.<. (sam|
|00004750| 70 6c 65 6f 3f 6c 6f 6f | 70 32 25 29 3c 3e 30 20 |pleo?loo|p2%)<>0 |
|00004760| 6e 61 6d 65 24 2b 3d bd | 28 73 61 6d 70 6c 65 6f |name$+=.|(sampleo|
|00004770| 3f 6c 6f 6f 70 32 25 29 | 3a 6c 6f 6f 70 32 25 2b |?loop2%)|:loop2%+|
|00004780| 3d 31 0d 1d 9c 23 fd 28 | 73 61 6d 70 6c 65 6f 3f |=1...#.(|sampleo?|
|00004790| 6c 6f 6f 70 32 25 29 3d | 30 20 84 20 6c 6f 6f 70 |loop2%)=|0 . loop|
|000047a0| 32 25 3d 32 30 0d 1d a6 | 1f 6e 61 6d 65 24 3d c1 |2%=20...|.name$=.|
|000047b0| 6e 61 6d 65 24 2c a7 6e | 61 6d 65 24 2c 22 3a 22 |name$,.n|ame$,":"|
|000047c0| 29 2b 31 29 0d 1d b0 1f | 6e 61 6d 65 24 3d a4 66 |)+1)....|name$=.f|
|000047d0| 69 6c 74 65 72 28 6e 61 | 6d 65 24 2c 34 38 2c 31 |ilter(na|me$,48,1|
|000047e0| 32 36 29 0d 1d ba 14 6e | 61 6d 65 24 3d c0 6e 61 |26)....n|ame$=.na|
|000047f0| 6d 65 24 2c 31 30 29 0d | 1d c4 29 e7 20 6e 61 6d |me$,10).|..). nam|
|00004800| 65 24 3d 22 62 61 73 73 | 64 72 75 6d 31 22 20 6e |e$="bass|drum1" n|
|00004810| 61 6d 65 24 3d 22 62 61 | 73 73 64 72 75 6d 33 22 |ame$="ba|ssdrum3"|
|00004820| 0d 1d ce 11 e7 20 6e 61 | 6d 65 24 3c 3e 22 22 20 |..... na|me$<>"" |
|00004830| 8c 0d 1d d8 17 6e 6f 74 | 6c 6f 61 64 25 3d b9 3a |.....not|load%=.:|
|00004840| 63 6f 75 6e 74 25 3d 30 | 0d 1d e2 29 c8 95 20 6e |count%=0|...).. n|
|00004850| 6f 74 6c 6f 61 64 25 20 | 80 20 63 6f 75 6e 74 25 |otload% |. count%|
|00004860| 3c 6e 6f 6f 66 64 69 72 | 65 63 74 6f 72 69 65 73 |<noofdir|ectories|
|00004870| 25 0d 1d ec 29 68 61 6e | 64 6c 65 25 3d ad 28 64 |%...)han|dle%=.(d|
|00004880| 69 72 6e 61 6d 65 24 28 | 63 6f 75 6e 74 25 29 2b |irname$(|count%)+|
|00004890| 22 2e 22 2b 6e 61 6d 65 | 24 29 0d 1d f6 11 e7 20 |"."+name|$)..... |
|000048a0| 68 61 6e 64 6c 65 25 3d | 30 20 8c 0d 1e 00 0d d9 |handle%=|0 ......|
|000048b0| 23 68 61 6e 64 6c 65 25 | 0d 1e 0a 05 cc 0d 1e 14 |#handle%|........|
|000048c0| 0d d9 23 68 61 6e 64 6c | 65 25 0d 1e 1e 3e ff 28 |..#handl|e%...>.(|
|000048d0| 22 4c 4f 41 44 20 22 2b | 64 69 72 6e 61 6d 65 24 |"LOAD "+|dirname$|
|000048e0| 28 63 6f 75 6e 74 25 29 | 2b 22 2e 22 2b 6e 61 6d |(count%)|+"."+nam|
|000048f0| 65 24 2b 22 20 22 2b c3 | 7e 28 73 61 6d 70 6c 65 |e$+" "+.|~(sample|
|00004900| 73 74 6f 72 65 25 29 29 | 0d 1e 28 33 73 61 6d 70 |store%))|..(3samp|
|00004910| 6c 65 73 74 6f 72 65 25 | 2b 3d 32 2a 28 28 73 61 |lestore%|+=2*((sa|
|00004920| 6d 70 6c 65 6f 3f 32 32 | 29 2a 32 35 36 2b 28 73 |mpleo?22|)*256+(s|
|00004930| 61 6d 70 6c 65 6f 3f 32 | 33 29 29 0d 1e 32 0e 6e |ampleo?2|3))..2.n|
|00004940| 6f 74 6c 6f 61 64 25 3d | a3 0d 1e 3c 05 cd 0d 1e |otload%=|...<....|
|00004950| 46 0d 63 6f 75 6e 74 25 | 2b 3d 31 0d 1e 50 05 ce |F.count%|+=1..P..|
|00004960| 0d 1e 5a 76 e7 20 6e 6f | 74 6c 6f 61 64 25 3d b9 |..Zv. no|tload%=.|
|00004970| 20 8c 20 f2 77 61 72 6e | 69 6e 67 28 22 43 61 6e | . .warn|ing("Can|
|00004980| 27 74 20 66 69 6e 64 20 | 66 69 6c 65 20 27 22 2b |'t find |file '"+|
|00004990| 6e 61 6d 65 24 2b 22 27 | 22 29 3a c8 99 20 22 57 |name$+"'|"):.. "W|
|000049a0| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 73 74 |imp_Slot|Size",st|
|000049b0| 61 72 74 73 6c 6f 74 25 | 2c 2d 31 3a 63 75 72 72 |artslot%|,-1:curr|
|000049c0| 65 6e 74 73 6c 6f 74 25 | 3d 73 74 61 72 74 73 6c |entslot%|=startsl|
|000049d0| 6f 74 25 3a e1 20 0d 1e | 64 05 cd 0d 1e 6e 05 ed |ot%:. ..|d....n..|
|000049e0| 0d 1e 78 05 3a 0d 1e 82 | 17 3f 28 73 61 6d 70 6c |..x.:...|.?(sampl|
|000049f0| 65 73 74 6f 72 65 25 2b | 31 29 3d 30 0d 1e 8c 1f |estore%+|1)=0....|
|00004a00| 65 6e 64 6f 66 6d 6f 64 | 75 6c 65 25 3d 73 61 6d |endofmod|ule%=sam|
|00004a10| 70 6c 65 73 74 6f 72 65 | 25 2b 31 0d 1e 96 1b 24 |plestore|%+1....$|
|00004a20| 66 69 6c 65 6e 61 6d 65 | 25 3d a4 6c 65 61 66 28 |filename|%=.leaf(|
|00004a30| 66 69 6c 65 24 29 0d 1e | a0 23 71 25 21 30 3d 73 |file$)..|.#q%!0=s|
|00004a40| 61 76 65 25 3a 71 25 21 | 34 3d 32 3a c8 99 20 26 |ave%:q%!|4=2:.. &|
|00004a50| 34 30 30 43 45 2c 2c 71 | 25 0d 1e aa 19 73 61 76 |400CE,,q|%....sav|
|00004a60| 65 74 79 70 65 25 3d 6d | 6f 64 75 6c 65 74 79 70 |etype%=m|oduletyp|
|00004a70| 65 25 0d 1e b4 23 24 28 | 71 25 2b 32 38 29 3d a4 |e%...#$(|q%+28)=.|
|00004a80| 66 69 6c 65 73 70 72 69 | 74 65 28 73 61 76 65 74 |filespri|te(savet|
|00004a90| 79 70 65 25 29 0d 1e be | 27 c8 99 20 22 57 69 6d |ype%)...|'.. "Wim|
|00004aa0| 70 5f 44 65 6c 65 74 65 | 49 63 6f 6e 22 2c 2c 71 |p_Delete|Icon",,q|
|00004ab0| 25 3a 71 25 21 34 3d 73 | 61 76 65 25 0d 1e c8 2b |%:q%!4=s|ave%...+|
|00004ac0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00004ad0| 63 6f 6e 22 2c 2c 28 71 | 25 2b 34 29 3a f4 20 54 |con",,(q|%+4):. T|
|00004ae0| 4f 20 69 63 6f 6e 25 0d | 1e d2 3f 71 25 21 30 3d |O icon%.|..?q%!0=|
|00004af0| 73 61 76 65 25 3a 71 25 | 21 34 3d 30 3a 71 25 21 |save%:q%|!4=0:q%!|
|00004b00| 38 3d 30 3a 71 25 21 31 | 32 3d 30 3a c8 99 20 22 |8=0:q%!1|2=0:.. "|
|00004b10| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00004b20| 65 22 2c 2c 71 25 0d 1e | dc 11 f2 66 72 6f 6e 74 |e",,q%..|...front|
|00004b30| 28 73 61 76 65 25 29 0d | 1e e6 39 c8 99 20 22 57 |(save%).|..9.. "W|
|00004b40| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00004b50| 74 69 6f 6e 22 2c 73 61 | 76 65 25 2c 30 2c 30 2c |tion",sa|ve%,0,0,|
|00004b60| 30 2c 2d 31 2c a9 24 66 | 69 6c 65 6e 61 6d 65 25 |0,-1,.$f|ilename%|
|00004b70| 0d 1e f0 05 e1 0d 1e fa | 05 3a 0d 1f 04 12 dd 20 |........|.:..... |
|00004b80| f2 77 61 72 6e 69 6e 67 | 28 61 24 29 0d 1f 0e 17 |.warning|(a$)....|
|00004b90| 21 71 25 3d 9f 3a 24 28 | 71 25 2b 34 29 3d 61 24 |!q%=.:$(|q%+4)=a$|
|00004ba0| 2b bd 30 0d 1f 18 2a c8 | 99 20 22 57 69 6d 70 5f |+.0...*.|. "Wimp_|
|00004bb0| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 71 25 2c |ReportEr|ror",q%,|
|00004bc0| 31 2c 70 72 6f 67 5f 74 | 69 74 6c 65 24 0d 1f 22 |1,prog_t|itle$.."|
|00004bd0| 05 e1 0d 1f 2c 05 3a 0d | 1f 36 12 dd 20 f2 64 72 |....,.:.|.6.. .dr|
|00004be0| 61 67 62 6f 78 28 71 25 | 29 0d 1f 40 12 e7 20 64 |agbox(q%|)..@.. d|
|00004bf0| 72 61 67 62 6f 78 25 3d | b9 20 8c 0d 1f 4a 0e 64 |ragbox%=|. ...J.d|
|00004c00| 72 61 67 62 6f 78 25 3d | a3 0d 1f 54 0f f2 67 65 |ragbox%=|...T..ge|
|00004c10| 74 70 6f 69 6e 74 65 72 | 0d 1f 5e 0b 71 25 21 30 |tpointer|..^.q%!0|
|00004c20| 3d 36 30 0d 1f 68 0b 71 | 25 21 31 32 3d 30 0d 1f |=60..h.q|%!12=0..|
|00004c30| 72 0b 71 25 21 31 36 3d | 31 0d 1f 7c 11 71 25 21 |r.q%!16=|1..|.q%!|
|00004c40| 32 30 3d 68 61 6e 64 6c | 65 25 0d 1f 86 0f 71 25 |20=handl|e%....q%|
|00004c50| 21 32 34 3d 69 63 6f 6e | 25 0d 1f 90 11 71 25 21 |!24=icon|%....q%!|
|00004c60| 32 38 3d 6d 6f 75 73 65 | 78 25 0d 1f 9a 11 71 25 |28=mouse|x%....q%|
|00004c70| 21 33 32 3d 6d 6f 75 73 | 65 79 25 0d 1f a4 0e 71 |!32=mous|ey%....q|
|00004c80| 25 21 33 36 3d 32 30 30 | 30 0d 1f ae 13 71 25 21 |%!36=200|0....q%!|
|00004c90| 34 30 3d 73 61 76 65 74 | 79 70 65 25 0d 1f b8 23 |40=savet|ype%...#|
|00004ca0| 24 28 71 25 2b 34 34 29 | 3d a4 6c 65 61 66 28 24 |$(q%+44)|=.leaf($|
|00004cb0| 66 69 6c 65 6e 61 6d 65 | 25 29 2b bd 28 30 29 0d |filename|%)+.(0).|
|00004cc0| 1f c2 2d c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |..-.. "W|imp_Send|
|00004cd0| 4d 65 73 73 61 67 65 22 | 2c 31 37 2c 71 25 2c 68 |Message"|,17,q%,h|
|00004ce0| 61 6e 64 6c 65 25 2c 69 | 63 6f 6e 25 0d 1f cc 0f |andle%,i|con%....|
|00004cf0| 6d 79 72 65 66 25 3d 71 | 25 21 38 0d 1f d6 05 cd |myref%=q|%!8.....|
|00004d00| 0d 1f e0 05 e1 0d 1f ea | 05 3a 0d 1f f4 16 dd 20 |........|.:..... |
|00004d10| f2 64 61 74 61 73 61 76 | 65 61 63 6b 28 71 25 29 |.datasav|eack(q%)|
|00004d20| 0d 1f fe 14 e7 20 71 25 | 21 31 32 3d 6d 79 72 65 |..... q%|!12=myre|
|00004d30| 66 25 20 8c 0d 20 08 46 | ff 20 22 53 61 76 65 20 |f% .. .F|. "Save |
|00004d40| 22 2b a4 6d 65 6d 74 6f | 73 74 72 28 71 25 2b 34 |"+.memto|str(q%+4|
|00004d50| 34 2c 31 30 30 29 2b 22 | 20 22 2b c3 7e 6d 6f 64 |4,100)+"| "+.~mod|
|00004d60| 75 6c 65 70 74 72 25 2b | 22 20 22 2b c3 7e 65 6e |uleptr%+|" "+.~en|
|00004d70| 64 6f 66 6d 6f 64 75 6c | 65 25 0d 20 12 37 ff 20 |dofmodul|e%. .7. |
|00004d80| 22 53 65 74 54 79 70 65 | 20 22 2b a4 6d 65 6d 74 |"SetType| "+.memt|
|00004d90| 6f 73 74 72 28 71 25 2b | 34 34 2c 31 30 30 29 2b |ostr(q%+|44,100)+|
|00004da0| 22 20 22 2b c3 7e 28 73 | 61 76 65 74 79 70 65 25 |" "+.~(s|avetype%|
|00004db0| 29 0d 20 1c 18 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |). ...cl|ose_wind|
|00004dc0| 6f 77 28 73 61 76 65 25 | 29 0d 20 26 0e 71 25 21 |ow(save%|). &.q%!|
|00004dd0| 31 32 3d 71 25 21 38 0d | 20 30 0b 71 25 21 30 3d |12=q%!8.| 0.q%!0=|
|00004de0| 36 30 0d 20 3a 0b 71 25 | 21 31 36 3d 33 0d 20 44 |60. :.q%|!16=3. D|
|00004df0| 2d c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |-.. "Wim|p_SendMe|
|00004e00| 73 73 61 67 65 22 2c 31 | 38 2c 71 25 2c 68 61 6e |ssage",1|8,q%,han|
|00004e10| 64 6c 65 25 2c 69 63 6f | 6e 25 0d 20 4e 0f 6d 79 |dle%,ico|n%. N.my|
|00004e20| 72 65 66 25 3d 71 25 21 | 38 0d 20 58 24 c8 99 20 |ref%=q%!|8. X$.. |
|00004e30| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|00004e40| 73 74 61 72 74 73 6c 6f | 74 25 2c 2d 31 0d 20 62 |startslo|t%,-1. b|
|00004e50| 1b 63 75 72 72 65 6e 74 | 73 6c 6f 74 25 3d 73 74 |.current|slot%=st|
|00004e60| 61 72 74 73 6c 6f 74 25 | 0d 20 6c 05 cd 0d 20 76 |artslot%|. l... v|
|00004e70| 05 e1 0d 20 80 05 3a 0d | 20 8a 19 dd 20 f2 73 70 |... ..:.| ... .sp|
|00004e80| 6c 69 74 6d 6f 64 75 6c | 65 28 66 69 6c 65 24 29 |litmodul|e(file$)|
|00004e90| 0d 20 94 0d ea 20 68 61 | 6e 64 6c 65 25 0d 20 9e |. ... ha|ndle%. .|
|00004ea0| 12 e7 20 66 69 6c 65 24 | 3d 22 22 20 8c 20 e1 0d |.. file$|="" . ..|
|00004eb0| 20 a8 55 68 61 6e 64 6c | 65 25 3d ad 20 66 69 6c | .Uhandl|e%=. fil|
|00004ec0| 65 24 3a e7 20 68 61 6e | 64 6c 65 25 3d 30 20 8c |e$:. han|dle%=0 .|
|00004ed0| 20 d9 23 68 61 6e 64 6c | 65 25 3a f2 77 61 72 6e | .#handl|e%:.warn|
|00004ee0| 69 6e 67 28 22 43 61 6e | 27 74 20 66 69 6e 64 20 |ing("Can|'t find |
|00004ef0| 66 69 6c 65 20 27 22 2b | 66 69 6c 65 24 2b 22 27 |file '"+|file$+"'|
|00004f00| 22 29 3a e1 0d 20 b2 1d | 74 6c 65 6e 25 3d a2 23 |"):.. ..|tlen%=.#|
|00004f10| 68 61 6e 64 6c 65 25 3a | d9 23 68 61 6e 64 6c 65 |handle%:|.#handle|
|00004f20| 25 0d 20 bc 38 c8 99 20 | 22 57 69 6d 70 5f 53 6c |%. .8.. |"Wimp_Sl|
|00004f30| 6f 74 53 69 7a 65 22 2c | 28 73 74 61 72 74 73 6c |otSize",|(startsl|
|00004f40| 6f 74 25 2b 74 6c 65 6e | 25 2b 31 30 32 34 29 2c |ot%+tlen|%+1024),|
|00004f50| 2d 31 20 b8 20 6e 65 77 | 25 0d 20 c6 1f e7 20 28 |-1 . new|%. ... (|
|00004f60| 6e 65 77 25 2d 73 74 61 | 72 74 73 6c 6f 74 25 29 |new%-sta|rtslot%)|
|00004f70| 3c 74 6c 65 6e 25 20 8c | 0d 20 d0 26 c8 99 20 22 |<tlen% .|. .&.. "|
|00004f80| 57 69 6d 70 5f 53 6c 6f | 74 53 69 7a 65 22 2c 63 |Wimp_Slo|tSize",c|
|00004f90| 75 72 72 65 6e 74 73 6c | 6f 74 25 2c 2d 31 0d 20 |urrentsl|ot%,-1. |
|00004fa0| da 3a f2 77 61 72 6e 69 | 6e 67 28 22 4e 6f 74 20 |.:.warni|ng("Not |
|00004fb0| 65 6e 6f 75 67 68 20 6d | 65 6d 6f 72 79 20 61 76 |enough m|emory av|
|00004fc0| 61 69 6c 61 62 6c 65 20 | 74 6f 20 6c 6f 61 64 20 |ailable |to load |
|00004fd0| 6d 6f 64 75 6c 65 22 29 | 0d 20 e4 05 e1 0d 20 ee |module")|. .... .|
|00004fe0| 05 cd 0d 20 f8 15 63 75 | 72 72 65 6e 74 73 6c 6f |... ..cu|rrentslo|
|00004ff0| 74 25 3d 6e 65 77 25 0d | 21 02 14 6d 6f 64 75 6c |t%=new%.|!..modul|
|00005000| 65 70 74 72 25 3d 93 2b | 32 35 36 0d 21 0c 05 3a |eptr%=.+|256.!..:|
|00005010| 0d 21 16 25 ff 28 22 4c | 4f 41 44 20 22 2b 66 69 |.!.%.("L|OAD "+fi|
|00005020| 6c 65 24 2b 22 20 22 2b | c3 7e 6d 6f 64 75 6c 65 |le$+" "+|.~module|
|00005030| 70 74 72 25 29 0d 21 20 | 16 74 72 61 63 6b 24 3d |ptr%).! |.track$=|
|00005040| 22 22 3a 6c 6f 6f 70 31 | 25 3d 30 0d 21 2a 05 f5 |"":loop1|%=0.!*..|
|00005050| 0d 21 34 45 e7 20 28 6d | 6f 64 75 6c 65 70 74 72 |.!4E. (m|oduleptr|
|00005060| 25 3f 6c 6f 6f 70 31 25 | 29 3c 3e 30 20 8c 20 74 |%?loop1%|)<>0 . t|
|00005070| 72 61 63 6b 24 2b 3d bd | 28 6d 6f 64 75 6c 65 70 |rack$+=.|(modulep|
|00005080| 74 72 25 3f 6c 6f 6f 70 | 31 25 29 3a 6c 6f 6f 70 |tr%?loop|1%):loop|
|00005090| 31 25 2b 3d 31 0d 21 3e | 1a fd 28 6d 6f 64 75 6c |1%+=1.!>|..(modul|
|000050a0| 65 70 74 72 25 3f 6c 6f | 6f 70 31 25 29 3d 30 0d |eptr%?lo|op1%)=0.|
|000050b0| 21 48 10 f1 3b 74 72 61 | 63 6b 24 3b 22 29 22 0d |!H..;tra|ck$;")".|
|000050c0| 21 52 05 3a 0d 21 5c 3a | f4 20 46 69 6e 64 20 6c |!R.:.!\:|. Find l|
|000050d0| 65 6e 67 74 68 20 6f 66 | 20 74 75 6e 65 20 64 61 |ength of| tune da|
|000050e0| 74 61 20 62 79 20 6c 6f | 6f 6b 69 6e 67 20 74 68 |ta by lo|oking th|
|000050f0| 72 6f 75 67 68 20 70 61 | 74 74 65 72 6e 73 0d 21 |rough pa|tterns.!|
|00005100| 66 0b 68 69 67 68 25 3d | 30 0d 21 70 10 e3 20 41 |f.high%=|0.!p.. A|
|00005110| 25 3d 30 20 b8 20 31 32 | 37 0d 21 7a 3d e7 20 6d |%=0 . 12|7.!z=. m|
|00005120| 6f 64 75 6c 65 70 74 72 | 25 3f 28 26 31 44 38 2b |oduleptr|%?(&1D8+|
|00005130| 41 25 29 3e 68 69 67 68 | 25 20 8c 20 68 69 67 68 |A%)>high|% . high|
|00005140| 25 3d 6d 6f 64 75 6c 65 | 70 74 72 25 3f 28 26 31 |%=module|ptr%?(&1|
|00005150| 44 38 2b 41 25 29 0d 21 | 84 05 ed 0d 21 8e 0c 68 |D8+A%).!|....!..h|
|00005160| 69 67 68 25 2b 3d 31 0d | 21 98 05 3a 0d 21 a2 1a |igh%+=1.|!..:.!..|
|00005170| 73 61 6d 70 6c 65 69 3d | 6d 6f 64 75 6c 65 70 74 |samplei=|modulept|
|00005180| 72 25 2b 26 31 34 0d 21 | ac 27 73 70 6f 69 6e 74 |r%+&14.!|.'spoint|
|00005190| 3d 6d 6f 64 75 6c 65 70 | 74 72 25 2b 26 32 35 38 |=modulep|tr%+&258|
|000051a0| 2b 28 68 69 67 68 25 2a | 31 30 32 34 29 0d 21 b6 |+(high%*|1024).!.|
|000051b0| 13 74 75 6e 65 65 6e 64 | 25 3d 73 70 6f 69 6e 74 |.tuneend|%=spoint|
|000051c0| 0d 21 c0 16 73 61 6d 70 | 6c 65 73 3d 6d 6f 64 75 |.!..samp|les=modu|
|000051d0| 6c 65 70 74 72 25 0d 21 | ca 05 3a 0d 21 d4 12 e3 |leptr%.!|..:.!...|
|000051e0| 20 6c 6f 6f 70 25 3d 30 | 20 b8 20 31 34 0d 21 de | loop%=0| . 14.!.|
|000051f0| 1f 73 61 6d 70 6c 65 6f | 3d 73 61 6d 70 6c 65 69 |.sampleo|=samplei|
|00005200| 2b 28 6c 6f 6f 70 25 2a | 26 31 45 29 0d 21 e8 15 |+(loop%*|&1E).!..|
|00005210| 6e 61 6d 65 24 3d 22 22 | 3a 6c 6f 6f 70 31 25 3d |name$=""|:loop1%=|
|00005220| 30 0d 21 f2 05 f5 0d 21 | fc 3c e7 20 28 73 61 6d |0.!....!|.<. (sam|
|00005230| 70 6c 65 6f 3f 6c 6f 6f | 70 31 25 29 3c 3e 30 20 |pleo?loo|p1%)<>0 |
|00005240| 6e 61 6d 65 24 2b 3d bd | 28 73 61 6d 70 6c 65 6f |name$+=.|(sampleo|
|00005250| 3f 6c 6f 6f 70 31 25 29 | 3a 6c 6f 6f 70 31 25 2b |?loop1%)|:loop1%+|
|00005260| 3d 31 0d 22 06 23 fd 28 | 73 61 6d 70 6c 65 6f 3f |=1.".#.(|sampleo?|
|00005270| 6c 6f 6f 70 31 25 29 3d | 30 20 84 20 6c 6f 6f 70 |loop1%)=|0 . loop|
|00005280| 31 25 3d 32 30 0d 22 10 | 11 e7 20 6e 61 6d 65 24 |1%=20.".|.. name$|
|00005290| 3c 3e 22 22 20 8c 0d 22 | 1a 1f 6e 61 6d 65 24 3d |<>"" .."|..name$=|
|000052a0| c1 6e 61 6d 65 24 2c a7 | 6e 61 6d 65 24 2c 22 3a |.name$,.|name$,":|
|000052b0| 22 29 2b 31 29 0d 22 24 | 1f 6e 61 6d 65 24 3d a4 |")+1)."$|.name$=.|
|000052c0| 66 69 6c 74 65 72 28 6e | 61 6d 65 24 2c 34 38 2c |filter(n|ame$,48,|
|000052d0| 31 32 36 29 0d 22 2e 20 | e7 20 6e 61 6d 65 24 3d |126).". |. name$=|
|000052e0| 22 22 20 8c 20 6e 61 6d | 65 24 3d 22 6e 6f 2d 6e |"" . nam|e$="no-n|
|000052f0| 61 6d 65 22 0d 22 38 2a | 6c 65 6e 25 3d 32 2a 28 |ame"."8*|len%=2*(|
|00005300| 28 73 61 6d 70 6c 65 6f | 3f 32 32 29 2a 32 35 36 |(sampleo|?22)*256|
|00005310| 2b 28 73 61 6d 70 6c 65 | 6f 3f 32 33 29 29 0d 22 |+(sample|o?23))."|
|00005320| 42 44 ff 20 22 53 61 76 | 65 20 22 2b 64 69 72 6e |BD. "Sav|e "+dirn|
|00005330| 61 6d 65 24 28 30 29 2b | 22 2e 22 2b c0 6e 61 6d |ame$(0)+|"."+.nam|
|00005340| 65 24 2c 31 30 29 2b 22 | 20 22 2b c3 7e 28 73 70 |e$,10)+"| "+.~(sp|
|00005350| 6f 69 6e 74 29 2b 22 20 | 2b 20 22 2b c3 7e 6c 65 |oint)+" |+ "+.~le|
|00005360| 6e 25 0d 22 4c 10 73 70 | 6f 69 6e 74 2b 3d 6c 65 |n%."L.sp|oint+=le|
|00005370| 6e 25 0d 22 56 05 cd 0d | 22 60 05 ed 0d 22 6a 19 |n%."V...|"`..."j.|
|00005380| 65 6e 64 6f 66 6d 6f 64 | 75 6c 65 25 3d 74 75 6e |endofmod|ule%=tun|
|00005390| 65 65 6e 64 25 0d 22 74 | 1b 24 66 69 6c 65 6e 61 |eend%."t|.$filena|
|000053a0| 6d 65 25 3d a4 6c 65 61 | 66 28 66 69 6c 65 24 29 |me%=.lea|f(file$)|
|000053b0| 0d 22 7e 23 71 25 21 30 | 3d 73 61 76 65 25 3a 71 |."~#q%!0|=save%:q|
|000053c0| 25 21 34 3d 32 3a c8 99 | 20 26 34 30 30 43 45 2c |%!4=2:..| &400CE,|
|000053d0| 2c 71 25 0d 22 88 17 73 | 61 76 65 74 79 70 65 25 |,q%."..s|avetype%|
|000053e0| 3d 73 6f 6e 67 74 79 70 | 65 25 0d 22 92 23 24 28 |=songtyp|e%.".#$(|
|000053f0| 71 25 2b 32 38 29 3d a4 | 66 69 6c 65 73 70 72 69 |q%+28)=.|filespri|
|00005400| 74 65 28 73 61 76 65 74 | 79 70 65 25 29 0d 22 9c |te(savet|ype%).".|
|00005410| 27 c8 99 20 22 57 69 6d | 70 5f 44 65 6c 65 74 65 |'.. "Wim|p_Delete|
|00005420| 49 63 6f 6e 22 2c 2c 71 | 25 3a 71 25 21 34 3d 73 |Icon",,q|%:q%!4=s|
|00005430| 61 76 65 25 0d 22 a6 2b | c8 99 20 22 57 69 6d 70 |ave%.".+|.. "Wimp|
|00005440| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 28 71 |_CreateI|con",,(q|
|00005450| 25 2b 34 29 3a f4 20 54 | 4f 20 69 63 6f 6e 25 0d |%+4):. T|O icon%.|
|00005460| 22 b0 3f 71 25 21 30 3d | 73 61 76 65 25 3a 71 25 |".?q%!0=|save%:q%|
|00005470| 21 34 3d 30 3a 71 25 21 | 38 3d 30 3a 71 25 21 31 |!4=0:q%!|8=0:q%!1|
|00005480| 32 3d 30 3a c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |2=0:.. "|Wimp_Set|
|00005490| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 22 |IconStat|e",,q%."|
|000054a0| ba 11 f2 66 72 6f 6e 74 | 28 73 61 76 65 25 29 0d |...front|(save%).|
|000054b0| 22 c4 39 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 43 |".9.. "W|imp_SetC|
|000054c0| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 22 2c 73 61 |aretPosi|tion",sa|
|000054d0| 76 65 25 2c 30 2c 30 2c | 30 2c 2d 31 2c a9 24 66 |ve%,0,0,|0,-1,.$f|
|000054e0| 69 6c 65 6e 61 6d 65 25 | 0d 22 ce 05 e1 0d 22 d8 |ilename%|."....".|
|000054f0| 05 3a 0d 22 e2 16 dd 20 | f2 72 65 61 64 64 69 72 |.:."... |.readdir|
|00005500| 65 63 74 6f 72 69 65 73 | 0d 22 ec 14 ea 20 68 61 |ectories|."... ha|
|00005510| 6e 64 6c 65 25 2c 63 6f | 75 6e 74 25 0d 22 f6 0c |ndle%,co|unt%."..|
|00005520| 63 6f 75 6e 74 25 3d 30 | 0d 23 00 25 68 61 6e 64 |count%=0|.#.%hand|
|00005530| 6c 65 25 3d ad 28 61 70 | 70 5f 70 61 74 68 24 2b |le%=.(ap|p_path$+|
|00005540| 22 2e 73 61 6d 70 70 61 | 74 68 73 22 29 0d 23 0a |".samppa|ths").#.|
|00005550| 11 e7 20 68 61 6e 64 6c | 65 25 3d 30 20 8c 0d 23 |.. handl|e%=0 ..#|
|00005560| 14 0d d9 23 68 61 6e 64 | 6c 65 25 0d 23 1e 25 68 |...#hand|le%.#.%h|
|00005570| 61 6e 64 6c 65 25 3d ae | 28 61 70 70 5f 70 61 74 |andle%=.|(app_pat|
|00005580| 68 24 2b 22 2e 73 61 6d | 70 70 61 74 68 73 22 29 |h$+".sam|ppaths")|
|00005590| 0d 23 28 0f f1 23 68 61 | 6e 64 6c 65 25 2c 31 0d |.#(..#ha|ndle%,1.|
|000055a0| 23 32 27 f1 23 68 61 6e | 64 6c 65 25 2c 22 3c 53 |#2'.#han|dle%,"<S|
|000055b0| 54 6d 6f 64 6d 61 6b 65 | 24 44 69 72 3e 2e 53 61 |Tmodmake|$Dir>.Sa|
|000055c0| 6d 70 6c 65 73 22 0d 23 | 3c 16 6e 6f 6f 66 64 69 |mples".#|<.noofdi|
|000055d0| 72 65 63 74 6f 72 69 65 | 73 25 3d 31 0d 23 46 16 |rectorie|s%=1.#F.|
|000055e0| 6d 61 78 64 69 72 65 63 | 74 6f 72 69 65 73 25 3d |maxdirec|tories%=|
|000055f0| 31 30 0d 23 50 1f de 20 | 64 69 72 6e 61 6d 65 24 |10.#P.. |dirname$|
|00005600| 28 6d 61 78 64 69 72 65 | 63 74 6f 72 69 65 73 25 |(maxdire|ctories%|
|00005610| 29 0d 23 5a 29 64 69 72 | 6e 61 6d 65 24 28 30 29 |).#Z)dir|name$(0)|
|00005620| 3d 22 3c 53 54 6d 6f 64 | 6d 61 6b 65 24 44 69 72 |="<STmod|make$Dir|
|00005630| 3e 2e 53 61 6d 70 6c 65 | 73 22 0d 23 64 05 cc 0d |>.Sample|s".#d...|
|00005640| 23 6e 1e e8 23 68 61 6e | 64 6c 65 25 2c 6e 6f 6f |#n..#han|dle%,noo|
|00005650| 66 64 69 72 65 63 74 6f | 72 69 65 73 25 0d 23 78 |fdirecto|ries%.#x|
|00005660| 27 6d 61 78 64 69 72 65 | 63 74 6f 72 69 65 73 25 |'maxdire|ctories%|
|00005670| 3d 6e 6f 6f 66 64 69 72 | 65 63 74 6f 72 69 65 73 |=noofdir|ectories|
|00005680| 25 2b 31 30 0d 23 82 23 | de 20 64 69 72 6e 61 6d |%+10.#.#|. dirnam|
|00005690| 65 24 28 6e 6f 6f 66 64 | 69 72 65 63 74 6f 72 69 |e$(noofd|irectori|
|000056a0| 65 73 25 2b 31 30 29 0d | 23 8c 1b e7 20 6e 6f 6f |es%+10).|#... noo|
|000056b0| 66 64 69 72 65 63 74 6f | 72 69 65 73 25 3c 3e 30 |fdirecto|ries%<>0|
|000056c0| 20 8c 0d 23 96 24 e3 20 | 6c 6f 6f 70 25 3d 30 20 | ..#.$. |loop%=0 |
|000056d0| b8 20 28 6e 6f 6f 66 64 | 69 72 65 63 74 6f 72 69 |. (noofd|irectori|
|000056e0| 65 73 25 2d 31 29 0d 23 | a0 1d e8 23 68 61 6e 64 |es%-1).#|...#hand|
|000056f0| 6c 65 25 2c 64 69 72 6e | 61 6d 65 24 28 6c 6f 6f |le%,dirn|ame$(loo|
|00005700| 70 25 29 0d 23 aa 2f 64 | 69 72 77 69 64 74 68 25 |p%).#./d|irwidth%|
|00005710| 3d a4 6d 61 78 28 a9 20 | 64 69 72 6e 61 6d 65 24 |=.max(. |dirname$|
|00005720| 28 6c 6f 6f 70 25 29 2c | 64 69 72 77 69 64 74 68 |(loop%),|dirwidth|
|00005730| 25 29 0d 23 b4 05 ed 0d | 23 be 05 cd 0d 23 c8 05 |%).#....|#....#..|
|00005740| cd 0d 23 d2 0d d9 23 68 | 61 6e 64 6c 65 25 0d 23 |..#...#h|andle%.#|
|00005750| dc 2e e7 20 6e 6f 6f 66 | 64 69 72 65 63 74 6f 72 |... noof|director|
|00005760| 69 65 73 25 20 3d 20 30 | 20 8c 20 64 69 72 6e 61 |ies% = 0| . dirna|
|00005770| 6d 65 24 28 30 29 20 3d | 20 22 24 22 0d 23 e6 12 |me$(0) =| "$".#..|
|00005780| 71 25 21 30 3d 30 3a 71 | 25 21 31 32 3d 30 0d 23 |q%!0=0:q|%!12=0.#|
|00005790| f0 3e 71 25 21 38 3d 64 | 69 72 77 69 64 74 68 25 |.>q%!8=d|irwidth%|
|000057a0| 2a 31 36 2b 31 36 3a 71 | 25 21 34 3d 2d 28 6e 6f |*16+16:q|%!4=-(no|
|000057b0| 6f 66 64 69 72 65 63 74 | 6f 72 69 65 73 25 2a 79 |ofdirect|ories%*y|
|000057c0| 5f 73 70 61 63 69 6e 67 | 25 2b 38 29 0d 23 fa 27 |_spacing|%+8).#.'|
|000057d0| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 45 78 74 65 |.. "Wimp|_SetExte|
|000057e0| 6e 74 22 2c 64 69 72 65 | 63 74 6f 72 69 65 73 25 |nt",dire|ctories%|
|000057f0| 2c 71 25 0d 24 04 05 e1 | 0d 24 0e 05 3a 0d 24 18 |,q%.$...|.$..:.$.|
|00005800| 1e dd 20 f2 64 65 6c 65 | 74 65 73 61 6d 70 6c 65 |.. .dele|tesample|
|00005810| 70 61 74 68 28 6e 75 6d | 62 25 29 0d 24 22 14 ea |path(num|b%).$"..|
|00005820| 20 68 61 6e 64 6c 65 25 | 2c 63 6f 75 6e 74 25 0d | handle%|,count%.|
|00005830| 24 2c 18 64 69 72 77 69 | 64 74 68 25 3d 6d 69 6e |$,.dirwi|dth%=min|
|00005840| 65 78 74 65 6e 74 25 0d | 24 36 25 68 61 6e 64 6c |extent%.|$6%handl|
|00005850| 65 25 3d ae 28 61 70 70 | 5f 70 61 74 68 24 2b 22 |e%=.(app|_path$+"|
|00005860| 2e 73 61 6d 70 70 61 74 | 68 73 22 29 0d 24 40 22 |.samppat|hs").$@"|
|00005870| f1 23 68 61 6e 64 6c 65 | 25 2c 28 6e 6f 6f 66 64 |.#handle|%,(noofd|
|00005880| 69 72 65 63 74 6f 72 69 | 65 73 25 2d 31 29 0d 24 |irectori|es%-1).$|
|00005890| 4a 0f e7 20 6e 75 6d 62 | 25 3e 30 20 8c 0d 24 54 |J.. numb|%>0 ..$T|
|000058a0| 1a e3 20 63 6f 75 6e 74 | 25 3d 30 20 b8 20 28 6e |.. count|%=0 . (n|
|000058b0| 75 6d 62 25 2d 31 29 0d | 24 5e 30 64 69 72 77 69 |umb%-1).|$^0dirwi|
|000058c0| 64 74 68 25 3d a4 6d 61 | 78 28 64 69 72 77 69 64 |dth%=.ma|x(dirwid|
|000058d0| 74 68 25 2c a9 20 64 69 | 72 6e 61 6d 65 24 28 63 |th%,. di|rname$(c|
|000058e0| 6f 75 6e 74 25 29 29 0d | 24 68 1e f1 23 68 61 6e |ount%)).|$h..#han|
|000058f0| 64 6c 65 25 2c 64 69 72 | 6e 61 6d 65 24 28 63 6f |dle%,dir|name$(co|
|00005900| 75 6e 74 25 29 0d 24 72 | 05 ed 0d 24 7c 05 cd 0d |unt%).$r|...$|...|
|00005910| 24 86 20 e7 20 6e 75 6d | 62 25 20 3c 20 6e 6f 6f |$. . num|b% < noo|
|00005920| 66 64 69 72 65 63 74 6f | 72 69 65 73 25 20 8c 0d |fdirecto|ries% ..|
|00005930| 24 90 29 e3 20 63 6f 75 | 6e 74 25 3d 28 6e 75 6d |$.). cou|nt%=(num|
|00005940| 62 25 2b 31 29 20 b8 20 | 6e 6f 6f 66 64 69 72 65 |b%+1) . |noofdire|
|00005950| 63 74 6f 72 69 65 73 25 | 0d 24 9a 1e f1 23 68 61 |ctories%|.$...#ha|
|00005960| 6e 64 6c 65 25 2c 64 69 | 72 6e 61 6d 65 24 28 63 |ndle%,di|rname$(c|
|00005970| 6f 75 6e 74 25 29 0d 24 | a4 30 64 69 72 77 69 64 |ount%).$|.0dirwid|
|00005980| 74 68 25 3d a4 6d 61 78 | 28 64 69 72 77 69 64 74 |th%=.max|(dirwidt|
|00005990| 68 25 2c a9 20 64 69 72 | 6e 61 6d 65 24 28 63 6f |h%,. dir|name$(co|
|000059a0| 75 6e 74 25 29 29 0d 24 | ae 27 64 69 72 6e 61 6d |unt%)).$|.'dirnam|
|000059b0| 65 24 28 63 6f 75 6e 74 | 25 2d 31 29 3d 64 69 72 |e$(count|%-1)=dir|
|000059c0| 6e 61 6d 65 24 28 63 6f | 75 6e 74 25 29 0d 24 b8 |name$(co|unt%).$.|
|000059d0| 05 ed 0d 24 c2 05 cd 0d | 24 cc 0d d9 23 68 61 6e |...$....|$...#han|
|000059e0| 64 6c 65 25 0d 24 d6 17 | 6e 6f 6f 66 64 69 72 65 |dle%.$..|noofdire|
|000059f0| 63 74 6f 72 69 65 73 25 | 2d 3d 31 0d 24 e0 2e e7 |ctories%|-=1.$...|
|00005a00| 20 6e 6f 6f 66 64 69 72 | 65 63 74 6f 72 69 65 73 | noofdir|ectories|
|00005a10| 25 20 3d 20 30 20 8c 20 | 64 69 72 6e 61 6d 65 24 |% = 0 . |dirname$|
|00005a20| 28 30 29 20 3d 20 22 24 | 22 0d 24 ea 1f f2 63 6c |(0) = "$|".$...cl|
|00005a30| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 64 69 72 65 63 |ose_wind|ow(direc|
|00005a40| 74 6f 72 69 65 73 25 29 | 0d 24 f4 18 f2 66 72 6f |tories%)|.$...fro|
|00005a50| 6e 74 28 64 69 72 65 63 | 74 6f 72 69 65 73 25 29 |nt(direc|tories%)|
|00005a60| 0d 24 fe 05 e1 0d 25 08 | 05 3a 0d 25 12 11 dd 20 |.$....%.|.:.%... |
|00005a70| a4 63 68 6b 68 65 78 28 | 61 24 29 0d 25 1c 2e e7 |.chkhex(|a$).%...|
|00005a80| 20 a7 22 30 31 32 33 34 | 35 36 37 38 39 41 42 43 | ."01234|56789ABC|
|00005a90| 44 45 46 61 62 63 64 65 | 66 22 2c c1 61 24 2c 31 |DEFabcde|f",.a$,1|
|00005aa0| 2c 31 29 29 3d 30 20 3d | a3 0d 25 26 2e e7 20 a7 |,1))=0 =|..%&.. .|
|00005ab0| 22 30 31 32 33 34 35 36 | 37 38 39 41 42 43 44 45 |"0123456|789ABCDE|
|00005ac0| 46 61 62 63 64 65 66 22 | 2c c1 61 24 2c 32 2c 31 |Fabcdef"|,.a$,2,1|
|00005ad0| 29 29 3d 30 20 3d a3 0d | 25 30 2e e7 20 a7 22 30 |))=0 =..|%0.. ."0|
|00005ae0| 31 32 33 34 35 36 37 38 | 39 41 42 43 44 45 46 61 |12345678|9ABCDEFa|
|00005af0| 62 63 64 65 66 22 2c c1 | 61 24 2c 33 2c 31 29 29 |bcdef",.|a$,3,1))|
|00005b00| 3d 30 20 3d a3 0d 25 3a | 06 3d b9 0d ff          |=0 =..%:|.=...   |
+--------+-------------------------+-------------------------+--------+--------+