� >!PC256.!RunImage
:
%� *******************************
(%� *         P C   2 5 6         *
2%� * Archimedes Wimp Environment *
<%� *      Raffaele Ferrigno      *
F%� *   Version 1.0 (July 1990)   *
P%� *******************************
Z:
d7ș "Wimp_Initialise",200,&4B534154,"PC256" � ,task%
n�init:� � �error:quit%=�
x�
��poll(�poll(0))
�� quit%
�ș "Wimp_CloseDown"
��
�:
�� �init
�A� block% &800,menu 150,temp% &800,sp &2000,factor% 15,pix% 15
�$!sp=&2000:sp!4=0:sp!8=16:sp!12=0
�,ș "OS_SpriteOp",266,sp,"!PC256.Sprites"
�2iconbar%=�iconbar:quit%=�:error$="":colour$=""
��getModeInfo:�loadTemplates
��
�:

� �getModeInfo

8ș "Wimp_ReadPixTrans",256,sp,"help",,,,factor%,pix%

�

":

,� �loadTemplates

6.ș "Wimp_OpenTemplate",,"!PC256.Templates"

@3colour%=�window("colour"):info%=�window("info")

Jș "Wimp_CloseTemplate"

T�

^:

h� �window(a$)

r
� c%,end%

|end%=temp%+&800

�Eș "Wimp_LoadTemplate",,block%,temp%,end%,-1,a$,0 � ,,temp%,,,,c%

�4block%!64=sp:ș "Wimp_CreateWindow",,block% � c%

�=c%

�:

�� �poll(mask%)

�� a%

�/block%!0=mask%:ș "Wimp_Poll",0,block% � a%

�=a%

�:

�� �poll(reason%)

�Ȏ reason% �

�� 1:�redrawWindow(block%!0)

�� 2:�openWindow(block%!0,�)
� 3:�closeWindow(block%!0)
'� 4:� (block%!0=info%) � �closeMenu
� 6:�buttonClick(block%)
&� 8:�keyPressed(block%)
0� 9:�menuSelect(block%)
:� 17,18:�message(block%)
D�
N�
X:
b� �message(handle%)
l� handle%!4=task% � �
vȎ handle%!16 �
�� 0:quit%=�
�� &502:�help(handle%)
�� &400C1:�getModeInfo
��
��
�:
�� �help(handle%)
�� a$
�;block%=handle%:block%!12=handle%!8:block%!16=&503:a$=""
�Ȏ block%!32 �
�� -2
�"a$="This is the PC256 icon.|M"
�2a$+="Click SELECT to open the PC256 window.|M"
)a$+="Click MENU to display the menu."

� colour%
Ȏ block%!36 �
 6� 1:a$="This is the standard palette COLOUR icon."
*4� 3:a$="This is the standard palette TINT icon."
45� 4:a$="This is the VDU decimal parameters icon."
>9� 5:a$="This is the VDU hexadecimal parameters icon."
HI� 7:a$="Click SELECT on this icon and enter the Paint colour number."
R$ a$="This is the PC256 window."
\�
f�
p3$(block%+20)=a$:block%!0=(((20+�(a$)+1)�4)*4)+4
z;$(block%+21+�(a$))=�(0):ș "Wimp_SendMessage",17,block%
��
�:
� � �openWindow(handle%,full%)
�block%!0=handle%
�>� � full% � ș "Wimp_GetWindowState",0,block%:block%!28=-1
�!ș "Wimp_OpenWindow",0,block%
��
�:
�� �redrawWindow(handle%)
�� more%
�<block%!0=handle%:ș "Wimp_RedrawWindow",0,block% � more%
�ȕ more%
�+ș "Wimp_GetRectangle",0,block% � more%
�
�
:
$� �closeWindow(handle%)
.3block%!0=handle%:ș "Wimp_CloseWindow",0,block%
8�
B:
L� �buttonClick(block%)
V6button%=block%!8:handle%=block%!12:icon%=block%!16
`#� button% � 2 � �menu(block%):�
j#� handle%=-2 � icon%=iconbar% �
t�openWindow(colour%,�):�
~�
�5block%!0=handle%:ș "Wimp_GetWindowInfo",0,block%
��
�:
�� �menu(block%)
�Ȏ block%!12 �
�� -2
�"�drawMenu(1,"PC256,Info,Quit")
�/ș "Wimp_CreateMenu",,menu+4,!block%-64,176
��
��
�:
�� �menuSelect(block%)
Ȏ !menu �

� 1:�iconbarMenu(block%)
�
�
(:
2� �iconbarMenu(block%)
<Ȏ !block% �
F� 1:quit%=�
P�
Z�
d:
n� �closeMenu
x/ș "Wimp_CreateMenu",-1:�closeWindow(info%)
��
�:
�� �keyPressed(block%)
�2handle%=block%!0:icon%=block%!4:key%=block%!24
�ș "Wimp_ProcessKey",key%
�@�setIconState(handle%,icon%,0,0):�getIconInfo(handle%,icon%)
�Ȏ handle% �
�
� colour%
�Ȏ icon% �
�� 7
�0colour$=data$:�redrawIcon(handle%,7,data$,4)
��updateData(colour$)
��
�
�
:
"� �updateData(c$)
,)� a$,l%,a%,c%,t%,f%,r%,g%,b%,r$,g$,b$
6f%=�:a$=""
@� c%=1 � �(c$)
J6� �(c$)=0 � �(�c$,c%,1))<48 � �(�c$,c%,1))>57 f%=�
T�
^� f%=� �
h� �(c$)<0 � �(c$)>255 f%=�
r�
|� f%=� �
�a%=�(c$):�convert(a%,c%,t%)
�4a$=�(c%):l%=�(a$)+1:�redrawIcon(colour%,1,a$,l%)
�4a$=�(t%):l%=�(a$)+1:�redrawIcon(colour%,3,a$,l%)
��colour(c%,t%,r%,g%,b%)
� r$=�(r%):r$=�3-�(r$),"0")+r$
� g$=�(g%):g$=�3-�(g$),"0")+g$
� b$=�(b%):b$=�3-�(b$),"0")+b$
�&a$="VDU 19,n,16,"+r$+","+g$+","+b$
�+l%=�(a$)+1:�redrawIcon(colour%,4,a$,l%)
�!r$=�~(r%):r$=�2-�(r$),"0")+r$
�!g$=�~(g%):g$=�2-�(g$),"0")+g$
�!b$=�~(b%):b$=�2-�(b$),"0")+b$
�,a$="VDU 19,n,16,"+"&"+r$+",&"+g$+",&"+b$
+l%=�(a$)+1:�redrawIcon(colour%,5,a$,l%)
�
4a$="   ":l%=�(a$)+1:�redrawIcon(colour%,1,a$,l%)
&4a$="   ":l%=�(a$)+1:�redrawIcon(colour%,3,a$,l%)
07a$=�11," "):l%=�(a$)+1:�redrawIcon(colour%,4,a$,l%)
:7a$=�11," "):l%=�(a$)+1:�redrawIcon(colour%,5,a$,l%)
D� 7
N�
X�
b:
l� �convert(a%,� c%,� t%)
vȎ a% �
�� 0,1,2,3:c%=0:t%=64*a%
�� 4,5,6,7:c%=1:t%=64*(a%-4)
�$� 16,17,18,19:c%=2:t%=64*(a%-16)
�$� 20,21,22,23:c%=3:t%=64*(a%-20)
�$� 32,33,34,35:c%=4:t%=64*(a%-32)
�$� 36,37,38,39:c%=5:t%=64*(a%-36)
�$� 48,49,50,51:c%=6:t%=64*(a%-48)
�$� 52,53,54,55:c%=7:t%=64*(a%-52)
�$� 64,65,66,67:c%=8:t%=64*(a%-64)
�$� 68,69,70,71:c%=9:t%=64*(a%-68)
�%� 80,81,82,83:c%=10:t%=64*(a%-80)
�%� 84,85,86,87:c%=11:t%=64*(a%-84)
�%� 96,97,98,99:c%=12:t%=64*(a%-96)
*� 100,101,102,103:c%=13:t%=64*(a%-100)
*� 112,113,114,115:c%=14:t%=64*(a%-112)
*� 116,117,118,119:c%=15:t%=64*(a%-116)
 *� 128,129,130,131:c%=32:t%=64*(a%-128)
**� 132,133,134,135:c%=33:t%=64*(a%-132)
4*� 144,145,146,147:c%=34:t%=64*(a%-144)
>*� 148,149,150,151:c%=35:t%=64*(a%-148)
H*� 160,161,162,163:c%=36:t%=64*(a%-160)
R*� 164,165,166,167:c%=37:t%=64*(a%-164)
\*� 176,177,178,179:c%=38:t%=64*(a%-176)
f*� 180,181,182,183:c%=39:t%=64*(a%-180)
p*� 192,193,194,195:c%=40:t%=64*(a%-192)
z*� 196,197,198,199:c%=41:t%=64*(a%-196)
�*� 208,209,210,211:c%=42:t%=64*(a%-208)
�*� 212,213,214,215:c%=43:t%=64*(a%-212)
�*� 224,225,226,227:c%=44:t%=64*(a%-224)
�*� 228,229,230,231:c%=45:t%=64*(a%-228)
�*� 240,241,242,243:c%=46:t%=64*(a%-240)
�*� 244,245,246,247:c%=47:t%=64*(a%-244)
�"� 8,9,10,11:c%=16:t%=64*(a%-8)
�%� 12,13,14,15:c%=17:t%=64*(a%-12)
�%� 24,25,26,27:c%=18:t%=64*(a%-24)
�%� 28,29,30,31:c%=19:t%=64*(a%-28)
�%� 40,41,42,43:c%=20:t%=64*(a%-40)
�%� 44,45,46,47:c%=21:t%=64*(a%-44)
�%� 56,57,58,59:c%=22:t%=64*(a%-56)
	%� 60,61,62,63:c%=23:t%=64*(a%-60)
	%� 72,73,74,75:c%=24:t%=64*(a%-72)
	%� 76,77,78,79:c%=25:t%=64*(a%-76)
	$%� 88,89,90,91:c%=26:t%=64*(a%-88)
	.%� 92,93,94,95:c%=27:t%=64*(a%-92)
	8*� 104,105,106,107:c%=28:t%=64*(a%-104)
	B*� 108,109,110,111:c%=29:t%=64*(a%-108)
	L*� 120,121,122,123:c%=30:t%=64*(a%-120)
	V*� 124,125,126,127:c%=31:t%=64*(a%-124)
	`*� 136,137,138,139:c%=48:t%=64*(a%-136)
	j*� 140,141,142,143:c%=49:t%=64*(a%-140)
	t*� 152,153,154,155:c%=50:t%=64*(a%-152)
	~*� 156,157,158,159:c%=51:t%=64*(a%-156)
	�*� 168,169,170,171:c%=52:t%=64*(a%-168)
	�*� 172,173,174,175:c%=53:t%=64*(a%-172)
	�*� 184,185,186,187:c%=54:t%=64*(a%-184)
	�*� 188,189,190,191:c%=55:t%=64*(a%-188)
	�*� 200,201,202,203:c%=56:t%=64*(a%-200)
	�*� 204,205,206,207:c%=57:t%=64*(a%-204)
	�*� 216,217,218,219:c%=58:t%=64*(a%-216)
	�*� 220,221,222,223:c%=59:t%=64*(a%-220)
	�*� 232,233,234,235:c%=60:t%=64*(a%-232)
	�*� 236,237,238,239:c%=61:t%=64*(a%-236)
	�*� 248,249,250,251:c%=62:t%=64*(a%-248)
	�*� 252,253,254,255:c%=63:t%=64*(a%-252)
�

�
:
(� �colour(col%,tint%,� r%,� g%,� b%)
(� a$,x%,y%,z%,a%,t%
2(a$=�binary(col%):r%=�decimal(�a$,2))
<-g%=�decimal(�a$,3,2)):b%=�decimal(�a$,2))
Fa%=(tint% � 64)*64
PȎ a% �
Z� 0:t%=0
d� 64:t%=16
n� 128:t%=32
x� 192:t%=48
��
�r%=r%+t%:g%=g%+t%:b%=b%+t%
��
�:
�� �binary(n%)
�� a$,b$,c$,d%,r%
�a$="":b$=�(n%)
��
�)d%=n% � 2:r%=n% � 2:a$=a$+�(r%):n%=d%
�
� d%=0
�	c$=""
�ȕ �(a$)>0
�c$=c$+�a$):a$=�a$)
�
#� �(c$)<6 � c$=�6-�(c$),"0")+c$
=c$
":
,� �decimal(a$)
6� a%
@Ȏ a$ �
J� "00":a%=0
T� "01":a%=64
^� "10":a%=128
h� "11":a%=192
r�
|=a%
�:
�!� �getIconInfo(handle%,icon%)
�Bblock%!0=handle%:block%!4=icon%:ș "Wimp_GetIconState",,block%
�>ix0%=block%!8:iy0%=block%!12:ix1%=block%!16:iy1%=block%!20
�flags%=block%!24
�� (flags% � &100)>0 �
�data$=$block%!28
�� data$=$(block%+28)
��
��
�:
� � �deleteIcon(handle%,icon%)
�@block%!0=handle%:block%!4=icon%:ș "Wimp_DeleteIcon",,block%
�
:
+� �redrawIcon(handle%,icon%,text$,len%)
&:�getIconInfo(handle%,icon%):�deleteIcon(handle%,icon%)
0Ai%=�createIcon(handle%,ix0%,iy0%,ix1%,iy1%,flags%,text$,len%)
:5ș "Wimp_ForceRedraw",handle%,ix0%,iy0%,ix1%,iy1%
D�
N:
X-� �setIconState(handle%,icon%,eor%,mask%)
b@!block%=handle%:block%!4=icon%:block%!8=eor%:block%!12=mask%
l"ș "Wimp_SetIconState",,block%
v�
�:
�� �drawMenu(handle,menu$)
�!menu=handle
�+menu?16=7:menu?17=2:menu?18=7:menu?19=0
�0menu!20=156:menu!24=40:menu!28=0:ptr=menu+32
�.$(menu+4)=�menu$,�menu$,",")-1):menu$+=","
�ȕ menu$<>""
�menu$=�menu$,�menu$,",")+1)
�� menu$<>"" �
�"!ptr=0:ptr!4=-1:ptr!8=&7000021
�#$(ptr+12)=�menu$,�menu$,",")-1)
�Ȏ �menu$,4) �
�� "Info":ptr!4=info%

�

ptr+=24

�

 �

*ptr!-24=ptr!-24 � &80

4�

>:

H@� �createIcon(handle%,ix0%,iy0%,ix1%,iy1%,flags%,data$,len%)

R0block%!0=handle%:block%!4=ix0%:block%!8=iy0%

\2block%!12=ix1%:block%!16=iy1%:block%!20=flags%

f'� block%!24 len%:$(block%!24)=data$

pblock%!28=-1:block%!32=len%

z(ș "Wimp_CreateIcon",,block% � icon%

�
=icon%

�:

�� �iconbar

�1!block%=-1:block%!4=0:block%!8=0:block%!12=68

�/block%!16=68:block%!20=&3102:data$="!pc256"

�.� block%!24 (� data$+1):$(block%!24)=data$

�#block%!28=1:block%!32=� data$+1

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

�	=icon

�:

�� �getString(s%)

�� a$

�
ȕ ?s%
a$+=�?s%:s%+=1
�
=a$
$:
.� �localError
89ș "Wimp_DragBox",,-1:!block%=�:$(block%+4)=error$+�0
B*ș "Wimp_ReportError",block%,1,"PC256"
L�
V:
`� �error
jș "Wimp_DragBox",,-1
t.!block%=�:$(block%+4)=�$+" at line "+Þ+�0
~*ș "Wimp_ReportError",block%,1,"PC256"
��
�

00000000  0d 00 0a 17 f4 20 3e 21  50 43 32 35 36 2e 21 52  |..... >!PC256.!R|
00000010  75 6e 49 6d 61 67 65 0d  00 14 05 3a 0d 00 1e 25  |unImage....:...%|
00000020  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000040  2a 0d 00 28 25 f4 20 2a  20 20 20 20 20 20 20 20  |*..(%. *        |
00000050  20 50 20 43 20 20 20 32  20 35 20 36 20 20 20 20  | P C   2 5 6    |
00000060  20 20 20 20 20 2a 0d 00  32 25 f4 20 2a 20 41 72  |     *..2%. * Ar|
00000070  63 68 69 6d 65 64 65 73  20 57 69 6d 70 20 45 6e  |chimedes Wimp En|
00000080  76 69 72 6f 6e 6d 65 6e  74 20 2a 0d 00 3c 25 f4  |vironment *..<%.|
00000090  20 2a 20 20 20 20 20 20  52 61 66 66 61 65 6c 65  | *      Raffaele|
000000a0  20 46 65 72 72 69 67 6e  6f 20 20 20 20 20 20 2a  | Ferrigno      *|
000000b0  0d 00 46 25 f4 20 2a 20  20 20 56 65 72 73 69 6f  |..F%. *   Versio|
000000c0  6e 20 31 2e 30 20 28 4a  75 6c 79 20 31 39 39 30  |n 1.0 (July 1990|
000000d0  29 20 20 20 2a 0d 00 50  25 f4 20 2a 2a 2a 2a 2a  |)   *..P%. *****|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 5a 05 3a 0d  |**********..Z.:.|
00000100  00 64 37 c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |.d7.. "Wimp_Init|
00000110  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
00000120  33 34 31 35 34 2c 22 50  43 32 35 36 22 20 b8 20  |34154,"PC256" . |
00000130  2c 74 61 73 6b 25 0d 00  6e 1c f2 69 6e 69 74 3a  |,task%..n..init:|
00000140  ee 20 85 20 f2 65 72 72  6f 72 3a 71 75 69 74 25  |. . .error:quit%|
00000150  3d b9 0d 00 78 05 f5 0d  00 82 13 f2 70 6f 6c 6c  |=...x.......poll|
00000160  28 a4 70 6f 6c 6c 28 30  29 29 0d 00 8c 0b fd 20  |(.poll(0))..... |
00000170  71 75 69 74 25 0d 00 96  17 c8 99 20 22 57 69 6d  |quit%...... "Wim|
00000180  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 00 a0 05  |p_CloseDown"....|
00000190  e0 0d 00 aa 05 3a 0d 00  b4 0b dd 20 f2 69 6e 69  |.....:..... .ini|
000001a0  74 0d 00 be 41 de 20 62  6c 6f 63 6b 25 20 26 38  |t...A. block% &8|
000001b0  30 30 2c 6d 65 6e 75 20  31 35 30 2c 74 65 6d 70  |00,menu 150,temp|
000001c0  25 20 26 38 30 30 2c 73  70 20 26 32 30 30 30 2c  |% &800,sp &2000,|
000001d0  66 61 63 74 6f 72 25 20  31 35 2c 70 69 78 25 20  |factor% 15,pix% |
000001e0  31 35 0d 00 c8 24 21 73  70 3d 26 32 30 30 30 3a  |15...$!sp=&2000:|
000001f0  73 70 21 34 3d 30 3a 73  70 21 38 3d 31 36 3a 73  |sp!4=0:sp!8=16:s|
00000200  70 21 31 32 3d 30 0d 00  d2 2c c8 99 20 22 4f 53  |p!12=0...,.. "OS|
00000210  5f 53 70 72 69 74 65 4f  70 22 2c 32 36 36 2c 73  |_SpriteOp",266,s|
00000220  70 2c 22 21 50 43 32 35  36 2e 53 70 72 69 74 65  |p,"!PC256.Sprite|
00000230  73 22 0d 00 dc 32 69 63  6f 6e 62 61 72 25 3d a4  |s"...2iconbar%=.|
00000240  69 63 6f 6e 62 61 72 3a  71 75 69 74 25 3d a3 3a  |iconbar:quit%=.:|
00000250  65 72 72 6f 72 24 3d 22  22 3a 63 6f 6c 6f 75 72  |error$="":colour|
00000260  24 3d 22 22 0d 00 e6 1f  f2 67 65 74 4d 6f 64 65  |$="".....getMode|
00000270  49 6e 66 6f 3a f2 6c 6f  61 64 54 65 6d 70 6c 61  |Info:.loadTempla|
00000280  74 65 73 0d 00 f0 05 e1  0d 00 fa 05 3a 0d 01 04  |tes.........:...|
00000290  12 dd 20 f2 67 65 74 4d  6f 64 65 49 6e 66 6f 0d  |.. .getModeInfo.|
000002a0  01 0e 38 c8 99 20 22 57  69 6d 70 5f 52 65 61 64  |..8.. "Wimp_Read|
000002b0  50 69 78 54 72 61 6e 73  22 2c 32 35 36 2c 73 70  |PixTrans",256,sp|
000002c0  2c 22 68 65 6c 70 22 2c  2c 2c 2c 66 61 63 74 6f  |,"help",,,,facto|
000002d0  72 25 2c 70 69 78 25 0d  01 18 05 e1 0d 01 22 05  |r%,pix%.......".|
000002e0  3a 0d 01 2c 14 dd 20 f2  6c 6f 61 64 54 65 6d 70  |:..,.. .loadTemp|
000002f0  6c 61 74 65 73 0d 01 36  2e c8 99 20 22 57 69 6d  |lates..6... "Wim|
00000300  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000310  2c 22 21 50 43 32 35 36  2e 54 65 6d 70 6c 61 74  |,"!PC256.Templat|
00000320  65 73 22 0d 01 40 33 63  6f 6c 6f 75 72 25 3d a4  |es"..@3colour%=.|
00000330  77 69 6e 64 6f 77 28 22  63 6f 6c 6f 75 72 22 29  |window("colour")|
00000340  3a 69 6e 66 6f 25 3d a4  77 69 6e 64 6f 77 28 22  |:info%=.window("|
00000350  69 6e 66 6f 22 29 0d 01  4a 1b c8 99 20 22 57 69  |info")..J... "Wi|
00000360  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000370  22 0d 01 54 05 e1 0d 01  5e 05 3a 0d 01 68 11 dd  |"..T....^.:..h..|
00000380  20 a4 77 69 6e 64 6f 77  28 61 24 29 0d 01 72 0d  | .window(a$)..r.|
00000390  ea 20 63 25 2c 65 6e 64  25 0d 01 7c 13 65 6e 64  |. c%,end%..|.end|
000003a0  25 3d 74 65 6d 70 25 2b  26 38 30 30 0d 01 86 45  |%=temp%+&800...E|
000003b0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000003c0  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 2c 74  |plate",,block%,t|
000003d0  65 6d 70 25 2c 65 6e 64  25 2c 2d 31 2c 61 24 2c  |emp%,end%,-1,a$,|
000003e0  30 20 b8 20 2c 2c 74 65  6d 70 25 2c 2c 2c 2c 63  |0 . ,,temp%,,,,c|
000003f0  25 0d 01 90 34 62 6c 6f  63 6b 25 21 36 34 3d 73  |%...4block%!64=s|
00000400  70 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |p:.. "Wimp_Creat|
00000410  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000420  20 b8 20 63 25 0d 01 9a  07 3d 63 25 0d 01 a4 05  | . c%....=c%....|
00000430  3a 0d 01 ae 12 dd 20 a4  70 6f 6c 6c 28 6d 61 73  |:..... .poll(mas|
00000440  6b 25 29 0d 01 b8 08 ea  20 61 25 0d 01 c2 2f 62  |k%)..... a%.../b|
00000450  6c 6f 63 6b 25 21 30 3d  6d 61 73 6b 25 3a c8 99  |lock%!0=mask%:..|
00000460  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 62  | "Wimp_Poll",0,b|
00000470  6c 6f 63 6b 25 20 b8 20  61 25 0d 01 cc 07 3d 61  |lock% . a%....=a|
00000480  25 0d 01 d6 05 3a 0d 01  e0 14 dd 20 f2 70 6f 6c  |%....:..... .pol|
00000490  6c 28 72 65 61 73 6f 6e  25 29 0d 01 ea 10 c8 8e  |l(reason%)......|
000004a0  20 72 65 61 73 6f 6e 25  20 ca 0d 01 f4 1f c9 20  | reason% ...... |
000004b0  31 3a f2 72 65 64 72 61  77 57 69 6e 64 6f 77 28  |1:.redrawWindow(|
000004c0  62 6c 6f 63 6b 25 21 30  29 0d 01 fe 1f c9 20 32  |block%!0)..... 2|
000004d0  3a f2 6f 70 65 6e 57 69  6e 64 6f 77 28 62 6c 6f  |:.openWindow(blo|
000004e0  63 6b 25 21 30 2c b9 29  0d 02 08 1e c9 20 33 3a  |ck%!0,.)..... 3:|
000004f0  f2 63 6c 6f 73 65 57 69  6e 64 6f 77 28 62 6c 6f  |.closeWindow(blo|
00000500  63 6b 25 21 30 29 0d 02  12 27 c9 20 34 3a e7 20  |ck%!0)...'. 4:. |
00000510  28 62 6c 6f 63 6b 25 21  30 3d 69 6e 66 6f 25 29  |(block%!0=info%)|
00000520  20 8c 20 f2 63 6c 6f 73  65 4d 65 6e 75 0d 02 1c  | . .closeMenu...|
00000530  1c c9 20 36 3a f2 62 75  74 74 6f 6e 43 6c 69 63  |.. 6:.buttonClic|
00000540  6b 28 62 6c 6f 63 6b 25  29 0d 02 26 1b c9 20 38  |k(block%)..&.. 8|
00000550  3a f2 6b 65 79 50 72 65  73 73 65 64 28 62 6c 6f  |:.keyPressed(blo|
00000560  63 6b 25 29 0d 02 30 1b  c9 20 39 3a f2 6d 65 6e  |ck%)..0.. 9:.men|
00000570  75 53 65 6c 65 63 74 28  62 6c 6f 63 6b 25 29 0d  |uSelect(block%).|
00000580  02 3a 1c c9 20 31 37 2c  31 38 3a f2 6d 65 73 73  |.:.. 17,18:.mess|
00000590  61 67 65 28 62 6c 6f 63  6b 25 29 0d 02 44 05 cb  |age(block%)..D..|
000005a0  0d 02 4e 05 e1 0d 02 58  05 3a 0d 02 62 17 dd 20  |..N....X.:..b.. |
000005b0  f2 6d 65 73 73 61 67 65  28 68 61 6e 64 6c 65 25  |.message(handle%|
000005c0  29 0d 02 6c 19 e7 20 68  61 6e 64 6c 65 25 21 34  |)..l.. handle%!4|
000005d0  3d 74 61 73 6b 25 20 8c  20 e1 0d 02 76 13 c8 8e  |=task% . ...v...|
000005e0  20 68 61 6e 64 6c 65 25  21 31 36 20 ca 0d 02 80  | handle%!16 ....|
000005f0  0f c9 20 30 3a 71 75 69  74 25 3d b9 0d 02 8a 19  |.. 0:quit%=.....|
00000600  c9 20 26 35 30 32 3a f2  68 65 6c 70 28 68 61 6e  |. &502:.help(han|
00000610  64 6c 65 25 29 0d 02 94  19 c9 20 26 34 30 30 43  |dle%)..... &400C|
00000620  31 3a f2 67 65 74 4d 6f  64 65 49 6e 66 6f 0d 02  |1:.getModeInfo..|
00000630  9e 05 cb 0d 02 a8 05 e1  0d 02 b2 05 3a 0d 02 bc  |............:...|
00000640  14 dd 20 f2 68 65 6c 70  28 68 61 6e 64 6c 65 25  |.. .help(handle%|
00000650  29 0d 02 c6 08 ea 20 61  24 0d 02 d0 3b 62 6c 6f  |)..... a$...;blo|
00000660  63 6b 25 3d 68 61 6e 64  6c 65 25 3a 62 6c 6f 63  |ck%=handle%:bloc|
00000670  6b 25 21 31 32 3d 68 61  6e 64 6c 65 25 21 38 3a  |k%!12=handle%!8:|
00000680  62 6c 6f 63 6b 25 21 31  36 3d 26 35 30 33 3a 61  |block%!16=&503:a|
00000690  24 3d 22 22 0d 02 da 12  c8 8e 20 62 6c 6f 63 6b  |$=""...... block|
000006a0  25 21 33 32 20 ca 0d 02  e4 08 c9 20 2d 32 0d 02  |%!32 ...... -2..|
000006b0  ee 22 61 24 3d 22 54 68  69 73 20 69 73 20 74 68  |."a$="This is th|
000006c0  65 20 50 43 32 35 36 20  69 63 6f 6e 2e 7c 4d 22  |e PC256 icon.|M"|
000006d0  0d 02 f8 32 61 24 2b 3d  22 43 6c 69 63 6b 20 53  |...2a$+="Click S|
000006e0  45 4c 45 43 54 20 74 6f  20 6f 70 65 6e 20 74 68  |ELECT to open th|
000006f0  65 20 50 43 32 35 36 20  77 69 6e 64 6f 77 2e 7c  |e PC256 window.||
00000700  4d 22 0d 03 02 29 61 24  2b 3d 22 43 6c 69 63 6b  |M"...)a$+="Click|
00000710  20 4d 45 4e 55 20 74 6f  20 64 69 73 70 6c 61 79  | MENU to display|
00000720  20 74 68 65 20 6d 65 6e  75 2e 22 0d 03 0c 0d c9  | the menu.".....|
00000730  20 63 6f 6c 6f 75 72 25  0d 03 16 12 c8 8e 20 62  | colour%...... b|
00000740  6c 6f 63 6b 25 21 33 36  20 ca 0d 03 20 36 c9 20  |lock%!36 ... 6. |
00000750  31 3a 61 24 3d 22 54 68  69 73 20 69 73 20 74 68  |1:a$="This is th|
00000760  65 20 73 74 61 6e 64 61  72 64 20 70 61 6c 65 74  |e standard palet|
00000770  74 65 20 43 4f 4c 4f 55  52 20 69 63 6f 6e 2e 22  |te COLOUR icon."|
00000780  0d 03 2a 34 c9 20 33 3a  61 24 3d 22 54 68 69 73  |..*4. 3:a$="This|
00000790  20 69 73 20 74 68 65 20  73 74 61 6e 64 61 72 64  | is the standard|
000007a0  20 70 61 6c 65 74 74 65  20 54 49 4e 54 20 69 63  | palette TINT ic|
000007b0  6f 6e 2e 22 0d 03 34 35  c9 20 34 3a 61 24 3d 22  |on."..45. 4:a$="|
000007c0  54 68 69 73 20 69 73 20  74 68 65 20 56 44 55 20  |This is the VDU |
000007d0  64 65 63 69 6d 61 6c 20  70 61 72 61 6d 65 74 65  |decimal paramete|
000007e0  72 73 20 69 63 6f 6e 2e  22 0d 03 3e 39 c9 20 35  |rs icon."..>9. 5|
000007f0  3a 61 24 3d 22 54 68 69  73 20 69 73 20 74 68 65  |:a$="This is the|
00000800  20 56 44 55 20 68 65 78  61 64 65 63 69 6d 61 6c  | VDU hexadecimal|
00000810  20 70 61 72 61 6d 65 74  65 72 73 20 69 63 6f 6e  | parameters icon|
00000820  2e 22 0d 03 48 49 c9 20  37 3a 61 24 3d 22 43 6c  |."..HI. 7:a$="Cl|
00000830  69 63 6b 20 53 45 4c 45  43 54 20 6f 6e 20 74 68  |ick SELECT on th|
00000840  69 73 20 69 63 6f 6e 20  61 6e 64 20 65 6e 74 65  |is icon and ente|
00000850  72 20 74 68 65 20 50 61  69 6e 74 20 63 6f 6c 6f  |r the Paint colo|
00000860  75 72 20 6e 75 6d 62 65  72 2e 22 0d 03 52 24 7f  |ur number."..R$.|
00000870  20 61 24 3d 22 54 68 69  73 20 69 73 20 74 68 65  | a$="This is the|
00000880  20 50 43 32 35 36 20 77  69 6e 64 6f 77 2e 22 0d  | PC256 window.".|
00000890  03 5c 05 cb 0d 03 66 05  cb 0d 03 70 33 24 28 62  |.\....f....p3$(b|
000008a0  6c 6f 63 6b 25 2b 32 30  29 3d 61 24 3a 62 6c 6f  |lock%+20)=a$:blo|
000008b0  63 6b 25 21 30 3d 28 28  28 32 30 2b a9 28 61 24  |ck%!0=(((20+.(a$|
000008c0  29 2b 31 29 81 34 29 2a  34 29 2b 34 0d 03 7a 3b  |)+1).4)*4)+4..z;|
000008d0  24 28 62 6c 6f 63 6b 25  2b 32 31 2b a9 28 61 24  |$(block%+21+.(a$|
000008e0  29 29 3d bd 28 30 29 3a  c8 99 20 22 57 69 6d 70  |))=.(0):.. "Wimp|
000008f0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00000900  2c 62 6c 6f 63 6b 25 0d  03 84 05 e1 0d 03 8e 05  |,block%.........|
00000910  3a 0d 03 98 20 dd 20 f2  6f 70 65 6e 57 69 6e 64  |:... . .openWind|
00000920  6f 77 28 68 61 6e 64 6c  65 25 2c 66 75 6c 6c 25  |ow(handle%,full%|
00000930  29 0d 03 a2 14 62 6c 6f  63 6b 25 21 30 3d 68 61  |)....block%!0=ha|
00000940  6e 64 6c 65 25 0d 03 ac  3e e7 20 ac 20 66 75 6c  |ndle%...>. . ful|
00000950  6c 25 20 8c 20 c8 99 20  22 57 69 6d 70 5f 47 65  |l% . .. "Wimp_Ge|
00000960  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 30 2c  |tWindowState",0,|
00000970  62 6c 6f 63 6b 25 3a 62  6c 6f 63 6b 25 21 32 38  |block%:block%!28|
00000980  3d 2d 31 0d 03 b6 21 c8  99 20 22 57 69 6d 70 5f  |=-1...!.. "Wimp_|
00000990  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 30 2c 62 6c  |OpenWindow",0,bl|
000009a0  6f 63 6b 25 0d 03 c0 05  e1 0d 03 ca 05 3a 0d 03  |ock%.........:..|
000009b0  d4 1c dd 20 f2 72 65 64  72 61 77 57 69 6e 64 6f  |... .redrawWindo|
000009c0  77 28 68 61 6e 64 6c 65  25 29 0d 03 de 0b ea 20  |w(handle%)..... |
000009d0  6d 6f 72 65 25 0d 03 e8  3c 62 6c 6f 63 6b 25 21  |more%...<block%!|
000009e0  30 3d 68 61 6e 64 6c 65  25 3a c8 99 20 22 57 69  |0=handle%:.. "Wi|
000009f0  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00000a00  2c 30 2c 62 6c 6f 63 6b  25 20 b8 20 6d 6f 72 65  |,0,block% . more|
00000a10  25 0d 03 f2 0c c8 95 20  6d 6f 72 65 25 0d 03 fc  |%...... more%...|
00000a20  2b c8 99 20 22 57 69 6d  70 5f 47 65 74 52 65 63  |+.. "Wimp_GetRec|
00000a30  74 61 6e 67 6c 65 22 2c  30 2c 62 6c 6f 63 6b 25  |tangle",0,block%|
00000a40  20 b8 20 6d 6f 72 65 25  0d 04 06 05 ce 0d 04 10  | . more%........|
00000a50  05 e1 0d 04 1a 05 3a 0d  04 24 1b dd 20 f2 63 6c  |......:..$.. .cl|
00000a60  6f 73 65 57 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |oseWindow(handle|
00000a70  25 29 0d 04 2e 33 62 6c  6f 63 6b 25 21 30 3d 68  |%)...3block%!0=h|
00000a80  61 6e 64 6c 65 25 3a c8  99 20 22 57 69 6d 70 5f  |andle%:.. "Wimp_|
00000a90  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 30 2c 62  |CloseWindow",0,b|
00000aa0  6c 6f 63 6b 25 0d 04 38  05 e1 0d 04 42 05 3a 0d  |lock%..8....B.:.|
00000ab0  04 4c 1a dd 20 f2 62 75  74 74 6f 6e 43 6c 69 63  |.L.. .buttonClic|
00000ac0  6b 28 62 6c 6f 63 6b 25  29 0d 04 56 36 62 75 74  |k(block%)..V6but|
00000ad0  74 6f 6e 25 3d 62 6c 6f  63 6b 25 21 38 3a 68 61  |ton%=block%!8:ha|
00000ae0  6e 64 6c 65 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |ndle%=block%!12:|
00000af0  69 63 6f 6e 25 3d 62 6c  6f 63 6b 25 21 31 36 0d  |icon%=block%!16.|
00000b00  04 60 23 e7 20 62 75 74  74 6f 6e 25 20 80 20 32  |.`#. button% . 2|
00000b10  20 8c 20 f2 6d 65 6e 75  28 62 6c 6f 63 6b 25 29  | . .menu(block%)|
00000b20  3a e1 0d 04 6a 23 e7 20  68 61 6e 64 6c 65 25 3d  |:...j#. handle%=|
00000b30  2d 32 20 80 20 69 63 6f  6e 25 3d 69 63 6f 6e 62  |-2 . icon%=iconb|
00000b40  61 72 25 20 8c 0d 04 74  1c f2 6f 70 65 6e 57 69  |ar% ...t..openWi|
00000b50  6e 64 6f 77 28 63 6f 6c  6f 75 72 25 2c a3 29 3a  |ndow(colour%,.):|
00000b60  e1 0d 04 7e 05 cd 0d 04  88 35 62 6c 6f 63 6b 25  |...~.....5block%|
00000b70  21 30 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |!0=handle%:.. "W|
00000b80  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00000b90  6f 22 2c 30 2c 62 6c 6f  63 6b 25 0d 04 92 05 e1  |o",0,block%.....|
00000ba0  0d 04 9c 05 3a 0d 04 a6  13 dd 20 f2 6d 65 6e 75  |....:..... .menu|
00000bb0  28 62 6c 6f 63 6b 25 29  0d 04 b0 12 c8 8e 20 62  |(block%)...... b|
00000bc0  6c 6f 63 6b 25 21 31 32  20 ca 0d 04 ba 08 c9 20  |lock%!12 ...... |
00000bd0  2d 32 0d 04 c4 22 f2 64  72 61 77 4d 65 6e 75 28  |-2...".drawMenu(|
00000be0  31 2c 22 50 43 32 35 36  2c 49 6e 66 6f 2c 51 75  |1,"PC256,Info,Qu|
00000bf0  69 74 22 29 0d 04 ce 2f  c8 99 20 22 57 69 6d 70  |it").../.. "Wimp|
00000c00  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
00000c10  6e 75 2b 34 2c 21 62 6c  6f 63 6b 25 2d 36 34 2c  |nu+4,!block%-64,|
00000c20  31 37 36 0d 04 d8 05 cb  0d 04 e2 05 e1 0d 04 ec  |176.............|
00000c30  05 3a 0d 04 f6 19 dd 20  f2 6d 65 6e 75 53 65 6c  |.:..... .menuSel|
00000c40  65 63 74 28 62 6c 6f 63  6b 25 29 0d 05 00 0e c8  |ect(block%).....|
00000c50  8e 20 21 6d 65 6e 75 20  ca 0d 05 0a 1c c9 20 31  |. !menu ...... 1|
00000c60  3a f2 69 63 6f 6e 62 61  72 4d 65 6e 75 28 62 6c  |:.iconbarMenu(bl|
00000c70  6f 63 6b 25 29 0d 05 14  05 cb 0d 05 1e 05 e1 0d  |ock%)...........|
00000c80  05 28 05 3a 0d 05 32 1a  dd 20 f2 69 63 6f 6e 62  |.(.:..2.. .iconb|
00000c90  61 72 4d 65 6e 75 28 62  6c 6f 63 6b 25 29 0d 05  |arMenu(block%)..|
00000ca0  3c 10 c8 8e 20 21 62 6c  6f 63 6b 25 20 ca 0d 05  |<... !block% ...|
00000cb0  46 0f c9 20 31 3a 71 75  69 74 25 3d b9 0d 05 50  |F.. 1:quit%=...P|
00000cc0  05 cb 0d 05 5a 05 e1 0d  05 64 05 3a 0d 05 6e 10  |....Z....d.:..n.|
00000cd0  dd 20 f2 63 6c 6f 73 65  4d 65 6e 75 0d 05 78 2f  |. .closeMenu..x/|
00000ce0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000cf0  65 6e 75 22 2c 2d 31 3a  f2 63 6c 6f 73 65 57 69  |enu",-1:.closeWi|
00000d00  6e 64 6f 77 28 69 6e 66  6f 25 29 0d 05 82 05 e1  |ndow(info%).....|
00000d10  0d 05 8c 05 3a 0d 05 96  19 dd 20 f2 6b 65 79 50  |....:..... .keyP|
00000d20  72 65 73 73 65 64 28 62  6c 6f 63 6b 25 29 0d 05  |ressed(block%)..|
00000d30  a0 32 68 61 6e 64 6c 65  25 3d 62 6c 6f 63 6b 25  |.2handle%=block%|
00000d40  21 30 3a 69 63 6f 6e 25  3d 62 6c 6f 63 6b 25 21  |!0:icon%=block%!|
00000d50  34 3a 6b 65 79 25 3d 62  6c 6f 63 6b 25 21 32 34  |4:key%=block%!24|
00000d60  0d 05 aa 1d c8 99 20 22  57 69 6d 70 5f 50 72 6f  |...... "Wimp_Pro|
00000d70  63 65 73 73 4b 65 79 22  2c 6b 65 79 25 0d 05 b4  |cessKey",key%...|
00000d80  40 f2 73 65 74 49 63 6f  6e 53 74 61 74 65 28 68  |@.setIconState(h|
00000d90  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 2c 30 2c 30  |andle%,icon%,0,0|
00000da0  29 3a f2 67 65 74 49 63  6f 6e 49 6e 66 6f 28 68  |):.getIconInfo(h|
00000db0  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 29 0d 05 be  |andle%,icon%)...|
00000dc0  10 c8 8e 20 68 61 6e 64  6c 65 25 20 ca 0d 05 c8  |... handle% ....|
00000dd0  0d c9 20 63 6f 6c 6f 75  72 25 0d 05 d2 0e c8 8e  |.. colour%......|
00000de0  20 69 63 6f 6e 25 20 ca  0d 05 dc 07 c9 20 37 0d  | icon% ...... 7.|
00000df0  05 e6 30 63 6f 6c 6f 75  72 24 3d 64 61 74 61 24  |..0colour$=data$|
00000e00  3a f2 72 65 64 72 61 77  49 63 6f 6e 28 68 61 6e  |:.redrawIcon(han|
00000e10  64 6c 65 25 2c 37 2c 64  61 74 61 24 2c 34 29 0d  |dle%,7,data$,4).|
00000e20  05 f0 18 f2 75 70 64 61  74 65 44 61 74 61 28 63  |....updateData(c|
00000e30  6f 6c 6f 75 72 24 29 0d  05 fa 05 cb 0d 06 04 05  |olour$).........|
00000e40  cb 0d 06 0e 05 e1 0d 06  18 05 3a 0d 06 22 15 dd  |..........:.."..|
00000e50  20 f2 75 70 64 61 74 65  44 61 74 61 28 63 24 29  | .updateData(c$)|
00000e60  0d 06 2c 29 ea 20 61 24  2c 6c 25 2c 61 25 2c 63  |..,). a$,l%,a%,c|
00000e70  25 2c 74 25 2c 66 25 2c  72 25 2c 67 25 2c 62 25  |%,t%,f%,r%,g%,b%|
00000e80  2c 72 24 2c 67 24 2c 62  24 0d 06 36 0e 66 25 3d  |,r$,g$,b$..6.f%=|
00000e90  a3 3a 61 24 3d 22 22 0d  06 40 12 e3 20 63 25 3d  |.:a$=""..@.. c%=|
00000ea0  31 20 b8 20 a9 28 63 24  29 0d 06 4a 36 e7 20 a9  |1 . .(c$)..J6. .|
00000eb0  28 63 24 29 3d 30 20 84  20 97 28 c1 63 24 2c 63  |(c$)=0 . .(.c$,c|
00000ec0  25 2c 31 29 29 3c 34 38  20 84 20 97 28 c1 63 24  |%,1))<48 . .(.c$|
00000ed0  2c 63 25 2c 31 29 29 3e  35 37 20 66 25 3d b9 0d  |,c%,1))>57 f%=..|
00000ee0  06 54 05 ed 0d 06 5e 0c  e7 20 66 25 3d a3 20 8c  |.T....^.. f%=. .|
00000ef0  0d 06 68 1e e7 20 bb 28  63 24 29 3c 30 20 84 20  |..h.. .(c$)<0 . |
00000f00  bb 28 63 24 29 3e 32 35  35 20 66 25 3d b9 0d 06  |.(c$)>255 f%=...|
00000f10  72 05 cd 0d 06 7c 0c e7  20 66 25 3d a3 20 8c 0d  |r....|.. f%=. ..|
00000f20  06 86 1f 61 25 3d bb 28  63 24 29 3a f2 63 6f 6e  |...a%=.(c$):.con|
00000f30  76 65 72 74 28 61 25 2c  63 25 2c 74 25 29 0d 06  |vert(a%,c%,t%)..|
00000f40  90 34 61 24 3d c3 28 63  25 29 3a 6c 25 3d a9 28  |.4a$=.(c%):l%=.(|
00000f50  61 24 29 2b 31 3a f2 72  65 64 72 61 77 49 63 6f  |a$)+1:.redrawIco|
00000f60  6e 28 63 6f 6c 6f 75 72  25 2c 31 2c 61 24 2c 6c  |n(colour%,1,a$,l|
00000f70  25 29 0d 06 9a 34 61 24  3d c3 28 74 25 29 3a 6c  |%)...4a$=.(t%):l|
00000f80  25 3d a9 28 61 24 29 2b  31 3a f2 72 65 64 72 61  |%=.(a$)+1:.redra|
00000f90  77 49 63 6f 6e 28 63 6f  6c 6f 75 72 25 2c 33 2c  |wIcon(colour%,3,|
00000fa0  61 24 2c 6c 25 29 0d 06  a4 1b f2 63 6f 6c 6f 75  |a$,l%).....colou|
00000fb0  72 28 63 25 2c 74 25 2c  72 25 2c 67 25 2c 62 25  |r(c%,t%,r%,g%,b%|
00000fc0  29 0d 06 ae 20 72 24 3d  c3 28 72 25 29 3a 72 24  |)... r$=.(r%):r$|
00000fd0  3d c4 33 2d a9 28 72 24  29 2c 22 30 22 29 2b 72  |=.3-.(r$),"0")+r|
00000fe0  24 0d 06 b8 20 67 24 3d  c3 28 67 25 29 3a 67 24  |$... g$=.(g%):g$|
00000ff0  3d c4 33 2d a9 28 67 24  29 2c 22 30 22 29 2b 67  |=.3-.(g$),"0")+g|
00001000  24 0d 06 c2 20 62 24 3d  c3 28 62 25 29 3a 62 24  |$... b$=.(b%):b$|
00001010  3d c4 33 2d a9 28 62 24  29 2c 22 30 22 29 2b 62  |=.3-.(b$),"0")+b|
00001020  24 0d 06 cc 26 61 24 3d  22 56 44 55 20 31 39 2c  |$...&a$="VDU 19,|
00001030  6e 2c 31 36 2c 22 2b 72  24 2b 22 2c 22 2b 67 24  |n,16,"+r$+","+g$|
00001040  2b 22 2c 22 2b 62 24 0d  06 d6 2b 6c 25 3d a9 28  |+","+b$...+l%=.(|
00001050  61 24 29 2b 31 3a f2 72  65 64 72 61 77 49 63 6f  |a$)+1:.redrawIco|
00001060  6e 28 63 6f 6c 6f 75 72  25 2c 34 2c 61 24 2c 6c  |n(colour%,4,a$,l|
00001070  25 29 0d 06 e0 21 72 24  3d c3 7e 28 72 25 29 3a  |%)...!r$=.~(r%):|
00001080  72 24 3d c4 32 2d a9 28  72 24 29 2c 22 30 22 29  |r$=.2-.(r$),"0")|
00001090  2b 72 24 0d 06 ea 21 67  24 3d c3 7e 28 67 25 29  |+r$...!g$=.~(g%)|
000010a0  3a 67 24 3d c4 32 2d a9  28 67 24 29 2c 22 30 22  |:g$=.2-.(g$),"0"|
000010b0  29 2b 67 24 0d 06 f4 21  62 24 3d c3 7e 28 62 25  |)+g$...!b$=.~(b%|
000010c0  29 3a 62 24 3d c4 32 2d  a9 28 62 24 29 2c 22 30  |):b$=.2-.(b$),"0|
000010d0  22 29 2b 62 24 0d 06 fe  2c 61 24 3d 22 56 44 55  |")+b$...,a$="VDU|
000010e0  20 31 39 2c 6e 2c 31 36  2c 22 2b 22 26 22 2b 72  | 19,n,16,"+"&"+r|
000010f0  24 2b 22 2c 26 22 2b 67  24 2b 22 2c 26 22 2b 62  |$+",&"+g$+",&"+b|
00001100  24 0d 07 08 2b 6c 25 3d  a9 28 61 24 29 2b 31 3a  |$...+l%=.(a$)+1:|
00001110  f2 72 65 64 72 61 77 49  63 6f 6e 28 63 6f 6c 6f  |.redrawIcon(colo|
00001120  75 72 25 2c 35 2c 61 24  2c 6c 25 29 0d 07 12 05  |ur%,5,a$,l%)....|
00001130  cc 0d 07 1c 34 61 24 3d  22 20 20 20 22 3a 6c 25  |....4a$="   ":l%|
00001140  3d a9 28 61 24 29 2b 31  3a f2 72 65 64 72 61 77  |=.(a$)+1:.redraw|
00001150  49 63 6f 6e 28 63 6f 6c  6f 75 72 25 2c 31 2c 61  |Icon(colour%,1,a|
00001160  24 2c 6c 25 29 0d 07 26  34 61 24 3d 22 20 20 20  |$,l%)..&4a$="   |
00001170  22 3a 6c 25 3d a9 28 61  24 29 2b 31 3a f2 72 65  |":l%=.(a$)+1:.re|
00001180  64 72 61 77 49 63 6f 6e  28 63 6f 6c 6f 75 72 25  |drawIcon(colour%|
00001190  2c 33 2c 61 24 2c 6c 25  29 0d 07 30 37 61 24 3d  |,3,a$,l%)..07a$=|
000011a0  c4 31 31 2c 22 20 22 29  3a 6c 25 3d a9 28 61 24  |.11," "):l%=.(a$|
000011b0  29 2b 31 3a f2 72 65 64  72 61 77 49 63 6f 6e 28  |)+1:.redrawIcon(|
000011c0  63 6f 6c 6f 75 72 25 2c  34 2c 61 24 2c 6c 25 29  |colour%,4,a$,l%)|
000011d0  0d 07 3a 37 61 24 3d c4  31 31 2c 22 20 22 29 3a  |..:7a$=.11," "):|
000011e0  6c 25 3d a9 28 61 24 29  2b 31 3a f2 72 65 64 72  |l%=.(a$)+1:.redr|
000011f0  61 77 49 63 6f 6e 28 63  6f 6c 6f 75 72 25 2c 35  |awIcon(colour%,5|
00001200  2c 61 24 2c 6c 25 29 0d  07 44 07 ef 20 37 0d 07  |,a$,l%)..D.. 7..|
00001210  4e 05 cd 0d 07 58 05 e1  0d 07 62 05 3a 0d 07 6c  |N....X....b.:..l|
00001220  1c dd 20 f2 63 6f 6e 76  65 72 74 28 61 25 2c f8  |.. .convert(a%,.|
00001230  20 63 25 2c f8 20 74 25  29 0d 07 76 0b c8 8e 20  | c%,. t%)..v... |
00001240  61 25 20 ca 0d 07 80 1b  c9 20 30 2c 31 2c 32 2c  |a% ...... 0,1,2,|
00001250  33 3a 63 25 3d 30 3a 74  25 3d 36 34 2a 61 25 0d  |3:c%=0:t%=64*a%.|
00001260  07 8a 1f c9 20 34 2c 35  2c 36 2c 37 3a 63 25 3d  |.... 4,5,6,7:c%=|
00001270  31 3a 74 25 3d 36 34 2a  28 61 25 2d 34 29 0d 07  |1:t%=64*(a%-4)..|
00001280  94 24 c9 20 31 36 2c 31  37 2c 31 38 2c 31 39 3a  |.$. 16,17,18,19:|
00001290  63 25 3d 32 3a 74 25 3d  36 34 2a 28 61 25 2d 31  |c%=2:t%=64*(a%-1|
000012a0  36 29 0d 07 9e 24 c9 20  32 30 2c 32 31 2c 32 32  |6)...$. 20,21,22|
000012b0  2c 32 33 3a 63 25 3d 33  3a 74 25 3d 36 34 2a 28  |,23:c%=3:t%=64*(|
000012c0  61 25 2d 32 30 29 0d 07  a8 24 c9 20 33 32 2c 33  |a%-20)...$. 32,3|
000012d0  33 2c 33 34 2c 33 35 3a  63 25 3d 34 3a 74 25 3d  |3,34,35:c%=4:t%=|
000012e0  36 34 2a 28 61 25 2d 33  32 29 0d 07 b2 24 c9 20  |64*(a%-32)...$. |
000012f0  33 36 2c 33 37 2c 33 38  2c 33 39 3a 63 25 3d 35  |36,37,38,39:c%=5|
00001300  3a 74 25 3d 36 34 2a 28  61 25 2d 33 36 29 0d 07  |:t%=64*(a%-36)..|
00001310  bc 24 c9 20 34 38 2c 34  39 2c 35 30 2c 35 31 3a  |.$. 48,49,50,51:|
00001320  63 25 3d 36 3a 74 25 3d  36 34 2a 28 61 25 2d 34  |c%=6:t%=64*(a%-4|
00001330  38 29 0d 07 c6 24 c9 20  35 32 2c 35 33 2c 35 34  |8)...$. 52,53,54|
00001340  2c 35 35 3a 63 25 3d 37  3a 74 25 3d 36 34 2a 28  |,55:c%=7:t%=64*(|
00001350  61 25 2d 35 32 29 0d 07  d0 24 c9 20 36 34 2c 36  |a%-52)...$. 64,6|
00001360  35 2c 36 36 2c 36 37 3a  63 25 3d 38 3a 74 25 3d  |5,66,67:c%=8:t%=|
00001370  36 34 2a 28 61 25 2d 36  34 29 0d 07 da 24 c9 20  |64*(a%-64)...$. |
00001380  36 38 2c 36 39 2c 37 30  2c 37 31 3a 63 25 3d 39  |68,69,70,71:c%=9|
00001390  3a 74 25 3d 36 34 2a 28  61 25 2d 36 38 29 0d 07  |:t%=64*(a%-68)..|
000013a0  e4 25 c9 20 38 30 2c 38  31 2c 38 32 2c 38 33 3a  |.%. 80,81,82,83:|
000013b0  63 25 3d 31 30 3a 74 25  3d 36 34 2a 28 61 25 2d  |c%=10:t%=64*(a%-|
000013c0  38 30 29 0d 07 ee 25 c9  20 38 34 2c 38 35 2c 38  |80)...%. 84,85,8|
000013d0  36 2c 38 37 3a 63 25 3d  31 31 3a 74 25 3d 36 34  |6,87:c%=11:t%=64|
000013e0  2a 28 61 25 2d 38 34 29  0d 07 f8 25 c9 20 39 36  |*(a%-84)...%. 96|
000013f0  2c 39 37 2c 39 38 2c 39  39 3a 63 25 3d 31 32 3a  |,97,98,99:c%=12:|
00001400  74 25 3d 36 34 2a 28 61  25 2d 39 36 29 0d 08 02  |t%=64*(a%-96)...|
00001410  2a c9 20 31 30 30 2c 31  30 31 2c 31 30 32 2c 31  |*. 100,101,102,1|
00001420  30 33 3a 63 25 3d 31 33  3a 74 25 3d 36 34 2a 28  |03:c%=13:t%=64*(|
00001430  61 25 2d 31 30 30 29 0d  08 0c 2a c9 20 31 31 32  |a%-100)...*. 112|
00001440  2c 31 31 33 2c 31 31 34  2c 31 31 35 3a 63 25 3d  |,113,114,115:c%=|
00001450  31 34 3a 74 25 3d 36 34  2a 28 61 25 2d 31 31 32  |14:t%=64*(a%-112|
00001460  29 0d 08 16 2a c9 20 31  31 36 2c 31 31 37 2c 31  |)...*. 116,117,1|
00001470  31 38 2c 31 31 39 3a 63  25 3d 31 35 3a 74 25 3d  |18,119:c%=15:t%=|
00001480  36 34 2a 28 61 25 2d 31  31 36 29 0d 08 20 2a c9  |64*(a%-116).. *.|
00001490  20 31 32 38 2c 31 32 39  2c 31 33 30 2c 31 33 31  | 128,129,130,131|
000014a0  3a 63 25 3d 33 32 3a 74  25 3d 36 34 2a 28 61 25  |:c%=32:t%=64*(a%|
000014b0  2d 31 32 38 29 0d 08 2a  2a c9 20 31 33 32 2c 31  |-128)..**. 132,1|
000014c0  33 33 2c 31 33 34 2c 31  33 35 3a 63 25 3d 33 33  |33,134,135:c%=33|
000014d0  3a 74 25 3d 36 34 2a 28  61 25 2d 31 33 32 29 0d  |:t%=64*(a%-132).|
000014e0  08 34 2a c9 20 31 34 34  2c 31 34 35 2c 31 34 36  |.4*. 144,145,146|
000014f0  2c 31 34 37 3a 63 25 3d  33 34 3a 74 25 3d 36 34  |,147:c%=34:t%=64|
00001500  2a 28 61 25 2d 31 34 34  29 0d 08 3e 2a c9 20 31  |*(a%-144)..>*. 1|
00001510  34 38 2c 31 34 39 2c 31  35 30 2c 31 35 31 3a 63  |48,149,150,151:c|
00001520  25 3d 33 35 3a 74 25 3d  36 34 2a 28 61 25 2d 31  |%=35:t%=64*(a%-1|
00001530  34 38 29 0d 08 48 2a c9  20 31 36 30 2c 31 36 31  |48)..H*. 160,161|
00001540  2c 31 36 32 2c 31 36 33  3a 63 25 3d 33 36 3a 74  |,162,163:c%=36:t|
00001550  25 3d 36 34 2a 28 61 25  2d 31 36 30 29 0d 08 52  |%=64*(a%-160)..R|
00001560  2a c9 20 31 36 34 2c 31  36 35 2c 31 36 36 2c 31  |*. 164,165,166,1|
00001570  36 37 3a 63 25 3d 33 37  3a 74 25 3d 36 34 2a 28  |67:c%=37:t%=64*(|
00001580  61 25 2d 31 36 34 29 0d  08 5c 2a c9 20 31 37 36  |a%-164)..\*. 176|
00001590  2c 31 37 37 2c 31 37 38  2c 31 37 39 3a 63 25 3d  |,177,178,179:c%=|
000015a0  33 38 3a 74 25 3d 36 34  2a 28 61 25 2d 31 37 36  |38:t%=64*(a%-176|
000015b0  29 0d 08 66 2a c9 20 31  38 30 2c 31 38 31 2c 31  |)..f*. 180,181,1|
000015c0  38 32 2c 31 38 33 3a 63  25 3d 33 39 3a 74 25 3d  |82,183:c%=39:t%=|
000015d0  36 34 2a 28 61 25 2d 31  38 30 29 0d 08 70 2a c9  |64*(a%-180)..p*.|
000015e0  20 31 39 32 2c 31 39 33  2c 31 39 34 2c 31 39 35  | 192,193,194,195|
000015f0  3a 63 25 3d 34 30 3a 74  25 3d 36 34 2a 28 61 25  |:c%=40:t%=64*(a%|
00001600  2d 31 39 32 29 0d 08 7a  2a c9 20 31 39 36 2c 31  |-192)..z*. 196,1|
00001610  39 37 2c 31 39 38 2c 31  39 39 3a 63 25 3d 34 31  |97,198,199:c%=41|
00001620  3a 74 25 3d 36 34 2a 28  61 25 2d 31 39 36 29 0d  |:t%=64*(a%-196).|
00001630  08 84 2a c9 20 32 30 38  2c 32 30 39 2c 32 31 30  |..*. 208,209,210|
00001640  2c 32 31 31 3a 63 25 3d  34 32 3a 74 25 3d 36 34  |,211:c%=42:t%=64|
00001650  2a 28 61 25 2d 32 30 38  29 0d 08 8e 2a c9 20 32  |*(a%-208)...*. 2|
00001660  31 32 2c 32 31 33 2c 32  31 34 2c 32 31 35 3a 63  |12,213,214,215:c|
00001670  25 3d 34 33 3a 74 25 3d  36 34 2a 28 61 25 2d 32  |%=43:t%=64*(a%-2|
00001680  31 32 29 0d 08 98 2a c9  20 32 32 34 2c 32 32 35  |12)...*. 224,225|
00001690  2c 32 32 36 2c 32 32 37  3a 63 25 3d 34 34 3a 74  |,226,227:c%=44:t|
000016a0  25 3d 36 34 2a 28 61 25  2d 32 32 34 29 0d 08 a2  |%=64*(a%-224)...|
000016b0  2a c9 20 32 32 38 2c 32  32 39 2c 32 33 30 2c 32  |*. 228,229,230,2|
000016c0  33 31 3a 63 25 3d 34 35  3a 74 25 3d 36 34 2a 28  |31:c%=45:t%=64*(|
000016d0  61 25 2d 32 32 38 29 0d  08 ac 2a c9 20 32 34 30  |a%-228)...*. 240|
000016e0  2c 32 34 31 2c 32 34 32  2c 32 34 33 3a 63 25 3d  |,241,242,243:c%=|
000016f0  34 36 3a 74 25 3d 36 34  2a 28 61 25 2d 32 34 30  |46:t%=64*(a%-240|
00001700  29 0d 08 b6 2a c9 20 32  34 34 2c 32 34 35 2c 32  |)...*. 244,245,2|
00001710  34 36 2c 32 34 37 3a 63  25 3d 34 37 3a 74 25 3d  |46,247:c%=47:t%=|
00001720  36 34 2a 28 61 25 2d 32  34 34 29 0d 08 c0 22 c9  |64*(a%-244)...".|
00001730  20 38 2c 39 2c 31 30 2c  31 31 3a 63 25 3d 31 36  | 8,9,10,11:c%=16|
00001740  3a 74 25 3d 36 34 2a 28  61 25 2d 38 29 0d 08 ca  |:t%=64*(a%-8)...|
00001750  25 c9 20 31 32 2c 31 33  2c 31 34 2c 31 35 3a 63  |%. 12,13,14,15:c|
00001760  25 3d 31 37 3a 74 25 3d  36 34 2a 28 61 25 2d 31  |%=17:t%=64*(a%-1|
00001770  32 29 0d 08 d4 25 c9 20  32 34 2c 32 35 2c 32 36  |2)...%. 24,25,26|
00001780  2c 32 37 3a 63 25 3d 31  38 3a 74 25 3d 36 34 2a  |,27:c%=18:t%=64*|
00001790  28 61 25 2d 32 34 29 0d  08 de 25 c9 20 32 38 2c  |(a%-24)...%. 28,|
000017a0  32 39 2c 33 30 2c 33 31  3a 63 25 3d 31 39 3a 74  |29,30,31:c%=19:t|
000017b0  25 3d 36 34 2a 28 61 25  2d 32 38 29 0d 08 e8 25  |%=64*(a%-28)...%|
000017c0  c9 20 34 30 2c 34 31 2c  34 32 2c 34 33 3a 63 25  |. 40,41,42,43:c%|
000017d0  3d 32 30 3a 74 25 3d 36  34 2a 28 61 25 2d 34 30  |=20:t%=64*(a%-40|
000017e0  29 0d 08 f2 25 c9 20 34  34 2c 34 35 2c 34 36 2c  |)...%. 44,45,46,|
000017f0  34 37 3a 63 25 3d 32 31  3a 74 25 3d 36 34 2a 28  |47:c%=21:t%=64*(|
00001800  61 25 2d 34 34 29 0d 08  fc 25 c9 20 35 36 2c 35  |a%-44)...%. 56,5|
00001810  37 2c 35 38 2c 35 39 3a  63 25 3d 32 32 3a 74 25  |7,58,59:c%=22:t%|
00001820  3d 36 34 2a 28 61 25 2d  35 36 29 0d 09 06 25 c9  |=64*(a%-56)...%.|
00001830  20 36 30 2c 36 31 2c 36  32 2c 36 33 3a 63 25 3d  | 60,61,62,63:c%=|
00001840  32 33 3a 74 25 3d 36 34  2a 28 61 25 2d 36 30 29  |23:t%=64*(a%-60)|
00001850  0d 09 10 25 c9 20 37 32  2c 37 33 2c 37 34 2c 37  |...%. 72,73,74,7|
00001860  35 3a 63 25 3d 32 34 3a  74 25 3d 36 34 2a 28 61  |5:c%=24:t%=64*(a|
00001870  25 2d 37 32 29 0d 09 1a  25 c9 20 37 36 2c 37 37  |%-72)...%. 76,77|
00001880  2c 37 38 2c 37 39 3a 63  25 3d 32 35 3a 74 25 3d  |,78,79:c%=25:t%=|
00001890  36 34 2a 28 61 25 2d 37  36 29 0d 09 24 25 c9 20  |64*(a%-76)..$%. |
000018a0  38 38 2c 38 39 2c 39 30  2c 39 31 3a 63 25 3d 32  |88,89,90,91:c%=2|
000018b0  36 3a 74 25 3d 36 34 2a  28 61 25 2d 38 38 29 0d  |6:t%=64*(a%-88).|
000018c0  09 2e 25 c9 20 39 32 2c  39 33 2c 39 34 2c 39 35  |..%. 92,93,94,95|
000018d0  3a 63 25 3d 32 37 3a 74  25 3d 36 34 2a 28 61 25  |:c%=27:t%=64*(a%|
000018e0  2d 39 32 29 0d 09 38 2a  c9 20 31 30 34 2c 31 30  |-92)..8*. 104,10|
000018f0  35 2c 31 30 36 2c 31 30  37 3a 63 25 3d 32 38 3a  |5,106,107:c%=28:|
00001900  74 25 3d 36 34 2a 28 61  25 2d 31 30 34 29 0d 09  |t%=64*(a%-104)..|
00001910  42 2a c9 20 31 30 38 2c  31 30 39 2c 31 31 30 2c  |B*. 108,109,110,|
00001920  31 31 31 3a 63 25 3d 32  39 3a 74 25 3d 36 34 2a  |111:c%=29:t%=64*|
00001930  28 61 25 2d 31 30 38 29  0d 09 4c 2a c9 20 31 32  |(a%-108)..L*. 12|
00001940  30 2c 31 32 31 2c 31 32  32 2c 31 32 33 3a 63 25  |0,121,122,123:c%|
00001950  3d 33 30 3a 74 25 3d 36  34 2a 28 61 25 2d 31 32  |=30:t%=64*(a%-12|
00001960  30 29 0d 09 56 2a c9 20  31 32 34 2c 31 32 35 2c  |0)..V*. 124,125,|
00001970  31 32 36 2c 31 32 37 3a  63 25 3d 33 31 3a 74 25  |126,127:c%=31:t%|
00001980  3d 36 34 2a 28 61 25 2d  31 32 34 29 0d 09 60 2a  |=64*(a%-124)..`*|
00001990  c9 20 31 33 36 2c 31 33  37 2c 31 33 38 2c 31 33  |. 136,137,138,13|
000019a0  39 3a 63 25 3d 34 38 3a  74 25 3d 36 34 2a 28 61  |9:c%=48:t%=64*(a|
000019b0  25 2d 31 33 36 29 0d 09  6a 2a c9 20 31 34 30 2c  |%-136)..j*. 140,|
000019c0  31 34 31 2c 31 34 32 2c  31 34 33 3a 63 25 3d 34  |141,142,143:c%=4|
000019d0  39 3a 74 25 3d 36 34 2a  28 61 25 2d 31 34 30 29  |9:t%=64*(a%-140)|
000019e0  0d 09 74 2a c9 20 31 35  32 2c 31 35 33 2c 31 35  |..t*. 152,153,15|
000019f0  34 2c 31 35 35 3a 63 25  3d 35 30 3a 74 25 3d 36  |4,155:c%=50:t%=6|
00001a00  34 2a 28 61 25 2d 31 35  32 29 0d 09 7e 2a c9 20  |4*(a%-152)..~*. |
00001a10  31 35 36 2c 31 35 37 2c  31 35 38 2c 31 35 39 3a  |156,157,158,159:|
00001a20  63 25 3d 35 31 3a 74 25  3d 36 34 2a 28 61 25 2d  |c%=51:t%=64*(a%-|
00001a30  31 35 36 29 0d 09 88 2a  c9 20 31 36 38 2c 31 36  |156)...*. 168,16|
00001a40  39 2c 31 37 30 2c 31 37  31 3a 63 25 3d 35 32 3a  |9,170,171:c%=52:|
00001a50  74 25 3d 36 34 2a 28 61  25 2d 31 36 38 29 0d 09  |t%=64*(a%-168)..|
00001a60  92 2a c9 20 31 37 32 2c  31 37 33 2c 31 37 34 2c  |.*. 172,173,174,|
00001a70  31 37 35 3a 63 25 3d 35  33 3a 74 25 3d 36 34 2a  |175:c%=53:t%=64*|
00001a80  28 61 25 2d 31 37 32 29  0d 09 9c 2a c9 20 31 38  |(a%-172)...*. 18|
00001a90  34 2c 31 38 35 2c 31 38  36 2c 31 38 37 3a 63 25  |4,185,186,187:c%|
00001aa0  3d 35 34 3a 74 25 3d 36  34 2a 28 61 25 2d 31 38  |=54:t%=64*(a%-18|
00001ab0  34 29 0d 09 a6 2a c9 20  31 38 38 2c 31 38 39 2c  |4)...*. 188,189,|
00001ac0  31 39 30 2c 31 39 31 3a  63 25 3d 35 35 3a 74 25  |190,191:c%=55:t%|
00001ad0  3d 36 34 2a 28 61 25 2d  31 38 38 29 0d 09 b0 2a  |=64*(a%-188)...*|
00001ae0  c9 20 32 30 30 2c 32 30  31 2c 32 30 32 2c 32 30  |. 200,201,202,20|
00001af0  33 3a 63 25 3d 35 36 3a  74 25 3d 36 34 2a 28 61  |3:c%=56:t%=64*(a|
00001b00  25 2d 32 30 30 29 0d 09  ba 2a c9 20 32 30 34 2c  |%-200)...*. 204,|
00001b10  32 30 35 2c 32 30 36 2c  32 30 37 3a 63 25 3d 35  |205,206,207:c%=5|
00001b20  37 3a 74 25 3d 36 34 2a  28 61 25 2d 32 30 34 29  |7:t%=64*(a%-204)|
00001b30  0d 09 c4 2a c9 20 32 31  36 2c 32 31 37 2c 32 31  |...*. 216,217,21|
00001b40  38 2c 32 31 39 3a 63 25  3d 35 38 3a 74 25 3d 36  |8,219:c%=58:t%=6|
00001b50  34 2a 28 61 25 2d 32 31  36 29 0d 09 ce 2a c9 20  |4*(a%-216)...*. |
00001b60  32 32 30 2c 32 32 31 2c  32 32 32 2c 32 32 33 3a  |220,221,222,223:|
00001b70  63 25 3d 35 39 3a 74 25  3d 36 34 2a 28 61 25 2d  |c%=59:t%=64*(a%-|
00001b80  32 32 30 29 0d 09 d8 2a  c9 20 32 33 32 2c 32 33  |220)...*. 232,23|
00001b90  33 2c 32 33 34 2c 32 33  35 3a 63 25 3d 36 30 3a  |3,234,235:c%=60:|
00001ba0  74 25 3d 36 34 2a 28 61  25 2d 32 33 32 29 0d 09  |t%=64*(a%-232)..|
00001bb0  e2 2a c9 20 32 33 36 2c  32 33 37 2c 32 33 38 2c  |.*. 236,237,238,|
00001bc0  32 33 39 3a 63 25 3d 36  31 3a 74 25 3d 36 34 2a  |239:c%=61:t%=64*|
00001bd0  28 61 25 2d 32 33 36 29  0d 09 ec 2a c9 20 32 34  |(a%-236)...*. 24|
00001be0  38 2c 32 34 39 2c 32 35  30 2c 32 35 31 3a 63 25  |8,249,250,251:c%|
00001bf0  3d 36 32 3a 74 25 3d 36  34 2a 28 61 25 2d 32 34  |=62:t%=64*(a%-24|
00001c00  38 29 0d 09 f6 2a c9 20  32 35 32 2c 32 35 33 2c  |8)...*. 252,253,|
00001c10  32 35 34 2c 32 35 35 3a  63 25 3d 36 33 3a 74 25  |254,255:c%=63:t%|
00001c20  3d 36 34 2a 28 61 25 2d  32 35 32 29 0d 0a 00 05  |=64*(a%-252)....|
00001c30  cb 0d 0a 0a 05 e1 0d 0a  14 05 3a 0d 0a 1e 28 dd  |..........:...(.|
00001c40  20 f2 63 6f 6c 6f 75 72  28 63 6f 6c 25 2c 74 69  | .colour(col%,ti|
00001c50  6e 74 25 2c f8 20 72 25  2c f8 20 67 25 2c f8 20  |nt%,. r%,. g%,. |
00001c60  62 25 29 0d 0a 28 17 ea  20 61 24 2c 78 25 2c 79  |b%)..(.. a$,x%,y|
00001c70  25 2c 7a 25 2c 61 25 2c  74 25 0d 0a 32 28 61 24  |%,z%,a%,t%..2(a$|
00001c80  3d a4 62 69 6e 61 72 79  28 63 6f 6c 25 29 3a 72  |=.binary(col%):r|
00001c90  25 3d a4 64 65 63 69 6d  61 6c 28 c2 61 24 2c 32  |%=.decimal(.a$,2|
00001ca0  29 29 0d 0a 3c 2d 67 25  3d a4 64 65 63 69 6d 61  |))..<-g%=.decima|
00001cb0  6c 28 c1 61 24 2c 33 2c  32 29 29 3a 62 25 3d a4  |l(.a$,3,2)):b%=.|
00001cc0  64 65 63 69 6d 61 6c 28  c0 61 24 2c 32 29 29 0d  |decimal(.a$,2)).|
00001cd0  0a 46 16 61 25 3d 28 74  69 6e 74 25 20 81 20 36  |.F.a%=(tint% . 6|
00001ce0  34 29 2a 36 34 0d 0a 50  0b c8 8e 20 61 25 20 ca  |4)*64..P... a% .|
00001cf0  0d 0a 5a 0c c9 20 30 3a  74 25 3d 30 0d 0a 64 0e  |..Z.. 0:t%=0..d.|
00001d00  c9 20 36 34 3a 74 25 3d  31 36 0d 0a 6e 0f c9 20  |. 64:t%=16..n.. |
00001d10  31 32 38 3a 74 25 3d 33  32 0d 0a 78 0f c9 20 31  |128:t%=32..x.. 1|
00001d20  39 32 3a 74 25 3d 34 38  0d 0a 82 05 cb 0d 0a 8c  |92:t%=48........|
00001d30  1e 72 25 3d 72 25 2b 74  25 3a 67 25 3d 67 25 2b  |.r%=r%+t%:g%=g%+|
00001d40  74 25 3a 62 25 3d 62 25  2b 74 25 0d 0a 96 05 e1  |t%:b%=b%+t%.....|
00001d50  0d 0a a0 05 3a 0d 0a aa  11 dd 20 a4 62 69 6e 61  |....:..... .bina|
00001d60  72 79 28 6e 25 29 0d 0a  b4 14 ea 20 61 24 2c 62  |ry(n%)..... a$,b|
00001d70  24 2c 63 24 2c 64 25 2c  72 25 0d 0a be 12 61 24  |$,c$,d%,r%....a$|
00001d80  3d 22 22 3a 62 24 3d c3  28 6e 25 29 0d 0a c8 05  |="":b$=.(n%)....|
00001d90  f5 0d 0a d2 29 64 25 3d  6e 25 20 81 20 32 3a 72  |....)d%=n% . 2:r|
00001da0  25 3d 6e 25 20 83 20 32  3a 61 24 3d 61 24 2b c3  |%=n% . 2:a$=a$+.|
00001db0  28 72 25 29 3a 6e 25 3d  64 25 0d 0a dc 0a fd 20  |(r%):n%=d%..... |
00001dc0  64 25 3d 30 0d 0a e6 09  63 24 3d 22 22 0d 0a f0  |d%=0....c$=""...|
00001dd0  0e c8 95 20 a9 28 61 24  29 3e 30 0d 0a fa 16 63  |... .(a$)>0....c|
00001de0  24 3d 63 24 2b c2 61 24  29 3a 61 24 3d c0 61 24  |$=c$+.a$):a$=.a$|
00001df0  29 0d 0b 04 05 ce 0d 0b  0e 23 e7 20 a9 28 63 24  |)........#. .(c$|
00001e00  29 3c 36 20 8c 20 63 24  3d c4 36 2d a9 28 63 24  |)<6 . c$=.6-.(c$|
00001e10  29 2c 22 30 22 29 2b 63  24 0d 0b 18 07 3d 63 24  |),"0")+c$....=c$|
00001e20  0d 0b 22 05 3a 0d 0b 2c  12 dd 20 a4 64 65 63 69  |..".:..,.. .deci|
00001e30  6d 61 6c 28 61 24 29 0d  0b 36 08 ea 20 61 25 0d  |mal(a$)..6.. a%.|
00001e40  0b 40 0b c8 8e 20 61 24  20 ca 0d 0b 4a 0f c9 20  |.@... a$ ...J.. |
00001e50  22 30 30 22 3a 61 25 3d  30 0d 0b 54 10 c9 20 22  |"00":a%=0..T.. "|
00001e60  30 31 22 3a 61 25 3d 36  34 0d 0b 5e 11 c9 20 22  |01":a%=64..^.. "|
00001e70  31 30 22 3a 61 25 3d 31  32 38 0d 0b 68 11 c9 20  |10":a%=128..h.. |
00001e80  22 31 31 22 3a 61 25 3d  31 39 32 0d 0b 72 05 cb  |"11":a%=192..r..|
00001e90  0d 0b 7c 07 3d 61 25 0d  0b 86 05 3a 0d 0b 90 21  |..|.=a%....:...!|
00001ea0  dd 20 f2 67 65 74 49 63  6f 6e 49 6e 66 6f 28 68  |. .getIconInfo(h|
00001eb0  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 29 0d 0b 9a  |andle%,icon%)...|
00001ec0  42 62 6c 6f 63 6b 25 21  30 3d 68 61 6e 64 6c 65  |Bblock%!0=handle|
00001ed0  25 3a 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |%:block%!4=icon%|
00001ee0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
00001ef0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00001f00  0b a4 3e 69 78 30 25 3d  62 6c 6f 63 6b 25 21 38  |..>ix0%=block%!8|
00001f10  3a 69 79 30 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |:iy0%=block%!12:|
00001f20  69 78 31 25 3d 62 6c 6f  63 6b 25 21 31 36 3a 69  |ix1%=block%!16:i|
00001f30  79 31 25 3d 62 6c 6f 63  6b 25 21 32 30 0d 0b ae  |y1%=block%!20...|
00001f40  14 66 6c 61 67 73 25 3d  62 6c 6f 63 6b 25 21 32  |.flags%=block%!2|
00001f50  34 0d 0b b8 19 e7 20 28  66 6c 61 67 73 25 20 80  |4..... (flags% .|
00001f60  20 26 31 30 30 29 3e 30  20 8c 0d 0b c2 14 64 61  | &100)>0 .....da|
00001f70  74 61 24 3d 24 62 6c 6f  63 6b 25 21 32 38 0d 0b  |ta$=$block%!28..|
00001f80  cc 18 cc 20 64 61 74 61  24 3d 24 28 62 6c 6f 63  |... data$=$(bloc|
00001f90  6b 25 2b 32 38 29 0d 0b  d6 05 cd 0d 0b e0 05 e1  |k%+28)..........|
00001fa0  0d 0b ea 05 3a 0d 0b f4  20 dd 20 f2 64 65 6c 65  |....:... . .dele|
00001fb0  74 65 49 63 6f 6e 28 68  61 6e 64 6c 65 25 2c 69  |teIcon(handle%,i|
00001fc0  63 6f 6e 25 29 0d 0b fe  40 62 6c 6f 63 6b 25 21  |con%)...@block%!|
00001fd0  30 3d 68 61 6e 64 6c 65  25 3a 62 6c 6f 63 6b 25  |0=handle%:block%|
00001fe0  21 34 3d 69 63 6f 6e 25  3a c8 99 20 22 57 69 6d  |!4=icon%:.. "Wim|
00001ff0  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 62  |p_DeleteIcon",,b|
00002000  6c 6f 63 6b 25 0d 0c 08  05 e1 0d 0c 12 05 3a 0d  |lock%.........:.|
00002010  0c 1c 2b dd 20 f2 72 65  64 72 61 77 49 63 6f 6e  |..+. .redrawIcon|
00002020  28 68 61 6e 64 6c 65 25  2c 69 63 6f 6e 25 2c 74  |(handle%,icon%,t|
00002030  65 78 74 24 2c 6c 65 6e  25 29 0d 0c 26 3a f2 67  |ext$,len%)..&:.g|
00002040  65 74 49 63 6f 6e 49 6e  66 6f 28 68 61 6e 64 6c  |etIconInfo(handl|
00002050  65 25 2c 69 63 6f 6e 25  29 3a f2 64 65 6c 65 74  |e%,icon%):.delet|
00002060  65 49 63 6f 6e 28 68 61  6e 64 6c 65 25 2c 69 63  |eIcon(handle%,ic|
00002070  6f 6e 25 29 0d 0c 30 41  69 25 3d a4 63 72 65 61  |on%)..0Ai%=.crea|
00002080  74 65 49 63 6f 6e 28 68  61 6e 64 6c 65 25 2c 69  |teIcon(handle%,i|
00002090  78 30 25 2c 69 79 30 25  2c 69 78 31 25 2c 69 79  |x0%,iy0%,ix1%,iy|
000020a0  31 25 2c 66 6c 61 67 73  25 2c 74 65 78 74 24 2c  |1%,flags%,text$,|
000020b0  6c 65 6e 25 29 0d 0c 3a  35 c8 99 20 22 57 69 6d  |len%)..:5.. "Wim|
000020c0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 68  |p_ForceRedraw",h|
000020d0  61 6e 64 6c 65 25 2c 69  78 30 25 2c 69 79 30 25  |andle%,ix0%,iy0%|
000020e0  2c 69 78 31 25 2c 69 79  31 25 0d 0c 44 05 e1 0d  |,ix1%,iy1%..D...|
000020f0  0c 4e 05 3a 0d 0c 58 2d  dd 20 f2 73 65 74 49 63  |.N.:..X-. .setIc|
00002100  6f 6e 53 74 61 74 65 28  68 61 6e 64 6c 65 25 2c  |onState(handle%,|
00002110  69 63 6f 6e 25 2c 65 6f  72 25 2c 6d 61 73 6b 25  |icon%,eor%,mask%|
00002120  29 0d 0c 62 40 21 62 6c  6f 63 6b 25 3d 68 61 6e  |)..b@!block%=han|
00002130  64 6c 65 25 3a 62 6c 6f  63 6b 25 21 34 3d 69 63  |dle%:block%!4=ic|
00002140  6f 6e 25 3a 62 6c 6f 63  6b 25 21 38 3d 65 6f 72  |on%:block%!8=eor|
00002150  25 3a 62 6c 6f 63 6b 25  21 31 32 3d 6d 61 73 6b  |%:block%!12=mask|
00002160  25 0d 0c 6c 22 c8 99 20  22 57 69 6d 70 5f 53 65  |%..l".. "Wimp_Se|
00002170  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00002180  63 6b 25 0d 0c 76 05 e1  0d 0c 80 05 3a 0d 0c 8a  |ck%..v......:...|
00002190  1d dd 20 f2 64 72 61 77  4d 65 6e 75 28 68 61 6e  |.. .drawMenu(han|
000021a0  64 6c 65 2c 6d 65 6e 75  24 29 0d 0c 94 10 21 6d  |dle,menu$)....!m|
000021b0  65 6e 75 3d 68 61 6e 64  6c 65 0d 0c 9e 2b 6d 65  |enu=handle...+me|
000021c0  6e 75 3f 31 36 3d 37 3a  6d 65 6e 75 3f 31 37 3d  |nu?16=7:menu?17=|
000021d0  32 3a 6d 65 6e 75 3f 31  38 3d 37 3a 6d 65 6e 75  |2:menu?18=7:menu|
000021e0  3f 31 39 3d 30 0d 0c a8  30 6d 65 6e 75 21 32 30  |?19=0...0menu!20|
000021f0  3d 31 35 36 3a 6d 65 6e  75 21 32 34 3d 34 30 3a  |=156:menu!24=40:|
00002200  6d 65 6e 75 21 32 38 3d  30 3a 70 74 72 3d 6d 65  |menu!28=0:ptr=me|
00002210  6e 75 2b 33 32 0d 0c b2  2e 24 28 6d 65 6e 75 2b  |nu+32....$(menu+|
00002220  34 29 3d c0 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |4)=.menu$,.menu$|
00002230  2c 22 2c 22 29 2d 31 29  3a 6d 65 6e 75 24 2b 3d  |,",")-1):menu$+=|
00002240  22 2c 22 0d 0c bc 10 c8  95 20 6d 65 6e 75 24 3c  |","...... menu$<|
00002250  3e 22 22 0d 0c c6 1f 6d  65 6e 75 24 3d c1 6d 65  |>""....menu$=.me|
00002260  6e 75 24 2c a7 6d 65 6e  75 24 2c 22 2c 22 29 2b  |nu$,.menu$,",")+|
00002270  31 29 0d 0c d0 11 e7 20  6d 65 6e 75 24 3c 3e 22  |1)..... menu$<>"|
00002280  22 20 8c 0d 0c da 22 21  70 74 72 3d 30 3a 70 74  |" ...."!ptr=0:pt|
00002290  72 21 34 3d 2d 31 3a 70  74 72 21 38 3d 26 37 30  |r!4=-1:ptr!8=&70|
000022a0  30 30 30 32 31 0d 0c e4  23 24 28 70 74 72 2b 31  |00021...#$(ptr+1|
000022b0  32 29 3d c0 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |2)=.menu$,.menu$|
000022c0  2c 22 2c 22 29 2d 31 29  0d 0c ee 12 c8 8e 20 c0  |,",")-1)...... .|
000022d0  6d 65 6e 75 24 2c 34 29  20 ca 0d 0c f8 18 c9 20  |menu$,4) ...... |
000022e0  22 49 6e 66 6f 22 3a 70  74 72 21 34 3d 69 6e 66  |"Info":ptr!4=inf|
000022f0  6f 25 0d 0d 02 05 cb 0d  0d 0c 0b 70 74 72 2b 3d  |o%.........ptr+=|
00002300  32 34 0d 0d 16 05 cd 0d  0d 20 05 ce 0d 0d 2a 19  |24....... ....*.|
00002310  70 74 72 21 2d 32 34 3d  70 74 72 21 2d 32 34 20  |ptr!-24=ptr!-24 |
00002320  84 20 26 38 30 0d 0d 34  05 e1 0d 0d 3e 05 3a 0d  |. &80..4....>.:.|
00002330  0d 48 40 dd 20 a4 63 72  65 61 74 65 49 63 6f 6e  |.H@. .createIcon|
00002340  28 68 61 6e 64 6c 65 25  2c 69 78 30 25 2c 69 79  |(handle%,ix0%,iy|
00002350  30 25 2c 69 78 31 25 2c  69 79 31 25 2c 66 6c 61  |0%,ix1%,iy1%,fla|
00002360  67 73 25 2c 64 61 74 61  24 2c 6c 65 6e 25 29 0d  |gs%,data$,len%).|
00002370  0d 52 30 62 6c 6f 63 6b  25 21 30 3d 68 61 6e 64  |.R0block%!0=hand|
00002380  6c 65 25 3a 62 6c 6f 63  6b 25 21 34 3d 69 78 30  |le%:block%!4=ix0|
00002390  25 3a 62 6c 6f 63 6b 25  21 38 3d 69 79 30 25 0d  |%:block%!8=iy0%.|
000023a0  0d 5c 32 62 6c 6f 63 6b  25 21 31 32 3d 69 78 31  |.\2block%!12=ix1|
000023b0  25 3a 62 6c 6f 63 6b 25  21 31 36 3d 69 79 31 25  |%:block%!16=iy1%|
000023c0  3a 62 6c 6f 63 6b 25 21  32 30 3d 66 6c 61 67 73  |:block%!20=flags|
000023d0  25 0d 0d 66 27 de 20 62  6c 6f 63 6b 25 21 32 34  |%..f'. block%!24|
000023e0  20 6c 65 6e 25 3a 24 28  62 6c 6f 63 6b 25 21 32  | len%:$(block%!2|
000023f0  34 29 3d 64 61 74 61 24  0d 0d 70 1f 62 6c 6f 63  |4)=data$..p.bloc|
00002400  6b 25 21 32 38 3d 2d 31  3a 62 6c 6f 63 6b 25 21  |k%!28=-1:block%!|
00002410  33 32 3d 6c 65 6e 25 0d  0d 7a 28 c8 99 20 22 57  |32=len%..z(.. "W|
00002420  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00002430  2c 62 6c 6f 63 6b 25 20  b8 20 69 63 6f 6e 25 0d  |,block% . icon%.|
00002440  0d 84 0a 3d 69 63 6f 6e  25 0d 0d 8e 05 3a 0d 0d  |...=icon%....:..|
00002450  98 0e dd 20 a4 69 63 6f  6e 62 61 72 0d 0d a2 31  |... .iconbar...1|
00002460  21 62 6c 6f 63 6b 25 3d  2d 31 3a 62 6c 6f 63 6b  |!block%=-1:block|
00002470  25 21 34 3d 30 3a 62 6c  6f 63 6b 25 21 38 3d 30  |%!4=0:block%!8=0|
00002480  3a 62 6c 6f 63 6b 25 21  31 32 3d 36 38 0d 0d ac  |:block%!12=68...|
00002490  2f 62 6c 6f 63 6b 25 21  31 36 3d 36 38 3a 62 6c  |/block%!16=68:bl|
000024a0  6f 63 6b 25 21 32 30 3d  26 33 31 30 32 3a 64 61  |ock%!20=&3102:da|
000024b0  74 61 24 3d 22 21 70 63  32 35 36 22 0d 0d b6 2e  |ta$="!pc256"....|
000024c0  de 20 62 6c 6f 63 6b 25  21 32 34 20 28 a9 20 64  |. block%!24 (. d|
000024d0  61 74 61 24 2b 31 29 3a  24 28 62 6c 6f 63 6b 25  |ata$+1):$(block%|
000024e0  21 32 34 29 3d 64 61 74  61 24 0d 0d c0 23 62 6c  |!24)=data$...#bl|
000024f0  6f 63 6b 25 21 32 38 3d  31 3a 62 6c 6f 63 6b 25  |ock%!28=1:block%|
00002500  21 33 32 3d a9 20 64 61  74 61 24 2b 31 0d 0d ca  |!32=. data$+1...|
00002510  27 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |'.. "Wimp_Create|
00002520  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |Icon",,block% . |
00002530  69 63 6f 6e 0d 0d d4 09  3d 69 63 6f 6e 0d 0d de  |icon....=icon...|
00002540  05 3a 0d 0d e8 14 dd 20  a4 67 65 74 53 74 72 69  |.:..... .getStri|
00002550  6e 67 28 73 25 29 0d 0d  f2 08 ea 20 61 24 0d 0d  |ng(s%)..... a$..|
00002560  fc 0a c8 95 20 3f 73 25  0d 0e 06 12 61 24 2b 3d  |.... ?s%....a$+=|
00002570  bd 3f 73 25 3a 73 25 2b  3d 31 0d 0e 10 05 ce 0d  |.?s%:s%+=1......|
00002580  0e 1a 07 3d 61 24 0d 0e  24 05 3a 0d 0e 2e 11 dd  |...=a$..$.:.....|
00002590  20 f2 6c 6f 63 61 6c 45  72 72 6f 72 0d 0e 38 39  | .localError..89|
000025a0  c8 99 20 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |.. "Wimp_DragBox|
000025b0  22 2c 2c 2d 31 3a 21 62  6c 6f 63 6b 25 3d 9f 3a  |",,-1:!block%=.:|
000025c0  24 28 62 6c 6f 63 6b 25  2b 34 29 3d 65 72 72 6f  |$(block%+4)=erro|
000025d0  72 24 2b bd 30 0d 0e 42  2a c8 99 20 22 57 69 6d  |r$+.0..B*.. "Wim|
000025e0  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 62  |p_ReportError",b|
000025f0  6c 6f 63 6b 25 2c 31 2c  22 50 43 32 35 36 22 0d  |lock%,1,"PC256".|
00002600  0e 4c 05 e1 0d 0e 56 05  3a 0d 0e 60 0c dd 20 f2  |.L....V.:..`.. .|
00002610  65 72 72 6f 72 0d 0e 6a  19 c8 99 20 22 57 69 6d  |error..j... "Wim|
00002620  70 5f 44 72 61 67 42 6f  78 22 2c 2c 2d 31 0d 0e  |p_DragBox",,-1..|
00002630  74 2e 21 62 6c 6f 63 6b  25 3d 9f 3a 24 28 62 6c  |t.!block%=.:$(bl|
00002640  6f 63 6b 25 2b 34 29 3d  f6 24 2b 22 20 61 74 20  |ock%+4)=.$+" at |
00002650  6c 69 6e 65 20 22 2b c3  9e 2b bd 30 0d 0e 7e 2a  |line "+..+.0..~*|
00002660  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00002670  72 72 6f 72 22 2c 62 6c  6f 63 6b 25 2c 31 2c 22  |rror",block%,1,"|
00002680  50 43 32 35 36 22 0d 0e  88 05 e1 0d ff           |PC256".......|
0000268d