/ APDL Public Domain 1 / APDL_PD1A.iso / graphchart / graph_1 / !Graph / WimpLib

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 2f f4 20 3e 20 | 57 69 6d 70 4c 69 62 20 |.../. > |WimpLib |
|00000010| 76 31 2e 31 30 20 3a 20 | 47 65 6e 65 72 61 6c 20 |v1.10 : |General |
|00000020| 57 69 6d 70 20 50 72 6f | 63 65 64 75 72 65 73 0d |Wimp Pro|cedures.|
|00000030| 00 14 1c f4 20 a9 20 4d | 69 6b 65 20 43 75 72 6e |.... . M|ike Curn|
|00000040| 6f 77 20 4d 61 79 20 31 | 39 39 31 0d 00 1e 15 dd |ow May 1|991.....|
|00000050| f2 57 69 6d 70 49 6e 69 | 74 28 6e 24 2c 53 25 29 |.WimpIni|t(n$,S%)|
|00000060| 0d 00 28 2b c8 99 22 57 | 69 6d 70 5f 49 6e 69 74 |..(+.."W|imp_Init|
|00000070| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|00000080| 33 34 31 35 34 2c 6e 24 | 2b bd 30 0d 00 32 3e de |34154,n$|+.0..2>.|
|00000090| 20 62 25 20 53 25 2c 6d | 62 25 20 26 34 30 30 3a | b% S%,m|b% &400:|
|000000a0| 6d 65 6e 75 66 72 65 65 | 25 3d 6d 62 25 3a 6d 65 |menufree|%=mb%:me|
|000000b0| 6e 75 65 6e 64 25 3d 6d | 62 25 2b 26 34 30 30 3a |nuend%=m|b%+&400:|
|000000c0| 74 61 73 6b 6e 24 3d 6e | 24 0d 00 3c 05 e1 0d 00 |taskn$=n|$..<....|
|000000d0| 46 05 3a 0d 00 50 1a dd | a4 49 63 6f 6e 54 61 73 |F.:..P..|.IconTas|
|000000e0| 6b 28 6e 24 29 3a ea 20 | 53 25 2c 54 25 0d 00 5a |k(n$):. |S%,T%..Z|
|000000f0| 37 53 25 3d 8e 22 3c 4f | 62 65 79 24 44 69 72 3e |7S%=."<O|bey$Dir>|
|00000100| 2e 21 53 70 72 69 74 65 | 73 22 3a 54 25 3d a2 23 |.!Sprite|s":T%=.#|
|00000110| 53 25 2b 31 36 3a d9 23 | 53 25 3a e7 20 53 25 3d |S%+16:.#|S%:. S%=|
|00000120| 30 20 3d 30 0d 00 64 1a | de 20 53 25 20 54 25 3a |0 =0..d.|. S% T%:|
|00000130| 21 53 25 3d 54 25 3a 53 | 25 21 38 3d 31 36 0d 00 |!S%=T%:S|%!8=16..|
|00000140| 6e 1c c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |n... "OS|_SpriteO|
|00000150| 70 22 2c 26 31 30 39 2c | 53 25 0d 00 78 32 c8 99 |p",&109,|S%..x2..|
|00000160| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 | "OS_Spr|iteOp",&|
|00000170| 31 30 41 2c 53 25 2c 22 | 3c 4f 62 65 79 24 44 69 |10A,S%,"|<Obey$Di|
|00000180| 72 3e 2e 21 53 70 72 69 | 74 65 73 22 0d 00 82 45 |r>.!Spri|tes"...E|
|00000190| 21 62 25 3d 2d 31 3a 62 | 25 21 34 3d 30 3a 62 25 |!b%=-1:b|%!4=0:b%|
|000001a0| 21 38 3d 30 3a 62 25 21 | 31 32 3d 53 25 21 33 32 |!8=0:b%!|12=S%!32|
|000001b0| 2a 31 36 2b 34 3a 62 25 | 21 31 36 3d 53 25 21 33 |*16+4:b%|!16=S%!3|
|000001c0| 36 2a 34 2b 34 3a 62 25 | 21 32 30 3d 26 32 31 30 |6*4+4:b%|!20=&210|
|000001d0| 32 0d 00 8c 28 de 20 62 | 25 21 32 34 20 28 a9 6e |2...(. b|%!24 (.n|
|000001e0| 24 2b 31 29 3a 24 28 62 | 25 21 32 34 29 3d 6e 24 |$+1):$(b|%!24)=n$|
|000001f0| 3a 62 25 21 32 38 3d 53 | 25 0d 00 96 2c 62 25 21 |:b%!28=S|%...,b%!|
|00000200| 33 32 3d a9 6e 24 2b 31 | 3a c8 99 22 57 69 6d 70 |32=.n$+1|:.."Wimp|
|00000210| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 62 25 |_CreateI|con",,b%|
|00000220| 20 b8 20 54 25 0d 00 a0 | 07 3d 54 25 0d 00 aa 05 | . T%...|.=T%....|
|00000230| 3a 0d 00 b4 26 dd f2 57 | 69 6d 70 43 6c 4d 3a c8 |:...&..W|impClM:.|
|00000240| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e |."Wimp_C|reateMen|
|00000250| 75 22 2c 2c b9 3a e1 0d | 00 be 05 3a 0d 00 c8 28 |u",,.:..|...:...(|
|00000260| dd a4 57 69 6d 70 4d 65 | 6e 75 28 68 61 6e 64 6c |..WimpMe|nu(handl|
|00000270| 65 25 2c 6d 65 6e 75 24 | 2c 6d 65 6e 75 74 69 74 |e%,menu$|,menutit|
|00000280| 6c 65 24 29 0d 00 d2 34 | e7 20 6d 65 6e 75 66 72 |le$)...4|. menufr|
|00000290| 65 65 25 2b 32 38 20 3e | 20 6d 65 6e 75 65 6e 64 |ee%+28 >| menuend|
|000002a0| 25 20 8c 20 85 20 30 2c | 22 4d 65 6e 75 20 61 72 |% . . 0,|"Menu ar|
|000002b0| 65 61 20 66 75 6c 6c 22 | 0d 00 dc 32 ea 20 68 25 |ea full"|...2. h%|
|000002c0| 2c 69 25 2c 6d 25 2c 77 | 25 2c 79 25 2c 69 74 65 |,i%,m%,w|%,y%,ite|
|000002d0| 6d 24 3a 68 25 3d 34 3a | 6d 65 6e 75 70 74 72 25 |m$:h%=4:|menuptr%|
|000002e0| 3d 6d 65 6e 75 66 72 65 | 65 25 0d 00 e6 18 24 6d |=menufre|e%....$m|
|000002f0| 65 6e 75 70 74 72 25 3d | 6d 65 6e 75 74 69 74 6c |enuptr%=|menutitl|
|00000300| 65 24 0d 00 f0 3c 6d 65 | 6e 75 70 74 72 25 3f 31 |e$...<me|nuptr%?1|
|00000310| 32 3d 37 3a 6d 65 6e 75 | 70 74 72 25 3f 31 33 3d |2=7:menu|ptr%?13=|
|00000320| 32 3a 6d 65 6e 75 70 74 | 72 25 3f 31 34 3d 37 3a |2:menupt|r%?14=7:|
|00000330| 6d 65 6e 75 70 74 72 25 | 3f 31 35 3d 31 30 0d 00 |menuptr%|?15=10..|
|00000340| fa 3e 6d 65 6e 75 70 74 | 72 25 21 32 30 3d 34 34 |.>menupt|r%!20=44|
|00000350| 3a 6d 65 6e 75 70 74 72 | 25 21 32 34 3d 30 3a 6d |:menuptr|%!24=0:m|
|00000360| 65 6e 75 70 74 72 25 2b | 3d 32 38 3a 77 25 3d a9 |enuptr%+|=28:w%=.|
|00000370| 6d 65 6e 75 74 69 74 6c | 65 24 2d 32 0d 01 04 39 |menutitl|e$-2...9|
|00000380| f5 20 69 74 65 6d 24 3d | a4 6d 70 61 72 28 22 2c |. item$=|.mpar(",|
|00000390| 22 29 3a f2 6d 65 6e 75 | 69 74 65 6d 28 69 74 65 |"):.menu|item(ite|
|000003a0| 6d 24 29 3a 68 25 2b 3d | 34 34 3a fd 20 69 74 65 |m$):h%+=|44:. ite|
|000003b0| 6d 24 3d 22 22 0d 01 0e | 28 6d 25 3d 6d 65 6e 75 |m$=""...|(m%=menu|
|000003c0| 66 72 65 65 25 3a 6d 25 | 21 31 36 3d 28 77 25 2a |free%:m%|!16=(w%*|
|000003d0| 38 2b 36 29 2a 32 3a 68 | 25 2d 3d 34 34 0d 01 18 |8+6)*2:h|%-=44...|
|000003e0| 12 e7 20 68 61 6e 64 6c | 65 25 3e 3d 30 20 8c 0d |.. handl|e%>=0 ..|
|000003f0| 01 22 2a 20 20 20 e7 20 | 68 61 6e 64 6c 65 25 3d |."*   . |handle%=|
|00000400| 30 20 8c 20 79 25 3d 68 | 25 2b 39 32 20 8b 20 79 |0 . y%=h|%+92 . y|
|00000410| 25 3d 62 25 21 34 2b 68 | 25 0d 01 2c 28 20 20 20 |%=b%!4+h|%..,(   |
|00000420| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|00000430| 6e 75 22 2c 2c 6d 25 2c | 21 62 25 2d 36 34 2c 79 |nu",,m%,|!b%-64,y|
|00000440| 25 0d 01 36 20 20 20 20 | 6d 65 6e 75 74 6f 70 25 |%..6    |menutop%|
|00000450| 3d 6d 25 3a 6d 65 6e 75 | 66 72 65 65 25 3d 6d 62 |=m%:menu|free%=mb|
|00000460| 25 0d 01 40 18 cc 20 6d | 65 6e 75 66 72 65 65 25 |%..@.. m|enufree%|
|00000470| 3d 6d 65 6e 75 70 74 72 | 25 0d 01 4a 05 cd 0d 01 |=menuptr|%..J....|
|00000480| 54 07 3d 6d 25 0d 01 5e | 05 3a 0d 01 68 15 dd f2 |T.=m%..^|.:..h...|
|00000490| 6d 65 6e 75 69 74 65 6d | 28 74 65 78 74 24 29 0d |menuitem|(text$).|
|000004a0| 01 72 32 e7 20 74 65 78 | 74 24 3d 22 22 20 8c 20 |.r2. tex|t$="" . |
|000004b0| 6d 65 6e 75 70 74 72 25 | 21 2d 32 34 3d 28 6d 65 |menuptr%|!-24=(me|
|000004c0| 6e 75 70 74 72 25 21 2d | 32 34 29 84 26 38 30 3a |nuptr%!-|24).&80:|
|000004d0| e1 0d 01 7c 33 e7 20 6d | 65 6e 75 70 74 72 25 2b |...|3. m|enuptr%+|
|000004e0| 32 34 20 3e 20 6d 65 6e | 75 65 6e 64 25 20 8c 20 |24 > men|uend% . |
|000004f0| 85 20 30 2c 22 4d 65 6e | 75 20 61 72 65 61 20 66 |. 0,"Men|u area f|
|00000500| 75 6c 6c 22 0d 01 86 27 | ea 69 25 2c 69 31 25 2c |ull"...'|.i%,i1%,|
|00000510| 66 6c 67 25 2c 73 75 62 | 70 74 72 25 2c 4c 25 2c |flg%,sub|ptr%,L%,|
|00000520| 49 25 3a 66 6c 67 25 3d | 26 30 30 0d 01 90 12 69 |I%:flg%=|&00....i|
|00000530| 25 3d a7 74 65 78 74 24 | 2c 22 3e 22 29 0d 01 9a |%=.text$|,">")...|
|00000540| 3d e7 20 c2 74 65 78 74 | 24 2c 31 29 3d 22 23 22 |=. .text|$,1)="#"|
|00000550| 20 8c 20 74 65 78 74 24 | 3d c0 74 65 78 74 24 2c | . text$|=.text$,|
|00000560| a9 74 65 78 74 24 2d 31 | 29 3a 66 6c 67 25 2b 3d |.text$-1|):flg%+=|
|00000570| 26 30 32 3a 68 25 2b 3d | 32 36 0d 01 a4 3d e7 69 |&02:h%+=|26...=.i|
|00000580| 25 3e 30 8c 73 75 62 70 | 74 72 25 3d a0 c1 74 65 |%>0.subp|tr%=..te|
|00000590| 78 74 24 2c 69 25 2b 31 | 29 3a 74 65 78 74 24 3d |xt$,i%+1|):text$=|
|000005a0| c0 74 65 78 74 24 2c 69 | 25 2d 31 29 8b 73 75 62 |.text$,i|%-1).sub|
|000005b0| 70 74 72 25 3d 2d 31 0d | 01 ae 3b 6d 65 6e 75 70 |ptr%=-1.|..;menup|
|000005c0| 74 72 25 21 30 3d 66 6c | 67 25 3a 6d 65 6e 75 70 |tr%!0=fl|g%:menup|
|000005d0| 74 72 25 21 34 3d 73 75 | 62 70 74 72 25 3a 6d 65 |tr%!4=su|bptr%:me|
|000005e0| 6e 75 70 74 72 25 21 38 | 3d 26 30 37 30 30 30 30 |nuptr%!8|=&070000|
|000005f0| 32 31 0d 01 b8 13 e7 c0 | 74 65 78 74 24 2c 31 29 |21......|text$,1)|
|00000600| 3d 22 24 22 8c 0d 01 c2 | 13 20 21 6d 65 6e 75 70 |="$"....|. !menup|
|00000610| 74 72 25 2b 3d 26 30 34 | 0d 01 cc 15 20 6d 65 6e |tr%+=&04|.... men|
|00000620| 75 70 74 72 25 21 38 2b | 3d 26 31 30 38 0d 01 d6 |uptr%!8+|=&108...|
|00000630| 13 20 69 25 3d a7 74 65 | 78 74 24 2c 22 28 22 29 |. i%=.te|xt$,"(")|
|00000640| 0d 01 e0 34 20 e7 69 25 | 3e 30 8c 4c 25 3d bb c1 |...4 .i%|>0.L%=..|
|00000650| 74 65 78 74 24 2c 69 25 | 2b 31 29 3a 74 65 78 74 |text$,i%|+1):text|
|00000660| 24 3d c0 74 65 78 74 24 | 2c 69 25 2d 31 29 8b 4c |$=.text$|,i%-1).L|
|00000670| 25 3d 31 32 0d 01 ea 1b | 20 6d 65 6e 75 70 74 72 |%=12....| menuptr|
|00000680| 25 21 31 32 3d a0 c1 74 | 65 78 74 24 2c 32 29 0d |%!12=..t|ext$,2).|
|00000690| 01 f4 22 20 6d 65 6e 75 | 70 74 72 25 21 31 36 3d |.." menu|ptr%!16=|
|000006a0| 2d 31 3a 6d 65 6e 75 70 | 74 72 25 21 32 30 3d 4c |-1:menup|tr%!20=L|
|000006b0| 25 0d 01 fe 13 20 74 65 | 78 74 24 3d c4 4c 25 2c |%.... te|xt$=.L%,|
|000006c0| 22 20 22 29 0d 02 08 19 | 20 f4 49 46 20 77 25 3c |" ")....| .IF w%<|
|000006d0| 32 30 20 54 48 45 4e 20 | 77 25 3d 32 30 0d 02 12 |20 THEN |w%=20...|
|000006e0| 05 cc 0d 02 1c 14 20 e7 | c0 74 65 78 74 24 2c 31 |...... .|.text$,1|
|000006f0| 29 3d 22 21 22 8c 0d 02 | 26 1c 20 20 74 65 78 74 |)="!"...|&.  text|
|00000700| 24 3d c2 74 65 78 74 24 | 2c a9 74 65 78 74 24 2d |$=.text$|,.text$-|
|00000710| 31 29 0d 02 30 14 20 20 | 21 6d 65 6e 75 70 74 72 |1)..0.  |!menuptr|
|00000720| 25 2b 3d 26 30 38 0d 02 | 3a 06 20 cd 0d 02 44 11 |%+=&08..|:. ...D.|
|00000730| 20 e7 a9 74 65 78 74 24 | 3c 3d 31 32 8c 0d 02 4e | ..text$|<=12...N|
|00000740| 1a 20 20 24 28 6d 65 6e | 75 70 74 72 25 2b 31 32 |.  $(men|uptr%+12|
|00000750| 29 3d 74 65 78 74 24 0d | 02 58 28 20 cc 20 49 25 |)=text$.|.X( . I%|
|00000760| 3d a4 77 6f 72 6b 73 70 | 61 63 65 28 a9 74 65 78 |=.worksp|ace(.tex|
|00000770| 74 24 2b 31 29 3a 24 49 | 25 3d 74 65 78 74 24 0d |t$+1):$I|%=text$.|
|00000780| 02 62 38 20 20 6d 65 6e | 75 70 74 72 25 21 31 32 |.b8  men|uptr%!12|
|00000790| 3d 49 25 3a 6d 65 6e 75 | 70 74 72 25 21 31 36 3d |=I%:menu|ptr%!16=|
|000007a0| 2d 31 3a 6d 65 6e 75 70 | 74 72 25 21 32 30 3d a9 |-1:menup|tr%!20=.|
|000007b0| 74 65 78 74 24 2b 31 0d | 02 6c 22 20 20 6d 65 6e |text$+1.|.l"  men|
|000007c0| 75 70 74 72 25 21 38 3d | 6d 65 6e 75 70 74 72 25 |uptr%!8=|menuptr%|
|000007d0| 21 38 20 84 20 26 31 30 | 30 0d 02 76 06 20 cd 0d |!8 . &10|0..v. ..|
|000007e0| 02 80 19 e7 a9 74 65 78 | 74 24 3e 77 25 20 8c 77 |.....tex|t$>w% .w|
|000007f0| 25 3d a9 74 65 78 74 24 | 0d 02 8a 05 cd 0d 02 94 |%=.text$|........|
|00000800| 10 6d 65 6e 75 70 74 72 | 25 2b 3d 32 34 0d 02 9e |.menuptr|%+=24...|
|00000810| 05 e1 0d 02 a8 05 3a 0d | 02 b2 20 dd a4 77 6f 72 |......:.|.. ..wor|
|00000820| 6b 73 70 61 63 65 28 4c | 25 29 3a de 20 4c 25 20 |kspace(L|%):. L% |
|00000830| 4c 25 3a 3d 20 4c 25 0d | 02 bc 05 3a 0d 02 c6 10 |L%:= L%.|...:....|
|00000840| dd a4 6d 70 61 72 28 73 | 65 70 24 29 0d 02 d0 25 |..mpar(s|ep$)...%|
|00000850| 69 31 25 3d 69 25 2b 31 | 3a 69 25 3d a7 6d 65 6e |i1%=i%+1|:i%=.men|
|00000860| 75 24 2b 73 65 70 24 2c | 73 65 70 24 2c 69 31 25 |u$+sep$,|sep$,i1%|
|00000870| 29 0d 02 da 17 3d c1 6d | 65 6e 75 24 2c 69 31 25 |)....=.m|enu$,i1%|
|00000880| 2c 69 25 2d 69 31 25 29 | 0d 02 e4 05 3a 0d 02 ee |,i%-i1%)|....:...|
|00000890| 15 dd f2 57 69 6d 70 54 | 69 63 6b 28 62 25 2c 6e |...WimpT|ick(b%,n|
|000008a0| 25 29 0d 02 f8 23 62 25 | 21 28 32 38 2b 32 34 2a |%)...#b%|!(28+24*|
|000008b0| 6e 25 29 3d 62 25 21 28 | 32 38 2b 32 34 2a 6e 25 |n%)=b%!(|28+24*n%|
|000008c0| 29 82 26 30 31 0d 03 02 | 05 e1 0d 03 0c 05 3a 0d |).&01...|......:.|
|000008d0| 03 16 24 dd f2 57 69 6d | 70 53 65 6c 65 63 74 28 |..$..Wim|pSelect(|
|000008e0| 6d 65 6e 75 73 25 2c f8 | 20 6d 24 2c f8 20 62 75 |menus%,.| m$,. bu|
|000008f0| 74 25 29 0d 03 20 2d c8 | 99 22 57 69 6d 70 5f 47 |t%).. -.|."Wimp_G|
|00000900| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|00000910| 62 25 2b 36 34 3a 62 75 | 74 25 3d 62 25 21 37 32 |b%+64:bu|t%=b%!72|
|00000920| 0d 03 2a 38 c8 99 22 57 | 69 6d 70 5f 44 65 63 6f |..*8.."W|imp_Deco|
|00000930| 64 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 74 6f 70 |deMenu",|,menutop|
|00000940| 25 2c 6d 65 6e 75 73 25 | 2c c4 32 30 30 2c 22 20 |%,menus%|,.200," |
|00000950| 22 29 b8 2c 2c 2c 6d 24 | 0d 03 34 0f e7 20 6d 24 |").,,,m$|..4.. m$|
|00000960| 3d 22 22 20 8c 20 e1 0d | 03 3e 1a e7 20 6d 24 3d |="" . ..|.>.. m$=|
|00000970| 22 51 75 69 74 22 20 f2 | 57 69 6d 70 45 6e 64 3a |"Quit" .|WimpEnd:|
|00000980| e0 0d 03 48 05 e1 0d 03 | 52 05 3a 0d 03 5c 16 dd |...H....|R.:..\..|
|00000990| a4 57 69 6d 70 45 72 72 | 28 74 24 29 3a ea 20 4b |.WimpErr|(t$):. K|
|000009a0| 25 0d 03 66 3e 21 62 25 | 3d 30 3a 24 28 62 25 2b |%..f>!b%|=0:$(b%+|
|000009b0| 34 29 3d 74 24 2b bd 30 | 3a c8 99 22 57 69 6d 70 |4)=t$+.0|:.."Wimp|
|000009c0| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 25 |_ReportE|rror",b%|
|000009d0| 2c 33 2c 74 61 73 6b 6e | 24 20 b8 20 2c 4b 25 0d |,3,taskn|$ . ,K%.|
|000009e0| 03 70 07 3d 4b 25 0d 03 | 7a 05 3a 0d 03 84 12 dd |.p.=K%..|z.:.....|
|000009f0| f2 57 69 6d 70 53 74 6f | 70 3a ee 85 87 0d 03 8e |.WimpSto|p:......|
|00000a00| 1e c8 99 22 57 69 6d 70 | 5f 44 72 61 67 42 6f 78 |..."Wimp|_DragBox|
|00000a10| 22 2c 2c 2d 31 3a 21 62 | 25 3d 9f 0d 03 98 37 e7 |",,-1:!b|%=....7.|
|00000a20| 20 9f 3e 35 32 20 24 28 | 62 25 2b 34 29 3d f6 24 | .>52 $(|b%+4)=.$|
|00000a30| 2b bd 30 20 8b 20 24 28 | 62 25 2b 34 29 3d f6 24 |+.0 . $(|b%+4)=.$|
|00000a40| 2b 22 20 61 74 20 6c 69 | 6e 65 20 22 2b c3 9e 2b |+" at li|ne "+..+|
|00000a50| bd 30 0d 03 a2 24 c8 99 | 22 57 69 6d 70 5f 52 65 |.0...$..|"Wimp_Re|
|00000a60| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 25 2c 31 2c |portErro|r",b%,1,|
|00000a70| 74 61 73 6b 6e 24 0d 03 | ac 0e f2 57 69 6d 70 45 |taskn$..|...WimpE|
|00000a80| 6e 64 3a e0 0d 03 b6 05 | 3a 0d 03 c0 2c dd f2 4f |nd:.....|:...,..O|
|00000a90| 70 65 6e 57 69 6e 28 68 | 25 2c 78 6c 25 2c 79 6c |penWin(h|%,xl%,yl|
|00000aa0| 25 2c 78 68 25 2c 79 68 | 25 2c 78 6f 25 2c 79 6f |%,xh%,yh|%,xo%,yo|
|00000ab0| 25 2c 66 25 29 0d 03 ca | 4d 21 62 25 3d 68 25 3a |%,f%)...|M!b%=h%:|
|00000ac0| 62 25 21 34 3d 78 6c 25 | 3a 62 25 21 38 3d 79 6c |b%!4=xl%|:b%!8=yl|
|00000ad0| 25 3a 62 25 21 31 32 3d | 78 68 25 3a 62 25 21 31 |%:b%!12=|xh%:b%!1|
|00000ae0| 36 3d 79 68 25 3a 62 25 | 21 32 30 3d 78 6f 25 3a |6=yh%:b%|!20=xo%:|
|00000af0| 62 25 21 32 34 3d 79 6f | 25 3a 62 25 21 32 38 3d |b%!24=yo|%:b%!28=|
|00000b00| 66 25 0d 03 d4 1b c8 99 | 22 57 69 6d 70 5f 4f 70 |f%......|"Wimp_Op|
|00000b10| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 25 0d 03 de |enWindow|",,b%...|
|00000b20| 05 e1 0d 03 e8 05 3a 0d | 03 f2 19 dd f2 43 6c 6f |......:.|.....Clo|
|00000b30| 73 65 57 69 6e 28 77 25 | 29 3a 21 62 25 3d 77 25 |seWin(w%|):!b%=w%|
|00000b40| 0d 03 fc 1c c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |......"W|imp_Clos|
|00000b50| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 25 0d 04 06 05 |eWindow"|,,b%....|
|00000b60| e1 0d 04 10 05 3a 0d 04 | 1a 17 dd f2 44 65 6c 57 |.....:..|....DelW|
|00000b70| 69 6e 28 77 25 29 3a 21 | 62 25 3d 77 25 0d 04 24 |in(w%):!|b%=w%..$|
|00000b80| 1d c8 99 22 57 69 6d 70 | 5f 44 65 6c 65 74 65 57 |..."Wimp|_DeleteW|
|00000b90| 69 6e 64 6f 77 22 2c 2c | 62 25 0d 04 2e 05 e1 0d |indow",,|b%......|
|00000ba0| 04 38 05 3a 0d 04 42 1c | dd f2 57 69 6d 70 53 45 |.8.:..B.|..WimpSE|
|00000bb0| 28 77 25 2c 41 25 2c 42 | 25 2c 43 25 2c 44 25 29 |(w%,A%,B|%,C%,D%)|
|00000bc0| 0d 04 4c 3c 21 62 25 3d | 41 25 3a 62 25 21 34 3d |..L<!b%=|A%:b%!4=|
|00000bd0| 42 25 3a 62 25 21 38 3d | 43 25 3a 62 25 21 31 32 |B%:b%!8=|C%:b%!12|
|00000be0| 3d 44 25 3a c8 99 22 57 | 69 6d 70 5f 53 65 74 45 |=D%:.."W|imp_SetE|
|00000bf0| 78 74 65 6e 74 22 2c 77 | 25 2c 62 25 0d 04 56 05 |xtent",w|%,b%..V.|
|00000c00| e1 0d 04 60 05 3a 0d 04 | 6a 16 dd f2 57 69 6d 70 |...`.:..|j...Wimp|
|00000c10| 4e 65 77 54 69 74 6c 65 | 28 77 25 29 0d 04 74 28 |NewTitle|(w%)..t(|
|00000c20| 21 62 25 3d 77 25 3a c8 | 99 22 57 69 6d 70 5f 47 |!b%=w%:.|."Wimp_G|
|00000c30| 65 74 57 69 6e 64 6f 77 | 4f 75 74 6c 69 6e 65 22 |etWindow|Outline"|
|00000c40| 2c 2c 62 25 0d 04 7e 35 | c8 99 22 57 69 6d 70 5f |,,b%..~5|.."Wimp_|
|00000c50| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 2d 31 2c |ForceRed|raw",-1,|
|00000c60| 62 25 21 34 2c 62 25 21 | 31 36 2d 34 34 2c 62 25 |b%!4,b%!|16-44,b%|
|00000c70| 21 31 32 2c 62 25 21 31 | 36 0d 04 88 05 e1 0d 04 |!12,b%!1|6.......|
|00000c80| 92 05 3a 0d 04 9c 10 dd | f2 57 69 6d 70 4f 54 28 |..:.....|.WimpOT(|
|00000c90| 54 24 29 0d 04 a6 1d c8 | 99 22 57 69 6d 70 5f 4f |T$).....|."Wimp_O|
|00000ca0| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 54 24 |penTempl|ate",,T$|
|00000cb0| 0d 04 b0 05 e1 0d 04 ba | 25 dd f2 57 69 6d 70 43 |........|%..WimpC|
|00000cc0| 54 3a c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |T:.."Wim|p_CloseT|
|00000cd0| 65 6d 70 6c 61 74 65 22 | 3a e1 0d 04 c4 16 dd a4 |emplate"|:.......|
|00000ce0| 57 69 6d 70 4c 54 28 49 | 25 2c 4e 25 2c 54 24 29 |WimpLT(I|%,N%,T$)|
|00000cf0| 0d 04 ce 37 c8 99 22 57 | 69 6d 70 5f 4c 6f 61 64 |...7.."W|imp_Load|
|00000d00| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 25 2c 49 25 |Template|",,b%,I%|
|00000d10| 2c 4e 25 2c b9 2c 54 24 | 2c 30 20 b8 20 2c 2c 4e |,N%,.,T$|,0 . ,,N|
|00000d20| 25 2c 2c 2c 2c 49 25 0d | 04 d8 6b e7 20 49 25 3d |%,,,,I%.|..k. I%=|
|00000d30| 30 20 f2 57 69 6d 70 43 | 54 3a 21 62 25 3d 30 3a |0 .WimpC|T:!b%=0:|
|00000d40| 24 28 62 25 2b 34 29 3d | 22 54 65 6d 70 6c 61 74 |$(b%+4)=|"Templat|
|00000d50| 65 20 22 2b 54 24 2b 22 | 20 6e 6f 74 20 66 6f 75 |e "+T$+"| not fou|
|00000d60| 6e 64 22 2b bd 30 3a c8 | 99 22 57 69 6d 70 5f 52 |nd"+.0:.|."Wimp_R|
|00000d70| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 25 2c 31 |eportErr|or",b%,1|
|00000d80| 2c 74 61 73 6b 6e 24 3a | f2 57 69 6d 70 45 6e 64 |,taskn$:|.WimpEnd|
|00000d90| 3a e0 0d 04 e2 07 3d 4e | 25 0d 04 ec 15 dd a4 57 |:.....=N|%......W|
|00000da0| 69 6d 70 43 57 28 62 25 | 29 3a ea 20 48 25 0d 04 |impCW(b%|):. H%..|
|00000db0| f6 26 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |.&.."Wim|p_Create|
|00000dc0| 57 69 6e 64 6f 77 22 2c | 2c 62 25 20 b8 20 48 25 |Window",|,b% . H%|
|00000dd0| 3a 3d 48 25 0d 05 00 05 | 3a 0d 05 0a 1d dd f2 57 |:=H%....|:......W|
|00000de0| 69 6d 70 53 53 61 76 65 | 3a ea 20 41 25 2c 42 25 |impSSave|:. A%,B%|
|00000df0| 2c 43 25 2c 44 25 0d 05 | 14 30 21 62 25 3d 53 61 |,C%,D%..|.0!b%=Sa|
|00000e00| 76 65 41 73 25 3a 62 25 | 21 34 3d 30 3a c8 99 22 |veAs%:b%|!4=0:.."|
|00000e10| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00000e20| 65 22 2c 2c 62 25 0d 05 | 1e 31 62 25 21 33 32 3d |e",,b%..|.1b%!32=|
|00000e30| 53 61 76 65 41 73 25 3a | c8 99 20 22 57 69 6d 70 |SaveAs%:|.. "Wimp|
|00000e40| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00000e50| 2c 2c 62 25 2b 33 32 0d | 05 28 3e 41 25 3d 62 25 |,,b%+32.|.(>A%=b%|
|00000e60| 21 33 36 2b 62 25 21 38 | 3a 42 25 3d 62 25 21 34 |!36+b%!8|:B%=b%!4|
|00000e70| 38 2b 62 25 21 31 32 3a | 43 25 3d 62 25 21 33 36 |8+b%!12:|C%=b%!36|
|00000e80| 2b 62 25 21 31 36 3a 44 | 25 3d 62 25 21 34 38 2b |+b%!16:D|%=b%!48+|
|00000e90| 62 25 21 32 30 0d 05 32 | 26 62 25 21 38 3d 41 25 |b%!20..2|&b%!8=A%|
|00000ea0| 3a 62 25 21 31 32 3d 42 | 25 3a 62 25 21 31 36 3d |:b%!12=B|%:b%!16=|
|00000eb0| 43 25 3a 62 25 21 32 30 | 3d 44 25 0d 05 3c 31 62 |C%:b%!20|=D%..<1b|
|00000ec0| 25 21 32 34 3d 30 3a 62 | 25 21 32 38 3d 30 3a 62 |%!24=0:b|%!28=0:b|
|00000ed0| 25 21 33 32 3d 26 37 46 | 46 46 46 46 46 3a 62 25 |%!32=&7F|FFFFF:b%|
|00000ee0| 21 33 36 3d 26 37 46 46 | 46 46 46 46 0d 05 46 1f |!36=&7FF|FFFF..F.|
|00000ef0| 62 25 21 34 3d 35 3a c8 | 99 22 57 69 6d 70 5f 44 |b%!4=5:.|."Wimp_D|
|00000f00| 72 61 67 42 6f 78 22 2c | 2c 62 25 0d 05 50 05 e1 |ragBox",|,b%..P..|
|00000f10| 0d 05 5a 18 dd f2 57 69 | 6d 70 44 6f 53 61 76 65 |..Z...Wi|mpDoSave|
|00000f20| 28 66 6e 24 2c 54 25 29 | 0d 05 64 1f c8 99 22 57 |(fn$,T%)|..d..."W|
|00000f30| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00000f40| 66 6f 22 2c 2c 62 25 0d | 05 6e 4a 62 25 21 32 30 |fo",,b%.|.nJb%!20|
|00000f50| 3d 31 32 38 3a 62 25 21 | 33 32 3d 30 3a 62 25 21 |=128:b%!|32=0:b%!|
|00000f60| 33 36 3d 31 3a 62 25 21 | 34 30 3d 62 25 21 31 32 |36=1:b%!|40=b%!12|
|00000f70| 3a 62 25 21 34 34 3d 62 | 25 21 31 36 3a 62 25 21 |:b%!44=b|%!16:b%!|
|00000f80| 34 38 3d 21 62 25 3a 62 | 25 21 35 32 3d 62 25 21 |48=!b%:b|%!52=b%!|
|00000f90| 34 0d 05 78 24 62 25 21 | 35 36 3d 30 3a 62 25 21 |4..x$b%!|56=0:b%!|
|00000fa0| 36 30 3d 54 25 3a 24 28 | 62 25 2b 36 34 29 3d 66 |60=T%:$(|b%+64)=f|
|00000fb0| 6e 24 2b bd 30 0d 05 82 | 2d c8 99 22 57 69 6d 70 |n$+.0...|-.."Wimp|
|00000fc0| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 37 |_SendMes|sage",17|
|00000fd0| 2c 62 25 2b 32 30 2c 62 | 25 21 34 30 2c 62 25 21 |,b%+20,b|%!40,b%!|
|00000fe0| 34 34 0d 05 8c 05 e1 0d | 05 96 42 dd f2 57 69 6d |44......|..B..Wim|
|00000ff0| 70 41 63 6b 53 61 76 65 | 3a 62 25 21 31 36 3d 33 |pAckSave|:b%!16=3|
|00001000| 3a c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |:.."Wimp|_SendMes|
|00001010| 73 61 67 65 22 2c 31 37 | 2c 62 25 2c 62 25 21 32 |sage",17|,b%,b%!2|
|00001020| 30 2c 62 25 21 32 34 3a | e1 0d 05 a0 05 3a 0d 05 |0,b%!24:|.....:..|
|00001030| aa 1f dd f2 48 6f 75 72 | 4f 6e 3a c8 99 22 48 6f |....Hour|On:.."Ho|
|00001040| 75 72 67 6c 61 73 73 5f | 4f 6e 22 3a e1 0d 05 b4 |urglass_|On":....|
|00001050| 25 dd f2 48 6f 75 72 53 | 6d 61 73 68 3a c8 99 22 |%..HourS|mash:.."|
|00001060| 48 6f 75 72 67 6c 61 73 | 73 5f 53 6d 61 73 68 22 |Hourglas|s_Smash"|
|00001070| 3a e1 0d 05 be 05 3a 0d | 05 c8 14 dd a4 47 65 74 |:.....:.|.....Get|
|00001080| 53 74 72 28 6e 25 29 3a | ea 6e 24 0d 05 d2 10 e7 |Str(n%):|.n$.....|
|00001090| 20 3f 6e 25 3c 33 32 20 | 3d 6e 24 0d 05 dc 23 f5 | ?n%<32 |=n$...#.|
|000010a0| 3a 6e 24 2b 3d bd 28 3f | 6e 25 29 3a 6e 25 2b 3d |:n$+=.(?|n%):n%+=|
|000010b0| 31 3a fd 20 3f 6e 25 3c | 33 32 3a 3d 6e 24 0d 05 |1:. ?n%<|32:=n$..|
|000010c0| e6 13 dd f2 50 75 74 53 | 74 72 28 6e 24 2c 6e 25 |....PutS|tr(n$,n%|
|000010d0| 29 0d 05 f0 0f 6e 24 2b | 3d bd 30 3a ea 20 49 25 |)....n$+|=.0:. I%|
|000010e0| 0d 05 fa 29 e3 20 49 25 | 3d 31 20 b8 20 a9 28 6e |...). I%|=1 . .(n|
|000010f0| 24 29 3a 3f 6e 25 3d 97 | 28 c1 6e 24 2c 49 25 29 |$):?n%=.|(.n$,I%)|
|00001100| 29 3a 6e 25 2b 3d 31 3a | ed 0d 06 04 05 e1 0d 06 |):n%+=1:|........|
|00001110| 0e 05 3a 0d 06 18 12 dd | a4 4c 65 61 66 28 6e 24 |..:.....|.Leaf(n$|
|00001120| 29 3a ea 69 25 0d 06 22 | 2d 69 25 3d a9 28 6e 24 |):.i%.."|-i%=.(n$|
|00001130| 29 3a c8 95 20 69 25 3e | 30 20 80 20 c1 6e 24 2c |):.. i%>|0 . .n$,|
|00001140| 69 25 2c 31 29 3c 3e 22 | 2e 22 3a 69 25 2d 3d 31 |i%,1)<>"|.":i%-=1|
|00001150| 3a ce 0d 06 2c 0e 3d c1 | 6e 24 2c 69 25 2b 31 29 |:...,.=.|n$,i%+1)|
|00001160| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+