Home » Archimedes archive » Archimedes World » AW-1993-08.adf » AWAug93 » !AWAug93/Goodies/ColTable/!ColTable/!RunImage
!AWAug93/Goodies/ColTable/!ColTable/!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-1993-08.adf » AWAug93 |
| Filename: | !AWAug93/Goodies/ColTable/!ColTable/!RunImage |
| Read OK: | ✔ |
| File size: | 12AF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
60ONERRORMODEMODE:REPORT:PRINT" at Line ";ERL:END
90PROCUV:PROCUW:END
140DEFPROCUV:UX=4:UY=2:UZ=1:Ua=-2:Ub=&FFF:Uc$="ColTable":Ud$="ColTable":Ue=1*1024 :DIMUf Ue:Ug=1*1024 :DIMUh Ug:Ui=1*1024 :DIMUj Ui:Uk=1*1024 :DIMUl Uk:Um=4*1024 :DIMUn Um:Uo=1*1024 :DIMUp Uo:Uq=1:Ur= NOTTRUE:Us=FNUt(2*100,Ud$):Uu=FNUv(Uh):Uw=0:PROCUx:PROCUy:ENDPROC
380DEFPROCUW:REPEAT:Uz=FNVU(Uf,Uq):CASEUz OF
420WHEN1:PROCVV(Uf)
430WHEN2:PROCVW(Uf,Uh,-1,TRUE)
440WHEN3:PROCVX(Uh,Uf!0)
450WHEN6:PROCVY(Uf)
460WHEN7:PROCVZ(Uf)
470WHEN8:PROCVa(Uf)
480WHEN9:PROCVb(Uf)
490WHEN17:PROCVc(Uf)
500WHEN18:PROCVc(Uf)
510ENDCASE:UNTILUr:PROCVd(Us):ENDPROC
600DEFFNUv(Ve):Ve!0=-1:Ve!4=0:Ve!8=0:Ve!12=68:Ve!16=68:Ve!20=&3002:$(Ve+24)="!"+Uc$+CHR$0:SYS&400C2,,Ve TOVf:=Vf
720DEFPROCVY(Vg):Vh=Vg!0:Vi=Vg!4:Vj=Vg!8:Vk=Vg!12:Vf=Vg!16:CASEVj OF
790WHENUX:CASEVk OF
800WHENUa:IFVf=Uu THENPROCVW(Uf,Uh,Vl, NOTTRUE)
810WHENVl:IFVf=2 THEN
820Vm$=FNVn(Uh,Vl,1):IFINSTR(Vm$,".")=0 THEN
840Vo=FNVp(Uh,99,Uc$,"To save, drag the file icon to a directory display",TRUE,FALSE)
850ELSE:PROCVq(Vm$)
870ENDIF
880ENDIF
890ENDCASE
900WHENUY:CASEVk OF
910WHENUa:IFVf=Uu THENPROCVr(Vh)
920ENDCASE
930WHENUZ:CASEVk OF
940WHENVl:IFVf=2 THEN
950Vm$=FNVn(Uh,Vl,1):IFINSTR(Vm$,".")=0 THEN
970Vo=FNVp(Uh,99,Uc$,"To save, drag the file icon to a directory display",TRUE,FALSE)
980ELSE:PROCVq(Vm$)
1000ENDIF
1010ENDIF
1020ENDCASE
1030WHEN64,16:CASEVk OF
1040WHENVl:IFVf=0 THENVo=FNVs(Uh,Vk,Vf)
1050ENDCASE
1060ENDCASE:ENDPROC
1100DEFPROCVc(Vg):CASEVg!16 OF
1120WHEN0:Ur=TRUE
1130WHEN2:PROCVt(Vg)
1140ENDCASE:ENDPROC
1180DEFPROCVa(Vg):Vk=Vg!0:Vf=Vg!4:Vu=Vg!24:CASEVk OF
1230WHENVl:IFVf=1 ANDVu=13 THEN
1240Vm$=FNVn(Uh,Vl,1):IFINSTR(Vm$,".")=0 THEN
1260Vo=FNVp(Uh,99,Uc$,"To save, drag the file icon to a directory display",TRUE,FALSE)
1270ELSE:PROCVq(Vm$)
1290ENDIF
1300ENDIF
1310OTHERWISE:PROCVv(Vu)
1330ENDCASE:ENDPROC
1370DEFPROCVV(Vg):SYS&400C8,,Vg TOVw:ENDPROC
1420DEFPROCUx:PROCVx(Un,Um):PROCVy(Un,"<"+Uc$+"$Dir>.Sprites"):ENDPROC
1480DEFPROCUy:Vz=Ul:PROCWU(Uh,"<"+Uc$+"$Dir>.Templates"):Vz=FNWV(Uj,Vz,Ul+Uk,"information",Un):WW=FNWX(Uj):Vz=FNWV(Uj,Vz,Ul+Uk,"xfer_send",Un):Vl=FNWX(Uj):PROCWY:ENDPROC
1590DEFPROCVr(Vh):Uw=1:PROCWZ(Uc$,128,44):PROCWa("Info",0,WW, NOTTRUE):PROCWa("Quit",128,-1, NOTTRUE):SYS&400D4,,Up,Vh-64,184:ENDPROC
1680DEFPROCWZ(Wb$,Wc,Wd):We=0:$(Up+We)=Wb$+CHR$0:?(Up+We+12)=7:?(Up+We+13)=2:?(Up+We+14)=7:?(Up+We+15)=0:!(Up+We+16)=Wc:!(Up+We+20)=Wd:!(Up+We+24)=0:We+=28:ENDPROC
1820DEFPROCWa(Wf$,Wg,Wh,Wi):!(Up+We+0)=Wg:!(Up+We+4)=Wh:!(Up+We+8)=&07000001+ABSWi*2^22:$(Up+We+12)=Wf$+CHR$0:We+=24:ENDPROC
1910DEFPROCVb(Vg):Wj=Vg!0:CASEUw OF
1940WHEN1:CASEWj OF
1950WHEN0
1960WHEN1:Ur=TRUE
1970ENDCASE
1980ENDCASE:SYS&400CF,,Vg:Vh=Vg!0:Vi=Vg!4:Vj=Vg!8:IFVj=UZ THEN
2040CASEUw OF
2050WHEN1:PROCVr(Vh)
2060ENDCASE
2070ELSE:SYS&400D4,,-1:Uw=0
2100ENDIF:ENDPROC
2140DEFPROCVZ(Vg):SYS&400CF,,Vg:Vh=Vg!0:Vi=Vg!4:Vk=Vg!12:Vf=Vg!16:Vm$=FNVn(Uh,Vl,1):Wk$=RIGHT$(Vm$,10-INSTR(RIGHT$(Vm$,10),".")):Vg!0=44+((LENWk$ DIV4)*4)+4:Vg!4=0:Vg!8=0:Vg!12=0:Vg!16=1:Vg!20=Vk:Vg!24=Vf:Vg!28=Vh:Vg!32=Vi:Vg!36=64:Vg!40=Ub:$(Vg+44)=Wk$+CHR$0:SYS&400E7,17,Vg,Vk:ENDPROC
2380DEFPROCVt(Vg):Wl=Vg!4:Vg!12=Vg!8:Vg!16=3:Vm$=FNWm(Vg+44):SYS&400E7,17,Vg,Wl:PROCVq(Vm$):IFINSTR(Vm$,"<Wimp$Scrap>")=0 THEN
2460PROCWn(Uh,Vl,1,Vm$)
2470ENDIF:SYS&400D4,,-1:ENDPROC
2520DEFFNVs(Ve,Vk,Vf):LOCALWc,Wd,Wo,Wp:Ve!0=4:Ve!4=5:Ve!8=11:Ve!12=12:Ve!16=-1:SYS&31,Ve,Ve+32:Wc=(Ve!40+1)* 2^( Ve!32 ):Wd=(Ve!44+1)* 2^( Ve!36 ):Ve!0=Vk:SYS&400CC,,Ve:Wo=Ve!4:Wp=Ve!16:Ve!0=Vk:Ve!4=Vf:SYS&400CE,,Ve:Ve!8+=Wo:Ve!12+=Wp:Ve!16+=Wo:Ve!20+=Wp
2690Ve!0=0:Ve!4=5:Ve!24=0:Ve!28=0:Ve!32=Wc:Ve!36=Wd:SYS&400D0,,Ve:=0
2910DEFPROCWq:Vo=FNVp(Uh,99,Uc$,REPORT$,TRUE,FALSE):ENDPROC
2960DEFPROCVq(Vm$):LOCALERROR:ONERRORLOCALPROCWq:PROCVX(Uh,Vl):ENDPROC
3010Wr=OPENOUTVm$:PROCWs(Wr,"%%AWColourTable:"+CHR$10):Wt=-1:FORWu=0 TO15:SYS&2F,Wu,16 TO,,Wv%,Ww%:R=((Wv%>>8) AND%11111111):G=((Wv%>>16) AND%11111111):B=((Wv%>>24) AND%11111111):IFR<>G ORR<>B ORG<>B THEN
3150PROCWx(R,G,B):Wt=1
3170ELSE:PROCWy(R):Wt=2
3200ENDIF:NEXTWu:CLOSE#Wr:OSCLI"SetType "+Vm$+" Text":RESTOREERROR:ENDPROC
3320DEFPROCWx(R,G,B):PROCWs(Wr,"%%+r p (Wimp "+STR$Wu+") "):PROCWs(Wr,LEFT$(STR$(R/255),4)+" "):PROCWs(Wr,LEFT$(STR$(G/255),4)+" "):PROCWs(Wr,LEFT$(STR$(B/255),4)+" "):PROCWs(Wr,CHR$10):ENDPROC
3440DEFPROCWy(T):IFWt<2 THEN
3470PROCWs(Wr,"%%+c p (Black) 0 0 0 1"):PROCWs(Wr,CHR$10)
3490ENDIF:Wz%=INT(((255-T)/255)*100):PROCWs(Wr,"%%+t (Wimp "+STR$Wu+") "):PROCWs(Wr,STR$Wz%+" "):PROCWs(Wr,CHR$10):ENDPROC
3600DEFPROCWs(XU,XV$):FORi=1 TOLENXV$:BPUT#XU,ASC(MID$(XV$,i,1)):NEXTi:ENDPROC
4010DEFPROCVy(XW,Vm$):SYS&2E,256+10,XW,Vm$:ENDPROC
4060DEFPROCVx(XW,XX):XW!0=XX:XW!8=16:SYS&2E,256+9,XW:ENDPROC
4590DEFFNUt(XY,XZ$):LOCALXa,Xb:SYS&400C0,XY,&4B534154,XZ$+CHR$0 TOXa,Xb:Xc=Xb:=Xc
4660DEFPROCVd(Xc):SYS&400DD,Xc,"TASK":ENDPROC
4710DEFFNVp(Ve,Xd,Wb$,Xe$,Xf,Xg):LOCALWg,Xb,Xh:$Ve=Wb$+CHR$0:Ve!32=Xd:$(Ve+36)=Xe$+CHR$0:Wg=(ABSXf*2^0)+(ABSXg*2^1):SYS&400DF,Ve+32,Wg,Ve TO,Xb:Xh=Xb:=Xh
4830DEFPROCVW(Vg,Ve,Vk,Xi):IFXi= NOTTRUE THEN
4850Ve!0=Vk:SYS&400CB,,Ve:SYS&400C5,,Ve
4880ELSE:SYS&400C5,,Vg
4900ENDIF:ENDPROC
4940DEFPROCVX(Ve,Vk):Ve!0=Vk:SYS&400C6,,Ve:ENDPROC
5020DEFPROCXj(Vk,Vf,Xk):SYS&400D2,Vk,Vf,0,0,-1,Xk:ENDPROC
5070DEFPROCXl:SYS&400D2,-1,-1,-1,-1,-1,-1:ENDPROC
5120DEFFNVn(Ve,Vk,Vf):LOCALWg,Xm,XV$:Ve!0=Vk:Ve!4=Vf:SYS&400CE,,Ve:Wg=Ve!(8+16):Xm=(Wg AND2^8)=2^8:IFXm THEN
5200XV$=FNWm(Ve!(8+20))
5210ELSE:XV$=FNWm(Ve+8+20)
5230ENDIF:=XV$
5270DEFPROCWn(Ve,Vk,Vf,Xn$):LOCALWg,Xm:Ve!0=Vk:Ve!4=Vf:SYS&400CE,,Ve:Wg=Ve!(8+16):Xm=(Wg AND2^8)=2^8:IFXm THEN
5350$(Ve!(8+20))=Xn$
5360ELSE:$(Ve+8+20)=Xn$
5380ENDIF:Ve!0=Vk:Ve!4=Vf:Ve!8=0:Ve!12=0:SYS&400CD,,Ve:ENDPROC
5470DEFPROCVv(Xo):SYS&400DC,Xo:ENDPROC
5520DEFFNWm(Wh):LOCALXp$:Xp$="":WHILE?Wh>31:Xp$+=CHR$?Wh:Wh+=1:ENDWHILE:=Xp$
5620DEFPROCWU(Ve,Vm$):$Ve=Vm$+CHR$0:SYS&400D9,,Ve:ENDPROC
5680DEFFNWV(Xq,Xr,Xs,Xt$,Xu):LOCALXv,Xw,Xx,Xy,Xz:SYS&400DB,,Xq,Xr,Xs,-1,Xt$,0 TO,,Xv:Xw=Xq!84:Xx=Xv:Xy=0:WHILEXy<Xw:Xz=Xq+88+Xy*32:IF(Xz!16 AND&102)=&102 THENXz!24=Xu
5790Xy+=1:ENDWHILE:=Xx
5840DEFFNWX(Xq):LOCALVk:SYS&400C1,,Xq TOVk:=Vk
5900DEFPROCWY:SYS&400DA:ENDPROC
5950DEFFNVU(Vg,YU):LOCALXa:SYS&400C7,YU,Vg TOXa:YV=Xa:=YV
<���:�:�" at Line ";�:�
Z
�UV:�UW:�
����UV:UX=4:UY=2:UZ=1:Ua=-2:Ub=&FFF:Uc$="ColTable":Ud$="ColTable":Ue=1*1024 :�Uf Ue:Ug=1*1024 :�Uh Ug:Ui=1*1024 :�Uj Ui:Uk=1*1024 :�Ul Uk:Um=4*1024 :�Un Um:Uo=1*1024 :�Up Uo:Uq=1:Ur= ��:Us=�Ut(2*100,Ud$):Uu=�Uv(Uh):Uw=0:�Ux:�Uy:�
| ��UW:�:Uz=�VU(Uf,Uq):ȎUz �
��1:�VV(Uf)
��2:�VW(Uf,Uh,-1,�)
��3:�VX(Uh,Uf!0)
��6:�VY(Uf)
��7:�VZ(Uf)
��8:�Va(Uf)
��9:�Vb(Uf)
��17:�Vc(Uf)
��18:�Vc(Uf)
��:�Ur:�Vd(Us):�
XiݤUv(Ve):Ve!0=-1:Ve!4=0:Ve!8=0:Ve!12=68:Ve!16=68:Ve!20=&3002:$(Ve+24)="!"+Uc$+�0:ș&400C2,,Ve �Vf:=Vf
�=��VY(Vg):Vh=Vg!0:Vi=Vg!4:Vj=Vg!8:Vk=Vg!12:Vf=Vg!16:ȎVj �
�UX:ȎVk �
!�Ua:�Vf=Uu ��VW(Uf,Uh,Vl, ��)
*�Vl:�Vf=2 �
4#Vm$=�Vn(Uh,Vl,1):�Vm$,".")=0 �
HNVo=�Vp(Uh,99,Uc$,"To save, drag the file icon to a directory display",�,�)
R�:�Vq(Vm$)
f�
p�
z�
��UY:ȎVk �
��Ua:�Vf=Uu ��Vr(Vh)
��
��UZ:ȎVk �
��Vl:�Vf=2 �
�#Vm$=�Vn(Uh,Vl,1):�Vm$,".")=0 �
�NVo=�Vp(Uh,99,Uc$,"To save, drag the file icon to a directory display",�,�)
��:�Vq(Vm$)
��
��
��
�64,16:ȎVk �
�Vl:�Vf=0 �Vo=�Vs(Uh,Vk,Vf)
�
$�:�
L��Vc(Vg):ȎVg!16 �
` �0:Ur=�
j�2:�Vt(Vg)
t�:�
�,��Va(Vg):Vk=Vg!0:Vf=Vg!4:Vu=Vg!24:ȎVk �
��Vl:�Vf=1 �Vu=13 �
�#Vm$=�Vn(Uh,Vl,1):�Vm$,".")=0 �
�NVo=�Vp(Uh,99,Uc$,"To save, drag the file icon to a directory display",�,�)
��:�Vq(Vm$)
�
�
:�Vv(Vu)
2�:�
Z ��VV(Vg):ș&400C8,,Vg �Vw:�
�5��Ux:�Vx(Un,Um):�Vy(Un,"<"+Uc$+"$Dir>.Sprites"):�
Ȕ��Uy:Vz=Ul:�WU(Uh,"<"+Uc$+"$Dir>.Templates"):Vz=�WV(Uj,Vz,Ul+Uk,"information",Un):WW=�WX(Uj):Vz=�WV(Uj,Vz,Ul+Uk,"xfer_send",Un):Vl=�WX(Uj):�WY:�
6f��Vr(Vh):Uw=1:�WZ(Uc$,128,44):�Wa("Info",0,WW, ��):�Wa("Quit",128,-1, ��):ș&400D4,,Up,Vh-64,184:�
����WZ(Wb$,Wc,Wd):We=0:$(Up+We)=Wb$+�0:?(Up+We+12)=7:?(Up+We+13)=2:?(Up+We+14)=7:?(Up+We+15)=0:!(Up+We+16)=Wc:!(Up+We+20)=Wd:!(Up+We+24)=0:We+=28:�
l��Wa(Wf$,Wg,Wh,Wi):!(Up+We+0)=Wg:!(Up+We+4)=Wh:!(Up+We+8)=&07000001+�Wi*2^22:$(Up+We+12)=Wf$+�0:We+=24:�
v��Vb(Vg):Wj=Vg!0:ȎUw �
�
�1:ȎWj �
��0
� �1:Ur=�
��
�3�:ș&400CF,,Vg:Vh=Vg!0:Vi=Vg!4:Vj=Vg!8:�Vj=UZ �
�
ȎUw �
�1:�Vr(Vh)
�
�:ș&400D4,,-1:Uw=0
4�:�
\���VZ(Vg):ș&400CF,,Vg:Vh=Vg!0:Vi=Vg!4:Vk=Vg!12:Vf=Vg!16:Vm$=�Vn(Uh,Vl,1):Wk$=�Vm$,10-��Vm$,10),".")):Vg!0=44+((�Wk$ �4)*4)+4:Vg!4=0:Vg!8=0:Vg!12=0:Vg!16=1:Vg!20=Vk:Vg!24=Vf:Vg!28=Vh:Vg!32=Vi:Vg!36=64:Vg!40=Ub:$(Vg+44)=Wk$+�0:ș&400E7,17,Vg,Vk:�
Lk��Vt(Vg):Wl=Vg!4:Vg!12=Vg!8:Vg!16=3:Vm$=�Wm(Vg+44):ș&400E7,17,Vg,Wl:�Vq(Vm$):�Vm$,"<Wimp$Scrap>")=0 �
��Wn(Uh,Vl,1,Vm$)
��:ș&400D4,,-1:�
��ݤVs(Ve,Vk,Vf):�Wc,Wd,Wo,Wp:Ve!0=4:Ve!4=5:Ve!8=11:Ve!12=12:Ve!16=-1:ș&31,Ve,Ve+32:Wc=(Ve!40+1)* 2^( Ve!32 ):Wd=(Ve!44+1)* 2^( Ve!36 ):Ve!0=Vk:ș&400CC,,Ve:Wo=Ve!4:Wp=Ve!16:Ve!0=Vk:Ve!4=Vf:ș&400CE,,Ve:Ve!8+=Wo:Ve!12+=Wp:Ve!16+=Wo:Ve!20+=Wp
�CVe!0=0:Ve!4=5:Ve!24=0:Ve!28=0:Ve!32=Wc:Ve!36=Wd:ș&400D0,,Ve:=0
^#��Wq:Vo=�Vp(Uh,99,Uc$,�$,�,�):�
�$��Vq(Vm$):�:���Wq:�VX(Uh,Vl):�
¯Wr=�Vm$:�Ws(Wr,"%%AWColourTable:"+�10):Wt=-1:�Wu=0 �15:ș&2F,Wu,16 �,,Wv%,Ww%:R=((Wv%>>8) �%11111111):G=((Wv%>>16) �%11111111):B=((Wv%>>24) �%11111111):�R<>G �R<>B �G<>B �
N�Wx(R,G,B):Wt=1
b�:�Wy(R):Wt=2
�+�:�Wu:�#Wr:�"SetType "+Vm$+" Text":��:�
����Wx(R,G,B):�Ws(Wr,"%%+r p (Wimp "+�Wu+") "):�Ws(Wr,��(R/255),4)+" "):�Ws(Wr,��(G/255),4)+" "):�Ws(Wr,��(B/255),4)+" "):�Ws(Wr,�10):�
p��Wy(T):�Wt<2 �
�0�Ws(Wr,"%%+c p (Black) 0 0 0 1"):�Ws(Wr,�10)
�\�:Wz%=�(((255-T)/255)*100):�Ws(Wr,"%%+t (Wimp "+�Wu+") "):�Ws(Wr,�Wz%+" "):�Ws(Wr,�10):�
2��Ws(XU,XV$):�i=1 ��XV$:�#XU,�(�XV$,i,1)):�i:�
�&��Vy(XW,Vm$):ș&2E,256+10,XW,Vm$:�
�0��Vx(XW,XX):XW!0=XX:XW!8=16:ș&2E,256+9,XW:�
�EݤUt(XY,XZ$):�Xa,Xb:ș&400C0,XY,&4B534154,XZ$+�0 �Xa,Xb:Xc=Xb:=Xc
4!��Vd(Xc):ș&400DD,Xc,"TASK":�
f�ݤVp(Ve,Xd,Wb$,Xe$,Xf,Xg):�Wg,Xb,Xh:$Ve=Wb$+�0:Ve!32=Xd:$(Ve+36)=Xe$+�0:Wg=(�Xf*2^0)+(�Xg*2^1):ș&400DF,Ve+32,Wg,Ve �,Xb:Xh=Xb:=Xh
� ��VW(Vg,Ve,Vk,Xi):�Xi= �� �
�%Ve!0=Vk:ș&400CB,,Ve:ș&400C5,,Ve
�:ș&400C5,,Vg
$�:�
L&��VX(Ve,Vk):Ve!0=Vk:ș&400C6,,Ve:�
�-��Xj(Vk,Vf,Xk):ș&400D2,Vk,Vf,0,0,-1,Xk:�
�%��Xl:ș&400D2,-1,-1,-1,-1,-1,-1:�
^ݤVn(Ve,Vk,Vf):�Wg,Xm,XV$:Ve!0=Vk:Ve!4=Vf:ș&400CE,,Ve:Wg=Ve!(8+16):Xm=(Wg �2^8)=2^8:�Xm �
PXV$=�Wm(Ve!(8+20))
Z�:XV$=�Wm(Ve+8+20)
n
�:=XV$
�^��Wn(Ve,Vk,Vf,Xn$):�Wg,Xm:Ve!0=Vk:Ve!4=Vf:ș&400CE,,Ve:Wg=Ve!(8+16):Xm=(Wg �2^8)=2^8:�Xm �
�$(Ve!(8+20))=Xn$
��:$(Ve+8+20)=Xn$
3�:Ve!0=Vk:Ve!4=Vf:Ve!8=0:Ve!12=0:ș&400CD,,Ve:�
^��Vv(Xo):ș&400DC,Xo:�
�8ݤWm(Wh):�Xp$:Xp$="":ȕ?Wh>31:Xp$+=�?Wh:Wh+=1:�:=Xp$
�*��WU(Ve,Vm$):$Ve=Vm$+�0:ș&400D9,,Ve:�
0�ݤWV(Xq,Xr,Xs,Xt$,Xu):�Xv,Xw,Xx,Xy,Xz:ș&400DB,,Xq,Xr,Xs,-1,Xt$,0 �,,Xv:Xw=Xq!84:Xx=Xv:Xy=0:ȕXy<Xw:Xz=Xq+88+Xy*32:�(Xz!16 �&102)=&102 �Xz!24=Xu
�Xy+=1:�:=Xx
�%ݤWX(Xq):�Vk:ș&400C1,,Xq �Vk:=Vk
��WY:ș&400DA:�
>0ݤVU(Vg,YU):�Xa:ș&400C7,YU,Vg �Xa:YV=Xa:=YV
� 00000000 0d 00 3c 1b ee 85 eb eb 3a f6 3a f1 22 20 61 74 |..<.....:.:." at|
00000010 20 4c 69 6e 65 20 22 3b 9e 3a e0 0d 00 5a 0d f2 | Line ";.:...Z..|
00000020 55 56 3a f2 55 57 3a e0 0d 00 8c e7 dd f2 55 56 |UV:.UW:.......UV|
00000030 3a 55 58 3d 34 3a 55 59 3d 32 3a 55 5a 3d 31 3a |:UX=4:UY=2:UZ=1:|
00000040 55 61 3d 2d 32 3a 55 62 3d 26 46 46 46 3a 55 63 |Ua=-2:Ub=&FFF:Uc|
00000050 24 3d 22 43 6f 6c 54 61 62 6c 65 22 3a 55 64 24 |$="ColTable":Ud$|
00000060 3d 22 43 6f 6c 54 61 62 6c 65 22 3a 55 65 3d 31 |="ColTable":Ue=1|
00000070 2a 31 30 32 34 20 3a de 55 66 20 55 65 3a 55 67 |*1024 :.Uf Ue:Ug|
00000080 3d 31 2a 31 30 32 34 20 3a de 55 68 20 55 67 3a |=1*1024 :.Uh Ug:|
00000090 55 69 3d 31 2a 31 30 32 34 20 3a de 55 6a 20 55 |Ui=1*1024 :.Uj U|
000000a0 69 3a 55 6b 3d 31 2a 31 30 32 34 20 3a de 55 6c |i:Uk=1*1024 :.Ul|
000000b0 20 55 6b 3a 55 6d 3d 34 2a 31 30 32 34 20 3a de | Uk:Um=4*1024 :.|
000000c0 55 6e 20 55 6d 3a 55 6f 3d 31 2a 31 30 32 34 20 |Un Um:Uo=1*1024 |
000000d0 3a de 55 70 20 55 6f 3a 55 71 3d 31 3a 55 72 3d |:.Up Uo:Uq=1:Ur=|
000000e0 20 ac b9 3a 55 73 3d a4 55 74 28 32 2a 31 30 30 | ..:Us=.Ut(2*100|
000000f0 2c 55 64 24 29 3a 55 75 3d a4 55 76 28 55 68 29 |,Ud$):Uu=.Uv(Uh)|
00000100 3a 55 77 3d 30 3a f2 55 78 3a f2 55 79 3a e1 0d |:Uw=0:.Ux:.Uy:..|
00000110 01 7c 1f dd f2 55 57 3a f5 3a 55 7a 3d a4 56 55 |.|...UW:.:Uz=.VU|
00000120 28 55 66 2c 55 71 29 3a c8 8e 55 7a 20 ca 0d 01 |(Uf,Uq):..Uz ...|
00000130 a4 0e c9 31 3a f2 56 56 28 55 66 29 0d 01 ae 16 |...1:.VV(Uf)....|
00000140 c9 32 3a f2 56 57 28 55 66 2c 55 68 2c 2d 31 2c |.2:.VW(Uf,Uh,-1,|
00000150 b9 29 0d 01 b8 13 c9 33 3a f2 56 58 28 55 68 2c |.).....3:.VX(Uh,|
00000160 55 66 21 30 29 0d 01 c2 0e c9 36 3a f2 56 59 28 |Uf!0).....6:.VY(|
00000170 55 66 29 0d 01 cc 0e c9 37 3a f2 56 5a 28 55 66 |Uf).....7:.VZ(Uf|
00000180 29 0d 01 d6 0e c9 38 3a f2 56 61 28 55 66 29 0d |).....8:.Va(Uf).|
00000190 01 e0 0e c9 39 3a f2 56 62 28 55 66 29 0d 01 ea |....9:.Vb(Uf)...|
000001a0 0f c9 31 37 3a f2 56 63 28 55 66 29 0d 01 f4 0f |..17:.Vc(Uf)....|
000001b0 c9 31 38 3a f2 56 63 28 55 66 29 0d 01 fe 13 cb |.18:.Vc(Uf).....|
000001c0 3a fd 55 72 3a f2 56 64 28 55 73 29 3a e1 0d 02 |:.Ur:.Vd(Us):...|
000001d0 58 69 dd a4 55 76 28 56 65 29 3a 56 65 21 30 3d |Xi..Uv(Ve):Ve!0=|
000001e0 2d 31 3a 56 65 21 34 3d 30 3a 56 65 21 38 3d 30 |-1:Ve!4=0:Ve!8=0|
000001f0 3a 56 65 21 31 32 3d 36 38 3a 56 65 21 31 36 3d |:Ve!12=68:Ve!16=|
00000200 36 38 3a 56 65 21 32 30 3d 26 33 30 30 32 3a 24 |68:Ve!20=&3002:$|
00000210 28 56 65 2b 32 34 29 3d 22 21 22 2b 55 63 24 2b |(Ve+24)="!"+Uc$+|
00000220 bd 30 3a c8 99 26 34 30 30 43 32 2c 2c 56 65 20 |.0:..&400C2,,Ve |
00000230 b8 56 66 3a 3d 56 66 0d 02 d0 3d dd f2 56 59 28 |.Vf:=Vf...=..VY(|
00000240 56 67 29 3a 56 68 3d 56 67 21 30 3a 56 69 3d 56 |Vg):Vh=Vg!0:Vi=V|
00000250 67 21 34 3a 56 6a 3d 56 67 21 38 3a 56 6b 3d 56 |g!4:Vj=Vg!8:Vk=V|
00000260 67 21 31 32 3a 56 66 3d 56 67 21 31 36 3a c8 8e |g!12:Vf=Vg!16:..|
00000270 56 6a 20 ca 0d 03 16 0e c9 55 58 3a c8 8e 56 6b |Vj ......UX:..Vk|
00000280 20 ca 0d 03 20 21 c9 55 61 3a e7 56 66 3d 55 75 | ... !.Ua:.Vf=Uu|
00000290 20 8c f2 56 57 28 55 66 2c 55 68 2c 56 6c 2c 20 | ..VW(Uf,Uh,Vl, |
000002a0 ac b9 29 0d 03 2a 0f c9 56 6c 3a e7 56 66 3d 32 |..)..*..Vl:.Vf=2|
000002b0 20 8c 0d 03 34 23 56 6d 24 3d a4 56 6e 28 55 68 | ...4#Vm$=.Vn(Uh|
000002c0 2c 56 6c 2c 31 29 3a e7 a7 56 6d 24 2c 22 2e 22 |,Vl,1):..Vm$,"."|
000002d0 29 3d 30 20 8c 0d 03 48 4e 56 6f 3d a4 56 70 28 |)=0 ...HNVo=.Vp(|
000002e0 55 68 2c 39 39 2c 55 63 24 2c 22 54 6f 20 73 61 |Uh,99,Uc$,"To sa|
000002f0 76 65 2c 20 64 72 61 67 20 74 68 65 20 66 69 6c |ve, drag the fil|
00000300 65 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 |e icon to a dire|
00000310 63 74 6f 72 79 20 64 69 73 70 6c 61 79 22 2c b9 |ctory display",.|
00000320 2c a3 29 0d 03 52 0e cc 3a f2 56 71 28 56 6d 24 |,.)..R..:.Vq(Vm$|
00000330 29 0d 03 66 05 cd 0d 03 70 05 cd 0d 03 7a 05 cb |)..f....p....z..|
00000340 0d 03 84 0e c9 55 59 3a c8 8e 56 6b 20 ca 0d 03 |.....UY:..Vk ...|
00000350 8e 17 c9 55 61 3a e7 56 66 3d 55 75 20 8c f2 56 |...Ua:.Vf=Uu ..V|
00000360 72 28 56 68 29 0d 03 98 05 cb 0d 03 a2 0e c9 55 |r(Vh)..........U|
00000370 5a 3a c8 8e 56 6b 20 ca 0d 03 ac 0f c9 56 6c 3a |Z:..Vk ......Vl:|
00000380 e7 56 66 3d 32 20 8c 0d 03 b6 23 56 6d 24 3d a4 |.Vf=2 ....#Vm$=.|
00000390 56 6e 28 55 68 2c 56 6c 2c 31 29 3a e7 a7 56 6d |Vn(Uh,Vl,1):..Vm|
000003a0 24 2c 22 2e 22 29 3d 30 20 8c 0d 03 ca 4e 56 6f |$,".")=0 ....NVo|
000003b0 3d a4 56 70 28 55 68 2c 39 39 2c 55 63 24 2c 22 |=.Vp(Uh,99,Uc$,"|
000003c0 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 74 68 |To save, drag th|
000003d0 65 20 66 69 6c 65 20 69 63 6f 6e 20 74 6f 20 61 |e file icon to a|
000003e0 20 64 69 72 65 63 74 6f 72 79 20 64 69 73 70 6c | directory displ|
000003f0 61 79 22 2c b9 2c a3 29 0d 03 d4 0e cc 3a f2 56 |ay",.,.).....:.V|
00000400 71 28 56 6d 24 29 0d 03 e8 05 cd 0d 03 f2 05 cd |q(Vm$)..........|
00000410 0d 03 fc 05 cb 0d 04 06 11 c9 36 34 2c 31 36 3a |..........64,16:|
00000420 c8 8e 56 6b 20 ca 0d 04 10 1f c9 56 6c 3a e7 56 |..Vk ......Vl:.V|
00000430 66 3d 30 20 8c 56 6f 3d a4 56 73 28 55 68 2c 56 |f=0 .Vo=.Vs(Uh,V|
00000440 6b 2c 56 66 29 0d 04 1a 05 cb 0d 04 24 07 cb 3a |k,Vf).......$..:|
00000450 e1 0d 04 4c 16 dd f2 56 63 28 56 67 29 3a c8 8e |...L...Vc(Vg):..|
00000460 56 67 21 31 36 20 ca 0d 04 60 0b c9 30 3a 55 72 |Vg!16 ...`..0:Ur|
00000470 3d b9 0d 04 6a 0e c9 32 3a f2 56 74 28 56 67 29 |=...j..2:.Vt(Vg)|
00000480 0d 04 74 07 cb 3a e1 0d 04 9c 2c dd f2 56 61 28 |..t..:....,..Va(|
00000490 56 67 29 3a 56 6b 3d 56 67 21 30 3a 56 66 3d 56 |Vg):Vk=Vg!0:Vf=V|
000004a0 67 21 34 3a 56 75 3d 56 67 21 32 34 3a c8 8e 56 |g!4:Vu=Vg!24:..V|
000004b0 6b 20 ca 0d 04 ce 16 c9 56 6c 3a e7 56 66 3d 31 |k ......Vl:.Vf=1|
000004c0 20 80 56 75 3d 31 33 20 8c 0d 04 d8 23 56 6d 24 | .Vu=13 ....#Vm$|
000004d0 3d a4 56 6e 28 55 68 2c 56 6c 2c 31 29 3a e7 a7 |=.Vn(Uh,Vl,1):..|
000004e0 56 6d 24 2c 22 2e 22 29 3d 30 20 8c 0d 04 ec 4e |Vm$,".")=0 ....N|
000004f0 56 6f 3d a4 56 70 28 55 68 2c 39 39 2c 55 63 24 |Vo=.Vp(Uh,99,Uc$|
00000500 2c 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 |,"To save, drag |
00000510 74 68 65 20 66 69 6c 65 20 69 63 6f 6e 20 74 6f |the file icon to|
00000520 20 61 20 64 69 72 65 63 74 6f 72 79 20 64 69 73 | a directory dis|
00000530 70 6c 61 79 22 2c b9 2c a3 29 0d 04 f6 0e cc 3a |play",.,.).....:|
00000540 f2 56 71 28 56 6d 24 29 0d 05 0a 05 cd 0d 05 14 |.Vq(Vm$)........|
00000550 05 cd 0d 05 1e 0d 7f 3a f2 56 76 28 56 75 29 0d |.......:.Vv(Vu).|
00000560 05 32 07 cb 3a e1 0d 05 5a 1f dd f2 56 56 28 56 |.2..:...Z...VV(V|
00000570 67 29 3a c8 99 26 34 30 30 43 38 2c 2c 56 67 20 |g):..&400C8,,Vg |
00000580 b8 56 77 3a e1 0d 05 8c 35 dd f2 55 78 3a f2 56 |.Vw:....5..Ux:.V|
00000590 78 28 55 6e 2c 55 6d 29 3a f2 56 79 28 55 6e 2c |x(Un,Um):.Vy(Un,|
000005a0 22 3c 22 2b 55 63 24 2b 22 24 44 69 72 3e 2e 53 |"<"+Uc$+"$Dir>.S|
000005b0 70 72 69 74 65 73 22 29 3a e1 0d 05 c8 94 dd f2 |prites"):.......|
000005c0 55 79 3a 56 7a 3d 55 6c 3a f2 57 55 28 55 68 2c |Uy:Vz=Ul:.WU(Uh,|
000005d0 22 3c 22 2b 55 63 24 2b 22 24 44 69 72 3e 2e 54 |"<"+Uc$+"$Dir>.T|
000005e0 65 6d 70 6c 61 74 65 73 22 29 3a 56 7a 3d a4 57 |emplates"):Vz=.W|
000005f0 56 28 55 6a 2c 56 7a 2c 55 6c 2b 55 6b 2c 22 69 |V(Uj,Vz,Ul+Uk,"i|
00000600 6e 66 6f 72 6d 61 74 69 6f 6e 22 2c 55 6e 29 3a |nformation",Un):|
00000610 57 57 3d a4 57 58 28 55 6a 29 3a 56 7a 3d a4 57 |WW=.WX(Uj):Vz=.W|
00000620 56 28 55 6a 2c 56 7a 2c 55 6c 2b 55 6b 2c 22 78 |V(Uj,Vz,Ul+Uk,"x|
00000630 66 65 72 5f 73 65 6e 64 22 2c 55 6e 29 3a 56 6c |fer_send",Un):Vl|
00000640 3d a4 57 58 28 55 6a 29 3a f2 57 59 3a e1 0d 06 |=.WX(Uj):.WY:...|
00000650 36 66 dd f2 56 72 28 56 68 29 3a 55 77 3d 31 3a |6f..Vr(Vh):Uw=1:|
00000660 f2 57 5a 28 55 63 24 2c 31 32 38 2c 34 34 29 3a |.WZ(Uc$,128,44):|
00000670 f2 57 61 28 22 49 6e 66 6f 22 2c 30 2c 57 57 2c |.Wa("Info",0,WW,|
00000680 20 ac b9 29 3a f2 57 61 28 22 51 75 69 74 22 2c | ..):.Wa("Quit",|
00000690 31 32 38 2c 2d 31 2c 20 ac b9 29 3a c8 99 26 34 |128,-1, ..):..&4|
000006a0 30 30 44 34 2c 2c 55 70 2c 56 68 2d 36 34 2c 31 |00D4,,Up,Vh-64,1|
000006b0 38 34 3a e1 0d 06 90 95 dd f2 57 5a 28 57 62 24 |84:.......WZ(Wb$|
000006c0 2c 57 63 2c 57 64 29 3a 57 65 3d 30 3a 24 28 55 |,Wc,Wd):We=0:$(U|
000006d0 70 2b 57 65 29 3d 57 62 24 2b bd 30 3a 3f 28 55 |p+We)=Wb$+.0:?(U|
000006e0 70 2b 57 65 2b 31 32 29 3d 37 3a 3f 28 55 70 2b |p+We+12)=7:?(Up+|
000006f0 57 65 2b 31 33 29 3d 32 3a 3f 28 55 70 2b 57 65 |We+13)=2:?(Up+We|
00000700 2b 31 34 29 3d 37 3a 3f 28 55 70 2b 57 65 2b 31 |+14)=7:?(Up+We+1|
00000710 35 29 3d 30 3a 21 28 55 70 2b 57 65 2b 31 36 29 |5)=0:!(Up+We+16)|
00000720 3d 57 63 3a 21 28 55 70 2b 57 65 2b 32 30 29 3d |=Wc:!(Up+We+20)=|
00000730 57 64 3a 21 28 55 70 2b 57 65 2b 32 34 29 3d 30 |Wd:!(Up+We+24)=0|
00000740 3a 57 65 2b 3d 32 38 3a e1 0d 07 1c 6c dd f2 57 |:We+=28:....l..W|
00000750 61 28 57 66 24 2c 57 67 2c 57 68 2c 57 69 29 3a |a(Wf$,Wg,Wh,Wi):|
00000760 21 28 55 70 2b 57 65 2b 30 29 3d 57 67 3a 21 28 |!(Up+We+0)=Wg:!(|
00000770 55 70 2b 57 65 2b 34 29 3d 57 68 3a 21 28 55 70 |Up+We+4)=Wh:!(Up|
00000780 2b 57 65 2b 38 29 3d 26 30 37 30 30 30 30 30 31 |+We+8)=&07000001|
00000790 2b 94 57 69 2a 32 5e 32 32 3a 24 28 55 70 2b 57 |+.Wi*2^22:$(Up+W|
000007a0 65 2b 31 32 29 3d 57 66 24 2b bd 30 3a 57 65 2b |e+12)=Wf$+.0:We+|
000007b0 3d 32 34 3a e1 0d 07 76 1b dd f2 56 62 28 56 67 |=24:...v...Vb(Vg|
000007c0 29 3a 57 6a 3d 56 67 21 30 3a c8 8e 55 77 20 ca |):Wj=Vg!0:..Uw .|
000007d0 0d 07 94 0d c9 31 3a c8 8e 57 6a 20 ca 0d 07 9e |.....1:..Wj ....|
000007e0 06 c9 30 0d 07 a8 0b c9 31 3a 55 72 3d b9 0d 07 |..0.....1:Ur=...|
000007f0 b2 05 cb 0d 07 bc 33 cb 3a c8 99 26 34 30 30 43 |......3.:..&400C|
00000800 46 2c 2c 56 67 3a 56 68 3d 56 67 21 30 3a 56 69 |F,,Vg:Vh=Vg!0:Vi|
00000810 3d 56 67 21 34 3a 56 6a 3d 56 67 21 38 3a e7 56 |=Vg!4:Vj=Vg!8:.V|
00000820 6a 3d 55 5a 20 8c 0d 07 f8 0a c8 8e 55 77 20 ca |j=UZ .......Uw .|
00000830 0d 08 02 0e c9 31 3a f2 56 72 28 56 68 29 0d 08 |.....1:.Vr(Vh)..|
00000840 0c 05 cb 0d 08 16 17 cc 3a c8 99 26 34 30 30 44 |........:..&400D|
00000850 34 2c 2c 2d 31 3a 55 77 3d 30 0d 08 34 07 cd 3a |4,,-1:Uw=0..4..:|
00000860 e1 0d 08 5c f8 dd f2 56 5a 28 56 67 29 3a c8 99 |...\...VZ(Vg):..|
00000870 26 34 30 30 43 46 2c 2c 56 67 3a 56 68 3d 56 67 |&400CF,,Vg:Vh=Vg|
00000880 21 30 3a 56 69 3d 56 67 21 34 3a 56 6b 3d 56 67 |!0:Vi=Vg!4:Vk=Vg|
00000890 21 31 32 3a 56 66 3d 56 67 21 31 36 3a 56 6d 24 |!12:Vf=Vg!16:Vm$|
000008a0 3d a4 56 6e 28 55 68 2c 56 6c 2c 31 29 3a 57 6b |=.Vn(Uh,Vl,1):Wk|
000008b0 24 3d c2 56 6d 24 2c 31 30 2d a7 c2 56 6d 24 2c |$=.Vm$,10-..Vm$,|
000008c0 31 30 29 2c 22 2e 22 29 29 3a 56 67 21 30 3d 34 |10),".")):Vg!0=4|
000008d0 34 2b 28 28 a9 57 6b 24 20 81 34 29 2a 34 29 2b |4+((.Wk$ .4)*4)+|
000008e0 34 3a 56 67 21 34 3d 30 3a 56 67 21 38 3d 30 3a |4:Vg!4=0:Vg!8=0:|
000008f0 56 67 21 31 32 3d 30 3a 56 67 21 31 36 3d 31 3a |Vg!12=0:Vg!16=1:|
00000900 56 67 21 32 30 3d 56 6b 3a 56 67 21 32 34 3d 56 |Vg!20=Vk:Vg!24=V|
00000910 66 3a 56 67 21 32 38 3d 56 68 3a 56 67 21 33 32 |f:Vg!28=Vh:Vg!32|
00000920 3d 56 69 3a 56 67 21 33 36 3d 36 34 3a 56 67 21 |=Vi:Vg!36=64:Vg!|
00000930 34 30 3d 55 62 3a 24 28 56 67 2b 34 34 29 3d 57 |40=Ub:$(Vg+44)=W|
00000940 6b 24 2b bd 30 3a c8 99 26 34 30 30 45 37 2c 31 |k$+.0:..&400E7,1|
00000950 37 2c 56 67 2c 56 6b 3a e1 0d 09 4c 6b dd f2 56 |7,Vg,Vk:...Lk..V|
00000960 74 28 56 67 29 3a 57 6c 3d 56 67 21 34 3a 56 67 |t(Vg):Wl=Vg!4:Vg|
00000970 21 31 32 3d 56 67 21 38 3a 56 67 21 31 36 3d 33 |!12=Vg!8:Vg!16=3|
00000980 3a 56 6d 24 3d a4 57 6d 28 56 67 2b 34 34 29 3a |:Vm$=.Wm(Vg+44):|
00000990 c8 99 26 34 30 30 45 37 2c 31 37 2c 56 67 2c 57 |..&400E7,17,Vg,W|
000009a0 6c 3a f2 56 71 28 56 6d 24 29 3a e7 a7 56 6d 24 |l:.Vq(Vm$):..Vm$|
000009b0 2c 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 29 |,"<Wimp$Scrap>")|
000009c0 3d 30 20 8c 0d 09 9c 14 f2 57 6e 28 55 68 2c 56 |=0 ......Wn(Uh,V|
000009d0 6c 2c 31 2c 56 6d 24 29 0d 09 a6 14 cd 3a c8 99 |l,1,Vm$).....:..|
000009e0 26 34 30 30 44 34 2c 2c 2d 31 3a e1 0d 09 d8 f4 |&400D4,,-1:.....|
000009f0 dd a4 56 73 28 56 65 2c 56 6b 2c 56 66 29 3a ea |..Vs(Ve,Vk,Vf):.|
00000a00 57 63 2c 57 64 2c 57 6f 2c 57 70 3a 56 65 21 30 |Wc,Wd,Wo,Wp:Ve!0|
00000a10 3d 34 3a 56 65 21 34 3d 35 3a 56 65 21 38 3d 31 |=4:Ve!4=5:Ve!8=1|
00000a20 31 3a 56 65 21 31 32 3d 31 32 3a 56 65 21 31 36 |1:Ve!12=12:Ve!16|
00000a30 3d 2d 31 3a c8 99 26 33 31 2c 56 65 2c 56 65 2b |=-1:..&31,Ve,Ve+|
00000a40 33 32 3a 57 63 3d 28 56 65 21 34 30 2b 31 29 2a |32:Wc=(Ve!40+1)*|
00000a50 20 32 5e 28 20 56 65 21 33 32 20 29 3a 57 64 3d | 2^( Ve!32 ):Wd=|
00000a60 28 56 65 21 34 34 2b 31 29 2a 20 32 5e 28 20 56 |(Ve!44+1)* 2^( V|
00000a70 65 21 33 36 20 29 3a 56 65 21 30 3d 56 6b 3a c8 |e!36 ):Ve!0=Vk:.|
00000a80 99 26 34 30 30 43 43 2c 2c 56 65 3a 57 6f 3d 56 |.&400CC,,Ve:Wo=V|
00000a90 65 21 34 3a 57 70 3d 56 65 21 31 36 3a 56 65 21 |e!4:Wp=Ve!16:Ve!|
00000aa0 30 3d 56 6b 3a 56 65 21 34 3d 56 66 3a c8 99 26 |0=Vk:Ve!4=Vf:..&|
00000ab0 34 30 30 43 45 2c 2c 56 65 3a 56 65 21 38 2b 3d |400CE,,Ve:Ve!8+=|
00000ac0 57 6f 3a 56 65 21 31 32 2b 3d 57 70 3a 56 65 21 |Wo:Ve!12+=Wp:Ve!|
00000ad0 31 36 2b 3d 57 6f 3a 56 65 21 32 30 2b 3d 57 70 |16+=Wo:Ve!20+=Wp|
00000ae0 0d 0a 82 43 56 65 21 30 3d 30 3a 56 65 21 34 3d |...CVe!0=0:Ve!4=|
00000af0 35 3a 56 65 21 32 34 3d 30 3a 56 65 21 32 38 3d |5:Ve!24=0:Ve!28=|
00000b00 30 3a 56 65 21 33 32 3d 57 63 3a 56 65 21 33 36 |0:Ve!32=Wc:Ve!36|
00000b10 3d 57 64 3a c8 99 26 34 30 30 44 30 2c 2c 56 65 |=Wd:..&400D0,,Ve|
00000b20 3a 3d 30 0d 0b 5e 23 dd f2 57 71 3a 56 6f 3d a4 |:=0..^#..Wq:Vo=.|
00000b30 56 70 28 55 68 2c 39 39 2c 55 63 24 2c f6 24 2c |Vp(Uh,99,Uc$,.$,|
00000b40 b9 2c a3 29 3a e1 0d 0b 90 24 dd f2 56 71 28 56 |.,.):....$..Vq(V|
00000b50 6d 24 29 3a ea 85 3a ee 85 ea f2 57 71 3a f2 56 |m$):..:....Wq:.V|
00000b60 58 28 55 68 2c 56 6c 29 3a e1 0d 0b c2 af 57 72 |X(Uh,Vl):.....Wr|
00000b70 3d ae 56 6d 24 3a f2 57 73 28 57 72 2c 22 25 25 |=.Vm$:.Ws(Wr,"%%|
00000b80 41 57 43 6f 6c 6f 75 72 54 61 62 6c 65 3a 22 2b |AWColourTable:"+|
00000b90 bd 31 30 29 3a 57 74 3d 2d 31 3a e3 57 75 3d 30 |.10):Wt=-1:.Wu=0|
00000ba0 20 b8 31 35 3a c8 99 26 32 46 2c 57 75 2c 31 36 | .15:..&2F,Wu,16|
00000bb0 20 b8 2c 2c 57 76 25 2c 57 77 25 3a 52 3d 28 28 | .,,Wv%,Ww%:R=((|
00000bc0 57 76 25 3e 3e 38 29 20 80 25 31 31 31 31 31 31 |Wv%>>8) .%111111|
00000bd0 31 31 29 3a 47 3d 28 28 57 76 25 3e 3e 31 36 29 |11):G=((Wv%>>16)|
00000be0 20 80 25 31 31 31 31 31 31 31 31 29 3a 42 3d 28 | .%11111111):B=(|
00000bf0 28 57 76 25 3e 3e 32 34 29 20 80 25 31 31 31 31 |(Wv%>>24) .%1111|
00000c00 31 31 31 31 29 3a e7 52 3c 3e 47 20 84 52 3c 3e |1111):.R<>G .R<>|
00000c10 42 20 84 47 3c 3e 42 20 8c 0d 0c 4e 13 f2 57 78 |B .G<>B ...N..Wx|
00000c20 28 52 2c 47 2c 42 29 3a 57 74 3d 31 0d 0c 62 11 |(R,G,B):Wt=1..b.|
00000c30 cc 3a f2 57 79 28 52 29 3a 57 74 3d 32 0d 0c 80 |.:.Wy(R):Wt=2...|
00000c40 2b cd 3a ed 57 75 3a d9 23 57 72 3a ff 22 53 65 |+.:.Wu:.#Wr:."Se|
00000c50 74 54 79 70 65 20 22 2b 56 6d 24 2b 22 20 54 65 |tType "+Vm$+" Te|
00000c60 78 74 22 3a f7 85 3a e1 0d 0c f8 89 dd f2 57 78 |xt":..:.......Wx|
00000c70 28 52 2c 47 2c 42 29 3a f2 57 73 28 57 72 2c 22 |(R,G,B):.Ws(Wr,"|
00000c80 25 25 2b 72 20 70 20 28 57 69 6d 70 20 22 2b c3 |%%+r p (Wimp "+.|
00000c90 57 75 2b 22 29 20 22 29 3a f2 57 73 28 57 72 2c |Wu+") "):.Ws(Wr,|
00000ca0 c0 c3 28 52 2f 32 35 35 29 2c 34 29 2b 22 20 22 |..(R/255),4)+" "|
00000cb0 29 3a f2 57 73 28 57 72 2c c0 c3 28 47 2f 32 35 |):.Ws(Wr,..(G/25|
00000cc0 35 29 2c 34 29 2b 22 20 22 29 3a f2 57 73 28 57 |5),4)+" "):.Ws(W|
00000cd0 72 2c c0 c3 28 42 2f 32 35 35 29 2c 34 29 2b 22 |r,..(B/255),4)+"|
00000ce0 20 22 29 3a f2 57 73 28 57 72 2c bd 31 30 29 3a | "):.Ws(Wr,.10):|
00000cf0 e1 0d 0d 70 13 dd f2 57 79 28 54 29 3a e7 57 74 |...p...Wy(T):.Wt|
00000d00 3c 32 20 8c 0d 0d 8e 30 f2 57 73 28 57 72 2c 22 |<2 ....0.Ws(Wr,"|
00000d10 25 25 2b 63 20 70 20 28 42 6c 61 63 6b 29 20 30 |%%+c p (Black) 0|
00000d20 20 30 20 30 20 31 22 29 3a f2 57 73 28 57 72 2c | 0 0 1"):.Ws(Wr,|
00000d30 bd 31 30 29 0d 0d a2 5c cd 3a 57 7a 25 3d a8 28 |.10)...\.:Wz%=.(|
00000d40 28 28 32 35 35 2d 54 29 2f 32 35 35 29 2a 31 30 |((255-T)/255)*10|
00000d50 30 29 3a f2 57 73 28 57 72 2c 22 25 25 2b 74 20 |0):.Ws(Wr,"%%+t |
00000d60 28 57 69 6d 70 20 22 2b c3 57 75 2b 22 29 20 22 |(Wimp "+.Wu+") "|
00000d70 29 3a f2 57 73 28 57 72 2c c3 57 7a 25 2b 22 20 |):.Ws(Wr,.Wz%+" |
00000d80 22 29 3a f2 57 73 28 57 72 2c bd 31 30 29 3a e1 |"):.Ws(Wr,.10):.|
00000d90 0d 0e 10 32 dd f2 57 73 28 58 55 2c 58 56 24 29 |...2..Ws(XU,XV$)|
00000da0 3a e3 69 3d 31 20 b8 a9 58 56 24 3a d5 23 58 55 |:.i=1 ..XV$:.#XU|
00000db0 2c 97 28 c1 58 56 24 2c 69 2c 31 29 29 3a ed 69 |,.(.XV$,i,1)):.i|
00000dc0 3a e1 0d 0f aa 26 dd f2 56 79 28 58 57 2c 56 6d |:....&..Vy(XW,Vm|
00000dd0 24 29 3a c8 99 26 32 45 2c 32 35 36 2b 31 30 2c |$):..&2E,256+10,|
00000de0 58 57 2c 56 6d 24 3a e1 0d 0f dc 30 dd f2 56 78 |XW,Vm$:....0..Vx|
00000df0 28 58 57 2c 58 58 29 3a 58 57 21 30 3d 58 58 3a |(XW,XX):XW!0=XX:|
00000e00 58 57 21 38 3d 31 36 3a c8 99 26 32 45 2c 32 35 |XW!8=16:..&2E,25|
00000e10 36 2b 39 2c 58 57 3a e1 0d 11 ee 45 dd a4 55 74 |6+9,XW:....E..Ut|
00000e20 28 58 59 2c 58 5a 24 29 3a ea 58 61 2c 58 62 3a |(XY,XZ$):.Xa,Xb:|
00000e30 c8 99 26 34 30 30 43 30 2c 58 59 2c 26 34 42 35 |..&400C0,XY,&4B5|
00000e40 33 34 31 35 34 2c 58 5a 24 2b bd 30 20 b8 58 61 |34154,XZ$+.0 .Xa|
00000e50 2c 58 62 3a 58 63 3d 58 62 3a 3d 58 63 0d 12 34 |,Xb:Xc=Xb:=Xc..4|
00000e60 21 dd f2 56 64 28 58 63 29 3a c8 99 26 34 30 30 |!..Vd(Xc):..&400|
00000e70 44 44 2c 58 63 2c 22 54 41 53 4b 22 3a e1 0d 12 |DD,Xc,"TASK":...|
00000e80 66 86 dd a4 56 70 28 56 65 2c 58 64 2c 57 62 24 |f...Vp(Ve,Xd,Wb$|
00000e90 2c 58 65 24 2c 58 66 2c 58 67 29 3a ea 57 67 2c |,Xe$,Xf,Xg):.Wg,|
00000ea0 58 62 2c 58 68 3a 24 56 65 3d 57 62 24 2b bd 30 |Xb,Xh:$Ve=Wb$+.0|
00000eb0 3a 56 65 21 33 32 3d 58 64 3a 24 28 56 65 2b 33 |:Ve!32=Xd:$(Ve+3|
00000ec0 36 29 3d 58 65 24 2b bd 30 3a 57 67 3d 28 94 58 |6)=Xe$+.0:Wg=(.X|
00000ed0 66 2a 32 5e 30 29 2b 28 94 58 67 2a 32 5e 31 29 |f*2^0)+(.Xg*2^1)|
00000ee0 3a c8 99 26 34 30 30 44 46 2c 56 65 2b 33 32 2c |:..&400DF,Ve+32,|
00000ef0 57 67 2c 56 65 20 b8 2c 58 62 3a 58 68 3d 58 62 |Wg,Ve .,Xb:Xh=Xb|
00000f00 3a 3d 58 68 0d 12 de 1f dd f2 56 57 28 56 67 2c |:=Xh......VW(Vg,|
00000f10 56 65 2c 56 6b 2c 58 69 29 3a e7 58 69 3d 20 ac |Ve,Vk,Xi):.Xi= .|
00000f20 b9 20 8c 0d 12 f2 25 56 65 21 30 3d 56 6b 3a c8 |. ....%Ve!0=Vk:.|
00000f30 99 26 34 30 30 43 42 2c 2c 56 65 3a c8 99 26 34 |.&400CB,,Ve:..&4|
00000f40 30 30 43 35 2c 2c 56 65 0d 13 10 12 cc 3a c8 99 |00C5,,Ve.....:..|
00000f50 26 34 30 30 43 35 2c 2c 56 67 0d 13 24 07 cd 3a |&400C5,,Vg..$..:|
00000f60 e1 0d 13 4c 26 dd f2 56 58 28 56 65 2c 56 6b 29 |...L&..VX(Ve,Vk)|
00000f70 3a 56 65 21 30 3d 56 6b 3a c8 99 26 34 30 30 43 |:Ve!0=Vk:..&400C|
00000f80 36 2c 2c 56 65 3a e1 0d 13 9c 2d dd f2 58 6a 28 |6,,Ve:....-..Xj(|
00000f90 56 6b 2c 56 66 2c 58 6b 29 3a c8 99 26 34 30 30 |Vk,Vf,Xk):..&400|
00000fa0 44 32 2c 56 6b 2c 56 66 2c 30 2c 30 2c 2d 31 2c |D2,Vk,Vf,0,0,-1,|
00000fb0 58 6b 3a e1 0d 13 ce 25 dd f2 58 6c 3a c8 99 26 |Xk:....%..Xl:..&|
00000fc0 34 30 30 44 32 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d |400D2,-1,-1,-1,-|
00000fd0 31 2c 2d 31 2c 2d 31 3a e1 0d 14 00 5e dd a4 56 |1,-1,-1:....^..V|
00000fe0 6e 28 56 65 2c 56 6b 2c 56 66 29 3a ea 57 67 2c |n(Ve,Vk,Vf):.Wg,|
00000ff0 58 6d 2c 58 56 24 3a 56 65 21 30 3d 56 6b 3a 56 |Xm,XV$:Ve!0=Vk:V|
00001000 65 21 34 3d 56 66 3a c8 99 26 34 30 30 43 45 2c |e!4=Vf:..&400CE,|
00001010 2c 56 65 3a 57 67 3d 56 65 21 28 38 2b 31 36 29 |,Ve:Wg=Ve!(8+16)|
00001020 3a 58 6d 3d 28 57 67 20 80 32 5e 38 29 3d 32 5e |:Xm=(Wg .2^8)=2^|
00001030 38 3a e7 58 6d 20 8c 0d 14 50 16 58 56 24 3d a4 |8:.Xm ...P.XV$=.|
00001040 57 6d 28 56 65 21 28 38 2b 32 30 29 29 0d 14 5a |Wm(Ve!(8+20))..Z|
00001050 16 cc 3a 58 56 24 3d a4 57 6d 28 56 65 2b 38 2b |..:XV$=.Wm(Ve+8+|
00001060 32 30 29 0d 14 6e 0a cd 3a 3d 58 56 24 0d 14 96 |20)..n..:=XV$...|
00001070 5e dd f2 57 6e 28 56 65 2c 56 6b 2c 56 66 2c 58 |^..Wn(Ve,Vk,Vf,X|
00001080 6e 24 29 3a ea 57 67 2c 58 6d 3a 56 65 21 30 3d |n$):.Wg,Xm:Ve!0=|
00001090 56 6b 3a 56 65 21 34 3d 56 66 3a c8 99 26 34 30 |Vk:Ve!4=Vf:..&40|
000010a0 30 43 45 2c 2c 56 65 3a 57 67 3d 56 65 21 28 38 |0CE,,Ve:Wg=Ve!(8|
000010b0 2b 31 36 29 3a 58 6d 3d 28 57 67 20 80 32 5e 38 |+16):Xm=(Wg .2^8|
000010c0 29 3d 32 5e 38 3a e7 58 6d 20 8c 0d 14 e6 14 24 |)=2^8:.Xm .....$|
000010d0 28 56 65 21 28 38 2b 32 30 29 29 3d 58 6e 24 0d |(Ve!(8+20))=Xn$.|
000010e0 14 f0 14 cc 3a 24 28 56 65 2b 38 2b 32 30 29 3d |....:$(Ve+8+20)=|
000010f0 58 6e 24 0d 15 04 33 cd 3a 56 65 21 30 3d 56 6b |Xn$...3.:Ve!0=Vk|
00001100 3a 56 65 21 34 3d 56 66 3a 56 65 21 38 3d 30 3a |:Ve!4=Vf:Ve!8=0:|
00001110 56 65 21 31 32 3d 30 3a c8 99 26 34 30 30 43 44 |Ve!12=0:..&400CD|
00001120 2c 2c 56 65 3a e1 0d 15 5e 1a dd f2 56 76 28 58 |,,Ve:...^...Vv(X|
00001130 6f 29 3a c8 99 26 34 30 30 44 43 2c 58 6f 3a e1 |o):..&400DC,Xo:.|
00001140 0d 15 90 38 dd a4 57 6d 28 57 68 29 3a ea 58 70 |...8..Wm(Wh):.Xp|
00001150 24 3a 58 70 24 3d 22 22 3a c8 95 3f 57 68 3e 33 |$:Xp$="":..?Wh>3|
00001160 31 3a 58 70 24 2b 3d bd 3f 57 68 3a 57 68 2b 3d |1:Xp$+=.?Wh:Wh+=|
00001170 31 3a ce 3a 3d 58 70 24 0d 15 f4 2a dd f2 57 55 |1:.:=Xp$...*..WU|
00001180 28 56 65 2c 56 6d 24 29 3a 24 56 65 3d 56 6d 24 |(Ve,Vm$):$Ve=Vm$|
00001190 2b bd 30 3a c8 99 26 34 30 30 44 39 2c 2c 56 65 |+.0:..&400D9,,Ve|
000011a0 3a e1 0d 16 30 94 dd a4 57 56 28 58 71 2c 58 72 |:...0...WV(Xq,Xr|
000011b0 2c 58 73 2c 58 74 24 2c 58 75 29 3a ea 58 76 2c |,Xs,Xt$,Xu):.Xv,|
000011c0 58 77 2c 58 78 2c 58 79 2c 58 7a 3a c8 99 26 34 |Xw,Xx,Xy,Xz:..&4|
000011d0 30 30 44 42 2c 2c 58 71 2c 58 72 2c 58 73 2c 2d |00DB,,Xq,Xr,Xs,-|
000011e0 31 2c 58 74 24 2c 30 20 b8 2c 2c 58 76 3a 58 77 |1,Xt$,0 .,,Xv:Xw|
000011f0 3d 58 71 21 38 34 3a 58 78 3d 58 76 3a 58 79 3d |=Xq!84:Xx=Xv:Xy=|
00001200 30 3a c8 95 58 79 3c 58 77 3a 58 7a 3d 58 71 2b |0:..Xy<Xw:Xz=Xq+|
00001210 38 38 2b 58 79 2a 33 32 3a e7 28 58 7a 21 31 36 |88+Xy*32:.(Xz!16|
00001220 20 80 26 31 30 32 29 3d 26 31 30 32 20 8c 58 7a | .&102)=&102 .Xz|
00001230 21 32 34 3d 58 75 0d 16 9e 0f 58 79 2b 3d 31 3a |!24=Xu....Xy+=1:|
00001240 ce 3a 3d 58 78 0d 16 d0 25 dd a4 57 58 28 58 71 |.:=Xx...%..WX(Xq|
00001250 29 3a ea 56 6b 3a c8 99 26 34 30 30 43 31 2c 2c |):.Vk:..&400C1,,|
00001260 58 71 20 b8 56 6b 3a 3d 56 6b 0d 17 0c 13 dd f2 |Xq .Vk:=Vk......|
00001270 57 59 3a c8 99 26 34 30 30 44 41 3a e1 0d 17 3e |WY:..&400DA:...>|
00001280 30 dd a4 56 55 28 56 67 2c 59 55 29 3a ea 58 61 |0..VU(Vg,YU):.Xa|
00001290 3a c8 99 26 34 30 30 43 37 2c 59 55 2c 56 67 20 |:..&400C7,YU,Vg |
000012a0 b8 58 61 3a 59 56 3d 58 61 3a 3d 59 56 0d ff |.Xa:YV=Xa:=YV..|
000012af 
.