/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities / _quicksrc / !QuickSrc / !Runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 27 f2 57 69 6d | 70 5f 53 74 61 72 74 28 |...'.Wim|p_Start(|
|00000010| 22 51 75 69 63 6b 53 6f | 75 72 63 65 22 2c 31 39 |"QuickSo|urce",19|
|00000020| 30 36 2c 36 39 38 29 0d | 00 14 18 f2 55 73 65 72 |06,698).|....User|
|00000030| 5f 53 65 74 49 6e 69 74 | 69 61 6c 44 61 74 61 0d |_SetInit|ialData.|
|00000040| 00 1e 13 f2 43 72 65 61 | 74 65 5f 57 69 6e 64 6f |....Crea|te_Windo|
|00000050| 77 73 0d 00 28 11 f2 43 | 72 65 61 74 65 5f 4d 65 |ws..(..C|reate_Me|
|00000060| 6e 75 73 0d 00 32 16 f2 | 57 69 6d 70 5f 57 61 69 |nus..2..|Wimp_Wai|
|00000070| 74 46 6f 72 45 76 65 6e | 74 0d 00 3c 13 f2 57 69 |tForEven|t..<..Wi|
|00000080| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 0d 00 46 05 |mp_Close|Down..F.|
|00000090| e0 0d 00 50 05 3a 0d 00 | 5a 1a dd 20 f2 55 73 65 |...P.:..|Z.. .Use|
|000000a0| 72 5f 53 65 74 49 6e 69 | 74 69 61 6c 44 61 74 61 |r_SetIni|tialData|
|000000b0| 0d 00 64 05 e1 0d 00 6e | 05 3a 0d 00 78 15 dd 20 |..d....n|.:..x.. |
|000000c0| f2 43 72 65 61 74 65 5f | 57 69 6e 64 6f 77 73 0d |.Create_|Windows.|
|000000d0| 00 82 29 6d 61 69 6e 5f | 57 69 6e 64 6f 77 25 3d |..)main_|Window%=|
|000000e0| a4 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4c 6f 61 64 |.Wimp_Wi|ndowLoad|
|000000f0| 28 22 6d 61 69 6e 22 29 | 0d 00 8c 28 f2 57 69 6d |("main")|...(.Wim|
|00000100| 70 5f 57 69 6e 64 6f 77 | 42 72 69 6e 67 54 6f 54 |p_Window|BringToT|
|00000110| 6f 70 28 6d 61 69 6e 5f | 57 69 6e 64 6f 77 25 29 |op(main_|Window%)|
|00000120| 0d 00 96 05 e1 0d 00 a0 | 05 3a 0d 00 aa 1c dd 20 |........|.:..... |
|00000130| a4 45 76 65 6e 74 5f 53 | 61 76 65 28 77 69 6e 64 |.Event_S|ave(wind|
|00000140| 6f 77 25 29 3d b9 0d 00 | b4 05 3a 0d 00 be 26 dd |ow%)=...|..:...&.|
|00000150| 20 a4 45 76 65 6e 74 5f | 53 70 72 69 74 65 73 28 | .Event_|Sprites(|
|00000160| 77 69 6e 64 6f 77 25 29 | 3d 73 70 72 69 74 65 73 |window%)|=sprites|
|00000170| 25 0d 00 c8 05 3a 0d 00 | d2 13 dd 20 f2 43 72 65 |%....:..|... .Cre|
|00000180| 61 74 65 5f 4d 65 6e 75 | 73 0d 00 dc 05 e1 0d 00 |ate_Menu|s.......|
|00000190| e6 05 3a 0d 00 f0 1a dd | 20 a4 45 76 65 6e 74 5f |..:.....| .Event_|
|000001a0| 4d 65 6e 75 28 77 69 6e | 64 6f 77 25 29 0d 00 fa |Menu(win|dow%)...|
|000001b0| 10 c8 8e 20 77 69 6e 64 | 6f 77 25 20 ca 0d 01 04 |... wind|ow% ....|
|000001c0| 1d c9 20 42 61 72 5f 57 | 69 6e 64 6f 77 25 20 20 |.. Bar_W|indow%  |
|000001d0| 20 20 20 20 20 20 3a 20 | 3d a3 0d 01 0e 18 7f 20 |      : |=...... |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 20 |        |      : |
|000001f0| 3d a3 0d 01 18 05 cb 0d | 01 22 05 3a 0d 01 2c 2a |=.......|.".:..,*|
|00000200| dd 20 f2 45 76 65 6e 74 | 5f 57 69 6e 64 6f 77 43 |. .Event|_WindowC|
|00000210| 6c 6f 73 65 28 77 69 6e | 64 6f 77 25 2c 62 75 74 |lose(win|dow%,but|
|00000220| 74 6f 6e 73 25 29 0d 01 | 36 10 c8 8e 20 77 69 6e |tons%)..|6... win|
|00000230| 64 6f 77 25 20 ca 0d 01 | 40 27 c9 20 6d 61 69 6e |dow% ...|@'. main|
|00000240| 5f 57 69 6e 64 6f 77 25 | 20 20 20 20 20 20 20 20 |_Window%|        |
|00000250| 3a 20 66 69 6e 69 73 68 | 65 64 25 3d b9 0d 01 4a |: finish|ed%=...J|
|00000260| 05 cb 0d 01 54 05 e1 0d | 01 5e 05 3a 0d 01 68 2e |....T...|.^.:..h.|
|00000270| dd 20 f2 45 76 65 6e 74 | 5f 44 72 61 77 28 77 69 |. .Event|_Draw(wi|
|00000280| 6e 64 6f 77 25 2c 78 5f | 6f 72 69 67 69 6e 25 2c |ndow%,x_|origin%,|
|00000290| 79 5f 6f 72 69 67 69 6e | 25 29 0d 01 72 10 c8 8e |y_origin|%)..r...|
|000002a0| 20 77 69 6e 64 6f 77 25 | 20 ca 0d 01 7c 30 c9 20 | window%| ...|0. |
|000002b0| 6d 61 69 6e 5f 57 69 6e | 64 6f 77 25 20 20 20 20 |main_Win|dow%    |
|000002c0| 20 20 20 20 3a 20 f2 55 | 73 65 72 5f 44 72 61 77 |    : .U|ser_Draw|
|000002d0| 6d 61 69 6e 57 69 6e 64 | 6f 77 0d 01 86 05 cb 0d |mainWind|ow......|
|000002e0| 01 90 05 e1 0d 01 9a 05 | 3a 0d 01 a4 1a dd 20 f2 |........|:..... .|
|000002f0| 55 73 65 72 5f 44 72 61 | 77 6d 61 69 6e 57 69 6e |User_Dra|wmainWin|
|00000300| 64 6f 77 0d 01 ae 05 e1 | 0d 01 b8 05 3a 0d 01 c2 |dow.....|....:...|
|00000310| 34 dd 20 f2 45 76 65 6e | 74 5f 4d 6f 75 73 65 43 |4. .Even|t_MouseC|
|00000320| 6c 69 63 6b 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |lick(win|dow%,ico|
|00000330| 6e 25 2c 62 75 74 74 6f | 6e 25 2c 78 25 2c 79 25 |n%,butto|n%,x%,y%|
|00000340| 29 0d 01 cc 10 c8 8e 20 | 77 69 6e 64 6f 77 25 20 |)...... |window% |
|00000350| ca 0d 01 d6 3a c9 20 6d | 61 69 6e 5f 57 69 6e 64 |....:. m|ain_Wind|
|00000360| 6f 77 25 20 20 20 20 20 | 20 20 3a 20 f2 55 73 65 |ow%     |  : .Use|
|00000370| 72 5f 4d 6f 75 73 65 6d | 61 69 6e 28 20 62 75 74 |r_Mousem|ain( but|
|00000380| 74 6f 6e 25 2c 69 63 6f | 6e 25 29 0d 01 e0 05 cb |ton%,ico|n%).....|
|00000390| 0d 01 ea 05 e1 0d 01 f4 | 05 3a 0d 01 fe 25 dd 20 |........|.:...%. |
|000003a0| f2 55 73 65 72 5f 4d 6f | 75 73 65 6d 61 69 6e 28 |.User_Mo|usemain(|
|000003b0| 20 62 75 74 74 6f 6e 25 | 2c 69 63 6f 6e 25 29 0d | button%|,icon%).|
|000003c0| 02 08 0e c8 8e 20 69 63 | 6f 6e 25 20 ca 0d 02 12 |..... ic|on% ....|
|000003d0| 16 c9 20 31 39 20 3a 20 | f2 62 75 6d 70 28 31 38 |.. 19 : |.bump(18|
|000003e0| 2c 31 29 0d 02 1c 17 c9 | 20 32 30 20 3a 20 f2 62 |,1).....| 20 : .b|
|000003f0| 75 6d 70 28 31 38 2c 2d | 31 29 0d 02 26 16 c9 20 |ump(18,-|1)..&.. |
|00000400| 32 32 20 3a 20 f2 62 75 | 6d 70 28 32 31 2c 31 29 |22 : .bu|mp(21,1)|
|00000410| 0d 02 30 17 c9 20 32 33 | 20 3a 20 f2 62 75 6d 70 |..0.. 23| : .bump|
|00000420| 28 32 31 2c 2d 31 29 0d | 02 3a 05 cb 0d 02 44 05 |(21,-1).|.:....D.|
|00000430| e1 0d 02 4e 05 3a 0d 02 | 58 15 dd f2 62 75 6d 70 |...N.:..|X...bump|
|00000440| 28 69 63 6f 6e 25 2c 6e | 6f 25 29 0d 02 62 2c 6e |(icon%,n|o%)..b,n|
|00000450| 25 3d bb 28 a4 57 69 6d | 70 5f 49 63 6f 6e 54 65 |%=.(.Wim|p_IconTe|
|00000460| 78 74 28 6d 61 69 6e 5f | 57 69 6e 64 6f 77 25 2c |xt(main_|Window%,|
|00000470| 69 63 6f 6e 25 29 29 0d | 02 6c 47 e7 20 28 6e 25 |icon%)).|.lG. (n%|
|00000480| 2b 6e 6f 25 29 3e 3d 30 | 20 8c 20 6e 25 2b 3d 6e |+no%)>=0| . n%+=n|
|00000490| 6f 25 3a f2 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 |o%:.Wimp|_IconPut|
|000004a0| 54 65 78 74 28 6d 61 69 | 6e 5f 57 69 6e 64 6f 77 |Text(mai|n_Window|
|000004b0| 25 2c 69 63 6f 6e 25 2c | c3 28 6e 25 29 29 0d 02 |%,icon%,|.(n%))..|
|000004c0| 76 05 e1 0d 02 80 05 3a | 0d 02 8a 29 dd 20 f2 45 |v......:|...). .E|
|000004d0| 76 65 6e 74 5f 4b 65 79 | 50 72 65 73 73 28 77 69 |vent_Key|Press(wi|
|000004e0| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 2c 6b 65 79 25 |ndow%,ic|on%,key%|
|000004f0| 29 0d 02 94 10 c8 8e 20 | 77 69 6e 64 6f 77 25 20 |)...... |window% |
|00000500| ca 0d 02 9e 3a c9 20 6d | 61 69 6e 5f 57 69 6e 64 |....:. m|ain_Wind|
|00000510| 6f 77 25 20 20 20 20 20 | 20 20 3a 20 f2 55 73 65 |ow%     |  : .Use|
|00000520| 72 5f 4b 65 79 50 72 65 | 73 73 6d 61 69 6e 28 20 |r_KeyPre|ssmain( |
|00000530| 69 63 6f 6e 25 2c 6b 65 | 79 25 29 0d 02 a8 05 cb |icon%,ke|y%).....|
|00000540| 0d 02 b2 05 e1 0d 02 bc | 05 3a 0d 02 c6 25 dd 20 |........|.:...%. |
|00000550| f2 55 73 65 72 5f 4b 65 | 79 50 72 65 73 73 6d 61 |.User_Ke|yPressma|
|00000560| 69 6e 28 20 69 63 6f 6e | 25 2c 6b 65 79 25 29 0d |in( icon|%,key%).|
|00000570| 02 d0 05 e1 0d 02 da 05 | 3a 0d 02 e4 1e dd 20 f2 |........|:..... .|
|00000580| 45 76 65 6e 74 5f 4d 65 | 6e 75 43 68 6f 69 63 65 |Event_Me|nuChoice|
|00000590| 28 6d 65 6e 75 25 29 0d | 02 ee 0e c8 8e 20 6d 65 |(menu%).|..... me|
|000005a0| 6e 75 25 20 ca 0d 02 f8 | 05 cb 0d 03 02 05 e1 0d |nu% ....|........|
|000005b0| 03 0c 05 3a 0d 03 16 22 | dd 20 f2 45 76 65 6e 74 |...:..."|. .Event|
|000005c0| 5f 4c 6f 61 64 46 69 6c | 65 28 66 69 6c 65 24 2c |_LoadFil|e(file$,|
|000005d0| 74 79 70 65 24 29 0d 03 | 20 05 e1 0d 03 2a 05 3a |type$)..| ....*.:|
|000005e0| 0d 03 34 24 dd 20 f2 45 | 76 65 6e 74 5f 53 61 76 |..4$. .E|vent_Sav|
|000005f0| 65 46 69 6c 65 28 66 69 | 6c 65 24 2c 77 69 6e 64 |eFile(fi|le$,wind|
|00000600| 6f 77 25 29 0d 03 3e 39 | ea 20 73 74 61 72 74 25 |ow%)..>9|. start%|
|00000610| 2c 69 6e 69 74 25 2c 63 | 6f 6d 6d 61 6e 64 25 2c |,init%,c|ommand%,|
|00000620| 66 69 6e 61 6c 25 2c 73 | 76 63 25 2c 73 77 69 25 |final%,s|vc%,swi%|
|00000630| 2c 74 69 74 6c 65 24 2c | 68 65 6c 70 24 0d 03 48 |,title$,|help$..H|
|00000640| 32 ea 20 63 6c 69 73 25 | 2c 73 77 69 73 25 2c 73 |2. clis%|,swis%,s|
|00000650| 77 69 70 72 65 66 69 78 | 24 2c 61 73 61 76 65 25 |wiprefix|$,asave%|
|00000660| 2c 61 72 75 6e 25 2c 66 | 69 6c 65 25 2c 63 25 0d |,arun%,f|ile%,c%.|
|00000670| 03 52 2e 73 74 61 72 74 | 25 3d a4 57 69 6d 70 5f |.R.start|%=.Wimp_|
|00000680| 49 63 6f 6e 53 65 6c 65 | 63 74 65 64 28 6d 61 69 |IconSele|cted(mai|
|00000690| 6e 5f 57 69 6e 64 6f 77 | 25 2c 31 30 29 0d 03 5c |n_Window|%,10)..\|
|000006a0| 2d 69 6e 69 74 25 3d a4 | 57 69 6d 70 5f 49 63 6f |-init%=.|Wimp_Ico|
|000006b0| 6e 53 65 6c 65 63 74 65 | 64 28 6d 61 69 6e 5f 57 |nSelecte|d(main_W|
|000006c0| 69 6e 64 6f 77 25 2c 31 | 32 29 0d 03 66 2f 63 6f |indow%,1|2)..f/co|
|000006d0| 6d 6d 61 6e 64 25 3d a4 | 57 69 6d 70 5f 49 63 6f |mmand%=.|Wimp_Ico|
|000006e0| 6e 53 65 6c 65 63 74 65 | 64 28 6d 61 69 6e 5f 57 |nSelecte|d(main_W|
|000006f0| 69 6e 64 6f 77 25 2c 38 | 29 0d 03 70 2e 66 69 6e |indow%,8|)..p.fin|
|00000700| 61 6c 25 3d a4 57 69 6d | 70 5f 49 63 6f 6e 53 65 |al%=.Wim|p_IconSe|
|00000710| 6c 65 63 74 65 64 28 6d | 61 69 6e 5f 57 69 6e 64 |lected(m|ain_Wind|
|00000720| 6f 77 25 2c 31 34 29 0d | 03 7a 2c 73 76 63 25 3d |ow%,14).|.z,svc%=|
|00000730| a4 57 69 6d 70 5f 49 63 | 6f 6e 53 65 6c 65 63 74 |.Wimp_Ic|onSelect|
|00000740| 65 64 28 6d 61 69 6e 5f | 57 69 6e 64 6f 77 25 2c |ed(main_|Window%,|
|00000750| 32 38 29 0d 03 84 2b 73 | 77 69 25 3d a4 57 69 6d |28)...+s|wi%=.Wim|
|00000760| 70 5f 49 63 6f 6e 53 65 | 6c 65 63 74 65 64 28 6d |p_IconSe|lected(m|
|00000770| 61 69 6e 5f 57 69 6e 64 | 6f 77 25 2c 39 29 0d 03 |ain_Wind|ow%,9)..|
|00000780| 8e 29 74 69 74 6c 65 24 | 3d a4 57 69 6d 70 5f 49 |.)title$|=.Wimp_I|
|00000790| 63 6f 6e 54 65 78 74 28 | 6d 61 69 6e 5f 57 69 6e |conText(|main_Win|
|000007a0| 64 6f 77 25 2c 35 29 0d | 03 98 28 68 65 6c 70 24 |dow%,5).|..(help$|
|000007b0| 3d a4 57 69 6d 70 5f 49 | 63 6f 6e 54 65 78 74 28 |=.Wimp_I|conText(|
|000007c0| 6d 61 69 6e 5f 57 69 6e | 64 6f 77 25 2c 37 29 0d |main_Win|dow%,7).|
|000007d0| 03 a2 2c 63 6c 69 73 25 | 3d bb 28 a4 57 69 6d 70 |..,clis%|=.(.Wimp|
|000007e0| 5f 49 63 6f 6e 54 65 78 | 74 28 6d 61 69 6e 5f 57 |_IconTex|t(main_W|
|000007f0| 69 6e 64 6f 77 25 2c 31 | 38 29 29 0d 03 ac 2c 73 |indow%,1|8))...,s|
|00000800| 77 69 73 25 3d bb 28 a4 | 57 69 6d 70 5f 49 63 6f |wis%=.(.|Wimp_Ico|
|00000810| 6e 54 65 78 74 28 6d 61 | 69 6e 5f 57 69 6e 64 6f |nText(ma|in_Windo|
|00000820| 77 25 2c 32 31 29 29 0d | 03 b6 2e 73 77 69 70 72 |w%,21)).|...swipr|
|00000830| 65 66 69 78 24 3d a4 57 | 69 6d 70 5f 49 63 6f 6e |efix$=.W|imp_Icon|
|00000840| 54 65 78 74 28 6d 61 69 | 6e 5f 57 69 6e 64 6f 77 |Text(mai|n_Window|
|00000850| 25 2c 32 35 29 0d 03 c0 | 2e 61 73 61 76 65 25 3d |%,25)...|.asave%=|
|00000860| a4 57 69 6d 70 5f 49 63 | 6f 6e 53 65 6c 65 63 74 |.Wimp_Ic|onSelect|
|00000870| 65 64 28 6d 61 69 6e 5f | 57 69 6e 64 6f 77 25 2c |ed(main_|Window%,|
|00000880| 32 36 29 0d 03 ca 2d 61 | 72 75 6e 25 3d a4 57 69 |26)...-a|run%=.Wi|
|00000890| 6d 70 5f 49 63 6f 6e 53 | 65 6c 65 63 74 65 64 28 |mp_IconS|elected(|
|000008a0| 6d 61 69 6e 5f 57 69 6e | 64 6f 77 25 2c 32 37 29 |main_Win|dow%,27)|
|000008b0| 0d 03 d4 19 6c 69 6e 65 | 25 3d 30 3a 69 6e 63 72 |....line|%=0:incr|
|000008c0| 65 6d 65 6e 74 25 3d 31 | 30 0d 03 de 19 ff 22 43 |ement%=1|0....."C|
|000008d0| 72 65 61 74 65 20 70 69 | 70 65 3a 24 2e 45 78 65 |reate pi|pe:$.Exe|
|000008e0| 63 22 0d 03 e8 22 ff 22 | 53 65 74 54 79 70 65 20 |c"..."."|SetType |
|000008f0| 70 69 70 65 3a 24 2e 45 | 78 65 63 20 43 6f 6d 6d |pipe:$.E|xec Comm|
|00000900| 61 6e 64 22 0d 03 f2 22 | 66 69 6c 65 25 3d ad 28 |and"..."|file%=.(|
|00000910| 22 70 69 70 65 3a 24 2e | 45 78 65 63 20 43 6f 6d |"pipe:$.|Exec Com|
|00000920| 6d 61 6e 64 22 29 0d 03 | fc 14 d5 23 66 69 6c 65 |mand")..|...#file|
|00000930| 25 2c 22 2a 42 61 73 69 | 63 22 0d 04 06 16 f2 70 |%,"*Basi|c".....p|
|00000940| 6c 28 22 52 45 4d 20 3e | 22 2b 66 69 6c 65 24 29 |l("REM >|"+file$)|
|00000950| 0d 04 10 3a f2 70 6c 28 | 22 52 45 4d 20 70 72 6f |...:.pl(|"REM pro|
|00000960| 64 75 63 65 64 20 62 79 | 20 51 75 69 63 6b 53 6f |duced by| QuickSo|
|00000970| 75 72 63 65 2c 20 61 20 | 66 72 65 65 77 61 72 65 |urce, a |freeware|
|00000980| 20 70 72 6f 67 72 61 6d | 22 29 0d 04 1a 10 f2 70 | program|").....p|
|00000990| 6c 28 22 4d 4f 44 45 30 | 22 29 0d 04 24 34 f2 70 |l("MODE0|")..$4.p|
|000009a0| 6c 28 22 4f 4e 20 45 52 | 52 4f 52 20 52 45 50 4f |l("ON ER|ROR REPO|
|000009b0| 52 54 3a 50 52 49 4e 54 | 22 22 61 74 20 6c 69 6e |RT:PRINT|""at lin|
|000009c0| 65 20 22 22 3b 45 52 4c | 3a 45 4e 44 22 29 0d 04 |e "";ERL|:END")..|
|000009d0| 2e 0c f2 70 6c 28 22 3a | 22 29 0d 04 38 16 f2 70 |...pl(":|")..8..p|
|000009e0| 6c 28 22 6c 69 6d 69 74 | 25 3d 31 30 32 34 22 29 |l("limit|%=1024")|
|000009f0| 0d 04 42 1c f2 70 6c 28 | 22 76 65 72 73 69 6f 6e |..B..pl(|"version|
|00000a00| 24 3d 22 22 31 2e 30 30 | 22 22 22 29 0d 04 4c 28 |$=""1.00|""")..L(|
|00000a10| f2 70 6c 28 22 73 77 69 | 70 72 65 66 69 78 24 3d |.pl("swi|prefix$=|
|00000a20| 22 22 22 2b 73 77 69 70 | 72 65 66 69 78 24 2b 22 |"""+swip|refix$+"|
|00000a30| 22 22 22 29 0d 04 56 1c | f2 70 6c 28 22 66 6e 61 |""")..V.|.pl("fna|
|00000a40| 6d 65 24 3d 22 22 4d 6f | 64 75 6c 65 22 22 22 29 |me$=""Mo|dule""")|
|00000a50| 0d 04 60 20 f2 70 6c 28 | 22 74 69 74 6c 65 24 3d |..` .pl(|"title$=|
|00000a60| 22 22 22 2b 74 69 74 6c | 65 24 2b 22 22 22 22 29 |"""+titl|e$+"""")|
|00000a70| 0d 04 6a 1e f2 70 6c 28 | 22 68 65 6c 70 24 3d 22 |..j..pl(|"help$="|
|00000a80| 22 22 2b 68 65 6c 70 24 | 2b 22 22 22 22 29 0d 04 |""+help$|+"""")..|
|00000a90| 74 1c e7 20 73 77 69 25 | 20 8c 20 f2 70 6c 28 22 |t.. swi%| . .pl("|
|00000aa0| 63 68 75 6e 6b 25 3d 30 | 22 29 0d 04 7e 13 f2 70 |chunk%=0|")..~..p|
|00000ab0| 6c 28 22 74 24 3d 43 48 | 52 24 30 22 29 0d 04 88 |l("t$=CH|R$0")...|
|00000ac0| 0c f2 70 6c 28 22 3a 22 | 29 0d 04 92 1b f2 70 6c |..pl(":"|).....pl|
|00000ad0| 28 22 44 49 4d 20 63 6f | 64 65 25 20 6c 69 6d 69 |("DIM co|de% limi|
|00000ae0| 74 25 22 29 0d 04 9c 24 | f2 70 6c 28 22 46 4f 52 |t%")...$|.pl("FOR|
|00000af0| 20 70 61 73 73 25 3d 31 | 32 20 54 4f 20 31 35 20 | pass%=1|2 TO 15 |
|00000b00| 53 54 45 50 20 33 22 29 | 0d 04 a6 28 f2 70 6c 28 |STEP 3")|...(.pl(|
|00000b10| 22 50 25 3d 30 3a 4f 25 | 3d 63 6f 64 65 25 3a 4c |"P%=0:O%|=code%:L|
|00000b20| 25 3d 63 6f 64 65 25 2b | 6c 69 6d 69 74 25 22 29 |%=code%+|limit%")|
|00000b30| 0d 04 b0 15 f2 70 6c 28 | 22 5b 4f 50 54 20 70 61 |.....pl(|"[OPT pa|
|00000b40| 73 73 25 22 29 0d 04 ba | 0c f2 70 6c 28 22 3a 22 |ss%")...|..pl(":"|
|00000b50| 29 0d 04 c4 3e e7 20 73 | 74 61 72 74 25 20 8c 20 |)...>. s|tart% . |
|00000b60| f2 70 6c 28 22 45 51 55 | 44 20 73 74 61 72 74 25 |.pl("EQU|D start%|
|00000b70| 22 29 20 8b 20 f2 70 6c | 28 22 45 51 55 44 20 30 |") . .pl|("EQUD 0|
|00000b80| 20 3b 20 73 74 61 72 74 | 20 63 6f 64 65 22 29 0d | ; start| code").|
|00000b90| 04 ce 3b e7 20 69 6e 69 | 74 25 20 8c 20 f2 70 6c |..;. ini|t% . .pl|
|00000ba0| 28 22 45 51 55 44 20 69 | 6e 69 74 25 22 29 20 8b |("EQUD i|nit%") .|
|00000bb0| 20 f2 70 6c 28 22 45 51 | 55 44 20 30 20 3b 20 69 | .pl("EQ|UD 0 ; i|
|00000bc0| 6e 69 74 20 63 6f 64 65 | 22 29 0d 04 d8 3e e7 20 |nit code|")...>. |
|00000bd0| 66 69 6e 61 6c 25 20 8c | 20 f2 70 6c 28 22 45 51 |final% .| .pl("EQ|
|00000be0| 55 44 20 66 69 6e 61 6c | 25 22 29 20 8b 20 f2 70 |UD final|%") . .p|
|00000bf0| 6c 28 22 45 51 55 44 20 | 30 20 3b 20 66 69 6e 61 |l("EQUD |0 ; fina|
|00000c00| 6c 20 63 6f 64 65 22 29 | 0d 04 e2 3f e7 20 73 76 |l code")|...?. sv|
|00000c10| 63 25 20 8c 20 f2 70 6c | 28 22 45 51 55 44 20 73 |c% . .pl|("EQUD s|
|00000c20| 65 72 76 69 63 65 25 22 | 29 20 8b 20 f2 70 6c 28 |ervice%"|) . .pl(|
|00000c30| 22 45 51 55 44 20 30 20 | 3b 20 53 56 43 20 68 61 |"EQUD 0 |; SVC ha|
|00000c40| 6e 64 6c 65 72 22 29 0d | 04 ec 16 f2 70 6c 28 22 |ndler").|....pl("|
|00000c50| 45 51 55 44 20 74 69 74 | 6c 65 25 22 29 0d 04 f6 |EQUD tit|le%")...|
|00000c60| 15 f2 70 6c 28 22 45 51 | 55 44 20 68 65 6c 70 25 |..pl("EQ|UD help%|
|00000c70| 22 29 0d 05 00 45 e7 20 | 63 6f 6d 6d 61 6e 64 25 |")...E. |command%|
|00000c80| 20 8c 20 f2 70 6c 28 22 | 45 51 55 44 20 63 6f 6d | . .pl("|EQUD com|
|00000c90| 6d 61 6e 64 25 22 29 20 | 8b 20 f2 70 6c 28 22 45 |mand%") |. .pl("E|
|00000ca0| 51 55 44 20 30 20 3b 20 | 63 6f 6d 6d 61 6e 64 20 |QUD 0 ; |command |
|00000cb0| 74 61 62 6c 65 22 29 0d | 05 0a 0c e7 20 73 77 69 |table").|.... swi|
|00000cc0| 25 20 8c 0d 05 14 16 f2 | 70 6c 28 22 45 51 55 44 |% ......|pl("EQUD|
|00000cd0| 20 63 68 75 6e 6b 25 22 | 29 0d 05 1e 18 f2 70 6c | chunk%"|).....pl|
|00000ce0| 28 22 45 51 55 44 20 68 | 61 6e 64 6c 65 72 25 22 |("EQUD h|andler%"|
|00000cf0| 29 0d 05 28 17 f2 70 6c | 28 22 45 51 55 44 20 64 |)..(..pl|("EQUD d|
|00000d00| 74 61 62 6c 65 25 22 29 | 0d 05 32 16 f2 70 6c 28 |table%")|..2..pl(|
|00000d10| 22 45 51 55 44 20 64 63 | 6f 64 65 25 22 29 0d 05 |"EQUD dc|ode%")..|
|00000d20| 3c 05 cd 0d 05 46 0c f2 | 70 6c 28 22 3a 22 29 0d |<....F..|pl(":").|
|00000d30| 05 50 12 f2 70 6c 28 22 | 2e 74 69 74 6c 65 25 22 |.P..pl("|.title%"|
|00000d40| 29 0d 05 5a 19 f2 70 6c | 28 22 45 51 55 53 20 74 |)..Z..pl|("EQUS t|
|00000d50| 69 74 6c 65 24 2b 74 24 | 22 29 0d 05 64 11 f2 70 |itle$+t$|")..d..p|
|00000d60| 6c 28 22 2e 68 65 6c 70 | 25 22 29 0d 05 6e 75 f2 |l(".help|%")..nu.|
|00000d70| 70 6c 28 22 45 51 55 53 | 20 74 69 74 6c 65 24 2b |pl("EQUS| title$+|
|00000d80| 53 54 52 49 4e 47 24 28 | 32 32 2d 4c 45 4e 28 74 |STRING$(|22-LEN(t|
|00000d90| 69 74 6c 65 24 29 2c 22 | 22 20 22 22 29 2b 76 65 |itle$),"|" "")+ve|
|00000da0| 72 73 69 6f 6e 24 2b 22 | 22 28 22 22 2b 4d 49 44 |rsion$+"|"(""+MID|
|00000db0| 24 28 54 49 4d 45 24 2c | 35 2c 31 31 29 2b 22 22 |$(TIME$,|5,11)+""|
|00000dc0| 29 22 22 2b 43 48 52 24 | 28 31 33 29 2b 43 48 52 |)""+CHR$|(13)+CHR|
|00000dd0| 24 28 31 33 29 2b 68 65 | 6c 70 24 2b 74 24 22 29 |$(13)+he|lp$+t$")|
|00000de0| 0d 05 78 10 f2 70 6c 28 | 22 41 4c 49 47 4e 22 29 |..x..pl(|"ALIGN")|
|00000df0| 0d 05 82 0c f2 70 6c 28 | 22 3a 22 29 0d 05 8c 38 |.....pl(|":")...8|
|00000e00| e7 20 73 74 61 72 74 25 | 20 8c 20 f2 70 6c 28 22 |. start%| . .pl("|
|00000e10| 2e 73 74 61 72 74 25 22 | 29 3a f2 70 6c 28 22 4d |.start%"|):.pl("M|
|00000e20| 4f 56 20 50 43 2c 52 31 | 34 22 29 3a f2 70 6c 28 |OV PC,R1|4"):.pl(|
|00000e30| 22 3a 22 29 0d 05 96 36 | e7 20 69 6e 69 74 25 20 |":")...6|. init% |
|00000e40| 8c 20 f2 70 6c 28 22 2e | 69 6e 69 74 25 22 29 3a |. .pl(".|init%"):|
|00000e50| f2 70 6c 28 22 4d 4f 56 | 20 50 43 2c 52 31 34 22 |.pl("MOV| PC,R14"|
|00000e60| 29 3a f2 70 6c 28 22 3a | 22 29 0d 05 a0 38 e7 20 |):.pl(":|")...8. |
|00000e70| 66 69 6e 61 6c 25 20 8c | 20 f2 70 6c 28 22 2e 66 |final% .| .pl(".f|
|00000e80| 69 6e 61 6c 25 22 29 3a | f2 70 6c 28 22 4d 4f 56 |inal%"):|.pl("MOV|
|00000e90| 20 50 43 2c 52 31 34 22 | 29 3a f2 70 6c 28 22 3a | PC,R14"|):.pl(":|
|00000ea0| 22 29 0d 05 aa 38 e7 20 | 73 76 63 25 20 8c 20 f2 |")...8. |svc% . .|
|00000eb0| 70 6c 28 22 2e 73 65 72 | 76 69 63 65 25 22 29 3a |pl(".ser|vice%"):|
|00000ec0| f2 70 6c 28 22 4d 4f 56 | 20 50 43 2c 52 31 34 22 |.pl("MOV| PC,R14"|
|00000ed0| 29 3a f2 70 6c 28 22 3a | 22 29 0d 05 b4 10 e7 20 |):.pl(":|")..... |
|00000ee0| 63 6f 6d 6d 61 6e 64 25 | 20 8c 0d 05 be 15 20 f2 |command%| ..... .|
|00000ef0| 70 6c 28 22 2e 63 6f 6d | 6d 61 6e 64 25 22 29 0d |pl(".com|mand%").|
|00000f00| 05 c8 10 20 e7 20 63 6c | 69 73 25 3d 30 20 8c 0d |... . cl|is%=0 ..|
|00000f10| 05 d2 27 20 20 f2 70 6c | 28 22 45 51 55 42 20 30 |..'  .pl|("EQUB 0|
|00000f20| 20 3b 20 63 6f 6d 6d 61 | 6e 64 20 74 61 62 6c 65 | ; comma|nd table|
|00000f30| 20 65 6e 64 22 29 0d 05 | dc 06 20 cc 0d 05 e6 14 | end")..|.. .....|
|00000f40| 20 20 e3 20 63 25 3d 31 | 20 b8 20 63 6c 69 73 25 |  . c%=1| . clis%|
|00000f50| 0d 05 f0 33 20 20 f2 70 | 6c 28 22 45 51 55 53 20 |...3  .p|l("EQUS |
|00000f60| 22 22 43 6f 6d 6d 61 6e | 64 22 2b c3 28 63 25 29 |""Comman|d"+.(c%)|
|00000f70| 2b 22 22 22 3a 45 51 55 | 42 20 30 3a 41 4c 49 47 |+""":EQU|B 0:ALIG|
|00000f80| 4e 22 29 0d 05 fa 23 20 | 20 f2 70 6c 28 22 45 51 |N")...# | .pl("EQ|
|00000f90| 55 44 20 63 6f 6d 6d 61 | 6e 64 22 2b c3 28 63 25 |UD comma|nd"+.(c%|
|00000fa0| 29 2b 22 25 22 29 0d 06 | 04 3b 20 20 f2 70 6c 28 |)+"%")..|.;  .pl(|
|00000fb0| 22 45 51 55 42 20 30 3a | 45 51 55 42 20 30 3a 45 |"EQUB 0:|EQUB 0:E|
|00000fc0| 51 55 42 20 30 3a 45 51 | 55 42 20 30 20 3b 20 69 |QUB 0:EQ|UB 0 ; i|
|00000fd0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 77 6f 72 64 22 |nformati|on word"|
|00000fe0| 29 0d 06 0e 22 20 20 f2 | 70 6c 28 22 45 51 55 44 |)..."  .|pl("EQUD|
|00000ff0| 20 73 79 6e 74 61 78 22 | 2b c3 28 63 25 29 2b 22 | syntax"|+.(c%)+"|
|00001000| 25 22 29 0d 06 18 20 20 | 20 f2 70 6c 28 22 45 51 |%")...  | .pl("EQ|
|00001010| 55 44 20 68 65 6c 70 22 | 2b c3 28 63 25 29 2b 22 |UD help"|+.(c%)+"|
|00001020| 25 22 29 0d 06 22 0a 20 | 20 ed 20 63 25 0d 06 2c |%")..". | . c%..,|
|00001030| 27 20 20 f2 70 6c 28 22 | 45 51 55 42 20 30 20 3b |'  .pl("|EQUB 0 ;|
|00001040| 20 63 6f 6d 6d 61 6e 64 | 20 74 61 62 6c 65 20 65 | command| table e|
|00001050| 6e 64 22 29 0d 06 36 06 | 20 cd 0d 06 40 0d 20 f2 |nd")..6.| ...@. .|
|00001060| 70 6c 28 22 3a 22 29 0d | 06 4a 05 cd 0d 06 54 1a |pl(":").|.J....T.|
|00001070| e7 20 63 6f 6d 6d 61 6e | 64 25 20 80 20 63 6c 69 |. comman|d% . cli|
|00001080| 73 25 3e 30 20 8c 0d 06 | 5e 13 20 e3 20 63 25 3d |s%>0 ...|^. . c%=|
|00001090| 31 20 b8 20 63 6c 69 73 | 25 0d 06 68 1e 20 f2 70 |1 . clis|%..h. .p|
|000010a0| 6c 28 22 2e 63 6f 6d 6d | 61 6e 64 22 2b c3 28 63 |l(".comm|and"+.(c|
|000010b0| 25 29 2b 22 25 22 29 0d | 06 72 16 20 f2 70 6c 28 |%)+"%").|.r. .pl(|
|000010c0| 22 4d 4f 56 20 50 43 2c | 52 31 34 22 29 0d 06 7c |"MOV PC,|R14")..||
|000010d0| 1d 20 f2 70 6c 28 22 2e | 73 79 6e 74 61 78 22 2b |. .pl(".|syntax"+|
|000010e0| c3 28 63 25 29 2b 22 25 | 22 29 0d 06 86 27 20 f2 |.(c%)+"%|")...' .|
|000010f0| 70 6c 28 22 45 51 55 53 | 20 22 22 53 79 6e 74 61 |pl("EQUS| ""Synta|
|00001100| 78 3a 20 43 6f 6d 6d 61 | 6e 64 22 22 2b 74 24 22 |x: Comma|nd""+t$"|
|00001110| 29 0d 06 90 1b 20 f2 70 | 6c 28 22 2e 68 65 6c 70 |).... .p|l(".help|
|00001120| 22 2b c3 28 63 25 29 2b | 22 25 22 29 0d 06 9a 31 |"+.(c%)+|"%")...1|
|00001130| 20 f2 70 6c 28 22 45 51 | 55 53 20 22 22 54 68 69 | .pl("EQ|US ""Thi|
|00001140| 73 20 63 6f 6d 6d 61 6e | 64 20 64 6f 65 73 20 6e |s comman|d does n|
|00001150| 6f 74 68 69 6e 67 22 22 | 2b 74 24 22 29 0d 06 a4 |othing""|+t$")...|
|00001160| 11 20 f2 70 6c 28 22 41 | 4c 49 47 4e 22 29 0d 06 |. .pl("A|LIGN")..|
|00001170| ae 0d 20 f2 70 6c 28 22 | 3a 22 29 0d 06 b8 09 20 |.. .pl("|:").... |
|00001180| ed 20 63 25 0d 06 c2 05 | cd 0d 06 cc 0c e7 20 73 |. c%....|...... s|
|00001190| 77 69 25 20 8c 0d 06 d6 | 10 20 e7 20 73 77 69 73 |wi% ....|. . swis|
|000011a0| 25 3d 30 20 8c 0d 06 e0 | 16 20 20 f2 70 6c 28 22 |%=0 ....|.  .pl("|
|000011b0| 2e 68 61 6e 64 6c 65 72 | 25 22 29 0d 06 ea 17 20 |.handler|%").... |
|000011c0| 20 f2 70 6c 28 22 4d 4f | 56 20 50 43 2c 52 31 34 | .pl("MO|V PC,R14|
|000011d0| 22 29 0d 06 f4 0e 20 20 | f2 70 6c 28 22 3a 22 29 |")....  |.pl(":")|
|000011e0| 0d 06 fe 15 20 20 f2 70 | 6c 28 22 2e 64 74 61 62 |....  .p|l(".dtab|
|000011f0| 6c 65 25 22 29 0d 07 08 | 1c 20 20 f2 70 6c 28 22 |le%")...|.  .pl("|
|00001200| 45 51 55 53 20 73 77 69 | 70 72 65 66 69 78 24 22 |EQUS swi|prefix$"|
|00001210| 29 0d 07 12 13 20 20 f2 | 70 6c 28 22 45 51 55 42 |)....  .|pl("EQUB|
|00001220| 20 30 22 29 0d 07 1c 23 | 20 20 f2 70 6c 28 22 45 | 0")...#|  .pl("E|
|00001230| 51 55 42 20 30 20 3b 20 | 73 77 69 20 74 61 62 6c |QUB 0 ; |swi tabl|
|00001240| 65 20 65 6e 64 22 29 0d | 07 26 12 20 20 f2 70 6c |e end").|.&.  .pl|
|00001250| 28 22 41 4c 49 47 4e 22 | 29 0d 07 30 0e 20 20 f2 |("ALIGN"|)..0.  .|
|00001260| 70 6c 28 22 3a 22 29 0d | 07 3a 14 20 20 f2 70 6c |pl(":").|.:.  .pl|
|00001270| 28 22 2e 64 63 6f 64 65 | 25 22 29 0d 07 44 17 20 |(".dcode|%")..D. |
|00001280| 20 f2 70 6c 28 22 4d 4f | 56 20 50 43 2c 52 31 34 | .pl("MO|V PC,R14|
|00001290| 22 29 0d 07 4e 0e 20 20 | f2 70 6c 28 22 3a 22 29 |")..N.  |.pl(":")|
|000012a0| 0d 07 58 06 20 cc 0d 07 | 62 16 20 20 f2 70 6c 28 |..X. ...|b.  .pl(|
|000012b0| 22 2e 68 61 6e 64 6c 65 | 72 25 22 29 0d 07 6c 17 |".handle|r%")..l.|
|000012c0| 20 20 f2 70 6c 28 22 4d | 4f 56 20 50 43 2c 52 31 |  .pl("M|OV PC,R1|
|000012d0| 34 22 29 0d 07 76 0e 20 | 20 f2 70 6c 28 22 3a 22 |4")..v. | .pl(":"|
|000012e0| 29 0d 07 80 15 20 20 f2 | 70 6c 28 22 2e 64 74 61 |)....  .|pl(".dta|
|000012f0| 62 6c 65 25 22 29 0d 07 | 8a 1c 20 20 f2 70 6c 28 |ble%")..|..  .pl(|
|00001300| 22 45 51 55 53 20 73 77 | 69 70 72 65 66 69 78 24 |"EQUS sw|iprefix$|
|00001310| 22 29 0d 07 94 13 20 20 | f2 70 6c 28 22 45 51 55 |")....  |.pl("EQU|
|00001320| 42 20 30 22 29 0d 07 9e | 14 20 20 e3 20 63 25 3d |B 0")...|.  . c%=|
|00001330| 31 20 b8 20 73 77 69 73 | 25 0d 07 a8 22 20 20 f2 |1 . swis|%..."  .|
|00001340| 70 6c 28 22 45 51 55 53 | 20 22 22 53 57 49 22 2b |pl("EQUS| ""SWI"+|
|00001350| c3 28 63 25 29 2b 22 22 | 22 22 29 0d 07 b2 13 20 |.(c%)+""|"").... |
|00001360| 20 f2 70 6c 28 22 45 51 | 55 42 20 30 22 29 0d 07 | .pl("EQ|UB 0")..|
|00001370| bc 0a 20 20 ed 20 63 25 | 0d 07 c6 13 20 20 f2 70 |..  . c%|....  .p|
|00001380| 6c 28 22 45 51 55 42 20 | 30 22 29 0d 07 d0 0e 20 |l("EQUB |0").... |
|00001390| 20 f2 70 6c 28 22 3a 22 | 29 0d 07 da 14 20 20 f2 | .pl(":"|)....  .|
|000013a0| 70 6c 28 22 2e 64 63 6f | 64 65 25 22 29 0d 07 e4 |pl(".dco|de%")...|
|000013b0| 17 20 20 f2 70 6c 28 22 | 4d 4f 56 20 50 43 2c 52 |.  .pl("|MOV PC,R|
|000013c0| 31 34 22 29 0d 07 ee 0e | 20 20 f2 70 6c 28 22 3a |14")....|  .pl(":|
|000013d0| 22 29 0d 07 f8 06 20 cd | 0d 08 02 05 cd 0d 08 0c |").... .|........|
|000013e0| 17 f2 70 6c 28 22 5d 3a | 4e 45 58 54 20 70 61 73 |..pl("]:|NEXT pas|
|000013f0| 73 25 22 29 0d 08 16 0c | f2 70 6c 28 22 3a 22 29 |s%")....|.pl(":")|
|00001400| 0d 08 20 40 f2 70 6c 28 | 22 50 52 49 4e 54 20 22 |.. @.pl(|"PRINT "|
|00001410| 22 4d 6f 64 75 6c 65 20 | 61 73 73 65 6d 62 6c 65 |"Module |assemble|
|00001420| 64 2c 20 73 69 7a 65 20 | 22 22 3b 4f 25 2d 63 6f |d, size |"";O%-co|
|00001430| 64 65 25 3b 22 22 20 62 | 79 74 65 73 22 22 22 29 |de%;"" b|ytes""")|
|00001440| 0d 08 2a 0e e7 20 61 73 | 61 76 65 25 20 8c 0d 08 |..*.. as|ave% ...|
|00001450| 34 34 20 f2 70 6c 28 22 | 53 59 53 20 22 22 4f 53 |44 .pl("|SYS ""OS|
|00001460| 5f 46 69 6c 65 22 22 2c | 31 30 2c 66 6e 61 6d 65 |_File"",|10,fname|
|00001470| 24 2c 26 46 46 41 2c 2c | 63 6f 64 65 25 2c 4f 25 |$,&FFA,,|code%,O%|
|00001480| 22 29 0d 08 3e 2d 20 f2 | 70 6c 28 22 50 52 49 4e |")..>- .|pl("PRIN|
|00001490| 54 20 22 22 4d 6f 64 75 | 6c 65 20 73 61 76 65 64 |T ""Modu|le saved|
|000014a0| 20 61 73 20 22 22 2b 66 | 6e 61 6d 65 24 22 29 0d | as ""+f|name$").|
|000014b0| 08 48 05 cd 0d 08 52 0d | e7 20 61 72 75 6e 25 20 |.H....R.|. arun% |
|000014c0| 8c 0d 08 5c 2f 20 f2 70 | 6c 28 22 53 59 53 20 22 |...\/ .p|l("SYS "|
|000014d0| 22 4f 53 5f 4d 6f 64 75 | 6c 65 22 22 2c 31 31 2c |"OS_Modu|le"",11,|
|000014e0| 63 6f 64 65 25 2c 4f 25 | 2d 63 6f 64 65 25 22 29 |code%,O%|-code%")|
|000014f0| 0d 08 66 33 20 f2 70 6c | 28 22 50 52 49 4e 54 20 |..f3 .pl|("PRINT |
|00001500| 22 22 4d 6f 64 75 6c 65 | 20 6c 69 6e 6b 65 64 20 |""Module| linked |
|00001510| 74 6f 20 6d 6f 64 75 6c | 65 20 63 68 61 69 6e 22 |to modul|e chain"|
|00001520| 22 22 29 0d 08 70 05 cd | 0d 08 7a 0e f2 70 6c 28 |"")..p..|..z..pl(|
|00001530| 22 45 4e 44 22 29 0d 08 | 84 20 d5 23 66 69 6c 65 |"END")..|. .#file|
|00001540| 25 2c 22 53 41 56 45 20 | 22 22 22 2b 66 69 6c 65 |%,"SAVE |"""+file|
|00001550| 24 2b 22 22 22 22 0d 08 | 8e 12 d5 23 66 69 6c 65 |$+""""..|...#file|
|00001560| 25 2c 22 51 55 49 54 22 | 0d 08 98 24 d5 23 66 69 |%,"QUIT"|...$.#fi|
|00001570| 6c 65 25 2c 22 22 3a d5 | 23 66 69 6c 65 25 2c 22 |le%,"":.|#file%,"|
|00001580| 22 3a d5 23 66 69 6c 65 | 25 2c 22 22 0d 08 a2 0b |":.#file|%,""....|
|00001590| d9 23 66 69 6c 65 25 0d | 08 ac 28 66 69 6e 69 73 |.#file%.|..(finis|
|000015a0| 68 65 64 25 3d b9 3a ff | 22 46 69 6c 65 72 5f 52 |hed%=.:.|"Filer_R|
|000015b0| 75 6e 20 70 69 70 65 3a | 24 2e 45 78 65 63 22 0d |un pipe:|$.Exec".|
|000015c0| 08 b6 05 e1 0d 08 c0 05 | 3a 0d 08 ca 0c dd f2 70 |........|:......p|
|000015d0| 6c 28 73 24 29 0d 08 d4 | 15 6c 69 6e 65 25 2b 3d |l(s$)...|.line%+=|
|000015e0| 69 6e 63 72 65 6d 65 6e | 74 25 0d 08 de 17 d5 23 |incremen|t%.....#|
|000015f0| 66 69 6c 65 25 2c c3 28 | 6c 69 6e 65 25 29 2b 73 |file%,.(|line%)+s|
|00001600| 24 0d 08 e8 05 e1 0d 08 | f2 05 3a 0d 08 fc 4f f4 |$.......|..:...O.|
|00001610| 7c 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f ||_______|________|
|00001620| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001630| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001640| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001650| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 0d 09 06 4f f4 7c |________|__...O.||
|00001660| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001670| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001680| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001690| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000016a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 0d 09 10 4f f4 7c 5f |________|_...O.|_|
|000016b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000016c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000016d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000016e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000016f0| 5f 5f 5f 5f 5f 5f 5f 5f | 0d 09 1a 06 f4 7c 0d 09 |________|.....|..|
|00001700| 24 06 f4 7c 0d 09 2e 06 | f4 7c 0d 09 38 45 f4 7c |$..|....|.|..8E.||
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00001740| 20 20 20 20 20 20 20 20 | 20 36 2f 31 2f 39 32 0d |        | 6/1/92.|
|00001750| 09 42 2f f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.B/.|   |        |
|00001760| 20 20 20 20 20 20 20 20 | 57 49 4d 50 20 50 52 4f |        |WIMP PRO|
|00001770| 43 45 44 55 52 45 20 4c | 49 42 52 41 52 59 0d 09 |CEDURE L|IBRARY..|
|00001780| 4c 06 f4 7c 0d 09 56 2c | f4 7c 20 20 20 20 20 20 |L..|..V,|.|      |
|00001790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |        |       I|
|000017a0| 6e 64 65 78 20 6f 66 20 | 43 6f 6e 74 65 6e 74 73 |ndex of |Contents|
|000017b0| 0d 09 60 06 f4 7c 0d 09 | 6a 35 f4 7c 20 20 20 20 |..`..|..|j5.|    |
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 2d 2d |        |    ----|
|000017d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 74 06 f4 |--------|---..t..|
|000017f0| 7c 0d 09 7e 24 f4 7c 20 | 20 20 20 20 20 20 20 20 ||..~$.| |        |
|00001800| 20 20 20 20 20 20 20 20 | 20 20 20 31 2e a0 57 69 |        |   1..Wi|
|00001810| 6e 64 6f 77 73 0d 09 88 | 06 f4 7c 0d 09 92 22 f4 |ndows...|..|...".|
|00001820| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||       |        |
|00001830| 20 20 20 20 20 32 2e a0 | 49 63 6f 6e 73 0d 09 9c |     2..|Icons...|
|00001840| 06 f4 7c 0d 09 a6 22 f4 | 7c 20 20 20 20 20 20 20 |..|...".||       |
|00001850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 33 2e a0 |        |     3..|
|00001860| 4d 65 6e 75 73 0d 09 b0 | 06 f4 7c 0d 09 ba 24 f4 |Menus...|..|...$.|
|00001870| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||       |        |
|00001880| 20 20 20 20 20 34 2e a0 | 53 70 72 69 74 65 73 0d |     4..|Sprites.|
|00001890| 09 c4 06 f4 7c 0d 09 ce | 2a f4 7c 20 20 20 20 20 |....|...|*.|     |
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 35 |        |       5|
|000018b0| 2e a0 4d 69 73 63 65 6c | 6c 61 6e 65 6f 75 73 0d |..Miscel|laneous.|
|000018c0| 09 d8 06 f4 7c 0d 09 e2 | 24 f4 7c 20 20 20 20 20 |....|...|$.|     |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 36 |        |       6|
|000018e0| 2e a0 50 6f 6c 6c 69 6e | 67 0d 09 ec 06 f4 7c 0d |..Pollin|g.....|.|
|000018f0| 09 f6 35 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..5.|   |        |
|00001900| 20 20 20 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |     ---|--------|
|00001910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001920| 2d 2d 2d 2d 0d 0a 00 06 | f4 7c 0d 0a 0a 06 f4 7c |----....|.|.....||
|00001930| 0d 0a 14 06 f4 7c 0d 0a | 1e 06 f4 7c 0d 0a 28 06 |.....|..|...|..(.|
|00001940| f4 7c 0d 0a 32 06 f4 7c | 0d 0a 3c 35 f4 7c 20 20 |.|..2..||..<5.|  |
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d |        |      --|
|00001960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0a 46 |--------|-----..F|
|00001980| 2a f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*.|     |        |
|00001990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 31 2e a0 |        |     1..|
|000019a0| 57 69 6e 64 6f 77 73 0d | 0a 50 35 f4 7c 20 20 20 |Windows.|.P5.|   |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d |        |     ---|
|000019c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0a 5a 06 |--------|----..Z.|
|000019e0| f4 7c 0d 0a 64 06 f4 7c | 0d 0a 6e 40 f4 7c 20 20 |.|..d..||..n@.|  |
|000019f0| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |        |--------|
|00001a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0a 78 06 f4 7c 0d 0a |--------|..x..|..|
|00001a30| 82 28 f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(.|    |        |
|00001a40| 20 20 20 20 20 20 20 20 | 20 20 50 72 6f 63 65 64 |        |  Proced|
|00001a50| 75 72 65 73 20 3a 0d 0a | 8c 06 f4 7c 0d 0a 96 38 |ures :..|...|...8|
|00001a60| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |.|      |       P|
|00001a70| 52 4f 43 57 69 6d 70 5f | 57 69 6e 64 6f 77 41 6c |ROCWimp_|WindowAl|
|00001a80| 65 72 74 28 74 69 74 6c | 65 24 2c 6d 65 73 73 61 |ert(titl|e$,messa|
|00001a90| 67 65 24 29 0d 0a a0 43 | f4 7c 20 20 20 20 20 20 |ge$)...C|.|      |
|00001aa0| 20 20 20 20 20 20 20 50 | 52 4f 43 57 69 6d 70 5f |       P|ROCWimp_|
|00001ab0| 57 69 6e 64 6f 77 41 6c | 65 72 74 42 6f 78 28 74 |WindowAl|ertBox(t|
|00001ac0| 69 74 6c 65 24 2c 6d 65 | 73 73 61 67 65 24 2c 62 |itle$,me|ssage$,b|
|00001ad0| 75 74 74 6f 6e 25 29 0d | 0a aa 37 f4 7c 20 20 20 |utton%).|..7.|   |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 |        |  FNWimp|
|00001af0| 5f 57 69 6e 64 6f 77 43 | 61 6e 63 65 6c 28 74 69 |_WindowC|ancel(ti|
|00001b00| 74 6c 65 24 2c 6d 65 73 | 73 61 67 65 24 29 0d 0a |tle$,mes|sage$)..|
|00001b10| b4 3b f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;.|    |        |
|00001b20| 20 50 52 4f 43 57 69 6d | 70 5f 57 69 6e 64 6f 77 | PROCWim|p_Window|
|00001b30| 45 72 72 6f 72 42 6f 78 | 28 74 69 74 6c 65 24 2c |ErrorBox|(title$,|
|00001b40| 6d 65 73 73 61 67 65 24 | 29 0d 0a be 2e f4 7c 20 |message$|).....| |
|00001b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 4e 57 69 |        |    FNWi|
|00001b60| 6d 70 5f 57 69 6e 64 6f | 77 54 69 74 6c 65 28 77 |mp_Windo|wTitle(w|
|00001b70| 69 6e 64 6f 77 25 29 0d | 0a c8 2d f4 7c 20 20 20 |indow%).|..-.|   |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 |        |  FNWimp|
|00001b90| 5f 57 69 6e 64 6f 77 4c | 6f 61 64 28 77 69 6e 64 |_WindowL|oad(wind|
|00001ba0| 6f 77 24 29 0d 0a d2 3b | f4 7c 20 20 20 20 20 20 |ow$)...;|.|      |
|00001bb0| 20 20 20 20 20 20 20 46 | 4e 57 69 6d 70 5f 57 69 |       F|NWimp_Wi|
|00001bc0| 6e 64 6f 77 4c 6f 61 64 | 46 72 6f 6d 28 77 69 6e |ndowLoad|From(win|
|00001bd0| 64 6f 77 24 2c 74 65 6d | 70 6c 61 74 65 24 29 0d |dow$,tem|plate$).|
|00001be0| 0a dc 35 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..5.|   |        |
|00001bf0| 20 20 50 52 4f 43 57 69 | 6d 70 5f 57 69 6e 64 6f |  PROCWi|mp_Windo|
|00001c00| 77 42 72 69 6e 67 54 6f | 54 6f 70 28 77 69 6e 64 |wBringTo|Top(wind|
|00001c10| 6f 77 25 29 0d 0a e6 34 | f4 7c 20 20 20 20 20 20 |ow%)...4|.|      |
|00001c20| 20 20 20 20 20 20 20 50 | 52 4f 43 57 69 6d 70 5f |       P|ROCWimp_|
|00001c30| 57 69 6e 64 6f 77 46 6f | 72 63 65 44 72 61 77 28 |WindowFo|rceDraw(|
|00001c40| 77 69 6e 64 6f 77 25 29 | 0d 0a f0 2f f4 7c 20 20 |window%)|.../.|  |
|00001c50| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 43 57 |        |   PROCW|
|00001c60| 69 6d 70 5f 57 69 6e 64 | 6f 77 4f 70 65 6e 28 77 |imp_Wind|owOpen(w|
|00001c70| 69 6e 64 6f 77 25 29 0d | 0a fa 2b f4 7c 20 20 20 |indow%).|..+.|   |
|00001c80| 20 20 20 20 20 20 20 20 | 20 20 50 52 4f 43 57 69 |        |  PROCWi|
|00001c90| 6d 70 5f 57 69 6e 64 6f | 77 49 6e 74 65 72 66 61 |mp_Windo|wInterfa|
|00001ca0| 63 65 0d 0b 04 06 f4 7c | 0d 0b 0e 3f f4 7c 20 20 |ce.....||...?.|  |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d |        | -------|
|00001cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ce0| 2d 2d 2d 2d 2d 2d 2d 0d | 0b 18 06 f4 7c 0d 0b 22 |-------.|....|.."|
|00001cf0| 06 f4 7c 0d 0b 2c 06 f4 | 7c 0d 0b 36 28 dd 20 f2 |..|..,..||..6(. .|
|00001d00| 57 69 6d 70 5f 57 69 6e | 64 6f 77 41 6c 65 72 74 |Wimp_Win|dowAlert|
|00001d10| 28 74 69 74 6c 65 24 2c | 6d 65 73 73 61 67 65 24 |(title$,|message$|
|00001d20| 29 0d 0b 40 2b f2 57 69 | 6d 70 5f 57 69 6e 64 6f |)..@+.Wi|mp_Windo|
|00001d30| 77 41 6c 65 72 74 42 6f | 78 28 74 69 74 6c 65 24 |wAlertBo|x(title$|
|00001d40| 2c 6d 65 73 73 61 67 65 | 24 2c 30 29 0d 0b 4a 05 |,message|$,0)..J.|
|00001d50| e1 0d 0b 54 05 3a 0d 0b | 5e 33 dd 20 f2 57 69 6d |...T.:..|^3. .Wim|
|00001d60| 70 5f 57 69 6e 64 6f 77 | 41 6c 65 72 74 42 6f 78 |p_Window|AlertBox|
|00001d70| 28 74 69 74 6c 65 24 2c | 6d 65 73 73 61 67 65 24 |(title$,|message$|
|00001d80| 2c 62 75 74 74 6f 6e 25 | 29 0d 0b 68 0f ea 20 72 |,button%|)..h.. r|
|00001d90| 65 73 70 6f 6e 73 65 25 | 0d 0b 72 17 24 28 77 69 |esponse%|..r.$(wi|
|00001da0| 6d 70 25 2b 34 29 3d 6d | 65 73 73 61 67 65 24 0d |mp%+4)=m|essage$.|
|00001db0| 0b 7c 10 c8 8e 20 62 75 | 74 74 6f 6e 25 20 ca 0d |.|... bu|tton% ..|
|00001dc0| 0b 86 18 c9 20 32 20 20 | 20 20 3a 20 72 65 73 70 |.... 2  |  : resp|
|00001dd0| 6f 6e 73 65 25 3d 31 0d | 0b 90 19 c9 20 31 20 20 |onse%=1.|.... 1  |
|00001de0| 20 20 3a 20 72 65 73 70 | 6f 6e 73 65 25 3d 31 35 |  : resp|onse%=15|
|00001df0| 0d 0b 9a 20 c9 20 33 20 | 20 20 20 3a 20 72 65 73 |... . 3 |   : res|
|00001e00| 70 6f 6e 73 65 25 3d 28 | 31 3c 3c 35 29 2b 31 36 |ponse%=(|1<<5)+16|
|00001e10| 0d 0b a4 20 c9 20 34 20 | 20 20 20 3a 20 72 65 73 |... . 4 |   : res|
|00001e20| 70 6f 6e 73 65 25 3d 28 | 31 3c 3c 36 29 2b 31 36 |ponse%=(|1<<6)+16|
|00001e30| 0d 0b ae 14 7f 20 3a 20 | 72 65 73 70 6f 6e 73 65 |..... : |response|
|00001e40| 25 3d 31 36 0d 0b b8 05 | cb 0d 0b c2 3d c8 99 20 |%=16....|....=.. |
|00001e50| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00001e60| 72 22 2c 77 69 6d 70 25 | 2c 72 65 73 70 6f 6e 73 |r",wimp%|,respons|
|00001e70| 65 25 2c 74 69 74 6c 65 | 24 20 b8 20 2c 72 65 73 |e%,title|$ . ,res|
|00001e80| 70 6f 6e 73 65 25 0d 0b | cc 05 e1 0d 0b d6 05 3a |ponse%..|.......:|
|00001e90| 0d 0b e0 29 dd 20 a4 57 | 69 6d 70 5f 57 69 6e 64 |...). .W|imp_Wind|
|00001ea0| 6f 77 43 61 6e 63 65 6c | 28 74 69 74 6c 65 24 2c |owCancel|(title$,|
|00001eb0| 6d 65 73 73 61 67 65 24 | 29 0d 0b ea 17 24 28 77 |message$|)....$(w|
|00001ec0| 69 6d 70 25 2b 34 29 3d | 6d 65 73 73 61 67 65 24 |imp%+4)=|message$|
|00001ed0| 0d 0b f4 10 72 65 73 70 | 6f 6e 73 65 25 3d 32 33 |....resp|onse%=23|
|00001ee0| 0d 0b fe 3d c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |...=.. "|Wimp_Rep|
|00001ef0| 6f 72 74 45 72 72 6f 72 | 22 2c 77 69 6d 70 25 2c |ortError|",wimp%,|
|00001f00| 72 65 73 70 6f 6e 73 65 | 25 2c 74 69 74 6c 65 24 |response|%,title$|
|00001f10| 20 b8 20 2c 72 65 73 70 | 6f 6e 73 65 25 0d 0c 08 | . ,resp|onse%...|
|00001f20| 10 3d 72 65 73 70 6f 6e | 73 65 25 2d 32 0d 0c 12 |.=respon|se%-2...|
|00001f30| 05 3a 0d 0c 1c 2b dd 20 | f2 57 69 6d 70 5f 57 69 |.:...+. |.Wimp_Wi|
|00001f40| 6e 64 6f 77 45 72 72 6f | 72 42 6f 78 28 74 69 74 |ndowErro|rBox(tit|
|00001f50| 6c 65 24 2c 6d 65 73 73 | 61 67 65 24 29 0d 0c 26 |le$,mess|age$)..&|
|00001f60| 2b f2 57 69 6d 70 5f 57 | 69 6e 64 6f 77 41 6c 65 |+.Wimp_W|indowAle|
|00001f70| 72 74 42 6f 78 28 74 69 | 74 6c 65 24 2c 6d 65 73 |rtBox(ti|tle$,mes|
|00001f80| 73 61 67 65 24 2c 32 29 | 0d 0c 30 05 e1 0d 0c 3a |sage$,2)|..0....:|
|00001f90| 05 3a 0d 0c 44 20 dd 20 | a4 57 69 6d 70 5f 57 69 |.:..D . |.Wimp_Wi|
|00001fa0| 6e 64 6f 77 54 69 74 6c | 65 28 77 69 6e 64 6f 77 |ndowTitl|e(window|
|00001fb0| 25 29 0d 0c 4e 13 77 69 | 6d 70 25 21 30 3d 77 69 |%)..N.wi|mp%!0=wi|
|00001fc0| 6e 64 6f 77 25 0d 0c 58 | 20 c8 99 20 22 57 69 6d |ndow%..X| .. "Wim|
|00001fd0| 70 5f 47 65 74 57 69 6e | 64 49 6e 66 6f 22 2c 2c |p_GetWin|dInfo",,|
|00001fe0| 77 69 6d 70 25 0d 0c 62 | 36 e7 20 28 28 77 69 6d |wimp%..b|6. ((wim|
|00001ff0| 70 25 21 36 30 29 80 26 | 31 30 30 29 3d 30 20 85 |p%!60).&|100)=0 .|
|00002000| 20 31 2c 22 54 69 74 6c | 65 20 69 73 6e 27 74 20 | 1,"Titl|e isn't |
|00002010| 69 6e 64 69 72 65 63 74 | 65 64 22 0d 0c 6c 10 3d |indirect|ed"..l.=|
|00002020| 24 28 77 69 6d 70 25 21 | 37 36 29 0d 0c 76 05 3a |$(wimp%!|76)..v.:|
|00002030| 0d 0c 80 1f dd 20 a4 57 | 69 6d 70 5f 57 69 6e 64 |..... .W|imp_Wind|
|00002040| 6f 77 4c 6f 61 64 28 77 | 69 6e 64 6f 77 24 29 0d |owLoad(w|indow$).|
|00002050| 0c 8a 39 3d a4 57 69 6d | 70 5f 57 69 6e 64 6f 77 |..9=.Wim|p_Window|
|00002060| 4c 6f 61 64 46 72 6f 6d | 28 77 69 6e 64 6f 77 24 |LoadFrom|(window$|
|00002070| 2c 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 54 65 6d |,"<Obey$|Dir>.Tem|
|00002080| 70 6c 61 74 65 73 22 29 | 0d 0c 94 05 3a 0d 0c 9e |plates")|....:...|
|00002090| 2d dd 20 a4 57 69 6d 70 | 5f 57 69 6e 64 6f 77 4c |-. .Wimp|_WindowL|
|000020a0| 6f 61 64 46 72 6f 6d 28 | 77 69 6e 64 6f 77 24 2c |oadFrom(|window$,|
|000020b0| 74 65 6d 70 6c 61 74 65 | 24 29 0d 0c a8 1a ea 20 |template|$)..... |
|000020c0| 63 25 2c 69 25 2c 6e 25 | 2c 6a 25 2c 73 70 24 2c |c%,i%,n%|,j%,sp$,|
|000020d0| 73 70 32 24 0d 0c b2 25 | c8 99 20 22 57 69 6d 70 |sp2$...%|.. "Wimp|
|000020e0| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|000020f0| 74 65 6d 70 6c 61 74 65 | 24 0d 0c bc 4d c8 99 20 |template|$...M.. |
|00002100| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00002110| 74 65 22 2c 2c 77 69 6d | 70 25 2c 69 63 6f 6e 73 |te",,wim|p%,icons|
|00002120| 25 2c 69 63 6f 6e 5f 6d | 65 6d 6f 72 79 25 2c 2d |%,icon_m|emory%,-|
|00002130| 31 2c 77 69 6e 64 6f 77 | 24 2c 30 20 b8 20 2c 2c |1,window|$,0 . ,,|
|00002140| 69 63 6f 6e 73 25 0d 0c | c6 11 c8 8e 20 73 70 72 |icons%..|.... spr|
|00002150| 69 74 65 73 25 20 ca 0d | 0c d0 1e c9 20 31 20 20 |ites% ..|.... 1  |
|00002160| 20 20 3a 20 77 69 6d 70 | 25 21 36 34 3d 73 70 72 |  : wimp|%!64=spr|
|00002170| 69 74 65 73 25 0d 0c da | 28 7f 20 3a 20 77 69 6d |ites%...|(. : wim|
|00002180| 70 25 21 36 34 3d a4 45 | 76 65 6e 74 5f 53 70 72 |p%!64=.E|vent_Spr|
|00002190| 69 74 65 73 28 77 69 6e | 64 6f 77 25 29 0d 0c e4 |ites(win|dow%)...|
|000021a0| 05 cb 0d 0c ee 26 c8 99 | 20 22 57 69 6d 70 5f 43 |.....&..| "Wimp_C|
|000021b0| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 77 69 |reateWin|dow",,wi|
|000021c0| 6d 70 25 20 b8 20 63 25 | 0d 0c f8 1b c8 99 20 22 |mp% . c%|...... "|
|000021d0| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|000021e0| 74 65 22 0d 0d 02 37 c8 | 99 20 22 57 69 6d 70 5f |te"...7.|. "Wimp_|
|000021f0| 57 68 69 63 68 49 63 6f | 6e 22 2c 63 25 2c 77 69 |WhichIco|n",c%,wi|
|00002200| 6d 70 25 2b 34 30 2c 31 | 2b 32 2b 28 31 3c 3c 38 |mp%+40,1|+2+(1<<8|
|00002210| 29 2c 32 2b 28 31 3c 3c | 38 29 0d 0d 0c 11 c8 8e |),2+(1<<|8)......|
|00002220| 20 77 69 6d 70 25 21 34 | 30 20 ca 0d 0d 16 0c c9 | wimp%!4|0 ......|
|00002230| 20 2d 31 20 20 20 3a 0d | 0d 20 0d 7f 20 3a 20 69 | -1   :.|. .. : i|
|00002240| 25 3d 34 30 0d 0d 2a 05 | f5 0d 0d 34 21 77 69 6d |%=40..*.|...4!wim|
|00002250| 70 25 21 34 3d 77 69 6d | 70 25 21 69 25 20 3a 20 |p%!4=wim|p%!i% : |
|00002260| 77 69 6d 70 25 21 30 3d | 63 25 0d 0d 3e 21 c8 99 |wimp%!0=|c%..>!..|
|00002270| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00002280| 61 74 65 22 2c 2c 77 69 | 6d 70 25 0d 0d 48 2a 73 |ate",,wi|mp%..H*s|
|00002290| 70 24 3d a4 57 69 6d 70 | 5f 47 65 74 53 74 72 69 |p$=.Wimp|_GetStri|
|000022a0| 6e 67 41 74 41 64 64 72 | 65 73 73 28 77 69 6d 70 |ngAtAddr|ess(wimp|
|000022b0| 25 21 32 38 29 0d 0d 52 | 1f c8 99 20 22 57 69 6d |%!28)..R|... "Wim|
|000022c0| 70 5f 44 65 6c 65 74 65 | 49 63 6f 6e 22 2c 2c 77 |p_Delete|Icon",,w|
|000022d0| 69 6d 70 25 0d 0d 5c 11 | c8 8e 20 73 70 72 69 74 |imp%..\.|.. sprit|
|000022e0| 65 73 25 20 ca 0d 0d 66 | 17 c9 20 31 20 20 20 20 |es% ...f|.. 1    |
|000022f0| 3a 20 77 69 6d 70 25 21 | 33 32 3d 31 0d 0d 70 07 |: wimp%!|32=1..p.|
|00002300| 7f 20 3a 0d 0d 7a 2a c8 | 99 20 22 4f 53 5f 53 70 |. :..z*.|. "OS_Sp|
|00002310| 72 69 74 65 4f 70 22 2c | 26 31 30 38 2c 73 70 72 |riteOp",|&108,spr|
|00002320| 69 74 65 73 25 20 b8 20 | 2c 2c 2c 6e 25 0d 0d 84 |ites% . |,,,n%...|
|00002330| 08 6a 25 3d 30 0d 0d 8e | 0d f5 20 3a 20 6a 25 2b |.j%=0...|.. : j%+|
|00002340| 3d 31 0d 0d 98 37 c8 99 | 20 22 4f 53 5f 53 70 72 |=1...7..| "OS_Spr|
|00002350| 69 74 65 4f 70 22 2c 26 | 31 30 44 2c 73 70 72 69 |iteOp",&|10D,spri|
|00002360| 74 65 73 25 2c 70 6f 69 | 6e 74 65 72 5f 62 6c 6f |tes%,poi|nter_blo|
|00002370| 63 6b 25 2c 32 30 2c 6a | 25 0d 0d a2 31 73 70 32 |ck%,20,j|%...1sp2|
|00002380| 24 3d a4 57 69 6d 70 5f | 47 65 74 53 74 72 69 6e |$=.Wimp_|GetStrin|
|00002390| 67 41 74 41 64 64 72 65 | 73 73 28 70 6f 69 6e 74 |gAtAddre|ss(point|
|000023a0| 65 72 5f 62 6c 6f 63 6b | 25 29 0d 0d ac 16 fd 20 |er_block|%)..... |
|000023b0| 6a 25 3d 6e 25 20 84 20 | 73 70 24 3d 73 70 32 24 |j%=n% . |sp$=sp2$|
|000023c0| 0d 0d b6 2f e7 20 73 70 | 24 3d 73 70 32 24 20 8c |.../. sp|$=sp2$ .|
|000023d0| 20 77 69 6d 70 25 21 33 | 32 3d 73 70 72 69 74 65 | wimp%!3|2=sprite|
|000023e0| 73 25 20 8b 20 77 69 6d | 70 25 21 33 32 3d 31 0d |s% . wim|p%!32=1.|
|000023f0| 0d c0 05 cb 0d 0d ca 0e | 77 69 6d 70 25 21 34 3d |........|wimp%!4=|
|00002400| 63 25 0d 0d d4 2b c8 99 | 20 22 57 69 6d 70 5f 43 |c%...+..| "Wimp_C|
|00002410| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 77 69 6d 70 |reateIco|n",,wimp|
|00002420| 25 2b 34 20 b8 20 68 61 | 6e 64 6c 65 25 0d 0d de |%+4 . ha|ndle%...|
|00002430| 09 69 25 2b 3d 34 0d 0d | e8 13 fd 20 28 77 69 6d |.i%+=4..|... (wim|
|00002440| 70 25 21 69 25 29 3d 2d | 31 0d 0d f2 05 cb 0d 0d |p%!i%)=-|1.......|
|00002450| fc 07 3d 63 25 0d 0e 06 | 05 3a 0d 0e 10 25 dd 20 |..=c%...|.:...%. |
|00002460| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 42 72 69 6e |.Wimp_Wi|ndowBrin|
|00002470| 67 54 6f 54 6f 70 28 77 | 69 6e 64 6f 77 25 29 0d |gToTop(w|indow%).|
|00002480| 0e 1a 12 21 77 69 6d 70 | 25 3d 77 69 6e 64 6f 77 |...!wimp|%=window|
|00002490| 25 0d 0e 24 23 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%..$#.. |"Wimp_Ge|
|000024a0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 77 |tWindowS|tate",,w|
|000024b0| 69 6d 70 25 0d 0e 2e 0f | 77 69 6d 70 25 21 32 38 |imp%....|wimp%!28|
|000024c0| 3d 2d 31 0d 0e 38 1f c8 | 99 20 22 57 69 6d 70 5f |=-1..8..|. "Wimp_|
|000024d0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 77 69 6d |OpenWind|ow",,wim|
|000024e0| 70 25 0d 0e 42 05 e1 0d | 0e 4c 05 3a 0d 0e 56 20 |p%..B...|.L.:..V |
|000024f0| dd 20 f2 57 69 6d 70 5f | 57 69 6e 64 6f 77 43 6c |. .Wimp_|WindowCl|
|00002500| 6f 73 65 28 77 69 6e 64 | 6f 77 25 29 0d 0e 60 12 |ose(wind|ow%)..`.|
|00002510| 21 77 69 6d 70 25 3d 77 | 69 6e 64 6f 77 25 0d 0e |!wimp%=w|indow%..|
|00002520| 6a 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |j .. "Wi|mp_Close|
|00002530| 57 69 6e 64 6f 77 22 2c | 2c 77 69 6d 70 25 0d 0e |Window",|,wimp%..|
|00002540| 74 05 e1 0d 0e 7e 05 3a | 0d 0e 88 24 dd 20 f2 57 |t....~.:|...$. .W|
|00002550| 69 6d 70 5f 57 69 6e 64 | 6f 77 46 6f 72 63 65 44 |imp_Wind|owForceD|
|00002560| 72 61 77 28 77 69 6e 64 | 6f 77 25 29 0d 0e 92 10 |raw(wind|ow%)....|
|00002570| c8 8e 20 77 69 6e 64 6f | 77 25 20 ca 0d 0e 9c 37 |.. windo|w% ....7|
|00002580| c9 20 2d 31 20 20 20 3a | 20 c8 99 20 22 57 69 6d |. -1   :| .. "Wim|
|00002590| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 2d |p_ForceR|edraw",-|
|000025a0| 31 2c 30 2c 30 2c 32 2a | 31 32 38 30 2c 32 2a 31 |1,0,0,2*|1280,2*1|
|000025b0| 30 32 34 0d 0e a6 38 7f | 20 3a 20 c8 99 20 22 57 |024...8.| : .. "W|
|000025c0| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|000025d0| 2c 77 69 6e 64 6f 77 25 | 2c 30 2c 2d 32 2a 31 30 |,window%|,0,-2*10|
|000025e0| 32 34 2c 32 2a 31 32 38 | 30 2c 30 0d 0e b0 05 cb |24,2*128|0,0.....|
|000025f0| 0d 0e ba 05 e1 0d 0e c4 | 05 3a 0d 0e ce 1f dd 20 |........|.:..... |
|00002600| f2 57 69 6d 70 5f 57 69 | 6e 64 6f 77 4f 70 65 6e |.Wimp_Wi|ndowOpen|
|00002610| 28 77 69 6e 64 6f 77 25 | 29 0d 0e d8 12 21 77 69 |(window%|)....!wi|
|00002620| 6d 70 25 3d 77 69 6e 64 | 6f 77 25 0d 0e e2 23 c8 |mp%=wind|ow%...#.|
|00002630| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00002640| 77 53 74 61 74 65 22 2c | 2c 77 69 6d 70 25 0d 0e |wState",|,wimp%..|
|00002650| ec 1f c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |.... "Wi|mp_OpenW|
|00002660| 69 6e 64 6f 77 22 2c 2c | 77 69 6d 70 25 0d 0e f6 |indow",,|wimp%...|
|00002670| 05 e1 0d 0f 00 05 3a 0d | 0f 0a 1b dd 20 f2 57 69 |......:.|.... .Wi|
|00002680| 6d 70 5f 57 69 6e 64 6f | 77 49 6e 74 65 72 66 61 |mp_Windo|wInterfa|
|00002690| 63 65 0d 0f 14 20 c8 99 | 22 57 69 6d 70 5f 42 6f |ce... ..|"Wimp_Bo|
|000026a0| 72 64 65 72 57 69 6e 64 | 6f 77 22 2c 2c 77 69 6d |rderWind|ow",,wim|
|000026b0| 70 25 0d 0f 1e 05 e1 0d | 0f 28 06 f4 7c 0d 0f 32 |p%......|.(..|..2|
|000026c0| 06 f4 7c 0d 0f 3c 06 f4 | 7c 0d 0f 46 31 f4 7c 20 |..|..<..||..F1.| |
|000026d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026e0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000026f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0f 50 28 f4 7c |--------|--..P(.||
|00002700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002710| 20 20 20 20 20 20 20 20 | 20 20 32 2e a0 49 63 6f |        |  2..Ico|
|00002720| 6e 73 0d 0f 5a 31 f4 7c | 20 20 20 20 20 20 20 20 |ns..Z1.||        |
|00002730| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 2d 2d |        |  ------|
|00002740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002750| 2d 2d 2d 0d 0f 64 06 f4 | 7c 0d 0f 6e 06 f4 7c 0d |---..d..||..n..|.|
|00002760| 0f 78 3d f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.x=.|   |        |
|00002770| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  ------|--------|
|00002780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0f 82 06 |--------|----....|
|000027a0| f4 7c 0d 0f 8c 28 f4 7c | 20 20 20 20 20 20 20 20 |.|...(.||        |
|000027b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 72 |        |      Pr|
|000027c0| 6f 63 65 64 75 72 65 73 | 20 3a 0d 0f 96 06 f4 7c |ocedures| :.....||
|000027d0| 0d 0f a0 2b f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...+.|  |        |
|000027e0| 20 20 20 20 46 4e 57 69 | 6d 70 5f 49 63 6f 6e 42 |    FNWi|mp_IconB|
|000027f0| 61 72 28 53 70 72 69 74 | 65 24 29 0d 0f aa 3c f4 |ar(Sprit|e$)...<.|
|00002800| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 ||       |       P|
|00002810| 52 4f 43 57 69 6d 70 5f | 49 63 6f 6e 43 61 72 65 |ROCWimp_|IconCare|
|00002820| 74 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |t(window|%,icon%,|
|00002830| 63 68 61 72 73 25 29 0d | 0f b4 32 f4 7c 20 20 20 |chars%).|..2.|   |
|00002840| 20 20 20 20 20 20 20 20 | 20 20 20 46 4e 57 69 6d |        |   FNWim|
|00002850| 70 5f 49 63 6f 6e 54 65 | 78 74 28 77 69 6e 64 6f |p_IconTe|xt(windo|
|00002860| 77 25 2c 69 63 6f 6e 25 | 29 0d 0f be 38 f4 7c 20 |w%,icon%|)...8.| |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 4e 57 |        |     FNW|
|00002880| 69 6d 70 5f 49 63 6f 6e | 56 61 6c 69 64 61 74 69 |imp_Icon|Validati|
|00002890| 6f 6e 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |on(windo|w%,icon%|
|000028a0| 29 0d 0f c8 37 f4 7c 20 | 20 20 20 20 20 20 20 20 |)...7.| |        |
|000028b0| 20 20 20 20 20 50 52 4f | 43 57 69 6d 70 5f 49 63 |     PRO|CWimp_Ic|
|000028c0| 6f 6e 44 69 73 61 62 6c | 65 28 77 69 6e 64 6f 77 |onDisabl|e(window|
|000028d0| 25 2c 69 63 6f 6e 25 29 | 0d 0f d2 36 f4 7c 20 20 |%,icon%)|...6.|  |
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 52 4f 43 |        |    PROC|
|000028f0| 57 69 6d 70 5f 49 63 6f | 6e 45 6e 61 62 6c 65 28 |Wimp_Ico|nEnable(|
|00002900| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 29 0d 0f |window%,|icon%)..|
|00002910| dc 3f f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |.?.|    |        |
|00002920| 20 20 46 4e 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 |  FNWimp|_IconPut|
|00002930| 53 70 72 69 74 65 28 77 | 69 6e 64 6f 77 25 2c 69 |Sprite(w|indow%,i|
|00002940| 63 6f 6e 25 2c 73 70 72 | 69 74 65 24 29 0d 0f e6 |con%,spr|ite$)...|
|00002950| 3d f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=.|     |        |
|00002960| 20 50 52 4f 43 57 69 6d | 70 5f 49 63 6f 6e 50 75 | PROCWim|p_IconPu|
|00002970| 74 54 65 78 74 28 77 69 | 6e 64 6f 77 25 2c 69 63 |tText(wi|ndow%,ic|
|00002980| 6f 6e 25 2c 74 65 78 74 | 24 29 0d 0f f0 2f f4 7c |on%,text|$).../.||
|00002990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 |        |      PR|
|000029a0| 4f 43 57 69 6d 70 5f 49 | 63 6f 6e 49 6e 74 65 72 |OCWimp_I|conInter|
|000029b0| 66 61 63 65 53 74 61 72 | 74 0d 0f fa 30 f4 7c 20 |faceStar|t...0.| |
|000029c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 4f |        |     PRO|
|000029d0| 43 57 69 6d 70 5f 49 63 | 6f 6e 49 6e 74 65 72 66 |CWimp_Ic|onInterf|
|000029e0| 61 63 65 46 69 6e 69 73 | 68 0d 10 04 06 f4 7c 0d |aceFinis|h.....|.|
|000029f0| 10 0e 3d f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..=.|   |        |
|00002a00| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  ------|--------|
|00002a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 10 18 06 |--------|----....|
|00002a30| f4 7c 0d 10 22 05 3a 0d | 10 2c 1c dd 20 a4 57 69 |.|..".:.|.,.. .Wi|
|00002a40| 6d 70 5f 49 63 6f 6e 42 | 61 72 28 53 70 72 69 74 |mp_IconB|ar(Sprit|
|00002a50| 65 24 29 0d 10 36 0b ea | 20 69 63 6f 6e 25 0d 10 |e$)..6..| icon%..|
|00002a60| 40 0e 77 69 6d 70 25 21 | 30 3d 2d 31 0d 10 4a 1d |@.wimp%!|0=-1..J.|
|00002a70| 77 69 6d 70 25 21 34 3d | 30 20 20 20 20 20 3a 20 |wimp%!4=|0     : |
|00002a80| 77 69 6d 70 25 21 38 3d | 30 0d 10 54 1d 77 69 6d |wimp%!8=|0..T.wim|
|00002a90| 70 25 21 31 32 3d 36 38 | 20 3a 20 77 69 6d 70 25 |p%!12=68| : wimp%|
|00002aa0| 21 31 36 3d 36 38 0d 10 | 5e 12 77 69 6d 70 25 21 |!16=68..|^.wimp%!|
|00002ab0| 32 30 3d 26 33 30 30 32 | 0d 10 68 17 24 28 77 69 |20=&3002|..h.$(wi|
|00002ac0| 6d 70 25 2b 32 34 29 3d | 53 70 72 69 74 65 24 0d |mp%+24)=|Sprite$.|
|00002ad0| 10 72 27 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.r'.. "W|imp_Crea|
|00002ae0| 74 65 49 63 6f 6e 22 2c | 2c 77 69 6d 70 25 20 b8 |teIcon",|,wimp% .|
|00002af0| 20 69 63 6f 6e 25 0d 10 | 7c 0a 3d 69 63 6f 6e 25 | icon%..||.=icon%|
|00002b00| 0d 10 86 05 3a 0d 10 90 | 2b dd 20 f2 57 69 6d 70 |....:...|+. .Wimp|
|00002b10| 5f 49 63 6f 6e 43 61 72 | 65 74 28 77 69 6e 64 6f |_IconCar|et(windo|
|00002b20| 77 25 2c 69 63 6f 6e 25 | 2c 63 68 61 72 73 25 29 |w%,icon%|,chars%)|
|00002b30| 0d 10 9a 38 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |...8.. "|Wimp_Set|
|00002b40| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 77 |CaretPos|ition",w|
|00002b50| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 2c 2c 2c 2d |indow%,i|con%,,,-|
|00002b60| 31 2c 63 68 61 72 73 25 | 0d 10 a4 05 e1 0d 10 ae |1,chars%|........|
|00002b70| 05 3a 0d 10 b8 23 dd 20 | a4 57 69 6d 70 5f 49 63 |.:...#. |.Wimp_Ic|
|00002b80| 6f 6e 54 65 78 74 28 77 | 69 6e 64 6f 77 25 2c 69 |onText(w|indow%,i|
|00002b90| 63 6f 6e 25 29 0d 10 c2 | 23 77 69 6d 70 25 21 30 |con%)...|#wimp%!0|
|00002ba0| 3d 77 69 6e 64 6f 77 25 | 20 3a 20 77 69 6d 70 25 |=window%| : wimp%|
|00002bb0| 21 34 3d 69 63 6f 6e 25 | 0d 10 cc 21 c8 99 20 22 |!4=icon%|...!.. "|
|00002bc0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00002bd0| 65 22 2c 2c 77 69 6d 70 | 25 0d 10 d6 37 e7 20 28 |e",,wimp|%...7. (|
|00002be0| 28 77 69 6d 70 25 21 32 | 34 29 20 80 20 26 31 30 |(wimp%!2|4) . &10|
|00002bf0| 30 29 3d 30 20 85 20 31 | 2c 22 49 63 6f 6e 20 69 |0)=0 . 1|,"Icon i|
|00002c00| 73 6e 27 74 20 69 6e 64 | 69 72 65 63 74 65 64 22 |sn't ind|irected"|
|00002c10| 0d 10 e0 10 3d 24 28 77 | 69 6d 70 25 21 32 38 29 |....=$(w|imp%!28)|
|00002c20| 0d 10 ea 05 3a 0d 10 f4 | 29 dd 20 a4 57 69 6d 70 |....:...|). .Wimp|
|00002c30| 5f 49 63 6f 6e 56 61 6c | 69 64 61 74 69 6f 6e 28 |_IconVal|idation(|
|00002c40| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 29 0d 10 |window%,|icon%)..|
|00002c50| fe 23 77 69 6d 70 25 21 | 30 3d 77 69 6e 64 6f 77 |.#wimp%!|0=window|
|00002c60| 25 20 3a 20 77 69 6d 70 | 25 21 34 3d 69 63 6f 6e |% : wimp|%!4=icon|
|00002c70| 25 0d 11 08 21 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...!.. |"Wimp_Ge|
|00002c80| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 77 69 6d |tIconSta|te",,wim|
|00002c90| 70 25 0d 11 12 37 e7 20 | 28 28 77 69 6d 70 25 21 |p%...7. |((wimp%!|
|00002ca0| 32 34 29 20 80 20 26 31 | 30 30 29 3d 30 20 85 20 |24) . &1|00)=0 . |
|00002cb0| 31 2c 22 49 63 6f 6e 20 | 69 73 6e 27 74 20 69 6e |1,"Icon |isn't in|
|00002cc0| 64 69 72 65 63 74 65 64 | 22 0d 11 1c 10 3d 24 28 |directed|"....=$(|
|00002cd0| 77 69 6d 70 25 21 33 32 | 29 0d 11 26 05 3a 0d 11 |wimp%!32|)..&.:..|
|00002ce0| 30 26 dd 20 f2 57 69 6d | 70 5f 49 63 6f 6e 44 69 |0&. .Wim|p_IconDi|
|00002cf0| 73 61 62 6c 65 28 77 69 | 6e 64 6f 77 25 2c 69 63 |sable(wi|ndow%,ic|
|00002d00| 6f 6e 25 29 0d 11 3a 23 | 77 69 6d 70 25 21 30 3d |on%)..:#|wimp%!0=|
|00002d10| 77 69 6e 64 6f 77 25 20 | 3a 20 77 69 6d 70 25 21 |window% |: wimp%!|
|00002d20| 34 3d 69 63 6f 6e 25 0d | 11 44 24 77 69 6d 70 25 |4=icon%.|.D$wimp%|
|00002d30| 21 38 3d 31 3c 3c 32 32 | 20 20 20 3a 20 77 69 6d |!8=1<<22|   : wim|
|00002d40| 70 25 21 31 32 3d 31 3c | 3c 32 32 0d 11 4e 21 c8 |p%!12=1<|<22..N!.|
|00002d50| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00002d60| 74 61 74 65 22 2c 2c 77 | 69 6d 70 25 0d 11 58 05 |tate",,w|imp%..X.|
|00002d70| e1 0d 11 62 05 3a 0d 11 | 6c 25 dd 20 f2 57 69 6d |...b.:..|l%. .Wim|
|00002d80| 70 5f 49 63 6f 6e 45 6e | 61 62 6c 65 28 77 69 6e |p_IconEn|able(win|
|00002d90| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 11 76 23 77 |dow%,ico|n%)..v#w|
|00002da0| 69 6d 70 25 21 30 3d 77 | 69 6e 64 6f 77 25 20 3a |imp%!0=w|indow% :|
|00002db0| 20 77 69 6d 70 25 21 34 | 3d 69 63 6f 6e 25 0d 11 | wimp%!4|=icon%..|
|00002dc0| 80 24 77 69 6d 70 25 21 | 38 3d 30 20 20 20 20 20 |.$wimp%!|8=0     |
|00002dd0| 20 20 3a 20 77 69 6d 70 | 25 21 31 32 3d 31 3c 3c |  : wimp|%!12=1<<|
|00002de0| 32 32 0d 11 8a 21 c8 99 | 20 22 57 69 6d 70 5f 53 |22...!..| "Wimp_S|
|00002df0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 77 69 |etIconSt|ate",,wi|
|00002e00| 6d 70 25 0d 11 94 05 e1 | 0d 11 9e 05 3a 0d 11 a8 |mp%.....|....:...|
|00002e10| 30 dd 20 a4 57 69 6d 70 | 5f 49 63 6f 6e 50 75 74 |0. .Wimp|_IconPut|
|00002e20| 53 70 72 69 74 65 28 77 | 69 6e 64 6f 77 25 2c 69 |Sprite(w|indow%,i|
|00002e30| 63 6f 6e 25 2c 73 70 72 | 69 74 65 24 29 0d 11 b2 |con%,spr|ite$)...|
|00002e40| 21 77 69 6d 70 25 21 30 | 3d 77 69 6e 64 6f 77 25 |!wimp%!0|=window%|
|00002e50| 3a 77 69 6d 70 25 21 34 | 3d 69 63 6f 6e 25 0d 11 |:wimp%!4|=icon%..|
|00002e60| bc 21 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |.!.. "Wi|mp_GetIc|
|00002e70| 6f 6e 53 74 61 74 65 22 | 2c 2c 77 69 6d 70 25 0d |onState"|,,wimp%.|
|00002e80| 11 c6 1f c8 99 20 22 57 | 69 6d 70 5f 44 65 6c 65 |..... "W|imp_Dele|
|00002e90| 74 65 49 63 6f 6e 22 2c | 2c 77 69 6d 70 25 0d 11 |teIcon",|,wimp%..|
|00002ea0| d0 3d 77 69 6d 70 25 21 | 34 3d 77 69 6d 70 25 21 |.=wimp%!|4=wimp%!|
|00002eb0| 38 20 20 20 3a 20 77 69 | 6d 70 25 21 38 3d 77 69 |8   : wi|mp%!8=wi|
|00002ec0| 6d 70 25 21 31 32 20 20 | 3a 20 77 69 6d 70 25 21 |mp%!12  |: wimp%!|
|00002ed0| 31 32 3d 77 69 6d 70 25 | 21 31 36 0d 11 da 3f 77 |12=wimp%|!16...?w|
|00002ee0| 69 6d 70 25 21 31 36 3d | 77 69 6d 70 25 21 32 30 |imp%!16=|wimp%!20|
|00002ef0| 20 3a 20 77 69 6d 70 25 | 21 32 30 3d 77 69 6d 70 | : wimp%|!20=wimp|
|00002f00| 25 21 32 34 20 3a 20 24 | 28 77 69 6d 70 25 2b 32 |%!24 : $|(wimp%+2|
|00002f10| 34 29 3d 73 70 72 69 74 | 65 24 0d 11 e4 27 c8 99 |4)=sprit|e$...'..|
|00002f20| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|00002f30| 6e 22 2c 2c 77 69 6d 70 | 25 20 b8 20 69 63 6f 6e |n",,wimp|% . icon|
|00002f40| 25 0d 11 ee 0a 3d 69 63 | 6f 6e 25 0d 11 f8 05 3a |%....=ic|on%....:|
|00002f50| 0d 12 02 2c dd 20 f2 57 | 69 6d 70 5f 49 63 6f 6e |...,. .W|imp_Icon|
|00002f60| 50 75 74 54 65 78 74 28 | 77 69 6e 64 6f 77 25 2c |PutText(|window%,|
|00002f70| 69 63 6f 6e 25 2c 74 65 | 78 74 24 29 0d 12 0c 23 |icon%,te|xt$)...#|
|00002f80| 77 69 6d 70 25 21 30 3d | 77 69 6e 64 6f 77 25 20 |wimp%!0=|window% |
|00002f90| 3a 20 77 69 6d 70 25 21 | 34 3d 69 63 6f 6e 25 0d |: wimp%!|4=icon%.|
|00002fa0| 12 16 21 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |..!.. "W|imp_GetI|
|00002fb0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 77 69 6d 70 25 |conState|",,wimp%|
|00002fc0| 0d 12 20 37 e7 20 28 28 | 77 69 6d 70 25 21 32 34 |.. 7. ((|wimp%!24|
|00002fd0| 29 20 80 20 26 31 30 30 | 29 3d 30 20 85 20 31 2c |) . &100|)=0 . 1,|
|00002fe0| 22 49 63 6f 6e 20 69 73 | 6e 27 74 20 69 6e 64 69 |"Icon is|n't indi|
|00002ff0| 72 65 63 74 65 64 22 0d | 12 2a 15 24 28 77 69 6d |rected".|.*.$(wim|
|00003000| 70 25 21 32 38 29 3d 74 | 65 78 74 24 0d 12 34 23 |p%!28)=t|ext$..4#|
|00003010| 77 69 6d 70 25 21 30 3d | 77 69 6e 64 6f 77 25 20 |wimp%!0=|window% |
|00003020| 3a 20 77 69 6d 70 25 21 | 34 3d 69 63 6f 6e 25 0d |: wimp%!|4=icon%.|
|00003030| 12 3e 1a 77 69 6d 70 25 | 21 38 3d 30 20 3a 20 77 |.>.wimp%|!8=0 : w|
|00003040| 69 6d 70 25 21 31 32 3d | 30 0d 12 48 21 c8 99 20 |imp%!12=|0..H!.. |
|00003050| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00003060| 74 65 22 2c 2c 77 69 6d | 70 25 0d 12 52 05 e1 0d |te",,wim|p%..R...|
|00003070| 12 5c 05 3a 0d 12 66 1e | dd 20 f2 57 69 6d 70 5f |.\.:..f.|. .Wimp_|
|00003080| 49 63 6f 6e 49 6e 74 65 | 72 66 61 63 65 53 74 61 |IconInte|rfaceSta|
|00003090| 72 74 0d 12 70 1e c8 99 | 22 57 69 6d 70 5f 42 6f |rt..p...|"Wimp_Bo|
|000030a0| 72 64 65 72 49 63 6f 6e | 22 2c 2c 77 69 6d 70 25 |rderIcon|",,wimp%|
|000030b0| 0d 12 7a 05 e1 0d 12 84 | 05 3a 0d 12 8e 1f dd 20 |..z.....|.:..... |
|000030c0| f2 57 69 6d 70 5f 49 63 | 6f 6e 49 6e 74 65 72 66 |.Wimp_Ic|onInterf|
|000030d0| 61 63 65 46 69 6e 69 73 | 68 0d 12 98 0d 77 69 6d |aceFinis|h....wim|
|000030e0| 70 25 21 38 3d 30 0d 12 | a2 1e c8 99 22 57 69 6d |p%!8=0..|...."Wim|
|000030f0| 70 5f 42 6f 72 64 65 72 | 49 63 6f 6e 22 2c 2c 77 |p_Border|Icon",,w|
|00003100| 69 6d 70 25 0d 12 ac 05 | e1 0d 12 b6 05 3a 0d 12 |imp%....|.....:..|
|00003110| c0 06 f4 7c 0d 12 ca 06 | f4 7c 0d 12 d4 06 f4 7c |...|....|.|.....||
|00003120| 0d 12 de 31 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...1.|  |        |
|00003130| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |        |--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 0d 12 e8 28 f4 7c 20 | 20 20 20 20 20 20 20 20 |-...(.| |        |
|00003160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003170| 20 33 2e a0 4d 65 6e 75 | 73 0d 12 f2 31 f4 7c 20 | 3..Menu|s...1.| |
|00003180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003190| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 12 fc 06 f4 7c |--------|--.....||
|000031b0| 0d 13 06 06 f4 7c 0d 13 | 10 3f f4 7c 20 20 20 20 |.....|..|.?.|    |
|000031c0| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |       -|--------|
|000031d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031f0| 2d 2d 2d 2d 2d 0d 13 1a | 06 f4 7c 0d 13 24 28 f4 |-----...|..|..$(.|
|00003200| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||       |        |
|00003210| 20 20 20 20 20 20 20 50 | 72 6f 63 65 64 75 72 65 |       P|rocedure|
|00003220| 73 20 3a 0d 13 2e 06 f4 | 7c 0d 13 38 06 f4 7c 0d |s :.....||..8..|.|
|00003230| 13 42 2e f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.B..|   |        |
|00003240| 20 50 52 4f 43 57 69 6d | 70 5f 4d 65 6e 75 41 64 | PROCWim|p_MenuAd|
|00003250| 6a 75 73 74 4f 6e 28 6d | 65 6e 75 25 29 0d 13 4c |justOn(m|enu%)..L|
|00003260| 2b f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 46 |+.|     |       F|
|00003270| 4e 57 69 6d 70 5f 4d 65 | 6e 75 43 68 6f 69 63 65 |NWimp_Me|nuChoice|
|00003280| 28 6c 65 76 65 6c 25 29 | 0d 13 56 2a f4 7c 20 20 |(level%)|..V*.|  |
|00003290| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 |        |  FNWimp|
|000032a0| 5f 4d 65 6e 75 43 72 65 | 61 74 65 28 6d 65 6e 75 |_MenuCre|ate(menu|
|000032b0| 24 29 0d 13 60 24 f4 7c | 20 20 20 20 20 20 20 20 |$)..`$.||        |
|000032c0| 20 20 20 20 46 4e 57 69 | 6d 70 5f 4d 65 6e 75 43 |    FNWi|mp_MenuC|
|000032d0| 6f 6c 6f 75 72 73 0d 13 | 6a 32 f4 7c 20 20 20 20 |olours..|j2.|    |
|000032e0| 20 20 20 20 20 20 20 20 | 46 4e 57 69 6d 70 5f 4d |        |FNWimp_M|
|000032f0| 65 6e 75 43 72 65 61 74 | 65 43 6f 6c 6f 75 72 73 |enuCreat|eColours|
|00003300| 28 74 69 74 6c 65 24 29 | 0d 13 74 2f f4 7c 20 20 |(title$)|..t/.|  |
|00003310| 20 20 20 20 20 20 20 20 | 20 20 46 4e 57 69 6d 70 |        |  FNWimp|
|00003320| 5f 4d 65 6e 75 4e 6f 4f | 66 45 6e 74 72 69 65 73 |_MenuNoO|fEntries|
|00003330| 28 6d 65 6e 75 24 29 0d | 13 7e 44 f4 7c 20 20 20 |(menu$).|.~D.|   |
|00003340| 20 20 20 20 20 20 20 20 | 20 50 52 4f 43 57 69 6d |        | PROCWim|
|00003350| 70 5f 4d 65 6e 75 42 61 | 63 6b 47 72 6f 75 6e 64 |p_MenuBa|ckGround|
|00003360| 43 6f 6c 6f 75 72 28 6d | 65 6e 75 25 2c 69 74 65 |Colour(m|enu%,ite|
|00003370| 6d 25 2c 63 6f 6c 6f 75 | 72 25 29 0d 13 88 32 f4 |m%,colou|r%)...2.|
|00003380| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 50 52 4f ||       |     PRO|
|00003390| 43 57 69 6d 70 5f 4d 65 | 6e 75 43 65 6e 74 72 65 |CWimp_Me|nuCentre|
|000033a0| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 29 0d 13 92 |(menu%,i|tem%)...|
|000033b0| 24 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |$.|     |       P|
|000033c0| 52 4f 43 57 69 6d 70 5f | 4d 65 6e 75 43 6c 6f 73 |ROCWimp_|MenuClos|
|000033d0| 65 0d 13 9c 33 f4 7c 20 | 20 20 20 20 20 20 20 20 |e...3.| |        |
|000033e0| 20 20 20 50 52 4f 43 57 | 69 6d 70 5f 4d 65 6e 75 |   PROCW|imp_Menu|
|000033f0| 44 69 73 61 62 6c 65 28 | 6d 65 6e 75 25 2c 69 74 |Disable(|menu%,it|
|00003400| 65 6d 25 29 0d 13 a6 36 | f4 7c 20 20 20 20 20 20 |em%)...6|.|      |
|00003410| 20 20 20 20 20 20 50 52 | 4f 43 57 69 6d 70 5f 4d |      PR|OCWimp_M|
|00003420| 65 6e 75 44 6f 74 74 65 | 64 4c 69 6e 65 28 6d 65 |enuDotte|dLine(me|
|00003430| 6e 75 25 2c 69 74 65 6d | 25 29 0d 13 b0 32 f4 7c |nu%,item|%)...2.||
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 52 4f 43 |        |    PROC|
|00003450| 57 69 6d 70 5f 4d 65 6e | 75 45 6e 61 62 6c 65 28 |Wimp_Men|uEnable(|
|00003460| 6d 65 6e 75 25 2c 69 74 | 65 6d 25 29 0d 13 ba 44 |menu%,it|em%)...D|
|00003470| f4 7c 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 |.|      |      PR|
|00003480| 4f 43 57 69 6d 70 5f 4d | 65 6e 75 46 6f 72 65 67 |OCWimp_M|enuForeg|
|00003490| 72 6f 75 6e 64 43 6f 6c | 6f 75 72 28 6d 65 6e 75 |roundCol|our(menu|
|000034a0| 25 2c 69 74 65 6d 25 2c | 63 6f 6c 6f 75 72 25 29 |%,item%,|colour%)|
|000034b0| 0d 13 c4 38 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...8.|  |        |
|000034c0| 20 20 50 52 4f 43 57 69 | 6d 70 5f 4d 65 6e 75 47 |  PROCWi|mp_MenuG|
|000034d0| 6c 75 65 28 6d 65 6e 75 | 31 25 2c 69 74 65 6d 25 |lue(menu|1%,item%|
|000034e0| 2c 6d 65 6e 75 32 25 29 | 0d 13 ce 36 f4 7c 20 20 |,menu2%)|...6.|  |
|000034f0| 20 20 20 20 20 20 20 20 | 20 20 50 52 4f 43 57 69 |        |  PROCWi|
|00003500| 6d 70 5f 4d 65 6e 75 49 | 74 65 6d 28 6d 65 6e 75 |mp_MenuI|tem(menu|
|00003510| 25 2c 69 74 65 6d 25 2c | 69 74 65 6d 24 29 0d 13 |%,item%,|item$)..|
|00003520| d8 33 f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |.3.|    |        |
|00003530| 50 52 4f 43 57 69 6d 70 | 5f 4d 65 6e 75 4d 65 73 |PROCWimp|_MenuMes|
|00003540| 73 61 67 65 28 6d 65 6e | 75 25 2c 69 74 65 6d 25 |sage(men|u%,item%|
|00003550| 29 0d 13 e2 31 f4 7c 20 | 20 20 20 20 20 20 20 20 |)...1.| |        |
|00003560| 20 20 20 50 52 4f 43 57 | 69 6d 70 5f 4d 65 6e 75 |   PROCW|imp_Menu|
|00003570| 50 6f 70 55 70 28 4d 65 | 6e 75 25 2c 78 25 2c 79 |PopUp(Me|nu%,x%,y|
|00003580| 25 29 0d 13 ec 2e f4 7c | 20 20 20 20 20 20 20 20 |%).....||        |
|00003590| 20 20 20 20 50 52 4f 43 | 57 69 6d 70 5f 4d 65 6e |    PROC|Wimp_Men|
|000035a0| 75 50 6f 70 55 70 42 61 | 72 28 78 25 2c 79 25 29 |uPopUpBa|r(x%,y%)|
|000035b0| 0d 13 f6 30 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...0.|  |        |
|000035c0| 20 20 50 52 4f 43 57 69 | 6d 70 5f 4d 65 6e 75 54 |  PROCWi|mp_MenuT|
|000035d0| 69 63 6b 28 6d 65 6e 75 | 25 2c 69 74 65 6d 25 29 |ick(menu|%,item%)|
|000035e0| 0d 14 00 32 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...2.|  |        |
|000035f0| 20 20 50 52 4f 43 57 69 | 6d 70 5f 4d 65 6e 75 54 |  PROCWi|mp_MenuT|
|00003600| 69 74 6c 65 28 6d 65 6e | 75 25 2c 74 69 74 6c 65 |itle(men|u%,title|
|00003610| 24 29 0d 14 0a 4c f4 7c | 20 20 20 20 20 20 20 20 |$)...L.||        |
|00003620| 20 20 20 20 50 52 4f 43 | 57 69 6d 70 5f 4d 65 6e |    PROC|Wimp_Men|
|00003630| 75 57 72 69 74 65 28 6d | 65 6e 75 25 2c 69 74 65 |uWrite(m|enu%,ite|
|00003640| 6d 25 2c 62 75 66 66 65 | 72 25 2c 76 61 6c 25 2c |m%,buffe|r%,val%,|
|00003650| 42 75 66 66 65 72 4c 65 | 6e 67 74 68 25 29 0d 14 |BufferLe|ngth%)..|
|00003660| 14 06 f4 7c 0d 14 1e 3f | f4 7c 20 20 20 20 20 20 |...|...?|.|      |
|00003670| 20 20 20 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |     ---|--------|
|00003680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000036a0| 2d 2d 2d 0d 14 28 06 f4 | 7c 0d 14 32 05 3a 0d 14 |---..(..||..2.:..|
|000036b0| 3c 1f dd 20 f2 57 69 6d | 70 5f 4d 65 6e 75 41 64 |<.. .Wim|p_MenuAd|
|000036c0| 6a 75 73 74 4f 6e 28 6d | 65 6e 75 25 29 0d 14 46 |justOn(m|enu%)..F|
|000036d0| 2c c8 99 20 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |,.. "Wim|p_GetPoi|
|000036e0| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 70 6f 69 6e 74 |nterInfo|",,point|
|000036f0| 65 72 5f 62 6c 6f 63 6b | 25 0d 14 50 5e e7 20 28 |er_block|%..P^. (|
|00003700| 28 70 6f 69 6e 74 65 72 | 5f 62 6c 6f 63 6b 25 21 |(pointer|_block%!|
|00003710| 38 29 80 31 29 3d 31 20 | 8c 20 c8 99 20 22 57 69 |8).1)=1 |. .. "Wi|
|00003720| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00003730| 6d 65 6e 75 25 2c 70 6f | 69 6e 74 65 72 5f 62 6c |menu%,po|inter_bl|
|00003740| 6f 63 6b 25 21 30 2c 70 | 6f 69 6e 74 65 72 5f 62 |ock%!0,p|ointer_b|
|00003750| 6c 6f 63 6b 25 21 34 0d | 14 5a 05 e1 0d 14 64 05 |lock%!4.|.Z....d.|
|00003760| 3a 0d 14 6e 1e dd 20 a4 | 57 69 6d 70 5f 4d 65 6e |:..n.. .|Wimp_Men|
|00003770| 75 43 68 6f 69 63 65 28 | 6c 65 76 65 6c 25 29 0d |uChoice(|level%).|
|00003780| 14 78 19 3d 28 77 69 6d | 70 25 21 28 34 2a 6c 65 |.x.=(wim|p%!(4*le|
|00003790| 76 65 6c 25 29 29 2b 31 | 0d 14 82 05 3a 0d 14 8c |vel%))+1|....:...|
|000037a0| 1d dd 20 a4 57 69 6d 70 | 5f 4d 65 6e 75 43 72 65 |.. .Wimp|_MenuCre|
|000037b0| 61 74 65 28 6d 65 6e 75 | 24 29 0d 14 96 29 e7 20 |ate(menu|$)...). |
|000037c0| 6d 65 6e 75 24 3d 22 43 | 6f 6c 6f 75 72 73 22 20 |menu$="C|olours" |
|000037d0| 8c 3d a4 57 69 6d 70 5f | 4d 65 6e 75 43 6f 6c 6f |.=.Wimp_|MenuColo|
|000037e0| 75 72 73 0d 14 a0 27 ea | 20 6d 65 6e 75 25 2c 69 |urs...'.| menu%,i|
|000037f0| 6e 64 65 78 25 2c 77 69 | 64 74 68 25 2c 6c 65 6e |ndex%,wi|dth%,len|
|00003800| 67 74 68 25 2c 6b 25 2c | 73 25 0d 14 aa 2e de 20 |gth%,k%,|s%..... |
|00003810| 6d 65 6e 75 25 20 32 38 | 2b a4 57 69 6d 70 5f 4d |menu% 28|+.Wimp_M|
|00003820| 65 6e 75 4e 6f 4f 66 45 | 6e 74 72 69 65 73 28 6d |enuNoOfE|ntries(m|
|00003830| 65 6e 75 24 29 2a 32 34 | 0d 14 b4 37 6d 65 6e 75 |enu$)*24|...7menu|
|00003840| 25 3f 31 32 3d 37 20 20 | 20 3a 20 6d 65 6e 75 25 |%?12=7  | : menu%|
|00003850| 3f 31 33 3d 32 20 20 3a | 20 6d 65 6e 75 25 3f 31 |?13=2  :| menu%?1|
|00003860| 34 3d 37 20 3a 6d 65 6e | 75 25 3f 31 35 3d 30 0d |4=7 :men|u%?15=0.|
|00003870| 14 be 2b 6d 65 6e 75 25 | 21 31 36 3d 31 34 30 20 |..+menu%|!16=140 |
|00003880| 3a 20 6d 65 6e 75 25 21 | 32 30 3d 34 34 20 3a 20 |: menu%!|20=44 : |
|00003890| 6d 65 6e 75 25 21 32 34 | 3d 30 0d 14 c8 13 69 6e |menu%!24|=0....in|
|000038a0| 64 65 78 25 3d 6d 65 6e | 75 25 2b 32 38 0d 14 d2 |dex%=men|u%+28...|
|000038b0| 20 24 6d 65 6e 75 25 3d | c0 6d 65 6e 75 24 2c a7 | $menu%=|.menu$,.|
|000038c0| 6d 65 6e 75 24 2c 22 5c | 22 29 2d 31 29 0d 14 dc |menu$,"\|")-1)...|
|000038d0| 23 77 69 64 74 68 25 3d | a9 28 c0 6d 65 6e 75 24 |#width%=|.(.menu$|
|000038e0| 2c a7 6d 65 6e 75 24 2c | 22 5c 22 29 2d 31 29 29 |,.menu$,|"\")-1))|
|000038f0| 0d 14 e6 24 6d 65 6e 75 | 24 2b 3d 22 5c 22 20 3a |...$menu|$+="\" :|
|00003900| 20 4d 65 6e 75 5f 4e 6f | 4f 66 45 6e 74 72 69 65 | Menu_No|OfEntrie|
|00003910| 73 25 3d 30 0d 14 f0 10 | c8 95 20 6d 65 6e 75 24 |s%=0....|.. menu$|
|00003920| 3c 3e 22 22 0d 14 fa 1f | 6d 65 6e 75 24 3d c1 6d |<>""....|menu$=.m|
|00003930| 65 6e 75 24 2c a7 6d 65 | 6e 75 24 2c 22 5c 22 29 |enu$,.me|nu$,"\")|
|00003940| 2b 31 29 0d 15 04 0e c8 | 8e 20 6d 65 6e 75 24 20 |+1).....|. menu$ |
|00003950| ca 0d 15 0e 08 c9 20 22 | 22 0d 15 18 07 7f 20 3a |...... "|"..... :|
|00003960| 0d 15 22 2f 21 69 6e 64 | 65 78 25 3d 30 20 3a 20 |.."/!ind|ex%=0 : |
|00003970| 69 6e 64 65 78 25 21 34 | 3d 2d 31 20 3a 20 69 6e |index%!4|=-1 : in|
|00003980| 64 65 78 25 21 38 3d 26 | 37 30 30 30 30 32 31 0d |dex%!8=&|7000021.|
|00003990| 15 2c 19 6c 65 6e 67 74 | 68 25 3d a7 6d 65 6e 75 |.,.lengt|h%=.menu|
|000039a0| 24 2c 22 5c 22 29 2d 31 | 0d 15 36 1c 6b 25 3d a7 |$,"\")-1|..6.k%=.|
|000039b0| c0 6d 65 6e 75 24 2c 6c | 65 6e 67 74 68 25 29 2c |.menu$,l|ength%),|
|000039c0| 22 3e 22 29 0d 15 40 0b | c8 8e 20 6b 25 20 ca 0d |">")..@.|.. k% ..|
|000039d0| 15 4a 07 c9 20 30 0d 15 | 54 05 7f 0d 15 5e 29 f4 |.J.. 0..|T....^).|
|000039e0| 73 25 3d 45 56 41 4c 28 | 4d 49 44 24 28 6d 65 6e |s%=EVAL(|MID$(men|
|000039f0| 75 24 2c 6b 25 2b 31 2c | 6c 65 6e 67 74 68 25 2d |u$,k%+1,|length%-|
|00003a00| 6b 25 29 29 0d 15 68 0f | 69 6e 64 65 78 25 21 34 |k%))..h.|index%!4|
|00003a10| 3d 73 25 0d 15 72 10 6c | 65 6e 67 74 68 25 3d 6b |=s%..r.l|ength%=k|
|00003a20| 25 2d 31 0d 15 7c 05 cb | 0d 15 86 20 24 28 69 6e |%-1..|..|... $(in|
|00003a30| 64 65 78 25 2b 31 32 29 | 3d c0 6d 65 6e 75 24 2c |dex%+12)|=.menu$,|
|00003a40| 6c 65 6e 67 74 68 25 29 | 0d 15 90 25 e7 20 6c 65 |length%)|...%. le|
|00003a50| 6e 67 74 68 25 3e 77 69 | 64 74 68 25 20 8c 20 77 |ngth%>wi|dth% . w|
|00003a60| 69 64 74 68 25 3d 6c 65 | 6e 67 74 68 25 0d 15 9a |idth%=le|ngth%...|
|00003a70| 0e 69 6e 64 65 78 25 2b | 3d 32 34 0d 15 a4 05 cb |.index%+|=24.....|
|00003a80| 0d 15 ae 05 ce 0d 15 b8 | 1a 6d 65 6e 75 25 21 31 |........|.menu%!1|
|00003a90| 36 3d 31 36 2a 28 77 69 | 64 74 68 25 2b 31 29 0d |6=16*(wi|dth%+1).|
|00003aa0| 15 c2 28 69 6e 64 65 78 | 25 21 2d 32 34 3d 69 6e |..(index|%!-24=in|
|00003ab0| 64 65 78 25 21 2d 32 34 | 20 84 20 26 38 30 20 3a |dex%!-24| . &80 :|
|00003ac0| 20 3d 6d 65 6e 75 25 0d | 15 cc 05 3a 0d 15 d6 17 | =menu%.|...:....|
|00003ad0| dd 20 a4 57 69 6d 70 5f | 4d 65 6e 75 43 6f 6c 6f |. .Wimp_|MenuColo|
|00003ae0| 75 72 73 0d 15 e0 21 3d | a4 57 69 6d 70 5f 4d 65 |urs...!=|.Wimp_Me|
|00003af0| 6e 75 43 72 65 61 74 65 | 43 6f 6c 6f 75 72 73 28 |nuCreate|Colours(|
|00003b00| 22 20 22 29 0d 15 ea 05 | 3a 0d 15 f4 25 dd 20 a4 |" ")....|:...%. .|
|00003b10| 57 69 6d 70 5f 4d 65 6e | 75 43 72 65 61 74 65 43 |Wimp_Men|uCreateC|
|00003b20| 6f 6c 6f 75 72 73 28 74 | 69 74 6c 65 24 29 0d 15 |olours(t|itle$)..|
|00003b30| fe 13 ea 20 78 24 2c 6d | 65 6e 25 2c 6a 25 2c 69 |... x$,m|en%,j%,i|
|00003b40| 25 0d 16 08 36 78 24 3d | 74 69 74 6c 65 24 2b 22 |%...6x$=|title$+"|
|00003b50| 5c 30 5c 31 5c 32 5c 33 | 5c 34 5c 35 5c 36 5c 37 |\0\1\2\3|\4\5\6\7|
|00003b60| 5c 38 5c 39 5c 31 30 5c | 31 31 5c 31 32 5c 31 33 |\8\9\10\|11\12\13|
|00003b70| 5c 31 34 5c 31 35 22 0d | 16 12 1d 6d 65 6e 25 3d |\14\15".|...men%=|
|00003b80| a4 57 69 6d 70 5f 4d 65 | 6e 75 43 72 65 61 74 65 |.Wimp_Me|nuCreate|
|00003b90| 28 78 24 29 0d 16 1c 0f | e3 20 69 25 3d 30 20 b8 |(x$)....|. i%=0 .|
|00003ba0| 20 31 35 0d 16 26 0a c8 | 8e 20 b9 20 ca 0d 16 30 | 15..&..|. . ...0|
|00003bb0| 28 c9 20 69 25 3c 34 2c | 69 25 3d 39 2c 69 25 3d |(. i%<4,|i%=9,i%=|
|00003bc0| 31 32 2c 69 25 3d 31 34 | 2c 69 25 3d 31 35 20 3a |12,i%=14|,i%=15 :|
|00003bd0| 20 6a 25 3d 37 0d 16 3a | 0c 7f 20 3a 20 6a 25 3d | j%=7..:|.. : j%=|
|00003be0| 30 0d 16 44 05 cb 0d 16 | 4e 1c 6d 65 6e 25 3f 28 |0..D....|N.men%?(|
|00003bf0| 33 39 2b 69 25 2a 32 34 | 29 3d 69 25 2a 31 36 2b |39+i%*24|)=i%*16+|
|00003c00| 6a 25 0d 16 58 1f f2 57 | 69 6d 70 5f 4d 65 6e 75 |j%..X..W|imp_Menu|
|00003c10| 43 65 6e 74 72 65 28 6d | 65 6e 25 2c 69 25 2b 31 |Centre(m|en%,i%+1|
|00003c20| 29 0d 16 62 05 ed 0d 16 | 6c 09 3d 6d 65 6e 25 0d |)..b....|l.=men%.|
|00003c30| 16 76 05 3a 0d 16 80 22 | dd 20 a4 57 69 6d 70 5f |.v.:..."|. .Wimp_|
|00003c40| 4d 65 6e 75 4e 6f 4f 66 | 45 6e 74 72 69 65 73 28 |MenuNoOf|Entries(|
|00003c50| 6d 65 6e 75 24 29 0d 16 | 8a 1a ea 20 6e 25 20 2c |menu$)..|... n% ,|
|00003c60| 6a 25 20 3a 20 6e 25 3d | 30 20 3a 20 6a 25 3d 30 |j% : n%=|0 : j%=0|
|00003c70| 0d 16 94 05 f5 0d 16 9e | 17 6a 25 3d a7 6d 65 6e |........|.j%=.men|
|00003c80| 75 24 2c 22 5c 22 2c 6a | 25 2b 31 29 0d 16 a8 13 |u$,"\",j|%+1)....|
|00003c90| e7 20 6a 25 3c 3e 30 20 | 8c 20 6e 25 2b 3d 31 0d |. j%<>0 |. n%+=1.|
|00003ca0| 16 b2 0a fd 20 6a 25 3d | 30 0d 16 bc 07 3d 6e 25 |.... j%=|0....=n%|
|00003cb0| 0d 16 c6 05 3a 0d 16 d0 | 35 dd 20 f2 57 69 6d 70 |....:...|5. .Wimp|
|00003cc0| 5f 4d 65 6e 75 42 61 63 | 6b 47 72 6f 75 6e 64 43 |_MenuBac|kGroundC|
|00003cd0| 6f 6c 6f 75 72 28 6d 65 | 6e 75 25 2c 69 74 65 6d |olour(me|nu%,item|
|00003ce0| 25 2c 63 6f 6c 6f 75 72 | 25 29 0d 16 da 0e ea 20 |%,colour|%)..... |
|00003cf0| 66 6f 72 65 25 2c 69 25 | 0d 16 e4 26 66 6f 72 65 |fore%,i%|...&fore|
|00003d00| 25 3d 28 6d 65 6e 75 25 | 3f 28 33 39 2b 28 69 74 |%=(menu%|?(39+(it|
|00003d10| 65 6d 25 2d 31 29 2a 32 | 34 29 29 83 31 36 0d 16 |em%-1)*2|4)).16..|
|00003d20| ee 28 69 25 3d 28 28 6d | 65 6e 75 25 3f 28 33 39 |.(i%=((m|enu%?(39|
|00003d30| 2b 28 69 74 65 6d 25 2d | 31 29 2a 32 34 29 29 81 |+(item%-|1)*24)).|
|00003d40| 31 36 29 83 31 36 0d 16 | f8 2f 6d 65 6e 75 25 3f |16).16..|./menu%?|
|00003d50| 28 33 39 2b 28 69 74 65 | 6d 25 2d 31 29 2a 32 34 |(39+(ite|m%-1)*24|
|00003d60| 29 3d 66 6f 72 65 25 2b | 31 36 2a 63 6f 6c 6f 75 |)=fore%+|16*colou|
|00003d70| 72 25 2b 69 25 0d 17 02 | 05 e1 0d 17 0c 05 3a 0d |r%+i%...|......:.|
|00003d80| 17 16 23 dd 20 f2 57 69 | 6d 70 5f 4d 65 6e 75 43 |..#. .Wi|mp_MenuC|
|00003d90| 65 6e 74 72 65 28 6d 65 | 6e 75 25 2c 69 74 65 6d |entre(me|nu%,item|
|00003da0| 25 29 0d 17 20 3a 6d 65 | 6e 75 25 21 28 33 36 2b |%).. :me|nu%!(36+|
|00003db0| 28 69 74 65 6d 25 2d 31 | 29 2a 32 34 29 3d 6d 65 |(item%-1|)*24)=me|
|00003dc0| 6e 75 25 21 28 33 36 2b | 28 69 74 65 6d 25 2d 31 |nu%!(36+|(item%-1|
|00003dd0| 29 2a 32 34 29 84 28 31 | 3c 3c 33 29 0d 17 2a 05 |)*24).(1|<<3)..*.|
|00003de0| e1 0d 17 34 05 3a 0d 17 | 3e 15 dd 20 f2 57 69 6d |...4.:..|>.. .Wim|
|00003df0| 70 5f 4d 65 6e 75 43 6c | 6f 73 65 0d 17 48 1b c8 |p_MenuCl|ose..H..|
|00003e00| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00003e10| 6e 75 22 2c 2d 31 0d 17 | 52 05 e1 0d 17 5c 05 3a |nu",-1..|R....\.:|
|00003e20| 0d 17 66 24 dd 20 f2 57 | 69 6d 70 5f 4d 65 6e 75 |..f$. .W|imp_Menu|
|00003e30| 44 69 73 61 62 6c 65 28 | 6d 65 6e 75 25 2c 69 74 |Disable(|menu%,it|
|00003e40| 65 6d 25 29 0d 17 70 3b | 6d 65 6e 75 25 21 28 33 |em%)..p;|menu%!(3|
|00003e50| 36 2b 28 69 74 65 6d 25 | 2d 31 29 2a 32 34 29 3d |6+(item%|-1)*24)=|
|00003e60| 6d 65 6e 75 25 21 28 33 | 36 2b 28 69 74 65 6d 25 |menu%!(3|6+(item%|
|00003e70| 2d 31 29 2a 32 34 29 84 | 28 31 3c 3c 32 32 29 0d |-1)*24).|(1<<22).|
|00003e80| 17 7a 05 e1 0d 17 84 05 | 3a 0d 17 8e 27 dd 20 f2 |.z......|:...'. .|
|00003e90| 57 69 6d 70 5f 4d 65 6e | 75 44 6f 74 74 65 64 4c |Wimp_Men|uDottedL|
|00003ea0| 69 6e 65 28 6d 65 6e 75 | 25 2c 69 74 65 6d 25 29 |ine(menu|%,item%)|
|00003eb0| 0d 17 98 37 6d 65 6e 75 | 25 21 28 32 38 2b 28 69 |...7menu|%!(28+(i|
|00003ec0| 74 65 6d 25 2d 31 29 2a | 32 34 29 3d 28 6d 65 6e |tem%-1)*|24)=(men|
|00003ed0| 75 25 21 28 32 38 2b 28 | 69 74 65 6d 25 2d 31 29 |u%!(28+(|item%-1)|
|00003ee0| 2a 32 34 29 29 84 32 0d | 17 a2 05 e1 0d 17 ac 05 |*24)).2.|........|
|00003ef0| 3a 0d 17 b6 23 dd 20 f2 | 57 69 6d 70 5f 4d 65 6e |:...#. .|Wimp_Men|
|00003f00| 75 45 6e 61 62 6c 65 28 | 6d 65 6e 75 25 2c 69 74 |uEnable(|menu%,it|
|00003f10| 65 6d 25 29 0d 17 c0 22 | f2 57 69 6d 70 5f 4d 65 |em%)..."|.Wimp_Me|
|00003f20| 6e 75 44 69 73 61 62 6c | 65 28 6d 65 6e 75 25 2c |nuDisabl|e(menu%,|
|00003f30| 69 74 65 6d 25 29 0d 17 | ca 3b 6d 65 6e 75 25 21 |item%)..|.;menu%!|
|00003f40| 28 33 36 2b 28 69 74 65 | 6d 25 2d 31 29 2a 32 34 |(36+(ite|m%-1)*24|
|00003f50| 29 3d 6d 65 6e 75 25 21 | 28 33 36 2b 28 69 74 65 |)=menu%!|(36+(ite|
|00003f60| 6d 25 2d 31 29 2a 32 34 | 29 82 28 31 3c 3c 32 32 |m%-1)*24|).(1<<22|
|00003f70| 29 0d 17 d4 05 e1 0d 17 | de 05 3a 0d 17 e8 35 dd |).......|..:...5.|
|00003f80| 20 f2 57 69 6d 70 5f 4d | 65 6e 75 46 6f 72 65 67 | .Wimp_M|enuForeg|
|00003f90| 72 6f 75 6e 64 43 6f 6c | 6f 75 72 28 6d 65 6e 75 |roundCol|our(menu|
|00003fa0| 25 2c 69 74 65 6d 25 2c | 63 6f 6c 6f 75 72 25 29 |%,item%,|colour%)|
|00003fb0| 0d 17 f2 45 6d 65 6e 75 | 25 3f 28 33 39 2b 28 69 |...Emenu|%?(39+(i|
|00003fc0| 74 65 6d 25 2d 31 29 2a | 32 34 29 3d 63 6f 6c 6f |tem%-1)*|24)=colo|
|00003fd0| 75 72 25 2b 31 36 2a 28 | 28 6d 65 6e 75 25 3f 28 |ur%+16*(|(menu%?(|
|00003fe0| 33 39 2b 28 69 74 65 6d | 25 2d 31 29 2a 32 34 29 |39+(item|%-1)*24)|
|00003ff0| 29 81 31 36 29 0d 17 fc | 05 e1 0d 18 06 05 3a 0d |).16)...|......:.|
|00004000| 18 10 29 dd 20 f2 57 69 | 6d 70 5f 4d 65 6e 75 47 |..). .Wi|mp_MenuG|
|00004010| 6c 75 65 28 6d 65 6e 75 | 31 25 2c 69 74 65 6d 25 |lue(menu|1%,item%|
|00004020| 2c 6d 65 6e 75 32 25 29 | 0d 18 1a 1e 6d 65 6e 75 |,menu2%)|....menu|
|00004030| 31 25 21 28 38 2b 69 74 | 65 6d 25 2a 32 34 29 3d |1%!(8+it|em%*24)=|
|00004040| 6d 65 6e 75 32 25 0d 18 | 24 05 e1 0d 18 2e 05 3a |menu2%..|$......:|
|00004050| 0d 18 38 27 dd 20 f2 57 | 69 6d 70 5f 4d 65 6e 75 |..8'. .W|imp_Menu|
|00004060| 49 74 65 6d 28 6d 65 6e | 75 25 2c 69 74 65 6d 25 |Item(men|u%,item%|
|00004070| 2c 69 74 65 6d 24 29 0d | 18 42 2c 24 28 6d 65 6e |,item$).|.B,$(men|
|00004080| 75 25 2b 28 34 30 2b 28 | 69 74 65 6d 25 2d 31 29 |u%+(40+(|item%-1)|
|00004090| 2a 32 34 29 29 3d c0 69 | 74 65 6d 24 2c 31 32 29 |*24))=.i|tem$,12)|
|000040a0| 2b bd 30 0d 18 4c 05 e1 | 0d 18 56 05 3a 0d 18 60 |+.0..L..|..V.:..`|
|000040b0| 24 dd 20 f2 57 69 6d 70 | 5f 4d 65 6e 75 4d 65 73 |$. .Wimp|_MenuMes|
|000040c0| 73 61 67 65 28 6d 65 6e | 75 25 2c 69 74 65 6d 25 |sage(men|u%,item%|
|000040d0| 29 0d 18 6a 3c 6d 65 6e | 75 25 21 28 32 38 2b 28 |)..j<men|u%!(28+(|
|000040e0| 69 74 65 6d 25 2d 31 29 | 2a 32 34 29 3d 28 6d 65 |item%-1)|*24)=(me|
|000040f0| 6e 75 25 21 28 32 38 2b | 28 69 74 65 6d 25 2d 31 |nu%!(28+|(item%-1|
|00004100| 29 2a 32 34 29 29 82 28 | 31 3c 3c 33 29 0d 18 74 |)*24)).(|1<<3)..t|
|00004110| 05 e1 0d 18 7e 05 3a 0d | 18 88 22 dd 20 f2 57 69 |....~.:.|..". .Wi|
|00004120| 6d 70 5f 4d 65 6e 75 50 | 6f 70 55 70 28 4d 65 6e |mp_MenuP|opUp(Men|
|00004130| 75 25 2c 78 25 2c 79 25 | 29 0d 18 92 0f 6d 65 6e |u%,x%,y%|)....men|
|00004140| 75 25 3d 4d 65 6e 75 25 | 0d 18 9c 2b c8 99 20 22 |u%=Menu%|...+.. "|
|00004150| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00004160| 2c 2c 6d 65 6e 75 25 2c | 78 25 2d 36 34 2c 79 25 |,,menu%,|x%-64,y%|
|00004170| 2b 32 30 0d 18 a6 05 e1 | 0d 18 b0 05 3a 0d 18 ba |+20.....|....:...|
|00004180| 1f dd 20 f2 57 69 6d 70 | 5f 4d 65 6e 75 50 6f 70 |.. .Wimp|_MenuPop|
|00004190| 55 70 42 61 72 28 78 25 | 2c 79 25 29 0d 18 c4 0f |UpBar(x%|,y%)....|
|000041a0| ea 20 6e 25 20 3a 20 6e | 25 3d 30 0d 18 ce 2b c8 |. n% : n|%=0...+.|
|000041b0| 95 20 28 28 42 61 72 5f | 4d 65 6e 75 25 21 28 32 |. ((Bar_|Menu%!(2|
|000041c0| 38 2b 6e 25 2a 32 34 29 | 29 80 25 31 30 30 30 30 |8+n%*24)|).%10000|
|000041d0| 30 30 30 29 3d 30 0d 18 | d8 09 6e 25 2b 3d 31 0d |000)=0..|..n%+=1.|
|000041e0| 18 e2 05 ce 0d 18 ec 32 | c8 99 20 22 57 69 6d 70 |.......2|.. "Wimp|
|000041f0| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 42 61 |_CreateM|enu",,Ba|
|00004200| 72 5f 4d 65 6e 75 25 2c | 78 25 2d 36 34 2c 39 36 |r_Menu%,|x%-64,96|
|00004210| 2b 6e 25 2a 34 34 0d 18 | f6 13 6d 65 6e 75 25 3d |+n%*44..|..menu%=|
|00004220| 42 61 72 5f 4d 65 6e 75 | 25 0d 19 00 05 e1 0d 19 |Bar_Menu|%.......|
|00004230| 0a 05 3a 0d 19 14 21 dd | 20 f2 57 69 6d 70 5f 4d |..:...!.| .Wimp_M|
|00004240| 65 6e 75 54 69 63 6b 28 | 6d 65 6e 75 25 2c 69 74 |enuTick(|menu%,it|
|00004250| 65 6d 25 29 0d 19 1e 37 | 6d 65 6e 75 25 21 28 32 |em%)...7|menu%!(2|
|00004260| 38 2b 28 69 74 65 6d 25 | 2d 31 29 2a 32 34 29 3d |8+(item%|-1)*24)=|
|00004270| 28 6d 65 6e 75 25 21 28 | 32 38 2b 28 69 74 65 6d |(menu%!(|28+(item|
|00004280| 25 2d 31 29 2a 32 34 29 | 29 82 31 0d 19 28 05 e1 |%-1)*24)|).1..(..|
|00004290| 0d 19 32 05 3a 0d 19 3c | 23 dd 20 f2 57 69 6d 70 |..2.:..<|#. .Wimp|
|000042a0| 5f 4d 65 6e 75 54 69 74 | 6c 65 28 6d 65 6e 75 25 |_MenuTit|le(menu%|
|000042b0| 2c 74 69 74 6c 65 24 29 | 0d 19 46 19 24 6d 65 6e |,title$)|..F.$men|
|000042c0| 75 25 3d c0 74 69 74 6c | 65 24 2c 31 32 29 2b bd |u%=.titl|e$,12)+.|
|000042d0| 30 0d 19 50 05 e1 0d 19 | 5a 05 3a 0d 19 64 3d dd |0..P....|Z.:..d=.|
|000042e0| 20 f2 57 69 6d 70 5f 4d | 65 6e 75 57 72 69 74 65 | .Wimp_M|enuWrite|
|000042f0| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 2c 62 75 66 |(menu%,i|tem%,buf|
|00004300| 66 65 72 25 2c 76 61 6c | 25 2c 42 75 66 66 65 72 |fer%,val|%,Buffer|
|00004310| 4c 65 6e 67 74 68 25 29 | 0d 19 6e 37 6d 65 6e 75 |Length%)|..n7menu|
|00004320| 25 21 28 32 38 2b 28 69 | 74 65 6d 25 2d 31 29 2a |%!(28+(i|tem%-1)*|
|00004330| 32 34 29 3d 28 6d 65 6e | 75 25 21 28 32 38 2b 28 |24)=(men|u%!(28+(|
|00004340| 69 74 65 6d 25 2d 31 29 | 2a 32 34 29 29 84 34 0d |item%-1)|*24)).4.|
|00004350| 19 78 38 6d 65 6e 75 25 | 21 28 33 36 2b 28 69 74 |.x8menu%|!(36+(it|
|00004360| 65 6d 25 2d 31 29 2a 32 | 34 29 3d 6d 65 6e 75 25 |em%-1)*2|4)=menu%|
|00004370| 21 28 33 36 2b 28 69 74 | 65 6d 25 2d 31 29 2a 32 |!(36+(it|em%-1)*2|
|00004380| 34 29 84 26 31 30 30 0d | 19 82 23 6d 65 6e 75 25 |4).&100.|..#menu%|
|00004390| 21 28 34 30 2b 28 69 74 | 65 6d 25 2d 31 29 2a 32 |!(40+(it|em%-1)*2|
|000043a0| 34 29 3d 62 75 66 66 65 | 72 25 0d 19 8c 20 6d 65 |4)=buffe|r%... me|
|000043b0| 6e 75 25 21 28 34 34 2b | 28 69 74 65 6d 25 2d 31 |nu%!(44+|(item%-1|
|000043c0| 29 2a 32 34 29 3d 76 61 | 6c 25 0d 19 96 29 6d 65 |)*24)=va|l%...)me|
|000043d0| 6e 75 25 21 28 34 38 2b | 28 69 74 65 6d 25 2d 31 |nu%!(48+|(item%-1|
|000043e0| 29 2a 32 34 29 3d 42 75 | 66 66 65 72 4c 65 6e 67 |)*24)=Bu|fferLeng|
|000043f0| 74 68 25 0d 19 a0 05 e1 | 0d 19 aa 05 3a 0d 19 b4 |th%.....|....:...|
|00004400| 06 f4 7c 0d 19 be 06 f4 | 7c 0d 19 c8 06 f4 7c 0d |..|.....||.....|.|
|00004410| 19 d2 31 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..1.|   |        |
|00004420| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |       -|--------|
|00004430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004440| 0d 19 dc 2a f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...*.|  |        |
|00004450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004460| 34 2e a0 53 70 72 69 74 | 65 73 0d 19 e6 31 f4 7c |4..Sprit|es...1.||
|00004470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004480| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  ------|--------|
|00004490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 19 f0 06 f4 |--------|---.....|
|000044a0| 7c 0d 19 fa 06 f4 7c 0d | 1a 04 3a f4 7c 20 20 20 ||.....|.|..:.|   |
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d |        |     ---|
|000044c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000044d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000044e0| 2d 0d 1a 0e 06 f4 7c 0d | 1a 18 28 f4 7c 20 20 20 |-.....|.|..(.|   |
|000044f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004500| 20 20 20 50 72 6f 63 65 | 64 75 72 65 73 20 3a 0d |   Proce|dures :.|
|00004510| 1a 22 06 f4 7c 0d 1a 2c | 06 f4 7c 0d 1a 36 2c f4 |."..|..,|..|..6,.|
|00004520| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||       |        |
|00004530| 20 20 20 50 52 4f 43 57 | 69 6d 70 5f 53 70 72 69 |   PROCW|imp_Spri|
|00004540| 74 65 73 4c 6f 61 64 0d | 1a 40 3a f4 7c 20 20 20 |tesLoad.|.@:.|   |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |        |       P|
|00004560| 52 4f 43 57 69 6d 70 5f | 53 70 72 69 74 65 73 50 |ROCWimp_|SpritesP|
|00004570| 61 74 68 4c 6f 61 64 28 | 70 61 74 68 6e 61 6d 65 |athLoad(|pathname|
|00004580| 24 0d 1a 4a 06 f4 7c 0d | 1a 54 06 f4 7c 0d 1a 5e |$..J..|.|.T..|..^|
|00004590| 06 f4 7c 0d 1a 68 3a f4 | 7c 20 20 20 20 20 20 20 |..|..h:.||       |
|000045a0| 20 20 20 20 20 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d |        | -------|
|000045b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000045c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 1a 72 |--------|-----..r|
|000045d0| 06 f4 7c 0d 1a 7c 05 3a | 0d 1a 86 17 dd 20 f2 57 |..|..|.:|..... .W|
|000045e0| 69 6d 70 5f 53 70 72 69 | 74 65 73 4c 6f 61 64 0d |imp_Spri|tesLoad.|
|000045f0| 1a 90 2f f2 57 69 6d 70 | 5f 53 70 72 69 74 65 73 |../.Wimp|_Sprites|
|00004600| 50 61 74 68 4c 6f 61 64 | 28 22 3c 4f 62 65 79 24 |PathLoad|("<Obey$|
|00004610| 44 69 72 3e 2e 53 70 72 | 69 74 65 73 22 29 0d 1a |Dir>.Spr|ites")..|
|00004620| 9a 1c 64 69 72 65 63 74 | 5f 73 70 72 69 74 65 73 |..direct|_sprites|
|00004630| 25 3d 73 70 72 69 74 65 | 73 25 0d 1a a4 05 e1 0d |%=sprite|s%......|
|00004640| 1a ae 05 3a 0d 1a b8 26 | dd 20 f2 57 69 6d 70 5f |...:...&|. .Wimp_|
|00004650| 53 70 72 69 74 65 73 50 | 61 74 68 4c 6f 61 64 28 |SpritesP|athLoad(|
|00004660| 70 61 74 68 6e 61 6d 65 | 24 29 0d 1a c2 0a ea 53 |pathname|$).....S|
|00004670| 25 2c 54 25 0d 1a cc 2c | 53 25 3d 8e 22 3c 4f 62 |%,T%...,|S%=."<Ob|
|00004680| 65 79 24 44 69 72 3e 2e | 53 70 72 69 74 65 73 22 |ey$Dir>.|Sprites"|
|00004690| 3a 54 25 3d a2 23 53 25 | 2b 31 36 3a d9 23 53 25 |:T%=.#S%|+16:.#S%|
|000046a0| 0d 1a d6 19 de 73 70 72 | 69 74 65 73 25 54 25 2c |.....spr|ites%T%,|
|000046b0| 73 70 6e 61 6d 65 25 31 | 32 0d 1a e0 1d 21 73 70 |spname%1|2....!sp|
|000046c0| 72 69 74 65 73 25 3d 54 | 25 3a 73 70 72 69 74 65 |rites%=T|%:sprite|
|000046d0| 73 25 21 38 3d 30 0d 1a | ea 21 c8 99 22 4f 53 5f |s%!8=0..|.!.."OS_|
|000046e0| 53 70 72 69 74 65 4f 70 | 22 2c 26 31 30 39 2c 73 |SpriteOp|",&109,s|
|000046f0| 70 72 69 74 65 73 25 0d | 1a f4 2b c8 99 22 4f 53 |prites%.|..+.."OS|
|00004700| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 41 2c |_SpriteO|p",&10A,|
|00004710| 73 70 72 69 74 65 73 25 | 2c 70 61 74 68 6e 61 6d |sprites%|,pathnam|
|00004720| 65 24 0d 1a fe 05 e1 0d | 1b 08 05 3a 0d 1b 12 06 |e$......|...:....|
|00004730| f4 7c 0d 1b 1c 06 f4 7c | 0d 1b 26 06 f4 7c 0d 1b |.|.....||..&..|..|
|00004740| 30 31 f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |01.|    |        |
|00004750| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |      --|--------|
|00004760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00004770| 1b 3a 28 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.:(.|   |        |
|00004780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 35 |        |       5|
|00004790| 2e a0 46 69 6c 65 73 0d | 1b 44 31 f4 7c 20 20 20 |..Files.|.D1.|   |
|000047a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d |        |       -|
|000047b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000047c0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 1b 4e 06 f4 7c 0d 1b |--------|..N..|..|
|000047d0| 58 06 f4 7c 0d 1b 62 35 | f4 7c 20 20 20 20 20 20 |X..|..b5|.|      |
|000047e0| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 2d 2d |        |  ------|
|000047f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 1b 6c 06 f4 7c 0d |--------|-..l..|.|
|00004810| 1b 76 28 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.v(.|   |        |
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 50 72 6f 63 65 |        |   Proce|
|00004830| 64 75 72 65 73 20 3a 0d | 1b 80 06 f4 7c 0d 1b 8a |dures :.|....|...|
|00004840| 06 f4 7c 0d 1b 94 2e f4 | 7c 20 20 20 20 20 20 20 |..|.....||       |
|00004850| 20 20 20 20 20 20 20 20 | 20 20 20 46 4e 57 69 6d |        |   FNWim|
|00004860| 70 5f 46 69 6c 65 54 79 | 70 65 28 74 79 70 65 25 |p_FileTy|pe(type%|
|00004870| 29 0d 1b 9e 2e f4 7c 20 | 20 20 20 20 20 20 20 20 |).....| |        |
|00004880| 20 20 20 20 20 20 20 20 | 20 46 4e 57 69 6d 70 5f |        | FNWimp_|
|00004890| 47 65 74 46 69 6c 65 50 | 61 74 68 4e 61 6d 65 0d |GetFileP|athName.|
|000048a0| 1b a8 32 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..2.|   |        |
|000048b0| 20 20 20 20 20 20 20 46 | 4e 57 69 6d 70 5f 46 69 |       F|NWimp_Fi|
|000048c0| 6c 65 4c 6f 61 64 28 70 | 61 74 68 6e 61 6d 65 24 |leLoad(p|athname$|
|000048d0| 29 0d 1b b2 39 f4 7c 20 | 20 20 20 20 20 20 20 20 |)...9.| |        |
|000048e0| 20 20 20 20 20 20 20 20 | 20 46 4e 57 69 6d 70 5f |        | FNWimp_|
|000048f0| 47 65 74 53 74 72 69 6e | 67 41 74 41 64 64 72 65 |GetStrin|gAtAddre|
|00004900| 73 73 28 61 72 72 61 79 | 25 29 0d 1b bc 36 f4 7c |ss(array|%)...6.||
|00004910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004920| 20 20 46 4e 57 69 6d 70 | 5f 47 65 74 46 69 6c 65 |  FNWimp|_GetFile|
|00004930| 46 72 6f 6d 50 61 74 68 | 6e 61 6d 65 28 66 24 29 |FromPath|name(f$)|
|00004940| 0d 1b c6 32 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...2.|  |        |
|00004950| 20 20 20 20 20 20 20 20 | 50 52 4f 43 57 69 6d 70 |        |PROCWimp|
|00004960| 5f 53 65 6e 64 54 6f 45 | 64 69 74 28 66 69 6c 65 |_SendToE|dit(file|
|00004970| 24 29 0d 1b d0 06 f4 7c | 0d 1b da 35 f4 7c 20 20 |$).....||...5.|  |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d |        |      --|
|00004990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 1b e4 |--------|-----...|
|000049b0| 06 f4 7c 0d 1b ee 06 f4 | 7c 0d 1b f8 06 f4 7c 0d |..|.....||.....|.|
|000049c0| 1c 02 05 3a 0d 1c 0c 1b | dd 20 a4 57 69 6d 70 5f |...:....|. .Wimp_|
|000049d0| 46 69 6c 65 54 79 70 65 | 28 74 79 70 65 25 29 0d |FileType|(type%).|
|000049e0| 1c 16 0c c8 8e 74 79 70 | 65 25 ca 0d 1c 20 11 c9 |.....typ|e%... ..|
|000049f0| 26 46 46 46 3a 3d 22 54 | 65 78 74 22 0d 1c 2a 11 |&FFF:="T|ext"..*.|
|00004a00| c9 26 46 46 44 3a 3d 22 | 44 61 74 61 22 0d 1c 34 |.&FFD:="|Data"..4|
|00004a10| 12 c9 26 46 46 42 3a 3d | 22 42 61 73 69 63 22 0d |..&FFB:=|"Basic".|
|00004a20| 1c 3e 13 c9 26 46 46 39 | 3a 3d 22 53 70 72 69 74 |.>..&FF9|:="Sprit|
|00004a30| 65 22 0d 1c 48 14 c9 26 | 46 45 44 3a 3d 22 50 61 |e"..H..&|FED:="Pa|
|00004a40| 6c 65 74 74 65 22 0d 1c | 52 15 c9 26 46 45 43 3a |lette"..|R..&FEC:|
|00004a50| 3d 22 54 65 6d 70 6c 61 | 74 65 22 0d 1c 5c 11 c9 |="Templa|te"..\..|
|00004a60| 26 41 46 46 3a 3d 22 44 | 72 61 77 22 0d 1c 66 14 |&AFF:="D|raw"..f.|
|00004a70| c9 26 31 30 30 30 3a 3d | 22 46 6f 6c 64 65 72 22 |.&1000:=|"Folder"|
|00004a80| 0d 1c 70 19 c9 26 32 30 | 30 30 3a 3d 22 41 70 70 |..p..&20|00:="App|
|00004a90| 6c 69 63 61 74 69 6f 6e | 22 0d 1c 7a 0f 7f 3d c3 |lication|"..z..=.|
|00004aa0| 7e 28 74 79 70 65 25 29 | 0d 1c 84 05 cb 0d 1c 8e |~(type%)|........|
|00004ab0| 05 3a 0d 1c 98 1b dd 20 | a4 57 69 6d 70 5f 47 65 |.:..... |.Wimp_Ge|
|00004ac0| 74 46 69 6c 65 50 61 74 | 68 4e 61 6d 65 0d 1c a2 |tFilePat|hName...|
|00004ad0| 27 3d a4 57 69 6d 70 5f | 47 65 74 53 74 72 69 6e |'=.Wimp_|GetStrin|
|00004ae0| 67 41 74 41 64 64 72 65 | 73 73 28 77 69 6d 70 25 |gAtAddre|ss(wimp%|
|00004af0| 2b 34 34 29 0d 1c ac 05 | 3a 0d 1c b6 1f dd 20 a4 |+44)....|:..... .|
|00004b00| 57 69 6d 70 5f 46 69 6c | 65 4c 6f 61 64 28 70 61 |Wimp_Fil|eLoad(pa|
|00004b10| 74 68 6e 61 6d 65 24 29 | 0d 1c c0 10 ea 53 25 2c |thname$)|.....S%,|
|00004b20| 54 25 2c 66 69 6c 65 25 | 0d 1c ca 11 53 25 3d 8e |T%,file%|....S%=.|
|00004b30| 70 61 74 68 6e 61 6d 65 | 24 0d 1c d4 0e 54 25 3d |pathname|$....T%=|
|00004b40| a2 23 53 25 2b 31 36 0d | 1c de 08 d9 23 53 25 0d |.#S%+16.|....#S%.|
|00004b50| 1c e8 0c de 66 69 6c 65 | 25 54 25 0d 1c f2 22 ff |....file|%T%...".|
|00004b60| 28 22 4c 4f 41 44 22 2b | 70 61 74 68 6e 61 6d 65 |("LOAD"+|pathname|
|00004b70| 24 2b 22 22 2b c3 7e 66 | 69 6c 65 25 29 0d 1c fc |$+""+.~f|ile%)...|
|00004b80| 0a 3d 66 69 6c 65 25 0d | 1d 06 05 3a 0d 1d 10 26 |.=file%.|...:...&|
|00004b90| dd 20 a4 57 69 6d 70 5f | 47 65 74 53 74 72 69 6e |. .Wimp_|GetStrin|
|00004ba0| 67 41 74 41 64 64 72 65 | 73 73 28 61 72 72 61 79 |gAtAddre|ss(array|
|00004bb0| 25 29 0d 1d 1a 0d ea 73 | 24 3a 73 24 3d 22 22 0d |%).....s|$:s$="".|
|00004bc0| 1d 24 3c c8 95 28 3f 61 | 72 72 61 79 25 3c 3e 31 |.$<..(?a|rray%<>1|
|00004bd0| 33 29 80 28 3f 61 72 72 | 61 79 25 3c 3e 30 29 3a |3).(?arr|ay%<>0):|
|00004be0| 73 24 2b 3d bd 28 3f 61 | 72 72 61 79 25 29 3a 61 |s$+=.(?a|rray%):a|
|00004bf0| 72 72 61 79 25 2b 3d 31 | 3a ce 3a 0d 1d 2e 07 3d |rray%+=1|:.:....=|
|00004c00| 73 24 0d 1d 38 05 3a 0d | 1d 42 23 dd 20 a4 57 69 |s$..8.:.|.B#. .Wi|
|00004c10| 6d 70 5f 47 65 74 46 69 | 6c 65 46 72 6f 6d 50 61 |mp_GetFi|leFromPa|
|00004c20| 74 68 6e 61 6d 65 28 66 | 24 29 0d 1d 4c 11 c8 8e |thname(f|$)..L...|
|00004c30| 20 a7 66 24 2c 22 2e 22 | 29 20 ca 0d 1d 56 0f c9 | .f$,"."|) ...V..|
|00004c40| 20 30 20 20 20 20 3a 3d | 66 24 0d 1d 60 36 7f 20 | 0    :=|f$..`6. |
|00004c50| 3a 3d a4 57 69 6d 70 5f | 47 65 74 46 69 6c 65 46 |:=.Wimp_|GetFileF|
|00004c60| 72 6f 6d 50 61 74 68 6e | 61 6d 65 28 c2 66 24 2c |romPathn|ame(.f$,|
|00004c70| a9 28 66 24 29 2d a7 66 | 24 2c 22 2e 22 29 29 29 |.(f$)-.f|$,".")))|
|00004c80| 0d 1d 6a 05 cb 0d 1d 74 | 05 3a 0d 1d 7e 1d dd 20 |..j....t|.:..~.. |
|00004c90| f2 57 69 6d 70 5f 53 65 | 6e 64 54 6f 45 64 69 74 |.Wimp_Se|ndToEdit|
|00004ca0| 28 66 69 6c 65 24 29 0d | 1d 88 08 ea 20 6e 25 0d |(file$).|.... n%.|
|00004cb0| 1d 92 15 77 69 6d 70 25 | 21 34 3d 26 36 43 43 30 |...wimp%|!4=&6CC0|
|00004cc0| 31 43 30 43 0d 1d 9c 0e | 77 69 6d 70 25 21 31 36 |1C0C....|wimp%!16|
|00004cd0| 3d 35 0d 1d a6 0e 77 69 | 6d 70 25 21 33 36 3d 30 |=5....wi|mp%!36=0|
|00004ce0| 0d 1d b0 11 77 69 6d 70 | 25 21 34 30 3d 26 46 46 |....wimp|%!40=&FF|
|00004cf0| 46 0d 1d ba 18 24 28 77 | 69 6d 70 25 2b 34 34 29 |F....$(w|imp%+44)|
|00004d00| 3d 66 69 6c 65 24 2b bd | 30 0d 1d c4 10 6e 25 3d |=file$+.|0....n%=|
|00004d10| a9 66 69 6c 65 24 2b 34 | 35 0d 1d ce 2c e7 20 6e |.file$+4|5...,. n|
|00004d20| 25 83 34 20 8c 20 21 77 | 69 6d 70 25 3d 34 2b 28 |%.4 . !w|imp%=4+(|
|00004d30| 6e 25 3e 3e 32 29 3c 3c | 32 20 8b 20 21 77 69 6d |n%>>2)<<|2 . !wim|
|00004d40| 70 25 3d 6e 25 0d 1d d8 | 24 c8 99 20 22 57 69 6d |p%=n%...|$.. "Wim|
|00004d50| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00004d60| 37 2c 77 69 6d 70 25 2c | 30 0d 1d e2 05 e1 0d 1d |7,wimp%,|0.......|
|00004d70| ec 05 3a 0d 1d f6 06 f4 | 7c 0d 1e 00 06 f4 7c 0d |..:.....||.....|.|
|00004d80| 1e 0a 06 f4 7c 0d 1e 14 | 31 f4 7c 20 20 20 20 20 |....|...|1.|     |
|00004d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d |        |     ---|
|00004da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004db0| 2d 2d 2d 2d 2d 2d 0d 1e | 1e 2c f4 7c 20 20 20 20 |------..|.,.|    |
|00004dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004dd0| 20 20 35 2e a0 4d 69 73 | 63 65 6c 6c 61 6e 65 6f |  5..Mis|cellaneo|
|00004de0| 75 73 0d 1e 28 31 f4 7c | 20 20 20 20 20 20 20 20 |us..(1.||        |
|00004df0| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 2d 2d 2d 2d |        |  ------|
|00004e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e10| 2d 2d 2d 0d 1e 32 06 f4 | 7c 0d 1e 3c 06 f4 7c 0d |---..2..||..<..|.|
|00004e20| 1e 46 35 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.F5.|   |        |
|00004e30| 20 20 20 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |     ---|--------|
|00004e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e50| 2d 2d 2d 2d 0d 1e 50 06 | f4 7c 0d 1e 5a 28 f4 7c |----..P.|.|..Z(.||
|00004e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e70| 20 20 20 20 20 20 50 72 | 6f 63 65 64 75 72 65 73 |      Pr|ocedures|
|00004e80| 20 3a 0d 1e 64 06 f4 7c | 0d 1e 6e 06 f4 7c 0d 1e | :..d..||..n..|..|
|00004e90| 78 31 f4 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |x1.|    |        |
|00004ea0| 20 20 20 20 20 20 50 52 | 4f 43 57 69 6d 70 5f 53 |      PR|OCWimp_S|
|00004eb0| 74 61 72 74 28 54 61 73 | 6b 4e 61 6d 65 24 29 0d |tart(Tas|kName$).|
|00004ec0| 1e 82 2e f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |....|   |        |
|00004ed0| 20 20 20 20 20 20 20 46 | 4e 57 69 6d 70 5f 42 41 |       F|NWimp_BA|
|00004ee0| 53 49 43 50 61 72 61 6d | 65 74 65 72 73 0d 1e 8c |SICParam|eters...|
|00004ef0| 32 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2.|     |        |
|00004f00| 20 20 20 20 20 50 52 4f | 43 57 69 6d 70 5f 53 65 |     PRO|CWimp_Se|
|00004f10| 74 45 76 65 6e 74 56 61 | 72 69 61 62 6c 65 73 0d |tEventVa|riables.|
|00004f20| 1e 96 37 f4 7c 20 20 20 | 20 20 20 20 20 20 20 20 |..7.|   |        |
|00004f30| 20 20 20 20 20 20 20 50 | 52 4f 43 57 69 6d 70 5f |       P|ROCWimp_|
|00004f40| 45 72 72 6f 72 28 74 61 | 73 6b 25 2c 54 61 73 6b |Error(ta|sk%,Task|
|00004f50| 4e 61 6d 65 24 29 0d 1e | a0 2a f4 7c 20 20 20 20 |Name$)..|.*.|    |
|00004f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 |        |      PR|
|00004f70| 4f 43 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e |OCWimp_C|loseDown|
|00004f80| 0d 1e aa 25 f4 7c 20 20 | 20 20 20 20 20 20 20 20 |...%.|  |        |
|00004f90| 20 20 20 20 20 20 20 20 | 50 52 4f 43 57 69 6d 70 |        |PROCWimp|
|00004fa0| 5f 51 75 69 74 0d 1e b4 | 36 f4 7c 20 20 20 20 20 |_Quit...|6.|     |
|00004fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 4e 57 |        |     FNW|
|00004fc0| 69 6d 70 5f 52 65 61 64 | 56 61 72 69 61 62 6c 65 |imp_Read|Variable|
|00004fd0| 28 56 61 72 69 61 62 6c | 65 24 29 0d 1e be 06 f4 |(Variabl|e$).....|
|00004fe0| 7c 0d 1e c8 06 f4 7c 0d | 1e d2 35 f4 7c 20 20 20 ||.....|.|..5.|   |
|00004ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 2d |        |     ---|
|00005000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 1e dc 06 |--------|----....|
|00005020| f4 7c 0d 1e e6 05 3a 0d | 1e f0 2f dd 20 f2 57 69 |.|....:.|../. .Wi|
|00005030| 6d 70 5f 53 74 61 72 74 | 28 54 61 73 6b 4e 61 6d |mp_Start|(TaskNam|
|00005040| 65 24 2c 77 69 6d 70 5f | 6d 65 6d 6f 72 79 25 2c |e$,wimp_|memory%,|
|00005050| 69 63 6f 6e 25 29 0d 1e | fa 25 de 20 77 69 6d 70 |icon%)..|.%. wimp|
|00005060| 25 20 77 69 6d 70 5f 6d | 65 6d 6f 72 79 25 2c 69 |% wimp_m|emory%,i|
|00005070| 63 6f 6e 73 25 20 69 63 | 6f 6e 25 0d 1f 04 29 e7 |cons% ic|on%...).|
|00005080| 20 77 69 6d 70 5f 6d 65 | 6d 6f 72 79 25 3c 32 35 | wimp_me|mory%<25|
|00005090| 36 20 8c 20 77 69 6d 70 | 5f 6d 65 6d 6f 72 79 25 |6 . wimp|_memory%|
|000050a0| 3d 32 35 36 0d 1f 0e 1d | 69 63 6f 6e 5f 6d 65 6d |=256....|icon_mem|
|000050b0| 6f 72 79 25 3d 69 63 6f | 6e 73 25 2b 69 63 6f 6e |ory%=ico|ns%+icon|
|000050c0| 25 0d 1f 18 13 74 61 73 | 6b 24 3d 54 61 73 6b 4e |%....tas|k$=TaskN|
|000050d0| 61 6d 65 24 0d 1f 22 2b | 69 6e 64 69 72 65 63 74 |ame$.."+|indirect|
|000050e0| 5f 73 70 72 69 74 65 73 | 25 3d 31 20 3a 20 64 69 |_sprites|%=1 : di|
|000050f0| 72 65 63 74 5f 73 70 72 | 69 74 65 73 25 3d 31 0d |rect_spr|ites%=1.|
|00005100| 1f 2c 1b f2 57 69 6d 70 | 5f 53 65 74 45 76 65 6e |.,..Wimp|_SetEven|
|00005110| 74 56 61 72 69 61 62 6c | 65 73 0d 1f 36 15 ee 20 |tVariabl|es..6.. |
|00005120| 85 20 f2 57 69 6d 70 5f | 45 72 72 6f 72 3a e0 0d |. .Wimp_|Error:..|
|00005130| 1f 40 40 c8 99 22 57 69 | 6d 70 5f 49 6e 69 74 69 |.@@.."Wi|mp_Initi|
|00005140| 61 6c 69 73 65 22 2c 32 | 30 30 2c 26 34 42 35 33 |alise",2|00,&4B53|
|00005150| 34 31 35 34 2c 54 61 73 | 6b 4e 61 6d 65 24 20 b8 |4154,Tas|kName$ .|
|00005160| 20 76 65 72 73 69 6f 6e | 25 2c 74 61 73 6b 25 0d | version|%,task%.|
|00005170| 1f 4a 05 e1 0d 1f 54 05 | 3a 0d 1f 5e 1b dd 20 a4 |.J....T.|:..^.. .|
|00005180| 57 69 6d 70 5f 42 41 53 | 49 43 50 61 72 61 6d 65 |Wimp_BAS|ICParame|
|00005190| 74 65 72 73 0d 1f 68 14 | ea 20 63 6f 6d 24 2c 70 |ters..h.|. com$,p|
|000051a0| 61 72 61 6d 24 2c 49 25 | 0d 1f 72 19 c8 99 20 22 |aram$,I%|..r... "|
|000051b0| 4f 53 5f 47 65 74 45 6e | 76 22 20 b8 20 63 6f 6d |OS_GetEn|v" . com|
|000051c0| 24 0d 1f 7c 0e 70 61 72 | 61 6d 73 24 3d 22 22 0d |$..|.par|ams$="".|
|000051d0| 1f 86 17 49 25 3d a7 63 | 6f 6d 24 2c 22 20 2d 71 |...I%=.c|om$," -q|
|000051e0| 75 69 74 20 22 29 0d 1f | 90 34 e7 20 49 25 20 8c |uit ")..|.4. I% .|
|000051f0| 20 70 61 72 61 6d 73 24 | 3d c1 63 6f 6d 24 2c a7 | params$|=.com$,.|
|00005200| 63 6f 6d 24 2c 22 20 22 | 2c 49 25 2b a9 22 20 2d |com$," "|,I%+." -|
|00005210| 71 75 69 74 20 22 29 2b | 31 29 0d 1f 9a 0c 3d 70 |quit ")+|1)....=p|
|00005220| 61 72 61 6d 73 24 0d 1f | a4 05 3a 0d 1f ae 1d dd |arams$..|..:.....|
|00005230| 20 f2 57 69 6d 70 5f 53 | 65 74 45 76 65 6e 74 56 | .Wimp_S|etEventV|
|00005240| 61 72 69 61 62 6c 65 73 | 0d 1f b8 17 de 20 70 6f |ariables|..... po|
|00005250| 69 6e 74 65 72 5f 62 6c | 6f 63 6b 25 20 32 30 0d |inter_bl|ock% 20.|
|00005260| 1f c2 10 69 6e 74 65 72 | 66 61 63 65 25 3d a3 0d |...inter|face%=..|
|00005270| 1f cc 2e 6e 75 6c 6c 25 | 3d 31 20 20 3a 64 72 61 |...null%|=1  :dra|
|00005280| 77 25 3d 32 20 3a 20 20 | 70 6f 69 6e 74 65 72 5f |w%=2 :  |pointer_|
|00005290| 6c 65 61 76 69 6e 67 25 | 3d 31 3c 3c 34 0d 1f d6 |leaving%|=1<<4...|
|000052a0| 31 70 6f 69 6e 74 65 72 | 5f 65 6e 74 65 72 69 6e |1pointer|_enterin|
|000052b0| 67 25 3d 31 3c 3c 35 3a | 6d 6f 75 73 65 25 3d 31 |g%=1<<5:|mouse%=1|
|000052c0| 3c 3c 36 3a 64 72 61 67 | 25 3d 31 3c 3c 37 0d 1f |<<6:drag|%=1<<7..|
|000052d0| e0 26 6b 65 79 25 3d 31 | 3c 3c 38 3a 6d 65 6e 75 |.&key%=1|<<8:menu|
|000052e0| 25 3d 31 3c 3c 39 3a 73 | 63 72 6f 6c 6c 25 3d 31 |%=1<<9:s|croll%=1|
|000052f0| 3c 3c 31 30 0d 1f ea 40 | 6c 6f 73 65 5f 63 61 72 |<<10...@|lose_car|
|00005300| 65 74 25 3d 31 3c 3c 31 | 31 3a 67 61 69 6e 5f 63 |et%=1<<1|1:gain_c|
|00005310| 61 72 65 74 25 3d 31 3c | 3c 31 32 3a 6d 65 73 73 |aret%=1<|<12:mess|
|00005320| 61 67 65 25 3d 28 31 3c | 3c 31 37 29 2b 28 31 3c |age%=(1<|<17)+(1<|
|00005330| 3c 31 38 29 0d 1f f4 30 | 72 65 63 6f 72 64 65 72 |<18)...0|recorder|
|00005340| 25 3d 31 3c 3c 31 38 3a | 61 63 6b 6e 6f 77 6c 65 |%=1<<18:|acknowle|
|00005350| 64 67 65 25 3d 31 3c 3c | 31 39 3a 77 69 6e 64 6f |dge%=1<<|19:windo|
|00005360| 77 25 3d 30 0d 1f fe 21 | 73 70 72 69 74 65 73 25 |w%=0...!|sprites%|
|00005370| 3d 31 3a 76 65 72 73 69 | 6f 6e 25 3d 30 3a 74 61 |=1:versi|on%=0:ta|
|00005380| 73 6b 25 3d 30 0d 20 08 | 2a 42 61 72 5f 57 69 6e |sk%=0. .|*Bar_Win|
|00005390| 64 6f 77 25 3d 2d 32 3a | 42 61 72 5f 49 63 6f 6e |dow%=-2:|Bar_Icon|
|000053a0| 25 3d 30 3a 42 61 72 5f | 4d 65 6e 75 25 3d 30 0d |%=0:Bar_|Menu%=0.|
|000053b0| 20 12 2a 78 5f 6f 72 69 | 67 69 6e 25 3d 30 3a 79 | .*x_ori|gin%=0:y|
|000053c0| 5f 6f 72 69 67 69 6e 25 | 3d 30 3a 53 61 76 65 57 |_origin%|=0:SaveW|
|000053d0| 69 6e 64 6f 77 25 3d 2d | 33 0d 20 1c 33 6d 65 73 |indow%=-|3. .3mes|
|000053e0| 73 61 67 65 5f 71 75 69 | 74 25 3d 30 3a 6d 65 73 |sage_qui|t%=0:mes|
|000053f0| 73 61 67 65 5f 73 61 76 | 65 25 3d 32 3a 6d 65 73 |sage_sav|e%=2:mes|
|00005400| 73 61 67 65 5f 6c 6f 61 | 64 25 3d 33 0d 20 26 21 |sage_loa|d%=3. &!|
|00005410| 6d 6f 75 73 65 5f 62 75 | 74 74 6f 6e 25 3d 32 3a |mouse_bu|tton%=2:|
|00005420| 73 61 76 65 5f 65 76 65 | 6e 74 25 3d 30 0d 20 30 |save_eve|nt%=0. 0|
|00005430| 20 74 6f 70 5f 6c 69 6e | 65 25 3d 30 20 3a 20 62 | top_lin|e%=0 : b|
|00005440| 6f 74 74 6f 6d 5f 6c 69 | 6e 65 25 3d 30 0d 20 3a |ottom_li|ne%=0. :|
|00005450| 05 e1 0d 20 44 05 3a 0d | 20 4e 11 dd 20 f2 57 69 |... D.:.| N.. .Wi|
|00005460| 6d 70 5f 45 72 72 6f 72 | 0d 20 58 0a ea 58 24 2c |mp_Error|. X..X$,|
|00005470| 78 25 0d 20 62 09 ee 20 | 85 20 87 0d 20 6c 08 78 |x%. b.. |. .. l.x|
|00005480| 25 3d 9e 0d 20 76 1b 58 | 24 3d f6 24 2b 22 61 74 |%=.. v.X|$=.$+"at|
|00005490| 6c 69 6e 65 22 2b c3 28 | 78 25 81 31 30 29 0d 20 |line"+.(|x%.10). |
|000054a0| 80 10 de 45 72 72 6f 72 | 4d 73 67 25 33 36 0d 20 |...Error|Msg%36. |
|000054b0| 8a 45 45 72 72 6f 72 4d | 73 67 25 21 30 3d 33 36 |.EErrorM|sg%!0=36|
|000054c0| 3a 45 72 72 6f 72 4d 73 | 67 25 21 31 32 3d 30 3a |:ErrorMs|g%!12=0:|
|000054d0| 45 72 72 6f 72 4d 73 67 | 25 21 31 36 3d 26 38 31 |ErrorMsg|%!16=&81|
|000054e0| 30 38 30 3a 45 72 72 6f | 72 4d 73 67 25 21 32 30 |080:Erro|rMsg%!20|
|000054f0| 3d 78 25 0d 20 94 1f 24 | 28 45 72 72 6f 72 4d 73 |=x%. ..$|(ErrorMs|
|00005500| 67 25 2b 32 34 29 3d 22 | 21 52 75 6e 49 6d 61 67 |g%+24)="|!RunImag|
|00005510| 65 22 0d 20 9e 25 c8 99 | 22 57 69 6d 70 5f 53 65 |e". .%..|"Wimp_Se|
|00005520| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 45 72 |ndMessag|e",17,Er|
|00005530| 72 6f 72 4d 73 67 25 0d | 20 a8 1f f2 57 69 6d 70 |rorMsg%.| ...Wimp|
|00005540| 5f 57 69 6e 64 6f 77 41 | 6c 65 72 74 28 74 61 73 |_WindowA|lert(tas|
|00005550| 6b 24 2c 58 24 29 0d 20 | b2 13 f2 57 69 6d 70 5f |k$,X$). |...Wimp_|
|00005560| 43 6c 6f 73 65 44 6f 77 | 6e 0d 20 bc 05 e1 0d 20 |CloseDow|n. .... |
|00005570| c6 05 3a 0d 20 d0 15 dd | 20 f2 57 69 6d 70 5f 43 |..:. ...| .Wimp_C|
|00005580| 6c 6f 73 65 44 6f 77 6e | 0d 20 da 23 c8 99 22 57 |loseDown|. .#.."W|
|00005590| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 2c 74 |imp_Clos|eDown",t|
|000055a0| 61 73 6b 25 2c 22 54 41 | 53 4b 22 0d 20 e4 05 e1 |ask%,"TA|SK". ...|
|000055b0| 0d 20 ee 05 3a 0d 20 f8 | 10 dd 20 f2 57 69 6d 70 |. ..:. .|.. .Wimp|
|000055c0| 5f 51 75 69 74 0d 21 02 | 0f 66 69 6e 69 73 68 65 |_Quit.!.|.finishe|
|000055d0| 64 25 3d b9 0d 21 0c 05 | e1 0d 21 16 05 3a 0d 21 |d%=..!..|..!..:.!|
|000055e0| 20 23 dd 20 a4 57 69 6d | 70 5f 52 65 61 64 56 61 | #. .Wim|p_ReadVa|
|000055f0| 72 69 61 62 6c 65 28 56 | 61 72 69 61 62 6c 65 24 |riable(V|ariable$|
|00005600| 29 0d 21 2a 1b ea 6c 65 | 6e 25 2c 72 65 73 75 6c |).!*..le|n%,resul|
|00005610| 74 25 2c 76 61 72 69 61 | 62 6c 65 25 0d 21 34 14 |t%,varia|ble%.!4.|
|00005620| 24 77 69 6d 70 25 3d 56 | 61 72 69 61 62 6c 65 24 |$wimp%=V|ariable$|
|00005630| 0d 21 3e 33 c8 99 22 4f | 53 5f 52 65 61 64 56 61 |.!>3.."O|S_ReadVa|
|00005640| 72 56 61 6c 22 2c 77 69 | 6d 70 25 2c 77 69 6d 70 |rVal",wi|mp%,wimp|
|00005650| 25 2b 32 35 35 2c 32 35 | 35 2c 2c 33 b8 2c 2c 6c |%+255,25|5,,3.,,l|
|00005660| 65 6e 25 0d 21 48 17 77 | 69 6d 70 25 3f 28 6c 65 |en%.!H.w|imp%?(le|
|00005670| 6e 25 2b 32 35 35 29 3d | 31 33 0d 21 52 11 3d 24 |n%+255)=|13.!R.=$|
|00005680| 28 77 69 6d 70 25 2b 32 | 35 35 29 0d 21 5c 05 3a |(wimp%+2|55).!\.:|
|00005690| 0d 21 66 05 3a 0d 21 70 | 06 f4 7c 0d 21 7a 06 f4 |.!f.:.!p|..|.!z..|
|000056a0| 7c 0d 21 84 06 f4 7c 0d | 21 8e 06 f4 7c 0d 21 98 ||.!...|.|!...|.!.|
|000056b0| 29 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).|     |        |
|000056c0| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |      --|--------|
|000056d0| 2d 2d 2d 2d 2d 2d 0d 21 | a2 27 f4 7c 20 20 20 20 |------.!|.'.|    |
|000056e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000056f0| 20 57 69 6d 70 20 50 6f | 6c 6c 69 6e 67 0d 21 ac | Wimp Po|lling.!.|
|00005700| 29 f4 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).|     |        |
|00005710| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |      --|--------|
|00005720| 2d 2d 2d 2d 2d 2d 0d 21 | b6 06 f4 7c 0d 21 c0 06 |------.!|...|.!..|
|00005730| f4 7c 0d 21 ca 05 3a 0d | 21 d4 18 dd 20 f2 57 69 |.|.!..:.|!... .Wi|
|00005740| 6d 70 5f 57 61 69 74 46 | 6f 72 45 76 65 6e 74 0d |mp_WaitF|orEvent.|
|00005750| 21 de 12 ea 20 6d 61 73 | 6b 25 2c 65 76 65 6e 74 |!... mas|k%,event|
|00005760| 25 0d 21 e8 0f 66 69 6e | 69 73 68 65 64 25 3d a3 |%.!..fin|ished%=.|
|00005770| 0d 21 f2 17 6d 61 73 6b | 25 3d 25 31 31 31 30 30 |.!..mask|%=%11100|
|00005780| 30 30 31 31 30 30 31 0d | 21 fc 05 f5 0d 22 06 26 |0011001.|!....".&|
|00005790| c8 99 22 57 69 6d 70 5f | 50 6f 6c 6c 22 2c 6d 61 |.."Wimp_|Poll",ma|
|000057a0| 73 6b 25 2c 77 69 6d 70 | 25 20 b8 20 65 76 65 6e |sk%,wimp|% . even|
|000057b0| 74 25 0d 22 10 0f c8 8e | 20 65 76 65 6e 74 25 20 |t%."....| event% |
|000057c0| ca 0d 22 1a 08 c9 30 20 | 3a 0d 22 24 1d c9 31 20 |.."...0 |:."$..1 |
|000057d0| 3a 20 f2 57 69 6d 70 5f | 50 6f 6c 6c 44 72 61 77 |: .Wimp_|PollDraw|
|000057e0| 57 69 6e 64 6f 77 0d 22 | 2e 24 c9 32 20 3a 20 c8 |Window."|.$.2 : .|
|000057f0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00005800| 6f 77 22 2c 2c 77 69 6d | 70 25 0d 22 38 1e c9 33 |ow",,wim|p%."8..3|
|00005810| 20 3a 20 f2 57 69 6d 70 | 5f 50 6f 6c 6c 43 6c 6f | : .Wimp|_PollClo|
|00005820| 73 65 57 69 6e 64 6f 77 | 0d 22 42 08 c9 34 20 3a |seWindow|."B..4 :|
|00005830| 0d 22 4c 08 c9 35 20 3a | 0d 22 56 1d c9 36 20 3a |."L..5 :|."V..6 :|
|00005840| 20 f2 57 69 6d 70 5f 50 | 6f 6c 6c 4d 6f 75 73 65 | .Wimp_P|ollMouse|
|00005850| 43 6c 69 63 6b 0d 22 60 | 1e c9 37 20 3a 20 f2 57 |Click."`|..7 : .W|
|00005860| 69 6d 70 5f 50 6f 6c 6c | 53 61 76 65 4d 65 73 73 |imp_Poll|SaveMess|
|00005870| 61 67 65 0d 22 6a 1b c9 | 38 20 3a 20 f2 57 69 6d |age."j..|8 : .Wim|
|00005880| 70 5f 50 6f 6c 6c 4b 65 | 79 50 72 65 73 73 0d 22 |p_PollKe|yPress."|
|00005890| 74 21 c9 39 20 3a 20 f2 | 45 76 65 6e 74 5f 4d 65 |t!.9 : .|Event_Me|
|000058a0| 6e 75 43 68 6f 69 63 65 | 28 6d 65 6e 75 25 29 0d |nuChoice|(menu%).|
|000058b0| 22 7e 08 c9 31 30 3a 0d | 22 88 08 c9 31 31 3a 0d |"~..10:.|"...11:.|
|000058c0| 22 92 08 c9 31 32 3a 0d | 22 9c 1e c9 31 37 2c 31 |"...12:.|"...17,1|
|000058d0| 38 3a 20 f2 57 69 6d 70 | 5f 50 6f 6c 6c 4d 65 73 |8: .Wimp|_PollMes|
|000058e0| 73 61 67 65 73 0d 22 a6 | 08 c9 31 39 3a 0d 22 b0 |sages.".|..19:.".|
|000058f0| 05 cb 0d 22 ba 0f fd 20 | 66 69 6e 69 73 68 65 64 |..."... |finished|
|00005900| 25 0d 22 c4 05 e1 0d 22 | ce 05 3a 0d 22 d8 1a dd |%."...."|..:."...|
|00005910| 20 f2 57 69 6d 70 5f 50 | 6f 6c 6c 44 72 61 77 57 | .Wimp_P|ollDrawW|
|00005920| 69 6e 64 6f 77 0d 22 e2 | 0b ea 20 6d 6f 72 65 25 |indow.".|.. more%|
|00005930| 0d 22 ec 26 c8 99 22 57 | 69 6d 70 5f 52 65 64 72 |.".&.."W|imp_Redr|
|00005940| 61 77 57 69 6e 64 6f 77 | 22 2c 2c 77 69 6d 70 25 |awWindow|",,wimp%|
|00005950| b8 6d 6f 72 65 25 0d 22 | f6 13 77 69 6e 64 6f 77 |.more%."|..window|
|00005960| 25 3d 77 69 6d 70 25 21 | 30 0d 23 00 41 78 5f 6f |%=wimp%!|0.#.Ax_o|
|00005970| 72 69 67 69 6e 25 3d 31 | 36 2b 77 69 6d 70 25 21 |rigin%=1|6+wimp%!|
|00005980| 34 2d 77 69 6d 70 25 21 | 32 30 3a 79 5f 6f 72 69 |4-wimp%!|20:y_ori|
|00005990| 67 69 6e 25 3d 2d 31 36 | 2b 77 69 6d 70 25 21 31 |gin%=-16|+wimp%!1|
|000059a0| 36 2d 77 69 6d 70 25 21 | 32 34 0d 23 0a 0b c8 95 |6-wimp%!|24.#....|
|000059b0| 6d 6f 72 65 25 0d 23 14 | 2f e7 20 69 6e 74 65 72 |more%.#.|/. inter|
|000059c0| 66 61 63 65 25 20 8c 20 | c8 99 22 57 69 6d 70 5f |face% . |.."Wimp_|
|000059d0| 42 6f 72 64 65 72 57 69 | 6e 64 6f 77 22 2c 2c 77 |BorderWi|ndow",,w|
|000059e0| 69 6d 70 25 0d 23 1e 2c | f2 45 76 65 6e 74 5f 44 |imp%.#.,|.Event_D|
|000059f0| 72 61 77 28 77 69 6e 64 | 6f 77 25 2c 78 5f 6f 72 |raw(wind|ow%,x_or|
|00005a00| 69 67 69 6e 25 2c 79 5f | 6f 72 69 67 69 6e 25 29 |igin%,y_|origin%)|
|00005a10| 0d 23 28 26 c8 99 22 57 | 69 6d 70 5f 47 65 74 52 |.#(&.."W|imp_GetR|
|00005a20| 65 63 74 61 6e 67 6c 65 | 22 2c 2c 77 69 6d 70 25 |ectangle|",,wimp%|
|00005a30| b8 6d 6f 72 65 25 0d 23 | 32 05 ce 0d 23 3c 05 e1 |.more%.#|2...#<..|
|00005a40| 0d 23 46 05 3a 0d 23 50 | 1b dd 20 f2 57 69 6d 70 |.#F.:.#P|.. .Wimp|
|00005a50| 5f 50 6f 6c 6c 43 6c 6f | 73 65 57 69 6e 64 6f 77 |_PollClo|seWindow|
|00005a60| 0d 23 5a 23 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |.#Z#.. "|Wimp_Get|
|00005a70| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 77 69 |PointerI|nfo",,wi|
|00005a80| 6d 70 25 0d 23 64 27 77 | 69 6e 64 6f 77 25 3d 77 |mp%.#d'w|indow%=w|
|00005a90| 69 6d 70 25 21 31 32 20 | 3a 20 62 75 74 74 6f 6e |imp%!12 |: button|
|00005aa0| 73 25 3d 77 69 6d 70 25 | 21 38 0d 23 6e 28 f2 45 |s%=wimp%|!8.#n(.E|
|00005ab0| 76 65 6e 74 5f 57 69 6e | 64 6f 77 43 6c 6f 73 65 |vent_Win|dowClose|
|00005ac0| 28 77 69 6e 64 6f 77 25 | 2c 62 75 74 74 6f 6e 73 |(window%|,buttons|
|00005ad0| 25 29 0d 23 78 31 21 77 | 69 6d 70 25 3d 77 69 6e |%).#x1!w|imp%=win|
|00005ae0| 64 6f 77 25 20 3a 20 c8 | 99 20 22 57 69 6d 70 5f |dow% : .|. "Wimp_|
|00005af0| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 77 69 |CloseWin|dow",,wi|
|00005b00| 6d 70 25 0d 23 82 05 e1 | 0d 23 8c 05 3a 0d 23 96 |mp%.#...|.#..:.#.|
|00005b10| 1a dd 20 f2 57 69 6d 70 | 5f 50 6f 6c 6c 4d 6f 75 |.. .Wimp|_PollMou|
|00005b20| 73 65 43 6c 69 63 6b 0d | 23 a0 49 62 75 74 74 6f |seClick.|#.Ibutto|
|00005b30| 6e 25 3d 77 69 6d 70 25 | 21 38 3a 77 69 6e 64 6f |n%=wimp%|!8:windo|
|00005b40| 77 25 3d 77 69 6d 70 25 | 21 31 32 3a 69 63 6f 6e |w%=wimp%|!12:icon|
|00005b50| 25 3d 77 69 6d 70 25 21 | 31 36 3a 78 25 3d 77 69 |%=wimp%!|16:x%=wi|
|00005b60| 6d 70 25 21 30 3a 79 25 | 3d 77 69 6d 70 25 21 34 |mp%!0:y%|=wimp%!4|
|00005b70| 0d 23 aa 10 c8 8e 20 62 | 75 74 74 6f 6e 25 20 ca |.#.... b|utton% .|
|00005b80| 0d 23 b4 1f c9 32 20 20 | 20 20 3a 20 f2 57 69 6d |.#...2  |  : .Wim|
|00005b90| 70 5f 50 6f 6c 6c 4d 65 | 6e 75 50 6f 70 55 70 0d |p_PollMe|nuPopUp.|
|00005ba0| 23 be 11 7f 3a 20 c8 8e | 20 69 63 6f 6e 25 20 ca |#...: ..| icon% .|
|00005bb0| 0d 23 c8 24 c9 20 33 30 | 2c 33 31 2c 33 34 20 3a |.#.$. 30|,31,34 :|
|00005bc0| 20 f2 57 69 6d 70 5f 50 | 6f 6c 6c 4d 6f 75 73 65 | .Wimp_P|ollMouse|
|00005bd0| 53 61 76 65 0d 23 d2 20 | 7f 3a 20 f2 57 69 6d 70 |Save.#. |.: .Wimp|
|00005be0| 5f 50 6f 6c 6c 45 76 65 | 6e 74 4d 6f 75 73 65 43 |_PollEve|ntMouseC|
|00005bf0| 6c 69 63 6b 0d 23 dc 05 | cb 0d 23 e6 05 cb 0d 23 |lick.#..|..#....#|
|00005c00| f0 05 e1 0d 23 fa 05 3a | 0d 24 04 19 dd 20 f2 57 |....#..:|.$... .W|
|00005c10| 69 6d 70 5f 50 6f 6c 6c | 4d 65 6e 75 50 6f 70 55 |imp_Poll|MenuPopU|
|00005c20| 70 0d 24 0e 1e 6d 65 6e | 75 25 3d a4 45 76 65 6e |p.$..men|u%=.Even|
|00005c30| 74 5f 4d 65 6e 75 28 77 | 69 6e 64 6f 77 25 29 0d |t_Menu(w|indow%).|
|00005c40| 24 18 0f c8 8e 20 6d 65 | 6e 75 25 20 20 ca 0d 24 |$.... me|nu%  ..$|
|00005c50| 22 08 c9 20 a3 3a 0d 24 | 2c 07 7f 20 3a 0d 24 36 |".. .:.$|,.. :.$6|
|00005c60| 10 c8 8e 20 77 69 6e 64 | 6f 77 25 20 ca 0d 24 40 |... wind|ow% ..$@|
|00005c70| 11 c9 20 2d 32 20 20 20 | 3a 20 6e 25 3d 30 0d 24 |.. -2   |: n%=0.$|
|00005c80| 4a 2b c8 95 20 28 28 42 | 61 72 5f 4d 65 6e 75 25 |J+.. ((B|ar_Menu%|
|00005c90| 21 28 32 38 2b 6e 25 2a | 32 34 29 29 80 25 31 30 |!(28+n%*|24)).%10|
|00005ca0| 30 30 30 30 30 30 29 3d | 30 0d 24 54 09 6e 25 2b |000000)=|0.$T.n%+|
|00005cb0| 3d 31 0d 24 5e 05 ce 0d | 24 68 32 c8 99 20 22 57 |=1.$^...|$h2.. "W|
|00005cc0| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00005cd0| 2c 42 61 72 5f 4d 65 6e | 75 25 2c 78 25 2d 36 34 |,Bar_Men|u%,x%-64|
|00005ce0| 2c 39 36 2b 6e 25 2a 34 | 34 0d 24 72 2e 7f 20 3a |,96+n%*4|4.$r.. :|
|00005cf0| 20 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d | .."Wimp|_CreateM|
|00005d00| 65 6e 75 22 2c 2c 6d 65 | 6e 75 25 2c 78 25 2d 36 |enu",,me|nu%,x%-6|
|00005d10| 34 2c 79 25 2b 32 30 0d | 24 7c 05 cb 0d 24 86 05 |4,y%+20.|$|...$..|
|00005d20| cb 0d 24 90 05 e1 0d 24 | 9a 05 3a 0d 24 a4 19 dd |..$....$|..:.$...|
|00005d30| 20 f2 57 69 6d 70 5f 50 | 6f 6c 6c 4d 6f 75 73 65 | .Wimp_P|ollMouse|
|00005d40| 53 61 76 65 0d 24 ae 0e | c8 8e 20 69 63 6f 6e 25 |Save.$..|.. icon%|
|00005d50| 20 ca 0d 24 b8 37 c9 20 | 33 30 20 3a 20 e7 20 62 | ..$.7. |30 : . b|
|00005d60| 75 74 74 6f 6e 25 20 80 | 20 26 35 30 20 8c 20 f2 |utton% .| &50 . .|
|00005d70| 57 69 6d 70 5f 50 6f 6c | 6c 44 72 61 67 42 6f 78 |Wimp_Pol|lDragBox|
|00005d80| 28 77 69 6e 64 6f 77 25 | 29 0d 24 c2 37 c9 20 33 |(window%|).$.7. 3|
|00005d90| 31 20 3a 20 e7 20 62 75 | 74 74 6f 6e 25 20 80 20 |1 : . bu|tton% . |
|00005da0| 35 20 8c 20 20 f2 57 69 | 6d 70 5f 50 6f 6c 6c 53 |5 .  .Wi|mp_PollS|
|00005db0| 61 76 65 46 69 6c 65 28 | 77 69 6e 64 6f 77 25 29 |aveFile(|window%)|
|00005dc0| 0d 24 cc 05 cb 0d 24 d6 | 05 e1 0d 24 e0 05 3a 0d |.$....$.|...$..:.|
|00005dd0| 24 ea 1f dd 20 f2 57 69 | 6d 70 5f 50 6f 6c 6c 45 |$... .Wi|mp_PollE|
|00005de0| 76 65 6e 74 4d 6f 75 73 | 65 43 6c 69 63 6b 0d 24 |ventMous|eClick.$|
|00005df0| f4 2d e7 20 69 6e 74 65 | 72 66 61 63 65 25 20 8c |.-. inte|rface% .|
|00005e00| 20 c8 99 22 57 69 6d 70 | 5f 42 6f 72 64 65 72 49 | .."Wimp|_BorderI|
|00005e10| 63 6f 6e 22 2c 2c 77 69 | 6d 70 25 0d 24 fe 32 f2 |con",,wi|mp%.$.2.|
|00005e20| 45 76 65 6e 74 5f 4d 6f | 75 73 65 43 6c 69 63 6b |Event_Mo|useClick|
|00005e30| 28 77 69 6e 64 6f 77 25 | 2c 69 63 6f 6e 25 2c 62 |(window%|,icon%,b|
|00005e40| 75 74 74 6f 6e 25 2c 78 | 25 2c 79 25 29 0d 25 08 |utton%,x|%,y%).%.|
|00005e50| 14 c8 8e 20 20 69 6e 74 | 65 72 66 61 63 65 25 20 |...  int|erface% |
|00005e60| ca 0d 25 12 09 c9 20 b9 | 20 3a 0d 25 1c 26 77 69 |..%... .| :.%.&wi|
|00005e70| 6d 70 25 21 30 3d 78 25 | 3a 77 69 6d 70 25 21 34 |mp%!0=x%|:wimp%!4|
|00005e80| 3d 79 25 20 3a 20 77 69 | 6d 70 25 21 38 3d 30 20 |=y% : wi|mp%!8=0 |
|00005e90| 0d 25 26 25 77 69 6d 70 | 25 21 31 32 3d 77 69 6e |.%&%wimp|%!12=win|
|00005ea0| 64 6f 77 25 20 3a 20 77 | 69 6d 70 25 21 31 36 3d |dow% : w|imp%!16=|
|00005eb0| 69 63 6f 6e 25 0d 25 30 | 1e c8 99 22 57 69 6d 70 |icon%.%0|..."Wimp|
|00005ec0| 5f 42 6f 72 64 65 72 49 | 63 6f 6e 22 2c 2c 77 69 |_BorderI|con",,wi|
|00005ed0| 6d 70 25 0d 25 3a 05 cb | 0d 25 44 05 e1 0d 25 4e |mp%.%:..|.%D...%N|
|00005ee0| 05 3a 0d 25 58 21 dd 20 | f2 57 69 6d 70 5f 50 6f |.:.%X!. |.Wimp_Po|
|00005ef0| 6c 6c 53 61 76 65 46 69 | 6c 65 28 77 69 6e 64 6f |llSaveFi|le(windo|
|00005f00| 77 25 29 0d 25 62 0a ea | 66 69 6c 65 24 0d 25 6c |w%).%b..|file$.%l|
|00005f10| 40 77 69 6d 70 25 21 30 | 3d 77 69 6e 64 6f 77 25 |@wimp%!0|=window%|
|00005f20| 20 3a 20 77 69 6d 70 25 | 21 34 3d 33 31 20 3a 20 | : wimp%|!4=31 : |
|00005f30| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00005f40| 53 74 61 74 65 22 2c 2c | 77 69 6d 70 25 0d 25 76 |State",,|wimp%.%v|
|00005f50| 15 66 69 6c 65 24 3d 24 | 28 77 69 6d 70 25 21 32 |.file$=$|(wimp%!2|
|00005f60| 38 29 0d 25 80 14 c8 8e | 20 a7 66 69 6c 65 24 2c |8).%....| .file$,|
|00005f70| 22 2e 22 29 20 ca 0d 25 | 8a 0b c9 20 30 20 20 20 |".") ..%|... 0   |
|00005f80| 3a 0d 25 94 3d 24 28 77 | 69 6d 70 25 2b 34 29 3d |:.%.=$(w|imp%+4)=|
|00005f90| 22 54 6f 20 73 61 76 65 | 2c 20 64 72 61 67 20 74 |"To save|, drag t|
|00005fa0| 68 65 20 69 63 6f 6e 20 | 74 6f 20 61 20 64 69 72 |he icon |to a dir|
|00005fb0| 65 63 74 6f 72 79 20 77 | 69 6e 64 6f 77 22 0d 25 |ectory w|indow".%|
|00005fc0| 9e 28 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |.(.. "Wi|mp_Repor|
|00005fd0| 74 45 72 72 6f 72 22 2c | 77 69 6d 70 25 2c 31 36 |tError",|wimp%,16|
|00005fe0| 2c 74 61 73 6b 24 0d 25 | a8 06 7f 3a 0d 25 b2 22 |,task$.%|...:.%."|
|00005ff0| f2 45 76 65 6e 74 5f 53 | 61 76 65 46 69 6c 65 28 |.Event_S|aveFile(|
|00006000| 66 69 6c 65 24 2c 77 69 | 6e 64 6f 77 25 29 0d 25 |file$,wi|ndow%).%|
|00006010| bc 05 cb 0d 25 c6 1a c8 | 99 22 57 69 6d 70 5f 43 |....%...|."Wimp_C|
|00006020| 72 65 61 74 65 4d 65 6e | 75 22 2c 2d 31 0d 25 d0 |reateMen|u",-1.%.|
|00006030| 05 e1 0d 25 da 05 3a 0d | 25 e4 20 dd 20 f2 57 69 |...%..:.|%. . .Wi|
|00006040| 6d 70 5f 50 6f 6c 6c 44 | 72 61 67 42 6f 78 28 77 |mp_PollD|ragBox(w|
|00006050| 69 6e 64 6f 77 25 29 0d | 25 ee 0a ea 78 25 2c 79 |indow%).|%...x%,y|
|00006060| 25 0d 25 f8 11 73 61 76 | 65 25 3d 77 69 6e 64 6f |%.%..sav|e%=windo|
|00006070| 77 25 0d 26 02 12 21 77 | 69 6d 70 25 3d 77 69 6e |w%.&..!w|imp%=win|
|00006080| 64 6f 77 25 0d 26 0c 22 | c8 99 22 57 69 6d 70 5f |dow%.&."|.."Wimp_|
|00006090| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|000060a0| 2c 77 69 6d 70 25 0d 26 | 16 2c 78 25 3d 77 69 6d |,wimp%.&|.,x%=wim|
|000060b0| 70 25 21 34 2d 77 69 6d | 70 25 21 32 30 3a 79 25 |p%!4-wim|p%!20:y%|
|000060c0| 3d 77 69 6d 70 25 21 31 | 36 2d 77 69 6d 70 25 21 |=wimp%!1|6-wimp%!|
|000060d0| 32 34 0d 26 20 0e 77 69 | 6d 70 25 21 34 3d 33 30 |24.& .wi|mp%!4=30|
|000060e0| 0d 26 2a 20 c8 99 22 57 | 69 6d 70 5f 47 65 74 49 |.&* .."W|imp_GetI|
|000060f0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 77 69 6d 70 25 |conState|",,wimp%|
|00006100| 0d 26 34 12 21 77 69 6d | 70 25 3d 77 69 6e 64 6f |.&4.!wim|p%=windo|
|00006110| 77 25 0d 26 3e 0d 77 69 | 6d 70 25 21 34 3d 35 0d |w%.&>.wi|mp%!4=5.|
|00006120| 26 48 2b 77 69 6d 70 25 | 21 38 3d 78 25 2b 77 69 |&H+wimp%|!8=x%+wi|
|00006130| 6d 70 25 21 38 3a 77 69 | 6d 70 25 21 31 32 3d 79 |mp%!8:wi|mp%!12=y|
|00006140| 25 2b 77 69 6d 70 25 21 | 31 32 0d 26 52 2d 77 69 |%+wimp%!|12.&R-wi|
|00006150| 6d 70 25 21 31 36 3d 78 | 25 2b 77 69 6d 70 25 21 |mp%!16=x|%+wimp%!|
|00006160| 31 36 3a 77 69 6d 70 25 | 21 32 30 3d 79 25 2b 77 |16:wimp%|!20=y%+w|
|00006170| 69 6d 70 25 21 32 30 0d | 26 5c 19 77 69 6d 70 25 |imp%!20.|&\.wimp%|
|00006180| 21 32 34 3d 30 3a 77 69 | 6d 70 25 21 32 38 3d 30 |!24=0:wi|mp%!28=0|
|00006190| 0d 26 66 29 77 69 6d 70 | 25 21 33 32 3d 26 37 46 |.&f)wimp|%!32=&7F|
|000061a0| 46 46 46 46 46 46 3a 77 | 69 6d 70 25 21 33 36 3d |FFFFFF:w|imp%!36=|
|000061b0| 26 37 46 46 46 46 46 46 | 46 0d 26 70 1b c8 99 22 |&7FFFFFF|F.&p..."|
|000061c0| 57 69 6d 70 5f 44 72 61 | 67 42 6f 78 22 2c 2c 77 |Wimp_Dra|gBox",,w|
|000061d0| 69 6d 70 25 0d 26 7a 05 | e1 0d 26 84 05 3a 0d 26 |imp%.&z.|..&..:.&|
|000061e0| 8e 18 dd 20 f2 57 69 6d | 70 5f 50 6f 6c 6c 4b 65 |... .Wim|p_PollKe|
|000061f0| 79 50 72 65 73 73 0d 26 | 98 2f 77 69 6e 64 6f 77 |yPress.&|./window|
|00006200| 25 3d 77 69 6d 70 25 21 | 30 3a 69 63 6f 6e 25 3d |%=wimp%!|0:icon%=|
|00006210| 77 69 6d 70 25 21 34 3a | 6b 65 79 25 3d 77 69 6d |wimp%!4:|key%=wim|
|00006220| 70 25 21 32 34 0d 26 a2 | 1d c8 8e 20 a4 45 76 65 |p%!24.&.|... .Eve|
|00006230| 6e 74 5f 53 61 76 65 28 | 77 69 6e 64 6f 77 25 29 |nt_Save(|window%)|
|00006240| 20 ca 0d 26 ac 32 c9 20 | b9 20 3a 20 e7 20 69 63 | ..&.2. |. : . ic|
|00006250| 6f 6e 25 3d 33 31 20 8c | 20 f2 57 69 6d 70 5f 50 |on%=31 .| .Wimp_P|
|00006260| 6f 6c 6c 53 61 76 65 46 | 69 6c 65 28 77 69 6e 64 |ollSaveF|ile(wind|
|00006270| 6f 77 25 29 0d 26 b6 2c | c9 20 a3 3a 20 f2 45 76 |ow%).&.,|. .: .Ev|
|00006280| 65 6e 74 5f 4b 65 79 50 | 72 65 73 73 28 77 69 6e |ent_KeyP|ress(win|
|00006290| 64 6f 77 25 2c 69 63 6f | 6e 25 2c 6b 65 79 25 29 |dow%,ico|n%,key%)|
|000062a0| 0d 26 c0 05 cb 0d 26 ca | 05 e1 0d 26 d4 05 3a 0d |.&....&.|...&..:.|
|000062b0| 26 de 1b dd 20 f2 57 69 | 6d 70 5f 50 6f 6c 6c 53 |&... .Wi|mp_PollS|
|000062c0| 61 76 65 4d 65 73 73 61 | 67 65 0d 26 e8 1e ea 66 |aveMessa|ge.&...f|
|000062d0| 69 6c 65 24 2c 77 69 6e | 64 6f 77 25 2c 69 63 6f |ile$,win|dow%,ico|
|000062e0| 6e 25 2c 78 25 2c 79 25 | 0d 26 f2 10 6c 65 6e 67 |n%,x%,y%|.&..leng|
|000062f0| 74 68 25 3d 31 30 32 34 | 0d 26 fc 22 c8 99 22 57 |th%=1024|.&.".."W|
|00006300| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00006310| 66 6f 22 2c 2c 77 69 6d | 70 25 0d 27 06 39 77 69 |fo",,wim|p%.'.9wi|
|00006320| 6e 64 6f 77 25 3d 77 69 | 6d 70 25 21 31 32 3a 69 |ndow%=wi|mp%!12:i|
|00006330| 63 6f 6e 25 3d 77 69 6d | 70 25 21 31 36 3a 78 25 |con%=wim|p%!16:x%|
|00006340| 3d 77 69 6d 70 25 21 30 | 3a 79 25 3d 77 69 6d 70 |=wimp%!0|:y%=wimp|
|00006350| 25 21 34 0d 27 10 3e 77 | 69 6d 70 25 21 30 3d 73 |%!4.'.>w|imp%!0=s|
|00006360| 61 76 65 25 20 3a 20 77 | 69 6d 70 25 21 34 3d 33 |ave% : w|imp%!4=3|
|00006370| 31 20 3a 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |1 : .. "|Wimp_Get|
|00006380| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 77 69 6d 70 |IconStat|e",,wimp|
|00006390| 25 0d 27 1a 15 66 69 6c | 65 24 3d 24 28 77 69 6d |%.'..fil|e$=$(wim|
|000063a0| 70 25 21 32 38 29 0d 27 | 24 2a 66 69 6c 65 24 3d |p%!28).'|$*file$=|
|000063b0| a4 57 69 6d 70 5f 47 65 | 74 46 69 6c 65 46 72 6f |.Wimp_Ge|tFileFro|
|000063c0| 6d 50 61 74 68 6e 61 6d | 65 28 66 69 6c 65 24 29 |mPathnam|e(file$)|
|000063d0| 0d 27 2e 14 77 69 6d 70 | 25 21 32 30 3d 77 69 6e |.'..wimp|%!20=win|
|000063e0| 64 6f 77 25 0d 27 38 12 | 77 69 6d 70 25 21 32 34 |dow%.'8.|wimp%!24|
|000063f0| 3d 69 63 6f 6e 25 0d 27 | 42 1b 77 69 6d 70 25 21 |=icon%.'|B.wimp%!|
+--------+-------------------------+-------------------------+--------+--------+