home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-08-22 | 13.0 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 4c f4 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...L. ==|========|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 00 14 4c |========|====...L|
|00000050| f4 20 3d 3d 3d 20 41 70 | 70 6c 69 63 61 74 69 6f |. === Ap|plicatio|
|00000060| 6e 20 73 70 65 63 69 66 | 69 63 20 69 6e 69 74 69 |n specif|ic initi|
|00000070| 61 6c 69 73 61 74 69 6f | 6e 20 20 20 20 20 20 20 |alisatio|n |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 3d 3d 3d | 0d 00 1e 4c f4 20 3d 3d | ===|...L. ==|
|000000a0| 3d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |= | |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 3d 3d 3d 0d 00 28 4c | 4e 61 6d 65 24 3d 22 50 | ===..(L|Name$="P|
|000000f0| 4f 56 73 68 61 70 65 22 | 20 20 20 20 20 20 20 20 |OVshape"| |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000110| 3a f4 20 74 68 65 20 74 | 61 73 6b 20 6e 61 6d 65 |:. the t|ask name|
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3d 3d 3d | | ===|
|00000130| 0d 00 32 4c 76 65 72 73 | 69 6f 6e 24 3d 22 31 2e |..2Lvers|ion$="1.|
|00000140| 30 30 20 28 31 38 2d 41 | 75 67 2d 31 39 39 33 29 |00 (18-A|ug-1993)|
|00000150| 22 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 74 |" | :. t|
|00000160| 68 65 20 76 65 72 73 69 | 6f 6e 20 6e 75 6d 62 65 |he versi|on numbe|
|00000170| 72 20 20 20 20 20 20 20 | 20 3d 3d 3d 0d 00 3c 4c |r | ===..<L|
|00000180| 53 61 76 65 24 3d 22 53 | 68 61 70 65 22 20 20 20 |Save$="S|hape" |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001a0| 20 20 20 20 20 20 20 20 | 3a f4 20 64 65 66 61 75 | |:. defau|
|000001b0| 6c 74 20 73 61 76 65 66 | 69 6c 65 20 6e 61 6d 65 |lt savef|ile name|
|000001c0| 20 20 20 20 20 3d 3d 3d | 0d 00 46 4a de 20 44 61 | ===|..FJ. Da|
|000001d0| 74 61 25 20 31 30 30 30 | 20 20 20 20 20 20 20 20 |ta% 1000| |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001f0| 20 20 3a f4 20 6c 6f 63 | 61 74 69 6f 6e 20 6f 66 | :. loc|ation of|
|00000200| 20 70 72 6f 63 65 73 73 | 65 64 20 64 61 74 61 3d | process|ed data=|
|00000210| 3d 3d 0d 00 50 4c 44 61 | 74 61 4c 65 6e 25 3d 30 |==..PLDa|taLen%=0|
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00000240| 20 6c 65 6e 67 74 68 20 | 6f 66 20 64 61 74 61 20 | length |of data |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 3d 3d 3d 0d 00 | | ===..|
|00000260| 5a 4c 49 6e 70 75 74 25 | 3d 30 20 20 20 20 20 20 |ZLInput%|=0 |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 6c 6f 63 | | :. loc|
|00000290| 61 74 69 6f 6e 20 6f 66 | 20 73 6f 75 72 63 65 20 |ation of| source |
|000002a0| 64 61 74 61 20 20 20 3d | 3d 3d 0d 00 64 4c 49 6e |data =|==..dLIn|
|000002b0| 70 75 74 4c 65 6e 25 3d | 30 20 20 20 20 20 20 20 |putLen%=|0 |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002d0| 20 20 20 20 20 20 3a f4 | 20 6c 65 6e 67 74 68 20 | :.| length |
|000002e0| 6f 66 20 73 6f 75 72 63 | 65 20 64 61 74 61 20 20 |of sourc|e data |
|000002f0| 20 20 20 3d 3d 3d 0d 00 | 6e 4c 46 69 6c 65 54 79 | ===..|nLFileTy|
|00000300| 70 65 24 3d 22 46 46 46 | 22 20 20 20 20 20 20 20 |pe$="FFF|" |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000320| 20 20 3a f4 20 73 65 74 | 74 79 70 65 20 66 6f 72 | :. set|type for|
|00000330| 20 6f 75 74 70 75 74 20 | 20 20 20 20 20 20 20 3d | output | =|
|00000340| 3d 3d 0d 00 78 4c 73 63 | 72 61 70 72 65 66 25 3d |==..xLsc|rapref%=|
|00000350| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00000370| 20 61 72 65 20 77 65 20 | 75 73 69 6e 67 20 53 63 | are we |using Sc|
|00000380| 72 61 70 46 69 6c 65 20 | 20 20 20 3d 3d 3d 0d 00 |rapFile | ===..|
|00000390| 82 4c f4 20 3d 3d 3d 20 | 20 20 20 20 20 20 20 20 |.L. === | |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003d0| 20 20 20 20 20 20 20 3d | 3d 3d 0d 00 8c 4c f4 20 | =|==...L. |
|000003e0| 3d 3d 3d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=== | |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000420| 20 20 20 3d 3d 3d 0d 00 | 96 4c f4 20 3d 3d 3d 3d | ===..|.L. ====|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 3d 3d 0d 00 a0 04 0d 00 | aa 1a 44 69 72 24 3d 22 |==......|..Dir$="|
|00000480| 3c 22 2b 4e 61 6d 65 24 | 2b 22 24 44 69 72 3e 22 |<"+Name$|+"$Dir>"|
|00000490| 0d 00 b4 21 de 20 62 25 | 20 31 30 30 30 2c 20 51 |...!. b%| 1000, Q|
|000004a0| 25 20 31 30 30 30 2c 20 | 4d 65 6e 75 25 20 34 30 |% 1000, |Menu% 40|
|000004b0| 30 0d 00 be 0e 24 62 25 | 3d 22 54 41 53 4b 22 0d |0....$b%|="TASK".|
|000004c0| 00 c8 28 c8 99 22 57 69 | 6d 70 5f 49 6e 69 74 69 |..(.."Wi|mp_Initi|
|000004d0| 61 6c 69 73 65 22 2c 20 | 32 30 30 2c 20 21 62 25 |alise", |200, !b%|
|000004e0| 2c 20 4e 61 6d 65 24 0d | 00 d2 04 0d 00 dc 35 e0 |, Name$.|......5.|
|000004f0| 3d e0 2b 26 34 30 30 30 | 3a d3 3d 93 2d 26 31 30 |=.+&4000|:.=.-&10|
|00000500| 30 3a 48 65 61 70 25 3d | 93 3a f2 49 6e 69 74 48 |0:Heap%=|.:.InitH|
|00000510| 65 61 70 28 48 65 61 70 | 25 2c 20 26 31 30 30 29 |eap(Heap|%, &100)|
|00000520| 0d 00 e6 04 0d 00 f0 09 | f2 49 6e 69 74 0d 00 fa |........|.Init...|
|00000530| 0e ee 20 85 20 f2 45 72 | 72 6f 72 0d 01 04 05 f5 |.. . .Er|ror.....|
|00000540| 0d 01 0e 21 20 c8 99 22 | 57 69 6d 70 5f 50 6f 6c |...! .."|Wimp_Pol|
|00000550| 6c 22 2c 20 34 39 2c 20 | 62 25 20 b8 20 61 63 74 |l", 49, |b% . act|
|00000560| 25 0d 01 18 0e 20 c8 8e | 20 61 63 74 25 20 ca 0d |%.... ..| act% ..|
|00000570| 01 22 11 20 20 c9 20 31 | 3a f2 52 65 64 72 61 77 |.". . 1|:.Redraw|
|00000580| 0d 01 2c 23 20 20 c9 20 | 32 3a c8 99 22 57 69 6d |..,# . |2:.."Wim|
|00000590| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 20 2c |p_OpenWi|ndow", ,|
|000005a0| 20 62 25 0d 01 36 24 20 | 20 c9 20 33 3a c8 99 22 | b%..6$ | . 3:.."|
|000005b0| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|000005c0| 22 2c 20 2c 20 62 25 0d | 01 40 12 20 20 c9 20 36 |", , b%.|.@. . 6|
|000005d0| 3a f2 42 75 74 74 6f 6e | 73 0d 01 4a 13 20 20 c9 |:.Button|s..J. .|
|000005e0| 20 37 3a f2 44 72 61 67 | 28 62 25 29 0d 01 54 1f | 7:.Drag|(b%)..T.|
|000005f0| 20 20 c9 20 38 3a f2 6b | 65 79 28 62 25 21 30 2c | . 8:.k|ey(b%!0,|
|00000600| 62 25 21 34 2c 62 25 21 | 32 34 29 0d 01 5e 18 20 |b%!4,b%!|24)..^. |
|00000610| 20 c9 20 39 3a f2 6d 65 | 6e 75 73 65 6c 65 63 74 | . 9:.me|nuselect|
|00000620| 69 6f 6e 0d 01 68 22 20 | 20 c9 20 31 37 2c 20 31 |ion..h" | . 17, 1|
|00000630| 38 3a f2 4d 65 73 73 61 | 67 65 28 62 25 21 31 36 |8:.Messa|ge(b%!16|
|00000640| 2c 20 62 25 29 0d 01 72 | 06 20 cb 0d 01 7c 0b fd |, b%)..r|. ...|..|
|00000650| 20 51 75 69 74 25 0d 01 | 86 16 c8 99 22 57 69 6d | Quit%..|...."Wim|
|00000660| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 0d 01 90 06 |p_CloseD|own"....|
|00000670| c8 98 0d 01 9a 04 0d 01 | a4 0a dd f2 49 6e 69 74 |........|....Init|
|00000680| 0d 01 ae 0b 20 ea 20 69 | 73 70 25 0d 01 b8 12 20 |.... . i|sp%.... |
|00000690| ee 20 85 20 f2 45 72 72 | 6f 72 3a c8 98 0d 01 c2 |. . .Err|or:.....|
|000006a0| 0e 20 69 64 70 74 72 25 | 3d 51 25 0d 01 cc 04 0d |. idptr%|=Q%.....|
|000006b0| 01 d6 1f 20 f4 20 3d 3d | 20 6c 6f 61 64 20 74 68 |... . ==| load th|
|000006c0| 65 20 74 65 6d 70 6c 61 | 74 65 73 20 3d 3d 0d 01 |e templa|tes ==..|
|000006d0| e0 2f 20 c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 54 |./ .."Wi|mp_OpenT|
|000006e0| 65 6d 70 6c 61 74 65 22 | 2c 20 2c 20 44 69 72 24 |emplate"|, , Dir$|
|000006f0| 2b 22 2e 54 65 6d 70 6c | 61 74 65 73 22 0d 01 ea |+".Templ|ates"...|
|00000700| 4a 20 c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |J .."Wim|p_LoadTe|
|00000710| 6d 70 6c 61 74 65 22 2c | 20 2c 20 62 25 2c 20 69 |mplate",| , b%, i|
|00000720| 64 70 74 72 25 2c 20 51 | 25 2b 31 30 30 30 2c 20 |dptr%, Q|%+1000, |
|00000730| 2d 31 2c 20 22 49 6e 66 | 6f 22 20 b8 20 2c 20 2c |-1, "Inf|o" . , ,|
|00000740| 20 69 64 70 74 72 25 0d | 01 f4 28 20 c8 99 22 57 | idptr%.|..( .."W|
|00000750| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000760| 22 2c 20 2c 20 62 25 20 | b8 20 49 6e 66 6f 25 0d |", , b% |. Info%.|
|00000770| 01 fe 4a 20 c8 99 22 57 | 69 6d 70 5f 4c 6f 61 64 |..J .."W|imp_Load|
|00000780| 54 65 6d 70 6c 61 74 65 | 22 2c 20 2c 20 62 25 2c |Template|", , b%,|
|00000790| 20 69 64 70 74 72 25 2c | 20 51 25 2b 31 30 30 30 | idptr%,| Q%+1000|
|000007a0| 2c 20 2d 31 2c 20 22 53 | 61 76 65 22 20 b8 20 2c |, -1, "S|ave" . ,|
|000007b0| 20 2c 20 69 64 70 74 72 | 25 0d 02 08 28 20 c8 99 | , idptr|%...( ..|
|000007c0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000007d0| 6f 77 22 2c 20 2c 20 62 | 25 20 b8 20 53 61 76 65 |ow", , b|% . Save|
|000007e0| 25 0d 02 12 4b 20 c8 99 | 22 57 69 6d 70 5f 4c 6f |%...K ..|"Wimp_Lo|
|000007f0| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 20 2c 20 62 |adTempla|te", , b|
|00000800| 25 2c 20 69 64 70 74 72 | 25 2c 20 51 25 2b 31 30 |%, idptr|%, Q%+10|
|00000810| 30 30 2c 20 2d 31 2c 20 | 22 54 6f 72 75 73 22 20 |00, -1, |"Torus" |
|00000820| b8 20 2c 20 2c 20 69 64 | 70 74 72 25 0d 02 1c 29 |. , , id|ptr%...)|
|00000830| 20 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 | .."Wimp|_CreateW|
|00000840| 69 6e 64 6f 77 22 2c 20 | 2c 20 62 25 20 b8 20 54 |indow", |, b% . T|
|00000850| 6f 72 75 73 25 0d 02 26 | 4d 20 c8 99 22 57 69 6d |orus%..&|M .."Wim|
|00000860| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00000870| 20 2c 20 62 25 2c 20 69 | 64 70 74 72 25 2c 20 51 | , b%, i|dptr%, Q|
|00000880| 25 2b 31 30 30 30 2c 20 | 2d 31 2c 20 22 53 6f 66 |%+1000, |-1, "Sof|
|00000890| 74 43 79 6c 22 20 b8 20 | 2c 20 2c 20 69 64 70 74 |tCyl" . |, , idpt|
|000008a0| 72 25 0d 02 30 2b 20 c8 | 99 22 57 69 6d 70 5f 43 |r%..0+ .|."Wimp_C|
|000008b0| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 20 2c 20 |reateWin|dow", , |
|000008c0| 62 25 20 b8 20 53 6f 66 | 74 43 79 6c 25 0d 02 3a |b% . Sof|tCyl%..:|
|000008d0| 4a 20 c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |J .."Wim|p_LoadTe|
|000008e0| 6d 70 6c 61 74 65 22 2c | 20 2c 20 62 25 2c 20 69 |mplate",| , b%, i|
|000008f0| 64 70 74 72 25 2c 20 51 | 25 2b 31 30 30 30 2c 20 |dptr%, Q|%+1000, |
|00000900| 2d 31 2c 20 22 4e 65 63 | 6b 22 20 b8 20 2c 20 2c |-1, "Nec|k" . , ,|
|00000910| 20 69 64 70 74 72 25 0d | 02 44 28 20 c8 99 22 57 | idptr%.|.D( .."W|
|00000920| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000930| 22 2c 20 2c 20 62 25 20 | b8 20 4e 65 63 6b 25 0d |", , b% |. Neck%.|
|00000940| 02 4e 1b 20 c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |.N. .."W|imp_Clos|
|00000950| 65 54 65 6d 70 6c 61 74 | 65 22 0d 02 58 04 0d 02 |eTemplat|e"..X...|
|00000960| 62 16 20 f4 20 50 52 4f | 43 4c 6f 61 64 53 70 72 |b. . PRO|CLoadSpr|
|00000970| 69 74 65 73 0d 02 6c 04 | 0d 02 76 22 20 f4 20 3d |ites..l.|..v" . =|
|00000980| 3d 20 46 69 6e 64 20 74 | 68 65 20 69 63 6f 6e 62 |= Find t|he iconb|
|00000990| 61 72 20 69 63 6f 6e 20 | 3d 3d 0d 02 80 0e 20 de |ar icon |==.... .|
|000009a0| 20 69 73 70 25 20 31 32 | 0d 02 8a 0b 20 21 62 25 | isp% 12|.... !b%|
|000009b0| 3d 2d 31 0d 02 94 24 20 | 62 25 21 34 3d 30 3a 62 |=-1...$ |b%!4=0:b|
|000009c0| 25 21 31 32 3d 38 30 3a | 62 25 21 38 3d 30 3a 62 |%!12=80:|b%!8=0:b|
|000009d0| 25 21 31 36 3d 38 30 0d | 02 9e 20 20 62 25 21 32 |%!16=80.|.. b%!2|
|000009e0| 30 3d 26 33 31 30 32 3a | 24 69 73 70 25 3d 22 21 |0=&3102:|$isp%="!|
|000009f0| 22 2b 4e 61 6d 65 24 0d | 02 a8 26 20 62 25 21 32 |"+Name$.|..& b%!2|
|00000a00| 34 3d 69 73 70 25 3a 62 | 25 21 32 38 3d 31 3a 62 |4=isp%:b|%!28=1:b|
|00000a10| 25 21 33 32 3d a9 24 69 | 73 70 25 2b 31 0d 02 b2 |%!32=.$i|sp%+1...|
|00000a20| 24 20 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |$ .."Wim|p_Create|
|00000a30| 49 63 6f 6e 22 2c 20 2c | 20 62 25 20 b8 20 69 68 |Icon", ,| b% . ih|
|00000a40| 25 0d 02 bc 04 0d 02 c6 | 38 20 f4 20 3d 3d 20 70 |%.......|8 . == p|
|00000a50| 75 74 20 74 68 65 20 76 | 65 72 73 69 6f 6e 20 6e |ut the v|ersion n|
|00000a60| 75 6d 62 65 72 20 69 6e | 74 6f 20 74 68 65 20 69 |umber in|to the i|
|00000a70| 6e 66 6f 20 77 69 6e 64 | 6f 77 20 3d 3d 0d 02 d0 |nfo wind|ow ==...|
|00000a80| 1b 20 24 a4 69 28 49 6e | 66 6f 25 2c 20 33 29 3d |. $.i(In|fo%, 3)=|
|00000a90| 76 65 72 73 69 6f 6e 24 | 0d 02 da 04 0d 02 e4 25 |version$|.......%|
|00000aa0| 20 f4 20 3d 3d 20 44 65 | 66 61 75 6c 74 20 6e 61 | . == De|fault na|
|00000ab0| 6d 65 20 66 6f 72 20 73 | 61 76 65 64 20 66 69 6c |me for s|aved fil|
|00000ac0| 65 0d 02 ee 26 20 53 61 | 76 65 49 25 3d a4 69 28 |e...& Sa|veI%=.i(|
|00000ad0| 53 61 76 65 25 2c 20 31 | 29 3a 24 53 61 76 65 49 |Save%, 1|):$SaveI|
|00000ae0| 25 3d 53 61 76 65 24 0d | 02 f8 04 0d 03 02 14 20 |%=Save$.|....... |
|00000af0| 46 69 6c 65 25 3d a3 3a | 51 75 69 74 25 3d a3 0d |File%=.:|Quit%=..|
|00000b00| 03 0c 04 0d 03 16 05 e1 | 0d 03 20 04 0d 03 2a 1b |........|.. ...*.|
|00000b10| dd f2 4d 65 73 73 61 67 | 65 28 6d 65 73 73 61 67 |..Messag|e(messag|
|00000b20| 65 25 2c 20 62 25 29 0d | 03 34 19 20 52 65 66 25 |e%, b%).|.4. Ref%|
|00000b30| 3d 62 25 21 38 3a 54 61 | 73 6b 25 3d 62 25 21 34 |=b%!8:Ta|sk%=b%!4|
|00000b40| 0d 03 3e 12 20 c8 8e 20 | 6d 65 73 73 61 67 65 25 |..>. .. |message%|
|00000b50| 20 ca 0d 03 48 11 20 20 | c9 20 30 3a 51 75 69 74 | ...H. |. 0:Quit|
|00000b60| 25 3d b9 0d 03 52 3e 20 | 20 c9 20 31 3a f4 20 2d |%=...R> | . 1:. -|
|00000b70| 20 64 6f 20 6e 6f 74 68 | 69 6e 67 20 2d 20 49 20 | do noth|ing - I |
|00000b80| 64 6f 6e 27 74 20 61 63 | 63 65 70 74 20 66 69 6c |don't ac|cept fil|
|00000b90| 65 73 20 64 72 6f 70 70 | 65 64 20 6f 6e 20 6d 65 |es dropp|ed on me|
|00000ba0| 21 0d 03 5c 19 20 20 c9 | 20 32 3a e7 20 ac 20 53 |!..\. .| 2:. . S|
|00000bb0| 61 76 69 6e 67 25 20 8c | 20 e1 0d 03 66 37 20 20 |aving% .| ...f7 |
|00000bc0| 20 ff 28 22 53 41 56 45 | 20 22 2b a4 73 28 62 25 | .("SAVE| "+.s(b%|
|00000bd0| 2b 34 34 29 2b 22 20 22 | 2b c3 7e 44 61 74 61 25 |+44)+" "|+.~Data%|
|00000be0| 2b 22 20 2b 22 2b c3 7e | 44 61 74 61 4c 65 6e 25 |+" +"+.~|DataLen%|
|00000bf0| 29 0d 03 70 2c 20 20 20 | ff 28 22 53 45 54 54 59 |)..p, |.("SETTY|
|00000c00| 50 45 20 22 2b a4 73 28 | 62 25 2b 34 34 29 2b 22 |PE "+.s(|b%+44)+"|
|00000c10| 20 22 2b 46 69 6c 65 54 | 79 70 65 24 29 0d 03 7a | "+FileT|ype$)..z|
|00000c20| 10 20 20 20 53 61 76 69 | 6e 67 25 3d a3 0d 03 84 |. Savi|ng%=....|
|00000c30| 24 20 20 20 c8 99 22 57 | 69 6d 70 5f 47 65 74 50 |$ .."W|imp_GetP|
|00000c40| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 20 2c 20 62 |ointerIn|fo", , b|
|00000c50| 25 0d 03 8e 34 20 20 20 | 62 25 21 32 30 3d 62 25 |%...4 |b%!20=b%|
|00000c60| 21 31 32 3a 62 25 21 32 | 34 3d 62 25 21 31 36 3a |!12:b%!2|4=b%!16:|
|00000c70| 62 25 21 32 38 3d 62 25 | 21 30 3a 62 25 21 33 32 |b%!28=b%|!0:b%!32|
|00000c80| 3d 62 25 21 34 0d 03 98 | 19 20 20 20 62 25 21 33 |=b%!4...|. b%!3|
|00000c90| 36 3d 30 3a 62 25 21 34 | 30 3d 26 46 46 39 0d 03 |6=0:b%!4|0=&FF9..|
|00000ca0| a2 21 20 20 20 62 25 21 | 30 3d 34 34 3a 62 25 21 |.! b%!|0=44:b%!|
|00000cb0| 31 32 3d 52 65 66 25 3a | 62 25 21 31 36 3d 36 0d |12=Ref%:|b%!16=6.|
|00000cc0| 03 ac 2a 20 20 20 c8 99 | 22 57 69 6d 70 5f 53 65 |..* ..|"Wimp_Se|
|00000cd0| 6e 64 4d 65 73 73 61 67 | 65 22 2c 20 31 38 2c 20 |ndMessag|e", 18, |
|00000ce0| 62 25 2c 20 54 61 73 6b | 25 0d 03 b6 20 20 20 20 |b%, Task|%... |
|00000cf0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|00000d00| 6e 75 22 2c 20 2c 20 2d | 31 0d 03 c0 11 20 20 20 |nu", , -|1.... |
|00000d10| f2 63 6c 6f 73 65 73 61 | 76 65 0d 03 ca 30 20 20 |.closesa|ve...0 |
|00000d20| 20 c9 20 33 3a f4 20 2d | 20 64 6f 20 6e 6f 74 68 | . 3:. -| do noth|
|00000d30| 69 6e 67 20 2d 20 49 20 | 64 6f 6e 27 74 20 61 63 |ing - I |don't ac|
|00000d40| 63 65 70 74 20 66 69 6c | 65 73 0d 03 d4 1a 20 20 |cept fil|es.... |
|00000d50| c9 20 26 34 30 30 43 31 | 3a f2 43 68 61 6e 67 65 |. &400C1|:.Change|
|00000d60| 4d 6f 64 65 0d 03 de 06 | 20 cb 0d 03 e8 05 e1 0d |Mode....| .......|
|00000d70| 03 f2 04 0d 03 fc 0f dd | f2 63 6c 6f 73 65 73 61 |........|.closesa|
|00000d80| 76 65 0d 04 06 2e 20 20 | 62 25 21 30 3d 53 61 76 |ve.... |b%!0=Sav|
|00000d90| 65 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |e%:.."Wi|mp_GetWi|
|00000da0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 20 2c 20 62 25 |ndowStat|e", , b%|
|00000db0| 0d 04 10 20 20 20 c8 99 | 22 57 69 6d 70 5f 43 6c |... ..|"Wimp_Cl|
|00000dc0| 6f 73 65 57 69 6e 64 6f | 77 22 2c 20 2c 20 62 25 |oseWindo|w", , b%|
|00000dd0| 0d 04 1a 05 e1 0d 04 24 | 04 0d 04 2e 11 dd f2 63 |.......$|.......c|
|00000de0| 6c 6f 73 65 73 68 61 70 | 65 73 0d 04 38 2f 20 20 |loseshap|es..8/ |
|00000df0| 62 25 21 30 3d 54 6f 72 | 75 73 25 3a c8 99 22 57 |b%!0=Tor|us%:.."W|
|00000e00| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00000e10| 74 65 22 2c 20 2c 20 62 | 25 0d 04 42 20 20 20 c8 |te", , b|%..B .|
|00000e20| 99 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 |."Wimp_C|loseWind|
|00000e30| 6f 77 22 2c 20 2c 20 62 | 25 0d 04 4c 2e 20 20 62 |ow", , b|%..L. b|
|00000e40| 25 21 30 3d 4e 65 63 6b | 25 3a c8 99 22 57 69 6d |%!0=Neck|%:.."Wim|
|00000e50| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00000e60| 22 2c 20 2c 20 62 25 0d | 04 56 20 20 20 c8 99 22 |", , b%.|.V .."|
|00000e70| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00000e80| 22 2c 20 2c 20 62 25 0d | 04 60 31 20 20 62 25 21 |", , b%.|.`1 b%!|
|00000e90| 30 3d 53 6f 66 74 43 79 | 6c 25 3a c8 99 22 57 69 |0=SoftCy|l%:.."Wi|
|00000ea0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00000eb0| 65 22 2c 20 2c 20 62 25 | 0d 04 6a 20 20 20 c8 99 |e", , b%|..j ..|
|00000ec0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000ed0| 77 22 2c 20 2c 20 62 25 | 0d 04 74 05 e1 0d 04 7e |w", , b%|..t....~|
|00000ee0| 04 0d 04 88 0e dd f2 44 | 72 61 67 28 62 25 29 0d |.......D|rag(b%).|
|00000ef0| 04 92 0e 20 53 61 76 69 | 6e 67 25 3d b9 0d 04 9c |... Savi|ng%=....|
|00000f00| 22 20 c8 99 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |" .."Wim|p_GetPoi|
|00000f10| 6e 74 65 72 49 6e 66 6f | 22 2c 20 2c 20 62 25 0d |nterInfo|", , b%.|
|00000f20| 04 a6 23 20 62 25 21 34 | 30 3d 26 46 46 39 3a 24 |..# b%!4|0=&FF9:$|
|00000f30| 28 62 25 2b 34 34 29 3d | a4 73 28 53 61 76 65 49 |(b%+44)=|.s(SaveI|
|00000f40| 25 29 0d 04 b0 2e 20 62 | 25 21 33 36 3d 30 3a 62 |%).... b|%!36=0:b|
|00000f50| 25 21 33 32 3d 62 25 21 | 34 3a 62 25 21 32 34 3d |%!32=b%!|4:b%!24=|
|00000f60| 62 25 21 31 36 3a 62 25 | 21 32 38 3d 62 25 21 30 |b%!16:b%|!28=b%!0|
|00000f70| 0d 04 ba 28 20 62 25 21 | 32 30 3d 62 25 21 31 32 |...( b%!|20=b%!12|
|00000f80| 3a 62 25 21 31 36 3d 31 | 3a 62 25 21 31 32 3d 30 |:b%!16=1|:b%!12=0|
|00000f90| 3a 62 25 21 30 3d 36 30 | 0d 04 c4 28 20 c8 99 22 |:b%!0=60|...( .."|
|00000fa0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00000fb0| 22 2c 20 31 37 2c 20 62 | 25 2c 20 62 25 21 32 30 |", 17, b|%, b%!20|
|00000fc0| 0d 04 ce 05 e1 0d 04 d8 | 04 0d 04 e2 16 dd f2 49 |........|.......I|
|00000fd0| 6e 69 74 44 72 61 67 28 | 77 25 2c 20 69 25 29 0d |nitDrag(|w%, i%).|
|00000fe0| 04 ec 0d 20 ea 20 78 25 | 2c 20 79 25 0d 04 f6 2a |... . x%|, y%...*|
|00000ff0| 20 62 25 21 30 3d 77 25 | 3a c8 99 22 57 69 6d 70 | b%!0=w%|:.."Wimp|
|00001000| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00001010| 2c 20 2c 20 62 25 0d 05 | 00 1c 20 78 25 3d 62 25 |, , b%..|.. x%=b%|
|00001020| 21 34 3a 79 25 3d 62 25 | 21 38 3a 62 25 21 34 3d |!4:y%=b%|!8:b%!4=|
|00001030| 69 25 0d 05 0a 20 20 c8 | 99 22 57 69 6d 70 5f 47 |i%... .|."Wimp_G|
|00001040| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 20 2c 20 |etIconSt|ate", , |
|00001050| 62 25 0d 05 14 1e 20 62 | 25 21 34 3d 35 3a 62 25 |b%.... b|%!4=5:b%|
|00001060| 21 38 2b 3d 78 25 3a 62 | 25 21 31 32 2b 3d 79 25 |!8+=x%:b|%!12+=y%|
|00001070| 0d 05 1e 18 20 62 25 21 | 31 36 2b 3d 78 25 3a 62 |.... b%!|16+=x%:b|
|00001080| 25 21 32 30 2b 3d 79 25 | 0d 05 28 2a 20 62 25 21 |%!20+=y%|..(* b%!|
|00001090| 32 34 3d 30 3a 62 25 21 | 32 38 3d 30 3a 62 25 21 |24=0:b%!|28=0:b%!|
|000010a0| 33 32 3d 32 30 30 30 3a | 62 25 21 33 36 3d 32 30 |32=2000:|b%!36=20|
|000010b0| 30 30 0d 05 32 22 20 62 | 25 21 30 3d 30 3a c8 99 |00..2" b|%!0=0:..|
|000010c0| 22 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 22 2c 20 |"Wimp_Dr|agBox", |
|000010d0| 2c 20 62 25 0d 05 3c 05 | e1 0d 05 46 04 0d 05 50 |, b%..<.|...F...P|
|000010e0| 0d dd f2 42 75 74 74 6f | 6e 73 0d 05 5a 09 20 ea |...Butto|ns..Z. .|
|000010f0| 20 6d 24 0d 05 64 0f 20 | c8 8e 20 62 25 21 31 32 | m$..d. |.. b%!12|
|00001100| 20 ca 0d 05 6e 0a 20 20 | c9 20 2d 32 0d 05 78 13 | ...n. |. -2..x.|
|00001110| 20 20 20 e7 20 62 25 21 | 38 20 80 20 32 20 8c 0d | . b%!|8 . 2 ..|
|00001120| 05 82 4f 20 20 20 20 6d | 24 3d 22 49 6e 66 6f 7c |..O m|$="Info||
|00001130| 5b 49 6e 66 6f 25 5d 2c | 54 6f 72 75 73 7c 5b 54 |[Info%],|Torus|[T|
|00001140| 6f 72 75 73 25 5d 2c 4e | 65 63 6b 7c 5b 4e 65 63 |orus%],N|eck|[Nec|
|00001150| 6b 25 5d 2c 53 6f 66 74 | 20 43 79 6c 7c 5b 53 6f |k%],Soft| Cyl|[So|
|00001160| 66 74 43 79 6c 25 5d 2c | 51 75 69 74 7c 22 0d 05 |ftCyl%],|Quit|"..|
|00001170| 8c 28 20 20 20 20 f2 43 | 72 65 61 74 65 4d 65 6e |.( .C|reateMen|
|00001180| 75 28 35 2c 20 4d 65 6e | 75 25 2c 20 4e 61 6d 65 |u(5, Men|u%, Name|
|00001190| 24 2c 20 6d 24 29 0d 05 | 96 24 20 20 20 20 4d 6f |$, m$)..|.$ Mo|
|000011a0| 75 73 65 58 25 3d 62 25 | 21 30 2d 31 30 30 3a 4d |useX%=b%|!0-100:M|
|000011b0| 6f 75 73 65 59 25 3d 32 | 37 32 0d 05 a0 36 20 20 |ouseY%=2|72...6 |
|000011c0| 20 20 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .."Wim|p_Create|
|000011d0| 4d 65 6e 75 22 2c 20 2c | 20 4d 65 6e 75 25 2c 20 |Menu", ,| Menu%, |
|000011e0| 4d 6f 75 73 65 58 25 2c | 20 4d 6f 75 73 65 59 25 |MouseX%,| MouseY%|
|000011f0| 0d 05 aa 08 20 20 20 cd | 0d 05 b4 2d 20 20 c9 20 |.... .|...- . |
|00001200| 53 61 76 65 25 3a e7 20 | 62 25 21 31 36 3d 30 20 |Save%:. |b%!16=0 |
|00001210| 8c 20 f2 49 6e 69 74 44 | 72 61 67 28 53 61 76 65 |. .InitD|rag(Save|
|00001220| 25 2c 20 30 29 0d 05 be | 0e 20 20 c9 20 54 6f 72 |%, 0)...|. . Tor|
|00001230| 75 73 25 0d 05 c8 12 20 | 20 20 20 c8 8e 20 62 25 |us%.... | .. b%|
|00001240| 21 31 36 20 ca 0d 05 d2 | 21 20 20 20 20 20 20 c9 |!16 ....|! .|
|00001250| 20 33 3a f2 61 72 72 6f | 77 28 54 6f 72 75 73 25 | 3:.arro|w(Torus%|
|00001260| 2c 32 2c 2d 31 29 0d 05 | dc 20 20 20 20 20 20 20 |,2,-1)..|. |
|00001270| c9 20 34 3a f2 61 72 72 | 6f 77 28 54 6f 72 75 73 |. 4:.arr|ow(Torus|
|00001280| 25 2c 32 2c 31 29 0d 05 | e6 21 20 20 20 20 20 20 |%,2,1)..|.! |
|00001290| c9 20 35 3a f2 61 72 72 | 6f 77 28 54 6f 72 75 73 |. 5:.arr|ow(Torus|
|000012a0| 25 2c 36 2c 2d 31 29 0d | 05 f0 20 20 20 20 20 20 |%,6,-1).|.. |
|000012b0| 20 c9 20 37 3a f2 61 72 | 72 6f 77 28 54 6f 72 75 | . 7:.ar|row(Toru|
|000012c0| 73 25 2c 36 2c 31 29 0d | 05 fa 14 20 20 20 20 20 |s%,6,1).|... |
|000012d0| 20 c9 20 38 3a f2 54 6f | 72 75 73 0d 06 04 2d 20 | . 8:.To|rus...- |
|000012e0| 20 20 20 20 20 7f 20 f2 | 64 65 62 75 67 28 22 53 | . .|debug("S|
|000012f0| 70 75 72 69 6f 75 73 20 | 69 63 6f 6e 20 22 2b c3 |purious |icon "+.|
|00001300| 28 62 25 21 31 36 29 29 | 0d 06 0e 09 20 20 20 20 |(b%!16))|.... |
|00001310| cb 0d 06 18 0d 20 20 c9 | 20 4e 65 63 6b 25 0d 06 |..... .| Neck%..|
|00001320| 22 12 20 20 20 20 c8 8e | 20 62 25 21 31 36 20 ca |". ..| b%!16 .|
|00001330| 0d 06 2c 20 20 20 20 20 | 20 20 c9 20 33 3a f2 61 |.., | . 3:.a|
|00001340| 72 72 6f 77 28 4e 65 63 | 6b 25 2c 32 2c 2d 31 29 |rrow(Nec|k%,2,-1)|
|00001350| 0d 06 36 1f 20 20 20 20 | 20 20 c9 20 34 3a f2 61 |..6. | . 4:.a|
|00001360| 72 72 6f 77 28 4e 65 63 | 6b 25 2c 32 2c 31 29 0d |rrow(Nec|k%,2,1).|
|00001370| 06 40 20 20 20 20 20 20 | 20 c9 20 35 3a f2 61 72 |.@ | . 5:.ar|
|00001380| 72 6f 77 28 4e 65 63 6b | 25 2c 36 2c 2d 31 29 0d |row(Neck|%,6,-1).|
|00001390| 06 4a 1f 20 20 20 20 20 | 20 c9 20 37 3a f2 61 72 |.J. | . 7:.ar|
|000013a0| 72 6f 77 28 4e 65 63 6b | 25 2c 36 2c 31 29 0d 06 |row(Neck|%,6,1)..|
|000013b0| 54 13 20 20 20 20 20 20 | c9 20 38 3a f2 4e 65 63 |T. |. 8:.Nec|
|000013c0| 6b 0d 06 5e 22 20 20 20 | 20 20 20 c9 20 31 30 3a |k..^" | . 10:|
|000013d0| f2 61 72 72 6f 77 28 4e | 65 63 6b 25 2c 31 31 2c |.arrow(N|eck%,11,|
|000013e0| 2d 31 29 0d 06 68 21 20 | 20 20 20 20 20 c9 20 31 |-1)..h! | . 1|
|000013f0| 32 3a f2 61 72 72 6f 77 | 28 4e 65 63 6b 25 2c 31 |2:.arrow|(Neck%,1|
|00001400| 31 2c 31 29 0d 06 72 22 | 20 20 20 20 20 20 c9 20 |1,1)..r"| . |
|00001410| 31 34 3a f2 61 72 72 6f | 77 28 4e 65 63 6b 25 2c |14:.arro|w(Neck%,|
|00001420| 31 35 2c 2d 31 29 0d 06 | 7c 21 20 20 20 20 20 20 |15,-1)..||! |
|00001430| c9 20 31 36 3a f2 61 72 | 72 6f 77 28 4e 65 63 6b |. 16:.ar|row(Neck|
|00001440| 25 2c 31 35 2c 31 29 0d | 06 86 2d 20 20 20 20 20 |%,15,1).|..- |
|00001450| 20 7f 20 f2 64 65 62 75 | 67 28 22 53 70 75 72 69 | . .debu|g("Spuri|
|00001460| 6f 75 73 20 69 63 6f 6e | 20 22 2b c3 28 62 25 21 |ous icon| "+.(b%!|
|00001470| 31 36 29 29 0d 06 90 09 | 20 20 20 20 cb 0d 06 9a |16))....| ....|
|00001480| 10 20 20 c9 20 53 6f 66 | 74 43 79 6c 25 0d 06 a4 |. . Sof|tCyl%...|
|00001490| 12 20 20 20 20 c8 8e 20 | 62 25 21 31 36 20 ca 0d |. .. |b%!16 ..|
|000014a0| 06 ae 23 20 20 20 20 20 | 20 c9 20 33 3a f2 61 72 |..# | . 3:.ar|
|000014b0| 72 6f 77 28 53 6f 66 74 | 43 79 6c 25 2c 32 2c 2d |row(Soft|Cyl%,2,-|
|000014c0| 31 29 0d 06 b8 22 20 20 | 20 20 20 20 c9 20 34 3a |1)..." | . 4:|
|000014d0| f2 61 72 72 6f 77 28 53 | 6f 66 74 43 79 6c 25 2c |.arrow(S|oftCyl%,|
|000014e0| 32 2c 31 29 0d 06 c2 23 | 20 20 20 20 20 20 c9 20 |2,1)...#| . |
|000014f0| 35 3a f2 61 72 72 6f 77 | 28 53 6f 66 74 43 79 6c |5:.arrow|(SoftCyl|
|00001500| 25 2c 36 2c 2d 31 29 0d | 06 cc 22 20 20 20 20 20 |%,6,-1).|.." |
|00001510| 20 c9 20 37 3a f2 61 72 | 72 6f 77 28 53 6f 66 74 | . 7:.ar|row(Soft|
|00001520| 43 79 6c 25 2c 36 2c 31 | 29 0d 06 d6 16 20 20 20 |Cyl%,6,1|).... |
|00001530| 20 20 20 c9 20 38 3a f2 | 53 6f 66 74 43 79 6c 0d | . 8:.|SoftCyl.|
|00001540| 06 e0 25 20 20 20 20 20 | 20 c9 20 31 30 3a f2 61 |..% | . 10:.a|
|00001550| 72 72 6f 77 28 53 6f 66 | 74 43 79 6c 25 2c 31 31 |rrow(Sof|tCyl%,11|
|00001560| 2c 2d 31 29 0d 06 ea 24 | 20 20 20 20 20 20 c9 20 |,-1)...$| . |
|00001570| 31 32 3a f2 61 72 72 6f | 77 28 53 6f 66 74 43 79 |12:.arro|w(SoftCy|
|00001580| 6c 25 2c 31 31 2c 31 29 | 0d 06 f4 2d 20 20 20 20 |l%,11,1)|...- |
|00001590| 20 20 7f 20 f2 64 65 62 | 75 67 28 22 53 70 75 72 | . .deb|ug("Spur|
|000015a0| 69 6f 75 73 20 69 63 6f | 6e 20 22 2b c3 28 62 25 |ious ico|n "+.(b%|
|000015b0| 21 31 36 29 29 0d 06 fe | 09 20 20 20 20 cb 0d 07 |!16))...|. ...|
|000015c0| 08 07 20 20 cb 0d 07 12 | 05 e1 0d 07 1c 04 0d 07 |.. ....|........|
|000015d0| 26 33 dd a4 73 28 61 25 | 29 3a 61 24 3d 22 22 3a |&3..s(a%|):a$="":|
|000015e0| c8 95 20 3f 61 25 3e 3d | 33 32 3a 61 24 2b 3d bd |.. ?a%>=|32:a$+=.|
|000015f0| 28 3f 61 25 29 3a 61 25 | 2b 3d 31 3a ce 3a 3d 61 |(?a%):a%|+=1:.:=a|
|00001600| 24 0d 07 30 04 0d 07 3a | 0b dd f2 45 72 72 6f 72 |$..0...:|...Error|
|00001610| 0d 07 44 1b 20 c8 99 22 | 57 69 6d 70 5f 44 72 61 |..D. .."|Wimp_Dra|
|00001620| 67 42 6f 78 22 2c 20 2c | 20 2d 31 0d 07 4e 1f 20 |gBox", ,| -1..N. |
|00001630| 21 62 25 3d 9f 3a 24 28 | 62 25 2b 34 29 3d f6 24 |!b%=.:$(|b%+4)=.$|
|00001640| 2b 22 3a 20 22 2b c3 28 | 9e 29 0d 07 58 27 20 c8 |+": "+.(|.)..X' .|
|00001650| 99 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 |."Wimp_R|eportErr|
|00001660| 6f 72 22 2c 20 62 25 2c | 20 31 2c 20 4e 61 6d 65 |or", b%,| 1, Name|
|00001670| 24 0d 07 62 16 20 c8 99 | 22 48 6f 75 72 67 6c 61 |$..b. ..|"Hourgla|
|00001680| 73 73 5f 4f 66 66 22 0d | 07 6c 05 e1 0d 07 76 04 |ss_Off".|.l....v.|
|00001690| 0d 07 80 0f dd f2 64 65 | 62 75 67 28 41 24 29 0d |......de|bug(A$).|
|000016a0| 07 8a 15 20 21 62 25 3d | 9f 3a 24 28 62 25 2b 34 |... !b%=|.:$(b%+4|
|000016b0| 29 3d 41 24 0d 07 94 27 | 20 c8 99 22 57 69 6d 70 |)=A$...'| .."Wimp|
|000016c0| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 20 62 |_ReportE|rror", b|
|000016d0| 25 2c 20 31 2c 20 4e 61 | 6d 65 24 0d 07 9e 05 e1 |%, 1, Na|me$.....|
|000016e0| 0d 07 a8 04 0d 07 b2 3c | dd a4 46 69 6c 65 53 69 |.......<|..FileSi|
|000016f0| 7a 65 28 70 24 29 3a c8 | 99 22 4f 53 5f 46 69 6c |ze(p$):.|."OS_Fil|
|00001700| 65 22 2c 20 35 2c 20 70 | 24 20 b8 20 2c 20 2c 20 |e", 5, p|$ . , , |
|00001710| 2c 20 2c 20 73 69 7a 65 | 25 3a 3d 73 69 7a 65 25 |, , size|%:=size%|
|00001720| 0d 07 bc 04 0d 07 c6 37 | dd f2 49 6e 69 74 48 65 |.......7|..InitHe|
|00001730| 61 70 28 48 65 61 70 25 | 2c 20 6c 25 29 3a c8 99 |ap(Heap%|, l%):..|
|00001740| 22 4f 53 5f 48 65 61 70 | 22 2c 20 30 2c 20 48 65 |"OS_Heap|", 0, He|
|00001750| 61 70 25 2c 20 2c 20 6c | 25 3a e1 0d 07 d0 04 0d |ap%, , l|%:......|
|00001760| 07 da 0f dd a4 41 6c 6c | 6f 63 28 73 25 29 0d 07 |.....All|oc(s%)..|
|00001770| e4 0d 20 ea 20 66 25 2c | 20 70 25 0d 07 ee 2d 20 |.. . f%,| p%...- |
|00001780| c8 99 22 58 4f 53 5f 48 | 65 61 70 22 2c 20 32 2c |.."XOS_H|eap", 2,|
|00001790| 20 48 65 61 70 25 2c 20 | 2c 20 73 25 20 b8 20 2c | Heap%, |, s% . ,|
|000017a0| 20 2c 20 70 25 3b 66 25 | 0d 07 f8 0f 20 e7 20 66 | , p%;f%|.... . f|
|000017b0| 25 20 80 20 31 20 8c 0d | 08 02 3d 20 20 c8 99 22 |% . 1 ..|..= .."|
|000017c0| 57 69 6d 70 5f 53 6c 6f | 74 53 69 7a 65 22 2c 20 |Wimp_Slo|tSize", |
|000017d0| 48 65 61 70 25 2b 48 65 | 61 70 25 21 38 2b 26 31 |Heap%+He|ap%!8+&1|
|000017e0| 30 30 2b 73 25 2d 26 38 | 30 30 30 2c 20 2d 31 20 |00+s%-&8|000, -1 |
|000017f0| b8 20 66 25 0d 08 0c 0f | 20 20 66 25 2b 3d 26 38 |. f%....| f%+=&8|
|00001800| 30 30 30 0d 08 16 30 20 | 20 c8 99 22 4f 53 5f 48 |000...0 | .."OS_H|
|00001810| 65 61 70 22 2c 20 35 2c | 20 48 65 61 70 25 2c 20 |eap", 5,| Heap%, |
|00001820| 2c 20 66 25 2d 48 65 61 | 70 25 2d 48 65 61 70 25 |, f%-Hea|p%-Heap%|
|00001830| 21 31 32 0d 08 20 2a 20 | 20 c8 99 22 4f 53 5f 48 |!12.. * | .."OS_H|
|00001840| 65 61 70 22 2c 20 32 2c | 20 48 65 61 70 25 2c 20 |eap", 2,| Heap%, |
|00001850| 2c 20 73 25 20 b8 20 2c | 20 2c 20 70 25 0d 08 2a |, s% . ,| , p%..*|
|00001860| 06 20 cd 0d 08 34 07 3d | 70 25 0d 08 3e 04 0d 08 |. ...4.=|p%..>...|
|00001870| 48 15 dd f2 46 72 65 65 | 42 6c 6f 63 6b 28 f8 20 |H...Free|Block(. |
|00001880| 70 25 29 0d 08 52 10 20 | e7 20 70 25 3c 3d 30 20 |p%)..R. |. p%<=0 |
|00001890| 8c 20 e1 0d 08 5c 1e 20 | c8 99 22 4f 53 5f 48 65 |. ...\. |.."OS_He|
|000018a0| 61 70 22 2c 20 33 2c 20 | 48 65 61 70 25 2c 20 70 |ap", 3, |Heap%, p|
|000018b0| 25 0d 08 66 2e 20 c8 99 | 22 4f 53 5f 48 65 61 70 |%..f. ..|"OS_Heap|
|000018c0| 22 2c 20 35 2c 20 48 65 | 61 70 25 2c 20 2c 20 48 |", 5, He|ap%, , H|
|000018d0| 65 61 70 25 21 38 2d 48 | 65 61 70 25 21 31 32 0d |eap%!8-H|eap%!12.|
|000018e0| 08 70 30 20 c8 99 22 57 | 69 6d 70 5f 53 6c 6f 74 |.p0 .."W|imp_Slot|
|000018f0| 53 69 7a 65 22 2c 20 48 | 65 61 70 25 2b 48 65 61 |Size", H|eap%+Hea|
|00001900| 70 25 21 31 32 2d 26 38 | 30 30 30 2c 20 2d 31 0d |p%!12-&8|000, -1.|
|00001910| 08 7a 0a 20 70 25 3d 2d | 31 0d 08 84 05 e1 0d 08 |.z. p%=-|1.......|
|00001920| 8e 04 0d 08 98 0c dd f2 | 52 65 64 72 61 77 0d 08 |........|Redraw..|
|00001930| a2 2b 20 20 f4 20 2d 20 | 61 6c 6c 20 74 68 65 73 |.+ . - |all thes|
|00001940| 65 20 77 69 6e 64 6f 77 | 73 20 61 72 65 20 61 75 |e window|s are au|
|00001950| 74 6f 6d 61 74 69 63 20 | 2d 0d 08 ac 05 e1 0d 08 |tomatic |-.......|
|00001960| b6 04 0d 08 c0 10 dd f2 | 43 68 61 6e 67 65 4d 6f |........|ChangeMo|
|00001970| 64 65 0d 08 ca 2b 20 20 | f4 20 2d 20 61 6c 6c 20 |de...+ |. - all |
|00001980| 74 68 65 73 65 20 77 69 | 6e 64 6f 77 73 20 61 72 |these wi|ndows ar|
|00001990| 65 20 61 75 74 6f 6d 61 | 74 69 63 20 2d 0d 08 d4 |e automa|tic -...|
|000019a0| 05 e1 0d 08 de 04 0d 08 | e8 2d dd f2 43 72 65 61 |........|.-..Crea|
|000019b0| 74 65 4d 65 6e 75 28 6e | 75 6d 25 2c 20 73 74 61 |teMenu(n|um%, sta|
|000019c0| 72 74 25 2c 20 74 69 74 | 6c 65 24 2c 20 6d 65 6e |rt%, tit|le$, men|
|000019d0| 75 24 29 0d 08 f2 2f 20 | ea 20 63 6f 64 65 32 24 |u$).../ |. code2$|
|000019e0| 2c 20 74 31 24 2c 20 63 | 6f 64 65 24 2c 20 77 69 |, t1$, c|ode$, wi|
|000019f0| 64 74 68 25 2c 20 6d 62 | 25 2c 20 73 75 62 70 74 |dth%, mb|%, subpt|
|00001a00| 72 25 0d 08 fc 19 20 77 | 69 64 74 68 25 3d 31 36 |r%.... w|idth%=16|
|00001a10| 2a a9 74 69 74 6c 65 24 | 2d 31 36 0d 09 06 21 20 |*.title$|-16...! |
|00001a20| 6d 62 25 3d 73 74 61 72 | 74 25 3a 24 6d 62 25 3d |mb%=star|t%:$mb%=|
|00001a30| c0 74 69 74 6c 65 24 2c | 20 31 31 29 0d 09 10 12 |.title$,| 11)....|
|00001a40| 20 6d 62 25 21 31 32 3d | 26 37 30 32 30 37 0d 09 | mb%!12=|&70207..|
|00001a50| 1a 17 20 6d 62 25 21 32 | 30 3d 34 34 3a 6d 62 25 |.. mb%!2|0=44:mb%|
|00001a60| 21 32 34 3d 30 0d 09 24 | 0c 20 6d 62 25 2b 3d 32 |!24=0..$|. mb%+=2|
|00001a70| 38 0d 09 2e 0d 20 74 24 | 3d 6d 65 6e 75 24 0d 09 |8.... t$|=menu$..|
|00001a80| 38 12 20 e3 20 49 25 3d | 31 20 b8 20 6e 75 6d 25 |8. . I%=|1 . num%|
|00001a90| 0d 09 42 10 20 20 73 75 | 62 70 74 72 25 3d 2d 31 |..B. su|bptr%=-1|
|00001aa0| 0d 09 4c 1b 20 20 74 31 | 24 3d c0 74 24 2c 20 a7 |..L. t1|$=.t$, .|
|00001ab0| 74 24 2c 20 22 2c 22 29 | 2d 31 29 0d 09 56 20 20 |t$, ",")|-1)..V |
|00001ac0| 20 74 69 74 6c 65 24 3d | c0 74 31 24 2c 20 a7 74 | title$=|.t1$, .t|
|00001ad0| 31 24 2c 20 22 7c 22 29 | 2d 31 29 0d 09 60 1f 20 |1$, "|")|-1)..`. |
|00001ae0| 20 63 6f 64 65 24 3d c1 | 74 31 24 2c 20 a7 74 31 | code$=.|t1$, .t1|
|00001af0| 24 2c 20 22 7c 22 29 2b | 31 29 0d 09 6a 16 20 20 |$, "|")+|1)..j. |
|00001b00| e7 20 a7 63 6f 64 65 24 | 2c 20 22 5b 22 29 20 8c |. .code$|, "[") .|
|00001b10| 0d 09 74 25 20 20 20 63 | 6f 64 65 32 24 3d c1 63 |..t% c|ode2$=.c|
|00001b20| 6f 64 65 24 2c 20 a7 63 | 6f 64 65 24 2c 20 22 5b |ode$, .c|ode$, "[|
|00001b30| 22 29 2b 31 29 0d 09 7e | 2a 20 20 20 73 75 62 70 |")+1)..~|* subp|
|00001b40| 74 72 25 3d a0 20 c0 63 | 6f 64 65 32 24 2c 20 a7 |tr%=. .c|ode2$, .|
|00001b50| 63 6f 64 65 32 24 2c 20 | 22 5d 22 29 2d 31 29 0d |code2$, |"]")-1).|
|00001b60| 09 88 07 20 20 cd 0d 09 | 92 1c 20 20 24 28 6d 62 |... ...|.. $(mb|
|00001b70| 25 2b 31 32 29 3d c0 74 | 69 74 6c 65 24 2c 20 31 |%+12)=.t|itle$, 1|
|00001b80| 31 29 0d 09 9c 33 20 20 | e7 20 77 69 64 74 68 25 |1)...3 |. width%|
|00001b90| 3c 31 36 2a a9 74 69 74 | 6c 65 24 2b 31 36 20 8c |<16*.tit|le$+16 .|
|00001ba0| 20 77 69 64 74 68 25 3d | 31 36 2a a9 74 69 74 6c | width%=|16*.titl|
|00001bb0| 65 24 2b 31 36 0d 09 a6 | 1a 20 20 74 24 3d c1 74 |e$+16...|. t$=.t|
|00001bc0| 24 2c 20 a7 74 24 2c 20 | 22 2c 22 29 2b 31 29 0d |$, .t$, |",")+1).|
|00001bd0| 09 b0 0d 20 20 6d 62 25 | 21 30 3d 30 0d 09 ba 13 |... mb%|!0=0....|
|00001be0| 20 20 6d 62 25 21 34 3d | 73 75 62 70 74 72 25 0d | mb%!4=|subptr%.|
|00001bf0| 09 c4 14 20 20 6d 62 25 | 21 38 3d 26 37 30 30 30 |... mb%|!8=&7000|
|00001c00| 30 32 31 0d 09 ce 0d 20 | 20 6d 62 25 2b 3d 32 34 |021.... | mb%+=24|
|00001c10| 0d 09 d8 06 20 ed 0d 09 | e2 1c 20 6d 62 25 21 2d |.... ...|.. mb%!-|
|00001c20| 32 34 3d 28 6d 62 25 21 | 2d 32 34 20 84 20 26 38 |24=(mb%!|-24 . &8|
|00001c30| 30 29 0d 09 ec 15 20 73 | 74 61 72 74 25 21 31 36 |0).... s|tart%!16|
|00001c40| 3d 77 69 64 74 68 25 0d | 09 f6 05 e1 0d 0a 00 04 |=width%.|........|
|00001c50| 0d 0a 0a 2c f4 20 73 65 | 74 73 20 6f 72 20 63 6c |...,. se|ts or cl|
|00001c60| 65 61 72 73 20 22 67 72 | 65 79 65 64 2d 6f 75 74 |ears "gr|eyed-out|
|00001c70| 22 20 6d 65 6e 75 20 69 | 74 65 6d 73 0d 0a 14 3c |" menu i|tems...<|
|00001c80| dd f2 53 68 61 64 65 28 | 70 25 2c 20 6e 25 29 3a |..Shade(|p%, n%):|
|00001c90| 70 25 2b 3d 4d 65 6e 75 | 25 2b 6e 25 2a 32 34 2b |p%+=Menu|%+n%*24+|
|00001ca0| 32 38 3a 70 25 21 38 3d | 70 25 21 38 20 84 20 26 |28:p%!8=|p%!8 . &|
|00001cb0| 34 30 30 30 30 30 3a e1 | 0d 0a 1e 04 0d 0a 28 26 |400000:.|......(&|
|00001cc0| f4 20 72 65 74 75 72 6e | 73 20 61 20 70 6f 69 6e |. return|s a poin|
|00001cd0| 74 65 72 20 74 6f 20 61 | 20 74 65 78 74 20 69 63 |ter to a| text ic|
|00001ce0| 6f 6e 0d 0a 32 42 dd a4 | 69 28 77 25 2c 20 69 25 |on..2B..|i(w%, i%|
|00001cf0| 29 3a 62 25 21 30 3d 77 | 25 3a 62 25 21 34 3d 69 |):b%!0=w|%:b%!4=i|
|00001d00| 25 3a c8 99 22 57 69 6d | 70 5f 47 65 74 49 63 6f |%:.."Wim|p_GetIco|
|00001d10| 6e 53 74 61 74 65 22 2c | 20 2c 20 62 25 3a 3d 62 |nState",| , b%:=b|
|00001d20| 25 21 32 38 0d 0a 3c 04 | 0d 0a 46 22 f4 20 61 20 |%!28..<.|..F". a |
|00001d30| 6d 65 6e 75 20 69 74 65 | 6d 20 68 61 73 20 62 65 |menu ite|m has be|
|00001d40| 65 6e 20 63 6c 69 63 6b | 65 64 0d 0a 50 13 dd f2 |en click|ed..P...|
|00001d50| 6d 65 6e 75 73 65 6c 65 | 63 74 69 6f 6e 0d 0a 5a |menusele|ction..Z|
|00001d60| 0d c8 8e 20 62 25 21 30 | 20 ca 0d 0a 64 16 20 20 |... b%!0| ...d. |
|00001d70| c9 20 31 3a f2 63 6c 6f | 73 65 73 68 61 70 65 73 |. 1:.clo|seshapes|
|00001d80| 0d 0a 6e 36 20 20 20 20 | 20 20 20 20 20 62 25 21 |..n6 | b%!|
|00001d90| 30 3d 54 6f 72 75 73 25 | 3a c8 99 22 57 69 6d 70 |0=Torus%|:.."Wimp|
|00001da0| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00001db0| 2c 20 2c 20 62 25 0d 0a | 78 26 20 20 20 20 20 20 |, , b%..|x& |
|00001dc0| 20 20 20 c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 57 | .."Wi|mp_OpenW|
|00001dd0| 69 6e 64 6f 77 22 2c 20 | 2c 20 62 25 0d 0a 82 16 |indow", |, b%....|
|00001de0| 20 20 c9 20 32 3a f2 63 | 6c 6f 73 65 73 68 61 70 | . 2:.c|loseshap|
|00001df0| 65 73 0d 0a 8c 35 20 20 | 20 20 20 20 20 20 20 62 |es...5 | b|
|00001e00| 25 21 30 3d 4e 65 63 6b | 25 3a c8 99 22 57 69 6d |%!0=Neck|%:.."Wim|
|00001e10| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00001e20| 22 2c 20 2c 20 62 25 0d | 0a 96 26 20 20 20 20 20 |", , b%.|..& |
|00001e30| 20 20 20 20 c8 99 22 57 | 69 6d 70 5f 4f 70 65 6e | .."W|imp_Open|
|00001e40| 57 69 6e 64 6f 77 22 2c | 20 2c 20 62 25 0d 0a a0 |Window",| , b%...|
|00001e50| 16 20 20 c9 20 33 3a f2 | 63 6c 6f 73 65 73 68 61 |. . 3:.|closesha|
|00001e60| 70 65 73 0d 0a aa 38 20 | 20 20 20 20 20 20 20 20 |pes...8 | |
|00001e70| 62 25 21 30 3d 53 6f 66 | 74 43 79 6c 25 3a c8 99 |b%!0=Sof|tCyl%:..|
|00001e80| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00001e90| 74 61 74 65 22 2c 20 2c | 20 62 25 0d 0a b4 26 20 |tate", ,| b%...& |
|00001ea0| 20 20 20 20 20 20 20 20 | c8 99 22 57 69 6d 70 5f | |.."Wimp_|
|00001eb0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 20 2c 20 62 |OpenWind|ow", , b|
|00001ec0| 25 0d 0a be 20 20 20 c9 | 20 34 3a 51 75 69 74 25 |%... .| 4:Quit%|
|00001ed0| 3d b9 3a 20 f4 20 71 75 | 69 74 20 61 63 74 69 6f |=.: . qu|it actio|
|00001ee0| 6e 0d 0a c8 05 cb 0d 0a | d2 05 e1 0d 0a dc 04 0d |n.......|........|
|00001ef0| 0a e6 12 dd 20 f2 4c 6f | 61 64 53 70 72 69 74 65 |.... .Lo|adSprite|
|00001f00| 73 0d 0a f0 19 ea 20 6c | 65 6e 25 2c 73 69 7a 65 |s..... l|en%,size|
|00001f10| 25 2c 78 25 2c 66 69 6c | 65 24 0d 0a fa 11 53 70 |%,x%,fil|e$....Sp|
|00001f20| 72 69 74 65 5f 4f 70 3d | 26 32 45 0d 0b 04 19 66 |rite_Op=|&2E....f|
|00001f30| 69 6c 65 24 3d 44 69 72 | 24 2b 22 2e 53 70 72 69 |ile$=Dir|$+".Spri|
|00001f40| 74 65 73 22 0d 0b 0e 0f | 78 25 3d 8e 28 66 69 6c |tes"....|x%=.(fil|
|00001f50| 65 24 29 0d 0b 18 09 e7 | 78 25 20 8c 0d 0b 22 14 |e$).....|x% ...".|
|00001f60| 20 20 6c 65 6e 25 3d a2 | 23 78 25 3a d9 23 78 25 | len%=.|#x%:.#x%|
|00001f70| 0d 0b 2c 14 20 20 73 69 | 7a 65 25 3d 31 30 30 2b |..,. si|ze%=100+|
|00001f80| 6c 65 6e 25 0d 0b 36 12 | 20 20 de 61 72 65 61 25 |len%..6.| .area%|
|00001f90| 20 73 69 7a 65 25 0d 0b | 40 12 20 20 21 61 72 65 | size%..|@. !are|
|00001fa0| 61 25 3d 73 69 7a 65 25 | 0d 0b 4a 10 20 20 61 72 |a%=size%|..J. ar|
|00001fb0| 65 61 25 21 38 3d 31 36 | 0d 0b 54 1e 20 20 c8 99 |ea%!8=16|..T. ..|
|00001fc0| 20 53 70 72 69 74 65 5f | 4f 70 2c 39 2b 32 35 36 | Sprite_|Op,9+256|
|00001fd0| 2c 61 72 65 61 25 0d 0b | 5e 25 20 20 c8 99 20 53 |,area%..|^% .. S|
|00001fe0| 70 72 69 74 65 5f 4f 70 | 2c 31 30 2b 32 35 36 2c |prite_Op|,10+256,|
|00001ff0| 61 72 65 61 25 2c 66 69 | 6c 65 24 0d 0b 68 05 cc |area%,fi|le$..h..|
|00002000| 0d 0b 72 21 20 20 85 20 | 31 2c 22 53 70 72 69 74 |..r! . |1,"Sprit|
|00002010| 65 20 66 69 6c 65 20 6e | 6f 74 20 66 6f 75 6e 64 |e file n|ot found|
|00002020| 22 0d 0b 7c 05 cd 0d 0b | 86 05 e1 0d 0b 90 04 0d |"..|....|........|
|00002030| 0b 9a 1d dd f2 6b 65 79 | 28 57 69 6e 64 6f 77 25 |.....key|(Window%|
|00002040| 2c 49 63 6f 6e 25 2c 4b | 65 79 25 29 0d 0b a4 0b |,Icon%,K|ey%)....|
|00002050| 64 6f 6e 65 25 3d a3 0d | 0b ae 0c 69 6e 64 65 78 |done%=..|...index|
|00002060| 25 3d 30 0d 0b b8 10 c8 | 8e 20 57 69 6e 64 6f 77 |%=0.....|. Window|
|00002070| 25 20 ca 0d 0b c2 1a 20 | 20 c9 20 54 6f 72 75 73 |% ..... | . Torus|
|00002080| 25 3a 69 6e 64 65 78 25 | 3d 31 30 30 30 0d 0b cc |%:index%|=1000...|
|00002090| 1c 20 20 c9 20 53 6f 66 | 74 43 79 6c 25 3a 69 6e |. . Sof|tCyl%:in|
|000020a0| 64 65 78 25 3d 32 30 30 | 30 0d 0b d6 19 20 20 c9 |dex%=200|0.... .|
|000020b0| 20 4e 65 63 6b 25 3a 69 | 6e 64 65 78 25 3d 33 30 | Neck%:i|ndex%=30|
|000020c0| 30 30 0d 0b e0 05 cb 0d | 0b ea 1a 69 6e 64 65 78 |00......|...index|
|000020d0| 25 3d 69 6e 64 65 78 25 | 2b 31 30 2a 49 63 6f 6e |%=index%|+10*Icon|
|000020e0| 25 0d 0b f4 0d c8 8e 20 | 4b 65 79 25 20 ca 0d 0b |%...... |Key% ...|
|000020f0| fe 1b 20 20 c9 20 26 31 | 38 41 2c 26 31 38 45 3a |.. . &1|8A,&18E:|
|00002100| 69 6e 64 65 78 25 2b 3d | 31 0d 0c 08 1b 20 20 c9 |index%+=|1.... .|
|00002110| 20 26 31 38 46 20 20 20 | 20 20 3a 69 6e 64 65 78 | &18F | :index|
|00002120| 25 2b 3d 32 0d 0c 12 1b | 20 20 c9 20 20 20 31 33 |%+=2....| . 13|
|00002130| 20 20 20 20 20 3a 69 6e | 64 65 78 25 2b 3d 33 0d | :in|dex%+=3.|
|00002140| 0c 1c 05 cb 0d 0c 26 0f | c8 8e 20 69 6e 64 65 78 |......&.|.. index|
|00002150| 25 20 ca 0d 0c 30 2c 20 | 20 c9 20 31 30 32 31 2c |% ...0, | . 1021,|
|00002160| 31 30 32 32 2c 31 30 32 | 33 20 20 20 20 20 3a f2 |1022,102|3 :.|
|00002170| 63 61 72 65 74 28 54 6f | 72 75 73 25 2c 36 29 0d |caret(To|rus%,6).|
|00002180| 0c 3a 2c 20 20 c9 20 31 | 30 36 31 2c 31 30 36 32 |.:, . 1|061,1062|
|00002190| 20 20 20 20 20 20 20 20 | 20 20 3a f2 63 61 72 65 | | :.care|
|000021a0| 74 28 54 6f 72 75 73 25 | 2c 32 29 0d 0c 44 22 20 |t(Torus%|,2)..D" |
|000021b0| 20 c9 20 31 30 36 33 20 | 20 20 20 20 20 20 20 20 | . 1063 | |
|000021c0| 20 20 20 20 20 20 3a f2 | 54 6f 72 75 73 0d 0c 4e | :.|Torus..N|
|000021d0| 2e 20 20 c9 20 32 30 32 | 31 2c 32 30 32 33 2c 32 |. . 202|1,2023,2|
|000021e0| 31 31 32 20 20 20 20 20 | 3a f2 63 61 72 65 74 28 |112 |:.caret(|
|000021f0| 53 6f 66 74 43 79 6c 25 | 2c 36 29 0d 0c 58 2f 20 |SoftCyl%|,6)..X/ |
|00002200| 20 c9 20 32 30 32 32 2c | 32 30 36 31 2c 32 30 36 | . 2022,|2061,206|
|00002210| 33 20 20 20 20 20 3a f2 | 63 61 72 65 74 28 53 6f |3 :.|caret(So|
|00002220| 66 74 43 79 6c 25 2c 31 | 31 29 0d 0c 62 2e 20 20 |ftCyl%,1|1)..b. |
|00002230| c9 20 32 31 31 31 2c 32 | 30 36 32 20 20 20 20 20 |. 2111,2|062 |
|00002240| 20 20 20 20 20 3a f2 63 | 61 72 65 74 28 53 6f 66 | :.c|aret(Sof|
|00002250| 74 43 79 6c 25 2c 32 29 | 0d 0c 6c 24 20 20 c9 20 |tCyl%,2)|..l$ . |
|00002260| 32 31 31 33 20 20 20 20 | 20 20 20 20 20 20 20 20 |2113 | |
|00002270| 20 20 20 3a f2 53 6f 66 | 74 43 79 6c 0d 0c 76 2b | :.Sof|tCyl..v+|
|00002280| 20 20 c9 20 33 30 32 31 | 2c 33 30 32 33 2c 33 31 | . 3021|,3023,31|
|00002290| 31 32 20 20 20 20 20 3a | f2 63 61 72 65 74 28 4e |12 :|.caret(N|
|000022a0| 65 63 6b 25 2c 36 29 0d | 0c 80 2c 20 20 c9 20 33 |eck%,6).|.., . 3|
|000022b0| 30 32 32 2c 33 30 36 31 | 2c 33 30 36 33 20 20 20 |022,3061|,3063 |
|000022c0| 20 20 3a f2 63 61 72 65 | 74 28 4e 65 63 6b 25 2c | :.care|t(Neck%,|
|000022d0| 31 31 29 0d 0c 8a 2b 20 | 20 c9 20 33 31 31 31 2c |11)...+ | . 3111,|
|000022e0| 33 30 36 32 20 20 20 20 | 20 20 20 20 20 20 3a f2 |3062 | :.|
|000022f0| 63 61 72 65 74 28 4e 65 | 63 6b 25 2c 32 29 0d 0c |caret(Ne|ck%,2)..|
|00002300| 94 21 20 20 c9 20 33 31 | 31 33 20 20 20 20 20 20 |.! . 31|13 |
|00002310| 20 20 20 20 20 20 20 20 | 20 3a f2 4e 65 63 6b 0d | | :.Neck.|
|00002320| 0c 9e 20 20 20 7f 20 c8 | 99 22 57 69 6d 70 5f 50 |.. . .|."Wimp_P|
|00002330| 72 6f 63 65 73 73 4b 65 | 79 22 2c 4b 65 79 25 0d |rocessKe|y",Key%.|
|00002340| 0c a8 05 cb 0d 0c b2 05 | e1 0d 0c bc 04 0d 0c c6 |........|........|
|00002350| 1a dd f2 63 61 72 65 74 | 28 57 69 6e 64 6f 77 25 |...caret|(Window%|
|00002360| 2c 49 63 6f 6e 25 29 0d | 0c d0 4a 20 20 c8 99 22 |,Icon%).|..J .."|
|00002370| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|00002380| 69 74 69 6f 6e 22 2c 57 | 69 6e 64 6f 77 25 2c 49 |ition",W|indow%,I|
|00002390| 63 6f 6e 25 2c 30 2c 30 | 2c 2d 31 2c a9 28 24 a4 |con%,0,0|,-1,.($.|
|000023a0| 69 28 57 69 6e 64 6f 77 | 25 2c 49 63 6f 6e 25 29 |i(Window|%,Icon%)|
|000023b0| 29 0d 0c da 05 e1 0d 0c | e4 04 0d 0c ee 04 0d 0c |).......|........|
|000023c0| f8 04 0d 0d 02 04 0d 0d | 0c 40 f4 20 3d 3d 3d 3d |........|.@. ====|
|000023d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002400| 3d 3d 3d 3d 3d 3d 0d 0d | 16 40 f4 20 3d 3d 3d 20 |======..|.@. === |
|00002410| 41 70 70 6c 69 63 61 74 | 69 6f 6e 20 73 70 65 63 |Applicat|ion spec|
|00002420| 69 66 69 63 20 72 6f 75 | 74 69 6e 65 73 20 66 6f |ific rou|tines fo|
|00002430| 6c 6c 6f 77 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |llow ===|========|
|00002440| 3d 3d 3d 3d 3d 3d 0d 0d | 20 40 f4 20 3d 3d 3d 3d |======..| @. ====|
|00002450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002480| 3d 3d 3d 3d 3d 3d 0d 0d | 2a 04 0d 0d 34 24 f4 20 |======..|*...4$. |
|00002490| 3d 3d 20 6c 65 66 74 20 | 6f 72 20 72 69 67 68 74 |== left |or right|
|000024a0| 20 61 72 72 6f 77 20 63 | 6c 69 63 6b 65 64 0d 0d | arrow c|licked..|
|000024b0| 3e 25 dd f2 61 72 72 6f | 77 28 57 69 6e 64 6f 77 |>%..arro|w(Window|
|000024c0| 25 2c 49 63 6f 6e 25 2c | 49 6e 63 72 65 6d 65 6e |%,Icon%,|Incremen|
|000024d0| 74 25 29 0d 0d 48 0d ea | 20 70 5f 74 65 78 74 25 |t%)..H..| p_text%|
|000024e0| 0d 0d 52 1f 20 20 70 5f | 74 65 78 74 25 3d a4 69 |..R. p_|text%=.i|
|000024f0| 28 57 69 6e 64 6f 77 25 | 2c 49 63 6f 6e 25 29 0d |(Window%|,Icon%).|
|00002500| 0d 5c 28 20 20 24 70 5f | 74 65 78 74 25 3d c3 28 |.\( $p_|text%=.(|
|00002510| bb 28 24 70 5f 74 65 78 | 74 25 29 2b 49 6e 63 72 |.($p_tex|t%)+Incr|
|00002520| 65 6d 65 6e 74 25 29 0d | 0d 66 12 20 20 62 25 21 |ement%).|.f. b%!|
|00002530| 30 3d 57 69 6e 64 6f 77 | 25 0d 0d 70 10 20 20 62 |0=Window|%..p. b|
|00002540| 25 21 34 3d 49 63 6f 6e | 25 0d 0d 7a 0c 20 20 62 |%!4=Icon|%..z. b|
|00002550| 25 21 38 3d 30 0d 0d 84 | 0d 20 20 62 25 21 31 32 |%!8=0...|. b%!12|
|00002560| 3d 30 0d 0d 8e 20 20 20 | c8 99 20 22 57 69 6d 70 |=0... |.. "Wimp|
|00002570| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00002580| 62 25 0d 0d 98 05 e1 0d | 0d a2 04 0d 0d ac 1d f4 |b%......|........|
|00002590| 20 3d 3d 20 63 72 65 61 | 74 65 20 74 68 65 20 6f | == crea|te the o|
|000025a0| 75 74 70 75 74 20 3d 3d | 0d 0d b6 0b dd f2 54 6f |utput ==|......To|
|000025b0| 72 75 73 0d 0d c0 0e ea | 20 6f 25 2c 41 2c 42 2c |rus.....| o%,A,B,|
|000025c0| 4d 0d 0d ca 0c 6f 25 3d | 44 61 74 61 25 0d 0d d4 |M....o%=|Data%...|
|000025d0| 16 41 3d bb 28 24 a4 69 | 28 54 6f 72 75 73 25 2c |.A=.($.i|(Torus%,|
|000025e0| 32 29 29 0d 0d de 16 42 | 3d bb 28 24 a4 69 28 54 |2))....B|=.($.i(T|
|000025f0| 6f 72 75 73 25 2c 36 29 | 29 0d 0d e8 43 f2 6f 75 |orus%,6)|)...C.ou|
|00002600| 74 28 22 2f 2f 20 54 6f | 72 75 73 20 77 69 74 68 |t("// To|rus with|
|00002610| 20 6d 61 6a 6f 72 20 72 | 61 64 69 75 73 20 22 2b | major r|adius "+|
|00002620| c3 28 41 29 2b 22 2c 20 | 6d 69 6e 6f 72 20 72 61 |.(A)+", |minor ra|
|00002630| 64 69 75 73 20 22 2b c3 | 28 42 29 29 0d 0d f2 48 |dius "+.|(B))...H|
|00002640| f2 6f 75 74 28 22 2f 2f | 20 47 65 6e 65 72 61 74 |.out("//| Generat|
|00002650| 65 64 20 62 79 20 4d 69 | 6b 65 20 57 69 6c 6c 69 |ed by Mi|ke Willi|
|00002660| 61 6d 73 27 20 65 78 63 | 65 6c 6c 65 6e 74 20 50 |ams' exc|ellent P|
|00002670| 4f 56 73 68 61 70 65 20 | 50 44 20 70 72 6f 67 72 |OVshape |PD progr|
|00002680| 61 6d 22 29 0d 0d fc 15 | 4d 3d 41 2b 42 3a 41 3d |am")....|M=A+B:A=|
|00002690| 41 2f 4d 3a 42 3d 42 2f | 4d 0d 0e 06 0f 41 3d 41 |A/M:B=B/|M....A=A|
|000026a0| 2a 41 3a 42 3d 42 2a 42 | 0d 0e 10 1c f2 6f 75 74 |*A:B=B*B|.....out|
|000026b0| 28 22 23 64 65 63 6c 61 | 72 65 20 54 6f 72 75 73 |("#decla|re Torus|
|000026c0| 20 3d 22 29 0d 0e 1a 13 | f2 6f 75 74 28 22 71 75 | =")....|.out("qu|
|000026d0| 61 72 74 69 63 22 29 0d | 0e 24 38 f2 6f 75 74 28 |artic").|.$8.out(|
|000026e0| 22 7b 20 3c 20 31 20 20 | 30 20 20 30 20 20 30 20 |"{ < 1 |0 0 0 |
|000026f0| 20 32 20 20 30 20 20 30 | 20 20 32 20 20 30 20 22 | 2 0 0| 2 0 "|
|00002700| 2b a4 7a 34 28 2d 32 2a | 28 41 2b 42 29 29 29 0d |+.z4(-2*|(A+B))).|
|00002710| 0e 2e 2c f2 6f 75 74 28 | 22 20 20 20 20 30 20 20 |..,.out(|" 0 |
|00002720| 30 20 20 30 20 20 30 20 | 20 30 20 20 30 20 20 30 |0 0 0 | 0 0 0|
|00002730| 20 20 30 20 20 30 20 20 | 30 22 29 0d 0e 38 36 f2 | 0 0 |0")..86.|
|00002740| 6f 75 74 28 22 20 20 20 | 20 31 20 20 30 20 20 30 |out(" | 1 0 0|
|00002750| 20 20 32 20 20 30 20 22 | 2b a4 7a 34 28 32 2a 28 | 2 0 "|+.z4(2*(|
|00002760| 41 2d 42 29 29 2b 22 20 | 30 20 30 20 30 20 30 22 |A-B))+" |0 0 0 0"|
|00002770| 29 0d 0e 42 3d f2 6f 75 | 74 28 22 20 20 20 20 31 |)..B=.ou|t(" 1|
|00002780| 20 20 30 20 22 2b a4 7a | 34 28 2d 32 2a 28 41 2b | 0 "+.z|4(-2*(A+|
|00002790| 42 29 29 2b 22 20 20 30 | 20 20 22 2b a4 7a 34 28 |B))+" 0| "+.z4(|
|000027a0| 28 41 2d 42 29 5e 32 29 | 2b 22 20 3e 22 29 0d 0e |(A-B)^2)|+" >")..|
|000027b0| 4c 30 f2 6f 75 74 28 22 | 20 20 73 63 61 6c 65 20 |L0.out("| scale |
|000027c0| 3c 20 22 2b a4 7a 34 28 | 4d 29 2b a4 7a 34 28 4d |< "+.z4(|M)+.z4(M|
|000027d0| 29 2b a4 7a 34 28 4d 29 | 2b 22 20 3e 22 29 0d 0e |)+.z4(M)|+" >")..|
|000027e0| 56 0d f2 6f 75 74 28 22 | 7d 22 29 0d 0e 60 15 44 |V..out("|}")..`.D|
|000027f0| 61 74 61 4c 65 6e 25 3d | 6f 25 2d 44 61 74 61 25 |ataLen%=|o%-Data%|
|00002800| 0d 0e 6a 1f 53 61 76 65 | 24 3d 22 54 6f 72 75 73 |..j.Save|$="Torus|
|00002810| 22 3a 24 53 61 76 65 49 | 25 3d 53 61 76 65 24 0d |":$SaveI|%=Save$.|
|00002820| 0e 74 1f f4 20 3d 3d 20 | 63 6c 6f 73 65 20 74 68 |.t.. == |close th|
|00002830| 65 20 54 6f 72 75 73 20 | 77 69 6e 64 6f 77 0d 0e |e Torus |window..|
|00002840| 7e 2d 62 25 21 30 3d 54 | 6f 72 75 73 25 3a c8 99 |~-b%!0=T|orus%:..|
|00002850| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00002860| 74 61 74 65 22 2c 20 2c | 20 62 25 0d 0e 88 1e c8 |tate", ,| b%.....|
|00002870| 99 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 |."Wimp_C|loseWind|
|00002880| 6f 77 22 2c 20 2c 20 62 | 25 0d 0e 92 1d f4 20 3d |ow", , b|%..... =|
|00002890| 3d 20 6f 70 65 6e 20 74 | 68 65 20 73 61 76 65 20 |= open t|he save |
|000028a0| 77 69 6e 64 6f 77 0d 0e | 9c 2c 62 25 21 30 3d 53 |window..|.,b%!0=S|
|000028b0| 61 76 65 25 3a c8 99 22 | 57 69 6d 70 5f 47 65 74 |ave%:.."|Wimp_Get|
|000028c0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 20 2c 20 |WindowSt|ate", , |
|000028d0| 62 25 0d 0e a6 1d c8 99 | 22 57 69 6d 70 5f 4f 70 |b%......|"Wimp_Op|
|000028e0| 65 6e 57 69 6e 64 6f 77 | 22 2c 20 2c 20 62 25 0d |enWindow|", , b%.|
|000028f0| 0e b0 05 e1 0d 0e ba 04 | 0d 0e c4 0d dd f2 53 6f |........|......So|
|00002900| 66 74 43 79 6c 0d 0e ce | 14 ea 20 6f 25 2c 41 2c |ftCyl...|.. o%,A,|
|00002910| 42 2c 48 2c 61 2c 62 2c | 4d 0d 0e d8 0c 6f 25 3d |B,H,a,b,|M....o%=|
|00002920| 44 61 74 61 25 0d 0e e2 | 18 41 3d bb 28 24 a4 69 |Data%...|.A=.($.i|
|00002930| 28 53 6f 66 74 43 79 6c | 25 2c 32 29 29 0d 0e ec |(SoftCyl|%,2))...|
|00002940| 18 42 3d bb 28 24 a4 69 | 28 53 6f 66 74 43 79 6c |.B=.($.i|(SoftCyl|
|00002950| 25 2c 36 29 29 0d 0e f6 | 19 48 3d bb 28 24 a4 69 |%,6))...|.H=.($.i|
|00002960| 28 53 6f 66 74 43 79 6c | 25 2c 31 31 29 29 0d 0f |(SoftCyl|%,11))..|
|00002970| 00 4e f2 6f 75 74 28 22 | 2f 2f 20 53 6f 66 74 20 |.N.out("|// Soft |
|00002980| 43 79 6c 69 6e 64 65 72 | 20 77 69 74 68 20 72 61 |Cylinder| with ra|
|00002990| 64 69 75 73 20 22 2b c3 | 28 41 29 2b 22 2c 20 65 |dius "+.|(A)+", e|
|000029a0| 64 67 65 20 22 2b c3 28 | 42 29 2b 22 2c 20 68 65 |dge "+.(|B)+", he|
|000029b0| 69 67 68 74 20 22 2b c3 | 28 48 29 29 0d 0f 0a 48 |ight "+.|(H))...H|
|000029c0| f2 6f 75 74 28 22 2f 2f | 20 47 65 6e 65 72 61 74 |.out("//| Generat|
|000029d0| 65 64 20 62 79 20 4d 69 | 6b 65 20 57 69 6c 6c 69 |ed by Mi|ke Willi|
|000029e0| 61 6d 73 27 20 65 78 63 | 65 6c 6c 65 6e 74 20 50 |ams' exc|ellent P|
|000029f0| 4f 56 73 68 61 70 65 20 | 50 44 20 70 72 6f 67 72 |OVshape |PD progr|
|00002a00| 61 6d 22 29 0d 0f 14 0b | f4 20 48 3d 48 2f 32 0d |am")....|. H=H/2.|
|00002a10| 0f 1e 0d 4d 3d 41 3a 41 | 3d 41 2d 42 0d 0f 28 0f |...M=A:A|=A-B..(.|
|00002a20| 61 3d 41 2a 41 3a 62 3d | 42 2a 42 0d 0f 32 1e f2 |a=A*A:b=|B*B..2..|
|00002a30| 6f 75 74 28 22 23 64 65 | 63 6c 61 72 65 20 53 6f |out("#de|clare So|
|00002a40| 66 74 43 79 6c 20 3d 22 | 29 0d 0f 3c 11 f2 6f 75 |ftCyl ="|)..<..ou|
|00002a50| 74 28 22 75 6e 69 6f 6e | 22 29 0d 0f 46 4b f2 6f |t("union|")..FK.o|
|00002a60| 75 74 28 22 20 7b 20 69 | 6e 74 65 72 73 65 63 74 |ut(" { i|ntersect|
|00002a70| 69 6f 6e 20 7b 44 69 73 | 6b 5f 59 20 73 63 61 6c |ion {Dis|k_Y scal|
|00002a80| 65 20 3c 20 22 2b c3 28 | 4d 29 2b 22 20 22 2b c3 |e < "+.(|M)+" "+.|
|00002a90| 28 48 2d 42 29 2b 22 20 | 22 2b c3 28 4d 29 2b 22 |(H-B)+" |"+.(M)+"|
|00002aa0| 20 3e 7d 22 29 0d 0f 50 | 48 f2 6f 75 74 28 22 20 | >}")..P|H.out(" |
|00002ab0| 20 20 69 6e 74 65 72 73 | 65 63 74 69 6f 6e 20 7b | inters|ection {|
|00002ac0| 44 69 73 6b 5f 59 20 73 | 63 61 6c 65 20 3c 20 22 |Disk_Y s|cale < "|
|00002ad0| 2b c3 28 41 29 2b 22 20 | 22 2b c3 28 48 29 2b 22 |+.(A)+" |"+.(H)+"|
|00002ae0| 20 22 2b c3 28 41 29 2b | 22 3e 7d 22 29 0d 0f 5a | "+.(A)+|">}")..Z|
|00002af0| 16 f2 6f 75 74 28 22 20 | 20 20 71 75 61 72 74 69 |..out(" | quarti|
|00002b00| 63 22 29 0d 0f 64 39 f2 | 6f 75 74 28 22 20 20 20 |c")..d9.|out(" |
|00002b10| 7b 20 3c 20 31 20 20 30 | 20 20 30 20 20 30 20 20 |{ < 1 0| 0 0 |
|00002b20| 32 20 20 30 20 20 30 20 | 20 32 20 20 30 20 22 2b |2 0 0 | 2 0 "+|
|00002b30| c3 28 2d 32 2a 28 61 2b | 62 29 29 29 0d 0f 6e 2f |.(-2*(a+|b)))..n/|
|00002b40| f2 6f 75 74 28 22 20 20 | 20 20 20 20 20 30 20 20 |.out(" | 0 |
|00002b50| 30 20 20 30 20 20 30 20 | 20 30 20 20 30 20 20 30 |0 0 0 | 0 0 0|
|00002b60| 20 20 30 20 20 30 20 20 | 30 22 29 0d 0f 78 37 f2 | 0 0 |0")..x7.|
|00002b70| 6f 75 74 28 22 20 20 20 | 20 20 20 20 31 20 20 30 |out(" | 1 0|
|00002b80| 20 20 30 20 20 32 20 20 | 30 20 22 2b c3 28 32 2a | 0 2 |0 "+.(2*|
|00002b90| 28 61 2d 62 29 29 2b 22 | 20 30 20 30 20 30 20 30 |(a-b))+"| 0 0 0 0|
|00002ba0| 22 29 0d 0f 82 3c f2 6f | 75 74 28 22 20 20 20 20 |")...<.o|ut(" |
|00002bb0| 20 20 20 31 20 20 30 20 | 22 2b c3 28 2d 32 2a 28 | 1 0 |"+.(-2*(|
|00002bc0| 61 2b 62 29 29 2b 22 20 | 20 30 20 20 22 2b c3 28 |a+b))+" | 0 "+.(|
|00002bd0| 28 61 2d 62 29 5e 32 29 | 2b 22 20 3e 22 29 0d 0f |(a-b)^2)|+" >")..|
|00002be0| 8c 2c f2 6f 75 74 28 22 | 20 20 20 20 20 74 72 61 |.,.out("| tra|
|00002bf0| 6e 73 6c 61 74 65 20 3c | 20 30 20 22 2b c3 28 48 |nslate <| 0 "+.(H|
|00002c00| 2d 42 29 2b 22 20 30 3e | 22 29 0d 0f 96 10 f2 6f |-B)+" 0>|").....o|
|00002c10| 75 74 28 22 20 20 20 7d | 22 29 0d 0f a0 16 f2 6f |ut(" }|").....o|
|00002c20| 75 74 28 22 20 20 20 71 | 75 61 72 74 69 63 22 29 |ut(" q|uartic")|
|00002c30| 0d 0f aa 39 f2 6f 75 74 | 28 22 20 20 20 7b 20 3c |...9.out|(" { <|
|00002c40| 20 31 20 20 30 20 20 30 | 20 20 30 20 20 32 20 20 | 1 0 0| 0 2 |
|00002c50| 30 20 20 30 20 20 32 20 | 20 30 20 22 2b c3 28 2d |0 0 2 | 0 "+.(-|
|00002c60| 32 2a 28 61 2b 62 29 29 | 29 0d 0f b4 2f f2 6f 75 |2*(a+b))|).../.ou|
|00002c70| 74 28 22 20 20 20 20 20 | 20 20 30 20 20 30 20 20 |t(" | 0 0 |
|00002c80| 30 20 20 30 20 20 30 20 | 20 30 20 20 30 20 20 30 |0 0 0 | 0 0 0|
|00002c90| 20 20 30 20 20 30 22 29 | 0d 0f be 37 f2 6f 75 74 | 0 0")|...7.out|
|00002ca0| 28 22 20 20 20 20 20 20 | 20 31 20 20 30 20 20 30 |(" | 1 0 0|
|00002cb0| 20 20 32 20 20 30 20 22 | 2b c3 28 32 2a 28 61 2d | 2 0 "|+.(2*(a-|
|00002cc0| 62 29 29 2b 22 20 30 20 | 30 20 30 20 30 22 29 0d |b))+" 0 |0 0 0").|
|00002cd0| 0f c8 3c f2 6f 75 74 28 | 22 20 20 20 20 20 20 20 |..<.out(|" |
|00002ce0| 31 20 20 30 20 22 2b c3 | 28 2d 32 2a 28 61 2b 62 |1 0 "+.|(-2*(a+b|
|00002cf0| 29 29 2b 22 20 20 30 20 | 20 22 2b c3 28 28 61 2d |))+" 0 | "+.((a-|
|00002d00| 62 29 5e 32 29 2b 22 20 | 3e 22 29 0d 0f d2 2c f2 |b)^2)+" |>")...,.|
|00002d10| 6f 75 74 28 22 20 20 20 | 20 20 74 72 61 6e 73 6c |out(" | transl|
|00002d20| 61 74 65 20 3c 20 30 20 | 22 2b c3 28 42 2d 48 29 |ate < 0 |"+.(B-H)|
|00002d30| 2b 22 20 30 3e 22 29 0d | 0f dc 10 f2 6f 75 74 28 |+" 0>").|....out(|
|00002d40| 22 20 20 20 7d 22 29 0d | 0f e6 4e f2 6f 75 74 28 |" }").|..N.out(|
|00002d50| 22 2f 2f 20 20 73 63 61 | 6c 65 20 3c 20 22 2b a4 |"// sca|le < "+.|
|00002d60| 7a 34 28 31 2f 4d 29 2b | a4 7a 34 28 31 2f 48 29 |z4(1/M)+|.z4(1/H)|
|00002d70| 2b a4 7a 34 28 31 2f 4d | 29 2b 22 20 3e 20 2f 2f |+.z4(1/M|)+" > //|
|00002d80| 20 73 63 61 6c 65 20 74 | 6f 20 75 6e 69 74 20 73 | scale t|o unit s|
|00002d90| 69 7a 65 22 29 0d 0f f0 | 0d f2 6f 75 74 28 22 7d |ize")...|..out("}|
|00002da0| 22 29 0d 0f fa 15 44 61 | 74 61 4c 65 6e 25 3d 6f |")....Da|taLen%=o|
|00002db0| 25 2d 44 61 74 61 25 0d | 10 04 21 53 61 76 65 24 |%-Data%.|..!Save$|
|00002dc0| 3d 22 53 6f 66 74 43 79 | 6c 22 3a 24 53 61 76 65 |="SoftCy|l":$Save|
|00002dd0| 49 25 3d 53 61 76 65 24 | 0d 10 0e 21 f4 20 3d 3d |I%=Save$|...!. ==|
|00002de0| 20 63 6c 6f 73 65 20 74 | 68 65 20 53 6f 66 74 43 | close t|he SoftC|
|00002df0| 79 6c 20 77 69 6e 64 6f | 77 0d 10 18 2f 62 25 21 |yl windo|w.../b%!|
|00002e00| 30 3d 53 6f 66 74 43 79 | 6c 25 3a c8 99 22 57 69 |0=SoftCy|l%:.."Wi|
|00002e10| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00002e20| 65 22 2c 20 2c 20 62 25 | 0d 10 22 1e c8 99 22 57 |e", , b%|.."..."W|
|00002e30| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00002e40| 2c 20 2c 20 62 25 0d 10 | 2c 1d f4 20 3d 3d 20 6f |, , b%..|,.. == o|
|00002e50| 70 65 6e 20 74 68 65 20 | 73 61 76 65 20 77 69 6e |pen the |save win|
|00002e60| 64 6f 77 0d 10 36 2c 62 | 25 21 30 3d 53 61 76 65 |dow..6,b|%!0=Save|
|00002e70| 25 3a c8 99 22 57 69 6d | 70 5f 47 65 74 57 69 6e |%:.."Wim|p_GetWin|
|00002e80| 64 6f 77 53 74 61 74 65 | 22 2c 20 2c 20 62 25 0d |dowState|", , b%.|
|00002e90| 10 40 1d c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |.@..."Wi|mp_OpenW|
|00002ea0| 69 6e 64 6f 77 22 2c 20 | 2c 20 62 25 0d 10 4a 05 |indow", |, b%..J.|
|00002eb0| e1 0d 10 54 04 0d 10 5e | 04 0d 10 68 0a dd f2 4e |...T...^|...h...N|
|00002ec0| 65 63 6b 0d 10 72 20 ea | 20 6f 25 2c 41 2c 41 31 |eck..r .| o%,A,A1|
|00002ed0| 2c 41 32 2c 42 2c 48 2c | 61 31 2c 61 32 2c 62 2c |,A2,B,H,|a1,a2,b,|
|00002ee0| 4d 2c 49 0d 10 7c 0c 6f | 25 3d 44 61 74 61 25 0d |M,I..|.o|%=Data%.|
|00002ef0| 10 86 15 41 3d bb 28 24 | a4 69 28 4e 65 63 6b 25 |...A=.($|.i(Neck%|
|00002f00| 2c 32 29 29 0d 10 90 15 | 42 3d bb 28 24 a4 69 28 |,2))....|B=.($.i(|
|00002f10| 4e 65 63 6b 25 2c 36 29 | 29 0d 10 9a 16 48 3d bb |Neck%,6)|)....H=.|
|00002f20| 28 24 a4 69 28 4e 65 63 | 6b 25 2c 31 31 29 29 0d |($.i(Nec|k%,11)).|
|00002f30| 10 a4 53 f2 6f 75 74 28 | 22 2f 2f 20 4e 65 63 6b |..S.out(|"// Neck|
|00002f40| 20 77 69 74 68 20 6d 61 | 6a 6f 72 20 72 61 64 69 | with ma|jor radi|
|00002f50| 75 73 20 22 2b c3 28 41 | 29 2b 22 2c 20 6d 69 6e |us "+.(A|)+", min|
|00002f60| 6f 72 20 72 61 64 69 75 | 73 20 22 2b c3 28 42 29 |or radiu|s "+.(B)|
|00002f70| 2b 22 2c 20 68 65 69 67 | 68 74 20 22 2b c3 28 48 |+", heig|ht "+.(H|
|00002f80| 29 29 0d 10 ae 48 f2 6f | 75 74 28 22 2f 2f 20 47 |))...H.o|ut("// G|
|00002f90| 65 6e 65 72 61 74 65 64 | 20 62 79 20 4d 69 6b 65 |enerated| by Mike|
|00002fa0| 20 57 69 6c 6c 69 61 6d | 73 27 20 65 78 63 65 6c | William|s' excel|
|00002fb0| 6c 65 6e 74 20 50 4f 56 | 73 68 61 70 65 20 50 44 |lent POV|shape PD|
|00002fc0| 20 70 72 6f 67 72 61 6d | 22 29 0d 10 b8 0b f4 20 | program|")..... |
|00002fd0| 48 3d 48 2f 32 0d 10 c2 | 17 e7 20 42 3e 41 20 8c |H=H/2...|.. B>A .|
|00002fe0| 20 c8 94 20 41 2c 42 3a | 48 3d 2d 48 0d 10 cc 15 | .. A,B:|H=-H....|
|00002ff0| 4d 3d 41 3a 42 3d 28 42 | 2f 4d 29 3a 42 3d 42 2a |M=A:B=(B|/M):B=B*|
|00003000| 42 0d 10 d6 1b f2 6f 75 | 74 28 22 23 64 65 63 6c |B.....ou|t("#decl|
|00003010| 61 72 65 20 4e 65 63 6b | 20 3d 22 29 0d 10 e0 18 |are Neck| =")....|
|00003020| f2 6f 75 74 28 22 69 6e | 74 65 72 73 65 63 74 69 |.out("in|tersecti|
|00003030| 6f 6e 22 29 0d 10 ea 25 | f2 6f 75 74 28 22 7b 20 |on")...%|.out("{ |
|00003040| 62 6f 78 20 7b 3c 2d 31 | 20 2d 31 20 2d 31 3e 3c |box {<-1| -1 -1><|
|00003050| 31 20 31 20 31 3e 7d 22 | 29 0d 10 f4 15 f2 6f 75 |1 1 1>}"|).....ou|
|00003060| 74 28 22 20 20 71 75 61 | 72 74 69 63 22 29 0d 10 |t(" qua|rtic")..|
|00003070| fe 2e f2 6f 75 74 28 22 | 20 20 7b 20 3c 20 30 20 |...out("| { < 0 |
|00003080| 20 30 20 20 30 20 20 30 | 20 20 30 20 20 30 20 20 | 0 0 0| 0 0 |
|00003090| 30 20 20 30 20 20 30 20 | 20 31 22 29 0d 11 08 2e |0 0 0 | 1")....|
|000030a0| f2 6f 75 74 28 22 20 20 | 20 20 20 20 30 20 20 30 |.out(" | 0 0|
|000030b0| 20 20 30 20 20 30 20 20 | 30 20 20 30 20 20 30 20 | 0 0 |0 0 0 |
|000030c0| 20 30 20 20 30 20 20 30 | 22 29 0d 11 12 40 f2 6f | 0 0 0|")...@.o|
|000030d0| 75 74 28 22 20 20 20 20 | 20 20 30 20 30 22 2b a4 |ut(" | 0 0"+.|
|000030e0| 7a 34 28 28 42 2d 31 29 | 2f 34 29 2b 22 20 30 20 |z4((B-1)|/4)+" 0 |
|000030f0| 30 20 30 20 30 20 30 20 | 30 22 2b a4 7a 34 28 33 |0 0 0 0 |0"+.z4(3|
|00003100| 2a 28 31 2d 42 29 2f 34 | 29 29 0d 11 1c 2d f2 6f |*(1-B)/4|))...-.o|
|00003110| 75 74 28 22 20 20 20 20 | 20 20 30 20 30 20 31 20 |ut(" | 0 0 1 |
|00003120| 30 20 22 2b a4 7a 34 28 | 2d 28 31 2b 42 29 2f 32 |0 "+.z4(|-(1+B)/2|
|00003130| 29 2b 22 20 3e 22 29 0d | 11 26 0f f2 6f 75 74 28 |)+" >").|.&..out(|
|00003140| 22 20 20 7d 22 29 0d 11 | 30 46 f2 6f 75 74 28 22 |" }")..|0F.out("|
|00003150| 20 20 73 63 61 6c 65 20 | 3c 20 22 2b a4 7a 34 28 | scale |< "+.z4(|
|00003160| 4d 29 2b a4 7a 34 28 48 | 29 2b a4 7a 34 28 4d 29 |M)+.z4(H|)+.z4(M)|
|00003170| 2b 22 20 3e 20 2f 2f 20 | 73 63 61 6c 65 20 61 73 |+" > // |scale as|
|00003180| 20 72 65 71 75 65 73 74 | 65 64 22 29 0d 11 3a 0d | request|ed")..:.|
|00003190| f2 6f 75 74 28 22 7d 22 | 29 0d 11 44 15 44 61 74 |.out("}"|)..D.Dat|
|000031a0| 61 4c 65 6e 25 3d 6f 25 | 2d 44 61 74 61 25 0d 11 |aLen%=o%|-Data%..|
|000031b0| 4e 1e 53 61 76 65 24 3d | 22 4e 65 63 6b 22 3a 24 |N.Save$=|"Neck":$|
|000031c0| 53 61 76 65 49 25 3d 53 | 61 76 65 24 0d 11 58 1e |SaveI%=S|ave$..X.|
|000031d0| f4 20 3d 3d 20 63 6c 6f | 73 65 20 74 68 65 20 4e |. == clo|se the N|
|000031e0| 65 63 6b 20 77 69 6e 64 | 6f 77 0d 11 62 2c 62 25 |eck wind|ow..b,b%|
|000031f0| 21 30 3d 4e 65 63 6b 25 | 3a c8 99 22 57 69 6d 70 |!0=Neck%|:.."Wimp|
|00003200| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00003210| 2c 20 2c 20 62 25 0d 11 | 6c 1e c8 99 22 57 69 6d |, , b%..|l..."Wim|
|00003220| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 20 |p_CloseW|indow", |
|00003230| 2c 20 62 25 0d 11 76 1d | f4 20 3d 3d 20 6f 70 65 |, b%..v.|. == ope|
|00003240| 6e 20 74 68 65 20 73 61 | 76 65 20 77 69 6e 64 6f |n the sa|ve windo|
|00003250| 77 0d 11 80 2c 62 25 21 | 30 3d 53 61 76 65 25 3a |w...,b%!|0=Save%:|
|00003260| c8 99 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |.."Wimp_|GetWindo|
|00003270| 77 53 74 61 74 65 22 2c | 20 2c 20 62 25 0d 11 8a |wState",| , b%...|
|00003280| 1d c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |..."Wimp|_OpenWin|
|00003290| 64 6f 77 22 2c 20 2c 20 | 62 25 0d 11 94 05 e1 0d |dow", , |b%......|
|000032a0| 11 9e 04 0d 11 a8 04 0d | 11 b2 04 0d 11 bc 0d dd |........|........|
|000032b0| f2 6f 75 74 28 41 24 29 | 0d 11 c6 12 20 20 24 6f |.out(A$)|.... $o|
|000032c0| 25 3d 41 24 2b bd 28 31 | 30 29 0d 11 d0 11 20 20 |%=A$+.(1|0).... |
|000032d0| 6f 25 2b 3d a9 28 41 24 | 29 2b 31 0d 11 da 05 e1 |o%+=.(A$|)+1.....|
|000032e0| 0d 11 e4 04 0d 11 ee 4c | f4 20 3d 3d 20 4e 61 73 |.......L|. == Nas|
|000032f0| 74 79 20 6c 69 74 74 6c | 65 20 46 75 6e 63 74 69 |ty littl|e Functi|
|00003300| 6f 6e 73 20 77 68 69 63 | 68 20 61 72 65 20 6f 6e |ons whic|h are on|
|00003310| 6c 79 20 72 65 71 75 69 | 72 65 64 20 62 65 63 61 |ly requi|red beca|
|00003320| 75 73 65 20 53 54 52 24 | 20 64 6f 65 73 6e 27 74 |use STR$| doesn't|
|00003330| 0d 11 f8 2c f4 20 3d 3d | 20 6c 69 73 74 65 6e 20 |...,. ==| listen |
|00003340| 74 6f 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |to the v|alue of |
|00003350| 40 25 20 70 72 6f 70 65 | 72 6c 79 2e 0d 12 02 0b |@% prope|rly.....|
|00003360| dd a4 7a 34 28 4e 29 0d | 12 0c 0c ea 20 41 24 2c |..z4(N).|.... A$,|
|00003370| 20 4c 25 0d 12 16 1f 20 | 20 41 24 3d 22 22 3a e7 | L%.... | A$="":.|
|00003380| 20 4e 3c 30 20 8c 20 41 | 24 3d 22 2d 22 3a 4e 3d | N<0 . A|$="-":N=|
|00003390| 2d 4e 0d 12 20 33 20 20 | e7 20 4e 3c 31 20 8c 20 |-N.. 3 |. N<1 . |
|000033a0| 3d 22 20 22 2b 41 24 2b | 22 30 2e 22 2b c2 c3 28 |=" "+A$+|"0."+..(|
|000033b0| a8 28 31 30 30 30 30 2b | 4e 2a 31 30 30 30 30 29 |.(10000+|N*10000)|
|000033c0| 29 2c 20 34 29 0d 12 2a | 19 20 20 41 24 3d 41 24 |), 4)..*|. A$=A$|
|000033d0| 2b c3 28 a8 28 4e 2a 31 | 30 30 30 30 29 29 0d 12 |+.(.(N*1|0000))..|
|000033e0| 34 10 20 20 4c 25 3d a9 | 28 41 24 29 2d 34 0d 12 |4. L%=.|(A$)-4..|
|000033f0| 3e 1d 3d 22 20 22 2b c0 | 41 24 2c 20 4c 25 29 2b |>.=" "+.|A$, L%)+|
|00003400| 22 2e 22 2b c2 41 24 2c | 20 34 29 0d 12 48 04 0d |"."+.A$,| 4)..H..|
|00003410| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
