00000000  20 20 9f e5 0c 30 4f e2  03 00 82 e0 0f 1c 80 e2  |  ...0O.........|
00000010  04 30 10 e4 04 30 01 e4  04 20 52 e2 fb ff ff 1a  |.0...0... R.....|
00000020  28 c0 4f e2 b7 0a 00 ea  80 1c 00 00 0d 00 0a 21  |(.O............!|
00000030  76 65 72 73 69 6f 6e 24  3d 22 31 2e 35 36 20 28  |version$="1.56 (|
00000040  31 36 2d 4f 63 74 2d 31  39 39 34 29 22 0d 00 14  |16-Oct-1994)"...|
00000050  39 c8 99 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |9.."Wimp_Initial|
00000060  69 73 65 22 2c 32 30 30  2c 26 34 42 35 33 34 31  |ise",200,&4B5341|
00000070  35 34 2c 22 4d 65 72 67  65 44 72 61 77 22 b8 20  |54,"MergeDraw". |
00000080  2c 74 61 73 6b 25 0d 00  1e 35 c8 99 22 57 69 6d  |,task%...5.."Wim|
00000090  70 45 78 74 5f 49 6e 69  74 69 61 6c 69 73 65 22  |pExt_Initialise"|
000000a0  2c 35 2c 74 61 73 6b 25  2c 25 31 30 30 30 31 30  |,5,task%,%100010|
000000b0  20 b8 20 77 69 6d 70 65  78 74 25 0d 00 28 7a de  | . wimpext%..(z.|
000000c0  71 25 35 31 32 2c 69 6e  64 72 25 35 31 32 2c 6d  |q%512,indr%512,m|
000000d0  65 6e 75 25 38 30 3a 69  6e 64 72 5f 65 6e 64 25  |enu%80:indr_end%|
000000e0  3d 69 6e 64 72 25 2b 35  31 32 3a 66 69 6e 69 73  |=indr%+512:finis|
000000f0  68 65 64 25 3d a3 3a 69  6e 24 3d 22 22 3a 6f 6b  |hed%=.:in$="":ok|
00000100  25 3d a3 3a 72 64 25 3d  30 3a 77 72 25 3d 30 3a  |%=.:rd%=0:wr%=0:|
00000110  6d 6c 6f 77 78 25 3d 30  3a 6d 6c 6f 77 79 25 3d  |mlowx%=0:mlowy%=|
00000120  30 3a 6d 68 69 67 68 78  25 3d 30 3a 6d 68 69 67  |0:mhighx%=0:mhig|
00000130  68 79 25 3d 30 0d 00 32  84 c8 99 22 57 69 6d 70  |hy%=0..2..."Wimp|
00000140  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
00000150  22 3c 4d 65 72 67 65 44  72 61 77 24 44 69 72 3e  |"<MergeDraw$Dir>|
00000160  2e 54 65 6d 70 6c 61 74  65 73 22 3a 70 72 6f 67  |.Templates":prog|
00000170  5f 69 6e 66 6f 25 3d a4  63 72 65 61 74 65 77 69  |_info%=.createwi|
00000180  6e 28 22 69 6e 66 6f 22  29 3a 73 61 76 65 25 3d  |n("info"):save%=|
00000190  a4 63 72 65 61 74 65 77  69 6e 28 22 73 61 76 65  |.createwin("save|
000001a0  22 29 3a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |"):.."Wimp_Close|
000001b0  54 65 6d 70 6c 61 74 65  22 0d 00 3c 35 c8 99 22  |Template"..<5.."|
000001c0  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 53  |WimpExt_SetIconS|
000001d0  74 72 69 6e 67 22 2c 2c  2c 70 72 6f 67 5f 69 6e  |tring",,,prog_in|
000001e0  66 6f 25 2c 37 2c 76 65  72 73 69 6f 6e 24 0d 00  |fo%,7,version$..|
000001f0  46 45 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 32 35  |FE.."OS_File",25|
00000200  35 2c 22 3c 4d 65 72 67  65 44 72 61 77 24 44 69  |5,"<MergeDraw$Di|
00000210  72 3e 2e 4d 65 6e 75 73  22 2c 6d 65 6e 75 25 3a  |r>.Menus",menu%:|
00000220  6d 65 6e 75 25 21 33 32  3d 70 72 6f 67 5f 69 6e  |menu%!32=prog_in|
00000230  66 6f 25 0d 00 50 6a 21  71 25 3d 2d 31 3a 71 25  |fo%..Pj!q%=-1:q%|
00000240  21 34 3d 30 3a 71 25 21  38 3d 30 3a 71 25 21 31  |!4=0:q%!8=0:q%!1|
00000250  32 3d 36 38 3a 71 25 21  31 36 3d 36 38 3a 71 25  |2=68:q%!16=68:q%|
00000260  21 32 30 3d 26 33 30 30  32 3a 24 28 71 25 2b 32  |!20=&3002:$(q%+2|
00000270  34 29 3d 22 21 6d 65 72  67 65 64 72 61 77 22 3a  |4)="!mergedraw":|
00000280  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |.."Wimp_CreateIc|
00000290  6f 6e 22 2c 2c 71 25 b8  62 69 63 6e 25 0d 00 5a  |on",,q%.bicn%..Z|
000002a0  0c ee 85 f2 65 72 72 6f  72 0d 00 64 05 f5 0d 00  |....error..d....|
000002b0  6e 21 c8 99 22 58 57 69  6d 70 45 78 74 5f 53 6c  |n!.."XWimpExt_Sl|
000002c0  61 62 49 63 6f 6e 22 2c  2c 2c 30 2c 30 2c 30 0d  |abIcon",,,0,0,0.|
000002d0  00 78 17 c8 99 22 57 69  6d 70 45 78 74 5f 50 72  |.x..."WimpExt_Pr|
000002e0  65 50 6f 6c 6c 22 0d 00  82 1d c8 99 22 57 69 6d  |ePoll"......"Wim|
000002f0  70 5f 50 6f 6c 6c 22 2c  2c 71 25 b8 72 65 61 73  |p_Poll",,q%.reas|
00000300  6f 6e 25 0d 00 8c 31 c8  99 22 57 69 6d 70 45 78  |on%...1.."WimpEx|
00000310  74 5f 41 63 74 69 6f 6e  22 2c 74 61 73 6b 25 2c  |t_Action",task%,|
00000320  71 25 2c 72 65 61 73 6f  6e 25 20 b8 20 72 65 61  |q%,reason% . rea|
00000330  73 6f 6e 25 0d 00 96 0e  c8 8e 72 65 61 73 6f 6e  |son%......reason|
00000340  25 ca 0d 00 a0 28 c9 31  3a c8 99 22 57 69 6d 70  |%....(.1:.."Wimp|
00000350  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00000360  71 25 20 b8 20 6d 6f 72  65 25 0d 00 aa 0b c8 95  |q% . more%......|
00000370  6d 6f 72 65 25 0d 00 b4  1a c8 99 22 57 69 6d 70  |more%......"Wimp|
00000380  45 78 74 5f 52 65 64 72  61 77 22 2c 2c 71 25 0d  |Ext_Redraw",,q%.|
00000390  00 be 25 c8 99 22 57 69  6d 70 5f 47 65 74 52 65  |..%.."Wimp_GetRe|
000003a0  63 74 61 6e 67 6c 65 22  2c 2c 71 25 20 b8 20 6d  |ctangle",,q% . m|
000003b0  6f 72 65 25 0d 00 c8 05  ce 0d 00 d2 1e c9 32 3a  |ore%..........2:|
000003c0  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
000003d0  6f 77 22 2c 2c 71 25 0d  00 dc 22 c9 33 3a c8 99  |ow",,q%...".3:..|
000003e0  22 57 69 6d 70 45 78 74  5f 43 6c 6f 73 65 4c 69  |"WimpExt_CloseLi|
000003f0  6e 6b 65 64 22 2c 2c 71  25 0d 00 e6 0d c9 36 3a  |nked",,q%.....6:|
00000400  f2 6d 6f 75 73 65 0d 00  f0 12 c9 37 3a f2 64 72  |.mouse.....7:.dr|
00000410  61 67 62 6f 78 65 6e 64  0d 00 fa 20 c9 38 3a c8  |agboxend... .8:.|
00000420  99 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  |."Wimp_ProcessKe|
00000430  79 22 2c 71 25 21 32 34  0d 01 04 65 c9 39 3a e7  |y",q%!24...e.9:.|
00000440  21 71 25 3d 31 20 66 69  6e 69 73 68 65 64 25 3d  |!q%=1 finished%=|
00000450  b9 20 8b 20 c8 99 22 57  69 6d 70 5f 47 65 74 50  |. . .."Wimp_GetP|
00000460  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 71 25 3a  |ointerInfo",,q%:|
00000470  e7 71 25 21 38 3d 31 c8  99 22 57 69 6d 70 5f 43  |.q%!8=1.."Wimp_C|
00000480  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00000490  25 2c 21 71 25 2d 37 32  2c 71 25 21 34 0d 01 0e  |%,!q%-72,q%!4...|
000004a0  13 c9 31 37 2c 31 38 3a  c8 8e 71 25 21 31 36 ca  |..17,18:..q%!16.|
000004b0  0d 01 18 12 c9 30 3a 66  69 6e 69 73 68 65 64 25  |.....0:finished%|
000004c0  3d b9 0d 01 22 19 c9 32  3a f2 73 61 76 65 28 a4  |=..."..2:.save(.|
000004d0  76 61 72 28 71 25 2b 34  34 29 29 0d 01 2c 69 c9  |var(q%+44))..,i.|
000004e0  33 3a e7 71 25 21 34 30  3d 26 41 46 46 20 69 6e  |3:.q%!40=&AFF in|
000004f0  24 3d a4 76 61 72 28 71  25 2b 34 34 29 3a c8 99  |$=.var(q%+44):..|
00000500  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00000510  49 6e 66 6f 22 2c 2c 71  25 3a c8 99 22 57 69 6d  |Info",,q%:.."Wim|
00000520  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 73  |p_CreateMenu",,s|
00000530  61 76 65 25 2c 21 71 25  2d 31 35 32 2c 71 25 21  |ave%,!q%-152,q%!|
00000540  34 2b 36 38 0d 01 36 77  c9 31 30 3a 68 25 3d 71  |4+68..6w.10:h%=q|
00000550  25 21 32 30 3a c8 99 22  4f 53 5f 52 65 61 64 56  |%!20:.."OS_ReadV|
00000560  61 72 56 61 6c 22 2c 22  4d 65 72 67 65 44 72 61  |arVal","MergeDra|
00000570  77 24 44 69 72 22 2c 71  25 2b 32 35 36 2c 32 35  |w$Dir",q%+256,25|
00000580  36 2c 30 2c 33 20 b8 20  2c 2c 65 6e 64 25 3a 71  |6,0,3 . ,,end%:q|
00000590  32 25 3d 71 25 2b 32 35  36 3a 71 32 25 3f 65 6e  |2%=q%+256:q2%?en|
000005a0  64 25 3d 31 33 3a d5 23  68 25 2c 22 52 75 6e 20  |d%=13:.#h%,"Run |
000005b0  22 2b 24 28 71 25 2b 32  35 36 29 0d 01 40 1a c9  |"+$(q%+256)..@..|
000005c0  20 26 35 30 32 20 3a 20  68 61 6e 64 6c 65 25 3d  | &502 : handle%=|
000005d0  71 25 21 33 32 0d 01 4a  1b 20 20 20 20 20 20 20  |q%!32..J.       |
000005e0  20 20 20 20 20 69 63 6f  6e 25 3d 71 25 21 33 36  |     icon%=q%!36|
000005f0  0d 01 54 1c 20 20 20 20  20 20 20 20 20 20 20 20  |..T.            |
00000600  c8 8e 20 68 61 6e 64 6c  65 25 20 ca 0d 01 5e c8  |.. handle% ...^.|
00000610  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 2d 32  |            . -2|
00000620  20 20 20 3a f2 68 65 6c  70 28 22 54 68 69 73 20  |   :.help("This |
00000630  69 73 20 74 68 65 20 4d  65 72 67 65 44 72 61 77  |is the MergeDraw|
00000640  20 69 63 6f 6e 2e 7c 4d  44 72 61 67 20 61 20 44  | icon.|MDrag a D|
00000650  72 61 77 66 69 6c 65 20  6f 6e 20 74 6f 20 74 68  |rawfile on to th|
00000660  65 20 69 63 6f 6e 20 74  6f 20 6d 65 72 67 65 20  |e icon to merge |
00000670  74 68 65 20 66 69 6c 65  2e 7c 4d 43 6c 69 63 6b  |the file.|MClick|
00000680  20 4d 45 4e 55 20 74 6f  20 6f 70 65 6e 20 75 70  | MENU to open up|
00000690  20 74 68 65 20 6d 61 69  6e 20 6d 65 6e 75 2e 7c  | the main menu.||
000006a0  4d 43 6c 69 63 6b 20 41  44 4a 55 53 54 20 74 6f  |MClick ADJUST to|
000006b0  20 6f 70 65 6e 20 61 20  70 72 65 76 6f 75 73 6c  | open a prevousl|
000006c0  79 20 63 6c 6f 73 65 64  20 73 61 76 65 20 62 6f  |y closed save bo|
000006d0  78 2e 22 29 0d 01 68 28  20 20 20 20 20 20 20 20  |x.")..h(        |
000006e0  20 20 20 20 c9 20 70 72  6f 67 5f 69 6e 66 6f 25  |    . prog_info%|
000006f0  20 3a c8 8e 20 69 63 6f  6e 25 20 ca 0d 01 72 5b  | :.. icon% ...r[|
00000700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000710  20 20 20 20 20 20 20 20  20 20 20 20 20 7f 20 3a  |             . :|
00000720  f2 68 65 6c 70 28 22 54  68 69 73 20 77 69 6e 64  |.help("This wind|
00000730  6f 77 20 64 69 73 70 6c  61 79 73 20 69 6e 66 6f  |ow displays info|
00000740  72 6d 61 74 69 6f 6e 20  6f 6e 20 4d 65 72 67 65  |rmation on Merge|
00000750  44 72 61 77 2e 22 29 0d  01 7c 22 20 20 20 20 20  |Draw.")..|"     |
00000760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000770  20 20 20 20 20 20 20 20  cb 0d 01 86 23 20 20 20  |        ....#   |
00000780  20 20 20 20 20 20 20 20  20 c9 20 73 61 76 65 25  |         . save%|
00000790  20 3a c8 8e 20 69 63 6f  6e 25 20 ca 0d 01 90 89  | :.. icon% .....|
000007a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007b0  20 20 20 20 20 20 20 20  c9 20 30 20 3a f2 68 65  |        . 0 :.he|
000007c0  6c 70 28 22 54 79 70 65  20 69 6e 20 61 20 70 61  |lp("Type in a pa|
000007d0  74 68 6e 61 6d 65 20 74  6f 20 73 61 76 65 20 74  |thname to save t|
000007e0  68 65 20 66 69 6c 65 20  61 73 2e 7c 4d 50 72 65  |he file as.|MPre|
000007f0  73 73 20 52 45 54 55 52  4e 20 74 6f 20 73 61 76  |ss RETURN to sav|
00000800  65 20 74 68 65 20 66 69  6c 65 20 61 73 20 74 68  |e the file as th|
00000810  65 20 63 75 72 72 65 6e  74 20 70 61 74 68 6e 61  |e current pathna|
00000820  6d 65 2e 22 29 0d 01 9a  67 20 20 20 20 20 20 20  |me.")...g       |
00000830  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000840  20 c9 20 31 20 3a f2 68  65 6c 70 28 22 43 6c 69  | . 1 :.help("Cli|
00000850  63 6b 20 74 68 69 73 20  62 75 74 74 6f 6e 20 74  |ck this button t|
00000860  6f 20 73 61 76 65 20 74  68 65 20 66 69 6c 65 20  |o save the file |
00000870  77 69 74 68 20 74 68 65  20 63 75 72 72 65 6e 74  |with the current|
00000880  20 70 61 74 68 6e 61 6d  65 2e 22 29 0d 01 a4 60  | pathname.")...`|
00000890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008a0  20 20 20 20 20 20 20 20  c9 20 33 20 3a f2 68 65  |        . 3 :.he|
000008b0  6c 70 28 22 44 72 61 67  20 74 68 69 73 20 69 63  |lp("Drag this ic|
000008c0  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
000008d0  79 20 76 69 65 77 65 72  20 74 6f 20 73 61 76 65  |y viewer to save|
000008e0  20 74 68 65 20 66 69 6c  65 2e 22 29 0d 01 ae 5f  | the file.")..._|
000008f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000900  20 20 20 20 20 20 20 20  7f 20 3a f2 68 65 6c 70  |        . :.help|
00000910  28 22 54 68 69 73 20 77  69 6e 64 6f 77 20 63 6f  |("This window co|
00000920  6e 74 72 6f 6c 73 20 74  68 65 20 6f 75 74 70 75  |ntrols the outpu|
00000930  74 20 6f 66 20 74 68 65  20 6d 65 72 67 65 64 20  |t of the merged |
00000940  44 72 61 77 66 69 6c 65  2e 22 29 0d 01 b8 1d 20  |Drawfile.").... |
00000950  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000960  20 20 20 20 20 20 20 cb  0d 01 c2 11 20 20 20 20  |       .....    |
00000970  20 20 20 20 20 20 20 20  cb 0d 01 cc 05 cb 0d 01  |        ........|
00000980  d6 05 cb 0d 01 e0 0e fd  66 69 6e 69 73 68 65 64  |........finished|
00000990  25 0d 01 ea 1f c8 99 22  57 69 6d 70 45 78 74 5f  |%......"WimpExt_|
000009a0  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 25  |CloseDown",task%|
000009b0  0d 01 f4 16 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
000009c0  65 44 6f 77 6e 22 0d 01  fe 05 e0 0d 02 08 0b dd  |eDown"..........|
000009d0  f2 6d 6f 75 73 65 0d 02  12 0c c8 8e 71 25 21 31  |.mouse......q%!1|
000009e0  32 ca 0d 02 1c 10 c9 2d  32 3a c8 8e 71 25 21 31  |2......-2:..q%!1|
000009f0  36 ca 0d 02 26 12 c9 62  69 63 6e 25 3a c8 8e 71  |6...&..bicn%:..q|
00000a00  25 21 38 ca 0d 02 30 2c  c9 32 3a c8 99 22 57 69  |%!8...0,.2:.."Wi|
00000a10  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000a20  6d 65 6e 75 25 2c 21 71  25 2d 37 36 2c 31 38 34  |menu%,!q%-76,184|
00000a30  0d 02 3a 55 c9 31 3a e7  69 6e 24 3c 3e 22 22 c8  |..:U.1:.in$<>"".|
00000a40  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
00000a50  72 49 6e 66 6f 22 2c 2c  71 25 3a c8 99 22 57 69  |rInfo",,q%:.."Wi|
00000a60  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000a70  73 61 76 65 25 2c 21 71  25 2d 31 35 32 2c 71 25  |save%,!q%-152,q%|
00000a80  21 34 2b 36 38 0d 02 44  05 cb 0d 02 4e 05 cb 0d  |!4+68..D....N...|
00000a90  02 58 12 c9 73 61 76 65  25 3a c8 8e 71 25 21 38  |.X..save%:..q%!8|
00000aa0  ca 0d 02 62 11 c9 34 2c  31 3a c8 8e 71 25 21 31  |...b..4,1:..q%!1|
00000ab0  36 ca 0d 02 6c 26 c9 31  3a f2 73 61 76 65 28 a4  |6...l&.1:.save(.|
00000ac0  76 61 72 28 a4 74 65 78  74 61 64 64 72 28 73 61  |var(.textaddr(sa|
00000ad0  76 65 25 2c 30 29 29 29  0d 02 76 0f c9 33 3a f2  |ve%,0)))..v..3:.|
00000ae0  64 72 61 67 62 6f 78 0d  02 80 05 cb 0d 02 8a 05  |dragbox.........|
00000af0  cb 0d 02 94 05 cb 0d 02  9e 05 e1 0d 02 a8 0e dd  |................|
00000b00  20 f2 64 72 61 67 62 6f  78 0d 02 b2 3a c8 99 20  | .dragbox...:.. |
00000b10  22 57 69 6d 70 45 78 74  5f 44 72 61 67 49 63 6f  |"WimpExt_DragIco|
00000b20  6e 22 2c 25 31 30 30 30  30 30 31 30 31 2c 2b 31  |n",%100000101,+1|
00000b30  2c 73 61 76 65 25 2c 33  2c 22 66 69 6c 65 5f 61  |,save%,3,"file_a|
00000b40  66 66 22 0d 02 bc 05 e1  0d 02 c6 11 dd 20 f2 64  |ff".......... .d|
00000b50  72 61 67 62 6f 78 65 6e  64 0d 02 d0 31 c8 99 20  |ragboxend...1.. |
00000b60  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00000b70  49 6e 66 6f 22 2c 2c 71  25 3a e7 20 71 25 21 31  |Info",,q%:. q%!1|
00000b80  32 3c 3e 73 61 76 65 25  20 8c 0d 02 da d2 71 25  |2<>save% .....q%|
00000b90  21 32 30 3d 71 25 21 31  32 3a 71 25 21 32 34 3d  |!20=q%!12:q%!24=|
00000ba0  71 25 21 31 36 3a 71 25  21 32 38 3d 21 71 25 3a  |q%!16:q%!28=!q%:|
00000bb0  71 25 21 33 32 3d 71 25  21 34 3a 71 25 21 31 32  |q%!32=q%!4:q%!12|
00000bc0  3d 30 3a 71 25 21 31 36  3d 31 3a 71 25 21 33 36  |=0:q%!16=1:q%!36|
00000bd0  3d 2d 31 3a 71 25 21 34  30 3d 26 61 66 66 3a 24  |=-1:q%!40=&aff:$|
00000be0  28 71 25 2b 34 34 29 3d  a4 6c 65 61 66 28 a4 76  |(q%+44)=.leaf(.v|
00000bf0  61 72 28 a4 74 65 78 74  61 64 64 72 28 73 61 76  |ar(.textaddr(sav|
00000c00  65 25 2c 30 29 29 29 2b  bd 30 3a 21 71 25 3d 34  |e%,0)))+.0:!q%=4|
00000c10  34 2b 28 a9 28 a4 76 61  72 28 a4 74 65 78 74 61  |4+(.(.var(.texta|
00000c20  64 64 72 28 73 61 76 65  25 2c 30 29 29 29 2b 34  |ddr(save%,0)))+4|
00000c30  29 80 ac 33 3a c8 99 20  22 57 69 6d 70 5f 53 65  |)..3:.. "Wimp_Se|
00000c40  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
00000c50  2c 71 25 21 32 30 2c 71  25 21 32 34 0d 02 e4 05  |,q%!20,q%!24....|
00000c60  cd 0d 02 ee 05 e1 0d 02  f8 11 dd a4 6c 65 61 66  |............leaf|
00000c70  28 66 69 6c 65 24 29 0d  03 02 31 c8 95 a7 66 69  |(file$)...1...fi|
00000c80  6c 65 24 2c 22 3a 22 29  3e 30 3a 66 69 6c 65 24  |le$,":")>0:file$|
00000c90  3d c1 66 69 6c 65 24 2c  a7 66 69 6c 65 24 2c 22  |=.file$,.file$,"|
00000ca0  3a 22 29 2b 31 29 3a ce  0d 03 0c 31 c8 95 a7 66  |:")+1):....1...f|
00000cb0  69 6c 65 24 2c 22 2e 22  29 3e 30 3a 66 69 6c 65  |ile$,".")>0:file|
00000cc0  24 3d c1 66 69 6c 65 24  2c a7 66 69 6c 65 24 2c  |$=.file$,.file$,|
00000cd0  22 2e 22 29 2b 31 29 3a  ce 0d 03 16 0a 3d 66 69  |".")+1):.....=fi|
00000ce0  6c 65 24 0d 03 20 3e dd  a4 76 61 72 28 76 61 72  |le$.. >..var(var|
00000cf0  25 29 76 61 72 24 3d 22  22 3a c8 95 3f 76 61 72  |%)var$="":..?var|
00000d00  25 3e 33 31 3a 76 61 72  24 2b 3d bd 3f 76 61 72  |%>31:var$+=.?var|
00000d10  25 3a 76 61 72 25 2b 3d  31 3a ce 3a 3d 76 61 72  |%:var%+=1:.:=var|
00000d20  24 0d 03 2a 3d dd a4 74  65 78 74 61 64 64 72 28  |$..*=..textaddr(|
00000d30  77 69 6e 64 25 2c 69 63  6f 6e 25 29 f2 67 65 74  |wind%,icon%).get|
00000d40  69 63 6f 6e 73 74 61 74  65 28 77 69 6e 64 25 2c  |iconstate(wind%,|
00000d50  69 63 6f 6e 25 29 3a 3d  71 25 21 32 38 34 0d 03  |icon%):=q%!284..|
00000d60  34 3d dd a4 69 6e 64 72  61 64 64 72 28 77 69 6e  |4=..indraddr(win|
00000d70  64 25 2c 69 63 6f 6e 25  29 f2 67 65 74 69 63 6f  |d%,icon%).getico|
00000d80  6e 73 74 61 74 65 28 77  69 6e 64 25 2c 69 63 6f  |nstate(wind%,ico|
00000d90  6e 25 29 3a 3d 71 25 21  32 38 38 0d 03 3e 58 dd  |n%):=q%!288..>X.|
00000da0  f2 67 65 74 69 63 6f 6e  73 74 61 74 65 28 77 69  |.geticonstate(wi|
00000db0  6e 64 25 2c 69 63 6f 6e  25 29 71 25 21 32 35 36  |nd%,icon%)q%!256|
00000dc0  3d 77 69 6e 64 25 3a 71  25 21 32 36 30 3d 69 63  |=wind%:q%!260=ic|
00000dd0  6f 6e 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 49  |on%:.."Wimp_GetI|
00000de0  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 2b 32 35  |conState",,q%+25|
00000df0  36 3a e1 0d 03 48 7e dd  f2 73 65 74 69 63 6f 6e  |6:...H~..seticon|
00000e00  73 74 61 74 65 28 77 69  6e 64 25 2c 69 63 6f 6e  |state(wind%,icon|
00000e10  25 2c 65 6f 72 25 2c 63  6c 65 61 72 25 29 71 25  |%,eor%,clear%)q%|
00000e20  21 32 35 36 3d 77 69 6e  64 25 3a 71 25 21 32 36  |!256=wind%:q%!26|
00000e30  30 3d 69 63 6f 6e 25 3a  71 25 21 32 36 34 3d 65  |0=icon%:q%!264=e|
00000e40  6f 72 25 3a 71 25 21 32  36 38 3d 63 6c 65 61 72  |or%:q%!268=clear|
00000e50  25 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |%:.."Wimp_SetIco|
00000e60  6e 53 74 61 74 65 22 2c  2c 71 25 2b 32 35 36 3a  |nState",,q%+256:|
00000e70  e1 0d 03 52 7d dd f2 73  65 74 69 63 6f 6e 74 65  |...R}..seticonte|
00000e80  78 74 28 77 69 6e 64 25  2c 69 63 6f 6e 25 2c 74  |xt(wind%,icon%,t|
00000e90  65 78 74 24 29 f2 67 65  74 69 63 6f 6e 73 74 61  |ext$).geticonsta|
00000ea0  74 65 28 77 69 6e 64 25  2c 69 63 6f 6e 25 29 3a  |te(wind%,icon%):|
00000eb0  24 a4 74 65 78 74 61 64  64 72 28 77 69 6e 64 25  |$.textaddr(wind%|
00000ec0  2c 69 63 6f 6e 25 29 3d  74 65 78 74 24 3a f2 73  |,icon%)=text$:.s|
00000ed0  65 74 69 63 6f 6e 73 74  61 74 65 28 77 69 6e 64  |eticonstate(wind|
00000ee0  25 2c 69 63 6f 6e 25 2c  30 2c 30 29 3a e1 0d 03  |%,icon%,0,0):...|
00000ef0  5c 6b dd f2 6f 70 65 6e  77 69 6e 64 6f 77 28 77  |\k..openwindow(w|
00000f00  69 6e 64 25 29 71 25 21  32 35 36 3d 77 69 6e 64  |ind%)q%!256=wind|
00000f10  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00000f20  64 6f 77 53 74 61 74 65  22 2c 2c 71 25 2b 32 35  |dowState",,q%+25|
00000f30  36 3a 71 25 21 32 38 34  3d 2d 31 3a c8 99 22 57  |6:q%!284=-1:.."W|
00000f40  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000f50  2c 71 25 2b 32 35 36 3a  e1 0d 03 66 79 dd a4 63  |,q%+256:...fy..c|
00000f60  72 65 61 74 65 77 69 6e  28 74 65 6d 70 24 29 c8  |reatewin(temp$).|
00000f70  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000f80  61 74 65 22 2c 2c 71 25  2c 69 6e 64 72 25 2c 69  |ate",,q%,indr%,i|
00000f90  6e 64 72 5f 65 6e 64 25  2c 2d 31 2c 74 65 6d 70  |ndr_end%,-1,temp|
00000fa0  24 2c 30 b8 2c 2c 69 6e  64 72 25 3a c8 99 22 57  |$,0.,,indr%:.."W|
00000fb0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000fc0  22 2c 2c 71 25 b8 77 69  6e 64 25 3a 3d 77 69 6e  |",,q%.wind%:=win|
00000fd0  64 25 0d 03 70 2e dd a4  77 6f 72 64 3a 3d 9a 23  |d%..p...word:=.#|
00000fe0  72 64 25 84 9a 23 72 64  25 3c 3c 38 84 9a 23 72  |rd%..#rd%<<8..#r|
00000ff0  64 25 3c 3c 31 36 84 9a  23 72 64 25 3c 3c 32 34  |d%<<16..#rd%<<24|
00001000  0d 03 7a 2f dd a4 72 77  6f 72 64 3a 3d 9a 23 72  |..z/..rword:=.#r|
00001010  64 25 3c 3c 32 34 84 9a  23 72 64 25 3c 3c 31 36  |d%<<24..#rd%<<16|
00001020  84 9a 23 72 64 25 3c 3c  38 84 9a 23 72 64 25 0d  |..#rd%<<8..#rd%.|
00001030  03 84 04 0d 03 8e 12 dd  f2 6f 6b 28 6d 65 73 73  |.........ok(mess|
00001040  61 67 65 24 29 0d 03 98  15 6f 6b 25 3d a3 3a d9  |age$)....ok%=.:.|
00001050  23 72 64 25 3a d9 23 77  72 25 0d 03 a2 1e 71 25  |#rd%:.#wr%....q%|
00001060  21 38 3d 30 3a 71 25 21  31 32 3d 73 61 76 65 25  |!8=0:q%!12=save%|
00001070  3a 71 25 21 31 36 3d 30  0d 03 ac 5a 71 25 21 32  |:q%!16=0...Zq%!2|
00001080  35 36 3d 30 3a 24 28 71  25 2b 32 36 30 29 3d 6d  |56=0:$(q%+260)=m|
00001090  65 73 73 61 67 65 24 2b  bd 30 3a c8 99 22 57 69  |essage$+.0:.."Wi|
000010a0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
000010b0  71 25 2b 32 35 36 2c 31  37 2c 22 4d 65 73 73 61  |q%+256,17,"Messa|
000010c0  67 65 20 66 72 6f 6d 20  4d 65 72 67 65 44 72 61  |ge from MergeDra|
000010d0  77 22 0d 03 b6 05 e1 0d  03 c0 04 0d 03 ca 0b dd  |w"..............|
000010e0  f2 65 72 72 6f 72 0d 03  d4 15 6f 6b 25 3d a3 3a  |.error....ok%=.:|
000010f0  d9 23 72 64 25 3a d9 23  77 72 25 0d 03 de 1e 71  |.#rd%:.#wr%....q|
00001100  25 21 38 3d 30 3a 71 25  21 31 32 3d 73 61 76 65  |%!8=0:q%!12=save|
00001110  25 3a 71 25 21 31 36 3d  30 0d 03 e8 8e 71 25 21  |%:q%!16=0....q%!|
00001120  32 35 36 3d 9f 3a 24 28  71 25 2b 32 36 30 29 3d  |256=.:$(q%+260)=|
00001130  f6 24 2b 22 2c 20 63 6c  69 63 6b 20 4f 4b 20 74  |.$+", click OK t|
00001140  6f 20 63 6f 6e 74 69 6e  75 65 20 6f 72 20 43 61  |o continue or Ca|
00001150  6e 63 65 6c 20 74 6f 20  71 75 69 74 2e 22 2b bd  |ncel to quit."+.|
00001160  30 3a c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |0:.."Wimp_Report|
00001170  45 72 72 6f 72 22 2c 71  25 2b 32 35 36 2c 33 2c  |Error",q%+256,3,|
00001180  22 4d 65 72 67 65 44 72  61 77 22 b8 2c 62 74 6e  |"MergeDraw".,btn|
00001190  73 25 3a e7 62 74 6e 73  25 3d 32 20 66 69 6e 69  |s%:.btns%=2 fini|
000011a0  73 68 65 64 25 3d b9 0d  03 f2 05 e1 0d 03 fc 04  |shed%=..........|
000011b0  0d 04 06 11 dd 20 f2 73  61 76 65 28 6f 75 74 24  |..... .save(out$|
000011c0  29 0d 04 10 14 c8 99 22  48 6f 75 72 67 6c 61 73  |)......"Hourglas|
000011d0  73 5f 4f 6e 22 0d 04 1a  59 e7 a7 6f 75 74 24 2c  |s_On"...Y..out$,|
000011e0  22 2e 22 29 3c 31 80 a7  6f 75 74 24 2c 22 3a 22  |".")<1..out$,":"|
000011f0  29 3c 31 f2 6f 6b 28 22  54 6f 20 73 61 76 65 2c  |)<1.ok("To save,|
00001200  20 64 72 61 67 20 74 68  65 20 66 69 6c 65 20 69  | drag the file i|
00001210  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
00001220  72 79 20 64 69 73 70 6c  61 79 22 29 3a e1 0d 04  |ry display"):...|
00001230  24 1e 71 25 21 38 3d 34  3a 71 25 21 31 32 3d 73  |$.q%!8=4:q%!12=s|
00001240  61 76 65 25 3a 71 25 21  31 36 3d 30 0d 04 2e 0c  |ave%:q%!16=0....|
00001250  72 64 25 3d 8e 69 6e 24  0d 04 38 3b e7 a4 77 6f  |rd%=.in$..8;..wo|
00001260  72 64 3c 3e 26 37 37 36  31 37 32 34 34 20 f2 6f  |rd<>&77617244 .o|
00001270  6b 28 22 54 68 69 73 20  69 73 20 6e 6f 74 20 61  |k("This is not a|
00001280  20 44 72 61 77 66 69 6c  65 22 29 3a d9 23 72 64  | Drawfile"):.#rd|
00001290  25 3a e1 0d 04 42 39 e7  a4 77 6f 72 64 3e 32 30  |%:...B9..word>20|
000012a0  31 20 f2 6f 6b 28 22 43  61 6e 6e 6f 74 20 68 61  |1 .ok("Cannot ha|
000012b0  6e 64 6c 65 20 74 68 69  73 20 44 72 61 77 66 69  |ndle this Drawfi|
000012c0  6c 65 22 29 3a d9 23 72  64 25 3a e1 0d 04 4c 0d  |le"):.#rd%:...L.|
000012d0  77 72 25 3d ae 6f 75 74  24 0d 04 56 90 f2 70 75  |wr%=.out$..V..pu|
000012e0  74 77 6f 72 64 28 26 37  37 36 31 37 32 34 34 29  |tword(&77617244)|
000012f0  3a f2 70 75 74 77 6f 72  64 28 32 30 31 29 3a f2  |:.putword(201):.|
00001300  70 75 74 77 6f 72 64 28  30 29 3a d5 23 77 72 25  |putword(0):.#wr%|
00001310  2c 22 4d 65 72 67 65 44  72 61 77 20 20 20 22 3b  |,"MergeDraw   ";|
00001320  3a cf 23 72 64 25 3d 32  34 3a f2 70 75 74 77 6f  |:.#rd%=24:.putwo|
00001330  72 64 28 a4 77 6f 72 64  29 3a f2 70 75 74 77 6f  |rd(.word):.putwo|
*
00001360  72 64 28 a4 77 6f 72 64  29 0d 04 60 2b f2 6d 6f  |rd(.word)..`+.mo|
00001370  76 65 74 6f 70 61 74 68  3a e7 20 6f 6b 25 20 80  |vetopath:. ok% .|
00001380  20 74 79 70 65 25 3c 3e  32 20 f2 65 6e 64 62 69  | type%<>2 .endbi|
00001390  74 32 3a e1 0d 04 6a bb  f2 70 75 74 77 6f 72 64  |t2:...j..putword|
000013a0  28 74 79 70 65 25 29 3a  f2 70 75 74 77 6f 72 64  |(type%):.putword|
000013b0  28 73 69 7a 65 25 29 3a  f2 70 75 74 77 6f 72 64  |(size%):.putword|
000013c0  28 6c 6f 77 78 25 29 3a  f2 70 75 74 77 6f 72 64  |(lowx%):.putword|
000013d0  28 6c 6f 77 79 25 29 3a  f2 70 75 74 77 6f 72 64  |(lowy%):.putword|
000013e0  28 68 69 67 68 78 25 29  3a f2 70 75 74 77 6f 72  |(highx%):.putwor|
000013f0  64 28 68 69 67 68 79 25  29 3a f2 70 75 74 77 6f  |d(highy%):.putwo|
00001400  72 64 28 a4 77 6f 72 64  29 3a f2 70 75 74 77 6f  |rd(.word):.putwo|
*
00001420  72 64 28 a4 77 6f 72 64  29 3a 70 61 74 68 73 74  |rd(.word):pathst|
00001430  79 6c 65 25 3d a4 77 6f  72 64 3a f2 70 75 74 77  |yle%=.word:.putw|
00001440  6f 72 64 28 70 61 74 68  73 74 79 6c 65 25 29 0d  |ord(pathstyle%).|
00001450  04 74 76 e7 20 70 61 74  68 73 74 79 6c 65 25 80  |.tv. pathstyle%.|
00001460  31 32 38 20 f2 70 75 74  77 6f 72 64 28 a4 77 6f  |128 .putword(.wo|
00001470  72 64 29 3a 64 61 73 68  65 6c 65 6d 65 6e 74 73  |rd):dashelements|
00001480  25 3d a4 77 6f 72 64 3a  f2 70 75 74 77 6f 72 64  |%=.word:.putword|
00001490  28 64 61 73 68 65 6c 65  6d 65 6e 74 73 25 29 3a  |(dashelements%):|
000014a0  e3 63 25 3d 31 b8 64 61  73 68 65 6c 65 6d 65 6e  |.c%=1.dashelemen|
000014b0  74 73 25 3a f2 70 75 74  77 6f 72 64 28 a4 77 6f  |ts%:.putword(.wo|
000014c0  72 64 29 3a ed 0d 04 7e  0b f2 64 6f 74 61 67 73  |rd):...~..dotags|
000014d0  0d 04 88 04 0d 04 92 15  e7 20 c5 23 72 64 25 20  |......... .#rd% |
000014e0  f2 65 6e 64 62 69 74 3a  e1 0d 04 9c 04 0d 04 a6  |.endbit:........|
000014f0  05 f5 0d 04 b0 2e 20 c8  99 20 22 48 6f 75 72 67  |...... .. "Hourg|
00001500  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00001510  2c 8f 23 72 64 25 2a 31  30 30 2f a2 23 72 64 25  |,.#rd%*100/.#rd%|
00001520  0d 04 ba 10 20 f2 6d 6f  76 65 74 6f 70 61 74 68  |.... .movetopath|
00001530  0d 04 c4 10 20 e7 20 74  79 70 65 25 3d 32 20 8c  |.... . type%=2 .|
00001540  0d 04 ce 42 20 20 66 69  6c 6c 25 3d a4 77 6f 72  |...B  fill%=.wor|
00001550  64 3a 6f 75 74 6c 69 6e  65 63 25 3d a4 77 6f 72  |d:outlinec%=.wor|
00001560  64 3a 6f 75 74 6c 69 6e  65 77 25 3d a4 77 6f 72  |d:outlinew%=.wor|
00001570  64 3a 70 61 74 68 73 74  79 6c 65 25 3d a4 77 6f  |d:pathstyle%=.wo|
00001580  72 64 0d 04 d8 18 20 20  e7 20 70 61 74 68 73 74  |rd....  . pathst|
00001590  79 6c 65 25 80 31 32 38  20 8c 0d 04 e2 2c 20 20  |yle%.128 ....,  |
000015a0  20 64 61 73 68 6f 66 66  73 65 74 25 3d a4 77 6f  | dashoffset%=.wo|
000015b0  72 64 3a 64 61 73 68 65  6c 65 6d 65 6e 74 73 25  |rd:dashelements%|
000015c0  3d a4 77 6f 72 64 0d 04  ec 2e 20 20 20 e3 63 25  |=.word....   .c%|
000015d0  3d 31 b8 64 61 73 68 65  6c 65 6d 65 6e 74 73 25  |=1.dashelements%|
000015e0  3a 64 61 73 68 6c 65 6e  67 74 68 25 3d a4 77 6f  |:dashlength%=.wo|
000015f0  72 64 3a ed 0d 04 f6 07  20 20 cd 0d 05 00 0d 20  |rd:.....  ..... |
00001600  20 f2 64 6f 74 61 67 73  0d 05 0a 06 20 cd 0d 05  | .dotags.... ...|
00001610  14 08 fd 6f 6b 25 0d 05  1e 0b f2 65 6e 64 62 69  |...ok%.....endbi|
00001620  74 0d 05 28 05 e1 0d 05  32 04 0d 05 3c 0d dd 20  |t..(....2...<.. |
00001630  f2 65 6e 64 62 69 74 0d  05 46 0f f2 70 75 74 77  |.endbit..F..putw|
00001640  6f 72 64 28 30 29 0d 05  50 65 cf 23 77 72 25 3d  |ord(0)..Pe.#wr%=|
00001650  34 34 3a f2 70 75 74 77  6f 72 64 28 a2 23 77 72  |44:.putword(.#wr|
00001660  25 2d 34 30 29 3a f2 70  75 74 77 6f 72 64 28 6d  |%-40):.putword(m|
00001670  6c 6f 77 78 25 29 3a f2  70 75 74 77 6f 72 64 28  |lowx%):.putword(|
00001680  6d 6c 6f 77 79 25 29 3a  f2 70 75 74 77 6f 72 64  |mlowy%):.putword|
00001690  28 6d 68 69 67 68 78 25  29 3a f2 70 75 74 77 6f  |(mhighx%):.putwo|
000016a0  72 64 28 6d 68 69 67 68  79 25 29 0d 05 5a 0c f2  |rd(mhighy%)..Z..|
000016b0  65 6e 64 62 69 74 32 0d  05 64 05 e1 0d 05 6e 04  |endbit2..d....n.|
000016c0  0d 05 78 0e dd 20 f2 65  6e 64 62 69 74 32 0d 05  |..x.. .endbit2..|
000016d0  82 21 6f 6b 25 3d a3 3a  d9 23 72 64 25 3a d9 23  |.!ok%=.:.#rd%:.#|
000016e0  77 72 25 3a 72 64 25 3d  30 3a 77 72 25 3d 30 0d  |wr%:rd%=0:wr%=0.|
000016f0  05 8c 1c ff 20 22 53 65  74 54 79 70 65 20 22 2b  |.... "SetType "+|
00001700  6f 75 74 24 2b 22 20 41  46 46 22 0d 05 96 1e f2  |out$+" AFF".....|
00001710  73 65 74 69 63 6f 6e 74  65 78 74 28 73 61 76 65  |seticontext(save|
00001720  25 2c 30 2c 6f 75 74 24  29 0d 05 a0 1e 71 25 21  |%,0,out$)....q%!|
00001730  38 3d 30 3a 71 25 21 31  32 3d 73 61 76 65 25 3a  |8=0:q%!12=save%:|
00001740  71 25 21 31 36 3d 30 0d  05 aa 1a c8 99 22 57 69  |q%!16=0......"Wi|
00001750  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2d  |mp_CreateMenu",-|
00001760  31 0d 05 b4 15 c8 99 22  48 6f 75 72 67 6c 61 73  |1......"Hourglas|
00001770  73 5f 4f 66 66 22 0d 05  be 05 e1 0d 05 c8 04 0d  |s_Off"..........|
00001780  05 d2 11 dd 20 f2 6d 6f  76 65 74 6f 70 61 74 68  |.... .movetopath|
00001790  0d 05 dc 0e e7 20 ac c5  23 72 64 25 20 8c 0d 05  |..... ..#rd% ...|
000017a0  e6 06 20 f5 0d 05 f0 1d  20 20 74 79 70 65 25 3d  |.. .....  type%=|
000017b0  a4 77 6f 72 64 3a 73 69  7a 65 25 3d a4 77 6f 72  |.word:size%=.wor|
000017c0  64 0d 05 fa 12 20 20 e7  20 74 79 70 65 25 3c 3e  |d....  . type%<>|
000017d0  30 20 8c 0d 06 04 38 20  20 20 6c 6f 77 78 25 3d  |0 ....8   lowx%=|
000017e0  a4 77 6f 72 64 3a 6c 6f  77 79 25 3d a4 77 6f 72  |.word:lowy%=.wor|
000017f0  64 3a 68 69 67 68 78 25  3d a4 77 6f 72 64 3a 68  |d:highx%=.word:h|
00001800  69 67 68 79 25 3d a4 77  6f 72 64 0d 06 0e 12 20  |ighy%=.word.... |
00001810  20 20 e7 20 74 79 70 65  25 3d 32 20 8c 0d 06 18  |  . type%=2 ....|
00001820  23 20 20 20 20 e7 20 6d  6c 6f 77 78 25 3e 6c 6f  |#    . mlowx%>lo|
00001830  77 78 25 20 6d 6c 6f 77  78 25 3d 6c 6f 77 78 25  |wx% mlowx%=lowx%|
00001840  0d 06 22 23 20 20 20 20  e7 20 6d 6c 6f 77 79 25  |.."#    . mlowy%|
00001850  3e 6c 6f 77 79 25 20 6d  6c 6f 77 79 25 3d 6c 6f  |>lowy% mlowy%=lo|
00001860  77 79 25 0d 06 2c 27 20  20 20 20 e7 20 6d 68 69  |wy%..,'    . mhi|
00001870  67 68 78 25 3c 68 69 67  68 78 25 20 6d 68 69 67  |ghx%<highx% mhig|
00001880  68 78 25 3d 68 69 67 68  78 25 0d 06 36 27 20 20  |hx%=highx%..6'  |
00001890  20 20 e7 20 6d 68 69 67  68 79 25 3c 68 69 67 68  |  . mhighy%<high|
000018a0  79 25 20 6d 68 69 67 68  79 25 3d 68 69 67 68 79  |y% mhighy%=highy|
000018b0  25 0d 06 40 08 20 20 20  cd 0d 06 4a 07 20 20 cd  |%..@.   ...J.  .|
000018c0  0d 06 54 30 20 20 e7 20  74 79 70 65 25 3c 3e 36  |..T0  . type%<>6|
000018d0  20 80 20 28 8f 23 72 64  25 2d 32 34 2b 73 69 7a  | . (.#rd%-24+siz|
000018e0  65 25 29 3e 3d a2 23 72  64 25 20 6f 6b 25 3d b9  |e%)>=.#rd% ok%=.|
000018f0  0d 06 5e 2c 20 20 f4 20  22 56 44 55 20 34 3a 50  |..^,  . "VDU 4:P|
00001900  52 49 4e 54 22 69 6e 3a  22 3b 74 79 70 65 25 2c  |RINT"in:";type%,|
00001910  50 54 52 23 72 64 25 2c  6f 6b 25 22 0d 06 68 0e  |PTR#rd%,ok%"..h.|
00001920  20 20 e7 20 ac 6f 6b 25  20 8c 0d 06 72 11 20 20  |  . .ok% ...r.  |
00001930  20 c8 8e 20 74 79 70 65  25 20 ca 0d 06 7c 1f 20  | .. type% ...|. |
00001940  20 20 20 c9 20 30 3a cf  23 72 64 25 3d 8f 23 72  |   . 0:.#rd%=.#r|
00001950  64 25 2d 38 2b 73 69 7a  65 25 0d 06 86 0c 20 20  |d%-8+size%....  |
00001960  20 20 c9 20 36 3a 0d 06  90 1e 20 20 20 20 7f 3a  |  . 6:....    .:|
00001970  cf 23 72 64 25 3d 8f 23  72 64 25 2d 32 34 2b 73  |.#rd%=.#rd%-24+s|
00001980  69 7a 65 25 0d 06 9a 08  20 20 20 cb 0d 06 a4 07  |ize%....   .....|
00001990  20 20 cd 0d 06 ae 1d 20  fd 74 79 70 65 25 3d 32  |  ..... .type%=2|
000019a0  20 84 20 74 79 70 65 25  3d 36 20 84 20 6f 6b 25  | . type%=6 . ok%|
000019b0  0d 06 b8 0d 20 e7 20 ac  6f 6b 25 20 8c 0d 06 c2  |.... . .ok% ....|
000019c0  10 20 20 c8 8e 20 74 79  70 65 25 20 ca 0d 06 cc  |.  .. type% ....|
000019d0  1e 20 20 20 c9 20 30 3a  cf 23 72 64 25 3d 8f 23  |.   . 0:.#rd%=.#|
000019e0  72 64 25 2b 38 2d 73 69  7a 65 25 0d 06 d6 25 20  |rd%+8-size%...% |
000019f0  20 20 c9 20 36 3a cf 23  72 64 25 3d 8f 23 72 64  |  . 6:.#rd%=.#rd|
00001a00  25 2b 31 32 3a f2 6d 6f  76 65 74 6f 70 61 74 68  |%+12:.movetopath|
00001a10  0d 06 e0 1d 20 20 20 7f  3a cf 23 72 64 25 3d 8f  |....   .:.#rd%=.|
00001a20  23 72 64 25 2b 32 34 2d  73 69 7a 65 25 0d 06 ea  |#rd%+24-size%...|
00001a30  07 20 20 cb 0d 06 f4 06  20 cd 0d 06 fe 05 cc 0d  |.  ..... .......|
00001a40  07 08 0a 20 6f 6b 25 3d  b9 0d 07 12 05 cd 0d 07  |... ok%=........|
00001a50  1c 05 e1 0d 07 26 04 0d  07 30 0d dd 20 f2 64 6f  |.....&...0.. .do|
00001a60  74 61 67 73 0d 07 3a 05  f5 0d 07 44 28 20 74 61  |tags..:....D( ta|
00001a70  67 25 3d a4 77 6f 72 64  3a e7 20 74 61 67 25 3c  |g%=.word:. tag%<|
00001a80  3e 30 20 f2 70 75 74 77  6f 72 64 28 74 61 67 25  |>0 .putword(tag%|
00001a90  29 0d 07 4e 20 20 f4 20  22 56 44 55 20 34 3a 50  |)..N  . "VDU 4:P|
00001aa0  52 49 4e 54 22 6f 75 74  3a 22 3b 74 61 67 25 3b  |RINT"out:";tag%;|
00001ab0  22 0d 07 58 0e 20 c8 8e  20 74 61 67 25 20 ca 0d  |"..X. .. tag% ..|
00001ac0  07 62 2b 20 20 c9 20 32  2c 38 3a f2 70 75 74 77  |.b+  . 2,8:.putw|
00001ad0  6f 72 64 28 a4 77 6f 72  64 29 3a f2 70 75 74 77  |ord(.word):.putw|
00001ae0  6f 72 64 28 a4 77 6f 72  64 29 0d 07 6c 69 20 20  |ord(.word)..li  |
00001af0  c9 20 36 3a f2 70 75 74  77 6f 72 64 28 a4 77 6f  |. 6:.putword(.wo|
00001b00  72 64 29 3a f2 70 75 74  77 6f 72 64 28 a4 77 6f  |rd):.putword(.wo|
*
00001b50  72 64 29 0d 07 76 06 20  cb 0d 07 80 0c fd 20 74  |rd)..v. ...... t|
00001b60  61 67 25 3d 30 0d 07 8a  05 e1 0d 07 94 04 0d 07  |ag%=0...........|
00001b70  9e 52 dd 20 f2 70 75 74  77 6f 72 64 28 77 6f 72  |.R. .putword(wor|
00001b80  64 25 29 3a d5 23 77 72  25 2c 77 6f 72 64 25 3a  |d%):.#wr%,word%:|
00001b90  d5 23 77 72 25 2c 77 6f  72 64 25 3e 3e 38 3a d5  |.#wr%,word%>>8:.|
00001ba0  23 77 72 25 2c 77 6f 72  64 25 3e 3e 31 36 3a d5  |#wr%,word%>>16:.|
00001bb0  23 77 72 25 2c 77 6f 72  64 25 3e 3e 32 34 3a e1  |#wr%,word%>>24:.|
00001bc0  0d 07 a8 04 0d 07 b2 11  dd f2 68 65 6c 70 28 68  |..........help(h|
00001bd0  65 6c 70 24 29 0d 07 bc  21 c8 99 22 57 69 6d 70  |elp$)...!.."Wimp|
00001be0  45 78 74 5f 53 65 6e 64  48 65 6c 70 22 2c 68 65  |Ext_SendHelp",he|
00001bf0  6c 70 24 2c 71 25 0d 07  c6 05 e1 0d ff a2 86 03  |lp$,q%..........|
00001c00  54 d2 84 01 2c 0f 00 00  0c 10 1f e5 0c 10 81 e0  |T...,...........|
00001c10  14 10 0f e5 18 d0 4f e2  00 40 2d e9 20 00 1f e5  |......O..@-. ...|
00001c20  43 10 8f e2 09 20 a0 e3  d4 00 00 ef 24 00 9f e5  |C.... ......$...|
00001c30  34 10 1f e5 01 00 80 e0  34 10 8f e2 09 20 a0 e3  |4.......4.... ..|
00001c40  d4 00 00 ef 2c 00 a0 e3  23 00 cf e5 08 00 8f e2  |....,...#.......|
00001c50  05 00 00 ef 00 80 bd e8  d1 1b 00 00 2a 42 61 73  |............*Bas|
00001c60  69 63 20 2d 71 75 69 74  20 20 40 00 00 00 00 00  |ic -quit  @.....|
00001c70  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00001c80