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