/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsd / discbox / !DiscBox / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 16 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 20 76 31 2e 32 32 0d 00 | 14 13 f4 20 42 79 20 45 | v1.22..|... By E|
|00000020| 77 65 6e 20 53 65 74 74 | 69 0d 00 1e 05 3a 0d 00 |wen Sett|i....:..|
|00000030| 28 18 f2 69 6e 69 74 69 | 61 6c 69 73 65 3a 2a 46 |(..initi|alise:*F|
|00000040| 58 32 32 39 2c 30 0d 00 | 2d 0e ee 20 85 20 f2 65 |X229,0..|-.. . .e|
|00000050| 72 72 6f 72 0d 00 3c 05 | 3a 0d 00 46 12 70 61 74 |rror..<.|:..F.pat|
|00000060| 68 24 3d a4 67 65 74 5f | 61 72 67 0d 00 50 11 e7 |h$=.get_|arg..P..|
|00000070| 20 70 61 74 68 24 3c 3e | 22 22 20 8c 0d 00 5a 16 | path$<>|"" ...Z.|
|00000080| 20 20 f2 6c 6f 61 64 5f | 62 6f 78 28 70 61 74 68 |  .load_|box(path|
|00000090| 24 29 0d 00 64 05 cd 0d | 00 6e 05 3a 0d 00 78 05 |$)..d...|.n.:..x.|
|000000a0| f5 0d 00 82 16 77 68 61 | 74 6e 65 78 74 25 3d a4 |.....wha|tnext%=.|
|000000b0| 70 6f 6c 6c 28 31 29 0d | 00 8c 16 f2 61 63 74 69 |poll(1).|....acti|
|000000c0| 6f 6e 28 77 68 61 74 6e | 65 78 74 25 29 0d 00 96 |on(whatn|ext%)...|
|000000d0| 07 fd 20 a3 0d 00 a0 05 | e0 0d 00 aa 05 3a 0d 00 |.. .....|.....:..|
|000000e0| b4 11 dd 20 f2 69 6e 69 | 74 69 61 6c 69 73 65 0d |... .ini|tialise.|
|000000f0| 00 be 11 de 20 63 6f 6d | 6d 65 6e 74 24 28 39 29 |.... com|ment$(9)|
|00000100| 0d 00 c8 4d de 20 62 6c | 6f 63 6b 25 20 26 38 30 |...M. bl|ock% &80|
|00000110| 30 2c 70 6f 6c 6c 25 20 | 32 35 36 2c 69 6e 64 69 |0,poll% |256,indi|
|00000120| 72 65 63 74 25 20 26 32 | 30 30 30 2c 74 65 6d 70 |rect% &2|000,temp|
|00000130| 25 20 32 35 30 2c 74 69 | 74 6c 65 25 20 32 35 36 |% 250,ti|tle% 256|
|00000140| 2c 62 6c 6f 63 6b 32 25 | 20 26 34 30 30 0d 00 d2 |,block2%| &400...|
|00000150| 25 69 70 74 72 25 3d 69 | 6e 64 69 72 65 63 74 25 |%iptr%=i|ndirect%|
|00000160| 3a 69 65 6e 64 25 3d 69 | 70 74 72 25 2b 26 32 30 |:iend%=i|ptr%+&20|
|00000170| 30 30 0d 00 dc 12 24 62 | 6c 6f 63 6b 25 3d 22 54 |00....$b|lock%="T|
|00000180| 41 53 4b 22 0d 00 e6 3b | c8 99 20 22 57 69 6d 70 |ASK"...;|.. "Wimp|
|00000190| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|000001a0| 2c 21 62 6c 6f 63 6b 25 | 2c 22 44 69 73 63 20 42 |,!block%|,"Disc B|
|000001b0| 6f 78 22 20 b8 20 2c 62 | 6f 78 68 61 6e 64 25 0d |ox" . ,b|oxhand%.|
|000001c0| 00 f0 25 c8 99 20 22 57 | 69 6d 70 5f 43 6c 61 69 |..%.. "W|imp_Clai|
|000001d0| 6d 49 6e 74 65 72 66 61 | 63 65 22 2c 62 6f 78 68 |mInterfa|ce",boxh|
|000001e0| 61 6e 64 25 0d 00 fa 27 | c8 99 20 22 57 69 6d 70 |and%...'|.. "Wimp|
|000001f0| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 2d 31 2c 2d 31 |_SlotSiz|e",-1,-1|
|00000200| 20 b8 20 63 75 72 72 65 | 6e 74 25 0d 01 04 15 6f | . curre|nt%....o|
|00000210| 6c 64 73 6c 6f 74 25 3d | 63 75 72 72 65 6e 74 25 |ldslot%=|current%|
|00000220| 0d 01 0e 16 61 6c 69 61 | 73 24 3d 22 3c 42 6f 78 |....alia|s$="<Box|
|00000230| 24 44 69 72 3e 22 0d 01 | 18 39 c8 99 20 22 58 4f |$Dir>"..|.9.. "XO|
|00000240| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 22 2c 22 42 |S_ReadVa|rVal","B|
|00000250| 6f 78 24 44 69 72 22 2c | 74 65 6d 70 25 2c 32 35 |ox$Dir",|temp%,25|
|00000260| 30 2c 30 2c 30 20 b8 20 | 2c 2c 64 61 74 61 25 0d |0,0,0 . |,,data%.|
|00000270| 01 22 1c 61 6c 69 61 73 | 32 24 3d a4 67 5f 73 74 |.".alias|2$=.g_st|
|00000280| 72 69 6e 67 28 74 65 6d | 70 25 29 0d 01 23 1e 64 |ring(tem|p%)..#.d|
|00000290| 61 74 61 25 3d a7 61 6c | 69 61 73 32 24 2c 22 21 |ata%=.al|ias2$,"!|
|000002a0| 44 69 73 63 42 6f 78 22 | 29 0d 01 24 34 e7 20 64 |DiscBox"|)..$4. d|
|000002b0| 61 74 61 25 3c 3e 30 20 | 64 61 74 61 24 3d c0 61 |ata%<>0 |data$=.a|
|000002c0| 6c 69 61 73 32 24 2c 64 | 61 74 61 25 2b 37 29 3a |lias2$,d|ata%+7):|
|000002d0| 61 6c 69 61 73 32 24 3d | 64 61 74 61 24 0d 01 2c |alias2$=|data$..,|
|000002e0| 1f f2 73 70 72 69 74 65 | 73 28 61 6c 69 61 73 24 |..sprite|s(alias$|
|000002f0| 2b 22 2e 53 70 72 69 74 | 65 73 22 29 0d 01 36 13 |+".Sprit|es")..6.|
|00000300| f2 6c 6f 61 64 5f 74 65 | 6d 70 6c 61 74 65 73 0d |.load_te|mplates.|
|00000310| 01 40 18 66 69 6c 65 6e | 61 6d 65 24 3d 22 55 6e |.@.filen|ame$="Un|
|00000320| 74 69 74 6c 65 64 22 0d | 01 4a 15 24 74 69 74 6c |titled".|.J.$titl|
|00000330| 65 25 3d 66 69 6c 65 6e | 61 6d 65 24 0d 01 54 25 |e%=filen|ame$..T%|
|00000340| f2 69 6e 64 69 72 65 63 | 74 5f 69 63 6f 6e 28 73 |.indirec|t_icon(s|
|00000350| 61 76 65 25 2c 31 2c 66 | 69 6c 65 6e 61 6d 65 24 |ave%,1,f|ilename$|
|00000360| 29 0d 01 5e 2a f2 69 6e | 64 69 72 65 63 74 5f 69 |)..^*.in|direct_i|
|00000370| 63 6f 6e 28 73 61 76 65 | 5f 74 65 78 74 25 2c 31 |con(save|_text%,1|
|00000380| 2c 66 69 6c 65 6e 61 6d | 65 24 29 0d 01 68 25 f2 |,filenam|e$)..h%.|
|00000390| 69 6e 64 69 72 65 63 74 | 5f 69 63 6f 6e 28 74 68 |indirect|_icon(th|
|000003a0| 69 73 25 2c 31 2c 66 69 | 6c 65 6e 61 6d 65 24 29 |is%,1,fi|lename$)|
|000003b0| 0d 01 72 26 f2 69 6e 64 | 69 72 65 63 74 5f 69 63 |..r&.ind|irect_ic|
|000003c0| 6f 6e 28 74 68 69 73 25 | 2c 35 2c 22 4f 72 69 67 |on(this%|,5,"Orig|
|000003d0| 69 6e 61 6c 22 29 0d 01 | 7c 1f 69 63 6f 6e 68 25 |inal")..||.iconh%|
|000003e0| 3d a4 69 63 6f 6e 62 61 | 72 28 22 21 44 69 73 63 |=.iconba|r("!Disc|
|000003f0| 42 6f 78 22 29 0d 01 86 | 1d 64 61 74 61 25 3d a4 |Box")...|.data%=.|
|00000400| 73 6c 6f 74 5f 73 69 7a | 65 28 31 36 2a 31 30 32 |slot_siz|e(16*102|
|00000410| 34 29 0d 01 90 17 6f 72 | 69 67 5f 73 6c 6f 74 25 |4)....or|ig_slot%|
|00000420| 3d 63 75 72 72 65 6e 74 | 25 0d 01 9a 10 f2 63 72 |=current|%.....cr|
|00000430| 65 61 74 65 5f 6d 65 6e | 75 0d 01 a4 1a f2 73 65 |eate_men|u.....se|
|00000440| 74 5f 73 68 61 64 65 28 | 6d 61 69 6e 6d 25 2c 32 |t_shade(|mainm%,2|
|00000450| 2c 31 29 0d 01 ae 1a f2 | 73 65 74 5f 73 68 61 64 |,1).....|set_shad|
|00000460| 65 28 6d 61 69 6e 6d 25 | 2c 33 2c 31 29 0d 01 b8 |e(mainm%|,3,1)...|
|00000470| 0a 6f 70 65 6e 3d a3 0d | 01 c2 0f 64 69 73 63 5f |.open=..|...disc_|
|00000480| 77 69 6e 25 3d a3 0d 01 | cc 0f 66 69 6c 65 5f 77 |win%=...|..file_w|
|00000490| 69 6e 25 3d b9 0d 01 d6 | 0f 63 6f 6d 6d 5f 77 69 |in%=....|.comm_wi|
|000004a0| 6e 25 3d a3 0d 01 e0 0f | 64 69 73 63 5f 66 6f 72 |n%=.....|disc_for|
|000004b0| 25 3d 31 0d 01 ea 1b 64 | 69 73 63 5f 73 69 7a 65 |%=1....d|isc_size|
|000004c0| 25 3d 28 38 30 30 2d 34 | 29 2a 31 30 32 34 0d 01 |%=(800-4|)*1024..|
|000004d0| f4 0f 68 65 61 64 25 3d | 93 2b 32 35 36 0d 01 fe |..head%=|.+256...|
|000004e0| 12 77 6f 72 6b 25 3d 68 | 65 61 64 25 2b 33 36 0d |.work%=h|ead%+36.|
|000004f0| 02 08 11 77 70 74 72 25 | 3d 77 6f 72 6b 25 2b 38 |...wptr%|=work%+8|
|00000500| 0d 02 12 18 77 65 6e 64 | 25 3d 77 6f 72 6b 25 2b |....wend|%=work%+|
|00000510| 31 30 32 34 2d 32 35 36 | 0d 02 1c 0c 21 77 6f 72 |1024-256|....!wor|
|00000520| 6b 25 3d 30 0d 02 26 0e | 68 65 61 64 25 21 31 36 |k%=0..&.|head%!16|
|00000530| 3d 30 0d 02 30 0e 68 65 | 61 64 25 21 32 30 3d 31 |=0..0.he|ad%!20=1|
|00000540| 0d 02 3a 10 68 65 61 64 | 25 21 32 34 3d 38 30 30 |..:.head|%!24=800|
|00000550| 0d 02 44 10 68 65 61 64 | 25 21 32 38 3d 38 30 30 |..D.head|%!28=800|
|00000560| 0d 02 4e 0e 75 6e 69 74 | 24 3d 22 4b 62 22 0d 02 |..N.unit|$="Kb"..|
|00000570| 58 18 6f 5f 6e 61 6d 65 | 24 3d 22 3c 55 6e 74 69 |X.o_name|$="<Unti|
|00000580| 74 6c 65 64 3e 22 0d 02 | 62 0c 6f 5f 72 65 66 25 |tled>"..|b.o_ref%|
|00000590| 3d 30 0d 02 6c 0f 6f 5f | 73 69 7a 65 25 3d 38 30 |=0..l.o_|size%=80|
|000005a0| 30 0d 02 76 18 6f 5f 63 | 6f 6d 24 3d 22 4e 4f 20 |0..v.o_c|om$="NO |
|000005b0| 43 4f 4d 4d 45 4e 54 21 | 22 0d 02 80 0a 64 63 68 |COMMENT!|"....dch|
|000005c0| 25 3d a3 0d 02 8a 0b 6f | 72 69 67 25 3d b9 0d 02 |%=.....o|rig%=...|
|000005d0| 94 2e f2 69 6e 64 69 72 | 65 63 74 5f 69 63 6f 6e |...indir|ect_icon|
|000005e0| 28 64 69 73 63 25 2c 31 | 30 2c c3 28 68 65 61 64 |(disc%,1|0,.(head|
|000005f0| 25 21 32 38 29 2b 75 6e | 69 74 24 29 0d 02 9e 24 |%!28)+un|it$)...$|
|00000600| 63 75 72 72 25 3d 2d 31 | 3a f4 20 43 75 72 72 65 |curr%=-1|:. Curre|
|00000610| 6e 74 20 66 69 6c 65 20 | 73 65 6c 65 63 74 65 64 |nt file |selected|
|00000620| 0d 02 a8 0a 63 6f 25 3d | 2d 31 0d 02 b2 0c 73 72 |....co%=|-1....sr|
|00000630| 65 66 25 3d 2d 31 0d 02 | bc 22 73 6e 25 3d b9 3a |ef%=-1..|."sn%=.:|
|00000640| 73 74 25 3d b9 3a 73 73 | 25 3d b9 3a 73 63 25 3d |st%=.:ss|%=.:sc%=|
|00000650| b9 3a 73 64 69 25 3d b9 | 0d 02 c6 22 70 6e 25 3d |.:sdi%=.|..."pn%=|
|00000660| b9 3a 70 74 25 3d b9 3a | 70 73 25 3d b9 3a 70 63 |.:pt%=.:|ps%=.:pc|
|00000670| 25 3d b9 3a 70 64 69 25 | 3d b9 0d 02 d0 19 73 77 |%=.:pdi%|=.....sw|
|00000680| 68 6f 6c 65 25 3d 2d 31 | 3a 70 77 68 6f 6c 65 25 |hole%=-1|:pwhole%|
|00000690| 3d 2d 31 0d 02 da 11 f2 | 73 65 74 5f 77 68 6f 6c |=-1.....|set_whol|
|000006a0| 65 28 a3 29 0d 02 ee 34 | f4 20 47 65 74 20 69 6e |e(.)...4|. Get in|
|000006b0| 69 74 69 61 6c 20 64 61 | 74 61 20 61 62 6f 75 74 |itial da|ta about|
|000006c0| 20 6d 61 69 6e 20 61 6e | 64 20 63 6f 6d 6d 65 6e | main an|d commen|
|000006d0| 74 20 77 69 6e 64 6f 77 | 0d 03 02 11 21 62 6c 6f |t window|....!blo|
|000006e0| 63 6b 25 3d 6d 61 69 6e | 25 0d 03 0c 23 c8 99 20 |ck%=main|%...#.. |
|000006f0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|00000700| 6e 66 6f 22 2c 2c 62 6c | 6f 63 6b 25 0d 03 16 14 |nfo",,bl|ock%....|
|00000710| 6d 5f 62 6f 74 25 3d 62 | 6c 6f 63 6b 25 21 34 38 |m_bot%=b|lock%!48|
|00000720| 0d 03 20 11 21 62 6c 6f | 63 6b 25 3d 63 6f 6d 6d |.. .!blo|ck%=comm|
|00000730| 25 0d 03 2a 23 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%..*#.. |"Wimp_Ge|
|00000740| 74 57 69 6e 64 6f 77 49 | 6e 66 6f 22 2c 2c 62 6c |tWindowI|nfo",,bl|
|00000750| 6f 63 6b 25 0d 03 34 14 | 63 5f 62 6f 74 25 3d 62 |ock%..4.|c_bot%=b|
|00000760| 6c 6f 63 6b 25 21 34 38 | 0d 03 3e 05 e1 0d 03 48 |lock%!48|..>....H|
|00000770| 05 3a 0d 03 52 15 dd 20 | f2 61 63 74 69 6f 6e 28 |.:..R.. |.action(|
|00000780| 65 76 65 6e 74 25 29 0d | 03 5c 0f c8 8e 20 65 76 |event%).|.\... ev|
|00000790| 65 6e 74 25 20 ca 0d 03 | 66 21 c9 20 31 3a f2 72 |ent% ...|f!. 1:.r|
|000007a0| 65 64 72 61 77 5f 77 69 | 6e 64 6f 77 28 70 6f 6c |edraw_wi|ndow(pol|
|000007b0| 6c 25 21 30 2c a3 29 0d | 03 70 1d c9 20 32 3a f2 |l%!0,.).|.p.. 2:.|
|000007c0| 6f 70 65 6e 5f 77 69 6e | 64 6f 77 28 30 2c 70 6f |open_win|dow(0,po|
|000007d0| 6c 6c 25 29 0d 03 7a 1e | c9 20 33 3a f2 63 6c 6f |ll%)..z.|. 3:.clo|
|000007e0| 73 65 5f 77 69 6e 64 6f | 77 28 70 6f 6c 6c 25 21 |se_windo|w(poll%!|
|000007f0| 30 29 0d 03 84 15 c9 20 | 36 3a f2 6d 6f 75 73 65 |0)..... |6:.mouse|
|00000800| 63 6c 69 63 6b 65 64 0d | 03 8e 0d c9 20 37 3a f2 |clicked.|.... 7:.|
|00000810| 73 61 76 65 0d 03 98 35 | c9 20 38 3a f2 6b 65 79 |save...5|. 8:.key|
|00000820| 5f 70 72 65 73 73 65 64 | 28 21 70 6f 6c 6c 25 2c |_pressed|(!poll%,|
|00000830| 70 6f 6c 6c 25 21 34 2c | 70 6f 6c 6c 25 21 38 2c |poll%!4,|poll%!8,|
|00000840| 70 6f 6c 6c 25 21 32 34 | 29 0d 03 a2 13 c9 20 39 |poll%!24|)..... 9|
|00000850| 3a f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 03 ac 1e |:.menuse|lect....|
|00000860| c9 20 31 30 3a f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |. 10:.op|en_windo|
|00000870| 77 28 30 2c 70 6f 6c 6c | 25 29 0d 03 b6 1b c9 20 |w(0,poll|%)..... |
|00000880| 31 37 2c 31 38 3a f2 72 | 65 63 69 65 76 65 28 70 |17,18:.r|ecieve(p|
|00000890| 6f 6c 6c 25 29 0d 03 c0 | 05 cb 0d 03 ca 05 e1 0d |oll%)...|........|
|000008a0| 03 d4 05 3a 0d 03 de 15 | dd 20 f2 73 70 72 69 74 |...:....|. .sprit|
|000008b0| 65 73 28 66 69 6c 65 24 | 29 0d 03 e8 0f 73 70 3d |es(file$|)....sp=|
|000008c0| 8e 28 66 69 6c 65 24 29 | 0d 03 f2 10 64 69 6d 25 |.(file$)|....dim%|
|000008d0| 3d a2 23 73 70 2b 31 36 | 0d 03 fc 08 d9 23 73 70 |=.#sp+16|.....#sp|
|000008e0| 0d 04 06 12 de 20 73 70 | 72 69 74 65 25 20 64 69 |..... sp|rite% di|
|000008f0| 6d 25 0d 04 10 11 21 73 | 70 72 69 74 65 25 3d 64 |m%....!s|prite%=d|
|00000900| 69 6d 25 0d 04 1a 0f 73 | 70 72 69 74 65 25 21 34 |im%....s|prite%!4|
|00000910| 3d 30 0d 04 24 10 73 70 | 72 69 74 65 25 21 38 3d |=0..$.sp|rite%!8=|
|00000920| 31 36 0d 04 2e 11 73 70 | 72 69 74 65 25 21 31 32 |16....sp|rite%!12|
|00000930| 3d 31 36 0d 04 38 29 c8 | 99 20 22 4f 53 5f 53 70 |=16..8).|. "OS_Sp|
|00000940| 72 69 74 65 4f 70 22 2c | 32 35 36 2b 31 30 2c 73 |riteOp",|256+10,s|
|00000950| 70 72 69 74 65 25 2c 66 | 69 6c 65 24 0d 04 42 05 |prite%,f|ile$..B.|
|00000960| e1 0d 04 4c 05 3a 0d 04 | 56 19 dd 20 a4 73 6c 6f |...L.:..|V.. .slo|
|00000970| 74 5f 73 69 7a 65 28 61 | 6d 6f 75 6e 74 25 29 0d |t_size(a|mount%).|
|00000980| 04 60 3c c8 99 20 22 57 | 69 6d 70 5f 53 6c 6f 74 |.`<.. "W|imp_Slot|
|00000990| 53 69 7a 65 22 2c 28 63 | 75 72 72 65 6e 74 25 2b |Size",(c|urrent%+|
|000009a0| 61 6d 6f 75 6e 74 25 2b | 31 30 32 34 29 2c 2d 31 |amount%+|1024),-1|
|000009b0| 20 b8 20 6e 65 77 73 6c | 6f 74 25 0d 04 6a 23 e7 | . newsl|ot%..j#.|
|000009c0| 20 28 6e 65 77 73 6c 6f | 74 25 2d 63 75 72 72 65 | (newslo|t%-curre|
|000009d0| 6e 74 25 29 3c 61 6d 6f | 75 6e 74 25 20 8c 0d 04 |nt%)<amo|unt% ...|
|000009e0| 74 22 c8 99 20 22 57 69 | 6d 70 5f 53 6c 6f 74 53 |t".. "Wi|mp_SlotS|
|000009f0| 69 7a 65 22 2c 63 75 72 | 72 65 6e 74 25 2c 2d 31 |ize",cur|rent%,-1|
|00000a00| 0d 04 7e 15 6e 65 77 73 | 6c 6f 74 25 3d 63 75 72 |..~.news|lot%=cur|
|00000a10| 72 65 6e 74 25 0d 04 88 | 05 cc 0d 04 92 15 6f 6c |rent%...|......ol|
|00000a20| 64 73 6c 6f 74 25 3d 63 | 75 72 72 65 6e 74 25 0d |dslot%=c|urrent%.|
|00000a30| 04 9c 15 63 75 72 72 65 | 6e 74 25 3d 6e 65 77 73 |...curre|nt%=news|
|00000a40| 6c 6f 74 25 0d 04 a6 06 | 3d a3 0d 04 b0 05 cd 0d |lot%....|=.......|
|00000a50| 04 ba 06 3d b9 0d 04 c4 | 05 3a 0d 04 ce 17 dd 20 |...=....|.:..... |
|00000a60| a4 69 63 6f 6e 62 61 72 | 28 73 70 72 69 74 65 24 |.iconbar|(sprite$|
|00000a70| 29 0d 04 d8 0b ea 20 69 | 63 6f 6e 25 0d 04 e2 0e |)..... i|con%....|
|00000a80| 21 62 6c 6f 63 6b 25 3d | 2d 31 0d 04 ec 0e 62 6c |!block%=|-1....bl|
|00000a90| 6f 63 6b 25 21 34 3d 30 | 0d 04 f6 0e 62 6c 6f 63 |ock%!4=0|....bloc|
|00000aa0| 6b 25 21 38 3d 30 0d 05 | 00 10 62 6c 6f 63 6b 25 |k%!8=0..|..block%|
|00000ab0| 21 31 32 3d 39 30 0d 05 | 0a 10 62 6c 6f 63 6b 25 |!12=90..|..block%|
|00000ac0| 21 31 36 3d 39 30 0d 05 | 14 13 62 6c 6f 63 6b 25 |!16=90..|..block%|
|00000ad0| 21 32 30 3d 26 32 31 30 | 32 0d 05 1e 1c de 20 62 |!20=&210|2..... b|
|00000ae0| 6c 6f 63 6b 25 21 32 34 | 20 28 a9 73 70 72 69 74 |lock%!24| (.sprit|
|00000af0| 65 24 2b 31 29 0d 05 28 | 18 24 28 62 6c 6f 63 6b |e$+1)..(|.$(block|
|00000b00| 25 21 32 34 29 3d 73 70 | 72 69 74 65 24 0d 05 32 |%!24)=sp|rite$..2|
|00000b10| 15 62 6c 6f 63 6b 25 21 | 32 38 3d 73 70 72 69 74 |.block%!|28=sprit|
|00000b20| 65 25 0d 05 3c 1a 62 6c | 6f 63 6b 25 21 33 32 3d |e%..<.bl|ock%!32=|
|00000b30| 28 a9 73 70 72 69 74 65 | 24 2b 31 29 0d 05 46 28 |(.sprite|$+1)..F(|
|00000b40| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00000b50| 63 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 20 b8 20 69 |con",,bl|ock% . i|
|00000b60| 63 6f 6e 25 0d 05 50 0a | 3d 69 63 6f 6e 25 0d 05 |con%..P.|=icon%..|
|00000b70| 5a 05 3a 0d 05 64 40 dd | 20 a4 70 6f 6c 6c 28 6d |Z.:..d@.| .poll(m|
|00000b80| 61 73 6b 25 29 3a c8 99 | 20 22 57 69 6d 70 5f 50 |ask%):..| "Wimp_P|
|00000b90| 6f 6c 6c 22 2c 6d 61 73 | 6b 25 2c 70 6f 6c 6c 25 |oll",mas|k%,poll%|
|00000ba0| 20 b8 20 72 65 73 75 6c | 74 25 3a 3d 72 65 73 75 | . resul|t%:=resu|
|00000bb0| 6c 74 25 0d 05 6e 05 3a | 0d 05 78 0c dd 20 f2 65 |lt%..n.:|..x.. .e|
|00000bc0| 72 72 6f 72 0d 05 82 18 | c8 99 20 22 57 69 6d 70 |rror....|.. "Wimp|
|00000bd0| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 30 0d 05 8c 0d |_DragBox|",,0....|
|00000be0| 21 62 6c 6f 63 6b 25 3d | 9f 0d 05 96 0b 65 72 72 |!block%=|.....err|
|00000bf0| 6f 72 3d b9 0d 05 a0 28 | 24 28 62 6c 6f 63 6b 25 |or=....(|$(block%|
|00000c00| 2b 34 29 3d f6 24 2b 22 | 20 28 63 6f 64 65 20 22 |+4)=.$+"| (code "|
|00000c10| 2b c3 28 9e 29 2b 22 29 | 22 2b bd 30 0d 05 aa 0b |+.(.)+")|"+.0....|
|00000c20| 66 6c 61 67 73 3d 33 0d | 05 b4 31 c8 99 20 22 57 |flags=3.|..1.. "W|
|00000c30| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00000c40| 2c 62 6c 6f 63 6b 25 2c | 66 6c 61 67 73 2c 22 44 |,block%,|flags,"D|
|00000c50| 69 73 63 20 42 6f 78 22 | 0d 05 be 0d f2 66 69 6e |isc Box"|.....fin|
|00000c60| 69 73 68 3a e0 0d 05 c8 | 05 e1 0d 05 d2 05 3a 0d |ish:....|......:.|
|00000c70| 05 dc 0d dd 20 f2 66 69 | 6e 69 73 68 0d 05 e6 0f |.... .fi|nish....|
|00000c80| e7 20 6f 72 69 67 25 3d | a3 20 8c 0d 05 f0 4a 20 |. orig%=|. ....J |
|00000c90| 20 61 6e 73 25 3d a4 65 | 6e 71 75 69 72 65 28 22 | ans%=.e|nquire("|
|00000ca0| 43 75 72 72 65 6e 74 20 | 44 69 73 63 20 42 6f 78 |Current |Disc Box|
|00000cb0| 20 66 69 6c 65 20 68 61 | 73 20 6e 6f 74 20 62 65 | file ha|s not be|
|00000cc0| 65 6e 20 73 61 76 65 64 | 2c 20 6c 6f 6f 73 65 20 |en saved|, loose |
|00000cd0| 69 74 3f 22 29 0d 05 fa | 10 20 20 e7 20 61 6e 73 |it?")...|.  . ans|
|00000ce0| 25 3d 32 20 e1 0d 06 04 | 05 cd 0d 06 0e 27 c8 99 |%=2 ....|.....'..|
|00000cf0| 20 22 57 69 6d 70 5f 52 | 65 6c 65 61 73 65 49 6e | "Wimp_R|eleaseIn|
|00000d00| 74 65 72 66 61 63 65 22 | 2c 62 6f 78 68 61 6e 64 |terface"|,boxhand|
|00000d10| 25 0d 06 18 04 0d 06 22 | 17 c8 99 20 22 57 69 6d |%......"|... "Wim|
|00000d20| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 0d 06 2c 04 |p_CloseD|own"..,.|
|00000d30| 0d 06 36 05 e1 0d 06 40 | 05 3a 0d 06 4a 13 dd 20 |..6....@|.:..J.. |
|00000d40| f2 6d 6f 75 73 65 63 6c | 69 63 6b 65 64 0d 06 54 |.mousecl|icked..T|
|00000d50| 14 68 61 6e 64 6c 65 25 | 3d 70 6f 6c 6c 25 21 31 |.handle%|=poll%!1|
|00000d60| 32 0d 06 5e 12 69 63 6f | 6e 25 3d 70 6f 6c 6c 25 |2..^.ico|n%=poll%|
|00000d70| 21 31 36 0d 06 68 13 62 | 75 74 74 6f 6e 25 3d 70 |!16..h.b|utton%=p|
|00000d80| 6f 6c 6c 25 21 38 0d 06 | 72 13 6d 6f 75 73 65 79 |oll%!8..|r.mousey|
|00000d90| 25 3d 70 6f 6c 6c 25 21 | 34 0d 06 7c 10 c8 8e 20 |%=poll%!|4..|... |
|00000da0| 68 61 6e 64 6c 65 25 20 | ca 0d 06 86 09 c9 20 2d |handle% |...... -|
|00000db0| 32 3a 0d 06 90 3d 20 20 | e7 20 62 75 74 74 6f 6e |2:...=  |. button|
|00000dc0| 25 3d 32 20 8c 20 f2 6d | 65 6e 75 28 69 63 6f 6e |%=2 . .m|enu(icon|
|00000dd0| 6d 25 2c 31 38 30 29 3a | 6d 6f 79 25 3d 31 38 30 |m%,180):|moy%=180|
|00000de0| 3a 6d 68 61 6e 64 25 3d | 68 61 6e 64 6c 65 25 0d |:mhand%=|handle%.|
|00000df0| 06 9a 13 20 20 e7 20 62 | 75 74 74 6f 6e 25 3d 34 |...  . b|utton%=4|
|00000e00| 20 8c 0d 06 a4 15 20 20 | 20 20 21 62 6c 6f 63 6b | .....  |  !block|
|00000e10| 25 3d 6d 61 69 6e 25 0d | 06 ae 28 20 20 20 20 c8 |%=main%.|..(    .|
|00000e20| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00000e30| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00000e40| 06 b8 13 20 20 20 20 62 | 6c 6f 63 6b 25 21 32 30 |...    b|lock%!20|
|00000e50| 3d 30 0d 06 c2 13 20 20 | 20 20 62 6c 6f 63 6b 25 |=0....  |  block%|
|00000e60| 21 32 34 3d 30 0d 06 cc | 1e 20 20 20 20 f2 6f 70 |!24=0...|.    .op|
|00000e70| 65 6e 5f 77 69 6e 64 6f | 77 28 30 2c 62 6c 6f 63 |en_windo|w(0,bloc|
|00000e80| 6b 25 29 0d 06 d6 07 20 | 20 cd 0d 06 e0 0b c9 20 |k%).... | ...... |
|00000e90| 66 69 6c 65 25 0d 06 ea | 13 20 20 e7 20 62 75 74 |file%...|.  . but|
|00000ea0| 74 6f 6e 25 3d 32 20 8c | 0d 06 f4 39 20 20 20 20 |ton%=2 .|...9    |
|00000eb0| f2 6d 65 6e 75 28 6d 61 | 69 6e 6d 25 2c 6d 6f 75 |.menu(ma|inm%,mou|
|00000ec0| 73 65 79 25 29 3a 6d 6f | 79 25 3d 6d 6f 75 73 65 |sey%):mo|y%=mouse|
|00000ed0| 79 25 3a 6d 68 61 6e 64 | 25 3d 68 61 6e 64 6c 65 |y%:mhand|%=handle|
|00000ee0| 25 0d 06 fe 07 20 20 cd | 0d 07 08 13 20 20 e7 20 |%....  .|....  . |
|00000ef0| 62 75 74 74 6f 6e 25 3d | 34 20 8c 0d 07 12 13 20 |button%=|4 ..... |
|00000f00| 20 20 20 e7 20 69 63 6f | 6e 25 3d 32 20 8c 0d 07 |   . ico|n%=2 ...|
|00000f10| 1c 25 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 |.%      |.. "Wimp|
|00000f20| 5f 42 6f 72 64 65 72 49 | 63 6f 6e 22 2c 2c 70 6f |_BorderI|con",,po|
|00000f30| 6c 6c 25 0d 07 26 18 20 | 20 20 20 20 20 21 62 6c |ll%..&. |     !bl|
|00000f40| 6f 63 6b 32 25 3d 6d 61 | 69 6e 25 0d 07 30 2b 20 |ock2%=ma|in%..0+ |
|00000f50| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |     .. |"Wimp_Ge|
|00000f60| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00000f70| 6c 6f 63 6b 32 25 0d 07 | 3a 18 20 20 20 20 20 20 |lock2%..|:.      |
|00000f80| 21 62 6c 6f 63 6b 32 25 | 3d 64 69 73 63 25 0d 07 |!block2%|=disc%..|
|00000f90| 44 18 20 20 20 20 20 20 | 62 6c 6f 63 6b 32 25 21 |D.      |block2%!|
|00000fa0| 34 2b 3d 33 31 30 0d 07 | 4e 17 20 20 20 20 20 20 |4+=310..|N.      |
|00000fb0| 62 6c 6f 63 6b 32 25 21 | 32 38 3d 2d 31 0d 07 58 |block2%!|28=-1..X|
|00000fc0| 27 20 20 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |'      .|. "Wimp_|
|00000fd0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |OpenWind|ow",,blo|
|00000fe0| 63 6b 32 25 0d 07 62 13 | 20 20 20 20 20 20 70 6f |ck2%..b.|      po|
|00000ff0| 6c 6c 25 21 38 3d 30 0d | 07 6c 25 20 20 20 20 20 |ll%!8=0.|.l%     |
|00001000| 20 c8 99 20 22 57 69 6d | 70 5f 42 6f 72 64 65 72 | .. "Wim|p_Border|
|00001010| 49 63 6f 6e 22 2c 2c 70 | 6f 6c 6c 25 0d 07 76 1e |Icon",,p|oll%..v.|
|00001020| 20 20 20 20 20 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |      .c|lose_win|
|00001030| 64 6f 77 28 63 6f 6d 6d | 25 29 0d 07 80 1e 20 20 |dow(comm|%)....  |
|00001040| 20 20 20 20 f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |    .clo|se_windo|
|00001050| 77 28 66 69 6c 65 25 29 | 0d 07 8a 27 20 20 20 20 |w(file%)|...'    |
|00001060| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |  .. "Wi|mp_SetCa|
|00001070| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2d 31 0d |retPosit|ion",-1.|
|00001080| 07 94 15 20 20 20 20 20 | 20 64 69 73 63 5f 77 69 |...     | disc_wi|
|00001090| 6e 25 3d b9 0d 07 9e 15 | 20 20 20 20 20 20 66 69 |n%=.....|      fi|
|000010a0| 6c 65 5f 77 69 6e 25 3d | a3 0d 07 a8 09 20 20 20 |le_win%=|.....   |
|000010b0| 20 cd 0d 07 b2 07 20 20 | cd 0d 07 bc 0b c9 20 64 | .....  |...... d|
|000010c0| 69 73 63 25 0d 07 c6 45 | 20 20 e7 20 62 75 74 74 |isc%...E|  . butt|
|000010d0| 6f 6e 25 3d 32 20 8c 20 | f2 6d 65 6e 75 28 6d 61 |on%=2 . |.menu(ma|
|000010e0| 69 6e 6d 25 2c 6d 6f 75 | 73 65 79 25 29 3a 6d 6f |inm%,mou|sey%):mo|
|000010f0| 79 25 3d 6d 6f 75 73 65 | 79 25 3a 6d 68 61 6e 64 |y%=mouse|y%:mhand|
|00001100| 25 3d 68 61 6e 64 6c 65 | 25 0d 07 d0 13 20 20 e7 |%=handle|%....  .|
|00001110| 20 62 75 74 74 6f 6e 25 | 3d 34 20 8c 0d 07 da 13 | button%|=4 .....|
|00001120| 20 20 20 20 e7 20 69 63 | 6f 6e 25 3d 31 20 8c 0d |    . ic|on%=1 ..|
|00001130| 07 e4 25 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |..%     | .. "Wim|
|00001140| 70 5f 42 6f 72 64 65 72 | 49 63 6f 6e 22 2c 2c 70 |p_Border|Icon",,p|
|00001150| 6f 6c 6c 25 0d 07 ee 17 | 20 20 20 20 20 20 21 62 |oll%....|      !b|
|00001160| 6c 6f 63 6b 25 3d 6d 61 | 69 6e 25 0d 07 f8 2a 20 |lock%=ma|in%...* |
|00001170| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |     .. |"Wimp_Ge|
|00001180| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00001190| 6c 6f 63 6b 25 0d 08 02 | 19 20 20 20 20 20 20 e7 |lock%...|.      .|
|000011a0| 20 63 6f 6d 6d 5f 77 69 | 6e 25 3d b9 20 8c 0d 08 | comm_wi|n%=. ...|
|000011b0| 0c 1a 20 20 20 20 20 20 | 20 20 21 62 6c 6f 63 6b |..      |  !block|
|000011c0| 32 25 3d 63 6f 6d 6d 25 | 0d 08 16 1e 20 20 20 20 |2%=comm%|....    |
|000011d0| 20 20 20 20 62 6c 6f 63 | 6b 32 25 21 34 3d 62 6c |    bloc|k2%!4=bl|
|000011e0| 6f 63 6b 25 21 34 0d 08 | 20 1e 20 20 20 20 20 20 |ock%!4..| .      |
|000011f0| 20 20 62 6c 6f 63 6b 32 | 25 21 38 3d 62 6c 6f 63 |  block2|%!8=bloc|
|00001200| 6b 25 21 38 0d 08 2a 1c | 20 20 20 20 20 20 20 20 |k%!8..*.|        |
|00001210| e3 20 69 25 3d 31 32 20 | b8 20 32 34 20 88 20 34 |. i%=12 |. 24 . 4|
|00001220| 0d 08 34 22 20 20 20 20 | 20 20 20 20 20 20 62 6c |..4"    |      bl|
|00001230| 6f 63 6b 32 25 21 69 25 | 3d 62 6c 6f 63 6b 25 21 |ock2%!i%|=block%!|
|00001240| 69 25 0d 08 3e 12 20 20 | 20 20 20 20 20 20 20 20 |i%..>.  |        |
|00001250| ed 20 69 25 0d 08 48 1b | 20 20 20 20 20 20 20 20 |. i%..H.|        |
|00001260| 62 6c 6f 63 6b 32 25 21 | 31 36 2d 3d 35 35 33 0d |block2%!|16-=553.|
|00001270| 08 52 19 20 20 20 20 20 | 20 20 20 62 6c 6f 63 6b |.R.     |   block|
|00001280| 32 25 21 32 38 3d 2d 31 | 0d 08 5c 29 20 20 20 20 |2%!28=-1|..\)    |
|00001290| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |    .. "|Wimp_Ope|
|000012a0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 32 |nWindow"|,,block2|
|000012b0| 25 0d 08 66 0b 20 20 20 | 20 20 20 cd 0d 08 70 18 |%..f.   |   ...p.|
|000012c0| 20 20 20 20 20 20 21 62 | 6c 6f 63 6b 32 25 3d 66 |      !b|lock2%=f|
|000012d0| 69 6c 65 25 0d 08 7a 20 | 20 20 20 20 20 20 62 6c |ile%..z |      bl|
|000012e0| 6f 63 6b 32 25 21 34 3d | 62 6c 6f 63 6b 25 21 34 |ock2%!4=|block%!4|
|000012f0| 2b 33 31 30 0d 08 84 19 | 20 20 20 20 20 20 e3 20 |+310....|      . |
|00001300| 69 25 3d 38 20 b8 20 32 | 34 20 88 20 34 0d 08 8e |i%=8 . 2|4 . 4...|
|00001310| 20 20 20 20 20 20 20 20 | 20 62 6c 6f 63 6b 32 25 |        | block2%|
|00001320| 21 69 25 3d 62 6c 6f 63 | 6b 25 21 69 25 0d 08 98 |!i%=bloc|k%!i%...|
|00001330| 10 20 20 20 20 20 20 20 | 20 ed 20 69 25 0d 08 a2 |.       | . i%...|
|00001340| 17 20 20 20 20 20 20 62 | 6c 6f 63 6b 32 25 21 32 |.      b|lock2%!2|
|00001350| 38 3d 2d 31 0d 08 ac 27 | 20 20 20 20 20 20 c8 99 |8=-1...'|      ..|
|00001360| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00001370| 77 22 2c 2c 62 6c 6f 63 | 6b 32 25 0d 08 b6 13 20 |w",,bloc|k2%.... |
|00001380| 20 20 20 20 20 70 6f 6c | 6c 25 21 38 3d 30 0d 08 |     pol|l%!8=0..|
|00001390| c0 25 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 |.%      |.. "Wimp|
|000013a0| 5f 42 6f 72 64 65 72 49 | 63 6f 6e 22 2c 2c 70 6f |_BorderI|con",,po|
|000013b0| 6c 6c 25 0d 08 ca 1e 20 | 20 20 20 20 20 f2 63 6c |ll%.... |     .cl|
|000013c0| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 64 69 73 63 25 |ose_wind|ow(disc%|
|000013d0| 29 0d 08 d4 15 20 20 20 | 20 20 20 64 69 73 63 5f |)....   |   disc_|
|000013e0| 77 69 6e 25 3d a3 0d 08 | de 15 20 20 20 20 20 20 |win%=...|..      |
|000013f0| 66 69 6c 65 5f 77 69 6e | 25 3d b9 0d 08 e8 27 20 |file_win|%=....' |
|00001400| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 53 65 |     .. |"Wimp_Se|
|00001410| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|00001420| 2d 31 0d 08 f2 09 20 20 | 20 20 cd 0d 08 fc 21 20 |-1....  |  ....! |
|00001430| 20 20 20 e7 20 69 63 6f | 6e 25 3d 34 20 f2 63 68 |   . ico|n%=4 .ch|
|00001440| 61 6e 67 65 5f 64 69 73 | 63 28 b9 29 0d 09 06 21 |ange_dis|c(.)...!|
|00001450| 20 20 20 20 e7 20 69 63 | 6f 6e 25 3d 35 20 f2 63 |    . ic|on%=5 .c|
|00001460| 68 61 6e 67 65 5f 64 69 | 73 63 28 a3 29 0d 09 10 |hange_di|sc(.)...|
|00001470| 14 20 20 20 20 e7 20 69 | 63 6f 6e 25 3d 31 36 20 |.    . i|con%=16 |
|00001480| 8c 0d 09 1a 25 20 20 20 | 20 20 20 c8 99 20 22 57 |....%   |   .. "W|
|00001490| 69 6d 70 5f 42 6f 72 64 | 65 72 49 63 6f 6e 22 2c |imp_Bord|erIcon",|
|000014a0| 2c 70 6f 6c 6c 25 0d 09 | 24 22 20 20 20 20 20 20 |,poll%..|$"      |
|000014b0| 6f 5f 6e 61 6d 65 24 3d | a4 67 5f 73 74 72 69 6e |o_name$=|.g_strin|
|000014c0| 67 28 68 65 61 64 25 29 | 0d 09 2e 19 20 20 20 20 |g(head%)|....    |
|000014d0| 20 20 6f 5f 72 65 66 25 | 3d 68 65 61 64 25 21 31 |  o_ref%|=head%!1|
|000014e0| 36 0d 09 38 1a 20 20 20 | 20 20 20 6f 5f 73 69 7a |6..8.   |   o_siz|
|000014f0| 65 25 3d 68 65 61 64 25 | 21 32 34 0d 09 42 2f 20 |e%=head%|!24..B/ |
|00001500| 20 20 20 20 20 f2 67 65 | 74 49 63 6f 6e 49 6e 66 |     .ge|tIconInf|
|00001510| 6f 28 64 69 73 63 25 2c | 37 29 3a 24 68 65 61 64 |o(disc%,|7):$head|
|00001520| 25 3d 64 61 74 61 24 2b | bd 30 0d 09 4c 32 20 20 |%=data$+|.0..L2  |
|00001530| 20 20 20 20 f2 67 65 74 | 49 63 6f 6e 49 6e 66 6f |    .get|IconInfo|
|00001540| 28 64 69 73 63 25 2c 31 | 35 29 3a 68 65 61 64 25 |(disc%,1|5):head%|
|00001550| 21 31 36 3d bb 28 64 61 | 74 61 24 29 0d 09 56 31 |!16=.(da|ta$)..V1|
|00001560| 20 20 20 20 20 20 f2 67 | 65 74 49 63 6f 6e 49 6e |      .g|etIconIn|
|00001570| 66 6f 28 64 69 73 63 25 | 2c 39 29 3a 68 65 61 64 |fo(disc%|,9):head|
|00001580| 25 21 32 34 3d bb 28 64 | 61 74 61 24 29 0d 09 60 |%!24=.(d|ata$)..`|
|00001590| 14 20 20 20 20 20 20 f2 | 63 61 6c 63 5f 66 72 65 |.      .|calc_fre|
|000015a0| 65 0d 09 6a 10 20 20 20 | 20 20 20 64 63 68 25 3d |e..j.   |   dch%=|
|000015b0| b9 0d 09 74 13 20 20 20 | 20 20 20 70 6f 6c 6c 25 |...t.   |   poll%|
|000015c0| 21 38 3d 30 0d 09 7e 25 | 20 20 20 20 20 20 c8 99 |!8=0..~%|      ..|
|000015d0| 20 22 57 69 6d 70 5f 42 | 6f 72 64 65 72 49 63 6f | "Wimp_B|orderIco|
|000015e0| 6e 22 2c 2c 70 6f 6c 6c | 25 0d 09 88 1f 20 20 20 |n",,poll|%....   |
|000015f0| 20 20 20 6f 72 69 67 25 | 3d a3 3a f2 75 70 64 61 |   orig%|=.:.upda|
|00001600| 74 65 5f 74 69 74 6c 65 | 0d 09 92 27 20 20 20 20 |te_title|...'    |
|00001610| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |  .. "Wi|mp_SetCa|
|00001620| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2d 31 0d |retPosit|ion",-1.|
|00001630| 09 9c 09 20 20 20 20 cd | 0d 09 a6 07 20 20 cd 0d |...    .|....  ..|
|00001640| 09 b0 13 20 20 e7 20 62 | 75 74 74 6f 6e 25 3d 31 |...  . b|utton%=1|
|00001650| 20 8c 0d 09 ba 14 20 20 | 20 20 e7 20 69 63 6f 6e | .....  |  . icon|
|00001660| 25 3d 31 36 20 8c 0d 09 | c4 25 20 20 20 20 20 20 |%=16 ...|.%      |
|00001670| c8 99 20 22 57 69 6d 70 | 5f 42 6f 72 64 65 72 49 |.. "Wimp|_BorderI|
|00001680| 63 6f 6e 22 2c 2c 70 6f | 6c 6c 25 0d 09 ce 1b 20 |con",,po|ll%.... |
|00001690| 20 20 20 20 20 24 68 65 | 61 64 25 3d 6f 5f 6e 61 |     $he|ad%=o_na|
|000016a0| 6d 65 24 2b bd 30 0d 09 | d8 19 20 20 20 20 20 20 |me$+.0..|..      |
|000016b0| 68 65 61 64 25 21 31 36 | 3d 6f 5f 72 65 66 25 0d |head%!16|=o_ref%.|
|000016c0| 09 e2 1a 20 20 20 20 20 | 20 68 65 61 64 25 21 32 |...     | head%!2|
|000016d0| 34 3d 6f 5f 73 69 7a 65 | 25 0d 09 ec 29 20 20 20 |4=o_size|%...)   |
|000016e0| 20 20 20 f2 69 6e 64 69 | 72 65 63 74 5f 69 63 6f |   .indi|rect_ico|
|000016f0| 6e 28 64 69 73 63 25 2c | 37 2c 6f 5f 6e 61 6d 65 |n(disc%,|7,o_name|
|00001700| 24 29 0d 09 f6 2c 20 20 | 20 20 20 20 f2 69 6e 64 |$)...,  |    .ind|
|00001710| 69 72 65 63 74 5f 69 63 | 6f 6e 28 64 69 73 63 25 |irect_ic|on(disc%|
|00001720| 2c 31 35 2c c3 28 6f 5f | 72 65 66 25 29 29 0d 0a |,15,.(o_|ref%))..|
|00001730| 00 2c 20 20 20 20 20 20 | f2 69 6e 64 69 72 65 63 |.,      |.indirec|
|00001740| 74 5f 69 63 6f 6e 28 64 | 69 73 63 25 2c 39 2c c3 |t_icon(d|isc%,9,.|
|00001750| 28 6f 5f 73 69 7a 65 25 | 29 29 0d 0a 0a 14 20 20 |(o_size%|))....  |
|00001760| 20 20 20 20 f2 63 61 6c | 63 5f 66 72 65 65 0d 0a |    .cal|c_free..|
|00001770| 14 10 20 20 20 20 20 20 | 64 63 68 25 3d a3 0d 0a |..      |dch%=...|
|00001780| 1e 13 20 20 20 20 20 20 | 70 6f 6c 6c 25 21 38 3d |..      |poll%!8=|
|00001790| 30 0d 0a 28 25 20 20 20 | 20 20 20 c8 99 20 22 57 |0..(%   |   .. "W|
|000017a0| 69 6d 70 5f 42 6f 72 64 | 65 72 49 63 6f 6e 22 2c |imp_Bord|erIcon",|
|000017b0| 2c 70 6f 6c 6c 25 0d 0a | 32 1f 20 20 20 20 20 20 |,poll%..|2.      |
|000017c0| 6f 72 69 67 25 3d a3 3a | f2 75 70 64 61 74 65 5f |orig%=.:|.update_|
|000017d0| 74 69 74 6c 65 0d 0a 3c | 27 20 20 20 20 20 20 c8 |title..<|'      .|
|000017e0| 99 20 22 57 69 6d 70 5f | 53 65 74 43 61 72 65 74 |. "Wimp_|SetCaret|
|000017f0| 50 6f 73 69 74 69 6f 6e | 22 2c 2d 31 0d 0a 46 09 |Position|",-1..F.|
|00001800| 20 20 20 20 cd 0d 0a 50 | 07 20 20 cd 0d 0a 5a 0b |    ...P|.  ...Z.|
|00001810| c9 20 6d 61 69 6e 25 0d | 0a 64 45 20 20 e7 20 62 |. main%.|.dE  . b|
|00001820| 75 74 74 6f 6e 25 3d 32 | 20 8c 20 f2 6d 65 6e 75 |utton%=2| . .menu|
|00001830| 28 6d 61 69 6e 6d 25 2c | 6d 6f 75 73 65 79 25 29 |(mainm%,|mousey%)|
|00001840| 3a 6d 6f 79 25 3d 6d 6f | 75 73 65 79 25 3a 6d 68 |:moy%=mo|usey%:mh|
|00001850| 61 6e 64 25 3d 68 61 6e | 64 6c 65 25 0d 0a 6e 1e |and%=han|dle%..n.|
|00001860| 20 20 e7 20 21 77 6f 72 | 6b 25 3e 30 20 80 20 62 |  . !wor|k%>0 . b|
|00001870| 75 74 74 6f 6e 25 3d 34 | 20 8c 0d 0a 78 13 20 20 |utton%=4| ...x.  |
|00001880| 20 20 63 75 72 72 25 3d | 69 63 6f 6e 25 0d 0a 82 |  curr%=|icon%...|
|00001890| 21 20 20 20 20 f2 64 69 | 73 70 6c 61 79 5f 66 69 |!    .di|splay_fi|
|000018a0| 6c 65 5f 69 6e 66 6f 28 | 69 63 6f 6e 25 29 0d 0a |le_info(|icon%)..|
|000018b0| 8c 15 20 20 20 20 f2 6f | 70 65 6e 5f 63 6f 6d 6d |..    .o|pen_comm|
|000018c0| 65 6e 74 0d 0a 96 1e 20 | 20 20 20 f2 73 65 74 5f |ent.... |   .set_|
|000018d0| 73 68 61 64 65 28 6d 61 | 69 6e 6d 25 2c 32 2c 30 |shade(ma|inm%,2,0|
|000018e0| 29 0d 0a a0 15 20 20 20 | 20 f2 73 65 74 5f 77 68 |)....   | .set_wh|
|000018f0| 6f 6c 65 28 b9 29 0d 0a | aa 07 20 20 cd 0d 0a b4 |ole(.)..|..  ....|
|00001900| 13 20 20 e7 20 62 75 74 | 74 6f 6e 25 3d 31 20 8c |.  . but|ton%=1 .|
|00001910| 0d 0a be 10 20 20 20 20 | 63 75 72 72 25 3d 2d 31 |....    |curr%=-1|
|00001920| 0d 0a c8 25 20 20 20 20 | c8 99 20 22 57 69 6d 70 |...%    |.. "Wimp|
|00001930| 5f 53 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_SetCare|tPositio|
|00001940| 6e 22 2c 2d 31 0d 0a d2 | 36 20 20 20 20 e7 20 63 |n",-1...|6    . c|
|00001950| 6f 6d 6d 5f 77 69 6e 25 | 3d b9 20 f2 63 6c 6f 73 |omm_win%|=. .clos|
|00001960| 65 5f 77 69 6e 64 6f 77 | 28 63 6f 6d 6d 25 29 3a |e_window|(comm%):|
|00001970| 63 6f 6d 6d 5f 77 69 6e | 25 3d a3 0d 0a dc 1e 20 |comm_win|%=..... |
|00001980| 20 20 20 f2 73 65 74 5f | 73 68 61 64 65 28 6d 61 |   .set_|shade(ma|
|00001990| 69 6e 6d 25 2c 32 2c 31 | 29 0d 0a e6 15 20 20 20 |inm%,2,1|)....   |
|000019a0| 20 f2 73 65 74 5f 77 68 | 6f 6c 65 28 a3 29 0d 0a | .set_wh|ole(.)..|
|000019b0| f0 07 20 20 cd 0d 0a fa | 16 c9 20 73 61 76 65 25 |..  ....|.. save%|
|000019c0| 2c 73 61 76 65 5f 74 65 | 78 74 25 0d 0b 04 1f 20 |,save_te|xt%.... |
|000019d0| 20 e7 20 62 75 74 74 6f | 6e 25 3d 31 20 84 20 62 | . butto|n%=1 . b|
|000019e0| 75 74 74 6f 6e 25 3d 34 | 20 8c 0d 0b 0e 12 20 20 |utton%=4| .....  |
|000019f0| 20 20 c8 8e 20 69 63 6f | 6e 25 20 ca 0d 0b 18 0c |  .. ico|n% .....|
|00001a00| 20 20 20 20 c9 20 32 3a | 0d 0b 22 19 20 20 20 20 |    . 2:|..".    |
|00001a10| 20 20 21 62 6c 6f 63 6b | 25 3d 68 61 6e 64 6c 65 |  !block|%=handle|
|00001a20| 25 0d 0b 2c 2a 20 20 20 | 20 20 20 c8 99 20 22 57 |%..,*   |   .. "W|
|00001a30| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00001a40| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 0b 36 20 20 |te",,blo|ck%..6  |
|00001a50| 20 20 20 20 20 77 77 25 | 3d 62 6c 6f 63 6b 25 21 |     ww%|=block%!|
|00001a60| 34 2d 62 6c 6f 63 6b 25 | 21 32 30 0d 0b 40 21 20 |4-block%|!20..@! |
|00001a70| 20 20 20 20 20 77 68 25 | 3d 62 6c 6f 63 6b 25 21 |     wh%|=block%!|
|00001a80| 31 36 2d 62 6c 6f 63 6b | 25 21 32 34 0d 0b 4a 14 |16-block|%!24..J.|
|00001a90| 20 20 20 20 20 20 62 6c | 6f 63 6b 25 21 34 3d 30 |      bl|ock%!4=0|
|00001aa0| 0d 0b 54 28 20 20 20 20 | 20 20 c8 99 20 22 57 69 |..T(    |  .. "Wi|
|00001ab0| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00001ac0| 2c 2c 62 6c 6f 63 6b 25 | 0d 0b 5e 22 20 20 20 20 |,,block%|..^"    |
|00001ad0| 20 20 21 62 6c 6f 63 6b | 25 3d 73 61 76 65 25 3a |  !block|%=save%:|
|00001ae0| 62 6c 6f 63 6b 25 21 34 | 3d 35 0d 0b 68 1f 20 20 |block%!4|=5..h.  |
|00001af0| 20 20 20 20 62 6c 6f 63 | 6b 25 21 38 3d 62 6c 6f |    bloc|k%!8=blo|
|00001b00| 63 6b 25 21 38 2b 77 77 | 25 0d 0b 72 21 20 20 20 |ck%!8+ww|%..r!   |
|00001b10| 20 20 20 62 6c 6f 63 6b | 25 21 31 32 3d 62 6c 6f |   block|%!12=blo|
|00001b20| 63 6b 25 21 31 32 2b 77 | 68 25 0d 0b 7c 21 20 20 |ck%!12+w|h%..|!  |
|00001b30| 20 20 20 20 62 6c 6f 63 | 6b 25 21 31 36 3d 62 6c |    bloc|k%!16=bl|
|00001b40| 6f 63 6b 25 21 31 36 2b | 77 77 25 0d 0b 86 21 20 |ock%!16+|ww%...! |
|00001b50| 20 20 20 20 20 62 6c 6f | 63 6b 25 21 32 30 3d 62 |     blo|ck%!20=b|
|00001b60| 6c 6f 63 6b 25 21 32 30 | 2b 77 68 25 0d 0b 90 15 |lock%!20|+wh%....|
|00001b70| 20 20 20 20 20 20 62 6c | 6f 63 6b 25 21 32 34 3d |      bl|ock%!24=|
|00001b80| 30 0d 0b 9a 15 20 20 20 | 20 20 20 62 6c 6f 63 6b |0....   |   block|
|00001b90| 25 21 32 38 3d 30 0d 0b | a4 1d 20 20 20 20 20 20 |%!28=0..|..      |
|00001ba0| 62 6c 6f 63 6b 25 21 33 | 32 3d 26 37 46 46 46 46 |block%!3|2=&7FFFF|
|00001bb0| 46 46 46 0d 0b ae 1d 20 | 20 20 20 20 20 62 6c 6f |FFF.... |     blo|
|00001bc0| 63 6b 25 21 33 36 3d 26 | 37 46 46 46 46 46 46 46 |ck%!36=&|7FFFFFFF|
|00001bd0| 0d 0b b8 23 20 20 20 20 | 20 20 c8 99 20 22 57 69 |...#    |  .. "Wi|
|00001be0| 6d 70 5f 44 72 61 67 42 | 6f 78 22 2c 2c 62 6c 6f |mp_DragB|ox",,blo|
|00001bf0| 63 6b 25 0d 0b c2 1d 20 | 20 20 20 20 20 77 68 69 |ck%.... |     whi|
|00001c00| 63 68 5f 73 61 76 65 25 | 3d 68 61 6e 64 6c 65 25 |ch_save%|=handle%|
|00001c10| 0d 0b cc 0c 20 20 20 20 | c9 20 33 3a 0d 0b d6 16 |....    |. 3:....|
|00001c20| 20 20 20 20 20 20 c8 8e | 20 68 61 6e 64 6c 65 25 |      ..| handle%|
|00001c30| 20 ca 0d 0b e0 12 20 20 | 20 20 20 20 c9 20 73 61 | .....  |    . sa|
|00001c40| 76 65 25 3a 0d 0b ea 27 | 20 20 20 20 20 20 20 20 |ve%:...'|        |
|00001c50| c8 99 20 22 57 69 6d 70 | 5f 42 6f 72 64 65 72 49 |.. "Wimp|_BorderI|
|00001c60| 63 6f 6e 22 2c 2c 70 6f | 6c 6c 25 0d 0b f4 21 20 |con",,po|ll%...! |
|00001c70| 20 20 20 20 20 20 20 f2 | 67 65 74 49 63 6f 6e 49 |       .|getIconI|
|00001c80| 6e 66 6f 28 73 61 76 65 | 25 2c 31 29 0d 0b fe 17 |nfo(save|%,1)....|
|00001c90| 20 20 20 20 20 20 20 20 | 66 69 6c 65 24 3d 64 61 |        |file$=da|
|00001ca0| 74 61 24 0d 0c 08 29 20 | 20 20 20 20 20 20 20 66 |ta$...) |       f|
|00001cb0| 69 6c 65 6e 61 6d 65 24 | 3d 66 69 6c 65 24 3a 24 |ilename$|=file$:$|
|00001cc0| 74 69 74 6c 65 25 3d 66 | 69 6c 65 24 0d 0c 12 1e |title%=f|ile$....|
|00001cd0| 20 20 20 20 20 20 20 20 | e7 20 a7 66 69 6c 65 24 |        |. .file$|
|00001ce0| 2c 22 2e 22 29 3c 3e 30 | 20 8c 0d 0c 1c 2b 20 20 |,".")<>0| ....+  |
|00001cf0| 20 20 20 20 20 20 20 20 | f2 69 6e 64 69 72 65 63 |        |.indirec|
|00001d00| 74 5f 69 63 6f 6e 28 74 | 68 69 73 25 2c 31 2c 66 |t_icon(t|his%,1,f|
|00001d10| 69 6c 65 24 29 0d 0c 26 | 34 20 20 20 20 20 20 20 |ile$)..&|4       |
|00001d20| 20 20 20 c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |   .. "O|S_File",|
|00001d30| 26 30 30 2c 66 69 6c 65 | 24 2c 30 2c 30 2c 68 65 |&00,file|$,0,0,he|
|00001d40| 61 64 25 2c 77 70 74 72 | 25 0d 0c 30 24 20 20 20 |ad%,wptr|%..0$   |
|00001d50| 20 20 20 20 20 20 20 c8 | 99 20 22 4f 53 5f 46 69 |       .|. "OS_Fi|
|00001d60| 6c 65 22 2c 26 30 39 2c | 66 69 6c 65 24 0d 0c 3a |le",&09,|file$..:|
|00001d70| 29 20 20 20 20 20 20 20 | 20 20 20 c8 99 20 22 4f |)       |   .. "O|
|00001d80| 53 5f 46 69 6c 65 22 2c | 26 31 32 2c 66 69 6c 65 |S_File",|&12,file|
|00001d90| 24 2c 26 30 41 43 0d 0c | 44 26 20 20 20 20 20 20 |$,&0AC..|D&      |
|00001da0| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |    .. "|Wimp_Cre|
|00001db0| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 0c 4e 23 |ateMenu"|,,-1..N#|
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 6f 72 69 67 25 3d |        |  orig%=|
|00001dd0| b9 3a f2 75 70 64 61 74 | 65 5f 74 69 74 6c 65 0d |.:.updat|e_title.|
|00001de0| 0c 58 0d 20 20 20 20 20 | 20 20 20 cc 0d 0c 62 7f |.X.     |   ...b.|
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 f2 6d 6f 61 6e 28 |        |  .moan(|
|00001e00| 22 54 6f 20 73 61 76 65 | 20 74 68 69 73 20 44 69 |"To save| this Di|
|00001e10| 73 63 20 42 6f 78 20 66 | 69 6c 65 2c 20 64 72 61 |sc Box f|ile, dra|
|00001e20| 67 20 74 68 65 20 66 69 | 6c 65 20 69 63 6f 6e 20 |g the fi|le icon |
|00001e30| 66 72 6f 6d 20 74 68 65 | 20 73 61 76 65 20 77 69 |from the| save wi|
|00001e40| 6e 64 6f 77 20 74 6f 20 | 74 68 65 20 64 65 73 74 |ndow to |the dest|
|00001e50| 69 6e 61 74 69 6f 6e 20 | 64 69 72 65 63 74 6f 72 |ination |director|
|00001e60| 79 20 76 69 65 77 65 72 | 2e 22 29 0d 0c 6c 0d 20 |y viewer|.")..l. |
|00001e70| 20 20 20 20 20 20 20 cd | 0d 0c 76 15 20 20 20 20 |       .|..v.    |
|00001e80| 20 20 20 20 70 6f 6c 6c | 25 21 38 3d 30 0d 0c 80 |    poll|%!8=0...|
|00001e90| 27 20 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |'       | .. "Wim|
|00001ea0| 70 5f 42 6f 72 64 65 72 | 49 63 6f 6e 22 2c 2c 70 |p_Border|Icon",,p|
|00001eb0| 6f 6c 6c 25 0d 0c 8a 0b | 20 20 20 20 20 20 cb 0d |oll%....|      ..|
|00001ec0| 0c 94 09 20 20 20 20 cb | 0d 0c 9e 1e 20 20 20 20 |...    .|....    |
|00001ed0| e7 20 68 61 6e 64 6c 65 | 25 3d 73 61 76 65 5f 74 |. handle|%=save_t|
|00001ee0| 65 78 74 25 20 8c 0d 0c | a8 14 20 20 20 20 20 20 |ext% ...|..      |
|00001ef0| c8 8e 20 69 63 6f 6e 25 | 20 ca 0d 0c b2 1c 20 20 |.. icon%| .....  |
|00001f00| 20 20 20 20 20 20 c9 20 | 35 20 3a 73 64 69 25 3d |      . |5 :sdi%=|
|00001f10| ac 20 73 64 69 25 0d 0c | bc 1a 20 20 20 20 20 20 |. sdi%..|..      |
|00001f20| 20 20 c9 20 36 20 3a 73 | 74 25 3d ac 20 73 74 25 |  . 6 :s|t%=. st%|
|00001f30| 0d 0c c6 1a 20 20 20 20 | 20 20 20 20 c9 20 34 20 |....    |    . 4 |
|00001f40| 3a 73 73 25 3d ac 20 73 | 73 25 0d 0c d0 1a 20 20 |:ss%=. s|s%....  |
|00001f50| 20 20 20 20 20 20 c9 20 | 37 20 3a 73 63 25 3d ac |      . |7 :sc%=.|
|00001f60| 20 73 63 25 0d 0c da 1e | 20 20 20 20 20 20 20 20 | sc%....|        |
|00001f70| c9 20 31 30 3a 73 77 68 | 6f 6c 65 25 3d 63 75 72 |. 10:swh|ole%=cur|
|00001f80| 72 25 0d 0c e4 1b 20 20 | 20 20 20 20 20 20 c9 20 |r%....  |      . |
|00001f90| 39 20 3a 73 77 68 6f 6c | 65 25 3d 2d 31 0d 0c ee |9 :swhol|e%=-1...|
|00001fa0| 0b 20 20 20 20 20 20 cb | 0d 0c f8 09 20 20 20 20 |.      .|....    |
|00001fb0| cd 0d 0d 02 07 20 20 cd | 0d 0d 0c 11 c9 20 70 72 |.....  .|..... pr|
|00001fc0| 69 6e 74 5f 72 65 63 25 | 3a 0d 0d 16 1f 20 20 e7 |int_rec%|:....  .|
|00001fd0| 20 62 75 74 74 6f 6e 25 | 3d 31 20 84 20 62 75 74 | button%|=1 . but|
|00001fe0| 74 6f 6e 25 3d 34 20 8c | 0d 0d 20 12 20 20 20 20 |ton%=4 .|.. .    |
|00001ff0| c8 8e 20 69 63 6f 6e 25 | 20 ca 0d 0d 2a 1a 20 20 |.. icon%| ...*.  |
|00002000| 20 20 20 20 c9 20 35 20 | 3a 70 64 69 25 3d ac 20 |    . 5 |:pdi%=. |
|00002010| 70 64 69 25 0d 0d 34 18 | 20 20 20 20 20 20 c9 20 |pdi%..4.|      . |
|00002020| 36 20 3a 70 74 25 3d ac | 20 70 74 25 0d 0d 3e 18 |6 :pt%=.| pt%..>.|
|00002030| 20 20 20 20 20 20 c9 20 | 34 20 3a 70 73 25 3d ac |      . |4 :ps%=.|
|00002040| 20 70 73 25 0d 0d 48 18 | 20 20 20 20 20 20 c9 20 | ps%..H.|      . |
|00002050| 37 20 3a 70 63 25 3d ac | 20 70 63 25 0d 0d 52 1c |7 :pc%=.| pc%..R.|
|00002060| 20 20 20 20 20 20 c9 20 | 31 30 3a 70 77 68 6f 6c |      . |10:pwhol|
|00002070| 65 25 3d 63 75 72 72 25 | 0d 0d 5c 19 20 20 20 20 |e%=curr%|..\.    |
|00002080| 20 20 c9 20 39 20 3a 70 | 77 68 6f 6c 65 25 3d 2d |  . 9 :p|whole%=-|
|00002090| 31 0d 0d 66 27 20 20 20 | 20 20 20 c9 20 31 20 3a |1..f'   |   . 1 :|
|000020a0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|000020b0| 65 6e 75 22 2c 2c 2d 31 | 0d 0d 70 2e 20 20 20 20 |enu",,-1|..p.    |
|000020c0| 20 20 c9 20 30 20 3a f4 | 20 2a 2a 2a 2a 2a 20 50 |  . 0 :.| ***** P|
|000020d0| 52 49 4e 54 20 4f 55 54 | 20 52 45 43 4f 52 44 53 |RINT OUT| RECORDS|
|000020e0| 20 2a 2a 2a 2a 2a 0d 0d | 7a 29 20 20 20 20 20 20 | *****..|z)      |
|000020f0| 20 20 e7 20 70 77 68 6f | 6c 65 25 3c 3e 2d 31 20 |  . pwho|le%<>-1 |
|00002100| 8c 20 70 77 68 6f 6c 65 | 25 3d 63 75 72 72 25 0d |. pwhole|%=curr%.|
|00002110| 0d 84 27 20 20 20 20 20 | 20 20 20 c8 99 20 22 57 |..'     |   .. "W|
|00002120| 69 6d 70 5f 42 6f 72 64 | 65 72 49 63 6f 6e 22 2c |imp_Bord|erIcon",|
|00002130| 2c 70 6f 6c 6c 25 0d 0d | 8e 1d 20 20 20 20 20 20 |,poll%..|..      |
|00002140| 20 20 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |  .. "Ho|urglass_|
|00002150| 4f 6e 22 0d 0d 98 24 20 | 20 20 20 20 20 20 20 66 |On"...$ |       f|
|00002160| 69 6c 65 24 3d 22 50 72 | 69 6e 74 65 72 3a 24 2e |ile$="Pr|inter:$.|
|00002170| 52 65 70 6f 72 74 22 0d | 0d a2 34 20 20 20 20 20 |Report".|..4     |
|00002180| 20 20 20 f2 6d 61 6b 65 | 5f 74 65 78 74 28 70 6e |   .make|_text(pn|
|00002190| 25 2c 70 74 25 2c 70 73 | 25 2c 70 63 25 2c 70 77 |%,pt%,ps|%,pc%,pw|
|000021a0| 68 6f 6c 65 25 2c 70 64 | 69 25 29 0d 0d ac 39 20 |hole%,pd|i%)...9 |
|000021b0| 20 20 20 20 20 20 20 c8 | 99 20 22 4f 53 5f 46 69 |       .|. "OS_Fi|
|000021c0| 6c 65 22 2c 26 30 30 2c | 66 69 6c 65 24 2c 30 2c |le",&00,|file$,0,|
|000021d0| 30 2c 61 64 64 72 25 2c | 28 6f 66 66 25 2b 61 64 |0,addr%,|(off%+ad|
|000021e0| 64 72 25 29 0d 0d b6 23 | 20 20 20 20 20 20 20 20 |dr%)...#|        |
|000021f0| c8 99 20 22 4f 53 5f 4d | 6f 64 75 6c 65 22 2c 37 |.. "OS_M|odule",7|
|00002200| 2c 2c 61 64 64 72 25 0d | 0d c0 24 20 20 20 20 20 |,,addr%.|..$     |
|00002210| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |   .. "W|imp_Crea|
|00002220| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 0d ca 1e 20 |teMenu",|,-1.... |
|00002230| 20 20 20 20 20 20 20 c8 | 99 20 22 48 6f 75 72 67 |       .|. "Hourg|
|00002240| 6c 61 73 73 5f 4f 66 66 | 22 0d 0d d4 15 20 20 20 |lass_Off|"....   |
|00002250| 20 20 20 20 20 70 6f 6c | 6c 25 21 38 3d 30 0d 0d |     pol|l%!8=0..|
|00002260| de 27 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |.'      |  .. "Wi|
|00002270| 6d 70 5f 42 6f 72 64 65 | 72 49 63 6f 6e 22 2c 2c |mp_Borde|rIcon",,|
|00002280| 70 6f 6c 6c 25 0d 0d e8 | 09 20 20 20 20 cb 0d 0d |poll%...|.    ...|
|00002290| f2 07 20 20 cd 0d 0d fc | 0c c9 20 63 6f 6d 6d 25 |..  ....|.. comm%|
|000022a0| 3a 0d 0e 06 13 20 20 e7 | 20 63 75 72 72 25 3c 3e |:....  .| curr%<>|
|000022b0| 2d 31 20 8c 0d 0e 10 12 | 20 20 20 20 c8 8e 20 69 |-1 .....|    .. i|
|000022c0| 63 6f 6e 25 20 ca 0d 0e | 1a 0d 20 20 20 20 c9 20 |con% ...|..    . |
|000022d0| 31 31 3a 0d 0e 24 27 20 | 20 20 20 20 20 e3 20 64 |11:..$' |     . d|
|000022e0| 25 3d 31 b8 36 3a 63 6f | 6d 6d 65 6e 74 24 28 64 |%=1.6:co|mment$(d|
|000022f0| 25 29 3d 22 22 3a ed 20 | 64 25 0d 0e 2e 25 20 20 |%)="":. |d%...%  |
|00002300| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 42 6f 72 |    .. "|Wimp_Bor|
|00002310| 64 65 72 49 63 6f 6e 22 | 2c 2c 70 6f 6c 6c 25 0d |derIcon"|,,poll%.|
|00002320| 0e 38 21 20 20 20 20 20 | 20 e7 20 62 75 74 74 6f |.8!     | . butto|
|00002330| 6e 25 3d 34 20 80 20 63 | 6f 25 3c 3e 2d 31 20 8c |n%=4 . c|o%<>-1 .|
|00002340| 0d 0e 42 13 20 20 20 20 | 20 20 20 20 6f 66 66 32 |..B.    |    off2|
|00002350| 25 3d 30 0d 0e 4c 1b 20 | 20 20 20 20 20 20 20 c8 |%=0..L. |       .|
|00002360| 95 20 63 6f 25 3f 6f 66 | 66 32 25 3c 3e 30 0d 0e |. co%?of|f2%<>0..|
|00002370| 56 16 20 20 20 20 20 20 | 20 20 20 20 6f 66 66 32 |V.      |    off2|
|00002380| 25 2b 3d 31 0d 0e 60 0d | 20 20 20 20 20 20 20 20 |%+=1..`.|        |
|00002390| ce 0d 0e 6a 18 20 20 20 | 20 20 20 20 20 6f 5f 64 |...j.   |     o_d|
|000023a0| 69 6d 25 3d 6f 66 66 32 | 25 0d 0e 74 12 20 20 20 |im%=off2|%..t.   |
|000023b0| 20 20 20 20 20 64 69 6d | 25 3d 30 0d 0e 7e 16 20 |     dim|%=0..~. |
|000023c0| 20 20 20 20 20 20 20 e3 | 20 64 25 3d 32 20 b8 20 |       .| d%=2 . |
|000023d0| 37 0d 0e 88 24 20 20 20 | 20 20 20 20 20 20 20 f2 |7...$   |       .|
|000023e0| 67 65 74 49 63 6f 6e 49 | 6e 66 6f 28 63 6f 6d 6d |getIconI|nfo(comm|
|000023f0| 25 2c 64 25 29 0d 0e 92 | 1f 20 20 20 20 20 20 20 |%,d%)...|.       |
|00002400| 20 20 20 e7 20 64 25 3c | 37 20 64 61 74 61 24 2b |   . d%<|7 data$+|
|00002410| 3d bd 31 30 0d 0e 9c 3b | 20 20 20 20 20 20 20 20 |=.10...;|        |
|00002420| 20 20 e7 20 64 61 74 61 | 24 3c 3e 22 22 20 63 6f |  . data|$<>"" co|
|00002430| 6d 6d 65 6e 74 24 28 64 | 25 2d 31 29 3d 64 61 74 |mment$(d|%-1)=dat|
|00002440| 61 24 3a 64 69 6d 25 2b | 3d a9 64 61 74 61 24 0d |a$:dim%+|=.data$.|
|00002450| 0e a6 10 20 20 20 20 20 | 20 20 20 ed 20 64 25 0d |...     |   . d%.|
|00002460| 0e b0 21 20 20 20 20 20 | 20 20 20 61 6d 6f 75 6e |..!     |   amoun|
|00002470| 74 25 3d 64 69 6d 25 2d | 6f 5f 64 69 6d 25 2b 31 |t%=dim%-|o_dim%+1|
|00002480| 0d 0e ba 2b 20 20 20 20 | 20 20 20 20 e7 20 61 6d |...+    |    . am|
|00002490| 6f 75 6e 74 25 3e 30 20 | 8c 20 77 68 61 74 25 3d |ount%>0 |. what%=|
|000024a0| b9 20 8b 20 77 68 61 74 | 25 3d a3 0d 0e c4 1d 20 |. . what|%=..... |
|000024b0| 20 20 20 20 20 20 20 c8 | 99 20 22 48 6f 75 72 67 |       .|. "Hourg|
|000024c0| 6c 61 73 73 5f 4f 6e 22 | 0d 0e ce 2b 20 20 20 20 |lass_On"|...+    |
|000024d0| 20 20 20 20 73 70 3d a4 | 6d 6f 76 65 5f 6d 65 6d |    sp=.|move_mem|
|000024e0| 28 63 6f 25 2c 61 6d 6f | 75 6e 74 25 2c 77 68 61 |(co%,amo|unt%,wha|
|000024f0| 74 25 29 0d 0e d8 1e 20 | 20 20 20 20 20 20 20 c8 |t%).... |       .|
|00002500| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|00002510| 22 0d 0e e2 14 20 20 20 | 20 20 20 20 20 e7 20 73 |"....   |     . s|
|00002520| 70 3d b9 20 8c 0d 0e ec | 15 20 20 20 20 20 20 20 |p=. ....|.       |
|00002530| 20 20 20 63 6f 6d 24 3d | 22 22 0d 0e f6 16 20 20 |   com$=|""....  |
|00002540| 20 20 20 20 20 20 20 20 | e3 20 64 25 3d 31 b8 36 |        |. d%=1.6|
|00002550| 0d 0f 00 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |..."    |        |
|00002560| 63 6f 6d 24 2b 3d 63 6f | 6d 6d 65 6e 74 24 28 64 |com$+=co|mment$(d|
|00002570| 25 29 0d 0f 0a 12 20 20 | 20 20 20 20 20 20 20 20 |%)....  |        |
|00002580| ed 20 64 25 0d 0f 14 17 | 20 20 20 20 20 20 20 20 |. d%....|        |
|00002590| 20 20 24 63 6f 25 3d 63 | 6f 6d 24 0d 0f 1e 1b 20 |  $co%=c|om$.... |
|000025a0| 20 20 20 20 20 20 20 20 | 20 3f 28 63 6f 25 2b 64 |        | ?(co%+d|
|000025b0| 69 6d 25 29 3d 30 0d 0f | 28 20 20 20 20 20 20 20 |im%)=0..|(       |
|000025c0| 20 20 20 20 21 28 63 6f | 25 2d 33 36 29 2b 3d 61 |    !(co|%-36)+=a|
|000025d0| 6d 6f 75 6e 74 25 0d 0f | 32 0d 20 20 20 20 20 20 |mount%..|2.      |
|000025e0| 20 20 cd 0d 0f 3c 0b 20 | 20 20 20 20 20 cd 0d 0f |  ...<. |     ...|
|000025f0| 46 17 20 20 20 20 20 20 | e7 20 62 75 74 74 6f 6e |F.      |. button|
|00002600| 25 3d 31 20 8c 0d 0f 50 | 1e 20 20 20 20 20 20 20 |%=1 ...P|.       |
|00002610| 20 f2 73 68 6f 77 5f 63 | 6f 6d 6d 65 6e 74 28 63 | .show_c|omment(c|
|00002620| 6f 25 29 0d 0f 5a 0b 20 | 20 20 20 20 20 cd 0d 0f |o%)..Z. |     ...|
|00002630| 64 1c 20 20 20 20 20 20 | f2 73 68 6f 77 5f 63 6f |d.      |.show_co|
|00002640| 6d 6d 65 6e 74 28 63 6f | 25 29 0d 0f 6e 17 20 20 |mment(co|%)..n.  |
|00002650| 20 20 20 20 f2 75 70 64 | 61 74 65 5f 74 69 74 6c |    .upd|ate_titl|
|00002660| 65 0d 0f 78 14 20 20 20 | 20 20 20 f2 63 61 6c 63 |e..x.   |   .calc|
|00002670| 5f 73 69 7a 65 0d 0f 82 | 13 20 20 20 20 20 20 70 |_size...|.      p|
|00002680| 6f 6c 6c 25 21 38 3d 30 | 0d 0f 8c 25 20 20 20 20 |oll%!8=0|...%    |
|00002690| 20 20 c8 99 20 22 57 69 | 6d 70 5f 42 6f 72 64 65 |  .. "Wi|mp_Borde|
|000026a0| 72 49 63 6f 6e 22 2c 2c | 70 6f 6c 6c 25 0d 0f 96 |rIcon",,|poll%...|
|000026b0| 09 20 20 20 20 cb 0d 0f | a0 07 20 20 cd 0d 0f aa |.    ...|..  ....|
|000026c0| 05 cb 0d 0f b4 05 e1 0d | 0f be 05 3a 0d 0f c8 11 |........|...:....|
|000026d0| dd 20 f2 6d 65 6e 75 73 | 65 6c 65 63 74 0d 0f d2 |. .menus|elect...|
|000026e0| 11 20 20 c8 8e 20 6d 68 | 61 6e 64 25 20 ca 0d 0f |.  .. mh|and% ...|
|000026f0| dc 0b 20 20 c9 20 2d 32 | 3a 0d 0f e6 13 20 20 20 |..  . -2|:....   |
|00002700| 20 c8 8e 20 21 70 6f 6c | 6c 25 20 ca 0d 0f f0 19 | .. !pol|l% .....|
|00002710| 20 20 20 20 c9 20 31 3a | f2 6f 70 65 6e 5f 44 42 |    . 1:|.open_DB|
|00002720| 46 69 6c 65 73 0d 0f fa | 15 20 20 20 20 c9 20 32 |Files...|.    . 2|
|00002730| 3a f2 66 69 6e 69 73 68 | 3a e0 0d 10 04 09 20 20 |:.finish|:.....  |
|00002740| 20 20 cb 0d 10 0e 1a 20 | 20 c9 20 6d 61 69 6e 25 |  ..... | . main%|
|00002750| 2c 64 69 73 63 25 2c 66 | 69 6c 65 25 3a 0d 10 18 |,disc%,f|ile%:...|
|00002760| 13 20 20 20 20 c8 8e 20 | 21 70 6f 6c 6c 25 20 ca |.    .. |!poll% .|
|00002770| 0d 10 22 1f 20 20 20 20 | c9 20 32 3a e7 20 63 75 |..".    |. 2:. cu|
|00002780| 72 72 25 3c 3e 2d 31 20 | f2 64 65 6c 65 74 65 0d |rr%<>-1 |.delete.|
|00002790| 10 2c 15 20 20 20 20 c9 | 20 33 3a f2 63 6c 65 61 |.,.    .| 3:.clea|
|000027a0| 72 28 b9 29 0d 10 36 09 | 20 20 20 20 cb 0d 10 40 |r(.)..6.|    ...@|
|000027b0| 07 20 20 cb 0d 10 4a 3d | e7 20 62 75 74 74 6f 6e |.  ...J=|. button|
|000027c0| 25 3d 31 20 f2 6d 65 6e | 75 28 69 63 6f 6e 6d 25 |%=1 .men|u(iconm%|
|000027d0| 2c 6d 6f 79 25 29 20 8b | 20 c8 99 20 22 57 69 6d |,moy%) .| .. "Wim|
|000027e0| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 2d |p_Create|Menu",,-|
|000027f0| 31 0d 10 54 05 e1 0d 10 | 5e 05 3a 0d 10 68 24 dd |1..T....|^.:..h$.|
|00002800| 20 f2 73 65 74 5f 73 68 | 61 64 65 28 6d 65 6e 75 | .set_sh|ade(menu|
|00002810| 5f 68 25 2c 69 74 65 6d | 25 2c 76 61 6c 25 29 0d |_h%,item|%,val%).|
|00002820| 10 72 0b ea 20 64 61 74 | 61 25 0d 10 7c 36 64 61 |.r.. dat|a%..|6da|
|00002830| 74 61 25 3d 2d 28 28 6d | 65 6e 75 5f 68 25 21 28 |ta%=-((m|enu_h%!(|
|00002840| 33 36 2b 32 34 2a 69 74 | 65 6d 25 29 20 80 20 26 |36+24*it|em%) . &|
|00002850| 34 30 30 30 30 30 29 3d | 26 34 30 30 30 30 30 29 |400000)=|&400000)|
|00002860| 0d 10 86 13 e7 20 76 61 | 6c 25 3c 3e 64 61 74 61 |..... va|l%<>data|
|00002870| 25 20 8c 0d 10 90 37 6d | 65 6e 75 5f 68 25 21 28 |% ....7m|enu_h%!(|
|00002880| 33 36 2b 32 34 2a 69 74 | 65 6d 25 29 3d 6d 65 6e |36+24*it|em%)=men|
|00002890| 75 5f 68 25 21 28 33 36 | 2b 32 34 2a 69 74 65 6d |u_h%!(36|+24*item|
|000028a0| 25 29 82 26 34 30 30 30 | 30 30 0d 10 9a 05 cd 0d |%).&4000|00......|
|000028b0| 10 a4 05 e1 0d 10 ae 05 | 3a 0d 10 b8 17 dd 20 f2 |........|:..... .|
|000028c0| 73 65 74 5f 77 68 6f 6c | 65 28 77 68 61 74 25 29 |set_whol|e(what%)|
|000028d0| 0d 10 c2 13 62 6c 6f 63 | 6b 25 21 31 32 3d 31 3c |....bloc|k%!12=1<|
|000028e0| 3c 32 32 0d 10 cc 0f 62 | 6c 6f 63 6b 25 21 34 3d |<22....b|lock%!4=|
|000028f0| 31 30 0d 10 d6 2b e7 20 | 77 68 61 74 25 3d b9 20 |10...+. |what%=. |
|00002900| 8c 20 62 6c 6f 63 6b 25 | 21 38 3d 30 20 8b 20 62 |. block%|!8=0 . b|
|00002910| 6c 6f 63 6b 25 21 38 3d | 31 3c 3c 32 32 0d 10 e0 |lock%!8=|1<<22...|
|00002920| 17 62 6c 6f 63 6b 25 21 | 30 3d 73 61 76 65 5f 74 |.block%!|0=save_t|
|00002930| 65 78 74 25 0d 10 ea 22 | c8 99 20 22 57 69 6d 70 |ext%..."|.. "Wimp|
|00002940| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00002950| 62 6c 6f 63 6b 25 0d 10 | f4 13 62 6c 6f 63 6b 25 |block%..|..block%|
|00002960| 21 31 32 3d 31 3c 3c 32 | 32 0d 10 fe 0f 62 6c 6f |!12=1<<2|2....blo|
|00002970| 63 6b 25 21 34 3d 31 30 | 0d 11 08 2b e7 20 77 68 |ck%!4=10|...+. wh|
|00002980| 61 74 25 3d b9 20 8c 20 | 62 6c 6f 63 6b 25 21 38 |at%=. . |block%!8|
|00002990| 3d 30 20 8b 20 62 6c 6f | 63 6b 25 21 38 3d 31 3c |=0 . blo|ck%!8=1<|
|000029a0| 3c 32 32 0d 11 12 17 62 | 6c 6f 63 6b 25 21 30 3d |<22....b|lock%!0=|
|000029b0| 70 72 69 6e 74 5f 72 65 | 63 25 0d 11 1c 22 c8 99 |print_re|c%..."..|
|000029c0| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|000029d0| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 11 26 05 |ate",,bl|ock%..&.|
|000029e0| e1 0d 11 30 05 3a 0d 11 | 3a 11 dd 20 f2 67 65 74 |...0.:..|:.. .get|
|000029f0| 70 6f 69 6e 74 65 72 0d | 11 44 24 c8 99 20 22 57 |pointer.|.D$.. "W|
|00002a00| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00002a10| 66 6f 22 2c 2c 62 6c 6f | 63 6b 25 0d 11 4e 13 6d |fo",,blo|ck%..N.m|
|00002a20| 6f 75 73 65 78 25 3d 21 | 62 6c 6f 63 6b 25 0d 11 |ousex%=!|block%..|
|00002a30| 58 14 6d 6f 75 73 65 79 | 25 3d 62 6c 6f 63 6b 25 |X.mousey|%=block%|
|00002a40| 21 34 0d 11 62 14 62 75 | 74 74 6f 6e 25 3d 62 6c |!4..b.bu|tton%=bl|
|00002a50| 6f 63 6b 25 21 38 0d 11 | 6c 15 68 61 6e 64 6c 65 |ock%!8..|l.handle|
|00002a60| 25 3d 62 6c 6f 63 6b 25 | 21 31 32 0d 11 76 13 69 |%=block%|!12..v.i|
|00002a70| 63 6f 6e 25 3d 62 6c 6f | 63 6b 25 21 31 36 0d 11 |con%=blo|ck%!16..|
|00002a80| 80 05 e1 0d 11 8a 05 3a | 0d 11 94 14 dd 20 f2 6d |.......:|..... .m|
|00002a90| 6f 61 6e 28 72 65 70 6f | 72 74 24 29 0d 11 9e 1a |oan(repo|rt$)....|
|00002aa0| 24 62 6c 6f 63 6b 25 3d | 22 20 20 20 20 22 2b 72 |$block%=|"    "+r|
|00002ab0| 65 70 6f 72 74 24 0d 11 | a8 2d c8 99 20 22 57 69 |eport$..|.-.. "Wi|
|00002ac0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00002ad0| 62 6c 6f 63 6b 25 2c 31 | 2c 22 44 69 73 63 20 42 |block%,1|,"Disc B|
|00002ae0| 6f 78 22 0d 11 b2 05 e1 | 0d 11 bc 05 3a 0d 11 c6 |ox".....|....:...|
|00002af0| 15 dd 20 a4 65 6e 71 75 | 69 72 65 28 74 65 78 74 |.. .enqu|ire(text|
|00002b00| 24 29 0d 11 d0 0e 62 6c | 6f 63 6b 25 21 30 3d 30 |$)....bl|ock%!0=0|
|00002b10| 0d 11 da 18 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |....$(bl|ock%+4)=|
|00002b20| 74 65 78 74 24 2b bd 30 | 0d 11 e4 48 c8 99 20 22 |text$+.0|...H.. "|
|00002b30| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|00002b40| 22 2c 62 6c 6f 63 6b 25 | 2c 25 31 30 30 31 31 2c |",block%|,%10011,|
|00002b50| 22 51 75 65 72 79 20 66 | 72 6f 6d 20 44 69 73 63 |"Query f|rom Disc|
|00002b60| 20 42 6f 78 22 20 b8 20 | 2c 61 6e 73 77 65 72 25 | Box" . |,answer%|
|00002b70| 0d 11 ee 0c 3d 61 6e 73 | 77 65 72 25 0d 11 f8 05 |....=ans|wer%....|
|00002b80| 3a 0d 12 02 17 dd 20 f2 | 6d 65 6e 75 28 6d 65 6e |:..... .|menu(men|
|00002b90| 75 5f 68 25 2c 79 25 29 | 0d 12 0c 0f f2 67 65 74 |u_h%,y%)|.....get|
|00002ba0| 70 6f 69 6e 74 65 72 0d | 12 16 1d e7 20 6d 6f 75 |pointer.|.... mou|
|00002bb0| 73 65 79 25 3c 79 25 20 | 8c 20 6d 6f 75 73 65 79 |sey%<y% |. mousey|
|00002bc0| 25 3d 79 25 0d 12 20 34 | c8 99 20 22 57 69 6d 70 |%=y%.. 4|.. "Wimp|
|00002bd0| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 6d 65 |_CreateM|enu",,me|
|00002be0| 6e 75 5f 68 25 2c 6d 6f | 75 73 65 78 25 2d 36 36 |nu_h%,mo|usex%-66|
|00002bf0| 2c 6d 6f 75 73 65 79 25 | 0d 12 2a 05 e1 0d 12 34 |,mousey%|..*....4|
|00002c00| 05 3a 0d 12 3e 13 dd 20 | f2 6f 70 65 6e 5f 63 6f |.:..>.. |.open_co|
|00002c10| 6d 6d 65 6e 74 0d 12 48 | 15 e7 20 63 6f 6d 6d 5f |mment..H|.. comm_|
|00002c20| 77 69 6e 25 3d b9 20 8c | 20 e1 0d 12 52 11 21 62 |win%=. .| ...R.!b|
|00002c30| 6c 6f 63 6b 25 3d 6d 61 | 69 6e 25 0d 12 5c 24 c8 |lock%=ma|in%..\$.|
|00002c40| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00002c50| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00002c60| 12 66 11 21 62 6c 6f 63 | 6b 25 3d 63 6f 6d 6d 25 |.f.!bloc|k%=comm%|
|00002c70| 0d 12 70 23 62 6c 6f 63 | 6b 25 21 31 36 2d 3d 28 |..p#bloc|k%!16-=(|
|00002c80| 62 6c 6f 63 6b 25 21 31 | 36 2d 62 6c 6f 63 6b 25 |block%!1|6-block%|
|00002c90| 21 38 29 0d 12 7a 20 c8 | 99 20 22 57 69 6d 70 5f |!8)..z .|. "Wimp_|
|00002ca0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |OpenWind|ow",,blo|
|00002cb0| 63 6b 25 0d 12 84 0f 63 | 6f 6d 6d 5f 77 69 6e 25 |ck%....c|omm_win%|
|00002cc0| 3d b9 0d 12 8e 05 e1 0d | 12 98 05 3a 0d 12 a2 20 |=.......|...:... |
|00002cd0| dd 20 f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 68 |. .open_|window(h|
|00002ce0| 61 6e 64 6c 65 25 2c 69 | 6e 66 25 29 0d 12 ac 0b |andle%,i|nf%)....|
|00002cf0| ea 20 64 61 74 61 25 0d | 12 b6 0e e7 69 6e 66 25 |. data%.|....inf%|
|00002d00| 3c 3e 30 20 8c 0d 12 c0 | 30 e3 20 64 61 74 61 25 |<>0 ....|0. data%|
|00002d10| 3d 30 20 b8 20 33 31 20 | 88 20 34 3a 62 6c 6f 63 |=0 . 31 |. 4:bloc|
|00002d20| 6b 25 21 64 61 74 61 25 | 3d 69 6e 66 25 21 64 61 |k%!data%|=inf%!da|
|00002d30| 74 61 25 3a ed 0d 12 ca | 36 cc 20 21 62 6c 6f 63 |ta%:....|6. !bloc|
|00002d40| 6b 25 3d 68 61 6e 64 6c | 65 25 3a c8 99 20 22 57 |k%=handl|e%:.. "W|
|00002d50| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00002d60| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 12 d4 3b 62 |te",,blo|ck%...;b|
|00002d70| 6c 6f 63 6b 25 21 34 3d | 33 30 30 3a 62 6c 6f 63 |lock%!4=|300:bloc|
|00002d80| 6b 25 21 38 3d 31 30 30 | 3a 62 6c 6f 63 6b 25 21 |k%!8=100|:block%!|
|00002d90| 31 32 3d 31 35 30 30 3a | 62 6c 6f 63 6b 25 21 31 |12=1500:|block%!1|
|00002da0| 36 3d 31 30 30 30 0d 12 | de 05 cd 0d 12 e8 15 e7 |6=1000..|........|
|00002db0| 20 21 62 6c 6f 63 6b 25 | 3d 6d 61 69 6e 25 20 8c | !block%|=main% .|
|00002dc0| 0d 12 f2 15 20 20 e7 20 | 66 69 6c 65 5f 77 69 6e |....  . |file_win|
|00002dd0| 25 3d b9 20 8c 0d 12 fc | 17 20 20 20 20 e7 20 63 |%=. ....|.    . c|
|00002de0| 6f 6d 6d 5f 77 69 6e 25 | 3d b9 20 8c 0d 13 06 18 |omm_win%|=. .....|
|00002df0| 20 20 20 20 20 20 21 62 | 6c 6f 63 6b 32 25 3d 63 |      !b|lock2%=c|
|00002e00| 6f 6d 6d 25 0d 13 10 1c | 20 20 20 20 20 20 62 6c |omm%....|      bl|
|00002e10| 6f 63 6b 32 25 21 34 3d | 62 6c 6f 63 6b 25 21 34 |ock2%!4=|block%!4|
|00002e20| 0d 13 1a 1c 20 20 20 20 | 20 20 62 6c 6f 63 6b 32 |....    |  block2|
|00002e30| 25 21 38 3d 62 6c 6f 63 | 6b 25 21 38 0d 13 24 1a |%!8=bloc|k%!8..$.|
|00002e40| 20 20 20 20 20 20 e3 20 | 69 25 3d 31 32 20 b8 20 |      . |i%=12 . |
|00002e50| 32 34 20 88 20 34 0d 13 | 2e 20 20 20 20 20 20 20 |24 . 4..|.       |
|00002e60| 20 20 62 6c 6f 63 6b 32 | 25 21 69 25 3d 62 6c 6f |  block2|%!i%=blo|
|00002e70| 63 6b 25 21 69 25 0d 13 | 38 10 20 20 20 20 20 20 |ck%!i%..|8.      |
|00002e80| 20 20 ed 20 69 25 0d 13 | 42 2a 20 20 20 20 20 20 |  . i%..|B*      |
|00002e90| 62 6c 6f 63 6b 32 25 21 | 31 36 2d 3d 28 62 6c 6f |block2%!|16-=(blo|
|00002ea0| 63 6b 25 21 31 36 2d 62 | 6c 6f 63 6b 25 21 38 29 |ck%!16-b|lock%!8)|
|00002eb0| 0d 13 4c 1e 20 20 20 20 | 20 20 62 6c 6f 63 6b 32 |..L.    |  block2|
|00002ec0| 25 21 32 38 3d 62 6c 6f | 63 6b 25 21 32 38 0d 13 |%!28=blo|ck%!28..|
|00002ed0| 56 27 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 |V'      |.. "Wimp|
|00002ee0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00002ef0| 6f 63 6b 32 25 0d 13 60 | 09 20 20 20 20 cd 0d 13 |ock2%..`|.    ...|
|00002f00| 6a 16 20 20 20 20 21 62 | 6c 6f 63 6b 32 25 3d 66 |j.    !b|lock2%=f|
|00002f10| 69 6c 65 25 0d 13 74 1e | 20 20 20 20 62 6c 6f 63 |ile%..t.|    bloc|
|00002f20| 6b 32 25 21 34 3d 62 6c | 6f 63 6b 25 21 34 2b 33 |k2%!4=bl|ock%!4+3|
|00002f30| 31 30 0d 13 7e 17 20 20 | 20 20 e3 20 69 25 3d 38 |10..~.  |  . i%=8|
|00002f40| 20 b8 20 32 34 20 88 20 | 34 0d 13 88 1e 20 20 20 | . 24 . |4....   |
|00002f50| 20 20 20 62 6c 6f 63 6b | 32 25 21 69 25 3d 62 6c |   block|2%!i%=bl|
|00002f60| 6f 63 6b 25 21 69 25 0d | 13 92 0e 20 20 20 20 20 |ock%!i%.|...     |
|00002f70| 20 ed 20 69 25 0d 13 9c | 1c 20 20 20 20 62 6c 6f | . i%...|.    blo|
|00002f80| 63 6b 32 25 21 32 38 3d | 62 6c 6f 63 6b 25 21 32 |ck2%!28=|block%!2|
|00002f90| 38 0d 13 a6 25 20 20 20 | 20 c8 99 20 22 57 69 6d |8...%   | .. "Wim|
|00002fa0| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00002fb0| 6c 6f 63 6b 32 25 0d 13 | b0 17 20 20 20 20 62 6c |lock2%..|..    bl|
|00002fc0| 6f 63 6b 25 21 32 38 3d | 66 69 6c 65 25 0d 13 ba |ock%!28=|file%...|
|00002fd0| 07 20 20 cc 0d 13 c4 16 | 20 20 20 20 21 62 6c 6f |.  .....|    !blo|
|00002fe0| 63 6b 32 25 3d 64 69 73 | 63 25 0d 13 ce 1e 20 20 |ck2%=dis|c%....  |
|00002ff0| 20 20 62 6c 6f 63 6b 32 | 25 21 34 3d 62 6c 6f 63 |  block2|%!4=bloc|
|00003000| 6b 25 21 34 2b 33 31 30 | 0d 13 d8 17 20 20 20 20 |k%!4+310|....    |
|00003010| e3 20 69 25 3d 38 20 b8 | 20 32 34 20 88 20 34 0d |. i%=8 .| 24 . 4.|
|00003020| 13 e2 1e 20 20 20 20 20 | 20 62 6c 6f 63 6b 32 25 |...     | block2%|
|00003030| 21 69 25 3d 62 6c 6f 63 | 6b 25 21 69 25 0d 13 ec |!i%=bloc|k%!i%...|
|00003040| 0e 20 20 20 20 20 20 ed | 20 69 25 0d 13 f6 1c 20 |.      .| i%.... |
|00003050| 20 20 20 62 6c 6f 63 6b | 32 25 21 32 38 3d 62 6c |   block|2%!28=bl|
|00003060| 6f 63 6b 25 21 32 38 0d | 14 00 25 20 20 20 20 c8 |ock%!28.|..%    .|
|00003070| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00003080| 6f 77 22 2c 2c 62 6c 6f | 63 6b 32 25 0d 14 0a 17 |ow",,blo|ck2%....|
|00003090| 20 20 20 20 62 6c 6f 63 | 6b 25 21 32 38 3d 64 69 |    bloc|k%!28=di|
|000030a0| 73 63 25 0d 14 14 07 20 | 20 cd 0d 14 1e 21 20 20 |sc%.... | ....!  |
|000030b0| e7 20 64 69 73 63 5f 77 | 69 6e 25 20 62 6c 6f 63 |. disc_w|in% bloc|
|000030c0| 6b 25 21 32 38 3d 64 69 | 73 63 25 0d 14 28 21 20 |k%!28=di|sc%..(! |
|000030d0| 20 e7 20 66 69 6c 65 5f | 77 69 6e 25 20 62 6c 6f | . file_|win% blo|
|000030e0| 63 6b 25 21 32 38 3d 66 | 69 6c 65 25 0d 14 32 22 |ck%!28=f|ile%..2"|
|000030f0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |  .. "Wi|mp_OpenW|
|00003100| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 14 |indow",,|block%..|
|00003110| 3c 0c 20 20 6f 70 65 6e | 3d b9 0d 14 46 05 cc 0d |<.  open|=...F...|
|00003120| 14 50 22 20 20 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |.P"  .. |"Wimp_Op|
|00003130| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|00003140| 25 0d 14 5a 05 cd 0d 14 | 64 05 e1 0d 14 6e 05 3a |%..Z....|d....n.:|
|00003150| 0d 14 78 1c dd 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |..x.. .c|lose_win|
|00003160| 64 6f 77 28 68 61 6e 64 | 6c 65 25 29 0d 14 82 31 |dow(hand|le%)...1|
|00003170| 21 62 6c 6f 63 6b 25 3d | 68 61 6e 64 6c 65 25 3a |!block%=|handle%:|
|00003180| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|00003190| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 14 8c |ndow",,b|lock%...|
|000031a0| 15 e7 20 21 62 6c 6f 63 | 6b 25 3d 6d 61 69 6e 25 |.. !bloc|k%=main%|
|000031b0| 20 8c 0d 14 96 0c 20 20 | 6f 70 65 6e 3d a3 0d 14 | .....  |open=...|
|000031c0| a0 15 20 20 e7 20 64 69 | 73 63 5f 77 69 6e 25 3d |..  . di|sc_win%=|
|000031d0| b9 20 8c 0d 14 aa 15 20 | 20 20 20 21 62 6c 6f 63 |. ..... |   !bloc|
|000031e0| 6b 25 3d 64 69 73 63 25 | 0d 14 b4 25 20 20 20 20 |k%=disc%|...%    |
|000031f0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|00003200| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 14 be |ndow",,b|lock%...|
|00003210| 07 20 20 cc 0d 14 c8 15 | 20 20 20 20 21 62 6c 6f |.  .....|    !blo|
|00003220| 63 6b 25 3d 63 6f 6d 6d | 25 0d 14 d2 25 20 20 20 |ck%=comm|%...%   |
|00003230| 20 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 | .. "Wim|p_CloseW|
|00003240| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 14 |indow",,|block%..|
|00003250| dc 15 20 20 20 20 21 62 | 6c 6f 63 6b 25 3d 66 69 |..    !b|lock%=fi|
|00003260| 6c 65 25 0d 14 e6 25 20 | 20 20 20 c8 99 20 22 57 |le%...% |   .. "W|
|00003270| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00003280| 2c 2c 62 6c 6f 63 6b 25 | 0d 14 f0 07 20 20 cd 0d |,,block%|....  ..|
|00003290| 14 fa 0c 20 20 6f 70 65 | 6e 3d a3 0d 15 04 05 cd |...  ope|n=......|
|000032a0| 0d 15 0e 05 e1 0d 15 18 | 05 3a 0d 15 22 13 dd 20 |........|.:..".. |
|000032b0| f2 6f 70 65 6e 5f 44 42 | 46 69 6c 65 73 0d 15 2c |.open_DB|Files..,|
|000032c0| 30 63 6f 6d 6d 61 6e 64 | 24 3d 22 46 69 6c 65 72 |0command|$="Filer|
|000032d0| 5f 4f 70 65 6e 44 69 72 | 20 22 2b 61 6c 69 61 73 |_OpenDir| "+alias|
|000032e0| 32 24 2b 22 2e 44 42 46 | 69 6c 65 73 22 0d 15 36 |2$+".DBF|iles"..6|
|000032f0| 20 c8 99 20 22 57 69 6d | 70 5f 53 74 61 72 74 54 | .. "Wim|p_StartT|
|00003300| 61 73 6b 22 2c 63 6f 6d | 6d 61 6e 64 24 0d 15 40 |ask",com|mand$..@|
|00003310| 05 e1 0d 15 4a 05 3a 0d | 15 54 23 dd 20 f2 72 65 |....J.:.|.T#. .re|
|00003320| 64 72 61 77 5f 77 69 6e | 64 6f 77 28 68 61 6e 64 |draw_win|dow(hand|
|00003330| 6c 65 25 2c 66 6f 72 63 | 65 29 0d 15 5e 1a ea 20 |le%,forc|e)..^.. |
|00003340| 6e 78 25 2c 6e 79 25 2c | 6d 6f 72 65 2c 77 77 25 |nx%,ny%,|more,ww%|
|00003350| 2c 77 68 25 0d 15 68 13 | 21 62 6c 6f 63 6b 25 3d |,wh%..h.|!block%=|
|00003360| 68 61 6e 64 6c 65 25 0d | 15 72 0d e7 20 66 6f 72 |handle%.|.r.. for|
|00003370| 63 65 20 8c 0d 15 7c 29 | c8 99 20 22 57 69 6d 70 |ce ...|)|.. "Wimp|
|00003380| 5f 55 70 64 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_UpdateW|indow",,|
|00003390| 62 6c 6f 63 6b 25 20 b8 | 20 6d 6f 72 65 0d 15 86 |block% .| more...|
|000033a0| 2b cc 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 64 72 |+. .. "W|imp_Redr|
|000033b0| 61 77 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |awWindow|",,block|
|000033c0| 25 20 b8 20 6d 6f 72 65 | 0d 15 90 05 cd 0d 15 9a |% . more|........|
|000033d0| 33 77 77 25 3d 62 6c 6f | 63 6b 25 21 33 36 2d 62 |3ww%=blo|ck%!36-b|
|000033e0| 6c 6f 63 6b 25 21 32 38 | 3a 77 68 25 3d 62 6c 6f |lock%!28|:wh%=blo|
|000033f0| 63 6b 25 21 34 30 2d 62 | 6c 6f 63 6b 25 21 33 32 |ck%!40-b|lock%!32|
|00003400| 0d 15 a4 36 6e 78 25 3d | 28 62 6c 6f 63 6b 25 21 |...6nx%=|(block%!|
|00003410| 34 2d 62 6c 6f 63 6b 25 | 21 32 30 29 3a 6e 79 25 |4-block%|!20):ny%|
|00003420| 3d 28 62 6c 6f 63 6b 25 | 21 31 36 2d 62 6c 6f 63 |=(block%|!16-bloc|
|00003430| 6b 25 21 32 34 29 0d 15 | ae 0b c8 95 20 6d 6f 72 |k%!24)..|.... mor|
|00003440| 65 0d 15 b8 24 20 20 c8 | 99 20 22 57 69 6d 70 5f |e...$  .|. "Wimp_|
|00003450| 42 6f 72 64 65 72 57 69 | 6e 64 6f 77 22 2c 2c 62 |BorderWi|ndow",,b|
|00003460| 6c 6f 63 6b 25 0d 15 c2 | 2b 20 20 c8 99 20 22 57 |lock%...|+  .. "W|
|00003470| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00003480| 22 2c 2c 62 6c 6f 63 6b | 25 20 b8 20 6d 6f 72 65 |",,block|% . more|
|00003490| 0d 15 cc 05 ce 0d 15 d6 | 05 e1 0d 15 e0 05 3a 0d |........|......:.|
|000034a0| 15 ea 12 dd 20 f2 72 65 | 63 69 65 76 65 28 62 25 |.... .re|cieve(b%|
|000034b0| 29 0d 15 f4 0f f2 67 65 | 74 70 6f 69 6e 74 65 72 |).....ge|tpointer|
|000034c0| 0d 15 fe 0e c8 8e 20 62 | 25 21 31 36 20 ca 0d 16 |...... b|%!16 ...|
|000034d0| 08 11 c9 20 30 3a f2 66 | 69 6e 69 73 68 3a e0 0d |... 0:.f|inish:..|
|000034e0| 16 09 08 c9 20 38 3a 0d | 16 0a 11 20 20 e7 20 6f |.... 8:.|...  . o|
|000034f0| 72 69 67 25 3d a3 20 8c | 0d 16 0b 1d 20 20 20 20 |rig%=. .|....    |
|00003500| 62 25 21 31 32 3d 62 25 | 21 38 3a 73 65 6e 64 25 |b%!12=b%|!8:send%|
|00003510| 3d 62 25 21 34 0d 16 0c | 28 20 20 20 20 c8 99 20 |=b%!4...|(    .. |
|00003520| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00003530| 65 22 2c 31 39 2c 62 25 | 2c 62 25 21 34 0d 16 0d |e",19,b%|,b%!4...|
|00003540| 4d 20 20 20 20 e7 20 a4 | 65 6e 71 75 69 72 65 28 |M    . .|enquire(|
|00003550| 22 43 75 72 72 65 6e 74 | 20 44 69 73 63 20 42 6f |"Current| Disc Bo|
|00003560| 78 20 66 69 6c 65 20 68 | 61 73 20 6e 6f 74 20 62 |x file h|as not b|
|00003570| 65 65 6e 20 73 61 76 65 | 64 2c 20 6c 6f 6f 73 65 |een save|d, loose|
|00003580| 20 69 74 3f 22 29 3d 31 | 20 8c 0d 16 0f 29 20 20 | it?")=1| ....)  |
|00003590| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |     .. |"Wimp_Ge|
|000035a0| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|000035b0| 2c 62 25 0d 16 10 15 20 | 20 20 20 20 20 20 62 25 |,b%.... |      b%|
|000035c0| 21 32 34 3d 26 31 46 43 | 0d 16 11 33 20 20 20 20 |!24=&1FC|...3    |
|000035d0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |   .. "W|imp_Send|
|000035e0| 4d 65 73 73 61 67 65 22 | 2c 38 2c 62 25 2c 73 65 |Message"|,8,b%,se|
|000035f0| 6e 64 25 3a 6f 72 69 67 | 25 3d b9 0d 16 12 0a 20 |nd%:orig|%=..... |
|00003600| 20 20 20 20 cd 0d 16 13 | 07 20 20 cd 0d 16 14 08 |    ....|.  .....|
|00003610| c9 20 31 3a 0d 16 1c 2c | 20 20 e7 20 62 25 21 32 |. 1:...,|  . b%!2|
|00003620| 30 3d 66 69 6c 65 25 20 | 80 20 62 25 21 32 34 3d |0=file% |. b%!24=|
|00003630| 37 20 80 20 62 25 21 34 | 30 3d 26 46 46 46 20 8c |7 . b%!4|0=&FFF .|
|00003640| 0d 16 26 10 20 20 20 20 | 62 25 21 33 36 3d 2d 31 |..&.    |b%!36=-1|
|00003650| 0d 16 30 1f 20 20 20 20 | 24 28 62 25 2b 34 34 29 |..0.    |$(b%+44)|
|00003660| 3d 22 3c 57 69 6d 70 24 | 53 63 72 61 70 3e 22 0d |="<Wimp$|Scrap>".|
|00003670| 16 3a 14 20 20 20 20 62 | 25 3f 28 34 34 2b 31 32 |.:.    b|%?(44+12|
|00003680| 29 3d 30 0d 16 44 24 20 | 20 20 20 62 25 21 30 3d |)=0..D$ |   b%!0=|
|00003690| 34 38 2b a9 28 22 3c 57 | 69 6d 70 24 53 63 72 61 |48+.("<W|imp$Scra|
|000036a0| 70 3e 22 29 80 ac 33 0d | 16 4e 1a 20 20 20 20 62 |p>")..3.|.N.    b|
|000036b0| 25 21 31 32 3d 62 25 21 | 38 3a 62 25 21 31 36 3d |%!12=b%!|8:b%!16=|
|000036c0| 32 0d 16 58 28 20 20 20 | 20 c8 99 20 22 57 69 6d |2..X(   | .. "Wim|
|000036d0| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|000036e0| 38 2c 62 25 2c 62 25 21 | 34 0d 16 62 12 20 20 20 |8,b%,b%!|4..b.   |
|000036f0| 20 73 72 65 66 25 3d 62 | 25 21 38 0d 16 6c 07 20 | sref%=b|%!8..l. |
|00003700| 20 cd 0d 16 76 08 c9 20 | 32 3a 0d 16 80 23 20 20 | ...v.. |2:...#  |
|00003710| e7 20 62 25 21 34 30 3d | 26 30 41 43 20 8c 20 f2 |. b%!40=|&0AC . .|
|00003720| 73 61 76 65 5f 66 69 6c | 65 28 62 25 29 0d 16 8a |save_fil|e(b%)...|
|00003730| 23 20 20 e7 20 62 25 21 | 34 30 3d 26 46 46 46 20 |#  . b%!|40=&FFF |
|00003740| 8c 20 f2 73 61 76 65 5f | 74 65 78 74 28 62 25 29 |. .save_|text(b%)|
|00003750| 0d 16 94 08 c9 20 33 3a | 0d 16 9e 1f 20 20 e7 20 |..... 3:|....  . |
|00003760| 62 25 21 32 30 3d 66 69 | 6c 65 25 20 80 20 62 25 |b%!20=fi|le% . b%|
|00003770| 21 32 34 3d 30 20 8c 0d | 16 9f 13 20 20 e7 20 21 |!24=0 ..|...  . !|
|00003780| 77 6f 72 6b 25 3d 36 30 | 20 8c 0d 16 a0 6b 20 20 |work%=60| ....k  |
|00003790| 20 20 f2 6d 6f 61 6e 28 | 22 4d 61 78 69 6d 75 6d |  .moan(|"Maximum|
|000037a0| 20 6f 66 20 36 30 20 72 | 65 63 6f 72 64 73 20 61 | of 60 r|ecords a|
|000037b0| 6c 6c 6f 77 65 64 20 64 | 75 65 20 74 6f 20 70 72 |llowed d|ue to pr|
|000037c0| 6f 67 72 61 6d 20 6c 69 | 6d 69 74 61 74 69 6f 6e |ogram li|mitation|
|000037d0| 73 2e 20 50 6c 65 61 73 | 65 20 73 74 61 72 74 20 |s. Pleas|e start |
|000037e0| 61 20 6e 65 77 20 44 69 | 73 63 42 6f 78 20 66 69 |a new Di|scBox fi|
|000037f0| 6c 65 2e 22 29 0d 16 a1 | 09 20 20 20 20 e1 0d 16 |le.")...|.    ...|
|00003800| a2 07 20 20 cd 0d 16 ac | 04 0d 16 a4 1c 20 20 20 |..  ....|.....   |
|00003810| 20 e7 20 a4 69 6e 63 5f | 73 6c 6f 74 28 31 30 30 | . .inc_|slot(100|
|00003820| 29 3d b9 20 8c 0d 16 a5 | 40 20 20 20 20 20 20 f2 |)=. ....|@      .|
|00003830| 6d 6f 61 6e 28 22 4e 6f | 74 20 65 6e 6f 75 67 68 |moan("No|t enough|
|00003840| 20 6d 65 6d 6f 72 79 20 | 61 76 61 69 6c 61 62 6c | memory |availabl|
|00003850| 65 20 66 6f 72 20 6d 6f | 72 65 20 72 65 63 6f 72 |e for mo|re recor|
|00003860| 64 73 21 22 29 0d 16 a6 | 0b 20 20 20 20 20 20 e1 |ds!")...|.      .|
|00003870| 0d 16 a7 09 20 20 20 20 | cd 0d 16 a8 19 20 20 20 |....    |.....   |
|00003880| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f | .. "Hou|rglass_O|
|00003890| 6e 22 0d 16 b2 13 20 20 | 20 20 74 79 70 65 25 3d |n"....  |  type%=|
|000038a0| 62 25 21 34 30 0d 16 bc | 1e 20 20 20 20 70 61 74 |b%!40...|.    pat|
|000038b0| 68 24 3d a4 67 5f 73 74 | 72 69 6e 67 28 62 25 2b |h$=.g_st|ring(b%+|
|000038c0| 34 34 29 0d 16 c6 12 20 | 20 20 20 c8 8e 20 74 79 |44).... |   .. ty|
|000038d0| 70 65 25 20 ca 0d 16 d0 | 2e 20 20 20 20 20 20 c9 |pe% ....|.      .|
|000038e0| 20 26 31 30 30 30 2c 26 | 32 30 30 30 3a 73 69 7a | &1000,&|2000:siz|
|000038f0| 65 25 3d a4 64 69 72 5f | 73 69 7a 65 28 70 61 74 |e%=.dir_|size(pat|
|00003900| 68 24 29 0d 16 da 0c 20 | 20 20 20 20 20 7f 3a 0d |h$).... |     .:.|
|00003910| 16 e4 2e 20 20 20 20 20 | 20 20 20 c8 99 20 22 4f |...     |   .. "O|
|00003920| 53 5f 46 69 6c 65 22 2c | 26 30 35 2c 70 61 74 68 |S_File",|&05,path|
|00003930| 24 20 b8 20 2c 2c 2c 2c | 73 69 7a 65 25 0d 16 ee |$ . ,,,,|size%...|
|00003940| 09 20 20 20 20 cb 0d 16 | f8 17 20 20 20 20 6f 6c |.    ...|..    ol|
|00003950| 64 5f 77 70 74 72 25 3d | 77 70 74 72 25 0d 17 02 |d_wptr%=|wptr%...|
|00003960| 18 20 20 20 20 24 62 6c | 6f 63 6b 32 25 3d c4 31 |.    $bl|ock2%=.1|
|00003970| 32 2c bd 30 29 0d 17 0c | 12 20 20 20 20 c8 8e 20 |2,.0)...|.    .. |
|00003980| 74 79 70 65 25 20 ca 0d | 17 16 29 20 20 20 20 20 |type% ..|..)     |
|00003990| 20 c9 20 26 31 30 30 30 | 3a 24 62 6c 6f 63 6b 32 | . &1000|:$block2|
|000039a0| 25 3d 22 44 69 72 65 63 | 74 6f 72 79 22 2b bd 30 |%="Direc|tory"+.0|
|000039b0| 0d 17 20 2b 20 20 20 20 | 20 20 c9 20 26 32 30 30 |.. +    |  . &200|
|000039c0| 30 3a 24 62 6c 6f 63 6b | 32 25 3d 22 41 70 70 6c |0:$block|2%="Appl|
|000039d0| 69 63 61 74 69 6f 6e 22 | 2b bd 30 0d 17 2a 0b 20 |ication"|+.0..*. |
|000039e0| 20 20 20 20 20 7f 0d 17 | 34 24 20 20 20 20 20 20 |     ...|4$      |
|000039f0| 64 61 74 61 24 3d 22 46 | 69 6c 65 24 54 79 70 65 |data$="F|ile$Type|
|00003a00| 5f 22 2b c3 7e 74 79 70 | 65 25 0d 17 3e 3c 20 20 |_"+.~typ|e%..><  |
|00003a10| 20 20 20 20 c8 99 20 22 | 58 4f 53 5f 52 65 61 64 |    .. "|XOS_Read|
|00003a20| 56 61 72 56 61 6c 22 2c | 64 61 74 61 24 2c 62 6c |VarVal",|data$,bl|
|00003a30| 6f 63 6b 32 25 2c 2d 31 | 2c 30 2c 33 20 b8 20 2c |ock2%,-1|,0,3 . ,|
|00003a40| 2c 64 61 74 61 25 0d 17 | 48 15 20 20 20 20 20 20 |,data%..|H.      |
|00003a50| e7 20 64 61 74 61 25 3c | 30 20 8c 0d 17 52 3e 20 |. data%<|0 ...R> |
|00003a60| 20 20 20 20 20 20 20 c8 | 99 20 22 58 4f 53 5f 52 |       .|. "XOS_R|
|00003a70| 65 61 64 56 61 72 56 61 | 6c 22 2c 64 61 74 61 24 |eadVarVa|l",data$|
|00003a80| 2c 62 6c 6f 63 6b 32 25 | 2c 31 32 2c 30 2c 33 20 |,block2%|,12,0,3 |
|00003a90| b8 20 2c 2c 64 61 74 61 | 25 0d 17 5c 0b 20 20 20 |. ,,data|%..\.   |
|00003aa0| 20 20 20 cc 0d 17 66 1f | 20 20 20 20 20 20 20 20 |   ...f.|        |
|00003ab0| 24 62 6c 6f 63 6b 32 25 | 3d c3 7e 74 79 70 65 25 |$block2%|=.~type%|
|00003ac0| 2b bd 30 0d 17 70 0b 20 | 20 20 20 20 20 cd 0d 17 |+.0..p. |     ...|
|00003ad0| 7a 09 20 20 20 20 cb 0d | 17 84 2d 20 20 20 20 24 |z.    ..|..-    $|
|00003ae0| 28 77 70 74 72 25 2b 34 | 29 3d c0 a4 67 5f 73 74 |(wptr%+4|)=..g_st|
|00003af0| 72 69 6e 67 28 62 6c 6f | 63 6b 32 25 29 2c 31 31 |ring(blo|ck2%),11|
|00003b00| 29 2b bd 30 0d 17 8e 16 | 20 20 20 20 77 70 74 72 |)+.0....|    wptr|
|00003b10| 25 21 31 36 3d 73 69 7a | 65 25 0d 17 98 23 20 20 |%!16=siz|e%...#  |
|00003b20| 20 20 24 28 77 70 74 72 | 25 2b 32 30 29 3d a4 6c |  $(wptr|%+20)=.l|
|00003b30| 65 61 66 28 70 61 74 68 | 24 29 2b bd 30 0d 17 a2 |eaf(path|$)+.0...|
|00003b40| 27 20 20 20 20 24 28 77 | 70 74 72 25 2b 33 36 29 |'    $(w|ptr%+36)|
|00003b50| 3d 22 4e 4f 20 43 4f 4d | 4d 45 4e 54 21 22 2b bd |="NO COM|MENT!"+.|
|00003b60| 30 2b bd 31 0d 17 ac 23 | 20 20 20 20 74 25 3d a9 |0+.1...#|    t%=.|
|00003b70| 28 a4 67 5f 73 74 72 69 | 6e 67 28 77 70 74 72 25 |(.g_stri|ng(wptr%|
|00003b80| 2b 33 36 29 29 2b 32 0d | 17 b6 1d 20 20 20 20 77 |+36))+2.|...    w|
|00003b90| 70 74 72 25 2b 3d 28 33 | 36 2b 74 25 2b 34 2d 74 |ptr%+=(3|6+t%+4-t|
|00003ba0| 25 83 34 29 0d 17 c0 11 | 20 20 20 20 21 77 6f 72 |%.4)....|    !wor|
|00003bb0| 6b 25 2b 3d 31 0d 17 ca | 24 20 20 20 20 21 6f 6c |k%+=1...|$    !ol|
|00003bc0| 64 5f 77 70 74 72 25 3d | 28 77 70 74 72 25 2d 6f |d_wptr%=|(wptr%-o|
|00003bd0| 6c 64 5f 77 70 74 72 25 | 29 0d 17 d4 1e 20 20 20 |ld_wptr%|)....   |
|00003be0| 20 77 65 6e 64 25 2b 3d | 77 70 74 72 25 2d 6f 6c | wend%+=|wptr%-ol|
|00003bf0| 64 5f 77 70 74 72 25 0d | 17 de 16 20 20 20 20 f2 |d_wptr%.|...    .|
|00003c00| 75 70 64 61 74 65 5f 62 | 6f 78 28 a3 29 0d 17 e8 |update_b|ox(.)...|
|00003c10| 12 20 20 20 20 f2 63 61 | 6c 63 5f 66 72 65 65 0d |.    .ca|lc_free.|
|00003c20| 17 f2 12 20 20 20 20 e7 | 20 64 63 68 25 3d a3 20 |...    .| dch%=. |
|00003c30| 8c 0d 17 fc 20 20 20 20 | 20 20 20 70 31 25 3d a7 |....    |   p1%=.|
|00003c40| 70 61 74 68 24 2c 22 3a | 22 29 3a 70 31 25 2b 3d |path$,":|"):p1%+=|
|00003c50| 32 0d 18 06 19 20 20 20 | 20 20 20 70 32 25 3d a7 |2....   |   p2%=.|
|00003c60| 70 61 74 68 24 2c 22 2e | 22 29 0d 18 10 22 20 20 |path$,".|")..."  |
|00003c70| 20 20 20 20 6f 5f 6e 61 | 6d 65 24 3d a4 67 5f 73 |    o_na|me$=.g_s|
|00003c80| 74 72 69 6e 67 28 68 65 | 61 64 25 29 0d 18 1a 29 |tring(he|ad%)...)|
|00003c90| 20 20 20 20 20 20 24 68 | 65 61 64 25 3d c1 70 61 |      $h|ead%=.pa|
|00003ca0| 74 68 24 2c 70 31 25 2c | 28 70 32 25 2d 70 31 25 |th$,p1%,|(p2%-p1%|
|00003cb0| 29 29 2b bd 30 0d 18 24 | 32 20 20 20 20 20 20 f2 |))+.0..$|2      .|
|00003cc0| 69 6e 64 69 72 65 63 74 | 5f 69 63 6f 6e 28 64 69 |indirect|_icon(di|
|00003cd0| 73 63 25 2c 37 2c a4 67 | 5f 73 74 72 69 6e 67 28 |sc%,7,.g|_string(|
|00003ce0| 68 65 61 64 25 29 29 0d | 18 2e 32 20 20 20 20 20 |head%)).|..2     |
|00003cf0| 20 f2 69 6e 64 69 72 65 | 63 74 5f 69 63 6f 6e 28 | .indire|ct_icon(|
|00003d00| 73 61 76 65 25 2c 31 2c | a4 67 5f 73 74 72 69 6e |save%,1,|.g_strin|
|00003d10| 67 28 68 65 61 64 25 29 | 29 0d 18 38 09 20 20 20 |g(head%)|)..8.   |
|00003d20| 20 cd 0d 18 42 12 20 20 | 20 20 f2 63 61 6c 63 5f | ...B.  |  .calc_|
|00003d30| 73 69 7a 65 0d 18 4c 1d | 20 20 20 20 6f 72 69 67 |size..L.|    orig|
|00003d40| 25 3d a3 3a f2 75 70 64 | 61 74 65 5f 74 69 74 6c |%=.:.upd|ate_titl|
|00003d50| 65 0d 18 56 10 20 20 20 | 20 63 75 72 72 25 3d 2d |e..V.   | curr%=-|
|00003d60| 31 0d 18 60 28 20 20 20 | 20 f2 63 6c 6f 73 65 5f |1..`(   | .close_|
|00003d70| 77 69 6e 64 6f 77 28 63 | 6f 6d 6d 25 29 3a 63 6f |window(c|omm%):co|
|00003d80| 6d 6d 5f 77 69 6e 25 3d | a3 0d 18 6a 25 20 20 20 |mm_win%=|...j%   |
|00003d90| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 74 43 61 72 | .. "Wim|p_SetCar|
|00003da0| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 2d 31 0d 18 |etPositi|on",-1..|
|00003db0| 74 1e 20 20 20 20 f2 73 | 65 74 5f 73 68 61 64 65 |t.    .s|et_shade|
|00003dc0| 28 6d 61 69 6e 6d 25 2c | 32 2c 31 29 0d 18 7e 15 |(mainm%,|2,1)..~.|
|00003dd0| 20 20 20 20 f2 73 65 74 | 5f 77 68 6f 6c 65 28 a3 |    .set|_whole(.|
|00003de0| 29 0d 18 88 1a 20 20 20 | 20 c8 99 20 22 48 6f 75 |)....   | .. "Hou|
|00003df0| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 18 92 07 20 |rglass_O|ff".... |
|00003e00| 20 cd 0d 19 fa 2e 20 20 | e7 20 62 25 21 32 30 3d | .....  |. b%!20=|
|00003e10| 2d 32 20 80 20 62 25 21 | 32 34 3d 69 63 6f 6e 68 |-2 . b%!|24=iconh|
|00003e20| 25 20 80 20 62 25 21 34 | 30 3d 26 30 41 43 20 8c |% . b%!4|0=&0AC .|
|00003e30| 0d 1a 04 13 20 20 20 20 | e7 20 6f 72 69 67 25 3d |....    |. orig%=|
|00003e40| a3 20 8c 0d 1a 0e 8d 20 | 20 20 20 20 20 61 6e 73 |. ..... |     ans|
|00003e50| 25 3d a4 65 6e 71 75 69 | 72 65 28 22 54 68 65 20 |%=.enqui|re("The |
|00003e60| 63 75 72 72 65 6e 74 20 | 44 69 73 63 20 42 6f 78 |current |Disc Box|
|00003e70| 20 66 69 6c 65 20 68 61 | 73 20 6e 6f 74 20 62 65 | file ha|s not be|
|00003e80| 65 6e 20 73 61 76 65 64 | 2e 2e 2e 20 61 6e 64 20 |en saved|... and |
|00003e90| 77 69 6c 6c 20 62 65 20 | 6c 6f 73 74 20 77 68 65 |will be |lost whe|
|00003ea0| 6e 20 74 68 65 20 6e 65 | 77 20 66 69 6c 65 20 69 |n the ne|w file i|
|00003eb0| 73 20 6c 6f 61 64 65 64 | 21 20 49 73 20 74 68 69 |s loaded|! Is thi|
|00003ec0| 73 20 4f 4b 20 77 69 74 | 68 20 79 6f 75 3f 22 29 |s OK wit|h you?")|
|00003ed0| 0d 1a 18 16 20 20 20 20 | 20 20 e7 20 61 6e 73 25 |....    |  . ans%|
|00003ee0| 3d 32 20 8c 20 e1 0d 1a | 22 09 20 20 20 20 cd 0d |=2 . ...|".    ..|
|00003ef0| 1a 2c 11 20 20 20 20 f2 | 63 6c 65 61 72 28 a3 29 |.,.    .|clear(.)|
|00003f00| 0d 1a 36 22 20 20 20 20 | 66 69 6c 65 6e 61 6d 65 |..6"    |filename|
|00003f10| 24 3d a4 67 5f 73 74 72 | 69 6e 67 28 62 25 2b 34 |$=.g_str|ing(b%+4|
|00003f20| 34 29 0d 1a 40 1c 20 20 | 20 20 f2 6c 6f 61 64 5f |4)..@.  |  .load_|
|00003f30| 62 6f 78 28 66 69 6c 65 | 6e 61 6d 65 24 29 0d 1a |box(file|name$)..|
|00003f40| 4a 12 20 20 20 20 62 25 | 21 31 32 3d 62 25 21 38 |J.    b%|!12=b%!8|
|00003f50| 0d 1a 54 0f 20 20 20 20 | 62 25 21 31 36 3d 34 0d |..T.    |b%!16=4.|
|00003f60| 1a 5e 28 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |.^(    .|. "Wimp_|
|00003f70| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 38 2c |SendMess|age",18,|
|00003f80| 62 25 2c 62 25 21 34 0d | 1a 68 07 20 20 cd 0d 1a |b%,b%!4.|.h.  ...|
|00003f90| 72 28 c9 20 26 35 30 32 | 3a c8 99 20 22 57 69 6d |r(. &502|:.. "Wim|
|00003fa0| 70 5f 53 65 6e 64 49 6e | 66 6f 72 6d 61 74 69 6f |p_SendIn|formatio|
|00003fb0| 6e 22 2c 2c 62 25 0d 1a | 7c 0d c9 20 26 34 30 30 |n",,b%..||.. &400|
|00003fc0| 43 32 3a 0d 1a 86 1c 20 | 20 64 61 74 61 24 3d a4 |C2:.... | data$=.|
|00003fd0| 67 5f 73 74 72 69 6e 67 | 28 62 25 2b 32 38 29 0d |g_string|(b%+28).|
|00003fe0| 1a 90 2b 20 20 e7 20 64 | 61 74 61 24 3d 22 44 69 |..+  . d|ata$="Di|
|00003ff0| 73 63 20 42 6f 78 22 20 | 80 20 62 25 21 34 3c 3e |sc Box" |. b%!4<>|
|00004000| 62 6f 78 68 61 6e 64 25 | 20 8c 0d 1a 93 07 20 20 |boxhand%| .....  |
|00004010| cd 0d 1a 9a 05 cb 0d 1a | a4 05 e1 0d 1a ae 05 3a |........|.......:|
|00004020| 0d 1a b8 24 dd 20 f2 6b | 65 79 5f 70 72 65 73 73 |...$. .k|ey_press|
|00004030| 65 64 28 77 69 6e 25 2c | 69 63 6f 6e 25 2c 78 25 |ed(win%,|icon%,x%|
|00004040| 2c 63 25 29 0d 1a c2 0d | c8 8e 20 77 69 6e 25 20 |,c%)....|.. win% |
|00004050| ca 0d 1a cc 0c c9 20 63 | 6f 6d 6d 25 3a 0d 1a d6 |...... c|omm%:...|
|00004060| 19 20 20 e7 20 63 25 3d | 31 33 20 84 20 63 25 3d |.  . c%=|13 . c%=|
|00004070| 26 31 38 45 20 8c 0d 1a | e0 44 20 20 20 20 c8 99 |&18E ...|.D    ..|
|00004080| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|00004090| 6f 73 69 74 69 6f 6e 22 | 2c 63 6f 6d 6d 25 2c 28 |osition"|,comm%,(|
|000040a0| 69 63 6f 6e 25 2d 28 69 | 63 6f 6e 25 3c 31 30 29 |icon%-(i|con%<10)|
|000040b0| 29 2c 30 2c 2c 2d 31 2c | 2d 31 0d 1a ea 07 20 20 |),0,,-1,|-1....  |
|000040c0| cd 0d 1a f4 11 20 20 e7 | 20 63 25 3d 26 31 38 46 |.....  .| c%=&18F|
|000040d0| 20 8c 0d 1a fe 43 20 20 | 20 20 c8 99 20 22 57 69 | ....C  |  .. "Wi|
|000040e0| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|000040f0| 69 6f 6e 22 2c 63 6f 6d | 6d 25 2c 28 69 63 6f 6e |ion",com|m%,(icon|
|00004100| 25 2b 28 69 63 6f 6e 25 | 3e 32 29 29 2c 30 2c 2c |%+(icon%|>2)),0,,|
|00004110| 2d 31 2c 2d 31 0d 1b 08 | 07 20 20 cd 0d 1b 12 05 |-1,-1...|.  .....|
|00004120| 7f 0d 1b 1c 1d 20 20 c8 | 99 20 22 57 69 6d 70 5f |.....  .|. "Wimp_|
|00004130| 50 72 6f 63 65 73 73 4b | 65 79 22 2c 63 25 0d 1b |ProcessK|ey",c%..|
|00004140| 26 05 cb 0d 1b 30 05 e1 | 0d 1b 3a 05 3a 0d 1b 44 |&....0..|..:.:..D|
|00004150| 15 dd 20 f2 6c 6f 61 64 | 5f 74 65 6d 70 6c 61 74 |.. .load|_templat|
|00004160| 65 73 0d 1b 4e 2f c8 99 | 20 22 57 69 6d 70 5f 4f |es..N/..| "Wimp_O|
|00004170| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 61 6c |penTempl|ate",,al|
|00004180| 69 61 73 24 2b 22 2e 54 | 65 6d 70 6c 61 74 65 73 |ias$+".T|emplates|
|00004190| 22 0d 1b 58 19 6d 61 69 | 6e 25 3d a4 77 69 6e 64 |"..X.mai|n%=.wind|
|000041a0| 6f 77 28 22 6d 61 69 6e | 22 29 0d 1b 62 1d 69 6e |ow("main|")..b.in|
|000041b0| 66 6f 25 3d a4 77 69 6e | 64 6f 77 28 22 50 72 6f |fo%=.win|dow("Pro|
|000041c0| 67 49 6e 66 6f 22 29 0d | 1b 6c 19 66 69 6c 65 25 |gInfo").|.l.file%|
|000041d0| 3d a4 77 69 6e 64 6f 77 | 28 22 66 69 6c 65 22 29 |=.window|("file")|
|000041e0| 0d 1b 76 1c 63 6f 6d 6d | 25 3d a4 77 69 6e 64 6f |..v.comm|%=.windo|
|000041f0| 77 28 22 63 6f 6d 6d 65 | 6e 74 22 29 0d 1b 80 19 |w("comme|nt")....|
|00004200| 64 69 73 63 25 3d a4 77 | 69 6e 64 6f 77 28 22 64 |disc%=.w|indow("d|
|00004210| 69 73 63 22 29 0d 1b 8a | 19 74 68 69 73 25 3d a4 |isc")...|.this%=.|
|00004220| 77 69 6e 64 6f 77 28 22 | 74 68 69 73 22 29 0d 1b |window("|this")..|
|00004230| 94 19 73 61 76 65 25 3d | a4 77 69 6e 64 6f 77 28 |..save%=|.window(|
|00004240| 22 73 61 76 65 22 29 0d | 1b 9e 23 73 61 76 65 5f |"save").|..#save_|
|00004250| 74 65 78 74 25 3d a4 77 | 69 6e 64 6f 77 28 22 73 |text%=.w|indow("s|
|00004260| 61 76 65 5f 74 65 78 74 | 22 29 0d 1b a8 1f 70 72 |ave_text|")....pr|
|00004270| 69 6e 74 5f 72 65 63 25 | 3d a4 77 69 6e 64 6f 77 |int_rec%|=.window|
|00004280| 28 22 70 72 69 6e 74 22 | 29 0d 1b b2 1b c8 99 20 |("print"|)...... |
|00004290| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|000042a0| 61 74 65 22 0d 1b bc 05 | e1 0d 1b c6 05 3a 0d 1b |ate"....|.....:..|
|000042b0| d0 11 dd 20 a4 77 69 6e | 64 6f 77 28 61 24 29 0d |... .win|dow(a$).|
|000042c0| 1b da 46 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..F.. "W|imp_Load|
|000042d0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |Template|",,block|
|000042e0| 25 2c 69 70 74 72 25 2c | 69 65 6e 64 25 2c 2d 31 |%,iptr%,|iend%,-1|
|000042f0| 2c 61 24 2c 30 20 b8 20 | 2c 2c 69 70 74 72 25 2c |,a$,0 . |,,iptr%,|
|00004300| 2c 2c 2c 63 25 0d 1b e4 | 15 62 6c 6f 63 6b 25 21 |,,,c%...|.block%!|
|00004310| 36 34 3d 73 70 72 69 74 | 65 25 0d 1b ee 11 e7 20 |64=sprit|e%..... |
|00004320| 61 24 3d 22 6d 61 69 6e | 22 20 8c 0d 1b f8 13 20 |a$="main|" ..... |
|00004330| 20 62 6c 6f 63 6b 25 3f | 36 38 3d 32 35 30 0d 1c | block%?|68=250..|
|00004340| 02 16 20 20 62 6c 6f 63 | 6b 25 21 37 32 3d 74 69 |..  bloc|k%!72=ti|
|00004350| 74 6c 65 25 0d 1c 0c 12 | 20 20 62 6c 6f 63 6b 25 |tle%....|  block%|
|00004360| 21 37 36 3d 2d 31 0d 1c | 16 13 20 20 62 6c 6f 63 |!76=-1..|..  bloc|
|00004370| 6b 25 21 38 30 3d 32 35 | 36 0d 1c 20 05 cd 0d 1c |k%!80=25|6.. ....|
|00004380| 2a 27 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |*'.. "Wi|mp_Creat|
|00004390| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|000043a0| 20 b8 20 63 25 0d 1c 34 | 07 3d 63 25 0d 1c 3e 05 | . c%..4|.=c%..>.|
|000043b0| 3a 0d 1c 48 19 dd 20 f2 | 67 65 74 49 63 6f 6e 49 |:..H.. .|getIconI|
|000043c0| 6e 66 6f 28 68 25 2c 69 | 25 29 0d 1c 52 39 21 62 |nfo(h%,i|%)..R9!b|
|000043d0| 6c 6f 63 6b 25 3d 68 25 | 3a 62 6c 6f 63 6b 25 21 |lock%=h%|:block%!|
|000043e0| 34 3d 69 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |4=i%:.. |"Wimp_Ge|
|000043f0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00004400| 63 6b 25 0d 1c 5c 3e 69 | 78 30 25 3d 62 6c 6f 63 |ck%..\>i|x0%=bloc|
|00004410| 6b 25 21 38 3a 69 79 30 | 25 3d 62 6c 6f 63 6b 25 |k%!8:iy0|%=block%|
|00004420| 21 31 32 3a 69 78 31 25 | 3d 62 6c 6f 63 6b 25 21 |!12:ix1%|=block%!|
|00004430| 31 36 3a 69 79 31 25 3d | 62 6c 6f 63 6b 25 21 32 |16:iy1%=|block%!2|
|00004440| 30 0d 1c 66 14 66 6c 61 | 67 73 25 3d 62 6c 6f 63 |0..f.fla|gs%=bloc|
|00004450| 6b 25 21 32 34 0d 1c 70 | 19 e7 20 28 66 6c 61 67 |k%!24..p|.. (flag|
|00004460| 73 25 20 80 20 26 31 30 | 30 29 3e 30 20 8c 0d 1c |s% . &10|0)>0 ...|
|00004470| 7a 16 20 20 64 61 74 61 | 24 3d 24 62 6c 6f 63 6b |z.  data|$=$block|
|00004480| 25 21 32 38 0d 1c 84 05 | cc 0d 1c 8e 20 20 20 64 |%!28....|....   d|
|00004490| 61 74 61 24 3d a4 67 5f | 73 74 72 69 6e 67 28 62 |ata$=.g_|string(b|
|000044a0| 6c 6f 63 6b 25 2b 32 38 | 29 0d 1c 98 05 cd 0d 1c |lock%+28|).......|
|000044b0| a2 05 e1 0d 1c ac 05 3a | 0d 1c b6 0d dd a4 67 65 |.......:|......ge|
|000044c0| 74 5f 61 72 67 0d 1c c0 | 1a c8 99 20 22 4f 53 5f |t_arg...|... "OS_|
|000044d0| 47 65 74 45 6e 76 22 20 | b8 20 64 61 74 61 24 0d |GetEnv" |. data$.|
|000044e0| 1c c1 17 e7 20 64 61 74 | 61 24 3d 22 22 20 8c 20 |.... dat|a$="" . |
|000044f0| 3d 64 61 74 61 24 0d 1c | c5 18 64 25 3d a7 64 61 |=data$..|..d%=.da|
|00004500| 74 61 24 2c 22 20 2d 71 | 75 69 74 20 22 29 0d 1c |ta$," -q|uit ")..|
|00004510| ca 0a e7 20 64 25 20 8c | 0d 1c cf 14 20 20 64 25 |... d% .|....  d%|
|00004520| 2b 3d a9 22 20 2d 71 75 | 69 74 20 22 0d 1c d4 19 |+=." -qu|it "....|
|00004530| 20 20 c8 95 20 c1 64 61 | 74 61 24 2c 64 25 2c 31 |  .. .da|ta$,d%,1|
|00004540| 29 3d 22 20 22 0d 1c d9 | 0d 20 20 20 20 64 25 2b |)=" "...|.    d%+|
|00004550| 3d 31 0d 1c db 07 20 20 | ce 0d 1c de 1d 20 20 64 |=1....  |.....  d|
|00004560| 25 3d a7 64 61 74 61 24 | 2b 22 20 22 2c 22 20 22 |%=.data$|+" "," "|
|00004570| 2c 64 25 2b 31 29 0d 1c | e3 07 20 20 f5 0d 1c e5 |,d%+1)..|..  ....|
|00004580| 0d 20 20 20 20 64 25 2b | 3d 31 0d 1c e8 19 20 20 |.    d%+|=1....  |
|00004590| fd 20 c1 64 61 74 61 24 | 2c 64 25 2c 31 29 3c 3e |. .data$|,d%,1)<>|
|000045a0| 22 20 22 0d 1c f2 17 20 | 20 64 61 74 61 32 24 3d |" ".... | data2$=|
|000045b0| c1 64 61 74 61 24 2c 64 | 25 29 0d 1c f7 27 20 20 |.data$,d|%)...'  |
|000045c0| 64 61 74 61 24 3d c0 64 | 61 74 61 32 24 2c a7 64 |data$=.d|ata2$,.d|
|000045d0| 61 74 61 32 24 2b 22 20 | 22 2c 22 20 22 29 2d 31 |ata2$+" |"," ")-1|
|000045e0| 29 0d 1c fc 05 cd 0d 1d | 06 0a 3d 64 61 74 61 24 |).......|..=data$|
|000045f0| 0d 1d 10 05 3a 0d 1d 1a | 21 dd 20 f2 69 6e 64 69 |....:...|!. .indi|
|00004600| 72 65 63 74 5f 69 63 6f | 6e 28 68 25 2c 69 25 2c |rect_ico|n(h%,i%,|
|00004610| 74 65 78 74 24 29 0d 1d | 24 17 f2 67 65 74 49 63 |text$)..|$..getIc|
|00004620| 6f 6e 49 6e 66 6f 28 68 | 25 2c 69 25 29 0d 1d 2e |onInfo(h|%,i%)...|
|00004630| 14 24 62 6c 6f 63 6b 25 | 21 32 38 3d 74 65 78 74 |.$block%|!28=text|
|00004640| 24 0d 1d 38 31 21 62 6c | 6f 63 6b 25 3d 68 25 3a |$..81!bl|ock%=h%:|
|00004650| 62 6c 6f 63 6b 25 21 34 | 3d 69 25 3a 62 6c 6f 63 |block%!4|=i%:bloc|
|00004660| 6b 25 21 38 3d 30 3a 62 | 6c 6f 63 6b 25 21 31 32 |k%!8=0:b|lock%!12|
|00004670| 3d 30 0d 1d 42 22 c8 99 | 20 22 57 69 6d 70 5f 53 |=0..B"..| "Wimp_S|
|00004680| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00004690| 6f 63 6b 25 0d 1d 4c 05 | e1 0d 1d 56 05 3a 0d 1d |ock%..L.|...V.:..|
|000046a0| 60 44 dd 20 a4 69 63 6f | 6e 28 68 61 6e 64 25 2c |`D. .ico|n(hand%,|
|000046b0| 78 30 25 2c 79 30 25 2c | 78 31 25 2c 79 31 25 2c |x0%,y0%,|x1%,y1%,|
|000046c0| 66 6c 61 67 73 25 2c 64 | 61 74 61 31 25 2c 64 61 |flags%,d|ata1%,da|
|000046d0| 74 61 32 25 2c 64 61 74 | 61 33 25 2c 74 65 78 74 |ta2%,dat|a3%,text|
|000046e0| 24 29 0d 1d 6a 0a ea 20 | 68 61 6e 25 0d 1d 74 2c |$)..j.. |han%..t,|
|000046f0| 62 6c 6f 63 6b 25 21 30 | 3d 68 61 6e 64 25 3a 62 |block%!0|=hand%:b|
|00004700| 6c 6f 63 6b 25 21 34 3d | 78 30 25 3a 62 6c 6f 63 |lock%!4=|x0%:bloc|
|00004710| 6b 25 21 38 3d 79 30 25 | 0d 1d 7e 1f 62 6c 6f 63 |k%!8=y0%|..~.bloc|
|00004720| 6b 25 21 31 32 3d 78 31 | 25 3a 62 6c 6f 63 6b 25 |k%!12=x1|%:block%|
|00004730| 21 31 36 3d 79 31 25 0d | 1d 88 14 62 6c 6f 63 6b |!16=y1%.|...block|
|00004740| 25 21 32 30 3d 66 6c 61 | 67 73 25 0d 1d 92 10 e7 |%!20=fla|gs%.....|
|00004750| 20 74 65 78 74 24 3d 22 | 22 20 8c 0d 1d 9c 25 62 | text$="|" ....%b|
|00004760| 6c 6f 63 6b 25 21 32 34 | 3d 64 61 74 61 31 25 3a |lock%!24|=data1%:|
|00004770| 62 6c 6f 63 6b 25 21 32 | 38 3d 64 61 74 61 32 25 |block%!2|8=data2%|
|00004780| 0d 1d a6 14 62 6c 6f 63 | 6b 25 21 33 32 3d 64 61 |....bloc|k%!32=da|
|00004790| 74 61 33 25 0d 1d b0 05 | cc 0d 1d ba 1b 24 28 62 |ta3%....|.....$(b|
|000047a0| 6c 6f 63 6b 25 2b 32 34 | 29 3d c0 74 65 78 74 24 |lock%+24|)=.text$|
|000047b0| 2c 31 31 29 0d 1d c4 05 | cd 0d 1d ce 26 c8 99 22 |,11)....|....&.."|
|000047c0| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|000047d0| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 68 61 6e 25 0d |,,block%| . han%.|
|000047e0| 1d d8 09 3d 68 61 6e 25 | 0d 1d e2 05 3a 0d 1d ec |...=han%|....:...|
|000047f0| 12 dd 20 a4 6c 65 61 66 | 28 70 61 74 68 24 29 0d |.. .leaf|(path$).|
|00004800| 1d f6 12 c8 95 20 a7 70 | 61 74 68 24 2c 22 2e 22 |..... .p|ath$,"."|
|00004810| 29 0d 1e 00 1f 70 61 74 | 68 24 3d c1 70 61 74 68 |)....pat|h$=.path|
|00004820| 24 2c a7 70 61 74 68 24 | 2c 22 2e 22 29 2b 31 29 |$,.path$|,".")+1)|
|00004830| 0d 1e 0a 05 ce 0d 1e 14 | 0a 3d 70 61 74 68 24 0d |........|.=path$.|
|00004840| 1e 1e 05 3a 0d 1e 28 15 | dd 20 a4 67 5f 73 74 72 |...:..(.|. .g_str|
|00004850| 69 6e 67 28 70 74 72 25 | 29 0d 1e 32 09 64 24 3d |ing(ptr%|)..2.d$=|
|00004860| 22 22 0d 1e 3c 1b c8 95 | 20 3f 70 74 72 25 3c 3e |""..<...| ?ptr%<>|
|00004870| 30 20 80 20 3f 70 74 72 | 25 3c 3e 31 33 0d 1e 46 |0 . ?ptr|%<>13..F|
|00004880| 10 64 24 3d 64 24 2b bd | 3f 70 74 72 25 0d 1e 50 |.d$=d$+.|?ptr%..P|
|00004890| 0b 70 74 72 25 2b 3d 31 | 0d 1e 5a 05 ce 0d 1e 64 |.ptr%+=1|..Z....d|
|000048a0| 07 3d 64 24 0d 1e 6e 05 | 3a 0d 1e 78 47 f4 20 44 |.=d$..n.|:..xG. D|
|000048b0| 69 73 63 20 66 6f 72 6d | 61 74 73 20 67 6f 20 69 |isc form|ats go i|
|000048c0| 6e 20 68 65 72 65 2e 2e | 2e 2a 2a 2a 2a 2a 2a 2a |n here..|.*******|
|000048d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000048e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000048f0| 0d 1e 82 29 f4 20 44 69 | 73 63 20 54 79 70 65 2c |...). Di|sc Type,|
|00004900| 20 53 69 7a 65 2c 20 61 | 6e 64 20 75 6e 69 74 73 | Size, a|nd units|
|00004910| 20 6f 66 20 73 69 7a 65 | 2e 0d 1e 8c 05 3a 0d 1e | of size|.....:..|
|00004920| 96 1f dc 20 31 31 3a 52 | 45 4d 20 4e 75 6d 62 65 |... 11:R|EM Numbe|
|00004930| 72 20 6f 66 20 66 6f 72 | 6d 61 74 73 2e 0d 1e a0 |r of for|mats....|
|00004940| 19 dc 20 22 33 2e 35 20 | 46 6c 6f 70 70 79 22 2c |.. "3.5 |Floppy",|
|00004950| 38 30 30 2c 4b 62 0d 1e | aa 19 dc 20 22 33 2e 35 |800,Kb..|... "3.5|
|00004960| 20 46 6c 6f 70 70 79 22 | 2c 36 34 30 2c 4b 62 0d | Floppy"|,640,Kb.|
|00004970| 1e b4 17 dc 20 22 33 2e | 35 20 46 6c 6f 70 70 79 |.... "3.|5 Floppy|
|00004980| 22 2c 30 2c 4b 62 0d 1e | be 17 dc 20 22 33 2e 35 |",0,Kb..|... "3.5|
|00004990| 20 46 6c 6f 70 70 79 22 | 2c 30 2c 4d 62 0d 1e c8 | Floppy"|,0,Mb...|
|000049a0| 18 dc 20 22 35 2e 32 35 | 20 46 6c 6f 70 70 79 22 |.. "5.25| Floppy"|
|000049b0| 2c 30 2c 4b 62 0d 1e d2 | 16 dc 20 22 48 61 72 64 |,0,Kb...|.. "Hard|
|000049c0| 20 44 69 73 63 22 2c 30 | 2c 4d 62 0d 1e dc 16 dc | Disc",0|,Mb.....|
|000049d0| 20 22 44 69 72 65 63 74 | 6f 72 79 22 2c 30 2c 4b | "Direct|ory",0,K|
|000049e0| 62 0d 1e e6 1b dc 20 22 | 4d 53 44 4f 53 20 46 6c |b..... "|MSDOS Fl|
|000049f0| 6f 70 70 79 22 2c 37 32 | 30 2c 4b 62 0d 1e f0 1b |oppy",72|0,Kb....|
|00004a00| dc 20 22 4d 53 44 4f 53 | 20 46 6c 6f 70 70 79 22 |. "MSDOS| Floppy"|
|00004a10| 2c 31 2e 32 2c 4d 62 0d | 1e fa 19 dc 20 22 4d 53 |,1.2,Mb.|.... "MS|
|00004a20| 44 4f 53 20 46 6c 6f 70 | 70 79 22 2c 30 2c 4b 62 |DOS Flop|py",0,Kb|
|00004a30| 0d 1f 04 1c dc 20 22 4d | 53 44 4f 53 20 48 61 72 |..... "M|SDOS Har|
|00004a40| 64 20 44 69 73 63 22 2c | 30 2c 4d 62 0d 1f 0e 05 |d Disc",|0,Mb....|
|00004a50| 3a 0d 1f 18 19 dd 20 f2 | 63 68 61 6e 67 65 5f 64 |:..... .|change_d|
|00004a60| 69 73 63 28 77 68 61 74 | 25 29 0d 1f 22 18 f7 20 |isc(what|%)..".. |
|00004a70| 8d 74 56 5e 3a f3 20 6e | 75 6d 5f 66 6f 72 6d 61 |.tV^:. n|um_forma|
|00004a80| 74 25 0d 1f 2c 0e c8 8e | 20 77 68 61 74 25 20 ca |t%..,...| what% .|
|00004a90| 0d 1f 36 17 20 20 c9 20 | b9 20 3a 64 69 73 63 5f |..6.  . |. :disc_|
|00004aa0| 66 6f 72 25 2b 3d 31 0d | 1f 40 16 20 20 c9 20 a3 |for%+=1.|.@.  . .|
|00004ab0| 3a 64 69 73 63 5f 66 6f | 72 25 2d 3d 31 0d 1f 4a |:disc_fo|r%-=1..J|
|00004ac0| 05 cb 0d 1f 54 27 e7 20 | 64 69 73 63 5f 66 6f 72 |....T'. |disc_for|
|00004ad0| 25 3c 31 20 64 69 73 63 | 5f 66 6f 72 25 3d 6e 75 |%<1 disc|_for%=nu|
|00004ae0| 6d 5f 66 6f 72 6d 61 74 | 25 0d 1f 5e 27 e7 20 64 |m_format|%..^'. d|
|00004af0| 69 73 63 5f 66 6f 72 25 | 3e 6e 75 6d 5f 66 6f 72 |isc_for%|>num_for|
|00004b00| 6d 61 74 25 20 64 69 73 | 63 5f 66 6f 72 25 3d 31 |mat% dis|c_for%=1|
|00004b10| 0d 1f 68 0a f7 20 8d 74 | 60 5e 0d 1f 72 16 e3 20 |..h.. .t|`^..r.. |
|00004b20| 69 25 3d 31 20 b8 20 64 | 69 73 63 5f 66 6f 72 25 |i%=1 . d|isc_for%|
|00004b30| 0d 1f 7c 1b 20 20 f3 20 | 66 6f 72 6d 61 74 24 2c |..|.  . |format$,|
|00004b40| 73 69 7a 65 24 2c 75 6e | 69 74 24 0d 1f 86 08 ed |size$,un|it$.....|
|00004b50| 20 69 25 0d 1f 90 23 f2 | 69 6e 64 69 72 65 63 74 | i%...#.|indirect|
|00004b60| 5f 69 63 6f 6e 28 64 69 | 73 63 25 2c 36 2c 66 6f |_icon(di|sc%,6,fo|
|00004b70| 72 6d 61 74 24 29 0d 1f | 9a 21 f2 69 6e 64 69 72 |rmat$)..|.!.indir|
|00004b80| 65 63 74 5f 69 63 6f 6e | 28 64 69 73 63 25 2c 39 |ect_icon|(disc%,9|
|00004b90| 2c 73 69 7a 65 24 29 0d | 1f a4 22 f2 69 6e 64 69 |,size$).|..".indi|
|00004ba0| 72 65 63 74 5f 69 63 6f | 6e 28 64 69 73 63 25 2c |rect_ico|n(disc%,|
|00004bb0| 31 32 2c 75 6e 69 74 24 | 29 0d 1f ae 16 68 65 61 |12,unit$|)....hea|
|00004bc0| 64 25 21 32 30 3d 64 69 | 73 63 5f 66 6f 72 25 0d |d%!20=di|sc_for%.|
|00004bd0| 1f b8 15 68 65 61 64 25 | 21 32 34 3d bb 28 73 69 |...head%|!24=.(si|
|00004be0| 7a 65 24 29 0d 1f c2 0e | f2 63 61 6c 63 5f 66 72 |ze$)....|.calc_fr|
|00004bf0| 65 65 0d 1f cc 0b 6f 72 | 69 67 25 3d a3 0d 1f d6 |ee....or|ig%=....|
|00004c00| 11 f2 75 70 64 61 74 65 | 5f 74 69 74 6c 65 0d 1f |..update|_title..|
|00004c10| e0 05 e1 0d 1f ea 05 3a | 0d 1f f4 13 dd 20 a4 64 |.......:|..... .d|
|00004c20| 69 72 5f 73 69 7a 65 28 | 70 24 29 0d 1f fe 17 ea |ir_size(|p$).....|
|00004c30| 20 6e 75 6d 25 2c 6f 66 | 25 2c 73 75 6d 25 2c 70 | num%,of|%,sum%,p|
|00004c40| 32 24 0d 20 08 0a 6e 75 | 6d 25 3d 30 0d 20 12 0a |2$. ..nu|m%=0. ..|
|00004c50| 73 75 6d 25 3d 30 0d 20 | 1c 09 6f 66 25 3d 30 0d |sum%=0. |..of%=0.|
|00004c60| 20 26 0e c8 95 20 6f 66 | 25 3c 3e 2d 31 0d 20 30 | &... of|%<>-1. 0|
|00004c70| 3d 20 20 c8 99 20 22 4f | 53 5f 47 42 50 42 22 2c |=  .. "O|S_GBPB",|
|00004c80| 31 30 2c 70 24 2b bd 28 | 30 29 2c 74 65 6d 70 25 |10,p$+.(|0),temp%|
|00004c90| 2c 31 2c 6e 75 6d 25 2c | 31 30 32 34 2c 22 2a 22 |,1,num%,|1024,"*"|
|00004ca0| 20 b8 20 2c 2c 2c 2c 6f | 66 25 0d 20 3a 0d 20 20 | . ,,,,o|f%. :.  |
|00004cb0| 6e 75 6d 25 2b 3d 31 0d | 20 44 11 20 20 e7 20 6f |num%+=1.| D.  . o|
|00004cc0| 66 25 3c 3e 2d 31 20 8c | 0d 20 4e 16 20 20 20 20 |f%<>-1 .|. N.    |
|00004cd0| c8 8e 20 74 65 6d 70 25 | 21 26 31 30 20 ca 0d 20 |.. temp%|!&10 .. |
|00004ce0| 58 0e 20 20 20 20 20 20 | c9 20 32 3a 0d 20 62 2b |X.      |. 2:. b+|
|00004cf0| 20 20 20 20 20 20 20 20 | 70 32 24 3d 70 24 2b 22 |        |p2$=p$+"|
|00004d00| 2e 22 2b a4 67 5f 73 74 | 72 69 6e 67 28 74 65 6d |."+.g_st|ring(tem|
|00004d10| 70 25 2b 26 31 34 29 0d | 20 6c 20 20 20 20 20 20 |p%+&14).| l      |
|00004d20| 20 20 20 73 75 6d 25 2b | 3d a4 64 69 72 5f 73 69 |   sum%+|=.dir_si|
|00004d30| 7a 65 28 70 32 24 29 0d | 20 76 0e 20 20 20 20 20 |ze(p2$).| v.     |
|00004d40| 20 20 20 7f 3a 0d 20 80 | 1b 20 20 20 20 20 20 20 |   .:. .|.       |
|00004d50| 20 73 75 6d 25 2b 3d 74 | 65 6d 70 25 21 26 30 38 | sum%+=t|emp%!&08|
|00004d60| 0d 20 8a 09 20 20 20 20 | cb 0d 20 94 07 20 20 cd |. ..    |.. ..  .|
|00004d70| 0d 20 9e 05 ce 0d 20 a8 | 09 3d 73 75 6d 25 0d 20 |. .... .|.=sum%. |
|00004d80| b2 05 3a 0d 20 bc 18 dd | 20 f2 75 70 64 61 74 65 |..:. ...| .update|
|00004d90| 5f 62 6f 78 28 77 68 61 | 74 25 29 0d 20 c6 10 6f |_box(wha|t%). ..o|
|00004da0| 66 66 25 3d 77 6f 72 6b | 25 2b 38 0d 20 d0 10 ea |ff%=work|%+8. ...|
|00004db0| 20 6e 75 6d 25 2c 64 61 | 74 61 24 0d 20 da 0f 6e | num%,da|ta$. ..n|
|00004dc0| 75 6d 25 3d 21 77 6f 72 | 6b 25 0d 20 e4 15 e7 20 |um%=!wor|k%. ... |
|00004dd0| 77 68 61 74 25 3d b9 20 | 6e 75 6d 25 2b 3d 31 0d |what%=. |num%+=1.|
|00004de0| 20 ee 0f e7 20 6e 75 6d | 25 3e 31 31 20 8c 0d 20 | ... num|%>11 .. |
|00004df0| f8 14 20 20 62 6c 6f 63 | 6b 25 21 30 3d 6d 61 69 |..  bloc|k%!0=mai|
|00004e00| 6e 25 0d 21 02 25 20 20 | c8 99 20 22 57 69 6d 70 |n%.!.%  |.. "Wimp|
|00004e10| 5f 47 65 74 57 69 6e 64 | 6f 77 49 6e 66 6f 22 2c |_GetWind|owInfo",|
|00004e20| 2c 62 6c 6f 63 6b 25 0d | 21 0c 18 20 20 62 6c 6f |,block%.|!..  blo|
|00004e30| 63 6b 25 21 30 3d 62 6c | 6f 63 6b 25 21 34 34 0d |ck%!0=bl|ock%!44.|
|00004e40| 21 16 1b 20 20 62 6c 6f | 63 6b 25 21 34 3d 62 6c |!..  blo|ck%!4=bl|
|00004e50| 6f 63 6b 25 21 34 38 2d | 34 38 0d 21 20 18 20 20 |ock%!48-|48.! .  |
|00004e60| 62 6c 6f 63 6b 25 21 38 | 3d 62 6c 6f 63 6b 25 21 |block%!8|=block%!|
|00004e70| 35 32 0d 21 2a 19 20 20 | 62 6c 6f 63 6b 25 21 31 |52.!*.  |block%!1|
|00004e80| 32 3d 62 6c 6f 63 6b 25 | 21 35 36 0d 21 34 26 20 |2=block%|!56.!4& |
|00004e90| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 74 45 78 74 | .. "Wim|p_SetExt|
|00004ea0| 65 6e 74 22 2c 6d 61 69 | 6e 25 2c 62 6c 6f 63 6b |ent",mai|n%,block|
|00004eb0| 25 0d 21 3e 05 cd 0d 21 | 48 0e e7 20 6e 75 6d 25 |%.!>...!|H.. num%|
|00004ec0| 3e 30 20 8c 0d 21 52 15 | 20 20 e3 20 58 25 3d 30 |>0 ..!R.|  . X%=0|
|00004ed0| 20 b8 20 6e 75 6d 25 2d | 31 0d 21 5c 16 20 20 20 | . num%-|1.!\.   |
|00004ee0| 20 62 6c 6f 63 6b 25 21 | 30 3d 6d 61 69 6e 25 0d | block%!|0=main%.|
|00004ef0| 21 66 13 20 20 20 20 62 | 6c 6f 63 6b 25 21 34 3d |!f.    b|lock%!4=|
|00004f00| 58 25 0d 21 70 24 20 20 | 20 20 c8 99 20 22 57 69 |X%.!p$  |  .. "Wi|
|00004f10| 6d 70 5f 44 65 6c 65 74 | 65 49 63 6f 6e 22 2c 2c |mp_Delet|eIcon",,|
|00004f20| 62 6c 6f 63 6b 25 0d 21 | 7a 0a 20 20 ed 20 58 25 |block%.!|z.  . X%|
|00004f30| 0d 21 84 05 cd 0d 21 8e | 10 6f 66 66 25 3d 77 6f |.!....!.|.off%=wo|
|00004f40| 72 6b 25 2b 38 0d 21 98 | 0a 79 25 3d 2d 35 34 0d |rk%+8.!.|.y%=-54.|
|00004f50| 21 a2 15 e7 20 77 68 61 | 74 25 3d b9 20 6e 75 6d |!... wha|t%=. num|
|00004f60| 25 2d 3d 31 0d 21 ac 11 | e3 20 59 25 3d 31 20 b8 |%-=1.!..|. Y%=1 .|
|00004f70| 20 6e 75 6d 25 0d 21 b6 | 1e 20 20 64 61 74 61 24 | num%.!.|.  data$|
|00004f80| 3d a4 67 5f 73 74 72 69 | 6e 67 28 6f 66 66 25 2b |=.g_stri|ng(off%+|
|00004f90| 32 30 29 0d 21 c0 3b 20 | 20 64 25 3d a4 69 63 6f |20).!.; | d%=.ico|
|00004fa0| 6e 28 6d 61 69 6e 25 2c | 36 2c 79 25 2c 33 30 36 |n(main%,|6,y%,306|
|00004fb0| 2c 28 79 25 2b 34 38 29 | 2c 26 37 30 39 42 30 33 |,(y%+48)|,&709B03|
|00004fc0| 31 2c 30 2c 30 2c 30 2c | 64 61 74 61 24 29 0d 21 |1,0,0,0,|data$).!|
|00004fd0| ca 11 20 20 6f 66 66 25 | 2b 3d 21 6f 66 66 25 0d |..  off%|+=!off%.|
|00004fe0| 21 d4 0c 20 20 79 25 2d | 3d 34 38 0d 21 de 08 ed |!..  y%-|=48.!...|
|00004ff0| 20 59 25 0d 21 e8 05 e1 | 0d 21 f2 05 3a 0d 21 fc | Y%.!...|.!..:.!.|
|00005000| 1e dd 20 f2 64 69 73 70 | 6c 61 79 5f 66 69 6c 65 |.. .disp|lay_file|
|00005010| 5f 69 6e 66 6f 28 6e 75 | 6d 25 29 0d 22 06 17 ea |_info(nu|m%)."...|
|00005020| 20 74 79 70 65 24 2c 73 | 69 7a 65 25 2c 6e 61 6d | type$,s|ize%,nam|
|00005030| 65 24 0d 22 10 08 58 25 | 3d 30 0d 22 1a 10 6f 66 |e$."..X%|=0."..of|
|00005040| 66 25 3d 77 6f 72 6b 25 | 2b 38 0d 22 24 0f c8 95 |f%=work%|+8."$...|
|00005050| 20 58 25 3c 3d 6e 75 6d | 25 0d 22 2e 1d 20 20 74 | X%<=num|%."..  t|
|00005060| 79 70 65 24 3d a4 67 5f | 73 74 72 69 6e 67 28 6f |ype$=.g_|string(o|
|00005070| 66 66 25 2b 34 29 0d 22 | 38 13 20 20 73 69 7a 65 |ff%+4)."|8.  size|
|00005080| 25 3d 6f 66 66 25 21 31 | 36 0d 22 42 1e 20 20 6e |%=off%!1|6."B.  n|
|00005090| 61 6d 65 24 3d a4 67 5f | 73 74 72 69 6e 67 28 6f |ame$=.g_|string(o|
|000050a0| 66 66 25 2b 32 30 29 0d | 22 4c 11 20 20 63 6f 25 |ff%+20).|"L.  co%|
|000050b0| 3d 6f 66 66 25 2b 33 36 | 0d 22 56 0b 20 20 58 25 |=off%+36|."V.  X%|
|000050c0| 2b 3d 31 0d 22 60 11 20 | 20 6f 66 66 25 2b 3d 21 |+=1."`. | off%+=!|
|000050d0| 6f 66 66 25 0d 22 6a 05 | ce 0d 22 74 21 f2 69 6e |off%."j.|.."t!.in|
|000050e0| 64 69 72 65 63 74 5f 69 | 63 6f 6e 28 66 69 6c 65 |direct_i|con(file|
|000050f0| 25 2c 31 2c 6e 61 6d 65 | 24 29 0d 22 7e 12 e7 20 |%,1,name|$)."~.. |
|00005100| 73 69 7a 65 25 3c 36 30 | 30 30 20 8c 0d 22 88 1d |size%<60|00 .."..|
|00005110| 20 20 64 61 74 61 24 3d | c3 28 73 69 7a 65 25 29 |  data$=|.(size%)|
|00005120| 2b 22 20 62 79 74 65 73 | 22 0d 22 92 05 cc 0d 22 |+" bytes|"."...."|
|00005130| 9c 21 20 20 64 61 74 61 | 24 3d c3 28 73 69 7a 65 |.!  data|$=.(size|
|00005140| 25 20 81 20 31 30 32 34 | 29 2b 22 20 4b 62 22 0d |% . 1024|)+" Kb".|
|00005150| 22 a6 05 cd 0d 22 b0 21 | f2 69 6e 64 69 72 65 63 |"....".!|.indirec|
|00005160| 74 5f 69 63 6f 6e 28 66 | 69 6c 65 25 2c 38 2c 64 |t_icon(f|ile%,8,d|
|00005170| 61 74 61 24 29 0d 22 ba | 21 f2 69 6e 64 69 72 65 |ata$).".|!.indire|
|00005180| 63 74 5f 69 63 6f 6e 28 | 66 69 6c 65 25 2c 36 2c |ct_icon(|file%,6,|
|00005190| 74 79 70 65 24 29 0d 22 | c4 16 f2 73 68 6f 77 5f |type$)."|...show_|
|000051a0| 63 6f 6d 6d 65 6e 74 28 | 63 6f 25 29 0d 22 ce 0f |comment(|co%)."..|
|000051b0| 6f 5f 63 6f 6d 24 3d 24 | 63 6f 25 0d 22 d8 05 e1 |o_com$=$|co%."...|
|000051c0| 0d 22 e2 05 3a 0d 22 ec | 1a dd 20 f2 73 68 6f 77 |."..:.".|.. .show|
|000051d0| 5f 63 6f 6d 6d 65 6e 74 | 28 74 65 78 74 25 29 0d |_comment|(text%).|
|000051e0| 22 f6 22 ea 20 63 68 61 | 72 25 2c 77 6f 72 64 24 |".". cha|r%,word$|
|000051f0| 2c 6c 69 6e 65 24 2c 69 | 63 6f 6e 25 2c 6f 66 66 |,line$,i|con%,off|
|00005200| 25 0d 23 00 12 e3 20 64 | 61 74 61 25 3d 32 20 b8 |%.#... d|ata%=2 .|
|00005210| 20 31 30 0d 23 0a 24 20 | 20 f2 69 6e 64 69 72 65 | 10.#.$ | .indire|
|00005220| 63 74 5f 69 63 6f 6e 28 | 63 6f 6d 6d 25 2c 64 61 |ct_icon(|comm%,da|
|00005230| 74 61 25 2c 22 22 29 0d | 23 14 0b ed 20 64 61 74 |ta%,"").|#... dat|
|00005240| 61 25 0d 23 1e 0b 69 63 | 6f 6e 25 3d 32 0d 23 28 |a%.#..ic|on%=2.#(|
|00005250| 0c 6c 69 6e 65 24 3d 22 | 22 0d 23 32 0c 77 6f 72 |.line$="|".#2.wor|
|00005260| 64 24 3d 22 22 0d 23 3c | 0b 63 68 61 72 25 3d 31 |d$="".#<|.char%=1|
|00005270| 0d 23 46 0a 6f 66 66 25 | 3d 30 0d 23 50 19 c8 95 |.#F.off%|=0.#P...|
|00005280| 20 63 68 61 72 25 3c 3e | 30 20 80 20 69 63 6f 6e | char%<>|0 . icon|
|00005290| 25 3c 38 0d 23 5a 0e 20 | 20 77 6f 72 64 24 3d 22 |%<8.#Z. | word$="|
|000052a0| 22 0d 23 64 07 20 20 f5 | 0d 23 6e 18 20 20 20 20 |".#d.  .|.#n.    |
|000052b0| 63 68 61 72 25 3d 74 65 | 78 74 25 3f 6f 66 66 25 |char%=te|xt%?off%|
|000052c0| 0d 23 78 22 20 20 20 20 | e7 20 63 68 61 72 25 3e |.#x"    |. char%>|
|000052d0| 33 31 20 77 6f 72 64 24 | 2b 3d bd 28 63 68 61 72 |31 word$|+=.(char|
|000052e0| 25 29 0d 23 82 1a 20 20 | 20 20 e7 20 63 68 61 72 |%).#..  |  . char|
|000052f0| 25 3c 3e 30 20 6f 66 66 | 25 2b 3d 31 0d 23 8c 30 |%<>0 off|%+=1.#.0|
|00005300| 20 20 fd 20 63 68 61 72 | 25 3d 33 32 20 84 20 63 |  . char|%=32 . c|
|00005310| 68 61 72 25 3d 31 33 20 | 84 20 63 68 61 72 25 3d |har%=13 |. char%=|
|00005320| 31 30 20 84 20 63 68 61 | 72 25 3d 30 0d 23 96 14 |10 . cha|r%=0.#..|
|00005330| 20 20 77 6c 65 6e 25 3d | a9 28 77 6f 72 64 24 29 |  wlen%=|.(word$)|
|00005340| 0d 23 a0 1b 20 20 e7 20 | a9 28 6c 69 6e 65 24 29 |.#..  . |.(line$)|
|00005350| 2b 77 6c 65 6e 25 3e 33 | 37 20 8c 0d 23 aa 29 20 |+wlen%>3|7 ..#.) |
|00005360| 20 20 20 f2 69 6e 64 69 | 72 65 63 74 5f 69 63 6f |   .indi|rect_ico|
|00005370| 6e 28 63 6f 6d 6d 25 2c | 69 63 6f 6e 25 2c 6c 69 |n(comm%,|icon%,li|
|00005380| 6e 65 24 29 0d 23 b4 10 | 20 20 20 20 69 63 6f 6e |ne$).#..|    icon|
|00005390| 25 2b 3d 31 0d 23 be 13 | 20 20 20 20 6c 69 6e 65 |%+=1.#..|    line|
|000053a0| 24 3d 77 6f 72 64 24 0d | 23 c8 07 20 20 cc 0d 23 |$=word$.|#..  ..#|
|000053b0| d2 14 20 20 20 20 6c 69 | 6e 65 24 2b 3d 77 6f 72 |..    li|ne$+=wor|
|000053c0| 64 24 0d 23 dc 07 20 20 | cd 0d 23 e6 27 20 20 e7 |d$.#..  |..#.'  .|
|000053d0| 20 63 68 61 72 25 3d 31 | 30 20 84 20 63 68 61 72 | char%=1|0 . char|
|000053e0| 25 3d 31 33 20 84 20 63 | 68 61 72 25 3d 30 20 8c |%=13 . c|har%=0 .|
|000053f0| 0d 23 f0 29 20 20 20 20 | f2 69 6e 64 69 72 65 63 |.#.)    |.indirec|
|00005400| 74 5f 69 63 6f 6e 28 63 | 6f 6d 6d 25 2c 69 63 6f |t_icon(c|omm%,ico|
|00005410| 6e 25 2c 6c 69 6e 65 24 | 29 0d 23 fa 10 20 20 20 |n%,line$|).#..   |
|00005420| 20 69 63 6f 6e 25 2b 3d | 31 0d 24 04 10 20 20 20 | icon%+=|1.$..   |
|00005430| 20 6c 69 6e 65 24 3d 22 | 22 0d 24 0e 07 20 20 cd | line$="|".$..  .|
|00005440| 0d 24 18 05 ce 0d 24 22 | 0f e7 20 69 63 6f 6e 25 |.$....$"|.. icon%|
|00005450| 3c 38 20 8c 0d 24 2c 17 | 20 20 e3 20 64 61 74 61 |<8 ..$,.|  . data|
|00005460| 25 3d 69 63 6f 6e 25 20 | b8 20 37 0d 24 36 26 20 |%=icon% |. 7.$6& |
|00005470| 20 20 20 f2 69 6e 64 69 | 72 65 63 74 5f 69 63 6f |   .indi|rect_ico|
|00005480| 6e 28 63 6f 6d 6d 25 2c | 64 61 74 61 25 2c 22 22 |n(comm%,|data%,""|
|00005490| 29 0d 24 40 0d 20 20 ed | 20 64 61 74 61 25 0d 24 |).$@.  .| data%.$|
|000054a0| 4a 05 cd 0d 24 54 05 e1 | 0d 24 5e 05 3a 0d 24 68 |J...$T..|.$^.:.$h|
|000054b0| 24 dd 20 a4 6d 6f 76 65 | 5f 6d 65 6d 28 61 64 64 |$. .move|_mem(add|
|000054c0| 72 25 2c 61 6d 6f 75 6e | 74 25 2c 77 68 61 74 25 |r%,amoun|t%,what%|
|000054d0| 29 0d 24 72 15 c8 99 20 | 22 48 6f 75 72 67 6c 61 |).$r... |"Hourgla|
|000054e0| 73 73 5f 4f 6e 22 0d 24 | 7c 0f e7 20 77 68 61 74 |ss_On".$||.. what|
|000054f0| 25 3d b9 20 8c 0d 24 86 | 34 20 20 e7 20 a4 69 6e |%=. ..$.|4  . .in|
|00005500| 63 5f 73 6c 6f 74 28 61 | 6d 6f 75 6e 74 25 29 3d |c_slot(a|mount%)=|
|00005510| b9 20 8c 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |. . .. "|Hourglas|
|00005520| 73 5f 4f 66 66 22 3a 3d | a3 0d 24 90 21 20 20 e3 |s_Off":=|..$.!  .|
|00005530| 20 78 25 3d 28 77 65 6e | 64 25 2d 61 64 64 72 25 | x%=(wen|d%-addr%|
|00005540| 29 20 b8 20 30 20 88 20 | 2d 31 0d 24 9a 23 20 20 |) . 0 . |-1.$.#  |
|00005550| 20 20 61 64 64 72 25 3f | 28 78 25 2b 61 6d 6f 75 |  addr%?|(x%+amou|
|00005560| 6e 74 25 29 3d 61 64 64 | 72 25 3f 78 25 0d 24 a4 |nt%)=add|r%?x%.$.|
|00005570| 12 20 20 20 20 61 64 64 | 72 25 3f 78 25 3d 30 0d |.    add|r%?x%=0.|
|00005580| 24 ae 0a 20 20 ed 20 78 | 25 0d 24 b8 14 20 20 77 |$..  . x|%.$..  w|
|00005590| 65 6e 64 25 2b 3d 61 6d | 6f 75 6e 74 25 0d 24 c2 |end%+=am|ount%.$.|
|000055a0| 14 20 20 77 70 74 72 25 | 2b 3d 61 6d 6f 75 6e 74 |.  wptr%|+=amount|
|000055b0| 25 0d 24 cc 05 cc 0d 24 | d6 16 20 20 61 6d 6f 75 |%.$....$|..  amou|
|000055c0| 6e 74 25 3d 2d 61 6d 6f | 75 6e 74 25 0d 24 e0 1c |nt%=-amo|unt%.$..|
|000055d0| 20 20 e3 20 78 25 3d 30 | 20 b8 20 28 77 65 6e 64 |  . x%=0| . (wend|
|000055e0| 25 2d 61 64 64 72 25 29 | 0d 24 ea 23 20 20 20 20 |%-addr%)|.$.#    |
|000055f0| 61 64 64 72 25 3f 78 25 | 3d 61 64 64 72 25 3f 28 |addr%?x%|=addr%?(|
|00005600| 78 25 2b 61 6d 6f 75 6e | 74 25 29 0d 24 f4 0a 20 |x%+amoun|t%).$.. |
|00005610| 20 ed 20 78 25 0d 24 fe | 14 20 20 77 65 6e 64 25 | . x%.$.|.  wend%|
|00005620| 2d 3d 61 6d 6f 75 6e 74 | 25 0d 25 08 14 20 20 77 |-=amount|%.%..  w|
|00005630| 70 74 72 25 2d 3d 61 6d | 6f 75 6e 74 25 0d 25 12 |ptr%-=am|ount%.%.|
|00005640| 05 cd 0d 25 1c 0e f2 63 | 61 6c 63 5f 73 69 7a 65 |...%...c|alc_size|
|00005650| 0d 25 26 16 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |.%&... "|Hourglas|
|00005660| 73 5f 4f 66 66 22 0d 25 | 30 06 3d b9 0d 25 3a 05 |s_Off".%|0.=..%:.|
|00005670| 3a 0d 25 44 10 dd 20 f2 | 63 61 6c 63 5f 66 72 65 |:.%D.. .|calc_fre|
|00005680| 65 0d 25 4e 16 ea 20 6f | 66 66 25 2c 6c 65 66 74 |e.%N.. o|ff%,left|
|00005690| 25 2c 75 73 65 64 25 0d | 25 58 10 6f 66 66 25 3d |%,used%.|%X.off%=|
|000056a0| 77 6f 72 6b 25 2b 38 0d | 25 62 0b 75 73 65 64 25 |work%+8.|%b.used%|
|000056b0| 3d 30 0d 25 6c 10 e7 20 | 21 77 6f 72 6b 25 3e 30 |=0.%l.. |!work%>0|
|000056c0| 20 8c 0d 25 76 15 20 20 | e3 20 59 25 3d 31 20 b8 | ..%v.  |. Y%=1 .|
|000056d0| 20 21 77 6f 72 6b 25 0d | 25 80 16 20 20 20 20 75 | !work%.|%..    u|
|000056e0| 73 65 64 25 2b 3d 6f 66 | 66 25 21 31 36 0d 25 8a |sed%+=of|f%!16.%.|
|000056f0| 14 20 20 20 20 6f 66 66 | 25 2b 3d 6f 66 66 25 21 |.    off|%+=off%!|
|00005700| 30 0d 25 94 0a 20 20 ed | 20 59 25 0d 25 9e 05 cd |0.%..  .| Y%.%...|
|00005710| 0d 25 a8 12 73 69 7a 65 | 25 3d 68 65 61 64 25 21 |.%..size|%=head%!|
|00005720| 32 34 0d 25 b2 0e c8 8e | 20 75 6e 69 74 24 20 ca |24.%....| unit$ .|
|00005730| 0d 25 bc 1c c9 20 22 62 | 22 20 3a 6c 65 66 74 25 |.%... "b|" :left%|
|00005740| 3d 73 69 7a 65 25 2d 75 | 73 65 64 25 0d 25 c6 23 |=size%-u|sed%.%.#|
|00005750| c9 20 22 4b 62 22 3a 6c | 65 66 74 25 3d 28 73 69 |. "Kb":l|eft%=(si|
|00005760| 7a 65 25 2a 31 30 32 34 | 29 2d 75 73 65 64 25 0d |ze%*1024|)-used%.|
|00005770| 25 d0 28 c9 20 22 4d 62 | 22 3a 6c 65 66 74 25 3d |%.(. "Mb|":left%=|
|00005780| 28 73 69 7a 65 25 2a 31 | 30 32 34 2a 31 30 32 34 |(size%*1|024*1024|
|00005790| 29 2d 75 73 65 64 25 0d | 25 da 05 cb 0d 25 e4 12 |)-used%.|%....%..|
|000057a0| 68 65 61 64 25 21 32 38 | 3d 6c 65 66 74 25 0d 25 |head%!28|=left%.%|
|000057b0| ee 1a 64 61 74 61 24 3d | c3 28 6c 65 66 74 25 29 |..data$=|.(left%)|
|000057c0| 2b 22 62 79 74 65 73 22 | 0d 25 f8 16 e7 20 6c 65 |+"bytes"|.%... le|
|000057d0| 66 74 25 3e 28 34 2a 31 | 30 32 34 29 20 8c 0d 26 |ft%>(4*1|024) ..&|
|000057e0| 02 20 20 20 64 61 74 61 | 24 3d c3 28 6c 65 66 74 |.   data|$=.(left|
|000057f0| 25 20 81 20 31 30 32 34 | 29 2b 22 4b 62 22 0d 26 |% . 1024|)+"Kb".&|
|00005800| 0c 05 cd 0d 26 16 1b e7 | 20 6c 65 66 74 25 3e 28 |....&...| left%>(|
|00005810| 35 2a 31 30 32 34 2a 31 | 30 32 34 29 20 8c 0d 26 |5*1024*1|024) ..&|
|00005820| 20 27 20 20 64 61 74 61 | 24 3d c3 28 6c 65 66 74 | '  data|$=.(left|
|00005830| 25 20 81 20 28 31 30 32 | 34 2a 31 30 32 34 29 29 |% . (102|4*1024))|
|00005840| 2b 22 4d 62 22 0d 26 2a | 05 cd 0d 26 34 1d e7 20 |+"Mb".&*|...&4.. |
|00005850| 6c 65 66 74 25 3c 30 20 | 8c 20 64 61 74 61 24 2b |left%<0 |. data$+|
|00005860| 3d 22 28 3f 21 29 22 0d | 26 3e 22 f2 69 6e 64 69 |="(?!)".|&>".indi|
|00005870| 72 65 63 74 5f 69 63 6f | 6e 28 64 69 73 63 25 2c |rect_ico|n(disc%,|
|00005880| 31 30 2c 64 61 74 61 24 | 29 0d 26 48 05 e1 0d 26 |10,data$|).&H...&|
|00005890| 52 05 3a 0d 26 5c 10 dd | 20 f2 63 61 6c 63 5f 73 |R.:.&\..| .calc_s|
|000058a0| 69 7a 65 0d 26 66 1a 66 | 69 6c 65 5f 73 69 7a 65 |ize.&f.f|ile_size|
|000058b0| 25 3d 77 70 74 72 25 2d | 68 65 61 64 25 0d 26 70 |%=wptr%-|head%.&p|
|000058c0| 32 f2 69 6e 64 69 72 65 | 63 74 5f 69 63 6f 6e 28 |2.indire|ct_icon(|
|000058d0| 74 68 69 73 25 2c 33 2c | c3 28 66 69 6c 65 5f 73 |this%,3,|.(file_s|
|000058e0| 69 7a 65 25 29 2b 22 20 | 62 79 74 65 73 22 29 0d |ize%)+" |bytes").|
|000058f0| 26 7a 25 f2 69 6e 64 69 | 72 65 63 74 5f 69 63 6f |&z%.indi|rect_ico|
|00005900| 6e 28 74 68 69 73 25 2c | 36 2c c3 28 21 77 6f 72 |n(this%,|6,.(!wor|
|00005910| 6b 25 29 29 0d 26 84 05 | e1 0d 26 8e 05 3a 0d 26 |k%)).&..|..&..:.&|
|00005920| 98 18 dd 20 a4 69 6e 63 | 5f 73 6c 6f 74 28 61 6d |... .inc|_slot(am|
|00005930| 6f 75 6e 74 25 29 0d 26 | a2 2d e7 20 28 77 70 74 |ount%).&|.-. (wpt|
|00005940| 72 25 2b 61 6d 6f 75 6e | 74 25 29 3e 28 93 2b 6e |r%+amoun|t%)>(.+n|
|00005950| 65 77 73 6c 6f 74 25 2d | 6f 6c 64 73 6c 6f 74 25 |ewslot%-|oldslot%|
|00005960| 29 20 8c 0d 26 ac 1e 20 | 20 64 61 74 61 25 3d a4 |) ..&.. | data%=.|
|00005970| 73 6c 6f 74 5f 73 69 7a | 65 28 38 2a 31 30 32 34 |slot_siz|e(8*1024|
|00005980| 29 0d 26 b6 05 cd 0d 26 | c0 0f e7 20 64 61 74 61 |).&....&|... data|
|00005990| 25 3d b9 20 8c 0d 26 ca | 5c 20 20 f2 6d 6f 61 6e |%=. ..&.|\  .moan|
|000059a0| 28 22 44 69 73 63 20 42 | 6f 78 20 68 61 73 20 72 |("Disc B|ox has r|
|000059b0| 75 6e 20 6f 75 74 20 6f | 66 20 6d 65 6d 6f 72 79 |un out o|f memory|
|000059c0| 2c 20 70 6c 65 61 73 65 | 20 73 61 76 65 20 74 68 |, please| save th|
|000059d0| 69 73 20 66 69 6c 65 20 | 62 65 66 6f 72 65 20 61 |is file |before a|
|000059e0| 6e 20 65 72 72 6f 72 20 | 6f 63 63 75 72 73 21 22 |n error |occurs!"|
|000059f0| 29 0d 26 d4 05 cd 0d 26 | de 0a 3d 64 61 74 61 25 |).&....&|..=data%|
|00005a00| 0d 26 e8 05 3a 0d 26 f2 | 0d dd 20 f2 64 65 6c 65 |.&..:.&.|.. .dele|
|00005a10| 74 65 0d 26 fc 0a ea 20 | 6f 66 66 25 0d 27 06 08 |te.&... |off%.'..|
|00005a20| 58 25 3d 30 0d 27 10 10 | 6f 66 66 25 3d 77 6f 72 |X%=0.'..|off%=wor|
|00005a30| 6b 25 2b 38 0d 27 1a 0f | c8 95 20 58 25 3c 63 75 |k%+8.'..|.. X%<cu|
|00005a40| 72 72 25 0d 27 24 0b 20 | 20 58 25 2b 3d 31 0d 27 |rr%.'$. | X%+=1.'|
|00005a50| 2e 11 20 20 6f 66 66 25 | 2b 3d 21 6f 66 66 25 0d |..  off%|+=!off%.|
|00005a60| 27 38 05 ce 0d 27 42 53 | 61 6e 73 25 3d a4 65 6e |'8...'BS|ans%=.en|
|00005a70| 71 75 69 72 65 28 22 44 | 6f 20 79 6f 75 20 52 45 |quire("D|o you RE|
|00005a80| 41 4c 4c 59 20 77 61 6e | 74 20 74 6f 20 64 65 6c |ALLY wan|t to del|
|00005a90| 65 74 65 20 72 65 63 6f | 72 64 20 27 22 2b a4 67 |ete reco|rd '"+.g|
|00005aa0| 5f 73 74 72 69 6e 67 28 | 6f 66 66 25 2b 32 30 29 |_string(|off%+20)|
|00005ab0| 2b 22 27 20 3f 22 29 0d | 27 4c 10 e7 20 61 6e 73 |+"' ?").|'L.. ans|
|00005ac0| 25 3d 32 20 8c 20 e1 0d | 27 56 11 61 6d 6f 75 6e |%=2 . ..|'V.amoun|
|00005ad0| 74 25 3d 21 6f 66 66 25 | 0d 27 60 11 f4 20 6f 66 |t%=!off%|.'`.. of|
|00005ae0| 66 25 2b 3d 21 6f 66 66 | 25 0d 27 6a 21 74 25 3d |f%+=!off|%.'j!t%=|
|00005af0| a4 6d 6f 76 65 5f 6d 65 | 6d 28 6f 66 66 25 2c 2d |.move_me|m(off%,-|
|00005b00| 61 6d 6f 75 6e 74 25 2c | a3 29 0d 27 74 0d 21 77 |amount%,|.).'t.!w|
|00005b10| 6f 72 6b 25 2d 3d 31 0d | 27 7e 0c 63 75 72 72 25 |ork%-=1.|'~.curr%|
|00005b20| 3d 2d 31 0d 27 88 0a 63 | 6f 25 3d 2d 31 0d 27 92 |=-1.'..c|o%=-1.'.|
|00005b30| 12 f2 75 70 64 61 74 65 | 5f 62 6f 78 28 b9 29 0d |..update|_box(.).|
|00005b40| 27 9c 0e f2 63 61 6c 63 | 5f 73 69 7a 65 0d 27 a6 |'...calc|_size.'.|
|00005b50| 0e f2 63 61 6c 63 5f 66 | 72 65 65 0d 27 b0 0b 6f |..calc_f|ree.'..o|
|00005b60| 72 69 67 25 3d a3 0d 27 | ba 11 f2 75 70 64 61 74 |rig%=..'|...updat|
|00005b70| 65 5f 74 69 74 6c 65 0d | 27 c4 05 e1 0d 27 ce 05 |e_title.|'....'..|
|00005b80| 3a 0d 27 d8 13 dd 20 f2 | 63 6c 65 61 72 28 77 68 |:.'... .|clear(wh|
|00005b90| 61 74 25 29 0d 27 e2 19 | e7 20 6f 72 69 67 25 3d |at%).'..|. orig%=|
|00005ba0| a3 20 80 20 77 68 61 74 | 25 3d b9 20 8c 0d 27 ec |. . what|%=. ..'.|
|00005bb0| 49 20 20 61 6e 73 25 3d | a4 65 6e 71 75 69 72 65 |I  ans%=|.enquire|
|00005bc0| 28 22 44 6f 20 79 6f 75 | 20 52 45 41 4c 4c 59 20 |("Do you| REALLY |
|00005bd0| 77 61 6e 74 20 74 6f 20 | 63 6c 65 61 72 20 74 68 |want to |clear th|
|00005be0| 69 73 20 66 69 6c 65 20 | 66 72 6f 6d 20 6d 65 6d |is file |from mem|
|00005bf0| 6f 72 79 3f 22 29 0d 27 | f6 12 20 20 e7 20 61 6e |ory?").'|..  . an|
|00005c00| 73 25 3d 32 20 8c 20 e1 | 0d 28 00 05 cd 0d 28 0a |s%=2 . .|.(....(.|
|00005c10| 0f 6e 75 6d 25 3d 21 77 | 6f 72 6b 25 0d 28 14 0e |.num%=!w|ork%.(..|
|00005c20| e7 20 6e 75 6d 25 3e 30 | 20 8c 0d 28 1e 15 20 20 |. num%>0| ..(..  |
|00005c30| e3 20 58 25 3d 30 20 b8 | 20 6e 75 6d 25 2d 31 0d |. X%=0 .| num%-1.|
|00005c40| 28 28 16 20 20 20 20 62 | 6c 6f 63 6b 25 21 30 3d |((.    b|lock%!0=|
|00005c50| 6d 61 69 6e 25 0d 28 32 | 13 20 20 20 20 62 6c 6f |main%.(2|.    blo|
|00005c60| 63 6b 25 21 34 3d 58 25 | 0d 28 3c 24 20 20 20 20 |ck%!4=X%|.(<$    |
|00005c70| c8 99 20 22 57 69 6d 70 | 5f 44 65 6c 65 74 65 49 |.. "Wimp|_DeleteI|
|00005c80| 63 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 0d 28 46 0a |con",,bl|ock%.(F.|
|00005c90| 20 20 ed 20 58 25 0d 28 | 50 05 cd 0d 28 5a 12 62 |  . X%.(|P...(Z.b|
|00005ca0| 6c 6f 63 6b 25 21 30 3d | 6d 61 69 6e 25 0d 28 64 |lock%!0=|main%.(d|
|00005cb0| 23 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |#.. "Wim|p_GetWin|
|00005cc0| 64 6f 77 49 6e 66 6f 22 | 2c 2c 62 6c 6f 63 6b 25 |dowInfo"|,,block%|
|00005cd0| 0d 28 6e 16 62 6c 6f 63 | 6b 25 21 30 3d 62 6c 6f |.(n.bloc|k%!0=blo|
|00005ce0| 63 6b 25 21 34 34 0d 28 | 78 13 62 6c 6f 63 6b 25 |ck%!44.(|x.block%|
|00005cf0| 21 34 3d 6d 5f 62 6f 74 | 25 0d 28 82 16 62 6c 6f |!4=m_bot|%.(..blo|
|00005d00| 63 6b 25 21 38 3d 62 6c | 6f 63 6b 25 21 35 32 0d |ck%!8=bl|ock%!52.|
|00005d10| 28 8c 17 62 6c 6f 63 6b | 25 21 31 32 3d 62 6c 6f |(..block|%!12=blo|
|00005d20| 63 6b 25 21 35 36 0d 28 | 96 24 c8 99 20 22 57 69 |ck%!56.(|.$.. "Wi|
|00005d30| 6d 70 5f 53 65 74 45 78 | 74 65 6e 74 22 2c 6d 61 |mp_SetEx|tent",ma|
|00005d40| 69 6e 25 2c 62 6c 6f 63 | 6b 25 0d 28 a0 12 73 25 |in%,bloc|k%.(..s%|
|00005d50| 3d 77 70 74 72 25 2d 77 | 6f 72 6b 25 0d 28 aa 0c |=wptr%-w|ork%.(..|
|00005d60| 21 77 6f 72 6b 25 3d 30 | 0d 28 b4 11 77 70 74 72 |!work%=0|.(..wptr|
|00005d70| 25 3d 77 6f 72 6b 25 2b | 38 0d 28 be 18 77 65 6e |%=work%+|8.(..wen|
|00005d80| 64 25 3d 77 6f 72 6b 25 | 2b 31 30 32 34 2d 32 35 |d%=work%|+1024-25|
|00005d90| 36 0d 28 c8 0c 21 77 70 | 74 72 25 3d 30 0d 28 d2 |6.(..!wp|tr%=0.(.|
|00005da0| 24 c8 99 20 22 57 69 6d | 70 5f 53 6c 6f 74 53 69 |$.. "Wim|p_SlotSi|
|00005db0| 7a 65 22 2c 6f 72 69 67 | 5f 73 6c 6f 74 25 2c 2d |ze",orig|_slot%,-|
|00005dc0| 31 0d 28 dc 0f 64 69 73 | 63 5f 66 6f 72 25 3d 31 |1.(..dis|c_for%=1|
|00005dd0| 0d 28 e6 1b 64 69 73 63 | 5f 73 69 7a 65 25 3d 28 |.(..disc|_size%=(|
|00005de0| 38 30 30 2d 34 29 2a 31 | 30 32 34 0d 28 f0 0e 68 |800-4)*1|024.(..h|
|00005df0| 65 61 64 25 21 31 36 3d | 30 0d 28 fa 0e 68 65 61 |ead%!16=|0.(..hea|
|00005e00| 64 25 21 32 30 3d 31 0d | 29 04 10 68 65 61 64 25 |d%!20=1.|)..head%|
|00005e10| 21 32 34 3d 38 30 30 0d | 29 0e 10 68 65 61 64 25 |!24=800.|)..head%|
|00005e20| 21 32 38 3d 38 30 30 0d | 29 18 0e 75 6e 69 74 24 |!28=800.|)..unit$|
|00005e30| 3d 22 4b 62 22 0d 29 22 | 18 6f 5f 6e 61 6d 65 24 |="Kb".)"|.o_name$|
|00005e40| 3d 22 3c 55 6e 74 69 74 | 6c 65 64 3e 22 0d 29 2c |="<Untit|led>".),|
|00005e50| 0c 6f 5f 72 65 66 25 3d | 30 0d 29 36 0f 6f 5f 73 |.o_ref%=|0.)6.o_s|
|00005e60| 69 7a 65 25 3d 38 30 30 | 0d 29 40 0a 64 63 68 25 |ize%=800|.)@.dch%|
|00005e70| 3d a3 0d 29 4a 2e f2 69 | 6e 64 69 72 65 63 74 5f |=..)J..i|ndirect_|
|00005e80| 69 63 6f 6e 28 64 69 73 | 63 25 2c 31 30 2c c3 28 |icon(dis|c%,10,.(|
|00005e90| 68 65 61 64 25 21 32 38 | 29 2b 75 6e 69 74 24 29 |head%!28|)+unit$)|
|00005ea0| 0d 29 54 24 63 75 72 72 | 25 3d 2d 31 3a f4 20 43 |.)T$curr|%=-1:. C|
|00005eb0| 75 72 72 65 6e 74 20 66 | 69 6c 65 20 73 65 6c 65 |urrent f|ile sele|
|00005ec0| 63 74 65 64 0d 29 5e 0a | 63 6f 25 3d 2d 31 0d 29 |cted.)^.|co%=-1.)|
|00005ed0| 68 0b 6f 72 69 67 25 3d | b9 0d 29 72 16 24 74 69 |h.orig%=|..)r.$ti|
|00005ee0| 74 6c 65 25 3d 22 55 6e | 74 69 74 6c 65 64 22 0d |tle%="Un|titled".|
|00005ef0| 29 7c 11 f2 75 70 64 61 | 74 65 5f 74 69 74 6c 65 |)|..upda|te_title|
|00005f00| 0d 29 86 1a f2 73 65 74 | 5f 73 68 61 64 65 28 6d |.)...set|_shade(m|
|00005f10| 61 69 6e 6d 25 2c 32 2c | 31 29 0d 29 90 1a f2 73 |ainm%,2,|1).)...s|
|00005f20| 65 74 5f 73 68 61 64 65 | 28 6d 61 69 6e 6d 25 2c |et_shade|(mainm%,|
|00005f30| 33 2c 31 29 0d 29 9a 18 | 66 69 6c 65 6e 61 6d 65 |3,1).)..|filename|
|00005f40| 24 3d 22 55 6e 74 69 74 | 6c 65 64 22 0d 29 a4 25 |$="Untit|led".).%|
|00005f50| f2 69 6e 64 69 72 65 63 | 74 5f 69 63 6f 6e 28 74 |.indirec|t_icon(t|
|00005f60| 68 69 73 25 2c 31 2c 66 | 69 6c 65 6e 61 6d 65 24 |his%,1,f|ilename$|
|00005f70| 29 0d 29 ae 25 f2 69 6e | 64 69 72 65 63 74 5f 69 |).).%.in|direct_i|
|00005f80| 63 6f 6e 28 74 68 69 73 | 25 2c 33 2c 22 30 20 62 |con(this|%,3,"0 b|
|00005f90| 79 74 65 73 22 29 0d 29 | b8 23 f2 69 6e 64 69 72 |ytes").)|.#.indir|
|00005fa0| 65 63 74 5f 69 63 6f 6e | 28 64 69 73 63 25 2c 37 |ect_icon|(disc%,7|
|00005fb0| 2c 6f 5f 6e 61 6d 65 24 | 29 0d 29 c2 20 f2 69 6e |,o_name$|).). .in|
|00005fc0| 64 69 72 65 63 74 5f 69 | 63 6f 6e 28 64 69 73 63 |direct_i|con(disc|
|00005fd0| 25 2c 31 35 2c 22 30 22 | 29 0d 29 cc 25 f2 69 6e |%,15,"0"|).).%.in|
|00005fe0| 64 69 72 65 63 74 5f 69 | 63 6f 6e 28 73 61 76 65 |direct_i|con(save|
|00005ff0| 25 2c 31 2c 66 69 6c 65 | 6e 61 6d 65 24 29 0d 29 |%,1,file|name$).)|
|00006000| d6 2a f2 69 6e 64 69 72 | 65 63 74 5f 69 63 6f 6e |.*.indir|ect_icon|
|00006010| 28 73 61 76 65 5f 74 65 | 78 74 25 2c 31 2c 66 69 |(save_te|xt%,1,fi|
|00006020| 6c 65 6e 61 6d 65 24 29 | 0d 29 e0 1f f2 69 6e 64 |lename$)|.)...ind|
|00006030| 69 72 65 63 74 5f 69 63 | 6f 6e 28 66 69 6c 65 25 |irect_ic|on(file%|
|00006040| 2c 31 2c 22 20 22 29 0d | 29 ea 1f f2 69 6e 64 69 |,1," ").|)...indi|
|00006050| 72 65 63 74 5f 69 63 6f | 6e 28 66 69 6c 65 25 2c |rect_ico|n(file%,|
|00006060| 36 2c 22 20 22 29 0d 29 | f4 1f f2 69 6e 64 69 72 |6," ").)|...indir|
|00006070| 65 63 74 5f 69 63 6f 6e | 28 66 69 6c 65 25 2c 38 |ect_icon|(file%,8|
|00006080| 2c 22 20 22 29 0d 29 fe | 05 e1 0d 2a 08 05 3a 0d |," ").).|...*..:.|
|00006090| 2a 12 0b dd 20 f2 73 61 | 76 65 0d 2a 1c 1f f2 67 |*... .sa|ve.*...g|
|000060a0| 65 74 49 63 6f 6e 49 6e | 66 6f 28 77 68 69 63 68 |etIconIn|fo(which|
|000060b0| 5f 73 61 76 65 25 2c 31 | 29 0d 2a 26 10 e7 20 64 |_save%,1|).*&.. d|
|000060c0| 61 74 61 24 3d 22 22 20 | 8c 0d 2a 30 42 24 62 6c |ata$="" |..*0B$bl|
|000060d0| 6f 63 6b 25 3d 22 20 20 | 20 20 49 20 6e 65 65 64 |ock%="  |  I need|
|000060e0| 20 61 20 66 69 6c 65 6e | 61 6d 65 20 62 65 66 6f | a filen|ame befo|
|000060f0| 72 65 20 74 68 69 73 20 | 66 69 6c 65 20 6d 61 79 |re this |file may|
|00006100| 20 62 65 20 73 61 76 65 | 64 2e 22 0d 2a 3a 2d c8 | be save|d.".*:-.|
|00006110| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00006120| 72 6f 72 22 2c 62 6c 6f | 63 6b 25 2c 31 2c 22 44 |ror",blo|ck%,1,"D|
|00006130| 69 73 63 20 42 6f 78 22 | 0d 2a 44 05 cd 0d 2a 4e |isc Box"|.*D...*N|
|00006140| 24 c8 99 20 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |$.. "Wim|p_GetPoi|
|00006150| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 62 6c 6f 63 6b |nterInfo|",,block|
|00006160| 25 0d 2a 58 2b 62 6c 6f | 63 6b 25 21 32 30 3d 62 |%.*X+blo|ck%!20=b|
|00006170| 6c 6f 63 6b 25 21 31 32 | 3a 62 6c 6f 63 6b 25 21 |lock%!12|:block%!|
|00006180| 32 34 3d 62 6c 6f 63 6b | 25 21 31 36 0d 2a 62 29 |24=block|%!16.*b)|
|00006190| 62 6c 6f 63 6b 25 21 32 | 38 3d 62 6c 6f 63 6b 25 |block%!2|8=block%|
|000061a0| 21 30 3a 62 6c 6f 63 6b | 25 21 33 32 3d 62 6c 6f |!0:block|%!32=blo|
|000061b0| 63 6b 25 21 34 0d 2a 6c | 12 62 6c 6f 63 6b 25 21 |ck%!4.*l|.block%!|
|000061c0| 33 36 3d 31 30 32 34 0d | 2a 76 39 e7 20 77 68 69 |36=1024.|*v9. whi|
|000061d0| 63 68 5f 73 61 76 65 25 | 3d 73 61 76 65 25 20 8c |ch_save%|=save% .|
|000061e0| 20 62 6c 6f 63 6b 25 21 | 34 30 3d 26 30 41 43 20 | block%!|40=&0AC |
|000061f0| 8b 20 62 6c 6f 63 6b 25 | 21 34 30 3d 26 46 46 46 |. block%|!40=&FFF|
|00006200| 0d 2a 80 22 24 28 62 6c | 6f 63 6b 25 2b 34 34 29 |.*."$(bl|ock%+44)|
|00006210| 3d a4 6c 65 61 66 28 64 | 61 74 61 24 29 2b bd 28 |=.leaf(d|ata$)+.(|
|00006220| 30 29 0d 2a 8a 22 62 6c | 6f 63 6b 25 21 30 3d 28 |0).*."bl|ock%!0=(|
|00006230| 34 34 2b a9 28 64 61 74 | 61 24 29 2b 34 29 20 80 |44+.(dat|a$)+4) .|
|00006240| 20 26 46 43 0d 2a 94 0f | 62 6c 6f 63 6b 25 21 31 | &FC.*..|block%!1|
|00006250| 32 3d 30 0d 2a 9e 0f 62 | 6c 6f 63 6b 25 21 31 36 |2=0.*..b|lock%!16|
|00006260| 3d 31 0d 2a a8 37 c8 99 | 20 22 57 69 6d 70 5f 53 |=1.*.7..| "Wimp_S|
|00006270| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 62 |endMessa|ge",17,b|
|00006280| 6c 6f 63 6b 25 2c 62 6c | 6f 63 6b 25 21 32 30 2c |lock%,bl|ock%!20,|
|00006290| 62 6c 6f 63 6b 25 21 32 | 34 0d 2a b2 05 e1 0d 2a |block%!2|4.*....*|
|000062a0| bc 05 3a 0d 2a c6 14 dd | 20 f2 73 61 76 65 5f 66 |..:.*...| .save_f|
|000062b0| 69 6c 65 28 62 25 29 0d | 2a d0 0a ea 20 6f 66 66 |ile(b%).|*... off|
|000062c0| 25 0d 2a da 1a 66 69 6c | 65 24 3d a4 67 5f 73 74 |%.*..fil|e$=.g_st|
|000062d0| 72 69 6e 67 28 62 25 2b | 34 34 29 0d 2a e4 13 66 |ring(b%+|44).*..f|
|000062e0| 69 6c 65 6e 61 6d 65 24 | 3d 66 69 6c 65 24 0d 2a |ilename$|=file$.*|
|000062f0| ee 11 24 74 69 74 6c 65 | 25 3d 66 69 6c 65 24 0d |..$title|%=file$.|
|00006300| 2a f8 21 f2 69 6e 64 69 | 72 65 63 74 5f 69 63 6f |*.!.indi|rect_ico|
|00006310| 6e 28 74 68 69 73 25 2c | 31 2c 66 69 6c 65 24 29 |n(this%,|1,file$)|
|00006320| 0d 2b 02 21 f2 69 6e 64 | 69 72 65 63 74 5f 69 63 |.+.!.ind|irect_ic|
|00006330| 6f 6e 28 73 61 76 65 25 | 2c 31 2c 66 69 6c 65 24 |on(save%|,1,file$|
|00006340| 29 0d 2b 0c 2c 20 20 c8 | 99 20 22 4f 53 5f 46 69 |).+.,  .|. "OS_Fi|
|00006350| 6c 65 22 2c 26 30 30 2c | 66 69 6c 65 24 2c 30 2c |le",&00,|file$,0,|
|00006360| 30 2c 68 65 61 64 25 2c | 77 70 74 72 25 0d 2b 16 |0,head%,|wptr%.+.|
|00006370| 1c 20 20 c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |.  .. "O|S_File",|
|00006380| 26 30 39 2c 66 69 6c 65 | 24 0d 2b 20 21 20 20 c8 |&09,file|$.+ !  .|
|00006390| 99 20 22 4f 53 5f 46 69 | 6c 65 22 2c 26 31 32 2c |. "OS_Fi|le",&12,|
|000063a0| 66 69 6c 65 24 2c 26 30 | 41 43 0d 2b 2a 1c c8 99 |file$,&0|AC.+*...|
|000063b0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|000063c0| 75 22 2c 2c 2d 31 0d 2b | 34 16 62 6c 6f 63 6b 25 |u",,-1.+|4.block%|
|000063d0| 21 31 32 3d 62 6c 6f 63 | 6b 25 21 38 0d 2b 3e 1a |!12=bloc|k%!8.+>.|
|000063e0| 62 6c 6f 63 6b 25 21 31 | 36 3d 33 3a 21 62 6c 6f |block%!1|6=3:!blo|
|000063f0| 63 6b 25 3d 36 34 0d 2b | 48 3a f4 20 53 59 53 20 |ck%=64.+|H:. SYS |
+--------+-------------------------+-------------------------+--------+--------+