0ș"Wimp_Initialise",200,&4B534154,"Messages"
�"ERROR 0 "+�$:�
�T$(34)
(
�b%256
2FI%=�"<Messages$Dir>.Index"
<�#FI%,tot%
Fb%?0=3:ș7,14,b%
P�#FI%=(�(!b%�(tot%+1))+1)*5
Z�#FI%,jmp%
d	�#FI%
nFI%=�"<Messages$Dir>.Text"
x�#FI%=jmp%
�Prows%=1:�:T$(rows%)=�#FI%:rows%+=1:�T$(rows%-1)="\"�T$(rows%-1)="?":rows%-=2
�*�T$(rows%+1)="?":q%=�:jmp%=�#FI%:�q%=�
�	�#FI%
�)chars%=0:�LA%=1�rows%:lle%=�(T$(LA%))
�*�T$(LA%))=">>"��T$(LA%))="<>":lle%-=2
��T$(LA%),�8):�eight
��lle%>chars%:chars%=lle%
��LA%
��LA%=1�rows%
�N�T$(LA%),2)=">>":T$(LA%)=�chars%-�(T$(LA%))+2,"�")+�T$(LA%),�(T$(LA%))-2)
�R�T$(LA%),2)="<>":T$(LA%)=�(chars%-�(T$(LA%))+2)�2,"�")+�T$(LA%),�(T$(LA%))-2)
��LA%
��26

�ș"OS_ReadModeVariable",-1,11�,,x%:ș"OS_ReadModeVariable",-1,12�,,y%:ș"OS_ReadModeVariable",-1,4�,,xe%:ș"OS_ReadModeVariable",-1,5�,,ye%

ax%=x%<<xe%:y%=y%<<ye%:a%=x%/2:c%=a%+(chars%+1)*8:a%=a%-(chars%+1)*8:bb%=48:d%=40+(rows%+1)*32

%ș"ColourTrans_SetGCOL",&30303000

"ȓȐa%+8,bb%-8,c%-a%,d%-bb%

,%ș"ColourTrans_SetGCOL",&D0D0D000

6ȓȐa%,bb%,c%-a%,d%-bb%

@ș"ColourTrans_SetGCOL",0

J)�a%,bb%:�a%,d%:�c%,d%:�c%,bb%:�a%,bb%

T�5

^5�LA%=1�rows%:�a%+8,d%-16-(LA%-1)*32:�T$(LA%):�LA%

h�q%=�:�loadtmp:woy%=�

r	��er

|	ȕ�q%

�ș"Wimp_Poll",&1831,b%�r%

�	Ȏr%�

��1:�rdw

��2:ș"Wimp_OpenWindow",,b%

�$�3:ș"Wimp_CloseWindow",,b%:q%=�

��17,18:�b%!16=0:q%=�

�'�b%!16=&400C1 �woy%=�:�openw:woy%=�

��

��

�ș"Wimp_CloseDown"

�$ș"XOS_CLI","UnSet Messages$Dir"

��

�J��er:!b%=�:$(b%+4)=�$+�(0):ș"Wimp_ReportError",b%,1,"Messages":q%=�:�

��loadtmp
�name%12,i% 255
5ș"Wimp_OpenTemplate",,"<Messages$Dir>.Templates"
&B$name%="Window":ș"Wimp_LoadTemplate",,b%,i%,i%+255,-1,name%,0
0"ș"Wimp_CreateWindow",,b% � w%
:ș"Wimp_CloseTemplate"
D�
N��openw
XFI%=�"<Messages$Dir>.Text"
b�#FI%=jmp%
l#TITLE$=�#FI%:qs%=rows%:rows%+=1
vH�:T$(rows%)=�#FI%:rows%+=1:�T$(rows%-1)="\"�T$(rows%-1)="?":rows%-=2
�*�T$(rows%+1)="?":q%=�:jmp%=�#FI%:�q%=�
�	�#FI%
�)chars%=0:�LA%=1�rows%:lle%=�(T$(LA%))
�*�T$(LA%))=">>"��T$(LA%))="<>":lle%-=2
��T$(LA%),�8):�eight
��lle%>chars%:chars%=lle%
��LA%
��LA%=1�rows%
�N�T$(LA%),2)=">>":T$(LA%)=�chars%-�(T$(LA%))+2,"�")+�T$(LA%),�(T$(LA%))-2)
�R�T$(LA%),2)="<>":T$(LA%)=�(chars%-�(T$(LA%))+2)�2,"�")+�T$(LA%),�(T$(LA%))-2)
��LA%
��26
��ș"OS_ReadModeVariable",-1,11�,,x%:ș"OS_ReadModeVariable",-1,12�,,y%:ș"OS_ReadModeVariable",-1,4�,,xe%:ș"OS_ReadModeVariable",-1,5�,,ye%
q%=�
Gx%=x%<<xe%:y%=y%<<ye%:a%=x%/2:c%=a%+(chars%+1)*8:a%=a%-(chars%+1)*8
<bb%=y%/2:d%=bb%+((rows%+1)*16):bb%=bb%-((rows%+1)*16)+12
 5!b%=w%:ș"Wimp_GetWindowInfo",,b%:$(b%!76)=TITLE$
*b%!84=�($(b%!76))
4
!b%=w%
>ș"Wimp_GetWindowState",,b%
H&b%!4=a%:b%!8=bb%:b%!12=c%:b%!16=d%
Rș"Wimp_OpenWindow",,b%
\�
f
��rdw:�m%
p ș"Wimp_RedrawWindow",,b%�m%
z&a%=b%!4:bb%=b%!8:c%=b%!12:d%=b%!16
�ȕm%
�ș"Wimp_SetColour",7
��LA%=1�rows%
�$�LA%=qs%+1:ș"Wimp_SetColour",11
�(�a%+8,d%-16-(LA%-1)*32:�T$(LA%):�LA%
� ș"Wimp_GetRectangle",,b%�m%
��
��
���eight:�LB%
�1�LB%=1��(T$(LA%)):�T$(LA%),LB%,1)=�8:lle%-=2
�
�LB%:�
�

00000000  0d 00 0a 30 c8 99 22 57  69 6d 70 5f 49 6e 69 74  |...0.."Wimp_Init|
00000010  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
00000020  33 34 31 35 34 2c 22 4d  65 73 73 61 67 65 73 22  |34154,"Messages"|
00000030  0d 00 14 16 ee 85 ff 22  45 52 52 4f 52 20 30 20  |......."ERROR 0 |
00000040  22 2b f6 24 3a e0 0d 00  1e 0b de 54 24 28 33 34  |"+.$:......T$(34|
00000050  29 0d 00 28 0a de 62 25  32 35 36 0d 00 32 1f 46  |)..(..b%256..2.F|
00000060  49 25 3d 8e 22 3c 4d 65  73 73 61 67 65 73 24 44  |I%=."<Messages$D|
00000070  69 72 3e 2e 49 6e 64 65  78 22 0d 00 3c 0e e8 23  |ir>.Index"..<..#|
00000080  46 49 25 2c 74 6f 74 25  0d 00 46 14 62 25 3f 30  |FI%,tot%..F.b%?0|
00000090  3d 33 3a c8 99 37 2c 31  34 2c 62 25 0d 00 50 1f  |=3:..7,14,b%..P.|
000000a0  cf 23 46 49 25 3d 28 94  28 21 62 25 83 28 74 6f  |.#FI%=(.(!b%.(to|
000000b0  74 25 2b 31 29 29 2b 31  29 2a 35 0d 00 5a 0e e8  |t%+1))+1)*5..Z..|
000000c0  23 46 49 25 2c 6a 6d 70  25 0d 00 64 09 d9 23 46  |#FI%,jmp%..d..#F|
000000d0  49 25 0d 00 6e 1e 46 49  25 3d 8e 22 3c 4d 65 73  |I%..n.FI%=."<Mes|
000000e0  73 61 67 65 73 24 44 69  72 3e 2e 54 65 78 74 22  |sages$Dir>.Text"|
000000f0  0d 00 78 0e cf 23 46 49  25 3d 6a 6d 70 25 0d 00  |..x..#FI%=jmp%..|
00000100  82 50 72 6f 77 73 25 3d  31 3a f5 3a 54 24 28 72  |.Prows%=1:.:T$(r|
00000110  6f 77 73 25 29 3d be 23  46 49 25 3a 72 6f 77 73  |ows%)=.#FI%:rows|
00000120  25 2b 3d 31 3a fd 54 24  28 72 6f 77 73 25 2d 31  |%+=1:.T$(rows%-1|
00000130  29 3d 22 5c 22 84 54 24  28 72 6f 77 73 25 2d 31  |)="\".T$(rows%-1|
00000140  29 3d 22 3f 22 3a 72 6f  77 73 25 2d 3d 32 0d 00  |)="?":rows%-=2..|
00000150  8c 2a e7 54 24 28 72 6f  77 73 25 2b 31 29 3d 22  |.*.T$(rows%+1)="|
00000160  3f 22 3a 71 25 3d a3 3a  6a 6d 70 25 3d 8f 23 46  |?":q%=.:jmp%=.#F|
00000170  49 25 3a 8b 71 25 3d b9  0d 00 96 09 d9 23 46 49  |I%:.q%=......#FI|
00000180  25 0d 00 a0 29 63 68 61  72 73 25 3d 30 3a e3 4c  |%...)chars%=0:.L|
00000190  41 25 3d 31 b8 72 6f 77  73 25 3a 6c 6c 65 25 3d  |A%=1.rows%:lle%=|
000001a0  a9 28 54 24 28 4c 41 25  29 29 0d 00 aa 2a e7 c0  |.(T$(LA%))...*..|
000001b0  54 24 28 4c 41 25 29 29  3d 22 3e 3e 22 84 c0 54  |T$(LA%))=">>"..T|
000001c0  24 28 4c 41 25 29 29 3d  22 3c 3e 22 3a 6c 6c 65  |$(LA%))="<>":lle|
000001d0  25 2d 3d 32 0d 00 b4 18  e7 a7 54 24 28 4c 41 25  |%-=2......T$(LA%|
000001e0  29 2c bd 38 29 3a f2 65  69 67 68 74 0d 00 be 1c  |),.8):.eight....|
000001f0  e7 6c 6c 65 25 3e 63 68  61 72 73 25 3a 63 68 61  |.lle%>chars%:cha|
00000200  72 73 25 3d 6c 6c 65 25  0d 00 c8 08 ed 4c 41 25  |rs%=lle%.....LA%|
00000210  0d 00 d2 10 e3 4c 41 25  3d 31 b8 72 6f 77 73 25  |.....LA%=1.rows%|
00000220  0d 00 dc 4e e7 c0 54 24  28 4c 41 25 29 2c 32 29  |...N..T$(LA%),2)|
00000230  3d 22 3e 3e 22 3a 54 24  28 4c 41 25 29 3d c4 63  |=">>":T$(LA%)=.c|
00000240  68 61 72 73 25 2d a9 28  54 24 28 4c 41 25 29 29  |hars%-.(T$(LA%))|
00000250  2b 32 2c 22 a0 22 29 2b  c2 54 24 28 4c 41 25 29  |+2,".")+.T$(LA%)|
00000260  2c a9 28 54 24 28 4c 41  25 29 29 2d 32 29 0d 00  |,.(T$(LA%))-2)..|
00000270  e6 52 e7 c0 54 24 28 4c  41 25 29 2c 32 29 3d 22  |.R..T$(LA%),2)="|
00000280  3c 3e 22 3a 54 24 28 4c  41 25 29 3d c4 28 63 68  |<>":T$(LA%)=.(ch|
00000290  61 72 73 25 2d a9 28 54  24 28 4c 41 25 29 29 2b  |ars%-.(T$(LA%))+|
000002a0  32 29 81 32 2c 22 a0 22  29 2b c2 54 24 28 4c 41  |2).2,".")+.T$(LA|
000002b0  25 29 2c a9 28 54 24 28  4c 41 25 29 29 2d 32 29  |%),.(T$(LA%))-2)|
000002c0  0d 00 f0 08 ed 4c 41 25  0d 00 fa 07 ef 32 36 0d  |.....LA%.....26.|
000002d0  01 04 8f c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |....."OS_ReadMod|
000002e0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 31 31  |eVariable",-1,11|
000002f0  b8 2c 2c 78 25 3a c8 99  22 4f 53 5f 52 65 61 64  |.,,x%:.."OS_Read|
00000300  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00000310  2c 31 32 b8 2c 2c 79 25  3a c8 99 22 4f 53 5f 52  |,12.,,y%:.."OS_R|
00000320  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00000330  2c 2d 31 2c 34 b8 2c 2c  78 65 25 3a c8 99 22 4f  |,-1,4.,,xe%:.."O|
00000340  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000350  6c 65 22 2c 2d 31 2c 35  b8 2c 2c 79 65 25 0d 01  |le",-1,5.,,ye%..|
00000360  0e 61 78 25 3d 78 25 3c  3c 78 65 25 3a 79 25 3d  |.ax%=x%<<xe%:y%=|
00000370  79 25 3c 3c 79 65 25 3a  61 25 3d 78 25 2f 32 3a  |y%<<ye%:a%=x%/2:|
00000380  63 25 3d 61 25 2b 28 63  68 61 72 73 25 2b 31 29  |c%=a%+(chars%+1)|
00000390  2a 38 3a 61 25 3d 61 25  2d 28 63 68 61 72 73 25  |*8:a%=a%-(chars%|
000003a0  2b 31 29 2a 38 3a 62 62  25 3d 34 38 3a 64 25 3d  |+1)*8:bb%=48:d%=|
000003b0  34 30 2b 28 72 6f 77 73  25 2b 31 29 2a 33 32 0d  |40+(rows%+1)*32.|
000003c0  01 18 25 c8 99 22 43 6f  6c 6f 75 72 54 72 61 6e  |..%.."ColourTran|
000003d0  73 5f 53 65 74 47 43 4f  4c 22 2c 26 33 30 33 30  |s_SetGCOL",&3030|
000003e0  33 30 30 30 0d 01 22 1f  c8 93 c8 90 61 25 2b 38  |3000..".....a%+8|
000003f0  2c 62 62 25 2d 38 2c 63  25 2d 61 25 2c 64 25 2d  |,bb%-8,c%-a%,d%-|
00000400  62 62 25 0d 01 2c 25 c8  99 22 43 6f 6c 6f 75 72  |bb%..,%.."Colour|
00000410  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 2c 26  |Trans_SetGCOL",&|
00000420  44 30 44 30 44 30 30 30  0d 01 36 1b c8 93 c8 90  |D0D0D000..6.....|
00000430  61 25 2c 62 62 25 2c 63  25 2d 61 25 2c 64 25 2d  |a%,bb%,c%-a%,d%-|
00000440  62 62 25 0d 01 40 1d c8  99 22 43 6f 6c 6f 75 72  |bb%..@..."Colour|
00000450  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 2c 30  |Trans_SetGCOL",0|
00000460  0d 01 4a 29 ec 61 25 2c  62 62 25 3a df 61 25 2c  |..J).a%,bb%:.a%,|
00000470  64 25 3a df 63 25 2c 64  25 3a df 63 25 2c 62 62  |d%:.c%,d%:.c%,bb|
00000480  25 3a df 61 25 2c 62 62  25 0d 01 54 06 ef 35 0d  |%:.a%,bb%..T..5.|
00000490  01 5e 35 e3 4c 41 25 3d  31 b8 72 6f 77 73 25 3a  |.^5.LA%=1.rows%:|
000004a0  ec 61 25 2b 38 2c 64 25  2d 31 36 2d 28 4c 41 25  |.a%+8,d%-16-(LA%|
000004b0  2d 31 29 2a 33 32 3a f1  54 24 28 4c 41 25 29 3a  |-1)*32:.T$(LA%):|
000004c0  ed 4c 41 25 0d 01 68 19  e7 71 25 3d a3 3a f2 6c  |.LA%..h..q%=.:.l|
000004d0  6f 61 64 74 6d 70 3a 77  6f 79 25 3d a3 0d 01 72  |oadtmp:woy%=...r|
000004e0  09 ee 85 f2 65 72 0d 01  7c 09 c8 95 ac 71 25 0d  |....er..|....q%.|
000004f0  01 86 1d c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 22  |....."Wimp_Poll"|
00000500  2c 26 31 38 33 31 2c 62  25 b8 72 25 0d 01 90 09  |,&1831,b%.r%....|
00000510  c8 8e 72 25 ca 0d 01 9a  0b c9 31 3a f2 72 64 77  |..r%......1:.rdw|
00000520  0d 01 a4 1e c9 32 3a c8  99 22 57 69 6d 70 5f 4f  |.....2:.."Wimp_O|
00000530  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 25 0d 01  |penWindow",,b%..|
00000540  ae 24 c9 33 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |.$.3:.."Wimp_Clo|
00000550  73 65 57 69 6e 64 6f 77  22 2c 2c 62 25 3a 71 25  |seWindow",,b%:q%|
00000560  3d b9 0d 01 b8 18 c9 31  37 2c 31 38 3a e7 62 25  |=......17,18:.b%|
00000570  21 31 36 3d 30 3a 71 25  3d b9 0d 01 c2 27 e7 62  |!16=0:q%=....'.b|
00000580  25 21 31 36 3d 26 34 30  30 43 31 20 80 77 6f 79  |%!16=&400C1 .woy|
00000590  25 3d a3 3a f2 6f 70 65  6e 77 3a 77 6f 79 25 3d  |%=.:.openw:woy%=|
000005a0  b9 0d 01 cc 05 cb 0d 01  d6 05 ce 0d 01 e0 16 c8  |................|
000005b0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
000005c0  22 0d 01 ea 24 c8 99 22  58 4f 53 5f 43 4c 49 22  |"...$.."XOS_CLI"|
000005d0  2c 22 55 6e 53 65 74 20  4d 65 73 73 61 67 65 73  |,"UnSet Messages|
000005e0  24 44 69 72 22 0d 01 f4  05 e0 0d 01 fe 4a dd f2  |$Dir"........J..|
000005f0  65 72 3a 21 62 25 3d 9f  3a 24 28 62 25 2b 34 29  |er:!b%=.:$(b%+4)|
00000600  3d f6 24 2b bd 28 30 29  3a c8 99 22 57 69 6d 70  |=.$+.(0):.."Wimp|
00000610  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
00000620  2c 31 2c 22 4d 65 73 73  61 67 65 73 22 3a 71 25  |,1,"Messages":q%|
00000630  3d b9 3a e1 0d 02 08 0d  dd f2 6c 6f 61 64 74 6d  |=.:.......loadtm|
00000640  70 0d 02 12 13 de 6e 61  6d 65 25 31 32 2c 69 25  |p.....name%12,i%|
00000650  20 32 35 35 0d 02 1c 35  c8 99 22 57 69 6d 70 5f  | 255...5.."Wimp_|
00000660  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00000670  3c 4d 65 73 73 61 67 65  73 24 44 69 72 3e 2e 54  |<Messages$Dir>.T|
00000680  65 6d 70 6c 61 74 65 73  22 0d 02 26 42 24 6e 61  |emplates"..&B$na|
00000690  6d 65 25 3d 22 57 69 6e  64 6f 77 22 3a c8 99 22  |me%="Window":.."|
000006a0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000006b0  65 22 2c 2c 62 25 2c 69  25 2c 69 25 2b 32 35 35  |e",,b%,i%,i%+255|
000006c0  2c 2d 31 2c 6e 61 6d 65  25 2c 30 0d 02 30 22 c8  |,-1,name%,0..0".|
000006d0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
000006e0  64 6f 77 22 2c 2c 62 25  20 b8 20 77 25 0d 02 3a  |dow",,b% . w%..:|
000006f0  1a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |..."Wimp_CloseTe|
00000700  6d 70 6c 61 74 65 22 0d  02 44 05 e1 0d 02 4e 0b  |mplate"..D....N.|
00000710  dd f2 6f 70 65 6e 77 0d  02 58 1e 46 49 25 3d 8e  |..openw..X.FI%=.|
00000720  22 3c 4d 65 73 73 61 67  65 73 24 44 69 72 3e 2e  |"<Messages$Dir>.|
00000730  54 65 78 74 22 0d 02 62  0e cf 23 46 49 25 3d 6a  |Text"..b..#FI%=j|
00000740  6d 70 25 0d 02 6c 23 54  49 54 4c 45 24 3d be 23  |mp%..l#TITLE$=.#|
00000750  46 49 25 3a 71 73 25 3d  72 6f 77 73 25 3a 72 6f  |FI%:qs%=rows%:ro|
00000760  77 73 25 2b 3d 31 0d 02  76 48 f5 3a 54 24 28 72  |ws%+=1..vH.:T$(r|
00000770  6f 77 73 25 29 3d be 23  46 49 25 3a 72 6f 77 73  |ows%)=.#FI%:rows|
00000780  25 2b 3d 31 3a fd 54 24  28 72 6f 77 73 25 2d 31  |%+=1:.T$(rows%-1|
00000790  29 3d 22 5c 22 84 54 24  28 72 6f 77 73 25 2d 31  |)="\".T$(rows%-1|
000007a0  29 3d 22 3f 22 3a 72 6f  77 73 25 2d 3d 32 0d 02  |)="?":rows%-=2..|
000007b0  80 2a e7 54 24 28 72 6f  77 73 25 2b 31 29 3d 22  |.*.T$(rows%+1)="|
000007c0  3f 22 3a 71 25 3d a3 3a  6a 6d 70 25 3d 8f 23 46  |?":q%=.:jmp%=.#F|
000007d0  49 25 3a 8b 71 25 3d b9  0d 02 8a 09 d9 23 46 49  |I%:.q%=......#FI|
000007e0  25 0d 02 94 29 63 68 61  72 73 25 3d 30 3a e3 4c  |%...)chars%=0:.L|
000007f0  41 25 3d 31 b8 72 6f 77  73 25 3a 6c 6c 65 25 3d  |A%=1.rows%:lle%=|
00000800  a9 28 54 24 28 4c 41 25  29 29 0d 02 9e 2a e7 c0  |.(T$(LA%))...*..|
00000810  54 24 28 4c 41 25 29 29  3d 22 3e 3e 22 84 c0 54  |T$(LA%))=">>"..T|
00000820  24 28 4c 41 25 29 29 3d  22 3c 3e 22 3a 6c 6c 65  |$(LA%))="<>":lle|
00000830  25 2d 3d 32 0d 02 a8 18  e7 a7 54 24 28 4c 41 25  |%-=2......T$(LA%|
00000840  29 2c bd 38 29 3a f2 65  69 67 68 74 0d 02 b2 1c  |),.8):.eight....|
00000850  e7 6c 6c 65 25 3e 63 68  61 72 73 25 3a 63 68 61  |.lle%>chars%:cha|
00000860  72 73 25 3d 6c 6c 65 25  0d 02 bc 08 ed 4c 41 25  |rs%=lle%.....LA%|
00000870  0d 02 c6 10 e3 4c 41 25  3d 31 b8 72 6f 77 73 25  |.....LA%=1.rows%|
00000880  0d 02 d0 4e e7 c0 54 24  28 4c 41 25 29 2c 32 29  |...N..T$(LA%),2)|
00000890  3d 22 3e 3e 22 3a 54 24  28 4c 41 25 29 3d c4 63  |=">>":T$(LA%)=.c|
000008a0  68 61 72 73 25 2d a9 28  54 24 28 4c 41 25 29 29  |hars%-.(T$(LA%))|
000008b0  2b 32 2c 22 a0 22 29 2b  c2 54 24 28 4c 41 25 29  |+2,".")+.T$(LA%)|
000008c0  2c a9 28 54 24 28 4c 41  25 29 29 2d 32 29 0d 02  |,.(T$(LA%))-2)..|
000008d0  da 52 e7 c0 54 24 28 4c  41 25 29 2c 32 29 3d 22  |.R..T$(LA%),2)="|
000008e0  3c 3e 22 3a 54 24 28 4c  41 25 29 3d c4 28 63 68  |<>":T$(LA%)=.(ch|
000008f0  61 72 73 25 2d a9 28 54  24 28 4c 41 25 29 29 2b  |ars%-.(T$(LA%))+|
00000900  32 29 81 32 2c 22 a0 22  29 2b c2 54 24 28 4c 41  |2).2,".")+.T$(LA|
00000910  25 29 2c a9 28 54 24 28  4c 41 25 29 29 2d 32 29  |%),.(T$(LA%))-2)|
00000920  0d 02 e4 08 ed 4c 41 25  0d 02 ee 07 ef 32 36 0d  |.....LA%.....26.|
00000930  02 f8 8f c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |....."OS_ReadMod|
00000940  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 31 31  |eVariable",-1,11|
00000950  b8 2c 2c 78 25 3a c8 99  22 4f 53 5f 52 65 61 64  |.,,x%:.."OS_Read|
00000960  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00000970  2c 31 32 b8 2c 2c 79 25  3a c8 99 22 4f 53 5f 52  |,12.,,y%:.."OS_R|
00000980  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00000990  2c 2d 31 2c 34 b8 2c 2c  78 65 25 3a c8 99 22 4f  |,-1,4.,,xe%:.."O|
000009a0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
000009b0  6c 65 22 2c 2d 31 2c 35  b8 2c 2c 79 65 25 0d 03  |le",-1,5.,,ye%..|
000009c0  02 08 71 25 3d a3 0d 03  0c 47 78 25 3d 78 25 3c  |..q%=....Gx%=x%<|
000009d0  3c 78 65 25 3a 79 25 3d  79 25 3c 3c 79 65 25 3a  |<xe%:y%=y%<<ye%:|
000009e0  61 25 3d 78 25 2f 32 3a  63 25 3d 61 25 2b 28 63  |a%=x%/2:c%=a%+(c|
000009f0  68 61 72 73 25 2b 31 29  2a 38 3a 61 25 3d 61 25  |hars%+1)*8:a%=a%|
00000a00  2d 28 63 68 61 72 73 25  2b 31 29 2a 38 0d 03 16  |-(chars%+1)*8...|
00000a10  3c 62 62 25 3d 79 25 2f  32 3a 64 25 3d 62 62 25  |<bb%=y%/2:d%=bb%|
00000a20  2b 28 28 72 6f 77 73 25  2b 31 29 2a 31 36 29 3a  |+((rows%+1)*16):|
00000a30  62 62 25 3d 62 62 25 2d  28 28 72 6f 77 73 25 2b  |bb%=bb%-((rows%+|
00000a40  31 29 2a 31 36 29 2b 31  32 0d 03 20 35 21 62 25  |1)*16)+12.. 5!b%|
00000a50  3d 77 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |=w%:.."Wimp_GetW|
00000a60  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 62 25 3a 24  |indowInfo",,b%:$|
00000a70  28 62 25 21 37 36 29 3d  54 49 54 4c 45 24 0d 03  |(b%!76)=TITLE$..|
00000a80  2a 15 62 25 21 38 34 3d  a9 28 24 28 62 25 21 37  |*.b%!84=.($(b%!7|
00000a90  36 29 29 0d 03 34 0a 21  62 25 3d 77 25 0d 03 3e  |6))..4.!b%=w%..>|
00000aa0  1f c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |..."Wimp_GetWind|
00000ab0  6f 77 53 74 61 74 65 22  2c 2c 62 25 0d 03 48 26  |owState",,b%..H&|
00000ac0  62 25 21 34 3d 61 25 3a  62 25 21 38 3d 62 62 25  |b%!4=a%:b%!8=bb%|
00000ad0  3a 62 25 21 31 32 3d 63  25 3a 62 25 21 31 36 3d  |:b%!12=c%:b%!16=|
00000ae0  64 25 0d 03 52 1b c8 99  22 57 69 6d 70 5f 4f 70  |d%..R..."Wimp_Op|
00000af0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 03 5c  |enWindow",,b%..\|
00000b00  05 e1 0d 03 66 0d dd f2  72 64 77 3a ea 6d 25 0d  |....f...rdw:.m%.|
00000b10  03 70 20 c8 99 22 57 69  6d 70 5f 52 65 64 72 61  |.p .."Wimp_Redra|
00000b20  77 57 69 6e 64 6f 77 22  2c 2c 62 25 b8 6d 25 0d  |wWindow",,b%.m%.|
00000b30  03 7a 26 61 25 3d 62 25  21 34 3a 62 62 25 3d 62  |.z&a%=b%!4:bb%=b|
00000b40  25 21 38 3a 63 25 3d 62  25 21 31 32 3a 64 25 3d  |%!8:c%=b%!12:d%=|
00000b50  62 25 21 31 36 0d 03 84  08 c8 95 6d 25 0d 03 8e  |b%!16......m%...|
00000b60  18 c8 99 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |..."Wimp_SetColo|
00000b70  75 72 22 2c 37 0d 03 98  10 e3 4c 41 25 3d 31 b8  |ur",7.....LA%=1.|
00000b80  72 6f 77 73 25 0d 03 a2  24 e7 4c 41 25 3d 71 73  |rows%...$.LA%=qs|
00000b90  25 2b 31 3a c8 99 22 57  69 6d 70 5f 53 65 74 43  |%+1:.."Wimp_SetC|
00000ba0  6f 6c 6f 75 72 22 2c 31  31 0d 03 ac 28 ec 61 25  |olour",11...(.a%|
00000bb0  2b 38 2c 64 25 2d 31 36  2d 28 4c 41 25 2d 31 29  |+8,d%-16-(LA%-1)|
00000bc0  2a 33 32 3a f1 54 24 28  4c 41 25 29 3a ed 4c 41  |*32:.T$(LA%):.LA|
00000bd0  25 0d 03 b6 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%... .."Wimp_Get|
00000be0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 62 25 b8 6d  |Rectangle",,b%.m|
00000bf0  25 0d 03 c0 05 ce 0d 03  ca 05 e1 0d 03 d4 10 dd  |%...............|
00000c00  f2 65 69 67 68 74 3a ea  4c 42 25 0d 03 de 31 e3  |.eight:.LB%...1.|
00000c10  4c 42 25 3d 31 b8 a9 28  54 24 28 4c 41 25 29 29  |LB%=1..(T$(LA%))|
00000c20  3a e7 c1 54 24 28 4c 41  25 29 2c 4c 42 25 2c 31  |:..T$(LA%),LB%,1|
00000c30  29 3d bd 38 3a 6c 6c 65  25 2d 3d 32 0d 03 e8 0a  |)=.8:lle%-=2....|
00000c40  ed 4c 42 25 3a e1 0d ff                           |.LB%:...|
00000c48