� >!RunImage
� PrBuffer
� � M.J.Fowler 12/3/90
(:
2�initialise
<��error(�,�$+" ("+Þ+")")
F�
P"ș"Wimp_Poll",1,block%�reason%
ZȎreason%�
d# �2:ș"Wimp_OpenWindow",,block%
n$ �3:ș"Wimp_CloseWindow",,block%
x- �6:�button(block%!8,block%!12,block%!16)
�% �8:�key_press(!block%,block%!24)
� �9:�menu_select(!block%)
� �17,18:quit%=(block%!16=0)
��
�
�quit%
�ș"Wimp_CloseDown"
��
�:
���initialise
�datasize%=1000
�)�block% 512,menu% 200,data% datasize%
�-dataend%=data%+datasize%:quit%=�:size%=16
�6ș"Wimp_Initialise",200,&4B534154,"Printer Buffer"

�installicon

�windows

�

":

,��installicon

6>!block%=-1:block%!4=0:block%!8=0:block%!12=84:block%!16=68

@,block%!20=&3002:$(block%+24)="!prbuffer"

J%ș"Wimp_CreateIcon",,block%�icon%

T�

^:

h
��windows

r	�ptr%

|1ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"

�Cș"Wimp_LoadTemplate",,block%,data%,dataend%,-1,"info",0�,,ptr%

�4block%!24=-1:ș"Wimp_CreateWindow",,block%�info%

�Dș"Wimp_LoadTemplate",,block%,ptr%,dataend%,-1,"buffer",0�,,ptr%

�6block%!24=-1:ș"Wimp_CreateWindow",,block%�buffer%

�input%=�iconaddr(buffer%,3)

�Goutput_used%=�iconaddr(buffer%,4):output_left%=�iconaddr(buffer%,5)

�$input%=�size%:�size(�,�)

�ș"Wimp_CloseTemplate"

��

�:

� ��error(!block%,$(block%+4))

�ș"Wimp_CreateMenu",,-1

�2ș"Wimp_ReportError",block%,1,"Printer Buffer"
$input%=�size%
�=257�size(�,�)��size(�,�)
�
&:
0��button(b%,w%,i%)
:	Ȏw%�
D	 �-2:
N  �i%=icon%�
X,   �b%=2�menu_create(!block%):�size(�,�)
b  �
l �info%:
v �buffer%:
�  �i%=7�
�4   �b%=1�b%=4 �size(�,�):ș"Wimp_CreateMenu",,-1
�  �
��
��
�:
���menu_create(x%)
�5m%=menu%:$m%="PrintBuffer":m%!12=&70207:m%!16=200
�m%!20=40:m%!24=0
�7m%!28=0:m%!32=info%:m%!36=&07019011:$(m%+40)="Info"
�@m%!52=0:m%!56=buffer%:m%!60=&07019011:$(m%+64)="Buffer size"
�5m%!76=0:m%!80=-1:m%!84=&07019011:$(m%+88)="Flush"
�=m%!100=0:m%!104=-1:m%!108=&07019011:$(m%+112)="No buffer"
:m%!124=&80:m%!128=-1:m%!132=&07019011:$(m%+136)="Quit"
%ș"Wimp_CreateMenu",,m%,x%-64,296
�
 :
*��menu_select(c%)
4#ș"Wimp_GetPointerInfo",,block%
>x%=!block%:button%=block%!8
H	Ȏc%�
R �2:�"Flush":�size(�,�)
\* �3:�"NoBuffer":$input%="1":�size(�,�)
f �4:quit%=�
p�
z,�(button%�1)��menu_create(x%):�size(�,�)
��
�:
���key_press(h%,k%)
��h%<>buffer%�
��k%=13�
� �size(�,�)
��
� ș"Wimp_ProcessKey",k%
��
��
�:
���size(update%,redraw%)
�input$=$input%
n%=��input$
+�n%<=0�n%>4096 �1,"Invalid buffer size"
�update%=� �
$ �"Buffer "+�n%
.
 size%=n%
8�
B!ș"OS_Byte",128,-4,-1 �,n1,n2
L)left%=(n2<<8)+n1:$output_left%=�left%
V/used%=size%*1024-left%:$output_used%=�used%
`�redraw%=� �
j �redraw_window(buffer%)
t�
~�
�:
�ݤiconaddr(h%,i%)
�!block%=h%:block%!4=i%
�!ș"Wimp_GetIconState",,block%
�4�(block%!24 �&100)=0 �0,"Icon is not indirected"
�=block%!28
�:
���redraw_window(h%)
�!block%=h%
�'ș"Wimp_RedrawWindow",,block%�more%
�ȕmore%
�'ș"Wimp_GetRectangle",,block%�more%
�

�
:
��close_window(h%)
(+!block%=h%:ș"Wimp_CloseWindow",,block%
2�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 0e f4 20 50 72  42 75 66 66 65 72 0d 00  |..... PrBuffer..|
00000020  1e 1a f4 20 a9 20 4d 2e  4a 2e 46 6f 77 6c 65 72  |... . M.J.Fowler|
00000030  20 31 32 2f 33 2f 39 30  0d 00 28 05 3a 0d 00 32  | 12/3/90..(.:..2|
00000040  0f f2 69 6e 69 74 69 61  6c 69 73 65 0d 00 3c 1e  |..initialise..<.|
00000050  ee 85 f2 65 72 72 6f 72  28 9f 2c f6 24 2b 22 20  |...error(.,.$+" |
00000060  28 22 2b c3 9e 2b 22 29  22 29 0d 00 46 05 f5 0d  |("+..+")")..F...|
00000070  00 50 22 c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 22  |.P".."Wimp_Poll"|
00000080  2c 31 2c 62 6c 6f 63 6b  25 b8 72 65 61 73 6f 6e  |,1,block%.reason|
00000090  25 0d 00 5a 0e c8 8e 72  65 61 73 6f 6e 25 ca 0d  |%..Z...reason%..|
000000a0  00 64 23 20 c9 32 3a c8  99 22 57 69 6d 70 5f 4f  |.d# .2:.."Wimp_O|
000000b0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
000000c0  6b 25 0d 00 6e 24 20 c9  33 3a c8 99 22 57 69 6d  |k%..n$ .3:.."Wim|
000000d0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000000e0  62 6c 6f 63 6b 25 0d 00  78 2d 20 c9 36 3a f2 62  |block%..x- .6:.b|
000000f0  75 74 74 6f 6e 28 62 6c  6f 63 6b 25 21 38 2c 62  |utton(block%!8,b|
00000100  6c 6f 63 6b 25 21 31 32  2c 62 6c 6f 63 6b 25 21  |lock%!12,block%!|
00000110  31 36 29 0d 00 82 25 20  c9 38 3a f2 6b 65 79 5f  |16)...% .8:.key_|
00000120  70 72 65 73 73 28 21 62  6c 6f 63 6b 25 2c 62 6c  |press(!block%,bl|
00000130  6f 63 6b 25 21 32 34 29  0d 00 8c 1d 20 c9 39 3a  |ock%!24).... .9:|
00000140  f2 6d 65 6e 75 5f 73 65  6c 65 63 74 28 21 62 6c  |.menu_select(!bl|
00000150  6f 63 6b 25 29 0d 00 96  1f 20 c9 31 37 2c 31 38  |ock%).... .17,18|
00000160  3a 71 75 69 74 25 3d 28  62 6c 6f 63 6b 25 21 31  |:quit%=(block%!1|
00000170  36 3d 30 29 0d 00 a0 05  cb 0d 00 aa 0a fd 71 75  |6=0)..........qu|
00000180  69 74 25 0d 00 b4 16 c8  99 22 57 69 6d 70 5f 43  |it%......"Wimp_C|
00000190  6c 6f 73 65 44 6f 77 6e  22 0d 00 be 05 e0 0d 00  |loseDown".......|
000001a0  c8 05 3a 0d 00 d2 10 dd  f2 69 6e 69 74 69 61 6c  |..:......initial|
000001b0  69 73 65 0d 00 dc 12 64  61 74 61 73 69 7a 65 25  |ise....datasize%|
000001c0  3d 31 30 30 30 0d 00 e6  29 de 62 6c 6f 63 6b 25  |=1000...).block%|
000001d0  20 35 31 32 2c 6d 65 6e  75 25 20 32 30 30 2c 64  | 512,menu% 200,d|
000001e0  61 74 61 25 20 64 61 74  61 73 69 7a 65 25 0d 00  |ata% datasize%..|
000001f0  f0 2d 64 61 74 61 65 6e  64 25 3d 64 61 74 61 25  |.-dataend%=data%|
00000200  2b 64 61 74 61 73 69 7a  65 25 3a 71 75 69 74 25  |+datasize%:quit%|
00000210  3d a3 3a 73 69 7a 65 25  3d 31 36 0d 00 fa 36 c8  |=.:size%=16...6.|
00000220  99 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  |."Wimp_Initialis|
00000230  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000240  2c 22 50 72 69 6e 74 65  72 20 42 75 66 66 65 72  |,"Printer Buffer|
00000250  22 0d 01 04 10 f2 69 6e  73 74 61 6c 6c 69 63 6f  |".....installico|
00000260  6e 0d 01 0e 0c f2 77 69  6e 64 6f 77 73 0d 01 18  |n.....windows...|
00000270  05 e1 0d 01 22 05 3a 0d  01 2c 11 dd f2 69 6e 73  |....".:..,...ins|
00000280  74 61 6c 6c 69 63 6f 6e  0d 01 36 3e 21 62 6c 6f  |tallicon..6>!blo|
00000290  63 6b 25 3d 2d 31 3a 62  6c 6f 63 6b 25 21 34 3d  |ck%=-1:block%!4=|
000002a0  30 3a 62 6c 6f 63 6b 25  21 38 3d 30 3a 62 6c 6f  |0:block%!8=0:blo|
000002b0  63 6b 25 21 31 32 3d 38  34 3a 62 6c 6f 63 6b 25  |ck%!12=84:block%|
000002c0  21 31 36 3d 36 38 0d 01  40 2c 62 6c 6f 63 6b 25  |!16=68..@,block%|
000002d0  21 32 30 3d 26 33 30 30  32 3a 24 28 62 6c 6f 63  |!20=&3002:$(bloc|
000002e0  6b 25 2b 32 34 29 3d 22  21 70 72 62 75 66 66 65  |k%+24)="!prbuffe|
000002f0  72 22 0d 01 4a 25 c8 99  22 57 69 6d 70 5f 43 72  |r"..J%.."Wimp_Cr|
00000300  65 61 74 65 49 63 6f 6e  22 2c 2c 62 6c 6f 63 6b  |eateIcon",,block|
00000310  25 b8 69 63 6f 6e 25 0d  01 54 05 e1 0d 01 5e 05  |%.icon%..T....^.|
00000320  3a 0d 01 68 0d dd f2 77  69 6e 64 6f 77 73 0d 01  |:..h...windows..|
00000330  72 09 ea 70 74 72 25 0d  01 7c 31 c8 99 22 57 69  |r..ptr%..|1.."Wi|
00000340  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000350  2c 2c 22 3c 4f 62 65 79  24 44 69 72 3e 2e 54 65  |,,"<Obey$Dir>.Te|
00000360  6d 70 6c 61 74 65 73 22  0d 01 86 43 c8 99 22 57  |mplates"...C.."W|
00000370  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000380  22 2c 2c 62 6c 6f 63 6b  25 2c 64 61 74 61 25 2c  |",,block%,data%,|
00000390  64 61 74 61 65 6e 64 25  2c 2d 31 2c 22 69 6e 66  |dataend%,-1,"inf|
000003a0  6f 22 2c 30 b8 2c 2c 70  74 72 25 0d 01 90 34 62  |o",0.,,ptr%...4b|
000003b0  6c 6f 63 6b 25 21 32 34  3d 2d 31 3a c8 99 22 57  |lock%!24=-1:.."W|
000003c0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000003d0  22 2c 2c 62 6c 6f 63 6b  25 b8 69 6e 66 6f 25 0d  |",,block%.info%.|
000003e0  01 9a 44 c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |..D.."Wimp_LoadT|
000003f0  65 6d 70 6c 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |emplate",,block%|
00000400  2c 70 74 72 25 2c 64 61  74 61 65 6e 64 25 2c 2d  |,ptr%,dataend%,-|
00000410  31 2c 22 62 75 66 66 65  72 22 2c 30 b8 2c 2c 70  |1,"buffer",0.,,p|
00000420  74 72 25 0d 01 a4 36 62  6c 6f 63 6b 25 21 32 34  |tr%...6block%!24|
00000430  3d 2d 31 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |=-1:.."Wimp_Crea|
00000440  74 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |teWindow",,block|
00000450  25 b8 62 75 66 66 65 72  25 0d 01 ae 1f 69 6e 70  |%.buffer%....inp|
00000460  75 74 25 3d a4 69 63 6f  6e 61 64 64 72 28 62 75  |ut%=.iconaddr(bu|
00000470  66 66 65 72 25 2c 33 29  0d 01 b8 47 6f 75 74 70  |ffer%,3)...Goutp|
00000480  75 74 5f 75 73 65 64 25  3d a4 69 63 6f 6e 61 64  |ut_used%=.iconad|
00000490  64 72 28 62 75 66 66 65  72 25 2c 34 29 3a 6f 75  |dr(buffer%,4):ou|
000004a0  74 70 75 74 5f 6c 65 66  74 25 3d a4 69 63 6f 6e  |tput_left%=.icon|
000004b0  61 64 64 72 28 62 75 66  66 65 72 25 2c 35 29 0d  |addr(buffer%,5).|
000004c0  01 c2 1d 24 69 6e 70 75  74 25 3d c3 73 69 7a 65  |...$input%=.size|
000004d0  25 3a f2 73 69 7a 65 28  b9 2c a3 29 0d 01 cc 1a  |%:.size(.,.)....|
000004e0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.."Wimp_CloseTem|
000004f0  70 6c 61 74 65 22 0d 01  d6 05 e1 0d 01 e0 05 3a  |plate".........:|
00000500  0d 01 ea 20 dd f2 65 72  72 6f 72 28 21 62 6c 6f  |... ..error(!blo|
00000510  63 6b 25 2c 24 28 62 6c  6f 63 6b 25 2b 34 29 29  |ck%,$(block%+4))|
00000520  0d 01 f4 1b c8 99 22 57  69 6d 70 5f 43 72 65 61  |......"Wimp_Crea|
00000530  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 01 fe 32 c8  |teMenu",,-1...2.|
00000540  99 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |."Wimp_ReportErr|
00000550  6f 72 22 2c 62 6c 6f 63  6b 25 2c 31 2c 22 50 72  |or",block%,1,"Pr|
00000560  69 6e 74 65 72 20 42 75  66 66 65 72 22 0d 02 08  |inter Buffer"...|
00000570  12 24 69 6e 70 75 74 25  3d c3 73 69 7a 65 25 0d  |.$input%=.size%.|
00000580  02 12 1f e7 9f 3d 32 35  37 f2 73 69 7a 65 28 b9  |.....=257.size(.|
00000590  2c a3 29 8b f2 73 69 7a  65 28 a3 2c a3 29 0d 02  |,.)..size(.,.)..|
000005a0  1c 05 e1 0d 02 26 05 3a  0d 02 30 16 dd f2 62 75  |.....&.:..0...bu|
000005b0  74 74 6f 6e 28 62 25 2c  77 25 2c 69 25 29 0d 02  |tton(b%,w%,i%)..|
000005c0  3a 09 c8 8e 77 25 ca 0d  02 44 09 20 c9 2d 32 3a  |:...w%...D. .-2:|
000005d0  0d 02 4e 10 20 20 e7 69  25 3d 69 63 6f 6e 25 8c  |..N.  .i%=icon%.|
000005e0  0d 02 58 2c 20 20 20 e7  62 25 3d 32 f2 6d 65 6e  |..X,   .b%=2.men|
000005f0  75 5f 63 72 65 61 74 65  28 21 62 6c 6f 63 6b 25  |u_create(!block%|
00000600  29 3a f2 73 69 7a 65 28  a3 2c a3 29 0d 02 62 07  |):.size(.,.)..b.|
00000610  20 20 cd 0d 02 6c 0c 20  c9 69 6e 66 6f 25 3a 0d  |  ...l. .info%:.|
00000620  02 76 0e 20 c9 62 75 66  66 65 72 25 3a 0d 02 80  |.v. .buffer%:...|
00000630  0c 20 20 e7 69 25 3d 37  8c 0d 02 8a 34 20 20 20  |.  .i%=7....4   |
00000640  e7 62 25 3d 31 84 62 25  3d 34 20 f2 73 69 7a 65  |.b%=1.b%=4 .size|
00000650  28 b9 2c a3 29 3a c8 99  22 57 69 6d 70 5f 43 72  |(.,.):.."Wimp_Cr|
00000660  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 02 94  |eateMenu",,-1...|
00000670  07 20 20 cd 0d 02 9e 05  cb 0d 02 a8 05 e1 0d 02  |.  .............|
00000680  b2 05 3a 0d 02 bc 15 dd  f2 6d 65 6e 75 5f 63 72  |..:......menu_cr|
00000690  65 61 74 65 28 78 25 29  0d 02 c6 35 6d 25 3d 6d  |eate(x%)...5m%=m|
000006a0  65 6e 75 25 3a 24 6d 25  3d 22 50 72 69 6e 74 42  |enu%:$m%="PrintB|
000006b0  75 66 66 65 72 22 3a 6d  25 21 31 32 3d 26 37 30  |uffer":m%!12=&70|
000006c0  32 30 37 3a 6d 25 21 31  36 3d 32 30 30 0d 02 d0  |207:m%!16=200...|
000006d0  14 6d 25 21 32 30 3d 34  30 3a 6d 25 21 32 34 3d  |.m%!20=40:m%!24=|
000006e0  30 0d 02 da 37 6d 25 21  32 38 3d 30 3a 6d 25 21  |0...7m%!28=0:m%!|
000006f0  33 32 3d 69 6e 66 6f 25  3a 6d 25 21 33 36 3d 26  |32=info%:m%!36=&|
00000700  30 37 30 31 39 30 31 31  3a 24 28 6d 25 2b 34 30  |07019011:$(m%+40|
00000710  29 3d 22 49 6e 66 6f 22  0d 02 e4 40 6d 25 21 35  |)="Info"...@m%!5|
00000720  32 3d 30 3a 6d 25 21 35  36 3d 62 75 66 66 65 72  |2=0:m%!56=buffer|
00000730  25 3a 6d 25 21 36 30 3d  26 30 37 30 31 39 30 31  |%:m%!60=&0701901|
00000740  31 3a 24 28 6d 25 2b 36  34 29 3d 22 42 75 66 66  |1:$(m%+64)="Buff|
00000750  65 72 20 73 69 7a 65 22  0d 02 ee 35 6d 25 21 37  |er size"...5m%!7|
00000760  36 3d 30 3a 6d 25 21 38  30 3d 2d 31 3a 6d 25 21  |6=0:m%!80=-1:m%!|
00000770  38 34 3d 26 30 37 30 31  39 30 31 31 3a 24 28 6d  |84=&07019011:$(m|
00000780  25 2b 38 38 29 3d 22 46  6c 75 73 68 22 0d 02 f8  |%+88)="Flush"...|
00000790  3d 6d 25 21 31 30 30 3d  30 3a 6d 25 21 31 30 34  |=m%!100=0:m%!104|
000007a0  3d 2d 31 3a 6d 25 21 31  30 38 3d 26 30 37 30 31  |=-1:m%!108=&0701|
000007b0  39 30 31 31 3a 24 28 6d  25 2b 31 31 32 29 3d 22  |9011:$(m%+112)="|
000007c0  4e 6f 20 62 75 66 66 65  72 22 0d 03 02 3a 6d 25  |No buffer"...:m%|
000007d0  21 31 32 34 3d 26 38 30  3a 6d 25 21 31 32 38 3d  |!124=&80:m%!128=|
000007e0  2d 31 3a 6d 25 21 31 33  32 3d 26 30 37 30 31 39  |-1:m%!132=&07019|
000007f0  30 31 31 3a 24 28 6d 25  2b 31 33 36 29 3d 22 51  |011:$(m%+136)="Q|
00000800  75 69 74 22 0d 03 0c 25  c8 99 22 57 69 6d 70 5f  |uit"...%.."Wimp_|
00000810  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 25 2c  |CreateMenu",,m%,|
00000820  78 25 2d 36 34 2c 32 39  36 0d 03 16 05 e1 0d 03  |x%-64,296.......|
00000830  20 05 3a 0d 03 2a 15 dd  f2 6d 65 6e 75 5f 73 65  | .:..*...menu_se|
00000840  6c 65 63 74 28 63 25 29  0d 03 34 23 c8 99 22 57  |lect(c%)..4#.."W|
00000850  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00000860  66 6f 22 2c 2c 62 6c 6f  63 6b 25 0d 03 3e 1f 78  |fo",,block%..>.x|
00000870  25 3d 21 62 6c 6f 63 6b  25 3a 62 75 74 74 6f 6e  |%=!block%:button|
00000880  25 3d 62 6c 6f 63 6b 25  21 38 0d 03 48 09 c8 8e  |%=block%!8..H...|
00000890  63 25 ca 0d 03 52 1b 20  c9 32 3a ff 22 46 6c 75  |c%...R. .2:."Flu|
000008a0  73 68 22 3a f2 73 69 7a  65 28 b9 2c a3 29 0d 03  |sh":.size(.,.)..|
000008b0  5c 2a 20 c9 33 3a ff 22  4e 6f 42 75 66 66 65 72  |\* .3:."NoBuffer|
000008c0  22 3a 24 69 6e 70 75 74  25 3d 22 31 22 3a f2 73  |":$input%="1":.s|
000008d0  69 7a 65 28 b9 2c a3 29  0d 03 66 0f 20 c9 34 3a  |ize(.,.)..f. .4:|
000008e0  71 75 69 74 25 3d b9 0d  03 70 05 cb 0d 03 7a 2c  |quit%=...p....z,|
000008f0  e7 28 62 75 74 74 6f 6e  25 80 31 29 8c f2 6d 65  |.(button%.1)..me|
00000900  6e 75 5f 63 72 65 61 74  65 28 78 25 29 3a f2 73  |nu_create(x%):.s|
00000910  69 7a 65 28 a3 2c a3 29  0d 03 84 05 e1 0d 03 8e  |ize(.,.)........|
00000920  05 3a 0d 03 98 16 dd f2  6b 65 79 5f 70 72 65 73  |.:......key_pres|
00000930  73 28 68 25 2c 6b 25 29  0d 03 a2 11 e7 68 25 3c  |s(h%,k%).....h%<|
00000940  3e 62 75 66 66 65 72 25  e1 0d 03 ac 0b e7 6b 25  |>buffer%......k%|
00000950  3d 31 33 8c 0d 03 b6 0f  20 f2 73 69 7a 65 28 b9  |=13..... .size(.|
00000960  2c b9 29 0d 03 c0 05 cc  0d 03 ca 1b 20 c8 99 22  |,.)......... .."|
00000970  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00000980  2c 6b 25 0d 03 d4 05 cd  0d 03 de 05 e1 0d 03 e8  |,k%.............|
00000990  05 3a 0d 03 f2 1b dd f2  73 69 7a 65 28 75 70 64  |.:......size(upd|
000009a0  61 74 65 25 2c 72 65 64  72 61 77 25 29 0d 03 fc  |ate%,redraw%)...|
000009b0  12 69 6e 70 75 74 24 3d  24 69 6e 70 75 74 25 0d  |.input$=$input%.|
000009c0  04 06 0f 6e 25 3d a8 bb  69 6e 70 75 74 24 0d 04  |...n%=..input$..|
000009d0  10 2b e7 6e 25 3c 3d 30  84 6e 25 3e 34 30 39 36  |.+.n%<=0.n%>4096|
000009e0  20 85 31 2c 22 49 6e 76  61 6c 69 64 20 62 75 66  | .1,"Invalid buf|
000009f0  66 65 72 20 73 69 7a 65  22 0d 04 1a 10 e7 75 70  |fer size".....up|
00000a00  64 61 74 65 25 3d b9 20  8c 0d 04 24 13 20 ff 22  |date%=. ...$. ."|
00000a10  42 75 66 66 65 72 20 22  2b c3 6e 25 0d 04 2e 0d  |Buffer "+.n%....|
00000a20  20 73 69 7a 65 25 3d 6e  25 0d 04 38 05 cd 0d 04  | size%=n%..8....|
00000a30  42 21 c8 99 22 4f 53 5f  42 79 74 65 22 2c 31 32  |B!.."OS_Byte",12|
00000a40  38 2c 2d 34 2c 2d 31 20  b8 2c 6e 31 2c 6e 32 0d  |8,-4,-1 .,n1,n2.|
00000a50  04 4c 29 6c 65 66 74 25  3d 28 6e 32 3c 3c 38 29  |.L)left%=(n2<<8)|
00000a60  2b 6e 31 3a 24 6f 75 74  70 75 74 5f 6c 65 66 74  |+n1:$output_left|
00000a70  25 3d c3 6c 65 66 74 25  0d 04 56 2f 75 73 65 64  |%=.left%..V/used|
00000a80  25 3d 73 69 7a 65 25 2a  31 30 32 34 2d 6c 65 66  |%=size%*1024-lef|
00000a90  74 25 3a 24 6f 75 74 70  75 74 5f 75 73 65 64 25  |t%:$output_used%|
00000aa0  3d c3 75 73 65 64 25 0d  04 60 10 e7 72 65 64 72  |=.used%..`..redr|
00000ab0  61 77 25 3d b9 20 8c 0d  04 6a 1c 20 f2 72 65 64  |aw%=. ...j. .red|
00000ac0  72 61 77 5f 77 69 6e 64  6f 77 28 62 75 66 66 65  |raw_window(buffe|
00000ad0  72 25 29 0d 04 74 05 cd  0d 04 7e 05 e1 0d 04 88  |r%)..t....~.....|
00000ae0  05 3a 0d 04 92 15 dd a4  69 63 6f 6e 61 64 64 72  |.:......iconaddr|
00000af0  28 68 25 2c 69 25 29 0d  04 9c 1a 21 62 6c 6f 63  |(h%,i%)....!bloc|
00000b00  6b 25 3d 68 25 3a 62 6c  6f 63 6b 25 21 34 3d 69  |k%=h%:block%!4=i|
00000b10  25 0d 04 a6 21 c8 99 22  57 69 6d 70 5f 47 65 74  |%...!.."Wimp_Get|
00000b20  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00000b30  6b 25 0d 04 b0 34 e7 28  62 6c 6f 63 6b 25 21 32  |k%...4.(block%!2|
00000b40  34 20 80 26 31 30 30 29  3d 30 20 85 30 2c 22 49  |4 .&100)=0 .0,"I|
00000b50  63 6f 6e 20 69 73 20 6e  6f 74 20 69 6e 64 69 72  |con is not indir|
00000b60  65 63 74 65 64 22 0d 04  ba 0e 3d 62 6c 6f 63 6b  |ected"....=block|
00000b70  25 21 32 38 0d 04 c4 05  3a 0d 04 ce 17 dd f2 72  |%!28....:......r|
00000b80  65 64 72 61 77 5f 77 69  6e 64 6f 77 28 68 25 29  |edraw_window(h%)|
00000b90  0d 04 d8 0e 21 62 6c 6f  63 6b 25 3d 68 25 0d 04  |....!block%=h%..|
00000ba0  e2 27 c8 99 22 57 69 6d  70 5f 52 65 64 72 61 77  |.'.."Wimp_Redraw|
00000bb0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 b8  |Window",,block%.|
00000bc0  6d 6f 72 65 25 0d 04 ec  0b c8 95 6d 6f 72 65 25  |more%......more%|
00000bd0  0d 04 f6 27 c8 99 22 57  69 6d 70 5f 47 65 74 52  |...'.."Wimp_GetR|
00000be0  65 63 74 61 6e 67 6c 65  22 2c 2c 62 6c 6f 63 6b  |ectangle",,block|
00000bf0  25 b8 6d 6f 72 65 25 0d  05 00 05 ce 0d 05 0a 05  |%.more%.........|
00000c00  e1 0d 05 14 05 3a 0d 05  1e 16 dd f2 63 6c 6f 73  |.....:......clos|
00000c10  65 5f 77 69 6e 64 6f 77  28 68 25 29 0d 05 28 2b  |e_window(h%)..(+|
00000c20  21 62 6c 6f 63 6b 25 3d  68 25 3a c8 99 22 57 69  |!block%=h%:.."Wi|
00000c30  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000c40  2c 62 6c 6f 63 6b 25 0d  05 32 05 e1 0d ff        |,block%..2....|
00000c4e