Home » Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Pools/!Pools/!RunImage

!AWApr95/Goodies/Pools/!Pools/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95
Filename: !AWApr95/Goodies/Pools/!Pools/!RunImage
Read OK:
File size: 1465 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>ADFS::A5000_HD2.$.Work.ran.!RanPools.!RunImageX squished by MH's BASIC cruncher v1.30 16/9/89 On 14 Aug 1993
   20PROCd("Rand. Pools Numbers",2980,1140):PROCe:PROCf:PROCg:PROCh:PROCb:END
   30
   40DEFPROCe:DIMa(58):w%=1:ENDPROC
   50
   60DEFPROCf:g%=FNa("random"):P%=FNa("info"):Q%=FNe("!Pools"):ENDPROC
   70
   80DEFFNb(b%)=FALSE
   90DEFFNf(b%)=l%
  100DEFPROCg:r%=FNc("Pools\Info>P%\Quit"):ENDPROC
  110
  120DEFFNg(b%):CASEb%OF
  130WHENH%:=r%
  140OTHERWISE:=FALSE
  150ENDCASE
  160
  170DEFPROCi(b%,I%):CASEb%OF
  180ENDCASE
  190ENDPROC
  200
  210DEFPROCj(b%,z%,B%):CASEb%OF
  220WHENg%:PROCk
  230ENDCASE
  240ENDPROC
  250
  260DEFPROCk:ENDPROC
  270
  280DEFPROCl(b%,d%,f%,x%,y%):CASEb%OF
  290WHENH%:PROCm
  300WHENg%:PROCn(f%,d%)
  310ENDCASE
  320ENDPROC
  330
  340DEFPROCm:PROCo(g%):ENDPROC
  350
  360DEFPROCn(f%,d%):IFf%=4ANDd%=1THENPROCc
  370IFf%=4ANDd%=60THENPROCp
  380ENDPROC
  390
  400DEFPROCq(b%,d%,p%):CASEb%OF
  410WHENg%:PROCr(d%,p%)
  420ENDCASE
  430ENDPROC
  440
  450DEFPROCr(d%,p%):IFp%=13ANDd%=1THENPROCc:PROCs(g%,-1,-1)
  460ENDPROC
  470
  480DEFPROCt(e%):CASEe%OF
  490WHENr%:PROCu
  500ENDCASE
  510ENDPROC
  520
  530DEFPROCu:CASEFNh(0)OF
  540WHEN2:J%=TRUE
  550ENDCASE
  560ENDPROC
  570
  580DEFPROCc:a=VAL(FNi(g%,1)):IFa>0ANDa<59THEN
  590SYS"Hourglass_On":FORc=1TOa:REPEAT:A%=RND(58):C%=0:b=A%+(( TIME AND31)+RND(5)):IFb>58THENb-=58
  600x=1:REPEAT:IFb=a(x)THENC%=1
  610x+=1:UNTILx=58ORC%=1:UNTILC%=0:a(c)=b:NEXTc:FORx=1TOa:PROCa(g%,x+1,STR$(a(x))):NEXT:IFa<58THEN
  620FORx=a+1TO58:PROCa(g%,x+1,""):NEXT
  630ELSE
  640ENDIF
  650SYS"Hourglass_Off":w%=0
  660ELSE:VDU7
  670PROCa(g%,1,"")
  680ENDIF
  690ENDPROC
  700DEFPROCp:d=2:IFw%=0THEN
  710FOR x =1 TO 58:FOR e=1 TO a:IF a(e)=x THEN PROCa(g%,d,STR$(a(e))):d+=1
  720NEXT:NEXT:w%=1
  730ELSE
  740ENDIF
  750ENDPROC
  760DEFPROCv(b$,c$):PROCw(b$,c$,0):ENDPROC
  770
  780DEFPROCw(b$,c$,f%):LOCALm%:$(a%+4)=c$:CASEf%OF
  790WHEN2:m%=1
  800WHEN1:m%=15
  810WHEN3:m%=(1<<5)+16
  820WHEN4:m%=(1<<6)+16
  830OTHERWISE:m%=16
  840ENDCASE
  850SYS"Wimp_ReportError",a%,m%,b$TO,m%:ENDPROC
  860
  870DEFFNa(d$):=FNj(d$,"<Obey$Dir>.Templates")
  880DEFFNj(d$,i$):LOCALc%,i%,n%,j%,e$,g$:SYS"Wimp_OpenTemplate",,i$:SYS"Wimp_LoadTemplate",,a%,D%,R%,-1,d$,0TO,,D%:CASEl%OF
  890WHEN1:a%!64=l%
  900OTHERWISE:a%!64=FNf(b%)
  910ENDCASE
  920SYS"Wimp_CreateWindow",,a%TOc%:SYS"Wimp_CloseTemplate":SYS"Wimp_WhichIcon",c%,a%+40,1+2+(1<<8),2+(1<<8):CASEa%!40OF
  930WHEN-1
  940OTHERWISE:i%=40:REPEAT:a%!4=a%!i%:a%!0=c%:SYS"Wimp_GetIconState",,a%:e$=FNd(a%!28):SYS"Wimp_DeleteIcon",,a%:CASEl%OF
  950WHEN1:a%!32=1
  960OTHERWISE:SYS"OS_SpriteOp",264,l%TO,,,n%:j%=0:REPEAT:j%+=1:SYS"OS_SpriteOp",269,l%,K%,20,j%:g$=FNd(K%):UNTILj%=n%ORe$=g$:IFe$=g$THENa%!32=l%ELSEa%!32=1
  970ENDCASE
  980a%!4=c%:SYS"Wimp_CreateIcon",,a%+4:i%+=4:UNTIL(a%!i%)=-1
  990ENDCASE
 1000=c%
 1010DEFPROCo(b%):!a%=b%:SYS"Wimp_GetWindowState",,a%:SYS"Wimp_OpenWindow",,a%:ENDPROC
 1020
 1030DEFFNe(j$):LOCALd%:a%!0=-1:a%!4=0:a%!8=0:a%!12=68:a%!16=68:a%!20=12290:$(a%+24)=j$:SYS"Wimp_CreateIcon",,a%TOd%:=d%
 1040DEFPROCs(b%,d%,S%):SYS"Wimp_SetCaretPosition",b%,d%,,,-1,S%:ENDPROC
 1050
 1060DEFFNi(b%,d%):a%!0=b%:a%!4=d%:SYS"Wimp_GetIconState",,a%:IF((a%!24)AND256)=0ERROR1,"Icon isn't indirected"
 1070=$(a%!28)
 1080DEFPROCa(b%,d%,k$):a%!0=b%:a%!4=d%:SYS"Wimp_GetIconState",,a%:IF((a%!24)AND256)=0ERROR1,"Icon isn't indirected"
 1090$(a%!28)=k$:a%!0=b%:a%!4=d%:a%!8=0:a%!12=0:SYS"Wimp_SetIconState",,a%:ENDPROC
 1100
 1110DEFFNh(T%):=(a%!(4*T%))+1
 1120DEFFNc(a$):IFa$="Colours"THEN=FNk
 1130LOCALe%,h%,t%,o%,k%,s%:DIMe% 28+FNl(a$)*24:e%?12=7:e%?13=2:e%?14=7:e%?15=0:e%!16=140:e%!20=44:e%!24=0:h%=e%+28:$e%=LEFT$(a$,INSTR(a$,"\")-1):t%=LEN(LEFT$(a$,INSTR(a$,"\")-1)):a$+="\":WHILEa$<>"":a$=MID$(a$,INSTR(a$,"\")+1):CASEa$OF
 1140WHEN""
 1150OTHERWISE:!h%=0:h%!4=-1:h%!8=&7000021:o%=INSTR(a$,"\")-1:k%=INSTR(LEFT$(a$,o%),">"):CASEk%OF
 1160WHEN0
 1170OTHERWISE:s%=EVAL(MID$(a$,k%+1,o%-k%)):h%!4=s%:o%=k%-1
 1180ENDCASE
 1190$(h%+12)=LEFT$(a$,o%):IFo%>t%THENt%=o%
 1200h%+=24
 1210ENDCASE
 1220ENDWHILE:e%!16=16*(t%+1):h%!-24=h%!-24OR128:=e%
 1230DEFFNk:=FNm(" ")
 1240DEFFNm(b$):LOCALx$,u%,j%,i%:x$=b$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15":u%=FNc(x$):FORi%=0TO15:CASETRUEOF
 1250WHENi%<4,i%=9,i%=12,i%=14,i%=15:j%=7
 1260OTHERWISE:j%=0
 1270ENDCASE
 1280u%?(39+i%*24)=i%*16+j%:PROCx(u%,i%+1):NEXT:=u%
 1290DEFFNl(a$):LOCALn%,j%:n%=0:j%=0:REPEAT:j%=INSTR(a$,"\",j%+1):IFj%<>0THENn%+=1
 1300UNTILj%=0:=n%
 1310DEFPROCx(e%,L%):e%!(36+(L%-1)*24)=e%!(36+(L%-1)*24)OR(1<<3):ENDPROC
 1320
 1330DEFFNd(v%):LOCALs$:s$="":WHILE(?v%<>13)AND(?v%<>0):s$+=CHR$(?v%):v%+=1:ENDWHILE:=s$
 1340DEFFNn(f$):CASEINSTR(f$,".")OF
 1350WHEN0:=f$
 1360OTHERWISE:=FNn(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
 1370ENDCASE
 1380
 1390DEFPROCd(h$,E%,d%):DIMa% E%,D% d%:IFE%<256THENE%=256
 1400R%=D%+d%:l$=h$:PROCy:ONERRORPROCz:END
 1410SYS"Wimp_Initialise",200,&4B534154,h$TOU%,M%:ENDPROC
 1420
 1430DEFPROCy:DIMK% 20:F%=FALSE:p%=1<<8:e%=1<<9:b%=0:l%=1:U%=0:M%=0:H%=-2:Q%=0:r%=0:z%=0:B%=0:ENDPROC
 1440
 1450DEFPROCz:LOCALX$,x%:ONERROROFF
 1460x%=ERL:X$=REPORT$+"atline"+STR$(x%DIV10):DIMq% 36:q%!0=36:q%!12=0:q%!16=528512:q%!20=x%:$(q%+24)="!RunImage":SYS"Wimp_SendMessage",17,q%:PROCv(l$,X$):PROCb:ENDPROC
 1470
 1480DEFPROCb:SYS"Wimp_CloseDown",M%,"TASK":ENDPROC
 1490
 1500DEFPROCh:LOCALN%,O%:J%=FALSE:N%=3609:REPEAT:SYS"Wimp_Poll",N%,a%TOO%:CASEO%OF
 1510WHEN1:PROCA
 1520WHEN2:SYS"Wimp_OpenWindow",,a%
 1530WHEN3:PROCB
 1540WHEN6:PROCC
 1550WHEN8:PROCD
 1560WHEN9:PROCt(e%)
 1570ENDCASE
 1580UNTILJ%:ENDPROC
 1590
 1600DEFPROCA:LOCALG%:SYS"Wimp_RedrawWindow",,a%TOG%:b%=a%!0:z%=16+a%!4-a%!20:B%=-16+a%!16-a%!24:WHILEG%:IFF%THENSYS"Wimp_BorderWindow",,a%
 1610PROCj(b%,z%,B%):SYS"Wimp_GetRectangle",,a%TOG%:ENDWHILE:ENDPROC
 1620
 1630DEFPROCB:SYS"Wimp_GetPointerInfo",,a%:b%=a%!12:I%=a%!8:PROCi(b%,I%):!a%=b%:SYS"Wimp_CloseWindow",,a%:ENDPROC
 1640
 1650DEFPROCC:f%=a%!8:b%=a%!12:d%=a%!16:x%=a%!0:y%=a%!4:CASEf%OF
 1660WHEN2:PROCE
 1670OTHERWISE:CASEFNb(b%)OF
 1680WHENTRUE:PROCF
 1690WHENFALSE:PROCG
 1700ENDCASE
 1710ENDCASE
 1720ENDPROC
 1730
 1740DEFPROCE:e%=FNg(b%):CASEe%OF
 1750WHENFALSE
 1760OTHERWISE:CASEb%OF
 1770WHEN-2:n%=0:WHILE((r%!(28+n%*24))AND128)=0:n%+=1:ENDWHILE:SYS"Wimp_CreateMenu",,r%,x%-64,96+44+(n%*44)
 1780OTHERWISE:SYS"Wimp_CreateMenu",,e%,x%-64,y%+20
 1790ENDCASE
 1800ENDCASE
 1810ENDPROC
 1820
 1830DEFPROCF:CASEd%OF
 1840WHEN0:IFf%AND80THENPROCH(b%)
 1850WHEN2:IFf%AND5THENPROCI(b%)
 1860ENDCASE
 1870ENDPROC
 1880
 1890DEFPROCG:IFF%THENSYS"Wimp_BorderIcon",,a%
 1900PROCl(b%,d%,f%,x%,y%):CASEF%OF
 1910WHENTRUE:a%!0=x%:a%!4=y%:a%!8=0:a%!12=b%:a%!16=d%:SYS"Wimp_BorderIcon",,a%
 1920ENDCASE
 1930ENDPROC
 1940
 1950DEFPROCH(b%):LOCALx%,y%:!a%=b%:SYS"Wimp_GetWindowState",,a%:x%=a%!4-a%!20:y%=a%!16-a%!24:a%!4=0:SYS"Wimp_GetIconState",,a%:!a%=b%:a%!4=5:a%!8=x%+a%!8:a%!12=y%+a%!12:a%!16=x%+a%!16:a%!20=y%+a%!20:a%!24=0:a%!28=0:a%!32=&7FFFFFFF:a%!36=&7FFFFFFF
 1960SYS"Wimp_DragBox",,a%:ENDPROC
 1970
 1980DEFPROCD:b%=a%!0:d%=a%!4:p%=a%!24:CASEFNb(b%)OF
 1990WHENTRUE:PROCI(b%)
 2000WHENFALSE:PROCq(b%,d%,p%)
 2010ENDCASE
 2020ENDPROC
 2030

r�>ADFS::A5000_HD2.$.Work.ran.!RanPools.!RunImageX squished by MH's BASIC cruncher v1.30 16/9/89 On 14 Aug 1993
8�d("Rand. Pools Numbers",2980,1140):�e:�f:�g:�h:�b:�

(��e:�a(58):w%=1:�
2
<7��f:g%=�a("random"):P%=�a("info"):Q%=�e("!Pools"):�
F
P
ݤb(b%)=�
Zݤf(b%)=l%
d%��g:r%=�c("Pools\Info>P%\Quit"):�
n
xݤg(b%):Ȏb%�
��H%:=r%
�:=�
��
�
���i(b%,I%):Ȏb%�
��
��
�
���j(b%,z%,B%):Ȏb%�
�
�g%:�k
��
��
�
	��k:�

��l(b%,d%,f%,x%,y%):Ȏb%�
"
�H%:�m
,�g%:�n(f%,d%)
6�
@�
J
T��m:�o(g%):�
^
h��n(f%,d%):�f%=4�d%=1��c
r�f%=4�d%=60��p
|�
�
���q(b%,d%,p%):Ȏb%�
��g%:�r(d%,p%)
��
��
�
�*��r(d%,p%):�p%=13�d%=1��c:�s(g%,-1,-1)
��
�
���t(e%):Ȏe%�
�
�r%:�u
��
��

��u:Ȏ�h(0)�
�2:J%=�
&�
0�
:
D ��c:a=�(�i(g%,1)):�a>0�a<59�
NLș"Hourglass_On":�c=1�a:�:A%=�(58):C%=0:b=A%+(( � �31)+�(5)):�b>58�b-=58
Xx=1:�:�b=a(x)�C%=1
bFx+=1:�x=58�C%=1:�C%=0:a(c)=b:�c:�x=1�a:�a(g%,x+1,�(a(x))):�:�a<58�
l�x=a+1�58:�a(g%,x+1,""):�
v�
��
�ș"Hourglass_Off":w%=0
��:�7
��a(g%,1,"")
��
��
���p:d=2:�w%=0�
�:� x =1 � 58:� e=1 � a:� a(e)=x � �a(g%,d,�(a(e))):d+=1
��:�:w%=1
��
��
��
���v(b$,c$):�w(b$,c$,0):�

&��w(b$,c$,f%):�m%:$(a%+4)=c$:Ȏf%�
�2:m%=1
 �1:m%=15
*�3:m%=(1<<5)+16
4�4:m%=(1<<6)+16
>:m%=16
H�
R'ș"Wimp_ReportError",a%,m%,b$�,m%:�
\
f*ݤa(d$):=�j(d$,"<Obey$Dir>.Templates")
pnݤj(d$,i$):�c%,i%,n%,j%,e$,g$:ș"Wimp_OpenTemplate",,i$:ș"Wimp_LoadTemplate",,a%,D%,R%,-1,d$,0�,,D%:Ȏl%�
z�1:a%!64=l%
�:a%!64=�f(b%)
��
�pș"Wimp_CreateWindow",,a%�c%:ș"Wimp_CloseTemplate":ș"Wimp_WhichIcon",c%,a%+40,1+2+(1<<8),2+(1<<8):Ȏa%!40�
��-1
�e:i%=40:�:a%!4=a%!i%:a%!0=c%:ș"Wimp_GetIconState",,a%:e$=�d(a%!28):ș"Wimp_DeleteIcon",,a%:Ȏl%�
��1:a%!32=1
�~:ș"OS_SpriteOp",264,l%�,,,n%:j%=0:�:j%+=1:ș"OS_SpriteOp",269,l%,K%,20,j%:g$=�d(K%):�j%=n%�e$=g$:�e$=g$�a%!32=l%�a%!32=1
��
�7a%!4=c%:ș"Wimp_CreateIcon",,a%+4:i%+=4:�(a%!i%)=-1
��
�=c%
�H��o(b%):!a%=b%:ș"Wimp_GetWindowState",,a%:ș"Wimp_OpenWindow",,a%:�
�
nݤe(j$):�d%:a%!0=-1:a%!4=0:a%!8=0:a%!12=68:a%!16=68:a%!20=12290:$(a%+24)=j$:ș"Wimp_CreateIcon",,a%�d%:=d%
;��s(b%,d%,S%):ș"Wimp_SetCaretPosition",b%,d%,,,-1,S%:�

$cݤi(b%,d%):a%!0=b%:a%!4=d%:ș"Wimp_GetIconState",,a%:�((a%!24)�256)=0�1,"Icon isn't indirected"
.
=$(a%!28)
8f��a(b%,d%,k$):a%!0=b%:a%!4=d%:ș"Wimp_GetIconState",,a%:�((a%!24)�256)=0�1,"Icon isn't indirected"
BJ$(a%!28)=k$:a%!0=b%:a%!4=d%:a%!8=0:a%!12=0:ș"Wimp_SetIconState",,a%:�
L
Vݤh(T%):=(a%!(4*T%))+1
`ݤc(a$):�a$="Colours"�=�k
j��e%,h%,t%,o%,k%,s%:�e% 28+�l(a$)*24:e%?12=7:e%?13=2:e%?14=7:e%?15=0:e%!16=140:e%!20=44:e%!24=0:h%=e%+28:$e%=�a$,�a$,"\")-1):t%=�(�a$,�a$,"\")-1)):a$+="\":ȕa$<>"":a$=�a$,�a$,"\")+1):Ȏa$�
t�""
~F:!h%=0:h%!4=-1:h%!8=&7000021:o%=�a$,"\")-1:k%=��a$,o%),">"):Ȏk%�
��0
�+:s%=�(�a$,k%+1,o%-k%)):h%!4=s%:o%=k%-1
��
�!$(h%+12)=�a$,o%):�o%>t%�t%=o%
�
h%+=24
��
�+�:e%!16=16*(t%+1):h%!-24=h%!-24�128:=e%
�ݤk:=�m(" ")
�cݤm(b$):�x$,u%,j%,i%:x$=b$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15":u%=�c(x$):�i%=0�15:ȎTRUEOF
�%�i%<4,i%=9,i%=12,i%=14,i%=15:j%=7
�
:j%=0
��
,u%?(39+i%*24)=i%*16+j%:�x(u%,i%+1):�:=u%

<ݤl(a$):�n%,j%:n%=0:j%=0:�:j%=�a$,"\",j%+1):�j%<>0�n%+=1

�j%=0:=n%
;��x(e%,L%):e%!(36+(L%-1)*24)=e%!(36+(L%-1)*24)�(1<<3):�
(
2Aݤd(v%):�s$:s$="":ȕ(?v%<>13)�(?v%<>0):s$+=�(?v%):v%+=1:�:=s$
<ݤn(f$):Ȏ�f$,".")�
F
�0:=f$
P:=�n(�f$,�(f$)-�f$,".")))
Z�
d
n-��d(h$,E%,d%):�a% E%,D% d%:�E%<256�E%=256
xR%=D%+d%:l$=h$:�y:��z:�
�0ș"Wimp_Initialise",200,&4B534154,h$�U%,M%:�
�
�S��y:�K% 20:F%=�:p%=1<<8:e%=1<<9:b%=0:l%=1:U%=0:M%=0:H%=-2:Q%=0:r%=0:z%=0:B%=0:�
�
���z:�X$,x%:
��x%=�:X$=�$+"atline"+�(x%�10):�q% 36:q%!0=36:q%!12=0:q%!16=528512:q%!20=x%:$(q%+24)="!RunImage":ș"Wimp_SendMessage",17,q%:�v(l$,X$):�b:�
�
�&��b:ș"Wimp_CloseDown",M%,"TASK":�
�
�:��h:�N%,O%:J%=�:N%=3609:�:ș"Wimp_Poll",N%,a%�O%:ȎO%�
�	�1:�A
��2:ș"Wimp_OpenWindow",,a%
�	�3:�B
	�6:�C
	�8:�D

�9:�t(e%)
"�
,	�J%:�
6
@w��A:�G%:ș"Wimp_RedrawWindow",,a%�G%:b%=a%!0:z%=16+a%!4-a%!20:B%=-16+a%!16-a%!24:ȕG%:�F%�ș"Wimp_BorderWindow",,a%
J1�j(b%,z%,B%):ș"Wimp_GetRectangle",,a%�G%:�:�
T
^`��B:ș"Wimp_GetPointerInfo",,a%:b%=a%!12:I%=a%!8:�i(b%,I%):!a%=b%:ș"Wimp_CloseWindow",,a%:�
h
r7��C:f%=a%!8:b%=a%!12:d%=a%!16:x%=a%!0:y%=a%!4:Ȏf%�
|	�2:�E
�:Ȏ�b(b%)�
�	ɹ:�F
�	ɣ:�G
��
��
��
�
���E:e%=�g(b%):Ȏe%�
�ɣ
�:Ȏb%�
�Z�-2:n%=0:ȕ((r%!(28+n%*24))�128)=0:n%+=1:�:ș"Wimp_CreateMenu",,r%,x%-64,96+44+(n%*44)
�):ș"Wimp_CreateMenu",,e%,x%-64,y%+20
��
�
�

&
��F:Ȏd%�
0�0:�f%�80��H(b%)
:�2:�f%�5��I(b%)
D�
N�
X
b#��G:�F%�ș"Wimp_BorderIcon",,a%
l�l(b%,d%,f%,x%,y%):ȎF%�
vGɹ:a%!0=x%:a%!4=y%:a%!8=0:a%!12=b%:a%!16=d%:ș"Wimp_BorderIcon",,a%
��
��
�
����H(b%):�x%,y%:!a%=b%:ș"Wimp_GetWindowState",,a%:x%=a%!4-a%!20:y%=a%!16-a%!24:a%!4=0:ș"Wimp_GetIconState",,a%:!a%=b%:a%!4=5:a%!8=x%+a%!8:a%!12=y%+a%!12:a%!16=x%+a%!16:a%!20=y%+a%!20:a%!24=0:a%!28=0:a%!32=&7FFFFFFF:a%!36=&7FFFFFFF
�ș"Wimp_DragBox",,a%:�
�
�*��D:b%=a%!0:d%=a%!4:p%=a%!24:Ȏ�b(b%)�
�
ɹ:�I(b%)
�ɣ:�q(b%,d%,p%)
��
��
�
�
00000000  0d 00 0a 72 f4 3e 41 44  46 53 3a 3a 41 35 30 30  |...r.>ADFS::A500|
00000010  30 5f 48 44 32 2e 24 2e  57 6f 72 6b 2e 72 61 6e  |0_HD2.$.Work.ran|
00000020  2e 21 52 61 6e 50 6f 6f  6c 73 2e 21 52 75 6e 49  |.!RanPools.!RunI|
00000030  6d 61 67 65 58 20 73 71  75 69 73 68 65 64 20 62  |mageX squished b|
00000040  79 20 4d 48 27 73 20 42  41 53 49 43 20 63 72 75  |y MH's BASIC cru|
00000050  6e 63 68 65 72 20 76 31  2e 33 30 20 31 36 2f 39  |ncher v1.30 16/9|
00000060  2f 38 39 20 4f 6e 20 31  34 20 41 75 67 20 31 39  |/89 On 14 Aug 19|
00000070  39 33 0d 00 14 38 f2 64  28 22 52 61 6e 64 2e 20  |93...8.d("Rand. |
00000080  50 6f 6f 6c 73 20 4e 75  6d 62 65 72 73 22 2c 32  |Pools Numbers",2|
00000090  39 38 30 2c 31 31 34 30  29 3a f2 65 3a f2 66 3a  |980,1140):.e:.f:|
000000a0  f2 67 3a f2 68 3a f2 62  3a e0 0d 00 1e 04 0d 00  |.g:.h:.b:.......|
000000b0  28 15 dd f2 65 3a de 61  28 35 38 29 3a 77 25 3d  |(...e:.a(58):w%=|
000000c0  31 3a e1 0d 00 32 04 0d  00 3c 37 dd f2 66 3a 67  |1:...2...<7..f:g|
000000d0  25 3d a4 61 28 22 72 61  6e 64 6f 6d 22 29 3a 50  |%=.a("random"):P|
000000e0  25 3d a4 61 28 22 69 6e  66 6f 22 29 3a 51 25 3d  |%=.a("info"):Q%=|
000000f0  a4 65 28 22 21 50 6f 6f  6c 73 22 29 3a e1 0d 00  |.e("!Pools"):...|
00000100  46 04 0d 00 50 0d dd a4  62 28 62 25 29 3d a3 0d  |F...P...b(b%)=..|
00000110  00 5a 0e dd a4 66 28 62  25 29 3d 6c 25 0d 00 64  |.Z...f(b%)=l%..d|
00000120  25 dd f2 67 3a 72 25 3d  a4 63 28 22 50 6f 6f 6c  |%..g:r%=.c("Pool|
00000130  73 5c 49 6e 66 6f 3e 50  25 5c 51 75 69 74 22 29  |s\Info>P%\Quit")|
00000140  3a e1 0d 00 6e 04 0d 00  78 11 dd a4 67 28 62 25  |:...n...x...g(b%|
00000150  29 3a c8 8e 62 25 ca 0d  00 82 0b c9 48 25 3a 3d  |):..b%......H%:=|
00000160  72 25 0d 00 8c 08 7f 3a  3d a3 0d 00 96 05 cb 0d  |r%.....:=.......|
00000170  00 a0 04 0d 00 aa 14 dd  f2 69 28 62 25 2c 49 25  |.........i(b%,I%|
00000180  29 3a c8 8e 62 25 ca 0d  00 b4 05 cb 0d 00 be 05  |):..b%..........|
00000190  e1 0d 00 c8 04 0d 00 d2  17 dd f2 6a 28 62 25 2c  |...........j(b%,|
000001a0  7a 25 2c 42 25 29 3a c8  8e 62 25 ca 0d 00 dc 0a  |z%,B%):..b%.....|
000001b0  c9 67 25 3a f2 6b 0d 00  e6 05 cb 0d 00 f0 05 e1  |.g%:.k..........|
000001c0  0d 00 fa 04 0d 01 04 09  dd f2 6b 3a e1 0d 01 0e  |..........k:....|
000001d0  04 0d 01 18 1d dd f2 6c  28 62 25 2c 64 25 2c 66  |.......l(b%,d%,f|
000001e0  25 2c 78 25 2c 79 25 29  3a c8 8e 62 25 ca 0d 01  |%,x%,y%):..b%...|
000001f0  22 0a c9 48 25 3a f2 6d  0d 01 2c 11 c9 67 25 3a  |"..H%:.m..,..g%:|
00000200  f2 6e 28 66 25 2c 64 25  29 0d 01 36 05 cb 0d 01  |.n(f%,d%)..6....|
00000210  40 05 e1 0d 01 4a 04 0d  01 54 10 dd f2 6d 3a f2  |@....J...T...m:.|
00000220  6f 28 67 25 29 3a e1 0d  01 5e 04 0d 01 68 1c dd  |o(g%):...^...h..|
00000230  f2 6e 28 66 25 2c 64 25  29 3a e7 66 25 3d 34 80  |.n(f%,d%):.f%=4.|
00000240  64 25 3d 31 8c f2 63 0d  01 72 12 e7 66 25 3d 34  |d%=1..c..r..f%=4|
00000250  80 64 25 3d 36 30 8c f2  70 0d 01 7c 05 e1 0d 01  |.d%=60..p..|....|
00000260  86 04 0d 01 90 17 dd f2  71 28 62 25 2c 64 25 2c  |........q(b%,d%,|
00000270  70 25 29 3a c8 8e 62 25  ca 0d 01 9a 11 c9 67 25  |p%):..b%......g%|
00000280  3a f2 72 28 64 25 2c 70  25 29 0d 01 a4 05 cb 0d  |:.r(d%,p%)......|
00000290  01 ae 05 e1 0d 01 b8 04  0d 01 c2 2a dd f2 72 28  |...........*..r(|
000002a0  64 25 2c 70 25 29 3a e7  70 25 3d 31 33 80 64 25  |d%,p%):.p%=13.d%|
000002b0  3d 31 8c f2 63 3a f2 73  28 67 25 2c 2d 31 2c 2d  |=1..c:.s(g%,-1,-|
000002c0  31 29 0d 01 cc 05 e1 0d  01 d6 04 0d 01 e0 11 dd  |1)..............|
000002d0  f2 74 28 65 25 29 3a c8  8e 65 25 ca 0d 01 ea 0a  |.t(e%):..e%.....|
000002e0  c9 72 25 3a f2 75 0d 01  f4 05 cb 0d 01 fe 05 e1  |.r%:.u..........|
000002f0  0d 02 08 04 0d 02 12 10  dd f2 75 3a c8 8e a4 68  |..........u:...h|
00000300  28 30 29 ca 0d 02 1c 0b  c9 32 3a 4a 25 3d b9 0d  |(0)......2:J%=..|
00000310  02 26 05 cb 0d 02 30 05  e1 0d 02 3a 04 0d 02 44  |.&....0....:...D|
00000320  20 dd f2 63 3a 61 3d bb  28 a4 69 28 67 25 2c 31  | ..c:a=.(.i(g%,1|
00000330  29 29 3a e7 61 3e 30 80  61 3c 35 39 8c 0d 02 4e  |)):.a>0.a<59...N|
00000340  4c c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |L.."Hourglass_On|
00000350  22 3a e3 63 3d 31 b8 61  3a f5 3a 41 25 3d b3 28  |":.c=1.a:.:A%=.(|
00000360  35 38 29 3a 43 25 3d 30  3a 62 3d 41 25 2b 28 28  |58):C%=0:b=A%+((|
00000370  20 91 20 80 33 31 29 2b  b3 28 35 29 29 3a e7 62  | . .31)+.(5)):.b|
00000380  3e 35 38 8c 62 2d 3d 35  38 0d 02 58 16 78 3d 31  |>58.b-=58..X.x=1|
00000390  3a f5 3a e7 62 3d 61 28  78 29 8c 43 25 3d 31 0d  |:.:.b=a(x).C%=1.|
000003a0  02 62 46 78 2b 3d 31 3a  fd 78 3d 35 38 84 43 25  |.bFx+=1:.x=58.C%|
000003b0  3d 31 3a fd 43 25 3d 30  3a 61 28 63 29 3d 62 3a  |=1:.C%=0:a(c)=b:|
000003c0  ed 63 3a e3 78 3d 31 b8  61 3a f2 61 28 67 25 2c  |.c:.x=1.a:.a(g%,|
000003d0  78 2b 31 2c c3 28 61 28  78 29 29 29 3a ed 3a e7  |x+1,.(a(x))):.:.|
000003e0  61 3c 35 38 8c 0d 02 6c  1d e3 78 3d 61 2b 31 b8  |a<58...l..x=a+1.|
000003f0  35 38 3a f2 61 28 67 25  2c 78 2b 31 2c 22 22 29  |58:.a(g%,x+1,"")|
00000400  3a ed 0d 02 76 05 cc 0d  02 80 05 cd 0d 02 8a 1a  |:...v...........|
00000410  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
00000420  22 3a 77 25 3d 30 0d 02  94 08 cc 3a ef 37 0d 02  |":w%=0.....:.7..|
00000430  9e 0f f2 61 28 67 25 2c  31 2c 22 22 29 0d 02 a8  |...a(g%,1,"")...|
00000440  05 cd 0d 02 b2 05 e1 0d  02 bc 12 dd f2 70 3a 64  |.............p:d|
00000450  3d 32 3a e7 77 25 3d 30  8c 0d 02 c6 3a e3 20 78  |=2:.w%=0....:. x|
00000460  20 3d 31 20 b8 20 35 38  3a e3 20 65 3d 31 20 b8  | =1 . 58:. e=1 .|
00000470  20 61 3a e7 20 61 28 65  29 3d 78 20 8c 20 f2 61  | a:. a(e)=x . .a|
00000480  28 67 25 2c 64 2c c3 28  61 28 65 29 29 29 3a 64  |(g%,d,.(a(e))):d|
00000490  2b 3d 31 0d 02 d0 0c ed  3a ed 3a 77 25 3d 31 0d  |+=1.....:.:w%=1.|
000004a0  02 da 05 cc 0d 02 e4 05  cd 0d 02 ee 05 e1 0d 02  |................|
000004b0  f8 1c dd f2 76 28 62 24  2c 63 24 29 3a f2 77 28  |....v(b$,c$):.w(|
000004c0  62 24 2c 63 24 2c 30 29  3a e1 0d 03 02 04 0d 03  |b$,c$,0):.......|
000004d0  0c 26 dd f2 77 28 62 24  2c 63 24 2c 66 25 29 3a  |.&..w(b$,c$,f%):|
000004e0  ea 6d 25 3a 24 28 61 25  2b 34 29 3d 63 24 3a c8  |.m%:$(a%+4)=c$:.|
000004f0  8e 66 25 ca 0d 03 16 0b  c9 32 3a 6d 25 3d 31 0d  |.f%......2:m%=1.|
00000500  03 20 0c c9 31 3a 6d 25  3d 31 35 0d 03 2a 13 c9  |. ..1:m%=15..*..|
00000510  33 3a 6d 25 3d 28 31 3c  3c 35 29 2b 31 36 0d 03  |3:m%=(1<<5)+16..|
00000520  34 13 c9 34 3a 6d 25 3d  28 31 3c 3c 36 29 2b 31  |4..4:m%=(1<<6)+1|
00000530  36 0d 03 3e 0b 7f 3a 6d  25 3d 31 36 0d 03 48 05  |6..>..:m%=16..H.|
00000540  cb 0d 03 52 27 c8 99 22  57 69 6d 70 5f 52 65 70  |...R'.."Wimp_Rep|
00000550  6f 72 74 45 72 72 6f 72  22 2c 61 25 2c 6d 25 2c  |ortError",a%,m%,|
00000560  62 24 b8 2c 6d 25 3a e1  0d 03 5c 04 0d 03 66 2a  |b$.,m%:...\...f*|
00000570  dd a4 61 28 64 24 29 3a  3d a4 6a 28 64 24 2c 22  |..a(d$):=.j(d$,"|
00000580  3c 4f 62 65 79 24 44 69  72 3e 2e 54 65 6d 70 6c  |<Obey$Dir>.Templ|
00000590  61 74 65 73 22 29 0d 03  70 6e dd a4 6a 28 64 24  |ates")..pn..j(d$|
000005a0  2c 69 24 29 3a ea 63 25  2c 69 25 2c 6e 25 2c 6a  |,i$):.c%,i%,n%,j|
000005b0  25 2c 65 24 2c 67 24 3a  c8 99 22 57 69 6d 70 5f  |%,e$,g$:.."Wimp_|
000005c0  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 69  |OpenTemplate",,i|
000005d0  24 3a c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |$:.."Wimp_LoadTe|
000005e0  6d 70 6c 61 74 65 22 2c  2c 61 25 2c 44 25 2c 52  |mplate",,a%,D%,R|
000005f0  25 2c 2d 31 2c 64 24 2c  30 b8 2c 2c 44 25 3a c8  |%,-1,d$,0.,,D%:.|
00000600  8e 6c 25 ca 0d 03 7a 0f  c9 31 3a 61 25 21 36 34  |.l%...z..1:a%!64|
00000610  3d 6c 25 0d 03 84 12 7f  3a 61 25 21 36 34 3d a4  |=l%.....:a%!64=.|
00000620  66 28 62 25 29 0d 03 8e  05 cb 0d 03 98 70 c8 99  |f(b%)........p..|
00000630  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000640  6f 77 22 2c 2c 61 25 b8  63 25 3a c8 99 22 57 69  |ow",,a%.c%:.."Wi|
00000650  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000660  22 3a c8 99 22 57 69 6d  70 5f 57 68 69 63 68 49  |":.."Wimp_WhichI|
00000670  63 6f 6e 22 2c 63 25 2c  61 25 2b 34 30 2c 31 2b  |con",c%,a%+40,1+|
00000680  32 2b 28 31 3c 3c 38 29  2c 32 2b 28 31 3c 3c 38  |2+(1<<8),2+(1<<8|
00000690  29 3a c8 8e 61 25 21 34  30 ca 0d 03 a2 07 c9 2d  |):..a%!40......-|
000006a0  31 0d 03 ac 65 7f 3a 69  25 3d 34 30 3a f5 3a 61  |1...e.:i%=40:.:a|
000006b0  25 21 34 3d 61 25 21 69  25 3a 61 25 21 30 3d 63  |%!4=a%!i%:a%!0=c|
000006c0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
000006d0  6e 53 74 61 74 65 22 2c  2c 61 25 3a 65 24 3d a4  |nState",,a%:e$=.|
000006e0  64 28 61 25 21 32 38 29  3a c8 99 22 57 69 6d 70  |d(a%!28):.."Wimp|
000006f0  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 61 25  |_DeleteIcon",,a%|
00000700  3a c8 8e 6c 25 ca 0d 03  b6 0e c9 31 3a 61 25 21  |:..l%......1:a%!|
00000710  33 32 3d 31 0d 03 c0 7e  7f 3a c8 99 22 4f 53 5f  |32=1...~.:.."OS_|
00000720  53 70 72 69 74 65 4f 70  22 2c 32 36 34 2c 6c 25  |SpriteOp",264,l%|
00000730  b8 2c 2c 2c 6e 25 3a 6a  25 3d 30 3a f5 3a 6a 25  |.,,,n%:j%=0:.:j%|
00000740  2b 3d 31 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |+=1:.."OS_Sprite|
00000750  4f 70 22 2c 32 36 39 2c  6c 25 2c 4b 25 2c 32 30  |Op",269,l%,K%,20|
00000760  2c 6a 25 3a 67 24 3d a4  64 28 4b 25 29 3a fd 6a  |,j%:g$=.d(K%):.j|
00000770  25 3d 6e 25 84 65 24 3d  67 24 3a e7 65 24 3d 67  |%=n%.e$=g$:.e$=g|
00000780  24 8c 61 25 21 33 32 3d  6c 25 8b 61 25 21 33 32  |$.a%!32=l%.a%!32|
00000790  3d 31 0d 03 ca 05 cb 0d  03 d4 37 61 25 21 34 3d  |=1........7a%!4=|
000007a0  63 25 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |c%:.."Wimp_Creat|
000007b0  65 49 63 6f 6e 22 2c 2c  61 25 2b 34 3a 69 25 2b  |eIcon",,a%+4:i%+|
000007c0  3d 34 3a fd 28 61 25 21  69 25 29 3d 2d 31 0d 03  |=4:.(a%!i%)=-1..|
000007d0  de 05 cb 0d 03 e8 07 3d  63 25 0d 03 f2 48 dd f2  |.......=c%...H..|
000007e0  6f 28 62 25 29 3a 21 61  25 3d 62 25 3a c8 99 22  |o(b%):!a%=b%:.."|
000007f0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000800  61 74 65 22 2c 2c 61 25  3a c8 99 22 57 69 6d 70  |ate",,a%:.."Wimp|
00000810  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 61 25  |_OpenWindow",,a%|
00000820  3a e1 0d 03 fc 04 0d 04  06 6e dd a4 65 28 6a 24  |:........n..e(j$|
00000830  29 3a ea 64 25 3a 61 25  21 30 3d 2d 31 3a 61 25  |):.d%:a%!0=-1:a%|
00000840  21 34 3d 30 3a 61 25 21  38 3d 30 3a 61 25 21 31  |!4=0:a%!8=0:a%!1|
00000850  32 3d 36 38 3a 61 25 21  31 36 3d 36 38 3a 61 25  |2=68:a%!16=68:a%|
00000860  21 32 30 3d 31 32 32 39  30 3a 24 28 61 25 2b 32  |!20=12290:$(a%+2|
00000870  34 29 3d 6a 24 3a c8 99  22 57 69 6d 70 5f 43 72  |4)=j$:.."Wimp_Cr|
00000880  65 61 74 65 49 63 6f 6e  22 2c 2c 61 25 b8 64 25  |eateIcon",,a%.d%|
00000890  3a 3d 64 25 0d 04 10 3b  dd f2 73 28 62 25 2c 64  |:=d%...;..s(b%,d|
000008a0  25 2c 53 25 29 3a c8 99  22 57 69 6d 70 5f 53 65  |%,S%):.."Wimp_Se|
000008b0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000008c0  62 25 2c 64 25 2c 2c 2c  2d 31 2c 53 25 3a e1 0d  |b%,d%,,,-1,S%:..|
000008d0  04 1a 04 0d 04 24 63 dd  a4 69 28 62 25 2c 64 25  |.....$c..i(b%,d%|
000008e0  29 3a 61 25 21 30 3d 62  25 3a 61 25 21 34 3d 64  |):a%!0=b%:a%!4=d|
000008f0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
00000900  6e 53 74 61 74 65 22 2c  2c 61 25 3a e7 28 28 61  |nState",,a%:.((a|
00000910  25 21 32 34 29 80 32 35  36 29 3d 30 85 31 2c 22  |%!24).256)=0.1,"|
00000920  49 63 6f 6e 20 69 73 6e  27 74 20 69 6e 64 69 72  |Icon isn't indir|
00000930  65 63 74 65 64 22 0d 04  2e 0d 3d 24 28 61 25 21  |ected"....=$(a%!|
00000940  32 38 29 0d 04 38 66 dd  f2 61 28 62 25 2c 64 25  |28)..8f..a(b%,d%|
00000950  2c 6b 24 29 3a 61 25 21  30 3d 62 25 3a 61 25 21  |,k$):a%!0=b%:a%!|
00000960  34 3d 64 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |4=d%:.."Wimp_Get|
00000970  49 63 6f 6e 53 74 61 74  65 22 2c 2c 61 25 3a e7  |IconState",,a%:.|
00000980  28 28 61 25 21 32 34 29  80 32 35 36 29 3d 30 85  |((a%!24).256)=0.|
00000990  31 2c 22 49 63 6f 6e 20  69 73 6e 27 74 20 69 6e  |1,"Icon isn't in|
000009a0  64 69 72 65 63 74 65 64  22 0d 04 42 4a 24 28 61  |directed"..BJ$(a|
000009b0  25 21 32 38 29 3d 6b 24  3a 61 25 21 30 3d 62 25  |%!28)=k$:a%!0=b%|
000009c0  3a 61 25 21 34 3d 64 25  3a 61 25 21 38 3d 30 3a  |:a%!4=d%:a%!8=0:|
000009d0  61 25 21 31 32 3d 30 3a  c8 99 22 57 69 6d 70 5f  |a%!12=0:.."Wimp_|
000009e0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 61  |SetIconState",,a|
000009f0  25 3a e1 0d 04 4c 04 0d  04 56 1a dd a4 68 28 54  |%:...L...V...h(T|
00000a00  25 29 3a 3d 28 61 25 21  28 34 2a 54 25 29 29 2b  |%):=(a%!(4*T%))+|
00000a10  31 0d 04 60 1d dd a4 63  28 61 24 29 3a e7 61 24  |1..`...c(a$):.a$|
00000a20  3d 22 43 6f 6c 6f 75 72  73 22 8c 3d a4 6b 0d 04  |="Colours".=.k..|
00000a30  6a bf ea 65 25 2c 68 25  2c 74 25 2c 6f 25 2c 6b  |j..e%,h%,t%,o%,k|
00000a40  25 2c 73 25 3a de 65 25  20 32 38 2b a4 6c 28 61  |%,s%:.e% 28+.l(a|
00000a50  24 29 2a 32 34 3a 65 25  3f 31 32 3d 37 3a 65 25  |$)*24:e%?12=7:e%|
00000a60  3f 31 33 3d 32 3a 65 25  3f 31 34 3d 37 3a 65 25  |?13=2:e%?14=7:e%|
00000a70  3f 31 35 3d 30 3a 65 25  21 31 36 3d 31 34 30 3a  |?15=0:e%!16=140:|
00000a80  65 25 21 32 30 3d 34 34  3a 65 25 21 32 34 3d 30  |e%!20=44:e%!24=0|
00000a90  3a 68 25 3d 65 25 2b 32  38 3a 24 65 25 3d c0 61  |:h%=e%+28:$e%=.a|
00000aa0  24 2c a7 61 24 2c 22 5c  22 29 2d 31 29 3a 74 25  |$,.a$,"\")-1):t%|
00000ab0  3d a9 28 c0 61 24 2c a7  61 24 2c 22 5c 22 29 2d  |=.(.a$,.a$,"\")-|
00000ac0  31 29 29 3a 61 24 2b 3d  22 5c 22 3a c8 95 61 24  |1)):a$+="\":..a$|
00000ad0  3c 3e 22 22 3a 61 24 3d  c1 61 24 2c a7 61 24 2c  |<>"":a$=.a$,.a$,|
00000ae0  22 5c 22 29 2b 31 29 3a  c8 8e 61 24 ca 0d 04 74  |"\")+1):..a$...t|
00000af0  07 c9 22 22 0d 04 7e 46  7f 3a 21 68 25 3d 30 3a  |..""..~F.:!h%=0:|
00000b00  68 25 21 34 3d 2d 31 3a  68 25 21 38 3d 26 37 30  |h%!4=-1:h%!8=&70|
00000b10  30 30 30 32 31 3a 6f 25  3d a7 61 24 2c 22 5c 22  |00021:o%=.a$,"\"|
00000b20  29 2d 31 3a 6b 25 3d a7  c0 61 24 2c 6f 25 29 2c  |)-1:k%=..a$,o%),|
00000b30  22 3e 22 29 3a c8 8e 6b  25 ca 0d 04 88 06 c9 30  |">"):..k%......0|
00000b40  0d 04 92 2b 7f 3a 73 25  3d a0 28 c1 61 24 2c 6b  |...+.:s%=.(.a$,k|
00000b50  25 2b 31 2c 6f 25 2d 6b  25 29 29 3a 68 25 21 34  |%+1,o%-k%)):h%!4|
00000b60  3d 73 25 3a 6f 25 3d 6b  25 2d 31 0d 04 9c 05 cb  |=s%:o%=k%-1.....|
00000b70  0d 04 a6 21 24 28 68 25  2b 31 32 29 3d c0 61 24  |...!$(h%+12)=.a$|
00000b80  2c 6f 25 29 3a e7 6f 25  3e 74 25 8c 74 25 3d 6f  |,o%):.o%>t%.t%=o|
00000b90  25 0d 04 b0 0a 68 25 2b  3d 32 34 0d 04 ba 05 cb  |%....h%+=24.....|
00000ba0  0d 04 c4 2b ce 3a 65 25  21 31 36 3d 31 36 2a 28  |...+.:e%!16=16*(|
00000bb0  74 25 2b 31 29 3a 68 25  21 2d 32 34 3d 68 25 21  |t%+1):h%!-24=h%!|
00000bc0  2d 32 34 84 31 32 38 3a  3d 65 25 0d 04 ce 10 dd  |-24.128:=e%.....|
00000bd0  a4 6b 3a 3d a4 6d 28 22  20 22 29 0d 04 d8 63 dd  |.k:=.m(" ")...c.|
00000be0  a4 6d 28 62 24 29 3a ea  78 24 2c 75 25 2c 6a 25  |.m(b$):.x$,u%,j%|
00000bf0  2c 69 25 3a 78 24 3d 62  24 2b 22 5c 30 5c 31 5c  |,i%:x$=b$+"\0\1\|
00000c00  32 5c 33 5c 34 5c 35 5c  36 5c 37 5c 38 5c 39 5c  |2\3\4\5\6\7\8\9\|
00000c10  31 30 5c 31 31 5c 31 32  5c 31 33 5c 31 34 5c 31  |10\11\12\13\14\1|
00000c20  35 22 3a 75 25 3d a4 63  28 78 24 29 3a e3 69 25  |5":u%=.c(x$):.i%|
00000c30  3d 30 b8 31 35 3a c8 8e  54 52 55 45 4f 46 0d 04  |=0.15:..TRUEOF..|
00000c40  e2 25 c9 69 25 3c 34 2c  69 25 3d 39 2c 69 25 3d  |.%.i%<4,i%=9,i%=|
00000c50  31 32 2c 69 25 3d 31 34  2c 69 25 3d 31 35 3a 6a  |12,i%=14,i%=15:j|
00000c60  25 3d 37 0d 04 ec 0a 7f  3a 6a 25 3d 30 0d 04 f6  |%=7.....:j%=0...|
00000c70  05 cb 0d 05 00 2c 75 25  3f 28 33 39 2b 69 25 2a  |.....,u%?(39+i%*|
00000c80  32 34 29 3d 69 25 2a 31  36 2b 6a 25 3a f2 78 28  |24)=i%*16+j%:.x(|
00000c90  75 25 2c 69 25 2b 31 29  3a ed 3a 3d 75 25 0d 05  |u%,i%+1):.:=u%..|
00000ca0  0a 3c dd a4 6c 28 61 24  29 3a ea 6e 25 2c 6a 25  |.<..l(a$):.n%,j%|
00000cb0  3a 6e 25 3d 30 3a 6a 25  3d 30 3a f5 3a 6a 25 3d  |:n%=0:j%=0:.:j%=|
00000cc0  a7 61 24 2c 22 5c 22 2c  6a 25 2b 31 29 3a e7 6a  |.a$,"\",j%+1):.j|
00000cd0  25 3c 3e 30 8c 6e 25 2b  3d 31 0d 05 14 0d fd 6a  |%<>0.n%+=1.....j|
00000ce0  25 3d 30 3a 3d 6e 25 0d  05 1e 3b dd f2 78 28 65  |%=0:=n%...;..x(e|
00000cf0  25 2c 4c 25 29 3a 65 25  21 28 33 36 2b 28 4c 25  |%,L%):e%!(36+(L%|
00000d00  2d 31 29 2a 32 34 29 3d  65 25 21 28 33 36 2b 28  |-1)*24)=e%!(36+(|
00000d10  4c 25 2d 31 29 2a 32 34  29 84 28 31 3c 3c 33 29  |L%-1)*24).(1<<3)|
00000d20  3a e1 0d 05 28 04 0d 05  32 41 dd a4 64 28 76 25  |:...(...2A..d(v%|
00000d30  29 3a ea 73 24 3a 73 24  3d 22 22 3a c8 95 28 3f  |):.s$:s$="":..(?|
00000d40  76 25 3c 3e 31 33 29 80  28 3f 76 25 3c 3e 30 29  |v%<>13).(?v%<>0)|
00000d50  3a 73 24 2b 3d bd 28 3f  76 25 29 3a 76 25 2b 3d  |:s$+=.(?v%):v%+=|
00000d60  31 3a ce 3a 3d 73 24 0d  05 3c 17 dd a4 6e 28 66  |1:.:=s$..<...n(f|
00000d70  24 29 3a c8 8e a7 66 24  2c 22 2e 22 29 ca 0d 05  |$):...f$,".")...|
00000d80  46 0a c9 30 3a 3d 66 24  0d 05 50 1e 7f 3a 3d a4  |F..0:=f$..P..:=.|
00000d90  6e 28 c2 66 24 2c a9 28  66 24 29 2d a7 66 24 2c  |n(.f$,.(f$)-.f$,|
00000da0  22 2e 22 29 29 29 0d 05  5a 05 cb 0d 05 64 04 0d  |".")))..Z....d..|
00000db0  05 6e 2d dd f2 64 28 68  24 2c 45 25 2c 64 25 29  |.n-..d(h$,E%,d%)|
00000dc0  3a de 61 25 20 45 25 2c  44 25 20 64 25 3a e7 45  |:.a% E%,D% d%:.E|
00000dd0  25 3c 32 35 36 8c 45 25  3d 32 35 36 0d 05 78 1c  |%<256.E%=256..x.|
00000de0  52 25 3d 44 25 2b 64 25  3a 6c 24 3d 68 24 3a f2  |R%=D%+d%:l$=h$:.|
00000df0  79 3a ee 85 f2 7a 3a e0  0d 05 82 30 c8 99 22 57  |y:...z:....0.."W|
00000e00  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000e10  32 30 30 2c 26 34 42 35  33 34 31 35 34 2c 68 24  |200,&4B534154,h$|
00000e20  b8 55 25 2c 4d 25 3a e1  0d 05 8c 04 0d 05 96 53  |.U%,M%:........S|
00000e30  dd f2 79 3a de 4b 25 20  32 30 3a 46 25 3d a3 3a  |..y:.K% 20:F%=.:|
00000e40  70 25 3d 31 3c 3c 38 3a  65 25 3d 31 3c 3c 39 3a  |p%=1<<8:e%=1<<9:|
00000e50  62 25 3d 30 3a 6c 25 3d  31 3a 55 25 3d 30 3a 4d  |b%=0:l%=1:U%=0:M|
00000e60  25 3d 30 3a 48 25 3d 2d  32 3a 51 25 3d 30 3a 72  |%=0:H%=-2:Q%=0:r|
00000e70  25 3d 30 3a 7a 25 3d 30  3a 42 25 3d 30 3a e1 0d  |%=0:z%=0:B%=0:..|
00000e80  05 a0 04 0d 05 aa 12 dd  f2 7a 3a ea 58 24 2c 78  |.........z:.X$,x|
00000e90  25 3a ee 85 87 0d 05 b4  8c 78 25 3d 9e 3a 58 24  |%:.......x%=.:X$|
00000ea0  3d f6 24 2b 22 61 74 6c  69 6e 65 22 2b c3 28 78  |=.$+"atline"+.(x|
00000eb0  25 81 31 30 29 3a de 71  25 20 33 36 3a 71 25 21  |%.10):.q% 36:q%!|
00000ec0  30 3d 33 36 3a 71 25 21  31 32 3d 30 3a 71 25 21  |0=36:q%!12=0:q%!|
00000ed0  31 36 3d 35 32 38 35 31  32 3a 71 25 21 32 30 3d  |16=528512:q%!20=|
00000ee0  78 25 3a 24 28 71 25 2b  32 34 29 3d 22 21 52 75  |x%:$(q%+24)="!Ru|
00000ef0  6e 49 6d 61 67 65 22 3a  c8 99 22 57 69 6d 70 5f  |nImage":.."Wimp_|
00000f00  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00000f10  71 25 3a f2 76 28 6c 24  2c 58 24 29 3a f2 62 3a  |q%:.v(l$,X$):.b:|
00000f20  e1 0d 05 be 04 0d 05 c8  26 dd f2 62 3a c8 99 22  |........&..b:.."|
00000f30  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00000f40  4d 25 2c 22 54 41 53 4b  22 3a e1 0d 05 d2 04 0d  |M%,"TASK":......|
00000f50  05 dc 3a dd f2 68 3a ea  4e 25 2c 4f 25 3a 4a 25  |..:..h:.N%,O%:J%|
00000f60  3d a3 3a 4e 25 3d 33 36  30 39 3a f5 3a c8 99 22  |=.:N%=3609:.:.."|
00000f70  57 69 6d 70 5f 50 6f 6c  6c 22 2c 4e 25 2c 61 25  |Wimp_Poll",N%,a%|
00000f80  b8 4f 25 3a c8 8e 4f 25  ca 0d 05 e6 09 c9 31 3a  |.O%:..O%......1:|
00000f90  f2 41 0d 05 f0 1e c9 32  3a c8 99 22 57 69 6d 70  |.A.....2:.."Wimp|
00000fa0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 61 25  |_OpenWindow",,a%|
00000fb0  0d 05 fa 09 c9 33 3a f2  42 0d 06 04 09 c9 36 3a  |.....3:.B.....6:|
00000fc0  f2 43 0d 06 0e 09 c9 38  3a f2 44 0d 06 18 0d c9  |.C.....8:.D.....|
00000fd0  39 3a f2 74 28 65 25 29  0d 06 22 05 cb 0d 06 2c  |9:.t(e%).."....,|
00000fe0  09 fd 4a 25 3a e1 0d 06  36 04 0d 06 40 77 dd f2  |..J%:...6...@w..|
00000ff0  41 3a ea 47 25 3a c8 99  22 57 69 6d 70 5f 52 65  |A:.G%:.."Wimp_Re|
00001000  64 72 61 77 57 69 6e 64  6f 77 22 2c 2c 61 25 b8  |drawWindow",,a%.|
00001010  47 25 3a 62 25 3d 61 25  21 30 3a 7a 25 3d 31 36  |G%:b%=a%!0:z%=16|
00001020  2b 61 25 21 34 2d 61 25  21 32 30 3a 42 25 3d 2d  |+a%!4-a%!20:B%=-|
00001030  31 36 2b 61 25 21 31 36  2d 61 25 21 32 34 3a c8  |16+a%!16-a%!24:.|
00001040  95 47 25 3a e7 46 25 8c  c8 99 22 57 69 6d 70 5f  |.G%:.F%..."Wimp_|
00001050  42 6f 72 64 65 72 57 69  6e 64 6f 77 22 2c 2c 61  |BorderWindow",,a|
00001060  25 0d 06 4a 31 f2 6a 28  62 25 2c 7a 25 2c 42 25  |%..J1.j(b%,z%,B%|
00001070  29 3a c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |):.."Wimp_GetRec|
00001080  74 61 6e 67 6c 65 22 2c  2c 61 25 b8 47 25 3a ce  |tangle",,a%.G%:.|
00001090  3a e1 0d 06 54 04 0d 06  5e 60 dd f2 42 3a c8 99  |:...T...^`..B:..|
000010a0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000010b0  49 6e 66 6f 22 2c 2c 61  25 3a 62 25 3d 61 25 21  |Info",,a%:b%=a%!|
000010c0  31 32 3a 49 25 3d 61 25  21 38 3a f2 69 28 62 25  |12:I%=a%!8:.i(b%|
000010d0  2c 49 25 29 3a 21 61 25  3d 62 25 3a c8 99 22 57  |,I%):!a%=b%:.."W|
000010e0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000010f0  2c 2c 61 25 3a e1 0d 06  68 04 0d 06 72 37 dd f2  |,,a%:...h...r7..|
00001100  43 3a 66 25 3d 61 25 21  38 3a 62 25 3d 61 25 21  |C:f%=a%!8:b%=a%!|
00001110  31 32 3a 64 25 3d 61 25  21 31 36 3a 78 25 3d 61  |12:d%=a%!16:x%=a|
00001120  25 21 30 3a 79 25 3d 61  25 21 34 3a c8 8e 66 25  |%!0:y%=a%!4:..f%|
00001130  ca 0d 06 7c 09 c9 32 3a  f2 45 0d 06 86 0f 7f 3a  |...|..2:.E.....:|
00001140  c8 8e a4 62 28 62 25 29  ca 0d 06 90 09 c9 b9 3a  |...b(b%).......:|
00001150  f2 46 0d 06 9a 09 c9 a3  3a f2 47 0d 06 a4 05 cb  |.F......:.G.....|
00001160  0d 06 ae 05 cb 0d 06 b8  05 e1 0d 06 c2 04 0d 06  |................|
00001170  cc 17 dd f2 45 3a 65 25  3d a4 67 28 62 25 29 3a  |....E:e%=.g(b%):|
00001180  c8 8e 65 25 ca 0d 06 d6  06 c9 a3 0d 06 e0 0b 7f  |..e%............|
00001190  3a c8 8e 62 25 ca 0d 06  ea 5a c9 2d 32 3a 6e 25  |:..b%....Z.-2:n%|
000011a0  3d 30 3a c8 95 28 28 72  25 21 28 32 38 2b 6e 25  |=0:..((r%!(28+n%|
000011b0  2a 32 34 29 29 80 31 32  38 29 3d 30 3a 6e 25 2b  |*24)).128)=0:n%+|
000011c0  3d 31 3a ce 3a c8 99 22  57 69 6d 70 5f 43 72 65  |=1:.:.."Wimp_Cre|
000011d0  61 74 65 4d 65 6e 75 22  2c 2c 72 25 2c 78 25 2d  |ateMenu",,r%,x%-|
000011e0  36 34 2c 39 36 2b 34 34  2b 28 6e 25 2a 34 34 29  |64,96+44+(n%*44)|
000011f0  0d 06 f4 29 7f 3a c8 99  22 57 69 6d 70 5f 43 72  |...).:.."Wimp_Cr|
00001200  65 61 74 65 4d 65 6e 75  22 2c 2c 65 25 2c 78 25  |eateMenu",,e%,x%|
00001210  2d 36 34 2c 79 25 2b 32  30 0d 06 fe 05 cb 0d 07  |-64,y%+20.......|
00001220  08 05 cb 0d 07 12 05 e1  0d 07 1c 04 0d 07 26 0d  |..............&.|
00001230  dd f2 46 3a c8 8e 64 25  ca 0d 07 30 14 c9 30 3a  |..F:..d%...0..0:|
00001240  e7 66 25 80 38 30 8c f2  48 28 62 25 29 0d 07 3a  |.f%.80..H(b%)..:|
00001250  13 c9 32 3a e7 66 25 80  35 8c f2 49 28 62 25 29  |..2:.f%.5..I(b%)|
00001260  0d 07 44 05 cb 0d 07 4e  05 e1 0d 07 58 04 0d 07  |..D....N....X...|
00001270  62 23 dd f2 47 3a e7 46  25 8c c8 99 22 57 69 6d  |b#..G:.F%..."Wim|
00001280  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 61  |p_BorderIcon",,a|
00001290  25 0d 07 6c 1c f2 6c 28  62 25 2c 64 25 2c 66 25  |%..l..l(b%,d%,f%|
000012a0  2c 78 25 2c 79 25 29 3a  c8 8e 46 25 ca 0d 07 76  |,x%,y%):..F%...v|
000012b0  47 c9 b9 3a 61 25 21 30  3d 78 25 3a 61 25 21 34  |G..:a%!0=x%:a%!4|
000012c0  3d 79 25 3a 61 25 21 38  3d 30 3a 61 25 21 31 32  |=y%:a%!8=0:a%!12|
000012d0  3d 62 25 3a 61 25 21 31  36 3d 64 25 3a c8 99 22  |=b%:a%!16=d%:.."|
000012e0  57 69 6d 70 5f 42 6f 72  64 65 72 49 63 6f 6e 22  |Wimp_BorderIcon"|
000012f0  2c 2c 61 25 0d 07 80 05  cb 0d 07 8a 05 e1 0d 07  |,,a%............|
00001300  94 04 0d 07 9e eb dd f2  48 28 62 25 29 3a ea 78  |........H(b%):.x|
00001310  25 2c 79 25 3a 21 61 25  3d 62 25 3a c8 99 22 57  |%,y%:!a%=b%:.."W|
00001320  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00001330  74 65 22 2c 2c 61 25 3a  78 25 3d 61 25 21 34 2d  |te",,a%:x%=a%!4-|
00001340  61 25 21 32 30 3a 79 25  3d 61 25 21 31 36 2d 61  |a%!20:y%=a%!16-a|
00001350  25 21 32 34 3a 61 25 21  34 3d 30 3a c8 99 22 57  |%!24:a%!4=0:.."W|
00001360  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001370  22 2c 2c 61 25 3a 21 61  25 3d 62 25 3a 61 25 21  |",,a%:!a%=b%:a%!|
00001380  34 3d 35 3a 61 25 21 38  3d 78 25 2b 61 25 21 38  |4=5:a%!8=x%+a%!8|
00001390  3a 61 25 21 31 32 3d 79  25 2b 61 25 21 31 32 3a  |:a%!12=y%+a%!12:|
000013a0  61 25 21 31 36 3d 78 25  2b 61 25 21 31 36 3a 61  |a%!16=x%+a%!16:a|
000013b0  25 21 32 30 3d 79 25 2b  61 25 21 32 30 3a 61 25  |%!20=y%+a%!20:a%|
000013c0  21 32 34 3d 30 3a 61 25  21 32 38 3d 30 3a 61 25  |!24=0:a%!28=0:a%|
000013d0  21 33 32 3d 26 37 46 46  46 46 46 46 46 3a 61 25  |!32=&7FFFFFFF:a%|
000013e0  21 33 36 3d 26 37 46 46  46 46 46 46 46 0d 07 a8  |!36=&7FFFFFFF...|
000013f0  1a c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |..."Wimp_DragBox|
00001400  22 2c 2c 61 25 3a e1 0d  07 b2 04 0d 07 bc 2a dd  |",,a%:........*.|
00001410  f2 44 3a 62 25 3d 61 25  21 30 3a 64 25 3d 61 25  |.D:b%=a%!0:d%=a%|
00001420  21 34 3a 70 25 3d 61 25  21 32 34 3a c8 8e a4 62  |!4:p%=a%!24:...b|
00001430  28 62 25 29 ca 0d 07 c6  0d c9 b9 3a f2 49 28 62  |(b%).......:.I(b|
00001440  25 29 0d 07 d0 13 c9 a3  3a f2 71 28 62 25 2c 64  |%)......:.q(b%,d|
00001450  25 2c 70 25 29 0d 07 da  05 cb 0d 07 e4 05 e1 0d  |%,p%)...........|
00001460  07 ee 04 0d ff                                    |.....|
00001465