!AWOct94/Goodies/Kevs/!Wimp/!RunImage

Home » Archimedes archive » Archimedes World » AW-1994-10-Disc1.adf » Disk1Oct94 » !AWOct94/Goodies/Kevs/!Wimp/!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-1994-10-Disc1.adf » Disk1Oct94
Filename:	!AWOct94/Goodies/Kevs/!Wimp/!RunImage
Read OK:	✔
File size:	14E9 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$="Wimp":Uc$="Wimp":Ud=2*1024 :DIMUe Ud:Uf=2*1024 :DIMUg Uf:Uh=2*1024 :DIMUi Uh:Uj=2*1024 :DIMUk Uj:Ul=2*1024 :DIMUm Ul:DIMUn 64:Uo=0:DIMUp(16,2):Uq=1:Ur= NOTTRUE:Us=FNUt(2*100,Uc$):Uu=0:PROCUv:Uw=FNUx(Ug):ENDPROC
  370DEFPROCUW:REPEAT:Uy=FNUz(Ue,Uq):CASEUy OF
  410WHEN1:PROCVU(Ue)
  420WHEN2:PROCVV(Ue,Ug,-1,TRUE)
  430WHEN3:PROCVW(Ug,Ue!0)
  440WHEN6:PROCVX(Ue)
  450WHEN7:PROCVY(Ue)
  460WHEN8:PROCVZ(Ue)
  470WHEN9:PROCVa(Ue)
  480WHEN17:PROCVb(Ue)
  490WHEN18:PROCVb(Ue)
  500ENDCASE:UNTILUr:PROCVc(Us):ENDPROC
  590DEFFNUx(Vd):Vd!0=-1:Vd!4=0:Vd!8=0:Vd!12=68:Vd!16=68:Vd!20=&3002:$(Vd+24)="!"+Ub$+CHR$0:SYS&400C2,,Vd TOVe:=Ve
  710DEFPROCVX(Vf):Vg=Vf!0:Vh=Vf!4:Vi=Vf!8:Vj=Vf!12:Ve=Vf!16:CASEVi OF
  780WHENUX:CASEVj OF
  790WHENUa:IFVe=Uw THENPROCVV(Ue,Ug,Vk, NOTTRUE)
  800WHENVk:CASEVe OF
  810WHEN15:VDU7
  820WHEN16:VDU7
  830ENDCASE
  840ENDCASE
  850WHENUY:CASEVj OF
  860WHENUa:IFVe=Uw THENPROCVl(Vg)
  870WHENVk:CASEVe OF
  880WHEN17:PROCVm(Vg,Vh)
  890ENDCASE
  900ENDCASE
  910ENDCASE
  920WHENUZ:CASEVj OF
  930WHENVk:CASEVe OF
  940WHEN15:VDU7
  950WHEN16:VDU7
  960ENDCASE
  970ENDCASE
  980ENDCASE:ENDPROC
 1020DEFPROCVb(Vf):CASEVf!16 OF
 1040WHEN0:Ur=TRUE
 1050WHEN2:PROCVn(Vf)
 1060WHEN3:PROCVo(Vf)
 1070ENDCASE:ENDPROC
 1110DEFPROCVZ(Vf):Vj=Vf!0:Ve=Vf!4:Vp=Vf!24:CASEVj OF
 1160WHENVk:IFVe=9 ANDVp=13 THEN
 1170PROCVq
 1180ENDIF
 1190ENDCASE:PROCVr(Vp):ENDPROC
 1240DEFPROCVU(Vf):SYS&400C8,,Vf TOVs:Vt=Vf!4:Vu=Vf!16:Vv=Vf!8:Vw=Vf!20:Vx=Vf!24:WHILEVs:SYS&400CA,,Vf TOVs:ENDWHILE:ENDPROC
 1370DEFPROCUv:Vy=Uk:PROCVz(Ug,"<"+Ub$+"$Dir>.Templates"):Vy=FNWU(Ui,Vy,Uk+Uj,"information"):WV=FNWW(Ui):Vy=FNWU(Ui,Vy,Uk+Uj,"main"):Vk=FNWW(Ui):PROCWX:ENDPROC
 1480DEFPROCVl(Vg):Uu=1:WY=0:WZ=Um+WY:PROCWa(Ub$,128,44):PROCWb("Info",0,WV, NOTTRUE):PROCWb("Quit",128,-1, NOTTRUE):SYS&400D4,,WZ,Vg-80,184:ENDPROC
 1590DEFPROCVm(Vg,Vh):Uu=2:WY=0:Wc=Um+WY:PROCWa("A Menu!",224,44):PROCWb("Joe Satriani",1,-1, NOTTRUE):PROCWb("Steve Vai",2,-1, NOTTRUE):PROCWb("Dave Gilmour",0,-1, NOTTRUE):PROCWb("Jeff Beck",2,-1, NOTTRUE):PROCWb("Can't use!",128,-1,TRUE):WZ=Um+WY:PROCWa("A Menu!",200,44):PROCWb("A Window",2,WV, NOTTRUE)
 1740PROCWb("Guitarists",2,Wc, NOTTRUE):PROCWb("sdrawkcaB",128,-1, NOTTRUE):SYS&400D4,,WZ,Vg-80,Vh:ENDPROC
 1810DEFPROCWa(Wd$,We,Wf):$(Um+WY)=Wd$+CHR$0:?(Um+WY+12)=7:?(Um+WY+13)=2:?(Um+WY+14)=7:?(Um+WY+15)=0:!(Um+WY+16)=We:!(Um+WY+20)=Wf:!(Um+WY+24)=0:WY+=28:ENDPROC
 1940DEFPROCWb(Wg$,Wh,Wi,Wj):!(Um+WY+0)=Wh:!(Um+WY+4)=Wi:!(Um+WY+8)=&07000001+ABSWj*2^22:$(Um+WY+12)=Wg$+CHR$0:IFUu=2 ANDWg$<>"Can't use!" THEN
 2000!(Um+WY+8)=((RND(7)+4)<<24)+1+ABSWj*2^22
 2010ENDIF:WY+=24:ENDPROC
 2060DEFPROCWk:!(Um+WY+0)=128+4:!(Um+WY+4)=-1:!(Um+WY+8)=&07000101:!(Um+WY+12)=Un:!(Um+WY+16)=Un+32:!(Um+WY+20)=4:$(Un+0)=STR$MODE+CHR$0:$(Un+32)="A0-9.,\-"+CHR$0:WY+=24:ENDPROC
 2190DEFPROCVa(Vf):Wl=Vf!0:SYS&400CF,,Vf:Vg=Vf!0:Vh=Vf!4:Vi=Vf!8:CASEUu OF
 2260WHEN1:CASEWl OF
 2270WHEN1:Ur=TRUE
 2280ENDCASE
 2290WHEN2:VDU7
 2300ENDCASE:IFVi=UZ THEN
 2320CASEUu OF
 2330WHEN1:PROCVl(Vg)
 2340WHEN2:PROCVm(Vg,Vh)
 2350ENDCASE
 2360ELSE:IFUu<>1 ANDUu<>-1 THEN
 2380SYS&400D4,,-1:Uu=0
 2400ENDIF
 2410ENDIF:ENDPROC
 2450DEFPROCVo(Vf):Wm=Vf!40:Wn$=FNWo(Vf+44):Wp=Vf!4:Vf!16=4:Vf!12=Vf!8:SYS&400E7,17,Vf,Wp:ENDPROC
 2550DEFPROCVY(Vf):SYS&400CF,,Vf:Vg=Vf!0:Vh=Vf!4:Vj=Vf!12:Ve=Vf!16:Wn$=FNWq(Ug,Wr,1):Ws$=RIGHT$(Wn$,10-INSTR(RIGHT$(Wn$,10),".")):Vf!0=44+((LENWs$ DIV4)*4)+4:Vf!4=0:Vf!8=0:Vf!12=0:Vf!16=1:Vf!20=Vj:Vf!24=Ve:Vf!28=Vg:Vf!32=Vh:Vf!36=64:Vf!40=Wt:$(Vf+44)=Ws$+CHR$0:SYS&400E7,17,Vf,Vj:ENDPROC
 2790DEFPROCVn(Vf):Wp=Vf!4:Vf!12=Vf!8:Vf!16=3:Wn$=FNWo(Vf+44):SYS&400E7,17,Vf,Wp:IFINSTR(Wn$,"Wimp$Scrap")=0 THEN
 2870ENDIF:SYS&400D4,,-1:ENDPROC
 2920DEFFNWu(Vd,Vj,Ve):LOCALWe,Wf,Wv,Ww:Vd!0=4:Vd!4=5:Vd!8=11:Vd!12=12:Vd!16=-1:SYS&31,Vd,Vd+32:We=(Vd!40+1)* 2^( Vd!32 ):Wf=(Vd!44+1)* 2^( Vd!36 ):Vd!0=Vj:SYS&400CC,,Vd:Wv=Vd!4:Ww=Vd!16:Vd!0=Vj:Vd!4=Ve:SYS&400CE,,Vd:Vd!8+=Wv:Vd!12+=Ww:Vd!16+=Wv:Vd!20+=Ww
 3090Vd!0=0:Vd!4=5:Vd!24=0:Vd!28=0:Vd!32=We:Vd!36=Wf:SYS&400D0,,Vd:=0
 3940DEFFNUt(Wx,Wy$):LOCALWz,XU:SYS&400C0,Wx,&4B534154,Wy$+CHR$0 TOWz,XU:XV=XU:=XV
 4010DEFPROCVc(XV):SYS&400DD,XV,"TASK":ENDPROC
 4060DEFFNXW(Vd,XX,Wd$,XY$,XZ,Xa):LOCALWh,XU,Xb:$Vd=Wd$+CHR$0:Vd!32=XX:$(Vd+36)=XY$+CHR$0:Wh=(ABSXZ*2^0)+(ABSXa*2^1):SYS&400DF,Vd+32,Wh,Vd TO,XU:Xb=XU:=Xb
 4180DEFPROCVV(Vf,Vd,Vj,Xc):IF NOTXc THEN
 4200!Vd=Vj:SYS&400CB,,Vd:SYS&400C5,,Vd
 4230ELSE:!Vd=!Vf:SYS&400CB,,Vd:Xd=Vd!28:Xe=Vf!28:IFXe=-1 THEN
 4290CASE!Vf OF
 4300ENDCASE
 4310ENDIF:SYS&400C5,,Vf
 4330ENDIF:ENDPROC
 4370DEFPROCVW(Vd,Vj):Vd!0=Vj:SYS&400C6,,Vd:ENDPROC
 4430DEFPROCXf(Vd,Vj):LOCALWe,Wf,Xg,Xh,Xi,Xj:Vd!0=Vj:SYS&400CC,,Vd:We=ABSVd!52:IFWe>1000 THENWe=1000
 4480Wf=ABSVd!48:IFWf>512 THENWf=512
 4490Vd!0=4:Vd!4=5:Vd!8=11:Vd!12=12:Vd!16=-1:SYS&31,Vd,Vd+32:Xg=Vd!32:Xh=Vd!36:Xi=Vd!40:Xj=Vd!44:x=Xi* 2^Xg :y=Xj* 2^Xh:x=(x-We) DIV2:y=(y-Wf) DIV2:Vd!(0)=Vj:Vd!(4+0)=x:Vd!(4+4)=y:Vd!(4+8)=Vd!(4+0)+We:Vd!(4+12)=Vd!(4+4)+Wf:Vd!28=-1:SYS&400C5,,Vd:ENDPROC
 4650DEFFNXk(Vd,Vj):LOCALXl,Xm:Vd!0=Vj:SYS&400CB,,Vd:Xl=Vd!32:Xm=(Xl AND2^16)=2^16:=Xm
 4740DEFPROCXn(Vd,Vj):LOCALWe,Wf,Xo,Xp:LOCALXq,Xr,Xs,Xt:Vd!0=Vj:SYS&400CC,,Vd:We=Vd!12-Ug!4:Wf=Vd!16-Vd!8:Xo=Vd!20:Xp=Vd!24:Xq=Xo:Xt=Xp:Xs=Xt-Wf:Xr=Xq+We:SYS&400D1,Vj,Xq,Xs,Xr,Xt:ENDPROC
 4870DEFPROCXu(Vd,Vj,Ve):Vd!0=Vj:Vd!4=Ve:Vd!8=0:Vd!12=0:SYS&400CD,,Vd:ENDPROC
 4960DEFPROCXv(Vj,Ve,Xw):SYS&400D2,Vj,Ve,0,0,-1,Xw:ENDPROC
 5010DEFPROCVq:SYS&400D2,-1,-1,-1,-1,-1,-1:ENDPROC
 5060DEFFNWq(Vd,Vj,Ve):LOCALWh,Xx,Xy$:Vd!0=Vj:Vd!4=Ve:SYS&400CE,,Vd:Wh=Vd!(8+16):Xx=(Wh AND2^8)=2^8:IFXx THEN
 5140Xy$=FNWo(Vd!(8+20))
 5150ELSE:Xy$=FNWo(Vd+8+20)
 5170ENDIF:=Xy$
 5210DEFPROCXz(Vd,Vj,Ve,YU$):LOCALWh,Xx:Vd!0=Vj:Vd!4=Ve:SYS&400CE,,Vd:Wh=Vd!(8+16):Xx=(Wh AND2^8)=2^8:IFXx THEN
 5290$(Vd!(8+20))=YU$
 5300ELSE:$(Vd+8+20)=YU$
 5320ENDIF:Vd!0=Vj:Vd!4=Ve:Vd!8=0:Vd!12=0:SYS&400CD,,Vd:ENDPROC
 5410DEFPROCVr(YV):SYS&400DC,YV:ENDPROC
 5460DEFFNWo(YW):YX$="":WHILE?YW>31:YX$+=CHR$?YW:YW+=1:ENDWHILE:=YX$
 5550DEFPROCVz(Vd,Wn$):$Vd=Wn$+CHR$0:SYS&400D9,,Vd:ENDPROC
 5610DEFFNWU(YY,YZ,Ya,Yb$):LOCALYc,Yd,Ye,Yf,Yg:SYS&400DB,,YY,YZ,Ya,-1,Yb$,0 TO,,Yc:Yd=YY!84:Ye=Yc:=Yc:Yf=0:WHILEYf<Yd:Yg=YY+88+Yf*32:IF(Yg!16 AND&103)=&102 THENYg!24=Yh
 5730Yf+=1:ENDWHILE:=Ye
 5780DEFFNWW(YY):LOCALVj:SYS&400C1,,YY TOVj:=Vj
 5840DEFPROCWX:SYS&400DA:ENDPROC
 5890DEFFNUz(Vf,Yi):LOCALWz:SYS&400C7,Yi,Vf TOWz:Yj=Wz:=Yj
 5960DEFFNYk(Yl):=((Yl+3) AND(NOT3))
 6000DEFPROCYm(Vd,Vj,Ve,Yn):Vd!0=Vj:Vd!4=Ve:Vd!8=(ABSYn)<<21:Vd!12=1<<21:SYS&400CD,,Vd:ENDPROC
 6090DEFPROCYo(Vd,Vj,Ve,Yp):Vd!0=Vj:Vd!4=Ve:Vd!8=(ABSYp)<<22:Vd!12=1<<22:SYS&400CD,,Vd:ENDPROC
 6180DEFFNYq(Vd,Vj,Ve):Vd!0=Vj:Vd!4=Ve:SYS&400CE,,Vd:Yr=(Vd!(8+16)) AND2^21:=NOT(Yr=2^21)
 6260DEFPROCYs(Vd,Vj,Ve):PROCYm(Vd,Vj,Ve,FNYq(Vd,Vj,Ve)):ENDPROC

<���:�:�" at Line ";�:�
Z
�UV:�UW:�
����UV:UX=4:UY=2:UZ=1:Ua=-2:Ub$="Wimp":Uc$="Wimp":Ud=2*1024 :�Ue Ud:Uf=2*1024 :�Ug Uf:Uh=2*1024 :�Ui Uh:Uj=2*1024 :�Uk Uj:Ul=2*1024 :�Um Ul:�Un 64:Uo=0:�Up(16,2):Uq=1:Ur= ��:Us=�Ut(2*100,Uc$):Uu=0:�Uv:Uw=�Ux(Ug):�
r��UW:�:Uy=�Uz(Ue,Uq):ȎUy �
��1:�VU(Ue)
��2:�VV(Ue,Ug,-1,�)
��3:�VW(Ug,Ue!0)
��6:�VX(Ue)
��7:�VY(Ue)
��8:�VZ(Ue)
��9:�Va(Ue)
��17:�Vb(Ue)
��18:�Vb(Ue)
��:�Ur:�Vc(Us):�
NiݤUx(Vd):Vd!0=-1:Vd!4=0:Vd!8=0:Vd!12=68:Vd!16=68:Vd!20=&3002:$(Vd+24)="!"+Ub$+�0:ș&400C2,,Vd �Ve:=Ve
�=��VX(Vf):Vg=Vf!0:Vh=Vf!4:Vi=Vf!8:Vj=Vf!12:Ve=Vf!16:ȎVi �
�UX:ȎVj �
!�Ua:�Ve=Uw ��VV(Ue,Ug,Vk, ��)
 �Vk:ȎVe �
*
�15:�7
4
�16:�7
>�
H�
R�UY:ȎVj �
\�Ua:�Ve=Uw ��Vl(Vg)
f�Vk:ȎVe �
p�17:�Vm(Vg,Vh)
z�
��
��
��UZ:ȎVj �
��Vk:ȎVe �
�
�15:�7
�
�16:�7
��
��
��:�
���Vb(Vf):ȎVf!16 �
�0:Ur=�
�2:�Vn(Vf)
$�3:�Vo(Vf)
.�:�
V,��VZ(Vf):Vj=Vf!0:Ve=Vf!4:Vp=Vf!24:ȎVj �
��Vk:�Ve=9 �Vp=13 �
��Vq
��
��:�Vr(Vp):�
�b��VU(Vf):ș&400C8,,Vf �Vs:Vt=Vf!4:Vu=Vf!16:Vv=Vf!8:Vw=Vf!20:Vx=Vf!24:ȕVs:ș&400CA,,Vf �Vs:�:�
Z���Uv:Vy=Uk:�Vz(Ug,"<"+Ub$+"$Dir>.Templates"):Vy=�WU(Ui,Vy,Uk+Uj,"information"):WV=�WW(Ui):Vy=�WU(Ui,Vy,Uk+Uj,"main"):Vk=�WW(Ui):�WX:�
�t��Vl(Vg):Uu=1:WY=0:WZ=Um+WY:�Wa(Ub$,128,44):�Wb("Info",0,WV, ��):�Wb("Quit",128,-1, ��):ș&400D4,,WZ,Vg-80,184:�
6���Vm(Vg,Vh):Uu=2:WY=0:Wc=Um+WY:�Wa("A Menu!",224,44):�Wb("Joe Satriani",1,-1, ��):�Wb("Steve Vai",2,-1, ��):�Wb("Dave Gilmour",0,-1, ��):�Wb("Jeff Beck",2,-1, ��):�Wb("Can't use!",128,-1,�):WZ=Um+WY:�Wa("A Menu!",200,44):�Wb("A Window",2,WV, ��)
�R�Wb("Guitarists",2,Wc, ��):�Wb("sdrawkcaB",128,-1, ��):ș&400D4,,WZ,Vg-80,Vh:�
���Wa(Wd$,We,Wf):$(Um+WY)=Wd$+�0:?(Um+WY+12)=7:?(Um+WY+13)=2:?(Um+WY+14)=7:?(Um+WY+15)=0:!(Um+WY+16)=We:!(Um+WY+20)=Wf:!(Um+WY+24)=0:WY+=28:�
�~��Wb(Wg$,Wh,Wi,Wj):!(Um+WY+0)=Wh:!(Um+WY+4)=Wi:!(Um+WY+8)=&07000001+�Wj*2^22:$(Um+WY+12)=Wg$+�0:�Uu=2 �Wg$<>"Can't use!" �
�(!(Um+WY+8)=((�(7)+4)<<24)+1+�Wj*2^22
��:WY+=24:�
���Wk:!(Um+WY+0)=128+4:!(Um+WY+4)=-1:!(Um+WY+8)=&07000101:!(Um+WY+12)=Un:!(Um+WY+16)=Un+32:!(Um+WY+20)=4:$(Un+0)=��+�0:$(Un+32)="A0-9.,\-"+�0:WY+=24:�
�@��Va(Vf):Wl=Vf!0:ș&400CF,,Vf:Vg=Vf!0:Vh=Vf!4:Vi=Vf!8:ȎUu �
�
�1:ȎWl �
��1:Ur=�
��
�	�2:�7
��:�Vi=UZ �
	
ȎUu �
	�1:�Vl(Vg)
	$�2:�Vm(Vg,Vh)
	.�
	8�:�Uu<>1 �Uu<>-1 �
	Lș&400D4,,-1:Uu=0
	`�
	j�:�
	�S��Vo(Vf):Wm=Vf!40:Wn$=�Wo(Vf+44):Wp=Vf!4:Vf!16=4:Vf!12=Vf!8:ș&400E7,17,Vf,Wp:�
	����VY(Vf):ș&400CF,,Vf:Vg=Vf!0:Vh=Vf!4:Vj=Vf!12:Ve=Vf!16:Wn$=�Wq(Ug,Wr,1):Ws$=�Wn$,10-��Wn$,10),".")):Vf!0=44+((�Ws$ �4)*4)+4:Vf!4=0:Vf!8=0:Vf!12=0:Vf!16=1:Vf!20=Vj:Vf!24=Ve:Vf!28=Vg:Vf!32=Vh:Vf!36=64:Vf!40=Wt:$(Vf+44)=Ws$+�0:ș&400E7,17,Vf,Vj:�
�`��Vn(Vf):Wp=Vf!4:Vf!12=Vf!8:Vf!16=3:Wn$=�Wo(Vf+44):ș&400E7,17,Vf,Wp:�Wn$,"Wimp$Scrap")=0 �
6�:ș&400D4,,-1:�
h�ݤWu(Vd,Vj,Ve):�We,Wf,Wv,Ww:Vd!0=4:Vd!4=5:Vd!8=11:Vd!12=12:Vd!16=-1:ș&31,Vd,Vd+32:We=(Vd!40+1)* 2^( Vd!32 ):Wf=(Vd!44+1)* 2^( Vd!36 ):Vd!0=Vj:ș&400CC,,Vd:Wv=Vd!4:Ww=Vd!16:Vd!0=Vj:Vd!4=Ve:ș&400CE,,Vd:Vd!8+=Wv:Vd!12+=Ww:Vd!16+=Wv:Vd!20+=Ww
CVd!0=0:Vd!4=5:Vd!24=0:Vd!28=0:Vd!32=We:Vd!36=Wf:ș&400D0,,Vd:=0
dEݤUt(Wx,Wy$):�Wz,XU:ș&400C0,Wx,&4B534154,Wy$+�0 �Wz,XU:XV=XU:=XV
�!��Vc(XV):ș&400DD,XV,"TASK":�
܆ݤXW(Vd,XX,Wd$,XY$,XZ,Xa):�Wh,XU,Xb:$Vd=Wd$+�0:Vd!32=XX:$(Vd+36)=XY$+�0:Wh=(�XZ*2^0)+(�Xa*2^1):ș&400DF,Vd+32,Wh,Vd �,XU:Xb=XU:=Xb
T��VV(Vf,Vd,Vj,Xc):� �Xc �
h$!Vd=Vj:ș&400CB,,Vd:ș&400C5,,Vd
�5�:!Vd=!Vf:ș&400CB,,Vd:Xd=Vd!28:Xe=Vf!28:�Xe=-1 �
�Ȏ!Vf �
��
��:ș&400C5,,Vf
��:�
&��VW(Vd,Vj):Vd!0=Vj:ș&400C6,,Vd:�
NS��Xf(Vd,Vj):�We,Wf,Xg,Xh,Xi,Xj:Vd!0=Vj:ș&400CC,,Vd:We=�Vd!52:�We>1000 �We=1000
�Wf=�Vd!48:�Wf>512 �Wf=512
��Vd!0=4:Vd!4=5:Vd!8=11:Vd!12=12:Vd!16=-1:ș&31,Vd,Vd+32:Xg=Vd!32:Xh=Vd!36:Xi=Vd!40:Xj=Vd!44:x=Xi* 2^Xg :y=Xj* 2^Xh:x=(x-We) �2:y=(y-Wf) �2:Vd!(0)=Vj:Vd!(4+0)=x:Vd!(4+4)=y:Vd!(4+8)=Vd!(4+0)+We:Vd!(4+12)=Vd!(4+4)+Wf:Vd!28=-1:ș&400C5,,Vd:�
*KݤXk(Vd,Vj):�Xl,Xm:Vd!0=Vj:ș&400CB,,Vd:Xl=Vd!32:Xm=(Xl �2^16)=2^16:=Xm
����Xn(Vd,Vj):�We,Wf,Xo,Xp:�Xq,Xr,Xs,Xt:Vd!0=Vj:ș&400CC,,Vd:We=Vd!12-Ug!4:Wf=Vd!16-Vd!8:Xo=Vd!20:Xp=Vd!24:Xq=Xo:Xt=Xp:Xs=Xt-Wf:Xr=Xq+We:ș&400D1,Vj,Xq,Xs,Xr,Xt:�
@��Xu(Vd,Vj,Ve):Vd!0=Vj:Vd!4=Ve:Vd!8=0:Vd!12=0:ș&400CD,,Vd:�
`-��Xv(Vj,Ve,Xw):ș&400D2,Vj,Ve,0,0,-1,Xw:�
�%��Vq:ș&400D2,-1,-1,-1,-1,-1,-1:�
�^ݤWq(Vd,Vj,Ve):�Wh,Xx,Xy$:Vd!0=Vj:Vd!4=Ve:ș&400CE,,Vd:Wh=Vd!(8+16):Xx=(Wh �2^8)=2^8:�Xx �
Xy$=�Wo(Vd!(8+20))
�:Xy$=�Wo(Vd+8+20)
2
�:=Xy$
Z^��Xz(Vd,Vj,Ve,YU$):�Wh,Xx:Vd!0=Vj:Vd!4=Ve:ș&400CE,,Vd:Wh=Vd!(8+16):Xx=(Wh �2^8)=2^8:�Xx �
�$(Vd!(8+20))=YU$
��:$(Vd+8+20)=YU$
�3�:Vd!0=Vj:Vd!4=Ve:Vd!8=0:Vd!12=0:ș&400CD,,Vd:�
"��Vr(YV):ș&400DC,YV:�
T3ݤWo(YW):YX$="":ȕ?YW>31:YX$+=�?YW:YW+=1:�:=YX$
�*��Vz(Vd,Wn$):$Vd=Wn$+�0:ș&400D9,,Vd:�
�ݤWU(YY,YZ,Ya,Yb$):�Yc,Yd,Ye,Yf,Yg:ș&400DB,,YY,YZ,Ya,-1,Yb$,0 �,,Yc:Yd=YY!84:Ye=Yc:=Yc:Yf=0:ȕYf<Yd:Yg=YY+88+Yf*32:�(Yg!16 �&103)=&102 �Yg!24=Yh
bYf+=1:�:=Ye
�%ݤWW(YY):�Vj:ș&400C1,,YY �Vj:=Vj
���WX:ș&400DA:�
0ݤUz(Vf,Yi):�Wz:ș&400C7,Yi,Vf �Wz:Yj=Wz:=Yj
HݤYk(Yl):=((Yl+3) �(�3))
pO��Ym(Vd,Vj,Ve,Yn):Vd!0=Vj:Vd!4=Ve:Vd!8=(�Yn)<<21:Vd!12=1<<21:ș&400CD,,Vd:�
�O��Yo(Vd,Vj,Ve,Yp):Vd!0=Vj:Vd!4=Ve:Vd!8=(�Yp)<<22:Vd!12=1<<22:ș&400CD,,Vd:�
$PݤYq(Vd,Vj,Ve):Vd!0=Vj:Vd!4=Ve:ș&400CE,,Vd:Yr=(Vd!(8+16)) �2^21:=�(Yr=2^21)
t0��Ys(Vd,Vj,Ve):�Ym(Vd,Vj,Ve,�Yq(Vd,Vj,Ve)):�
�

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 d7 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  24 3d 22 57 69 6d 70 22  |Ua=-2:Ub$="Wimp"|
00000050  3a 55 63 24 3d 22 57 69  6d 70 22 3a 55 64 3d 32  |:Uc$="Wimp":Ud=2|
00000060  2a 31 30 32 34 20 3a de  55 65 20 55 64 3a 55 66  |*1024 :.Ue Ud:Uf|
00000070  3d 32 2a 31 30 32 34 20  3a de 55 67 20 55 66 3a  |=2*1024 :.Ug Uf:|
00000080  55 68 3d 32 2a 31 30 32  34 20 3a de 55 69 20 55  |Uh=2*1024 :.Ui U|
00000090  68 3a 55 6a 3d 32 2a 31  30 32 34 20 3a de 55 6b  |h:Uj=2*1024 :.Uk|
000000a0  20 55 6a 3a 55 6c 3d 32  2a 31 30 32 34 20 3a de  | Uj:Ul=2*1024 :.|
000000b0  55 6d 20 55 6c 3a de 55  6e 20 36 34 3a 55 6f 3d  |Um Ul:.Un 64:Uo=|
000000c0  30 3a de 55 70 28 31 36  2c 32 29 3a 55 71 3d 31  |0:.Up(16,2):Uq=1|
000000d0  3a 55 72 3d 20 ac b9 3a  55 73 3d a4 55 74 28 32  |:Ur= ..:Us=.Ut(2|
000000e0  2a 31 30 30 2c 55 63 24  29 3a 55 75 3d 30 3a f2  |*100,Uc$):Uu=0:.|
000000f0  55 76 3a 55 77 3d a4 55  78 28 55 67 29 3a e1 0d  |Uv:Uw=.Ux(Ug):..|
00000100  01 72 1f dd f2 55 57 3a  f5 3a 55 79 3d a4 55 7a  |.r...UW:.:Uy=.Uz|
00000110  28 55 65 2c 55 71 29 3a  c8 8e 55 79 20 ca 0d 01  |(Ue,Uq):..Uy ...|
00000120  9a 0e c9 31 3a f2 56 55  28 55 65 29 0d 01 a4 16  |...1:.VU(Ue)....|
00000130  c9 32 3a f2 56 56 28 55  65 2c 55 67 2c 2d 31 2c  |.2:.VV(Ue,Ug,-1,|
00000140  b9 29 0d 01 ae 13 c9 33  3a f2 56 57 28 55 67 2c  |.).....3:.VW(Ug,|
00000150  55 65 21 30 29 0d 01 b8  0e c9 36 3a f2 56 58 28  |Ue!0).....6:.VX(|
00000160  55 65 29 0d 01 c2 0e c9  37 3a f2 56 59 28 55 65  |Ue).....7:.VY(Ue|
00000170  29 0d 01 cc 0e c9 38 3a  f2 56 5a 28 55 65 29 0d  |).....8:.VZ(Ue).|
00000180  01 d6 0e c9 39 3a f2 56  61 28 55 65 29 0d 01 e0  |....9:.Va(Ue)...|
00000190  0f c9 31 37 3a f2 56 62  28 55 65 29 0d 01 ea 0f  |..17:.Vb(Ue)....|
000001a0  c9 31 38 3a f2 56 62 28  55 65 29 0d 01 f4 13 cb  |.18:.Vb(Ue).....|
000001b0  3a fd 55 72 3a f2 56 63  28 55 73 29 3a e1 0d 02  |:.Ur:.Vc(Us):...|
000001c0  4e 69 dd a4 55 78 28 56  64 29 3a 56 64 21 30 3d  |Ni..Ux(Vd):Vd!0=|
000001d0  2d 31 3a 56 64 21 34 3d  30 3a 56 64 21 38 3d 30  |-1:Vd!4=0:Vd!8=0|
000001e0  3a 56 64 21 31 32 3d 36  38 3a 56 64 21 31 36 3d  |:Vd!12=68:Vd!16=|
000001f0  36 38 3a 56 64 21 32 30  3d 26 33 30 30 32 3a 24  |68:Vd!20=&3002:$|
00000200  28 56 64 2b 32 34 29 3d  22 21 22 2b 55 62 24 2b  |(Vd+24)="!"+Ub$+|
00000210  bd 30 3a c8 99 26 34 30  30 43 32 2c 2c 56 64 20  |.0:..&400C2,,Vd |
00000220  b8 56 65 3a 3d 56 65 0d  02 c6 3d dd f2 56 58 28  |.Ve:=Ve...=..VX(|
00000230  56 66 29 3a 56 67 3d 56  66 21 30 3a 56 68 3d 56  |Vf):Vg=Vf!0:Vh=V|
00000240  66 21 34 3a 56 69 3d 56  66 21 38 3a 56 6a 3d 56  |f!4:Vi=Vf!8:Vj=V|
00000250  66 21 31 32 3a 56 65 3d  56 66 21 31 36 3a c8 8e  |f!12:Ve=Vf!16:..|
00000260  56 69 20 ca 0d 03 0c 0e  c9 55 58 3a c8 8e 56 6a  |Vi ......UX:..Vj|
00000270  20 ca 0d 03 16 21 c9 55  61 3a e7 56 65 3d 55 77  | ....!.Ua:.Ve=Uw|
00000280  20 8c f2 56 56 28 55 65  2c 55 67 2c 56 6b 2c 20  | ..VV(Ue,Ug,Vk, |
00000290  ac b9 29 0d 03 20 0e c9  56 6b 3a c8 8e 56 65 20  |..).. ..Vk:..Ve |
000002a0  ca 0d 03 2a 0a c9 31 35  3a ef 37 0d 03 34 0a c9  |...*..15:.7..4..|
000002b0  31 36 3a ef 37 0d 03 3e  05 cb 0d 03 48 05 cb 0d  |16:.7..>....H...|
000002c0  03 52 0e c9 55 59 3a c8  8e 56 6a 20 ca 0d 03 5c  |.R..UY:..Vj ...\|
000002d0  17 c9 55 61 3a e7 56 65  3d 55 77 20 8c f2 56 6c  |..Ua:.Ve=Uw ..Vl|
000002e0  28 56 67 29 0d 03 66 0e  c9 56 6b 3a c8 8e 56 65  |(Vg)..f..Vk:..Ve|
000002f0  20 ca 0d 03 70 12 c9 31  37 3a f2 56 6d 28 56 67  | ...p..17:.Vm(Vg|
00000300  2c 56 68 29 0d 03 7a 05  cb 0d 03 84 05 cb 0d 03  |,Vh)..z.........|
00000310  8e 05 cb 0d 03 98 0e c9  55 5a 3a c8 8e 56 6a 20  |........UZ:..Vj |
00000320  ca 0d 03 a2 0e c9 56 6b  3a c8 8e 56 65 20 ca 0d  |......Vk:..Ve ..|
00000330  03 ac 0a c9 31 35 3a ef  37 0d 03 b6 0a c9 31 36  |....15:.7.....16|
00000340  3a ef 37 0d 03 c0 05 cb  0d 03 ca 05 cb 0d 03 d4  |:.7.............|
00000350  07 cb 3a e1 0d 03 fc 16  dd f2 56 62 28 56 66 29  |..:.......Vb(Vf)|
00000360  3a c8 8e 56 66 21 31 36  20 ca 0d 04 10 0b c9 30  |:..Vf!16 ......0|
00000370  3a 55 72 3d b9 0d 04 1a  0e c9 32 3a f2 56 6e 28  |:Ur=......2:.Vn(|
00000380  56 66 29 0d 04 24 0e c9  33 3a f2 56 6f 28 56 66  |Vf)..$..3:.Vo(Vf|
00000390  29 0d 04 2e 07 cb 3a e1  0d 04 56 2c dd f2 56 5a  |).....:...V,..VZ|
000003a0  28 56 66 29 3a 56 6a 3d  56 66 21 30 3a 56 65 3d  |(Vf):Vj=Vf!0:Ve=|
000003b0  56 66 21 34 3a 56 70 3d  56 66 21 32 34 3a c8 8e  |Vf!4:Vp=Vf!24:..|
000003c0  56 6a 20 ca 0d 04 88 16  c9 56 6b 3a e7 56 65 3d  |Vj ......Vk:.Ve=|
000003d0  39 20 80 56 70 3d 31 33  20 8c 0d 04 92 07 f2 56  |9 .Vp=13 ......V|
000003e0  71 0d 04 9c 05 cd 0d 04  a6 0f cb 3a f2 56 72 28  |q..........:.Vr(|
000003f0  56 70 29 3a e1 0d 04 d8  62 dd f2 56 55 28 56 66  |Vp):....b..VU(Vf|
00000400  29 3a c8 99 26 34 30 30  43 38 2c 2c 56 66 20 b8  |):..&400C8,,Vf .|
00000410  56 73 3a 56 74 3d 56 66  21 34 3a 56 75 3d 56 66  |Vs:Vt=Vf!4:Vu=Vf|
00000420  21 31 36 3a 56 76 3d 56  66 21 38 3a 56 77 3d 56  |!16:Vv=Vf!8:Vw=V|
00000430  66 21 32 30 3a 56 78 3d  56 66 21 32 34 3a c8 95  |f!20:Vx=Vf!24:..|
00000440  56 73 3a c8 99 26 34 30  30 43 41 2c 2c 56 66 20  |Vs:..&400CA,,Vf |
00000450  b8 56 73 3a ce 3a e1 0d  05 5a 89 dd f2 55 76 3a  |.Vs:.:...Z...Uv:|
00000460  56 79 3d 55 6b 3a f2 56  7a 28 55 67 2c 22 3c 22  |Vy=Uk:.Vz(Ug,"<"|
00000470  2b 55 62 24 2b 22 24 44  69 72 3e 2e 54 65 6d 70  |+Ub$+"$Dir>.Temp|
00000480  6c 61 74 65 73 22 29 3a  56 79 3d a4 57 55 28 55  |lates"):Vy=.WU(U|
00000490  69 2c 56 79 2c 55 6b 2b  55 6a 2c 22 69 6e 66 6f  |i,Vy,Uk+Uj,"info|
000004a0  72 6d 61 74 69 6f 6e 22  29 3a 57 56 3d a4 57 57  |rmation"):WV=.WW|
000004b0  28 55 69 29 3a 56 79 3d  a4 57 55 28 55 69 2c 56  |(Ui):Vy=.WU(Ui,V|
000004c0  79 2c 55 6b 2b 55 6a 2c  22 6d 61 69 6e 22 29 3a  |y,Uk+Uj,"main"):|
000004d0  56 6b 3d a4 57 57 28 55  69 29 3a f2 57 58 3a e1  |Vk=.WW(Ui):.WX:.|
000004e0  0d 05 c8 74 dd f2 56 6c  28 56 67 29 3a 55 75 3d  |...t..Vl(Vg):Uu=|
000004f0  31 3a 57 59 3d 30 3a 57  5a 3d 55 6d 2b 57 59 3a  |1:WY=0:WZ=Um+WY:|
00000500  f2 57 61 28 55 62 24 2c  31 32 38 2c 34 34 29 3a  |.Wa(Ub$,128,44):|
00000510  f2 57 62 28 22 49 6e 66  6f 22 2c 30 2c 57 56 2c  |.Wb("Info",0,WV,|
00000520  20 ac b9 29 3a f2 57 62  28 22 51 75 69 74 22 2c  | ..):.Wb("Quit",|
00000530  31 32 38 2c 2d 31 2c 20  ac b9 29 3a c8 99 26 34  |128,-1, ..):..&4|
00000540  30 30 44 34 2c 2c 57 5a  2c 56 67 2d 38 30 2c 31  |00D4,,WZ,Vg-80,1|
00000550  38 34 3a e1 0d 06 36 f9  dd f2 56 6d 28 56 67 2c  |84:...6...Vm(Vg,|
00000560  56 68 29 3a 55 75 3d 32  3a 57 59 3d 30 3a 57 63  |Vh):Uu=2:WY=0:Wc|
00000570  3d 55 6d 2b 57 59 3a f2  57 61 28 22 41 20 4d 65  |=Um+WY:.Wa("A Me|
00000580  6e 75 21 22 2c 32 32 34  2c 34 34 29 3a f2 57 62  |nu!",224,44):.Wb|
00000590  28 22 4a 6f 65 20 53 61  74 72 69 61 6e 69 22 2c  |("Joe Satriani",|
000005a0  31 2c 2d 31 2c 20 ac b9  29 3a f2 57 62 28 22 53  |1,-1, ..):.Wb("S|
000005b0  74 65 76 65 20 56 61 69  22 2c 32 2c 2d 31 2c 20  |teve Vai",2,-1, |
000005c0  ac b9 29 3a f2 57 62 28  22 44 61 76 65 20 47 69  |..):.Wb("Dave Gi|
000005d0  6c 6d 6f 75 72 22 2c 30  2c 2d 31 2c 20 ac b9 29  |lmour",0,-1, ..)|
000005e0  3a f2 57 62 28 22 4a 65  66 66 20 42 65 63 6b 22  |:.Wb("Jeff Beck"|
000005f0  2c 32 2c 2d 31 2c 20 ac  b9 29 3a f2 57 62 28 22  |,2,-1, ..):.Wb("|
00000600  43 61 6e 27 74 20 75 73  65 21 22 2c 31 32 38 2c  |Can't use!",128,|
00000610  2d 31 2c b9 29 3a 57 5a  3d 55 6d 2b 57 59 3a f2  |-1,.):WZ=Um+WY:.|
00000620  57 61 28 22 41 20 4d 65  6e 75 21 22 2c 32 30 30  |Wa("A Menu!",200|
00000630  2c 34 34 29 3a f2 57 62  28 22 41 20 57 69 6e 64  |,44):.Wb("A Wind|
00000640  6f 77 22 2c 32 2c 57 56  2c 20 ac b9 29 0d 06 cc  |ow",2,WV, ..)...|
00000650  52 f2 57 62 28 22 47 75  69 74 61 72 69 73 74 73  |R.Wb("Guitarists|
00000660  22 2c 32 2c 57 63 2c 20  ac b9 29 3a f2 57 62 28  |",2,Wc, ..):.Wb(|
00000670  22 73 64 72 61 77 6b 63  61 42 22 2c 31 32 38 2c  |"sdrawkcaB",128,|
00000680  2d 31 2c 20 ac b9 29 3a  c8 99 26 34 30 30 44 34  |-1, ..):..&400D4|
00000690  2c 2c 57 5a 2c 56 67 2d  38 30 2c 56 68 3a e1 0d  |,,WZ,Vg-80,Vh:..|
000006a0  07 12 90 dd f2 57 61 28  57 64 24 2c 57 65 2c 57  |.....Wa(Wd$,We,W|
000006b0  66 29 3a 24 28 55 6d 2b  57 59 29 3d 57 64 24 2b  |f):$(Um+WY)=Wd$+|
000006c0  bd 30 3a 3f 28 55 6d 2b  57 59 2b 31 32 29 3d 37  |.0:?(Um+WY+12)=7|
000006d0  3a 3f 28 55 6d 2b 57 59  2b 31 33 29 3d 32 3a 3f  |:?(Um+WY+13)=2:?|
000006e0  28 55 6d 2b 57 59 2b 31  34 29 3d 37 3a 3f 28 55  |(Um+WY+14)=7:?(U|
000006f0  6d 2b 57 59 2b 31 35 29  3d 30 3a 21 28 55 6d 2b  |m+WY+15)=0:!(Um+|
00000700  57 59 2b 31 36 29 3d 57  65 3a 21 28 55 6d 2b 57  |WY+16)=We:!(Um+W|
00000710  59 2b 32 30 29 3d 57 66  3a 21 28 55 6d 2b 57 59  |Y+20)=Wf:!(Um+WY|
00000720  2b 32 34 29 3d 30 3a 57  59 2b 3d 32 38 3a e1 0d  |+24)=0:WY+=28:..|
00000730  07 94 7e dd f2 57 62 28  57 67 24 2c 57 68 2c 57  |..~..Wb(Wg$,Wh,W|
00000740  69 2c 57 6a 29 3a 21 28  55 6d 2b 57 59 2b 30 29  |i,Wj):!(Um+WY+0)|
00000750  3d 57 68 3a 21 28 55 6d  2b 57 59 2b 34 29 3d 57  |=Wh:!(Um+WY+4)=W|
00000760  69 3a 21 28 55 6d 2b 57  59 2b 38 29 3d 26 30 37  |i:!(Um+WY+8)=&07|
00000770  30 30 30 30 30 31 2b 94  57 6a 2a 32 5e 32 32 3a  |000001+.Wj*2^22:|
00000780  24 28 55 6d 2b 57 59 2b  31 32 29 3d 57 67 24 2b  |$(Um+WY+12)=Wg$+|
00000790  bd 30 3a e7 55 75 3d 32  20 80 57 67 24 3c 3e 22  |.0:.Uu=2 .Wg$<>"|
000007a0  43 61 6e 27 74 20 75 73  65 21 22 20 8c 0d 07 d0  |Can't use!" ....|
000007b0  28 21 28 55 6d 2b 57 59  2b 38 29 3d 28 28 b3 28  |(!(Um+WY+8)=((.(|
000007c0  37 29 2b 34 29 3c 3c 32  34 29 2b 31 2b 94 57 6a  |7)+4)<<24)+1+.Wj|
000007d0  2a 32 5e 32 32 0d 07 da  0e cd 3a 57 59 2b 3d 32  |*2^22.....:WY+=2|
000007e0  34 3a e1 0d 08 0c 99 dd  f2 57 6b 3a 21 28 55 6d  |4:.......Wk:!(Um|
000007f0  2b 57 59 2b 30 29 3d 31  32 38 2b 34 3a 21 28 55  |+WY+0)=128+4:!(U|
00000800  6d 2b 57 59 2b 34 29 3d  2d 31 3a 21 28 55 6d 2b  |m+WY+4)=-1:!(Um+|
00000810  57 59 2b 38 29 3d 26 30  37 30 30 30 31 30 31 3a  |WY+8)=&07000101:|
00000820  21 28 55 6d 2b 57 59 2b  31 32 29 3d 55 6e 3a 21  |!(Um+WY+12)=Un:!|
00000830  28 55 6d 2b 57 59 2b 31  36 29 3d 55 6e 2b 33 32  |(Um+WY+16)=Un+32|
00000840  3a 21 28 55 6d 2b 57 59  2b 32 30 29 3d 34 3a 24  |:!(Um+WY+20)=4:$|
00000850  28 55 6e 2b 30 29 3d c3  eb 2b bd 30 3a 24 28 55  |(Un+0)=..+.0:$(U|
00000860  6e 2b 33 32 29 3d 22 41  30 2d 39 2e 2c 5c 2d 22  |n+32)="A0-9.,\-"|
00000870  2b bd 30 3a 57 59 2b 3d  32 34 3a e1 0d 08 8e 40  |+.0:WY+=24:....@|
00000880  dd f2 56 61 28 56 66 29  3a 57 6c 3d 56 66 21 30  |..Va(Vf):Wl=Vf!0|
00000890  3a c8 99 26 34 30 30 43  46 2c 2c 56 66 3a 56 67  |:..&400CF,,Vf:Vg|
000008a0  3d 56 66 21 30 3a 56 68  3d 56 66 21 34 3a 56 69  |=Vf!0:Vh=Vf!4:Vi|
000008b0  3d 56 66 21 38 3a c8 8e  55 75 20 ca 0d 08 d4 0d  |=Vf!8:..Uu .....|
000008c0  c9 31 3a c8 8e 57 6c 20  ca 0d 08 de 0b c9 31 3a  |.1:..Wl ......1:|
000008d0  55 72 3d b9 0d 08 e8 05  cb 0d 08 f2 09 c9 32 3a  |Ur=...........2:|
000008e0  ef 37 0d 08 fc 0e cb 3a  e7 56 69 3d 55 5a 20 8c  |.7.....:.Vi=UZ .|
000008f0  0d 09 10 0a c8 8e 55 75  20 ca 0d 09 1a 0e c9 31  |......Uu ......1|
00000900  3a f2 56 6c 28 56 67 29  0d 09 24 11 c9 32 3a f2  |:.Vl(Vg)..$..2:.|
00000910  56 6d 28 56 67 2c 56 68  29 0d 09 2e 05 cb 0d 09  |Vm(Vg,Vh).......|
00000920  38 16 cc 3a e7 55 75 3c  3e 31 20 80 55 75 3c 3e  |8..:.Uu<>1 .Uu<>|
00000930  2d 31 20 8c 0d 09 4c 15  c8 99 26 34 30 30 44 34  |-1 ...L...&400D4|
00000940  2c 2c 2d 31 3a 55 75 3d  30 0d 09 60 05 cd 0d 09  |,,-1:Uu=0..`....|
00000950  6a 07 cd 3a e1 0d 09 92  53 dd f2 56 6f 28 56 66  |j..:....S..Vo(Vf|
00000960  29 3a 57 6d 3d 56 66 21  34 30 3a 57 6e 24 3d a4  |):Wm=Vf!40:Wn$=.|
00000970  57 6f 28 56 66 2b 34 34  29 3a 57 70 3d 56 66 21  |Wo(Vf+44):Wp=Vf!|
00000980  34 3a 56 66 21 31 36 3d  34 3a 56 66 21 31 32 3d  |4:Vf!16=4:Vf!12=|
00000990  56 66 21 38 3a c8 99 26  34 30 30 45 37 2c 31 37  |Vf!8:..&400E7,17|
000009a0  2c 56 66 2c 57 70 3a e1  0d 09 f6 f8 dd f2 56 59  |,Vf,Wp:.......VY|
000009b0  28 56 66 29 3a c8 99 26  34 30 30 43 46 2c 2c 56  |(Vf):..&400CF,,V|
000009c0  66 3a 56 67 3d 56 66 21  30 3a 56 68 3d 56 66 21  |f:Vg=Vf!0:Vh=Vf!|
000009d0  34 3a 56 6a 3d 56 66 21  31 32 3a 56 65 3d 56 66  |4:Vj=Vf!12:Ve=Vf|
000009e0  21 31 36 3a 57 6e 24 3d  a4 57 71 28 55 67 2c 57  |!16:Wn$=.Wq(Ug,W|
000009f0  72 2c 31 29 3a 57 73 24  3d c2 57 6e 24 2c 31 30  |r,1):Ws$=.Wn$,10|
00000a00  2d a7 c2 57 6e 24 2c 31  30 29 2c 22 2e 22 29 29  |-..Wn$,10),"."))|
00000a10  3a 56 66 21 30 3d 34 34  2b 28 28 a9 57 73 24 20  |:Vf!0=44+((.Ws$ |
00000a20  81 34 29 2a 34 29 2b 34  3a 56 66 21 34 3d 30 3a  |.4)*4)+4:Vf!4=0:|
00000a30  56 66 21 38 3d 30 3a 56  66 21 31 32 3d 30 3a 56  |Vf!8=0:Vf!12=0:V|
00000a40  66 21 31 36 3d 31 3a 56  66 21 32 30 3d 56 6a 3a  |f!16=1:Vf!20=Vj:|
00000a50  56 66 21 32 34 3d 56 65  3a 56 66 21 32 38 3d 56  |Vf!24=Ve:Vf!28=V|
00000a60  67 3a 56 66 21 33 32 3d  56 68 3a 56 66 21 33 36  |g:Vf!32=Vh:Vf!36|
00000a70  3d 36 34 3a 56 66 21 34  30 3d 57 74 3a 24 28 56  |=64:Vf!40=Wt:$(V|
00000a80  66 2b 34 34 29 3d 57 73  24 2b bd 30 3a c8 99 26  |f+44)=Ws$+.0:..&|
00000a90  34 30 30 45 37 2c 31 37  2c 56 66 2c 56 6a 3a e1  |400E7,17,Vf,Vj:.|
00000aa0  0d 0a e6 60 dd f2 56 6e  28 56 66 29 3a 57 70 3d  |...`..Vn(Vf):Wp=|
00000ab0  56 66 21 34 3a 56 66 21  31 32 3d 56 66 21 38 3a  |Vf!4:Vf!12=Vf!8:|
00000ac0  56 66 21 31 36 3d 33 3a  57 6e 24 3d a4 57 6f 28  |Vf!16=3:Wn$=.Wo(|
00000ad0  56 66 2b 34 34 29 3a c8  99 26 34 30 30 45 37 2c  |Vf+44):..&400E7,|
00000ae0  31 37 2c 56 66 2c 57 70  3a e7 a7 57 6e 24 2c 22  |17,Vf,Wp:..Wn$,"|
00000af0  57 69 6d 70 24 53 63 72  61 70 22 29 3d 30 20 8c  |Wimp$Scrap")=0 .|
00000b00  0d 0b 36 14 cd 3a c8 99  26 34 30 30 44 34 2c 2c  |..6..:..&400D4,,|
00000b10  2d 31 3a e1 0d 0b 68 f4  dd a4 57 75 28 56 64 2c  |-1:...h...Wu(Vd,|
00000b20  56 6a 2c 56 65 29 3a ea  57 65 2c 57 66 2c 57 76  |Vj,Ve):.We,Wf,Wv|
00000b30  2c 57 77 3a 56 64 21 30  3d 34 3a 56 64 21 34 3d  |,Ww:Vd!0=4:Vd!4=|
00000b40  35 3a 56 64 21 38 3d 31  31 3a 56 64 21 31 32 3d  |5:Vd!8=11:Vd!12=|
00000b50  31 32 3a 56 64 21 31 36  3d 2d 31 3a c8 99 26 33  |12:Vd!16=-1:..&3|
00000b60  31 2c 56 64 2c 56 64 2b  33 32 3a 57 65 3d 28 56  |1,Vd,Vd+32:We=(V|
00000b70  64 21 34 30 2b 31 29 2a  20 32 5e 28 20 56 64 21  |d!40+1)* 2^( Vd!|
00000b80  33 32 20 29 3a 57 66 3d  28 56 64 21 34 34 2b 31  |32 ):Wf=(Vd!44+1|
00000b90  29 2a 20 32 5e 28 20 56  64 21 33 36 20 29 3a 56  |)* 2^( Vd!36 ):V|
00000ba0  64 21 30 3d 56 6a 3a c8  99 26 34 30 30 43 43 2c  |d!0=Vj:..&400CC,|
00000bb0  2c 56 64 3a 57 76 3d 56  64 21 34 3a 57 77 3d 56  |,Vd:Wv=Vd!4:Ww=V|
00000bc0  64 21 31 36 3a 56 64 21  30 3d 56 6a 3a 56 64 21  |d!16:Vd!0=Vj:Vd!|
00000bd0  34 3d 56 65 3a c8 99 26  34 30 30 43 45 2c 2c 56  |4=Ve:..&400CE,,V|
00000be0  64 3a 56 64 21 38 2b 3d  57 76 3a 56 64 21 31 32  |d:Vd!8+=Wv:Vd!12|
00000bf0  2b 3d 57 77 3a 56 64 21  31 36 2b 3d 57 76 3a 56  |+=Ww:Vd!16+=Wv:V|
00000c00  64 21 32 30 2b 3d 57 77  0d 0c 12 43 56 64 21 30  |d!20+=Ww...CVd!0|
00000c10  3d 30 3a 56 64 21 34 3d  35 3a 56 64 21 32 34 3d  |=0:Vd!4=5:Vd!24=|
00000c20  30 3a 56 64 21 32 38 3d  30 3a 56 64 21 33 32 3d  |0:Vd!28=0:Vd!32=|
00000c30  57 65 3a 56 64 21 33 36  3d 57 66 3a c8 99 26 34  |We:Vd!36=Wf:..&4|
00000c40  30 30 44 30 2c 2c 56 64  3a 3d 30 0d 0f 64 45 dd  |00D0,,Vd:=0..dE.|
00000c50  a4 55 74 28 57 78 2c 57  79 24 29 3a ea 57 7a 2c  |.Ut(Wx,Wy$):.Wz,|
00000c60  58 55 3a c8 99 26 34 30  30 43 30 2c 57 78 2c 26  |XU:..&400C0,Wx,&|
00000c70  34 42 35 33 34 31 35 34  2c 57 79 24 2b bd 30 20  |4B534154,Wy$+.0 |
00000c80  b8 57 7a 2c 58 55 3a 58  56 3d 58 55 3a 3d 58 56  |.Wz,XU:XV=XU:=XV|
00000c90  0d 0f aa 21 dd f2 56 63  28 58 56 29 3a c8 99 26  |...!..Vc(XV):..&|
00000ca0  34 30 30 44 44 2c 58 56  2c 22 54 41 53 4b 22 3a  |400DD,XV,"TASK":|
00000cb0  e1 0d 0f dc 86 dd a4 58  57 28 56 64 2c 58 58 2c  |.......XW(Vd,XX,|
00000cc0  57 64 24 2c 58 59 24 2c  58 5a 2c 58 61 29 3a ea  |Wd$,XY$,XZ,Xa):.|
00000cd0  57 68 2c 58 55 2c 58 62  3a 24 56 64 3d 57 64 24  |Wh,XU,Xb:$Vd=Wd$|
00000ce0  2b bd 30 3a 56 64 21 33  32 3d 58 58 3a 24 28 56  |+.0:Vd!32=XX:$(V|
00000cf0  64 2b 33 36 29 3d 58 59  24 2b bd 30 3a 57 68 3d  |d+36)=XY$+.0:Wh=|
00000d00  28 94 58 5a 2a 32 5e 30  29 2b 28 94 58 61 2a 32  |(.XZ*2^0)+(.Xa*2|
00000d10  5e 31 29 3a c8 99 26 34  30 30 44 46 2c 56 64 2b  |^1):..&400DF,Vd+|
00000d20  33 32 2c 57 68 2c 56 64  20 b8 2c 58 55 3a 58 62  |32,Wh,Vd .,XU:Xb|
00000d30  3d 58 55 3a 3d 58 62 0d  10 54 1d dd f2 56 56 28  |=XU:=Xb..T...VV(|
00000d40  56 66 2c 56 64 2c 56 6a  2c 58 63 29 3a e7 20 ac  |Vf,Vd,Vj,Xc):. .|
00000d50  58 63 20 8c 0d 10 68 24  21 56 64 3d 56 6a 3a c8  |Xc ...h$!Vd=Vj:.|
00000d60  99 26 34 30 30 43 42 2c  2c 56 64 3a c8 99 26 34  |.&400CB,,Vd:..&4|
00000d70  30 30 43 35 2c 2c 56 64  0d 10 86 35 cc 3a 21 56  |00C5,,Vd...5.:!V|
00000d80  64 3d 21 56 66 3a c8 99  26 34 30 30 43 42 2c 2c  |d=!Vf:..&400CB,,|
00000d90  56 64 3a 58 64 3d 56 64  21 32 38 3a 58 65 3d 56  |Vd:Xd=Vd!28:Xe=V|
00000da0  66 21 32 38 3a e7 58 65  3d 2d 31 20 8c 0d 10 c2  |f!28:.Xe=-1 ....|
00000db0  0b c8 8e 21 56 66 20 ca  0d 10 cc 05 cb 0d 10 d6  |...!Vf .........|
00000dc0  12 cd 3a c8 99 26 34 30  30 43 35 2c 2c 56 66 0d  |..:..&400C5,,Vf.|
00000dd0  10 ea 07 cd 3a e1 0d 11  12 26 dd f2 56 57 28 56  |....:....&..VW(V|
00000de0  64 2c 56 6a 29 3a 56 64  21 30 3d 56 6a 3a c8 99  |d,Vj):Vd!0=Vj:..|
00000df0  26 34 30 30 43 36 2c 2c  56 64 3a e1 0d 11 4e 53  |&400C6,,Vd:...NS|
00000e00  dd f2 58 66 28 56 64 2c  56 6a 29 3a ea 57 65 2c  |..Xf(Vd,Vj):.We,|
00000e10  57 66 2c 58 67 2c 58 68  2c 58 69 2c 58 6a 3a 56  |Wf,Xg,Xh,Xi,Xj:V|
00000e20  64 21 30 3d 56 6a 3a c8  99 26 34 30 30 43 43 2c  |d!0=Vj:..&400CC,|
00000e30  2c 56 64 3a 57 65 3d 94  56 64 21 35 32 3a e7 57  |,Vd:We=.Vd!52:.W|
00000e40  65 3e 31 30 30 30 20 8c  57 65 3d 31 30 30 30 0d  |e>1000 .We=1000.|
00000e50  11 80 1d 57 66 3d 94 56  64 21 34 38 3a e7 57 66  |...Wf=.Vd!48:.Wf|
00000e60  3e 35 31 32 20 8c 57 66  3d 35 31 32 0d 11 8a f0  |>512 .Wf=512....|
00000e70  56 64 21 30 3d 34 3a 56  64 21 34 3d 35 3a 56 64  |Vd!0=4:Vd!4=5:Vd|
00000e80  21 38 3d 31 31 3a 56 64  21 31 32 3d 31 32 3a 56  |!8=11:Vd!12=12:V|
00000e90  64 21 31 36 3d 2d 31 3a  c8 99 26 33 31 2c 56 64  |d!16=-1:..&31,Vd|
00000ea0  2c 56 64 2b 33 32 3a 58  67 3d 56 64 21 33 32 3a  |,Vd+32:Xg=Vd!32:|
00000eb0  58 68 3d 56 64 21 33 36  3a 58 69 3d 56 64 21 34  |Xh=Vd!36:Xi=Vd!4|
00000ec0  30 3a 58 6a 3d 56 64 21  34 34 3a 78 3d 58 69 2a  |0:Xj=Vd!44:x=Xi*|
00000ed0  20 32 5e 58 67 20 3a 79  3d 58 6a 2a 20 32 5e 58  | 2^Xg :y=Xj* 2^X|
00000ee0  68 3a 78 3d 28 78 2d 57  65 29 20 81 32 3a 79 3d  |h:x=(x-We) .2:y=|
00000ef0  28 79 2d 57 66 29 20 81  32 3a 56 64 21 28 30 29  |(y-Wf) .2:Vd!(0)|
00000f00  3d 56 6a 3a 56 64 21 28  34 2b 30 29 3d 78 3a 56  |=Vj:Vd!(4+0)=x:V|
00000f10  64 21 28 34 2b 34 29 3d  79 3a 56 64 21 28 34 2b  |d!(4+4)=y:Vd!(4+|
00000f20  38 29 3d 56 64 21 28 34  2b 30 29 2b 57 65 3a 56  |8)=Vd!(4+0)+We:V|
00000f30  64 21 28 34 2b 31 32 29  3d 56 64 21 28 34 2b 34  |d!(4+12)=Vd!(4+4|
00000f40  29 2b 57 66 3a 56 64 21  32 38 3d 2d 31 3a c8 99  |)+Wf:Vd!28=-1:..|
00000f50  26 34 30 30 43 35 2c 2c  56 64 3a e1 0d 12 2a 4b  |&400C5,,Vd:...*K|
00000f60  dd a4 58 6b 28 56 64 2c  56 6a 29 3a ea 58 6c 2c  |..Xk(Vd,Vj):.Xl,|
00000f70  58 6d 3a 56 64 21 30 3d  56 6a 3a c8 99 26 34 30  |Xm:Vd!0=Vj:..&40|
00000f80  30 43 42 2c 2c 56 64 3a  58 6c 3d 56 64 21 33 32  |0CB,,Vd:Xl=Vd!32|
00000f90  3a 58 6d 3d 28 58 6c 20  80 32 5e 31 36 29 3d 32  |:Xm=(Xl .2^16)=2|
00000fa0  5e 31 36 3a 3d 58 6d 0d  12 84 a4 dd f2 58 6e 28  |^16:=Xm......Xn(|
00000fb0  56 64 2c 56 6a 29 3a ea  57 65 2c 57 66 2c 58 6f  |Vd,Vj):.We,Wf,Xo|
00000fc0  2c 58 70 3a ea 58 71 2c  58 72 2c 58 73 2c 58 74  |,Xp:.Xq,Xr,Xs,Xt|
00000fd0  3a 56 64 21 30 3d 56 6a  3a c8 99 26 34 30 30 43  |:Vd!0=Vj:..&400C|
00000fe0  43 2c 2c 56 64 3a 57 65  3d 56 64 21 31 32 2d 55  |C,,Vd:We=Vd!12-U|
00000ff0  67 21 34 3a 57 66 3d 56  64 21 31 36 2d 56 64 21  |g!4:Wf=Vd!16-Vd!|
00001000  38 3a 58 6f 3d 56 64 21  32 30 3a 58 70 3d 56 64  |8:Xo=Vd!20:Xp=Vd|
00001010  21 32 34 3a 58 71 3d 58  6f 3a 58 74 3d 58 70 3a  |!24:Xq=Xo:Xt=Xp:|
00001020  58 73 3d 58 74 2d 57 66  3a 58 72 3d 58 71 2b 57  |Xs=Xt-Wf:Xr=Xq+W|
00001030  65 3a c8 99 26 34 30 30  44 31 2c 56 6a 2c 58 71  |e:..&400D1,Vj,Xq|
00001040  2c 58 73 2c 58 72 2c 58  74 3a e1 0d 13 06 40 dd  |,Xs,Xr,Xt:....@.|
00001050  f2 58 75 28 56 64 2c 56  6a 2c 56 65 29 3a 56 64  |.Xu(Vd,Vj,Ve):Vd|
00001060  21 30 3d 56 6a 3a 56 64  21 34 3d 56 65 3a 56 64  |!0=Vj:Vd!4=Ve:Vd|
00001070  21 38 3d 30 3a 56 64 21  31 32 3d 30 3a c8 99 26  |!8=0:Vd!12=0:..&|
00001080  34 30 30 43 44 2c 2c 56  64 3a e1 0d 13 60 2d dd  |400CD,,Vd:...`-.|
00001090  f2 58 76 28 56 6a 2c 56  65 2c 58 77 29 3a c8 99  |.Xv(Vj,Ve,Xw):..|
000010a0  26 34 30 30 44 32 2c 56  6a 2c 56 65 2c 30 2c 30  |&400D2,Vj,Ve,0,0|
000010b0  2c 2d 31 2c 58 77 3a e1  0d 13 92 25 dd f2 56 71  |,-1,Xw:....%..Vq|
000010c0  3a c8 99 26 34 30 30 44  32 2c 2d 31 2c 2d 31 2c  |:..&400D2,-1,-1,|
000010d0  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 3a e1 0d 13 c4  |-1,-1,-1,-1:....|
000010e0  5e dd a4 57 71 28 56 64  2c 56 6a 2c 56 65 29 3a  |^..Wq(Vd,Vj,Ve):|
000010f0  ea 57 68 2c 58 78 2c 58  79 24 3a 56 64 21 30 3d  |.Wh,Xx,Xy$:Vd!0=|
00001100  56 6a 3a 56 64 21 34 3d  56 65 3a c8 99 26 34 30  |Vj:Vd!4=Ve:..&40|
00001110  30 43 45 2c 2c 56 64 3a  57 68 3d 56 64 21 28 38  |0CE,,Vd:Wh=Vd!(8|
00001120  2b 31 36 29 3a 58 78 3d  28 57 68 20 80 32 5e 38  |+16):Xx=(Wh .2^8|
00001130  29 3d 32 5e 38 3a e7 58  78 20 8c 0d 14 14 16 58  |)=2^8:.Xx .....X|
00001140  79 24 3d a4 57 6f 28 56  64 21 28 38 2b 32 30 29  |y$=.Wo(Vd!(8+20)|
00001150  29 0d 14 1e 16 cc 3a 58  79 24 3d a4 57 6f 28 56  |).....:Xy$=.Wo(V|
00001160  64 2b 38 2b 32 30 29 0d  14 32 0a cd 3a 3d 58 79  |d+8+20)..2..:=Xy|
00001170  24 0d 14 5a 5e dd f2 58  7a 28 56 64 2c 56 6a 2c  |$..Z^..Xz(Vd,Vj,|
00001180  56 65 2c 59 55 24 29 3a  ea 57 68 2c 58 78 3a 56  |Ve,YU$):.Wh,Xx:V|
00001190  64 21 30 3d 56 6a 3a 56  64 21 34 3d 56 65 3a c8  |d!0=Vj:Vd!4=Ve:.|
000011a0  99 26 34 30 30 43 45 2c  2c 56 64 3a 57 68 3d 56  |.&400CE,,Vd:Wh=V|
000011b0  64 21 28 38 2b 31 36 29  3a 58 78 3d 28 57 68 20  |d!(8+16):Xx=(Wh |
000011c0  80 32 5e 38 29 3d 32 5e  38 3a e7 58 78 20 8c 0d  |.2^8)=2^8:.Xx ..|
000011d0  14 aa 14 24 28 56 64 21  28 38 2b 32 30 29 29 3d  |...$(Vd!(8+20))=|
000011e0  59 55 24 0d 14 b4 14 cc  3a 24 28 56 64 2b 38 2b  |YU$.....:$(Vd+8+|
000011f0  32 30 29 3d 59 55 24 0d  14 c8 33 cd 3a 56 64 21  |20)=YU$...3.:Vd!|
00001200  30 3d 56 6a 3a 56 64 21  34 3d 56 65 3a 56 64 21  |0=Vj:Vd!4=Ve:Vd!|
00001210  38 3d 30 3a 56 64 21 31  32 3d 30 3a c8 99 26 34  |8=0:Vd!12=0:..&4|
00001220  30 30 43 44 2c 2c 56 64  3a e1 0d 15 22 1a dd f2  |00CD,,Vd:..."...|
00001230  56 72 28 59 56 29 3a c8  99 26 34 30 30 44 43 2c  |Vr(YV):..&400DC,|
00001240  59 56 3a e1 0d 15 54 33  dd a4 57 6f 28 59 57 29  |YV:...T3..Wo(YW)|
00001250  3a 59 58 24 3d 22 22 3a  c8 95 3f 59 57 3e 33 31  |:YX$="":..?YW>31|
00001260  3a 59 58 24 2b 3d bd 3f  59 57 3a 59 57 2b 3d 31  |:YX$+=.?YW:YW+=1|
00001270  3a ce 3a 3d 59 58 24 0d  15 ae 2a dd f2 56 7a 28  |:.:=YX$...*..Vz(|
00001280  56 64 2c 57 6e 24 29 3a  24 56 64 3d 57 6e 24 2b  |Vd,Wn$):$Vd=Wn$+|
00001290  bd 30 3a c8 99 26 34 30  30 44 39 2c 2c 56 64 3a  |.0:..&400D9,,Vd:|
000012a0  e1 0d 15 ea 95 dd a4 57  55 28 59 59 2c 59 5a 2c  |.......WU(YY,YZ,|
000012b0  59 61 2c 59 62 24 29 3a  ea 59 63 2c 59 64 2c 59  |Ya,Yb$):.Yc,Yd,Y|
000012c0  65 2c 59 66 2c 59 67 3a  c8 99 26 34 30 30 44 42  |e,Yf,Yg:..&400DB|
000012d0  2c 2c 59 59 2c 59 5a 2c  59 61 2c 2d 31 2c 59 62  |,,YY,YZ,Ya,-1,Yb|
000012e0  24 2c 30 20 b8 2c 2c 59  63 3a 59 64 3d 59 59 21  |$,0 .,,Yc:Yd=YY!|
000012f0  38 34 3a 59 65 3d 59 63  3a 3d 59 63 3a 59 66 3d  |84:Ye=Yc:=Yc:Yf=|
00001300  30 3a c8 95 59 66 3c 59  64 3a 59 67 3d 59 59 2b  |0:..Yf<Yd:Yg=YY+|
00001310  38 38 2b 59 66 2a 33 32  3a e7 28 59 67 21 31 36  |88+Yf*32:.(Yg!16|
00001320  20 80 26 31 30 33 29 3d  26 31 30 32 20 8c 59 67  | .&103)=&102 .Yg|
00001330  21 32 34 3d 59 68 0d 16  62 0f 59 66 2b 3d 31 3a  |!24=Yh..b.Yf+=1:|
00001340  ce 3a 3d 59 65 0d 16 94  25 dd a4 57 57 28 59 59  |.:=Ye...%..WW(YY|
00001350  29 3a ea 56 6a 3a c8 99  26 34 30 30 43 31 2c 2c  |):.Vj:..&400C1,,|
00001360  59 59 20 b8 56 6a 3a 3d  56 6a 0d 16 d0 13 dd f2  |YY .Vj:=Vj......|
00001370  57 58 3a c8 99 26 34 30  30 44 41 3a e1 0d 17 02  |WX:..&400DA:....|
00001380  30 dd a4 55 7a 28 56 66  2c 59 69 29 3a ea 57 7a  |0..Uz(Vf,Yi):.Wz|
00001390  3a c8 99 26 34 30 30 43  37 2c 59 69 2c 56 66 20  |:..&400C7,Yi,Vf |
000013a0  b8 57 7a 3a 59 6a 3d 57  7a 3a 3d 59 6a 0d 17 48  |.Wz:Yj=Wz:=Yj..H|
000013b0  1c dd a4 59 6b 28 59 6c  29 3a 3d 28 28 59 6c 2b  |...Yk(Yl):=((Yl+|
000013c0  33 29 20 80 28 ac 33 29  29 0d 17 70 4f dd f2 59  |3) .(.3))..pO..Y|
000013d0  6d 28 56 64 2c 56 6a 2c  56 65 2c 59 6e 29 3a 56  |m(Vd,Vj,Ve,Yn):V|
000013e0  64 21 30 3d 56 6a 3a 56  64 21 34 3d 56 65 3a 56  |d!0=Vj:Vd!4=Ve:V|
000013f0  64 21 38 3d 28 94 59 6e  29 3c 3c 32 31 3a 56 64  |d!8=(.Yn)<<21:Vd|
00001400  21 31 32 3d 31 3c 3c 32  31 3a c8 99 26 34 30 30  |!12=1<<21:..&400|
00001410  43 44 2c 2c 56 64 3a e1  0d 17 ca 4f dd f2 59 6f  |CD,,Vd:....O..Yo|
00001420  28 56 64 2c 56 6a 2c 56  65 2c 59 70 29 3a 56 64  |(Vd,Vj,Ve,Yp):Vd|
00001430  21 30 3d 56 6a 3a 56 64  21 34 3d 56 65 3a 56 64  |!0=Vj:Vd!4=Ve:Vd|
00001440  21 38 3d 28 94 59 70 29  3c 3c 32 32 3a 56 64 21  |!8=(.Yp)<<22:Vd!|
00001450  31 32 3d 31 3c 3c 32 32  3a c8 99 26 34 30 30 43  |12=1<<22:..&400C|
00001460  44 2c 2c 56 64 3a e1 0d  18 24 50 dd a4 59 71 28  |D,,Vd:...$P..Yq(|
00001470  56 64 2c 56 6a 2c 56 65  29 3a 56 64 21 30 3d 56  |Vd,Vj,Ve):Vd!0=V|
00001480  6a 3a 56 64 21 34 3d 56  65 3a c8 99 26 34 30 30  |j:Vd!4=Ve:..&400|
00001490  43 45 2c 2c 56 64 3a 59  72 3d 28 56 64 21 28 38  |CE,,Vd:Yr=(Vd!(8|
000014a0  2b 31 36 29 29 20 80 32  5e 32 31 3a 3d ac 28 59  |+16)) .2^21:=.(Y|
000014b0  72 3d 32 5e 32 31 29 0d  18 74 30 dd f2 59 73 28  |r=2^21)..t0..Ys(|
000014c0  56 64 2c 56 6a 2c 56 65  29 3a f2 59 6d 28 56 64  |Vd,Vj,Ve):.Ym(Vd|
000014d0  2c 56 6a 2c 56 65 2c a4  59 71 28 56 64 2c 56 6a  |,Vj,Ve,.Yq(Vd,Vj|
000014e0  2c 56 65 29 29 3a e1 0d  ff                       |,Ve)):...|
000014e9

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .