/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / j / jfs_std / !JFShared / BasicLib / WimpLib2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 57 | 69 6d 70 4c 69 62 32 0d |..... >W|impLib2.|
|00000010| 00 14 17 f4 20 a9 20 4a | 75 73 74 69 6e 20 46 6c |.... . J|ustin Fl|
|00000020| 65 74 63 68 65 72 0d 00 | 1e 22 f4 20 56 65 72 73 |etcher..|.". Vers|
|00000030| 69 6f 6e 20 3a 20 31 2e | 36 31 20 28 31 37 20 4f |ion : 1.|61 (17 O|
|00000040| 63 74 20 31 39 39 36 29 | 0d 00 28 1a f4 20 54 68 |ct 1996)|..(.. Th|
|00000050| 69 73 20 76 65 72 73 69 | 6f 6e 20 66 6f 72 20 52 |is versi|on for R|
|00000060| 4f 32 0d 00 32 13 f4 20 | 41 6c 74 65 72 61 74 69 |O2..2.. |Alterati|
|00000070| 6f 6e 73 20 3a 0d 00 3c | 38 f4 20 20 8f 20 57 69 |ons :..<|8.  . Wi|
|00000080| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 20 |mp_LoadT|emplate |
|00000090| 61 73 73 75 6d 65 73 20 | 61 20 74 65 6d 70 6c 61 |assumes |a templa|
|000000a0| 74 65 20 73 69 7a 65 20 | 6f 66 20 32 6b 0d 00 46 |te size |of 2k..F|
|000000b0| 15 f4 20 20 8f 20 4e 6f | 20 6d 65 6e 75 20 68 65 |..  . No| menu he|
|000000c0| 6c 70 0d 00 50 44 f4 20 | 20 8f 20 4c 61 72 67 65 |lp..PD. | . Large|
|000000d0| 20 63 6f 6e 74 72 6f 6c | 20 62 6c 6f 63 6b 20 6d | control| block m|
|000000e0| 61 79 20 62 65 20 72 65 | 71 75 69 72 65 64 20 69 |ay be re|quired i|
|000000f0| 66 20 62 69 67 20 77 69 | 6e 64 6f 77 73 20 61 72 |f big wi|ndows ar|
|00000100| 65 20 75 73 65 64 0d 00 | 5a 3f f4 20 20 20 20 64 |e used..|Z?.    d|
|00000110| 75 65 20 74 6f 20 57 69 | 6e 64 6f 77 49 6e 66 6f |ue to Wi|ndowInfo|
|00000120| 20 62 69 74 20 30 20 74 | 6f 20 72 65 74 75 72 6e | bit 0 t|o return|
|00000130| 20 6a 75 73 74 20 77 69 | 6e 64 6f 77 20 69 6e 66 | just wi|ndow inf|
|00000140| 6f 20 6e 6f 74 0d 00 64 | 1b f4 20 20 20 20 62 65 |o not..d|..    be|
|00000150| 69 6e 67 20 69 6d 70 6c | 65 6d 65 6e 74 65 64 2e |ing impl|emented.|
|00000160| 0d 00 6e 37 f4 20 20 8f | 20 46 4e 4c 6f 6e 67 66 |..n7.  .| FNLongf|
|00000170| 69 6c 65 6e 61 6d 65 20 | 72 65 74 75 72 6e 73 20 |ilename |returns |
|00000180| 74 68 65 20 73 61 6d 65 | 20 61 73 20 69 74 20 69 |the same| as it i|
|00000190| 73 20 67 69 76 65 6e 0d | 00 78 40 f4 20 20 8f 20 |s given.|.x@.  . |
|000001a0| 50 52 4f 43 77 69 6e 73 | 65 74 65 78 74 65 6e 74 |PROCwins|etextent|
|000001b0| 20 63 61 6e 6e 6f 74 20 | 72 65 61 64 20 6a 75 73 | cannot |read jus|
|000001c0| 74 20 74 68 65 20 68 65 | 61 64 65 72 20 61 6e 64 |t the he|ader and|
|000001d0| 20 73 6f 20 6d 61 79 0d | 00 82 44 f4 20 20 20 20 | so may.|..D.    |
|000001e0| 63 72 61 73 68 20 74 68 | 65 20 70 72 6f 67 72 61 |crash th|e progra|
|000001f0| 6d 20 69 66 20 6e 6f 74 | 20 61 20 6c 61 72 67 65 |m if not| a large|
|00000200| 20 65 6e 6f 75 67 68 20 | 62 75 66 66 65 72 20 69 | enough |buffer i|
|00000210| 73 20 61 6c 6c 6f 63 61 | 74 65 64 0d 00 8c 20 f4 |s alloca|ted... .|
|00000220| 20 20 20 20 74 6f 20 62 | 25 20 66 6f 72 20 61 6c |    to b|% for al|
|00000230| 6c 20 74 68 65 20 69 63 | 6f 6e 73 0d 00 96 1e f4 |l the ic|ons.....|
|00000240| 20 20 8f 20 50 52 4f 43 | 66 6f 72 63 65 72 65 64 |  . PROC|forcered|
|00000250| 72 61 77 20 64 69 74 74 | 6f 0d 00 a0 42 f4 20 20 |raw ditt|o...B.  |
|00000260| 8f 20 46 4e 66 69 6c 65 | 74 79 70 65 20 61 6e 64 |. FNfile|type and|
|00000270| 20 46 4e 62 61 73 65 74 | 79 70 65 20 69 67 6e 6f | FNbaset|ype igno|
|00000280| 72 65 20 69 6d 61 67 65 | 73 2c 20 69 65 20 46 4e |re image|s, ie FN|
|00000290| 62 61 73 65 74 79 70 65 | 20 69 73 0d 00 aa 11 f4 |basetype| is.....|
|000002a0| 20 20 20 20 75 73 65 6c | 65 73 73 2e 0d 00 b4 31 |    usel|ess....1|
|000002b0| f4 20 20 8f 20 46 4e 66 | 69 6e 64 74 61 73 6b 20 |.  . FNf|indtask |
|000002c0| 61 6c 77 61 79 73 20 72 | 65 74 75 72 6e 73 20 2d |always r|eturns -|
|000002d0| 31 20 28 6e 6f 74 20 66 | 6f 75 6e 64 29 0d 00 be |1 (not f|ound)...|
|000002e0| 40 f4 20 20 8f 20 46 4e | 74 61 73 6b 6e 61 6d 65 |@.  . FN|taskname|
|000002f0| 20 61 6c 77 61 79 73 20 | 72 65 74 75 72 6e 73 20 | always |returns |
|00000300| 55 6e 6b 6e 6f 77 6e 20 | 28 75 73 65 20 6d 65 73 |Unknown |(use mes|
|00000310| 73 61 67 65 73 20 74 6f | 20 66 69 6e 64 0d 00 c8 |sages to| find...|
|00000320| 1b f4 20 20 20 20 74 61 | 73 6b 20 6e 61 6d 65 73 |..    ta|sk names|
|00000330| 2c 20 73 6f 72 72 79 29 | 0d 00 c9 40 f4 20 20 8f |, sorry)|...@.  .|
|00000340| 20 46 4e 43 72 65 61 74 | 65 49 63 6f 6e 42 61 72 | FNCreat|eIconBar|
|00000350| 49 63 6f 6e 20 64 6f 65 | 73 6e 27 74 20 73 75 70 |Icon doe|sn't sup|
|00000360| 70 6f 72 74 20 65 78 74 | 65 6e 64 65 64 20 74 79 |port ext|ended ty|
|00000370| 70 65 73 2c 20 62 75 74 | 0d 00 ca 25 f4 20 20 20 |pes, but|...%.   |
|00000380| 20 77 69 6c 6c 20 61 74 | 74 65 6d 70 74 20 74 6f | will at|tempt to|
|00000390| 20 65 6d 75 6c 61 74 65 | 20 74 68 65 6d 0d 00 d2 | emulate| them...|
|000003a0| 05 f4 0d 00 dc 11 f4 20 | 53 6f 6c 75 74 69 6f 6e |....... |Solution|
|000003b0| 73 20 3a 0d 00 e6 1e f4 | 20 20 8f 20 57 69 6d 70 |s :.....|  . Wimp|
|000003c0| 5f 57 69 6e 64 6f 77 49 | 6e 66 6f 20 62 69 74 20 |_WindowI|nfo bit |
|000003d0| 30 0d 00 f0 41 f4 20 20 | 20 20 4d 6f 64 69 66 79 |0...A.  |  Modify|
|000003e0| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 74 6f 20 | the pro|gram to |
|000003f0| 68 61 76 65 20 62 25 20 | 61 6c 6c 6f 63 61 74 65 |have b% |allocate|
|00000400| 64 20 77 69 74 68 20 38 | 38 2b 33 32 2a 69 63 6f |d with 8|8+32*ico|
|00000410| 6e 73 0d 00 fa 29 f4 20 | 20 20 20 73 70 61 63 65 |ns...). |   space|
|00000420| 20 66 6f 72 20 74 68 65 | 20 77 69 6e 64 6f 77 20 | for the| window |
|00000430| 64 65 66 69 6e 69 74 69 | 6f 6e 2e 0d 01 04 16 f4 |definiti|on......|
|00000440| 20 20 8f 20 41 6e 79 74 | 68 69 6e 67 20 65 6c 73 |  . Anyt|hing els|
|00000450| 65 0d 01 0e 19 f4 20 20 | 20 20 55 70 67 72 61 64 |e.....  |  Upgrad|
|00000460| 65 20 74 6f 20 52 4f 33 | 2e 31 0d 01 18 25 85 20 |e to RO3|.1...%. |
|00000470| 31 2c 22 44 6f 20 6e 6f | 74 20 72 75 6e 20 74 68 |1,"Do no|t run th|
|00000480| 65 20 57 69 6d 70 20 4c | 69 62 72 61 72 79 22 0d |e Wimp L|ibrary".|
|00000490| 01 22 05 3a 0d 01 2c 37 | f4 20 2a 2a 2a 2a 2a 2a |.".:..,7|. ******|
|000004a0| 2a 2a 20 4d 61 69 6e 20 | 41 70 70 6c 69 63 61 74 |** Main |Applicat|
|000004b0| 69 6f 6e 20 50 72 6f 63 | 65 64 75 72 65 73 20 2a |ion Proc|edures *|
|000004c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 01 36 05 3a |********|***..6.:|
|000004d0| 0d 01 40 34 f4 20 50 52 | 4f 43 69 6e 69 74 6c 69 |..@4. PR|OCinitli|
|000004e0| 62 72 61 72 79 20 3a 20 | 49 6e 69 74 69 61 6c 69 |brary : |Initiali|
|000004f0| 73 65 20 6c 69 62 72 61 | 72 79 20 76 61 72 69 61 |se libra|ry varia|
|00000500| 62 6c 65 73 0d 01 4a 11 | dd f2 69 6e 69 74 6c 69 |bles..J.|..initli|
|00000510| 62 72 61 72 79 0d 01 54 | 1a de 20 6d 65 73 73 61 |brary..T|.. messa|
|00000520| 67 65 5f 62 75 66 66 65 | 72 25 20 31 30 32 34 0d |ge_buffe|r% 1024.|
|00000530| 01 5e 38 72 6d 61 66 6f | 6e 74 61 72 65 61 3d 2d |.^8rmafo|ntarea=-|
|00000540| 32 3a 6d 73 67 62 75 66 | 66 65 72 25 3d 2d 31 3a |2:msgbuf|fer%=-1:|
|00000550| 6d 73 67 62 75 66 66 65 | 72 32 25 3d 2d 31 3a 66 |msgbuffe|r2%=-1:f|
|00000560| 74 62 6c 6b 3d 2d 32 0d | 01 68 05 e1 0d 01 72 05 |tblk=-2.|.h....r.|
|00000570| 3a 0d 01 7c 3d f4 20 50 | 52 4f 43 6e 6f 74 65 6d |:..|=. P|ROCnotem|
|00000580| 65 73 73 61 67 65 20 3a | 20 4d 61 72 6b 20 74 68 |essage :| Mark th|
|00000590| 65 20 67 69 76 65 6e 20 | 6d 65 73 73 61 67 65 20 |e given |message |
|000005a0| 61 73 20 72 65 63 65 69 | 76 65 61 62 6c 65 0d 01 |as recei|veable..|
|000005b0| 86 2e dd f2 6e 6f 74 65 | 6d 65 73 73 61 67 65 28 |....note|message(|
|000005c0| 6e 29 3a 6d 65 73 73 61 | 67 65 6c 69 73 74 25 21 |n):messa|gelist%!|
|000005d0| 6d 65 73 73 70 74 72 25 | 3d 6e 3a e1 0d 01 90 05 |messptr%|=n:.....|
|000005e0| 3a 0d 01 9a 32 f4 20 46 | 4e 6c 6f 61 64 74 65 6d |:...2. F|Nloadtem|
|000005f0| 70 6c 61 74 65 20 3a 20 | 6c 6f 61 64 20 74 68 65 |plate : |load the|
|00000600| 20 73 70 65 63 69 66 69 | 65 64 20 74 65 6d 70 6c | specifi|ed templ|
|00000610| 61 74 65 0d 01 a4 32 f4 | 20 73 70 72 62 6c 6b 25 |ate...2.| sprblk%|
|00000620| 20 73 68 6f 75 6c 64 20 | 62 65 20 31 20 66 6f 72 | should |be 1 for|
|00000630| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 73 70 | the sta|ndard sp|
|00000640| 72 69 74 65 73 0d 01 ae | 30 dd a4 6c 6f 61 64 74 |rites...|0..loadt|
|00000650| 65 6d 70 6c 61 74 65 28 | 6e 24 2c 73 70 72 62 6c |emplate(|n$,sprbl|
|00000660| 6b 25 29 3a ea 20 74 73 | 69 7a 65 25 2c 62 6c 6b |k%):. ts|ize%,blk|
|00000670| 25 2c 6f 6b 25 0d 01 b8 | 30 c8 99 20 22 57 69 6d |%,ok%...|0.. "Wim|
|00000680| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00000690| 2c 41 70 70 64 69 72 24 | 2b 22 2e 54 65 6d 70 6c |,Appdir$|+".Templ|
|000006a0| 61 74 65 73 22 0d 01 c2 | 34 f4 20 53 59 53 20 22 |ates"...|4. SYS "|
|000006b0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000006c0| 65 22 2c 2c 30 2c 2c 2c | 2c 6e 24 2c 30 20 54 4f |e",,0,,,|,n$,0 TO|
|000006d0| 20 2c 2c 74 73 69 7a 65 | 25 0d 01 cc 1d 74 73 69 | ,,tsize|%....tsi|
|000006e0| 7a 65 25 3d 32 30 34 38 | 3a f4 20 41 20 67 75 65 |ze%=2048|:. A gue|
|000006f0| 73 73 20 3b 2d 28 0d 01 | d6 11 de 20 62 6c 6b 25 |ss ;-(..|... blk%|
|00000700| 20 74 73 69 7a 65 25 0d | 01 e0 48 c8 99 20 22 57 | tsize%.|..H.. "W|
|00000710| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000720| 22 2c 2c 77 73 70 63 25 | 2c 62 6c 6b 25 2c 62 6c |",,wspc%|,blk%,bl|
|00000730| 6b 25 20 2b 20 74 73 69 | 7a 65 25 2c 2d 31 2c 6e |k% + tsi|ze%,-1,n|
|00000740| 24 2c 30 20 b8 20 2c 2c | 2c 2c 2c 2c 6f 6b 25 0d |$,0 . ,,|,,,,ok%.|
|00000750| 01 ea 1b c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..... "W|imp_Clos|
|00000760| 65 54 65 6d 70 6c 61 74 | 65 22 0d 01 f4 35 e7 20 |eTemplat|e"...5. |
|00000770| 6f 6b 25 3d 30 20 8c 85 | 20 26 38 30 33 2c 20 22 |ok%=0 ..| &803, "|
|00000780| 54 65 6d 70 6c 61 74 65 | 20 66 69 6c 65 20 22 2b |Template| file "+|
|00000790| 6e 24 2b 22 20 6e 6f 74 | 20 66 6f 75 6e 64 22 0d |n$+" not| found".|
|000007a0| 01 fe 39 77 73 70 63 25 | 21 36 34 3d 73 70 72 62 |..9wspc%|!64=sprb|
|000007b0| 6c 6b 25 3a c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |lk%:.. "|Wimp_Cre|
|000007c0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 77 73 70 63 |ateWindo|w",,wspc|
|000007d0| 25 20 b8 20 62 6c 6b 25 | 0d 02 08 09 3d 62 6c 6b |% . blk%|....=blk|
|000007e0| 25 0d 02 12 05 3a 0d 02 | 1c 34 f4 20 46 4e 6c 6f |%....:..|.4. FNlo|
|000007f0| 61 64 73 70 72 69 74 65 | 73 20 3a 20 4c 6f 61 64 |adsprite|s : Load|
|00000800| 20 73 70 72 69 74 65 20 | 66 69 6c 65 20 69 6e 74 | sprite |file int|
|00000810| 6f 20 6e 65 77 20 61 72 | 65 61 0d 02 26 22 dd a4 |o new ar|ea..&"..|
|00000820| 6c 6f 61 64 73 70 72 69 | 74 65 73 28 66 69 6c 65 |loadspri|tes(file|
|00000830| 24 29 3a ea 20 6c 65 6e | 25 2c 4f 25 0d 02 30 1a |$):. len|%,O%..0.|
|00000840| 4f 25 3d 8e 28 66 69 6c | 65 24 29 3a e7 20 4f 25 |O%=.(fil|e$):. O%|
|00000850| 3d 30 20 8c 3d 31 0d 02 | 3a 15 6c 65 6e 25 3d a2 |=0 .=1..|:.len%=.|
|00000860| 23 4f 25 2b 31 36 3a d9 | 23 4f 25 0d 02 44 2c de |#O%+16:.|#O%..D,.|
|00000870| 20 73 70 72 62 6c 6b 25 | 20 6c 65 6e 25 3a 21 73 | sprblk%| len%:!s|
|00000880| 70 72 62 6c 6b 25 3d 6c | 65 6e 25 3a 73 70 72 62 |prblk%=l|en%:sprb|
|00000890| 6c 6b 25 21 38 3d 30 0d | 02 4e 20 c8 99 22 4f 53 |lk%!8=0.|.N .."OS|
|000008a0| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 39 2c |_SpriteO|p",&109,|
|000008b0| 73 70 72 62 6c 6b 25 0d | 02 58 26 c8 99 22 4f 53 |sprblk%.|.X&.."OS|
|000008c0| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 41 2c |_SpriteO|p",&10A,|
|000008d0| 73 70 72 62 6c 6b 25 2c | 66 69 6c 65 24 0d 02 62 |sprblk%,|file$..b|
|000008e0| 0c 3d 73 70 72 62 6c 6b | 25 0d 02 6c 05 3a 0d 02 |.=sprblk|%..l.:..|
|000008f0| 76 41 f4 20 46 4e 47 65 | 74 45 6e 76 20 3a 20 52 |vA. FNGe|tEnv : R|
|00000900| 65 74 75 72 6e 20 74 68 | 65 20 65 6e 76 69 72 6f |eturn th|e enviro|
|00000910| 6e 6d 65 6e 74 20 73 74 | 72 69 6e 67 20 73 74 72 |nment st|ring str|
|00000920| 69 70 70 65 64 20 6f 66 | 20 6c 6f 61 64 65 72 0d |ipped of| loader.|
|00000930| 02 80 18 dd a4 47 65 74 | 45 6e 76 3a ea 20 63 6f |.....Get|Env:. co|
|00000940| 6d 24 2c 49 2c 70 24 0d | 02 8a 19 c8 99 20 22 4f |m$,I,p$.|..... "O|
|00000950| 53 5f 47 65 74 45 6e 76 | 22 20 b8 20 63 6f 6d 24 |S_GetEnv|" . com$|
|00000960| 0d 02 94 1c 70 24 3d 22 | 22 3a 49 3d a7 63 6f 6d |....p$="|":I=.com|
|00000970| 24 2c 22 20 2d 71 75 69 | 74 20 22 29 0d 02 9e 0b |$," -qui|t ")....|
|00000980| e7 20 49 3e 30 20 8c 0d | 02 a8 28 20 70 24 3d c1 |. I>0 ..|..( p$=.|
|00000990| 63 6f 6d 24 2c a7 63 6f | 6d 24 2c 22 20 22 2c 49 |com$,.co|m$," ",I|
|000009a0| 2b a9 22 20 2d 71 75 69 | 74 20 22 29 2b 31 29 0d |+." -qui|t ")+1).|
|000009b0| 02 b2 1e 20 c8 95 20 c0 | 70 24 2c 31 29 3d 22 20 |... .. .|p$,1)=" |
|000009c0| 22 3a 70 24 3d c1 70 24 | 2c 32 29 3a ce 0d 02 bc |":p$=.p$|,2):....|
|000009d0| 05 cd 0d 02 c6 07 3d 70 | 24 0d 02 d0 05 3a 0d 02 |......=p|$....:..|
|000009e0| da 40 f4 20 46 4e 73 79 | 73 74 65 6d 76 61 72 20 |.@. FNsy|stemvar |
|000009f0| 3a 20 52 65 74 75 72 6e | 20 74 68 65 20 63 6f 6e |: Return| the con|
|00000a00| 74 65 6e 74 73 20 6f 66 | 20 61 6e 79 20 73 74 72 |tents of| any str|
|00000a10| 69 6e 67 20 73 79 73 74 | 65 6d 20 76 61 72 0d 02 |ing syst|em var..|
|00000a20| e4 1b dd a4 73 79 73 74 | 65 6d 76 61 72 28 56 61 |....syst|emvar(Va|
|00000a30| 72 24 29 3a ea 20 6c 65 | 6e 0d 02 ee 3a c8 99 20 |r$):. le|n...:.. |
|00000a40| 22 58 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 22 |"XOS_Rea|dVarVal"|
|00000a50| 2c 56 61 72 24 2c 6d 65 | 73 73 61 67 65 5f 62 75 |,Var$,me|ssage_bu|
|00000a60| 66 66 65 72 25 2c 32 35 | 35 2c 30 2c 33 b8 2c 2c |ffer%,25|5,0,3.,,|
|00000a70| 6c 65 6e 0d 02 f8 1a 6d | 65 73 73 61 67 65 5f 62 |len....m|essage_b|
|00000a80| 75 66 66 65 72 25 3f 6c | 65 6e 3d 31 33 0d 03 02 |uffer%?l|en=13...|
|00000a90| 15 3d 24 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |.=$messa|ge_buffe|
|00000aa0| 72 25 0d 03 0c 05 3a 0d | 03 16 29 f4 20 50 52 4f |r%....:.|..). PRO|
|00000ab0| 43 65 65 72 72 6f 72 20 | 3a 20 45 78 74 65 72 6e |Ceerror |: Extern|
|00000ac0| 61 6c 20 65 72 72 6f 72 | 20 72 6f 75 74 69 6e 65 |al error| routine|
|00000ad0| 0d 03 20 3e f4 20 73 68 | 6f 75 6c 64 20 62 65 20 |.. >. sh|ould be |
|00000ae0| 63 61 6c 6c 65 64 20 77 | 68 65 6e 20 65 72 72 6f |called w|hen erro|
|00000af0| 72 73 20 6f 63 63 75 72 | 20 64 75 72 69 6e 67 20 |rs occur| during |
|00000b00| 69 6e 69 74 69 61 6c 69 | 73 61 74 69 6f 6e 0d 03 |initiali|sation..|
|00000b10| 2a 0c dd f2 65 65 72 72 | 6f 72 0d 03 34 07 ea 20 |*...eerr|or..4.. |
|00000b20| 85 0d 03 3e 47 ee 20 85 | 20 ea 3a f2 63 6c 6f 73 |...>G. .| .:.clos|
|00000b30| 65 6d 65 73 73 61 67 65 | 73 3a ef 34 3a 85 20 a2 |emessage|s:.4:. .|
|00000b40| 20 30 2c f6 24 2b 22 20 | 61 74 20 6c 69 6e 65 20 | 0,.$+" |at line |
|00000b50| 22 2b c3 9e 2b 22 20 69 | 6e 20 65 72 72 6f 72 20 |"+..+" i|n error |
|00000b60| 68 61 6e 64 6c 65 72 22 | 0d 03 48 29 6d 65 73 73 |handler"|..H)mess|
|00000b70| 24 3d 22 49 6e 74 65 72 | 6e 61 6c 20 65 72 72 6f |$="Inter|nal erro|
|00000b80| 72 20 3a 20 28 22 2b c3 | 9e 2b 22 29 20 22 2b f6 |r : ("+.|.+") "+.|
|00000b90| 24 0d 03 52 38 ff 28 22 | 53 65 74 20 45 72 72 6f |$..R8.("|Set Erro|
|00000ba0| 72 24 20 22 2b 6d 65 73 | 73 24 29 3a ff 28 22 53 |r$ "+mes|s$):.("S|
|00000bb0| 65 74 20 45 72 72 6f 72 | 24 54 61 73 6b 20 4e 6f |et Error|$Task No|
|00000bc0| 74 20 6b 6e 6f 77 6e 22 | 29 0d 03 5c 4c 6d 65 73 |t known"|)..\Lmes|
|00000bd0| 73 61 67 65 5f 62 75 66 | 66 65 72 25 21 30 3d 9f |sage_buf|fer%!0=.|
|00000be0| 3a 24 28 6d 65 73 73 61 | 67 65 5f 62 75 66 66 65 |:$(messa|ge_buffe|
|00000bf0| 72 25 2b 34 29 3d 6d 65 | 73 73 24 2b 22 20 77 68 |r%+4)=me|ss$+" wh|
|00000c00| 69 6c 73 74 20 69 6e 69 | 74 69 61 6c 69 73 69 6e |ilst ini|tialisin|
|00000c10| 67 22 2b bd 30 0d 03 66 | 40 c8 99 20 22 57 69 6d |g"+.0..f|@.. "Wim|
|00000c20| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 6d |p_Report|Error",m|
|00000c30| 65 73 73 61 67 65 5f 62 | 75 66 66 65 72 25 2c 39 |essage_b|uffer%,9|
|00000c40| 2c 22 75 6e 69 6e 69 74 | 69 61 6c 69 73 65 64 20 |,"uninit|ialised |
|00000c50| 74 61 73 6b 22 0d 03 70 | 05 e1 0d 03 7a 05 3a 0d |task"..p|....z.:.|
|00000c60| 03 84 2b f4 20 50 52 4f | 43 65 72 72 6f 72 20 3a |..+. PRO|Cerror :|
|00000c70| 20 43 61 6c 6c 65 64 20 | 61 74 20 61 6e 79 20 62 | Called |at any b|
|00000c80| 61 73 69 63 20 65 72 72 | 6f 72 0d 03 8e 1b f4 20 |asic err|or..... |
|00000c90| 45 52 52 4f 52 20 6e 75 | 6d 62 65 72 73 20 26 38 |ERROR nu|mbers &8|
|00000ca0| 30 30 2b 20 3a 0d 03 98 | 0c f4 20 30 20 3d 20 4f |00+ :...|.. 0 = O|
|00000cb0| 4b 0d 03 a2 10 f4 20 31 | 20 3d 20 43 61 6e 63 65 |K..... 1| = Cance|
|00000cc0| 6c 0d 03 ac 21 f4 20 32 | 20 3d 20 4f 4b 20 61 6e |l...!. 2| = OK an|
|00000cd0| 64 20 43 61 6e 63 65 6c | 20 28 74 6f 20 71 75 69 |d Cancel| (to qui|
|00000ce0| 74 29 0d 03 b6 2e f4 20 | 53 68 69 66 74 2c 20 43 |t)..... |Shift, C|
|00000cf0| 74 72 6c 2c 20 51 20 61 | 6e 64 20 63 6c 69 63 6b |trl, Q a|nd click|
|00000d00| 20 74 6f 20 65 78 69 74 | 20 70 72 6f 67 72 61 6d | to exit| program|
|00000d10| 0d 03 c0 22 dd f2 65 72 | 72 6f 72 3a ea 20 65 72 |..."..er|ror:. er|
|00000d20| 72 63 6f 64 65 2c 6d 65 | 73 73 24 2c 72 65 70 6c |rcode,me|ss$,repl|
|00000d30| 79 25 0d 03 ca 07 ea 20 | 85 0d 03 d4 47 ee 20 85 |y%..... |....G. .|
|00000d40| 20 ea 3a f2 63 6c 6f 73 | 65 6d 65 73 73 61 67 65 | .:.clos|emessage|
|00000d50| 73 3a ef 34 3a 85 20 a2 | 20 30 2c f6 24 2b 22 20 |s:.4:. .| 0,.$+" |
|00000d60| 61 74 20 6c 69 6e 65 20 | 22 2b c3 9e 2b 22 20 69 |at line |"+..+" i|
|00000d70| 6e 20 65 72 72 6f 72 20 | 68 61 6e 64 6c 65 72 22 |n error |handler"|
|00000d80| 0d 03 de 14 c8 99 20 22 | 4f 53 5f 42 79 74 65 22 |...... "|OS_Byte"|
|00000d90| 2c 31 32 34 0d 03 e8 17 | e7 20 9f 3e 26 37 46 46 |,124....|. .>&7FF|
|00000da0| 20 80 20 9f 3c 26 38 30 | 33 20 8c 0d 03 f2 1c 20 | . .<&80|3 ..... |
|00000db0| 65 72 72 63 6f 64 65 3d | 9f 2d 26 37 46 46 3a 6d |errcode=|.-&7FF:m|
|00000dc0| 65 73 73 24 3d f6 24 0d | 03 fc 2c 20 e7 20 65 72 |ess$=.$.|.., . er|
|00000dd0| 72 63 6f 64 65 3d 33 20 | 8c 6d 65 73 73 24 2b 3d |rcode=3 |.mess$+=|
|00000de0| 22 20 28 43 61 6e 63 65 | 6c 20 74 6f 20 51 75 69 |" (Cance|l to Qui|
|00000df0| 74 29 22 0d 04 06 2d 20 | 72 65 70 6c 79 25 3d a4 |t)"...- |reply%=.|
|00000e00| 65 72 72 6f 72 62 6f 78 | 28 41 70 70 6e 61 6d 65 |errorbox|(Appname|
|00000e10| 24 2c 6d 65 73 73 24 2c | 65 72 72 63 6f 64 65 29 |$,mess$,|errcode)|
|00000e20| 0d 04 10 24 20 e7 20 72 | 65 70 6c 79 25 3d 32 20 |...$ . r|eply%=2 |
|00000e30| 80 20 65 72 72 63 6f 64 | 65 3d 33 20 8c 71 75 69 |. errcod|e=3 .qui|
|00000e40| 74 25 3d b9 0d 04 1a 05 | cc 0d 04 24 3c 20 6d 65 |t%=.....|...$< me|
|00000e50| 73 73 24 3d 22 49 6e 74 | 65 72 6e 61 6c 20 65 72 |ss$="Int|ernal er|
|00000e60| 72 6f 72 20 3a 20 28 22 | 2b c3 9e 2b 22 29 20 22 |ror : ("|+..+") "|
|00000e70| 2b f6 24 2b 22 20 43 61 | 6e 63 65 6c 20 74 6f 20 |+.$+" Ca|ncel to |
|00000e80| 51 75 69 74 22 0d 04 2e | 29 20 72 65 70 6c 79 25 |Quit"...|) reply%|
|00000e90| 3d a4 65 72 72 6f 72 62 | 6f 78 28 41 70 70 6e 61 |=.errorb|ox(Appna|
|00000ea0| 6d 65 24 2c 6d 65 73 73 | 24 2c 25 31 31 29 0d 04 |me$,mess|$,%11)..|
|00000eb0| 38 30 20 e7 20 72 65 70 | 6c 79 25 3c 3e 31 20 8c |80 . rep|ly%<>1 .|
|00000ec0| 71 75 69 74 25 3d b9 3a | ff 28 22 53 65 74 20 45 |quit%=.:|.("Set E|
|00000ed0| 72 72 6f 72 24 20 22 2b | 6d 65 73 73 24 29 0d 04 |rror$ "+|mess$)..|
|00000ee0| 42 2b 20 e7 20 a6 28 2d | 31 29 20 80 20 a6 28 2d |B+ . .(-|1) . .(-|
|00000ef0| 32 29 20 80 20 a6 28 2d | 31 37 29 20 8c ff 28 22 |2) . .(-|17) ..("|
|00000f00| 53 70 6f 6f 6c 22 29 3a | e0 0d 04 4c 05 cd 0d 04 |Spool"):|...L....|
|00000f10| 56 05 e1 0d 04 60 05 3a | 0d 04 6a 3b f4 20 46 4e |V....`.:|..j;. FN|
|00000f20| 65 72 72 6f 72 62 6f 78 | 20 3a 20 63 72 65 61 74 |errorbox| : creat|
|00000f30| 65 20 61 6e 20 65 72 72 | 6f 72 20 62 6f 78 20 77 |e an err|or box w|
|00000f40| 69 74 68 20 75 70 20 74 | 6f 20 32 20 62 75 74 74 |ith up t|o 2 butt|
|00000f50| 6f 6e 73 0d 04 74 1d f4 | 20 42 69 74 20 56 61 6c |ons..t..| Bit Val|
|00000f60| 75 65 20 45 66 66 65 63 | 74 20 69 66 20 73 65 74 |ue Effec|t if set|
|00000f70| 0d 04 7e 3f f4 20 20 30 | 20 20 20 20 31 20 20 20 |..~?.  0|    1   |
|00000f80| 49 6e 63 6c 75 64 65 20 | 61 6e 20 4f 4b 20 6f 70 |Include |an OK op|
|00000f90| 74 69 6f 6e 20 20 20 20 | 7d 20 69 66 20 62 6f 74 |tion    |} if bot|
|00000fa0| 68 20 75 6e 73 65 74 20 | 74 68 65 6e 20 61 73 0d |h unset |then as.|
|00000fb0| 04 88 33 f4 20 20 31 20 | 20 20 20 32 20 20 20 49 |..3.  1 |   2   I|
|00000fc0| 6e 63 6c 75 64 65 20 61 | 20 43 61 6e 63 65 6c 20 |nclude a| Cancel |
|00000fd0| 6f 70 74 69 6f 6e 20 7d | 20 62 69 74 20 30 20 73 |option }| bit 0 s|
|00000fe0| 65 74 0d 04 92 44 f4 20 | 20 32 20 20 20 20 34 20 |et...D. | 2    4 |
|00000ff0| 20 20 52 65 76 65 72 73 | 65 64 20 62 75 74 74 6f |  Revers|ed butto|
|00001000| 6e 73 2c 20 4f 4b 3d 57 | 68 69 74 65 2c 20 43 61 |ns, OK=W|hite, Ca|
|00001010| 6e 63 65 6c 3d 59 65 6c | 6c 6f 77 20 61 6e 64 20 |ncel=Yel|low and |
|00001020| 61 63 74 69 6f 6e 0d 04 | 9c 11 f4 20 20 33 20 20 |action..|...  3  |
|00001030| 20 20 38 20 20 20 3f 0d | 04 a6 3a f4 20 20 34 20 |  8   ?.|..:.  4 |
|00001040| 20 20 20 31 36 20 20 54 | 69 74 6c 65 20 69 73 20 |   16  T|itle is |
|00001050| 6a 75 73 74 20 74 69 74 | 6c 65 20 28 6e 6f 74 20 |just tit|le (not |
|00001060| 45 72 72 6f 72 20 66 72 | 6f 6d 20 74 69 74 6c 65 |Error fr|om title|
|00001070| 29 0d 04 b0 25 f4 20 20 | 35 20 20 20 20 33 32 20 |)...%.  |5    32 |
|00001080| 20 44 61 6e 67 65 72 6f | 75 73 2c 20 64 6f 20 6e | Dangero|us, do n|
|00001090| 6f 74 20 75 73 65 0d 04 | ba 1e f4 20 20 36 20 20 |ot use..|...  6  |
|000010a0| 20 20 36 34 20 20 4e 6f | 20 65 72 72 6f 72 20 62 |  64  No| error b|
|000010b0| 6f 78 20 3f 0d 04 c4 1a | f4 20 20 37 20 20 20 31 |ox ?....|.  7   1|
|000010c0| 32 38 20 20 44 6f 6e 27 | 74 20 62 65 65 70 0d 04 |28  Don'|t beep..|
|000010d0| ce 3f dd a4 65 72 72 6f | 72 62 6f 78 28 74 69 74 |.?..erro|rbox(tit|
|000010e0| 6c 65 24 2c 6d 65 73 73 | 61 67 65 24 2c 62 75 74 |le$,mess|age$,but|
|000010f0| 74 6f 6e 25 29 3a 74 69 | 74 6c 65 24 3d a4 6d 73 |ton%):ti|tle$=.ms|
|00001100| 67 74 65 78 74 28 74 69 | 74 6c 65 24 29 0d 04 d8 |gtext(ti|tle$)...|
|00001110| 1f 6d 65 73 73 61 67 65 | 24 3d a4 6d 73 67 74 65 |.message|$=.msgte|
|00001120| 78 74 28 6d 65 73 73 61 | 67 65 24 29 0d 04 e2 34 |xt(messa|ge$)...4|
|00001130| 24 28 6d 65 73 73 61 67 | 65 5f 62 75 66 66 65 72 |$(messag|e_buffer|
|00001140| 25 2b 34 29 3d 6d 65 73 | 73 61 67 65 24 3a 21 6d |%+4)=mes|sage$:!m|
|00001150| 65 73 73 61 67 65 5f 62 | 75 66 66 65 72 25 3d 30 |essage_b|uffer%=0|
|00001160| 0d 04 ec 42 c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |...B.. "|Wimp_Rep|
|00001170| 6f 72 74 45 72 72 6f 72 | 22 2c 6d 65 73 73 61 67 |ortError|",messag|
|00001180| 65 5f 62 75 66 66 65 72 | 25 2c 62 75 74 74 6f 6e |e_buffer|%,button|
|00001190| 25 2c 74 69 74 6c 65 24 | 20 b8 20 2c 72 65 70 6c |%,title$| . ,repl|
|000011a0| 79 25 0d 04 f6 0b 3d 72 | 65 70 6c 79 25 0d 05 00 |y%....=r|eply%...|
|000011b0| 05 3a 0d 05 0a 37 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:...7. |********|
|000011c0| 20 4d 65 6e 75 20 6d 61 | 6e 69 70 75 6c 61 74 69 | Menu ma|nipulati|
|000011d0| 6f 6e 20 70 72 6f 63 65 | 64 75 72 65 73 20 2a 2a |on proce|dures **|
|000011e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 05 14 05 3a 0d 05 |********|*....:..|
|000011f0| 1e 39 f4 20 46 4e 63 72 | 65 61 74 65 6d 65 6e 75 |.9. FNcr|eatemenu|
|00001200| 20 3a 20 43 72 65 61 74 | 65 20 61 20 6d 65 6e 75 | : Creat|e a menu|
|00001210| 20 67 69 76 65 6e 20 61 | 20 63 6f 6e 74 72 6f 6c | given a| control|
|00001220| 20 73 74 72 69 6e 67 0d | 05 28 13 f4 20 4d 65 6e | string.|.(.. Men|
|00001230| 75 20 46 6f 72 6d 61 74 | 20 3a 0d 05 32 1a f4 20 |u Format| :..2.. |
|00001240| 54 69 74 6c 65 7c 49 74 | 65 6d 7c 49 74 65 6d 7c |Title|It|em|Item||
|00001250| 49 74 65 6d 0d 05 3c 18 | f4 20 49 74 65 6d 20 63 |Item..<.|. Item c|
|00001260| 6f 6e 73 69 73 74 73 20 | 6f 66 20 3a 0d 05 46 1a |onsists |of :..F.|
|00001270| f4 20 45 6e 74 72 79 20 | 6f 72 20 45 6e 74 72 79 |. Entry |or Entry|
|00001280| 5d 46 6c 61 67 73 0d 05 | 50 2a f4 20 46 6c 61 67 |]Flags..|P*. Flag|
|00001290| 73 20 63 61 6e 20 62 65 | 20 3a 20 28 73 65 70 61 |s can be| : (sepa|
|000012a0| 72 61 74 65 64 20 62 79 | 20 63 6f 6d 6d 61 73 29 |rated by| commas)|
|000012b0| 0d 05 5a 13 f4 20 20 54 | 20 66 6f 72 20 74 69 63 |..Z..  T| for tic|
|000012c0| 6b 65 64 0d 05 64 1e f4 | 20 20 44 20 66 6f 72 20 |ked..d..|  D for |
|000012d0| 64 6f 74 74 65 64 20 75 | 6e 64 65 72 6e 65 61 74 |dotted u|nderneat|
|000012e0| 68 0d 05 6e 15 f4 20 20 | 57 20 66 6f 72 20 77 72 |h..n..  |W for wr|
|000012f0| 69 74 61 62 6c 65 0d 05 | 78 13 f4 20 20 53 20 66 |itable..|x..  S f|
|00001300| 6f 72 20 73 68 61 64 65 | 64 0d 05 82 2b f4 20 20 |or shade|d...+.  |
|00001310| 4b 20 66 6f 72 20 6b 65 | 79 20 73 68 6f 72 74 63 |K for ke|y shortc|
|00001320| 75 74 20 28 5e 3d 63 74 | 72 6c 2c 20 a4 3d 73 68 |ut (^=ct|rl, .=sh|
|00001330| 69 66 74 29 0d 05 8c 3c | f4 20 20 3e 20 66 6f 6c |ift)...<|.  > fol|
|00001340| 6c 6f 77 65 64 20 62 79 | 20 76 61 72 69 61 62 6c |lowed by| variabl|
|00001350| 65 20 66 6f 72 20 73 75 | 62 2d 6d 65 6e 75 20 28 |e for su|b-menu (|
|00001360| 49 74 65 6d 5d 3e 73 75 | 62 6d 65 6e 75 25 7c 29 |Item]>su|bmenu%|)|
|00001370| 0d 05 96 32 f4 20 20 7d | 20 66 6f 6c 6c 6f 77 65 |...2.  }| followe|
|00001380| 64 20 62 79 20 61 20 73 | 70 72 69 74 65 20 6e 61 |d by a s|prite na|
|00001390| 6d 65 20 28 49 74 65 6d | 5d 7d 73 70 72 69 74 65 |me (Item|]}sprite|
|000013a0| 7c 29 0d 05 a0 43 f4 20 | 4e 42 3a 54 68 65 20 6c ||)...C. |NB:The l|
|000013b0| 61 73 74 20 74 77 6f 20 | 66 6c 61 67 73 20 63 61 |ast two |flags ca|
|000013c0| 6e 20 62 65 20 75 73 65 | 64 20 74 6f 67 65 74 68 |n be use|d togeth|
|000013d0| 65 72 20 69 66 20 63 6f | 6d 6d 61 20 73 65 70 65 |er if co|mma sepe|
|000013e0| 72 61 74 65 64 0d 05 aa | 20 f4 20 20 20 20 65 67 |rated...| .    eg|
|000013f0| 2e 20 49 6e 66 6f 5d 3e | 69 6e 66 6f 25 2c 7d 21 |. Info]>|info%,}!|
|00001400| 48 65 6c 70 7c 0d 05 b4 | 41 f4 20 4e 42 3a 49 66 |Help|...|A. NB:If|
|00001410| 20 74 68 65 20 73 70 72 | 69 74 65 6e 61 6d 65 20 | the spr|itename |
|00001420| 73 74 61 72 74 73 20 77 | 69 74 68 20 73 6d 20 74 |starts w|ith sm t|
|00001430| 68 65 6e 20 74 68 65 20 | 73 70 72 69 74 65 20 77 |hen the |sprite w|
|00001440| 69 6c 6c 20 62 65 0d 05 | be 3d f4 20 20 20 20 64 |ill be..|.=.    d|
|00001450| 69 73 70 6c 61 79 65 64 | 20 75 73 69 6e 67 20 69 |isplayed| using i|
|00001460| 74 73 20 73 6d 61 6c 6c | 20 66 6f 72 6d 2c 20 6f |ts small| form, o|
|00001470| 74 68 65 72 77 69 73 65 | 20 69 74 20 77 69 6c 6c |therwise| it will|
|00001480| 20 62 65 0d 05 c8 1d f4 | 20 20 20 20 73 68 72 75 | be.....|    shru|
|00001490| 6e 6b 20 74 6f 20 68 61 | 6c 66 20 73 69 7a 65 2e |nk to ha|lf size.|
|000014a0| 0d 05 d2 14 dd a4 63 72 | 65 61 74 65 6d 65 6e 75 |......cr|eatemenu|
|000014b0| 28 41 24 29 0d 05 dc 35 | ea 20 70 6f 69 6e 74 65 |(A$)...5|. pointe|
|000014c0| 72 2c 70 32 2c 70 33 2c | 6c 2c 6c 6b 2c 4f 24 2c |r,p2,p3,|l,lk,O$,|
|000014d0| 43 24 2c 6f 69 6e 64 25 | 2c 6f 69 6e 64 6c 25 2c |C$,oind%|,oindl%,|
|000014e0| 6b 73 25 2c 6b 24 2c 53 | 24 0d 05 e6 21 6f 69 6e |ks%,k$,S|$...!oin|
|000014f0| 64 25 3d 69 6e 64 25 3a | 6f 69 6e 64 6c 25 3d 69 |d%=ind%:|oindl%=i|
|00001500| 6e 64 6c 25 3a 6b 73 25 | 3d a3 0d 05 f0 1d 70 6f |ndl%:ks%|=.....po|
|00001510| 69 6e 74 65 72 3d 6d 65 | 6e 75 25 3a 6c 3d 30 3a |inter=me|nu%:l=0:|
|00001520| 41 24 2b 3d 22 7c 22 0d | 05 fa 1b f2 6d 65 6e 75 |A$+="|".|....menu|
|00001530| 70 75 74 73 28 a4 6d 67 | 65 74 28 41 24 2c 43 24 |puts(.mg|et(A$,C$|
|00001540| 29 29 0d 06 04 15 f2 6d | 65 6e 75 70 75 74 77 28 |)).....m|enuputw(|
|00001550| 26 37 30 32 30 37 29 0d | 06 0e 1b 70 32 3d 6d 65 |&70207).|...p2=me|
|00001560| 6e 75 25 3a f2 6d 65 6e | 75 70 75 74 77 28 26 38 |nu%:.men|uputw(&8|
|00001570| 30 29 0d 06 18 12 f2 6d | 65 6e 75 70 75 74 77 28 |0).....m|enuputw(|
|00001580| 26 32 43 29 0d 06 22 26 | f2 6d 65 6e 75 70 75 74 |&2C).."&|.menuput|
|00001590| 77 28 30 29 3a 6f 70 74 | 69 6f 6e 73 25 3d 30 3a |w(0):opt|ions%=0:|
|000015a0| 53 24 3d 41 24 3a 6c 6b | 3d 30 0d 06 2c 05 f5 0d |S$=A$:lk|=0..,...|
|000015b0| 06 36 15 20 e7 20 6b 73 | 25 3d b9 20 8c 6b 73 25 |.6. . ks|%=. .ks%|
|000015c0| 3d b9 2a 32 0d 06 40 06 | 20 f5 0d 06 4a 29 20 20 |=.*2..@.| ...J)  |
|000015d0| 4f 24 3d a4 6d 67 65 74 | 28 41 24 2c 43 24 29 3a |O$=.mget|(A$,C$):|
|000015e0| 6f 70 74 69 6f 6e 73 25 | 3d 6f 70 74 69 6f 6e 73 |options%|=options|
|000015f0| 25 2b 31 0d 06 54 31 20 | 20 66 6c 61 67 73 3d a4 |%+1..T1 | flags=.|
|00001600| 6d 64 65 63 6f 64 65 28 | 43 24 2c 70 33 2c 73 24 |mdecode(|C$,p3,s$|
|00001610| 2c 6b 24 29 2b 28 28 2d | 28 41 24 3d 22 22 29 29 |,k$)+((-|(A$=""))|
|00001620| 3c 3c 37 29 0d 06 5e 1a | 20 20 e7 20 6b 73 25 3d |<<7)..^.|  . ks%=|
|00001630| b9 2a 32 20 80 20 6b 24 | 3c 3e 22 22 20 8c 0d 06 |.*2 . k$|<>"" ...|
|00001640| 68 25 20 20 20 4f 24 2b | 3d c4 6c 2b 6c 6b 2d 28 |h%   O$+|=.l+lk-(|
|00001650| a9 28 4f 24 29 2b a9 28 | 6b 24 29 29 2b 31 2c 22 |.(O$)+.(|k$))+1,"|
|00001660| 20 22 29 0d 06 72 24 20 | 20 20 e7 20 c0 6b 24 2c | ")..r$ |  . .k$,|
|00001670| 31 29 3d 22 a4 22 20 8c | c1 6b 24 2c 31 2c 31 29 |1)="." .|.k$,1,1)|
|00001680| 3d bd 28 31 33 39 29 0d | 06 7c 0d 20 20 20 4f 24 |=.(139).|.|.   O$|
|00001690| 2b 3d 6b 24 0d 06 86 07 | 20 20 cc 0d 06 90 2b 20 |+=k$....|  ....+ |
|000016a0| 20 20 e7 20 6b 24 3c 3e | 22 22 20 8c 6b 73 25 3d |  . k$<>|"" .ks%=|
|000016b0| b9 3a e7 20 6c 6b 3c a9 | 28 6b 24 29 20 8c 6c 6b |.:. lk<.|(k$) .lk|
|000016c0| 3d a9 28 6b 24 29 0d 06 | 9a 07 20 20 cd 0d 06 a4 |=.(k$)..|..  ....|
|000016d0| 3d 20 20 66 6c 61 67 73 | 32 3d 26 37 30 30 30 30 |=  flags|2=&70000|
|000016e0| 32 31 2b 28 28 2d 28 a9 | 28 4f 24 29 3e 31 31 29 |21+((-(.|(O$)>11)|
|000016f0| 29 3c 3c 38 29 2b 28 31 | 3c 3c 31 34 29 2a 28 66 |)<<8)+(1|<<14)*(f|
|00001700| 6c 61 67 73 20 80 32 35 | 36 29 0d 06 ae 2b 20 20 |lags .25|6)...+  |
|00001710| e7 20 28 66 6c 61 67 73 | 20 80 20 34 29 3c 3e 30 |. (flags| . 4)<>0|
|00001720| 20 8c 66 6c 61 67 73 32 | 3d 66 6c 61 67 73 32 20 | .flags2|=flags2 |
|00001730| 84 20 32 35 36 0d 06 b8 | 1c 20 20 f2 6d 65 6e 75 |. 256...|.  .menu|
|00001740| 70 75 74 77 28 66 6c 61 | 67 73 20 80 20 32 35 35 |putw(fla|gs . 255|
|00001750| 29 0d 06 c2 13 20 20 f2 | 6d 65 6e 75 70 75 74 77 |)....  .|menuputw|
|00001760| 28 70 33 29 0d 06 cc 22 | 20 20 e7 a9 28 4f 24 29 |(p3)..."|  ..(O$)|
|00001770| 3e 6c 20 80 20 6b 73 25 | 3c 3e b9 2a 32 20 8c 6c |>l . ks%|<>.*2 .l|
|00001780| 3d a9 28 4f 24 29 0d 06 | d6 17 20 20 f2 6d 65 6e |=.(O$)..|..  .men|
|00001790| 75 70 75 74 77 28 66 6c | 61 67 73 32 29 0d 06 e0 |uputw(fl|ags2)...|
|000017a0| 24 20 20 f2 6d 65 6e 75 | 73 74 72 69 6e 67 28 4f |$  .menu|string(O|
|000017b0| 24 2c 73 24 2c 28 66 6c | 61 67 73 20 80 20 34 29 |$,s$,(fl|ags . 4)|
|000017c0| 29 0d 06 ea 0b 20 fd 41 | 24 3d 22 22 0d 06 f4 69 |).... .A|$=""...i|
|000017d0| 20 e7 20 6b 73 25 3d b9 | 2a 32 20 8c 6c 2b 3d 6c | . ks%=.|*2 .l+=l|
|000017e0| 6b 2b 31 20 8b e7 6b 73 | 25 3d b9 20 8c 69 6e 64 |k+1 ..ks|%=. .ind|
|000017f0| 25 3d 6f 69 6e 64 25 3a | 69 6e 64 6c 25 3d 6f 69 |%=oind%:|indl%=oi|
|00001800| 6e 64 6c 25 3a 6d 65 6e | 75 6c 25 2b 3d 6d 65 6e |ndl%:men|ul%+=men|
|00001810| 75 25 2d 70 32 2d 31 32 | 3a 6d 65 6e 75 25 3d 70 |u%-p2-12|:menu%=p|
|00001820| 32 2b 31 32 3a 6f 70 74 | 69 6f 6e 73 25 3d 30 3a |2+12:opt|ions%=0:|
|00001830| 41 24 3d 53 24 0d 06 fe | 0c fd 20 6b 73 25 3c 3e |A$=S$...|.. ks%<>|
|00001840| b9 0d 07 08 0f 21 70 32 | 3d 6c 2a 31 36 2b 31 36 |.....!p2|=l*16+16|
|00001850| 0d 07 12 0c 3d 70 6f 69 | 6e 74 65 72 0d 07 1c 37 |....=poi|nter...7|
|00001860| dd f2 6d 65 6e 75 73 74 | 72 69 6e 67 28 54 24 2c |..menust|ring(T$,|
|00001870| 73 24 2c 66 6c 61 67 29 | 3a e7 20 c0 54 24 2c 31 |s$,flag)|:. .T$,1|
|00001880| 29 3d 22 a4 22 20 8c 54 | 24 3d a0 28 c1 54 24 2c |)="." .T|$=.(.T$,|
|00001890| 32 29 29 0d 07 26 1f e7 | a9 28 54 24 29 3c 31 32 |2))..&..|.(T$)<12|
|000018a0| 20 80 20 73 24 3d 22 22 | 20 80 20 66 6c 61 67 3d | . s$=""| . flag=|
|000018b0| 30 8c 0d 07 30 12 20 f2 | 6d 65 6e 75 70 75 74 73 |0...0. .|menuputs|
|000018c0| 28 54 24 29 0d 07 3a 05 | cc 0d 07 44 1d 20 f2 6d |(T$)..:.|...D. .m|
|000018d0| 65 6e 75 70 75 74 77 28 | a4 69 6e 64 69 72 65 63 |enuputw(|.indirec|
|000018e0| 74 28 54 24 29 29 0d 07 | 4e 0f 20 e7 20 73 24 3c |t(T$))..|N. . s$<|
|000018f0| 3e 22 22 20 8c 0d 07 58 | 1e 20 20 6d 65 6e 75 25 |>"" ...X|.  menu%|
|00001900| 21 2d 38 3d 6d 65 6e 75 | 25 21 2d 38 20 84 20 26 |!-8=menu|%!-8 . &|
|00001910| 38 30 33 0d 07 62 34 20 | 20 e7 c0 a4 6c 6f 77 65 |803..b4 | ...lowe|
|00001920| 72 28 73 24 29 2c 32 29 | 3d 22 73 6d 22 20 8c 6d |r(s$),2)|="sm" .m|
|00001930| 65 6e 75 25 21 2d 38 3d | 6d 65 6e 75 25 21 2d 38 |enu%!-8=|menu%!-8|
|00001940| 20 82 20 26 38 30 30 0d | 07 6c 22 20 20 f2 6d 65 | . &800.|.l"  .me|
|00001950| 6e 75 70 75 74 77 28 a4 | 69 6e 64 69 72 65 63 74 |nuputw(.|indirect|
|00001960| 28 22 53 22 2b 73 24 29 | 29 0d 07 76 06 20 cc 0d |("S"+s$)|)..v. ..|
|00001970| 07 80 13 20 20 f2 6d 65 | 6e 75 70 75 74 77 28 2d |...  .me|nuputw(-|
|00001980| 31 29 0d 07 8a 06 20 cd | 0d 07 94 15 20 f2 6d 65 |1).... .|.... .me|
|00001990| 6e 75 70 75 74 77 28 a9 | 28 54 24 29 29 0d 07 9e |nuputw(.|(T$))...|
|000019a0| 05 cd 0d 07 a8 05 e1 0d | 07 b2 15 dd a4 6d 67 65 |........|.....mge|
|000019b0| 74 28 f8 20 41 24 2c f8 | 20 43 24 29 0d 07 bc 1b |t(. A$,.| C$)....|
|000019c0| ea 20 42 24 3a 42 24 3d | c0 41 24 2c a7 41 24 2c |. B$:B$=|.A$,.A$,|
|000019d0| 22 7c 22 29 2d 31 29 0d | 07 c6 27 41 24 3d c1 41 |"|")-1).|..'A$=.A|
|000019e0| 24 2c a9 28 42 24 29 2b | 32 29 3a e7 a7 42 24 2c |$,.(B$)+|2):..B$,|
|000019f0| 22 5d 22 29 3c 31 8c 42 | 24 2b 3d 22 5d 22 0d 07 |"]")<1.B|$+="]"..|
|00001a00| d0 29 43 24 3d c1 42 24 | 2c a7 42 24 2c 22 5d 22 |.)C$=.B$|,.B$,"]"|
|00001a10| 29 2b 31 29 3a 42 24 3d | c0 42 24 2c a7 42 24 2c |)+1):B$=|.B$,.B$,|
|00001a20| 22 5d 22 29 2d 31 29 0d | 07 da 11 3d a4 6d 73 67 |"]")-1).|...=.msg|
|00001a30| 74 65 78 74 28 42 24 29 | 0d 07 e4 3a dd f2 6d 65 |text(B$)|...:..me|
|00001a40| 6e 75 70 75 74 73 28 54 | 24 29 3a e7 a9 28 54 24 |nuputs(T|$):..(T$|
|00001a50| 29 3e 31 31 20 8c 85 20 | 26 38 30 33 2c 22 4d 65 |)>11 .. |&803,"Me|
|00001a60| 6e 75 20 65 6e 74 72 79 | 20 74 6f 6f 20 6c 6f 6e |nu entry| too lon|
|00001a70| 67 22 0d 07 ee 22 24 6d | 65 6e 75 25 3d 54 24 3a |g"..."$m|enu%=T$:|
|00001a80| 6d 65 6e 75 25 2b 3d 31 | 32 3a 6d 65 6e 75 6c 25 |menu%+=1|2:menul%|
|00001a90| 2d 3d 31 32 0d 07 f8 34 | e7 6d 65 6e 75 6c 25 3c |-=12...4|.menul%<|
|00001aa0| 3d 34 20 8c 85 20 26 38 | 30 33 2c 22 4e 6f 74 20 |=4 .. &8|03,"Not |
|00001ab0| 65 6e 6f 75 67 68 20 6d | 65 6d 6f 72 79 20 66 6f |enough m|emory fo|
|00001ac0| 72 20 6d 65 6e 75 73 22 | 0d 08 02 05 e1 0d 08 0c |r menus"|........|
|00001ad0| 12 dd f2 6d 65 6e 75 70 | 75 74 77 28 57 25 29 0d |...menup|utw(W%).|
|00001ae0| 08 16 20 21 6d 65 6e 75 | 25 3d 57 25 3a 6d 65 6e |.. !menu|%=W%:men|
|00001af0| 75 25 2b 3d 34 3a 6d 65 | 6e 75 6c 25 2d 3d 34 0d |u%+=4:me|nul%-=4.|
|00001b00| 08 20 34 e7 6d 65 6e 75 | 6c 25 3c 3d 34 20 8c 85 |. 4.menu|l%<=4 ..|
|00001b10| 20 26 38 30 33 2c 22 4e | 6f 74 20 65 6e 6f 75 67 | &803,"N|ot enoug|
|00001b20| 68 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 6d 65 6e |h memory| for men|
|00001b30| 75 73 22 0d 08 2a 05 e1 | 0d 08 34 1f dd a4 6d 64 |us"..*..|..4...md|
|00001b40| 65 63 6f 64 65 28 41 24 | 2c f8 20 70 2c f8 20 73 |ecode(A$|,. p,. s|
|00001b50| 24 2c f8 20 6b 24 29 0d | 08 3e 28 ea 20 42 24 2c |$,. k$).|.>(. B$,|
|00001b60| 43 24 2c 56 3a 70 3d 2d | 31 3a 73 24 3d 22 22 3a |C$,V:p=-|1:s$="":|
|00001b70| 6b 24 3d 22 22 3a 41 24 | 3d 41 24 2b 22 2c 22 0d |k$="":A$|=A$+",".|
|00001b80| 08 48 0d c8 95 20 41 24 | 3c 3e 22 22 0d 08 52 18 |.H... A$|<>""..R.|
|00001b90| 20 42 24 3d c0 41 24 2c | 31 29 3a 41 24 3d c1 41 | B$=.A$,|1):A$=.A|
|00001ba0| 24 2c 32 29 0d 08 5c 0c | 20 c8 8e 20 42 24 20 ca |$,2)..\.| .. B$ .|
|00001bb0| 0d 08 66 13 20 20 c9 20 | 22 54 22 3a 56 3d 56 20 |..f.  . |"T":V=V |
|00001bc0| 84 20 31 0d 08 70 13 20 | 20 c9 20 22 44 22 3a 56 |. 1..p. | . "D":V|
|00001bd0| 3d 56 20 84 20 32 0d 08 | 7a 13 20 20 c9 20 22 57 |=V . 2..|z.  . "W|
|00001be0| 22 3a 56 3d 56 20 84 20 | 34 0d 08 84 13 20 20 c9 |":V=V . |4....  .|
|00001bf0| 20 22 4d 22 3a 56 3d 56 | 20 84 20 38 0d 08 8e 15 | "M":V=V| . 8....|
|00001c00| 20 20 c9 20 22 53 22 3a | 56 3d 56 20 84 20 32 35 |  . "S":|V=V . 25|
|00001c10| 36 0d 08 98 31 20 20 c9 | 20 22 4b 22 3a 6b 24 3d |6...1  .| "K":k$=|
|00001c20| c0 41 24 2c a7 41 24 2c | 22 2c 22 29 2d 31 29 3a |.A$,.A$,|",")-1):|
|00001c30| 41 24 3d c1 41 24 2c a7 | 41 24 2c 22 2c 22 29 2b |A$=.A$,.|A$,",")+|
|00001c40| 31 29 0d 08 a2 33 20 20 | c9 20 22 3e 22 3a 70 3d |1)...3  |. ">":p=|
|00001c50| a0 28 c0 41 24 2c a7 41 | 24 2c 22 2c 22 29 2d 31 |.(.A$,.A|$,",")-1|
|00001c60| 29 29 3a 41 24 3d c1 41 | 24 2c a7 41 24 2c 22 2c |)):A$=.A|$,.A$,",|
|00001c70| 22 29 2b 31 29 0d 08 ac | 35 20 20 c9 20 22 7d 22 |")+1)...|5  . "}"|
|00001c80| 3a 73 24 3d c0 41 24 2c | a7 41 24 2c 22 2c 22 29 |:s$=.A$,|.A$,",")|
|00001c90| 2d 31 29 2b 22 20 22 3a | 41 24 3d c1 41 24 2c a7 |-1)+" ":|A$=.A$,.|
|00001ca0| 41 24 2c 22 2c 22 29 2b | 31 29 0d 08 b6 06 20 cb |A$,",")+|1).... .|
|00001cb0| 0d 08 c0 05 ce 0d 08 ca | 06 3d 56 0d 08 d4 05 3a |........|.=V....:|
|00001cc0| 0d 08 de 42 f4 20 46 4e | 69 6e 64 69 72 65 63 74 |...B. FN|indirect|
|00001cd0| 20 3a 20 50 6c 61 63 65 | 20 61 20 73 74 72 69 6e | : Place| a strin|
|00001ce0| 67 20 69 6e 20 69 6e 64 | 69 72 65 63 74 69 6f 6e |g in ind|irection|
|00001cf0| 20 62 75 66 66 65 72 20 | 28 72 65 74 2e 20 6c 6f | buffer |(ret. lo|
|00001d00| 63 29 0d 08 e8 1d dd a4 | 69 6e 64 69 72 65 63 74 |c)......|indirect|
|00001d10| 28 61 24 29 3a ea 20 69 | 3a 69 3d 69 6e 64 25 0d |(a$):. i|:i=ind%.|
|00001d20| 08 f2 3c e7 a9 28 61 24 | 29 3e 69 6e 64 6c 25 2d |..<..(a$|)>indl%-|
|00001d30| 31 20 8c 85 20 26 38 30 | 33 2c 22 4e 6f 74 20 65 |1 .. &80|3,"Not e|
|00001d40| 6e 6f 75 67 68 20 72 6f | 6f 6d 20 66 6f 72 20 69 |nough ro|om for i|
|00001d50| 6e 64 69 72 65 63 74 69 | 6f 6e 22 0d 08 fc 29 24 |ndirecti|on"...)$|
|00001d60| 69 6e 64 25 3d 61 24 3a | 69 6e 64 25 2b 3d a9 28 |ind%=a$:|ind%+=.(|
|00001d70| 61 24 29 2b 31 3a 69 6e | 64 6c 25 2d 3d a9 28 61 |a$)+1:in|dl%-=.(a|
|00001d80| 24 29 2b 31 0d 09 06 06 | 3d 69 0d 09 10 05 3a 0d |$)+1....|=i....:.|
|00001d90| 09 1a 36 f4 20 50 52 4f | 43 69 62 6d 65 6e 75 20 |..6. PRO|Cibmenu |
|00001da0| 3a 20 43 72 65 61 74 65 | 20 61 6e 20 69 63 6f 6e |: Create| an icon|
|00001db0| 62 61 72 20 6d 65 6e 75 | 20 66 72 6f 6d 20 69 62 |bar menu| from ib|
|00001dc0| 6d 65 6e 75 25 0d 09 24 | 44 f4 20 50 52 4f 43 6d |menu%..$|D. PROCm|
|00001dd0| 65 6e 75 20 20 20 20 20 | 20 20 20 20 3a 20 43 72 |enu     |    : Cr|
|00001de0| 65 61 74 65 20 74 68 65 | 20 6d 65 6e 75 20 61 74 |eate the| menu at|
|00001df0| 20 63 6f 2d 6f 72 64 73 | 20 6f 72 20 6d 6f 75 73 | co-ords| or mous|
|00001e00| 65 20 69 66 20 78 3d 2d | 31 0d 09 2e 34 f4 20 50 |e if x=-|1...4. P|
|00001e10| 52 4f 43 72 65 63 72 65 | 61 74 65 6d 65 6e 75 20 |ROCrecre|atemenu |
|00001e20| 3a 20 52 65 63 72 65 61 | 74 65 20 74 68 65 20 6d |: Recrea|te the m|
|00001e30| 65 6e 75 20 6a 75 73 74 | 20 75 73 65 64 0d 09 38 |enu just| used..8|
|00001e40| 0c dd f2 69 62 6d 65 6e | 75 0d 09 42 5b c8 99 20 |...ibmen|u..B[.. |
|00001e50| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00001e60| 49 6e 66 6f 22 2c 2c 62 | 25 3a 63 75 72 6d 65 6e |Info",,b|%:curmen|
|00001e70| 75 25 3d 69 62 6d 65 6e | 75 25 3a 63 6d 65 6e 75 |u%=ibmen|u%:cmenu|
|00001e80| 78 25 3d 62 25 21 30 2d | 36 34 3a 63 6d 65 6e 75 |x%=b%!0-|64:cmenu|
|00001e90| 79 25 3d 39 36 2b 26 32 | 43 2a 69 62 6f 70 74 69 |y%=96+&2|C*ibopti|
|00001ea0| 6f 6e 73 25 0d 09 4c 3b | c8 99 20 22 57 69 6d 70 |ons%..L;|.. "Wimp|
|00001eb0| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 69 62 |_CreateM|enu",,ib|
|00001ec0| 6d 65 6e 75 25 2c 62 25 | 21 30 2d 36 34 2c 39 36 |menu%,b%|!0-64,96|
|00001ed0| 2b 26 32 43 2a 69 62 6f | 70 74 69 6f 6e 73 25 0d |+&2C*ibo|ptions%.|
|00001ee0| 09 56 05 e1 0d 09 60 15 | dd f2 6d 65 6e 75 28 6d |.V....`.|..menu(m|
|00001ef0| 65 6e 75 25 2c 78 2c 79 | 29 0d 09 6a 0c e7 20 78 |enu%,x,y|)..j.. x|
|00001f00| 3d 2d 31 20 8c 0d 09 74 | 2f 20 c8 99 20 22 57 69 |=-1 ...t|/ .. "Wi|
|00001f10| 6d 70 5f 47 65 74 50 6f | 69 6e 74 65 72 49 6e 66 |mp_GetPo|interInf|
|00001f20| 6f 22 2c 2c 62 25 3a 78 | 3d 62 25 21 30 3a 79 3d |o",,b%:x|=b%!0:y=|
|00001f30| 62 25 21 34 0d 09 7e 05 | cd 0d 09 88 2c 63 75 72 |b%!4..~.|....,cur|
|00001f40| 6d 65 6e 75 25 3d 6d 65 | 6e 75 25 3a 63 6d 65 6e |menu%=me|nu%:cmen|
|00001f50| 75 78 25 3d 78 2d 36 34 | 3a 63 6d 65 6e 75 79 25 |ux%=x-64|:cmenuy%|
|00001f60| 3d 79 2b 32 30 0d 09 92 | 29 c8 99 20 22 57 69 6d |=y+20...|).. "Wim|
|00001f70| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6d |p_Create|Menu",,m|
|00001f80| 65 6e 75 25 2c 78 2d 36 | 34 2c 79 2b 32 30 0d 09 |enu%,x-6|4,y+20..|
|00001f90| 9c 05 e1 0d 09 a6 12 dd | f2 72 65 63 72 65 61 74 |........|.recreat|
|00001fa0| 65 6d 65 6e 75 0d 09 b0 | 32 c8 99 20 22 57 69 6d |emenu...|2.. "Wim|
|00001fb0| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 63 |p_Create|Menu",,c|
|00001fc0| 75 72 6d 65 6e 75 25 2c | 63 6d 65 6e 75 78 25 2c |urmenu%,|cmenux%,|
|00001fd0| 63 6d 65 6e 75 79 25 0d | 09 ba 05 e1 0d 09 c4 05 |cmenuy%.|........|
|00001fe0| 3a 0d 09 ce 2f f4 20 50 | 52 4f 43 6d 65 6e 75 75 |:.../. P|ROCmenuu|
|00001ff0| 6e 74 69 63 6b 3a 20 55 | 6e 74 69 63 6b 20 61 20 |ntick: U|ntick a |
|00002000| 67 72 6f 75 70 20 6f 66 | 20 6f 70 74 69 6f 6e 73 |group of| options|
|00002010| 0d 09 d8 30 f4 20 50 52 | 4f 43 6d 65 6e 75 74 69 |...0. PR|OCmenuti|
|00002020| 63 6b 20 20 3a 20 54 69 | 63 6b 2f 75 6e 74 69 63 |ck  : Ti|ck/untic|
|00002030| 6b 20 6f 70 74 69 6f 6e | 20 6f 6e 20 6d 65 6e 75 |k option| on menu|
|00002040| 0d 09 e2 32 f4 20 50 52 | 4f 43 6d 65 6e 75 73 68 |...2. PR|OCmenush|
|00002050| 61 64 65 20 3a 20 53 68 | 61 64 65 2f 75 6e 73 68 |ade : Sh|ade/unsh|
|00002060| 61 64 65 20 6f 70 74 69 | 6f 6e 20 6f 6e 20 6d 65 |ade opti|on on me|
|00002070| 6e 75 0d 09 ec 38 f4 20 | 46 4e 6d 65 6e 75 74 69 |nu...8. |FNmenuti|
|00002080| 63 6b 65 64 20 20 3a 20 | 52 65 74 75 72 6e 20 54 |cked  : |Return T|
|00002090| 52 55 45 20 69 66 20 6d | 65 6e 75 20 69 74 65 6d |RUE if m|enu item|
|000020a0| 20 69 73 20 74 69 63 6b | 65 64 0d 09 f6 38 f4 20 | is tick|ed...8. |
|000020b0| 46 4e 6d 65 6e 75 73 68 | 61 64 65 64 20 20 3a 20 |FNmenush|aded  : |
|000020c0| 52 65 74 75 72 6e 20 54 | 52 55 45 20 69 66 20 6d |Return T|RUE if m|
|000020d0| 65 6e 75 20 69 74 65 6d | 20 69 73 20 73 68 61 64 |enu item| is shad|
|000020e0| 65 64 0d 0a 00 19 f4 20 | 74 79 70 65 20 3d 20 30 |ed..... |type = 0|
|000020f0| 20 66 6f 72 20 75 6e 74 | 69 63 6b 0d 0a 0a 21 f4 | for unt|ick...!.|
|00002100| 20 74 79 70 65 20 3d 20 | 31 20 66 6f 72 20 74 69 | type = |1 for ti|
|00002110| 63 6b 20 28 61 6c 73 6f | 20 2d 31 29 0d 0a 14 19 |ck (also| -1)....|
|00002120| f4 20 74 79 70 65 20 3d | 20 32 20 66 6f 72 20 74 |. type =| 2 for t|
|00002130| 6f 67 67 6c 65 0d 0a 1e | 20 dd f2 6d 65 6e 75 75 |oggle...| ..menuu|
|00002140| 6e 74 69 63 6b 28 6d 65 | 6e 75 2c 73 74 61 72 74 |ntick(me|nu,start|
|00002150| 2c 65 6e 64 29 0d 0a 28 | 15 6d 65 6e 75 2b 3d 73 |,end)..(|.menu+=s|
|00002160| 74 61 72 74 2a 32 34 2b | 32 38 0d 0a 32 05 f5 0d |tart*24+|28..2...|
|00002170| 0a 3c 27 20 21 6d 65 6e | 75 3d 21 6d 65 6e 75 20 |.<' !men|u=!menu |
|00002180| 80 20 2d 32 3a 73 74 61 | 72 74 2b 3d 31 3a 6d 65 |. -2:sta|rt+=1:me|
|00002190| 6e 75 2b 3d 32 34 0d 0a | 46 34 fd 20 28 65 6e 64 |nu+=24..|F4. (end|
|000021a0| 3c 3e 2d 31 20 80 20 73 | 74 61 72 74 3e 65 6e 64 |<>-1 . s|tart>end|
|000021b0| 29 20 84 20 28 28 6d 65 | 6e 75 21 2d 32 34 29 20 |) . ((me|nu!-24) |
|000021c0| 80 20 26 38 30 29 3d 26 | 38 30 0d 0a 50 05 e1 0d |. &80)=&|80..P...|
|000021d0| 0a 5a 35 dd f2 6d 65 6e | 75 74 69 63 6b 28 6d 65 |.Z5..men|utick(me|
|000021e0| 6e 75 2c 6f 70 74 69 6f | 6e 2c 74 6f 67 67 6c 65 |nu,optio|n,toggle|
|000021f0| 29 3a 6d 65 6e 75 2b 3d | 6f 70 74 69 6f 6e 2a 32 |):menu+=|option*2|
|00002200| 34 2b 32 38 0d 0a 64 0f | c8 8e 20 74 6f 67 67 6c |4+28..d.|.. toggl|
|00002210| 65 20 ca 0d 0a 6e 19 20 | c9 20 30 3a 21 6d 65 6e |e ...n. |. 0:!men|
|00002220| 75 3d 21 6d 65 6e 75 20 | 80 20 2d 32 0d 0a 78 1b |u=!menu |. -2..x.|
|00002230| 20 c9 20 2d 31 2c 31 3a | 21 6d 65 6e 75 3d 21 6d | . -1,1:|!menu=!m|
|00002240| 65 6e 75 20 84 20 31 0d | 0a 82 18 20 c9 20 32 3a |enu . 1.|... . 2:|
|00002250| 21 6d 65 6e 75 3d 21 6d | 65 6e 75 20 82 20 31 0d |!menu=!m|enu . 1.|
|00002260| 0a 8c 05 cb 0d 0a 96 05 | e1 0d 0a a0 36 dd f2 6d |........|....6..m|
|00002270| 65 6e 75 73 68 61 64 65 | 28 6d 65 6e 75 2c 6f 70 |enushade|(menu,op|
|00002280| 74 69 6f 6e 2c 74 6f 67 | 67 6c 65 29 3a 6d 65 6e |tion,tog|gle):men|
|00002290| 75 2b 3d 6f 70 74 69 6f | 6e 2a 32 34 2b 33 36 0d |u+=optio|n*24+36.|
|000022a0| 0a aa 0f c8 8e 20 74 6f | 67 67 6c 65 20 ca 0d 0a |..... to|ggle ...|
|000022b0| b4 1f 20 c9 20 30 3a 21 | 6d 65 6e 75 3d 21 6d 65 |.. . 0:!|menu=!me|
|000022c0| 6e 75 20 80 20 ac 28 31 | 3c 3c 32 32 29 0d 0a be |nu . .(1|<<22)...|
|000022d0| 21 20 c9 20 2d 31 2c 31 | 3a 21 6d 65 6e 75 3d 21 |! . -1,1|:!menu=!|
|000022e0| 6d 65 6e 75 20 84 20 28 | 31 3c 3c 32 32 29 0d 0a |menu . (|1<<22)..|
|000022f0| c8 1e 20 c9 20 32 3a 21 | 6d 65 6e 75 3d 21 6d 65 |.. . 2:!|menu=!me|
|00002300| 6e 75 20 82 20 28 31 3c | 3c 32 32 29 0d 0a d2 05 |nu . (1<|<22)....|
|00002310| cb 0d 0a dc 05 e1 0d 0a | e6 1d dd a4 6d 65 6e 75 |........|....menu|
|00002320| 74 69 63 6b 65 64 28 6d | 65 6e 75 25 2c 69 74 65 |ticked(m|enu%,ite|
|00002330| 6d 25 29 0d 0a f0 22 3d | 28 28 6d 65 6e 75 25 21 |m%)..."=|((menu%!|
|00002340| 28 32 38 2b 32 34 2a 69 | 74 65 6d 25 29 29 20 80 |(28+24*i|tem%)) .|
|00002350| 20 31 29 3d 31 0d 0a fa | 1d dd a4 6d 65 6e 75 73 | 1)=1...|...menus|
|00002360| 68 61 64 65 64 28 6d 65 | 6e 75 25 2c 69 74 65 6d |haded(me|nu%,item|
|00002370| 25 29 0d 0b 04 22 3d 28 | 28 6d 65 6e 75 25 21 28 |%)..."=(|(menu%!(|
|00002380| 32 38 2b 32 34 2a 69 74 | 65 6d 25 29 29 20 80 20 |28+24*it|em%)) . |
|00002390| 34 29 3d 34 0d 0b 0e 05 | 3a 0d 0b 18 34 f4 20 50 |4)=4....|:...4. P|
|000023a0| 52 4f 43 73 65 74 6d 65 | 6e 75 74 65 78 74 20 3a |ROCsetme|nutext :|
|000023b0| 20 53 65 74 20 74 68 65 | 20 74 65 78 74 20 66 6f | Set the| text fo|
|000023c0| 72 20 6d 65 6e 75 20 6f | 70 74 69 6f 6e 0d 0b 22 |r menu o|ption.."|
|000023d0| 35 f4 20 46 4e 67 65 74 | 6d 65 6e 75 74 65 78 74 |5. FNget|menutext|
|000023e0| 20 20 20 3a 20 52 65 61 | 64 20 74 68 65 20 74 65 |   : Rea|d the te|
|000023f0| 78 74 20 66 6f 72 20 6d | 65 6e 75 20 6f 70 74 69 |xt for m|enu opti|
|00002400| 6f 6e 0d 0b 2c 37 dd f2 | 73 65 74 6d 65 6e 75 74 |on..,7..|setmenut|
|00002410| 65 78 74 28 6d 65 6e 75 | 2c 6f 70 74 69 6f 6e 2c |ext(menu|,option,|
|00002420| 74 65 78 74 24 29 3a 6d | 65 6e 75 2b 3d 6f 70 74 |text$):m|enu+=opt|
|00002430| 69 6f 6e 2a 32 34 2b 33 | 36 0d 0b 36 37 e7 20 28 |ion*24+3|6..67. (|
|00002440| 21 6d 65 6e 75 20 80 26 | 31 30 30 29 3e 30 20 8c |!menu .&|100)>0 .|
|00002450| 24 28 6d 65 6e 75 21 34 | 29 3d 74 65 78 74 24 20 |$(menu!4|)=text$ |
|00002460| 8b 24 28 6d 65 6e 75 2b | 34 29 3d 74 65 78 74 24 |.$(menu+|4)=text$|
|00002470| 0d 0b 40 05 e1 0d 0b 4a | 39 dd a4 67 65 74 6d 65 |..@....J|9..getme|
|00002480| 6e 75 74 65 78 74 28 6d | 65 6e 75 2c 6f 70 74 69 |nutext(m|enu,opti|
|00002490| 6f 6e 29 3a 6d 65 6e 75 | 2b 3d 6f 70 74 69 6f 6e |on):menu|+=option|
|000024a0| 2a 32 34 2b 33 36 3a ea | 20 74 65 78 74 24 0d 0b |*24+36:.| text$..|
|000024b0| 54 37 e7 20 28 21 6d 65 | 6e 75 20 80 26 31 30 30 |T7. (!me|nu .&100|
|000024c0| 29 3e 30 20 8c 74 65 78 | 74 24 3d 24 28 6d 65 6e |)>0 .tex|t$=$(men|
|000024d0| 75 21 34 29 20 8b 74 65 | 78 74 24 3d 24 28 6d 65 |u!4) .te|xt$=$(me|
|000024e0| 6e 75 2b 34 29 0d 0b 5e | 0a 3d 74 65 78 74 24 0d |nu+4)..^|.=text$.|
|000024f0| 0b 68 05 3a 0d 0b 72 34 | f4 20 46 4e 64 65 63 6f |.h.:..r4|. FNdeco|
|00002500| 64 65 6d 65 6e 75 20 3a | 20 52 65 74 75 72 6e 20 |demenu :| Return |
|00002510| 6d 65 6e 75 20 73 65 6c | 65 63 74 69 6f 6e 20 61 |menu sel|ection a|
|00002520| 73 20 73 74 72 69 6e 67 | 0d 0b 7c 2f f4 20 61 6c |s string|..|/. al|
|00002530| 73 6f 20 72 65 74 75 72 | 6e 73 20 66 6f 72 20 66 |so retur|ns for f|
|00002540| 6f 6e 74 20 69 66 20 6d | 65 6e 75 20 69 73 20 66 |ont if m|enu is f|
|00002550| 6f 6e 74 6d 65 6e 75 0d | 0b 86 37 dd a4 64 65 63 |ontmenu.|..7..dec|
|00002560| 6f 64 65 6d 65 6e 75 28 | 6d 65 6e 75 25 29 3a ea |odemenu(|menu%):.|
|00002570| 20 63 70 25 2c 70 74 72 | 2c 62 24 2c 63 24 3a 63 | cp%,ptr|,b$,c$:c|
|00002580| 70 25 3d 6d 65 6e 75 25 | 3a 70 74 72 3d 30 0d 0b |p%=menu%|:ptr=0..|
|00002590| 90 25 c8 95 20 28 62 25 | 21 70 74 72 3e 2d 31 20 |.%.. (b%|!ptr>-1 |
|000025a0| 80 20 63 70 25 3c 3e 72 | 6d 61 66 6f 6e 74 61 72 |. cp%<>r|mafontar|
|000025b0| 65 61 29 0d 0b 9a 24 20 | 63 70 25 3d 63 70 25 21 |ea)...$ |cp%=cp%!|
|000025c0| 28 33 32 2b 28 62 25 21 | 70 74 72 29 2a 32 34 29 |(32+(b%!|ptr)*24)|
|000025d0| 3a 70 74 72 2b 3d 34 0d | 0b a4 05 ce 0d 0b ae 23 |:ptr+=4.|.......#|
|000025e0| e7 20 63 70 25 3d 72 6d | 61 66 6f 6e 74 61 72 65 |. cp%=rm|afontare|
|000025f0| 61 20 80 20 62 25 21 70 | 74 72 3c 3e 30 20 8c 0d |a . b%!p|tr<>0 ..|
|00002600| 0b b8 41 20 c8 99 20 22 | 46 6f 6e 74 5f 44 65 63 |..A .. "|Font_Dec|
|00002610| 6f 64 65 4d 65 6e 75 22 | 2c 2c 72 6d 61 66 6f 6e |odeMenu"|,,rmafon|
|00002620| 74 61 72 65 61 2c 62 25 | 2b 70 74 72 2c c4 32 35 |tarea,b%|+ptr,.25|
|00002630| 35 2c bd 30 29 2c 32 35 | 35 20 b8 2c 2c 2c 6d 24 |5,.0),25|5 .,,,m$|
|00002640| 0d 0b c2 05 cc 0d 0b cc | 37 20 c8 99 20 22 57 69 |........|7 .. "Wi|
|00002650| 6d 70 5f 44 65 63 6f 64 | 65 4d 65 6e 75 22 2c 2c |mp_Decod|eMenu",,|
|00002660| 6d 65 6e 75 25 2c 62 25 | 2c c4 32 35 35 2c bd 30 |menu%,b%|,.255,.0|
|00002670| 29 2c 32 35 35 20 b8 2c | 2c 2c 6d 24 0d 0b d6 0a |),255 .,|,,m$....|
|00002680| 20 62 24 3d 22 22 0d 0b | e0 06 20 f5 0d 0b ea 2c | b$=""..|.. ....,|
|00002690| 20 20 63 24 3d c0 6d 24 | 2c a7 6d 24 2b 22 2e 22 |  c$=.m$|,.m$+"."|
|000026a0| 2c 22 2e 22 29 2d 31 29 | 3a 6d 24 3d c1 6d 24 2c |,".")-1)|:m$=.m$,|
|000026b0| a9 28 63 24 29 2b 32 29 | 0d 0b f4 1e 20 20 63 24 |.(c$)+2)|....  c$|
|000026c0| 3d c0 63 24 2c a7 63 24 | 2b 22 20 5e 22 2c 22 20 |=.c$,.c$|+" ^"," |
|000026d0| 5e 22 29 2d 31 29 0d 0b | fe 26 20 20 63 24 3d c0 |^")-1)..|.&  c$=.|
|000026e0| 63 24 2c a7 63 24 2b 22 | 20 22 2b bd 31 33 39 2c |c$,.c$+"| "+.139,|
|000026f0| 22 20 22 2b bd 31 33 39 | 29 2d 31 29 0d 0c 08 11 |" "+.139|)-1)....|
|00002700| 20 20 c8 8e 20 c2 63 24 | 2c 33 29 20 ca 0d 0c 12 |  .. .c$|,3) ....|
|00002710| 60 20 20 20 c9 20 22 45 | 73 63 22 2c 22 44 65 6c |`   . "E|sc","Del|
|00002720| 22 2c 22 49 6e 73 22 2c | 22 45 6e 64 22 2c 22 48 |","Ins",|"End","H|
|00002730| 6f 6d 22 2c 22 43 70 79 | 22 2c 22 46 31 30 22 2c |om","Cpy|","F10",|
|00002740| 22 46 31 32 22 2c 22 46 | 31 33 22 2c 22 50 72 74 |"F12","F|13","Prt|
|00002750| 22 2c 22 54 61 62 22 2c | 22 52 65 74 22 3a 63 24 |","Tab",|"Ret":c$|
|00002760| 3d c0 63 24 2c a9 28 63 | 24 29 2d 34 29 0d 0c 1c |=.c$,.(c|$)-4)...|
|00002770| 07 20 20 cb 0d 0c 26 44 | 20 20 e7 20 c1 63 24 2c |.  ...&D|  . .c$,|
|00002780| a9 28 63 24 29 2d 32 2c | 32 29 3d 22 20 46 22 20 |.(c$)-2,|2)=" F" |
|00002790| 8c e7 c2 63 24 29 3d 22 | 30 22 20 84 20 bb 28 c2 |...c$)="|0" . .(.|
|000027a0| 63 24 29 29 3c 3e 30 20 | 8c 63 24 3d c0 63 24 2c |c$))<>0 |.c$=.c$,|
|000027b0| a9 28 63 24 29 2d 33 29 | 0d 0c 30 1b 20 20 c8 95 |.(c$)-3)|..0.  ..|
|000027c0| 20 c2 63 24 29 3d 22 20 | 22 3a 63 24 3d c0 63 24 | .c$)=" |":c$=.c$|
|000027d0| 29 3a ce 0d 0c 3a 10 20 | 20 62 24 2b 3d 63 24 2b |):...:. | b$+=c$+|
|000027e0| 22 2e 22 0d 0c 44 0b 20 | fd 6d 24 3d 22 22 0d 0c |"."..D. |.m$=""..|
|000027f0| 4e 05 cd 0d 0c 58 09 3d | c0 62 24 29 0d 0c 62 05 |N....X.=|.b$)..b.|
|00002800| 3a 0d 0c 6c 3f f4 20 46 | 4e 67 65 74 66 6f 6e 74 |:..l?. F|Ngetfont|
|00002810| 6d 65 6e 75 20 20 20 20 | 20 20 20 3a 20 52 65 74 |menu    |   : Ret|
|00002820| 75 72 6e 20 6d 65 6d 6f | 72 79 20 6c 6f 63 61 74 |urn memo|ry locat|
|00002830| 69 6f 6e 20 6f 66 20 66 | 6f 6e 74 20 6d 65 6e 75 |ion of f|ont menu|
|00002840| 0d 0c 76 3b f4 20 50 52 | 4f 43 72 65 6c 65 61 73 |..v;. PR|OCreleas|
|00002850| 65 66 6f 6e 74 6d 65 6e | 75 20 3a 20 52 65 6c 65 |efontmen|u : Rele|
|00002860| 61 73 65 20 6d 65 6d 6f | 72 79 20 75 73 65 64 20 |ase memo|ry used |
|00002870| 62 79 20 66 6f 6e 74 6d | 65 6e 75 0d 0c 80 24 dd |by fontm|enu...$.|
|00002880| a4 67 65 74 66 6f 6e 74 | 6d 65 6e 75 28 66 6f 6e |.getfont|menu(fon|
|00002890| 74 24 29 3a ea 20 73 70 | 61 63 65 2c 69 6e 64 0d |t$):. sp|ace,ind.|
|000028a0| 0c 8a 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|000028b0| 5f 4f 6e 22 0d 0c 94 34 | c8 99 20 22 46 6f 6e 74 |_On"...4|.. "Font|
|000028c0| 5f 4c 69 73 74 46 6f 6e | 74 73 22 2c 2c 2c 37 3c |_ListFon|ts",,,7<|
|000028d0| 3c 31 39 2c 2c 2c 2c 31 | 20 b8 20 2c 2c 2c 73 70 |<19,,,,1| . ,,,sp|
|000028e0| 61 63 65 2c 2c 69 6e 64 | 0d 0c 9e 37 f2 72 65 6c |ace,,ind|...7.rel|
|000028f0| 65 61 73 65 28 72 6d 61 | 66 6f 6e 74 61 72 65 61 |ease(rma|fontarea|
|00002900| 29 3a 72 6d 61 66 6f 6e | 74 61 72 65 61 3d a4 63 |):rmafon|tarea=.c|
|00002910| 6c 61 69 6d 28 73 70 61 | 63 65 2b 69 6e 64 29 0d |laim(spa|ce+ind).|
|00002920| 0c a8 2b e7 20 72 6d 61 | 66 6f 6e 74 61 72 65 61 |..+. rma|fontarea|
|00002930| 3c 30 20 8c c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |<0 ... "|Hourglas|
|00002940| 73 5f 4f 66 66 22 3a 3d | 2d 31 0d 0c b2 11 e7 20 |s_Off":=|-1..... |
|00002950| 66 6f 6e 74 24 3c 3e 22 | 22 20 8c 0d 0c bc 4d 20 |font$<>"|" ....M |
|00002960| c8 99 20 22 46 6f 6e 74 | 5f 4c 69 73 74 46 6f 6e |.. "Font|_ListFon|
|00002970| 74 73 22 2c 2c 72 6d 61 | 66 6f 6e 74 61 72 65 61 |ts",,rma|fontarea|
|00002980| 2c 37 3c 3c 31 39 2c 73 | 70 61 63 65 2c 72 6d 61 |,7<<19,s|pace,rma|
|00002990| 66 6f 6e 74 61 72 65 61 | 2b 73 70 61 63 65 2c 69 |fontarea|+space,i|
|000029a0| 6e 64 2c 66 6f 6e 74 24 | 0d 0c c6 05 cc 0d 0c d0 |nd,font$|........|
|000029b0| 49 20 c8 99 20 22 46 6f | 6e 74 5f 4c 69 73 74 46 |I .. "Fo|nt_ListF|
|000029c0| 6f 6e 74 73 22 2c 2c 72 | 6d 61 66 6f 6e 74 61 72 |onts",,r|mafontar|
|000029d0| 65 61 2c 37 3c 3c 31 39 | 2c 73 70 61 63 65 2c 72 |ea,7<<19|,space,r|
|000029e0| 6d 61 66 6f 6e 74 61 72 | 65 61 2b 73 70 61 63 65 |mafontar|ea+space|
|000029f0| 2c 69 6e 64 2c 31 0d 0c | da 05 cd 0d 0c e4 16 c8 |,ind,1..|........|
|00002a00| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|00002a10| 22 0d 0c ee 10 3d 72 6d | 61 66 6f 6e 74 61 72 65 |"....=rm|afontare|
|00002a20| 61 0d 0c f8 2d dd f2 72 | 65 6c 65 61 73 65 66 6f |a...-..r|eleasefo|
|00002a30| 6e 74 6d 65 6e 75 3a f2 | 72 65 6c 65 61 73 65 28 |ntmenu:.|release(|
|00002a40| 72 6d 61 66 6f 6e 74 61 | 72 65 61 29 3a e1 0d 0d |rmafonta|rea):...|
|00002a50| 02 05 3a 0d 0d 0c 30 f4 | 20 46 4e 63 72 65 61 74 |..:...0.| FNcreat|
|00002a60| 65 66 74 6d 65 6e 75 20 | 20 20 20 3a 20 43 72 65 |eftmenu |   : Cre|
|00002a70| 61 74 65 20 61 20 66 69 | 6c 65 74 79 70 65 20 6d |ate a fi|letype m|
|00002a80| 65 6e 75 0d 0d 16 37 f4 | 20 50 52 4f 43 72 65 6c |enu...7.| PROCrel|
|00002a90| 65 61 73 65 66 74 6d 65 | 6e 75 20 3a 20 52 65 6c |easeftme|nu : Rel|
|00002aa0| 65 61 73 65 20 73 70 61 | 63 65 20 75 73 65 64 20 |ease spa|ce used |
|00002ab0| 62 79 20 46 54 20 6d 65 | 6e 75 0d 0d 20 12 dd a4 |by FT me|nu.. ...|
|00002ac0| 63 72 65 61 74 65 66 74 | 6d 65 6e 75 0d 0d 2a 2d |createft|menu..*-|
|00002ad0| ea 20 6c 65 6e 2c 6e 61 | 6d 65 2c 74 79 70 65 2c |. len,na|me,type,|
|00002ae0| 66 6c 61 67 73 2c 6d 6c | 65 6e 2c 69 6c 65 6e 2c |flags,ml|en,ilen,|
|00002af0| 6e 24 2c 76 24 2c 6d 73 | 74 0d 0d 34 51 c8 99 20 |n$,v$,ms|t..4Q.. |
|00002b00| 22 58 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 22 |"XOS_Rea|dVarVal"|
|00002b10| 2c 22 46 69 6c 65 24 54 | 79 70 65 5f 2a 22 2c 6d |,"File$T|ype_*",m|
|00002b20| 65 73 73 61 67 65 5f 62 | 75 66 66 65 72 25 2c 32 |essage_b|uffer%,2|
|00002b30| 35 36 20 b8 20 2c 2c 6c | 65 6e 2c 6e 61 6d 65 2c |56 . ,,l|en,name,|
|00002b40| 74 79 70 65 3b 66 6c 61 | 67 73 0d 0d 3e 15 6d 6c |type;fla|gs..>.ml|
|00002b50| 65 6e 3d 32 38 2b 32 34 | 3a 69 6c 65 6e 3d 39 0d |en=28+24|:ilen=9.|
|00002b60| 0d 48 14 c8 95 20 28 66 | 6c 61 67 73 20 80 31 29 |.H... (f|lags .1)|
|00002b70| 3c 3e 31 0d 0d 52 0f 20 | e7 20 74 79 70 65 3d 30 |<>1..R. |. type=0|
|00002b80| 20 8c 0d 0d 5c 24 20 20 | 6d 6c 65 6e 2b 3d 32 34 | ...\$  |mlen+=24|
|00002b90| 3a 6e 24 3d c2 a4 73 74 | 72 69 6e 67 30 28 6e 61 |:n$=..st|ring0(na|
|00002ba0| 6d 65 29 2c 33 29 0d 0d | 66 2d 20 20 c8 99 20 22 |me),3)..|f-  .. "|
|00002bb0| 58 57 69 6d 70 5f 53 70 | 72 69 74 65 4f 70 22 2c |XWimp_Sp|riteOp",|
|00002bc0| 32 34 2c 2c 22 53 6d 61 | 6c 6c 5f 22 2b 6e 24 20 |24,,"Sma|ll_"+n$ |
|00002bd0| b8 3b 66 0d 0d 70 11 20 | 20 e7 20 28 66 20 80 31 |.;f..p. | . (f .1|
|00002be0| 29 3d 31 8c 0d 0d 7a 2d | 20 20 20 c8 99 20 22 58 |)=1...z-|   .. "X|
|00002bf0| 57 69 6d 70 5f 53 70 72 | 69 74 65 4f 70 22 2c 32 |Wimp_Spr|iteOp",2|
|00002c00| 34 2c 2c 22 46 69 6c 65 | 5f 22 2b 6e 24 20 b8 3b |4,,"File|_"+n$ .;|
|00002c10| 66 0d 0d 84 2c 20 20 20 | e7 20 28 66 20 80 31 29 |f...,   |. (f .1)|
|00002c20| 3d 30 8c 69 6c 65 6e 2b | 3d 31 31 2b 6c 65 6e 20 |=0.ilen+|=11+len |
|00002c30| 8b 69 6c 65 6e 2b 3d 6c | 65 6e 2b 31 31 0d 0d 8e |.ilen+=l|en+11...|
|00002c40| 07 20 20 cc 0d 0d 98 13 | 20 20 20 69 6c 65 6e 2b |.  .....|   ilen+|
|00002c50| 3d 31 32 2b 6c 65 6e 0d | 0d a2 07 20 20 cd 0d 0d |=12+len.|...  ...|
|00002c60| ac 06 20 cd 0d 0d b6 57 | 20 c8 99 20 22 58 4f 53 |.. ....W| .. "XOS|
|00002c70| 5f 52 65 61 64 56 61 72 | 56 61 6c 22 2c 22 46 69 |_ReadVar|Val","Fi|
|00002c80| 6c 65 24 54 79 70 65 5f | 2a 22 2c 6d 65 73 73 61 |le$Type_|*",messa|
|00002c90| 67 65 5f 62 75 66 66 65 | 72 25 2c 32 35 36 2c 6e |ge_buffe|r%,256,n|
|00002ca0| 61 6d 65 20 b8 20 2c 2c | 6c 65 6e 2c 6e 61 6d 65 |ame . ,,|len,name|
|00002cb0| 2c 74 79 70 65 3b 66 6c | 61 67 73 0d 0d c0 05 ce |,type;fl|ags.....|
|00002cc0| 0d 0d ca 1b 66 74 62 6c | 6b 3d a4 63 6c 61 69 6d |....ftbl|k=.claim|
|00002cd0| 28 6d 6c 65 6e 2b 69 6c | 65 6e 29 0d 0d d4 10 e7 |(mlen+il|en).....|
|00002ce0| 20 66 74 62 6c 6b 3d 2d | 31 20 8c 0d 0d de 1a 20 | ftblk=-|1 ..... |
|00002cf0| 66 74 62 6c 6b 3d a4 63 | 6c 61 69 6d 28 32 38 2b |ftblk=.c|laim(28+|
|00002d00| 32 34 2b 39 29 0d 0d e8 | 28 20 24 66 74 62 6c 6b |24+9)...|( $ftblk|
|00002d10| 3d 22 46 69 6c 65 20 74 | 79 70 65 73 22 3a 66 74 |="File t|ypes":ft|
|00002d20| 62 6c 6b 21 31 32 3d 26 | 37 30 32 30 37 0d 0d f2 |blk!12=&|70207...|
|00002d30| 2b 20 66 74 62 6c 6b 21 | 31 36 3d 31 36 2a 31 32 |+ ftblk!|16=16*12|
|00002d40| 3a 66 74 62 6c 6b 21 32 | 30 3d 26 32 38 3a 66 74 |:ftblk!2|0=&28:ft|
|00002d50| 62 6c 6b 21 32 34 3d 30 | 0d 0d fc 2f 20 66 74 62 |blk!24=0|.../ ftb|
|00002d60| 6c 6b 21 32 38 3d 26 38 | 30 3a 66 74 62 6c 6b 21 |lk!28=&8|0:ftblk!|
|00002d70| 33 32 3d 2d 31 3a 66 74 | 62 6c 6b 21 33 36 3d 26 |32=-1:ft|blk!36=&|
|00002d80| 37 30 30 30 31 32 31 0d | 0e 06 2f 20 66 74 62 6c |7000121.|../ ftbl|
|00002d90| 6b 21 34 30 3d 66 74 62 | 6c 6b 2b 32 38 2b 32 34 |k!40=ftb|lk+28+24|
|00002da0| 3a 66 74 62 6c 6b 21 34 | 34 3d 30 3a 66 74 62 6c |:ftblk!4|4=0:ftbl|
|00002db0| 6b 21 34 38 3d 39 0d 0e | 10 16 20 24 28 66 74 62 |k!48=9..|.. $(ftb|
|00002dc0| 6c 6b 2b 32 38 2b 32 34 | 29 3d 22 22 0d 0e 1a 05 |lk+28+24|)=""....|
|00002dd0| cc 0d 0e 24 28 20 24 66 | 74 62 6c 6b 3d 22 46 69 |...$( $f|tblk="Fi|
|00002de0| 6c 65 20 74 79 70 65 73 | 22 3a 66 74 62 6c 6b 21 |le types|":ftblk!|
|00002df0| 31 32 3d 26 37 30 32 30 | 37 0d 0e 2e 2b 20 66 74 |12=&7020|7...+ ft|
|00002e00| 62 6c 6b 21 31 36 3d 31 | 36 2a 31 32 3a 66 74 62 |blk!16=1|6*12:ftb|
|00002e10| 6c 6b 21 32 30 3d 26 32 | 38 3a 66 74 62 6c 6b 21 |lk!20=&2|8:ftblk!|
|00002e20| 32 34 3d 30 0d 0e 38 2a | 20 69 6c 65 6e 3d 6d 6c |24=0..8*| ilen=ml|
|00002e30| 65 6e 2b 66 74 62 6c 6b | 3a 6d 6c 65 6e 3d 69 6c |en+ftblk|:mlen=il|
|00002e40| 65 6e 2d 32 34 3a 6d 73 | 74 3d 6d 6c 65 6e 0d 0e |en-24:ms|t=mlen..|
|00002e50| 42 54 20 c8 99 20 22 58 | 4f 53 5f 52 65 61 64 56 |BT .. "X|OS_ReadV|
|00002e60| 61 72 56 61 6c 22 2c 22 | 46 69 6c 65 24 54 79 70 |arVal","|File$Typ|
|00002e70| 65 5f 2a 22 2c 6d 65 73 | 73 61 67 65 5f 62 75 66 |e_*",mes|sage_buf|
|00002e80| 66 65 72 25 2c 32 35 36 | 2c 30 20 b8 20 2c 2c 6c |fer%,256|,0 . ,,l|
|00002e90| 65 6e 2c 6e 61 6d 65 2c | 74 79 70 65 3b 66 6c 61 |en,name,|type;fla|
|00002ea0| 67 73 0d 0e 4c 15 20 c8 | 95 20 28 66 6c 61 67 73 |gs..L. .|. (flags|
|00002eb0| 20 80 31 29 3c 3e 31 0d | 0e 56 10 20 20 e7 20 74 | .1)<>1.|.V.  . t|
|00002ec0| 79 70 65 3d 30 20 8c 0d | 0e 60 4f 20 20 20 6d 65 |ype=0 ..|.`O   me|
|00002ed0| 73 73 61 67 65 5f 62 75 | 66 66 65 72 25 21 6c 65 |ssage_bu|ffer%!le|
|00002ee0| 6e 3d 30 3a 6e 24 3d c2 | a4 73 74 72 69 6e 67 30 |n=0:n$=.|.string0|
|00002ef0| 28 6e 61 6d 65 29 2c 33 | 29 3a 76 24 3d a4 73 74 |(name),3|):v$=.st|
|00002f00| 72 69 6e 67 30 28 6d 65 | 73 73 61 67 65 5f 62 75 |ring0(me|ssage_bu|
|00002f10| 66 66 65 72 25 29 0d 0e | 6a 19 20 20 20 6d 6c 65 |ffer%)..|j.   mle|
|00002f20| 6e 21 30 3d 30 3a 6d 6c | 65 6e 21 34 3d 2d 31 0d |n!0=0:ml|en!4=-1.|
|00002f30| 0e 74 2e 20 20 20 c8 99 | 20 22 58 57 69 6d 70 5f |.t.   ..| "XWimp_|
|00002f40| 53 70 72 69 74 65 4f 70 | 22 2c 32 34 2c 2c 22 53 |SpriteOp|",24,,"S|
|00002f50| 6d 61 6c 6c 5f 22 2b 6e | 24 20 b8 3b 66 0d 0e 7e |mall_"+n|$ .;f..~|
|00002f60| 12 20 20 20 e7 20 28 66 | 20 80 31 29 3d 31 8c 0d |.   . (f| .1)=1..|
|00002f70| 0e 88 2e 20 20 20 20 c8 | 99 20 22 58 57 69 6d 70 |...    .|. "XWimp|
|00002f80| 5f 53 70 72 69 74 65 4f | 70 22 2c 32 34 2c 2c 22 |_SpriteO|p",24,,"|
|00002f90| 46 69 6c 65 5f 22 2b 6e | 24 20 b8 3b 66 0d 0e 92 |File_"+n|$ .;f...|
|00002fa0| 2f 20 20 20 20 e7 20 28 | 66 20 80 31 29 3d 30 8c |/    . (|f .1)=0.|
|00002fb0| 6e 24 3d 22 46 69 6c 65 | 5f 22 2b 6e 24 20 8b 6e |n$="File|_"+n$ .n|
|00002fc0| 24 3d 22 46 69 6c 65 5f | 78 78 78 22 0d 0e 9c 17 |$="File_|xxx"....|
|00002fd0| 20 20 20 20 6d 6c 65 6e | 21 38 3d 26 37 30 30 30 |    mlen|!8=&7000|
|00002fe0| 39 33 33 0d 0e a6 08 20 | 20 20 cc 0d 0e b0 26 20 |933.... |  ....& |
|00002ff0| 20 20 20 6e 24 3d 22 53 | 6d 61 6c 6c 5f 22 2b 6e |   n$="S|mall_"+n|
|00003000| 24 3a 6d 6c 65 6e 21 38 | 3d 26 37 30 30 30 31 33 |$:mlen!8|=&700013|
|00003010| 33 0d 0e ba 08 20 20 20 | cd 0d 0e c4 2a 20 20 20 |3....   |....*   |
|00003020| 6d 6c 65 6e 21 31 32 3d | 69 6c 65 6e 3a 24 69 6c |mlen!12=|ilen:$il|
|00003030| 65 6e 3d 76 24 3a 69 6c | 65 6e 2b 3d a9 28 76 24 |en=v$:il|en+=.(v$|
|00003040| 29 2b 31 0d 0e ce 2e 20 | 20 20 6d 6c 65 6e 21 31 |)+1.... |  mlen!1|
|00003050| 36 3d 69 6c 65 6e 3a 24 | 69 6c 65 6e 3d 22 73 22 |6=ilen:$|ilen="s"|
|00003060| 2b 6e 24 3a 69 6c 65 6e | 2b 3d a9 28 6e 24 29 2b |+n$:ilen|+=.(n$)+|
|00003070| 32 0d 0e d8 1f 20 20 20 | 6d 6c 65 6e 21 32 30 3d |2....   |mlen!20=|
|00003080| a9 28 76 24 29 2b 31 3a | 6d 6c 65 6e 2d 3d 32 34 |.(v$)+1:|mlen-=24|
|00003090| 0d 0e e2 07 20 20 cd 0d | 0e ec 58 20 20 c8 99 20 |....  ..|..X  .. |
|000030a0| 22 58 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 22 |"XOS_Rea|dVarVal"|
|000030b0| 2c 22 46 69 6c 65 24 54 | 79 70 65 5f 2a 22 2c 6d |,"File$T|ype_*",m|
|000030c0| 65 73 73 61 67 65 5f 62 | 75 66 66 65 72 25 2c 32 |essage_b|uffer%,2|
|000030d0| 35 36 2c 6e 61 6d 65 20 | b8 20 2c 2c 6c 65 6e 2c |56,name |. ,,len,|
|000030e0| 6e 61 6d 65 2c 74 79 70 | 65 3b 66 6c 61 67 73 0d |name,typ|e;flags.|
|000030f0| 0e f6 06 20 ce 0d 0f 00 | 34 20 6d 6c 65 6e 21 30 |... ....|4 mlen!0|
|00003100| 3d 34 3a 6d 6c 65 6e 21 | 34 3d 2d 31 3a 6d 6c 65 |=4:mlen!|4=-1:mle|
|00003110| 6e 21 38 3d 26 37 30 30 | 30 31 32 31 3a 6d 6c 65 |n!8=&700|0121:mle|
|00003120| 6e 21 31 32 3d 69 6c 65 | 6e 0d 0f 0a 3c 20 24 69 |n!12=ile|n...< $i|
|00003130| 6c 65 6e 3d 22 22 3a 69 | 6c 65 6e 2b 3d 39 3a 6d |len="":i|len+=9:m|
|00003140| 6c 65 6e 21 31 36 3d 2d | 31 3a 6d 6c 65 6e 21 32 |len!16=-|1:mlen!2|
|00003150| 30 3d 39 3a 6d 6c 65 6e | 2d 3d 32 34 3a 21 6d 73 |0=9:mlen|-=24:!ms|
|00003160| 74 3d 26 38 30 0d 0f 14 | 05 cd 0d 0f 1e 0a 3d 66 |t=&80...|......=f|
|00003170| 74 62 6c 6b 0d 0f 28 25 | dd f2 72 65 6c 65 61 73 |tblk..(%|..releas|
|00003180| 65 66 74 6d 65 6e 75 3a | f2 72 65 6c 65 61 73 65 |eftmenu:|.release|
|00003190| 28 66 74 62 6c 6b 29 3a | e1 0d 0f 32 05 3a 0d 0f |(ftblk):|...2.:..|
|000031a0| 3c 37 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 20 57 69 6e |<7. ****|**** Win|
|000031b0| 64 6f 77 20 6d 61 6e 69 | 70 75 6c 61 74 69 6f 6e |dow mani|pulation|
|000031c0| 20 72 6f 75 74 69 6e 65 | 73 20 2a 2a 2a 2a 2a 2a | routine|s ******|
|000031d0| 2a 2a 2a 2a 2a 0d 0f 46 | 05 3a 0d 0f 50 28 f4 20 |*****..F|.:..P(. |
|000031e0| 50 52 4f 43 63 6c 6f 73 | 65 77 69 6e 20 20 20 20 |PROCclos|ewin    |
|000031f0| 20 20 3a 20 43 6c 6f 73 | 65 20 61 20 77 69 6e 64 |  : Clos|e a wind|
|00003200| 6f 77 0d 0f 5a 37 f4 20 | 50 52 4f 43 6f 70 65 6e |ow..Z7. |PROCopen|
|00003210| 77 69 6e 20 20 20 20 20 | 20 20 3a 20 4f 70 65 6e |win     |  : Open|
|00003220| 20 61 20 77 69 6e 64 6f | 77 20 61 74 20 74 6f 70 | a windo|w at top|
|00003230| 20 6f 66 20 73 74 61 63 | 6b 0d 0f 64 3e f4 20 50 | of stac|k..d>. P|
|00003240| 52 4f 43 6f 70 65 6e 77 | 69 6e 61 74 20 20 20 20 |ROCopenw|inat    |
|00003250| 20 3a 20 4f 70 65 6e 20 | 61 20 77 69 6e 64 6f 77 | : Open |a window|
|00003260| 20 61 74 20 74 6f 70 2d | 6c 65 66 74 20 63 6f 72 | at top-|left cor|
|00003270| 6e 65 72 20 78 2c 79 0d | 0f 6e 39 f4 20 50 52 4f |ner x,y.|.n9. PRO|
|00003280| 43 6f 70 65 6e 77 69 6e | 63 65 6e 74 72 65 20 3a |Copenwin|centre :|
|00003290| 20 4f 70 65 6e 20 77 69 | 6e 64 6f 77 20 69 6e 20 | Open wi|ndow in |
|000032a0| 63 65 6e 74 72 65 20 6f | 66 20 73 63 72 65 65 6e |centre o|f screen|
|000032b0| 0d 0f 78 3c f4 20 50 52 | 4f 43 6f 70 65 6e 77 69 |..x<. PR|OCopenwi|
|000032c0| 6e 74 6f 20 20 20 20 20 | 3a 20 4f 70 65 6e 20 77 |nto     |: Open w|
|000032d0| 69 6e 64 6f 77 20 61 74 | 20 70 6f 73 69 74 69 6f |indow at| positio|
|000032e0| 6e 20 77 69 74 68 69 6e | 20 54 57 41 0d 0f 82 14 |n within| TWA....|
|000032f0| dd f2 63 6c 6f 73 65 77 | 69 6e 28 77 69 6e 25 29 |..closew|in(win%)|
|00003300| 0d 0f 8c 26 21 62 25 3d | 77 69 6e 25 3a c8 99 20 |...&!b%=|win%:.. |
|00003310| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00003320| 77 22 2c 2c 62 25 0d 0f | 96 05 e1 0d 0f a0 13 dd |w",,b%..|........|
|00003330| f2 6f 70 65 6e 77 69 6e | 28 77 69 6e 25 29 0d 0f |.openwin|(win%)..|
|00003340| aa 29 21 62 25 3d 77 69 | 6e 25 3a c8 99 20 22 57 |.)!b%=wi|n%:.. "W|
|00003350| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00003360| 74 65 22 2c 2c 62 25 0d | 0f b4 25 62 25 21 32 38 |te",,b%.|..%b%!28|
|00003370| 3d 2d 31 3a c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |=-1:.. "|Wimp_Ope|
|00003380| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 25 0d 0f be 05 |nWindow"|,,b%....|
|00003390| e1 0d 0f c8 28 dd f2 6f | 70 65 6e 77 69 6e 61 74 |....(..o|penwinat|
|000033a0| 28 77 69 6e 25 2c 78 2c | 79 29 3a ea 20 77 69 64 |(win%,x,|y):. wid|
|000033b0| 74 68 2c 68 65 69 67 68 | 74 0d 0f d2 29 21 62 25 |th,heigh|t...)!b%|
|000033c0| 3d 77 69 6e 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |=win%:..| "Wimp_G|
|000033d0| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|000033e0| 62 25 0d 0f dc 26 77 69 | 64 74 68 3d 62 25 21 34 |b%...&wi|dth=b%!4|
|000033f0| 2d 62 25 21 31 32 3a 68 | 65 69 67 68 74 3d 62 25 |-b%!12:h|eight=b%|
|00003400| 21 31 36 2d 62 25 21 38 | 0d 0f e6 2e 62 25 21 34 |!16-b%!8|....b%!4|
|00003410| 3d 78 3a 62 25 21 38 3d | 79 2d 68 65 69 67 68 74 |=x:b%!8=|y-height|
|00003420| 3a 62 25 21 31 32 3d 78 | 2d 77 69 64 74 68 3a 62 |:b%!12=x|-width:b|
|00003430| 25 21 31 36 3d 79 0d 0f | f0 25 62 25 21 32 38 3d |%!16=y..|.%b%!28=|
|00003440| 2d 31 3a c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |-1:.. "W|imp_Open|
|00003450| 57 69 6e 64 6f 77 22 2c | 2c 62 25 0d 0f fa 05 e1 |Window",|,b%.....|
|00003460| 0d 10 04 32 dd f2 6f 70 | 65 6e 77 69 6e 63 65 6e |...2..op|enwincen|
|00003470| 74 72 65 28 77 69 6e 25 | 29 3a ea 20 77 69 64 74 |tre(win%|):. widt|
|00003480| 68 2c 68 65 69 67 68 74 | 2c 74 6f 70 2c 72 69 67 |h,height|,top,rig|
|00003490| 68 74 0d 10 0e 2a 21 62 | 25 3d 34 3a 62 25 21 34 |ht...*!b|%=4:b%!4|
|000034a0| 3d 35 3a 62 25 21 38 3d | 31 31 3a 62 25 21 31 32 |=5:b%!8=|11:b%!12|
|000034b0| 3d 31 32 3a 62 25 21 31 | 36 3d 2d 31 0d 10 18 25 |=12:b%!1|6=-1...%|
|000034c0| c8 99 20 22 4f 53 5f 52 | 65 61 64 56 64 75 56 61 |.. "OS_R|eadVduVa|
|000034d0| 72 69 61 62 6c 65 73 22 | 2c 62 25 2c 62 25 2b 32 |riables"|,b%,b%+2|
|000034e0| 30 0d 10 22 2b 72 69 67 | 68 74 3d 62 25 21 32 38 |0.."+rig|ht=b%!28|
|000034f0| 2b 31 3c 3c 62 25 21 32 | 30 3a 74 6f 70 3d 62 25 |+1<<b%!2|0:top=b%|
|00003500| 21 33 32 2b 31 3c 3c 62 | 25 21 32 34 0d 10 2c 29 |!32+1<<b|%!24..,)|
|00003510| 21 62 25 3d 77 69 6e 25 | 3a c8 99 20 22 57 69 6d |!b%=win%|:.. "Wim|
|00003520| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00003530| 22 2c 2c 62 25 0d 10 36 | 26 77 69 64 74 68 3d 62 |",,b%..6|&width=b|
|00003540| 25 21 34 2d 62 25 21 31 | 32 3a 68 65 69 67 68 74 |%!4-b%!1|2:height|
|00003550| 3d 62 25 21 31 36 2d 62 | 25 21 38 0d 10 40 33 78 |=b%!16-b|%!8..@3x|
|00003560| 3d 28 72 69 67 68 74 2d | 77 69 64 74 68 29 2f 32 |=(right-|width)/2|
|00003570| 2b 77 69 64 74 68 3a 79 | 3d 28 74 6f 70 2d 68 65 |+width:y|=(top-he|
|00003580| 69 67 68 74 29 2f 32 2b | 68 65 69 67 68 74 0d 10 |ight)/2+|height..|
|00003590| 4a 2e 62 25 21 34 3d 78 | 3a 62 25 21 38 3d 79 2d |J.b%!4=x|:b%!8=y-|
|000035a0| 68 65 69 67 68 74 3a 62 | 25 21 31 32 3d 78 2d 77 |height:b|%!12=x-w|
|000035b0| 69 64 74 68 3a 62 25 21 | 31 36 3d 79 0d 10 54 25 |idth:b%!|16=y..T%|
|000035c0| 62 25 21 32 38 3d 2d 31 | 3a c8 99 20 22 57 69 6d |b%!28=-1|:.. "Wim|
|000035d0| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|000035e0| 25 0d 10 5e 05 e1 0d 10 | 68 2f f4 20 6c 3d 6c 65 |%..^....|h/. l=le|
|000035f0| 66 74 20 6f 66 20 56 57 | 41 20 69 6e 20 54 57 41 |ft of VW|A in TWA|
|00003600| 2c 20 74 3d 74 6f 70 20 | 6f 66 20 56 57 41 20 69 |, t=top |of VWA i|
|00003610| 6e 20 54 57 41 0d 10 72 | 33 f4 20 72 3d 72 69 67 |n TWA..r|3. r=rig|
|00003620| 68 74 20 6f 66 20 56 57 | 41 20 69 6e 20 54 57 41 |ht of VW|A in TWA|
|00003630| 2c 20 62 3d 62 6f 74 74 | 6f 6d 20 6f 66 20 56 57 |, b=bott|om of VW|
|00003640| 41 20 69 6e 20 54 57 41 | 0d 10 7c 41 f4 20 57 69 |A in TWA|..|A. Wi|
|00003650| 6e 64 6f 77 20 64 6f 65 | 73 20 6e 6f 74 20 6d 6f |ndow doe|s not mo|
|00003660| 76 65 2c 20 62 75 74 20 | 69 74 73 20 73 69 7a 65 |ve, but |its size|
|00003670| 20 69 73 20 61 6c 74 65 | 72 65 64 20 74 6f 20 64 | is alte|red to d|
|00003680| 69 66 66 65 72 65 6e 63 | 65 0d 10 86 3f f4 20 62 |ifferenc|e...?. b|
|00003690| 65 74 77 65 65 6e 20 6c | 26 77 20 61 6e 64 20 74 |etween l|&w and t|
|000036a0| 26 68 2e 20 54 6f 70 20 | 6c 65 66 74 20 6f 66 20 |&h. Top |left of |
|000036b0| 56 57 41 20 69 73 20 70 | 6f 73 69 74 69 6f 6e 65 |VWA is p|ositione|
|000036c0| 64 20 74 6f 20 74 6c 2e | 0d 10 90 3b f4 20 49 66 |d to tl.|...;. If|
|000036d0| 20 72 62 20 3d 20 2d 31 | 20 74 68 65 6e 20 6e 6f | rb = -1| then no|
|000036e0| 20 61 63 74 75 61 6c 20 | 73 69 7a 65 20 63 68 61 | actual |size cha|
|000036f0| 6e 67 65 2c 20 6a 75 73 | 74 20 70 6f 73 69 74 69 |nge, jus|t positi|
|00003700| 6f 6e 2e 0d 10 9a 1d dd | f2 6f 70 65 6e 77 69 6e |on......|.openwin|
|00003710| 74 6f 28 77 69 6e 25 2c | 6c 2c 74 2c 72 2c 62 29 |to(win%,|l,t,r,b)|
|00003720| 0d 10 a4 29 21 62 25 3d | 77 69 6e 25 3a c8 99 20 |...)!b%=|win%:.. |
|00003730| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00003740| 74 61 74 65 22 2c 2c 62 | 25 0d 10 ae 13 e7 20 6c |tate",,b|%..... l|
|00003750| 3d 2d 31 20 8c 6c 3d 62 | 25 21 32 30 0d 10 b8 13 |=-1 .l=b|%!20....|
|00003760| e7 20 74 3d 2d 31 20 8c | 62 3d 62 25 21 32 34 0d |. t=-1 .|b=b%!24.|
|00003770| 10 c2 18 e7 20 72 3d 2d | 31 20 8c 72 3d 62 25 21 |.... r=-|1 .r=b%!|
|00003780| 31 32 2d 62 25 21 34 0d | 10 cc 18 e7 20 62 3d 2d |12-b%!4.|.... b=-|
|00003790| 31 20 8c 74 3d 62 25 21 | 38 2d 62 25 21 31 36 0d |1 .t=b%!|8-b%!16.|
|000037a0| 10 d6 31 62 25 21 31 32 | 3d 62 25 21 34 2b 72 2d |..1b%!12|=b%!4+r-|
|000037b0| 6c 3a 62 25 21 38 3d 62 | 25 21 31 36 2b 62 2d 74 |l:b%!8=b|%!16+b-t|
|000037c0| 3a 62 25 21 32 30 3d 6c | 3a 62 25 21 32 34 3d 74 |:b%!20=l|:b%!24=t|
|000037d0| 0d 10 e0 1b c8 99 22 57 | 69 6d 70 5f 4f 70 65 6e |......"W|imp_Open|
|000037e0| 57 69 6e 64 6f 77 22 2c | 2c 62 25 0d 10 ea 05 e1 |Window",|,b%.....|
|000037f0| 0d 10 f4 05 3a 0d 10 fe | 3d f4 20 50 52 4f 43 72 |....:...|=. PROCr|
|00003800| 65 73 69 7a 65 77 69 6e | 74 6f 20 3a 20 52 65 73 |esizewin|to : Res|
|00003810| 69 7a 65 73 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |izes win|dow and |
|00003820| 72 65 2d 6f 70 65 6e 73 | 20 69 66 20 6e 65 65 64 |re-opens| if need|
|00003830| 65 64 0d 11 08 28 f4 20 | 57 69 6c 6c 20 6b 65 65 |ed...(. |Will kee|
|00003840| 70 20 74 6f 20 66 75 6c | 6c 20 73 69 7a 65 20 69 |p to ful|l size i|
|00003850| 66 20 70 6f 73 73 69 62 | 6c 65 0d 11 12 1f dd f2 |f possib|le......|
|00003860| 72 65 73 69 7a 65 77 69 | 6e 74 6f 28 77 69 6e 25 |resizewi|nto(win%|
|00003870| 2c 6c 2c 74 2c 72 2c 62 | 29 0d 11 1c 11 ea 20 66 |,l,t,r,b|)..... f|
|00003880| 75 6c 6c 25 2c 6f 70 65 | 6e 25 0d 11 26 29 21 62 |ull%,ope|n%..&)!b|
|00003890| 25 3d 77 69 6e 25 3a c8 | 99 20 22 57 69 6d 70 5f |%=win%:.|. "Wimp_|
|000038a0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|000038b0| 2c 62 25 0d 11 30 38 f4 | 20 49 66 20 66 75 6c 6c |,b%..08.| If full|
|000038c0| 20 73 69 7a 65 2c 20 6f | 70 65 6e 20 66 75 6c 6c | size, o|pen full|
|000038d0| 20 73 69 7a 65 2c 20 61 | 6e 64 20 69 66 20 6f 70 | size, a|nd if op|
|000038e0| 65 6e 2c 20 72 65 2d 6f | 70 65 6e 0d 11 3a 1d 6f |en, re-o|pen..:.o|
|000038f0| 70 65 6e 25 3d 28 62 25 | 21 33 32 20 80 20 28 31 |pen%=(b%|!32 . (1|
|00003900| 3c 3c 31 36 29 29 3e 30 | 0d 11 44 39 c8 99 20 22 |<<16))>0|..D9.. "|
|00003910| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00003920| 2c 2c 62 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |,,b%:.. |"Wimp_Ge|
|00003930| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00003940| 25 0d 11 4e 1d 66 75 6c | 6c 25 3d 28 62 25 21 33 |%..N.ful|l%=(b%!3|
|00003950| 32 20 80 20 28 31 3c 3c | 31 38 29 29 3e 30 0d 11 |2 . (1<<|18))>0..|
|00003960| 58 23 62 25 21 36 38 3d | 6c 3a 62 25 21 37 32 3d |X#b%!68=|l:b%!72=|
|00003970| 62 3a 62 25 21 37 36 3d | 72 3a 62 25 21 38 30 3d |b:b%!76=|r:b%!80=|
|00003980| 74 0d 11 62 22 c8 99 20 | 22 57 69 6d 70 5f 53 65 |t..b".. |"Wimp_Se|
|00003990| 74 45 78 74 65 6e 74 22 | 2c 77 69 6e 25 2c 62 25 |tExtent"|,win%,b%|
|000039a0| 2b 36 38 0d 11 6c 2a e7 | 20 66 75 6c 6c 25 20 8c |+68..l*.| full% .|
|000039b0| 62 25 21 38 3d 62 25 21 | 31 36 2b 62 2d 74 3a 62 |b%!8=b%!|16+b-t:b|
|000039c0| 25 21 31 32 3d 62 25 21 | 34 2b 72 2d 6c 0d 11 76 |%!12=b%!|4+r-l..v|
|000039d0| 1c c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|000039e0| 6e 64 6f 77 22 2c 2c 62 | 25 0d 11 80 4a e7 20 6f |ndow",,b|%...J. o|
|000039f0| 70 65 6e 25 20 8c c8 99 | 20 22 57 69 6d 70 5f 46 |pen% ...| "Wimp_F|
|00003a00| 6f 72 63 65 52 65 64 72 | 61 77 22 2c 77 69 6e 25 |orceRedr|aw",win%|
|00003a10| 2c 6c 2c 62 2c 72 2c 74 | 20 8b c8 99 20 22 57 69 |,l,b,r,t| ... "Wi|
|00003a20| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|00003a30| 2c 62 25 0d 11 8a 05 e1 | 0d 11 94 05 3a 0d 11 9e |,b%.....|....:...|
|00003a40| 3f f4 20 50 52 4f 43 77 | 69 6e 73 65 74 65 78 74 |?. PROCw|insetext|
|00003a50| 65 6e 74 20 3a 20 53 65 | 74 20 74 68 65 20 6d 61 |ent : Se|t the ma|
|00003a60| 78 69 6d 75 6d 20 65 78 | 74 65 6e 74 20 6f 66 20 |ximum ex|tent of |
|00003a70| 77 69 6e 64 6f 77 20 28 | 54 57 41 29 0d 11 a8 2b |window (|TWA)...+|
|00003a80| f4 20 4e 42 20 54 48 49 | 53 20 52 45 41 4c 4c 59 |. NB THI|S REALLY|
|00003a90| 20 49 53 4e 27 54 20 56 | 45 52 59 20 53 41 46 45 | ISN'T V|ERY SAFE|
|00003aa0| 20 4f 4e 20 52 4f 32 0d | 11 b2 20 dd f2 77 69 6e | ON RO2.|.. ..win|
|00003ab0| 73 65 74 65 78 74 65 6e | 74 28 77 69 6e 25 2c 6c |setexten|t(win%,l|
|00003ac0| 2c 74 2c 72 2c 62 29 0d | 11 bc 28 21 62 25 3d 77 |,t,r,b).|..(!b%=w|
|00003ad0| 69 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |in%:.. "|Wimp_Get|
|00003ae0| 57 69 6e 64 6f 77 49 6e | 66 6f 22 2c 2c 62 25 0d |WindowIn|fo",,b%.|
|00003af0| 11 c6 13 e7 20 6c 3d 2d | 31 20 8c 6c 3d 62 25 21 |.... l=-|1 .l=b%!|
|00003b00| 34 34 0d 11 d0 13 e7 20 | 62 3d 2d 31 20 8c 62 3d |44..... |b=-1 .b=|
|00003b10| 62 25 21 34 38 0d 11 da | 13 e7 20 72 3d 2d 31 20 |b%!48...|.. r=-1 |
|00003b20| 8c 72 3d 62 25 21 35 32 | 0d 11 e4 13 e7 20 74 3d |.r=b%!52|..... t=|
|00003b30| 2d 31 20 8c 74 3d 62 25 | 21 35 36 0d 11 ee 23 62 |-1 .t=b%|!56...#b|
|00003b40| 25 21 34 34 3d 6c 3a 62 | 25 21 34 38 3d 62 3a 62 |%!44=l:b|%!48=b:b|
|00003b50| 25 21 35 32 3d 72 3a 62 | 25 21 35 36 3d 74 0d 11 |%!52=r:b|%!56=t..|
|00003b60| f8 22 c8 99 22 58 57 69 | 6d 70 5f 53 65 74 45 78 |.".."XWi|mp_SetEx|
|00003b70| 74 65 6e 74 22 2c 77 69 | 6e 25 2c 62 25 2b 34 34 |tent",wi|n%,b%+44|
|00003b80| 0d 12 02 05 e1 0d 12 0c | 05 3a 0d 12 16 3f f4 20 |........|.:...?. |
|00003b90| 50 52 4f 43 66 6f 72 63 | 65 72 65 64 72 61 77 20 |PROCforc|eredraw |
|00003ba0| 3a 20 52 65 64 72 61 77 | 20 74 68 65 20 73 70 65 |: Redraw| the spe|
|00003bb0| 63 69 66 69 65 64 20 70 | 61 72 74 20 6f 66 20 74 |cified p|art of t|
|00003bc0| 68 65 20 77 69 6e 64 6f | 77 0d 12 20 2b f4 20 4e |he windo|w.. +. N|
|00003bd0| 42 20 54 48 49 53 20 52 | 45 41 4c 4c 59 20 49 53 |B THIS R|EALLY IS|
|00003be0| 4e 27 54 20 56 45 52 59 | 20 53 41 46 45 20 4f 4e |N'T VERY| SAFE ON|
|00003bf0| 20 52 4f 32 0d 12 2a 3e | f4 20 4d 6f 64 69 66 79 | RO2..*>|. Modify|
|00003c00| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 74 6f 20 | the pro|gram to |
|00003c10| 68 61 76 65 20 62 25 20 | 61 6c 6c 6f 63 61 74 65 |have b% |allocate|
|00003c20| 64 20 77 69 74 68 20 38 | 38 2b 33 32 2a 69 63 6f |d with 8|8+32*ico|
|00003c30| 6e 73 0d 12 34 25 f4 20 | 73 70 61 63 65 20 66 6f |ns..4%. |space fo|
|00003c40| 72 20 74 68 65 20 77 69 | 6e 64 6f 77 20 64 65 66 |r the wi|ndow def|
|00003c50| 69 6e 69 74 69 6f 6e 0d | 12 3e 1f dd f2 66 6f 72 |inition.|.>...for|
|00003c60| 63 65 72 65 64 72 61 77 | 28 77 69 6e 25 2c 6c 2c |ceredraw|(win%,l,|
|00003c70| 74 2c 72 2c 62 29 0d 12 | 48 0d ea 20 6c 6f 63 25 |t,r,b)..|H.. loc%|
|00003c80| 2c 61 24 0d 12 52 29 62 | 25 21 30 3d 77 69 6e 25 |,a$..R)b|%!0=win%|
|00003c90| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |:.. "Wim|p_GetWin|
|00003ca0| 64 6f 77 49 6e 66 6f 22 | 2c 2c 62 25 0d 12 5c 25 |dowInfo"|,,b%..\%|
|00003cb0| 6c 6f 63 25 3d 21 28 62 | 25 2b 37 36 29 3a 61 24 |loc%=!(b|%+76):a$|
|00003cc0| 3d a4 6d 73 67 74 65 78 | 74 28 74 69 74 6c 65 24 |=.msgtex|t(title$|
|00003cd0| 29 0d 12 66 1a e7 20 a4 | 73 74 72 69 6e 67 30 28 |)..f.. .|string0(|
|00003ce0| 6c 6f 63 25 29 3c 3e 61 | 24 20 8c 0d 12 70 3a 20 |loc%)<>a|$ ...p: |
|00003cf0| 24 6c 6f 63 25 3d 61 24 | 3a 62 25 21 33 32 3d 77 |$loc%=a$|:b%!32=w|
|00003d00| 69 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |in%:.. "|Wimp_Get|
|00003d10| 57 69 6e 64 6f 77 4f 75 | 74 6c 69 6e 65 22 2c 2c |WindowOu|tline",,|
|00003d20| 62 25 2b 33 32 0d 12 7a | 35 20 c8 99 20 22 57 69 |b%+32..z|5 .. "Wi|
|00003d30| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|00003d40| 2d 31 2c 62 25 21 33 36 | 2c 62 25 21 31 36 2c 62 |-1,b%!36|,b%!16,b|
|00003d50| 25 21 34 34 2c 62 25 21 | 34 38 0d 12 84 05 cd 0d |%!44,b%!|48......|
|00003d60| 12 8e 05 e1 0d 12 98 05 | 3a 0d 12 a2 3d f4 20 50 |........|:...=. P|
|00003d70| 52 4f 43 77 69 6e 64 6f | 77 74 69 74 6c 65 20 3a |ROCwindo|wtitle :|
|00003d80| 20 53 65 74 20 77 69 6e | 64 6f 77 20 74 69 74 6c | Set win|dow titl|
|00003d90| 65 20 28 6f 6e 6c 79 20 | 69 66 20 69 6e 64 69 72 |e (only |if indir|
|00003da0| 65 63 74 65 64 29 0d 12 | ac 26 dd 20 f2 77 69 6e |ected)..|.&. .win|
|00003db0| 64 6f 77 74 69 74 6c 65 | 28 77 69 6e 25 2c 74 69 |dowtitle|(win%,ti|
|00003dc0| 74 6c 65 24 29 3a ea 20 | 6c 6f 63 25 0d 12 b6 05 |tle$):. |loc%....|
|00003dd0| e1 0d 12 c0 05 3a 0d 12 | ca 37 f4 20 2a 2a 2a 2a |.....:..|.7. ****|
|00003de0| 2a 2a 2a 2a 20 49 63 6f | 6e 20 6d 61 6e 69 70 75 |**** Ico|n manipu|
|00003df0| 6c 61 74 69 6f 6e 20 72 | 6f 75 74 69 6e 65 73 20 |lation r|outines |
|00003e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 12 d4 |********|*****...|
|00003e10| 05 3a 0d 12 de 37 f4 20 | 46 4e 63 72 65 61 74 65 |.:...7. |FNcreate|
|00003e20| 69 63 6f 6e 20 3a 20 43 | 72 65 61 74 65 20 61 6e |icon : C|reate an|
|00003e30| 20 69 63 6f 6e 20 77 69 | 74 68 20 73 65 74 20 70 | icon wi|th set p|
|00003e40| 61 72 61 6d 65 74 65 72 | 73 0d 12 e8 3c f4 20 77 |arameter|s...<. w|
|00003e50| 69 6e 64 6f 77 2c 78 2c | 79 2c 20 77 69 64 74 68 |indow,x,|y, width|
|00003e60| 2c 20 68 65 69 67 68 74 | 2c 20 74 69 74 6c 65 2c |, height|, title,|
|00003e70| 20 76 61 6c 69 64 61 74 | 69 6f 6e 2c 20 63 6f 6c | validat|ion, col|
|00003e80| 6f 75 72 73 2c 0d 12 f2 | 1d f4 20 45 53 47 2c 20 |ours,...|.. ESG, |
|00003e90| 62 75 74 74 6f 6e 20 74 | 79 70 65 2c 20 66 6c 61 |button t|ype, fla|
|00003ea0| 67 73 0d 12 fc 31 f4 20 | 63 6f 6c 20 63 6f 75 6c |gs...1. |col coul|
|00003eb0| 64 20 62 65 20 66 6f 6e | 74 20 68 61 6e 64 6c 65 |d be fon|t handle|
|00003ec0| 20 69 66 20 75 73 65 20 | 66 6f 6e 74 20 69 73 20 | if use |font is |
|00003ed0| 73 65 74 0d 13 06 42 f4 | 20 6f 74 68 65 72 77 69 |set...B.| otherwi|
|00003ee0| 73 65 20 63 6f 6c 20 69 | 73 20 26 42 46 20 28 42 |se col i|s &BF (B|
|00003ef0| 3d 62 61 63 6b 67 72 6f | 75 6e 64 2c 20 46 3d 66 |=backgro|und, F=f|
|00003f00| 6f 72 65 67 72 6f 75 6e | 64 29 20 28 75 73 75 2e |oregroun|d) (usu.|
|00003f10| 20 26 31 37 29 0d 13 10 | 39 f4 20 51 75 69 63 6b | &17)...|9. Quick|
|00003f20| 20 66 6c 61 67 73 20 3a | 20 25 41 46 56 48 42 30 | flags :| %AFVHB0|
|00003f30| 30 20 28 41 3d 46 6f 6e | 74 2c 20 46 3d 46 69 6c |0 (A=Fon|t, F=Fil|
|00003f40| 6c 65 64 2c 20 42 3d 42 | 6f 72 64 65 72 29 0d 13 |led, B=B|order)..|
|00003f50| 1a 0d f4 20 46 6c 61 67 | 73 20 3a 0d 13 24 20 f4 |... Flag|s :..$ .|
|00003f60| 20 30 20 3a 20 54 65 78 | 74 20 20 20 20 20 20 20 | 0 : Tex|t       |
|00003f70| 20 20 20 20 38 20 3a 20 | 4e 2f 41 0d 13 2e 2c f4 |    8 : |N/A...,.|
|00003f80| 20 31 20 3a 20 53 70 72 | 69 74 65 20 20 20 20 20 | 1 : Spr|ite     |
|00003f90| 20 20 20 20 39 20 3a 20 | 52 69 67 68 74 20 4a 75 |    9 : |Right Ju|
|00003fa0| 73 74 69 66 69 65 64 0d | 13 38 3b f4 20 32 20 3a |stified.|.8;. 2 :|
|00003fb0| 20 42 6f 72 64 65 72 65 | 64 20 20 20 20 20 20 31 | Bordere|d      1|
|00003fc0| 30 20 3a 20 4d 75 6c 74 | 69 70 6c 65 20 73 65 6c |0 : Mult|iple sel|
|00003fd0| 65 63 74 69 6f 6e 20 77 | 69 74 68 20 61 64 6a 75 |ection w|ith adju|
|00003fe0| 73 74 0d 13 42 29 f4 20 | 33 20 3a 20 48 20 43 65 |st..B). |3 : H Ce|
|00003ff0| 6e 74 72 65 20 20 20 20 | 20 20 31 31 20 3a 20 53 |ntre    |  11 : S|
|00004000| 6d 61 6c 6c 20 73 70 72 | 69 74 65 0d 13 4c 1e f4 |mall spr|ite..L..|
|00004010| 20 34 20 3a 20 56 20 43 | 65 6e 74 72 65 20 20 20 | 4 : V C|entre   |
|00004020| 20 20 20 32 30 20 3a 20 | 3f 0d 13 56 25 f4 20 35 |   20 : |?..V%. 5|
|00004030| 20 3a 20 46 69 6c 6c 65 | 64 20 20 20 20 20 20 20 | : Fille|d       |
|00004040| 20 32 31 20 3a 20 49 6e | 76 65 72 74 65 64 0d 13 | 21 : In|verted..|
|00004050| 60 23 f4 20 36 20 3a 20 | 55 73 65 20 66 6f 6e 74 |`#. 6 : |Use font|
|00004060| 73 20 20 20 20 20 32 32 | 20 3a 20 53 68 61 64 65 |s     22| : Shade|
|00004070| 64 0d 13 6a 1e f4 20 37 | 20 3a 20 4e 2f 41 20 20 |d..j.. 7| : N/A  |
|00004080| 20 20 20 20 20 20 20 20 | 20 32 33 20 3a 20 3f 0d |        | 23 : ?.|
|00004090| 13 74 14 f4 20 42 75 74 | 74 6f 6e 20 74 79 70 65 |.t.. But|ton type|
|000040a0| 73 20 3a 0d 13 7e 17 f4 | 20 30 20 3a 20 49 67 6e |s :..~..| 0 : Ign|
|000040b0| 6f 72 65 20 63 6c 69 63 | 6b 73 0d 13 88 1a f4 20 |ore clic|ks..... |
|000040c0| 31 20 3a 20 4e 6f 74 69 | 66 79 20 77 68 65 6e 20 |1 : Noti|fy when |
|000040d0| 6f 76 65 72 0d 13 92 20 | f4 20 32 20 3a 20 43 6c |over... |. 2 : Cl|
|000040e0| 69 63 6b 73 20 72 65 70 | 65 61 74 20 26 20 6e 6f |icks rep|eat & no|
|000040f0| 74 69 66 79 0d 13 9c 22 | f4 20 33 20 3a 20 43 6c |tify..."|. 3 : Cl|
|00004100| 69 63 6b 73 20 64 65 62 | 6f 75 6e 63 65 20 26 20 |icks deb|ounce & |
|00004110| 6e 6f 74 69 66 79 0d 13 | a6 3f f4 20 34 20 3a 20 |notify..|.?. 4 : |
|00004120| 43 6c 69 63 6b 20 73 65 | 6c 65 63 74 73 2c 20 72 |Click se|lects, r|
|00004130| 65 6c 65 61 73 65 20 6e | 6f 74 69 66 69 65 73 2c |elease n|otifies,|
|00004140| 20 6f 72 20 64 65 73 65 | 6c 65 63 74 20 69 66 20 | or dese|lect if |
|00004150| 6d 6f 76 65 64 0d 13 b0 | 2a f4 20 35 20 3a 20 43 |moved...|*. 5 : C|
|00004160| 6c 69 63 6b 20 73 65 6c | 65 63 74 73 2c 20 32 20 |lick sel|ects, 2 |
|00004170| 63 6c 69 63 6b 73 20 6e | 6f 74 69 66 69 65 73 0d |clicks n|otifies.|
|00004180| 13 ba 1c f4 20 36 20 3a | 20 41 73 20 33 20 62 75 |.... 6 :| As 3 bu|
|00004190| 74 20 77 69 6c 6c 20 64 | 72 61 67 0d 13 c4 1c f4 |t will d|rag.....|
|000041a0| 20 37 20 3a 20 41 73 20 | 34 20 62 75 74 20 77 69 | 7 : As |4 but wi|
|000041b0| 6c 6c 20 64 72 61 67 0d | 13 ce 1c f4 20 38 20 3a |ll drag.|.... 8 :|
|000041c0| 20 41 73 20 35 20 62 75 | 74 20 77 69 6c 6c 20 64 | As 5 bu|t will d|
|000041d0| 72 61 67 0d 13 d8 13 f4 | 20 39 20 3a 20 4d 65 6e |rag.....| 9 : Men|
|000041e0| 75 20 69 63 6f 6e 0d 13 | e2 30 f4 20 31 30 3a 20 |u icon..|.0. 10: |
|000041f0| 43 6c 69 63 6b 3d 62 75 | 74 2a 32 35 36 2c 64 72 |Click=bu|t*256,dr|
|00004200| 61 67 3d 62 75 74 2a 31 | 36 2c 32 20 63 6c 69 63 |ag=but*1|6,2 clic|
|00004210| 6b 73 3d 62 75 74 0d 13 | ec 33 f4 20 31 31 3a 20 |ks=but..|.3. 11: |
|00004220| 52 61 64 69 6f 20 28 56 | 61 6c 69 64 61 74 69 6f |Radio (V|alidatio|
|00004230| 6e 20 66 6f 72 6d 61 74 | 20 3a 20 53 6f 70 74 6f |n format| : Sopto|
|00004240| 66 66 2c 6f 70 74 6f 6e | 29 0d 13 f6 11 f4 20 31 |ff,opton|)..... 1|
|00004250| 32 2f 31 33 20 3a 20 4e | 2f 41 0d 14 00 27 f4 20 |2/13 : N|/A...'. |
|00004260| 31 34 3a 20 57 72 69 74 | 65 61 62 6c 65 2f 43 6c |14: Writ|eable/Cl|
|00004270| 69 63 6b 61 62 6c 65 2f | 44 72 61 67 67 61 62 6c |ickable/|Draggabl|
|00004280| 65 0d 14 0a 13 f4 20 31 | 35 3a 20 57 72 69 74 65 |e..... 1|5: Write|
|00004290| 61 62 6c 65 0d 14 14 3d | dd a4 63 72 65 61 74 65 |able...=|..create|
|000042a0| 69 63 6f 6e 28 77 69 6e | 2c 78 2c 79 2c 77 2c 68 |icon(win|,x,y,w,h|
|000042b0| 2c 74 69 74 6c 65 24 2c | 76 61 6c 69 64 24 2c 63 |,title$,|valid$,c|
|000042c0| 6f 6c 2c 65 73 67 2c 62 | 75 74 2c 66 6c 61 67 73 |ol,esg,b|ut,flags|
|000042d0| 29 0d 14 1e 24 ea 20 68 | 61 6e 64 6c 65 3a 74 69 |)...$. h|andle:ti|
|000042e0| 74 6c 65 24 3d a4 6d 73 | 67 74 65 78 74 28 74 69 |tle$=.ms|gtext(ti|
|000042f0| 74 6c 65 24 29 0d 14 28 | 2e 62 25 21 30 3d 77 69 |tle$)..(|.b%!0=wi|
|00004300| 6e 3a 62 25 21 34 3d 78 | 3a 62 25 21 38 3d 79 2d |n:b%!4=x|:b%!8=y-|
|00004310| 68 3a 62 25 21 31 32 3d | 78 2b 77 3a 62 25 21 31 |h:b%!12=|x+w:b%!1|
|00004320| 36 3d 79 0d 14 32 36 62 | 25 21 32 30 3d 28 66 6c |6=y..26b|%!20=(fl|
|00004330| 61 67 73 20 80 20 28 25 | 31 31 31 30 30 31 31 31 |ags . (%|11100111|
|00004340| 31 31 31 31 2b 28 31 35 | 3c 3c 32 30 29 29 29 2b |1111+(15|<<20)))+|
|00004350| 28 63 6f 6c 3c 3c 32 34 | 29 0d 14 3c 1e 62 25 21 |(col<<24|)..<.b%!|
|00004360| 32 30 2b 3d 28 65 73 67 | 3c 3c 31 36 29 2b 28 62 |20+=(esg|<<16)+(b|
|00004370| 75 74 3c 3c 31 32 29 0d | 14 46 2d e7 20 76 61 6c |ut<<12).|.F-. val|
|00004380| 69 64 24 3c 3e 22 22 20 | 84 20 a9 28 74 69 74 6c |id$<>"" |. .(titl|
|00004390| 65 24 29 3e 31 31 20 84 | 20 74 69 74 6c 65 24 3d |e$)>11 .| title$=|
|000043a0| bd 30 20 8c 0d 14 50 12 | 20 e7 20 74 69 74 6c 65 |.0 ...P.| . title|
|000043b0| 24 3d bd 30 20 8c 0d 14 | 5a 29 20 20 62 25 21 32 |$=.0 ...|Z)  b%!2|
|000043c0| 34 3d a4 69 6e 64 69 72 | 65 63 74 28 c4 32 35 35 |4=.indir|ect(.255|
|000043d0| 2c bd 30 29 29 3a 62 25 | 21 33 32 3d 32 35 36 0d |,.0)):b%|!32=256.|
|000043e0| 14 64 06 20 cc 0d 14 6e | 2f 20 20 62 25 21 32 34 |.d. ...n|/  b%!24|
|000043f0| 3d a4 69 6e 64 69 72 65 | 63 74 28 74 69 74 6c 65 |=.indire|ct(title|
|00004400| 24 29 3a 62 25 21 33 32 | 3d a9 28 74 69 74 6c 65 |$):b%!32|=.(title|
|00004410| 24 29 2b 31 0d 14 78 06 | 20 cd 0d 14 82 28 20 62 |$)+1..x.| ....( b|
|00004420| 25 21 32 38 3d a4 69 6e | 64 69 72 65 63 74 28 76 |%!28=.in|direct(v|
|00004430| 61 6c 69 64 24 29 3a 62 | 25 21 32 30 2b 3d 31 3c |alid$):b|%!20+=1<|
|00004440| 3c 38 0d 14 8c 05 cc 0d | 14 96 14 20 24 28 62 25 |<8......|... $(b%|
|00004450| 2b 32 34 29 3d 74 69 74 | 6c 65 24 0d 14 a0 05 cd |+24)=tit|le$.....|
|00004460| 0d 14 aa 55 e7 20 28 28 | 62 25 21 32 30 29 20 80 |...U. ((|b%!20) .|
|00004470| 20 26 31 30 33 29 3d 26 | 33 20 8c 85 20 26 38 30 | &103)=&|3 .. &80|
|00004480| 33 2c 22 43 61 6e 6e 6f | 74 20 6d 61 6b 65 20 61 |3,"Canno|t make a|
|00004490| 20 73 70 72 69 74 65 2f | 74 65 78 74 20 69 63 6f | sprite/|text ico|
|000044a0| 6e 20 77 69 74 68 6f 75 | 74 20 76 61 6c 69 64 61 |n withou|t valida|
|000044b0| 74 69 6f 6e 22 0d 14 b4 | 1d e7 20 28 66 6c 61 67 |tion"...|.. (flag|
|000044c0| 73 20 80 20 33 29 3d 30 | 20 8c 62 25 21 32 30 2b |s . 3)=0| .b%!20+|
|000044d0| 3d 31 0d 14 be 2e e7 20 | a4 6c 6f 77 65 72 28 c0 |=1..... |.lower(.|
|000044e0| 76 61 6c 69 64 24 2c 31 | 29 29 3d 22 73 22 20 8c |valid$,1|))="s" .|
|000044f0| 20 62 25 21 32 30 3d 62 | 25 21 32 30 20 84 20 32 | b%!20=b|%!20 . 2|
|00004500| 0d 14 c8 25 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...%.. "|Wimp_Cre|
|00004510| 61 74 65 49 63 6f 6e 22 | 2c 2c 62 25 20 b8 20 68 |ateIcon"|,,b% . h|
|00004520| 61 6e 64 6c 65 0d 14 d2 | 0b 3d 68 61 6e 64 6c 65 |andle...|.=handle|
|00004530| 0d 14 dc 05 3a 0d 14 e6 | 36 f4 20 50 52 4f 43 64 |....:...|6. PROCd|
|00004540| 65 6c 65 74 65 69 63 6f | 6e 20 3a 20 44 65 6c 65 |eleteico|n : Dele|
|00004550| 74 65 20 74 68 65 20 69 | 63 6f 6e 20 66 72 6f 6d |te the i|con from|
|00004560| 20 74 68 65 20 77 69 6e | 64 6f 77 0d 14 f0 1a dd | the win|dow.....|
|00004570| f2 64 65 6c 65 74 65 69 | 63 6f 6e 28 77 69 6e 2c |.deletei|con(win,|
|00004580| 69 63 6f 6e 29 0d 14 fa | 2e 21 62 25 3d 77 69 6e |icon)...|.!b%=win|
|00004590| 3a 62 25 21 34 3d 69 63 | 6f 6e 3a c8 99 20 22 57 |:b%!4=ic|on:.. "W|
|000045a0| 69 6d 70 5f 44 65 6c 65 | 74 65 49 63 6f 6e 22 2c |imp_Dele|teIcon",|
|000045b0| 2c 62 25 0d 15 04 05 e1 | 0d 15 0e 05 3a 0d 15 18 |,b%.....|....:...|
|000045c0| 3b f4 20 46 4e 43 72 65 | 61 74 65 49 63 6f 6e 42 |;. FNCre|ateIconB|
|000045d0| 61 72 49 63 6f 6e 20 3a | 20 43 72 65 61 74 65 20 |arIcon :| Create |
|000045e0| 61 6e 20 69 63 6f 6e 20 | 66 6f 72 20 74 68 65 20 |an icon |for the |
|000045f0| 69 63 6f 6e 20 62 61 72 | 0d 15 22 25 f4 20 49 63 |icon bar|.."%. Ic|
|00004600| 6f 6e 2d 62 61 72 20 70 | 6f 73 69 74 69 6f 6e 73 |on-bar p|ositions|
|00004610| 20 3a 20 28 6c 6f 77 20 | 62 79 74 65 29 0d 15 2c | : (low |byte)..,|
|00004620| 19 f4 20 31 20 3d 20 72 | 69 67 68 74 2c 20 32 20 |.. 1 = r|ight, 2 |
|00004630| 3d 20 6c 65 66 74 0d 15 | 68 36 dd a4 43 72 65 61 |= left..|h6..Crea|
|00004640| 74 65 49 63 6f 6e 42 61 | 72 49 63 6f 6e 28 53 70 |teIconBa|rIcon(Sp|
|00004650| 72 24 2c 74 69 74 6c 65 | 24 2c 70 6f 73 69 74 69 |r$,title|$,positi|
|00004660| 6f 6e 29 3a ea 20 68 61 | 6e 64 6c 65 0d 15 69 14 |on):. ha|ndle..i.|
|00004670| c8 8e 20 94 28 70 6f 73 | 69 74 69 6f 6e 29 20 ca |.. .(pos|ition) .|
|00004680| 0d 15 6a 19 20 c9 20 31 | 2c 34 2c 37 2c 38 3a 70 |..j. . 1|,4,7,8:p|
|00004690| 6f 73 69 74 69 6f 6e 3d | 31 0d 15 6b 11 20 7f 3a |osition=|1..k. .:|
|000046a0| 70 6f 73 69 74 69 6f 6e | 3d 32 0d 15 6c 05 cb 0d |position|=2..l...|
|000046b0| 15 72 2a 74 69 74 6c 65 | 24 3d a4 6d 73 67 74 65 |.r*title|$=.msgte|
|000046c0| 78 74 28 74 69 74 6c 65 | 24 29 3a 62 25 21 30 3d |xt(title|$):b%!0=|
|000046d0| 2d 70 6f 73 69 74 69 6f | 6e 0d 15 7c 32 62 25 21 |-positio|n..|2b%!|
|000046e0| 34 3d 30 3a 62 25 21 38 | 3d 2d 31 36 3a 62 25 21 |4=0:b%!8|=-16:b%!|
|000046f0| 31 32 3d 31 32 2b 31 36 | 2a a9 28 74 69 74 6c 65 |12=12+16|*.(title|
|00004700| 24 29 3a 62 25 21 31 36 | 3d 38 38 0d 15 86 22 e7 |$):b%!16|=88...".|
|00004710| 62 25 21 31 32 3c 31 32 | 2b 31 36 2a 34 20 8c 20 |b%!12<12|+16*4 . |
|00004720| 62 25 21 31 32 3d 31 32 | 2b 31 36 2a 34 0d 15 90 |b%!12=12|+16*4...|
|00004730| 12 e7 20 74 69 74 6c 65 | 24 3c 3e 22 22 20 8c 0d |.. title|$<>"" ..|
|00004740| 15 9a 33 20 62 25 21 32 | 30 3d 28 31 3c 3c 32 38 |..3 b%!2|0=(1<<28|
|00004750| 29 2b 28 37 3c 3c 32 34 | 29 2b 28 33 3c 3c 31 32 |)+(7<<24|)+(3<<12|
|00004760| 29 2b 28 25 30 30 31 30 | 31 31 29 2b 28 31 3c 3c |)+(%0010|11)+(1<<|
|00004770| 38 29 0d 15 a4 1c 20 62 | 25 21 32 34 3d a4 69 6e |8).... b|%!24=.in|
|00004780| 64 69 72 65 63 74 28 74 | 69 74 6c 65 24 29 0d 15 |direct(t|itle$)..|
|00004790| ae 1e 20 62 25 21 32 38 | 3d a4 69 6e 64 69 72 65 |.. b%!28|=.indire|
|000047a0| 63 74 28 22 53 22 2b 53 | 70 72 24 29 0d 15 b8 14 |ct("S"+S|pr$)....|
|000047b0| 20 62 25 21 33 32 3d a9 | 28 74 69 74 6c 65 24 29 | b%!32=.|(title$)|
|000047c0| 0d 15 c2 05 cc 0d 15 cc | 2c 20 62 25 21 32 30 3d |........|, b%!20=|
|000047d0| 28 31 3c 3c 32 38 29 2b | 28 37 3c 3c 32 34 29 2b |(1<<28)+|(7<<24)+|
|000047e0| 28 33 3c 3c 31 32 29 2b | 28 25 30 31 31 30 31 30 |(3<<12)+|(%011010|
|000047f0| 29 0d 15 d6 12 20 24 28 | 62 25 2b 32 34 29 3d 53 |).... $(|b%+24)=S|
|00004800| 70 72 24 0d 15 e0 05 cd | 0d 15 ea 25 c8 99 20 22 |pr$.....|...%.. "|
|00004810| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|00004820| 2c 2c 62 25 20 b8 20 68 | 61 6e 64 6c 65 0d 15 f4 |,,b% . h|andle...|
|00004830| 0b 3d 68 61 6e 64 6c 65 | 0d 15 fe 05 3a 0d 16 08 |.=handle|....:...|
|00004840| 40 f4 20 46 4e 67 65 74 | 69 63 6f 6e 73 74 61 74 |@. FNget|iconstat|
|00004850| 65 20 3a 20 52 65 74 75 | 72 6e 20 2d 31 20 69 66 |e : Retu|rn -1 if|
|00004860| 20 69 63 6f 6e 20 69 73 | 20 73 65 6c 65 63 74 65 | icon is| selecte|
|00004870| 64 2c 30 20 6f 74 68 65 | 72 77 69 73 65 0d 16 12 |d,0 othe|rwise...|
|00004880| 1f dd 20 a4 67 65 74 69 | 63 6f 6e 73 74 61 74 65 |.. .geti|constate|
|00004890| 28 77 69 6e 25 2c 69 63 | 6f 6e 25 29 0d 16 1c 32 |(win%,ic|on%)...2|
|000048a0| 21 62 25 3d 77 69 6e 25 | 3a 62 25 21 34 3d 69 63 |!b%=win%|:b%!4=ic|
|000048b0| 6f 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |on%:.. "|Wimp_Get|
|000048c0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 25 0d 16 |IconStat|e",,b%..|
|000048d0| 26 16 3d 28 62 25 21 32 | 34 3e 3e 32 31 20 80 20 |&.=(b%!2|4>>21 . |
|000048e0| 31 29 3e 30 0d 16 30 05 | 3a 0d 16 3a 33 f4 20 50 |1)>0..0.|:..:3. P|
|000048f0| 52 4f 43 69 63 6f 6e 73 | 68 61 64 65 20 20 3a 20 |ROCicons|hade  : |
|00004900| 75 6e 73 68 61 64 65 2f | 73 68 61 64 65 2f 74 6f |unshade/|shade/to|
|00004910| 67 67 6c 65 20 61 6e 20 | 69 63 6f 6e 0d 16 44 35 |ggle an |icon..D5|
|00004920| f4 20 50 52 4f 43 69 63 | 6f 6e 73 74 61 74 65 20 |. PROCic|onstate |
|00004930| 20 3a 20 75 6e 73 65 6c | 65 63 74 2f 73 65 6c 65 | : unsel|ect/sele|
|00004940| 63 74 2f 74 6f 67 67 6c | 65 20 61 6e 20 69 63 6f |ct/toggl|e an ico|
|00004950| 6e 0d 16 4e 38 f4 20 50 | 52 4f 43 73 65 74 69 63 |n..N8. P|ROCsetic|
|00004960| 6f 6e 62 69 74 20 3a 20 | 73 65 74 2f 75 6e 73 65 |onbit : |set/unse|
|00004970| 74 2f 74 6f 67 67 6c 65 | 20 61 20 62 69 74 20 69 |t/toggle| a bit i|
|00004980| 6e 20 61 6e 20 69 63 6f | 6e 0d 16 58 21 dd f2 69 |n an ico|n..X!..i|
|00004990| 63 6f 6e 73 68 61 64 65 | 28 77 69 6e 25 2c 69 63 |conshade|(win%,ic|
|000049a0| 6f 6e 25 2c 74 79 70 65 | 25 29 0d 16 62 24 f2 73 |on%,type|%)..b$.s|
|000049b0| 65 74 69 63 6f 6e 62 69 | 74 28 77 69 6e 25 2c 69 |eticonbi|t(win%,i|
|000049c0| 63 6f 6e 25 2c 32 32 2c | 74 79 70 65 25 29 0d 16 |con%,22,|type%)..|
|000049d0| 6c 05 e1 0d 16 76 21 dd | f2 69 63 6f 6e 73 74 61 |l....v!.|.iconsta|
|000049e0| 74 65 28 77 69 6e 25 2c | 69 63 6f 6e 25 2c 74 79 |te(win%,|icon%,ty|
|000049f0| 70 65 25 29 0d 16 80 24 | f2 73 65 74 69 63 6f 6e |pe%)...$|.seticon|
|00004a00| 62 69 74 28 77 69 6e 25 | 2c 69 63 6f 6e 25 2c 32 |bit(win%|,icon%,2|
|00004a10| 31 2c 74 79 70 65 25 29 | 0d 16 8a 05 e1 0d 16 94 |1,type%)|........|
|00004a20| 19 f4 20 74 79 70 65 20 | 3d 20 30 20 66 6f 72 20 |.. type |= 0 for |
|00004a30| 75 6e 74 69 63 6b 0d 16 | 9e 21 f4 20 74 79 70 65 |untick..|.!. type|
|00004a40| 20 3d 20 31 20 66 6f 72 | 20 74 69 63 6b 20 28 61 | = 1 for| tick (a|
|00004a50| 6c 73 6f 20 2d 31 29 0d | 16 a8 19 f4 20 74 79 70 |lso -1).|.... typ|
|00004a60| 65 20 3d 20 32 20 66 6f | 72 20 74 6f 67 67 6c 65 |e = 2 fo|r toggle|
|00004a70| 0d 16 b2 27 dd f2 73 65 | 74 69 63 6f 6e 62 69 74 |...'..se|ticonbit|
|00004a80| 28 77 69 6e 25 2c 69 63 | 6f 6e 25 2c 62 69 74 25 |(win%,ic|on%,bit%|
|00004a90| 2c 74 79 70 65 25 29 0d | 16 bc 0b ea 20 73 25 2c |,type%).|.... s%,|
|00004aa0| 74 25 0d 16 c6 0e c8 8e | 20 74 79 70 65 25 20 ca |t%......| type% .|
|00004ab0| 0d 16 d0 1e 20 c9 20 30 | 3a 73 25 3d 30 3c 3c 62 |.... . 0|:s%=0<<b|
|00004ac0| 69 74 25 3a 74 25 3d 31 | 3c 3c 62 69 74 25 0d 16 |it%:t%=1|<<bit%..|
|00004ad0| da 21 20 c9 20 2d 31 2c | 31 3a 73 25 3d 31 3c 3c |.! . -1,|1:s%=1<<|
|00004ae0| 62 69 74 25 3a 74 25 3d | 31 3c 3c 62 69 74 25 0d |bit%:t%=|1<<bit%.|
|00004af0| 16 e4 1e 20 c9 20 32 3a | 73 25 3d 31 3c 3c 62 69 |... . 2:|s%=1<<bi|
|00004b00| 74 25 3a 74 25 3d 30 3c | 3c 62 69 74 25 0d 16 ee |t%:t%=0<|<bit%...|
|00004b10| 05 cb 0d 16 f8 29 62 25 | 21 30 3d 77 69 6e 25 3a |.....)b%|!0=win%:|
|00004b20| 62 25 21 34 3d 69 63 6f | 6e 25 3a 62 25 21 38 3d |b%!4=ico|n%:b%!8=|
|00004b30| 73 25 3a 62 25 21 31 32 | 3d 74 25 0d 17 02 1e c8 |s%:b%!12|=t%.....|
|00004b40| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00004b50| 74 61 74 65 22 2c 2c 62 | 25 0d 17 0c 05 e1 0d 17 |tate",,b|%.......|
|00004b60| 16 05 3a 0d 17 20 39 f4 | 20 50 52 4f 43 70 72 65 |..:.. 9.| PROCpre|
|00004b70| 73 73 69 63 6f 6e 20 20 | 3a 20 4d 61 6b 65 20 74 |ssicon  |: Make t|
|00004b80| 68 65 20 69 63 6f 6e 20 | 70 72 65 73 73 65 64 20 |he icon |pressed |
|00004b90| 61 6e 64 20 72 65 6c 65 | 61 73 65 64 0d 17 2a 33 |and rele|ased..*3|
|00004ba0| f4 20 50 52 4f 43 72 65 | 64 72 61 77 69 63 6f 6e |. PROCre|drawicon|
|00004bb0| 20 3a 20 46 6f 72 63 65 | 20 74 68 65 20 72 65 64 | : Force| the red|
|00004bc0| 72 61 77 20 6f 66 20 74 | 68 65 20 69 63 6f 6e 0d |raw of t|he icon.|
|00004bd0| 17 34 1b dd f2 70 72 65 | 73 73 69 63 6f 6e 28 77 |.4...pre|ssicon(w|
|00004be0| 69 6e 25 2c 69 63 6f 6e | 25 29 0d 17 3e 25 ea 20 |in%,icon|%)..>%. |
|00004bf0| 74 25 3a f2 73 65 74 69 | 63 6f 6e 62 69 74 28 77 |t%:.seti|conbit(w|
|00004c00| 69 6e 25 2c 69 63 6f 6e | 25 2c 32 31 2c 31 29 0d |in%,icon|%,21,1).|
|00004c10| 17 48 30 74 25 3d 91 3a | f5 3a fd 91 3e 74 25 2b |.H0t%=.:|.:..>t%+|
|00004c20| 31 35 3a f2 73 65 74 69 | 63 6f 6e 62 69 74 28 77 |15:.seti|conbit(w|
|00004c30| 69 6e 25 2c 69 63 6f 6e | 25 2c 32 31 2c 30 29 0d |in%,icon|%,21,0).|
|00004c40| 17 52 05 e1 0d 17 5c 1c | dd f2 72 65 64 72 61 77 |.R....\.|..redraw|
|00004c50| 69 63 6f 6e 28 77 69 6e | 25 2c 69 63 6f 6e 25 29 |icon(win|%,icon%)|
|00004c60| 0d 17 66 40 77 69 6e 25 | 2b 3d 77 69 6e 25 3d 2d |..f@win%|+=win%=-|
|00004c70| 31 3a 21 62 25 3d 77 69 | 6e 25 3a 62 25 21 34 3d |1:!b%=wi|n%:b%!4=|
|00004c80| 69 63 6f 6e 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |icon%:..| "Wimp_G|
|00004c90| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 25 |etIconSt|ate",,b%|
|00004ca0| 0d 17 70 35 c8 99 20 22 | 57 69 6d 70 5f 46 6f 72 |..p5.. "|Wimp_For|
|00004cb0| 63 65 52 65 64 72 61 77 | 22 2c 77 69 6e 25 2c 62 |ceRedraw|",win%,b|
|00004cc0| 25 21 38 2c 62 25 21 31 | 32 2c 62 25 21 31 36 2c |%!8,b%!1|2,b%!16,|
|00004cd0| 62 25 21 32 30 0d 17 7a | 05 e1 0d 17 84 05 3a 0d |b%!20..z|......:.|
|00004ce0| 17 8e 3c f4 20 46 4e 67 | 65 74 69 63 6f 6e 74 65 |..<. FNg|eticonte|
|00004cf0| 78 74 20 20 20 3a 20 72 | 65 74 75 72 6e 20 69 63 |xt   : r|eturn ic|
|00004d00| 6f 6e 73 20 74 65 78 74 | 20 73 74 72 69 6e 67 20 |ons text| string |
|00004d10| 28 6f 72 20 73 70 72 69 | 74 65 29 0d 17 98 39 f4 |(or spri|te)...9.|
|00004d20| 20 50 52 4f 43 73 65 74 | 69 63 6f 6e 74 65 78 74 | PROCset|icontext|
|00004d30| 20 3a 20 73 65 74 20 69 | 63 6f 6e 73 20 74 65 78 | : set i|cons tex|
|00004d40| 74 20 73 74 72 69 6e 67 | 20 28 6f 72 20 73 70 72 |t string| (or spr|
|00004d50| 69 74 65 29 0d 17 a2 1d | dd a4 67 65 74 69 63 6f |ite)....|..getico|
|00004d60| 6e 74 65 78 74 28 77 69 | 6e 25 2c 69 63 6f 6e 25 |ntext(wi|n%,icon%|
|00004d70| 29 0d 17 ac 33 62 25 21 | 30 3d 77 69 6e 25 3a 62 |)...3b%!|0=win%:b|
|00004d80| 25 21 34 3d 69 63 6f 6e | 25 3a c8 99 20 22 57 69 |%!4=icon|%:.. "Wi|
|00004d90| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00004da0| 2c 2c 62 25 0d 17 b6 2a | e7 20 28 28 62 25 21 32 |,,b%...*|. ((b%!2|
|00004db0| 34 29 20 80 20 26 31 30 | 30 29 3d 30 20 8c 3d a4 |4) . &10|0)=0 .=.|
|00004dc0| 73 74 72 69 6e 67 30 28 | 62 25 2b 32 38 29 0d 17 |string0(|b%+28)..|
|00004dd0| c0 14 3d a4 73 74 72 69 | 6e 67 30 28 62 25 21 32 |..=.stri|ng0(b%!2|
|00004de0| 38 29 0d 17 ca 39 dd f2 | 73 65 74 69 63 6f 6e 74 |8)...9..|seticont|
|00004df0| 65 78 74 28 77 69 6e 25 | 2c 69 63 6f 6e 25 2c 74 |ext(win%|,icon%,t|
|00004e00| 65 78 74 24 29 3a 74 65 | 78 74 24 3d a4 6d 73 67 |ext$):te|xt$=.msg|
|00004e10| 74 65 78 74 28 74 65 78 | 74 24 29 0d 17 d4 33 62 |text(tex|t$)...3b|
|00004e20| 25 21 30 3d 77 69 6e 25 | 3a 62 25 21 34 3d 69 63 |%!0=win%|:b%!4=ic|
|00004e30| 6f 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |on%:.. "|Wimp_Get|
|00004e40| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 25 0d 17 |IconStat|e",,b%..|
|00004e50| de 47 e7 20 28 28 62 25 | 21 32 34 29 20 80 20 26 |.G. ((b%|!24) . &|
|00004e60| 31 30 30 29 3d 30 20 8c | 20 85 20 26 38 30 33 2c |100)=0 .| . &803,|
|00004e70| 22 49 63 6f 6e 20 69 73 | 6e 27 74 20 69 6e 64 69 |"Icon is|n't indi|
|00004e80| 72 65 63 74 65 64 20 28 | 23 22 2b c3 69 63 6f 6e |rected (|#"+.icon|
|00004e90| 25 2b 22 29 22 0d 17 e8 | 1e e7 20 a4 73 74 72 69 |%+")"...|.. .stri|
|00004ea0| 6e 67 30 28 62 25 21 32 | 38 29 3c 3e 74 65 78 74 |ng0(b%!2|8)<>text|
|00004eb0| 24 20 8c 0d 17 f2 54 20 | e7 20 a9 28 74 65 78 74 |$ ....T |. .(text|
|00004ec0| 24 29 3c 62 25 21 33 36 | 20 8c 24 28 62 25 21 32 |$)<b%!36| .$(b%!2|
|00004ed0| 38 29 3d 74 65 78 74 24 | 20 8b 85 20 26 38 30 33 |8)=text$| .. &803|
|00004ee0| 2c 22 54 65 78 74 20 74 | 6f 6f 20 6c 6f 6e 67 20 |,"Text t|oo long |
|00004ef0| 66 6f 72 20 69 63 6f 6e | 20 28 23 22 2b c3 69 63 |for icon| (#"+.ic|
|00004f00| 6f 6e 25 2b 22 29 22 0d | 17 fc 42 20 21 62 25 3d |on%+")".|..B !b%=|
|00004f10| 77 69 6e 25 3a 62 25 21 | 34 3d 69 63 6f 6e 25 3a |win%:b%!|4=icon%:|
|00004f20| 62 25 21 38 3d 30 3a 62 | 25 21 31 32 3d 30 3a c8 |b%!8=0:b|%!12=0:.|
|00004f30| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00004f40| 74 61 74 65 22 2c 2c 62 | 25 0d 18 06 05 cd 0d 18 |tate",,b|%.......|
|00004f50| 10 05 e1 0d 18 1a 05 3a | 0d 18 24 37 f4 20 46 4e |.......:|..$7. FN|
|00004f60| 67 65 74 69 63 6f 6e 76 | 61 6c 69 64 20 20 20 3a |geticonv|alid   :|
|00004f70| 20 72 65 74 75 72 6e 20 | 69 63 6f 6e 73 20 76 61 | return |icons va|
|00004f80| 6c 69 64 61 74 69 6f 6e | 20 73 74 72 69 6e 67 0d |lidation| string.|
|00004f90| 18 2e 34 f4 20 50 52 4f | 43 73 65 74 69 63 6f 6e |..4. PRO|Cseticon|
|00004fa0| 76 61 6c 69 64 20 3a 20 | 73 65 74 20 69 63 6f 6e |valid : |set icon|
|00004fb0| 73 20 76 61 6c 69 64 61 | 74 69 6f 6e 20 73 74 72 |s valida|tion str|
|00004fc0| 69 6e 67 0d 18 38 3d f4 | 20 52 65 6d 65 6d 62 65 |ing..8=.| Remembe|
|00004fd0| 72 20 6e 6f 74 20 74 6f | 20 65 78 63 65 65 64 20 |r not to| exceed |
|00004fe0| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 76 61 6c |the orig|inal val|
|00004ff0| 69 64 61 74 69 6f 6e 20 | 73 74 72 69 6e 67 27 73 |idation |string's|
|00005000| 0d 18 42 0d f4 20 6c 65 | 6e 67 74 68 2e 0d 18 4c |..B.. le|ngth...L|
|00005010| 1e dd a4 67 65 74 69 63 | 6f 6e 76 61 6c 69 64 28 |...getic|onvalid(|
|00005020| 77 69 6e 25 2c 69 63 6f | 6e 25 29 0d 18 56 33 62 |win%,ico|n%)..V3b|
|00005030| 25 21 30 3d 77 69 6e 25 | 3a 62 25 21 34 3d 69 63 |%!0=win%|:b%!4=ic|
|00005040| 6f 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |on%:.. "|Wimp_Get|
|00005050| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 25 0d 18 |IconStat|e",,b%..|
|00005060| 60 45 e7 20 28 28 62 25 | 21 32 34 29 20 80 20 26 |`E. ((b%|!24) . &|
|00005070| 31 30 30 29 3d 30 20 85 | 20 26 38 30 33 2c 22 49 |100)=0 .| &803,"I|
|00005080| 63 6f 6e 20 69 73 6e 27 | 74 20 69 6e 64 69 72 65 |con isn'|t indire|
|00005090| 63 74 65 64 20 28 23 22 | 2b c3 69 63 6f 6e 25 2b |cted (#"|+.icon%+|
|000050a0| 22 29 22 0d 18 6a 14 3d | a4 73 74 72 69 6e 67 30 |")"..j.=|.string0|
|000050b0| 28 62 25 21 33 32 29 0d | 18 74 24 dd f2 73 65 74 |(b%!32).|.t$..set|
|000050c0| 69 63 6f 6e 76 61 6c 69 | 64 28 77 69 6e 25 2c 69 |iconvali|d(win%,i|
|000050d0| 63 6f 6e 25 2c 74 65 78 | 74 24 29 0d 18 7e 33 62 |con%,tex|t$)..~3b|
|000050e0| 25 21 30 3d 77 69 6e 25 | 3a 62 25 21 34 3d 69 63 |%!0=win%|:b%!4=ic|
|000050f0| 6f 6e 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |on%:.. "|Wimp_Get|
|00005100| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 25 0d 18 |IconStat|e",,b%..|
|00005110| 88 47 e7 20 28 28 62 25 | 21 32 34 29 20 80 20 26 |.G. ((b%|!24) . &|
|00005120| 31 30 30 29 3d 30 20 8c | 20 85 20 26 38 30 33 2c |100)=0 .| . &803,|
|00005130| 22 49 63 6f 6e 20 69 73 | 6e 27 74 20 69 6e 64 69 |"Icon is|n't indi|
|00005140| 72 65 63 74 65 64 20 28 | 23 22 2b c3 69 63 6f 6e |rected (|#"+.icon|
|00005150| 25 2b 22 29 22 0d 18 92 | 2a 24 28 62 25 21 33 32 |%+")"...|*$(b%!32|
|00005160| 29 3d 74 65 78 74 24 3a | f2 72 65 64 72 61 77 69 |)=text$:|.redrawi|
|00005170| 63 6f 6e 28 77 69 6e 25 | 2c 69 63 6f 6e 25 29 0d |con(win%|,icon%).|
|00005180| 18 9c 05 e1 0d 18 a6 05 | 3a 0d 18 b0 25 f4 20 50 |........|:...%. P|
|00005190| 52 4f 43 64 72 61 67 69 | 63 6f 6e 20 3a 20 53 74 |ROCdragi|con : St|
|000051a0| 61 72 74 20 61 20 64 72 | 61 67 20 62 6f 78 0d 18 |art a dr|ag box..|
|000051b0| ba 43 f4 20 62 6f 75 6e | 64 25 20 73 68 6f 75 6c |.C. boun|d% shoul|
|000051c0| 64 20 62 65 20 54 52 55 | 45 20 69 66 20 79 6f 75 |d be TRU|E if you|
|000051d0| 20 77 69 73 68 20 74 68 | 65 20 69 63 6f 6e 20 74 | wish th|e icon t|
|000051e0| 6f 20 73 74 61 79 20 77 | 69 74 68 69 6e 20 74 68 |o stay w|ithin th|
|000051f0| 65 0d 18 c4 0c f4 20 77 | 69 6e 64 6f 77 0d 18 ce |e..... w|indow...|
|00005200| 21 dd f2 64 72 61 67 69 | 63 6f 6e 28 77 69 6e 25 |!..dragi|con(win%|
|00005210| 2c 69 63 6f 6e 25 2c 62 | 6f 75 6e 64 25 29 0d 18 |,icon%,b|ound%)..|
|00005220| d8 29 21 62 25 3d 77 69 | 6e 25 3a c8 99 20 22 57 |.)!b%=wi|n%:.. "W|
|00005230| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00005240| 74 65 22 2c 2c 62 25 0d | 18 e2 22 78 30 25 3d 62 |te",,b%.|.."x0%=b|
|00005250| 25 21 34 2d 62 25 21 32 | 30 3a 79 30 25 3d 62 25 |%!4-b%!2|0:y0%=b%|
|00005260| 21 31 36 2d 62 25 21 32 | 34 0d 18 ec 22 78 31 25 |!16-b%!2|4..."x1%|
|00005270| 3d 62 25 21 38 2d 62 25 | 21 32 30 3a 79 31 25 3d |=b%!8-b%|!20:y1%=|
|00005280| 62 25 21 31 32 2d 62 25 | 21 32 34 0d 18 f6 32 21 |b%!12-b%|!24...2!|
|00005290| 62 25 3d 77 69 6e 25 3a | 62 25 21 34 3d 69 63 6f |b%=win%:|b%!4=ico|
|000052a0| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |n%:.. "W|imp_GetI|
|000052b0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 25 0d 19 00 |conState|",,b%...|
|000052c0| 2e 62 25 21 38 2b 3d 78 | 30 25 3a 62 25 21 31 32 |.b%!8+=x|0%:b%!12|
|000052d0| 2b 3d 79 30 25 3a 62 25 | 21 31 36 2b 3d 78 30 25 |+=y0%:b%|!16+=x0%|
|000052e0| 3a 62 25 21 32 30 2b 3d | 79 30 25 0d 19 0a 10 e7 |:b%!20+=|y0%.....|
|000052f0| 20 62 6f 75 6e 64 25 3d | b9 20 8c 0d 19 14 2c 20 | bound%=|. ...., |
|00005300| 62 25 21 32 34 3d 78 30 | 25 3a 62 25 21 32 38 3d |b%!24=x0|%:b%!28=|
|00005310| 79 30 25 3a 62 25 21 33 | 32 3d 78 31 25 3a 62 25 |y0%:b%!3|2=x1%:b%|
|00005320| 21 33 36 3d 79 31 25 0d | 19 1e 05 cc 0d 19 28 34 |!36=y1%.|......(4|
|00005330| 20 62 25 21 32 34 3d 30 | 3a 62 25 21 32 38 3d 30 | b%!24=0|:b%!28=0|
|00005340| 3a 62 25 21 33 32 3d 26 | 37 46 46 46 46 46 46 46 |:b%!32=&|7FFFFFFF|
|00005350| 3a 62 25 21 33 36 3d 26 | 37 46 46 46 46 46 46 46 |:b%!36=&|7FFFFFFF|
|00005360| 0d 19 32 05 cd 0d 19 3c | 16 62 25 21 34 3d 35 3a |..2....<|.b%!4=5:|
|00005370| f4 20 44 72 61 67 20 74 | 79 70 65 0d 19 46 19 c8 |. Drag t|ype..F..|
|00005380| 99 20 22 57 69 6d 70 5f | 44 72 61 67 42 6f 78 22 |. "Wimp_|DragBox"|
|00005390| 2c 2c 62 25 0d 19 50 05 | e1 0d 19 5a 05 3a 0d 19 |,,b%..P.|...Z.:..|
|000053a0| 64 39 f4 20 50 52 4f 43 | 64 72 61 67 73 61 76 65 |d9. PROC|dragsave|
|000053b0| 20 3a 20 49 6e 69 74 69 | 61 74 65 20 61 20 73 61 | : Initi|ate a sa|
|000053c0| 76 65 20 61 66 74 65 72 | 20 44 72 61 67 44 6f 6e |ve after| DragDon|
|000053d0| 65 20 65 76 65 6e 74 0d | 19 6e 26 dd f2 64 72 61 |e event.|.n&..dra|
|000053e0| 67 73 61 76 65 28 77 69 | 6e 25 2c 69 63 6f 6e 25 |gsave(wi|n%,icon%|
|000053f0| 2c 74 79 70 65 25 2c 73 | 69 7a 65 25 29 0d 19 78 |,type%,s|ize%)..x|
|00005400| 33 f2 67 65 74 70 74 72 | 70 6f 73 28 78 2c 79 2c |3.getptr|pos(x,y,|
|00005410| 77 69 6e 2c 69 63 6f 6e | 29 3a f4 20 47 65 74 20 |win,icon|):. Get |
|00005420| 64 72 61 67 20 74 6f 20 | 6c 6f 63 61 74 69 6f 6e |drag to |location|
|00005430| 0d 19 82 2a 66 24 3d a4 | 6c 65 61 66 6e 61 6d 65 |...*f$=.|leafname|
|00005440| 28 a4 67 65 74 69 63 6f | 6e 74 65 78 74 28 77 69 |(.getico|ntext(wi|
|00005450| 6e 25 2c 69 63 6f 6e 25 | 29 29 0d 19 8c 17 21 62 |n%,icon%|))....!b|
|00005460| 25 3d 28 34 38 2b a9 28 | 66 24 29 29 20 80 20 ac |%=(48+.(|f$)) . .|
|00005470| 33 0d 19 96 38 62 25 21 | 31 32 3d 30 3a 62 25 21 |3...8b%!|12=0:b%!|
|00005480| 31 36 3d 31 3a 62 25 21 | 32 30 3d 77 69 6e 3a 62 |16=1:b%!|20=win:b|
|00005490| 25 21 32 34 3d 69 63 6f | 6e 3a 62 25 21 32 38 3d |%!24=ico|n:b%!28=|
|000054a0| 78 3a 62 25 21 33 32 3d | 79 0d 19 a0 27 62 25 21 |x:b%!32=|y...'b%!|
|000054b0| 33 36 3d 73 69 7a 65 25 | 3a 62 25 21 34 30 3d 74 |36=size%|:b%!40=t|
|000054c0| 79 70 65 25 3a 24 28 62 | 25 2b 34 34 29 3d 66 24 |ype%:$(b|%+44)=f$|
|000054d0| 0d 19 aa 28 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |...(.. "|Wimp_Sen|
|000054e0| 64 4d 65 73 73 61 67 65 | 22 2c 31 38 2c 62 25 2c |dMessage|",18,b%,|
|000054f0| 77 69 6e 2c 69 63 6f 6e | 0d 19 b4 05 e1 0d 19 be |win,icon|........|
|00005500| 05 3a 0d 19 c8 37 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:...7. |********|
|00005510| 20 21 48 65 6c 70 20 72 | 65 73 70 6f 6e 73 69 76 | !Help r|esponsiv|
|00005520| 65 20 72 6f 75 74 69 6e | 65 73 20 2a 2a 2a 2a 2a |e routin|es *****|
|00005530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 19 d2 05 3a 0d 19 |********|*....:..|
|00005540| dc 38 f4 20 50 52 4f 43 | 72 65 61 64 68 65 6c 70 |.8. PROC|readhelp|
|00005550| 20 3a 20 72 65 61 64 20 | 68 65 6c 70 20 66 72 6f | : read |help fro|
|00005560| 6d 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 61 6e |m applic|ation an|
|00005570| 64 20 73 65 6e 64 0d 19 | e6 2d f4 20 50 52 4f 43 |d send..|.-. PROC|
|00005580| 73 65 6e 64 68 65 6c 70 | 20 3a 20 73 65 6e 64 20 |sendhelp| : send |
|00005590| 68 65 6c 70 20 74 6f 20 | 61 70 70 6c 69 63 61 74 |help to |applicat|
|000055a0| 69 6f 6e 0d 19 f0 1f f4 | 20 5c 53 20 66 6f 72 20 |ion.....| \S for |
|000055b0| 22 43 6c 69 63 6b 20 53 | 45 4c 45 43 54 20 74 6f |"Click S|ELECT to|
|000055c0| 20 22 0d 19 fa 29 f4 20 | 5c 52 20 66 6f 72 20 22 | "...). |\R for "|
|000055d0| 4d 6f 76 65 20 74 68 65 | 20 70 6f 69 6e 74 65 72 |Move the| pointer|
|000055e0| 20 72 69 67 68 74 20 74 | 6f 20 22 0d 1a 04 1f f4 | right t|o ".....|
|000055f0| 20 5c 41 20 66 6f 72 20 | 22 43 6c 69 63 6b 20 41 | \A for |"Click A|
|00005600| 44 4a 55 53 54 20 74 6f | 20 22 0d 1a 0e 1b f4 20 |DJUST to| "..... |
|00005610| 5c 54 20 66 6f 72 20 22 | 54 68 69 73 20 69 73 20 |\T for "|This is |
|00005620| 74 68 65 20 22 0d 1a 18 | 31 f4 20 5c 47 20 66 6f |the "...|1. \G fo|
|00005630| 72 20 22 54 68 69 73 20 | 6f 70 74 69 6f 6e 20 69 |r "This |option i|
|00005640| 73 20 67 72 65 79 65 64 | 20 6f 75 74 20 62 65 63 |s greyed| out bec|
|00005650| 61 75 73 65 20 22 0d 1a | 22 1e f4 20 5c 57 20 66 |ause "..|".. \W f|
|00005660| 6f 72 20 22 54 68 69 73 | 20 77 69 6e 64 6f 77 20 |or "This| window |
|00005670| 69 73 20 22 0d 1a 2c 1e | f4 20 5c 44 20 66 6f 72 |is "..,.|. \D for|
|00005680| 20 22 44 72 61 67 20 53 | 45 4c 45 43 54 20 74 6f | "Drag S|ELECT to|
|00005690| 20 22 0d 1a 36 1e f4 20 | 5c 64 20 66 6f 72 20 22 | "..6.. |\d for "|
|000056a0| 44 72 61 67 20 41 44 4a | 55 53 54 20 74 6f 20 22 |Drag ADJ|UST to "|
|000056b0| 0d 1a 40 15 f4 20 5c 77 | 20 66 6f 72 20 22 77 69 |..@.. \w| for "wi|
|000056c0| 6e 64 6f 77 22 0d 1a 4a | 15 f4 20 5c 73 20 66 6f |ndow"..J|.. \s fo|
|000056d0| 72 20 22 53 45 4c 45 43 | 54 22 0d 1a 54 15 f4 20 |r "SELEC|T"..T.. |
|000056e0| 5c 61 20 66 6f 72 20 22 | 41 44 4a 55 53 54 22 0d |\a for "|ADJUST".|
|000056f0| 1a 5e 13 f4 20 7c 4d 20 | 66 6f 72 20 72 65 74 75 |.^.. |M |for retu|
|00005700| 72 6e 0d 1a 68 21 f4 20 | a4 53 74 72 69 6e 67 24 |rn..h!. |.String$|
|00005710| a4 20 74 6f 20 69 6e 63 | 6c 75 64 65 20 73 74 72 |. to inc|lude str|
|00005720| 69 6e 67 0d 1a 72 29 f4 | 20 3e 20 70 72 65 66 69 |ing..r).| > prefi|
|00005730| 78 20 74 6f 20 6c 6f 6f | 6b 20 75 70 20 69 6e 20 |x to loo|k up in |
|00005740| 6d 65 73 73 61 67 65 20 | 66 69 6c 65 0d 1a 7c 3e |message |file..|>|
|00005750| f4 20 4d 65 6e 75 20 68 | 65 6c 70 20 69 63 6f 6e |. Menu h|elp icon|
|00005760| 73 20 77 69 6c 6c 20 62 | 65 20 73 65 61 72 63 68 |s will b|e search|
|00005770| 65 64 20 61 73 20 48 4d | 3c 6d 65 6e 75 73 74 72 |ed as HM|<menustr|
|00005780| 69 6e 67 3e 2c 20 77 69 | 74 68 0d 1a 86 1e f4 20 |ing>, wi|th..... |
|00005790| 73 70 61 63 65 73 20 72 | 65 70 6c 61 63 65 64 20 |spaces r|eplaced |
|000057a0| 77 69 74 68 20 5f 27 73 | 0d 1a 90 2f f4 20 4e 42 |with _'s|.../. NB|
|000057b0| 20 69 66 20 6e 6f 20 66 | 75 6c 6c 20 73 74 6f 70 | if no f|ull stop|
|000057c0| 20 74 68 65 6e 20 6f 6e | 65 20 77 69 6c 6c 20 62 | then on|e will b|
|000057d0| 65 20 61 64 64 65 64 0d | 1a 9a 17 f4 20 46 6f 72 |e added.|.... For|
|000057e0| 6d 61 74 20 66 6f 72 20 | 68 65 6c 70 20 3a 0d 1a |mat for |help :..|
|000057f0| a4 28 f4 20 20 7b 20 77 | 69 6e 64 6f 77 2c 68 65 |.(.  { w|indow,he|
|00005800| 6c 70 20 6d 65 73 73 61 | 67 65 20 66 6f 72 20 6e |lp messa|ge for n|
|00005810| 6f 20 69 63 6f 6e 0d 1a | ae 2a f4 20 20 20 20 7b |o icon..|.*.    {|
|00005820| 20 69 63 6f 6e 20 6e 75 | 6d 62 65 72 2c 20 6d 65 | icon nu|mber, me|
|00005830| 73 73 61 67 65 20 7d 20 | 72 65 70 65 61 74 65 64 |ssage } |repeated|
|00005840| 0d 1a b8 11 f4 20 20 7d | 20 72 65 70 65 61 74 65 |.....  }| repeate|
|00005850| 64 0d 1a c2 2a f4 20 20 | 7b 20 2d 32 2c 20 7b 69 |d...*.  |{ -2, {i|
|00005860| 63 6f 6e 62 61 72 20 6d | 65 73 73 61 67 65 7d 20 |conbar m|essage} |
|00005870| 7d 20 62 79 20 63 68 6f | 69 63 65 0d 1a cc 13 f4 |} by cho|ice.....|
|00005880| 20 20 2d 31 2c 2d 31 20 | 74 6f 20 65 6e 64 0d 1a |  -1,-1 |to end..|
|00005890| d6 1b dd f2 72 65 61 64 | 68 65 6c 70 28 77 69 6e |....read|help(win|
|000058a0| 2c 69 63 6f 6e 2c 74 6f | 29 0d 1a e0 38 ea 20 6c |,icon,to|)...8. l|
|000058b0| 77 69 6e 2c 76 61 6c 2c | 68 65 6c 70 24 2c 66 6f |win,val,|help$,fo|
|000058c0| 75 6e 64 2c 61 24 2c 6d | 24 2c 6d 32 24 2c 6d 68 |und,a$,m|$,m2$,mh|
|000058d0| 24 3a 66 6f 75 6e 64 3d | a3 3a 6c 77 69 6e 3d 2d |$:found=|.:lwin=-|
|000058e0| 31 0d 1a ea 05 f5 0d 1a | f4 10 20 f3 20 76 61 6c |1.......|.. . val|
|000058f0| 2c 68 65 6c 70 24 0d 1a | fe 1c 20 e7 20 76 61 6c |,help$..|.. . val|
|00005900| 3e 28 31 3c 3c 31 36 29 | 20 84 20 76 61 6c 3c 30 |>(1<<16)| . val<0|
|00005910| 20 8c 0d 1b 08 12 20 20 | e7 20 6c 77 69 6e 3d 77 | .....  |. lwin=w|
|00005920| 69 6e 20 8c 0d 1b 12 1f | 20 20 20 76 61 6c 3d 69 |in .....|   val=i|
|00005930| 63 6f 6e 3a 68 65 6c 70 | 24 3d 22 22 3a 6d 32 24 |con:help|$="":m2$|
|00005940| 3d 6d 24 0d 1b 1c 07 20 | 20 cc 0d 1b 26 18 20 20 |=m$.... | ...&.  |
|00005950| 20 6c 77 69 6e 3d 76 61 | 6c 3a 6d 24 3d 68 65 6c | lwin=va|l:m$=hel|
|00005960| 70 24 0d 1b 30 07 20 20 | cd 0d 1b 3a 06 20 cd 0d |p$..0.  |...:. ..|
|00005970| 1b 44 1c 20 e7 20 76 61 | 6c 3d 69 63 6f 6e 20 80 |.D. . va|l=icon .|
|00005980| 20 6c 77 69 6e 3d 77 69 | 6e 20 8c 0d 1b 4e 1c 20 | lwin=wi|n ...N. |
|00005990| 20 e7 20 69 63 6f 6e 3d | 2d 31 20 84 20 68 65 6c | . icon=|-1 . hel|
|000059a0| 70 24 3d 22 22 20 8c 0d | 1b 58 26 20 20 20 f2 73 |p$="" ..|.X&   .s|
|000059b0| 65 6e 64 68 65 6c 70 28 | a4 6d 73 67 74 65 78 74 |endhelp(|.msgtext|
|000059c0| 28 6d 24 29 2b 22 7c 4d | 22 2c 74 6f 29 0d 1b 62 |(m$)+"|M|",to)..b|
|000059d0| 07 20 20 cc 0d 1b 6c 39 | 20 20 20 6d 24 3d a4 6d |.  ...l9|   m$=.m|
|000059e0| 73 67 74 65 78 74 28 6d | 24 29 3a e7 20 a7 6d 24 |sgtext(m|$):. .m$|
|000059f0| 2c 22 7c 4d 22 29 3e 30 | 20 8c 6d 24 3d c0 6d 24 |,"|M")>0| .m$=.m$|
|00005a00| 2c a7 6d 24 2c 22 7c 4d | 22 29 2d 31 29 0d 1b 76 |,.m$,"|M|")-1)..v|
|00005a10| 36 20 20 20 f2 73 65 6e | 64 68 65 6c 70 28 a4 6d |6   .sen|dhelp(.m|
|00005a20| 73 67 74 65 78 74 28 6d | 24 29 2b 22 7c 4d 22 2b |sgtext(m|$)+"|M"+|
|00005a30| a4 6d 73 67 74 65 78 74 | 28 68 65 6c 70 24 29 2c |.msgtext|(help$),|
|00005a40| 74 6f 29 0d 1b 80 07 20 | 20 cd 0d 1b 8a 0d 20 20 |to).... | .....  |
|00005a50| 66 6f 75 6e 64 3d b9 0d | 1b 94 06 20 cd 0d 1b 9e |found=..|... ....|
|00005a60| 1a fd 20 68 65 6c 70 24 | 3d 22 2d 31 22 20 84 20 |.. help$|="-1" . |
|00005a70| 66 6f 75 6e 64 3d b9 0d | 1b a8 05 e1 0d 1b b2 2e |found=..|........|
|00005a80| dd f2 73 65 6e 64 68 65 | 6c 70 28 68 65 6c 70 24 |..sendhe|lp(help$|
|00005a90| 2c 74 6f 29 3a 68 65 6c | 70 24 3d a4 6d 73 67 74 |,to):hel|p$=.msgt|
|00005aa0| 65 78 74 28 68 65 6c 70 | 24 29 0d 1b bc 22 e7 20 |ext(help|$)...". |
|00005ab0| c2 68 65 6c 70 24 2c 32 | 29 3c 3e 22 7c 4d 22 20 |.help$,2|)<>"|M" |
|00005ac0| 8c 68 65 6c 70 24 2b 3d | 22 7c 4d 22 0d 1b c6 0b |.help$+=|"|M"....|
|00005ad0| ea 20 62 24 2c 63 24 0d | 1b d0 1b 68 65 6c 70 24 |. b$,c$.|...help$|
|00005ae0| 3d a4 73 75 62 73 74 76 | 61 72 73 28 68 65 6c 70 |=.substv|ars(help|
|00005af0| 24 29 0d 1b da 15 c8 95 | 20 a7 68 65 6c 70 24 2c |$)......| .help$,|
|00005b00| 22 7c 4d 22 29 3e 30 0d | 1b e4 34 20 62 24 3d c0 |"|M")>0.|..4 b$=.|
|00005b10| 68 65 6c 70 24 2c a7 68 | 65 6c 70 24 2c 22 7c 4d |help$,.h|elp$,"|M|
|00005b20| 22 29 2d 31 29 3a 68 65 | 6c 70 24 3d c1 68 65 6c |")-1):he|lp$=.hel|
|00005b30| 70 24 2c a9 28 62 24 29 | 2b 33 29 0d 1b ee 20 20 |p$,.(b$)|+3)...  |
|00005b40| e7 20 a7 22 21 2e 3f 22 | 2c c2 62 24 2c 31 29 29 |. ."!.?"|,.b$,1))|
|00005b50| 3d 30 20 8c 62 24 2b 3d | 22 2e 22 0d 1b f8 10 20 |=0 .b$+=|".".... |
|00005b60| 63 24 2b 3d 62 24 2b 22 | 7c 4d 22 0d 1c 02 05 ce |c$+=b$+"||M".....|
|00005b70| 0d 1c 0c 30 62 25 21 31 | 32 3d 62 25 21 38 3a 62 |...0b%!1|2=b%!8:b|
|00005b80| 25 21 34 3d 74 6f 3a 62 | 25 21 31 36 3d 26 35 30 |%!4=to:b|%!16=&50|
|00005b90| 33 3a 24 28 62 25 2b 32 | 30 29 3d 63 24 2b bd 30 |3:$(b%+2|0)=c$+.0|
|00005ba0| 0d 1c 16 1a 62 25 21 30 | 3d 32 30 2b 28 a9 28 63 |....b%!0|=20+(.(c|
|00005bb0| 24 29 2b 34 29 20 80 20 | 2d 34 0d 1c 20 24 c8 99 |$)+4) . |-4.. $..|
|00005bc0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00005bd0| 67 65 22 2c 31 37 2c 62 | 25 2c 62 25 21 34 0d 1c |ge",17,b|%,b%!4..|
|00005be0| 2a 05 e1 0d 1c 34 05 3a | 0d 1c 3e 37 f4 20 2a 2a |*....4.:|..>7. **|
|00005bf0| 2a 2a 2a 2a 2a 2a 20 4d | 65 73 73 61 67 65 54 72 |****** M|essageTr|
|00005c00| 61 6e 73 20 69 6e 74 65 | 72 66 61 63 65 20 72 6f |ans inte|rface ro|
|00005c10| 75 74 69 6e 65 73 20 2a | 2a 2a 2a 2a 2a 2a 2a 0d |utines *|*******.|
|00005c20| 1c 48 05 3a 0d 1c 52 3c | f4 20 50 52 4f 43 6f 70 |.H.:..R<|. PROCop|
|00005c30| 65 6e 6d 65 73 73 61 67 | 65 73 20 20 3a 20 6f 70 |enmessag|es  : op|
|00005c40| 65 6e 20 61 20 4d 65 73 | 73 61 67 65 54 72 61 6e |en a Mes|sageTran|
|00005c50| 73 20 66 69 6c 65 20 66 | 6f 72 20 69 6e 70 75 74 |s file f|or input|
|00005c60| 0d 1c 5c 33 f4 20 50 52 | 4f 43 63 6c 6f 73 65 6d |..\3. PR|OCclosem|
|00005c70| 65 73 73 61 67 65 73 20 | 3a 20 63 6c 6f 73 65 20 |essages |: close |
|00005c80| 61 20 4d 65 73 73 61 67 | 65 54 72 61 6e 73 20 66 |a Messag|eTrans f|
|00005c90| 69 6c 65 0d 1c 66 18 dd | f2 6f 70 65 6e 6d 65 73 |ile..f..|.openmes|
|00005ca0| 73 61 67 65 73 3a ea 20 | 66 2c 6c 0d 1c 70 56 2a |sages:. |f,l..pV*|
|00005cb0| 52 4d 45 6e 73 75 72 65 | 20 4d 65 73 73 61 67 65 |RMEnsure| Message|
|00005cc0| 54 72 61 6e 73 20 30 2e | 30 30 20 45 72 72 6f 72 |Trans 0.|00 Error|
|00005cd0| 20 26 38 30 31 20 54 68 | 69 73 20 70 72 6f 67 72 | &801 Th|is progr|
|00005ce0| 61 6d 20 6e 65 65 64 73 | 20 74 68 65 20 6d 65 73 |am needs| the mes|
|00005cf0| 73 61 67 65 54 72 61 6e | 73 20 6d 6f 64 75 6c 65 |sageTran|s module|
|00005d00| 2e 0d 1c 7a 38 e7 20 6d | 73 67 62 75 66 66 65 72 |...z8. m|sgbuffer|
|00005d10| 25 3c 3e 2d 31 20 8c 85 | 20 26 38 30 30 2c 22 4d |%<>-1 ..| &800,"M|
|00005d20| 65 73 73 61 67 65 20 66 | 69 6c 65 20 61 6c 72 65 |essage f|ile alre|
|00005d30| 61 64 79 20 6f 70 65 6e | 22 0d 1c 84 3a c8 99 20 |ady open|"...:.. |
|00005d40| 22 4d 65 73 73 61 67 65 | 54 72 61 6e 73 5f 46 69 |"Message|Trans_Fi|
|00005d50| 6c 65 49 6e 66 6f 22 2c | 2c 41 70 70 64 69 72 24 |leInfo",|,Appdir$|
|00005d60| 2b 22 2e 4d 65 73 73 61 | 67 65 73 22 20 b8 20 66 |+".Messa|ges" . f|
|00005d70| 2c 2c 6c 0d 1c 8e 34 e7 | 20 28 66 20 80 31 29 3d |,,l...4.| (f .1)=|
|00005d80| 31 20 8c 6d 73 67 62 75 | 66 66 65 72 32 25 3d 30 |1 .msgbu|ffer2%=0|
|00005d90| 20 8b 6d 73 67 62 75 66 | 66 65 72 32 25 3d a4 63 | .msgbuf|fer2%=.c|
|00005da0| 6c 61 69 6d 28 6c 29 0d | 1c 98 48 e7 20 6d 73 67 |laim(l).|..H. msg|
|00005db0| 62 75 66 66 65 72 32 25 | 3d 2d 31 20 8c 85 20 26 |buffer2%|=-1 .. &|
|00005dc0| 38 30 32 2c 22 4e 6f 20 | 72 6f 6f 6d 20 66 6f 72 |802,"No |room for|
|00005dd0| 20 73 65 63 6f 6e 64 61 | 72 79 20 4d 65 73 73 61 | seconda|ry Messa|
|00005de0| 67 65 54 72 61 6e 73 20 | 62 75 66 66 65 72 22 0d |geTrans |buffer".|
|00005df0| 1c a2 71 6d 73 67 62 75 | 66 66 65 72 25 3d a4 63 |..qmsgbu|ffer%=.c|
|00005e00| 6c 61 69 6d 28 31 36 29 | 3a e7 20 6d 73 67 62 75 |laim(16)|:. msgbu|
|00005e10| 66 66 65 72 25 3d 2d 31 | 20 8c f2 72 65 6c 65 61 |ffer%=-1| ..relea|
|00005e20| 73 65 28 6d 73 67 62 75 | 66 66 65 72 32 25 29 3a |se(msgbu|ffer2%):|
|00005e30| 85 20 26 38 30 32 2c 22 | 4e 6f 20 72 6f 6f 6d 20 |. &802,"|No room |
|00005e40| 66 6f 72 20 70 72 69 6d | 61 72 79 20 4d 65 73 73 |for prim|ary Mess|
|00005e50| 61 67 65 54 72 61 6e 73 | 20 62 75 66 66 65 72 22 |ageTrans| buffer"|
|00005e60| 0d 1c ac 49 c8 99 20 22 | 4d 65 73 73 61 67 65 54 |...I.. "|MessageT|
|00005e70| 72 61 6e 73 5f 4f 70 65 | 6e 46 69 6c 65 22 2c 6d |rans_Ope|nFile",m|
|00005e80| 73 67 62 75 66 66 65 72 | 25 2c 41 70 70 64 69 72 |sgbuffer|%,Appdir|
|00005e90| 24 2b 22 2e 4d 65 73 73 | 61 67 65 73 22 2c 6d 73 |$+".Mess|ages",ms|
|00005ea0| 67 62 75 66 66 65 72 32 | 25 0d 1c b6 05 e1 0d 1c |gbuffer2|%.......|
|00005eb0| c0 13 dd f2 63 6c 6f 73 | 65 6d 65 73 73 61 67 65 |....clos|emessage|
|00005ec0| 73 0d 1c ca 07 ea 20 85 | 0d 1c d4 1e ee 20 85 20 |s..... .|..... . |
|00005ed0| ea 3a ef 34 3a f6 3a f1 | 22 20 61 74 20 22 3b 9e |.:.4:.:.|" at ";.|
|00005ee0| 3a 47 3d a5 3a e1 0d 1c | de 15 e7 20 6d 73 67 62 |:G=.:...|... msgb|
|00005ef0| 75 66 66 65 72 25 3e 2d | 31 20 8c 0d 1c e8 2c 20 |uffer%>-|1 ...., |
|00005f00| c8 99 20 22 58 4d 65 73 | 73 61 67 65 54 72 61 6e |.. "XMes|sageTran|
|00005f10| 73 5f 43 6c 6f 73 65 46 | 69 6c 65 22 2c 6d 73 67 |s_CloseF|ile",msg|
|00005f20| 62 75 66 66 65 72 25 0d | 1c f2 2f 20 f2 72 65 6c |buffer%.|../ .rel|
|00005f30| 65 61 73 65 28 6d 73 67 | 62 75 66 66 65 72 25 29 |ease(msg|buffer%)|
|00005f40| 3a f2 72 65 6c 65 61 73 | 65 28 6d 73 67 62 75 66 |:.releas|e(msgbuf|
|00005f50| 66 65 72 32 25 29 0d 1c | fc 05 cd 0d 1d 06 05 e1 |fer2%)..|........|
|00005f60| 0d 1d 10 05 3a 0d 1d 1a | 39 f4 20 46 4e 6d 73 67 |....:...|9. FNmsg|
|00005f70| 74 6f 6b 65 6e 20 20 20 | 20 20 20 20 20 3a 20 74 |token   |     : t|
|00005f80| 72 61 6e 73 6c 61 74 65 | 20 61 20 74 6f 6b 65 6e |ranslate| a token|
|00005f90| 20 69 6e 74 6f 20 61 20 | 73 74 72 69 6e 67 0d 1d | into a |string..|
|00005fa0| 24 42 f4 20 46 4e 6d 73 | 67 74 65 78 74 20 20 20 |$B. FNms|gtext   |
|00005fb0| 20 20 20 20 20 20 3a 20 | 74 72 61 6e 73 6c 61 74 |      : |translat|
|00005fc0| 65 20 74 65 78 74 20 74 | 6f 20 61 20 74 6f 6b 65 |e text t|o a toke|
|00005fd0| 6e 20 69 66 20 70 72 65 | 66 69 78 20 69 73 20 3e |n if pre|fix is >|
|00005fe0| 0d 1d 38 2a dd a4 6d 73 | 67 74 6f 6b 65 6e 28 74 |..8*..ms|gtoken(t|
|00005ff0| 24 29 3a ea 20 73 31 24 | 2c 73 32 24 2c 73 33 24 |$):. s1$|,s2$,s3$|
|00006000| 2c 61 24 2c 6c 65 6e 25 | 2c 66 0d 1d 42 18 e7 20 |,a$,len%|,f..B.. |
|00006010| 6d 73 67 62 75 66 66 65 | 72 25 3d 2d 31 20 8c 3d |msgbuffe|r%=-1 .=|
|00006020| 74 24 0d 1d 4c 31 61 24 | 3d c1 74 24 2c a7 74 24 |t$..L1a$|=.t$,.t$|
|00006030| 2b 22 3a 22 2c 22 3a 22 | 29 2b 31 29 3a 74 24 3d |+":",":"|)+1):t$=|
|00006040| c0 74 24 2c a7 74 24 2b | 22 3a 22 2c 22 3a 22 29 |.t$,.t$+|":",":")|
|00006050| 2d 31 29 0d 1d 56 1b 73 | 31 24 3d c0 61 24 2c a7 |-1)..V.s|1$=.a$,.|
|00006060| 61 24 2b 22 3a 22 2c 22 | 3a 22 29 2d 31 29 0d 1d |a$+":","|:")-1)..|
|00006070| 60 13 e7 20 c0 73 31 24 | 2c 31 29 3d 22 7c 22 20 |`.. .s1$|,1)="|" |
|00006080| 8c 0d 1d 6a 1d 20 73 31 | 24 3d c1 61 24 2c 32 29 |...j. s1|$=.a$,2)|
|00006090| 3a 73 32 24 3d 22 22 3a | 73 33 24 3d 22 22 0d 1d |:s2$="":|s3$=""..|
|000060a0| 74 05 cc 0d 1d 7e 2d 20 | 61 24 3d c1 61 24 2c a9 |t....~- |a$=.a$,.|
|000060b0| 28 73 31 24 29 2b 32 29 | 3a 73 32 24 3d c0 61 24 |(s1$)+2)|:s2$=.a$|
|000060c0| 2c a7 61 24 2b 22 3a 22 | 2c 22 3a 22 29 2d 31 29 |,.a$+":"|,":")-1)|
|000060d0| 0d 1d 88 38 20 e7 20 c0 | 73 32 24 2c 31 29 3d 22 |...8 . .|s2$,1)="|
|000060e0| 7c 22 20 8c 73 32 24 3d | c1 61 24 2c 32 29 3a 73 ||" .s2$=|.a$,2):s|
|000060f0| 33 24 3d 22 22 20 8b 73 | 33 24 3d c1 61 24 2c a9 |3$="" .s|3$=.a$,.|
|00006100| 28 73 32 24 29 2b 32 29 | 0d 1d 92 05 cd 0d 1d 9c |(s2$)+2)|........|
|00006110| 57 c8 99 20 22 58 4d 65 | 73 73 61 67 65 54 72 61 |W.. "XMe|ssageTra|
|00006120| 6e 73 5f 4c 6f 6f 6b 75 | 70 22 2c 6d 73 67 62 75 |ns_Looku|p",msgbu|
|00006130| 66 66 65 72 25 2c 74 24 | 2c 6d 65 73 73 61 67 65 |ffer%,t$|,message|
|00006140| 5f 62 75 66 66 65 72 25 | 2c 32 35 36 2c 73 31 24 |_buffer%|,256,s1$|
|00006150| 2c 73 32 24 2c 73 33 24 | 20 b8 20 2c 2c 2c 6c 65 |,s2$,s3$| . ,,,le|
|00006160| 6e 25 3b 66 0d 1d a6 2c | e7 20 28 66 20 80 31 29 |n%;f...,|. (f .1)|
|00006170| 3d 31 20 8c 3d 74 24 20 | 8b 6d 65 73 73 61 67 65 |=1 .=t$ |.message|
|00006180| 5f 62 75 66 66 65 72 25 | 3f 6c 65 6e 25 3d 31 33 |_buffer%|?len%=13|
|00006190| 0d 1d b0 21 3d a4 73 75 | 62 73 74 76 61 72 73 28 |...!=.su|bstvars(|
|000061a0| 24 6d 65 73 73 61 67 65 | 5f 62 75 66 66 65 72 25 |$message|_buffer%|
|000061b0| 29 0d 1d ba 11 dd a4 6d | 73 67 74 65 78 74 28 61 |)......m|sgtext(a|
|000061c0| 24 29 0d 1d c4 26 e7 20 | c0 61 24 2c 31 29 3d 22 |$)...&. |.a$,1)="|
|000061d0| 3e 22 20 8c 61 24 3d a4 | 6d 73 67 74 6f 6b 65 6e |>" .a$=.|msgtoken|
|000061e0| 28 c1 61 24 2c 32 29 29 | 0d 1d ce 07 3d 61 24 0d |(.a$,2))|....=a$.|
|000061f0| 1d d8 05 3a 0d 1d e2 37 | f4 20 2a 2a 2a 2a 2a 2a |...:...7|. ******|
|00006200| 2a 2a 20 53 74 72 69 6e | 67 20 6d 61 6e 69 70 75 |** Strin|g manipu|
|00006210| 6c 61 74 69 6f 6e 20 72 | 6f 75 74 69 6e 65 73 20 |lation r|outines |
|00006220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 1d ec 05 3a |********|***....:|
|00006230| 0d 1d f6 38 f4 20 46 4e | 73 74 72 69 6e 67 30 20 |...8. FN|string0 |
|00006240| 3a 20 52 65 74 75 72 6e | 20 30 2d 74 65 72 6d 69 |: Return| 0-termi|
|00006250| 6e 61 74 65 64 20 73 74 | 72 69 6e 67 20 61 74 20 |nated st|ring at |
|00006260| 6c 6f 63 61 74 69 6f 6e | 0d 1e 00 22 dd a4 73 74 |location|..."..st|
|00006270| 72 69 6e 67 30 28 61 25 | 29 3a ea 20 61 24 3a e7 |ring0(a%|):. a$:.|
|00006280| 20 61 25 3d 30 20 8c 3d | 22 22 0d 1e 0a 2d c8 95 | a%=0 .=|""...-..|
|00006290| 3f 61 25 3e 33 31 20 80 | 20 a9 28 61 24 29 3c 32 |?a%>31 .| .(a$)<2|
|000062a0| 35 35 3a 61 24 3d 61 24 | 2b bd 3f 61 25 3a 61 25 |55:a$=a$|+.?a%:a%|
|000062b0| 3d 61 25 2b 31 3a ce 0d | 1e 14 07 3d 61 24 0d 1e |=a%+1:..|...=a$..|
|000062c0| 1e 05 3a 0d 1e 28 37 f4 | 20 46 4e 6c 6f 77 65 72 |..:..(7.| FNlower|
|000062d0| 20 20 20 20 20 20 20 3a | 20 52 65 74 75 72 6e 20 |       :| Return |
|000062e0| 67 69 76 65 6e 20 73 74 | 72 69 6e 67 20 69 6e 20 |given st|ring in |
|000062f0| 6c 6f 77 65 72 20 63 61 | 73 65 0d 1e 32 37 f4 20 |lower ca|se..27. |
|00006300| 46 4e 75 70 70 65 72 20 | 20 20 20 20 20 20 3a 20 |FNupper |      : |
|00006310| 52 65 74 75 72 6e 20 67 | 69 76 65 6e 20 73 74 72 |Return g|iven str|
|00006320| 69 6e 67 20 69 6e 20 75 | 70 70 65 72 20 63 61 73 |ing in u|pper cas|
|00006330| 65 0d 1e 3c 38 f4 20 46 | 4e 74 69 64 79 20 20 20 |e..<8. F|Ntidy   |
|00006340| 20 20 20 20 20 3a 20 52 | 65 74 75 72 6e 20 67 69 |     : R|eturn gi|
|00006350| 76 65 6e 20 73 74 72 69 | 6e 67 20 69 6e 20 74 69 |ven stri|ng in ti|
|00006360| 64 79 20 66 6f 72 6d 61 | 74 0d 1e 46 40 f4 20 46 |dy forma|t..F@. F|
|00006370| 4e 73 74 72 69 70 73 70 | 61 63 65 73 20 3a 20 52 |Nstripsp|aces : R|
|00006380| 65 6d 6f 76 65 20 73 70 | 61 63 65 73 20 66 72 6f |emove sp|aces fro|
|00006390| 6d 20 73 74 61 72 74 20 | 61 6e 64 20 65 6e 64 20 |m start |and end |
|000063a0| 6f 66 20 73 74 72 69 6e | 67 0d 1e 47 19 dd a4 6c |of strin|g..G...l|
|000063b0| 6f 77 65 72 28 61 24 29 | 3a ea 20 63 24 2c 62 24 |ower(a$)|:. c$,b$|
|000063c0| 2c 49 0d 1e 48 0e e3 49 | 3d 31 b8 a9 28 61 24 29 |,I..H..I|=1..(a$)|
|000063d0| 0d 1e 49 30 63 24 3d c1 | 61 24 2c 49 2c 31 29 3a |..I0c$=.|a$,I,1):|
|000063e0| e7 20 63 24 3e 3d 22 41 | 22 80 63 24 3c 3d 22 5a |. c$>="A|".c$<="Z|
|000063f0| 22 8c 63 24 3d bd 28 97 | 28 63 24 29 2b 33 32 29 |".c$=.(.|(c$)+32)|
+--------+-------------------------+-------------------------+--------+--------+