/ APDL Public Domain 1 / APDL_PD1A.iso / discutils / menus / discstore

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 68 01 00 00 c8 01 00 00 |Archive.|h.......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 44 69 73 63 53 74 | 6f 72 65 00 ff ff ff ff |.!DiscSt|ore.....|
|00000070| 45 fd ff ff d2 b4 58 ad | 00 00 00 00 ff ff ff ff |E.....X.|........|
|00000080| 44 01 00 80 82 21 42 6f | 6f 74 00 00 ff ff ff ff |D....!Bo|ot......|
|00000090| 88 00 00 00 43 eb ff ff | e2 1f 6b b9 03 00 f5 26 |....C...|..k....&|
|000000a0| 88 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |....$...|.!Help..|
|000000b0| ff ff ff ff 17 0f 00 00 | 43 ff ff ff d2 71 d6 ff |........|C....q..|
|000000c0| 03 00 d0 91 17 0f 00 00 | d0 00 00 00 82 21 52 75 |........|.....!Ru|
|000000d0| 6e 00 00 00 ff ff ff ff | e2 00 00 00 45 eb ff ff |n.......|....E...|
|000000e0| 08 f0 2b df 03 00 a4 30 | e2 00 00 00 0b 10 00 00 |..+....0|........|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 00 ff 6e 8e 00 00 |.!RunIma|ge..n...|
|00000100| 45 fb ff ff b4 fe 06 f9 | 03 00 3b 49 6e 8e 00 00 |E.......|..;In...|
|00000110| 11 11 00 00 82 21 53 70 | 72 69 74 65 73 00 ff ff |.....!Sp|rites...|
|00000120| bc 08 00 00 43 f9 ff ff | 3a b7 aa c1 03 00 5d bd |....C...|:.....].|
|00000130| bc 08 00 00 a3 9f 00 00 | 82 53 70 72 69 74 65 73 |........|.Sprites|
|00000140| 00 ff ff ff 48 2c 00 00 | 43 f9 ff ff 93 0e d7 ff |....H,..|C.......|
|00000150| 33 00 05 3d 48 2c 00 00 | 83 a8 00 00 82 54 65 6d |3..=H,..|.....Tem|
|00000160| 70 6c 61 74 65 73 00 ff | b5 05 00 00 43 ec ff ff |plates..|....C...|
|00000170| d1 e5 db ff 03 00 24 67 | b5 05 00 00 ef d4 00 00 |......$g|........|
|00000180| 00 74 6f 72 65 00 00 00 | ff ff ff ff ff ff ff ff |.tore...|........|
|00000190| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001a0| 3b ec d6 fd 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.......|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 8c 01 00 00 | 46 69 6c 65 44 61 74 61 |........|FileData|
|000001d0| 82 21 42 6f 6f 74 00 00 | ff ff ff ff 88 00 00 00 |.!Boot..|........|
|000001e0| 43 eb ff ff e2 1f 6b b9 | 03 00 f5 26 53 65 74 20 |C.....k.|...&Set |
|000001f0| 44 69 73 63 53 74 6f 72 | 65 24 44 69 72 20 3c 4f |DiscStor|e$Dir <O|
|00000200| 62 65 79 24 44 69 72 3e | 0a 49 63 6f 6e 53 70 72 |bey$Dir>|.IconSpr|
|00000210| 69 74 65 73 20 3c 4f 62 | 65 79 24 44 69 72 3e 2e |ites <Ob|ey$Dir>.|
|00000220| 21 53 70 72 69 74 65 73 | 0a 53 65 74 20 41 6c 69 |!Sprites|.Set Ali|
|00000230| 61 73 24 40 52 75 6e 54 | 79 70 65 5f 31 39 39 20 |as$@RunT|ype_199 |
|00000240| 52 75 6e 20 3c 4f 62 65 | 79 24 44 69 72 3e 2e 21 |Run <Obe|y$Dir>.!|
|00000250| 52 75 6e 20 25 25 2a 30 | 0a 53 65 74 20 46 69 6c |Run %%*0|.Set Fil|
|00000260| 65 24 54 79 70 65 5f 31 | 39 39 20 44 69 73 63 53 |e$Type_1|99 DiscS|
|00000270| 74 6f 72 65 46 69 6c 65 | 44 61 74 61 82 21 48 65 |toreFile|Data.!He|
|00000280| 6c 70 00 00 ff ff ff ff | 17 0f 00 00 43 ff ff ff |lp......|....C...|
|00000290| d2 71 d6 ff 03 00 d0 91 | 44 69 73 63 53 74 6f 72 |.q......|DiscStor|
|000002a0| 65 20 56 65 72 73 69 6f | 6e 20 31 2e 32 30 20 20 |e Versio|n 1.20  |
|000002b0| 31 39 74 68 20 4a 75 6c | 79 20 31 39 39 32 0a 0a |19th Jul|y 1992..|
|000002c0| 54 68 69 73 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |This app|lication|
|000002d0| 20 61 6c 6c 6f 77 73 20 | 79 6f 75 20 74 6f 20 6f | allows |you to o|
|000002e0| 70 65 6e 20 64 69 72 65 | 63 74 6f 72 69 65 73 20 |pen dire|ctories |
|000002f0| 73 68 6f 77 69 6e 67 20 | 66 69 6c 65 73 20 77 68 |showing |files wh|
|00000300| 69 63 68 20 61 72 65 20 | 0a 68 65 6c 64 20 6f 66 |ich are |.held of|
|00000310| 66 2d 6c 69 6e 65 20 6f | 6e 20 66 6c 6f 70 70 79 |f-line o|n floppy|
|00000320| 20 64 69 73 63 73 20 77 | 69 74 68 6f 75 74 20 68 | discs w|ithout h|
|00000330| 61 76 69 6e 67 20 74 6f | 20 6d 6f 75 6e 74 20 74 |aving to| mount t|
|00000340| 68 65 20 64 69 73 63 20 | 66 69 72 73 74 2e 20 0a |he disc |first. .|
|00000350| 49 66 20 79 6f 75 20 74 | 72 79 20 74 6f 20 75 73 |If you t|ry to us|
|00000360| 65 20 6f 6e 65 20 6f 66 | 20 74 68 65 20 66 69 6c |e one of| the fil|
|00000370| 65 73 2c 20 74 68 65 20 | 61 70 70 6c 69 63 61 74 |es, the |applicat|
|00000380| 69 6f 6e 20 77 69 6c 6c | 20 70 72 6f 6d 70 74 20 |ion will| prompt |
|00000390| 79 6f 75 0a 77 69 74 68 | 20 74 68 65 20 20 22 50 |you.with| the  "P|
|000003a0| 6c 65 61 73 65 20 49 6e | 73 65 72 74 20 44 69 73 |lease In|sert Dis|
|000003b0| 63 20 3c 6e 61 6d 65 3e | 22 20 6d 65 73 73 61 67 |c <name>|" messag|
|000003c0| 65 2e 20 20 0a 0a 49 74 | 20 77 6f 72 6b 73 20 62 |e.  ..It| works b|
|000003d0| 79 20 68 6f 6c 64 69 6e | 67 20 74 68 65 20 70 61 |y holdin|g the pa|
|000003e0| 74 68 6e 61 6d 65 73 20 | 6f 66 20 74 68 65 20 66 |thnames |of the f|
|000003f0| 69 6c 65 73 20 69 6e 20 | 61 20 74 65 78 74 20 66 |iles in |a text f|
|00000400| 69 6c 65 2c 20 61 6e 64 | 20 0a 75 73 69 6e 67 20 |ile, and| .using |
|00000410| 74 68 69 73 20 74 6f 20 | 64 69 73 70 6c 61 79 20 |this to |display |
|00000420| 77 69 6e 64 6f 77 73 20 | 77 68 69 63 68 20 4c 4f |windows |which LO|
|00000430| 4f 4b 20 6c 69 6b 65 20 | 6e 6f 72 6d 61 6c 20 64 |OK like |normal d|
|00000440| 69 72 65 63 74 6f 72 79 | 20 77 69 6e 64 6f 77 73 |irectory| windows|
|00000450| 2e 20 0a 44 69 73 6b 53 | 74 6f 72 65 20 27 64 69 |. .DiskS|tore 'di|
|00000460| 72 65 63 74 6f 72 69 65 | 73 27 20 63 61 6e 20 62 |rectorie|s' can b|
|00000470| 65 20 70 6c 61 63 65 64 | 20 61 6e 79 77 68 65 72 |e placed| anywher|
|00000480| 65 20 69 6e 20 79 6f 75 | 72 20 64 69 72 65 63 74 |e in you|r direct|
|00000490| 6f 72 79 20 0a 73 74 72 | 75 63 74 75 72 65 2e 20 |ory .str|ucture. |
|000004a0| 54 68 65 79 20 6c 6f 6f | 6b 20 61 6e 64 20 61 63 |They loo|k and ac|
|000004b0| 74 20 6d 6f 72 65 20 6f | 72 20 6c 65 73 73 20 6c |t more o|r less l|
|000004c0| 69 6b 65 20 6e 6f 72 6d | 61 6c 20 64 69 72 65 63 |ike norm|al direc|
|000004d0| 74 6f 72 69 65 73 2c 20 | 62 75 74 20 0a 61 72 65 |tories, |but .are|
|000004e0| 20 61 63 74 75 61 6c 6c | 79 20 74 65 78 74 20 66 | actuall|y text f|
|000004f0| 69 6c 65 73 20 77 68 69 | 63 68 20 68 61 76 65 20 |iles whi|ch have |
|00000500| 61 20 73 65 70 61 72 61 | 74 65 20 66 69 6c 65 20 |a separa|te file |
|00000510| 74 79 70 65 20 77 68 69 | 63 68 20 63 61 6c 6c 73 |type whi|ch calls|
|00000520| 20 74 68 65 20 0a 44 69 | 73 63 53 74 6f 72 65 20 | the .Di|scStore |
|00000530| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2e 0a 0a 54 68 |applicat|ion...Th|
|00000540| 69 73 20 77 61 79 20 69 | 74 20 63 72 65 61 74 65 |is way i|t create|
|00000550| 73 20 74 68 65 20 69 6c | 6c 75 73 69 6f 6e 20 6f |s the il|lusion o|
|00000560| 66 20 61 6c 6c 20 79 6f | 75 72 20 66 69 6c 65 73 |f all yo|ur files|
|00000570| 20 62 65 69 6e 67 20 61 | 76 61 69 6c 61 62 6c 65 | being a|vailable|
|00000580| 20 0a 6f 6e 2d 6c 69 6e | 65 2c 20 61 6e 64 20 70 | .on-lin|e, and p|
|00000590| 72 6f 6d 70 74 73 20 79 | 6f 75 20 74 6f 20 6d 6f |rompts y|ou to mo|
|000005a0| 75 6e 74 20 74 68 65 20 | 63 6f 72 72 65 63 74 20 |unt the |correct |
|000005b0| 64 69 73 63 20 77 68 65 | 6e 20 6e 65 65 64 65 64 |disc whe|n needed|
|000005c0| 2e 20 20 54 68 65 20 0a | 77 69 6e 64 6f 77 73 20 |.  The .|windows |
|000005d0| 61 72 65 20 6d 61 64 65 | 20 74 6f 20 6f 70 65 72 |are made| to oper|
|000005e0| 61 74 65 20 61 73 20 63 | 6c 6f 73 65 6c 79 20 61 |ate as c|losely a|
|000005f0| 73 20 70 6f 73 73 69 62 | 6c 65 20 74 6f 20 74 68 |s possib|le to th|
|00000600| 65 20 6e 6f 72 6d 61 6c | 20 52 49 53 43 4f 53 20 |e normal| RISCOS |
|00000610| 0a 64 69 72 65 63 74 6f | 72 79 20 63 6f 6e 76 65 |.directo|ry conve|
|00000620| 6e 74 69 6f 6e 73 2c 20 | 62 75 74 20 73 6f 6d 65 |ntions, |but some|
|00000630| 20 6f 70 74 69 6f 6e 73 | 20 61 72 65 20 73 68 61 | options| are sha|
|00000640| 64 65 64 20 6f 75 74 2c | 20 61 6e 64 20 61 74 20 |ded out,| and at |
|00000650| 70 72 65 73 65 6e 74 20 | 0a 74 68 65 20 66 69 6c |present |.the fil|
|00000660| 65 20 73 65 6c 65 63 74 | 69 6f 6e 20 69 73 20 61 |e select|ion is a|
|00000670| 20 62 69 74 20 6f 64 64 | 21 21 2c 20 20 49 20 77 | bit odd|!!,  I w|
|00000680| 69 6c 6c 20 73 6f 72 74 | 20 74 68 61 74 20 6f 75 |ill sort| that ou|
|00000690| 74 20 73 68 6f 72 74 6c | 79 2e 0a 0a 54 6f 20 67 |t shortl|y...To g|
|000006a0| 65 74 20 73 74 61 72 74 | 65 64 2c 20 64 6f 75 62 |et start|ed, doub|
|000006b0| 6c 65 20 63 6c 69 63 6b | 20 6f 6e 20 74 68 65 20 |le click| on the |
|000006c0| 44 53 20 69 63 6f 6e 2e | 20 20 54 68 69 73 20 77 |DS icon.|  This w|
|000006d0| 69 6c 6c 20 6f 70 65 6e | 20 61 6e 0a 65 78 70 6c |ill open| an.expl|
|000006e0| 61 6e 61 74 6f 72 79 20 | 77 69 6e 64 6f 77 2e 20 |anatory |window. |
|000006f0| 20 43 6c 69 63 6b 20 74 | 68 65 20 6d 65 6e 75 20 | Click t|he menu |
|00000700| 62 75 74 74 6f 6e 20 6f | 6e 20 79 6f 75 72 20 6d |button o|n your m|
|00000710| 6f 75 73 65 20 61 6e 64 | 20 63 68 6f 6f 73 65 0a |ouse and| choose.|
|00000720| 74 68 65 20 27 4e 65 77 | 27 20 6f 70 74 69 6f 6e |the 'New|' option|
|00000730| 2e 20 20 53 61 76 65 20 | 74 68 65 20 44 53 20 27 |.  Save |the DS '|
|00000740| 64 69 72 65 63 74 6f 72 | 79 27 20 77 68 69 63 68 |director|y' which|
|00000750| 20 74 68 69 73 20 73 68 | 6f 77 73 2c 20 77 68 65 | this sh|ows, whe|
|00000760| 72 65 20 79 6f 75 0a 77 | 61 6e 74 20 69 74 20 69 |re you.w|ant it i|
|00000770| 6e 20 79 6f 75 72 20 6f | 77 6e 20 64 69 72 65 63 |n your o|wn direc|
|00000780| 74 6f 72 79 20 73 74 72 | 75 63 74 75 72 65 20 69 |tory str|ucture i|
|00000790| 6e 20 74 68 65 20 75 73 | 75 61 6c 20 6d 61 6e 6e |n the us|ual mann|
|000007a0| 65 72 2e 20 20 54 68 69 | 73 0a 63 72 65 61 74 65 |er.  Thi|s.create|
|000007b0| 73 20 61 6e 20 65 6d 70 | 74 79 20 44 53 20 64 69 |s an emp|ty DS di|
|000007c0| 72 65 63 74 6f 72 79 20 | 72 65 61 64 79 20 66 6f |rectory |ready fo|
|000007d0| 72 20 75 73 65 2e 20 20 | 4e 6f 77 20 63 6c 6f 73 |r use.  |Now clos|
|000007e0| 65 20 44 69 73 63 53 74 | 6f 72 65 20 62 79 0a 63 |e DiscSt|ore by.c|
|000007f0| 6c 69 63 6b 69 6e 67 20 | 6f 6e 20 74 68 65 20 43 |licking |on the C|
|00000800| 6c 6f 73 65 20 69 63 6f | 6e 2e 20 20 4e 65 78 74 |lose ico|n.  Next|
|00000810| 20 6f 70 65 6e 20 74 68 | 65 20 6e 65 77 20 44 53 | open th|e new DS|
|00000820| 20 27 64 69 72 65 63 74 | 6f 72 79 27 20 62 79 0a | 'direct|ory' by.|
|00000830| 64 6f 75 62 6c 65 20 63 | 6c 69 63 6b 69 6e 67 20 |double c|licking |
|00000840| 6f 6e 20 69 74 20 6c 69 | 6b 65 20 61 6e 79 20 6f |on it li|ke any o|
|00000850| 74 68 65 72 20 64 69 72 | 65 63 74 6f 72 79 20 61 |ther dir|ectory a|
|00000860| 6e 64 20 64 72 61 67 20 | 6f 62 6a 65 63 74 73 20 |nd drag |objects |
|00000870| 74 6f 20 69 74 0a 66 72 | 6f 6d 20 79 6f 75 72 20 |to it.fr|om your |
|00000880| 66 6c 6f 70 70 79 20 64 | 69 73 63 73 2e 20 20 54 |floppy d|iscs.  T|
|00000890| 68 65 20 44 53 20 27 64 | 69 72 65 63 74 6f 72 79 |he DS 'd|irectory|
|000008a0| 27 20 6e 6f 77 20 61 63 | 74 73 20 6a 75 73 74 20 |' now ac|ts just |
|000008b0| 6c 69 6b 65 20 61 0a 6e | 6f 72 6d 61 6c 20 64 69 |like a.n|ormal di|
|000008c0| 72 65 63 74 6f 72 79 2e | 20 20 59 6f 75 20 63 61 |rectory.|  You ca|
|000008d0| 6e 20 63 72 65 61 74 65 | 20 61 73 20 6d 61 6e 79 |n create| as many|
|000008e0| 20 44 53 20 27 64 69 72 | 65 63 74 6f 72 69 65 73 | DS 'dir|ectories|
|000008f0| 27 20 61 73 20 79 6f 75 | 20 77 69 73 68 0a 61 6e |' as you| wish.an|
|00000900| 64 20 70 6c 61 63 65 20 | 74 68 65 6d 20 61 6e 79 |d place |them any|
|00000910| 77 68 65 72 65 20 69 6e | 20 79 6f 75 72 20 6f 77 |where in| your ow|
|00000920| 6e 20 66 69 6c 65 72 20 | 64 69 72 65 63 74 6f 72 |n filer |director|
|00000930| 69 65 73 2e 0a 0a 59 6f | 75 20 63 61 6e 20 63 72 |ies...Yo|u can cr|
|00000940| 65 61 74 65 20 64 69 72 | 65 63 74 6f 72 69 65 73 |eate dir|ectories|
|00000950| 20 69 6e 20 44 69 73 63 | 53 74 6f 72 65 2c 20 64 | in Disc|Store, d|
|00000960| 72 61 67 20 66 69 6c 65 | 73 20 6f 72 20 64 69 72 |rag file|s or dir|
|00000970| 65 63 74 6f 72 69 65 73 | 20 69 6e 0a 66 72 6f 6d |ectories| in.from|
|00000980| 20 66 6c 6f 70 70 79 20 | 64 69 73 63 73 20 61 6e | floppy |discs an|
|00000990| 64 20 67 65 6e 65 72 61 | 6c 6c 79 20 75 73 65 20 |d genera|lly use |
|000009a0| 69 74 20 6c 69 6b 65 20 | 61 20 72 65 61 6c 20 64 |it like |a real d|
|000009b0| 69 72 65 63 74 6f 72 79 | 2c 20 62 75 74 0a 72 65 |irectory|, but.re|
|000009c0| 6d 65 6d 62 65 72 20 74 | 68 61 74 20 44 69 73 63 |member t|hat Disc|
|000009d0| 53 74 6f 72 65 20 69 73 | 20 6e 6f 74 20 72 65 61 |Store is| not rea|
|000009e0| 6c 6c 79 20 73 74 6f 72 | 69 6e 67 20 74 68 65 20 |lly stor|ing the |
|000009f0| 66 69 6c 65 73 2c 20 6a | 75 73 74 0a 69 6e 66 6f |files, j|ust.info|
|00000a00| 72 6d 61 74 69 6f 6e 20 | 61 62 6f 75 74 20 74 68 |rmation |about th|
|00000a10| 65 6d 2c 20 74 68 65 20 | 72 65 61 6c 20 66 69 6c |em, the |real fil|
|00000a20| 65 73 20 73 74 61 79 20 | 6f 6e 20 79 6f 75 72 20 |es stay |on your |
|00000a30| 66 6c 6f 70 70 79 20 64 | 69 73 63 73 2e 20 0a 44 |floppy d|iscs. .D|
|00000a40| 69 73 63 53 74 6f 72 65 | 20 6d 61 69 6e 74 61 69 |iscStore| maintai|
|00000a50| 6e 73 20 69 74 73 20 6f | 77 6e 20 6c 6f 67 69 63 |ns its o|wn logic|
|00000a60| 61 6c 20 70 61 74 68 73 | 20 20 74 6f 20 74 68 65 |al paths|  to the|
|00000a70| 20 6f 62 6a 65 63 74 73 | 20 77 68 69 63 68 20 63 | objects| which c|
|00000a80| 61 6e 20 62 65 0a 63 6f | 6d 70 6c 65 74 65 6c 79 |an be.co|mpletely|
|00000a90| 20 64 69 66 66 65 72 65 | 6e 74 20 66 72 6f 6d 20 | differe|nt from |
|00000aa0| 74 68 65 20 72 65 61 6c | 20 70 68 79 73 69 63 61 |the real| physica|
|00000ab0| 6c 20 70 61 74 68 73 20 | 74 6f 20 74 68 65 20 66 |l paths |to the f|
|00000ac0| 69 6c 65 73 2e 20 20 46 | 6f 72 0a 65 78 61 6d 70 |iles.  F|or.examp|
|00000ad0| 6c 65 20 79 6f 75 20 63 | 6f 75 6c 64 20 68 61 76 |le you c|ould hav|
|00000ae0| 65 20 61 20 44 69 73 63 | 53 74 6f 72 65 20 27 6d |e a Disc|Store 'm|
|00000af0| 75 73 69 63 27 20 64 69 | 72 65 63 74 6f 72 79 20 |usic' di|rectory |
|00000b00| 69 6e 20 77 68 69 63 68 | 20 79 6f 75 0a 73 74 6f |in which| you.sto|
|00000b10| 72 65 20 6d 75 73 69 63 | 20 66 69 6c 65 73 20 66 |re music| files f|
|00000b20| 72 6f 6d 20 73 65 76 65 | 72 61 6c 20 66 6c 6f 70 |rom seve|ral flop|
|00000b30| 70 79 20 64 69 73 63 73 | 2e 20 20 44 69 73 63 53 |py discs|.  DiscS|
|00000b40| 74 6f 72 65 20 77 69 6c | 6c 20 70 72 6f 6d 70 74 |tore wil|l prompt|
|00000b50| 0a 79 6f 75 20 74 6f 20 | 6d 6f 75 6e 74 20 74 68 |.you to |mount th|
|00000b60| 65 20 63 6f 72 72 65 63 | 74 20 64 69 73 63 2e 0a |e correc|t disc..|
|00000b70| 0a 44 69 73 63 53 74 6f | 72 65 20 77 69 6c 6c 20 |.DiscSto|re will |
|00000b80| 63 6f 70 79 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |copy the| content|
|00000b90| 73 20 6f 66 20 61 6e 79 | 20 64 69 72 65 63 74 6f |s of any| directo|
|00000ba0| 72 79 20 64 72 61 67 67 | 65 64 20 74 6f 20 69 74 |ry dragg|ed to it|
|00000bb0| 20 6a 75 73 74 20 61 73 | 20 0a 74 68 65 20 6e 6f | just as| .the no|
|00000bc0| 72 6d 61 6c 20 66 69 6c | 65 72 20 64 6f 65 73 2c |rmal fil|er does,|
|00000bd0| 20 62 75 74 20 66 6f 72 | 20 61 6e 20 61 70 70 6c | but for| an appl|
|00000be0| 69 63 61 74 69 6f 6e 20 | 69 74 20 4f 4e 4c 59 20 |ication |it ONLY |
|00000bf0| 63 6f 70 69 65 73 20 74 | 68 65 20 0a 61 70 70 6c |copies t|he .appl|
|00000c00| 69 63 61 74 69 6f 6e 20 | 64 69 72 65 63 74 6f 72 |ication |director|
|00000c10| 79 20 6e 6f 74 20 74 68 | 65 20 63 6f 6e 74 65 6e |y not th|e conten|
|00000c20| 74 73 2e 20 20 49 74 20 | 69 73 20 64 6f 6e 65 20 |ts.  It |is done |
|00000c30| 74 68 69 73 20 77 61 79 | 20 73 69 6e 63 65 20 69 |this way| since i|
|00000c40| 74 20 0a 69 73 20 74 68 | 65 20 41 50 50 4c 49 43 |t .is th|e APPLIC|
|00000c50| 41 54 49 4f 4e 20 79 6f | 75 20 77 61 6e 74 20 74 |ATION yo|u want t|
|00000c60| 6f 20 66 69 6e 64 20 61 | 6e 64 20 72 75 6e 2c 20 |o find a|nd run, |
|00000c70| 73 6f 20 73 74 6f 72 69 | 6e 67 20 74 68 65 20 64 |so stori|ng the d|
|00000c80| 65 74 61 69 6c 73 20 6f | 66 20 0a 74 68 65 20 66 |etails o|f .the f|
|00000c90| 69 6c 65 73 20 69 6e 73 | 69 64 65 20 74 68 65 20 |iles ins|ide the |
|00000ca0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 69 73 20 75 |applicat|ion is u|
|00000cb0| 6e 6e 65 63 65 73 73 61 | 72 79 2e 20 0a 0a 57 68 |nnecessa|ry. ..Wh|
|00000cc0| 65 6e 20 79 6f 75 20 64 | 72 61 67 20 61 20 66 69 |en you d|rag a fi|
|00000cd0| 6c 65 20 6f 72 20 64 69 | 72 65 63 74 6f 72 79 20 |le or di|rectory |
|00000ce0| 74 6f 20 61 20 44 69 73 | 63 53 74 6f 72 65 20 77 |to a Dis|cStore w|
|00000cf0| 69 6e 64 6f 77 2c 20 74 | 68 65 20 66 69 6c 65 73 |indow, t|he files|
|00000d00| 20 61 72 65 20 0a 6e 6f | 74 20 61 63 74 75 61 6c | are .no|t actual|
|00000d10| 6c 79 20 63 6f 70 69 65 | 64 2e 20 20 57 68 61 74 |ly copie|d.  What|
|00000d20| 20 68 61 70 70 65 6e 73 | 20 69 73 20 74 68 61 74 | happens| is that|
|00000d30| 20 44 69 73 63 53 74 6f | 72 65 20 63 72 65 61 74 | DiscSto|re creat|
|00000d40| 65 73 20 61 20 72 65 63 | 6f 72 64 20 0a 66 6f 72 |es a rec|ord .for|
|00000d50| 20 74 68 65 20 66 69 6c | 65 73 20 63 6f 6e 63 65 | the fil|es conce|
|00000d60| 72 6e 65 64 20 61 6e 64 | 20 73 74 6f 72 65 73 20 |rned and| stores |
|00000d70| 74 68 65 20 70 61 74 68 | 6e 61 6d 65 20 61 6e 64 |the path|name and|
|00000d80| 20 6f 74 68 65 72 20 64 | 61 74 61 2e 20 20 49 6e | other d|ata.  In|
|00000d90| 20 0a 67 65 6e 65 72 61 | 6c 20 27 72 65 61 64 27 | .genera|l 'read'|
|00000da0| 20 6f 70 65 72 61 74 69 | 6f 6e 73 20 61 72 65 20 | operati|ons are |
|00000db0| 70 61 73 73 65 64 20 6f | 6e 20 61 6e 64 20 77 6f |passed o|n and wo|
|00000dc0| 72 6b 20 6f 6e 20 74 68 | 65 20 72 65 61 6c 20 66 |rk on th|e real f|
|00000dd0| 69 6c 65 2c 20 62 75 74 | 20 0a 27 77 72 69 74 65 |ile, but| .'write|
|00000de0| 27 20 6f 70 65 72 61 74 | 69 6f 6e 73 20 61 66 66 |' operat|ions aff|
|00000df0| 65 63 74 20 6f 6e 6c 79 | 20 74 68 65 20 44 69 73 |ect only| the Dis|
|00000e00| 63 53 74 6f 72 65 20 72 | 65 63 6f 72 64 2e 0a 0a |cStore r|ecord...|
|00000e10| 54 68 65 72 65 20 61 72 | 65 20 6c 69 6d 69 74 73 |There ar|e limits|
|00000e20| 2e 20 20 54 68 65 20 61 | 70 70 6c 69 63 61 74 69 |.  The a|pplicati|
|00000e30| 6f 6e 20 6d 61 79 20 6e | 6f 74 20 68 61 76 65 20 |on may n|ot have |
|00000e40| 27 73 65 65 6e 27 20 73 | 70 72 69 74 65 20 66 69 |'seen' s|prite fi|
|00000e50| 6c 65 73 2c 20 0a 73 6f | 20 6d 61 79 20 6e 6f 74 |les, .so| may not|
|00000e60| 20 73 68 6f 77 20 74 68 | 65 20 63 6f 72 72 65 63 | show th|e correc|
|00000e70| 74 20 69 63 6f 6e 2e 20 | 20 54 68 65 72 65 20 69 |t icon. | There i|
|00000e80| 73 20 68 6f 77 65 76 65 | 72 20 61 20 66 69 6c 65 |s howeve|r a file|
|00000e90| 20 27 53 70 72 69 74 65 | 73 27 0a 69 6e 20 74 68 | 'Sprite|s'.in th|
|00000ea0| 65 20 44 69 73 6b 53 74 | 6f 72 65 20 64 69 72 65 |e DiskSt|ore dire|
|00000eb0| 63 74 6f 72 79 2e 20 20 | 49 66 20 79 6f 75 20 61 |ctory.  |If you a|
|00000ec0| 64 64 20 73 70 72 69 74 | 65 73 20 74 6f 20 74 68 |dd sprit|es to th|
|00000ed0| 69 73 20 74 68 65 6e 20 | 74 68 65 79 20 77 69 6c |is then |they wil|
|00000ee0| 6c 0a 62 65 20 27 73 65 | 65 6e 27 20 62 79 20 74 |l.be 'se|en' by t|
|00000ef0| 68 65 20 73 79 73 74 65 | 6d 20 61 6e 64 20 73 68 |he syste|m and sh|
|00000f00| 6f 77 6e 20 63 6f 72 72 | 65 63 74 6c 79 2e 20 20 |own corr|ectly.  |
|00000f10| 41 6e 6f 74 68 65 72 20 | 6c 69 6d 69 74 61 74 69 |Another |limitati|
|00000f20| 6f 6e 20 69 73 0a 74 68 | 61 74 20 69 66 20 79 6f |on is.th|at if yo|
|00000f30| 75 20 64 65 6c 65 74 65 | 20 6f 72 20 6d 6f 76 65 |u delete| or move|
|00000f40| 20 66 69 6c 65 73 20 6f | 6e 20 20 74 68 65 20 66 | files o|n  the f|
|00000f50| 6c 6f 70 70 79 20 77 69 | 74 68 6f 75 74 20 74 65 |loppy wi|thout te|
|00000f60| 6c 6c 69 6e 67 0a 44 69 | 73 63 53 74 6f 72 65 20 |lling.Di|scStore |
|00000f70| 61 62 6f 75 74 20 69 74 | 2c 20 74 68 65 6e 20 44 |about it|, then D|
|00000f80| 69 73 63 53 74 6f 72 65 | 20 63 61 6e 6e 6f 74 20 |iscStore| cannot |
|00000f90| 20 66 69 6e 64 20 74 68 | 65 20 66 69 6c 65 2e 20 | find th|e file. |
|00000fa0| 20 41 6c 73 6f 0a 73 74 | 72 61 6e 67 65 20 65 66 | Also.st|range ef|
|00000fb0| 66 65 63 74 73 20 63 61 | 6e 20 6f 63 63 75 72 20 |fects ca|n occur |
|00000fc0| 77 69 74 68 20 62 61 64 | 6c 79 20 62 65 68 61 76 |with bad|ly behav|
|00000fd0| 65 64 20 20 61 70 70 6c | 69 63 61 74 69 6f 6e 73 |ed  appl|ications|
|00000fe0| 20 77 68 69 63 68 20 64 | 6f 0a 6e 6f 74 20 6c 6f | which d|o.not lo|
|00000ff0| 61 64 20 74 68 65 69 72 | 20 21 53 70 72 69 74 65 |ad their| !Sprite|
|00001000| 73 20 66 69 6c 65 20 66 | 72 6f 6d 20 77 69 74 68 |s file f|rom with|
|00001010| 69 6e 20 21 52 75 6e 2e | 0a 0a 59 6f 75 20 63 61 |in !Run.|..You ca|
|00001020| 6e 20 44 65 6c 65 74 65 | 20 6f 72 20 52 65 6e 61 |n Delete| or Rena|
|00001030| 6d 65 20 61 20 44 69 73 | 63 53 74 6f 72 65 20 6f |me a Dis|cStore o|
|00001040| 62 6a 65 63 74 2e 20 20 | 54 68 69 73 20 6f 6e 6c |bject.  |This onl|
|00001050| 79 20 61 66 66 65 63 74 | 73 20 74 68 65 20 0a 6f |y affect|s the .o|
|00001060| 62 6a 65 63 74 20 64 65 | 73 63 72 69 70 74 69 6f |bject de|scriptio|
|00001070| 6e 20 69 6e 20 74 68 65 | 20 44 69 73 63 53 74 6f |n in the| DiscSto|
|00001080| 72 65 20 66 69 6c 65 2c | 20 6e 6f 74 20 74 68 65 |re file,| not the|
|00001090| 20 72 65 61 6c 20 6f 62 | 6a 65 63 74 2e 20 20 49 | real ob|ject.  I|
|000010a0| 66 20 79 6f 75 20 0a 64 | 6f 20 72 65 6e 61 6d 65 |f you .d|o rename|
|000010b0| 20 61 20 64 69 72 65 63 | 74 6f 72 79 20 6f 72 20 | a direc|tory or |
|000010c0| 66 69 6c 65 20 69 6e 20 | 44 69 73 63 53 74 6f 72 |file in |DiscStor|
|000010d0| 65 2c 20 74 68 65 6e 20 | 6f 6e 6c 79 20 74 68 65 |e, then |only the|
|000010e0| 20 44 69 73 63 53 74 6f | 72 65 20 0a 6f 62 6a 65 | DiscSto|re .obje|
|000010f0| 63 74 20 6e 61 6d 65 20 | 69 73 20 63 68 61 6e 67 |ct name |is chang|
|00001100| 65 64 2c 20 74 68 65 20 | 70 61 74 68 6e 61 6d 65 |ed, the |pathname|
|00001110| 20 69 73 20 6e 6f 74 20 | 63 68 61 6e 67 65 64 20 | is not |changed |
|00001120| 73 6f 20 74 68 65 20 72 | 65 61 6c 20 6f 62 6a 65 |so the r|eal obje|
|00001130| 63 74 20 0a 77 69 6c 6c | 20 73 74 69 6c 6c 20 62 |ct .will| still b|
|00001140| 65 20 66 6f 75 6e 64 2e | 20 20 0a 0a 49 4d 50 4f |e found.|  ..IMPO|
|00001150| 52 54 41 4e 54 20 4e 4f | 54 45 0a 0a 54 68 69 73 |RTANT NO|TE..This|
|00001160| 20 69 73 20 61 20 70 72 | 65 2d 72 65 6c 65 61 73 | is a pr|e-releas|
|00001170| 65 20 76 65 72 73 69 6f | 6e 20 6f 66 20 44 69 73 |e versio|n of Dis|
|00001180| 63 53 74 6f 72 65 20 77 | 68 69 63 68 20 69 73 20 |cStore w|hich is |
|00001190| 6e 6f 74 20 63 6f 6d 70 | 6c 65 74 65 20 6f 72 20 |not comp|lete or |
|000011a0| 0a 66 75 6c 6c 79 20 74 | 65 73 74 65 64 2e 0a 46 |.fully t|ested..F|
|000011b0| 69 6c 65 44 61 74 61 82 | 21 52 75 6e 00 00 00 ff |ileData.|!Run....|
|000011c0| ff ff ff e2 00 00 00 45 | eb ff ff 08 f0 2b df 03 |.......E|.....+..|
|000011d0| 00 a4 30 53 65 74 20 44 | 69 73 63 53 74 6f 72 65 |..0Set D|iscStore|
|000011e0| 24 44 69 72 20 3c 4f 62 | 65 79 24 44 69 72 3e 0a |$Dir <Ob|ey$Dir>.|
|000011f0| 49 63 6f 6e 53 70 72 69 | 74 65 73 20 3c 4f 62 65 |IconSpri|tes <Obe|
|00001200| 79 24 44 69 72 3e 2e 21 | 53 70 72 69 74 65 73 0a |y$Dir>.!|Sprites.|
|00001210| 49 63 6f 6e 53 70 72 69 | 74 65 73 20 3c 4f 62 65 |IconSpri|tes <Obe|
|00001220| 79 24 44 69 72 3e 2e 53 | 70 72 69 74 65 73 0a 53 |y$Dir>.S|prites.S|
|00001230| 65 74 20 41 6c 69 61 73 | 24 40 52 75 6e 54 79 70 |et Alias|$@RunTyp|
|00001240| 65 5f 31 39 39 20 52 75 | 6e 20 3c 4f 62 65 79 24 |e_199 Ru|n <Obey$|
|00001250| 44 69 72 3e 2e 21 52 75 | 6e 20 25 25 2a 30 0a 53 |Dir>.!Ru|n %%*0.S|
|00001260| 65 74 20 46 69 6c 65 24 | 54 79 70 65 5f 31 39 39 |et File$|Type_199|
|00001270| 20 44 69 73 63 53 74 6f | 72 65 0a 57 69 6d 70 53 | DiscSto|re.WimpS|
|00001280| 6c 6f 74 20 2d 6d 69 6e | 20 31 32 38 4b 20 2d 6d |lot -min| 128K -m|
|00001290| 61 78 20 31 32 38 4b 0a | 52 75 6e 20 3c 4f 62 65 |ax 128K.|Run <Obe|
|000012a0| 79 24 44 69 72 3e 2e 21 | 52 75 6e 49 6d 61 67 65 |y$Dir>.!|RunImage|
|000012b0| 20 25 2a 30 0a 46 69 6c | 65 44 61 74 61 82 21 52 | %*0.Fil|eData.!R|
|000012c0| 75 6e 49 6d 61 67 65 00 | ff 6e 8e 00 00 45 fb ff |unImage.|.n...E..|
|000012d0| ff b4 fe 06 f9 03 00 3b | 49 0d 00 0a 21 f4 20 3e |.......;|I...!. >|
|000012e0| 20 3c 44 69 73 63 53 74 | 6f 72 65 24 44 69 72 3e | <DiscSt|ore$Dir>|
|000012f0| 2e 21 52 75 6e 49 6d 61 | 67 65 0d 00 14 31 f4 20 |.!RunIma|ge...1. |
|00001300| 56 65 72 73 69 6f 6e 20 | 31 2e 32 30 20 20 31 39 |Version |1.20  19|
|00001310| 74 68 20 4a 75 6c 79 20 | 31 39 39 32 20 20 20 28 |th July |1992   (|
|00001320| 63 29 20 4a 2e 20 4d 65 | 65 72 73 0d 00 1e 04 0d |c) J. Me|ers.....|
|00001330| 00 28 25 f4 20 44 69 73 | 63 53 74 6f 72 65 20 2d |.(%. Dis|cStore -|
|00001340| 20 4f 66 66 6c 69 6e 65 | 20 66 69 6c 65 20 73 79 | Offline| file sy|
|00001350| 73 74 65 6d 0d 00 32 04 | 0d 00 3c 2d ee 20 85 20 |stem..2.|..<-. . |
|00001360| c8 99 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |.."Wimp_|CloseDow|
|00001370| 6e 22 3a f6 3a f1 22 20 | 61 74 20 6c 69 6e 65 20 |n":.:." |at line |
|00001380| 22 3b 9e 3a e0 0d 00 46 | 04 0d 00 50 28 f4 20 4d |";.:...F|...P(. M|
|00001390| 61 69 6e 20 61 72 72 61 | 79 73 20 66 6f 72 20 64 |ain arra|ys for d|
|000013a0| 61 74 61 20 61 62 6f 75 | 74 20 77 69 6e 64 6f 77 |ata abou|t window|
|000013b0| 73 0d 00 5a 21 77 69 6e | 64 73 25 3d 31 30 3a de |s..Z!win|ds%=10:.|
|000013c0| 20 57 69 6e 64 6f 77 25 | 28 77 69 6e 64 73 25 2c | Window%|(winds%,|
|000013d0| 31 29 0d 00 64 23 57 69 | 6e 64 48 64 6c 49 44 25 |1)..d#Wi|ndHdlID%|
|000013e0| 3d 30 20 20 3a 20 f4 20 | 57 69 6e 64 6f 77 20 68 |=0  : . |Window h|
|000013f0| 61 6e 64 6c 65 0d 00 6e | 34 44 69 72 4f 62 6a 49 |andle..n|4DirObjI|
|00001400| 44 25 3d 31 20 20 20 3a | 20 f4 20 44 69 72 65 63 |D%=1   :| . Direc|
|00001410| 74 6f 72 79 20 57 69 6e | 64 6f 77 20 69 73 20 64 |tory Win|dow is d|
|00001420| 69 73 70 6c 61 79 69 6e | 67 0d 00 78 04 0d 00 82 |isplayin|g..x....|
|00001430| 26 69 63 6f 6e 73 25 3d | 77 69 6e 64 73 25 2a 31 |&icons%=|winds%*1|
|00001440| 30 3a de 20 49 63 6f 6e | 25 28 69 63 6f 6e 73 25 |0:. Icon|%(icons%|
|00001450| 2c 32 29 0d 00 8c 20 49 | 63 6f 6e 48 64 6c 49 44 |,2)... I|conHdlID|
|00001460| 25 3d 30 20 20 3a 20 f4 | 20 49 6e 20 49 63 6f 6e |%=0  : .| In Icon|
|00001470| 25 28 29 0d 00 96 4c 49 | 77 69 6e 64 49 44 25 3d |%()...LI|windID%=|
|00001480| 31 20 20 20 20 3a 20 f4 | 20 6e 65 65 64 20 74 6f |1    : .| need to|
|00001490| 20 73 74 6f 72 65 20 77 | 68 64 6c 25 20 61 73 20 | store w|hdl% as |
|000014a0| 77 65 6c 6c 20 61 73 20 | 69 68 64 6c 25 20 74 6f |well as |ihdl% to|
|000014b0| 20 6d 61 6b 65 20 69 74 | 20 75 6e 69 71 75 65 0d | make it| unique.|
|000014c0| 00 a0 2e 4f 62 6a 49 44 | 25 3d 32 20 20 20 20 20 |...ObjID|%=2     |
|000014d0| 20 3a 20 f4 20 4f 62 6a | 65 63 74 20 4e 75 6d 62 | : . Obj|ect Numb|
|000014e0| 65 72 20 69 6e 20 49 63 | 6f 6e 25 28 29 0d 00 aa |er in Ic|on%()...|
|000014f0| 04 0d 00 b4 2d 66 69 6c | 65 73 25 3d 31 30 3a de |....-fil|es%=10:.|
|00001500| 20 46 69 6c 65 24 28 66 | 69 6c 65 73 25 29 2c 46 | File$(f|iles%),F|
|00001510| 69 6c 65 25 28 66 69 6c | 65 73 25 2c 32 29 0d 00 |ile%(fil|es%,2)..|
|00001520| be 2c 57 63 6e 74 49 44 | 25 3d 30 20 20 20 20 20 |.,WcntID|%=0     |
|00001530| 3a 20 f4 20 4e 75 6d 62 | 65 72 20 6f 66 20 6f 70 |: . Numb|er of op|
|00001540| 65 6e 20 77 69 6e 64 6f | 77 73 0d 00 c8 2b 52 6f |en windo|ws...+Ro|
|00001550| 6f 74 49 44 25 3d 31 20 | 20 20 20 20 3a 20 f4 20 |otID%=1 |    : . |
|00001560| 52 6f 6f 74 20 44 69 72 | 65 63 74 6f 72 79 20 4f |Root Dir|ectory O|
|00001570| 62 6a 52 65 66 0d 00 d2 | 27 44 6c 61 73 74 49 44 |bjRef...|'DlastID|
|00001580| 25 3d 32 20 20 20 20 3a | 20 f4 20 46 69 72 73 74 |%=2    :| . First|
|00001590| 20 66 72 65 65 20 4f 62 | 6a 52 65 66 0d 00 dc 04 | free Ob|jRef....|
|000015a0| 0d 00 e6 1c f4 20 41 72 | 72 61 79 73 20 74 6f 20 |..... Ar|rays to |
|000015b0| 68 6f 6c 64 20 4f 62 6a | 65 63 74 73 0d 00 f0 27 |hold Obj|ects...'|
|000015c0| f4 20 54 79 70 65 2c 4e | 61 6d 65 2c 70 61 74 68 |. Type,N|ame,path|
|000015d0| 2c 6c 6f 61 64 2c 65 78 | 65 63 2c 6c 65 6e 2c 61 |,load,ex|ec,len,a|
|000015e0| 74 74 72 0d 00 fa 3d 6f | 62 6a 65 63 74 73 25 3d |ttr...=o|bjects%=|
|000015f0| 69 63 6f 6e 73 25 2a 33 | 3a de 20 4f 62 6a 65 63 |icons%*3|:. Objec|
|00001600| 74 24 28 6f 62 6a 65 63 | 74 73 25 29 2c 4f 62 6a |t$(objec|ts%),Obj|
|00001610| 65 63 74 25 28 6f 62 6a | 65 63 74 73 25 2c 33 29 |ect%(obj|ects%,3)|
|00001620| 0d 01 04 48 54 79 70 65 | 46 44 25 3d 31 3a 4e 61 |...HType|FD%=1:Na|
|00001630| 6d 65 46 44 25 3d 32 3a | 50 61 74 68 46 44 25 3d |meFD%=2:|PathFD%=|
|00001640| 33 3a 4c 6f 61 64 46 44 | 25 3d 34 3a 45 78 65 63 |3:LoadFD|%=4:Exec|
|00001650| 46 44 25 3d 35 3a 4c 65 | 6e 46 44 25 3d 36 3a 41 |FD%=5:Le|nFD%=6:A|
|00001660| 74 74 72 46 44 25 3d 37 | 0d 01 0e 36 44 6e 65 78 |ttrFD%=7|...6Dnex|
|00001670| 74 49 44 25 3d 30 20 20 | 20 20 3a 20 f4 20 50 6f |tID%=0  |  : . Po|
|00001680| 69 6e 74 65 72 20 74 6f | 20 6e 65 78 74 20 6f 62 |inter to| next ob|
|00001690| 6a 65 63 74 20 69 6e 20 | 6d 65 6d 6f 72 79 0d 01 |ject in |memory..|
|000016a0| 18 27 42 61 63 6b 50 74 | 72 49 44 25 3d 31 20 20 |.'BackPt|rID%=1  |
|000016b0| 3a 20 f4 20 50 6f 69 6e | 74 65 72 20 74 6f 20 70 |: . Poin|ter to p|
|000016c0| 61 72 65 6e 74 0d 01 22 | 28 44 69 73 63 52 65 66 |arent.."|(DiscRef|
|000016d0| 49 44 25 3d 32 20 20 3a | 20 f4 20 44 69 73 63 20 |ID%=2  :| . Disc |
|000016e0| 6f 62 6a 65 63 74 20 6e | 75 6d 62 65 72 0d 01 2c |object n|umber..,|
|000016f0| 04 0d 01 36 41 de 20 57 | 5f 74 69 74 6c 65 20 77 |...6A. W|_title w|
|00001700| 69 6e 64 73 25 2a 31 30 | 30 20 20 20 3a 20 f4 20 |inds%*10|0   : . |
|00001710| 49 6e 64 69 72 65 63 74 | 65 64 20 73 70 61 63 65 |Indirect|ed space|
|00001720| 20 66 6f 72 20 77 69 6e | 64 6f 77 20 74 69 74 6c | for win|dow titl|
|00001730| 65 73 0d 01 40 3d de 20 | 49 62 6c 6f 63 6b 20 20 |es..@=. |Iblock  |
|00001740| 69 63 6f 6e 73 25 2a 34 | 30 20 20 20 20 3a 20 f4 |icons%*4|0    : .|
|00001750| 20 49 6e 64 69 72 65 63 | 74 65 64 20 73 70 61 63 | Indirec|ted spac|
|00001760| 65 20 66 6f 72 20 69 63 | 6f 6e 20 64 61 74 61 0d |e for ic|on data.|
|00001770| 01 4a 04 0d 01 54 2d de | 20 57 6d 65 6e 75 24 28 |.J...T-.| Wmenu$(|
|00001780| 36 2c 39 2c 32 29 20 20 | 3a 20 f4 20 36 20 6d 65 |6,9,2)  |: . 6 me|
|00001790| 6e 75 73 2c 20 6d 61 78 | 20 38 20 69 74 65 6d 73 |nus, max| 8 items|
|000017a0| 0d 01 5e 29 de 20 6d 5f | 68 65 61 70 25 20 26 32 |..^). m_|heap% &2|
|000017b0| 30 30 20 3a 20 f4 20 6d | 65 6e 75 20 69 6e 64 69 |00 : . m|enu indi|
|000017c0| 72 65 63 74 20 68 65 61 | 70 0d 01 68 04 0d 01 72 |rect hea|p..h...r|
|000017d0| 14 f4 20 4d 69 73 63 20 | 76 61 72 69 61 62 6c 65 |.. Misc |variable|
|000017e0| 73 0d 01 7c 1b 44 69 73 | 63 53 74 6f 72 65 46 69 |s..|.Dis|cStoreFi|
|000017f0| 6c 65 54 79 70 65 25 3d | 26 31 39 39 0d 01 86 12 |leType%=|&199....|
|00001800| 57 69 6e 64 6f 77 43 6f | 75 6e 74 25 3d 30 0d 01 |WindowCo|unt%=0..|
|00001810| 90 0b 4c 61 73 74 25 3d | 30 0d 01 9a 28 56 65 72 |..Last%=|0...(Ver|
|00001820| 73 69 6f 6e 24 3d 22 44 | 69 73 63 53 74 6f 72 65 |sion$="D|iscStore|
|00001830| 20 31 2e 32 30 20 20 4a | 75 6c 79 20 31 39 39 32 | 1.20  J|uly 1992|
|00001840| 22 0d 01 a4 21 53 65 72 | 69 61 6c 24 3d 22 23 30 |"...!Ser|ial$="#0|
|00001850| 35 30 37 39 32 20 20 41 | 72 63 61 64 65 20 42 42 |50792  A|rcade BB|
|00001860| 53 22 0d 01 ae 04 0d 01 | b8 15 f4 20 47 65 74 20 |S"......|... Get |
|00001870| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 0d 01 c2 1d c8 |environm|ent.....|
|00001880| 99 20 22 4f 53 5f 47 65 | 74 45 6e 76 22 20 b8 20 |. "OS_Ge|tEnv" . |
|00001890| 43 6f 6d 6d 61 6e 64 24 | 0d 01 cc 34 69 25 3d a7 |Command$|...4i%=.|
|000018a0| 43 6f 6d 6d 61 6e 64 24 | 2c 22 21 52 75 6e 49 6d |Command$|,"!RunIm|
|000018b0| 61 67 65 22 29 3a 46 69 | 6c 65 24 3d c1 43 6f 6d |age"):Fi|le$=.Com|
|000018c0| 6d 61 6e 64 24 2c 69 25 | 2b 31 31 29 0d 01 d6 04 |mand$,i%|+11)....|
|000018d0| 0d 01 e0 11 f4 20 53 65 | 74 20 75 70 20 54 61 73 |..... Se|t up Tas|
|000018e0| 6b 0d 01 ea 1c de 20 57 | 69 6d 70 42 6c 6b 20 26 |k..... W|impBlk &|
|000018f0| 34 30 30 2c 20 42 6c 6b | 25 20 32 35 36 0d 01 f4 |400, Blk|% 256...|
|00001900| 32 de 20 74 61 73 6b 20 | 34 20 3a 20 24 74 61 73 |2. task |4 : $tas|
|00001910| 6b 3d 22 54 41 53 4b 22 | 20 3a 54 61 73 6b 4e 61 |k="TASK"| :TaskNa|
|00001920| 6d 65 24 3d 22 44 69 73 | 63 53 74 6f 72 65 22 0d |me$="Dis|cStore".|
|00001930| 01 fe 36 c8 99 22 57 69 | 6d 70 5f 49 6e 69 74 69 |..6.."Wi|mp_Initi|
|00001940| 61 6c 69 73 65 22 2c 32 | 30 30 2c 21 74 61 73 6b |alise",2|00,!task|
|00001950| 2c 54 61 73 6b 4e 61 6d | 65 24 20 b8 20 2c 54 61 |,TaskNam|e$ . ,Ta|
|00001960| 73 6b 49 44 25 0d 02 08 | 16 f2 64 65 62 75 67 28 |skID%...|..debug(|
|00001970| 30 2c c3 54 61 73 6b 49 | 44 25 29 0d 02 12 04 0d |0,.TaskI|D%).....|
|00001980| 02 1c 11 f4 20 47 65 74 | 20 57 69 6e 64 6f 77 73 |.... Get| Windows|
|00001990| 0d 02 26 13 de 20 44 53 | 62 6c 6f 63 6b 25 20 31 |..&.. DS|block% 1|
|000019a0| 30 30 30 0d 02 30 37 c8 | 99 20 22 57 69 6d 70 5f |000..07.|. "Wimp_|
|000019b0| 4f 70 65 6e 54 65 6d 70 | 6c 61 74 65 22 2c 2c 22 |OpenTemp|late",,"|
|000019c0| 3c 44 69 73 63 53 74 6f | 72 65 24 44 69 72 3e 2e |<DiscSto|re$Dir>.|
|000019d0| 54 65 6d 70 6c 61 74 65 | 73 22 0d 02 3a 13 44 53 |Template|s"..:.DS|
|000019e0| 70 74 72 25 3d 44 53 62 | 6c 6f 63 6b 25 0d 02 44 |ptr%=DSb|lock%..D|
|000019f0| 21 44 77 68 64 6c 25 3d | a4 54 65 6d 70 6c 61 74 |!Dwhdl%=|.Templat|
|00001a00| 65 28 22 44 69 73 63 53 | 74 6f 72 65 22 29 0d 02 |e("DiscS|tore")..|
|00001a10| 4e 1c 49 77 68 64 6c 25 | 3d a4 54 65 6d 70 6c 61 |N.Iwhdl%|=.Templa|
|00001a20| 74 65 28 22 49 6e 66 6f | 22 29 0d 02 58 1c 53 77 |te("Info|")..X.Sw|
|00001a30| 68 64 6c 25 3d a4 54 65 | 6d 70 6c 61 74 65 28 22 |hdl%=.Te|mplate("|
|00001a40| 73 61 76 65 22 29 0d 02 | 62 20 48 77 68 64 6c 25 |save")..|b Hwhdl%|
|00001a50| 3d a4 54 65 6d 70 6c 61 | 74 65 28 22 48 65 6c 70 |=.Templa|te("Help|
|00001a60| 57 69 6e 64 22 29 0d 02 | 6c 1b c8 99 20 22 57 69 |Wind")..|l... "Wi|
|00001a70| 6d 70 5f 43 6c 6f 73 65 | 54 65 6d 70 6c 61 74 65 |mp_Close|Template|
|00001a80| 22 0d 02 76 04 0d 02 80 | 0f f4 20 4d 61 69 6e 20 |"..v....|.. Main |
|00001a90| 4c 6f 6f 70 0d 02 8a 13 | ee 20 85 20 f2 57 69 6d |Loop....|. . .Wim|
|00001aa0| 70 5f 45 72 72 6f 72 0d | 02 94 22 57 69 6d 70 46 |p_Error.|.."WimpF|
|00001ab0| 69 6e 3d a3 3a 57 69 6d | 70 49 64 6c 65 3d a3 3a |in=.:Wim|pIdle=.:|
|00001ac0| 44 53 66 6c 61 67 25 3d | a3 0d 02 9e 2e e7 20 a9 |DSflag%=|...... .|
|00001ad0| 46 69 6c 65 24 3e 33 20 | 8c 20 f2 46 69 6c 65 52 |File$>3 |. .FileR|
|00001ae0| 65 61 64 28 46 69 6c 65 | 24 29 20 8b 20 f2 44 69 |ead(File|$) . .Di|
|00001af0| 73 63 53 74 6f 72 65 0d | 02 a8 27 e7 20 44 53 66 |scStore.|..'. DSf|
|00001b00| 6c 61 67 25 20 8c 20 f2 | 44 53 6d 65 6e 75 49 6e |lag% . .|DSmenuIn|
|00001b10| 69 74 20 8b 20 f2 4d 65 | 6e 75 49 6e 69 74 0d 02 |it . .Me|nuInit..|
|00001b20| b2 0e f2 57 69 6d 70 5f | 50 6f 6c 6c 0d 02 bc 1b |...Wimp_|Poll....|
|00001b30| f4 20 43 6c 6f 73 65 20 | 65 76 65 72 79 74 68 69 |. Close |everythi|
|00001b40| 6e 67 20 64 6f 77 6e 0d | 02 c6 27 c8 99 22 57 69 |ng down.|..'.."Wi|
|00001b50| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 22 3a f4 20 |mp_Close|Down":. |
|00001b60| 2c 54 61 73 6b 49 44 25 | 2c 21 74 61 73 6b 0d 02 |,TaskID%|,!task..|
|00001b70| d0 05 e0 0d 02 da 05 3a | 0d 02 e4 2f f4 20 20 2d |.......:|.../.  -|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 44 69 73 63 53 74 |--------|--DiscSt|
|00001b90| 6f 72 65 20 52 6f 75 74 | 69 6e 65 73 2d 2d 2d 2d |ore Rout|ines----|
|00001ba0| 2d 2d 2d 2d 2d 2d 2d 0d | 02 ee 40 f4 20 54 68 65 |-------.|..@. The|
|00001bb0| 73 65 20 61 72 65 20 75 | 73 65 64 20 69 66 20 44 |se are u|sed if D|
|00001bc0| 53 20 69 63 6f 6e 20 69 | 73 20 63 6c 69 63 6b 65 |S icon i|s clicke|
|00001bd0| 64 20 6f 6e 20 72 61 74 | 68 65 72 20 74 68 61 6e |d on rat|her than|
|00001be0| 20 61 20 66 69 6c 65 0d | 02 f8 05 3a 0d 03 02 0f | a file.|...:....|
|00001bf0| dd f2 44 69 73 63 53 74 | 6f 72 65 0d 03 0c 0d 44 |..DiscSt|ore....D|
|00001c00| 53 66 6c 61 67 25 3d b9 | 0d 03 16 10 de 20 54 65 |Sflag%=.|..... Te|
|00001c10| 78 74 25 20 31 35 30 30 | 0d 03 20 17 f4 20 4f 70 |xt% 1500|.. .. Op|
|00001c20| 65 6e 20 46 69 72 73 74 | 20 57 69 6e 64 6f 77 0d |en First| Window.|
|00001c30| 03 2a 14 57 69 6d 70 42 | 6c 6b 21 30 3d 44 77 68 |.*.WimpB|lk!0=Dwh|
|00001c40| 64 6c 25 0d 03 34 25 c8 | 99 20 22 57 69 6d 70 5f |dl%..4%.|. "Wimp_|
|00001c50| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00001c60| 2c 57 69 6d 70 42 6c 6b | 0d 03 3e 10 57 69 6d 70 |,WimpBlk|..>.Wimp|
|00001c70| 42 6c 6b 21 36 34 3d 31 | 0d 03 48 21 c8 99 20 22 |Blk!64=1|..H!.. "|
|00001c80| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00001c90| 2c 2c 57 69 6d 70 42 6c | 6b 0d 03 52 05 e1 0d 03 |,,WimpBl|k..R....|
|00001ca0| 5c 05 3a 0d 03 66 15 dd | a4 54 65 6d 70 6c 61 74 |\.:..f..|.Templat|
|00001cb0| 65 28 6e 61 6d 65 24 29 | 0d 03 70 4e c8 99 20 22 |e(name$)|..pN.. "|
|00001cc0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00001cd0| 65 22 2c 2c 57 69 6d 70 | 42 6c 6b 2c 44 53 70 74 |e",,Wimp|Blk,DSpt|
|00001ce0| 72 25 2c 44 53 62 6c 6f | 63 6b 25 2b 31 30 30 30 |r%,DSblo|ck%+1000|
|00001cf0| 2c 2d 31 2c 6e 61 6d 65 | 24 2c 30 20 b8 20 2c 2c |,-1,name|$,0 . ,,|
|00001d00| 44 53 70 74 72 25 0d 03 | 7a 28 c8 99 20 22 57 69 |DSptr%..|z(.. "Wi|
|00001d10| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00001d20| 2c 2c 57 69 6d 70 42 6c | 6b 20 b8 20 77 25 0d 03 |,,WimpBl|k . w%..|
|00001d30| 84 07 3d 77 25 0d 03 8e | 05 3a 0d 03 98 28 f4 20 |..=w%...|.:...(. |
|00001d40| 53 65 70 61 72 61 74 65 | 20 57 69 6d 70 20 61 63 |Separate| Wimp ac|
|00001d50| 74 69 6f 6e 73 20 66 6f | 72 20 74 68 69 73 20 62 |tions fo|r this b|
|00001d60| 69 74 0d 03 a2 0f dd f2 | 44 53 5f 41 63 74 69 6f |it......|DS_Actio|
|00001d70| 6e 0d 03 ac 14 c8 8e 20 | 57 69 6d 70 5f 72 65 61 |n...... |Wimp_rea|
|00001d80| 73 6f 6e 20 ca 0d 03 b6 | 1c 20 20 c9 20 31 20 20 |son ....|.  . 1  |
|00001d90| 20 20 20 3a 20 f2 57 69 | 6d 70 5f 52 65 64 72 61 |   : .Wi|mp_Redra|
|00001da0| 77 0d 03 c0 2d 20 20 c9 | 20 32 20 20 20 20 20 3a |w...-  .| 2     :|
|00001db0| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00001dc0| 6e 64 6f 77 22 2c 2c 57 | 69 6d 70 42 6c 6b 0d 03 |ndow",,W|impBlk..|
|00001dd0| ca 19 20 20 c9 20 33 20 | 20 20 20 20 3a 20 57 69 |..  . 3 |    : Wi|
|00001de0| 6d 70 46 69 6e 3d b9 0d | 03 d4 1b 20 20 c9 20 36 |mpFin=..|...  . 6|
|00001df0| 20 20 20 20 20 3a 20 f2 | 44 53 5f 42 75 74 74 6f |     : .|DS_Butto|
|00001e00| 6e 73 0d 03 de 1d 20 20 | c9 20 37 20 20 20 20 20 |ns....  |. 7     |
|00001e10| 3a 20 f2 57 69 6d 70 5f | 44 72 61 67 45 6e 64 0d |: .Wimp_|DragEnd.|
|00001e20| 03 e8 3d 20 20 c9 20 38 | 20 20 20 20 20 3a 20 e7 |..=  . 8|     : .|
|00001e30| 20 ac 20 a4 46 6f 72 5f | 55 73 20 8c 20 c8 99 20 | . .For_|Us . .. |
|00001e40| 22 57 69 6d 70 5f 50 72 | 6f 63 65 73 73 4b 65 79 |"Wimp_Pr|ocessKey|
|00001e50| 22 2c 57 69 6d 70 42 6c | 6b 21 32 34 0d 03 f2 0f |",WimpBl|k!24....|
|00001e60| 20 20 c9 20 39 20 20 20 | 20 20 3a 0d 03 fc 1a 20 |  . 9   |  :.... |
|00001e70| 20 c9 20 31 37 2c 31 38 | 20 3a 20 f2 57 69 6d 70 | . 17,18| : .Wimp|
|00001e80| 5f 4d 65 73 73 0d 04 06 | 07 20 20 cb 0d 04 10 05 |_Mess...|.  .....|
|00001e90| e1 0d 04 1a 05 3a 0d 04 | 24 1e dd f2 44 53 5f 42 |.....:..|$...DS_B|
|00001ea0| 75 74 74 6f 6e 73 3a ea | 20 77 68 64 6c 25 2c 77 |uttons:.| whdl%,w|
|00001eb0| 69 6e 64 25 0d 04 2e 37 | 62 75 74 74 6f 6e 25 3d |ind%...7|button%=|
|00001ec0| 57 69 6d 70 42 6c 6b 21 | 38 3a 77 68 64 6c 25 3d |WimpBlk!|8:whdl%=|
|00001ed0| 57 69 6d 70 42 6c 6b 21 | 31 32 3a 69 68 64 6c 25 |WimpBlk!|12:ihdl%|
|00001ee0| 3d 57 69 6d 70 42 6c 6b | 21 31 36 0d 04 38 21 e7 |=WimpBlk|!16..8!.|
|00001ef0| 20 a6 28 2d 31 29 20 8c | 20 53 68 69 66 74 25 3d | .(-1) .| Shift%=|
|00001f00| b9 20 8b 20 53 68 69 66 | 74 25 3d a3 0d 04 42 10 |. . Shif|t%=...B.|
|00001f10| c8 8e 20 62 75 74 74 6f | 6e 25 20 ca 0d 04 4c 26 |.. butto|n% ...L&|
|00001f20| 20 20 c9 20 20 32 20 20 | 20 20 20 20 3a 20 f2 44 |  .  2  |    : .D|
|00001f30| 53 6d 65 6e 75 28 77 68 | 64 6c 25 2c 69 68 64 6c |Smenu(wh|dl%,ihdl|
|00001f40| 25 29 0d 04 56 3c 20 20 | c9 20 20 31 2c 34 20 20 |%)..V<  |.  1,4  |
|00001f50| 20 20 3a 20 f2 4f 4b 28 | 77 68 64 6c 25 2c 69 68 |  : .OK(|whdl%,ih|
|00001f60| 64 6c 25 29 20 3a f4 20 | 73 65 65 20 69 66 20 4f |dl%) :. |see if O|
|00001f70| 4b 20 69 63 6f 6e 20 63 | 6c 69 63 6b 65 64 0d 04 |K icon c|licked..|
|00001f80| 60 2c 20 20 c9 20 31 36 | 2c 36 34 20 20 20 3a 20 |`,  . 16|,64   : |
|00001f90| f2 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 28 77 68 |.Wimp_Dr|agBox(wh|
|00001fa0| 64 6c 25 2c 69 68 64 6c | 25 29 0d 04 6a 07 20 20 |dl%,ihdl|%)..j.  |
|00001fb0| cb 0d 04 74 05 e1 0d 04 | 7e 05 3a 0d 04 88 10 dd |...t....|~.:.....|
|00001fc0| f2 44 53 6d 65 6e 75 49 | 6e 69 74 0d 04 92 1d 57 |.DSmenuI|nit....W|
|00001fd0| 6d 65 6e 75 24 28 30 2c | 30 2c 30 29 3d 22 44 69 |menu$(0,|0,0)="Di|
|00001fe0| 73 63 53 74 6f 72 65 22 | 0d 04 9c 35 57 6d 65 6e |scStore"|...5Wmen|
|00001ff0| 75 24 28 30 2c 31 2c 30 | 29 3d 22 49 6e 66 6f 22 |u$(0,1,0|)="Info"|
|00002000| 3a 57 6d 65 6e 75 24 28 | 30 2c 31 2c 32 29 3d 22 |:Wmenu$(|0,1,2)="|
|00002010| 57 49 4e 44 22 2b c3 49 | 77 68 64 6c 25 0d 04 a6 |WIND"+.I|whdl%...|
|00002020| 34 57 6d 65 6e 75 24 28 | 30 2c 32 2c 30 29 3d 22 |4Wmenu$(|0,2,0)="|
|00002030| 4e 65 77 22 3a 57 6d 65 | 6e 75 24 28 30 2c 32 2c |New":Wme|nu$(0,2,|
|00002040| 32 29 3d 22 57 49 4e 44 | 22 2b c3 53 77 68 64 6c |2)="WIND|"+.Swhdl|
|00002050| 25 0d 04 b0 05 e1 0d 04 | ba 05 3a 0d 04 c4 19 dd |%.......|..:.....|
|00002060| f2 44 53 6d 65 6e 75 28 | 77 68 64 6c 25 2c 69 68 |.DSmenu(|whdl%,ih|
|00002070| 64 6c 25 29 0d 04 ce 21 | f2 57 69 6d 70 5f 43 72 |dl%)...!|.Wimp_Cr|
|00002080| 65 61 74 65 4d 65 6e 75 | 28 77 69 6e 64 25 2c 69 |eateMenu|(wind%,i|
|00002090| 63 6f 6e 25 29 0d 04 d8 | 05 e1 0d 04 e2 05 3a 0d |con%)...|......:.|
|000020a0| 04 ec 18 dd a4 46 6f 72 | 5f 55 73 3a ea 20 70 74 |.....For|_Us:. pt|
|000020b0| 72 25 2c 74 78 74 24 0d | 04 f6 39 e7 20 57 69 6d |r%,txt$.|..9. Wim|
|000020c0| 70 42 6c 6b 21 30 3c 3e | 53 77 68 64 6c 25 20 84 |pBlk!0<>|Swhdl% .|
|000020d0| 20 57 69 6d 70 42 6c 6b | 21 32 34 3c 3e 26 44 20 | WimpBlk|!24<>&D |
|000020e0| 8c 3d a3 20 8b 20 f2 73 | 61 76 65 69 74 3a 3d b9 |.=. . .s|aveit:=.|
|000020f0| 0d 05 00 05 3a 0d 05 0a | 15 dd f2 4f 4b 28 77 68 |....:...|...OK(wh|
|00002100| 64 6c 25 2c 69 68 64 6c | 25 29 0d 05 14 34 e7 20 |dl%,ihdl|%)...4. |
|00002110| 77 68 64 6c 25 3d 53 77 | 68 64 6c 25 20 80 20 69 |whdl%=Sw|hdl% . i|
|00002120| 68 64 6c 25 3d 30 20 8c | 20 f2 73 61 76 65 69 74 |hdl%=0 .| .saveit|
|00002130| 20 3a f4 20 4f 4b 20 63 | 6c 69 63 6b 65 64 0d 05 | :. OK c|licked..|
|00002140| 1e 05 e1 0d 05 28 05 3a | 0d 05 32 25 f4 20 46 6f |.....(.:|..2%. Fo|
|00002150| 72 20 75 73 20 73 6f 20 | 67 65 74 20 74 68 65 20 |r us so |get the |
|00002160| 70 61 74 68 20 61 6e 64 | 20 73 61 76 65 0d 05 3c |path and| save..<|
|00002170| 1d dd f2 73 61 76 65 69 | 74 3a ea 20 53 74 61 72 |...savei|t:. Star|
|00002180| 74 25 2c 4c 65 6e 67 74 | 68 25 0d 05 46 20 57 69 |t%,Lengt|h%..F Wi|
|00002190| 6d 70 42 6c 6b 21 30 3d | 53 77 68 64 6c 25 3a 57 |mpBlk!0=|Swhdl%:W|
|000021a0| 69 6d 70 42 6c 6b 21 34 | 3d 32 0d 05 50 23 c8 99 |impBlk!4|=2..P#..|
|000021b0| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|000021c0| 61 74 65 22 2c 2c 57 69 | 6d 70 42 6c 6b 0d 05 5a |ate",,Wi|mpBlk..Z|
|000021d0| 4d e7 20 28 57 69 6d 70 | 42 6c 6b 21 32 34 20 80 |M. (Wimp|Blk!24 .|
|000021e0| 20 26 31 30 30 29 3d 30 | 20 8c 20 74 78 74 24 3d | &100)=0| . txt$=|
|000021f0| 24 28 57 69 6d 70 42 6c | 6b 2b 32 38 29 20 8b 20 |$(WimpBl|k+28) . |
|00002200| 70 74 72 25 3d 57 69 6d | 70 42 6c 6b 21 32 38 3a |ptr%=Wim|pBlk!28:|
|00002210| 74 78 74 24 3d 24 70 74 | 72 25 0d 05 64 12 e7 20 |txt$=$pt|r%..d.. |
|00002220| a7 74 78 74 24 2c 22 2e | 22 29 20 8c 0d 05 6e 15 |.txt$,".|") ...n.|
|00002230| 20 20 20 20 f2 44 53 73 | 61 76 65 28 74 78 74 24 |    .DSs|ave(txt$|
|00002240| 29 0d 05 78 07 20 20 cc | 0d 05 82 44 20 20 20 20 |)..x.  .|...D    |
|00002250| 24 57 69 6d 70 42 6c 6b | 3d 22 20 20 20 20 20 54 |$WimpBlk|="     T|
|00002260| 6f 20 73 61 76 65 2c 20 | 64 72 61 67 20 74 68 65 |o save, |drag the|
|00002270| 20 69 63 6f 6e 20 74 6f | 20 61 20 64 69 72 65 63 | icon to| a direc|
|00002280| 74 6f 72 79 20 76 69 65 | 77 65 72 22 0d 05 8c 31 |tory vie|wer"...1|
|00002290| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |    .. "|Wimp_Rep|
|000022a0| 6f 72 74 45 72 72 6f 72 | 22 2c 57 69 6d 70 42 6c |ortError|",WimpBl|
|000022b0| 6b 2c 31 2c 54 61 73 6b | 4e 61 6d 65 24 0d 05 96 |k,1,Task|Name$...|
|000022c0| 07 20 20 cd 0d 05 a0 14 | f4 20 43 6c 6f 73 65 20 |.  .....|. Close |
|000022d0| 74 68 65 20 6d 65 6e 75 | 0d 05 aa 1b c8 99 20 22 |the menu|...... "|
|000022e0| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|000022f0| 2c 2d 31 0d 05 b4 05 e1 | 0d 05 be 05 3a 0d 05 c8 |,-1.....|....:...|
|00002300| 14 dd f2 44 53 73 61 76 | 65 28 66 6e 61 6d 65 24 |...DSsav|e(fname$|
|00002310| 29 0d 05 d2 1d f2 44 53 | 43 72 65 61 74 65 28 53 |).....DS|Create(S|
|00002320| 74 61 72 74 25 2c 4c 65 | 6e 67 74 68 25 29 0d 05 |tart%,Le|ngth%)..|
|00002330| dc 44 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 31 |.D.. "OS|_File",1|
|00002340| 30 2c 66 6e 61 6d 65 24 | 2c 44 69 73 63 53 74 6f |0,fname$|,DiscSto|
|00002350| 72 65 46 69 6c 65 54 79 | 70 65 25 2c 2c 53 74 61 |reFileTy|pe%,,Sta|
|00002360| 72 74 25 2c 53 74 61 72 | 74 25 2b 4c 65 6e 67 74 |rt%,Star|t%+Lengt|
|00002370| 68 25 0d 05 e6 05 e1 0d | 05 f0 05 3a 0d 05 fa 24 |h%......|...:...$|
|00002380| f4 20 43 72 65 61 74 65 | 20 61 6e 20 65 6d 70 74 |. Create| an empt|
|00002390| 79 20 44 69 73 63 53 74 | 6f 72 65 20 46 69 6c 65 |y DiscSt|ore File|
|000023a0| 0d 06 04 2f dd f2 44 53 | 43 72 65 61 74 65 28 f8 |.../..DS|Create(.|
|000023b0| 20 53 74 61 72 74 25 2c | f8 20 6c 65 6e 25 29 3a | Start%,|. len%):|
|000023c0| ea 20 74 70 25 3a 74 70 | 25 3d 54 65 78 74 25 0d |. tp%:tp|%=Text%.|
|000023d0| 06 0e 0e 53 74 61 72 74 | 25 3d 74 70 25 0d 06 18 |...Start|%=tp%...|
|000023e0| 33 48 65 61 64 65 72 24 | 3d c0 56 65 72 73 69 6f |3Header$|=.Versio|
|000023f0| 6e 24 2b 22 20 20 22 2b | 53 65 72 69 61 6c 24 2b |n$+"  "+|Serial$+|
|00002400| c4 39 39 2c 22 20 22 29 | 2c 39 39 29 2b bd 26 41 |.99," ")|,99)+.&A|
|00002410| 0d 06 22 1e 24 74 70 25 | 3d 48 65 61 64 65 72 24 |..".$tp%|=Header$|
|00002420| 3a 74 70 25 2b 3d a9 48 | 65 61 64 65 72 24 0d 06 |:tp%+=.H|eader$..|
|00002430| 2c 35 e3 20 69 25 3d 31 | 20 b8 20 32 30 30 3a 24 |,5. i%=1| . 200:$|
|00002440| 74 70 25 3d 22 30 30 30 | 30 22 3a 74 70 25 2b 3d |tp%="000|0":tp%+=|
|00002450| 34 3a ed 3a 24 74 70 25 | 3d bd 26 41 3a 74 70 25 |4:.:$tp%|=.&A:tp%|
|00002460| 2b 3d 31 0d 06 36 1e 74 | 25 3d 74 70 25 3a 52 65 |+=1..6.t|%=tp%:Re|
|00002470| 63 24 3d 22 31 30 30 30 | 2c 30 30 32 22 2b bd 26 |c$="1000|,002"+.&|
|00002480| 41 0d 06 40 33 74 70 25 | 3d 54 65 78 74 25 2b a9 |A..@3tp%|=Text%+.|
|00002490| 48 65 61 64 65 72 24 3a | 24 74 70 25 3d a4 44 53 |Header$:|$tp%=.DS|
|000024a0| 73 74 72 28 74 25 2d 54 | 65 78 74 25 29 3a 74 70 |str(t%-T|ext%):tp|
|000024b0| 25 3d 74 25 0d 06 4a 18 | 24 74 70 25 3d 52 65 63 |%=t%..J.|$tp%=Rec|
|000024c0| 24 3a 74 70 25 2b 3d a9 | 52 65 63 24 0d 06 54 1e |$:tp%+=.|Rec$..T.|
|000024d0| 74 25 3d 74 70 25 3a 52 | 65 63 24 3d 22 39 39 39 |t%=tp%:R|ec$="999|
|000024e0| 39 2c 30 30 31 22 2b bd | 26 41 0d 06 5e 40 74 70 |9,001"+.|&A..^@tp|
|000024f0| 25 3d 54 65 78 74 25 2b | a9 48 65 61 64 65 72 24 |%=Text%+|.Header$|
|00002500| 2b 34 3a 24 74 70 25 3d | a4 44 53 73 74 72 28 74 |+4:$tp%=|.DSstr(t|
|00002510| 25 2d 54 65 78 74 25 29 | 3a 74 70 25 3f 34 3d 97 |%-Text%)|:tp%?4=.|
|00002520| 22 30 22 3a 74 70 25 3d | 74 25 0d 06 68 28 24 74 |"0":tp%=|t%..h($t|
|00002530| 70 25 3d 52 65 63 24 3a | 74 70 25 2b 3d a9 52 65 |p%=Rec$:|tp%+=.Re|
|00002540| 63 24 3a 6c 65 6e 25 3d | 74 70 25 2d 53 74 61 72 |c$:len%=|tp%-Star|
|00002550| 74 25 0d 06 72 05 e1 0d | 06 7c 05 3a 0d 06 86 1f |t%..r...|.|.:....|
|00002560| dd a4 44 53 73 74 72 28 | 74 25 29 3d c2 22 30 30 |..DSstr(|t%)=."00|
|00002570| 30 30 22 2b c3 7e 74 25 | 2c 34 29 0d 06 90 04 0d |00"+.~t%|,4).....|
|00002580| 06 9a 05 3a 0d 06 a4 2e | f4 20 2d 2d 2d 2d 2d 2d |...:....|. ------|
|00002590| 2d 2d 2d 57 69 6d 70 20 | 48 61 6e 64 6c 69 6e 67 |---Wimp |Handling|
|000025a0| 20 52 6f 75 74 69 6e 65 | 73 2d 2d 2d 2d 2d 2d 2d | Routine|s-------|
|000025b0| 2d 2d 0d 06 ae 05 3a 0d | 06 b8 0f dd f2 57 69 6d |--....:.|.....Wim|
|000025c0| 70 5f 50 6f 6c 6c 0d 06 | c2 12 f4 20 20 20 31 31 |p_Poll..|...   11|
|000025d0| 31 31 31 31 31 31 31 31 | 0d 06 cc 1c f4 20 20 20 |11111111|.....   |
|000025e0| 39 38 37 36 35 34 33 32 | 31 30 39 38 37 36 35 34 |98765432|10987654|
|000025f0| 33 32 31 30 0d 06 d6 1e | 6d 61 73 6b 3d 25 31 30 |3210....|mask=%10|
|00002600| 30 30 30 30 30 31 31 30 | 30 30 30 30 31 31 30 30 |00000110|00001100|
|00002610| 30 31 0d 06 e0 0e f4 20 | 57 70 74 72 24 3d 22 22 |01..... |Wptr$=""|
|00002620| 0d 06 ea 0d f4 20 50 52 | 4f 43 73 65 63 0d 06 f4 |..... PR|OCsec...|
|00002630| 05 f5 0d 06 fe 30 20 20 | 20 c8 99 20 22 57 69 6d |.....0  | .. "Wim|
|00002640| 70 5f 50 6f 6c 6c 22 2c | 6d 61 73 6b 2c 57 69 6d |p_Poll",|mask,Wim|
|00002650| 70 42 6c 6b 20 b8 20 57 | 69 6d 70 5f 72 65 61 73 |pBlk . W|imp_reas|
|00002660| 6f 6e 0d 07 08 2e 20 20 | 20 e7 20 ac 20 44 53 66 |on....  | . . DSf|
|00002670| 6c 61 67 25 20 8c 20 f2 | 57 69 6d 70 5f 41 63 74 |lag% . .|Wimp_Act|
|00002680| 69 6f 6e 20 8b 20 f2 44 | 53 5f 41 63 74 69 6f 6e |ion . .D|S_Action|
|00002690| 0d 07 12 10 20 20 20 fd | 20 57 69 6d 70 46 69 6e |....   .| WimpFin|
|000026a0| 0d 07 1c 05 e1 0d 07 26 | 05 3a 0d 07 30 2b f4 20 |.......&|.:..0+. |
|000026b0| 47 69 76 65 20 63 6f 6e | 74 72 6f 6c 20 62 61 63 |Give con|trol bac|
|000026c0| 6b 20 74 6f 20 57 69 6d | 70 20 74 65 6d 70 6f 72 |k to Wim|p tempor|
|000026d0| 61 72 69 6c 79 0d 07 3a | 27 dd f2 57 69 6d 70 5f |arily..:|'..Wimp_|
|000026e0| 57 61 69 74 3a ea 20 6d | 61 73 6b 2c 74 69 6d 65 |Wait:. m|ask,time|
|000026f0| 2c 57 69 6d 70 5f 72 65 | 61 73 6f 6e 0d 07 44 1e |,Wimp_re|ason..D.|
|00002700| 6d 61 73 6b 3d 25 31 30 | 30 30 30 30 30 31 31 30 |mask=%10|00000110|
|00002710| 30 30 30 30 31 31 30 30 | 30 30 0d 07 4e 24 c8 99 |00001100|00..N$..|
|00002720| 20 22 4f 53 5f 52 65 61 | 64 4d 6f 6e 6f 74 6f 6e | "OS_Rea|dMonoton|
|00002730| 69 63 54 69 6d 65 22 20 | b8 20 74 69 6d 65 0d 07 |icTime" |. time..|
|00002740| 58 05 f5 0d 07 62 3d 20 | 20 20 c8 99 20 22 57 69 |X....b= |  .. "Wi|
|00002750| 6d 70 5f 50 6f 6c 6c 49 | 64 6c 65 22 2c 6d 61 73 |mp_PollI|dle",mas|
|00002760| 6b 2c 57 69 6d 70 42 6c | 6b 2c 74 69 6d 65 2b 31 |k,WimpBl|k,time+1|
|00002770| 30 30 20 b8 20 57 69 6d | 70 5f 72 65 61 73 6f 6e |00 . Wim|p_reason|
|00002780| 0d 07 6c 13 20 20 20 f2 | 57 69 6d 70 5f 41 63 74 |..l.   .|Wimp_Act|
|00002790| 69 6f 6e 0d 07 76 1b 20 | 20 20 fd 20 57 69 6d 70 |ion..v. |  . Wimp|
|000027a0| 49 64 6c 65 20 84 20 57 | 69 6d 70 46 69 6e 0d 07 |Idle . W|impFin..|
|000027b0| 80 30 e7 20 57 69 6d 70 | 46 69 6e 20 8c 20 c8 99 |.0. Wimp|Fin . ..|
|000027c0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|000027d0| 2c 54 61 73 6b 49 44 25 | 2c 21 74 61 73 6b 0d 07 |,TaskID%|,!task..|
|000027e0| 8a 05 e1 0d 07 94 05 3a | 0d 07 9e 11 dd f2 57 69 |.......:|......Wi|
|000027f0| 6d 70 5f 41 63 74 69 6f | 6e 0d 07 a8 14 c8 8e 20 |mp_Actio|n...... |
|00002800| 57 69 6d 70 5f 72 65 61 | 73 6f 6e 20 ca 0d 07 b2 |Wimp_rea|son ....|
|00002810| 1a 20 20 c9 20 30 20 20 | 20 20 20 3a 20 57 69 6d |.  . 0  |   : Wim|
|00002820| 70 49 64 6c 65 3d b9 0d | 07 bc 1c 20 20 c9 20 31 |pIdle=..|...  . 1|
|00002830| 20 20 20 20 20 3a 20 f2 | 57 69 6d 70 5f 52 65 64 |     : .|Wimp_Red|
|00002840| 72 61 77 0d 07 c6 2d 20 | 20 c9 20 32 20 20 20 20 |raw...- | . 2    |
|00002850| 20 3a 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e | : .. "W|imp_Open|
|00002860| 57 69 6e 64 6f 77 22 2c | 2c 57 69 6d 70 42 6c 6b |Window",|,WimpBlk|
|00002870| 0d 07 d0 24 20 20 c9 20 | 33 20 20 20 20 20 3a 20 |...$  . |3     : |
|00002880| e7 20 57 69 6d 70 42 6c | 6b 21 30 3d 48 77 68 64 |. WimpBl|k!0=Hwhd|
|00002890| 6c 25 20 8c 0d 07 da 33 | 20 20 20 20 20 20 20 20 |l% ....3|        |
|000028a0| 20 20 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |        | .. "Wim|
|000028b0| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|000028c0| 57 69 6d 70 42 6c 6b 0d | 07 e4 15 20 20 20 20 20 |WimpBlk.|...     |
|000028d0| 20 20 20 20 20 20 20 20 | 20 20 20 cc 0d 07 ee 34 |        |   ....4|
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000028f0| 20 c8 99 20 22 57 69 6d | 70 5f 44 65 6c 65 74 65 | .. "Wim|p_Delete|
|00002900| 57 69 6e 64 6f 77 22 2c | 2c 57 69 6d 70 42 6c 6b |Window",|,WimpBlk|
|00002910| 0d 07 f8 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |...*    |        |
|00002920| 20 20 20 20 20 f2 43 6c | 6f 73 65 57 69 6e 64 28 |     .Cl|oseWind(|
|00002930| 57 69 6d 70 42 6c 6b 21 | 30 29 0d 08 02 15 20 20 |WimpBlk!|0)....  |
|00002940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 cd 0d |        |      ..|
|00002950| 08 0c 1d 20 20 c9 20 36 | 20 20 20 20 20 3a 20 f2 |...  . 6|     : .|
|00002960| 57 69 6d 70 5f 42 75 74 | 74 6f 6e 73 0d 08 16 1d |Wimp_But|tons....|
|00002970| 20 20 c9 20 37 20 20 20 | 20 20 3a 20 f2 57 69 6d |  . 7   |  : .Wim|
|00002980| 70 5f 44 72 61 67 45 6e | 64 0d 08 20 2f 20 20 c9 |p_DragEn|d.. /  .|
|00002990| 20 38 20 20 20 20 20 3a | 20 c8 99 20 22 57 69 6d | 8     :| .. "Wim|
|000029a0| 70 5f 50 72 6f 63 65 73 | 73 4b 65 79 22 2c 57 69 |p_Proces|sKey",Wi|
|000029b0| 6d 70 42 6c 6b 21 32 34 | 0d 08 2a 20 20 20 c9 20 |mpBlk!24|..*   . |
|000029c0| 39 20 20 20 20 20 3a 20 | f2 57 69 6d 70 5f 4d 65 |9     : |.Wimp_Me|
|000029d0| 6e 75 53 65 6c 65 63 74 | 0d 08 34 1a 20 20 c9 20 |nuSelect|..4.  . |
|000029e0| 31 37 2c 31 38 20 3a 20 | f2 57 69 6d 70 5f 4d 65 |17,18 : |.Wimp_Me|
|000029f0| 73 73 0d 08 3e 44 20 20 | c9 20 31 39 20 20 20 20 |ss..>D  |. 19    |
|00002a00| 3a 20 f2 57 69 6d 70 5f | 4d 65 73 73 41 63 6b 20 |: .Wimp_|MessAck |
|00002a10| 3a f4 20 6e 6f 72 6d 61 | 6c 6c 79 20 57 69 6d 70 |:. norma|lly Wimp|
|00002a20| 20 73 61 79 69 6e 67 20 | 6d 65 73 73 61 67 65 20 | saying |message |
|00002a30| 66 61 69 6c 65 64 0d 08 | 48 07 20 20 cb 0d 08 52 |failed..|H.  ...R|
|00002a40| 05 e1 0d 08 5c 04 0d 08 | 66 41 f4 20 49 66 20 6f |....\...|fA. If o|
|00002a50| 6e 6c 79 20 49 63 6f 6e | 73 20 75 73 65 64 20 74 |nly Icon|s used t|
|00002a60| 68 65 6e 20 74 68 65 20 | 57 69 6d 70 20 73 68 6f |hen the |Wimp sho|
|00002a70| 75 6c 64 20 6e 6f 74 20 | 69 73 73 75 65 20 74 68 |uld not |issue th|
|00002a80| 69 73 20 63 61 6c 6c 0d | 08 70 18 dd f2 57 69 6d |is call.|.p...Wim|
|00002a90| 70 5f 52 65 64 72 61 77 | 3a ea 20 6d 6f 72 65 0d |p_Redraw|:. more.|
|00002aa0| 08 7a 29 c8 99 22 57 69 | 6d 70 5f 52 65 64 72 61 |.z).."Wi|mp_Redra|
|00002ab0| 77 57 69 6e 64 6f 77 22 | 2c 2c 57 69 6d 70 42 6c |wWindow"|,,WimpBl|
|00002ac0| 6b 20 b8 20 6d 6f 72 65 | 0d 08 84 0b c8 95 20 6d |k . more|...... m|
|00002ad0| 6f 72 65 0d 08 8e 32 20 | 20 20 f4 20 43 61 6c 6c |ore...2 |  . Call|
|00002ae0| 20 41 70 70 6c 69 63 61 | 74 69 6f 6e 20 70 72 6f | Applica|tion pro|
|00002af0| 63 65 64 75 72 65 20 74 | 6f 20 64 72 61 77 20 77 |cedure t|o draw w|
|00002b00| 69 6e 64 6f 77 0d 08 98 | 2c 20 20 20 c8 99 22 57 |indow...|,   .."W|
|00002b10| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00002b20| 22 2c 2c 57 69 6d 70 42 | 6c 6b 20 b8 20 6d 6f 72 |",,WimpB|lk . mor|
|00002b30| 65 0d 08 a2 08 20 20 20 | ce 0d 08 ac 05 e1 0d 08 |e....   |........|
|00002b40| b6 05 3a 0d 08 c0 20 dd | f2 57 69 6d 70 5f 42 75 |..:... .|.Wimp_Bu|
|00002b50| 74 74 6f 6e 73 3a ea 20 | 77 68 64 6c 25 2c 77 69 |ttons:. |whdl%,wi|
|00002b60| 6e 64 25 0d 08 ca 37 62 | 75 74 74 6f 6e 25 3d 57 |nd%...7b|utton%=W|
|00002b70| 69 6d 70 42 6c 6b 21 38 | 3a 77 68 64 6c 25 3d 57 |impBlk!8|:whdl%=W|
|00002b80| 69 6d 70 42 6c 6b 21 31 | 32 3a 69 68 64 6c 25 3d |impBlk!1|2:ihdl%=|
|00002b90| 57 69 6d 70 42 6c 6b 21 | 31 36 0d 08 d4 1e 43 75 |WimpBlk!|16....Cu|
|00002ba0| 72 57 69 6e 64 6f 77 25 | 3d a4 57 69 6e 64 4e 75 |rWindow%|=.WindNu|
|00002bb0| 6d 28 77 68 64 6c 25 29 | 0d 08 de 21 e7 20 a6 28 |m(whdl%)|...!. .(|
|00002bc0| 2d 31 29 20 8c 20 53 68 | 69 66 74 25 3d b9 20 8b |-1) . Sh|ift%=. .|
|00002bd0| 20 53 68 69 66 74 25 3d | a3 0d 08 e8 10 c8 8e 20 | Shift%=|....... |
|00002be0| 62 75 74 74 6f 6e 25 20 | ca 0d 08 f2 1d 20 20 c9 |button% |.....  .|
|00002bf0| 20 20 32 20 20 20 20 20 | 20 3a 20 e7 20 44 53 66 |  2     | : . DSf|
|00002c00| 6c 61 67 25 20 8c 0d 08 | fc 2c 20 20 20 20 20 20 |lag% ...|.,      |
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 44 |        |      .D|
|00002c20| 53 6d 65 6e 75 28 77 68 | 64 6c 25 2c 69 68 64 6c |Smenu(wh|dl%,ihdl|
|00002c30| 25 29 0d 09 06 17 20 20 | 20 20 20 20 20 20 20 20 |%)....  |        |
|00002c40| 20 20 20 20 20 20 20 20 | cc 0d 09 10 3c 20 20 20 |        |....<   |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c60| 20 e7 20 4f 62 6a 53 65 | 6c 25 3d 30 20 8c 20 f2 | . ObjSe|l%=0 . .|
|00002c70| 53 65 6c 65 63 74 49 74 | 28 77 68 64 6c 25 2c 69 |SelectIt|(whdl%,i|
|00002c80| 68 64 6c 25 29 0d 09 1a | 2f 20 20 20 20 20 20 20 |hdl%)...|/       |
|00002c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 4d 65 |        |     .Me|
|00002ca0| 6e 75 53 65 74 75 70 28 | 77 68 64 6c 25 2c 69 68 |nuSetup(|whdl%,ih|
|00002cb0| 64 6c 25 29 0d 09 24 17 | 20 20 20 20 20 20 20 20 |dl%)..$.|        |
|00002cc0| 20 20 20 20 20 20 20 20 | 20 20 cd 0d 09 2e 32 20 |        |  ....2 |
|00002cd0| 20 c9 20 20 31 2c 34 20 | 20 20 20 3a 20 f2 44 6f | .  1,4 |   : .Do|
|00002ce0| 75 62 6c 65 43 6c 69 63 | 6b 28 77 68 64 6c 25 2c |ubleClic|k(whdl%,|
|00002cf0| 69 68 64 6c 25 2c 53 68 | 69 66 74 25 29 0d 09 38 |ihdl%,Sh|ift%)..8|
|00002d00| 2c 20 20 c9 20 31 36 2c | 36 34 20 20 20 3a 20 f2 |,  . 16,|64   : .|
|00002d10| 57 69 6d 70 5f 44 72 61 | 67 42 6f 78 28 77 68 64 |Wimp_Dra|gBox(whd|
|00002d20| 6c 25 2c 69 68 64 6c 25 | 29 0d 09 42 28 20 20 c9 |l%,ihdl%|)..B(  .|
|00002d30| 20 32 35 36 2c 31 30 32 | 34 3a 20 f2 53 65 6c 65 | 256,102|4: .Sele|
|00002d40| 63 74 49 74 28 77 68 64 | 6c 25 2c 69 68 64 6c 25 |ctIt(whd|l%,ihdl%|
|00002d50| 29 0d 09 4c 04 0d 09 56 | 07 20 20 cb 0d 09 60 05 |)..L...V|.  ...`.|
|00002d60| e1 0d 09 6a 05 3a 0d 09 | 74 25 dd f2 44 6f 75 62 |...j.:..|t%..Doub|
|00002d70| 6c 65 43 6c 69 63 6b 28 | 77 68 64 6c 25 2c 69 68 |leClick(|whdl%,ih|
|00002d80| 64 6c 25 2c 53 68 69 66 | 74 25 29 0d 09 7e 1e 6f |dl%,Shif|t%)..~.o|
|00002d90| 62 6a 25 3d a4 49 63 6f | 6e 4f 62 6a 28 69 68 64 |bj%=.Ico|nObj(ihd|
|00002da0| 6c 25 2c 77 68 64 6c 25 | 29 0d 09 88 39 6e 61 6d |l%,whdl%|)...9nam|
|00002db0| 65 24 3d a4 44 69 72 4f | 62 6a 44 65 74 61 69 6c |e$=.DirO|bjDetail|
|00002dc0| 28 6f 62 6a 25 2c 54 79 | 70 65 25 2c 53 69 7a 65 |(obj%,Ty|pe%,Size|
|00002dd0| 25 2c 44 61 74 65 25 2c | 46 69 6c 65 50 61 74 68 |%,Date%,|FilePath|
|00002de0| 24 29 0d 09 92 0e c8 8e | 20 54 79 70 65 25 20 ca |$)......| Type% .|
|00002df0| 0d 09 9c 10 20 20 c9 20 | 26 32 30 30 30 20 20 3a |....  . |&2000  :|
|00002e00| 0d 09 a6 43 20 20 20 20 | e7 20 53 68 69 66 74 25 |...C    |. Shift%|
|00002e10| 20 8c 20 f2 57 69 6e 64 | 4e 65 77 44 69 72 28 6f | . .Wind|NewDir(o|
|00002e20| 62 6a 25 2c a4 4e 65 77 | 50 61 74 68 28 77 68 64 |bj%,.New|Path(whd|
|00002e30| 6c 25 2c 6e 61 6d 65 24 | 29 29 20 8b 20 f2 52 75 |l%,name$|)) . .Ru|
|00002e40| 6e 49 74 0d 09 b0 38 20 | 20 c9 20 26 31 30 30 30 |nIt...8 | . &1000|
|00002e50| 20 20 3a 20 f2 57 69 6e | 64 4e 65 77 44 69 72 28 |  : .Win|dNewDir(|
|00002e60| 6f 62 6a 25 2c a4 4e 65 | 77 50 61 74 68 28 77 68 |obj%,.Ne|wPath(wh|
|00002e70| 64 6c 25 2c 6e 61 6d 65 | 24 29 29 0d 09 ba 12 20 |dl%,name|$)).... |
|00002e80| 20 7f 20 20 20 3a 20 f2 | 52 75 6e 49 74 0d 09 c4 | .   : .|RunIt...|
|00002e90| 07 20 20 cb 0d 09 ce 05 | e1 0d 09 d8 05 3a 0d 09 |.  .....|.....:..|
|00002ea0| e2 0b dd f2 52 75 6e 49 | 74 0d 09 ec 4a f4 20 50 |....RunI|t...J. P|
|00002eb0| 52 4f 43 49 64 72 61 77 | 28 77 68 64 6c 25 2c 69 |ROCIdraw|(whdl%,i|
|00002ec0| 68 64 6c 25 29 3a 52 45 | 4d 20 64 6f 65 73 6e 74 |hdl%):RE|M doesnt|
|00002ed0| 20 77 6f 72 6b 2c 20 77 | 72 6f 6e 67 20 6f 72 69 | work, w|rong ori|
|00002ee0| 67 69 6e 20 66 6f 72 20 | 70 61 72 61 6d 65 74 65 |gin for |paramete|
|00002ef0| 72 73 3f 0d 09 f6 38 f4 | 20 54 72 79 20 61 20 62 |rs?...8.| Try a b|
|00002f00| 72 6f 61 64 63 61 73 74 | 20 6d 65 73 73 61 67 65 |roadcast| message|
|00002f10| 20 74 6f 20 73 65 65 20 | 69 66 20 61 6e 79 6f 6e | to see |if anyon|
|00002f20| 65 20 63 6c 61 69 6d 73 | 20 69 74 0d 0a 00 2b 57 |e claims| it...+W|
|00002f30| 69 6d 70 42 6c 6b 21 30 | 3d 31 32 38 3a 57 69 6d |impBlk!0|=128:Wim|
|00002f40| 70 42 6c 6b 21 31 32 3d | 30 3a 57 69 6d 70 42 6c |pBlk!12=|0:WimpBl|
|00002f50| 6b 21 31 36 3d 35 0d 0a | 0a 3d 57 69 6d 70 42 6c |k!16=5..|.=WimpBl|
|00002f60| 6b 21 32 30 3d 77 68 64 | 6c 25 3a 57 69 6d 70 42 |k!20=whd|l%:WimpB|
|00002f70| 6c 6b 21 32 38 3d 31 30 | 3a 57 69 6d 70 42 6c 6b |lk!28=10|:WimpBlk|
|00002f80| 21 33 32 3d 31 30 3a 57 | 69 6d 70 42 6c 6b 21 33 |!32=10:W|impBlk!3|
|00002f90| 36 3d 30 0d 0a 14 2f 57 | 69 6d 70 42 6c 6b 21 34 |6=0.../W|impBlk!4|
|00002fa0| 30 3d 54 79 70 65 25 3a | 24 28 57 69 6d 70 42 6c |0=Type%:|$(WimpBl|
|00002fb0| 6b 2b 34 34 29 3d 46 69 | 6c 65 50 61 74 68 24 2b |k+44)=Fi|lePath$+|
|00002fc0| bd 30 0d 0a 1e 26 c8 99 | 20 22 57 69 6d 70 5f 53 |.0...&..| "Wimp_S|
|00002fd0| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 38 2c 57 |endMessa|ge",18,W|
|00002fe0| 69 6d 70 42 6c 6b 2c 30 | 0d 0a 28 38 4d 65 73 73 |impBlk,0|..(8Mess|
|00002ff0| 49 64 25 3d 57 69 6d 70 | 42 6c 6b 21 38 3a e7 20 |Id%=Wimp|Blk!8:. |
|00003000| 57 69 6d 70 42 6c 6b 21 | 34 3c 3e 54 61 73 6b 49 |WimpBlk!|4<>TaskI|
|00003010| 44 25 20 8c 20 f2 66 61 | 74 61 6c 28 31 30 32 29 |D% . .fa|tal(102)|
|00003020| 0d 0a 32 17 f2 64 65 62 | 75 67 28 32 2c 46 69 6c |..2..deb|ug(2,Fil|
|00003030| 65 50 61 74 68 24 29 0d | 0a 3c 4b f4 20 57 61 69 |ePath$).|.<K. Wai|
|00003040| 74 20 73 68 6f 75 6c 64 | 6e 74 20 62 65 20 6e 65 |t should|nt be ne|
|00003050| 65 64 65 64 2c 20 62 75 | 74 20 57 69 6d 70 20 6e |eded, bu|t Wimp n|
|00003060| 6f 74 20 72 65 74 75 72 | 6e 69 6e 67 20 62 72 6f |ot retur|ning bro|
|00003070| 61 64 63 61 73 74 20 61 | 73 20 63 6f 64 65 20 31 |adcast a|s code 1|
|00003080| 39 21 0d 0a 46 38 4c 6f | 61 64 41 63 6b 46 6c 61 |9!..F8Lo|adAckFla|
|00003090| 67 25 3d a3 3a f2 57 69 | 6d 70 5f 57 61 69 74 3a |g%=.:.Wi|mp_Wait:|
|000030a0| e7 20 ac 20 4c 6f 61 64 | 41 63 6b 46 6c 61 67 25 |. . Load|AckFlag%|
|000030b0| 20 8c 20 f2 52 75 6e 49 | 74 32 0d 0a 50 05 e1 0d | . .RunI|t2..P...|
|000030c0| 0a 5a 05 3a 0d 0a 64 41 | f4 20 4e 6f 77 20 77 61 |.Z.:..dA|. Now wa|
|000030d0| 69 74 2c 20 57 69 6d 70 | 20 77 69 6c 6c 20 72 65 |it, Wimp| will re|
|000030e0| 74 75 72 6e 20 6d 65 73 | 73 20 63 6f 64 65 20 31 |turn mes|s code 1|
|000030f0| 39 20 69 66 20 6e 6f 20 | 6f 6e 65 20 63 6c 61 69 |9 if no |one clai|
|00003100| 6d 73 20 69 74 0d 0a 6e | 35 f4 20 44 6f 65 73 20 |ms it..n|5. Does |
|00003110| 6e 6f 74 20 73 65 65 6d | 20 74 6f 20 77 6f 72 6b |not seem| to work|
|00003120| 21 21 20 73 6f 20 66 6f | 72 63 65 64 20 74 6f 20 |!! so fo|rced to |
|00003130| 75 73 65 20 61 20 57 61 | 69 74 0d 0a 78 04 0d 0a |use a Wa|it..x...|
|00003140| 82 0c dd f2 52 75 6e 49 | 74 32 0d 0a 8c 27 f4 20 |....RunI|t2...'. |
|00003150| 4e 6f 20 6f 6e 65 20 63 | 6c 61 69 6d 65 64 20 69 |No one c|laimed i|
|00003160| 74 2c 20 73 74 61 72 74 | 20 6e 65 77 20 74 61 73 |t, start| new tas|
|00003170| 6b 0d 0a 96 20 24 57 69 | 6d 70 42 6c 6b 3d 22 52 |k... $Wi|mpBlk="R|
|00003180| 55 4e 20 22 2b 46 69 6c | 65 50 61 74 68 24 2b bd |UN "+Fil|ePath$+.|
|00003190| 30 0d 0a a0 20 c8 99 20 | 22 57 69 6d 70 5f 53 74 |0... .. |"Wimp_St|
|000031a0| 61 72 74 54 61 73 6b 22 | 2c 20 57 69 6d 70 42 6c |artTask"|, WimpBl|
|000031b0| 6b 0d 0a aa 17 f2 64 65 | 62 75 67 28 33 2c 46 69 |k.....de|bug(3,Fi|
|000031c0| 6c 65 50 61 74 68 24 29 | 0d 0a b4 05 e1 0d 0a be |lePath$)|........|
|000031d0| 05 3a 0d 0a c8 1a dd a4 | 4e 65 77 50 61 74 68 28 |.:......|NewPath(|
|000031e0| 77 68 64 6c 25 2c 6e 61 | 6d 65 24 29 0d 0a d2 34 |whdl%,na|me$)...4|
|000031f0| 3d a4 73 74 72 69 6e 67 | 30 28 57 5f 74 69 74 6c |=.string|0(W_titl|
|00003200| 65 2b 31 30 30 2a a4 57 | 69 6e 64 4e 75 6d 28 77 |e+100*.W|indNum(w|
|00003210| 68 64 6c 25 29 29 2b 22 | 2e 22 2b 6e 61 6d 65 24 |hdl%))+"|."+name$|
|00003220| 0d 0a dc 05 3a 0d 0a e6 | 1b dd f2 53 65 6c 65 63 |....:...|...Selec|
|00003230| 74 49 74 28 77 68 64 6c | 25 2c 69 68 64 6c 25 29 |tIt(whdl|%,ihdl%)|
|00003240| 0d 0a f0 22 f4 20 43 6c | 65 61 72 20 61 6e 79 20 |...". Cl|ear any |
|00003250| 70 72 65 76 69 6f 75 73 | 20 73 65 6c 65 63 74 69 |previous| selecti|
|00003260| 6f 6e 0d 0a fa 12 e7 20 | 4f 62 6a 53 65 6c 25 3c |on..... |ObjSel%<|
|00003270| 3e 30 20 8c 0d 0b 04 2d | 20 20 20 20 42 6c 6b 25 |>0 ....-|    Blk%|
|00003280| 21 30 3d 77 68 64 6c 25 | 3a 42 6c 6b 25 21 34 3d |!0=whdl%|:Blk%!4=|
|00003290| a4 49 63 6f 6e 48 64 6c | 28 4f 62 6a 53 65 6c 25 |.IconHdl|(ObjSel%|
|000032a0| 29 0d 0b 0e 20 20 20 20 | 20 42 6c 6b 25 21 38 3d |)...    | Blk%!8=|
|000032b0| 30 3a 42 6c 6b 25 21 31 | 32 3d 26 32 30 30 30 30 |0:Blk%!1|2=&20000|
|000032c0| 30 0d 0b 18 24 20 20 20 | 20 c8 99 20 22 57 69 6d |0...$   | .. "Wim|
|000032d0| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|000032e0| 2c 42 6c 6b 25 0d 0b 22 | 07 20 20 cd 0d 0b 2c 1d |,Blk%.."|.  ...,.|
|000032f0| 42 6c 6b 25 21 30 3d 77 | 68 64 6c 25 3a 42 6c 6b |Blk%!0=w|hdl%:Blk|
|00003300| 25 21 34 3d 69 68 64 6c | 25 0d 0b 36 22 42 6c 6b |%!4=ihdl|%..6"Blk|
|00003310| 25 21 38 3d 26 32 30 30 | 30 30 30 3a 42 6c 6b 25 |%!8=&200|000:Blk%|
|00003320| 21 31 32 3d 26 32 30 30 | 30 30 30 0d 0b 40 20 c8 |!12=&200|000..@ .|
|00003330| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00003340| 74 61 74 65 22 2c 2c 42 | 6c 6b 25 0d 0b 4a 41 49 |tate",,B|lk%..JAI|
|00003350| 63 6f 6e 53 65 6c 25 3d | a4 49 63 6f 6e 4e 75 6d |conSel%=|.IconNum|
|00003360| 28 69 68 64 6c 25 2c 77 | 68 64 6c 25 29 20 20 20 |(ihdl%,w|hdl%)   |
|00003370| 20 20 3a f4 20 4d 69 67 | 68 74 20 62 65 20 75 73 |  :. Mig|ht be us|
|00003380| 66 75 6c 20 69 6e 20 6d | 65 6e 75 73 0d 0b 54 21 |ful in m|enus..T!|
|00003390| 4f 62 6a 53 65 6c 25 3d | a4 49 63 6f 6e 4f 62 6a |ObjSel%=|.IconObj|
|000033a0| 28 69 68 64 6c 25 2c 77 | 68 64 6c 25 29 0d 0b 5e |(ihdl%,w|hdl%)..^|
|000033b0| 05 e1 0d 0b 68 05 3a 0d | 0b 72 0f dd f2 57 69 6d |....h.:.|.r...Wim|
|000033c0| 70 5f 4d 65 73 73 0d 0b | 7c 21 f4 20 57 70 74 72 |p_Mess..||!. Wptr|
|000033d0| 24 2b 3d 53 54 52 24 28 | 57 69 6d 70 42 6c 6b 21 |$+=STR$(|WimpBlk!|
|000033e0| 31 36 29 2b 22 20 22 0d | 0b 86 13 c8 8e 20 57 69 |16)+" ".|..... Wi|
|000033f0| 6d 70 42 6c 6b 21 31 36 | 20 ca 0d 0b 90 2b 20 20 |mpBlk!16| ....+  |
|00003400| 20 c9 20 30 20 20 3a 20 | 57 69 6d 70 46 69 6e 3d | . 0  : |WimpFin=|
|00003410| b9 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |.       |      :.|
|00003420| 20 51 75 69 74 0d 0b 9a | 3e 20 20 20 c9 20 32 20 | Quit...|>   . 2 |
|00003430| 20 3a 20 f2 44 61 74 61 | 53 61 76 65 41 63 6b 20 | : .Data|SaveAck |
|00003440| 20 20 20 20 20 20 20 20 | 20 3a f4 20 53 61 79 73 |        | :. Says|
|00003450| 20 77 68 65 72 65 20 74 | 6f 20 73 61 76 65 20 66 | where t|o save f|
|00003460| 69 6c 65 0d 0b a4 36 20 | 20 20 c9 20 33 20 20 3a |ile...6 |  . 3  :|
|00003470| 20 f2 4c 6f 61 64 41 63 | 6b 3a f2 4c 6f 61 64 52 | .LoadAc|k:.LoadR|
|00003480| 65 63 64 20 3a f4 20 46 | 69 6c 65 20 64 72 61 67 |ecd :. F|ile drag|
|00003490| 67 65 64 20 74 6f 20 6d | 65 0d 0b ae 33 20 20 20 |ged to m|e...3   |
|000034a0| c9 20 34 20 20 3a 20 4c | 6f 61 64 41 63 6b 46 6c |. 4  : L|oadAckFl|
|000034b0| 61 67 25 3d b9 20 20 3a | 20 20 3a f4 20 49 67 6e |ag%=.  :|  :. Ign|
|000034c0| 6f 72 65 20 6c 6f 61 64 | 20 61 63 6b 0d 0b b8 33 |ore load| ack...3|
|000034d0| 20 20 20 c9 20 35 20 20 | 3a 20 f2 46 6f 72 4d 65 |   . 5  |: .ForMe|
|000034e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000034f0| 3a f4 20 46 69 6c 65 20 | 63 6c 69 63 6b 65 64 0d |:. File |clicked.|
|00003500| 0b c2 08 20 20 20 cb 0d | 0b cc 05 e1 0d 0b d6 05 |...   ..|........|
|00003510| 3a 0d 0b e0 2e f4 20 4e | 6f 72 6d 61 6c 6c 79 20 |:..... N|ormally |
|00003520| 57 69 6d 70 20 72 65 74 | 75 72 6e 69 6e 67 20 61 |Wimp ret|urning a|
|00003530| 20 66 61 69 6c 65 64 20 | 6d 65 73 73 61 67 65 0d | failed |message.|
|00003540| 0b ea 33 f4 20 54 68 69 | 73 20 64 6f 65 73 20 6e |..3. Thi|s does n|
|00003550| 6f 74 20 73 65 65 6d 20 | 74 6f 20 77 6f 72 6b 2e |ot seem |to work.|
|00003560| 20 20 4e 65 76 65 72 20 | 67 65 74 20 68 65 72 65 |  Never |get here|
|00003570| 21 21 0d 0b f4 12 dd f2 | 57 69 6d 70 5f 4d 65 73 |!!......|Wimp_Mes|
|00003580| 73 41 63 6b 0d 0b fe 13 | c8 8e 20 57 69 6d 70 42 |sAck....|.. WimpB|
|00003590| 6c 6b 21 31 36 20 ca 0d | 0c 08 28 20 20 20 c9 20 |lk!16 ..|..(   . |
|000035a0| 34 20 20 3a 20 f4 20 4c | 6f 61 64 41 63 6b 2c 20 |4  : . L|oadAck, |
|000035b0| 63 61 6e 20 69 67 6e 6f | 72 65 20 74 68 69 73 0d |can igno|re this.|
|000035c0| 0c 12 34 20 20 20 c9 20 | 35 20 20 3a 20 e7 20 57 |..4   . |5  : . W|
|000035d0| 69 6d 70 42 6c 6b 21 34 | 3d 54 61 73 6b 49 44 25 |impBlk!4|=TaskID%|
|000035e0| 20 8c 20 ef 37 3a 20 f4 | 20 50 52 4f 43 52 75 6e | . .7: .| PROCRun|
|000035f0| 49 74 32 0d 0c 1c 41 20 | 20 20 20 20 20 20 20 20 |It2...A |        |
|00003600| 20 20 20 20 f4 20 4d 79 | 20 6f 77 6e 20 62 72 6f |    . My| own bro|
|00003610| 61 64 63 61 73 74 20 72 | 65 74 75 72 6e 65 64 20 |adcast r|eturned |
|00003620| 73 6f 20 6b 69 63 6b 20 | 6f 66 66 20 6e 65 77 20 |so kick |off new |
|00003630| 74 61 73 6b 0d 0c 26 08 | 20 20 20 cb 0d 0c 30 05 |task..&.|   ...0.|
|00003640| e1 0d 0c 3a 05 3a 0d 0c | 44 0d dd f2 4c 6f 61 64 |...:.:..|D...Load|
|00003650| 41 63 6b 0d 0c 4e 36 57 | 69 6d 70 42 6c 6b 21 34 |Ack..N6W|impBlk!4|
|00003660| 3d 54 61 73 6b 49 44 25 | 3a 57 69 6d 70 42 6c 6b |=TaskID%|:WimpBlk|
|00003670| 21 31 32 3d 57 69 6d 70 | 42 6c 6b 21 38 3a 57 69 |!12=Wimp|Blk!8:Wi|
|00003680| 6d 70 42 6c 6b 21 38 3d | 30 0d 0c 58 10 57 69 6d |mpBlk!8=|0..X.Wim|
|00003690| 70 42 6c 6b 21 31 36 3d | 34 0d 0c 62 39 c8 99 20 |pBlk!16=|4..b9.. |
|000036a0| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|000036b0| 65 22 2c 31 37 2c 57 69 | 6d 70 42 6c 6b 2c 30 20 |e",17,Wi|mpBlk,0 |
|000036c0| 3a f4 20 41 63 6b 20 74 | 68 65 20 6d 65 73 73 61 |:. Ack t|he messa|
|000036d0| 67 65 0d 0c 6c 05 e1 0d | 0c 76 05 3b 0d 0c 80 32 |ge..l...|.v.;...2|
|000036e0| f4 20 53 65 65 20 69 66 | 20 62 72 6f 61 64 63 61 |. See if| broadca|
|000036f0| 73 74 20 6d 65 73 73 61 | 67 65 20 69 73 20 61 20 |st messa|ge is a |
|00003700| 44 69 73 63 53 74 6f 72 | 65 20 46 69 6c 65 0d 0c |DiscStor|e File..|
|00003710| 8a 0b dd f2 46 6f 72 4d | 65 0d 0c 94 1a f2 64 65 |....ForM|e.....de|
|00003720| 62 75 67 28 34 2c c3 28 | 57 69 6d 70 42 6c 6b 21 |bug(4,.(|WimpBlk!|
|00003730| 34 29 29 0d 0c 9e 30 e7 | 20 57 69 6d 70 42 6c 6b |4))...0.| WimpBlk|
|00003740| 21 34 3d 54 61 73 6b 49 | 44 25 20 8c 20 e1 20 3a |!4=TaskI|D% . . :|
|00003750| f4 20 4d 79 20 6f 77 6e | 20 62 72 6f 61 64 63 61 |. My own| broadca|
|00003760| 73 74 21 0d 0c a8 3f e7 | 20 57 69 6d 70 42 6c 6b |st!...?.| WimpBlk|
|00003770| 21 34 30 3c 3e 44 69 73 | 63 53 74 6f 72 65 46 69 |!40<>Dis|cStoreFi|
|00003780| 6c 65 54 79 70 65 25 20 | 8c 20 e1 20 3a f4 20 4e |leType% |. . :. N|
|00003790| 6f 74 20 72 69 67 68 74 | 20 46 69 6c 65 20 54 79 |ot right| File Ty|
|000037a0| 70 65 0d 0c b2 34 46 69 | 6c 65 24 3d a4 73 74 72 |pe...4Fi|le$=.str|
|000037b0| 69 6e 67 30 28 57 69 6d | 70 42 6c 6b 2b 34 34 29 |ing0(Wim|pBlk+44)|
|000037c0| 20 3a 20 f4 20 50 61 74 | 68 20 6e 61 6d 65 20 6f | : . Pat|h name o|
|000037d0| 66 20 66 69 6c 65 0d 0c | bc 0a f4 20 56 44 55 37 |f file..|... VDU7|
|000037e0| 0d 0c c6 0c f2 4c 6f 61 | 64 41 63 6b 0d 0c d0 2f |.....Loa|dAck.../|
|000037f0| f2 46 69 6c 65 52 65 61 | 64 28 46 69 6c 65 24 29 |.FileRea|d(File$)|
|00003800| 20 3a f4 20 54 65 6c 6c | 20 64 69 72 20 61 62 6f | :. Tell| dir abo|
|00003810| 75 74 20 6e 65 77 20 66 | 69 6c 65 0d 0c da 05 e1 |ut new f|ile.....|
|00003820| 0d 0c e4 05 3a 0d 0c ee | 0e dd f2 4c 6f 61 64 52 |....:...|...LoadR|
|00003830| 65 63 64 0d 0c f8 36 f4 | 20 57 69 6e 64 6f 77 20 |ecd...6.| Window |
|00003840| 4e 75 6d 62 65 72 20 64 | 72 61 67 20 69 73 20 74 |Number d|rag is t|
|00003850| 6f 2c 20 6f 62 6a 65 63 | 74 20 70 61 74 68 24 20 |o, objec|t path$ |
|00003860| 61 6e 64 20 74 79 70 65 | 25 0d 0d 02 47 f2 4f 62 |and type|%...G.Ob|
|00003870| 6a 44 72 61 67 67 65 64 | 49 6e 28 a4 57 69 6e 64 |jDragged|In(.Wind|
|00003880| 4e 75 6d 28 57 69 6d 70 | 42 6c 6b 21 32 30 29 2c |Num(Wimp|Blk!20),|
|00003890| a4 73 74 72 69 6e 67 30 | 28 57 69 6d 70 42 6c 6b |.string0|(WimpBlk|
|000038a0| 2b 34 34 29 2c 57 69 6d | 70 42 6c 6b 21 34 30 29 |+44),Wim|pBlk!40)|
|000038b0| 0d 0d 0c 05 e1 0d 0d 16 | 05 3a 0d 0d 20 36 f4 20 |........|.:.. 6. |
|000038c0| 43 61 6c 6c 65 64 20 66 | 72 6f 6d 20 57 69 6d 70 |Called f|rom Wimp|
|000038d0| 5f 42 75 74 74 6f 6e 73 | 20 77 68 65 6e 20 61 20 |_Buttons| when a |
|000038e0| 64 72 61 67 20 69 73 20 | 64 65 74 65 63 74 65 64 |drag is |detected|
|000038f0| 0d 0d 2a 1f dd f2 57 69 | 6d 70 5f 44 72 61 67 42 |..*...Wi|mp_DragB|
|00003900| 6f 78 28 77 68 64 6c 25 | 2c 69 68 64 6c 25 29 0d |ox(whdl%|,ihdl%).|
|00003910| 0d 34 0f e7 20 44 53 66 | 6c 61 67 25 20 8c 0d 0d |.4.. DSf|lag% ...|
|00003920| 3e 22 20 20 57 69 6d 70 | 42 6c 6b 21 30 3d 53 77 |>"  Wimp|Blk!0=Sw|
|00003930| 68 64 6c 25 3a 57 69 6d | 70 42 6c 6b 21 34 3d 32 |hdl%:Wim|pBlk!4=2|
|00003940| 0d 0d 48 25 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |..H%  ..| "Wimp_G|
|00003950| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 57 69 |etIconSt|ate",,Wi|
|00003960| 6d 70 42 6c 6b 0d 0d 52 | 4f 20 20 e7 20 28 57 69 |mpBlk..R|O  . (Wi|
|00003970| 6d 70 42 6c 6b 21 32 34 | 20 80 20 26 31 30 30 29 |mpBlk!24| . &100)|
|00003980| 3d 30 20 8c 20 54 78 74 | 24 3d 24 28 57 69 6d 70 |=0 . Txt|$=$(Wimp|
|00003990| 42 6c 6b 2b 32 38 29 20 | 8b 20 70 74 72 25 3d 57 |Blk+28) |. ptr%=W|
|000039a0| 69 6d 70 42 6c 6b 21 32 | 38 3a 54 78 74 24 3d 24 |impBlk!2|8:Txt$=$|
|000039b0| 70 74 72 25 0d 0d 5c 07 | 20 20 cd 0d 0d 66 13 57 |ptr%..\.|  ...f.W|
|000039c0| 69 6d 70 42 6c 6b 21 30 | 3d 77 68 64 6c 25 0d 0d |impBlk!0|=whdl%..|
|000039d0| 70 25 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |p%.. "Wi|mp_GetWi|
|000039e0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 57 69 6d 70 |ndowStat|e",,Wimp|
|000039f0| 42 6c 6b 0d 0d 7a 1c 6f | 78 25 3d 57 69 6d 70 42 |Blk..z.o|x%=WimpB|
|00003a00| 6c 6b 21 34 2d 57 69 6d | 70 42 6c 6b 21 32 30 0d |lk!4-Wim|pBlk!20.|
|00003a10| 0d 84 1d 6f 79 25 3d 57 | 69 6d 70 42 6c 6b 21 31 |...oy%=W|impBlk!1|
|00003a20| 36 2d 57 69 6d 70 42 6c | 6b 21 32 34 0d 0d 8e 4a |6-WimpBl|k!24...J|
|00003a30| 57 69 6d 70 42 6c 6b 21 | 34 3d 69 68 64 6c 25 20 |WimpBlk!|4=ihdl% |
|00003a40| 3a 57 68 64 6c 25 3d 77 | 68 64 6c 25 3a 49 68 64 |:Whdl%=w|hdl%:Ihd|
|00003a50| 6c 25 3d 69 68 64 6c 25 | 20 20 3a f4 20 53 61 76 |l%=ihdl%|  :. Sav|
|00003a60| 65 20 66 6f 72 20 50 52 | 4f 43 57 69 6d 70 5f 44 |e for PR|OCWimp_D|
|00003a70| 72 61 67 45 6e 64 0d 0d | 98 23 c8 99 20 22 57 69 |ragEnd..|.#.. "Wi|
|00003a80| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00003a90| 2c 2c 57 69 6d 70 42 6c | 6b 0d 0d a2 0f 57 69 6d |,,WimpBl|k....Wim|
|00003aa0| 70 42 6c 6b 21 34 3d 35 | 0d 0d ac 35 57 69 6d 70 |pBlk!4=5|...5Wimp|
|00003ab0| 42 6c 6b 21 38 3d 6f 78 | 25 2b 57 69 6d 70 42 6c |Blk!8=ox|%+WimpBl|
|00003ac0| 6b 21 38 3a 57 69 6d 70 | 42 6c 6b 21 31 32 3d 6f |k!8:Wimp|Blk!12=o|
|00003ad0| 79 25 2b 57 69 6d 70 42 | 6c 6b 21 31 32 0d 0d b6 |y%+WimpB|lk!12...|
|00003ae0| 37 57 69 6d 70 42 6c 6b | 21 31 36 3d 6f 78 25 2b |7WimpBlk|!16=ox%+|
|00003af0| 57 69 6d 70 42 6c 6b 21 | 31 36 3a 57 69 6d 70 42 |WimpBlk!|16:WimpB|
|00003b00| 6c 6b 21 32 30 3d 6f 79 | 25 2b 57 69 6d 70 42 6c |lk!20=oy|%+WimpBl|
|00003b10| 6b 21 32 30 0d 0d c0 1d | 57 69 6d 70 42 6c 6b 21 |k!20....|WimpBlk!|
|00003b20| 32 34 3d 30 3a 57 69 6d | 70 42 6c 6b 21 32 38 3d |24=0:Wim|pBlk!28=|
|00003b30| 30 0d 0d ca 2d 57 69 6d | 70 42 6c 6b 21 33 32 3d |0...-Wim|pBlk!32=|
|00003b40| 26 37 46 46 46 46 46 46 | 46 3a 57 69 6d 70 42 6c |&7FFFFFF|F:WimpBl|
|00003b50| 6b 21 33 36 3d 26 37 46 | 46 46 46 46 46 46 0d 0d |k!36=&7F|FFFFFF..|
|00003b60| d4 1e c8 99 20 22 57 69 | 6d 70 5f 44 72 61 67 42 |.... "Wi|mp_DragB|
|00003b70| 6f 78 22 2c 2c 57 69 6d | 70 42 6c 6b 0d 0d de 05 |ox",,Wim|pBlk....|
|00003b80| e1 0d 0d e8 04 0d 0d f2 | 37 f4 20 53 65 63 6f 6e |........|7. Secon|
|00003b90| 64 20 68 61 6c 66 20 63 | 61 6c 6c 65 64 20 77 68 |d half c|alled wh|
|00003ba0| 65 6e 20 44 72 61 67 20 | 65 6e 64 73 20 28 41 63 |en Drag |ends (Ac|
|00003bb0| 74 69 6f 6e 20 43 6f 64 | 65 20 37 29 0d 0d fc 3e |tion Cod|e 7)...>|
|00003bc0| dd f2 57 69 6d 70 5f 44 | 72 61 67 45 6e 64 3a ea |..Wimp_D|ragEnd:.|
|00003bd0| 20 6e 61 6d 65 24 2c 6f | 62 6a 25 2c 54 79 70 65 | name$,o|bj%,Type|
|00003be0| 25 2c 53 69 7a 65 25 2c | 44 61 74 65 25 3a 46 69 |%,Size%,|Date%:Fi|
|00003bf0| 6c 65 50 61 74 68 24 3d | 22 22 0d 0e 06 25 c8 99 |lePath$=|""...%..|
|00003c00| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00003c10| 72 49 6e 66 6f 22 2c 2c | 57 69 6d 70 42 6c 6b 0d |rInfo",,|WimpBlk.|
|00003c20| 0e 10 6e e7 20 a4 57 69 | 6e 64 4e 75 6d 28 57 69 |..n. .Wi|ndNum(Wi|
|00003c30| 6d 70 42 6c 6b 21 31 32 | 29 3c 3e 30 20 8c 20 f2 |mpBlk!12|)<>0 . .|
|00003c40| 49 6e 74 65 72 6e 61 6c | 43 6f 70 79 28 a4 49 63 |Internal|Copy(.Ic|
|00003c50| 6f 6e 4f 62 6a 28 49 68 | 64 6c 25 2c 57 68 64 6c |onObj(Ih|dl%,Whdl|
|00003c60| 25 29 2c 57 69 6e 64 6f | 77 25 28 a4 57 69 6e 64 |%),Windo|w%(.Wind|
|00003c70| 4e 75 6d 28 57 69 6d 70 | 42 6c 6b 21 31 32 29 2c |Num(Wimp|Blk!12),|
|00003c80| 44 69 72 4f 62 6a 49 44 | 25 29 29 3a e1 0d 0e 1a |DirObjID|%)):....|
|00003c90| 2d e7 20 57 69 6d 70 42 | 6c 6b 21 31 32 3d 2d 32 |-. WimpB|lk!12=-2|
|00003ca0| 20 8c 20 69 63 6f 6e 62 | 61 72 25 3d b9 20 8b 20 | . iconb|ar%=. . |
|00003cb0| 69 63 6f 6e 62 61 72 25 | 3d a3 0d 0e 24 1b f2 64 |iconbar%|=...$..d|
|00003cc0| 65 62 75 67 28 35 2c c3 | 28 57 69 6d 70 42 6c 6b |ebug(5,.|(WimpBlk|
|00003cd0| 21 31 32 29 29 0d 0e 2e | 2f 57 69 6d 70 42 6c 6b |!12))...|/WimpBlk|
|00003ce0| 21 32 30 3d 57 69 6d 70 | 42 6c 6b 21 31 32 3a 57 |!20=Wimp|Blk!12:W|
|00003cf0| 69 6d 70 42 6c 6b 21 32 | 34 3d 57 69 6d 70 42 6c |impBlk!2|4=WimpBl|
|00003d00| 6b 21 31 36 0d 0e 38 2d | 57 69 6d 70 42 6c 6b 21 |k!16..8-|WimpBlk!|
|00003d10| 32 38 3d 57 69 6d 70 42 | 6c 6b 21 30 3a 57 69 6d |28=WimpB|lk!0:Wim|
|00003d20| 70 42 6c 6b 21 33 32 3d | 57 69 6d 70 42 6c 6b 21 |pBlk!32=|WimpBlk!|
|00003d30| 34 0d 0e 42 0f e7 20 44 | 53 66 6c 61 67 25 20 8c |4..B.. D|Sflag% .|
|00003d40| 0d 0e 4c 2b 20 20 20 20 | 54 79 70 65 25 3d 44 69 |..L+    |Type%=Di|
|00003d50| 73 63 53 74 6f 72 65 46 | 69 6c 65 54 79 70 65 25 |scStoreF|ileType%|
|00003d60| 3a 53 69 7a 65 25 3d 31 | 30 30 30 0d 0e 56 16 20 |:Size%=1|000..V. |
|00003d70| 20 20 20 46 69 6c 65 50 | 61 74 68 24 3d 54 78 74 |   FileP|ath$=Txt|
|00003d80| 24 0d 0e 60 07 20 20 cc | 0d 0e 6a 22 20 20 20 20 |$..`.  .|..j"    |
|00003d90| 6f 62 6a 25 3d a4 49 63 | 6f 6e 4f 62 6a 28 49 68 |obj%=.Ic|onObj(Ih|
|00003da0| 64 6c 25 2c 57 68 64 6c | 25 29 0d 0e 74 3d 20 20 |dl%,Whdl|%)..t=  |
|00003db0| 20 20 6e 61 6d 65 24 3d | a4 44 69 72 4f 62 6a 44 |  name$=|.DirObjD|
|00003dc0| 65 74 61 69 6c 28 6f 62 | 6a 25 2c 54 79 70 65 25 |etail(ob|j%,Type%|
|00003dd0| 2c 53 69 7a 65 25 2c 44 | 61 74 65 25 2c 46 69 6c |,Size%,D|ate%,Fil|
|00003de0| 65 50 61 74 68 24 29 0d | 0e 7e 07 20 20 cd 0d 0e |ePath$).|.~.  ...|
|00003df0| 88 1e 57 69 6d 70 42 6c | 6b 21 30 3d 31 32 38 3a |..WimpBl|k!0=128:|
|00003e00| 57 69 6d 70 42 6c 6b 21 | 31 32 3d 30 0d 0e 92 25 |WimpBlk!|12=0...%|
|00003e10| 57 69 6d 70 42 6c 6b 21 | 33 36 3d 53 69 7a 65 25 |WimpBlk!|36=Size%|
|00003e20| 3a 57 69 6d 70 42 6c 6b | 21 34 30 3d 54 79 70 65 |:WimpBlk|!40=Type|
|00003e30| 25 0d 0e 9c 10 e7 20 69 | 63 6f 6e 62 61 72 25 20 |%..... i|conbar% |
|00003e40| 8c 0d 0e a6 31 20 20 20 | 20 f4 20 53 65 6e 64 20 |....1   | . Send |
|00003e50| 61 20 64 61 74 61 20 6c | 6f 61 64 20 28 74 6f 20 |a data l|oad (to |
|00003e60| 74 65 6c 6c 20 61 70 70 | 6c 20 74 6f 20 6c 6f 61 |tell app|l to loa|
|00003e70| 64 29 0d 0e b0 27 20 20 | 20 20 57 69 6d 70 42 6c |d)...'  |  WimpBl|
|00003e80| 6b 21 31 36 3d 33 20 20 | 3a f4 20 4d 65 73 73 61 |k!16=3  |:. Messa|
|00003e90| 67 65 20 61 63 74 69 6f | 6e 0d 0e ba 26 20 20 20 |ge actio|n...&   |
|00003ea0| 20 f2 73 74 72 69 6e 67 | 30 28 57 69 6d 70 42 6c | .string|0(WimpBl|
|00003eb0| 6b 2b 34 34 2c 46 69 6c | 65 50 61 74 68 24 29 0d |k+44,Fil|ePath$).|
|00003ec0| 0e c4 07 20 20 cc 0d 0e | ce 2a 20 20 20 20 f4 20 |...  ...|.*    . |
|00003ed0| 53 65 6e 64 20 61 20 64 | 61 74 61 20 73 61 76 65 |Send a d|ata save|
|00003ee0| 20 28 73 61 76 65 20 74 | 6f 20 66 69 6c 65 72 29 | (save t|o filer)|
|00003ef0| 0d 0e d8 27 20 20 20 20 | 57 69 6d 70 42 6c 6b 21 |...'    |WimpBlk!|
|00003f00| 31 36 3d 31 20 20 3a f4 | 20 4d 65 73 73 61 67 65 |16=1  :.| Message|
|00003f10| 20 61 63 74 69 6f 6e 0d | 0e e2 29 20 20 20 20 24 | action.|..)    $|
|00003f20| 28 57 69 6d 70 42 6c 6b | 2b 34 34 29 3d a4 6c 65 |(WimpBlk|+44)=.le|
|00003f30| 61 66 28 46 69 6c 65 50 | 61 74 68 24 29 2b bd 30 |af(FileP|ath$)+.0|
|00003f40| 0d 0e ec 07 20 20 cd 0d | 0e f6 17 f2 64 65 62 75 |....  ..|....debu|
|00003f50| 67 28 31 2c 46 69 6c 65 | 50 61 74 68 24 29 0d 0f |g(1,File|Path$)..|
|00003f60| 00 3a c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.:.. "Wi|mp_SendM|
|00003f70| 65 73 73 61 67 65 22 2c | 31 37 2c 57 69 6d 70 42 |essage",|17,WimpB|
|00003f80| 6c 6b 2c 57 69 6d 70 42 | 6c 6b 21 32 30 2c 57 69 |lk,WimpB|lk!20,Wi|
|00003f90| 6d 70 42 6c 6b 21 32 34 | 0d 0f 0a 05 e1 0d 0f 14 |mpBlk!24|........|
|00003fa0| 04 0d 0f 1e 44 f4 20 4e | 6f 77 20 77 61 69 74 20 |....D. N|ow wait |
|00003fb0| 66 6f 72 20 44 61 74 61 | 53 61 76 65 20 41 63 6b |for Data|Save Ack|
|00003fc0| 20 77 69 74 68 20 64 65 | 73 74 69 6e 61 74 69 6f | with de|stinatio|
|00003fd0| 6e 20 70 61 74 68 20 28 | 30 20 74 65 72 6d 69 6e |n path (|0 termin|
|00003fe0| 61 74 65 64 29 0d 0f 28 | 19 dd f2 44 61 74 61 53 |ated)..(|...DataS|
|00003ff0| 61 76 65 41 63 6b 3a ea | 20 61 25 2c 62 25 0d 0f |aveAck:.| a%,b%..|
|00004000| 32 23 44 65 73 74 50 61 | 74 68 24 3d 22 22 3a 61 |2#DestPa|th$="":a|
|00004010| 25 3d 30 3a 62 25 3d 57 | 69 6d 70 42 6c 6b 3f 34 |%=0:b%=W|impBlk?4|
|00004020| 34 0d 0f 3c 36 c8 95 20 | 62 25 3c 3e 30 3a 44 65 |4..<6.. |b%<>0:De|
|00004030| 73 74 50 61 74 68 24 2b | 3d bd 62 25 3a 61 25 2b |stPath$+|=.b%:a%+|
|00004040| 3d 31 3a 62 25 3d 57 69 | 6d 70 42 6c 6b 3f 28 34 |=1:b%=Wi|mpBlk?(4|
|00004050| 34 2b 61 25 29 3a ce 0d | 0f 46 2a f4 20 4e 6f 77 |4+a%):..|.F*. Now|
|00004060| 20 63 6f 70 79 20 74 68 | 65 20 66 69 6c 65 20 6f | copy th|e file o|
|00004070| 72 20 6f 74 68 65 72 20 | 61 63 74 69 6f 6e 73 3f |r other |actions?|
|00004080| 3f 0d 0f 50 22 e7 20 44 | 53 66 6c 61 67 25 20 8c |?..P". D|Sflag% .|
|00004090| 20 f2 44 53 73 61 76 65 | 28 44 65 73 74 50 61 74 | .DSsave|(DestPat|
|000040a0| 68 24 29 0d 0f 5a 3d e7 | 20 ac 20 44 53 66 6c 61 |h$)..Z=.| . DSfla|
|000040b0| 67 25 20 8c 20 ff 28 22 | 43 4f 50 59 20 22 2b 46 |g% . .("|COPY "+F|
|000040c0| 69 6c 65 50 61 74 68 24 | 2b 22 20 22 2b 44 65 73 |ilePath$|+" "+Des|
|000040d0| 74 50 61 74 68 24 2b 22 | 20 7e 43 20 7e 56 22 29 |tPath$+"| ~C ~V")|
|000040e0| 0d 0f 64 4a f4 20 53 65 | 6e 64 20 44 61 74 61 4c |..dJ. Se|nd DataL|
|000040f0| 6f 61 64 20 4d 65 73 73 | 61 67 65 20 62 65 63 61 |oad Mess|age beca|
|00004100| 75 73 65 20 70 72 6f 74 | 6f 63 6f 6c 20 6e 65 65 |use prot|ocol nee|
|00004110| 64 73 20 69 74 2e 20 20 | 49 67 6e 6f 72 65 20 44 |ds it.  |Ignore D|
|00004120| 61 74 61 4c 6f 61 64 41 | 63 6b 0d 0f 6e 23 57 69 |ataLoadA|ck..n#Wi|
|00004130| 6d 70 42 6c 6b 21 31 36 | 3d 33 20 20 3a f4 20 4d |mpBlk!16|=3  :. M|
|00004140| 65 73 73 61 67 65 20 61 | 63 74 69 6f 6e 0d 0f 78 |essage a|ction..x|
|00004150| 26 57 69 6d 70 42 6c 6b | 21 31 32 3d 57 69 6d 70 |&WimpBlk|!12=Wimp|
|00004160| 42 6c 6b 21 38 3a 57 69 | 6d 70 42 6c 6b 21 30 3d |Blk!8:Wi|mpBlk!0=|
|00004170| 32 35 36 0d 0f 82 3a c8 | 99 20 22 57 69 6d 70 5f |256...:.|. "Wimp_|
|00004180| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 38 2c |SendMess|age",18,|
|00004190| 57 69 6d 70 42 6c 6b 2c | 57 69 6d 70 42 6c 6b 21 |WimpBlk,|WimpBlk!|
|000041a0| 32 30 2c 57 69 6d 70 42 | 6c 6b 21 32 34 0d 0f 8c |20,WimpB|lk!24...|
|000041b0| 05 e1 0d 0f 96 05 3a 0d | 0f a0 38 dd 20 a4 73 74 |......:.|..8. .st|
|000041c0| 72 69 6e 67 30 28 61 25 | 29 20 ea 61 24 3a 61 24 |ring0(a%|) .a$:a$|
|000041d0| 3d 22 22 3a c8 95 20 3f | 61 25 3a 61 24 2b 3d bd |="":.. ?|a%:a$+=.|
|000041e0| 3f 61 25 3a 61 25 2b 3d | 31 3a ce 3a 3d 61 24 0d |?a%:a%+=|1:.:=a$.|
|000041f0| 0f aa 27 dd 20 f2 73 74 | 72 69 6e 67 30 28 61 25 |..'. .st|ring0(a%|
|00004200| 2c 61 24 29 20 24 61 25 | 3d 61 24 3a 61 25 3f a9 |,a$) $a%|=a$:a%?.|
|00004210| 61 24 3d 30 3a e1 0d 0f | b4 2f dd a4 6c 65 61 66 |a$=0:...|./..leaf|
|00004220| 28 70 24 29 3a c8 95 20 | a7 70 24 2c 22 2e 22 29 |(p$):.. |.p$,".")|
|00004230| 3a 70 24 3d c1 70 24 2c | a7 70 24 2c 22 2e 22 29 |:p$=.p$,|.p$,".")|
|00004240| 2b 31 29 3a ce 0d 0f be | 07 3d 70 24 0d 0f c8 05 |+1):....|.=p$....|
|00004250| 3a 0d 0f d2 29 f4 2d 2d | 4d 65 6e 75 20 53 75 62 |:...).--|Menu Sub|
|00004260| 73 79 73 74 65 6d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |system--|--------|
|00004270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0f dc 04 0d 0f |--------|--......|
|00004280| e6 3c f4 20 53 65 74 20 | 75 70 20 61 72 72 61 79 |.<. Set |up array|
|00004290| 20 77 69 74 68 20 6d 65 | 6e 75 20 64 61 74 61 20 | with me|nu data |
|000042a0| 66 6f 72 20 75 73 65 20 | 62 79 20 63 72 65 61 74 |for use |by creat|
|000042b0| 65 20 6d 65 6e 75 20 65 | 74 63 0d 0f f0 0e dd f2 |e menu e|tc......|
|000042c0| 4d 65 6e 75 49 6e 69 74 | 0d 0f fa 19 57 6d 65 6e |MenuInit|....Wmen|
|000042d0| 75 24 28 30 2c 30 2c 30 | 29 3d 22 46 69 6c 65 72 |u$(0,0,0|)="Filer|
|000042e0| 22 0d 10 04 45 57 6d 65 | 6e 75 24 28 30 2c 31 2c |"...EWme|nu$(0,1,|
|000042f0| 30 29 3d 22 44 69 73 70 | 6c 61 79 22 3a 57 6d 65 |0)="Disp|lay":Wme|
|00004300| 6e 75 24 28 30 2c 31 2c | 31 29 3d 22 53 48 41 22 |nu$(0,1,|1)="SHA"|
|00004310| 3a 57 6d 65 6e 75 24 28 | 30 2c 31 2c 32 29 3d 22 |:Wmenu$(|0,1,2)="|
|00004320| 4d 45 4e 55 31 22 0d 10 | 0e 45 57 6d 65 6e 75 24 |MENU1"..|.EWmenu$|
|00004330| 28 30 2c 32 2c 30 29 3d | 22 46 69 6c 65 20 27 27 |(0,2,0)=|"File ''|
|00004340| 22 3a 57 6d 65 6e 75 24 | 28 30 2c 32 2c 31 29 3d |":Wmenu$|(0,2,1)=|
|00004350| 22 49 4e 53 22 3a 57 6d | 65 6e 75 24 28 30 2c 32 |"INS":Wm|enu$(0,2|
|00004360| 2c 32 29 3d 22 4d 45 4e | 55 32 22 0d 10 18 48 57 |,2)="MEN|U2"...HW|
|00004370| 6d 65 6e 75 24 28 30 2c | 33 2c 30 29 3d 22 53 65 |menu$(0,|3,0)="Se|
|00004380| 6c 65 63 74 20 41 6c 6c | 22 3a 57 6d 65 6e 75 24 |lect All|":Wmenu$|
|00004390| 28 30 2c 33 2c 31 29 3d | 22 53 48 41 22 3a 57 6d |(0,3,1)=|"SHA":Wm|
|000043a0| 65 6e 75 24 28 30 2c 33 | 2c 32 29 3d 22 46 4e 6e |enu$(0,3|,2)="FNn|
|000043b0| 75 6c 22 0d 10 22 4a 57 | 6d 65 6e 75 24 28 30 2c |ul".."JW|menu$(0,|
|000043c0| 34 2c 30 29 3d 22 43 6c | 65 61 72 20 73 65 6c 65 |4,0)="Cl|ear sele|
|000043d0| 63 74 22 3a 57 6d 65 6e | 75 24 28 30 2c 34 2c 31 |ct":Wmen|u$(0,4,1|
|000043e0| 29 3d 22 53 48 41 22 3a | 57 6d 65 6e 75 24 28 30 |)="SHA":|Wmenu$(0|
|000043f0| 2c 34 2c 32 29 3d 22 46 | 4e 6e 75 6c 22 0d 10 2c |,4,2)="F|Nnul"..,|
|00004400| 45 57 6d 65 6e 75 24 28 | 30 2c 35 2c 30 29 3d 22 |EWmenu$(|0,5,0)="|
|00004410| 4f 70 74 69 6f 6e 73 22 | 3a 57 6d 65 6e 75 24 28 |Options"|:Wmenu$(|
|00004420| 30 2c 35 2c 31 29 3d 22 | 53 48 41 22 3a 57 6d 65 |0,5,1)="|SHA":Wme|
|00004430| 6e 75 24 28 30 2c 35 2c | 32 29 3d 22 4d 45 4e 55 |nu$(0,5,|2)="MENU|
|00004440| 33 22 0d 10 36 37 57 6d | 65 6e 75 24 28 30 2c 36 |3"..67Wm|enu$(0,6|
|00004450| 2c 30 29 3d 22 4e 65 77 | 20 44 69 72 65 63 74 6f |,0)="New| Directo|
|00004460| 72 79 22 3a 57 6d 65 6e | 75 24 28 30 2c 36 2c 32 |ry":Wmen|u$(0,6,2|
|00004470| 29 3d 22 4d 45 4e 55 34 | 22 0d 10 40 38 57 6d 65 |)="MENU4|"..@8Wme|
|00004480| 6e 75 24 28 30 2c 37 2c | 30 29 3d 22 4f 70 65 6e |nu$(0,7,|0)="Open|
|00004490| 20 70 61 72 65 6e 74 22 | 3a 57 6d 65 6e 75 24 28 | parent"|:Wmenu$(|
|000044a0| 30 2c 37 2c 32 29 3d 22 | 46 4e 70 61 72 65 6e 74 |0,7,2)="|FNparent|
|000044b0| 22 0d 10 4a 43 57 6d 65 | 6e 75 24 28 30 2c 38 2c |"..JCWme|nu$(0,8,|
|000044c0| 30 29 3d 22 43 6f 75 6e | 74 22 3a 57 6d 65 6e 75 |0)="Coun|t":Wmenu|
|000044d0| 24 28 30 2c 38 2c 31 29 | 3d 22 53 48 41 22 3a 57 |$(0,8,1)|="SHA":W|
|000044e0| 6d 65 6e 75 24 28 30 2c | 38 2c 32 29 3d 22 46 4e |menu$(0,|8,2)="FN|
|000044f0| 6e 75 6c 22 0d 10 54 1b | 57 6d 65 6e 75 24 28 31 |nul"..T.|Wmenu$(1|
|00004500| 2c 30 2c 30 29 3d 22 44 | 69 73 70 6c 61 79 22 0d |,0,0)="D|isplay".|
|00004510| 10 5e 4d 57 6d 65 6e 75 | 24 28 31 2c 31 2c 30 29 |.^MWmenu|$(1,1,0)|
|00004520| 3d 22 4c 61 72 67 65 20 | 69 63 6f 6e 73 22 3a 57 |="Large |icons":W|
|00004530| 6d 65 6e 75 24 28 31 2c | 31 2c 31 29 3d 22 54 49 |menu$(1,|1,1)="TI|
|00004540| 4b 20 53 48 41 22 3a 57 | 6d 65 6e 75 24 28 31 2c |K SHA":W|menu$(1,|
|00004550| 31 2c 32 29 3d 22 46 4e | 6e 75 6c 22 0d 10 68 49 |1,2)="FN|nul"..hI|
|00004560| 57 6d 65 6e 75 24 28 31 | 2c 32 2c 30 29 3d 22 53 |Wmenu$(1|,2,0)="S|
|00004570| 6d 61 6c 6c 20 69 63 6f | 6e 73 22 3a 57 6d 65 6e |mall ico|ns":Wmen|
|00004580| 75 24 28 31 2c 32 2c 31 | 29 3d 22 53 48 41 22 3a |u$(1,2,1|)="SHA":|
|00004590| 57 6d 65 6e 75 24 28 31 | 2c 32 2c 32 29 3d 22 46 |Wmenu$(1|,2,2)="F|
|000045a0| 4e 6e 75 6c 22 0d 10 72 | 4b 57 6d 65 6e 75 24 28 |Nnul"..r|KWmenu$(|
|000045b0| 31 2c 33 2c 30 29 3d 22 | 46 75 6c 6c 20 69 6e 66 |1,3,0)="|Full inf|
|000045c0| 6f 22 3a 57 6d 65 6e 75 | 24 28 31 2c 33 2c 31 29 |o":Wmenu|$(1,3,1)|
|000045d0| 3d 22 44 4f 54 20 53 48 | 41 22 3a 57 6d 65 6e 75 |="DOT SH|A":Wmenu|
|000045e0| 24 28 31 2c 33 2c 32 29 | 3d 22 46 4e 6e 75 6c 22 |$(1,3,2)|="FNnul"|
|000045f0| 0d 10 7c 4e 57 6d 65 6e | 75 24 28 31 2c 34 2c 30 |..|NWmen|u$(1,4,0|
|00004600| 29 3d 22 73 6f 72 74 20 | 62 79 20 6e 61 6d 65 22 |)="sort |by name"|
|00004610| 3a 57 6d 65 6e 75 24 28 | 31 2c 34 2c 31 29 3d 22 |:Wmenu$(|1,4,1)="|
|00004620| 54 49 4b 20 53 48 41 22 | 3a 57 6d 65 6e 75 24 28 |TIK SHA"|:Wmenu$(|
|00004630| 31 2c 34 2c 32 29 3d 22 | 46 4e 6e 75 6c 22 0d 10 |1,4,2)="|FNnul"..|
|00004640| 86 4a 57 6d 65 6e 75 24 | 28 31 2c 35 2c 30 29 3d |.JWmenu$|(1,5,0)=|
|00004650| 22 73 6f 72 74 20 62 79 | 20 74 79 70 65 22 3a 57 |"sort by| type":W|
|00004660| 6d 65 6e 75 24 28 31 2c | 35 2c 31 29 3d 22 53 48 |menu$(1,|5,1)="SH|
|00004670| 41 22 3a 57 6d 65 6e 75 | 24 28 31 2c 35 2c 32 29 |A":Wmenu|$(1,5,2)|
|00004680| 3d 22 46 4e 6e 75 6c 22 | 0d 10 90 4a 57 6d 65 6e |="FNnul"|...JWmen|
|00004690| 75 24 28 31 2c 36 2c 30 | 29 3d 22 73 6f 72 74 20 |u$(1,6,0|)="sort |
|000046a0| 62 79 20 73 69 7a 65 22 | 3a 57 6d 65 6e 75 24 28 |by size"|:Wmenu$(|
|000046b0| 31 2c 36 2c 31 29 3d 22 | 53 48 41 22 3a 57 6d 65 |1,6,1)="|SHA":Wme|
|000046c0| 6e 75 24 28 31 2c 36 2c | 32 29 3d 22 46 4e 6e 75 |nu$(1,6,|2)="FNnu|
|000046d0| 6c 22 0d 10 9a 4a 57 6d | 65 6e 75 24 28 31 2c 37 |l"...JWm|enu$(1,7|
|000046e0| 2c 30 29 3d 22 73 6f 72 | 74 20 62 79 20 64 61 74 |,0)="sor|t by dat|
|000046f0| 65 22 3a 57 6d 65 6e 75 | 24 28 31 2c 37 2c 31 29 |e":Wmenu|$(1,7,1)|
|00004700| 3d 22 53 48 41 22 3a 57 | 6d 65 6e 75 24 28 31 2c |="SHA":W|menu$(1,|
|00004710| 37 2c 32 29 3d 22 46 4e | 6e 75 6c 22 0d 10 a4 18 |7,2)="FN|nul"....|
|00004720| 57 6d 65 6e 75 24 28 32 | 2c 30 2c 30 29 3d 22 46 |Wmenu$(2|,0,0)="F|
|00004730| 69 6c 65 22 0d 10 ae 42 | 57 6d 65 6e 75 24 28 32 |ile"...B|Wmenu$(2|
|00004740| 2c 31 2c 30 29 3d 22 43 | 6f 70 79 22 3a 57 6d 65 |,1,0)="C|opy":Wme|
|00004750| 6e 75 24 28 32 2c 31 2c | 31 29 3d 22 53 48 41 22 |nu$(2,1,|1)="SHA"|
|00004760| 3a 57 6d 65 6e 75 24 28 | 32 2c 31 2c 32 29 3d 22 |:Wmenu$(|2,1,2)="|
|00004770| 4d 45 4e 55 35 22 0d 10 | b8 30 57 6d 65 6e 75 24 |MENU5"..|.0Wmenu$|
|00004780| 28 32 2c 32 2c 30 29 3d | 22 52 65 6e 61 6d 65 22 |(2,2,0)=|"Rename"|
|00004790| 3a 57 6d 65 6e 75 24 28 | 32 2c 32 2c 32 29 3d 22 |:Wmenu$(|2,2,2)="|
|000047a0| 4d 45 4e 55 36 22 0d 10 | c2 33 57 6d 65 6e 75 24 |MENU6"..|.3Wmenu$|
|000047b0| 28 32 2c 33 2c 30 29 3d | 22 44 65 6c 65 74 65 22 |(2,3,0)=|"Delete"|
|000047c0| 3a 57 6d 65 6e 75 24 28 | 32 2c 33 2c 32 29 3d 22 |:Wmenu$(|2,3,2)="|
|000047d0| 46 4e 44 65 6c 65 74 65 | 22 0d 10 cc 44 57 6d 65 |FNDelete|"...DWme|
|000047e0| 6e 75 24 28 32 2c 34 2c | 30 29 3d 22 41 63 63 65 |nu$(2,4,|0)="Acce|
|000047f0| 73 73 22 3a 57 6d 65 6e | 75 24 28 32 2c 34 2c 31 |ss":Wmen|u$(2,4,1|
|00004800| 29 3d 22 53 48 41 22 3a | 57 6d 65 6e 75 24 28 32 |)="SHA":|Wmenu$(2|
|00004810| 2c 34 2c 32 29 3d 22 46 | 4e 6e 75 6c 22 0d 10 d6 |,4,2)="F|Nnul"...|
|00004820| 43 57 6d 65 6e 75 24 28 | 32 2c 35 2c 30 29 3d 22 |CWmenu$(|2,5,0)="|
|00004830| 43 6f 75 6e 74 22 3a 57 | 6d 65 6e 75 24 28 32 2c |Count":W|menu$(2,|
|00004840| 35 2c 31 29 3d 22 53 48 | 41 22 3a 57 6d 65 6e 75 |5,1)="SH|A":Wmenu|
|00004850| 24 28 32 2c 35 2c 32 29 | 3d 22 46 4e 6e 75 6c 22 |$(2,5,2)|="FNnul"|
|00004860| 0d 10 e0 2f 57 6d 65 6e | 75 24 28 32 2c 36 2c 30 |.../Wmen|u$(2,6,0|
|00004870| 29 3d 22 48 65 6c 70 22 | 3a 57 6d 65 6e 75 24 28 |)="Help"|:Wmenu$(|
|00004880| 32 2c 36 2c 32 29 3d 22 | 46 4e 48 65 6c 70 22 0d |2,6,2)="|FNHelp".|
|00004890| 10 ea 1b 57 6d 65 6e 75 | 24 28 33 2c 30 2c 30 29 |...Wmenu|$(3,0,0)|
|000048a0| 3d 22 4f 70 74 69 6f 6e | 73 22 0d 10 f4 45 57 6d |="Option|s"...EWm|
|000048b0| 65 6e 75 24 28 33 2c 31 | 2c 30 29 3d 22 43 6f 6e |enu$(3,1|,0)="Con|
|000048c0| 66 69 72 6d 22 3a 57 6d | 65 6e 75 24 28 33 2c 31 |firm":Wm|enu$(3,1|
|000048d0| 2c 31 29 3d 22 53 48 41 | 22 3a 57 6d 65 6e 75 24 |,1)="SHA|":Wmenu$|
|000048e0| 28 33 2c 31 2c 32 29 3d | 22 46 4e 6e 75 6c 22 0d |(3,1,2)=|"FNnul".|
|000048f0| 10 fe 45 57 6d 65 6e 75 | 24 28 33 2c 32 2c 30 29 |..EWmenu|$(3,2,0)|
|00004900| 3d 22 56 65 72 62 6f 73 | 65 22 3a 57 6d 65 6e 75 |="Verbos|e":Wmenu|
|00004910| 24 28 33 2c 32 2c 31 29 | 3d 22 53 48 41 22 3a 57 |$(3,2,1)|="SHA":W|
|00004920| 6d 65 6e 75 24 28 33 2c | 32 2c 32 29 3d 22 46 4e |menu$(3,|2,2)="FN|
|00004930| 6e 75 6c 22 0d 11 08 19 | 57 6d 65 6e 75 24 28 34 |nul"....|Wmenu$(4|
|00004940| 2c 30 2c 30 29 3d 22 4e | 61 6d 65 3a 22 0d 11 12 |,0,0)="N|ame:"...|
|00004950| 2e 57 6d 65 6e 75 24 28 | 34 2c 31 2c 30 29 3d 22 |.Wmenu$(|4,1,0)="|
|00004960| 78 22 3a 57 6d 65 6e 75 | 24 28 34 2c 31 2c 32 29 |x":Wmenu|$(4,1,2)|
|00004970| 3d 22 57 52 49 54 45 31 | 30 31 22 0d 11 1c 19 57 |="WRITE1|01"....W|
|00004980| 6d 65 6e 75 24 28 35 2c | 30 2c 30 29 3d 22 4e 61 |menu$(5,|0,0)="Na|
|00004990| 6d 65 3a 22 0d 11 26 2e | 57 6d 65 6e 75 24 28 35 |me:"..&.|Wmenu$(5|
|000049a0| 2c 31 2c 30 29 3d 22 78 | 22 3a 57 6d 65 6e 75 24 |,1,0)="x|":Wmenu$|
|000049b0| 28 35 2c 31 2c 32 29 3d | 22 57 52 49 54 45 31 30 |(5,1,2)=|"WRITE10|
|000049c0| 32 22 0d 11 30 19 57 6d | 65 6e 75 24 28 36 2c 30 |2"..0.Wm|enu$(6,0|
|000049d0| 2c 30 29 3d 22 4e 61 6d | 65 3a 22 0d 11 3a 2e 57 |,0)="Nam|e:"..:.W|
|000049e0| 6d 65 6e 75 24 28 36 2c | 31 2c 30 29 3d 22 78 22 |menu$(6,|1,0)="x"|
|000049f0| 3a 57 6d 65 6e 75 24 28 | 36 2c 31 2c 32 29 3d 22 |:Wmenu$(|6,1,2)="|
|00004a00| 57 52 49 54 45 31 30 33 | 22 0d 11 44 05 e1 0d 11 |WRITE103|"..D....|
|00004a10| 4e 05 3a 0d 11 58 4b f4 | 20 53 6f 72 74 20 6f 75 |N.:..XK.| Sort ou|
|00004a20| 74 20 61 6e 79 20 73 70 | 65 63 69 61 6c 20 63 6f |t any sp|ecial co|
|00004a30| 6e 64 69 74 69 6f 6e 73 | 20 61 6e 64 20 61 6c 74 |nditions| and alt|
|00004a40| 65 72 20 57 6d 65 6e 75 | 24 20 62 65 66 6f 72 65 |er Wmenu|$ before|
|00004a50| 20 63 72 65 61 74 69 6e | 67 20 6d 65 6e 75 0d 11 | creatin|g menu..|
|00004a60| 62 2f dd f2 4d 65 6e 75 | 53 65 74 75 70 28 77 69 |b/..Menu|Setup(wi|
|00004a70| 6e 64 25 2c 69 63 6f 6e | 25 29 3a ea 20 74 25 2c |nd%,icon|%):. t%,|
|00004a80| 74 24 3a 74 25 3d 30 3a | 74 24 3d 22 22 0d 11 6c |t$:t%=0:|t$=""..l|
|00004a90| 24 f4 20 53 65 65 20 77 | 68 61 74 20 63 75 72 72 |$. See w|hat curr|
|00004aa0| 65 6e 74 6c 79 20 69 73 | 20 73 65 6c 65 63 74 65 |ently is| selecte|
|00004ab0| 64 0d 11 76 1b 57 6d 65 | 6e 75 24 28 30 2c 32 2c |d..v.Wme|nu$(0,2,|
|00004ac0| 30 29 3d 22 46 69 6c 65 | 20 27 27 22 0d 11 80 47 |0)="File| ''"...G|
|00004ad0| e7 20 4f 62 6a 53 65 6c | 25 3d 39 39 39 20 8c 20 |. ObjSel|%=999 . |
|00004ae0| 57 6d 65 6e 75 24 28 30 | 2c 32 2c 30 29 3d 22 53 |Wmenu$(0|,2,0)="S|
|00004af0| 65 6c 65 63 74 69 6f 6e | 22 3a 57 6d 65 6e 75 24 |election|":Wmenu$|
|00004b00| 28 32 2c 30 2c 30 29 3d | 22 53 65 6c 65 63 74 69 |(2,0,0)=|"Selecti|
|00004b10| 6f 6e 22 0d 11 8a 21 e7 | 20 4f 62 6a 53 65 6c 25 |on"...!.| ObjSel%|
|00004b20| 3c 3e 30 20 80 20 4f 62 | 6a 53 65 6c 25 3c 3e 39 |<>0 . Ob|jSel%<>9|
|00004b30| 39 39 20 8c 0d 11 94 32 | 20 20 20 20 6e 61 6d 65 |99 ....2|    name|
|00004b40| 24 3d a4 44 69 72 4f 62 | 6a 44 65 74 61 69 6c 28 |$=.DirOb|jDetail(|
|00004b50| 4f 62 6a 53 65 6c 25 2c | 74 79 70 25 2c 74 25 2c |ObjSel%,|typ%,t%,|
|00004b60| 74 25 2c 74 24 29 0d 11 | 9e 11 20 20 20 20 c8 8e |t%,t$)..|..    ..|
|00004b70| 20 74 79 70 25 20 ca 0d | 11 a8 37 20 20 20 20 20 | typ% ..|..7     |
|00004b80| 20 c9 20 26 31 30 30 30 | 20 20 20 20 3a 20 57 6d | . &1000|    : Wm|
|00004b90| 65 6e 75 24 28 30 2c 32 | 2c 30 29 3d 22 44 69 72 |enu$(0,2|,0)="Dir|
|00004ba0| 2e 20 27 22 2b 6e 61 6d | 65 24 2b 22 27 22 0d 11 |. '"+nam|e$+"'"..|
|00004bb0| b2 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.3      |        |
|00004bc0| 20 20 20 20 20 20 20 20 | 57 6d 65 6e 75 24 28 32 |        |Wmenu$(2|
|00004bd0| 2c 30 2c 30 29 3d 22 44 | 69 72 65 63 74 6f 72 79 |,0,0)="D|irectory|
|00004be0| 22 0d 11 bc 37 20 20 20 | 20 20 20 c9 20 26 32 30 |"...7   |   . &20|
|00004bf0| 30 30 20 20 20 20 3a 20 | 57 6d 65 6e 75 24 28 30 |00    : |Wmenu$(0|
|00004c00| 2c 32 2c 30 29 3d 22 41 | 70 70 2e 20 27 22 2b 6e |,2,0)="A|pp. '"+n|
|00004c10| 61 6d 65 24 2b 22 27 22 | 0d 11 c6 35 20 20 20 20 |ame$+"'"|...5    |
|00004c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c30| 20 20 57 6d 65 6e 75 24 | 28 32 2c 30 2c 30 29 3d |  Wmenu$|(2,0,0)=|
|00004c40| 22 41 70 70 6c 69 63 61 | 74 69 6f 6e 22 0d 11 d0 |"Applica|tion"...|
|00004c50| 32 20 20 20 20 20 20 7f | 20 20 20 20 20 3a 20 57 |2      .|     : W|
|00004c60| 6d 65 6e 75 24 28 30 2c | 32 2c 30 29 3d 22 46 69 |menu$(0,|2,0)="Fi|
|00004c70| 6c 65 20 27 22 2b 6e 61 | 6d 65 24 2b 22 27 22 0d |le '"+na|me$+"'".|
|00004c80| 11 da 2e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00004c90| 20 20 20 20 20 20 20 20 | 20 57 6d 65 6e 75 24 28 |        | Wmenu$(|
|00004ca0| 32 2c 30 2c 30 29 3d 22 | 46 69 6c 65 22 0d 11 e4 |2,0,0)="|File"...|
|00004cb0| 0b 20 20 20 20 20 20 cb | 0d 11 ee 07 20 20 cd 0d |.      .|....  ..|
|00004cc0| 11 f8 04 0d 12 02 04 0d | 12 0c 21 f2 57 69 6d 70 |........|..!.Wimp|
|00004cd0| 5f 43 72 65 61 74 65 4d | 65 6e 75 28 77 69 6e 64 |_CreateM|enu(wind|
|00004ce0| 25 2c 69 63 6f 6e 25 29 | 0d 12 16 05 e1 0d 12 20 |%,icon%)|....... |
|00004cf0| 05 3a 0d 12 2a 3e dd f2 | 57 69 6d 70 5f 43 72 65 |.:..*>..|Wimp_Cre|
|00004d00| 61 74 65 4d 65 6e 75 28 | 77 69 6e 64 25 2c 69 63 |ateMenu(|wind%,ic|
|00004d10| 6f 6e 25 29 3a ea 20 6d | 70 74 72 2c 63 6f 6c 2c |on%):. m|ptr,col,|
|00004d20| 6d 25 2c 69 74 65 6d 25 | 2c 61 63 74 24 2c 74 24 |m%,item%|,act$,t$|
|00004d30| 0d 12 34 38 6d 70 74 72 | 3d 57 69 6d 70 42 6c 6b |..48mptr|=WimpBlk|
|00004d40| 2b 32 30 20 3a 20 f4 20 | 41 66 74 65 72 20 72 65 |+20 : . |After re|
|00004d50| 74 75 72 6e 65 64 20 62 | 6c 6f 63 6b 20 66 6f 72 |turned b|lock for|
|00004d60| 20 62 75 74 74 6f 6e 73 | 0d 12 3e 2c 63 6f 6c 3d | buttons|..>,col=|
|00004d70| de 28 57 6d 65 6e 75 24 | 28 29 2c 31 29 3a 6d 77 |.(Wmenu$|(),1):mw|
|00004d80| 69 64 25 3d 31 37 32 3a | f4 20 6d 65 6e 75 20 77 |id%=172:|. menu w|
|00004d90| 69 64 74 68 0d 12 48 27 | f4 20 47 6f 20 74 68 72 |idth..H'|. Go thr|
|00004da0| 6f 75 67 68 20 73 65 74 | 74 69 6e 67 20 75 70 20 |ough set|ting up |
|00004db0| 6d 65 6e 75 20 62 6c 6f | 63 6b 73 0d 12 52 36 6d |menu blo|cks..R6m|
|00004dc0| 48 65 61 70 50 74 72 25 | 3d 6d 5f 68 65 61 70 25 |HeapPtr%|=m_heap%|
|00004dd0| 3a f4 20 48 65 61 70 20 | 70 6f 69 6e 74 65 72 20 |:. Heap |pointer |
|00004de0| 66 6f 72 20 69 6e 64 69 | 72 65 63 74 20 74 65 78 |for indi|rect tex|
|00004df0| 74 0d 12 5c 10 e3 20 6d | 25 3d 30 20 b8 20 63 6f |t..\.. m|%=0 . co|
|00004e00| 6c 0d 12 66 1f 20 20 6d | 77 69 64 25 3d 31 37 32 |l..f.  m|wid%=172|
|00004e10| 3a 6d 77 5f 70 74 72 25 | 3d 6d 70 74 72 2b 31 36 |:mw_ptr%|=mptr+16|
|00004e20| 0d 12 70 35 20 20 57 6d | 65 6e 75 24 28 6d 25 2c |..p5  Wm|enu$(m%,|
|00004e30| 30 2c 31 29 3d c3 6d 70 | 74 72 20 3a 20 f4 20 73 |0,1)=.mp|tr : . s|
|00004e40| 74 6f 72 65 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |tore poi|nter to |
|00004e50| 62 6c 6f 63 6b 0d 12 7a | 1e 20 20 f4 20 53 65 74 |block..z|.  . Set|
|00004e60| 20 75 70 20 6d 65 6e 75 | 20 70 61 72 61 6d 65 74 | up menu| paramet|
|00004e70| 65 72 73 0d 12 84 1f 20 | 20 24 6d 70 74 72 3d c0 |ers.... | $mptr=.|
|00004e80| 57 6d 65 6e 75 24 28 6d | 25 2c 30 2c 30 29 2c 31 |Wmenu$(m|%,0,0),1|
|00004e90| 32 29 0d 12 8e 2d 20 20 | 6d 70 74 72 3f 31 32 3d |2)...-  |mptr?12=|
|00004ea0| 37 3a 6d 70 74 72 3f 31 | 33 3d 32 3a 6d 70 74 72 |7:mptr?1|3=2:mptr|
|00004eb0| 3f 31 34 3d 37 3a 6d 70 | 74 72 3f 31 35 3d 30 0d |?14=7:mp|tr?15=0.|
|00004ec0| 12 98 29 20 20 21 6d 77 | 5f 70 74 72 25 3d 6d 77 |..)  !mw|_ptr%=mw|
|00004ed0| 69 64 25 3a 6d 70 74 72 | 21 32 30 3d 34 30 3a 6d |id%:mptr|!20=40:m|
|00004ee0| 70 74 72 21 32 34 3d 30 | 0d 12 a2 0e 20 20 6d 70 |ptr!24=0|....  mp|
|00004ef0| 74 72 2b 3d 32 38 0d 12 | ac 1c 20 20 f4 20 4e 6f |tr+=28..|..  . No|
|00004f00| 77 20 73 65 74 20 75 70 | 20 65 61 63 68 20 69 74 |w set up| each it|
|00004f10| 65 6d 0d 12 b6 0d 20 20 | 69 74 65 6d 25 3d 31 0d |em....  |item%=1.|
|00004f20| 12 c0 1f 20 20 c8 95 20 | 57 6d 65 6e 75 24 28 6d |...  .. |Wmenu$(m|
|00004f30| 25 2c 69 74 65 6d 25 2c | 30 29 3c 3e 22 22 0d 12 |%,item%,|0)<>""..|
|00004f40| ca 10 20 20 20 20 6d 70 | 74 72 21 30 3d 30 0d 12 |..    mp|tr!0=0..|
|00004f50| d4 27 20 20 20 20 6d 70 | 74 72 21 38 3d 26 30 37 |.'    mp|tr!8=&07|
|00004f60| 30 30 30 30 32 31 20 3a | 20 f4 20 49 63 6f 6e 20 |000021 :| . Icon |
|00004f70| 46 6c 61 67 73 0d 12 de | 35 20 20 20 20 74 24 3d |Flags...|5    t$=|
|00004f80| 57 6d 65 6e 75 24 28 6d | 25 2c 69 74 65 6d 25 2c |Wmenu$(m|%,item%,|
|00004f90| 30 29 20 3a f4 20 6d 61 | 6b 65 20 69 6e 64 69 72 |0) :. ma|ke indir|
|00004fa0| 65 63 74 20 69 66 20 3e | 31 32 0d 12 e8 24 20 20 |ect if >|12...$  |
|00004fb0| 20 20 6d 77 69 64 25 3d | a4 6d 61 78 28 6d 77 69 |  mwid%=|.max(mwi|
|00004fc0| 64 25 2c a9 74 24 2a 31 | 34 2b 31 30 30 29 0d 12 |d%,.t$*1|4+100)..|
|00004fd0| f2 14 20 20 20 20 f2 64 | 65 62 75 67 28 31 2c 74 |..    .d|ebug(1,t|
|00004fe0| 24 29 0d 12 fc 13 20 20 | 20 20 e7 20 a9 74 24 3c |$)....  |  . .t$<|
|00004ff0| 3d 31 32 20 8c 0d 13 06 | 19 20 20 20 20 20 20 20 |=12 ....|.       |
|00005000| 20 24 28 6d 70 74 72 2b | 31 32 29 3d 74 24 0d 13 | $(mptr+|12)=t$..|
|00005010| 10 0b 20 20 20 20 20 20 | cc 0d 13 1a 1d 20 20 20 |..      |.....   |
|00005020| 20 20 20 20 20 6d 70 74 | 72 21 31 32 3d 6d 48 65 |     mpt|r!12=mHe|
|00005030| 61 70 50 74 72 25 0d 13 | 24 2a 20 20 20 20 20 20 |apPtr%..|$*      |
|00005040| 20 20 24 6d 48 65 61 70 | 50 74 72 25 3d 74 24 3a |  $mHeap|Ptr%=t$:|
|00005050| 6d 48 65 61 70 50 74 72 | 25 2b 3d a9 74 24 2b 31 |mHeapPtr|%+=.t$+1|
|00005060| 0d 13 2e 21 20 20 20 20 | 20 20 20 20 6d 70 74 72 |...!    |    mptr|
|00005070| 21 31 36 3d 30 3a 6d 70 | 74 72 21 32 30 3d a9 74 |!16=0:mp|tr!20=.t|
|00005080| 24 0d 13 38 22 20 20 20 | 20 20 20 20 20 6d 70 74 |$..8"   |     mpt|
|00005090| 72 21 38 3d 28 6d 70 74 | 72 21 38 20 82 20 31 3c |r!8=(mpt|r!8 . 1<|
|000050a0| 3c 38 29 0d 13 42 0b 20 | 20 20 20 20 20 cd 0d 13 |<8)..B. |     ...|
|000050b0| 4c 23 20 20 20 20 61 63 | 74 24 3d c0 57 6d 65 6e |L#    ac|t$=.Wmen|
|000050c0| 75 24 28 6d 25 2c 69 74 | 65 6d 25 2c 32 29 2c 34 |u$(m%,it|em%,2),4|
|000050d0| 29 0d 13 56 11 20 20 20 | 20 c8 8e 20 61 63 74 24 |)..V.   | .. act$|
|000050e0| 20 ca 0d 13 60 3a 20 20 | 20 20 20 20 c9 20 22 4d | ...`:  |    . "M|
|000050f0| 45 4e 55 22 20 20 3a 20 | 6d 70 74 72 21 34 3d bb |ENU"  : |mptr!4=.|
|00005100| c1 57 6d 65 6e 75 24 28 | 6d 25 2c 69 74 65 6d 25 |.Wmenu$(|m%,item%|
|00005110| 2c 32 29 2c 35 29 2b 26 | 38 30 30 30 0d 13 6a 3c |,2),5)+&|8000..j<|
|00005120| 20 20 20 20 20 20 c9 20 | 22 57 49 4e 44 22 20 20 |      . |"WIND"  |
|00005130| 3a 20 6d 70 74 72 21 34 | 3d bb c1 57 6d 65 6e 75 |: mptr!4|=..Wmenu|
|00005140| 24 28 6d 25 2c 69 74 65 | 6d 25 2c 32 29 2c 35 29 |$(m%,ite|m%,2),5)|
|00005150| 3a f4 20 77 68 64 6c 25 | 0d 13 74 39 20 20 20 20 |:. whdl%|..t9    |
|00005160| 20 20 c9 20 22 57 52 49 | 54 22 20 20 3a 20 6d 70 |  . "WRI|T"  : mp|
|00005170| 74 72 21 30 3d 34 3a 6d | 70 74 72 21 34 3d 2d 31 |tr!0=4:m|ptr!4=-1|
|00005180| 3a 6d 70 74 72 21 38 3d | 26 30 37 30 30 30 31 32 |:mptr!8=|&0700012|
|00005190| 31 0d 13 7e 38 20 20 20 | 20 20 20 20 20 20 20 20 |1..~8   |        |
|000051a0| 20 20 20 20 20 20 20 20 | 3a 20 24 6d 48 65 61 70 |        |: $mHeap|
|000051b0| 50 74 72 25 3d 22 22 3a | 6d 70 74 72 21 31 32 3d |Ptr%="":|mptr!12=|
|000051c0| 6d 48 65 61 70 50 74 72 | 25 0d 13 88 3b 20 20 20 |mHeapPtr|%...;   |
|000051d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000051e0| 3a 20 6d 70 74 72 21 31 | 36 3d 30 3a 6d 70 74 72 |: mptr!1|6=0:mptr|
|000051f0| 21 32 30 3d 33 30 3a 6d | 48 65 61 70 50 74 72 25 |!20=30:m|HeapPtr%|
|00005200| 2b 3d 33 31 0d 13 92 1a | 20 20 20 20 20 20 7f 20 |+=31....|      . |
|00005210| 20 20 20 3a 20 6d 70 74 | 72 21 34 3d 2d 31 0d 13 |   : mpt|r!4=-1..|
|00005220| 9c 0b 20 20 20 20 20 20 | cb 0d 13 a6 3c 20 20 20 |..      |....<   |
|00005230| 20 f2 57 69 6d 70 5f 4d | 65 6e 75 43 6f 6e 64 69 | .Wimp_M|enuCondi|
|00005240| 74 69 6f 6e 73 28 57 6d | 65 6e 75 24 28 6d 25 2c |tions(Wm|enu$(m%,|
|00005250| 69 74 65 6d 25 2c 31 29 | 2c 77 69 6e 64 25 2c 69 |item%,1)|,wind%,i|
|00005260| 63 6f 6e 25 29 0d 13 b0 | 1b 20 20 20 20 f4 20 53 |con%)...|.    . S|
|00005270| 65 74 20 75 70 20 69 74 | 65 6d 20 62 79 74 65 73 |et up it|em bytes|
|00005280| 0d 13 ba 10 20 20 20 20 | 69 74 65 6d 25 2b 3d 31 |....    |item%+=1|
|00005290| 0d 13 c4 10 20 20 20 20 | 6d 70 74 72 2b 3d 32 34 |....    |mptr+=24|
|000052a0| 0d 13 ce 09 20 20 20 20 | ce 0d 13 d8 31 20 20 20 |....    |....1   |
|000052b0| 20 6d 70 74 72 21 2d 32 | 34 3d 6d 70 74 72 21 2d | mptr!-2|4=mptr!-|
|000052c0| 32 34 20 82 20 26 38 30 | 20 3a f4 20 4d 61 72 6b |24 . &80| :. Mark|
|000052d0| 20 6c 61 73 74 20 69 74 | 65 6d 0d 13 e2 37 20 20 | last it|em...7  |
|000052e0| 20 20 21 6d 77 5f 70 74 | 72 25 3d 6d 77 69 64 25 |  !mw_pt|r%=mwid%|
|000052f0| 20 20 3a 20 f4 20 72 65 | 73 65 74 20 77 69 64 74 |  : . re|set widt|
|00005300| 68 20 74 6f 20 6c 6f 6e | 67 65 73 74 20 69 74 65 |h to lon|gest ite|
|00005310| 6d 0d 13 ec 07 20 20 ed | 0d 13 f6 2f f4 20 4e 6f |m....  .|.../. No|
|00005320| 77 20 67 6f 20 74 68 72 | 6f 75 67 68 20 61 67 61 |w go thr|ough aga|
|00005330| 69 6e 20 61 64 64 69 6e | 67 20 6d 65 6e 75 20 70 |in addin|g menu p|
|00005340| 6f 69 6e 74 65 72 73 0d | 14 00 13 6d 70 74 72 3d |ointers.|...mptr=|
|00005350| 57 69 6d 70 42 6c 6b 2b | 32 30 0d 14 0a 10 e3 20 |WimpBlk+|20..... |
|00005360| 6d 25 3d 30 20 b8 20 63 | 6f 6c 0d 14 14 18 20 20 |m%=0 . c|ol....  |
|00005370| 6d 70 74 72 2b 3d 32 38 | 20 3a 20 69 74 65 6d 25 |mptr+=28| : item%|
|00005380| 3d 31 0d 14 1e 1f 20 20 | c8 95 20 57 6d 65 6e 75 |=1....  |.. Wmenu|
|00005390| 24 28 6d 25 2c 69 74 65 | 6d 25 2c 30 29 3c 3e 22 |$(m%,ite|m%,0)<>"|
|000053a0| 22 0d 14 28 2e 20 20 20 | 20 f4 20 52 65 70 6c 61 |"..(.   | . Repla|
|000053b0| 63 65 20 6d 65 6e 75 20 | 6e 75 6d 62 65 72 20 62 |ce menu |number b|
|000053c0| 79 20 62 6c 6f 63 6b 20 | 70 6f 69 6e 74 65 72 0d |y block |pointer.|
|000053d0| 14 32 3b 20 20 20 20 e7 | 20 6d 70 74 72 21 34 3e |.2;    .| mptr!4>|
|000053e0| 26 38 30 30 30 20 8c 20 | 6d 70 74 72 21 34 3d bb |&8000 . |mptr!4=.|
|000053f0| 57 6d 65 6e 75 24 28 28 | 6d 70 74 72 21 34 29 2d |Wmenu$((|mptr!4)-|
|00005400| 26 38 30 30 30 2c 30 2c | 31 29 0d 14 3c 1b 20 20 |&8000,0,|1)..<.  |
|00005410| 20 20 69 74 65 6d 25 2b | 3d 31 20 3a 20 6d 70 74 |  item%+|=1 : mpt|
|00005420| 72 2b 3d 32 34 0d 14 46 | 09 20 20 20 20 ce 0d 14 |r+=24..F|.    ...|
|00005430| 50 07 20 20 ed 0d 14 5a | 42 f4 20 4e 6f 77 20 73 |P.  ...Z|B. Now s|
|00005440| 65 6e 64 20 74 68 65 20 | 63 61 6c 6c 20 75 73 69 |end the |call usi|
|00005450| 6e 67 20 78 20 26 20 79 | 20 63 6f 6f 72 64 73 20 |ng x & y| coords |
|00005460| 66 72 6f 6d 20 62 75 74 | 74 6f 6e 20 70 6f 6c 6c |from but|ton poll|
|00005470| 20 72 65 74 75 72 6e 0d | 14 64 3e c8 99 20 22 57 | return.|.d>.. "W|
|00005480| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00005490| 2c 57 69 6d 70 42 6c 6b | 2b 32 30 2c 57 69 6d 70 |,WimpBlk|+20,Wimp|
|000054a0| 42 6c 6b 21 30 2d 33 32 | 2c 57 69 6d 70 42 6c 6b |Blk!0-32|,WimpBlk|
|000054b0| 21 34 2b 31 36 0d 14 6e | 05 e1 0d 14 78 05 3a 0d |!4+16..n|....x.:.|
|000054c0| 14 82 32 f4 20 41 6c 74 | 65 72 20 46 6c 61 67 73 |..2. Alt|er Flags|
|000054d0| 20 61 73 20 72 65 71 75 | 65 73 74 65 64 20 69 6e | as requ|ested in|
|000054e0| 20 63 6f 6e 64 69 74 69 | 6f 6e 20 73 74 72 69 6e | conditi|on strin|
|000054f0| 67 0d 14 8c 31 dd f2 57 | 69 6d 70 5f 4d 65 6e 75 |g...1..W|imp_Menu|
|00005500| 43 6f 6e 64 69 74 69 6f | 6e 73 28 63 24 2c 77 69 |Conditio|ns(c$,wi|
|00005510| 6e 64 25 2c 69 63 6f 6e | 25 29 3a ea 20 70 25 2c |nd%,icon|%):. p%,|
|00005520| 61 24 0d 14 96 0f e7 20 | 63 24 3d 22 22 20 8c 20 |a$..... |c$="" . |
|00005530| e1 0d 14 a0 05 f5 0d 14 | aa 23 20 20 70 25 3d a7 |........|.#  p%=.|
|00005540| 63 24 2c 22 20 22 29 3a | e7 20 70 25 3d 30 20 8c |c$," "):|. p%=0 .|
|00005550| 20 70 25 3d a9 63 24 2b | 31 0d 14 b4 1f 20 20 61 | p%=.c$+|1....  a|
|00005560| 24 3d c0 63 24 2c 70 25 | 2d 31 29 3a 63 24 3d c1 |$=.c$,p%|-1):c$=.|
|00005570| 63 24 2c 70 25 2b 31 29 | 0d 14 be 11 20 20 c8 8e |c$,p%+1)|....  ..|
|00005580| 20 c0 61 24 2c 31 29 20 | ca 0d 14 c8 35 20 20 20 | .a$,1) |....5   |
|00005590| 20 c9 20 22 49 22 20 20 | 3a 20 e7 20 69 63 6f 6e | . "I"  |: . icon|
|000055a0| 25 3d 2d 31 20 8c 20 6d | 70 74 72 21 38 3d 28 6d |%=-1 . m|ptr!8=(m|
|000055b0| 70 74 72 21 38 20 82 20 | 31 3c 3c 32 32 29 0d 14 |ptr!8 . |1<<22)..|
|000055c0| d2 28 20 20 20 20 c9 20 | 22 53 22 20 20 3a 20 6d |.(    . |"S"  : m|
|000055d0| 70 74 72 21 38 3d 28 6d | 70 74 72 21 38 20 82 20 |ptr!8=(m|ptr!8 . |
|000055e0| 31 3c 3c 32 32 29 0d 14 | dc 30 20 20 20 20 c9 20 |1<<22)..|.0    . |
|000055f0| 22 54 22 20 20 3a 20 6d | 70 74 72 21 30 3d 28 6d |"T"  : m|ptr!0=(m|
|00005600| 70 74 72 21 30 20 82 20 | 31 29 3a f4 20 54 69 63 |ptr!0 . |1):. Tic|
|00005610| 6b 20 69 74 65 6d 0d 14 | e6 3d 20 20 20 20 c9 20 |k item..|.=    . |
|00005620| 22 44 22 20 20 3a 20 6d | 70 74 72 21 30 3d 28 6d |"D"  : m|ptr!0=(m|
|00005630| 70 74 72 21 30 20 82 20 | 32 29 3a f4 20 44 6f 74 |ptr!0 . |2):. Dot|
|00005640| 74 65 64 20 6c 69 6e 65 | 20 61 66 74 65 72 20 69 |ted line| after i|
|00005650| 74 65 6d 0d 14 f0 09 20 | 20 20 20 cb 0d 14 fa 14 |tem.... |   .....|
|00005660| 20 20 fd 20 70 25 3d 30 | 20 84 20 63 24 3d 22 22 |  . p%=0| . c$=""|
|00005670| 0d 15 04 05 e1 0d 15 0e | 05 3a 0d 15 18 2b f4 20 |........|.:...+. |
|00005680| 43 61 6c 6c 65 64 20 66 | 72 6f 6d 20 57 69 6d 70 |Called f|rom Wimp|
|00005690| 50 6f 6c 6c 20 6f 6e 20 | 4d 65 6e 75 53 65 6c 65 |Poll on |MenuSele|
|000056a0| 63 74 69 6f 6e 0d 15 22 | 20 dd f2 57 69 6d 70 5f |ction.."| ..Wimp_|
|000056b0| 4d 65 6e 75 53 65 6c 65 | 63 74 3a ea 20 70 74 72 |MenuSele|ct:. ptr|
|000056c0| 2c 6d 65 6e 75 0d 15 2c | 22 c8 99 20 22 57 69 6d |,menu..,|".. "Wim|
|000056d0| 70 5f 47 65 74 50 6f 69 | 6e 74 65 72 49 6e 66 6f |p_GetPoi|nterInfo|
|000056e0| 22 2c 2c 42 6c 6b 25 0d | 15 36 25 e7 20 28 42 6c |",,Blk%.|.6%. (Bl|
|000056f0| 6b 25 21 38 20 80 20 31 | 29 20 3d 31 20 8c 20 61 |k%!8 . 1|) =1 . a|
|00005700| 64 6a 3d b9 20 8b 20 61 | 64 6a 3d a3 0d 15 40 19 |dj=. . a|dj=...@.|
|00005710| 6e 65 77 6d 65 6e 75 3d | 30 3a 70 74 72 3d 57 69 |newmenu=|0:ptr=Wi|
|00005720| 6d 70 42 6c 6b 0d 15 4a | 12 f5 3a 6d 65 6e 75 3d |mpBlk..J|..:menu=|
|00005730| 6e 65 77 6d 65 6e 75 0d | 15 54 24 20 20 61 63 74 |newmenu.|.T$  act|
|00005740| 69 6f 6e 24 3d 57 6d 65 | 6e 75 24 28 6d 65 6e 75 |ion$=Wme|nu$(menu|
|00005750| 2c 70 74 72 21 30 2b 31 | 2c 32 29 0d 15 5e 1a 20 |,ptr!0+1|,2)..^. |
|00005760| 20 6e 65 77 6d 65 6e 75 | 3d bb c1 61 63 74 69 6f | newmenu|=..actio|
|00005770| 6e 24 2c 35 29 0d 15 68 | 0c 20 20 70 74 72 2b 3d |n$,5)..h|.  ptr+=|
|00005780| 34 0d 15 72 17 20 20 fd | 20 70 74 72 21 30 3d 2d |4..r.  .| ptr!0=-|
|00005790| 31 3a 70 74 72 2d 3d 34 | 0d 15 7c 14 c8 8e 20 c0 |1:ptr-=4|..|... .|
|000057a0| 61 63 74 69 6f 6e 24 2c | 32 29 20 ca 0d 15 86 1d |action$,|2) .....|
|000057b0| 20 20 c9 20 22 46 4e 22 | 20 3a 76 6f 69 64 3d a0 |  . "FN"| :void=.|
|000057c0| 28 61 63 74 69 6f 6e 24 | 29 0d 15 90 36 20 20 c9 |(action$|)...6  .|
|000057d0| 20 22 57 52 22 20 3a f2 | 57 69 6d 70 5f 4d 65 6e | "WR" :.|Wimp_Men|
|000057e0| 75 49 6e 70 75 74 28 bb | c1 61 63 74 69 6f 6e 24 |uInput(.|.action$|
|000057f0| 2c 36 29 2c 6d 65 6e 75 | 2c 70 74 72 21 30 29 0d |,6),menu|,ptr!0).|
|00005800| 15 9a 07 20 20 cb 0d 15 | a4 2c f4 20 4b 65 65 70 |...  ...|.,. Keep|
|00005810| 20 6d 65 6e 75 20 69 66 | 20 41 64 6a 75 73 74 20 | menu if| Adjust |
|00005820| 72 61 74 68 65 72 20 74 | 68 61 6e 20 53 65 6c 65 |rather t|han Sele|
|00005830| 63 74 0d 15 ae 46 e7 20 | 61 64 6a 20 8c 20 c8 99 |ct...F. |adj . ..|
|00005840| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00005850| 75 22 2c 2c 57 69 6d 70 | 42 6c 6b 2b 32 30 2c 57 |u",,Wimp|Blk+20,W|
|00005860| 69 6d 70 42 6c 6b 21 30 | 2d 33 32 2c 57 69 6d 70 |impBlk!0|-32,Wimp|
|00005870| 42 6c 6b 21 34 2b 31 36 | 0d 15 b8 1c e1 20 3a 20 |Blk!4+16|..... : |
|00005880| f4 20 72 65 74 75 72 6e | 20 74 6f 20 57 69 6d 70 |. return| to Wimp|
|00005890| 50 6f 6c 6c 0d 15 c2 05 | 3a 0d 15 cc 0f dd a4 6e |Poll....|:......n|
|000058a0| 75 6c 3a ef 37 3a 3d a3 | 0d 15 d6 05 3a 0d 15 e0 |ul:.7:=.|....:...|
|000058b0| 2c f4 20 48 61 6e 64 6c | 65 20 69 6e 70 75 74 20 |,. Handl|e input |
|000058c0| 66 72 6f 6d 20 61 20 77 | 72 69 74 61 62 6c 65 20 |from a w|ritable |
|000058d0| 6d 65 6e 75 20 69 63 6f | 6e 0d 15 ea 2d dd f2 57 |menu ico|n...-..W|
|000058e0| 69 6d 70 5f 4d 65 6e 75 | 49 6e 70 75 74 28 77 69 |imp_Menu|Input(wi|
|000058f0| 6e 64 25 2c 6d 65 6e 75 | 2c 65 6e 74 72 79 29 3a |nd%,menu|,entry):|
|00005900| ea 20 70 74 72 25 0d 15 | f4 39 f4 20 43 61 6c 63 |. ptr%..|.9. Calc|
|00005910| 75 6c 61 74 65 20 77 68 | 65 72 65 20 69 63 6f 6e |ulate wh|ere icon|
|00005920| 20 64 61 74 61 20 69 73 | 20 61 6e 64 20 69 66 20 | data is| and if |
|00005930| 57 69 6d 70 5f 69 6e 64 | 69 72 65 63 74 65 64 0d |Wimp_ind|irected.|
|00005940| 15 fe 28 70 74 72 25 3d | bb 57 6d 65 6e 75 24 28 |..(ptr%=|.Wmenu$(|
|00005950| 6d 65 6e 75 2c 30 2c 31 | 29 2b 32 38 2b 65 6e 74 |menu,0,1|)+28+ent|
|00005960| 72 79 2a 32 34 2b 38 0d | 16 08 33 e7 20 28 70 74 |ry*24+8.|..3. (pt|
|00005970| 72 25 21 30 20 80 20 26 | 31 30 30 29 3d 30 20 8c |r%!0 . &|100)=0 .|
|00005980| 20 70 74 72 25 3d 70 74 | 72 25 2b 34 20 8b 20 70 | ptr%=pt|r%+4 . p|
|00005990| 74 72 25 3d 70 74 72 25 | 21 34 0d 16 12 0e c8 8e |tr%=ptr%|!4......|
|000059a0| 20 77 69 6e 64 25 20 ca | 0d 16 1c 42 20 20 c9 20 | wind% .|...B  . |
|000059b0| 31 30 31 20 3a 20 64 69 | 72 25 3d 57 69 6e 64 6f |101 : di|r%=Windo|
|000059c0| 77 25 28 43 75 72 57 69 | 6e 64 6f 77 25 2c 44 69 |w%(CurWi|ndow%,Di|
|000059d0| 72 4f 62 6a 49 44 25 29 | 20 3a 20 f4 20 4e 65 77 |rObjID%)| : . New|
|000059e0| 20 44 69 72 65 63 74 6f | 72 79 0d 16 26 2e 20 20 | Directo|ry..&.  |
|000059f0| 20 20 20 20 20 20 20 20 | 20 20 20 f2 4d 61 6b 65 |        |   .Make|
|00005a00| 44 69 72 28 64 69 72 25 | 2c 24 70 74 72 25 2c 22 |Dir(dir%|,$ptr%,"|
|00005a10| 22 2c 26 31 30 30 30 29 | 0d 16 30 24 20 20 20 20 |",&1000)|..0$    |
|00005a20| 20 20 20 20 20 20 20 20 | 20 f2 52 65 64 72 61 77 |        | .Redraw|
|00005a30| 57 69 6e 64 6f 77 28 64 | 69 72 25 29 0d 16 3a 14 |Window(d|ir%)..:.|
|00005a40| 20 20 c9 20 31 30 32 20 | 3a 20 f4 20 43 6f 70 79 |  . 102 |: . Copy|
|00005a50| 0d 16 44 2f 20 20 c9 20 | 31 30 33 20 3a 20 f2 72 |..D/  . |103 : .r|
|00005a60| 65 6e 61 6d 65 28 4f 62 | 6a 53 65 6c 25 2c 24 70 |ename(Ob|jSel%,$p|
|00005a70| 74 72 25 29 20 3a 20 f4 | 20 52 65 6e 61 6d 65 0d |tr%) : .| Rename.|
|00005a80| 16 4e 07 20 20 cb 0d 16 | 58 05 e1 0d 16 62 05 3a |.N.  ...|X....b.:|
|00005a90| 0d 16 6c 0a dd a4 48 65 | 6c 70 0d 16 76 20 f4 20 |..l...He|lp..v . |
|00005aa0| 4f 70 65 6e 20 61 6e 20 | 65 78 70 6c 61 6e 61 74 |Open an |explanat|
|00005ab0| 6f 72 79 20 77 69 6e 64 | 6f 77 0d 16 80 42 f4 20 |ory wind|ow...B. |
|00005ac0| 4c 61 74 65 72 20 61 64 | 64 20 69 6e 20 61 20 64 |Later ad|d in a d|
|00005ad0| 65 73 63 72 69 70 74 69 | 6f 6e 20 69 6e 20 4f 62 |escripti|on in Ob|
|00005ae0| 6a 65 63 74 20 72 65 63 | 6f 72 64 20 61 6e 64 20 |ject rec|ord and |
|00005af0| 64 69 73 70 6c 61 79 20 | 74 68 61 74 0d 16 8a 16 |display |that....|
|00005b00| f4 20 4f 70 65 6e 20 48 | 65 6c 70 20 57 69 6e 64 |. Open H|elp Wind|
|00005b10| 6f 77 0d 16 94 14 57 69 | 6d 70 42 6c 6b 21 30 3d |ow....Wi|mpBlk!0=|
|00005b20| 48 77 68 64 6c 25 0d 16 | 9e 25 c8 99 20 22 57 69 |Hwhdl%..|.%.. "Wi|
|00005b30| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00005b40| 65 22 2c 2c 57 69 6d 70 | 42 6c 6b 0d 16 a8 10 57 |e",,Wimp|Blk....W|
|00005b50| 69 6d 70 42 6c 6b 21 36 | 34 3d 31 0d 16 b2 21 c8 |impBlk!6|4=1...!.|
|00005b60| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00005b70| 6f 77 22 2c 2c 57 69 6d | 70 42 6c 6b 0d 16 bc 06 |ow",,Wim|pBlk....|
|00005b80| 3d b9 0d 16 c6 05 3a 0d | 16 d0 0c dd a4 70 61 72 |=.....:.|.....par|
|00005b90| 65 6e 74 0d 16 da 2a 70 | 61 74 68 24 3d a4 73 74 |ent...*p|ath$=.st|
|00005ba0| 72 69 6e 67 30 28 57 5f | 74 69 74 6c 65 2b 31 30 |ring0(W_|title+10|
|00005bb0| 30 2a 43 75 72 57 69 6e | 64 6f 77 25 29 0d 16 e4 |0*CurWin|dow%)...|
|00005bc0| 2f f5 3a 70 61 74 68 24 | 3d c0 70 61 74 68 24 29 |/.:path$|=.path$)|
|00005bd0| 3a fd 20 c2 70 61 74 68 | 24 29 3d 22 2e 22 3a 70 |:. .path|$)=".":p|
|00005be0| 61 74 68 24 3d c0 70 61 | 74 68 24 29 0d 16 ee 2d |ath$=.pa|th$)...-|
|00005bf0| 44 70 74 72 25 3d 57 69 | 6e 64 6f 77 25 28 43 75 |Dptr%=Wi|ndow%(Cu|
|00005c00| 72 57 69 6e 64 6f 77 25 | 2c 44 69 72 4f 62 6a 49 |rWindow%|,DirObjI|
|00005c10| 44 25 29 2d 31 30 30 30 | 30 0d 16 f8 25 f4 20 53 |D%)-1000|0...%. S|
|00005c20| 65 65 20 69 66 20 69 74 | 20 69 73 20 74 68 65 20 |ee if it| is the |
|00005c30| 72 6f 6f 74 20 6f 66 20 | 61 20 66 69 6c 65 0d 17 |root of |a file..|
|00005c40| 02 34 e7 20 57 69 6e 64 | 6f 77 25 28 43 75 72 57 |.4. Wind|ow%(CurW|
|00005c50| 69 6e 64 6f 77 25 2c 44 | 69 72 4f 62 6a 49 44 25 |indow%,D|irObjID%|
|00005c60| 29 2d 31 30 30 30 30 3d | 52 6f 6f 74 4f 62 6a 25 |)-10000=|RootObj%|
|00005c70| 20 8c 0d 17 0c 25 20 20 | 20 20 ff 28 22 46 69 6c | ....%  |  .("Fil|
|00005c80| 65 72 5f 4f 70 65 6e 44 | 69 72 20 22 2b c1 70 61 |er_OpenD|ir "+.pa|
|00005c90| 74 68 24 2c 34 29 29 0d | 17 16 07 20 20 cc 0d 17 |th$,4)).|...  ...|
|00005ca0| 20 3a 20 20 20 20 f2 57 | 69 6e 64 4e 65 77 44 69 | :    .W|indNewDi|
|00005cb0| 72 28 4f 62 6a 65 63 74 | 25 28 44 70 74 72 25 2c |r(Object|%(Dptr%,|
|00005cc0| 42 61 63 6b 50 74 72 49 | 44 25 29 2b 31 30 30 30 |BackPtrI|D%)+1000|
|00005cd0| 30 2c 70 61 74 68 24 29 | 0d 17 2a 07 20 20 cd 0d |0,path$)|..*.  ..|
|00005ce0| 17 34 06 3d b9 0d 17 3e | 05 3a 0d 17 48 33 f4 20 |.4.=...>|.:..H3. |
|00005cf0| 4f 6e 6c 79 20 6d 6f 76 | 65 20 6f 6e 65 20 6f 62 |Only mov|e one ob|
|00005d00| 6a 65 63 74 20 74 6f 20 | 6e 65 77 20 70 6f 73 69 |ject to |new posi|
|00005d10| 74 69 6f 6e 20 61 74 20 | 4c 61 73 74 25 0d 17 52 |tion at |Last%..R|
|00005d20| 36 f4 20 73 6f 20 68 61 | 76 65 20 74 6f 20 64 6f |6. so ha|ve to do|
|00005d30| 20 61 6c 6c 20 74 68 65 | 20 64 69 73 63 20 77 6f | all the| disc wo|
|00005d40| 72 6b 20 68 65 72 65 20 | 72 61 74 68 65 72 20 74 |rk here |rather t|
|00005d50| 68 61 6e 0d 17 5c 38 f4 | 20 75 73 65 20 74 68 65 |han..\8.| use the|
|00005d60| 20 6e 6f 72 6d 61 6c 20 | 72 6f 75 74 69 6e 65 73 | normal |routines|
|00005d70| 20 74 6f 20 4d 61 6b 65 | 20 61 6e 64 20 44 65 6c | to Make| and Del|
|00005d80| 65 74 65 20 6f 62 6a 65 | 63 74 73 0d 17 66 18 dd |ete obje|cts..f..|
|00005d90| f2 72 65 6e 61 6d 65 28 | 6f 62 6a 25 2c 6e 61 6d |.rename(|obj%,nam|
|00005da0| 65 24 29 0d 17 70 26 64 | 69 72 25 3d 57 69 6e 64 |e$)..p&d|ir%=Wind|
|00005db0| 6f 77 25 28 43 75 72 57 | 69 6e 64 6f 77 25 2c 44 |ow%(CurW|indow%,D|
|00005dc0| 69 72 4f 62 6a 49 44 25 | 29 0d 17 7a 20 e7 20 a4 |irObjID%|)..z . .|
|00005dd0| 4f 62 6a 45 78 69 73 74 | 73 28 64 69 72 25 2c 6e |ObjExist|s(dir%,n|
|00005de0| 61 6d 65 24 29 20 8c 20 | e1 0d 17 84 14 4f 70 74 |ame$) . |.....Opt|
|00005df0| 72 25 3d 6f 62 6a 25 2d | 31 30 30 30 30 0d 17 8e |r%=obj%-|10000...|
|00005e00| 37 70 72 65 76 25 3d 2d | 31 3a f5 3a 70 72 65 76 |7prev%=-|1:.:prev|
|00005e10| 25 2b 3d 31 3a fd 20 4f | 62 6a 65 63 74 25 28 70 |%+=1:. O|bject%(p|
|00005e20| 72 65 76 25 2c 44 6e 65 | 78 74 49 44 25 29 3d 4f |rev%,Dne|xtID%)=O|
|00005e30| 70 74 72 25 0d 17 98 04 | 0d 17 a2 2f 66 70 74 72 |ptr%....|.../fptr|
|00005e40| 25 3d a4 46 70 74 72 28 | 6f 62 6a 25 29 3a 66 24 |%=.Fptr(|obj%):f$|
|00005e50| 3d 46 69 6c 65 24 28 66 | 70 74 72 25 29 3a 68 64 |=File$(f|ptr%):hd|
|00005e60| 6c 25 3d ad 20 66 24 0d | 17 ac 04 0d 17 b6 21 4f |l%=. f$.|......!O|
|00005e70| 62 6a 65 63 74 25 28 70 | 72 65 76 25 2c 44 6e 65 |bject%(p|rev%,Dne|
|00005e80| 78 74 49 44 25 29 3d 4c | 61 73 74 25 0d 17 c0 23 |xtID%)=L|ast%...#|
|00005e90| 50 72 65 66 25 3d 4f 62 | 6a 65 63 74 25 28 70 72 |Pref%=Ob|ject%(pr|
|00005ea0| 65 76 25 2c 44 69 73 63 | 52 65 66 49 44 25 29 0d |ev%,Disc|RefID%).|
|00005eb0| 17 ca 3b cf 23 68 64 6c | 25 3d 34 2a 28 50 72 65 |..;.#hdl|%=4*(Pre|
|00005ec0| 66 25 2d 31 29 2b 31 30 | 30 3a 70 24 3d 22 22 3a |f%-1)+10|0:p$="":|
|00005ed0| e3 20 69 25 3d 31 20 b8 | 20 34 3a 70 24 2b 3d bd |. i%=1 .| 4:p$+=.|
|00005ee0| 28 9a 23 68 64 6c 25 29 | 3a ed 0d 17 d4 28 70 31 |(.#hdl%)|:....(p1|
|00005ef0| 25 3d a0 28 22 26 22 2b | 70 24 29 3a cf 23 68 64 |%=.("&"+|p$):.#hd|
|00005f00| 6c 25 3d 70 31 25 3a 6f | 62 6a 24 3d be 23 68 64 |l%=p1%:o|bj$=.#hd|
|00005f10| 6c 25 0d 17 de 2a c2 6f | 62 6a 24 2c 33 29 3d a4 |l%...*.o|bj$,3)=.|
|00005f20| 6c 65 6e 28 46 69 6c 65 | 25 28 66 70 74 72 25 2c |len(File|%(fptr%,|
|00005f30| 44 6c 61 73 74 49 44 25 | 29 2c 33 29 0d 17 e8 1a |DlastID%|),3)....|
|00005f40| cf 23 68 64 6c 25 3d 70 | 31 25 3a d5 23 68 64 6c |.#hdl%=p|1%:.#hdl|
|00005f50| 25 2c 6f 62 6a 24 0d 17 | f2 04 0d 17 fc 17 6f 62 |%,obj$..|......ob|
|00005f60| 6a 24 3d 4f 62 6a 65 63 | 74 24 28 4f 70 74 72 25 |j$=Objec|t$(Optr%|
|00005f70| 29 0d 18 06 31 70 25 3d | a7 6f 62 6a 24 2c 22 2c |)...1p%=|.obj$,",|
|00005f80| 22 2c 36 29 3a 6f 62 6a | 24 3d c0 6f 62 6a 24 2c |",6):obj|$=.obj$,|
|00005f90| 35 29 2b 6e 61 6d 65 24 | 2b c1 6f 62 6a 24 2c 70 |5)+name$|+.obj$,p|
|00005fa0| 25 29 0d 18 10 17 4f 62 | 6a 65 63 74 24 28 4c 61 |%)....Ob|ject$(La|
|00005fb0| 73 74 25 29 3d 6f 62 6a | 24 0d 18 1a 33 4f 62 6a |st%)=obj|$...3Obj|
|00005fc0| 65 63 74 25 28 4c 61 73 | 74 25 2c 44 6e 65 78 74 |ect%(Las|t%,Dnext|
|00005fd0| 49 44 25 29 3d 4f 62 6a | 65 63 74 25 28 4f 70 74 |ID%)=Obj|ect%(Opt|
|00005fe0| 72 25 2c 44 6e 65 78 74 | 49 44 25 29 0d 18 24 33 |r%,Dnext|ID%)..$3|
|00005ff0| 4f 62 6a 65 63 74 25 28 | 4c 61 73 74 25 2c 44 69 |Object%(|Last%,Di|
|00006000| 73 63 52 65 66 49 44 25 | 29 3d 46 69 6c 65 25 28 |scRefID%|)=File%(|
|00006010| 66 70 74 72 25 2c 44 6c | 61 73 74 49 44 25 29 0d |fptr%,Dl|astID%).|
|00006020| 18 2e 35 4e 72 65 66 25 | 3d 4f 62 6a 65 63 74 25 |..5Nref%|=Object%|
|00006030| 28 4f 62 6a 65 63 74 25 | 28 4f 70 74 72 25 2c 44 |(Object%|(Optr%,D|
|00006040| 6e 65 78 74 49 44 25 29 | 2c 44 69 73 63 52 65 66 |nextID%)|,DiscRef|
|00006050| 49 44 25 29 0d 18 38 11 | cf 23 68 64 6c 25 3d a2 |ID%)..8.|.#hdl%=.|
|00006060| 23 68 64 6c 25 0d 18 42 | 2c 70 31 25 3d 8f 23 68 |#hdl%..B|,p1%=.#h|
|00006070| 64 6c 25 3a d5 23 68 64 | 6c 25 2c 6f 62 6a 24 2b |dl%:.#hd|l%,obj$+|
|00006080| 22 2c 22 2b a4 6c 65 6e | 28 4e 72 65 66 25 2c 33 |","+.len|(Nref%,3|
|00006090| 29 0d 18 4c 3e cf 23 68 | 64 6c 25 3d 34 2a 28 46 |)..L>.#h|dl%=4*(F|
|000060a0| 69 6c 65 25 28 66 70 74 | 72 25 2c 44 6c 61 73 74 |ile%(fpt|r%,Dlast|
|000060b0| 49 44 25 29 2d 31 29 2b | 31 30 30 3a d5 23 68 64 |ID%)-1)+|100:.#hd|
|000060c0| 6c 25 2c a4 6c 65 6e 28 | 70 31 25 2c 34 29 3b 0d |l%,.len(|p1%,4);.|
|000060d0| 18 56 25 4c 61 73 74 25 | 2b 3d 31 3a 46 69 6c 65 |.V%Last%|+=1:File|
|000060e0| 25 28 66 70 74 72 25 2c | 44 6c 61 73 74 49 44 25 |%(fptr%,|DlastID%|
|000060f0| 29 2b 3d 31 0d 18 60 04 | 0d 18 6a 1d c0 4f 62 6a |)+=1..`.|..j..Obj|
|00006100| 65 63 74 24 28 4f 70 74 | 72 25 29 2c 34 29 3d 22 |ect$(Opt|r%),4)="|
|00006110| 39 39 39 38 22 0d 18 74 | 23 4f 72 65 66 25 3d 4f |9998"..t|#Oref%=O|
|00006120| 62 6a 65 63 74 25 28 4f | 70 74 72 25 2c 44 69 73 |bject%(O|ptr%,Dis|
|00006130| 63 52 65 66 49 44 25 29 | 0d 18 7e 3b cf 23 68 64 |cRefID%)|..~;.#hd|
|00006140| 6c 25 3d 34 2a 28 4f 72 | 65 66 25 2d 31 29 2b 31 |l%=4*(Or|ef%-1)+1|
|00006150| 30 30 3a 70 24 3d 22 22 | 3a e3 20 69 25 3d 31 20 |00:p$=""|:. i%=1 |
|00006160| b8 20 34 3a 70 24 2b 3d | bd 28 9a 23 68 64 6c 25 |. 4:p$+=|.(.#hdl%|
|00006170| 29 3a ed 0d 18 88 28 70 | 31 25 3d a0 28 22 26 22 |):....(p|1%=.("&"|
|00006180| 2b 70 24 29 3a cf 23 68 | 64 6c 25 3d 70 31 25 3a |+p$):.#h|dl%=p1%:|
|00006190| 6f 62 6a 24 3d be 23 68 | 64 6c 25 0d 18 92 13 c0 |obj$=.#h|dl%.....|
|000061a0| 6f 62 6a 24 2c 34 29 3d | 22 39 39 39 38 22 0d 18 |obj$,4)=|"9998"..|
|000061b0| 9c 1a cf 23 68 64 6c 25 | 3d 70 31 25 3a d5 23 68 |...#hdl%|=p1%:.#h|
|000061c0| 64 6c 25 2c 6f 62 6a 24 | 0d 18 a6 04 0d 18 b0 0a |dl%,obj$|........|
|000061d0| d9 23 68 64 6c 25 0d 18 | ba 17 f2 52 65 64 72 61 |.#hdl%..|...Redra|
|000061e0| 77 57 69 6e 64 6f 77 28 | 64 69 72 25 29 0d 18 c4 |wWindow(|dir%)...|
|000061f0| 05 e1 0d 18 ce 04 0d 18 | d8 3e 74 79 70 24 3d a4 |........|.>typ$=.|
|00006200| 74 79 70 65 28 6f 62 6a | 24 29 3a e7 20 74 79 70 |type(obj|$):. typ|
|00006210| 24 3d 22 31 30 30 30 22 | 20 84 20 74 79 70 24 3d |$="1000"| . typ$=|
|00006220| 22 32 30 30 30 22 20 8c | 20 64 25 3d 32 20 8b 20 |"2000" .| d%=2 . |
|00006230| 64 25 3d 31 0d 18 e2 20 | f2 4d 61 6b 65 4e 65 77 |d%=1... |.MakeNew|
|00006240| 28 64 69 72 25 2d 31 30 | 30 30 30 2c 6f 62 6a 24 |(dir%-10|000,obj$|
|00006250| 2c 64 25 29 0d 18 ec 18 | f2 44 65 6c 65 74 65 49 |,d%)....|.DeleteI|
|00006260| 74 28 6f 62 6a 25 2c 64 | 69 72 25 29 0d 18 f6 05 |t(obj%,d|ir%)....|
|00006270| e1 0d 19 00 05 3a 0d 19 | 0a 2a f4 20 2d 2d 2d 2d |.....:..|.*. ----|
|00006280| 2d 2d 2d 2d 2d 2d 45 72 | 72 6f 72 20 48 61 6e 64 |------Er|ror Hand|
|00006290| 6c 69 6e 67 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ling----|--------|
|000062a0| 0d 19 14 05 3a 0d 19 1e | 1a dd f2 57 69 6d 70 5f |....:...|...Wimp_|
|000062b0| 45 72 72 6f 72 3a ea 20 | 57 69 6d 70 5f 74 24 0d |Error:. |Wimp_t$.|
|000062c0| 19 28 1c f4 20 50 52 4f | 43 66 61 74 61 6c 28 31 |.(.. PRO|Cfatal(1|
|000062d0| 30 30 29 3a 45 4e 44 50 | 52 4f 43 0d 19 32 1d 57 |00):ENDP|ROC..2.W|
|000062e0| 69 6d 70 5f 74 24 3d f6 | 24 2b 22 20 61 74 20 6c |imp_t$=.|$+" at l|
|000062f0| 69 6e 65 20 22 2b c3 9e | 0d 19 3c 0e 21 57 69 6d |ine "+..|..<.!Wim|
|00006300| 70 42 6c 6b 3d 9f 0d 19 | 46 30 24 28 57 69 6d 70 |pBlk=...|F0$(Wimp|
|00006310| 42 6c 6b 2b 34 29 3d 57 | 69 6d 70 5f 74 24 3a 3f |Blk+4)=W|imp_t$:?|
|00006320| 28 57 69 6d 70 42 6c 6b | 2b a9 57 69 6d 70 5f 74 |(WimpBlk|+.Wimp_t|
|00006330| 24 2b 34 29 3d 30 0d 19 | 50 2c c8 99 22 57 69 6d |$+4)=0..|P,.."Wim|
|00006340| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 57 |p_Report|Error",W|
|00006350| 69 6d 70 42 6c 6b 2c 31 | 2c 54 61 73 6b 4e 61 6d |impBlk,1|,TaskNam|
|00006360| 65 24 0d 19 5a 05 e1 0d | 19 64 05 3a 0d 19 6e 0f |e$..Z...|.d.:..n.|
|00006370| dd f2 66 61 74 61 6c 28 | 63 25 29 0d 19 78 07 ef |..fatal(|c%)..x..|
|00006380| 20 37 0d 19 82 5d 57 69 | 6d 70 5f 74 24 3d 22 44 | 7...]Wi|mp_t$="D|
|00006390| 69 73 63 53 74 6f 72 65 | 20 68 61 73 20 64 65 74 |iscStore| has det|
|000063a0| 65 63 74 65 64 20 61 20 | 73 65 72 69 6f 75 73 20 |ected a |serious |
|000063b0| 65 72 72 6f 72 20 28 43 | 6f 64 65 20 22 2b c3 63 |error (C|ode "+.c|
|000063c0| 25 2b 22 29 20 61 6e 64 | 20 6d 75 73 74 20 65 78 |%+") and| must ex|
|000063d0| 69 74 20 69 6d 6d 65 64 | 69 61 74 65 6c 79 22 0d |it immed|iately".|
|000063e0| 19 8c 0e 21 57 69 6d 70 | 42 6c 6b 3d 9f 0d 19 96 |...!Wimp|Blk=....|
|000063f0| 30 24 28 57 69 6d 70 42 | 6c 6b 2b 34 29 3d 57 69 |0$(WimpB|lk+4)=Wi|
+--------+-------------------------+-------------------------+--------+--------+