� > <WimpLib$Dir>.Wimp2
� Window manager routines
� Part 2: windows
(� Walther Schoonenberg
2:
<>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
F'block%!0=handle%:block%!28=bhandle%
P9block%!4=x0%:block%!8=y0%:block%!12=x1%:block%!16=y1%
Z!block%!20=scx%:block%!24=scy%
d ș "Wimp_OpenWindow",,block%
n�
x:
�� �origin(block%)
�9x0%=block%!4:y0%=block%!8:x1%=block%!12:y1%=block%!16
�!scx%=block%!20:scy%=block%!24
�bx%=x0%-scx%:by%=y1%-scy%
��
�:
�� �getw(handle%)
�4!block%=handle%:ș "Wimp_GetWindowState",,block%
�7�origin(block%):bhandle%=block%!28:flags%=block%!32
��
�:
�� �front(handle%)
��getw(handle%)

6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)

�

:

"� �popup(handle%)

,�getw(handle%)

60xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)

@F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)

J�

T:

^� �close_window(handle%)

h�getw(handle%)

r1!block%=handle%:ș "Wimp_CloseWindow",,block%

|�

�:

�� �draw_window(handle%)

��origin(block%)

�ȕ more%

�A  rx0%=block%!28:ry0%=block%!32:rx1%=block%!36:ry1%=block%!40

�(  �redraw(handle%): � user routine !

�,  ș "Wimp_GetRectangle",,block% � more%

��

��

�:

�1� �update_window(handle%,ux0%,uy0%,ux1%,uy1%)

�M!block%=handle%:block%!4=ux0%:block%!8=uy0%:block%!12=ux1%:block%!16=uy1%

�*ș "Wimp_UpdateWindow",,block% � more%
�draw_window(handle%)
�
:
&� �redraw_window(handle%)
0!block%=handle%
:*ș "Wimp_RedrawWindow",,block% � more%
D�draw_window(handle%)
N�
X:
b� �getpointer
l$ș "Wimp_GetPointerInfo",,block%
v`mousex%=!block%:mousey%=block%!4:b%=block%!8:handle%=block%!12:icon%=block%!16:ob%=block%!20
��
�:
�W� �create_window(x0%,y0%,vww%,vwh%,scx%,scy%,ww%,wh%,flags%,fc%,bc%,titlef%,title$)
�A!block%=x0%:block%!4=y0%:block%!8=x0%+vww%:block%!12=y0%+vwh%
�� initieel zichtbaar gebied
�6block%!16=scx%:block%!20=scy%: � scroll bar offset
�'block%!24=-1: � window komt bovenop
�$block%!28=flags%: � window flags
�� fc%=15 � bc%=15 �
�;  block%?32=15:block%?33=15:block%?34=fc%:block%?35=bc%
��
�A  block%?32=tfcol:block%?33=tbcol:block%?34=fc%:block%?35=bc%
��
;block%?36=sco:block%?37=sci:block%?38=tbcol2: � kleuren
.block%?39=0: � gereserveerd, moet nul zijn
8block%!40=0:block%!44=-wh%:block%!48=ww%:block%!52=0
 1� totale werkgebied-omvang (work area extent)
*-block%!56=titlef%: � icon flags title bar
4,block%!60=&3000: � work area button type
>4block%!64=0: � sprite area control block pointer
H9block%!68=0: � min.grootte bepaald door title breedte
R%$(block%+72)=�title$,11): � title
\&block%!84=0: � initieel geen icons
f,ș "Wimp_CreateWindow",,block% � handle%
p=handle%
z:
�� �set_colour(c%)
�ș "Wimp_SetColour",c%
��
�:
�� �set_line(l%)
�� bx%+offset%,by%-feed%*l%
��
�

00000000  0d 00 0a 1b f4 20 3e 20  3c 57 69 6d 70 4c 69 62  |..... > <WimpLib|
00000010  24 44 69 72 3e 2e 57 69  6d 70 32 0d 00 14 1d f4  |$Dir>.Wimp2.....|
00000020  20 57 69 6e 64 6f 77 20  6d 61 6e 61 67 65 72 20  | Window manager |
00000030  72 6f 75 74 69 6e 65 73  0d 00 1e 15 f4 20 50 61  |routines..... Pa|
00000040  72 74 20 32 3a 20 77 69  6e 64 6f 77 73 0d 00 28  |rt 2: windows..(|
00000050  1a f4 20 57 61 6c 74 68  65 72 20 53 63 68 6f 6f  |.. Walther Schoo|
00000060  6e 65 6e 62 65 72 67 0d  00 32 05 3a 0d 00 3c 3e  |nenberg..2.:..<>|
00000070  dd 20 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |. .open_window(h|
00000080  61 6e 64 6c 65 25 2c 78  30 25 2c 79 30 25 2c 78  |andle%,x0%,y0%,x|
00000090  31 25 2c 79 31 25 2c 73  63 78 25 2c 73 63 79 25  |1%,y1%,scx%,scy%|
000000a0  2c 62 68 61 6e 64 6c 65  25 29 0d 00 46 27 62 6c  |,bhandle%)..F'bl|
000000b0  6f 63 6b 25 21 30 3d 68  61 6e 64 6c 65 25 3a 62  |ock%!0=handle%:b|
000000c0  6c 6f 63 6b 25 21 32 38  3d 62 68 61 6e 64 6c 65  |lock%!28=bhandle|
000000d0  25 0d 00 50 39 62 6c 6f  63 6b 25 21 34 3d 78 30  |%..P9block%!4=x0|
000000e0  25 3a 62 6c 6f 63 6b 25  21 38 3d 79 30 25 3a 62  |%:block%!8=y0%:b|
000000f0  6c 6f 63 6b 25 21 31 32  3d 78 31 25 3a 62 6c 6f  |lock%!12=x1%:blo|
00000100  63 6b 25 21 31 36 3d 79  31 25 0d 00 5a 21 62 6c  |ck%!16=y1%..Z!bl|
00000110  6f 63 6b 25 21 32 30 3d  73 63 78 25 3a 62 6c 6f  |ock%!20=scx%:blo|
00000120  63 6b 25 21 32 34 3d 73  63 79 25 0d 00 64 20 c8  |ck%!24=scy%..d .|
00000130  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000140  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 00 6e 05 e1  |ow",,block%..n..|
00000150  0d 00 78 05 3a 0d 00 82  15 dd 20 f2 6f 72 69 67  |..x.:..... .orig|
00000160  69 6e 28 62 6c 6f 63 6b  25 29 0d 00 8c 39 78 30  |in(block%)...9x0|
00000170  25 3d 62 6c 6f 63 6b 25  21 34 3a 79 30 25 3d 62  |%=block%!4:y0%=b|
00000180  6c 6f 63 6b 25 21 38 3a  78 31 25 3d 62 6c 6f 63  |lock%!8:x1%=bloc|
00000190  6b 25 21 31 32 3a 79 31  25 3d 62 6c 6f 63 6b 25  |k%!12:y1%=block%|
000001a0  21 31 36 0d 00 96 21 73  63 78 25 3d 62 6c 6f 63  |!16...!scx%=bloc|
000001b0  6b 25 21 32 30 3a 73 63  79 25 3d 62 6c 6f 63 6b  |k%!20:scy%=block|
000001c0  25 21 32 34 0d 00 a0 1d  62 78 25 3d 78 30 25 2d  |%!24....bx%=x0%-|
000001d0  73 63 78 25 3a 62 79 25  3d 79 31 25 2d 73 63 79  |scx%:by%=y1%-scy|
000001e0  25 0d 00 aa 05 e1 0d 00  b4 05 3a 0d 00 be 14 dd  |%.........:.....|
000001f0  20 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  | .getw(handle%).|
00000200  00 c8 34 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |..4!block%=handl|
00000210  65 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |e%:.. "Wimp_GetW|
00000220  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00000230  63 6b 25 0d 00 d2 37 f2  6f 72 69 67 69 6e 28 62  |ck%...7.origin(b|
00000240  6c 6f 63 6b 25 29 3a 62  68 61 6e 64 6c 65 25 3d  |lock%):bhandle%=|
00000250  62 6c 6f 63 6b 25 21 32  38 3a 66 6c 61 67 73 25  |block%!28:flags%|
00000260  3d 62 6c 6f 63 6b 25 21  33 32 0d 00 dc 05 e1 0d  |=block%!32......|
00000270  00 e6 05 3a 0d 00 f0 15  dd 20 f2 66 72 6f 6e 74  |...:..... .front|
00000280  28 68 61 6e 64 6c 65 25  29 0d 00 fa 12 f2 67 65  |(handle%).....ge|
00000290  74 77 28 68 61 6e 64 6c  65 25 29 0d 01 04 36 f2  |tw(handle%)...6.|
000002a0  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 68 61 6e 64  |open_window(hand|
000002b0  6c 65 25 2c 78 30 25 2c  79 30 25 2c 78 31 25 2c  |le%,x0%,y0%,x1%,|
000002c0  79 31 25 2c 73 63 78 25  2c 73 63 79 25 2c 2d 31  |y1%,scx%,scy%,-1|
000002d0  29 0d 01 0e 05 e1 0d 01  18 05 3a 0d 01 22 15 dd  |).........:.."..|
000002e0  20 f2 70 6f 70 75 70 28  68 61 6e 64 6c 65 25 29  | .popup(handle%)|
000002f0  0d 01 2c 12 f2 67 65 74  77 28 68 61 6e 64 6c 65  |..,..getw(handle|
00000300  25 29 0d 01 36 30 78 6f  25 3d 6d 6f 75 73 65 78  |%)..60xo%=mousex|
00000310  25 2d 28 78 30 25 2b 78  31 25 29 2f 32 3a 79 6f  |%-(x0%+x1%)/2:yo|
00000320  25 3d 6d 6f 75 73 65 79  25 2d 28 79 31 25 2b 36  |%=mousey%-(y1%+6|
00000330  34 29 0d 01 40 46 f2 6f  70 65 6e 5f 77 69 6e 64  |4)..@F.open_wind|
00000340  6f 77 28 68 61 6e 64 6c  65 25 2c 78 30 25 2b 78  |ow(handle%,x0%+x|
00000350  6f 25 2c 79 30 25 2b 79  6f 25 2c 78 31 25 2b 78  |o%,y0%+yo%,x1%+x|
00000360  6f 25 2c 79 31 25 2b 79  6f 25 2c 73 63 78 25 2c  |o%,y1%+yo%,scx%,|
00000370  73 63 79 25 2c 2d 31 29  0d 01 4a 05 e1 0d 01 54  |scy%,-1)..J....T|
00000380  05 3a 0d 01 5e 1c dd 20  f2 63 6c 6f 73 65 5f 77  |.:..^.. .close_w|
00000390  69 6e 64 6f 77 28 68 61  6e 64 6c 65 25 29 0d 01  |indow(handle%)..|
000003a0  68 12 f2 67 65 74 77 28  68 61 6e 64 6c 65 25 29  |h..getw(handle%)|
000003b0  0d 01 72 31 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |..r1!block%=hand|
000003c0  6c 65 25 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |le%:.. "Wimp_Clo|
000003d0  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
000003e0  25 0d 01 7c 05 e1 0d 01  86 05 3a 0d 01 90 1b dd  |%..|......:.....|
000003f0  20 f2 64 72 61 77 5f 77  69 6e 64 6f 77 28 68 61  | .draw_window(ha|
00000400  6e 64 6c 65 25 29 0d 01  9a 13 f2 6f 72 69 67 69  |ndle%).....origi|
00000410  6e 28 62 6c 6f 63 6b 25  29 0d 01 a4 0c c8 95 20  |n(block%)...... |
00000420  6d 6f 72 65 25 0d 01 ae  41 20 20 72 78 30 25 3d  |more%...A  rx0%=|
00000430  62 6c 6f 63 6b 25 21 32  38 3a 72 79 30 25 3d 62  |block%!28:ry0%=b|
00000440  6c 6f 63 6b 25 21 33 32  3a 72 78 31 25 3d 62 6c  |lock%!32:rx1%=bl|
00000450  6f 63 6b 25 21 33 36 3a  72 79 31 25 3d 62 6c 6f  |ock%!36:ry1%=blo|
00000460  63 6b 25 21 34 30 0d 01  b8 28 20 20 f2 72 65 64  |ck%!40...(  .red|
00000470  72 61 77 28 68 61 6e 64  6c 65 25 29 3a 20 f4 20  |raw(handle%): . |
00000480  75 73 65 72 20 72 6f 75  74 69 6e 65 20 21 0d 01  |user routine !..|
00000490  c2 2c 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |.,  .. "Wimp_Get|
000004a0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 62 6c 6f 63  |Rectangle",,bloc|
000004b0  6b 25 20 b8 20 6d 6f 72  65 25 0d 01 cc 05 ce 0d  |k% . more%......|
000004c0  01 d6 05 e1 0d 01 e0 05  3a 0d 01 ea 31 dd 20 f2  |........:...1. .|
000004d0  75 70 64 61 74 65 5f 77  69 6e 64 6f 77 28 68 61  |update_window(ha|
000004e0  6e 64 6c 65 25 2c 75 78  30 25 2c 75 79 30 25 2c  |ndle%,ux0%,uy0%,|
000004f0  75 78 31 25 2c 75 79 31  25 29 0d 01 f4 4d 21 62  |ux1%,uy1%)...M!b|
00000500  6c 6f 63 6b 25 3d 68 61  6e 64 6c 65 25 3a 62 6c  |lock%=handle%:bl|
00000510  6f 63 6b 25 21 34 3d 75  78 30 25 3a 62 6c 6f 63  |ock%!4=ux0%:bloc|
00000520  6b 25 21 38 3d 75 79 30  25 3a 62 6c 6f 63 6b 25  |k%!8=uy0%:block%|
00000530  21 31 32 3d 75 78 31 25  3a 62 6c 6f 63 6b 25 21  |!12=ux1%:block%!|
00000540  31 36 3d 75 79 31 25 0d  01 fe 2a c8 99 20 22 57  |16=uy1%...*.. "W|
00000550  69 6d 70 5f 55 70 64 61  74 65 57 69 6e 64 6f 77  |imp_UpdateWindow|
00000560  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 6d 6f 72 65  |",,block% . more|
00000570  25 0d 02 08 19 f2 64 72  61 77 5f 77 69 6e 64 6f  |%.....draw_windo|
00000580  77 28 68 61 6e 64 6c 65  25 29 0d 02 12 05 e1 0d  |w(handle%)......|
00000590  02 1c 05 3a 0d 02 26 1d  dd 20 f2 72 65 64 72 61  |...:..&.. .redra|
000005a0  77 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |w_window(handle%|
000005b0  29 0d 02 30 13 21 62 6c  6f 63 6b 25 3d 68 61 6e  |)..0.!block%=han|
000005c0  64 6c 65 25 0d 02 3a 2a  c8 99 20 22 57 69 6d 70  |dle%..:*.. "Wimp|
000005d0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
000005e0  62 6c 6f 63 6b 25 20 b8  20 6d 6f 72 65 25 0d 02  |block% . more%..|
000005f0  44 19 f2 64 72 61 77 5f  77 69 6e 64 6f 77 28 68  |D..draw_window(h|
00000600  61 6e 64 6c 65 25 29 0d  02 4e 05 e1 0d 02 58 05  |andle%)..N....X.|
00000610  3a 0d 02 62 11 dd 20 f2  67 65 74 70 6f 69 6e 74  |:..b.. .getpoint|
00000620  65 72 0d 02 6c 24 c8 99  20 22 57 69 6d 70 5f 47  |er..l$.. "Wimp_G|
00000630  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00000640  62 6c 6f 63 6b 25 0d 02  76 60 6d 6f 75 73 65 78  |block%..v`mousex|
00000650  25 3d 21 62 6c 6f 63 6b  25 3a 6d 6f 75 73 65 79  |%=!block%:mousey|
00000660  25 3d 62 6c 6f 63 6b 25  21 34 3a 62 25 3d 62 6c  |%=block%!4:b%=bl|
00000670  6f 63 6b 25 21 38 3a 68  61 6e 64 6c 65 25 3d 62  |ock%!8:handle%=b|
00000680  6c 6f 63 6b 25 21 31 32  3a 69 63 6f 6e 25 3d 62  |lock%!12:icon%=b|
00000690  6c 6f 63 6b 25 21 31 36  3a 6f 62 25 3d 62 6c 6f  |lock%!16:ob%=blo|
000006a0  63 6b 25 21 32 30 0d 02  80 05 e1 0d 02 8a 05 3a  |ck%!20.........:|
000006b0  0d 02 94 57 dd 20 a4 63  72 65 61 74 65 5f 77 69  |...W. .create_wi|
000006c0  6e 64 6f 77 28 78 30 25  2c 79 30 25 2c 76 77 77  |ndow(x0%,y0%,vww|
000006d0  25 2c 76 77 68 25 2c 73  63 78 25 2c 73 63 79 25  |%,vwh%,scx%,scy%|
000006e0  2c 77 77 25 2c 77 68 25  2c 66 6c 61 67 73 25 2c  |,ww%,wh%,flags%,|
000006f0  66 63 25 2c 62 63 25 2c  74 69 74 6c 65 66 25 2c  |fc%,bc%,titlef%,|
00000700  74 69 74 6c 65 24 29 0d  02 9e 41 21 62 6c 6f 63  |title$)...A!bloc|
00000710  6b 25 3d 78 30 25 3a 62  6c 6f 63 6b 25 21 34 3d  |k%=x0%:block%!4=|
00000720  79 30 25 3a 62 6c 6f 63  6b 25 21 38 3d 78 30 25  |y0%:block%!8=x0%|
00000730  2b 76 77 77 25 3a 62 6c  6f 63 6b 25 21 31 32 3d  |+vww%:block%!12=|
00000740  79 30 25 2b 76 77 68 25  0d 02 a8 1f f4 20 69 6e  |y0%+vwh%..... in|
00000750  69 74 69 65 65 6c 20 7a  69 63 68 74 62 61 61 72  |itieel zichtbaar|
00000760  20 67 65 62 69 65 64 0d  02 b2 36 62 6c 6f 63 6b  | gebied...6block|
00000770  25 21 31 36 3d 73 63 78  25 3a 62 6c 6f 63 6b 25  |%!16=scx%:block%|
00000780  21 32 30 3d 73 63 79 25  3a 20 f4 20 73 63 72 6f  |!20=scy%: . scro|
00000790  6c 6c 20 62 61 72 20 6f  66 66 73 65 74 0d 02 bc  |ll bar offset...|
000007a0  27 62 6c 6f 63 6b 25 21  32 34 3d 2d 31 3a 20 f4  |'block%!24=-1: .|
000007b0  20 77 69 6e 64 6f 77 20  6b 6f 6d 74 20 62 6f 76  | window komt bov|
000007c0  65 6e 6f 70 0d 02 c6 24  62 6c 6f 63 6b 25 21 32  |enop...$block%!2|
000007d0  38 3d 66 6c 61 67 73 25  3a 20 f4 20 77 69 6e 64  |8=flags%: . wind|
000007e0  6f 77 20 66 6c 61 67 73  0d 02 d0 17 e7 20 66 63  |ow flags..... fc|
000007f0  25 3d 31 35 20 80 20 62  63 25 3d 31 35 20 8c 0d  |%=15 . bc%=15 ..|
00000800  02 da 3b 20 20 62 6c 6f  63 6b 25 3f 33 32 3d 31  |..;  block%?32=1|
00000810  35 3a 62 6c 6f 63 6b 25  3f 33 33 3d 31 35 3a 62  |5:block%?33=15:b|
00000820  6c 6f 63 6b 25 3f 33 34  3d 66 63 25 3a 62 6c 6f  |lock%?34=fc%:blo|
00000830  63 6b 25 3f 33 35 3d 62  63 25 0d 02 e4 05 cc 0d  |ck%?35=bc%......|
00000840  02 ee 41 20 20 62 6c 6f  63 6b 25 3f 33 32 3d 74  |..A  block%?32=t|
00000850  66 63 6f 6c 3a 62 6c 6f  63 6b 25 3f 33 33 3d 74  |fcol:block%?33=t|
00000860  62 63 6f 6c 3a 62 6c 6f  63 6b 25 3f 33 34 3d 66  |bcol:block%?34=f|
00000870  63 25 3a 62 6c 6f 63 6b  25 3f 33 35 3d 62 63 25  |c%:block%?35=bc%|
00000880  0d 02 f8 05 cd 0d 03 02  3b 62 6c 6f 63 6b 25 3f  |........;block%?|
00000890  33 36 3d 73 63 6f 3a 62  6c 6f 63 6b 25 3f 33 37  |36=sco:block%?37|
000008a0  3d 73 63 69 3a 62 6c 6f  63 6b 25 3f 33 38 3d 74  |=sci:block%?38=t|
000008b0  62 63 6f 6c 32 3a 20 f4  20 6b 6c 65 75 72 65 6e  |bcol2: . kleuren|
000008c0  0d 03 0c 2e 62 6c 6f 63  6b 25 3f 33 39 3d 30 3a  |....block%?39=0:|
000008d0  20 f4 20 67 65 72 65 73  65 72 76 65 65 72 64 2c  | . gereserveerd,|
000008e0  20 6d 6f 65 74 20 6e 75  6c 20 7a 69 6a 6e 0d 03  | moet nul zijn..|
000008f0  16 38 62 6c 6f 63 6b 25  21 34 30 3d 30 3a 62 6c  |.8block%!40=0:bl|
00000900  6f 63 6b 25 21 34 34 3d  2d 77 68 25 3a 62 6c 6f  |ock%!44=-wh%:blo|
00000910  63 6b 25 21 34 38 3d 77  77 25 3a 62 6c 6f 63 6b  |ck%!48=ww%:block|
00000920  25 21 35 32 3d 30 0d 03  20 31 f4 20 74 6f 74 61  |%!52=0.. 1. tota|
00000930  6c 65 20 77 65 72 6b 67  65 62 69 65 64 2d 6f 6d  |le werkgebied-om|
00000940  76 61 6e 67 20 28 77 6f  72 6b 20 61 72 65 61 20  |vang (work area |
00000950  65 78 74 65 6e 74 29 0d  03 2a 2d 62 6c 6f 63 6b  |extent)..*-block|
00000960  25 21 35 36 3d 74 69 74  6c 65 66 25 3a 20 f4 20  |%!56=titlef%: . |
00000970  69 63 6f 6e 20 66 6c 61  67 73 20 74 69 74 6c 65  |icon flags title|
00000980  20 62 61 72 0d 03 34 2c  62 6c 6f 63 6b 25 21 36  | bar..4,block%!6|
00000990  30 3d 26 33 30 30 30 3a  20 f4 20 77 6f 72 6b 20  |0=&3000: . work |
000009a0  61 72 65 61 20 62 75 74  74 6f 6e 20 74 79 70 65  |area button type|
000009b0  0d 03 3e 34 62 6c 6f 63  6b 25 21 36 34 3d 30 3a  |..>4block%!64=0:|
000009c0  20 f4 20 73 70 72 69 74  65 20 61 72 65 61 20 63  | . sprite area c|
000009d0  6f 6e 74 72 6f 6c 20 62  6c 6f 63 6b 20 70 6f 69  |ontrol block poi|
000009e0  6e 74 65 72 0d 03 48 39  62 6c 6f 63 6b 25 21 36  |nter..H9block%!6|
000009f0  38 3d 30 3a 20 f4 20 6d  69 6e 2e 67 72 6f 6f 74  |8=0: . min.groot|
00000a00  74 65 20 62 65 70 61 61  6c 64 20 64 6f 6f 72 20  |te bepaald door |
00000a10  74 69 74 6c 65 20 62 72  65 65 64 74 65 0d 03 52  |title breedte..R|
00000a20  25 24 28 62 6c 6f 63 6b  25 2b 37 32 29 3d c0 74  |%$(block%+72)=.t|
00000a30  69 74 6c 65 24 2c 31 31  29 3a 20 f4 20 74 69 74  |itle$,11): . tit|
00000a40  6c 65 0d 03 5c 26 62 6c  6f 63 6b 25 21 38 34 3d  |le..\&block%!84=|
00000a50  30 3a 20 f4 20 69 6e 69  74 69 65 65 6c 20 67 65  |0: . initieel ge|
00000a60  65 6e 20 69 63 6f 6e 73  0d 03 66 2c c8 99 20 22  |en icons..f,.. "|
00000a70  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000a80  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 68 61 6e  |w",,block% . han|
00000a90  64 6c 65 25 0d 03 70 0c  3d 68 61 6e 64 6c 65 25  |dle%..p.=handle%|
00000aa0  0d 03 7a 05 3a 0d 03 84  15 dd 20 f2 73 65 74 5f  |..z.:..... .set_|
00000ab0  63 6f 6c 6f 75 72 28 63  25 29 0d 03 8e 1a c8 99  |colour(c%)......|
00000ac0  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00000ad0  22 2c 63 25 0d 03 98 05  e1 0d 03 a2 05 3a 0d 03  |",c%.........:..|
00000ae0  ac 13 dd 20 f2 73 65 74  5f 6c 69 6e 65 28 6c 25  |... .set_line(l%|
00000af0  29 0d 03 b6 1e ec 20 62  78 25 2b 6f 66 66 73 65  |)..... bx%+offse|
00000b00  74 25 2c 62 79 25 2d 66  65 65 64 25 2a 6c 25 0d  |t%,by%-feed%*l%.|
00000b10  03 c0 05 e1 0d ff                                 |......|
00000b16