home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-09-30 | 17.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 19 f4 20 3e 24 | 2e 21 4d 65 6e 75 73 2e |..... >$|.!Menus.|
|00000010| 21 52 75 6e 49 6d 61 67 | 65 0d 00 14 05 f4 0d 00 |!RunImag|e.......|
|00000020| 1e 30 f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.0. | |
|00000030| 4a 75 6c 79 20 31 39 39 | 30 2c 20 41 52 4d 61 67 |July 199|0, ARMag|
|00000040| 65 64 64 6f 6e 20 73 6f | 66 74 77 61 72 65 0d 00 |eddon so|ftware..|
|00000050| 28 05 f4 0d 00 32 2d f4 | 20 20 20 20 20 20 20 20 |(....2-.| |
|00000060| 20 20 20 20 20 20 20 54 | 68 69 73 20 70 72 6f 67 | T|his prog|
|00000070| 72 61 6d 20 69 73 20 73 | 68 61 72 65 77 61 72 65 |ram is s|hareware|
|00000080| 0d 00 3c 05 f4 0d 00 46 | 05 f4 0d 00 50 2c f4 20 |..<....F|....P,. |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000a0| 48 61 76 65 20 79 6f 75 | 20 72 65 67 69 73 74 65 |Have you| registe|
|000000b0| 72 65 64 3f 3f 3f 0d 00 | 5a 05 f4 0d 00 64 05 3a |red???..|Z....d.:|
|000000c0| 0d 00 6e 24 de 20 62 6c | 6f 63 6b 20 38 2a 31 30 |..n$. bl|ock 8*10|
|000000d0| 32 34 2c 74 65 6d 70 20 | 32 35 36 2c 63 6f 70 79 |24,temp |256,copy|
|000000e0| 20 32 35 36 0d 00 78 10 | ee 20 85 20 f2 65 72 72 | 256..x.|. . .err|
|000000f0| 6f 72 3a e0 0d 00 82 0e | 54 65 73 74 69 6e 67 25 |or:.....|Testing%|
|00000100| 3d a3 0d 00 8c 10 e7 20 | 54 65 73 74 69 6e 67 25 |=...... |Testing%|
|00000110| 20 8c 0d 00 96 2b 2a 53 | 65 74 20 4d 65 6e 75 73 | ....+*S|et Menus|
|00000120| 24 44 69 72 20 61 64 66 | 73 3a 3a 50 72 6f 67 44 |$Dir adf|s::ProgD|
|00000130| 65 76 65 6c 2e 24 2e 21 | 4d 65 6e 75 73 0d 00 a0 |evel.$.!|Menus...|
|00000140| 25 2a 49 63 6f 6e 53 70 | 72 69 74 65 73 20 3c 4d |%*IconSp|rites <M|
|00000150| 65 6e 75 73 24 44 69 72 | 3e 2e 21 53 70 72 69 74 |enus$Dir|>.!Sprit|
|00000160| 65 73 0d 00 aa 1f 2a 52 | 4d 4c 6f 61 64 20 3c 4d |es....*R|MLoad <M|
|00000170| 65 6e 75 73 24 44 69 72 | 3e 2e 4d 65 6e 75 4d 6f |enus$Dir|>.MenuMo|
|00000180| 64 0d 00 b4 05 cd 0d 00 | be 43 24 62 6c 6f 63 6b |d.......|.C$block|
|00000190| 3d 22 54 41 53 4b 22 3a | c8 99 20 22 57 69 6d 70 |="TASK":|.. "Wimp|
|000001a0| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|000001b0| 2c 62 6c 6f 63 6b 21 30 | 2c 22 4d 65 6e 75 73 22 |,block!0|,"Menus"|
|000001c0| 20 b8 20 2c 54 61 73 6b | 25 0d 00 c8 0c f2 77 69 | . ,Task|%.....wi|
|000001d0| 6e 64 6f 77 73 0d 00 d2 | 0a f2 6d 65 6e 75 73 0d |ndows...|..menus.|
|000001e0| 00 dc 05 3a 0d 00 e6 25 | de 20 6d 65 6e 75 25 28 |...:...%|. menu%(|
|000001f0| 34 37 29 2c 68 61 6e 64 | 6c 65 25 28 34 37 29 2c |47),hand|le%(47),|
|00000200| 6c 6f 61 64 25 28 34 37 | 29 0d 00 f0 0e de 20 64 |load%(47|)..... d|
|00000210| 6f 74 73 20 32 35 36 0d | 00 fa 26 48 65 61 70 53 |ots 256.|..&HeapS|
|00000220| 69 7a 65 25 3d 28 28 93 | 2d b8 50 2d 26 38 30 30 |ize%=((.|-.P-&800|
|00000230| 30 29 81 20 31 30 32 34 | 29 2a 35 31 32 0d 01 04 |0). 1024|)*512...|
|00000240| 15 de 20 48 65 61 70 25 | 20 48 65 61 70 53 69 7a |.. Heap%| HeapSiz|
|00000250| 65 25 0d 01 0e 1f de 20 | 54 72 61 6e 73 66 65 72 |e%..... |Transfer|
|00000260| 42 75 66 66 65 72 25 20 | 48 65 61 70 53 69 7a 65 |Buffer% |HeapSize|
|00000270| 25 0d 01 18 23 c8 99 20 | 22 4f 53 5f 48 65 61 70 |%...#.. |"OS_Heap|
|00000280| 22 2c 30 2c 48 65 61 70 | 25 2c 2c 48 65 61 70 53 |",0,Heap|%,,HeapS|
|00000290| 69 7a 65 25 0d 01 22 13 | 24 64 6f 74 73 3d c4 32 |ize%..".|$dots=.2|
|000002a0| 35 35 2c 22 2d 22 29 0d | 01 2c 15 4d 65 6e 75 24 |55,"-").|.,.Menu$|
|000002b0| 3d 22 22 3a 44 72 61 67 | 24 3d 22 22 0d 01 36 15 |="":Drag|$=""..6.|
|000002c0| 4d 65 6e 75 25 3d 2d 31 | 3a 49 74 65 6d 25 3d 2d |Menu%=-1|:Item%=-|
|000002d0| 31 0d 01 40 1e 4f 70 65 | 6e 58 25 3d 31 32 38 3a |1..@.Ope|nX%=128:|
|000002e0| 4f 70 65 6e 59 25 3d 31 | 30 32 34 2d 31 32 38 0d |OpenY%=1|024-128.|
|000002f0| 01 4a 0e 43 68 61 6e 67 | 65 64 25 3d a3 0d 01 54 |.J.Chang|ed%=...T|
|00000300| 38 c8 99 20 22 4f 53 5f | 47 65 74 45 6e 76 22 20 |8.. "OS_|GetEnv" |
|00000310| b8 20 63 25 3a 63 24 3d | a4 73 74 72 69 6e 67 28 |. c%:c$=|.string(|
|00000320| 63 25 29 3a 69 25 3d a7 | 63 24 2c 22 20 2d 6d 65 |c%):i%=.|c$," -me|
|00000330| 6e 75 20 22 29 0d 01 5e | 20 e7 20 69 25 20 8c 20 |nu ")..^| . i% . |
|00000340| f2 6c 6f 61 64 5f 66 69 | 6c 65 28 c1 63 24 2c 69 |.load_fi|le(.c$,i|
|00000350| 25 2b 37 29 29 0d 01 68 | 05 3a 0d 01 72 0e ee 20 |%+7))..h|.:..r.. |
|00000360| 85 20 f2 65 72 72 6f 72 | 0d 01 7c 0b 51 75 69 74 |. .error|..|.Quit|
|00000370| 25 3d a3 0d 01 86 05 f5 | 0d 01 90 24 c8 99 20 22 |%=......|...$.. "|
|00000380| 57 69 6d 70 5f 50 6f 6c | 6c 22 2c 31 2c 62 6c 6f |Wimp_Pol|l",1,blo|
|00000390| 63 6b 20 b8 20 52 65 61 | 73 6f 6e 25 0d 01 9a 10 |ck . Rea|son%....|
|000003a0| c8 8e 20 52 65 61 73 6f | 6e 25 20 ca 0d 01 a4 0f |.. Reaso|n% .....|
|000003b0| c9 20 31 3a f2 72 65 64 | 72 61 77 0d 01 ae 1d c9 |. 1:.red|raw.....|
|000003c0| 20 32 3a f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 | 2:.open|_window(|
|000003d0| 62 6c 6f 63 6b 2c b9 29 | 0d 01 b8 24 c9 20 33 3a |block,.)|...$. 3:|
|000003e0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|000003f0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 0d 01 c2 0e |ndow",,b|lock....|
|00000400| c9 20 36 3a f2 6d 6f 75 | 73 65 0d 01 cc 11 c9 20 |. 6:.mou|se..... |
|00000410| 37 3a f2 64 72 61 67 5f | 65 6e 64 0d 01 d6 11 c9 |7:.drag_|end.....|
|00000420| 20 38 3a f2 6b 65 79 70 | 72 65 73 73 0d 01 e0 0d | 8:.keyp|ress....|
|00000430| c9 20 39 3a f2 6d 65 6e | 75 0d 01 ea 15 c9 20 31 |. 9:.men|u..... 1|
|00000440| 37 2c 31 38 3a f2 6d 65 | 73 73 61 67 65 73 0d 01 |7,18:.me|ssages..|
|00000450| f4 05 cb 0d 01 fe 05 cd | 0d 02 08 0b fd 20 51 75 |........|..... Qu|
|00000460| 69 74 25 0d 02 12 05 3a | 0d 02 1c 17 c8 99 20 22 |it%....:|...... "|
|00000470| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 0d |Wimp_Clo|seDown".|
|00000480| 02 26 29 e7 20 54 65 73 | 74 69 6e 67 25 20 8c 20 |.&). Tes|ting% . |
|00000490| 85 20 31 2c 22 50 72 6f | 67 72 61 6d 20 74 65 72 |. 1,"Pro|gram ter|
|000004a0| 6d 69 6e 61 74 65 64 22 | 0d 02 30 05 e0 0d 02 3a |minated"|..0....:|
|000004b0| 05 3a 0d 02 44 0f dd 20 | f2 6d 65 73 73 61 67 65 |.:..D.. |.message|
|000004c0| 73 0d 02 4e 0e ea 20 70 | 25 2c 61 25 2c 63 25 0d |s..N.. p|%,a%,c%.|
|000004d0| 02 58 27 e3 20 61 25 3d | 30 20 b8 20 32 35 32 20 |.X'. a%=|0 . 252 |
|000004e0| 88 20 34 3a 63 6f 70 79 | 21 61 25 3d 62 6c 6f 63 |. 4:copy|!a%=bloc|
|000004f0| 6b 21 61 25 3a ed 0d 02 | 62 11 c8 8e 20 62 6c 6f |k!a%:...|b... blo|
|00000500| 63 6b 21 31 36 20 ca 0d | 02 6c 19 c9 20 30 3a f2 |ck!16 ..|.l.. 0:.|
|00000510| 63 68 65 63 6b 28 31 29 | 3a 51 75 69 74 25 3d b9 |check(1)|:Quit%=.|
|00000520| 0d 02 76 25 c9 20 32 3a | f2 73 61 76 65 5f 66 69 |..v%. 2:|.save_fi|
|00000530| 6c 65 28 a4 73 74 72 69 | 6e 67 28 62 6c 6f 63 6b |le(.stri|ng(block|
|00000540| 2b 34 34 29 29 0d 02 80 | 41 63 6f 70 79 21 31 32 |+44))...|Acopy!12|
|00000550| 3d 63 6f 70 79 21 38 3a | 63 6f 70 79 21 31 36 3d |=copy!8:|copy!16=|
|00000560| 33 3a c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |3:.. "Wi|mp_SendM|
|00000570| 65 73 73 61 67 65 22 2c | 31 38 2c 63 6f 70 79 2c |essage",|18,copy,|
|00000580| 63 6f 70 79 21 34 0d 02 | 8a 07 c9 20 33 0d 02 94 |copy!4..|... 3...|
|00000590| 2d e7 20 62 6c 6f 63 6b | 21 34 30 3c 3e 26 33 32 |-. block|!40<>&32|
|000005a0| 31 20 8c 20 85 20 31 2c | 22 49 6e 76 61 6c 69 64 |1 . . 1,|"Invalid|
|000005b0| 20 66 69 6c 65 74 79 70 | 65 22 0d 02 9e 13 e7 20 | filetyp|e"..... |
|000005c0| 62 6c 6f 63 6b 21 32 30 | 3d 2d 32 20 8c 0d 02 a8 |block!20|=-2 ....|
|000005d0| 21 f2 6c 6f 61 64 5f 66 | 69 6c 65 28 a4 73 74 72 |!.load_f|ile(.str|
|000005e0| 69 6e 67 28 62 6c 6f 63 | 6b 2b 34 34 29 29 0d 02 |ing(bloc|k+44))..|
|000005f0| b2 41 63 6f 70 79 21 31 | 32 3d 63 6f 70 79 21 38 |.Acopy!1|2=copy!8|
|00000600| 3a 63 6f 70 79 21 31 36 | 3d 34 3a c8 99 20 22 57 |:copy!16|=4:.. "W|
|00000610| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00000620| 2c 31 37 2c 63 6f 70 79 | 2c 63 6f 70 79 21 34 0d |,17,copy|,copy!4.|
|00000630| 02 bc 05 cc 0d 02 c6 2a | 85 20 31 2c 22 44 72 61 |.......*|. 1,"Dra|
|00000640| 67 20 74 6f 20 74 68 65 | 20 21 4d 65 6e 75 73 20 |g to the| !Menus |
|00000650| 69 63 6f 6e 20 74 6f 20 | 6d 65 72 67 65 22 0d 02 |icon to |merge"..|
|00000660| d0 05 cd 0d 02 da 07 c9 | 20 35 0d 02 e4 15 e7 20 |........| 5..... |
|00000670| 62 6c 6f 63 6b 21 34 30 | 3d 26 33 32 31 20 8c 0d |block!40|=&321 ..|
|00000680| 02 ee 41 63 6f 70 79 21 | 31 32 3d 63 6f 70 79 21 |..Acopy!|12=copy!|
|00000690| 38 3a 63 6f 70 79 21 31 | 36 3d 34 3a c8 99 20 22 |8:copy!1|6=4:.. "|
|000006a0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|000006b0| 22 2c 31 37 2c 63 6f 70 | 79 2c 63 6f 70 79 21 34 |",17,cop|y,copy!4|
|000006c0| 0d 02 f8 0d f2 63 68 65 | 63 6b 28 30 29 0d 03 02 |.....che|ck(0)...|
|000006d0| 0f e3 20 61 25 3d 30 20 | b8 20 34 37 0d 03 0c 56 |.. a%=0 |. 47...V|
|000006e0| e7 20 68 61 6e 64 6c 65 | 25 28 61 25 29 3c 3e 30 |. handle|%(a%)<>0|
|000006f0| 20 8c 20 62 6c 6f 63 6b | 21 30 3d 68 61 6e 64 6c | . block|!0=handl|
|00000700| 65 25 28 61 25 29 3a c8 | 99 20 22 57 69 6d 70 5f |e%(a%):.|. "Wimp_|
|00000710| 44 65 6c 65 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |DeleteWi|ndow",,b|
|00000720| 6c 6f 63 6b 3a 68 61 6e | 64 6c 65 25 28 61 25 29 |lock:han|dle%(a%)|
|00000730| 3d 30 0d 03 16 14 ed 3a | 62 6c 6f 63 6b 21 30 3d |=0.....:|block!0=|
|00000740| 63 6f 70 79 21 30 0d 03 | 20 39 c8 99 20 22 4f 53 |copy!0..| 9.. "OS|
|00000750| 5f 48 65 61 70 22 2c 30 | 2c 48 65 61 70 25 2c 2c |_Heap",0|,Heap%,,|
|00000760| 48 65 61 70 53 69 7a 65 | 25 3a 6d 65 6e 75 25 28 |HeapSize|%:menu%(|
|00000770| 29 3d 30 3a 68 61 6e 64 | 6c 65 25 28 29 3d 30 0d |)=0:hand|le%()=0.|
|00000780| 03 2a 20 f2 6c 6f 61 64 | 5f 66 69 6c 65 28 a4 73 |.* .load|_file(.s|
|00000790| 74 72 69 6e 67 28 63 6f | 70 79 2b 34 34 29 29 0d |tring(co|py+44)).|
|000007a0| 03 34 05 cd 0d 03 3e 0c | c9 20 26 34 30 30 43 30 |.4....>.|. &400C0|
|000007b0| 0d 03 48 29 70 25 3d 6d | 65 6e 75 25 28 4d 65 6e |..H)p%=m|enu%(Men|
|000007c0| 75 25 29 2b 32 38 2b 28 | 49 74 65 6d 25 2a 32 34 |u%)+28+(|Item%*24|
|000007d0| 29 3a 63 25 3d 70 25 21 | 38 0d 03 52 36 e7 20 62 |):c%=p%!|8..R6. b|
|000007e0| 6c 6f 63 6b 21 33 36 3d | 33 20 8c 20 63 25 3d 28 |lock!36=|3 . c%=(|
|000007f0| 63 25 3e 3e 32 34 29 20 | 80 20 26 46 20 8b 20 63 |c%>>24) |. &F . c|
|00000800| 25 3d 28 63 25 3e 3e 32 | 38 29 20 80 20 26 46 0d |%=(c%>>2|8) . &F.|
|00000810| 03 5c 0f e3 20 61 25 3d | 30 20 b8 20 31 35 0d 03 |.\.. a%=|0 . 15..|
|00000820| 66 35 c8 99 20 22 4d 65 | 6e 75 5f 54 69 63 6b 22 |f5.. "Me|nu_Tick"|
|00000830| 2c 4d 65 6e 75 73 25 2c | a4 6d 73 28 22 43 6f 6c |,Menus%,|.ms("Col|
|00000840| 6f 75 72 73 3a 22 2b c3 | 28 61 25 29 29 2c 63 25 |ours:"+.|(a%)),c%|
|00000850| 3d 61 25 0d 03 70 05 ed | 0d 03 7a 37 c8 99 20 22 |=a%..p..|..z7.. "|
|00000860| 57 69 6d 70 5f 43 72 65 | 61 74 65 53 75 62 4d 65 |Wimp_Cre|ateSubMe|
|00000870| 6e 75 22 2c 2c 62 6c 6f | 63 6b 21 32 30 2c 62 6c |nu",,blo|ck!20,bl|
|00000880| 6f 63 6b 21 32 34 2c 62 | 6c 6f 63 6b 21 32 38 0d |ock!24,b|lock!28.|
|00000890| 03 84 05 cb 0d 03 8e 05 | e1 0d 03 98 05 3a 0d 03 |........|.....:..|
|000008a0| a2 0d dd 20 f2 72 65 64 | 72 61 77 0d 03 ac 0d ea |... .red|raw.....|
|000008b0| 20 78 6f 25 2c 79 6f 25 | 0d 03 b6 29 c8 99 20 22 | xo%,yo%|...).. "|
|000008c0| 57 69 6d 70 5f 52 65 64 | 72 61 77 57 69 6e 64 6f |Wimp_Red|rawWindo|
|000008d0| 77 22 2c 2c 62 6c 6f 63 | 6b 20 b8 20 6d 6f 72 65 |w",,bloc|k . more|
|000008e0| 25 0d 03 c0 0c c8 95 20 | 6d 6f 72 65 25 0d 03 ca |%...... |more%...|
|000008f0| 10 c8 8e 20 62 6c 6f 63 | 6b 21 30 20 ca 0d 03 d4 |... bloc|k!0 ....|
|00000900| 05 cb 0d 03 de 29 c8 99 | 20 22 57 69 6d 70 5f 47 |.....)..| "Wimp_G|
|00000910| 65 74 52 65 63 74 61 6e | 67 6c 65 22 2c 2c 62 6c |etRectan|gle",,bl|
|00000920| 6f 63 6b 20 b8 20 6d 6f | 72 65 25 0d 03 e8 05 ce |ock . mo|re%.....|
|00000930| 0d 03 f2 05 e1 0d 03 fc | 05 3a 0d 04 06 19 dd 20 |........|.:..... |
|00000940| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 71 25 2c |.open_wi|ndow(q%,|
|00000950| 68 25 29 0d 04 10 33 e7 | 20 68 25 3c 3e 2d 31 20 |h%)...3.| h%<>-1 |
|00000960| 8c 20 71 25 21 30 3d 68 | 25 3a c8 99 20 22 57 69 |. q%!0=h|%:.. "Wi|
|00000970| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00000980| 65 22 2c 2c 71 25 0d 04 | 1a 1c c8 99 20 22 57 69 |e",,q%..|.... "Wi|
|00000990| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|000009a0| 71 25 0d 04 24 05 e1 0d | 04 2e 05 3a 0d 04 38 0c |q%..$...|...:..8.|
|000009b0| dd 20 f2 6d 6f 75 73 65 | 0d 04 42 2d ea 20 69 63 |. .mouse|..B-. ic|
|000009c0| 6f 6e 25 2c 68 61 6e 64 | 6c 65 25 2c 62 75 74 74 |on%,hand|le%,butt|
|000009d0| 6f 6e 73 25 2c 6d 78 25 | 2c 6d 79 25 2c 61 25 2c |ons%,mx%|,my%,a%,|
|000009e0| 62 25 2c 70 25 0d 04 4c | 2c 6d 78 25 3d 62 6c 6f |b%,p%..L|,mx%=blo|
|000009f0| 63 6b 21 30 3a 6d 79 25 | 3d 62 6c 6f 63 6b 21 34 |ck!0:my%|=block!4|
|00000a00| 3a 62 75 74 74 6f 6e 73 | 25 3d 62 6c 6f 63 6b 21 |:buttons|%=block!|
|00000a10| 38 0d 04 56 23 68 61 6e | 64 6c 65 25 3d 62 6c 6f |8..V#han|dle%=blo|
|00000a20| 63 6b 21 31 32 3a 69 63 | 6f 6e 25 3d 62 6c 6f 63 |ck!12:ic|on%=bloc|
|00000a30| 6b 21 31 36 0d 04 60 10 | c8 8e 20 68 61 6e 64 6c |k!16..`.|.. handl|
|00000a40| 65 25 20 ca 0d 04 6a 08 | c9 20 2d 32 0d 04 74 13 |e% ...j.|. -2..t.|
|00000a50| e7 20 69 63 6f 6e 25 3d | 49 63 6f 6e 25 20 8c 0d |. icon%=|Icon% ..|
|00000a60| 04 7e 31 e7 20 62 75 74 | 74 6f 6e 73 25 3d 32 20 |.~1. but|tons%=2 |
|00000a70| 8c 20 f2 6f 70 65 6e 5f | 6d 65 6e 75 28 6d 78 25 |. .open_|menu(mx%|
|00000a80| 2d 36 34 2c 32 39 38 2c | 22 4d 65 6e 75 73 22 29 |-64,298,|"Menus")|
|00000a90| 0d 04 88 35 e7 20 62 75 | 74 74 6f 6e 73 25 3d 34 |...5. bu|ttons%=4|
|00000aa0| 20 8c 20 f2 63 72 65 61 | 74 65 5f 6d 65 6e 75 28 | . .crea|te_menu(|
|00000ab0| 6e 25 29 3a f2 64 69 73 | 70 6c 61 79 5f 6d 65 6e |n%):.dis|play_men|
|00000ac0| 75 28 6e 25 29 0d 04 92 | 05 cd 0d 04 9c 0b c9 20 |u(n%)...|....... |
|00000ad0| 4c 69 6e 6b 25 0d 04 a6 | 37 e7 20 69 63 6f 6e 25 |Link%...|7. icon%|
|00000ae0| 3d 30 20 80 20 62 75 74 | 74 6f 6e 73 25 3d 36 34 |=0 . but|tons%=64|
|00000af0| 20 8c 20 f2 64 72 61 67 | 5f 73 65 74 28 4c 69 6e | . .drag|_set(Lin|
|00000b00| 6b 25 2c 30 2c 22 4c 69 | 6e 6b 22 29 0d 04 b0 0b |k%,0,"Li|nk")....|
|00000b10| c9 20 53 61 76 65 25 0d | 04 ba 36 e7 20 69 63 6f |. Save%.|..6. ico|
|00000b20| 6e 25 3d 30 20 80 20 62 | 75 74 74 6f 6e 73 25 3d |n%=0 . b|uttons%=|
|00000b30| 34 20 8c 20 f2 64 72 61 | 67 5f 73 65 74 28 53 61 |4 . .dra|g_set(Sa|
|00000b40| 76 65 25 2c 30 2c 22 53 | 61 76 65 22 29 0d 04 c4 |ve%,0,"S|ave")...|
|00000b50| 40 e7 20 69 63 6f 6e 25 | 3d 32 20 80 20 62 75 74 |@. icon%|=2 . but|
|00000b60| 74 6f 6e 73 25 3d 34 20 | 8c 20 f2 71 75 69 63 6b |tons%=4 |. .quick|
|00000b70| 73 61 76 65 3a c8 99 20 | 22 57 69 6d 70 5f 43 72 |save:.. |"Wimp_Cr|
|00000b80| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 2d 31 0d 04 ce |eateMenu|",,-1...|
|00000b90| 05 7f 0d 04 d8 0f e3 20 | 61 25 3d 30 20 b8 20 34 |....... |a%=0 . 4|
|00000ba0| 37 0d 04 e2 1b e7 20 68 | 61 6e 64 6c 65 25 28 61 |7..... h|andle%(a|
|00000bb0| 25 29 3d 68 61 6e 64 6c | 65 25 20 8c 0d 04 ec 3f |%)=handl|e% ....?|
|00000bc0| 62 6c 6f 63 6b 21 30 3d | 68 61 6e 64 6c 65 25 3a |block!0=|handle%:|
|00000bd0| 62 6c 6f 63 6b 21 34 3d | 69 63 6f 6e 25 3a c8 99 |block!4=|icon%:..|
|00000be0| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00000bf0| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 0d 04 f6 22 e7 |ate",,bl|ock...".|
|00000c00| 20 28 62 6c 6f 63 6b 21 | 32 34 20 80 20 26 46 30 | (block!|24 . &F0|
|00000c10| 30 30 29 3d 28 39 3c 3c | 31 32 29 20 8c 0d 05 00 |00)=(9<<|12) ....|
|00000c20| 54 e7 20 62 75 74 74 6f | 6e 73 25 3d 32 20 8c 20 |T. butto|ns%=2 . |
|00000c30| 49 74 65 6d 25 3d 69 63 | 6f 6e 25 3a 4d 65 6e 75 |Item%=ic|on%:Menu|
|00000c40| 25 3d 61 25 3a f2 6f 70 | 65 6e 5f 6d 65 6e 75 28 |%=a%:.op|en_menu(|
|00000c50| 6d 78 25 2d 36 34 2c 6d | 79 25 2b 36 36 2c 22 4d |mx%-64,m|y%+66,"M|
|00000c60| 65 6e 75 20 65 64 69 74 | 22 29 3a 61 25 3d 32 35 |enu edit|"):a%=25|
|00000c70| 36 0d 05 0a 12 e7 20 62 | 75 74 74 6f 6e 73 25 3d |6..... b|uttons%=|
|00000c80| 34 20 8c 0d 05 14 1e 70 | 25 3d 6d 65 6e 75 25 28 |4 .....p|%=menu%(|
|00000c90| 61 25 29 2b 32 38 2b 28 | 69 63 6f 6e 25 2a 32 34 |a%)+28+(|icon%*24|
|00000ca0| 29 0d 05 1e 0a c8 8e 20 | b9 20 ca 0d 05 28 11 c9 |)...... |. ...(..|
|00000cb0| 20 70 25 21 34 3d 2d 31 | 3a ef 20 37 0d 05 32 3f | p%!4=-1|:. 7..2?|
|00000cc0| c9 20 70 25 21 34 3d 2d | 32 3a 62 6c 6f 63 6b 21 |. p%!4=-|2:block!|
|00000cd0| 30 3d 31 3a 24 28 62 6c | 6f 63 6b 2b 34 29 3d 22 |0=1:$(bl|ock+4)="|
|00000ce0| 49 74 65 6d 20 6c 65 61 | 64 73 20 74 6f 20 61 20 |Item lea|ds to a |
|00000cf0| 73 75 62 20 77 69 6e 64 | 6f 77 22 0d 05 3c 30 c8 |sub wind|ow"..<0.|
|00000d00| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00000d10| 72 6f 72 22 2c 62 6c 6f | 63 6b 2c 31 37 2c 22 49 |ror",blo|ck,17,"I|
|00000d20| 6e 66 6f 72 6d 61 74 69 | 6f 6e 22 0d 05 46 05 7f |nformati|on"..F..|
|00000d30| 0d 05 50 4a 62 6c 6f 63 | 6b 21 32 35 36 3d 68 61 |..PJbloc|k!256=ha|
|00000d40| 6e 64 6c 65 25 28 61 25 | 29 3a c8 99 20 22 57 69 |ndle%(a%|):.. "Wi|
|00000d50| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00000d60| 65 22 2c 2c 62 6c 6f 63 | 6b 2b 32 35 36 3a 78 25 |e",,bloc|k+256:x%|
|00000d70| 3d 62 6c 6f 63 6b 21 32 | 36 38 0d 05 5a 39 62 6c |=block!2|68..Z9bl|
|00000d80| 6f 63 6b 21 30 3d 68 61 | 6e 64 6c 65 25 28 70 25 |ock!0=ha|ndle%(p%|
|00000d90| 21 34 29 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |!4):.. "|Wimp_Get|
|00000da0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|00000db0| 6f 63 6b 0d 05 64 1d 79 | 25 3d 6d 79 25 2d 28 62 |ock..d.y|%=my%-(b|
|00000dc0| 6c 6f 63 6b 21 31 36 2d | 62 6c 6f 63 6b 21 38 29 |lock!16-|block!8)|
|00000dd0| 0d 05 6e 2d 62 6c 6f 63 | 6b 21 31 32 2b 3d 78 25 |..n-bloc|k!12+=x%|
|00000de0| 2d 62 6c 6f 63 6b 21 34 | 3a 62 6c 6f 63 6b 21 31 |-block!4|:block!1|
|00000df0| 36 2b 3d 79 25 2d 62 6c | 6f 63 6b 21 38 0d 05 78 |6+=y%-bl|ock!8..x|
|00000e00| 25 62 6c 6f 63 6b 21 34 | 3d 78 25 3a 62 6c 6f 63 |%block!4|=x%:bloc|
|00000e10| 6b 21 38 3d 79 25 3a 62 | 6c 6f 63 6b 21 32 38 3d |k!8=y%:b|lock!28=|
|00000e20| 2d 31 0d 05 82 1f c8 99 | 20 22 57 69 6d 70 5f 4f |-1......| "Wimp_O|
|00000e30| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |penWindo|w",,bloc|
|00000e40| 6b 0d 05 8c 05 cb 0d 05 | 96 05 cd 0d 05 a0 05 cd |k.......|........|
|00000e50| 0d 05 aa 05 cd 0d 05 b4 | 05 ed 0d 05 be 05 cb 0d |........|........|
|00000e60| 05 c8 05 e1 0d 05 d2 05 | 3a 0d 05 dc 0f dd 20 f2 |........|:..... .|
|00000e70| 64 72 61 67 5f 65 6e 64 | 0d 05 e6 1b ea 20 61 25 |drag_end|..... a%|
|00000e80| 2c 71 25 2c 70 25 3a 71 | 25 3d 62 6c 6f 63 6b 2b |,q%,p%:q|%=block+|
|00000e90| 32 35 36 0d 05 f0 3a c8 | 99 20 22 57 69 6d 70 5f |256...:.|. "Wimp_|
|00000ea0| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|00000eb0| 2c 71 25 3a 68 61 6e 64 | 6c 65 25 3d 71 25 21 31 |,q%:hand|le%=q%!1|
|00000ec0| 32 3a 69 63 6f 6e 25 3d | 71 25 21 31 36 0d 05 fa |2:icon%=|q%!16...|
|00000ed0| 0e c8 8e 20 44 72 61 67 | 24 20 ca 0d 06 04 0c c9 |... Drag|$ ......|
|00000ee0| 20 22 53 61 76 65 22 0d | 06 0e 2a 63 6f 70 79 21 | "Save".|..*copy!|
|00000ef0| 30 3d 32 35 36 3a 63 6f | 70 79 21 34 3d 30 3a 63 |0=256:co|py!4=0:c|
|00000f00| 6f 70 79 21 38 3d 30 3a | 63 6f 70 79 21 31 32 3d |opy!8=0:|copy!12=|
|00000f10| 30 0d 06 18 4b 63 6f 70 | 79 21 31 36 3d 31 3a 63 |0...Kcop|y!16=1:c|
|00000f20| 6f 70 79 21 32 30 3d 68 | 61 6e 64 6c 65 25 3a 63 |opy!20=h|andle%:c|
|00000f30| 6f 70 79 21 32 34 3d 69 | 63 6f 6e 25 3a 63 6f 70 |opy!24=i|con%:cop|
|00000f40| 79 21 32 38 3d 62 6c 6f | 63 6b 21 30 3a 63 6f 70 |y!28=blo|ck!0:cop|
|00000f50| 79 21 33 32 3d 62 6c 6f | 63 6b 21 34 0d 06 22 43 |y!32=blo|ck!4.."C|
|00000f60| 63 6f 70 79 21 33 36 3d | 26 38 30 30 30 3a 63 6f |copy!36=|&8000:co|
|00000f70| 70 79 21 34 30 3d 26 33 | 32 31 3a 24 28 63 6f 70 |py!40=&3|21:$(cop|
|00000f80| 79 2b 34 34 29 3d a4 6c | 65 61 66 28 a4 73 74 72 |y+44)=.l|eaf(.str|
|00000f90| 69 6e 67 28 46 69 6c 65 | 6e 61 6d 65 25 29 29 0d |ing(File|name%)).|
|00000fa0| 06 2c 2f c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |.,/.. "W|imp_Send|
|00000fb0| 4d 65 73 73 61 67 65 22 | 2c 31 38 2c 63 6f 70 79 |Message"|,18,copy|
|00000fc0| 2c 68 61 6e 64 6c 65 25 | 2c 69 63 6f 6e 25 0d 06 |,handle%|,icon%..|
|00000fd0| 36 1c c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |6... "Wi|mp_Creat|
|00000fe0| 65 4d 65 6e 75 22 2c 2c | 2d 31 0d 06 40 0c c9 20 |eMenu",,|-1..@.. |
|00000ff0| 22 4c 69 6e 6b 22 0d 06 | 4a 0f e3 20 61 25 3d 30 |"Link"..|J.. a%=0|
|00001000| 20 b8 20 34 37 0d 06 54 | 1b e7 20 68 61 6e 64 6c | . 47..T|.. handl|
|00001010| 65 25 28 61 25 29 3d 68 | 61 6e 64 6c 65 25 20 8c |e%(a%)=h|andle% .|
|00001020| 0d 06 5e 30 e7 20 61 25 | 3d 4d 65 6e 75 25 20 8c |..^0. a%|=Menu% .|
|00001030| 20 85 20 31 2c 22 43 61 | 6e 27 74 20 6c 69 6e 6b | . 1,"Ca|n't link|
|00001040| 20 6d 65 6e 75 20 74 6f | 20 69 74 73 65 6c 66 22 | menu to| itself"|
|00001050| 0d 06 68 3f 62 6c 6f 63 | 6b 21 30 3d 68 61 6e 64 |..h?bloc|k!0=hand|
|00001060| 6c 65 25 3a 62 6c 6f 63 | 6b 21 34 3d 69 63 6f 6e |le%:bloc|k!4=icon|
|00001070| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|00001080| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 0d |onState"|,,block.|
|00001090| 06 72 47 e7 20 28 62 6c | 6f 63 6b 21 32 34 20 80 |.rG. (bl|ock!24 .|
|000010a0| 20 26 46 30 30 30 29 3c | 3e 28 39 3c 3c 31 32 29 | &F000)<|>(9<<12)|
|000010b0| 20 8c 20 85 20 31 2c 22 | 54 6f 20 6c 69 6e 6b 2c | . . 1,"|To link,|
|000010c0| 20 64 72 61 67 20 6d 65 | 6e 75 20 74 6f 20 61 6e | drag me|nu to an|
|000010d0| 20 69 74 65 6d 22 0d 06 | 7c 45 70 25 3d 6d 65 6e | item"..||Ep%=men|
|000010e0| 75 25 28 61 25 29 2b 32 | 38 2b 28 69 63 6f 6e 25 |u%(a%)+2|8+(icon%|
|000010f0| 2a 32 34 29 3a e7 20 70 | 25 21 34 3c 3e 2d 31 20 |*24):. p|%!4<>-1 |
|00001100| 8c 20 85 20 31 2c 22 49 | 74 65 6d 20 61 6c 72 65 |. . 1,"I|tem alre|
|00001110| 61 64 79 20 6c 69 6e 6b | 65 64 22 0d 06 86 27 70 |ady link|ed"...'p|
|00001120| 25 21 34 3d 4d 65 6e 75 | 25 3a f2 64 69 73 70 6c |%!4=Menu|%:.displ|
|00001130| 61 79 5f 6d 65 6e 75 28 | 61 25 29 3a 61 25 3d 35 |ay_menu(|a%):a%=5|
|00001140| 31 31 0d 06 90 05 cd 0d | 06 9a 05 ed 0d 06 a4 33 |11......|.......3|
|00001150| e7 20 61 25 3c 3e 35 31 | 32 20 8c 20 85 20 31 2c |. a%<>51|2 . . 1,|
|00001160| 22 54 6f 20 6c 69 6e 6b | 2c 20 64 72 61 67 20 6d |"To link|, drag m|
|00001170| 65 6e 75 20 74 6f 20 61 | 6e 20 69 74 65 6d 22 0d |enu to a|n item".|
|00001180| 06 ae 0c c9 20 22 53 61 | 76 65 22 0d 06 b8 0e cb |.... "Sa|ve".....|
|00001190| 3a 44 72 61 67 24 3d 22 | 22 0d 06 c2 05 e1 0d 06 |:Drag$="|".......|
|000011a0| cc 05 3a 0d 06 d6 0f dd | 20 f2 6b 65 79 70 72 65 |..:.....| .keypre|
|000011b0| 73 73 0d 06 e0 2f 68 61 | 6e 64 6c 65 25 3d 62 6c |ss.../ha|ndle%=bl|
|000011c0| 6f 63 6b 21 30 3a 69 63 | 6f 6e 25 3d 62 6c 6f 63 |ock!0:ic|on%=bloc|
|000011d0| 6b 21 34 3a 6b 65 79 25 | 3d 62 6c 6f 63 6b 21 32 |k!4:key%|=block!2|
|000011e0| 34 0d 06 ea 10 c8 8e 20 | 68 61 6e 64 6c 65 25 20 |4...... |handle% |
|000011f0| ca 0d 06 f4 4d c9 20 53 | 61 76 65 25 3a e7 20 69 |....M. S|ave%:. i|
|00001200| 63 6f 6e 25 3d 31 20 80 | 20 6b 65 79 25 3d 31 33 |con%=1 .| key%=13|
|00001210| 20 8c 20 f2 71 75 69 63 | 6b 73 61 76 65 3a c8 99 | . .quic|ksave:..|
|00001220| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00001230| 75 22 2c 2c 2d 31 3a 6b | 65 79 25 3d 2d 31 0d 06 |u",,-1:k|ey%=-1..|
|00001240| fe 05 cb 0d 07 08 2a e7 | 20 6b 65 79 25 3c 3e 2d |......*.| key%<>-|
|00001250| 31 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 50 72 6f |1 . .. "|Wimp_Pro|
|00001260| 63 65 73 73 4b 65 79 22 | 2c 6b 65 79 25 0d 07 12 |cessKey"|,key%...|
|00001270| 05 e1 0d 07 1c 05 3a 0d | 07 26 0b dd 20 f2 6d 65 |......:.|.&.. .me|
|00001280| 6e 75 0d 07 30 14 ea 20 | 61 25 2c 62 25 2c 63 25 |nu..0.. |a%,b%,c%|
|00001290| 2c 70 25 2c 64 24 0d 07 | 3a 36 c8 99 20 22 4d 65 |,p%,d$..|:6.. "Me|
|000012a0| 6e 75 5f 53 74 72 69 6e | 67 54 6f 41 64 64 72 65 |nu_Strin|gToAddre|
|000012b0| 73 73 22 2c 4d 65 6e 75 | 73 25 2c a4 6d 73 28 4d |ss",Menu|s%,.ms(M|
|000012c0| 65 6e 75 24 29 20 b8 20 | 2c 2c 62 25 0d 07 44 2c |enu$) . |,,b%..D,|
|000012d0| c8 99 20 22 57 69 6d 70 | 5f 44 65 63 6f 64 65 4d |.. "Wimp|_DecodeM|
|000012e0| 65 6e 75 22 2c 2c 62 25 | 2c 62 6c 6f 63 6b 2c 62 |enu",,b%|,block,b|
|000012f0| 6c 6f 63 6b 2b 32 35 36 | 0d 07 4e 1e 53 65 6c 65 |lock+256|..N.Sele|
|00001300| 63 74 24 3d a4 73 74 72 | 69 6e 67 28 62 6c 6f 63 |ct$=.str|ing(bloc|
|00001310| 6b 2b 32 35 36 29 0d 07 | 58 0e c8 8e 20 4d 65 6e |k+256)..|X... Men|
|00001320| 75 24 20 ca 0d 07 62 0d | c9 20 22 4d 65 6e 75 73 |u$ ...b.|. "Menus|
|00001330| 22 0d 07 6c 13 c8 8e 20 | a4 6f 70 74 69 6f 6e 28 |"..l... |.option(|
|00001340| 31 29 20 ca 0d 07 76 17 | c9 20 22 53 61 76 65 22 |1) ...v.|. "Save"|
|00001350| 3a f2 71 75 69 63 6b 73 | 61 76 65 0d 07 80 33 c9 |:.quicks|ave...3.|
|00001360| 20 22 4e 65 77 20 6d 65 | 6e 75 22 3a f2 63 72 65 | "New me|nu":.cre|
|00001370| 61 74 65 5f 6d 65 6e 75 | 28 6e 25 29 3a f2 64 69 |ate_menu|(n%):.di|
|00001380| 73 70 6c 61 79 5f 6d 65 | 6e 75 28 6e 25 29 0d 07 |splay_me|nu(n%)..|
|00001390| 8a 1e c9 20 22 51 75 69 | 74 22 3a f2 63 68 65 63 |... "Qui|t":.chec|
|000013a0| 6b 28 30 29 3a 51 75 69 | 74 25 3d b9 0d 07 94 05 |k(0):Qui|t%=.....|
|000013b0| cb 0d 07 9e 11 c9 20 22 | 4d 65 6e 75 20 65 64 69 |...... "|Menu edi|
|000013c0| 74 22 0d 07 a8 13 70 25 | 3d 6d 65 6e 75 25 28 4d |t"....p%|=menu%(M|
|000013d0| 65 6e 75 25 29 0d 07 b2 | 13 c8 8e 20 a4 6f 70 74 |enu%)...|... .opt|
|000013e0| 69 6f 6e 28 31 29 20 ca | 0d 07 bc 3a c9 20 22 54 |ion(1) .|...:. "T|
|000013f0| 69 74 6c 65 22 3a e7 20 | 24 54 69 74 6c 65 25 3d |itle":. |$Title%=|
|00001400| 22 22 20 8c 20 85 20 31 | 2c 22 4d 65 6e 75 73 20 |"" . . 1|,"Menus |
|00001410| 6d 75 73 74 20 68 61 76 | 65 20 61 20 74 69 74 6c |must hav|e a titl|
|00001420| 65 22 0d 07 c6 2d 70 25 | 21 30 3d 54 69 74 6c 65 |e"...-p%|!0=Title|
|00001430| 25 21 30 3a 70 25 21 34 | 3d 54 69 74 6c 65 25 21 |%!0:p%!4|=Title%!|
|00001440| 34 3a 70 25 21 38 3d 54 | 69 74 6c 65 25 21 38 0d |4:p%!8=T|itle%!8.|
|00001450| 07 d0 23 f2 64 69 73 70 | 6c 61 79 5f 6d 65 6e 75 |..#.disp|lay_menu|
|00001460| 28 4d 65 6e 75 25 29 3a | 43 68 61 6e 67 65 64 25 |(Menu%):|Changed%|
|00001470| 3d b9 0d 07 da 3e c9 20 | 22 57 69 64 74 68 22 3a |=....>. |"Width":|
|00001480| 70 25 21 31 36 3d bb 28 | 24 57 69 64 74 68 25 29 |p%!16=.(|$Width%)|
|00001490| 3a f2 64 69 73 70 6c 61 | 79 5f 6d 65 6e 75 28 4d |:.displa|y_menu(M|
|000014a0| 65 6e 75 25 29 3a 43 68 | 61 6e 67 65 64 25 3d b9 |enu%):Ch|anged%=.|
|000014b0| 0d 07 e4 30 c9 20 22 49 | 6e 73 65 72 74 20 61 66 |...0. "I|nsert af|
|000014c0| 74 65 72 22 3a f2 67 65 | 74 5f 62 6c 6f 63 6b 28 |ter":.ge|t_block(|
|000014d0| 6d 65 6e 75 25 28 4d 65 | 6e 75 25 29 2c 32 34 29 |menu%(Me|nu%),24)|
|000014e0| 0d 07 ee 16 62 25 3d 6d | 65 6e 75 25 28 4d 65 6e |....b%=m|enu%(Men|
|000014f0| 75 25 29 2b 32 38 0d 07 | f8 26 c8 95 20 28 62 25 |u%)+28..|.&.. (b%|
|00001500| 21 30 20 80 20 31 3c 3c | 37 29 3d 30 3a 62 25 2b |!0 . 1<<|7)=0:b%+|
|00001510| 3d 32 34 3a ce 3a 62 25 | 2b 3d 32 34 0d 08 02 21 |=24:.:b%|+=24...!|
|00001520| 70 25 3d 6d 65 6e 75 25 | 28 4d 65 6e 75 25 29 2b |p%=menu%|(Menu%)+|
|00001530| 28 49 74 65 6d 25 2a 32 | 34 29 2b 35 32 0d 08 0c |(Item%*2|4)+52...|
|00001540| 0e e7 20 70 25 3c 3e 62 | 25 20 8c 0d 08 16 25 e3 |.. p%<>b|% ....%.|
|00001550| 20 61 25 3d 62 25 2b 32 | 30 20 b8 20 70 25 20 88 | a%=b%+2|0 . p% .|
|00001560| 20 2d 34 3a 61 25 21 32 | 34 3d 61 25 21 30 3a ed | -4:a%!2|4=a%!0:.|
|00001570| 0d 08 20 05 cc 0d 08 2a | 19 62 25 21 2d 32 34 3d |.. ....*|.b%!-24=|
|00001580| 62 25 21 2d 32 34 20 80 | 20 ac 20 26 38 30 0d 08 |b%!-24 .| . &80..|
|00001590| 34 05 cd 0d 08 3e 22 70 | 25 21 30 3d 26 30 3a 70 |4....>"p|%!0=&0:p|
|000015a0| 25 21 34 3d 2d 31 3a 70 | 25 21 38 3d 26 30 37 30 |%!4=-1:p|%!8=&070|
|000015b0| 30 30 30 33 31 0d 08 48 | 32 70 25 21 31 32 3d 30 |00031..H|2p%!12=0|
|000015c0| 3a 70 25 21 31 36 3d 30 | 3a 70 25 21 32 30 3d 30 |:p%!16=0|:p%!20=0|
|000015d0| 3a 24 28 70 25 2b 31 32 | 29 3d 22 3c 4c 65 61 66 |:$(p%+12|)="<Leaf|
|000015e0| 20 69 74 65 6d 3e 22 0d | 08 52 16 e7 20 70 25 3d | item>".|.R.. p%=|
|000015f0| 62 25 20 8c 20 70 25 21 | 30 3d 26 38 30 0d 08 5c |b% . p%!|0=&80..\|
|00001600| 23 f2 64 69 73 70 6c 61 | 79 5f 6d 65 6e 75 28 4d |#.displa|y_menu(M|
|00001610| 65 6e 75 25 29 3a 43 68 | 61 6e 67 65 64 25 3d b9 |enu%):Ch|anged%=.|
|00001620| 0d 08 66 31 c9 20 22 49 | 6e 73 65 72 74 20 62 65 |..f1. "I|nsert be|
|00001630| 66 6f 72 65 22 3a f2 67 | 65 74 5f 62 6c 6f 63 6b |fore":.g|et_block|
|00001640| 28 6d 65 6e 75 25 28 4d | 65 6e 75 25 29 2c 32 34 |(menu%(M|enu%),24|
|00001650| 29 0d 08 70 16 62 25 3d | 6d 65 6e 75 25 28 4d 65 |)..p.b%=|menu%(Me|
|00001660| 6e 75 25 29 2b 32 38 0d | 08 7a 26 c8 95 20 28 62 |nu%)+28.|.z&.. (b|
|00001670| 25 21 30 20 80 20 31 3c | 3c 37 29 3d 30 3a 62 25 |%!0 . 1<|<7)=0:b%|
|00001680| 2b 3d 32 34 3a ce 3a 62 | 25 2b 3d 32 34 0d 08 84 |+=24:.:b|%+=24...|
|00001690| 21 70 25 3d 6d 65 6e 75 | 25 28 4d 65 6e 75 25 29 |!p%=menu|%(Menu%)|
|000016a0| 2b 28 49 74 65 6d 25 2a | 32 34 29 2b 32 38 0d 08 |+(Item%*|24)+28..|
|000016b0| 8e 0e e7 20 70 25 3c 3e | 62 25 20 8c 0d 08 98 25 |... p%<>|b% ....%|
|000016c0| e3 20 61 25 3d 62 25 2b | 32 30 20 b8 20 70 25 20 |. a%=b%+|20 . p% |
|000016d0| 88 20 2d 34 3a 61 25 21 | 32 34 3d 61 25 21 30 3a |. -4:a%!|24=a%!0:|
|000016e0| ed 0d 08 a2 05 cc 0d 08 | ac 19 62 25 21 2d 32 34 |........|..b%!-24|
|000016f0| 3d 62 25 21 2d 32 34 20 | 80 20 ac 20 26 38 30 0d |=b%!-24 |. . &80.|
|00001700| 08 b6 05 cd 0d 08 c0 22 | 70 25 21 30 3d 26 30 3a |......."|p%!0=&0:|
|00001710| 70 25 21 34 3d 2d 31 3a | 70 25 21 38 3d 26 30 37 |p%!4=-1:|p%!8=&07|
|00001720| 30 30 30 30 33 31 0d 08 | ca 32 70 25 21 31 32 3d |000031..|.2p%!12=|
|00001730| 30 3a 70 25 21 31 36 3d | 30 3a 70 25 21 32 30 3d |0:p%!16=|0:p%!20=|
|00001740| 30 3a 24 28 70 25 2b 31 | 32 29 3d 22 3c 4c 65 61 |0:$(p%+1|2)="<Lea|
|00001750| 66 20 69 74 65 6d 3e 22 | 0d 08 d4 16 e7 20 70 25 |f item>"|..... p%|
|00001760| 3d 62 25 20 8c 20 70 25 | 21 30 3d 26 38 30 0d 08 |=b% . p%|!0=&80..|
|00001770| de 2c f2 64 69 73 70 6c | 61 79 5f 6d 65 6e 75 28 |.,.displ|ay_menu(|
|00001780| 4d 65 6e 75 25 29 3a 43 | 68 61 6e 67 65 64 25 3d |Menu%):C|hanged%=|
|00001790| b9 3a 49 74 65 6d 25 2b | 3d 31 0d 08 e8 13 c9 20 |.:Item%+|=1..... |
|000017a0| 22 44 65 6c 65 74 65 20 | 69 74 65 6d 22 0d 08 f2 |"Delete |item"...|
|000017b0| 13 e7 20 70 25 21 32 38 | 20 80 20 26 38 30 20 8c |.. p%!28| . &80 .|
|000017c0| 0d 08 fc 07 ef 20 37 0d | 09 06 05 cc 0d 09 10 3a |..... 7.|.......:|
|000017d0| 62 25 3d 70 25 2b 32 38 | 3a c8 95 20 28 62 25 21 |b%=p%+28|:.. (b%!|
|000017e0| 30 20 80 20 31 3c 3c 37 | 29 3d 30 3a 62 25 2b 3d |0 . 1<<7|)=0:b%+=|
|000017f0| 32 34 3a ce 3a 70 25 2b | 3d 32 38 2b 28 49 74 65 |24:.:p%+|=28+(Ite|
|00001800| 6d 25 2a 32 34 29 0d 09 | 1a 0d e7 20 70 25 3d 62 |m%*24)..|... p%=b|
|00001810| 25 20 8c 0d 09 24 17 62 | 25 21 2d 32 34 3d 62 25 |% ...$.b|%!-24=b%|
|00001820| 21 2d 32 34 20 84 20 26 | 38 30 0d 09 2e 05 cc 0d |!-24 . &|80......|
|00001830| 09 38 1d e3 20 61 25 3d | 70 25 20 b8 20 62 25 3a |.8.. a%=|p% . b%:|
|00001840| 61 25 21 30 3d 61 25 21 | 32 34 3a ed 0d 09 42 05 |a%!0=a%!|24:...B.|
|00001850| cd 0d 09 4c 21 f2 64 69 | 73 70 6c 61 79 5f 6d 65 |...L!.di|splay_me|
|00001860| 6e 75 28 4d 65 6e 75 25 | 29 3a 4d 65 6e 75 25 3d |nu(Menu%|):Menu%=|
|00001870| 2d 31 0d 09 56 10 cd 3a | 43 68 61 6e 67 65 64 25 |-1..V..:|Changed%|
|00001880| 3d b9 0d 09 60 13 c9 20 | 22 44 65 6c 65 74 65 20 |=...`.. |"Delete |
|00001890| 6c 69 6e 6b 22 0d 09 6a | 3d 70 25 2b 3d 32 38 2b |link"..j|=p%+=28+|
|000018a0| 28 49 74 65 6d 25 2a 32 | 34 29 3a 70 25 21 34 3d |(Item%*2|4):p%!4=|
|000018b0| 2d 31 3a f2 64 69 73 70 | 6c 61 79 5f 6d 65 6e 75 |-1:.disp|lay_menu|
|000018c0| 28 4d 65 6e 75 25 29 3a | 43 68 61 6e 67 65 64 25 |(Menu%):|Changed%|
|000018d0| 3d b9 0d 09 74 13 c9 20 | 22 44 65 6c 65 74 65 20 |=...t.. |"Delete |
|000018e0| 6d 65 6e 75 22 0d 09 7e | 27 62 6c 6f 63 6b 21 30 |menu"..~|'block!0|
|000018f0| 3d 31 3a 24 28 62 6c 6f | 63 6b 2b 34 29 3d 22 44 |=1:$(blo|ck+4)="D|
|00001900| 65 6c 65 74 65 20 6d 65 | 6e 75 3f 22 0d 09 88 32 |elete me|nu?"...2|
|00001910| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|00001920| 72 72 6f 72 22 2c 62 6c | 6f 63 6b 2c 31 39 2c 22 |rror",bl|ock,19,"|
|00001930| 43 6f 6e 66 69 72 6d 22 | 20 b8 20 2c 61 25 0d 09 |Confirm"| . ,a%..|
|00001940| 92 0c e7 20 61 25 3d 31 | 20 8c 0d 09 9c 15 c8 99 |... a%=1| .......|
|00001950| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|00001960| 09 a6 0f e3 20 62 25 3d | 30 20 b8 20 34 37 0d 09 |.... b%=|0 . 47..|
|00001970| b0 29 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |.).. "Ho|urglass_|
|00001980| 50 65 72 63 65 6e 74 61 | 67 65 22 2c 28 62 25 2f |Percenta|ge",(b%/|
|00001990| 34 37 29 2a 31 30 30 0d | 09 ba 20 e7 20 6d 65 6e |47)*100.|.. . men|
|000019a0| 75 25 28 62 25 29 3c 3e | 30 20 80 20 62 25 3c 3e |u%(b%)<>|0 . b%<>|
|000019b0| 4d 65 6e 75 25 20 8c 0d | 09 c4 12 70 25 3d 6d 65 |Menu% ..|...p%=me|
|000019c0| 6e 75 25 28 62 25 29 2b | 34 0d 09 ce 23 f5 3a 70 |nu%(b%)+|4...#.:p|
|000019d0| 25 2b 3d 32 34 3a e7 20 | 70 25 21 34 3d 4d 65 6e |%+=24:. |p%!4=Men|
|000019e0| 75 25 20 8c 20 70 25 21 | 34 3d 2d 31 0d 09 d8 22 |u% . p%!|4=-1..."|
|000019f0| fd 20 70 25 21 30 20 80 | 20 26 38 30 3a f2 64 69 |. p%!0 .| &80:.di|
|00001a00| 73 70 6c 61 79 5f 6d 65 | 6e 75 28 62 25 29 0d 09 |splay_me|nu(b%)..|
|00001a10| e2 05 cd 0d 09 ec 05 ed | 0d 09 f6 34 c8 99 20 22 |........|...4.. "|
|00001a20| 4f 53 5f 48 65 61 70 22 | 2c 33 2c 48 65 61 70 25 |OS_Heap"|,3,Heap%|
|00001a30| 2c 6d 65 6e 75 25 28 4d | 65 6e 75 25 29 3a 6d 65 |,menu%(M|enu%):me|
|00001a40| 6e 75 25 28 4d 65 6e 75 | 25 29 3d 30 0d 0a 00 49 |nu%(Menu|%)=0...I|
|00001a50| 62 6c 6f 63 6b 21 30 3d | 68 61 6e 64 6c 65 25 28 |block!0=|handle%(|
|00001a60| 4d 65 6e 75 25 29 3a c8 | 99 20 22 57 69 6d 70 5f |Menu%):.|. "Wimp_|
|00001a70| 44 65 6c 65 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |DeleteWi|ndow",,b|
|00001a80| 6c 6f 63 6b 3a 68 61 6e | 64 6c 65 25 28 4d 65 6e |lock:han|dle%(Men|
|00001a90| 75 25 29 3d 30 0d 0a 0a | 17 43 68 61 6e 67 65 64 |u%)=0...|.Changed|
|00001aa0| 25 3d b9 3a 4d 65 6e 75 | 25 3d 2d 31 0d 0a 14 16 |%=.:Menu|%=-1....|
|00001ab0| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |.. "Hour|glass_Of|
|00001ac0| 66 22 0d 0a 1e 05 cd 0d | 0a 28 12 c9 20 22 49 74 |f"......|.(.. "It|
|00001ad0| 65 6d 20 73 74 79 6c 65 | 22 0d 0a 32 21 70 25 3d |em style|"..2!p%=|
|00001ae0| 6d 65 6e 75 25 28 4d 65 | 6e 75 25 29 2b 32 38 2b |menu%(Me|nu%)+28+|
|00001af0| 28 49 74 65 6d 25 2a 32 | 34 29 0d 0a 3c 13 c8 8e |(Item%*2|4)..<...|
|00001b00| 20 a4 6f 70 74 69 6f 6e | 28 32 29 20 ca 0d 0a 46 | .option|(2) ...F|
|00001b10| 1f c9 20 22 44 61 74 61 | 22 3a e7 20 a4 6f 70 74 |.. "Data|":. .opt|
|00001b20| 69 6f 6e 28 33 29 3c 3e | 22 22 20 8c 0d 0a 50 41 |ion(3)<>|"" ...PA|
|00001b30| e7 20 28 70 25 21 38 20 | 80 20 26 31 30 30 29 3d |. (p%!8 |. &100)=|
|00001b40| 30 20 8c 20 70 25 21 31 | 32 3d 44 61 74 61 25 21 |0 . p%!1|2=Data%!|
|00001b50| 30 3a 70 25 21 31 36 3d | 44 61 74 61 25 21 34 3a |0:p%!16=|Data%!4:|
|00001b60| 70 25 21 32 30 3d 44 61 | 74 61 25 21 38 0d 0a 5a |p%!20=Da|ta%!8..Z|
|00001b70| 05 cd 0d 0a 64 10 c9 20 | 22 49 6e 64 69 72 65 63 |....d.. |"Indirec|
|00001b80| 74 22 0d 0a 6e 16 e7 20 | a4 6f 70 74 69 6f 6e 28 |t"..n.. |.option(|
|00001b90| 33 29 3c 3e 22 22 20 8c | 0d 0a 78 14 63 25 3d bb |3)<>"" .|..x.c%=.|
|00001ba0| 28 24 49 6e 64 69 72 65 | 63 74 25 29 0d 0a 82 2a |($Indire|ct%)...*|
|00001bb0| e7 20 63 25 3c 3d 31 20 | 84 20 63 25 3e 3d 32 35 |. c%<=1 |. c%>=25|
|00001bc0| 36 20 8c 20 85 20 31 2c | 22 49 6e 76 61 6c 69 64 |6 . . 1,|"Invalid|
|00001bd0| 20 73 69 7a 65 22 0d 0a | 8c 33 61 25 3d 70 25 21 | size"..|.3a%=p%!|
|00001be0| 31 32 3a 64 24 3d a4 73 | 74 72 69 6e 67 28 61 25 |12:d$=.s|tring(a%|
|00001bf0| 29 3a c8 99 20 22 4f 53 | 5f 48 65 61 70 22 2c 33 |):.. "OS|_Heap",3|
|00001c00| 2c 48 65 61 70 25 2c 61 | 25 0d 0a 96 31 64 24 3d |,Heap%,a|%...1d$=|
|00001c10| 64 24 2b c4 32 35 35 2d | a9 28 64 24 29 2c bd 28 |d$+.255-|.(d$),.(|
|00001c20| 30 29 29 3a 61 25 3d 30 | 3a f2 67 65 74 5f 62 6c |0)):a%=0|:.get_bl|
|00001c30| 6f 63 6b 28 61 25 2c 63 | 25 29 0d 0a a0 28 e3 20 |ock(a%,c|%)...(. |
|00001c40| 62 25 3d 30 20 b8 20 63 | 25 2d 32 3a 61 25 3f 62 |b%=0 . c|%-2:a%?b|
|00001c50| 25 3d 97 28 c1 64 24 2c | 62 25 2b 31 2c 31 29 29 |%=.(.d$,|b%+1,1))|
|00001c60| 3a ed 0d 0a aa 1d 61 25 | 3f 62 25 3d 30 3a 70 25 |:.....a%|?b%=0:p%|
|00001c70| 21 31 32 3d 61 25 3a 70 | 25 21 32 30 3d 63 25 0d |!12=a%:p|%!20=c%.|
|00001c80| 0a b4 05 cc 0d 0a be 13 | e7 20 70 25 21 38 20 80 |........|. p%!8 .|
|00001c90| 20 26 31 30 30 20 8c 0d | 0a c8 1f 70 25 21 38 3d | &100 ..|...p%!8=|
|00001ca0| 70 25 21 38 20 80 20 ac | 20 26 31 30 30 3a 61 25 |p%!8 . .| &100:a%|
|00001cb0| 3d 70 25 21 31 32 0d 0a | d2 2d 70 25 21 31 32 3d |=p%!12..|.-p%!12=|
|00001cc0| 61 25 21 30 3a 70 25 21 | 31 36 3d 61 25 21 34 3a |a%!0:p%!|16=a%!4:|
|00001cd0| 70 25 21 32 30 3d 61 25 | 21 38 3a 70 25 3f 32 33 |p%!20=a%|!8:p%?23|
|00001ce0| 3d 31 33 0d 0a dc 1b c8 | 99 20 22 4f 53 5f 48 65 |=13.....|. "OS_He|
|00001cf0| 61 70 22 2c 33 2c 48 65 | 61 70 25 2c 61 25 0d 0a |ap",3,He|ap%,a%..|
|00001d00| e6 05 cc 0d 0a f0 1a 61 | 25 3d 30 3a f2 67 65 74 |.......a|%=0:.get|
|00001d10| 5f 62 6c 6f 63 6b 28 61 | 25 2c 31 33 29 0d 0a fa |_block(a|%,13)...|
|00001d20| 2d 61 25 21 30 3d 70 25 | 21 31 32 3a 61 25 21 34 |-a%!0=p%|!12:a%!4|
|00001d30| 3d 70 25 21 31 36 3a 61 | 25 21 38 3d 70 25 21 32 |=p%!16:a|%!8=p%!2|
|00001d40| 30 3a 61 25 3f 31 32 3d | 31 33 0d 0b 04 2f 70 25 |0:a%?12=|13.../p%|
|00001d50| 21 38 3d 70 25 21 38 20 | 84 20 26 31 30 30 3a 70 |!8=p%!8 |. &100:p|
|00001d60| 25 21 31 32 3d 61 25 3a | 70 25 21 31 36 3d 2d 31 |%!12=a%:|p%!16=-1|
|00001d70| 3a 70 25 21 32 30 3d 31 | 33 0d 0b 0e 05 cd 0d 0b |:p%!20=1|3.......|
|00001d80| 18 05 cd 0d 0b 22 12 c9 | 20 22 56 61 6c 69 64 61 |....."..| "Valida|
|00001d90| 74 69 6f 6e 22 0d 0b 2c | 2c e7 20 70 25 21 31 36 |tion"..,|,. p%!16|
|00001da0| 3c 3e 2d 31 20 8c 20 c8 | 99 20 22 4f 53 5f 48 65 |<>-1 . .|. "OS_He|
|00001db0| 61 70 22 2c 33 2c 48 65 | 61 70 25 2c 70 25 21 31 |ap",3,He|ap%,p%!1|
|00001dc0| 36 0d 0b 36 16 64 24 3d | a4 73 74 72 69 6e 67 28 |6..6.d$=|.string(|
|00001dd0| 56 61 6c 69 64 25 29 0d | 0b 40 0e e7 20 64 24 3c |Valid%).|.@.. d$<|
|00001de0| 3e 22 22 20 8c 0d 0b 4a | 1f 61 25 3d 30 3a f2 67 |>"" ...J|.a%=0:.g|
|00001df0| 65 74 5f 62 6c 6f 63 6b | 28 61 25 2c a9 28 64 24 |et_block|(a%,.(d$|
|00001e00| 29 2b 31 29 0d 0b 54 13 | 24 61 25 3d 64 24 3a 70 |)+1)..T.|$a%=d$:p|
|00001e10| 25 21 31 36 3d 61 25 0d | 0b 5e 05 cc 0d 0b 68 0c |%!16=a%.|.^....h.|
|00001e20| 70 25 21 31 36 3d 2d 31 | 0d 0b 72 05 cd 0d 0b 7c |p%!16=-1|..r....||
|00001e30| 1f c9 20 22 46 6f 72 65 | 67 72 6f 75 6e 64 22 2c |.. "Fore|ground",|
|00001e40| 22 42 61 63 6b 67 72 6f | 75 6e 64 22 0d 0b 86 28 |"Backgro|und"...(|
|00001e50| 61 25 3d 28 94 28 a4 6f | 70 74 69 6f 6e 28 32 29 |a%=(.(.o|ption(2)|
|00001e60| 3d 22 42 61 63 6b 67 72 | 6f 75 6e 64 22 29 2a 34 |="Backgr|ound")*4|
|00001e70| 29 2b 32 34 0d 0b 90 2d | 70 25 21 38 3d 28 70 25 |)+24...-|p%!8=(p%|
|00001e80| 21 38 20 80 20 ac 28 26 | 46 3c 3c 61 25 29 29 20 |!8 . .(&|F<<a%)) |
|00001e90| 84 20 28 28 62 6c 6f 63 | 6b 21 38 29 3c 3c 61 25 |. ((bloc|k!8)<<a%|
|00001ea0| 29 0d 0b 9a 0f e3 20 61 | 25 3d 30 20 b8 20 31 35 |)..... a|%=0 . 15|
|00001eb0| 0d 0b a4 3a c8 99 20 22 | 4d 65 6e 75 5f 54 69 63 |...:.. "|Menu_Tic|
|00001ec0| 6b 22 2c 4d 65 6e 75 73 | 25 2c a4 6d 73 28 22 43 |k",Menus|%,.ms("C|
|00001ed0| 6f 6c 6f 75 72 73 3a 22 | 2b c3 28 61 25 29 29 2c |olours:"|+.(a%)),|
|00001ee0| 61 25 3d 62 6c 6f 63 6b | 21 38 0d 0b ae 05 ed 0d |a%=block|!8......|
|00001ef0| 0b b8 1a c9 20 22 54 69 | 63 6b 22 3a 70 25 21 30 |.... "Ti|ck":p%!0|
|00001f00| 3d 70 25 21 30 20 82 20 | 31 0d 0b c2 21 c9 20 22 |=p%!0 . |1...!. "|
|00001f10| 53 68 61 64 65 22 3a 70 | 25 21 38 3d 70 25 21 38 |Shade":p|%!8=p%!8|
|00001f20| 20 82 20 28 31 3c 3c 32 | 32 29 0d 0b cc 21 c9 20 | . (1<<2|2)...!. |
|00001f30| 22 44 6f 74 74 65 64 20 | 6c 69 6e 65 22 3a 70 25 |"Dotted |line":p%|
|00001f40| 21 30 3d 70 25 21 30 20 | 82 20 32 0d 0b d6 1e c9 |!0=p%!0 |. 2.....|
|00001f50| 20 22 4d 65 73 73 61 67 | 65 73 22 3a 70 25 21 30 | "Messag|es":p%!0|
|00001f60| 3d 70 25 21 30 20 82 20 | 38 0d 0b e0 1e c9 20 22 |=p%!0 . |8..... "|
|00001f70| 57 72 69 74 61 62 6c 65 | 22 3a 70 25 21 30 3d 70 |Writable|":p%!0=p|
|00001f80| 25 21 30 20 82 20 34 0d | 0b ea 12 c9 20 22 53 75 |%!0 . 4.|.... "Su|
|00001f90| 62 20 77 69 6e 64 6f 77 | 22 0d 0b f4 2e e7 20 70 |b window|"..... p|
|00001fa0| 25 21 34 3e 3d 30 20 8c | 20 85 20 31 2c 22 49 74 |%!4>=0 .| . 1,"It|
|00001fb0| 65 6d 20 69 73 20 6c 69 | 6e 6b 65 64 20 74 6f 20 |em is li|nked to |
|00001fc0| 61 20 6d 65 6e 75 22 0d | 0b fe 21 e7 20 70 25 21 |a menu".|..!. p%!|
|00001fd0| 34 3d 2d 32 20 8c 20 70 | 25 21 34 3d 2d 31 20 8b |4=-2 . p|%!4=-1 .|
|00001fe0| 20 70 25 21 34 3d 2d 32 | 0d 0c 08 05 cb 0d 0c 12 | p%!4=-2|........|
|00001ff0| 23 43 68 61 6e 67 65 64 | 25 3d b9 3a f2 64 69 73 |#Changed|%=.:.dis|
|00002000| 70 6c 61 79 5f 6d 65 6e | 75 28 4d 65 6e 75 25 29 |play_men|u(Menu%)|
|00002010| 0d 0c 1c 05 cb 0d 0c 26 | 05 cb 0d 0c 30 23 c8 99 |.......&|....0#..|
|00002020| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00002030| 72 49 6e 66 6f 22 2c 2c | 62 6c 6f 63 6b 0d 0c 3a |rInfo",,|block..:|
|00002040| 37 e7 20 28 62 6c 6f 63 | 6b 21 38 20 80 20 31 29 |7. (bloc|k!8 . 1)|
|00002050| 20 80 20 4d 65 6e 75 25 | 3c 3e 2d 31 20 8c 20 f2 | . Menu%|<>-1 . .|
|00002060| 6f 70 65 6e 5f 6d 65 6e | 75 28 30 2c 30 2c 4d 65 |open_men|u(0,0,Me|
|00002070| 6e 75 24 29 0d 0c 44 05 | e1 0d 0c 4e 05 3a 0d 0c |nu$)..D.|...N.:..|
|00002080| 58 11 dd 20 a4 6f 70 74 | 69 6f 6e 28 6e 25 29 0d |X.. .opt|ion(n%).|
|00002090| 0c 62 16 ea 20 69 25 2c | 73 24 3a 73 24 3d 53 65 |.b.. i%,|s$:s$=Se|
|000020a0| 6c 65 63 74 24 0d 0c 6c | 0b c8 95 20 6e 25 3e 31 |lect$..l|... n%>1|
|000020b0| 0d 0c 76 1c 69 25 3d a7 | 73 24 2c 22 2e 22 29 3a |..v.i%=.|s$,"."):|
|000020c0| e7 20 69 25 3d 30 20 8c | 20 3d 22 22 0d 0c 80 16 |. i%=0 .| =""....|
|000020d0| 73 24 3d c1 73 24 2c 69 | 25 2b 31 29 3a 6e 25 2d |s$=.s$,i|%+1):n%-|
|000020e0| 3d 31 0d 0c 8a 05 ce 0d | 0c 94 1f 69 25 3d a7 73 |=1......|...i%=.s|
|000020f0| 24 2c 22 2e 22 29 3a e7 | 20 69 25 3d 30 20 8c 20 |$,"."):.| i%=0 . |
|00002100| 69 25 3d 32 35 35 0d 0c | 9e 0e 3d c0 73 24 2c 69 |i%=255..|..=.s$,i|
|00002110| 25 2d 31 29 0d 0c a8 05 | 3a 0d 0c b2 23 dd 20 f2 |%-1)....|:...#. .|
|00002120| 64 72 61 67 5f 73 65 74 | 28 62 6c 6f 63 6b 21 30 |drag_set|(block!0|
|00002130| 2c 62 6c 6f 63 6b 21 34 | 2c 64 24 29 0d 0c bc 1e |,block!4|,d$)....|
|00002140| ea 20 71 25 3a 71 25 3d | 62 6c 6f 63 6b 2b 32 35 |. q%:q%=|block+25|
|00002150| 36 3a 44 72 61 67 24 3d | 64 24 0d 0c c6 21 c8 99 |6:Drag$=|d$...!..|
|00002160| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00002170| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 0d 0c d0 2d 71 |ate",,bl|ock...-q|
|00002180| 25 21 30 3d 62 6c 6f 63 | 6b 21 30 3a c8 99 20 22 |%!0=bloc|k!0:.. "|
|00002190| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|000021a0| 61 74 65 22 2c 2c 71 25 | 0d 0c da 21 62 6c 6f 63 |ate",,q%|...!bloc|
|000021b0| 6b 21 38 2b 3d 71 25 21 | 34 3a 62 6c 6f 63 6b 21 |k!8+=q%!|4:block!|
|000021c0| 31 32 2b 3d 71 25 21 31 | 36 0d 0c e4 22 62 6c 6f |12+=q%!1|6..."blo|
|000021d0| 63 6b 21 31 36 2b 3d 71 | 25 21 34 3a 62 6c 6f 63 |ck!16+=q|%!4:bloc|
|000021e0| 6b 21 32 30 2b 3d 71 25 | 21 31 36 0d 0c ee 3f 62 |k!20+=q%|!16...?b|
|000021f0| 6c 6f 63 6b 21 32 34 3d | 30 3a 62 6c 6f 63 6b 21 |lock!24=|0:block!|
|00002200| 32 38 3d 30 3a 62 6c 6f | 63 6b 21 33 32 3d 26 37 |28=0:blo|ck!32=&7|
|00002210| 46 46 46 46 46 46 46 3a | 62 6c 6f 63 6b 21 33 36 |FFFFFFF:|block!36|
|00002220| 3d 26 37 46 46 46 46 46 | 46 46 0d 0c f8 26 62 6c |=&7FFFFF|FF...&bl|
|00002230| 6f 63 6b 21 34 3d 35 3a | c8 99 20 22 57 69 6d 70 |ock!4=5:|.. "Wimp|
|00002240| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 62 6c 6f 63 6b |_DragBox|",,block|
|00002250| 0d 0d 02 05 e1 0d 0d 0c | 05 3a 0d 0d 16 1a dd 20 |........|.:..... |
|00002260| f2 6f 70 65 6e 5f 6d 65 | 6e 75 28 78 25 2c 79 25 |.open_me|nu(x%,y%|
|00002270| 2c 6d 24 29 0d 0d 20 1d | 4d 65 6e 75 24 3d 6d 24 |,m$).. .|Menu$=m$|
|00002280| 3a ea 20 61 25 2c 62 25 | 2c 69 25 2c 70 25 2c 76 |:. a%,b%|,i%,p%,v|
|00002290| 25 0d 0d 2a 0e c8 8e 20 | 4d 65 6e 75 24 20 ca 0d |%..*... |Menu$ ..|
|000022a0| 0d 34 16 c9 20 22 4d 65 | 6e 75 73 22 3a 4d 65 6e |.4.. "Me|nus":Men|
|000022b0| 75 25 3d 2d 32 0d 0d 3e | 11 c9 20 22 4d 65 6e 75 |u%=-2..>|.. "Menu|
|000022c0| 20 65 64 69 74 22 0d 0d | 48 3c 70 25 3d 6d 65 6e | edit"..|H<p%=men|
|000022d0| 75 25 28 4d 65 6e 75 25 | 29 2b 32 38 2b 28 49 74 |u%(Menu%|)+28+(It|
|000022e0| 65 6d 25 2a 32 34 29 3a | 6d 24 3d 22 4d 65 6e 75 |em%*24):|m$="Menu|
|000022f0| 20 65 64 69 74 3a 49 74 | 65 6d 20 73 74 79 6c 65 | edit:It|em style|
|00002300| 2e 22 0d 0d 52 1e 24 57 | 69 64 74 68 25 3d c3 28 |."..R.$W|idth%=.(|
|00002310| 6d 65 6e 75 25 28 4d 65 | 6e 75 25 29 21 31 36 29 |menu%(Me|nu%)!16)|
|00002320| 0d 0d 5c 4b 54 69 74 6c | 65 25 21 30 3d 6d 65 6e |..\KTitl|e%!0=men|
|00002330| 75 25 28 4d 65 6e 75 25 | 29 21 30 3a 54 69 74 6c |u%(Menu%|)!0:Titl|
|00002340| 65 25 21 34 3d 6d 65 6e | 75 25 28 4d 65 6e 75 25 |e%!4=men|u%(Menu%|
|00002350| 29 21 34 3a 54 69 74 6c | 65 25 21 38 3d 6d 65 6e |)!4:Titl|e%!8=men|
|00002360| 75 25 28 4d 65 6e 75 25 | 29 21 38 0d 0d 66 31 c8 |u%(Menu%|)!8..f1.|
|00002370| 99 20 22 4d 65 6e 75 5f | 54 69 63 6b 22 2c 4d 65 |. "Menu_|Tick",Me|
|00002380| 6e 75 73 25 2c a4 6d 73 | 28 6d 24 2b 22 54 69 63 |nus%,.ms|(m$+"Tic|
|00002390| 6b 22 29 2c 70 25 21 30 | 20 80 20 31 0d 0d 70 39 |k"),p%!0| . 1..p9|
|000023a0| c8 99 20 22 4d 65 6e 75 | 5f 54 69 63 6b 22 2c 4d |.. "Menu|_Tick",M|
|000023b0| 65 6e 75 73 25 2c a4 6d | 73 28 6d 24 2b 22 53 68 |enus%,.m|s(m$+"Sh|
|000023c0| 61 64 65 22 29 2c 28 70 | 25 21 38 3e 3e 3e 32 32 |ade"),(p|%!8>>>22|
|000023d0| 29 20 80 20 31 0d 0d 7a | 38 c8 99 20 22 4d 65 6e |) . 1..z|8.. "Men|
|000023e0| 75 5f 54 69 63 6b 22 2c | 4d 65 6e 75 73 25 2c a4 |u_Tick",|Menus%,.|
|000023f0| 6d 73 28 6d 24 2b 22 44 | 6f 74 74 65 64 20 6c 69 |ms(m$+"D|otted li|
|00002400| 6e 65 22 29 2c 70 25 21 | 30 20 80 20 32 0d 0d 84 |ne"),p%!|0 . 2...|
|00002410| 35 c8 99 20 22 4d 65 6e | 75 5f 54 69 63 6b 22 2c |5.. "Men|u_Tick",|
|00002420| 4d 65 6e 75 73 25 2c a4 | 6d 73 28 6d 24 2b 22 4d |Menus%,.|ms(m$+"M|
|00002430| 65 73 73 61 67 65 73 22 | 29 2c 70 25 21 30 20 80 |essages"|),p%!0 .|
|00002440| 20 38 0d 0d 8e 35 c8 99 | 20 22 4d 65 6e 75 5f 54 | 8...5..| "Menu_T|
|00002450| 69 63 6b 22 2c 4d 65 6e | 75 73 25 2c a4 6d 73 28 |ick",Men|us%,.ms(|
|00002460| 6d 24 2b 22 57 72 69 74 | 61 62 6c 65 22 29 2c 70 |m$+"Writ|able"),p|
|00002470| 25 21 30 20 80 20 34 0d | 0d 98 36 c8 99 20 22 4d |%!0 . 4.|..6.. "M|
|00002480| 65 6e 75 5f 54 69 63 6b | 22 2c 4d 65 6e 75 73 25 |enu_Tick|",Menus%|
|00002490| 2c a4 6d 73 28 6d 24 2b | 22 53 75 62 20 77 69 6e |,.ms(m$+|"Sub win|
|000024a0| 64 6f 77 22 29 2c 70 25 | 21 34 3d 2d 32 0d 0d a2 |dow"),p%|!4=-2...|
|000024b0| 43 c8 99 20 22 4d 65 6e | 75 5f 53 74 72 69 6e 67 |C.. "Men|u_String|
|000024c0| 54 6f 41 64 64 72 65 73 | 73 22 2c 4d 65 6e 75 73 |ToAddres|s",Menus|
|000024d0| 25 2c a4 6d 73 28 22 49 | 74 65 6d 20 64 61 74 61 |%,.ms("I|tem data|
|000024e0| 22 29 20 b8 20 2c 2c 61 | 25 3a 61 25 2b 3d 32 38 |") . ,,a|%:a%+=28|
|000024f0| 0d 0d ac 3e c8 99 20 22 | 4d 65 6e 75 5f 53 74 72 |...>.. "|Menu_Str|
|00002500| 69 6e 67 54 6f 41 64 64 | 72 65 73 73 22 2c 4d 65 |ingToAdd|ress",Me|
|00002510| 6e 75 73 25 2c a4 6d 73 | 28 6d 24 2b 22 49 6e 64 |nus%,.ms|(m$+"Ind|
|00002520| 69 72 65 63 74 22 29 20 | b8 20 2c 2c 69 25 0d 0d |irect") |. ,,i%..|
|00002530| b6 40 c8 99 20 22 4d 65 | 6e 75 5f 53 74 72 69 6e |.@.. "Me|nu_Strin|
|00002540| 67 54 6f 41 64 64 72 65 | 73 73 22 2c 4d 65 6e 75 |gToAddre|ss",Menu|
|00002550| 73 25 2c a4 6d 73 28 6d | 24 2b 22 56 61 6c 69 64 |s%,.ms(m|$+"Valid|
|00002560| 61 74 69 6f 6e 22 29 20 | b8 20 2c 2c 76 25 0d 0d |ation") |. ,,v%..|
|00002570| c0 13 e7 20 70 25 21 38 | 20 80 20 26 31 30 30 20 |... p%!8| . &100 |
|00002580| 8c 0d 0d ca 3b 61 25 21 | 31 32 3d 70 25 21 31 32 |....;a%!|12=p%!12|
|00002590| 3a 61 25 21 31 36 3d 70 | 25 21 31 36 3a 61 25 21 |:a%!16=p|%!16:a%!|
|000025a0| 32 30 3d 70 25 21 32 30 | 3a 24 49 6e 64 69 72 65 |20=p%!20|:$Indire|
|000025b0| 63 74 25 3d c3 28 70 25 | 21 32 30 29 0d 0d d4 43 |ct%=.(p%|!20)...C|
|000025c0| c8 99 20 22 4d 65 6e 75 | 5f 53 74 72 69 6e 67 54 |.. "Menu|_StringT|
|000025d0| 6f 41 64 64 72 65 73 73 | 22 2c 4d 65 6e 75 73 25 |oAddress|",Menus%|
|000025e0| 2c a4 6d 73 28 22 49 6e | 64 69 72 65 63 74 22 29 |,.ms("In|direct")|
|000025f0| 20 b8 20 2c 2c 61 25 3a | 69 25 21 34 3d 61 25 0d | . ,,a%:|i%!4=a%.|
|00002600| 0d de 18 76 25 21 38 3d | 76 25 21 38 20 80 20 ac |...v%!8=|v%!8 . .|
|00002610| 28 31 3c 3c 32 32 29 0d | 0d e8 45 c8 99 20 22 4d |(1<<22).|..E.. "M|
|00002620| 65 6e 75 5f 53 74 72 69 | 6e 67 54 6f 41 64 64 72 |enu_Stri|ngToAddr|
|00002630| 65 73 73 22 2c 4d 65 6e | 75 73 25 2c a4 6d 73 28 |ess",Men|us%,.ms(|
|00002640| 22 56 61 6c 69 64 61 74 | 69 6f 6e 22 29 20 b8 20 |"Validat|ion") . |
|00002650| 2c 2c 61 25 3a 76 25 21 | 34 3d 61 25 0d 0d f2 10 |,,a%:v%!|4=a%....|
|00002660| e7 20 70 25 21 31 36 3d | 2d 31 20 8c 0d 0d fc 0e |. p%!16=|-1 .....|
|00002670| 24 56 61 6c 69 64 25 3d | 22 22 0d 0e 06 05 cc 0d |$Valid%=|""......|
|00002680| 0e 10 15 6d 24 3d a4 73 | 74 72 69 6e 67 28 70 25 |...m$=.s|tring(p%|
|00002690| 21 31 36 29 0d 0e 1a 2b | e3 20 62 25 3d 30 20 b8 |!16)...+|. b%=0 .|
|000026a0| 20 a9 28 6d 24 29 2b 31 | 3a 56 61 6c 69 64 25 3f | .(m$)+1|:Valid%?|
|000026b0| 62 25 3d 62 25 3f 28 70 | 25 21 31 36 29 3a ed 0d |b%=b%?(p|%!16):..|
|000026c0| 0e 24 05 cd 0d 0e 2e 05 | cc 0d 0e 38 21 61 25 21 |.$......|...8!a%!|
|000026d0| 31 32 3d 44 61 74 61 25 | 3a 61 25 21 31 36 3d 2d |12=Data%|:a%!16=-|
|000026e0| 31 3a 61 25 21 32 30 3d | 31 33 0d 0e 42 2d 44 61 |1:a%!20=|13..B-Da|
|000026f0| 74 61 25 21 30 3d 70 25 | 21 31 32 3a 44 61 74 61 |ta%!0=p%|!12:Data|
|00002700| 25 21 34 3d 70 25 21 31 | 36 3a 44 61 74 61 25 21 |%!4=p%!1|6:Data%!|
|00002710| 38 3d 70 25 21 32 30 0d | 0e 4c 25 76 25 21 34 3d |8=p%!20.|.L%v%!4=|
|00002720| 2d 31 3a 69 25 21 34 3d | 2d 31 3a 76 25 21 38 3d |-1:i%!4=|-1:v%!8=|
|00002730| 76 25 21 38 20 84 20 31 | 3c 3c 32 32 0d 0e 56 05 |v%!8 . 1|<<22..V.|
|00002740| cd 0d 0e 60 05 cb 0d 0e | 6a 36 c8 99 20 22 4d 65 |...`....|j6.. "Me|
|00002750| 6e 75 5f 53 74 72 69 6e | 67 54 6f 41 64 64 72 65 |nu_Strin|gToAddre|
|00002760| 73 73 22 2c 4d 65 6e 75 | 73 25 2c a4 6d 73 28 4d |ss",Menu|s%,.ms(M|
|00002770| 65 6e 75 24 29 20 b8 20 | 2c 2c 70 25 0d 0e 74 22 |enu$) . |,,p%..t"|
|00002780| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00002790| 65 6e 75 22 2c 2c 70 25 | 2c 78 25 2c 79 25 0d 0e |enu",,p%|,x%,y%..|
|000027a0| 7e 05 e1 0d 0e 88 05 3a | 0d 0e 92 19 dd 20 f2 67 |~......:|..... .g|
|000027b0| 65 74 5f 62 6c 6f 63 6b | 28 f8 20 70 25 2c 73 25 |et_block|(. p%,s%|
|000027c0| 29 0d 0e 9c 08 ea 20 6c | 25 0d 0e a6 0c e7 20 70 |)..... l|%..... p|
|000027d0| 25 3d 30 20 8c 0d 0e b0 | 23 c8 99 20 22 4f 53 5f |%=0 ....|#.. "OS_|
|000027e0| 48 65 61 70 22 2c 32 2c | 48 65 61 70 25 2c 2c 73 |Heap",2,|Heap%,,s|
|000027f0| 25 20 b8 20 2c 2c 70 25 | 0d 0e ba 05 cc 0d 0e c4 |% . ,,p%|........|
|00002800| 25 c8 99 20 22 4f 53 5f | 48 65 61 70 22 2c 34 2c |%.. "OS_|Heap",4,|
|00002810| 48 65 61 70 25 2c 70 25 | 2c 73 25 20 b8 20 2c 2c |Heap%,p%|,s% . ,,|
|00002820| 70 25 0d 0e ce 05 cd 0d | 0e d8 05 e1 0d 0e e2 05 |p%......|........|
|00002830| 3a 0d 0e ec 10 dd 20 f2 | 63 68 65 63 6b 28 6d 25 |:..... .|check(m%|
|00002840| 29 0d 0e f6 08 ea 20 66 | 25 0d 0f 00 24 e7 20 28 |)..... f|%...$. (|
|00002850| 43 68 61 6e 67 65 64 25 | 20 80 20 c6 8e 28 6d 65 |Changed%| . ..(me|
|00002860| 6e 75 25 28 29 29 29 3d | 30 20 8c 20 e1 0d 0f 0a |nu%()))=|0 . ....|
|00002870| 54 62 6c 6f 63 6b 21 30 | 3d 30 3a 24 28 62 6c 6f |Tblock!0|=0:$(blo|
|00002880| 63 6b 2b 34 29 3d 22 46 | 69 6c 65 20 63 68 61 6e |ck+4)="F|ile chan|
|00002890| 67 65 64 2c 20 64 6f 20 | 79 6f 75 20 77 69 73 68 |ged, do |you wish|
|000028a0| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 20 77 69 74 | to cont|inue wit|
|000028b0| 68 20 74 68 69 73 20 6f | 70 65 72 61 74 69 6f 6e |h this o|peration|
|000028c0| 22 0d 0f 14 3e c8 99 20 | 22 57 69 6d 70 5f 52 65 |"...>.. |"Wimp_Re|
|000028d0| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 6c 6f 63 6b |portErro|r",block|
|000028e0| 2c 31 39 2c 22 4d 65 73 | 73 61 67 65 20 66 72 6f |,19,"Mes|sage fro|
|000028f0| 6d 20 21 4d 65 6e 75 73 | 22 20 b8 20 2c 66 25 0d |m !Menus|" . ,f%.|
|00002900| 0f 1e 0e e7 20 66 25 3d | 31 20 8c 20 e1 0d 0f 28 |.... f%=|1 . ...(|
|00002910| 43 e7 20 6d 25 3d 31 20 | 8c 20 63 6f 70 79 21 31 |C. m%=1 |. copy!1|
|00002920| 32 3d 63 6f 70 79 21 38 | 3a 63 6f 70 79 21 31 36 |2=copy!8|:copy!16|
|00002930| 3d 30 3a c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |=0:.. "W|imp_Send|
|00002940| 4d 65 73 73 61 67 65 22 | 2c 31 39 2c 63 6f 70 79 |Message"|,19,copy|
|00002950| 0d 0f 32 12 85 20 31 2c | 22 50 6f 6c 6c 4c 6f 6f |..2.. 1,|"PollLoo|
|00002960| 70 22 0d 0f 3c 05 e1 0d | 0f 46 05 3a 0d 0f 50 0c |p"..<...|.F.:..P.|
|00002970| dd 20 f2 65 72 72 6f 72 | 0d 0f 5a 18 c8 99 20 22 |. .error|..Z... "|
|00002980| 48 6f 75 72 67 6c 61 73 | 73 5f 53 6d 61 73 68 22 |Hourglas|s_Smash"|
|00002990| 0d 0f 64 17 e7 20 f6 24 | 3d 22 50 6f 6c 6c 4c 6f |..d.. .$|="PollLo|
|000029a0| 6f 70 22 20 8c 20 e1 0d | 0f 6e 10 e7 20 54 65 73 |op" . ..|.n.. Tes|
|000029b0| 74 69 6e 67 25 20 8c 0d | 0f 78 17 c8 99 20 22 57 |ting% ..|.x... "W|
|000029c0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 0d 0f |imp_Clos|eDown"..|
|000029d0| 82 09 2a 46 58 20 34 0d | 0f 8c 07 ef 20 34 0d 0f |..*FX 4.|.... 4..|
|000029e0| 96 0d fb 20 37 3a fb 20 | 31 32 38 0d 0f a0 1b f1 |... 7:. |128.....|
|000029f0| 8a 30 2c 30 29 3b f6 24 | 3b 22 20 61 74 20 6c 69 |.0,0);.$|;" at li|
|00002a00| 6e 65 20 22 3b 9e 0d 0f | aa 05 e0 0d 0f b4 05 cc |ne ";...|........|
|00002a10| 0d 0f be 22 c8 99 20 22 | 57 69 6d 70 5f 44 72 61 |...".. "|Wimp_Dra|
|00002a20| 67 42 6f 78 22 2c 2c 2d | 31 3a 44 72 61 67 24 3d |gBox",,-|1:Drag$=|
|00002a30| 22 22 0d 0f c8 25 c8 99 | 20 22 57 69 6d 70 5f 43 |""...%..| "Wimp_C|
|00002a40| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 3a 4d |reateMen|u",,-1:M|
|00002a50| 65 6e 75 24 3d 22 22 0d | 0f d2 57 62 6c 6f 63 6b |enu$="".|..Wblock|
|00002a60| 21 30 3d 9f 3a 24 28 62 | 6c 6f 63 6b 2b 34 29 3d |!0=.:$(b|lock+4)=|
|00002a70| f6 24 2b 22 20 28 61 74 | 20 6c 69 6e 65 20 22 2b |.$+" (at| line "+|
|00002a80| c3 28 9e 29 2b 22 29 22 | 3a c8 99 20 22 57 69 6d |.(.)+")"|:.. "Wim|
|00002a90| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00002aa0| 6c 6f 63 6b 2c 31 2c 22 | 4d 65 6e 75 73 22 0d 0f |lock,1,"|Menus"..|
|00002ab0| dc 05 cd 0d 0f e6 05 e1 | 0d 0f f0 05 3a 0d 0f fa |........|....:...|
|00002ac0| 0e dd 20 f2 77 69 6e 64 | 6f 77 73 0d 10 04 0e de |.. .wind|ows.....|
|00002ad0| 20 62 61 73 65 25 20 38 | 38 0d 10 0e 17 de 20 62 | base% 8|8..... b|
|00002ae0| 75 66 66 65 72 20 35 30 | 32 2c 65 6e 64 20 2d 31 |uffer 50|2,end -1|
|00002af0| 0d 10 18 33 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...3.. "|Wimp_Ope|
|00002b00| 6e 54 65 6d 70 6c 61 74 | 65 22 2c 2c 22 3c 4d 65 |nTemplat|e",,"<Me|
|00002b10| 6e 75 73 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |nus$Dir>|.Templat|
|00002b20| 65 73 22 0d 10 22 3e f2 | 6c 6f 61 64 5f 74 65 6d |es"..">.|load_tem|
|00002b30| 70 28 22 4d 65 6e 75 42 | 61 73 65 22 29 3a e3 20 |p("MenuB|ase"):. |
|00002b40| 61 25 3d 30 20 b8 20 38 | 34 20 88 20 34 3a 62 61 |a%=0 . 8|4 . 4:ba|
|00002b50| 73 65 25 21 61 25 3d 62 | 6c 6f 63 6b 21 61 25 3a |se%!a%=b|lock!a%:|
|00002b60| ed 0d 10 2c 3c f2 6c 6f | 61 64 5f 74 65 6d 70 28 |...,<.lo|ad_temp(|
|00002b70| 22 4c 69 6e 6b 22 29 3a | c8 99 20 22 57 69 6d 70 |"Link"):|.. "Wimp|
|00002b80| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00002b90| 62 6c 6f 63 6b 20 b8 20 | 4c 69 6e 6b 25 0d 10 36 |block . |Link%..6|
|00002ba0| 3c f2 6c 6f 61 64 5f 74 | 65 6d 70 28 22 53 61 76 |<.load_t|emp("Sav|
|00002bb0| 65 22 29 3a c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |e"):.. "|Wimp_Cre|
|00002bc0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |ateWindo|w",,bloc|
|00002bd0| 6b 20 b8 20 53 61 76 65 | 25 0d 10 40 3c f2 6c 6f |k . Save|%..@<.lo|
|00002be0| 61 64 5f 74 65 6d 70 28 | 22 49 6e 66 6f 22 29 3a |ad_temp(|"Info"):|
|00002bf0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |.. "Wimp|_CreateW|
|00002c00| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 20 b8 20 |indow",,|block . |
|00002c10| 49 6e 66 6f 25 0d 10 4a | 1b c8 99 20 22 57 69 6d |Info%..J|... "Wim|
|00002c20| 70 5f 43 6c 6f 73 65 54 | 65 6d 70 6c 61 74 65 22 |p_CloseT|emplate"|
|00002c30| 0d 10 54 33 46 69 6c 65 | 6e 61 6d 65 25 3d a4 69 |..T3File|name%=.i|
|00002c40| 6e 64 69 72 65 63 74 28 | 53 61 76 65 25 2c 31 29 |ndirect(|Save%,1)|
|00002c50| 3a 24 46 69 6c 65 6e 61 | 6d 65 25 3d 22 4d 65 6e |:$Filena|me%="Men|
|00002c60| 75 73 22 0d 10 5e 0e 62 | 6c 6f 63 6b 21 30 3d 2d |us"..^.b|lock!0=-|
|00002c70| 31 0d 10 68 2f 62 6c 6f | 63 6b 21 34 3d 30 3a 62 |1..h/blo|ck!4=0:b|
|00002c80| 6c 6f 63 6b 21 38 3d 30 | 3a 62 6c 6f 63 6b 21 31 |lock!8=0|:block!1|
|00002c90| 32 3d 36 38 3a 62 6c 6f | 63 6b 21 31 36 3d 36 38 |2=68:blo|ck!16=68|
|00002ca0| 0d 10 72 27 62 6c 6f 63 | 6b 21 32 30 3d 26 33 30 |..r'bloc|k!20=&30|
|00002cb0| 30 32 3a 24 28 62 6c 6f | 63 6b 2b 32 34 29 3d 22 |02:$(blo|ck+24)="|
|00002cc0| 21 4d 65 6e 75 73 22 0d | 10 7c 27 c8 99 20 22 57 |!Menus".|.|'.. "W|
|00002cd0| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|00002ce0| 2c 62 6c 6f 63 6b 20 b8 | 20 49 63 6f 6e 25 0d 10 |,block .| Icon%..|
|00002cf0| 86 05 e1 0d 10 90 05 3a | 0d 10 9a 14 dd 20 f2 6c |.......:|..... .l|
|00002d00| 6f 61 64 5f 74 65 6d 70 | 28 66 24 29 0d 10 a4 45 |oad_temp|(f$)...E|
|00002d10| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00002d20| 70 6c 61 74 65 22 2c 2c | 62 6c 6f 63 6b 2c 62 75 |plate",,|block,bu|
|00002d30| 66 66 65 72 2c 65 6e 64 | 2c 2d 31 2c 66 24 2c 30 |ffer,end|,-1,f$,0|
|00002d40| 20 b8 20 2c 2c 62 75 66 | 66 65 72 2c 2c 2c 2c 66 | . ,,buf|fer,,,,f|
|00002d50| 25 0d 10 ae 2e e7 20 66 | 25 3d 30 20 8c 20 85 20 |%..... f|%=0 . . |
|00002d60| 31 2c 22 54 65 6d 70 6c | 61 74 65 20 27 22 2b 66 |1,"Templ|ate '"+f|
|00002d70| 24 2b 22 27 20 6e 6f 74 | 20 66 6f 75 6e 64 22 0d |$+"' not| found".|
|00002d80| 10 b8 05 e1 0d 10 c2 05 | 3a 0d 10 cc 20 dd 20 a4 |........|:... . .|
|00002d90| 69 6e 64 69 72 65 63 74 | 28 62 6c 6f 63 6b 21 30 |indirect|(block!0|
|00002da0| 2c 62 6c 6f 63 6b 21 34 | 29 0d 10 d6 21 c8 99 20 |,block!4|)...!.. |
|00002db0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00002dc0| 74 65 22 2c 2c 62 6c 6f | 63 6b 0d 10 e0 3d e7 20 |te",,blo|ck...=. |
|00002dd0| 62 6c 6f 63 6b 21 32 34 | 20 80 20 26 31 30 30 20 |block!24| . &100 |
|00002de0| 8c 20 3d 62 6c 6f 63 6b | 21 32 38 20 8b 20 85 20 |. =block|!28 . . |
|00002df0| 31 2c 22 49 63 6f 6e 20 | 6e 6f 74 20 69 6e 64 69 |1,"Icon |not indi|
|00002e00| 72 65 63 74 65 64 22 0d | 10 ea 05 3a 0d 10 f4 0d |rected".|...:....|
|00002e10| dd 20 a4 6d 73 28 73 24 | 29 0d 10 fe 08 ea 20 61 |. .ms(s$|)..... a|
|00002e20| 25 0d 11 08 12 e3 20 61 | 25 3d 31 20 b8 20 a9 28 |%..... a|%=1 . .(|
|00002e30| 73 24 29 0d 11 12 34 e7 | 20 c1 73 24 2c 61 25 2c |s$)...4.| .s$,a%,|
|00002e40| 31 29 3d 22 2e 22 20 84 | 20 c1 73 24 2c 61 25 2c |1)="." .| .s$,a%,|
|00002e50| 31 29 3d 22 3a 22 20 8c | 20 c1 73 24 2c 61 25 2c |1)=":" .| .s$,a%,|
|00002e60| 31 29 3d bd 28 30 29 0d | 11 1c 05 ed 0d 11 26 11 |1)=.(0).|......&.|
|00002e70| 3d 73 24 2b bd 28 30 29 | 2b bd 28 30 29 0d 11 30 |=s$+.(0)|+.(0)..0|
|00002e80| 05 3a 0d 11 3a 11 dd 20 | a4 73 74 72 69 6e 67 28 |.:..:.. |.string(|
|00002e90| 61 25 29 0d 11 44 08 ea | 20 73 24 0d 11 4e 0f c8 |a%)..D..| s$..N..|
|00002ea0| 95 20 61 25 3f 30 3e 3d | 33 32 0d 11 58 15 73 24 |. a%?0>=|32..X.s$|
|00002eb0| 2b 3d bd 28 61 25 3f 30 | 29 3a 61 25 2b 3d 31 0d |+=.(a%?0|):a%+=1.|
|00002ec0| 11 62 05 ce 0d 11 6c 07 | 3d 73 24 0d 11 76 05 3a |.b....l.|=s$..v.:|
|00002ed0| 0d 11 80 0f dd 20 a4 6c | 65 61 66 28 73 24 29 0d |..... .l|eaf(s$).|
|00002ee0| 11 8a 0f c8 95 20 a7 73 | 24 2c 22 2e 22 29 0d 11 |..... .s|$,".")..|
|00002ef0| 94 16 73 24 3d c1 73 24 | 2c a7 73 24 2c 22 2e 22 |..s$=.s$|,.s$,"."|
|00002f00| 29 2b 31 29 0d 11 9e 05 | ce 0d 11 a8 07 3d 73 24 |)+1)....|.....=s$|
|00002f10| 0d 11 b2 05 3a 0d 11 bc | 0c dd 20 f2 6d 65 6e 75 |....:...|.. .menu|
|00002f20| 73 0d 11 c6 0b ea 20 61 | 64 64 72 25 0d 11 d0 41 |s..... a|ddr%...A|
|00002f30| 66 25 3d 8e 28 22 3c 4d | 65 6e 75 73 24 44 69 72 |f%=.("<M|enus$Dir|
|00002f40| 3e 2e 4d 65 6e 75 73 22 | 29 3a e7 20 66 25 3d 30 |>.Menus"|):. f%=0|
|00002f50| 20 8c 20 85 20 31 2c 22 | 43 61 6e 27 74 20 66 69 | . . 1,"|Can't fi|
|00002f60| 6c 65 20 6d 65 6e 75 20 | 66 69 6c 65 22 0d 11 da |le menu |file"...|
|00002f70| 1c 78 25 3d a2 23 66 25 | 3a d9 23 66 25 3a de 20 |.x%=.#f%|:.#f%:. |
|00002f80| 4d 65 6e 75 73 25 20 78 | 25 0d 11 e4 2e c8 99 20 |Menus% x|%...... |
|00002f90| 22 4f 53 5f 46 69 6c 65 | 22 2c 31 36 2c 22 3c 4d |"OS_File|",16,"<M|
|00002fa0| 65 6e 75 73 24 44 69 72 | 3e 2e 4d 65 6e 75 73 22 |enus$Dir|>.Menus"|
|00002fb0| 2c 4d 65 6e 75 73 25 0d | 11 ee 1e c8 99 20 22 4d |,Menus%.|..... "M|
|00002fc0| 65 6e 75 5f 43 61 6c 63 | 75 6c 61 74 65 22 2c 4d |enu_Calc|ulate",M|
|00002fd0| 65 6e 75 73 25 0d 11 f8 | 04 0d 12 02 46 f4 20 2d |enus%...|....F. -|
|00002fe0| 2d 2d 2d 2d 2d 2d 20 48 | 61 63 6b 65 64 20 74 6f |------ H|acked to|
|00002ff0| 20 77 6f 72 6b 20 75 6e | 64 65 72 20 52 49 53 43 | work un|der RISC|
|00003000| 2d 4f 53 20 33 20 62 79 | 20 50 61 75 6c 20 48 6f |-OS 3 by| Paul Ho|
|00003010| 62 62 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |bbs ----|-------.|
|00003020| 12 0c 48 f4 20 64 6f 65 | 73 6e 27 74 20 77 6f 72 |..H. doe|sn't wor|
|00003030| 6b 20 62 65 63 61 75 73 | 65 20 77 69 6e 64 6f 77 |k becaus|e window|
|00003040| 20 68 61 6e 64 6c 65 73 | 20 75 6e 64 65 72 20 52 | handles| under R|
|00003050| 49 53 43 2d 4f 53 20 33 | 20 63 61 6e 20 62 65 20 |ISC-OS 3| can be |
|00003060| 67 72 65 61 74 65 72 0d | 12 16 45 f4 20 74 68 61 |greater.|..E. tha|
|00003070| 6e 20 26 38 30 30 30 20 | 73 6f 20 77 65 20 68 61 |n &8000 |so we ha|
|00003080| 76 65 20 74 6f 20 61 76 | 6f 69 64 20 63 61 6c 6c |ve to av|oid call|
|00003090| 69 6e 67 20 53 59 53 20 | 22 4d 65 6e 75 5f 53 65 |ing SYS |"Menu_Se|
|000030a0| 74 53 75 62 48 61 6e 64 | 6c 65 22 21 0d 12 20 3d |tSubHand|le"!.. =|
|000030b0| f4 20 53 59 53 20 22 4d | 65 6e 75 5f 53 65 74 53 |. SYS "M|enu_SetS|
|000030c0| 75 62 48 61 6e 64 6c 65 | 22 2c 4d 65 6e 75 73 25 |ubHandle|",Menus%|
|000030d0| 2c 46 4e 6d 73 28 22 4d | 65 6e 75 73 3a 49 6e 66 |,FNms("M|enus:Inf|
|000030e0| 6f 22 29 2c 49 6e 66 6f | 25 0d 12 2a 3d f4 20 53 |o"),Info|%..*=. S|
|000030f0| 59 53 20 22 4d 65 6e 75 | 5f 53 65 74 53 75 62 48 |YS "Menu|_SetSubH|
|00003100| 61 6e 64 6c 65 22 2c 4d | 65 6e 75 73 25 2c 46 4e |andle",M|enus%,FN|
|00003110| 6d 73 28 22 4d 65 6e 75 | 73 3a 53 61 76 65 22 29 |ms("Menu|s:Save")|
|00003120| 2c 53 61 76 65 25 0d 12 | 34 46 f4 20 53 59 53 20 |,Save%..|4F. SYS |
|00003130| 22 4d 65 6e 75 5f 53 65 | 74 53 75 62 48 61 6e 64 |"Menu_Se|tSubHand|
|00003140| 6c 65 22 2c 4d 65 6e 75 | 73 25 2c 46 4e 6d 73 28 |le",Menu|s%,FNms(|
|00003150| 22 4d 65 6e 75 20 65 64 | 69 74 3a 4c 69 6e 6b 20 |"Menu ed|it:Link |
|00003160| 6d 65 6e 75 22 29 2c 4c | 69 6e 6b 25 0d 12 3e 4e |menu"),L|ink%..>N|
|00003170| c8 99 20 22 4d 65 6e 75 | 5f 53 74 72 69 6e 67 54 |.. "Menu|_StringT|
|00003180| 6f 41 64 64 72 65 73 73 | 22 2c 4d 65 6e 75 73 25 |oAddress|",Menus%|
|00003190| 2c a4 6d 73 28 22 4d 65 | 6e 75 73 3a 49 6e 66 6f |,.ms("Me|nus:Info|
|000031a0| 22 29 20 b8 20 2c 2c 61 | 64 64 72 25 3a 61 64 64 |") . ,,a|ddr%:add|
|000031b0| 72 25 21 34 3d 49 6e 66 | 6f 25 0d 12 48 4e c8 99 |r%!4=Inf|o%..HN..|
|000031c0| 20 22 4d 65 6e 75 5f 53 | 74 72 69 6e 67 54 6f 41 | "Menu_S|tringToA|
|000031d0| 64 64 72 65 73 73 22 2c | 4d 65 6e 75 73 25 2c a4 |ddress",|Menus%,.|
|000031e0| 6d 73 28 22 4d 65 6e 75 | 73 3a 53 61 76 65 22 29 |ms("Menu|s:Save")|
|000031f0| 20 b8 20 2c 2c 61 64 64 | 72 25 3a 61 64 64 72 25 | . ,,add|r%:addr%|
|00003200| 21 34 3d 53 61 76 65 25 | 0d 12 52 57 c8 99 20 22 |!4=Save%|..RW.. "|
|00003210| 4d 65 6e 75 5f 53 74 72 | 69 6e 67 54 6f 41 64 64 |Menu_Str|ingToAdd|
|00003220| 72 65 73 73 22 2c 4d 65 | 6e 75 73 25 2c a4 6d 73 |ress",Me|nus%,.ms|
|00003230| 28 22 4d 65 6e 75 20 65 | 64 69 74 3a 4c 69 6e 6b |("Menu e|dit:Link|
|00003240| 20 6d 65 6e 75 22 29 20 | b8 20 2c 2c 61 64 64 72 | menu") |. ,,addr|
|00003250| 25 3a 61 64 64 72 25 21 | 34 3d 4c 69 6e 6b 25 0d |%:addr%!|4=Link%.|
|00003260| 12 5c 04 0d 12 66 46 f4 | 20 2d 2d 2d 2d 2d 2d 2d |.\...fF.| -------|
|00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 12 70 04 0d 12 7a |--------|-..p...z|
|000032b0| 1d c8 99 20 22 4d 65 6e | 75 5f 56 61 6c 69 64 61 |... "Men|u_Valida|
|000032c0| 74 65 22 2c 4d 65 6e 75 | 73 25 0d 12 84 3b c8 99 |te",Menu|s%...;..|
|000032d0| 20 22 4d 65 6e 75 5f 47 | 65 74 49 6e 64 69 72 65 | "Menu_G|etIndire|
|000032e0| 63 74 22 2c 4d 65 6e 75 | 73 25 2c a4 6d 73 28 22 |ct",Menu|s%,.ms("|
|000032f0| 54 69 74 6c 65 22 29 2c | 30 20 b8 20 2c 2c 2c 54 |Title"),|0 . ,,,T|
|00003300| 69 74 6c 65 25 0d 12 8e | 3b c8 99 20 22 4d 65 6e |itle%...|;.. "Men|
|00003310| 75 5f 47 65 74 49 6e 64 | 69 72 65 63 74 22 2c 4d |u_GetInd|irect",M|
|00003320| 65 6e 75 73 25 2c a4 6d | 73 28 22 57 69 64 74 68 |enus%,.m|s("Width|
|00003330| 22 29 2c 30 20 b8 20 2c | 2c 2c 57 69 64 74 68 25 |"),0 . ,|,,Width%|
|00003340| 0d 12 98 41 c8 99 20 22 | 4d 65 6e 75 5f 47 65 74 |...A.. "|Menu_Get|
|00003350| 49 6e 64 69 72 65 63 74 | 22 2c 4d 65 6e 75 73 25 |Indirect|",Menus%|
|00003360| 2c a4 6d 73 28 22 49 6e | 64 69 72 65 63 74 22 29 |,.ms("In|direct")|
|00003370| 2c 30 20 b8 20 2c 2c 2c | 49 6e 64 69 72 65 63 74 |,0 . ,,,|Indirect|
|00003380| 25 0d 12 a2 3e c8 99 20 | 22 4d 65 6e 75 5f 47 65 |%...>.. |"Menu_Ge|
|00003390| 74 49 6e 64 69 72 65 63 | 74 22 2c 4d 65 6e 75 73 |tIndirec|t",Menus|
|000033a0| 25 2c a4 6d 73 28 22 49 | 74 65 6d 20 64 61 74 61 |%,.ms("I|tem data|
|000033b0| 22 29 2c 30 20 b8 20 2c | 2c 2c 44 61 74 61 25 0d |"),0 . ,|,,Data%.|
|000033c0| 12 ac 40 c8 99 20 22 4d | 65 6e 75 5f 47 65 74 49 |..@.. "M|enu_GetI|
|000033d0| 6e 64 69 72 65 63 74 22 | 2c 4d 65 6e 75 73 25 2c |ndirect"|,Menus%,|
|000033e0| a4 6d 73 28 22 56 61 6c | 69 64 61 74 69 6f 6e 22 |.ms("Val|idation"|
|000033f0| 29 2c 30 20 b8 20 2c 2c | 2c 56 61 6c 69 64 25 0d |),0 . ,,|,Valid%.|
|00003400| 12 b6 05 e1 0d 12 c0 05 | 3a 0d 12 ca 18 dd 20 f2 |........|:..... .|
|00003410| 63 72 65 61 74 65 5f 6d | 65 6e 75 28 f8 20 6d 25 |create_m|enu(. m%|
|00003420| 29 0d 12 d4 0e ea 20 61 | 25 3a 6d 25 3d 2d 31 0d |)..... a|%:m%=-1.|
|00003430| 12 de 0f e3 20 61 25 3d | 30 20 b8 20 34 37 0d 12 |.... a%=|0 . 47..|
|00003440| e8 20 e7 20 6d 65 6e 75 | 25 28 61 25 29 3d 30 20 |. . menu|%(a%)=0 |
|00003450| 8c 20 6d 25 3d 61 25 3a | 61 25 3d 32 35 36 0d 12 |. m%=a%:|a%=256..|
|00003460| f2 05 ed 0d 12 fc 2f e7 | 20 6d 25 3d 2d 31 20 8c |....../.| m%=-1 .|
|00003470| 20 85 20 31 2c 22 4e 6f | 20 72 6f 6f 6d 20 66 6f | . 1,"No| room fo|
|00003480| 72 20 6d 65 6e 75 20 64 | 65 66 69 6e 69 74 69 6f |r menu d|efinitio|
|00003490| 6e 22 0d 13 06 37 f2 67 | 65 74 5f 62 6c 6f 63 6b |n"...7.g|et_block|
|000034a0| 28 6d 65 6e 75 25 28 6d | 25 29 2c 35 36 29 3a 68 |(menu%(m|%),56):h|
|000034b0| 61 6e 64 6c 65 25 28 6d | 25 29 3d 30 3a 61 25 3d |andle%(m|%)=0:a%=|
|000034c0| 6d 65 6e 75 25 28 6d 25 | 29 0d 13 10 28 61 25 21 |menu%(m%|)...(a%!|
|000034d0| 30 3d 30 3a 61 25 21 34 | 3d 30 3a 61 25 21 38 3d |0=0:a%!4|=0:a%!8=|
|000034e0| 30 3a 61 25 21 31 32 3d | 26 30 30 30 37 30 32 30 |0:a%!12=|&0007020|
|000034f0| 37 0d 13 1a 1e 61 25 21 | 31 36 3d 32 30 30 3a 61 |7....a%!|16=200:a|
|00003500| 25 21 32 30 3d 34 34 3a | 61 25 21 32 34 3d 30 0d |%!20=44:|a%!24=0.|
|00003510| 13 24 26 61 25 21 32 38 | 3d 26 38 30 3a 61 25 21 |.$&a%!28|=&80:a%!|
|00003520| 33 32 3d 2d 31 3a 61 25 | 21 33 36 3d 26 30 37 30 |32=-1:a%|!36=&070|
|00003530| 30 30 30 33 31 0d 13 2e | 3a 61 25 21 34 30 3d 30 |00031...|:a%!40=0|
|00003540| 3a 61 25 21 34 34 3d 30 | 3a 61 25 21 34 38 3d 30 |:a%!44=0|:a%!48=0|
|00003550| 3a 61 25 21 35 32 3d 30 | 3a 24 28 61 25 2b 34 30 |:a%!52=0|:$(a%+40|
|00003560| 29 3d 22 3c 4c 65 61 66 | 20 69 74 65 6d 3e 22 0d |)="<Leaf| item>".|
|00003570| 13 38 1f 24 61 25 3d 22 | 3c 55 6e 74 69 74 6c 65 |.8.$a%="|<Untitle|
|00003580| 64 3e 22 3a 43 68 61 6e | 67 65 64 25 3d b9 0d 13 |d>":Chan|ged%=...|
|00003590| 42 05 e1 0d 13 4c 05 3a | 0d 13 56 17 dd 20 f2 64 |B....L.:|..V.. .d|
|000035a0| 69 73 70 6c 61 79 5f 6d | 65 6e 75 28 6d 25 29 0d |isplay_m|enu(m%).|
|000035b0| 13 60 22 ea 20 61 25 2c | 70 25 2c 69 63 6f 6e 25 |.`". a%,|p%,icon%|
|000035c0| 2c 79 25 2c 6e 69 25 2c | 66 25 2c 77 69 64 74 68 |,y%,ni%,|f%,width|
|000035d0| 25 0d 13 6a 15 e7 20 68 | 61 6e 64 6c 65 25 28 6d |%..j.. h|andle%(m|
|000035e0| 25 29 3d 30 20 8c 0d 13 | 74 27 e3 20 61 25 3d 30 |%)=0 ...|t'. a%=0|
|000035f0| 20 b8 20 38 34 20 88 20 | 34 3a 62 6c 6f 63 6b 21 | . 84 . |4:block!|
|00003600| 61 25 3d 62 61 73 65 25 | 21 61 25 3a ed 0d 13 7e |a%=base%|!a%:...~|
|00003610| 16 61 25 3d 6d 65 6e 75 | 25 28 6d 25 29 21 31 36 |.a%=menu|%(m%)!16|
|00003620| 2b 36 34 0d 13 88 2e e7 | 20 4f 70 65 6e 58 25 2b |+64.....| OpenX%+|
|00003630| 61 25 3e 3d 31 32 38 30 | 20 8c 20 4f 70 65 6e 58 |a%>=1280| . OpenX|
|00003640| 25 3d 31 32 38 3a 4f 70 | 65 6e 59 25 2d 3d 31 32 |%=128:Op|enY%-=12|
|00003650| 38 0d 13 92 22 e7 20 4f | 70 65 6e 59 25 3c 32 35 |8...". O|penY%<25|
|00003660| 36 20 8c 20 4f 70 65 6e | 59 25 3d 31 30 32 34 2d |6 . Open|Y%=1024-|
|00003670| 31 32 38 0d 13 9c 2d 62 | 6c 6f 63 6b 21 30 3d 4f |128...-b|lock!0=O|
|00003680| 70 65 6e 58 25 3a 62 6c | 6f 63 6b 21 31 32 3d 4f |penX%:bl|ock!12=O|
|00003690| 70 65 6e 59 25 3a 4f 70 | 65 6e 58 25 2b 3d 61 25 |penY%:Op|enX%+=a%|
|000036a0| 0d 13 a6 05 cc 0d 13 b0 | 17 62 6c 6f 63 6b 21 30 |........|.block!0|
|000036b0| 3d 68 61 6e 64 6c 65 25 | 28 6d 25 29 0d 13 ba 40 |=handle%|(m%)...@|
|000036c0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|000036d0| 6f 77 49 6e 66 6f 22 2c | 2c 62 6c 6f 63 6b 3a c8 |owInfo",|,block:.|
|000036e0| 99 20 22 57 69 6d 70 5f | 44 65 6c 65 74 65 57 69 |. "Wimp_|DeleteWi|
|000036f0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 0d 13 c4 2b |ndow",,b|lock...+|
|00003700| e3 20 61 25 3d 30 20 b8 | 20 38 34 20 88 20 34 3a |. a%=0 .| 84 . 4:|
|00003710| 62 6c 6f 63 6b 21 61 25 | 3d 62 6c 6f 63 6b 21 28 |block!a%|=block!(|
|00003720| 61 25 2b 34 29 3a ed 0d | 13 ce 05 cd 0d 13 d8 33 |a%+4):..|.......3|
|00003730| 70 25 3d 6d 65 6e 75 25 | 28 6d 25 29 3a 69 63 6f |p%=menu%|(m%):ico|
|00003740| 6e 25 3d 62 6c 6f 63 6b | 2b 38 38 3a 79 25 3d 2d |n%=block|+88:y%=-|
|00003750| 34 34 3a 77 69 64 74 68 | 25 3d 70 25 21 31 36 0d |44:width|%=p%!16.|
|00003760| 13 e2 2d 62 6c 6f 63 6b | 21 37 32 3d 70 25 21 30 |..-block|!72=p%!0|
|00003770| 3a 62 6c 6f 63 6b 21 37 | 36 3d 70 25 21 34 3a 62 |:block!7|6=p%!4:b|
|00003780| 6c 6f 63 6b 21 38 30 3d | 70 25 21 38 0d 13 ec 31 |lock!80=|p%!8...1|
|00003790| 62 6c 6f 63 6b 21 33 32 | 3d 70 25 21 31 32 3a 62 |block!32|=p%!12:b|
|000037a0| 6c 6f 63 6b 21 38 3d 62 | 6c 6f 63 6b 21 30 2b 70 |lock!8=b|lock!0+p|
|000037b0| 25 21 31 36 2b 34 38 3a | 70 25 2b 3d 34 0d 13 f6 |%!16+48:|p%+=4...|
|000037c0| 05 f5 0d 14 00 34 70 25 | 2b 3d 32 34 3a 66 25 3d |.....4p%|+=24:f%=|
|000037d0| 70 25 21 38 3a 66 25 3d | 28 66 25 20 80 20 ac 20 |p%!8:f%=|(f% . . |
|000037e0| 26 30 30 31 46 46 30 30 | 30 29 20 84 20 26 30 30 |&001FF00|0) . &00|
|000037f0| 30 31 39 30 30 30 0d 14 | 0a 32 e7 20 66 25 20 80 |019000..|.2. f% .|
|00003800| 20 31 3c 3c 32 32 20 8c | 20 66 25 3d 28 66 25 20 | 1<<22 .| f%=(f% |
|00003810| 80 20 26 30 30 42 46 46 | 46 46 46 29 20 84 20 26 |. &00BFF|FFF) . &|
|00003820| 30 32 30 30 30 30 30 30 | 0d 14 14 4e f2 69 63 6f |02000000|...N.ico|
|00003830| 6e 28 32 34 2c 79 25 2c | 77 69 64 74 68 25 2c 34 |n(24,y%,|width%,4|
|00003840| 34 2c 66 25 2c 22 22 29 | 3a 69 63 6f 6e 25 21 2d |4,f%,"")|:icon%!-|
|00003850| 31 32 3d 70 25 21 31 32 | 3a 69 63 6f 6e 25 21 2d |12=p%!12|:icon%!-|
|00003860| 38 3d 70 25 21 31 36 3a | 69 63 6f 6e 25 21 2d 34 |8=p%!16:|icon%!-4|
|00003870| 3d 70 25 21 32 30 0d 14 | 1e 1e 79 25 2d 3d 34 34 |=p%!20..|..y%-=44|
|00003880| 3a e7 20 70 25 21 30 20 | 80 20 32 20 8c 20 79 25 |:. p%!0 |. 2 . y%|
|00003890| 2d 3d 32 34 0d 14 28 13 | fd 20 70 25 21 30 20 80 |-=24..(.|. p%!0 .|
|000038a0| 20 28 31 3c 3c 37 29 0d | 14 32 19 70 25 3d 6d 65 | (1<<7).|.2.p%=me|
|000038b0| 6e 75 25 28 6d 25 29 2b | 34 3a 79 25 3d 2d 34 34 |nu%(m%)+|4:y%=-44|
|000038c0| 0d 14 3c 0c f5 3a 70 25 | 2b 3d 32 34 0d 14 46 30 |..<..:p%|+=24..F0|
|000038d0| e7 20 70 25 21 30 20 80 | 20 31 20 8c 20 f2 69 63 |. p%!0 .| 1 . .ic|
|000038e0| 6f 6e 28 30 2c 79 25 2c | 32 34 2c 34 34 2c 26 30 |on(0,y%,|24,44,&0|
|000038f0| 37 30 30 30 30 31 39 2c | 22 80 22 29 0d 14 50 5b |7000019,|".")..P[|
|00003900| e7 20 70 25 21 30 20 80 | 20 32 20 8c 20 f2 69 63 |. p%!0 .| 2 . .ic|
|00003910| 6f 6e 28 30 2c 79 25 2d | 31 36 2c 32 30 30 30 2c |on(0,y%-|16,2000,|
|00003920| 38 2c 26 30 37 30 30 30 | 31 31 39 2c 22 22 29 3a |8,&07000|119,""):|
|00003930| 69 63 6f 6e 25 21 2d 31 | 32 3d 64 6f 74 73 3a 69 |icon%!-1|2=dots:i|
|00003940| 63 6f 6e 25 21 2d 38 3d | 2d 31 3a 69 63 6f 6e 25 |con%!-8=|-1:icon%|
|00003950| 21 2d 34 3d 32 35 35 0d | 14 5a 38 e7 20 70 25 21 |!-4=255.|.Z8. p%!|
|00003960| 34 3c 3e 2d 31 20 8c 20 | f2 69 63 6f 6e 28 77 69 |4<>-1 . |.icon(wi|
|00003970| 64 74 68 25 2b 32 34 2c | 79 25 2c 32 34 2c 34 34 |dth%+24,|y%,24,44|
|00003980| 2c 26 30 37 30 30 30 30 | 31 39 2c 22 89 22 29 0d |,&070000|19,".").|
|00003990| 14 64 1e 79 25 2d 3d 34 | 34 3a e7 20 70 25 21 30 |.d.y%-=4|4:. p%!0|
|000039a0| 20 80 20 32 20 8c 20 79 | 25 2d 3d 32 34 0d 14 6e | . 2 . y|%-=24..n|
|000039b0| 13 fd 20 70 25 21 30 20 | 80 20 28 31 3c 3c 37 29 |.. p%!0 |. (1<<7)|
|000039c0| 0d 14 78 35 79 25 2b 3d | 34 34 3a 62 6c 6f 63 6b |..x5y%+=|44:block|
|000039d0| 21 34 34 3d 79 25 3a 62 | 6c 6f 63 6b 21 38 34 3d |!44=y%:b|lock!84=|
|000039e0| 6e 69 25 3a 62 6c 6f 63 | 6b 21 32 38 3d 62 61 73 |ni%:bloc|k!28=bas|
|000039f0| 65 25 21 32 38 0d 14 82 | 3f e7 20 2d 79 25 3e 38 |e%!28...|?. -y%>8|
|00003a00| 39 36 20 8c 20 62 6c 6f | 63 6b 21 32 38 3d 62 6c |96 . blo|ck!28=bl|
|00003a10| 6f 63 6b 21 32 38 20 84 | 20 31 3c 3c 32 38 20 8b |ock!28 .| 1<<28 .|
|00003a20| 20 62 6c 6f 63 6b 21 34 | 3d 62 6c 6f 63 6b 21 31 | block!4|=block!1|
|00003a30| 32 2b 79 25 0d 14 8c 2f | c8 99 20 22 57 69 6d 70 |2+y%.../|.. "Wimp|
|00003a40| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00003a50| 62 6c 6f 63 6b 20 b8 20 | 68 61 6e 64 6c 65 25 28 |block . |handle%(|
|00003a60| 6d 25 29 0d 14 96 23 f2 | 6f 70 65 6e 5f 77 69 6e |m%)...#.|open_win|
|00003a70| 64 6f 77 28 62 6c 6f 63 | 6b 2c 68 61 6e 64 6c 65 |dow(bloc|k,handle|
|00003a80| 25 28 6d 25 29 29 0d 14 | a0 05 e1 0d 14 aa 05 3a |%(m%))..|.......:|
|00003a90| 0d 14 b4 1e dd 20 f2 69 | 63 6f 6e 28 78 25 2c 79 |..... .i|con(x%,y|
|00003aa0| 25 2c 77 25 2c 68 25 2c | 66 25 2c 64 24 29 0d 14 |%,w%,h%,|f%,d$)..|
|00003ab0| be 36 69 63 6f 6e 25 21 | 30 3d 78 25 3a 69 63 6f |.6icon%!|0=x%:ico|
|00003ac0| 6e 25 21 34 3d 79 25 3a | 69 63 6f 6e 25 21 38 3d |n%!4=y%:|icon%!8=|
|00003ad0| 78 25 2b 77 25 3a 69 63 | 6f 6e 25 21 31 32 3d 79 |x%+w%:ic|on%!12=y|
|00003ae0| 25 2b 68 25 0d 14 c8 2d | 69 63 6f 6e 25 21 31 36 |%+h%...-|icon%!16|
|00003af0| 3d 66 25 3a 24 28 69 63 | 6f 6e 25 2b 32 30 29 3d |=f%:$(ic|on%+20)=|
|00003b00| c0 64 24 2b c4 31 32 2c | bd 28 30 29 29 2c 31 32 |.d$+.12,|.(0)),12|
|00003b10| 29 0d 14 d2 14 6e 69 25 | 2b 3d 31 3a 69 63 6f 6e |)....ni%|+=1:icon|
|00003b20| 25 2b 3d 33 32 0d 14 dc | 05 e1 0d 14 e6 05 3a 0d |%+=32...|......:.|
|00003b30| 14 f0 0f dd 20 f2 62 61 | 64 5f 66 69 6c 65 0d 14 |.... .ba|d_file..|
|00003b40| fa 23 c8 99 20 22 4f 53 | 5f 48 65 61 70 22 2c 30 |.#.. "OS|_Heap",0|
|00003b50| 2c 48 65 61 70 25 2c 2c | 48 65 61 70 53 69 7a 65 |,Heap%,,|HeapSize|
|00003b60| 25 0d 15 04 1d 85 20 31 | 2c 22 42 61 64 20 66 69 |%..... 1|,"Bad fi|
|00003b70| 6c 65 2c 20 64 61 74 61 | 20 6c 6f 73 74 22 0d 15 |le, data| lost"..|
|00003b80| 0e 05 e1 0d 15 18 05 3a | 0d 15 22 14 dd 20 f2 6c |.......:|..".. .l|
|00003b90| 6f 61 64 5f 66 69 6c 65 | 28 66 24 29 0d 15 2c 2b |oad_file|(f$)..,+|
|00003ba0| ea 20 61 25 2c 62 25 2c | 63 25 2c 70 25 2c 78 25 |. a%,b%,|c%,p%,x%|
|00003bb0| 2c 66 25 2c 66 6c 61 67 | 25 2c 61 64 64 25 2c 6d |,f%,flag|%,add%,m|
|00003bc0| 65 6e 75 25 2c 64 24 0d | 15 36 2a 66 25 3d 8e 28 |enu%,d$.|.6*f%=.(|
|00003bd0| 66 24 29 3a e7 20 66 25 | 3d 30 20 8c 20 85 20 31 |f$):. f%|=0 . . 1|
|00003be0| 2c 22 46 69 6c 65 20 6e | 6f 74 20 66 6f 75 6e 64 |,"File n|ot found|
|00003bf0| 22 0d 15 40 10 78 25 3d | a2 23 66 25 3a d9 23 66 |"..@.x%=|.#f%:.#f|
|00003c00| 25 0d 15 4a 1f e7 20 78 | 25 3d 30 20 8c 20 85 20 |%..J.. x|%=0 . . |
|00003c10| 31 2c 22 49 6e 76 61 6c | 69 64 20 66 69 6c 65 22 |1,"Inval|id file"|
|00003c20| 0d 15 54 15 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |..T... "|Hourglas|
|00003c30| 73 5f 4f 6e 22 0d 15 5e | 46 61 64 64 25 3d 54 72 |s_On"..^|Fadd%=Tr|
|00003c40| 61 6e 73 66 65 72 42 75 | 66 66 65 72 25 3a c8 99 |ansferBu|ffer%:..|
|00003c50| 20 22 4f 53 5f 46 69 6c | 65 22 2c 31 36 2c 66 24 | "OS_Fil|e",16,f$|
|00003c60| 2c 61 64 64 25 3a 6c 6f | 61 64 25 28 29 3d 2d 31 |,add%:lo|ad%()=-1|
|00003c70| 3a 6d 65 6e 75 25 3d 61 | 64 64 25 0d 15 68 0f e3 |:menu%=a|dd%..h..|
|00003c80| 20 78 25 3d 30 20 b8 20 | 34 37 0d 15 72 28 c8 99 | x%=0 . |47..r(..|
|00003c90| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 50 65 72 63 | "Hourgl|ass_Perc|
|00003ca0| 65 6e 74 61 67 65 22 2c | 28 78 25 2f 34 37 29 2a |entage",|(x%/47)*|
|00003cb0| 35 30 0d 15 7c 13 e7 20 | 6d 65 6e 75 25 28 78 25 |50..|.. |menu%(x%|
|00003cc0| 29 3d 30 20 8c 0d 15 86 | 18 6c 6f 61 64 25 28 78 |)=0 ....|.load%(x|
|00003cd0| 25 29 3d 6d 65 6e 75 25 | 2d 61 64 64 25 0d 15 90 |%)=menu%|-add%...|
|00003ce0| 3b 62 25 3d 6d 65 6e 75 | 25 2b 32 38 3a c8 95 20 |;b%=menu|%+28:.. |
|00003cf0| 28 62 25 21 30 20 80 20 | 26 38 30 29 3d 30 3a 62 |(b%!0 . |&80)=0:b|
|00003d00| 25 2b 3d 32 34 3a ce 3a | 62 25 3d 28 62 25 2b 32 |%+=24:.:|b%=(b%+2|
|00003d10| 34 29 2d 6d 65 6e 75 25 | 0d 15 9a 1c f2 67 65 74 |4)-menu%|.....get|
|00003d20| 5f 62 6c 6f 63 6b 28 6d | 65 6e 75 25 28 78 25 29 |_block(m|enu%(x%)|
|00003d30| 2c 62 25 29 0d 15 a4 2d | e3 20 61 25 3d 30 20 b8 |,b%)...-|. a%=0 .|
|00003d40| 20 62 25 2d 31 20 88 20 | 34 3a 6d 65 6e 75 25 28 | b%-1 . |4:menu%(|
|00003d50| 78 25 29 21 61 25 3d 6d | 65 6e 75 25 21 61 25 3a |x%)!a%=m|enu%!a%:|
|00003d60| ed 0d 15 ae 1c 6d 65 6e | 75 25 2b 3d 62 25 3a 68 |.....men|u%+=b%:h|
|00003d70| 61 6e 64 6c 65 25 28 78 | 25 29 3d 2d 31 0d 15 b8 |andle%(x|%)=-1...|
|00003d80| 05 cd 0d 15 c2 19 e7 20 | 6d 65 6e 75 25 21 30 3d |....... |menu%!0=|
|00003d90| 2d 31 20 8c 20 78 25 3d | 35 31 31 0d 15 cc 05 ed |-1 . x%=|511.....|
|00003da0| 0d 15 d6 0f e7 20 78 25 | 3c 3e 35 31 32 20 8c 0d |..... x%|<>512 ..|
|00003db0| 15 e0 0b 66 6c 61 67 25 | 3d b9 0d 15 ea 05 f5 0d |...flag%|=.......|
|00003dc0| 15 f4 38 6d 65 6e 75 25 | 2b 3d 32 38 3a c8 95 20 |..8menu%|+=28:.. |
|00003dd0| 28 6d 65 6e 75 25 21 30 | 20 80 20 26 38 30 29 3d |(menu%!0| . &80)=|
|00003de0| 30 3a 6d 65 6e 75 25 2b | 3d 32 34 3a ce 3a 6d 65 |0:menu%+|=24:.:me|
|00003df0| 6e 75 25 2b 3d 32 34 0d | 15 fe 10 fd 20 6d 65 6e |nu%+=24.|.... men|
|00003e00| 75 25 21 30 3d 2d 31 0d | 16 08 05 cd 0d 16 12 05 |u%!0=-1.|........|
|00003e10| 3a 0d 16 1c 0f e3 20 78 | 25 3d 30 20 b8 20 34 37 |:..... x|%=0 . 47|
|00003e20| 0d 16 26 2d c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |..&-.. "|Hourglas|
|00003e30| 73 5f 50 65 72 63 65 6e | 74 61 67 65 22 2c 28 28 |s_Percen|tage",((|
|00003e40| 78 25 2f 34 37 29 2a 35 | 30 29 2b 35 30 0d 16 30 |x%/47)*5|0)+50..0|
|00003e50| 16 e7 20 68 61 6e 64 6c | 65 25 28 78 25 29 3d 2d |.. handl|e%(x%)=-|
|00003e60| 31 20 8c 0d 16 3a 12 70 | 25 3d 6d 65 6e 75 25 28 |1 ...:.p|%=menu%(|
|00003e70| 78 25 29 2b 34 0d 16 44 | 05 f5 0d 16 4e 0a 70 25 |x%)+4..D|....N.p%|
|00003e80| 2b 3d 32 34 0d 16 58 22 | e7 20 28 70 25 21 34 20 |+=24..X"|. (p%!4 |
|00003e90| 80 20 28 31 3c 3c 33 31 | 29 29 20 80 20 70 25 21 |. (1<<31|)) . p%!|
|00003ea0| 34 3c 2d 32 20 8c 0d 16 | 62 15 63 25 3d 2d 31 3a |4<-2 ...|b.c%=-1:|
|00003eb0| e3 20 61 25 3d 30 20 b8 | 20 34 37 0d 16 6c 30 e7 |. a%=0 .| 47..l0.|
|00003ec0| 20 6c 6f 61 64 25 28 61 | 25 29 3d 28 70 25 21 34 | load%(a|%)=(p%!4|
|00003ed0| 20 80 20 ac 28 31 3c 3c | 33 31 29 29 20 8c 20 63 | . .(1<<|31)) . c|
|00003ee0| 25 3d 61 25 3a 61 25 3d | 32 35 36 0d 16 76 23 ed |%=a%:a%=|256..v#.|
|00003ef0| 3a e7 20 63 25 3d 2d 31 | 20 8c 20 f2 62 61 64 5f |:. c%=-1| . .bad_|
|00003f00| 66 69 6c 65 20 8b 20 70 | 25 21 34 3d 63 25 0d 16 |file . p|%!4=c%..|
|00003f10| 80 05 cd 0d 16 8a 13 e7 | 20 70 25 21 38 20 80 20 |........| p%!8 . |
|00003f20| 26 31 30 30 20 8c 0d 16 | 94 1d 61 25 3d 30 3a f2 |&100 ...|..a%=0:.|
|00003f30| 67 65 74 5f 62 6c 6f 63 | 6b 28 61 25 2c 70 25 21 |get_bloc|k(a%,p%!|
|00003f40| 32 30 29 0d 16 9e 2c e3 | 20 62 25 3d 30 20 b8 20 |20)...,.| b%=0 . |
|00003f50| 70 25 21 32 30 3a 61 25 | 3f 62 25 3d 61 64 64 25 |p%!20:a%|?b%=add%|
|00003f60| 3f 28 62 25 2b 28 70 25 | 21 31 32 29 29 3a ed 0d |?(b%+(p%|!12)):..|
|00003f70| 16 a8 0c 70 25 21 31 32 | 3d 61 25 0d 16 b2 11 e7 |...p%!12|=a%.....|
|00003f80| 20 70 25 21 31 36 3c 3e | 2d 31 20 8c 0d 16 bc 1c | p%!16<>|-1 .....|
|00003f90| 64 24 3d a4 73 74 72 69 | 6e 67 28 61 64 64 25 2b |d$=.stri|ng(add%+|
|00003fa0| 28 70 25 21 31 36 29 29 | 0d 16 c6 2f 61 25 3d 30 |(p%!16))|.../a%=0|
|00003fb0| 3a f2 67 65 74 5f 62 6c | 6f 63 6b 28 61 25 2c a9 |:.get_bl|ock(a%,.|
|00003fc0| 28 64 24 29 2b 31 29 3a | 24 61 25 3d 64 24 3a 70 |(d$)+1):|$a%=d$:p|
|00003fd0| 25 21 31 36 3d 61 25 0d | 16 d0 05 cd 0d 16 da 05 |%!16=a%.|........|
|00003fe0| cd 0d 16 e4 10 fd 20 70 | 25 21 30 20 80 20 26 38 |...... p|%!0 . &8|
|00003ff0| 30 0d 16 ee 23 68 61 6e | 64 6c 65 25 28 78 25 29 |0...#han|dle%(x%)|
|00004000| 3d 30 3a f2 64 69 73 70 | 6c 61 79 5f 6d 65 6e 75 |=0:.disp|lay_menu|
|00004010| 28 78 25 29 0d 16 f8 05 | cd 0d 17 02 05 ed 0d 17 |(x%)....|........|
|00004020| 0c 1c 43 68 61 6e 67 65 | 64 25 3d a3 3a 24 46 69 |..Change|d%=.:$Fi|
|00004030| 6c 65 6e 61 6d 65 25 3d | 66 24 0d 17 16 16 c8 99 |lename%=|f$......|
|00004040| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|00004050| 0d 17 20 43 e7 20 66 6c | 61 67 25 20 8c 20 85 20 |.. C. fl|ag% . . |
|00004060| 31 2c 22 4e 6f 74 20 65 | 6e 6f 75 67 68 20 72 6f |1,"Not e|nough ro|
|00004070| 6f 6d 20 66 6f 72 20 65 | 6e 74 69 72 65 20 66 69 |om for e|ntire fi|
|00004080| 6c 65 2c 20 66 69 6c 65 | 20 74 72 75 6e 63 61 74 |le, file| truncat|
|00004090| 65 64 22 0d 17 2a 05 e1 | 0d 17 34 05 3a 0d 17 3e |ed"..*..|..4.:..>|
|000040a0| 10 dd 20 f2 71 75 69 63 | 6b 73 61 76 65 0d 17 48 |.. .quic|ksave..H|
|000040b0| 20 e7 20 a7 a4 73 74 72 | 69 6e 67 28 46 69 6c 65 | . ..str|ing(File|
|000040c0| 6e 61 6d 65 25 29 2c 22 | 2e 22 29 20 8c 0d 17 52 |name%),"|.") ...R|
|000040d0| 22 f2 73 61 76 65 5f 66 | 69 6c 65 28 a4 73 74 72 |".save_f|ile(.str|
|000040e0| 69 6e 67 28 46 69 6c 65 | 6e 61 6d 65 25 29 29 0d |ing(File|name%)).|
|000040f0| 17 5c 05 cc 0d 17 66 36 | 85 20 31 2c 22 54 6f 20 |.\....f6|. 1,"To |
|00004100| 73 61 76 65 2c 20 64 72 | 61 67 20 74 68 65 20 69 |save, dr|ag the i|
|00004110| 63 6f 6e 20 74 6f 20 61 | 20 64 69 72 65 63 74 6f |con to a| directo|
|00004120| 72 79 20 76 69 65 77 65 | 72 22 0d 17 70 05 cd 0d |ry viewe|r"..p...|
|00004130| 17 7a 05 e1 0d 17 84 05 | 3a 0d 17 8e 14 dd 20 f2 |.z......|:..... .|
|00004140| 73 61 76 65 5f 66 69 6c | 65 28 66 24 29 0d 17 98 |save_fil|e(f$)...|
|00004150| 21 ea 20 61 25 2c 62 25 | 2c 63 25 2c 70 25 2c 78 |!. a%,b%|,c%,p%,x|
|00004160| 25 2c 6f 66 66 25 2c 61 | 64 64 25 2c 64 24 0d 17 |%,off%,a|dd%,d$..|
|00004170| a2 2b e7 20 c6 8e 28 6d | 65 6e 75 25 28 29 29 3d |.+. ..(m|enu%())=|
|00004180| 30 20 8c 20 85 20 31 2c | 22 4e 6f 74 68 69 6e 67 |0 . . 1,|"Nothing|
|00004190| 20 74 6f 20 73 61 76 65 | 22 0d 17 ac 2d 61 64 64 | to save|"...-add|
|000041a0| 25 3d 54 72 61 6e 73 66 | 65 72 42 75 66 66 65 72 |%=Transf|erBuffer|
|000041b0| 25 3a 6c 6f 61 64 25 28 | 29 3d 2d 31 3a 6f 66 66 |%:load%(|)=-1:off|
|000041c0| 25 3d 61 64 64 25 0d 17 | b6 15 c8 99 20 22 48 6f |%=add%..|.... "Ho|
|000041d0| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 17 c0 0f e3 |urglass_|On".....|
|000041e0| 20 78 25 3d 30 20 b8 20 | 34 37 0d 17 ca 28 c8 99 | x%=0 . |47...(..|
|000041f0| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 50 65 72 63 | "Hourgl|ass_Perc|
|00004200| 65 6e 74 61 67 65 22 2c | 28 78 25 2f 34 37 29 2a |entage",|(x%/47)*|
|00004210| 35 30 0d 17 d4 14 e7 20 | 6d 65 6e 75 25 28 78 25 |50..... |menu%(x%|
|00004220| 29 3c 3e 30 20 8c 0d 17 | de 42 62 25 3d 34 3a f5 |)<>0 ...|.Bb%=4:.|
|00004230| 3a 62 25 2b 3d 32 34 3a | fd 20 6d 65 6e 75 25 28 |:b%+=24:|. menu%(|
|00004240| 78 25 29 21 62 25 20 80 | 20 31 3c 3c 37 3a 62 25 |x%)!b% .| 1<<7:b%|
|00004250| 2b 3d 32 34 3a 6c 6f 61 | 64 25 28 78 25 29 3d 6f |+=24:loa|d%(x%)=o|
|00004260| 66 66 25 2d 61 64 64 25 | 0d 17 e8 35 e3 20 61 25 |ff%-add%|...5. a%|
|00004270| 3d 30 20 b8 20 62 25 2d | 34 20 88 20 34 3a 6f 66 |=0 . b%-|4 . 4:of|
|00004280| 66 25 21 61 25 3d 6d 65 | 6e 75 25 28 78 25 29 21 |f%!a%=me|nu%(x%)!|
|00004290| 61 25 3a ed 3a 6f 66 66 | 25 2b 3d 62 25 0d 17 f2 |a%:.:off|%+=b%...|
|000042a0| 05 cd 0d 17 fc 05 ed 0d | 18 06 15 6f 66 66 25 21 |........|...off%!|
|000042b0| 30 3d 2d 31 3a 6f 66 66 | 25 2b 3d 34 0d 18 10 05 |0=-1:off|%+=4....|
|000042c0| 3a 0d 18 1a 0f e3 20 78 | 25 3d 30 20 b8 20 34 37 |:..... x|%=0 . 47|
|000042d0| 0d 18 24 2d c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |..$-.. "|Hourglas|
|000042e0| 73 5f 50 65 72 63 65 6e | 74 61 67 65 22 2c 28 28 |s_Percen|tage",((|
|000042f0| 78 25 2f 34 37 29 2a 35 | 30 29 2b 35 30 0d 18 2e |x%/47)*5|0)+50...|
|00004300| 14 e7 20 6d 65 6e 75 25 | 28 78 25 29 3c 3e 30 20 |.. menu%|(x%)<>0 |
|00004310| 8c 0d 18 38 17 70 25 3d | 6c 6f 61 64 25 28 78 25 |...8.p%=|load%(x%|
|00004320| 29 2b 34 2b 61 64 64 25 | 0d 18 42 05 f5 0d 18 4c |)+4+add%|..B....L|
|00004330| 31 70 25 2b 3d 32 34 3a | e7 20 70 25 21 34 3e 3d |1p%+=24:|. p%!4>=|
|00004340| 30 20 8c 20 70 25 21 34 | 3d 6c 6f 61 64 25 28 70 |0 . p%!4|=load%(p|
|00004350| 25 21 34 29 20 84 20 28 | 31 3c 3c 33 31 29 0d 18 |%!4) . (|1<<31)..|
|00004360| 56 13 e7 20 70 25 21 38 | 20 80 20 26 31 30 30 20 |V.. p%!8| . &100 |
|00004370| 8c 0d 18 60 44 63 25 3d | 70 25 21 31 32 3a e3 20 |...`Dc%=|p%!12:. |
|00004380| 61 25 3d 30 20 b8 20 70 | 25 21 32 30 3a 6f 66 66 |a%=0 . p|%!20:off|
|00004390| 25 3f 61 25 3d 63 25 3f | 61 25 3a ed 3a 70 25 21 |%?a%=c%?|a%:.:p%!|
|000043a0| 31 32 3d 6f 66 66 25 2d | 61 64 64 25 3a 6f 66 66 |12=off%-|add%:off|
|000043b0| 25 2b 3d 61 25 0d 18 6a | 4a e7 20 70 25 21 31 36 |%+=a%..j|J. p%!16|
|000043c0| 3c 3e 2d 31 20 8c 20 64 | 24 3d a4 73 74 72 69 6e |<>-1 . d|$=.strin|
|000043d0| 67 28 70 25 21 31 36 29 | 3a 24 6f 66 66 25 3d 64 |g(p%!16)|:$off%=d|
|000043e0| 24 3a 6f 66 66 25 2b 3d | a9 28 64 24 29 2b 31 3a |$:off%+=|.(d$)+1:|
|000043f0| 70 25 21 31 36 3d 6f 66 | 66 25 2d 61 64 64 25 0d |p%!16=of|f%-add%.|
|00004400| 18 74 05 cd 0d 18 7e 11 | fd 20 70 25 21 30 20 80 |.t....~.|. p%!0 .|
|00004410| 20 31 3c 3c 37 0d 18 88 | 05 cd 0d 18 92 05 ed 0d | 1<<7...|........|
|00004420| 18 9c 3f c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |..?.. "O|S_File",|
|00004430| 31 30 2c 66 24 2c 26 33 | 32 31 2c 2c 61 64 64 25 |10,f$,&3|21,,add%|
|00004440| 2c 6f 66 66 25 3a 43 68 | 61 6e 67 65 64 25 3d a3 |,off%:Ch|anged%=.|
|00004450| 3a 24 46 69 6c 65 6e 61 | 6d 65 25 3d 66 24 0d 18 |:$Filena|me%=f$..|
|00004460| a6 16 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |.... "Ho|urglass_|
|00004470| 4f 66 66 22 0d 18 b0 05 | e1 0d ff |Off"....|... |
+--------+-------------------------+-------------------------+--------+--------+
