Home » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 » !AWSept94/Goodies/3D_Demo/!RotoPlay/!RunImage

!AWSept94/Goodies/3D_Demo/!RotoPlay/!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-09-Disc1.adf » Disk1Sep94
Filename: !AWSept94/Goodies/3D_Demo/!RotoPlay/!RunImage
Read OK: ✔
File size: 2748 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=&DE8:Uc=&FED:Ud$="RotoPlay":Ue$="RotoPlay":Uf=2*1024 :DIMUg Uf:Uh=2*1024 :DIMUi Uh:Uj=2*1024 :DIMUk Uj:Ul=2*1024 :DIMUm Ul:Un=4*1024 :DIMUo Un:Up=1*1024 :DIMUq Up:Ur=120:DIMUs Ur:Ut=1:Uu= NOTTRUE:Uv=FNUw(2*100,Ue$):Ux=0:PROCUy:PROCUz:PROCVU:VV=FNVW(Ui)
  380VX=FNVY:ENDPROC
  420DEFPROCUW:REPEAT:VZ=FNVa(Ug,Ut):CASEVZ OF
  460WHEN1:PROCVb(Ug)
  470WHEN2:PROCVc(Ug,Ui,-1,TRUE)
  480WHEN3:PROCVd(Ui,Ug!0)
  490WHEN6:PROCVe(Ug)
  500WHEN8:PROCVf(Ug)
  510WHEN9:PROCVg(Ug)
  520WHEN17:PROCVh(Ug)
  530WHEN18:PROCVh(Ug)
  540ENDCASE:UNTILUu:PROCVi(VX):PROCVj(Uv):ENDPROC
  640DEFFNVW(Vk):Vk!0=-1:Vk!4=0:Vk!8=0:Vk!12=68:Vk!16=68:Vk!20=&3002:$(Vk+24)="!"+Ud$+CHR$0:SYS&400C2,,Vk TOVl:=Vl
  760DEFPROCVe(Vm):Vn=Vm!0:Vo=Vm!4:Vp=Vm!8:Vq=Vm!12:Vl=Vm!16:CASEVp OF
  830WHENUX:CASEVq OF
  840WHENUa:IFVl=VV THENPROCVc(Ug,Ui,Vr, NOTTRUE)
  850WHENVr:CASEVl OF
  860WHEN2:PROCVs(Ui,Vq,Vl):PROCVt(Ui,Vq,8, NOTFNVu(Ui,Vq,Vl)):IFFNVv(Ui)=Vq ANDFNVw(Ui)=8 THENPROCVx
  890WHEN5:Vy$=FNVz(Ui,Vq,1):PROCWU(Vy$)
  910WHEN6:PROCWV(Ui,Vq,1,""):PROCWV(Ui,Vq,8,"")
  930WHEN9:PROCVs(Ui,Vq,Vl)
  940WHEN10:PROCVs(Ui,Vq,Vl):PROCVt(Ui,Vq,11, NOTFNVu(Ui,Vq,Vl)):IFFNVv(Ui)=Vq ANDFNVw(Ui)=11 THENPROCVx
  970WHEN12:PROCVs(Ui,Vq,Vl)
  980ENDCASE
  990ENDCASE
 1000WHENUY:CASEVq OF
 1010WHENUa:IFVl=VV THENPROCWW(Vn)
 1020ENDCASE
 1030WHENUZ:CASEVq OF
 1040WHENUa:IFVl=VV THENPROCVc(Ug,Ui,Vr, NOTTRUE)
 1050WHENVr:CASEVl OF
 1060WHEN2:PROCVs(Ui,Vq,Vl):PROCVt(Ui,Vq,8, NOTFNVu(Ui,Vq,Vl)):IFFNVv(Ui)=Vq ANDFNVw(Ui)=8 THENPROCVx
 1090WHEN5:Vy$=FNVz(Ui,Vq,1):PROCWU(Vy$)
 1110WHEN6:PROCWV(Ui,Vq,1,""):PROCWV(Ui,Vq,8,"")
 1130WHEN9:PROCVs(Ui,Vq,Vl)
 1140WHEN10:PROCVs(Ui,Vq,Vl):PROCVt(Ui,Vq,11, NOTFNVu(Ui,Vq,Vl)):IFFNVv(Ui)=Vq ANDFNVw(Ui)=11 THENPROCVx
 1170WHEN12:PROCVs(Ui,Vq,Vl)
 1180ENDCASE
 1190ENDCASE
 1200ENDCASE:ENDPROC
 1240DEFPROCVf(Vm):Vq=Vm!0:Vl=Vm!4:WX=Vm!24:CASEVq OF
 1290WHENVr:PROCVx
 1300OTHERWISE:PROCWY(WX)
 1320ENDCASE:ENDPROC
 1360DEFPROCVh(Vm):CASEVm!16 OF
 1380WHEN0:Uu=TRUE
 1390WHEN3:PROCWZ(Vm)
 1400WHEN&502:PROCWa(Vm)
 1410ENDCASE:ENDPROC
 1450DEFPROCVb(Vm):SYS&400C8,,Vm TOWb:Wc=Vm!4:Wd=Vm!16:We=Vm!8:Wf=Vm!20:Wg=Vm!24:WHILEWb:SYS&400CA,,Vm TOWb:ENDWHILE:ENDPROC
 1580DEFPROCUy:PROCWh(Uo,Un):PROCWi(Uo,"<"+Ud$+"$Dir>.Sprites"):ENDPROC
 1640DEFPROCUz:Wj=Um:PROCWk(Ui,"<"+Ud$+"$Dir>.Templates"):Wj=FNWl(Uk,Wj,Um+Ul,"information",Uo):Wm=FNWn(Uk):Wj=FNWl(Uk,Wj,Um+Ul,"setup",Uo):Vr=FNWn(Uk):PROCWo:ENDPROC
 1750DEFPROCWW(Vn):Ux=1:PROCWp(Ud$,128,44):PROCWq("Info",0,Wm, NOTTRUE):PROCWq("Quit",128,-1, NOTTRUE):SYS&400D4,,Uq,Vn-64,184:ENDPROC
 1840DEFPROCWp(Wr$,Ws,Wt):Wu=0:$(Uq+Wu)=Wr$+CHR$0:?(Uq+Wu+12)=7:?(Uq+Wu+13)=2:?(Uq+Wu+14)=7:?(Uq+Wu+15)=0:!(Uq+Wu+16)=Ws:!(Uq+Wu+20)=Wt:!(Uq+Wu+24)=0:Wu+=28:ENDPROC
 1980DEFPROCWq(Wv$,Ww,Wx,Wy):!(Uq+Wu+0)=Ww:!(Uq+Wu+4)=Wx:!(Uq+Wu+8)=&07000001+ABSWy*2^22:$(Uq+Wu+12)=Wv$+CHR$0:Wu+=24:ENDPROC
 2070DEFPROCVg(Vm):Wz=Vm!0:CASEUx OF
 2100WHEN1:CASEWz OF
 2110WHEN1:Uu=TRUE
 2120ENDCASE
 2130ENDCASE:SYS&400CF,,Vm:Vn=Vm!0:Vo=Vm!4:Vp=Vm!8:IFVp=UZ THEN
 2190CASEUx OF
 2200WHEN1:PROCWW(Vn)
 2210ENDCASE
 2220ELSE:IFUx<>1 THEN
 2240SYS&400D4,,-1:Ux=0
 2260ENDIF
 2270ENDIF:ENDPROC
 2310DEFPROCWZ(Vm):XU=Vm!40:Vy$=FNXV(Vm+44):XW=Vm!4:Vm!16=4:Vm!12=Vm!8:SYS&400E7,17,Vm,XW:IFXU<>Ub ANDXU<>Uc THEN
 2390XX$=FNXY(VX,"err01"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 2410ELSE:CASEXU OF
 2430WHENUb:PROCWV(Ui,Vr,1,Vy$):IF NOTFNXb(Ui,Vr) THEN
 2450PROCVc(Ug,Ui,Vr, NOTTRUE)
 2460ENDIF
 2470WHENUc:PROCWV(Ui,Vr,8,Vy$):IF NOTFNVu(Ui,Vr,2) THEN
 2490PROCVs(Ui,Vr,2):PROCVt(Ui,Vr,8, NOTTRUE)
 2510ENDIF:IF NOTFNXb(Ui,Vr) THEN
 2530PROCVc(Ug,Ui,Vr, NOTTRUE)
 2540ENDIF
 2550ENDCASE
 2560ENDIF:ENDPROC
 2600DEFPROCWa(Vm):Xc$="":XW=Vm!4:Xd=Vm!32:Xe=Vm!36:CASEXd OF
 2660WHENUa:IFXe=VV THENXc$="ibar"
 2670WHENVr:Xc$="setp":CASEXe OF
 2690WHEN1:Xc$="se01"
 2700WHEN2:Xc$="se02"
 2710WHEN5:Xc$="se05"
 2720WHEN6:Xc$="se06"
 2730WHEN8:Xc$="se08"
 2740WHEN9:Xc$="se09"
 2750WHEN10:Xc$="se10"
 2760WHEN11:Xc$="se11"
 2770WHEN12:Xc$="se12"
 2780ENDCASE
 2790ENDCASE:IFXc$<>"" THEN
 2810Xf$=FNXY(VX,Xc$):Vm!0=20+((LEN(Xf$) DIV4)*4)+4:Vm!12=Vm!8:Vm!16=&503:$(Vm+20)=Xf$+CHR$0:SYS&400E7,17,Vm,XW
 2870ENDIF:ENDPROC
 3100DEFPROCVU:SYS&51 TOXg:Xh=FNXi:Xj=0:Xk=HIMEM:ENDPROC
 3180DEFFNXl(Xm):LOCALXn,Xo:LOCALXp,Xq,Xr:LOCALXs,Xt:Xn=(Xm DIVXg)+1:Xo=Xn* Xg:IFFNXu>=Xm THEN
 3250Xp=FNXi:Xq=Xp+Xm:Xr=FNXv(Xq):Xj+=Xm:Xs=HIMEM:Xt=TRUE
 3310ELSE:Xt= NOTTRUE
 3330ENDIF:=Xt
 3370DEFFNXw(Xm):Xn=(Xm DIVXg)+1:Xo=Xn* Xg:=Xo
 3430DEFPROCXx:Xp=FNXi:IFXp>Xh THEN
 3460XZ=FNXv(Xh):Xj=0
 3480ENDIF:ENDPROC
 3620DEFPROCWU(Vy$):IFINSTR(Vy$,".")=0 THEN
 3660XX$=FNXY(VX,"err07"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 3690ELSE:SYS&90100,Vy$,Ui TOXt:CASEXt OF
 3750WHEN0:XX$=FNXY(VX,"err03"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 3770WHEN1:XX$=FNXY(VX,"err04"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 3790WHEN2:XX$=FNXY(VX,"err05"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 3820OTHERWISE:Xy=Ui!0:Ws=Ui!4:Wt=Ui!8:Xz=Ui!12:YU=Ui!16:YV=Ui!20:YW=HIMEM:Xt=FNXl(YU):IF NOTXt THEN
 3960XX$=FNXY(VX,"err02"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 3990ELSE:YX=FNYY(YW+YU):Xt=FNXl(YV):IF NOTXt THEN
 4060XX$=FNXY(VX,"err06"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE)
 4090ELSE:PROCWh(YX,YV):SYS&90101,Vy$,YW:SYS&90102,YW,YX,YV TOYZ:IFFNVu(Ui,Vr,10) THEN
 4170Ya=TRUE:Yb=VAL(FNVz(Ui,Vr,11))
 4190ELSE:Ya= NOTTRUE
 4210ENDIF:Yc=FNVu(Ui,Vr,12):Yd=MODE:IFYc THENYe=-1ELSEYe=1
 4280Yf= NOTTRUE:IFFNVu(Ui,Vr,2) THEN
 4320Yg$=FNVz(Ui,Vr,8):IFINSTR(Yg$,".")=0 THEN
 4350XX$=FNXY(VX,"err08"):XZ=FNXa(Ui,99,Ud$,XX$, NOTTRUE,TRUE):MODE9:OFF
 4380ELSE:MODE9:OFF:OSCLI"Load "+Yg$+" "+STR$~Us:FORYh=0 TO15:r=?(Us+Yh*6+3):g=?(Us+Yh*6+4):b=?(Us+Yh*6+5):COLOURYh,r,g,b:NEXTYh
 4470ENDIF
 4490ELSE:MODE9:OFF
 4530ENDIF:x=(1280-Ws*4)/2:y=(1024-Wt*4)/2:REPEAT:FORi=1 TOXz:SYS&90104,YZ,i,YW,YX TO,,,,Xt,Yi:WAIT:CLS:MOVEx,y:SYS&2E,256+28,YX,"sprite",,,8:IFYa THENFORYj=1 TOYb:WAIT:NEXTYj
 4650SYS&1C TOYk,Yl,Ym:IFYm=4 THENYe=1:i=Xz:Yf=TRUE
 4660IFYm=1 THENREPEAT:SYS&1C TOYk,Yl,Ym:UNTILYm=0
 4670NEXTi:IFFNVu(Ui,Vr,9) AND NOTYf THEN
 4700FORi=Xz-1 TO1STEP-1:SYS&90104,YZ,i,YW,YX TO,,,,Xt,Yi:WAIT:CLS:MOVEx,y:SYS&2E,256+28,YX,"sprite",,,8:IFYa THENFORYj=1 TOYb:WAIT:NEXTYj
 4750SYS&1C TOYk,Yl,Ym:IFYm=4 THENYe=1:i=1
 4760IFYm=1 THENREPEAT:SYS&1C TOYk,Yl,Ym:UNTILYm=0
 4770NEXTi
 4780ENDIF:UNTIL1=Ye:SYS&90103,YZ:PROCXx:SYS&400E3,Yd
 4860ENDIF
 4890ENDCASE
 4920ENDIF
 4940ENDIF:ENDPROC
 4990DEFFNYY(Yn):=(Yn+3) AND NOT3
 5370DEFFNYo(Yp,Yq$):SYS&2E,256+40,Yp,Yq$ TO,,,Yr,Ys,Yt,Yu:Yv=Yr:=Yv
 5430DEFFNYw(Yp,Yq$):SYS&2E,256+40,Yp,Yq$ TO,,,Yr,Ys,Yt,Yu:Yx=Ys:=Yx
 5490DEFFNYy(Yp,Yq$):SYS&2E,256+40,Yp,Yq$ TO,,,Yr,Ys,Yt,Yu:Yz=Yu:=Yz
 5550DEFFNZU(Yp,Yq$):SYS&2E,256+40,Yp,Yq$ TO,,,Yr,Ys,Yt,Yu:ZV=-Yt:=Yz
 5610DEFFNZW(Yp,Yq$):ZX=FNZY(Yp,Yq$):ZZ=ZX!32:IFZZ=11*4 THEN
 5650Za= NOTTRUE
 5660ELSE:Za=ZX+11*4
 5680ENDIF:=Za
 5720DEFFNZb(Yp):=Yp!4
 5760DEFFNZc(Yp,n):Zd=Yp+Yp!8:Ze=1:WHILEZe<n:Zf=Zd!0:Zd+=Zf:Ze+=1:ENDWHILE:=LEFT$(FNXV(Zd+4),12)+CHR$0
 5890DEFFNZg(Yp,Yq$):SYS&2E,256+24,Yp,Yq$ TO,,Zh:Zi=Zh:ZZ=Zi!32:Zj=Zi+ZZ:=Zj
 5970DEFFNZk(Yp,Yq$):SYS&2E,256+24,Yp,Yq$ TO,,Zh:Zi=Zh:Zl=Zi!36:Zm=Zi+Zl:=Zm
 6050DEFFNZY(Yp,Yq$):SYS&2E,256+24,Yp,Yq$ TO,,Zh:Zn=Zh:=Zn
 6110DEFPROCZo(Yp,Vy$):SYS&2E,256+12,Yp,Vy$:ENDPROC
 6160DEFPROCWi(Yp,Vy$):SYS&2E,256+10,Yp,Vy$:ENDPROC
 6210DEFPROCWh(Yp,Zp):Yp!0=Zp:Yp!8=16:SYS&2E,256+9,Yp:ENDPROC
 6280DEFFNZq(Yp,Yq$,x,y):LOCALYh,Zr:SYS&2E,256+41,Yp,Yq$,x,y TO,,,,,Yt,Yu:Yh=Yt:Zr=Yu:=Yh
 6360DEFPROCZs(Yp,Yq$,x,y,Yh,Zr):SYS&2E,256+42,Yp,Yq$,x,y,Yh,Zr:ENDPROC
 7080DEFFNUw(Zt,Zu$):LOCALZv,Zw:SYS&400C0,Zt,&4B534154,Zu$+CHR$0 TOZv,Zw:Zx=Zw:=Zx
 7150DEFPROCVj(Zx):SYS&400DD,Zx,"TASK":ENDPROC
 7200DEFFNXa(Vk,Zy,Wr$,XX$,Zz,aU):LOCALWw,Zw,aV:$Vk=Wr$+CHR$0:Vk!32=Zy:$(Vk+36)=XX$+CHR$0:Ww=(ABSZz*2^0)+(ABSaU*2^1):SYS&400DF,Vk+32,Ww,Vk TO,Zw:aV=Zw:=aV
 7320DEFPROCVc(Vm,Vk,Vq,aW):IFaW= NOTTRUE THEN
 7340Vk!0=Vq:SYS&400CB,,Vk:SYS&400C5,,Vk
 7370ELSE:SYS&400C5,,Vm
 7390ENDIF:ENDPROC
 7430DEFPROCVd(Vk,Vq):Vk!0=Vq:SYS&400C6,,Vk:ENDPROC
 7490DEFPROCaX(Vk,Vq):LOCALWs,Wt,aY,aZ,aa,ab:Vk!0=Vq:SYS&400CC,,Vk:Ws=ABSVk!52:IFWs>1000 THENWs=1000
 7540Wt=ABSVk!48:IFWt>512 THENWt=512
 7550Vk!0=4:Vk!4=5:Vk!8=11:Vk!12=12:Vk!16=-1:SYS&31,Vk,Vk+32:aY=Vk!32:aZ=Vk!36:aa=Vk!40:ab=Vk!44:x=aa* 2^aY :y=ab* 2^aZ:x=(x-Ws) DIV2:y=(y-Wt) DIV2:Vk!(0)=Vq:Vk!(4+0)=x:Vk!(4+4)=y:Vk!(4+8)=Vk!(4+0)+Ws:Vk!(4+12)=Vk!(4+4)+Wt:Vk!28=-1:SYS&400C5,,Vk:ENDPROC
 7710DEFPROCac(Vk,Vq,ad,ae,af,ag):Vk!0=ad:Vk!4=af:Vk!8=ae:Vk!12=ag:SYS&400D7,Vq,Vk:ENDPROC
 7800DEFFNXb(Vk,Vq):LOCALah,ai:Vk!0=Vq:SYS&400CB,,Vk:ah=Vk!32:ai=(ah AND2^16)=2^16:=ai
 7890DEFPROCaj(Vk,Vq):LOCALWs,Wt,ak,al:LOCALam,an,ao,ap:Vk!0=Vq:SYS&400CC,,Vk:Ws=Vk!12-Ui!4:Wt=Vk!16-Vk!8:ak=Vk!20:al=Vk!24:am=ak:ap=al:ao=ap-Wt:an=am+Ws:SYS&400D1,Vq,am,ao,an,ap:ENDPROC
 8020DEFPROCaq(Vk,Vq,Vl):Vk!0=Vq:Vk!4=Vl:Vk!8=0:Vk!12=0:SYS&400CD,,Vk:ENDPROC
 8110DEFPROCar(Vq,Vl,as):SYS&400D2,Vq,Vl,0,0,-1,as:ENDPROC
 8160DEFPROCVx:SYS&400D2,-1,-1,-1,-1,-1,-1:ENDPROC
 8210DEFFNVz(Vk,Vq,Vl):LOCALWw,at,au$:Vk!0=Vq:Vk!4=Vl:SYS&400CE,,Vk:Ww=Vk!(8+16):at=(Ww AND2^8)=2^8:IFat THEN
 8290au$=FNXV(Vk!(8+20))
 8300ELSE:au$=FNXV(Vk+8+20)
 8320ENDIF:=au$
 8360DEFPROCWV(Vk,Vq,Vl,av$):LOCALWw,at:Vk!0=Vq:Vk!4=Vl:SYS&400CE,,Vk:Ww=Vk!(8+16):at=(Ww AND2^8)=2^8:IFat THEN
 8440$(Vk!(8+20))=av$
 8450ELSE:$(Vk+8+20)=av$
 8470ENDIF:Vk!0=Vq:Vk!4=Vl:Vk!8=0:Vk!12=0:SYS&400CD,,Vk:ENDPROC
 8560DEFPROCWY(aw):SYS&400DC,aw:ENDPROC
 8610DEFFNXV(Wx):LOCALax$:ax$="":WHILE?Wx>31:ax$+=CHR$?Wx:Wx+=1:ENDWHILE:=ax$
 8710DEFPROCWk(Vk,Vy$):$Vk=Vy$+CHR$0:SYS&400D9,,Vk:ENDPROC
 8770DEFFNWl(ay,az,bU,bV$,bW):LOCALZh,bX,bY,bZ,ba:SYS&400DB,,ay,az,bU,-1,bV$,0 TO,,Zh:bX=ay!84:bY=Zh:bZ=0:WHILEbZ<bX:ba=ay+88+bZ*32:IF(ba!16 AND&103)=&102 THENba!24=bW
 8880bZ+=1:ENDWHILE:=bY
 8930DEFFNWn(ay):LOCALVq:SYS&400C1,,ay TOVq:=Vq
 8990DEFPROCWo:SYS&400DA:ENDPROC
 9040DEFFNVa(Vm,bb):LOCALZv:SYS&400C7,bb,Vm TOZv:bc=Zv:=bc
 9110DEFFNXv(bd):LOCALZv,Zw,Zh,be:SYS&400EC,bd,-1 TOZv,Zw,Zh:be=Zv:=be
 9180DEFFNXi:LOCALZv,Zw,Zh,be:SYS&400EC,-1,-1 TOZv,Zw,Zh:be=Zv:=be
 9250DEFFNXu:LOCALZv,Zw,Zh,bf:SYS&400EC,-1,-1 TOZv,Zw,Zh:bf=Zh:=bf
 9320DEFPROCbg(Vk):LOCALaY,aZ,aa,ab:Vk!0=4:Vk!4=5:Vk!8=11:Vk!12=12:Vk!16=-1:SYS&31,Vk,Vk+32:aY=Vk!32:aZ=Vk!36:aa=Vk!40:ab=Vk!44:MOUSERECTANGLE0,0,aa*2^aY,ab*2^aZ:ENDPROC
 9430DEFPROCbh(Vk,Vq):LOCALWs,Wt,aY,aZ,aa,ab:!Vk=Vq:SYS&400CC,,Vk:Ws=ABSVk!52:Wt=ABSVk!48:Vk!0=4:Vk!4=5:Vk!8=11:Vk!12=12:Vk!16=-1:SYS&31,Vk,Vk+32:aY=Vk!32:aZ=Vk!36:aa=Vk!40:ab=Vk!44:x=aa* 2^aY :y=ab* 2^aZ:x=(x-Ws)/2:y=(y-Wt)/2:Vk!0=Vq:Vk!(0+4+0)=x:Vk!(0+4+4)=y
 9580Vk!(0+4+8)=Vk!(0+4+0)+Ws:Vk!(0+4+12)=Vk!(0+4+4)+Wt:SYS&400C5,,Vk:x=((aa*2^aY)-Ws ) / 2:y=((ab*2^aZ)-Wt) / 2:MOUSERECTANGLEx,y,Ws,Wt:ENDPROC
 9670DEFPROCbi(Vk,Vq,Vl,bj,bk):!Vk=Vq:SYS&400CC,,Vk:bl=Vk!4:bm=Vk!8:bn=Vk!12:bo=Vk!16:Vk!0=Vq:Vk!4=Vl:SYS&400CE,,Vk:bp=Vk!8:bq=Vk!12:br=Vk!16:bs=Vk!20:bt=br-bp:bu=bs-bq:Wc=bl+bp:We=bo+bq:MOUSERECTANGLEWc+bj,We+bk,bt-bj*2,bu-bk*2:ENDPROC
 9830DEFPROCbv(Vk,Vq,Vn,Vo):!Vk=Vq:SYS&400CC,,Vk:bw=Vk!4-Vk!20:bx=Vk!16-Vk!24:bw=Vn-bw:bx=1024-(bx-Vo):by%=bw:bz%=bx:ENDPROC
 9970DEFPROCcU(Vk,Vq,cV):Vk!0=Vq:SYS&400CC,,Vk:cW=Vk!4:cX=Vk!12:cY=Vk!8:cZ=Vk!16:ca=Vk!28:Vk!0=cV:SYS&400CC,,Vk:Wc=cW-(Vk!12-Vk!4)-1:Wt=Vk!8-Vk!16:Vk!4=Wc:Vk!12=cX:Vk!8=Wt:Vk!16=cZ:Vk!20=0:Vk!28=ca:SYS&400C5,,Vk:ENDPROC
10130DEFFNYY(Yn):=((Yn+3) AND(NOT3))
10170DEFFNVY:SYS&1E,6,,,16 TO,,Zh:VX=Zh:SYS&41501,VX,"<"+Ud$+"$Dir>.Messages",0:=VX
10240DEFPROCVi(cb):SYS&41504,cb:SYS&1E,7,,cb:ENDPROC
10300DEFFNXY(cb,Xc$):SYS&41502,cb,Xc$,0,0,0,0,0,0 TO,,Zh:cc=Zh:cd$=FNXV(cc):=cd$
10370DEFPROCce(cf,cg,ch):ci=cf:cj=cg:ck=ch:cl=4:PROCbi(Ui,ci,ck,16,0):SYS&1C TOYk,Yl,Ym:cm=Yk-1:PROCcn:ENDPROC
10500DEFPROCcn:CASEci OF
10530WHENco:CASEck OF
10540WHEN2:cp=FNcq(cp,2):PROCcr(INT(64*(cs/100)))
10560ENDCASE
10570ENDCASE:ENDPROC
10610DEFFNcq(cg,ch):SYS&1C TOYk,Yl,Ym:IFYm=0 THEN
10690cl=0:PROCbg(Ui)
10720ELSE:IFYk<>cm THEN
10770!Ui=ci:SYS&400CC,,Ui:bl=Ui!4:ct=Yk-bl:Ui!0=ci:Ui!4=cg:SYS&400CE,,Ui:bp=Ui!(8+0):bq=Ui!(8+4):br=Ui!(8+8):bs=Ui!(8+12):Ui!(100+0)=ci:Ui!(100+4)=cg:SYS&400C4,,Ui+100:SYS&400D1,ci,bp,bq,br,bs:Ui!(8+8)=ct:Ui!4=ci:SYS&400C2,,Ui+4 TOcg:PROCaq(Ui,ci,cg):Ui!0=ci
11040Ui!4=ck:SYS&400CE,,Ui:cu=Ui!(8+8)-16:cm=Yk:cs=INT((ct/cu)*100)
11110ENDIF
11130ENDIF:=cg
11180DEFPROCcv(Vk,Vq,cw$):LOCALWw,at:!Vk=Vq:SYS&400CC,,Vk:Ww=Vk!(4+56):at=(Ww AND2^8)=2^8:IFat THEN
11250cx=!(Vk+4+72):$!(Vk+4+72)=cw$+CHR$0
11270ELSE:$(Vk+4+72)=av$+CHR$0
11290ENDIF:ENDPROC
11330DEFPROCcy(Vk,Vq,Vl,cz):Vk!0=Vq:Vk!4=Vl:Vk!8=(ABScz)<<21:Vk!12=1<<21:SYS&400CD,,Vk:ENDPROC
11420DEFPROCVt(Vk,Vq,Vl,dU):Vk!0=Vq:Vk!4=Vl:Vk!8=(ABSdU)<<22:Vk!12=1<<22:SYS&400CD,,Vk:ENDPROC
11510DEFFNVu(Vk,Vq,Vl):Vk!0=Vq:Vk!4=Vl:SYS&400CE,,Vk:dV=(Vk!(8+16)) AND2^21:=NOT(dV=2^21)
11590DEFPROCVs(Vk,Vq,Vl):PROCcy(Vk,Vq,Vl,FNVu(Vk,Vq,Vl)):ENDPROC
11640DEFFNVv(Vk):SYS&400D3,,Vk:=Vk!0
11690DEFFNVw(Vk):SYS&400D3,,Vk:=Vk!4

<���:�:�" at Line ";�:�
Z
�UV:�UW:�
����UV:UX=4:UY=2:UZ=1:Ua=-2:Ub=&DE8:Uc=&FED:Ud$="RotoPlay":Ue$="RotoPlay":Uf=2*1024 :�Ug Uf:Uh=2*1024 :�Ui Uh:Uj=2*1024 :�Uk Uj:Ul=2*1024 :�Um Ul:Un=4*1024 :�Uo Un:Up=1*1024 :�Uq Up:Ur=120:�Us Ur:Ut=1:Uu= ��:Uv=�Uw(2*100,Ue$):Ux=0:�Uy:�Uz:�VU:VV=�VW(Ui)
|VX=�VY:�
���UW:�:VZ=�Va(Ug,Ut):ȎVZ �
��1:�Vb(Ug)
��2:�Vc(Ug,Ui,-1,�)
��3:�Vd(Ui,Ug!0)
��6:�Ve(Ug)
��8:�Vf(Ug)
��9:�Vg(Ug)
�17:�Vh(Ug)
�18:�Vh(Ug)
�:�Uu:�Vi(VX):�Vj(Uv):�
�iݤVW(Vk):Vk!0=-1:Vk!4=0:Vk!8=0:Vk!12=68:Vk!16=68:Vk!20=&3002:$(Vk+24)="!"+Ud$+�0:ș&400C2,,Vk �Vl:=Vl
�=��Ve(Vm):Vn=Vm!0:Vo=Vm!4:Vp=Vm!8:Vq=Vm!12:Vl=Vm!16:ȎVp �
>�UX:ȎVq �
H!�Ua:�Vl=VV ��Vc(Ug,Ui,Vr, ��)
R�Vr:ȎVl �
\M�2:�Vs(Ui,Vq,Vl):�Vt(Ui,Vq,8, ��Vu(Ui,Vq,Vl)):�Vv(Ui)=Vq ��Vw(Ui)=8 ��Vx
z �5:Vy$=�Vz(Ui,Vq,1):�WU(Vy$)
�&�6:�WV(Ui,Vq,1,""):�WV(Ui,Vq,8,"")
��9:�Vs(Ui,Vq,Vl)
�P�10:�Vs(Ui,Vq,Vl):�Vt(Ui,Vq,11, ��Vu(Ui,Vq,Vl)):�Vv(Ui)=Vq ��Vw(Ui)=11 ��Vx
��12:�Vs(Ui,Vq,Vl)
��
��
��UY:ȎVq �
��Ua:�Vl=VV ��WW(Vn)
��
�UZ:ȎVq �
!�Ua:�Vl=VV ��Vc(Ug,Ui,Vr, ��)
�Vr:ȎVl �
$M�2:�Vs(Ui,Vq,Vl):�Vt(Ui,Vq,8, ��Vu(Ui,Vq,Vl)):�Vv(Ui)=Vq ��Vw(Ui)=8 ��Vx
B �5:Vy$=�Vz(Ui,Vq,1):�WU(Vy$)
V&�6:�WV(Ui,Vq,1,""):�WV(Ui,Vq,8,"")
j�9:�Vs(Ui,Vq,Vl)
tP�10:�Vs(Ui,Vq,Vl):�Vt(Ui,Vq,11, ��Vu(Ui,Vq,Vl)):�Vv(Ui)=Vq ��Vw(Ui)=11 ��Vx
��12:�Vs(Ui,Vq,Vl)
��
��
��:�
�,��Vf(Vm):Vq=Vm!0:Vl=Vm!4:WX=Vm!24:ȎVq �

�Vr:�Vx

:�WY(WX)
(�:�
P��Vh(Vm):ȎVm!16 �
d�0:Uu=�
n�3:�WZ(Vm)
x�&502:�Wa(Vm)
��:�
�b��Vb(Vm):ș&400C8,,Vm �Wb:Wc=Vm!4:Wd=Vm!16:We=Vm!8:Wf=Vm!20:Wg=Vm!24:ȕWb:ș&400CA,,Vm �Wb:�:�
,5��Uy:�Wh(Uo,Un):�Wi(Uo,"<"+Ud$+"$Dir>.Sprites"):�
h���Uz:Wj=Um:�Wk(Ui,"<"+Ud$+"$Dir>.Templates"):Wj=�Wl(Uk,Wj,Um+Ul,"information",Uo):Wm=�Wn(Uk):Wj=�Wl(Uk,Wj,Um+Ul,"setup",Uo):Vr=�Wn(Uk):�Wo:�
�f��WW(Vn):Ux=1:�Wp(Ud$,128,44):�Wq("Info",0,Wm, ��):�Wq("Quit",128,-1, ��):ș&400D4,,Uq,Vn-64,184:�
0���Wp(Wr$,Ws,Wt):Wu=0:$(Uq+Wu)=Wr$+�0:?(Uq+Wu+12)=7:?(Uq+Wu+13)=2:?(Uq+Wu+14)=7:?(Uq+Wu+15)=0:!(Uq+Wu+16)=Ws:!(Uq+Wu+20)=Wt:!(Uq+Wu+24)=0:Wu+=28:�
�l��Wq(Wv$,Ww,Wx,Wy):!(Uq+Wu+0)=Ww:!(Uq+Wu+4)=Wx:!(Uq+Wu+8)=&07000001+�Wy*2^22:$(Uq+Wu+12)=Wv$+�0:Wu+=24:�
��Vg(Vm):Wz=Vm!0:ȎUx �
4
�1:ȎWz �
>�1:Uu=�
H�
R3�:ș&400CF,,Vm:Vn=Vm!0:Vo=Vm!4:Vp=Vm!8:�Vp=UZ �
�
ȎUx �
��1:�WW(Vn)
��
��:�Ux<>1 �
�ș&400D4,,-1:Ux=0
��
��:�
	c��WZ(Vm):XU=Vm!40:Vy$=�XV(Vm+44):XW=Vm!4:Vm!16=4:Vm!12=Vm!8:ș&400E7,17,Vm,XW:�XU<>Ub �XU<>Uc �
	V3XX$=�XY(VX,"err01"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
	j�:ȎXU �
	~(�Ub:�WV(Ui,Vr,1,Vy$):� ��Xb(Ui,Vr) �
	��Vc(Ug,Ui,Vr, ��)
	��
	�*�Uc:�WV(Ui,Vr,8,Vy$):� ��Vu(Ui,Vr,2) �
	�!�Vs(Ui,Vr,2):�Vt(Ui,Vr,8, ��)
	��:� ��Xb(Ui,Vr) �
	��Vc(Ug,Ui,Vr, ��)
	��
	��
�:�
(4��Wa(Vm):Xc$="":XW=Vm!4:Xd=Vm!32:Xe=Vm!36:ȎXd �
d�Ua:�Xe=VV �Xc$="ibar"
n�Vr:Xc$="setp":ȎXe �
��1:Xc$="se01"
��2:Xc$="se02"
��5:Xc$="se05"
��6:Xc$="se06"
��8:Xc$="se08"
��9:Xc$="se09"
��10:Xc$="se10"
��11:Xc$="se11"
��12:Xc$="se12"
��
��:�Xc$<>"" �
�eXf$=�XY(VX,Xc$):Vm!0=20+((�(Xf$) �4)*4)+4:Vm!12=Vm!8:Vm!16=&503:$(Vm+20)=Xf$+�0:ș&400E7,17,Vm,XW
6�:�
%��VU:ș&51 �Xg:Xh=�Xi:Xj=0:Xk=�:�
lGݤXl(Xm):�Xn,Xo:�Xp,Xq,Xr:�Xs,Xt:Xn=(Xm �Xg)+1:Xo=Xn* Xg:�Xu>=Xm �
�/Xp=�Xi:Xq=Xp+Xm:Xr=�Xv(Xq):Xj+=Xm:Xs=�:Xt=�
��:Xt= ��

	�:=Xt

*(ݤXw(Xm):Xn=(Xm �Xg)+1:Xo=Xn* Xg:=Xo

f��Xx:Xp=�Xi:�Xp>Xh �

�XZ=�Xv(Xh):Xj=0

��:�
$��WU(Vy$):�Vy$,".")=0 �
L3XX$=�XY(VX,"err07"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
j �:ș&90100,Vy$,Ui �Xt:ȎXt �
�6�0:XX$=�XY(VX,"err03"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
�6�1:XX$=�XY(VX,"err04"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
�6�2:XX$=�XY(VX,"err05"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
�P:Xy=Ui!0:Ws=Ui!4:Wt=Ui!8:Xz=Ui!12:YU=Ui!16:YV=Ui!20:YW=�:Xt=�Xl(YU):� �Xt �
x3XX$=�XY(VX,"err02"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
�&�:YX=�YY(YW+YU):Xt=�Xl(YV):� �Xt �
�3XX$=�XY(VX,"err06"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�)
�G�:�Wh(YX,YV):ș&90101,Vy$,YW:ș&90102,YW,YX,YV �YZ:�Vu(Ui,Vr,10) �
JYa=�:Yb=�(�Vz(Ui,Vr,11))
^�:Ya= ��
r+�:Yc=�Vu(Ui,Vr,12):Yd=�:�Yc �Ye=-1�Ye=1
�Yf= ��:�Vu(Ui,Vr,2) �
�#Yg$=�Vz(Ui,Vr,8):�Yg$,".")=0 �
�8XX$=�XY(VX,"err08"):XZ=�Xa(Ui,99,Ud$,XX$, ��,�):�9:�
e�:�9:�:�"Load "+Yg$+" "+�~Us:�Yh=0 �15:r=?(Us+Yh*6+3):g=?(Us+Yh*6+4):b=?(Us+Yh*6+5):�Yh,r,g,b:�Yh
v�
�
�:�9:�
���:x=(1280-Ws*4)/2:y=(1024-Wt*4)/2:�:�i=1 �Xz:ș&90104,YZ,i,YW,YX �,,,,Xt,Yi:Ȗ:�:�x,y:ș&2E,256+28,YX,"sprite",,,8:�Ya ��Yj=1 �Yb:Ȗ:�Yj
*)ș&1C �Yk,Yl,Ym:�Ym=4 �Ye=1:i=Xz:Yf=�
4"�Ym=1 ��:ș&1C �Yk,Yl,Ym:�Ym=0
>�i:�Vu(Ui,Vr,9) � �Yf �
\m�i=Xz-1 �1�-1:ș&90104,YZ,i,YW,YX �,,,,Xt,Yi:Ȗ:�:�x,y:ș&2E,256+28,YX,"sprite",,,8:�Ya ��Yj=1 �Yb:Ȗ:�Yj
�#ș&1C �Yk,Yl,Ym:�Ym=4 �Ye=1:i=1
�"�Ym=1 ��:ș&1C �Yk,Yl,Ym:�Ym=0
��i
�'�:�1=Ye:ș&90103,YZ:�Xx:ș&400E3,Yd
��
�
8�
L�:�
~ݤYY(Yn):=(Yn+3) � �3
�>ݤYo(Yp,Yq$):ș&2E,256+40,Yp,Yq$ �,,,Yr,Ys,Yt,Yu:Yv=Yr:=Yv
6>ݤYw(Yp,Yq$):ș&2E,256+40,Yp,Yq$ �,,,Yr,Ys,Yt,Yu:Yx=Ys:=Yx
r>ݤYy(Yp,Yq$):ș&2E,256+40,Yp,Yq$ �,,,Yr,Ys,Yt,Yu:Yz=Yu:=Yz
�?ݤZU(Yp,Yq$):ș&2E,256+40,Yp,Yq$ �,,,Yr,Ys,Yt,Yu:ZV=-Yt:=Yz
�3ݤZW(Yp,Yq$):ZX=�ZY(Yp,Yq$):ZZ=ZX!32:�ZZ=11*4 �

Za= ��
�:Za=ZX+11*4
0	�:=Za
XݤZb(Yp):=Yp!4
�OݤZc(Yp,n):Zd=Yp+Yp!8:Ze=1:ȕZe<n:Zf=Zd!0:Zd+=Zf:Ze+=1:�:=��XV(Zd+4),12)+�0
FݤZg(Yp,Yq$):ș&2E,256+24,Yp,Yq$ �,,Zh:Zi=Zh:ZZ=Zi!32:Zj=Zi+ZZ:=Zj
RFݤZk(Yp,Yq$):ș&2E,256+24,Yp,Yq$ �,,Zh:Zi=Zh:Zl=Zi!36:Zm=Zi+Zl:=Zm
�4ݤZY(Yp,Yq$):ș&2E,256+24,Yp,Yq$ �,,Zh:Zn=Zh:=Zn
�&��Zo(Yp,Vy$):ș&2E,256+12,Yp,Vy$:�
&��Wi(Yp,Vy$):ș&2E,256+10,Yp,Vy$:�
B0��Wh(Yp,Zp):Yp!0=Zp:Yp!8=16:ș&2E,256+9,Yp:�
�OݤZq(Yp,Yq$,x,y):�Yh,Zr:ș&2E,256+41,Yp,Yq$,x,y �,,,,,Yt,Yu:Yh=Yt:Zr=Yu:=Yh
�:��Zs(Yp,Yq$,x,y,Yh,Zr):ș&2E,256+42,Yp,Yq$,x,y,Yh,Zr:�
�EݤUw(Zt,Zu$):�Zv,Zw:ș&400C0,Zt,&4B534154,Zu$+�0 �Zv,Zw:Zx=Zw:=Zx
�!��Vj(Zx):ș&400DD,Zx,"TASK":�
 �ݤXa(Vk,Zy,Wr$,XX$,Zz,aU):�Ww,Zw,aV:$Vk=Wr$+�0:Vk!32=Zy:$(Vk+36)=XX$+�0:Ww=(�Zz*2^0)+(�aU*2^1):ș&400DF,Vk+32,Ww,Vk �,Zw:aV=Zw:=aV
���Vc(Vm,Vk,Vq,aW):�aW= �� �
�%Vk!0=Vq:ș&400CB,,Vk:ș&400C5,,Vk
��:ș&400C5,,Vm
��:�
&��Vd(Vk,Vq):Vk!0=Vq:ș&400C6,,Vk:�
BS��aX(Vk,Vq):�Ws,Wt,aY,aZ,aa,ab:Vk!0=Vq:ș&400CC,,Vk:Ws=�Vk!52:�Ws>1000 �Ws=1000
tWt=�Vk!48:�Wt>512 �Wt=512
~�Vk!0=4:Vk!4=5:Vk!8=11:Vk!12=12:Vk!16=-1:ș&31,Vk,Vk+32:aY=Vk!32:aZ=Vk!36:aa=Vk!40:ab=Vk!44:x=aa* 2^aY :y=ab* 2^aZ:x=(x-Ws) �2:y=(y-Wt) �2:Vk!(0)=Vq:Vk!(4+0)=x:Vk!(4+4)=y:Vk!(4+8)=Vk!(4+0)+Ws:Vk!(4+12)=Vk!(4+4)+Wt:Vk!28=-1:ș&400C5,,Vk:�
M��ac(Vk,Vq,ad,ae,af,ag):Vk!0=ad:Vk!4=af:Vk!8=ae:Vk!12=ag:ș&400D7,Vq,Vk:�
xKݤXb(Vk,Vq):�ah,ai:Vk!0=Vq:ș&400CB,,Vk:ah=Vk!32:ai=(ah �2^16)=2^16:=ai
Ҥ��aj(Vk,Vq):�Ws,Wt,ak,al:�am,an,ao,ap:Vk!0=Vq:ș&400CC,,Vk:Ws=Vk!12-Ui!4:Wt=Vk!16-Vk!8:ak=Vk!20:al=Vk!24:am=ak:ap=al:ao=ap-Wt:an=am+Ws:ș&400D1,Vq,am,ao,an,ap:�
T@��aq(Vk,Vq,Vl):Vk!0=Vq:Vk!4=Vl:Vk!8=0:Vk!12=0:ș&400CD,,Vk:�
�-��ar(Vq,Vl,as):ș&400D2,Vq,Vl,0,0,-1,as:�
�%��Vx:ș&400D2,-1,-1,-1,-1,-1,-1:�
 ^ݤVz(Vk,Vq,Vl):�Ww,at,au$:Vk!0=Vq:Vk!4=Vl:ș&400CE,,Vk:Ww=Vk!(8+16):at=(Ww �2^8)=2^8:�at �
 bau$=�XV(Vk!(8+20))
 l�:au$=�XV(Vk+8+20)
 �
�:=au$
 �^��WV(Vk,Vq,Vl,av$):�Ww,at:Vk!0=Vq:Vk!4=Vl:ș&400CE,,Vk:Ww=Vk!(8+16):at=(Ww �2^8)=2^8:�at �
 �$(Vk!(8+20))=av$
!�:$(Vk+8+20)=av$
!3�:Vk!0=Vq:Vk!4=Vl:Vk!8=0:Vk!12=0:ș&400CD,,Vk:�
!p��WY(aw):ș&400DC,aw:�
!�8ݤXV(Wx):�ax$:ax$="":ȕ?Wx>31:ax$+=�?Wx:Wx+=1:�:=ax$
"*��Wk(Vk,Vy$):$Vk=Vy$+�0:ș&400D9,,Vk:�
"B�ݤWl(ay,az,bU,bV$,bW):�Zh,bX,bY,bZ,ba:ș&400DB,,ay,az,bU,-1,bV$,0 �,,Zh:bX=ay!84:bY=Zh:bZ=0:ȕbZ<bX:ba=ay+88+bZ*32:�(ba!16 �&103)=&102 �ba!24=bW
"�bZ+=1:�:=bY
"�%ݤWn(ay):�Vq:ș&400C1,,ay �Vq:=Vq
#��Wo:ș&400DA:�
#P0ݤVa(Vm,bb):�Zv:ș&400C7,bb,Vm �Zv:bc=Zv:=bc
#�<ݤXv(bd):�Zv,Zw,Zh,be:ș&400EC,bd,-1 �Zv,Zw,Zh:be=Zv:=be
#�8ݤXi:�Zv,Zw,Zh,be:ș&400EC,-1,-1 �Zv,Zw,Zh:be=Zv:=be
$"8ݤXu:�Zv,Zw,Zh,bf:ș&400EC,-1,-1 �Zv,Zw,Zh:bf=Zh:=bf
$h���bg(Vk):�aY,aZ,aa,ab:Vk!0=4:Vk!4=5:Vk!8=11:Vk!12=12:Vk!16=-1:ș&31,Vk,Vk+32:aY=Vk!32:aZ=Vk!36:aa=Vk!40:ab=Vk!44:ȗȓ0,0,aa*2^aY,ab*2^aZ:�
$����bh(Vk,Vq):�Ws,Wt,aY,aZ,aa,ab:!Vk=Vq:ș&400CC,,Vk:Ws=�Vk!52:Wt=�Vk!48:Vk!0=4:Vk!4=5:Vk!8=11:Vk!12=12:Vk!16=-1:ș&31,Vk,Vk+32:aY=Vk!32:aZ=Vk!36:aa=Vk!40:ab=Vk!44:x=aa* 2^aY :y=ab* 2^aZ:x=(x-Ws)/2:y=(y-Wt)/2:Vk!0=Vq:Vk!(0+4+0)=x:Vk!(0+4+4)=y
%l~Vk!(0+4+8)=Vk!(0+4+0)+Ws:Vk!(0+4+12)=Vk!(0+4+4)+Wt:ș&400C5,,Vk:x=((aa*2^aY)-Ws ) / 2:y=((ab*2^aZ)-Wt) / 2:ȗȓx,y,Ws,Wt:�
%����bi(Vk,Vq,Vl,bj,bk):!Vk=Vq:ș&400CC,,Vk:bl=Vk!4:bm=Vk!8:bn=Vk!12:bo=Vk!16:Vk!0=Vq:Vk!4=Vl:ș&400CE,,Vk:bp=Vk!8:bq=Vk!12:br=Vk!16:bs=Vk!20:bt=br-bp:bu=bs-bq:Wc=bl+bp:We=bo+bq:ȗȓWc+bj,We+bk,bt-bj*2,bu-bk*2:�
&fo��bv(Vk,Vq,Vn,Vo):!Vk=Vq:ș&400CC,,Vk:bw=Vk!4-Vk!20:bx=Vk!16-Vk!24:bw=Vn-bw:bx=1024-(bx-Vo):by%=bw:bz%=bx:�
&����cU(Vk,Vq,cV):Vk!0=Vq:ș&400CC,,Vk:cW=Vk!4:cX=Vk!12:cY=Vk!8:cZ=Vk!16:ca=Vk!28:Vk!0=cV:ș&400CC,,Vk:Wc=cW-(Vk!12-Vk!4)-1:Wt=Vk!8-Vk!16:Vk!4=Wc:Vk!12=cX:Vk!8=Wt:Vk!16=cZ:Vk!20=0:Vk!28=ca:ș&400C5,,Vk:�
'�ݤYY(Yn):=((Yn+3) �(�3))
'�LݤVY:ș&1E,6,,,16 �,,Zh:VX=Zh:ș&41501,VX,"<"+Ud$+"$Dir>.Messages",0:=VX
(&��Vi(cb):ș&41504,cb:ș&1E,7,,cb:�
(<IݤXY(cb,Xc$):ș&41502,cb,Xc$,0,0,0,0,0,0 �,,Zh:cc=Zh:cd$=�XV(cc):=cd$
(�Z��ce(cf,cg,ch):ci=cf:cj=cg:ck=ch:cl=4:�bi(Ui,ci,ck,16,0):ș&1C �Yk,Yl,Ym:cm=Yk-1:�cn:�
)��cn:Ȏci �
)"�co:Ȏck �
),'�2:cp=�cq(cp,2):�cr(�(64*(cs/100)))
)@�
)J�:�
)r'ݤcq(cg,ch):ș&1C �Yk,Yl,Ym:�Ym=0 �
)�cl=0:�bg(Ui)
)��:�Yk<>cm �
*�!Ui=ci:ș&400CC,,Ui:bl=Ui!4:ct=Yk-bl:Ui!0=ci:Ui!4=cg:ș&400CE,,Ui:bp=Ui!(8+0):bq=Ui!(8+4):br=Ui!(8+8):bs=Ui!(8+12):Ui!(100+0)=ci:Ui!(100+4)=cg:ș&400C4,,Ui+100:ș&400D1,ci,bp,bq,br,bs:Ui!(8+8)=ct:Ui!4=ci:ș&400C2,,Ui+4 �cg:�aq(Ui,ci,cg):Ui!0=ci
+ ?Ui!4=ck:ș&400CE,,Ui:cu=Ui!(8+8)-16:cm=Yk:cs=�((ct/cu)*100)
+f�
+z	�:=cg
+�R��cv(Vk,Vq,cw$):�Ww,at:!Vk=Vq:ș&400CC,,Vk:Ww=Vk!(4+56):at=(Ww �2^8)=2^8:�at �
+�$cx=!(Vk+4+72):$!(Vk+4+72)=cw$+�0
,�:$(Vk+4+72)=av$+�0
,�:�
,BO��cy(Vk,Vq,Vl,cz):Vk!0=Vq:Vk!4=Vl:Vk!8=(�cz)<<21:Vk!12=1<<21:ș&400CD,,Vk:�
,�O��Vt(Vk,Vq,Vl,dU):Vk!0=Vq:Vk!4=Vl:Vk!8=(�dU)<<22:Vk!12=1<<22:ș&400CD,,Vk:�
,�PݤVu(Vk,Vq,Vl):Vk!0=Vq:Vk!4=Vl:ș&400CE,,Vk:dV=(Vk!(8+16)) �2^21:=�(dV=2^21)
-F0��Vs(Vk,Vq,Vl):�cy(Vk,Vq,Vl,�Vu(Vk,Vq,Vl)):�
-xݤVv(Vk):ș&400D3,,Vk:=Vk!0
-�ݤVw(Vk):ș&400D3,,Vk:=Vk!4
�
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 ff 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 44 45 38 3a 55 63  |Ua=-2:Ub=&DE8:Uc|
00000050  3d 26 46 45 44 3a 55 64  24 3d 22 52 6f 74 6f 50  |=&FED:Ud$="RotoP|
00000060  6c 61 79 22 3a 55 65 24  3d 22 52 6f 74 6f 50 6c  |lay":Ue$="RotoPl|
00000070  61 79 22 3a 55 66 3d 32  2a 31 30 32 34 20 3a de  |ay":Uf=2*1024 :.|
00000080  55 67 20 55 66 3a 55 68  3d 32 2a 31 30 32 34 20  |Ug Uf:Uh=2*1024 |
00000090  3a de 55 69 20 55 68 3a  55 6a 3d 32 2a 31 30 32  |:.Ui Uh:Uj=2*102|
000000a0  34 20 3a de 55 6b 20 55  6a 3a 55 6c 3d 32 2a 31  |4 :.Uk Uj:Ul=2*1|
000000b0  30 32 34 20 3a de 55 6d  20 55 6c 3a 55 6e 3d 34  |024 :.Um Ul:Un=4|
000000c0  2a 31 30 32 34 20 3a de  55 6f 20 55 6e 3a 55 70  |*1024 :.Uo Un:Up|
000000d0  3d 31 2a 31 30 32 34 20  3a de 55 71 20 55 70 3a  |=1*1024 :.Uq Up:|
000000e0  55 72 3d 31 32 30 3a de  55 73 20 55 72 3a 55 74  |Ur=120:.Us Ur:Ut|
000000f0  3d 31 3a 55 75 3d 20 ac  b9 3a 55 76 3d a4 55 77  |=1:Uu= ..:Uv=.Uw|
00000100  28 32 2a 31 30 30 2c 55  65 24 29 3a 55 78 3d 30  |(2*100,Ue$):Ux=0|
00000110  3a f2 55 79 3a f2 55 7a  3a f2 56 55 3a 56 56 3d  |:.Uy:.Uz:.VU:VV=|
00000120  a4 56 57 28 55 69 29 0d  01 7c 0c 56 58 3d a4 56  |.VW(Ui)..|.VX=.V|
00000130  59 3a e1 0d 01 a4 1f dd  f2 55 57 3a f5 3a 56 5a  |Y:.......UW:.:VZ|
00000140  3d a4 56 61 28 55 67 2c  55 74 29 3a c8 8e 56 5a  |=.Va(Ug,Ut):..VZ|
00000150  20 ca 0d 01 cc 0e c9 31  3a f2 56 62 28 55 67 29  | ......1:.Vb(Ug)|
00000160  0d 01 d6 16 c9 32 3a f2  56 63 28 55 67 2c 55 69  |.....2:.Vc(Ug,Ui|
00000170  2c 2d 31 2c b9 29 0d 01  e0 13 c9 33 3a f2 56 64  |,-1,.).....3:.Vd|
00000180  28 55 69 2c 55 67 21 30  29 0d 01 ea 0e c9 36 3a  |(Ui,Ug!0).....6:|
00000190  f2 56 65 28 55 67 29 0d  01 f4 0e c9 38 3a f2 56  |.Ve(Ug).....8:.V|
000001a0  66 28 55 67 29 0d 01 fe  0e c9 39 3a f2 56 67 28  |f(Ug).....9:.Vg(|
000001b0  55 67 29 0d 02 08 0f c9  31 37 3a f2 56 68 28 55  |Ug).....17:.Vh(U|
000001c0  67 29 0d 02 12 0f c9 31  38 3a f2 56 68 28 55 67  |g).....18:.Vh(Ug|
000001d0  29 0d 02 1c 1b cb 3a fd  55 75 3a f2 56 69 28 56  |).....:.Uu:.Vi(V|
000001e0  58 29 3a f2 56 6a 28 55  76 29 3a e1 0d 02 80 69  |X):.Vj(Uv):....i|
000001f0  dd a4 56 57 28 56 6b 29  3a 56 6b 21 30 3d 2d 31  |..VW(Vk):Vk!0=-1|
00000200  3a 56 6b 21 34 3d 30 3a  56 6b 21 38 3d 30 3a 56  |:Vk!4=0:Vk!8=0:V|
00000210  6b 21 31 32 3d 36 38 3a  56 6b 21 31 36 3d 36 38  |k!12=68:Vk!16=68|
00000220  3a 56 6b 21 32 30 3d 26  33 30 30 32 3a 24 28 56  |:Vk!20=&3002:$(V|
00000230  6b 2b 32 34 29 3d 22 21  22 2b 55 64 24 2b bd 30  |k+24)="!"+Ud$+.0|
00000240  3a c8 99 26 34 30 30 43  32 2c 2c 56 6b 20 b8 56  |:..&400C2,,Vk .V|
00000250  6c 3a 3d 56 6c 0d 02 f8  3d dd f2 56 65 28 56 6d  |l:=Vl...=..Ve(Vm|
00000260  29 3a 56 6e 3d 56 6d 21  30 3a 56 6f 3d 56 6d 21  |):Vn=Vm!0:Vo=Vm!|
00000270  34 3a 56 70 3d 56 6d 21  38 3a 56 71 3d 56 6d 21  |4:Vp=Vm!8:Vq=Vm!|
00000280  31 32 3a 56 6c 3d 56 6d  21 31 36 3a c8 8e 56 70  |12:Vl=Vm!16:..Vp|
00000290  20 ca 0d 03 3e 0e c9 55  58 3a c8 8e 56 71 20 ca  | ...>..UX:..Vq .|
000002a0  0d 03 48 21 c9 55 61 3a  e7 56 6c 3d 56 56 20 8c  |..H!.Ua:.Vl=VV .|
000002b0  f2 56 63 28 55 67 2c 55  69 2c 56 72 2c 20 ac b9  |.Vc(Ug,Ui,Vr, ..|
000002c0  29 0d 03 52 0e c9 56 72  3a c8 8e 56 6c 20 ca 0d  |)..R..Vr:..Vl ..|
000002d0  03 5c 4d c9 32 3a f2 56  73 28 55 69 2c 56 71 2c  |.\M.2:.Vs(Ui,Vq,|
000002e0  56 6c 29 3a f2 56 74 28  55 69 2c 56 71 2c 38 2c  |Vl):.Vt(Ui,Vq,8,|
000002f0  20 ac a4 56 75 28 55 69  2c 56 71 2c 56 6c 29 29  | ..Vu(Ui,Vq,Vl))|
00000300  3a e7 a4 56 76 28 55 69  29 3d 56 71 20 80 a4 56  |:..Vv(Ui)=Vq ..V|
00000310  77 28 55 69 29 3d 38 20  8c f2 56 78 0d 03 7a 20  |w(Ui)=8 ..Vx..z |
00000320  c9 35 3a 56 79 24 3d a4  56 7a 28 55 69 2c 56 71  |.5:Vy$=.Vz(Ui,Vq|
00000330  2c 31 29 3a f2 57 55 28  56 79 24 29 0d 03 8e 26  |,1):.WU(Vy$)...&|
00000340  c9 36 3a f2 57 56 28 55  69 2c 56 71 2c 31 2c 22  |.6:.WV(Ui,Vq,1,"|
00000350  22 29 3a f2 57 56 28 55  69 2c 56 71 2c 38 2c 22  |"):.WV(Ui,Vq,8,"|
00000360  22 29 0d 03 a2 14 c9 39  3a f2 56 73 28 55 69 2c  |").....9:.Vs(Ui,|
00000370  56 71 2c 56 6c 29 0d 03  ac 50 c9 31 30 3a f2 56  |Vq,Vl)...P.10:.V|
00000380  73 28 55 69 2c 56 71 2c  56 6c 29 3a f2 56 74 28  |s(Ui,Vq,Vl):.Vt(|
00000390  55 69 2c 56 71 2c 31 31  2c 20 ac a4 56 75 28 55  |Ui,Vq,11, ..Vu(U|
000003a0  69 2c 56 71 2c 56 6c 29  29 3a e7 a4 56 76 28 55  |i,Vq,Vl)):..Vv(U|
000003b0  69 29 3d 56 71 20 80 a4  56 77 28 55 69 29 3d 31  |i)=Vq ..Vw(Ui)=1|
000003c0  31 20 8c f2 56 78 0d 03  ca 15 c9 31 32 3a f2 56  |1 ..Vx.....12:.V|
000003d0  73 28 55 69 2c 56 71 2c  56 6c 29 0d 03 d4 05 cb  |s(Ui,Vq,Vl).....|
000003e0  0d 03 de 05 cb 0d 03 e8  0e c9 55 59 3a c8 8e 56  |..........UY:..V|
000003f0  71 20 ca 0d 03 f2 17 c9  55 61 3a e7 56 6c 3d 56  |q ......Ua:.Vl=V|
00000400  56 20 8c f2 57 57 28 56  6e 29 0d 03 fc 05 cb 0d  |V ..WW(Vn)......|
00000410  04 06 0e c9 55 5a 3a c8  8e 56 71 20 ca 0d 04 10  |....UZ:..Vq ....|
00000420  21 c9 55 61 3a e7 56 6c  3d 56 56 20 8c f2 56 63  |!.Ua:.Vl=VV ..Vc|
00000430  28 55 67 2c 55 69 2c 56  72 2c 20 ac b9 29 0d 04  |(Ug,Ui,Vr, ..)..|
00000440  1a 0e c9 56 72 3a c8 8e  56 6c 20 ca 0d 04 24 4d  |...Vr:..Vl ...$M|
00000450  c9 32 3a f2 56 73 28 55  69 2c 56 71 2c 56 6c 29  |.2:.Vs(Ui,Vq,Vl)|
00000460  3a f2 56 74 28 55 69 2c  56 71 2c 38 2c 20 ac a4  |:.Vt(Ui,Vq,8, ..|
00000470  56 75 28 55 69 2c 56 71  2c 56 6c 29 29 3a e7 a4  |Vu(Ui,Vq,Vl)):..|
00000480  56 76 28 55 69 29 3d 56  71 20 80 a4 56 77 28 55  |Vv(Ui)=Vq ..Vw(U|
00000490  69 29 3d 38 20 8c f2 56  78 0d 04 42 20 c9 35 3a  |i)=8 ..Vx..B .5:|
000004a0  56 79 24 3d a4 56 7a 28  55 69 2c 56 71 2c 31 29  |Vy$=.Vz(Ui,Vq,1)|
000004b0  3a f2 57 55 28 56 79 24  29 0d 04 56 26 c9 36 3a  |:.WU(Vy$)..V&.6:|
000004c0  f2 57 56 28 55 69 2c 56  71 2c 31 2c 22 22 29 3a  |.WV(Ui,Vq,1,""):|
000004d0  f2 57 56 28 55 69 2c 56  71 2c 38 2c 22 22 29 0d  |.WV(Ui,Vq,8,"").|
000004e0  04 6a 14 c9 39 3a f2 56  73 28 55 69 2c 56 71 2c  |.j..9:.Vs(Ui,Vq,|
000004f0  56 6c 29 0d 04 74 50 c9  31 30 3a f2 56 73 28 55  |Vl)..tP.10:.Vs(U|
00000500  69 2c 56 71 2c 56 6c 29  3a f2 56 74 28 55 69 2c  |i,Vq,Vl):.Vt(Ui,|
00000510  56 71 2c 31 31 2c 20 ac  a4 56 75 28 55 69 2c 56  |Vq,11, ..Vu(Ui,V|
00000520  71 2c 56 6c 29 29 3a e7  a4 56 76 28 55 69 29 3d  |q,Vl)):..Vv(Ui)=|
00000530  56 71 20 80 a4 56 77 28  55 69 29 3d 31 31 20 8c  |Vq ..Vw(Ui)=11 .|
00000540  f2 56 78 0d 04 92 15 c9  31 32 3a f2 56 73 28 55  |.Vx.....12:.Vs(U|
00000550  69 2c 56 71 2c 56 6c 29  0d 04 9c 05 cb 0d 04 a6  |i,Vq,Vl)........|
00000560  05 cb 0d 04 b0 07 cb 3a  e1 0d 04 d8 2c dd f2 56  |.......:....,..V|
00000570  66 28 56 6d 29 3a 56 71  3d 56 6d 21 30 3a 56 6c  |f(Vm):Vq=Vm!0:Vl|
00000580  3d 56 6d 21 34 3a 57 58  3d 56 6d 21 32 34 3a c8  |=Vm!4:WX=Vm!24:.|
00000590  8e 56 71 20 ca 0d 05 0a  0b c9 56 72 3a f2 56 78  |.Vq ......Vr:.Vx|
000005a0  0d 05 14 0d 7f 3a f2 57  59 28 57 58 29 0d 05 28  |.....:.WY(WX)..(|
000005b0  07 cb 3a e1 0d 05 50 16  dd f2 56 68 28 56 6d 29  |..:...P...Vh(Vm)|
000005c0  3a c8 8e 56 6d 21 31 36  20 ca 0d 05 64 0b c9 30  |:..Vm!16 ...d..0|
000005d0  3a 55 75 3d b9 0d 05 6e  0e c9 33 3a f2 57 5a 28  |:Uu=...n..3:.WZ(|
000005e0  56 6d 29 0d 05 78 11 c9  26 35 30 32 3a f2 57 61  |Vm)..x..&502:.Wa|
000005f0  28 56 6d 29 0d 05 82 07  cb 3a e1 0d 05 aa 62 dd  |(Vm).....:....b.|
00000600  f2 56 62 28 56 6d 29 3a  c8 99 26 34 30 30 43 38  |.Vb(Vm):..&400C8|
00000610  2c 2c 56 6d 20 b8 57 62  3a 57 63 3d 56 6d 21 34  |,,Vm .Wb:Wc=Vm!4|
00000620  3a 57 64 3d 56 6d 21 31  36 3a 57 65 3d 56 6d 21  |:Wd=Vm!16:We=Vm!|
00000630  38 3a 57 66 3d 56 6d 21  32 30 3a 57 67 3d 56 6d  |8:Wf=Vm!20:Wg=Vm|
00000640  21 32 34 3a c8 95 57 62  3a c8 99 26 34 30 30 43  |!24:..Wb:..&400C|
00000650  41 2c 2c 56 6d 20 b8 57  62 3a ce 3a e1 0d 06 2c  |A,,Vm .Wb:.:...,|
00000660  35 dd f2 55 79 3a f2 57  68 28 55 6f 2c 55 6e 29  |5..Uy:.Wh(Uo,Un)|
00000670  3a f2 57 69 28 55 6f 2c  22 3c 22 2b 55 64 24 2b  |:.Wi(Uo,"<"+Ud$+|
00000680  22 24 44 69 72 3e 2e 53  70 72 69 74 65 73 22 29  |"$Dir>.Sprites")|
00000690  3a e1 0d 06 68 90 dd f2  55 7a 3a 57 6a 3d 55 6d  |:...h...Uz:Wj=Um|
000006a0  3a f2 57 6b 28 55 69 2c  22 3c 22 2b 55 64 24 2b  |:.Wk(Ui,"<"+Ud$+|
000006b0  22 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |"$Dir>.Templates|
000006c0  22 29 3a 57 6a 3d a4 57  6c 28 55 6b 2c 57 6a 2c  |"):Wj=.Wl(Uk,Wj,|
000006d0  55 6d 2b 55 6c 2c 22 69  6e 66 6f 72 6d 61 74 69  |Um+Ul,"informati|
000006e0  6f 6e 22 2c 55 6f 29 3a  57 6d 3d a4 57 6e 28 55  |on",Uo):Wm=.Wn(U|
000006f0  6b 29 3a 57 6a 3d a4 57  6c 28 55 6b 2c 57 6a 2c  |k):Wj=.Wl(Uk,Wj,|
00000700  55 6d 2b 55 6c 2c 22 73  65 74 75 70 22 2c 55 6f  |Um+Ul,"setup",Uo|
00000710  29 3a 56 72 3d a4 57 6e  28 55 6b 29 3a f2 57 6f  |):Vr=.Wn(Uk):.Wo|
00000720  3a e1 0d 06 d6 66 dd f2  57 57 28 56 6e 29 3a 55  |:....f..WW(Vn):U|
00000730  78 3d 31 3a f2 57 70 28  55 64 24 2c 31 32 38 2c  |x=1:.Wp(Ud$,128,|
00000740  34 34 29 3a f2 57 71 28  22 49 6e 66 6f 22 2c 30  |44):.Wq("Info",0|
00000750  2c 57 6d 2c 20 ac b9 29  3a f2 57 71 28 22 51 75  |,Wm, ..):.Wq("Qu|
00000760  69 74 22 2c 31 32 38 2c  2d 31 2c 20 ac b9 29 3a  |it",128,-1, ..):|
00000770  c8 99 26 34 30 30 44 34  2c 2c 55 71 2c 56 6e 2d  |..&400D4,,Uq,Vn-|
00000780  36 34 2c 31 38 34 3a e1  0d 07 30 95 dd f2 57 70  |64,184:...0...Wp|
00000790  28 57 72 24 2c 57 73 2c  57 74 29 3a 57 75 3d 30  |(Wr$,Ws,Wt):Wu=0|
000007a0  3a 24 28 55 71 2b 57 75  29 3d 57 72 24 2b bd 30  |:$(Uq+Wu)=Wr$+.0|
000007b0  3a 3f 28 55 71 2b 57 75  2b 31 32 29 3d 37 3a 3f  |:?(Uq+Wu+12)=7:?|
000007c0  28 55 71 2b 57 75 2b 31  33 29 3d 32 3a 3f 28 55  |(Uq+Wu+13)=2:?(U|
000007d0  71 2b 57 75 2b 31 34 29  3d 37 3a 3f 28 55 71 2b  |q+Wu+14)=7:?(Uq+|
000007e0  57 75 2b 31 35 29 3d 30  3a 21 28 55 71 2b 57 75  |Wu+15)=0:!(Uq+Wu|
000007f0  2b 31 36 29 3d 57 73 3a  21 28 55 71 2b 57 75 2b  |+16)=Ws:!(Uq+Wu+|
00000800  32 30 29 3d 57 74 3a 21  28 55 71 2b 57 75 2b 32  |20)=Wt:!(Uq+Wu+2|
00000810  34 29 3d 30 3a 57 75 2b  3d 32 38 3a e1 0d 07 bc  |4)=0:Wu+=28:....|
00000820  6c dd f2 57 71 28 57 76  24 2c 57 77 2c 57 78 2c  |l..Wq(Wv$,Ww,Wx,|
00000830  57 79 29 3a 21 28 55 71  2b 57 75 2b 30 29 3d 57  |Wy):!(Uq+Wu+0)=W|
00000840  77 3a 21 28 55 71 2b 57  75 2b 34 29 3d 57 78 3a  |w:!(Uq+Wu+4)=Wx:|
00000850  21 28 55 71 2b 57 75 2b  38 29 3d 26 30 37 30 30  |!(Uq+Wu+8)=&0700|
00000860  30 30 30 31 2b 94 57 79  2a 32 5e 32 32 3a 24 28  |0001+.Wy*2^22:$(|
00000870  55 71 2b 57 75 2b 31 32  29 3d 57 76 24 2b bd 30  |Uq+Wu+12)=Wv$+.0|
00000880  3a 57 75 2b 3d 32 34 3a  e1 0d 08 16 1b dd f2 56  |:Wu+=24:.......V|
00000890  67 28 56 6d 29 3a 57 7a  3d 56 6d 21 30 3a c8 8e  |g(Vm):Wz=Vm!0:..|
000008a0  55 78 20 ca 0d 08 34 0d  c9 31 3a c8 8e 57 7a 20  |Ux ...4..1:..Wz |
000008b0  ca 0d 08 3e 0b c9 31 3a  55 75 3d b9 0d 08 48 05  |...>..1:Uu=...H.|
000008c0  cb 0d 08 52 33 cb 3a c8  99 26 34 30 30 43 46 2c  |...R3.:..&400CF,|
000008d0  2c 56 6d 3a 56 6e 3d 56  6d 21 30 3a 56 6f 3d 56  |,Vm:Vn=Vm!0:Vo=V|
000008e0  6d 21 34 3a 56 70 3d 56  6d 21 38 3a e7 56 70 3d  |m!4:Vp=Vm!8:.Vp=|
000008f0  55 5a 20 8c 0d 08 8e 0a  c8 8e 55 78 20 ca 0d 08  |UZ .......Ux ...|
00000900  98 0e c9 31 3a f2 57 57  28 56 6e 29 0d 08 a2 05  |...1:.WW(Vn)....|
00000910  cb 0d 08 ac 0e cc 3a e7  55 78 3c 3e 31 20 8c 0d  |......:.Ux<>1 ..|
00000920  08 c0 15 c8 99 26 34 30  30 44 34 2c 2c 2d 31 3a  |.....&400D4,,-1:|
00000930  55 78 3d 30 0d 08 d4 05  cd 0d 08 de 07 cd 3a e1  |Ux=0..........:.|
00000940  0d 09 06 63 dd f2 57 5a  28 56 6d 29 3a 58 55 3d  |...c..WZ(Vm):XU=|
00000950  56 6d 21 34 30 3a 56 79  24 3d a4 58 56 28 56 6d  |Vm!40:Vy$=.XV(Vm|
00000960  2b 34 34 29 3a 58 57 3d  56 6d 21 34 3a 56 6d 21  |+44):XW=Vm!4:Vm!|
00000970  31 36 3d 34 3a 56 6d 21  31 32 3d 56 6d 21 38 3a  |16=4:Vm!12=Vm!8:|
00000980  c8 99 26 34 30 30 45 37  2c 31 37 2c 56 6d 2c 58  |..&400E7,17,Vm,X|
00000990  57 3a e7 58 55 3c 3e 55  62 20 80 58 55 3c 3e 55  |W:.XU<>Ub .XU<>U|
000009a0  63 20 8c 0d 09 56 33 58  58 24 3d a4 58 59 28 56  |c ...V3XX$=.XY(V|
000009b0  58 2c 22 65 72 72 30 31  22 29 3a 58 5a 3d a4 58  |X,"err01"):XZ=.X|
000009c0  61 28 55 69 2c 39 39 2c  55 64 24 2c 58 58 24 2c  |a(Ui,99,Ud$,XX$,|
000009d0  20 ac b9 2c b9 29 0d 09  6a 0c cc 3a c8 8e 58 55  | ..,.)..j..:..XU|
000009e0  20 ca 0d 09 7e 28 c9 55  62 3a f2 57 56 28 55 69  | ...~(.Ub:.WV(Ui|
000009f0  2c 56 72 2c 31 2c 56 79  24 29 3a e7 20 ac a4 58  |,Vr,1,Vy$):. ..X|
00000a00  62 28 55 69 2c 56 72 29  20 8c 0d 09 92 15 f2 56  |b(Ui,Vr) ......V|
00000a10  63 28 55 67 2c 55 69 2c  56 72 2c 20 ac b9 29 0d  |c(Ug,Ui,Vr, ..).|
00000a20  09 9c 05 cd 0d 09 a6 2a  c9 55 63 3a f2 57 56 28  |.......*.Uc:.WV(|
00000a30  55 69 2c 56 72 2c 38 2c  56 79 24 29 3a e7 20 ac  |Ui,Vr,8,Vy$):. .|
00000a40  a4 56 75 28 55 69 2c 56  72 2c 32 29 20 8c 0d 09  |.Vu(Ui,Vr,2) ...|
00000a50  ba 21 f2 56 73 28 55 69  2c 56 72 2c 32 29 3a f2  |.!.Vs(Ui,Vr,2):.|
00000a60  56 74 28 55 69 2c 56 72  2c 38 2c 20 ac b9 29 0d  |Vt(Ui,Vr,8, ..).|
00000a70  09 ce 15 cd 3a e7 20 ac  a4 58 62 28 55 69 2c 56  |....:. ..Xb(Ui,V|
00000a80  72 29 20 8c 0d 09 e2 15  f2 56 63 28 55 67 2c 55  |r) ......Vc(Ug,U|
00000a90  69 2c 56 72 2c 20 ac b9  29 0d 09 ec 05 cd 0d 09  |i,Vr, ..).......|
00000aa0  f6 05 cb 0d 0a 00 07 cd  3a e1 0d 0a 28 34 dd f2  |........:...(4..|
00000ab0  57 61 28 56 6d 29 3a 58  63 24 3d 22 22 3a 58 57  |Wa(Vm):Xc$="":XW|
00000ac0  3d 56 6d 21 34 3a 58 64  3d 56 6d 21 33 32 3a 58  |=Vm!4:Xd=Vm!32:X|
00000ad0  65 3d 56 6d 21 33 36 3a  c8 8e 58 64 20 ca 0d 0a  |e=Vm!36:..Xd ...|
00000ae0  64 1a c9 55 61 3a e7 58  65 3d 56 56 20 8c 58 63  |d..Ua:.Xe=VV .Xc|
00000af0  24 3d 22 69 62 61 72 22  0d 0a 6e 19 c9 56 72 3a  |$="ibar"..n..Vr:|
00000b00  58 63 24 3d 22 73 65 74  70 22 3a c8 8e 58 65 20  |Xc$="setp":..Xe |
00000b10  ca 0d 0a 82 11 c9 31 3a  58 63 24 3d 22 73 65 30  |......1:Xc$="se0|
00000b20  31 22 0d 0a 8c 11 c9 32  3a 58 63 24 3d 22 73 65  |1".....2:Xc$="se|
00000b30  30 32 22 0d 0a 96 11 c9  35 3a 58 63 24 3d 22 73  |02".....5:Xc$="s|
00000b40  65 30 35 22 0d 0a a0 11  c9 36 3a 58 63 24 3d 22  |e05".....6:Xc$="|
00000b50  73 65 30 36 22 0d 0a aa  11 c9 38 3a 58 63 24 3d  |se06".....8:Xc$=|
00000b60  22 73 65 30 38 22 0d 0a  b4 11 c9 39 3a 58 63 24  |"se08".....9:Xc$|
00000b70  3d 22 73 65 30 39 22 0d  0a be 12 c9 31 30 3a 58  |="se09".....10:X|
00000b80  63 24 3d 22 73 65 31 30  22 0d 0a c8 12 c9 31 31  |c$="se10".....11|
00000b90  3a 58 63 24 3d 22 73 65  31 31 22 0d 0a d2 12 c9  |:Xc$="se11".....|
00000ba0  31 32 3a 58 63 24 3d 22  73 65 31 32 22 0d 0a dc  |12:Xc$="se12"...|
00000bb0  05 cb 0d 0a e6 10 cb 3a  e7 58 63 24 3c 3e 22 22  |.......:.Xc$<>""|
00000bc0  20 8c 0d 0a fa 65 58 66  24 3d a4 58 59 28 56 58  | ....eXf$=.XY(VX|
00000bd0  2c 58 63 24 29 3a 56 6d  21 30 3d 32 30 2b 28 28  |,Xc$):Vm!0=20+((|
00000be0  a9 28 58 66 24 29 20 81  34 29 2a 34 29 2b 34 3a  |.(Xf$) .4)*4)+4:|
00000bf0  56 6d 21 31 32 3d 56 6d  21 38 3a 56 6d 21 31 36  |Vm!12=Vm!8:Vm!16|
00000c00  3d 26 35 30 33 3a 24 28  56 6d 2b 32 30 29 3d 58  |=&503:$(Vm+20)=X|
00000c10  66 24 2b bd 30 3a c8 99  26 34 30 30 45 37 2c 31  |f$+.0:..&400E7,1|
00000c20  37 2c 56 6d 2c 58 57 0d  0b 36 07 cd 3a e1 0d 0c  |7,Vm,XW..6..:...|
00000c30  1c 25 dd f2 56 55 3a c8  99 26 35 31 20 b8 58 67  |.%..VU:..&51 .Xg|
00000c40  3a 58 68 3d a4 58 69 3a  58 6a 3d 30 3a 58 6b 3d  |:Xh=.Xi:Xj=0:Xk=|
00000c50  93 3a e1 0d 0c 6c 47 dd  a4 58 6c 28 58 6d 29 3a  |.:...lG..Xl(Xm):|
00000c60  ea 58 6e 2c 58 6f 3a ea  58 70 2c 58 71 2c 58 72  |.Xn,Xo:.Xp,Xq,Xr|
00000c70  3a ea 58 73 2c 58 74 3a  58 6e 3d 28 58 6d 20 81  |:.Xs,Xt:Xn=(Xm .|
00000c80  58 67 29 2b 31 3a 58 6f  3d 58 6e 2a 20 58 67 3a  |Xg)+1:Xo=Xn* Xg:|
00000c90  e7 a4 58 75 3e 3d 58 6d  20 8c 0d 0c b2 2f 58 70  |..Xu>=Xm ..../Xp|
00000ca0  3d a4 58 69 3a 58 71 3d  58 70 2b 58 6d 3a 58 72  |=.Xi:Xq=Xp+Xm:Xr|
00000cb0  3d a4 58 76 28 58 71 29  3a 58 6a 2b 3d 58 6d 3a  |=.Xv(Xq):Xj+=Xm:|
00000cc0  58 73 3d 93 3a 58 74 3d  b9 0d 0c ee 0c cc 3a 58  |Xs=.:Xt=......:X|
00000cd0  74 3d 20 ac b9 0d 0d 02  09 cd 3a 3d 58 74 0d 0d  |t= .......:=Xt..|
00000ce0  2a 28 dd a4 58 77 28 58  6d 29 3a 58 6e 3d 28 58  |*(..Xw(Xm):Xn=(X|
00000cf0  6d 20 81 58 67 29 2b 31  3a 58 6f 3d 58 6e 2a 20  |m .Xg)+1:Xo=Xn* |
00000d00  58 67 3a 3d 58 6f 0d 0d  66 18 dd f2 58 78 3a 58  |Xg:=Xo..f...Xx:X|
00000d10  70 3d a4 58 69 3a e7 58  70 3e 58 68 20 8c 0d 0d  |p=.Xi:.Xp>Xh ...|
00000d20  84 13 58 5a 3d a4 58 76  28 58 68 29 3a 58 6a 3d  |..XZ=.Xv(Xh):Xj=|
00000d30  30 0d 0d 98 07 cd 3a e1  0d 0e 24 1c dd f2 57 55  |0.....:...$...WU|
00000d40  28 56 79 24 29 3a e7 a7  56 79 24 2c 22 2e 22 29  |(Vy$):..Vy$,".")|
00000d50  3d 30 20 8c 0d 0e 4c 33  58 58 24 3d a4 58 59 28  |=0 ...L3XX$=.XY(|
00000d60  56 58 2c 22 65 72 72 30  37 22 29 3a 58 5a 3d a4  |VX,"err07"):XZ=.|
00000d70  58 61 28 55 69 2c 39 39  2c 55 64 24 2c 58 58 24  |Xa(Ui,99,Ud$,XX$|
00000d80  2c 20 ac b9 2c b9 29 0d  0e 6a 20 cc 3a c8 99 26  |, ..,.)..j .:..&|
00000d90  39 30 31 30 30 2c 56 79  24 2c 55 69 20 b8 58 74  |90100,Vy$,Ui .Xt|
00000da0  3a c8 8e 58 74 20 ca 0d  0e a6 36 c9 30 3a 58 58  |:..Xt ....6.0:XX|
00000db0  24 3d a4 58 59 28 56 58  2c 22 65 72 72 30 33 22  |$=.XY(VX,"err03"|
00000dc0  29 3a 58 5a 3d a4 58 61  28 55 69 2c 39 39 2c 55  |):XZ=.Xa(Ui,99,U|
00000dd0  64 24 2c 58 58 24 2c 20  ac b9 2c b9 29 0d 0e ba  |d$,XX$, ..,.)...|
00000de0  36 c9 31 3a 58 58 24 3d  a4 58 59 28 56 58 2c 22  |6.1:XX$=.XY(VX,"|
00000df0  65 72 72 30 34 22 29 3a  58 5a 3d a4 58 61 28 55  |err04"):XZ=.Xa(U|
00000e00  69 2c 39 39 2c 55 64 24  2c 58 58 24 2c 20 ac b9  |i,99,Ud$,XX$, ..|
00000e10  2c b9 29 0d 0e ce 36 c9  32 3a 58 58 24 3d a4 58  |,.)...6.2:XX$=.X|
00000e20  59 28 56 58 2c 22 65 72  72 30 35 22 29 3a 58 5a  |Y(VX,"err05"):XZ|
00000e30  3d a4 58 61 28 55 69 2c  39 39 2c 55 64 24 2c 58  |=.Xa(Ui,99,Ud$,X|
00000e40  58 24 2c 20 ac b9 2c b9  29 0d 0e ec 50 7f 3a 58  |X$, ..,.)...P.:X|
00000e50  79 3d 55 69 21 30 3a 57  73 3d 55 69 21 34 3a 57  |y=Ui!0:Ws=Ui!4:W|
00000e60  74 3d 55 69 21 38 3a 58  7a 3d 55 69 21 31 32 3a  |t=Ui!8:Xz=Ui!12:|
00000e70  59 55 3d 55 69 21 31 36  3a 59 56 3d 55 69 21 32  |YU=Ui!16:YV=Ui!2|
00000e80  30 3a 59 57 3d 93 3a 58  74 3d a4 58 6c 28 59 55  |0:YW=.:Xt=.Xl(YU|
00000e90  29 3a e7 20 ac 58 74 20  8c 0d 0f 78 33 58 58 24  |):. .Xt ...x3XX$|
00000ea0  3d a4 58 59 28 56 58 2c  22 65 72 72 30 32 22 29  |=.XY(VX,"err02")|
00000eb0  3a 58 5a 3d a4 58 61 28  55 69 2c 39 39 2c 55 64  |:XZ=.Xa(Ui,99,Ud|
00000ec0  24 2c 58 58 24 2c 20 ac  b9 2c b9 29 0d 0f 96 26  |$,XX$, ..,.)...&|
00000ed0  cc 3a 59 58 3d a4 59 59  28 59 57 2b 59 55 29 3a  |.:YX=.YY(YW+YU):|
00000ee0  58 74 3d a4 58 6c 28 59  56 29 3a e7 20 ac 58 74  |Xt=.Xl(YV):. .Xt|
00000ef0  20 8c 0d 0f dc 33 58 58  24 3d a4 58 59 28 56 58  | ....3XX$=.XY(VX|
00000f00  2c 22 65 72 72 30 36 22  29 3a 58 5a 3d a4 58 61  |,"err06"):XZ=.Xa|
00000f10  28 55 69 2c 39 39 2c 55  64 24 2c 58 58 24 2c 20  |(Ui,99,Ud$,XX$, |
00000f20  ac b9 2c b9 29 0d 0f fa  47 cc 3a f2 57 68 28 59  |..,.)...G.:.Wh(Y|
00000f30  58 2c 59 56 29 3a c8 99  26 39 30 31 30 31 2c 56  |X,YV):..&90101,V|
00000f40  79 24 2c 59 57 3a c8 99  26 39 30 31 30 32 2c 59  |y$,YW:..&90102,Y|
00000f50  57 2c 59 58 2c 59 56 20  b8 59 5a 3a e7 a4 56 75  |W,YX,YV .YZ:..Vu|
00000f60  28 55 69 2c 56 72 2c 31  30 29 20 8c 0d 10 4a 1c  |(Ui,Vr,10) ...J.|
00000f70  59 61 3d b9 3a 59 62 3d  bb 28 a4 56 7a 28 55 69  |Ya=.:Yb=.(.Vz(Ui|
00000f80  2c 56 72 2c 31 31 29 29  0d 10 5e 0c cc 3a 59 61  |,Vr,11))..^..:Ya|
00000f90  3d 20 ac b9 0d 10 72 2b  cd 3a 59 63 3d a4 56 75  |= ....r+.:Yc=.Vu|
00000fa0  28 55 69 2c 56 72 2c 31  32 29 3a 59 64 3d eb 3a  |(Ui,Vr,12):Yd=.:|
00000fb0  e7 59 63 20 8c 59 65 3d  2d 31 8b 59 65 3d 31 0d  |.Yc .Ye=-1.Ye=1.|
00000fc0  10 b8 1a 59 66 3d 20 ac  b9 3a e7 a4 56 75 28 55  |...Yf= ..:..Vu(U|
00000fd0  69 2c 56 72 2c 32 29 20  8c 0d 10 e0 23 59 67 24  |i,Vr,2) ....#Yg$|
00000fe0  3d a4 56 7a 28 55 69 2c  56 72 2c 38 29 3a e7 a7  |=.Vz(Ui,Vr,8):..|
00000ff0  59 67 24 2c 22 2e 22 29  3d 30 20 8c 0d 10 fe 38  |Yg$,".")=0 ....8|
00001000  58 58 24 3d a4 58 59 28  56 58 2c 22 65 72 72 30  |XX$=.XY(VX,"err0|
00001010  38 22 29 3a 58 5a 3d a4  58 61 28 55 69 2c 39 39  |8"):XZ=.Xa(Ui,99|
00001020  2c 55 64 24 2c 58 58 24  2c 20 ac b9 2c b9 29 3a  |,Ud$,XX$, ..,.):|
00001030  eb 39 3a 87 0d 11 1c 65  cc 3a eb 39 3a 87 3a ff  |.9:....e.:.9:.:.|
00001040  22 4c 6f 61 64 20 22 2b  59 67 24 2b 22 20 22 2b  |"Load "+Yg$+" "+|
00001050  c3 7e 55 73 3a e3 59 68  3d 30 20 b8 31 35 3a 72  |.~Us:.Yh=0 .15:r|
00001060  3d 3f 28 55 73 2b 59 68  2a 36 2b 33 29 3a 67 3d  |=?(Us+Yh*6+3):g=|
00001070  3f 28 55 73 2b 59 68 2a  36 2b 34 29 3a 62 3d 3f  |?(Us+Yh*6+4):b=?|
00001080  28 55 73 2b 59 68 2a 36  2b 35 29 3a fb 59 68 2c  |(Us+Yh*6+5):.Yh,|
00001090  72 2c 67 2c 62 3a ed 59  68 0d 11 76 05 cd 0d 11  |r,g,b:.Yh..v....|
000010a0  8a 0a cc 3a eb 39 3a 87  0d 11 b2 8c cd 3a 78 3d  |...:.9:......:x=|
000010b0  28 31 32 38 30 2d 57 73  2a 34 29 2f 32 3a 79 3d  |(1280-Ws*4)/2:y=|
000010c0  28 31 30 32 34 2d 57 74  2a 34 29 2f 32 3a f5 3a  |(1024-Wt*4)/2:.:|
000010d0  e3 69 3d 31 20 b8 58 7a  3a c8 99 26 39 30 31 30  |.i=1 .Xz:..&9010|
000010e0  34 2c 59 5a 2c 69 2c 59  57 2c 59 58 20 b8 2c 2c  |4,YZ,i,YW,YX .,,|
000010f0  2c 2c 58 74 2c 59 69 3a  c8 96 3a db 3a ec 78 2c  |,,Xt,Yi:..:.:.x,|
00001100  79 3a c8 99 26 32 45 2c  32 35 36 2b 32 38 2c 59  |y:..&2E,256+28,Y|
00001110  58 2c 22 73 70 72 69 74  65 22 2c 2c 2c 38 3a e7  |X,"sprite",,,8:.|
00001120  59 61 20 8c e3 59 6a 3d  31 20 b8 59 62 3a c8 96  |Ya ..Yj=1 .Yb:..|
00001130  3a ed 59 6a 0d 12 2a 29  c8 99 26 31 43 20 b8 59  |:.Yj..*)..&1C .Y|
00001140  6b 2c 59 6c 2c 59 6d 3a  e7 59 6d 3d 34 20 8c 59  |k,Yl,Ym:.Ym=4 .Y|
00001150  65 3d 31 3a 69 3d 58 7a  3a 59 66 3d b9 0d 12 34  |e=1:i=Xz:Yf=...4|
00001160  22 e7 59 6d 3d 31 20 8c  f5 3a c8 99 26 31 43 20  |".Ym=1 ..:..&1C |
00001170  b8 59 6b 2c 59 6c 2c 59  6d 3a fd 59 6d 3d 30 0d  |.Yk,Yl,Ym:.Ym=0.|
00001180  12 3e 1c ed 69 3a e7 a4  56 75 28 55 69 2c 56 72  |.>..i:..Vu(Ui,Vr|
00001190  2c 39 29 20 80 20 ac 59  66 20 8c 0d 12 5c 6d e3  |,9) . .Yf ...\m.|
000011a0  69 3d 58 7a 2d 31 20 b8  31 88 2d 31 3a c8 99 26  |i=Xz-1 .1.-1:..&|
000011b0  39 30 31 30 34 2c 59 5a  2c 69 2c 59 57 2c 59 58  |90104,YZ,i,YW,YX|
000011c0  20 b8 2c 2c 2c 2c 58 74  2c 59 69 3a c8 96 3a db  | .,,,,Xt,Yi:..:.|
000011d0  3a ec 78 2c 79 3a c8 99  26 32 45 2c 32 35 36 2b  |:.x,y:..&2E,256+|
000011e0  32 38 2c 59 58 2c 22 73  70 72 69 74 65 22 2c 2c  |28,YX,"sprite",,|
000011f0  2c 38 3a e7 59 61 20 8c  e3 59 6a 3d 31 20 b8 59  |,8:.Ya ..Yj=1 .Y|
00001200  62 3a c8 96 3a ed 59 6a  0d 12 8e 23 c8 99 26 31  |b:..:.Yj...#..&1|
00001210  43 20 b8 59 6b 2c 59 6c  2c 59 6d 3a e7 59 6d 3d  |C .Yk,Yl,Ym:.Ym=|
00001220  34 20 8c 59 65 3d 31 3a  69 3d 31 0d 12 98 22 e7  |4 .Ye=1:i=1...".|
00001230  59 6d 3d 31 20 8c f5 3a  c8 99 26 31 43 20 b8 59  |Ym=1 ..:..&1C .Y|
00001240  6b 2c 59 6c 2c 59 6d 3a  fd 59 6d 3d 30 0d 12 a2  |k,Yl,Ym:.Ym=0...|
00001250  06 ed 69 0d 12 ac 27 cd  3a fd 31 3d 59 65 3a c8  |..i...'.:.1=Ye:.|
00001260  99 26 39 30 31 30 33 2c  59 5a 3a f2 58 78 3a c8  |.&90103,YZ:.Xx:.|
00001270  99 26 34 30 30 45 33 2c  59 64 0d 12 fc 05 cd 0d  |.&400E3,Yd......|
00001280  13 1a 05 cb 0d 13 38 05  cd 0d 13 4c 07 cd 3a e1  |......8....L..:.|
00001290  0d 13 7e 19 dd a4 59 59  28 59 6e 29 3a 3d 28 59  |..~...YY(Yn):=(Y|
000012a0  6e 2b 33 29 20 80 20 ac  33 0d 14 fa 3e dd a4 59  |n+3) . .3...>..Y|
000012b0  6f 28 59 70 2c 59 71 24  29 3a c8 99 26 32 45 2c  |o(Yp,Yq$):..&2E,|
000012c0  32 35 36 2b 34 30 2c 59  70 2c 59 71 24 20 b8 2c  |256+40,Yp,Yq$ .,|
000012d0  2c 2c 59 72 2c 59 73 2c  59 74 2c 59 75 3a 59 76  |,,Yr,Ys,Yt,Yu:Yv|
000012e0  3d 59 72 3a 3d 59 76 0d  15 36 3e dd a4 59 77 28  |=Yr:=Yv..6>..Yw(|
000012f0  59 70 2c 59 71 24 29 3a  c8 99 26 32 45 2c 32 35  |Yp,Yq$):..&2E,25|
00001300  36 2b 34 30 2c 59 70 2c  59 71 24 20 b8 2c 2c 2c  |6+40,Yp,Yq$ .,,,|
00001310  59 72 2c 59 73 2c 59 74  2c 59 75 3a 59 78 3d 59  |Yr,Ys,Yt,Yu:Yx=Y|
00001320  73 3a 3d 59 78 0d 15 72  3e dd a4 59 79 28 59 70  |s:=Yx..r>..Yy(Yp|
00001330  2c 59 71 24 29 3a c8 99  26 32 45 2c 32 35 36 2b  |,Yq$):..&2E,256+|
00001340  34 30 2c 59 70 2c 59 71  24 20 b8 2c 2c 2c 59 72  |40,Yp,Yq$ .,,,Yr|
00001350  2c 59 73 2c 59 74 2c 59  75 3a 59 7a 3d 59 75 3a  |,Ys,Yt,Yu:Yz=Yu:|
00001360  3d 59 7a 0d 15 ae 3f dd  a4 5a 55 28 59 70 2c 59  |=Yz...?..ZU(Yp,Y|
00001370  71 24 29 3a c8 99 26 32  45 2c 32 35 36 2b 34 30  |q$):..&2E,256+40|
00001380  2c 59 70 2c 59 71 24 20  b8 2c 2c 2c 59 72 2c 59  |,Yp,Yq$ .,,,Yr,Y|
00001390  73 2c 59 74 2c 59 75 3a  5a 56 3d 2d 59 74 3a 3d  |s,Yt,Yu:ZV=-Yt:=|
000013a0  59 7a 0d 15 ea 33 dd a4  5a 57 28 59 70 2c 59 71  |Yz...3..ZW(Yp,Yq|
000013b0  24 29 3a 5a 58 3d a4 5a  59 28 59 70 2c 59 71 24  |$):ZX=.ZY(Yp,Yq$|
000013c0  29 3a 5a 5a 3d 5a 58 21  33 32 3a e7 5a 5a 3d 31  |):ZZ=ZX!32:.ZZ=1|
000013d0  31 2a 34 20 8c 0d 16 12  0a 5a 61 3d 20 ac b9 0d  |1*4 .....Za= ...|
000013e0  16 1c 10 cc 3a 5a 61 3d  5a 58 2b 31 31 2a 34 0d  |....:Za=ZX+11*4.|
000013f0  16 30 09 cd 3a 3d 5a 61  0d 16 58 12 dd a4 5a 62  |.0..:=Za..X...Zb|
00001400  28 59 70 29 3a 3d 59 70  21 34 0d 16 80 4f dd a4  |(Yp):=Yp!4...O..|
00001410  5a 63 28 59 70 2c 6e 29  3a 5a 64 3d 59 70 2b 59  |Zc(Yp,n):Zd=Yp+Y|
00001420  70 21 38 3a 5a 65 3d 31  3a c8 95 5a 65 3c 6e 3a  |p!8:Ze=1:..Ze<n:|
00001430  5a 66 3d 5a 64 21 30 3a  5a 64 2b 3d 5a 66 3a 5a  |Zf=Zd!0:Zd+=Zf:Z|
00001440  65 2b 3d 31 3a ce 3a 3d  c0 a4 58 56 28 5a 64 2b  |e+=1:.:=..XV(Zd+|
00001450  34 29 2c 31 32 29 2b bd  30 0d 17 02 46 dd a4 5a  |4),12)+.0...F..Z|
00001460  67 28 59 70 2c 59 71 24  29 3a c8 99 26 32 45 2c  |g(Yp,Yq$):..&2E,|
00001470  32 35 36 2b 32 34 2c 59  70 2c 59 71 24 20 b8 2c  |256+24,Yp,Yq$ .,|
00001480  2c 5a 68 3a 5a 69 3d 5a  68 3a 5a 5a 3d 5a 69 21  |,Zh:Zi=Zh:ZZ=Zi!|
00001490  33 32 3a 5a 6a 3d 5a 69  2b 5a 5a 3a 3d 5a 6a 0d  |32:Zj=Zi+ZZ:=Zj.|
000014a0  17 52 46 dd a4 5a 6b 28  59 70 2c 59 71 24 29 3a  |.RF..Zk(Yp,Yq$):|
000014b0  c8 99 26 32 45 2c 32 35  36 2b 32 34 2c 59 70 2c  |..&2E,256+24,Yp,|
000014c0  59 71 24 20 b8 2c 2c 5a  68 3a 5a 69 3d 5a 68 3a  |Yq$ .,,Zh:Zi=Zh:|
000014d0  5a 6c 3d 5a 69 21 33 36  3a 5a 6d 3d 5a 69 2b 5a  |Zl=Zi!36:Zm=Zi+Z|
000014e0  6c 3a 3d 5a 6d 0d 17 a2  34 dd a4 5a 59 28 59 70  |l:=Zm...4..ZY(Yp|
000014f0  2c 59 71 24 29 3a c8 99  26 32 45 2c 32 35 36 2b  |,Yq$):..&2E,256+|
00001500  32 34 2c 59 70 2c 59 71  24 20 b8 2c 2c 5a 68 3a  |24,Yp,Yq$ .,,Zh:|
00001510  5a 6e 3d 5a 68 3a 3d 5a  6e 0d 17 de 26 dd f2 5a  |Zn=Zh:=Zn...&..Z|
00001520  6f 28 59 70 2c 56 79 24  29 3a c8 99 26 32 45 2c  |o(Yp,Vy$):..&2E,|
00001530  32 35 36 2b 31 32 2c 59  70 2c 56 79 24 3a e1 0d  |256+12,Yp,Vy$:..|
00001540  18 10 26 dd f2 57 69 28  59 70 2c 56 79 24 29 3a  |..&..Wi(Yp,Vy$):|
00001550  c8 99 26 32 45 2c 32 35  36 2b 31 30 2c 59 70 2c  |..&2E,256+10,Yp,|
00001560  56 79 24 3a e1 0d 18 42  30 dd f2 57 68 28 59 70  |Vy$:...B0..Wh(Yp|
00001570  2c 5a 70 29 3a 59 70 21  30 3d 5a 70 3a 59 70 21  |,Zp):Yp!0=Zp:Yp!|
00001580  38 3d 31 36 3a c8 99 26  32 45 2c 32 35 36 2b 39  |8=16:..&2E,256+9|
00001590  2c 59 70 3a e1 0d 18 88  4f dd a4 5a 71 28 59 70  |,Yp:....O..Zq(Yp|
000015a0  2c 59 71 24 2c 78 2c 79  29 3a ea 59 68 2c 5a 72  |,Yq$,x,y):.Yh,Zr|
000015b0  3a c8 99 26 32 45 2c 32  35 36 2b 34 31 2c 59 70  |:..&2E,256+41,Yp|
000015c0  2c 59 71 24 2c 78 2c 79  20 b8 2c 2c 2c 2c 2c 59  |,Yq$,x,y .,,,,,Y|
000015d0  74 2c 59 75 3a 59 68 3d  59 74 3a 5a 72 3d 59 75  |t,Yu:Yh=Yt:Zr=Yu|
000015e0  3a 3d 59 68 0d 18 d8 3a  dd f2 5a 73 28 59 70 2c  |:=Yh...:..Zs(Yp,|
000015f0  59 71 24 2c 78 2c 79 2c  59 68 2c 5a 72 29 3a c8  |Yq$,x,y,Yh,Zr):.|
00001600  99 26 32 45 2c 32 35 36  2b 34 32 2c 59 70 2c 59  |.&2E,256+42,Yp,Y|
00001610  71 24 2c 78 2c 79 2c 59  68 2c 5a 72 3a e1 0d 1b  |q$,x,y,Yh,Zr:...|
00001620  a8 45 dd a4 55 77 28 5a  74 2c 5a 75 24 29 3a ea  |.E..Uw(Zt,Zu$):.|
00001630  5a 76 2c 5a 77 3a c8 99  26 34 30 30 43 30 2c 5a  |Zv,Zw:..&400C0,Z|
00001640  74 2c 26 34 42 35 33 34  31 35 34 2c 5a 75 24 2b  |t,&4B534154,Zu$+|
00001650  bd 30 20 b8 5a 76 2c 5a  77 3a 5a 78 3d 5a 77 3a  |.0 .Zv,Zw:Zx=Zw:|
00001660  3d 5a 78 0d 1b ee 21 dd  f2 56 6a 28 5a 78 29 3a  |=Zx...!..Vj(Zx):|
00001670  c8 99 26 34 30 30 44 44  2c 5a 78 2c 22 54 41 53  |..&400DD,Zx,"TAS|
00001680  4b 22 3a e1 0d 1c 20 86  dd a4 58 61 28 56 6b 2c  |K":... ...Xa(Vk,|
00001690  5a 79 2c 57 72 24 2c 58  58 24 2c 5a 7a 2c 61 55  |Zy,Wr$,XX$,Zz,aU|
000016a0  29 3a ea 57 77 2c 5a 77  2c 61 56 3a 24 56 6b 3d  |):.Ww,Zw,aV:$Vk=|
000016b0  57 72 24 2b bd 30 3a 56  6b 21 33 32 3d 5a 79 3a  |Wr$+.0:Vk!32=Zy:|
000016c0  24 28 56 6b 2b 33 36 29  3d 58 58 24 2b bd 30 3a  |$(Vk+36)=XX$+.0:|
000016d0  57 77 3d 28 94 5a 7a 2a  32 5e 30 29 2b 28 94 61  |Ww=(.Zz*2^0)+(.a|
000016e0  55 2a 32 5e 31 29 3a c8  99 26 34 30 30 44 46 2c  |U*2^1):..&400DF,|
000016f0  56 6b 2b 33 32 2c 57 77  2c 56 6b 20 b8 2c 5a 77  |Vk+32,Ww,Vk .,Zw|
00001700  3a 61 56 3d 5a 77 3a 3d  61 56 0d 1c 98 1f dd f2  |:aV=Zw:=aV......|
00001710  56 63 28 56 6d 2c 56 6b  2c 56 71 2c 61 57 29 3a  |Vc(Vm,Vk,Vq,aW):|
00001720  e7 61 57 3d 20 ac b9 20  8c 0d 1c ac 25 56 6b 21  |.aW= .. ....%Vk!|
00001730  30 3d 56 71 3a c8 99 26  34 30 30 43 42 2c 2c 56  |0=Vq:..&400CB,,V|
00001740  6b 3a c8 99 26 34 30 30  43 35 2c 2c 56 6b 0d 1c  |k:..&400C5,,Vk..|
00001750  ca 12 cc 3a c8 99 26 34  30 30 43 35 2c 2c 56 6d  |...:..&400C5,,Vm|
00001760  0d 1c de 07 cd 3a e1 0d  1d 06 26 dd f2 56 64 28  |.....:....&..Vd(|
00001770  56 6b 2c 56 71 29 3a 56  6b 21 30 3d 56 71 3a c8  |Vk,Vq):Vk!0=Vq:.|
00001780  99 26 34 30 30 43 36 2c  2c 56 6b 3a e1 0d 1d 42  |.&400C6,,Vk:...B|
00001790  53 dd f2 61 58 28 56 6b  2c 56 71 29 3a ea 57 73  |S..aX(Vk,Vq):.Ws|
000017a0  2c 57 74 2c 61 59 2c 61  5a 2c 61 61 2c 61 62 3a  |,Wt,aY,aZ,aa,ab:|
000017b0  56 6b 21 30 3d 56 71 3a  c8 99 26 34 30 30 43 43  |Vk!0=Vq:..&400CC|
000017c0  2c 2c 56 6b 3a 57 73 3d  94 56 6b 21 35 32 3a e7  |,,Vk:Ws=.Vk!52:.|
000017d0  57 73 3e 31 30 30 30 20  8c 57 73 3d 31 30 30 30  |Ws>1000 .Ws=1000|
000017e0  0d 1d 74 1d 57 74 3d 94  56 6b 21 34 38 3a e7 57  |..t.Wt=.Vk!48:.W|
000017f0  74 3e 35 31 32 20 8c 57  74 3d 35 31 32 0d 1d 7e  |t>512 .Wt=512..~|
00001800  f0 56 6b 21 30 3d 34 3a  56 6b 21 34 3d 35 3a 56  |.Vk!0=4:Vk!4=5:V|
00001810  6b 21 38 3d 31 31 3a 56  6b 21 31 32 3d 31 32 3a  |k!8=11:Vk!12=12:|
00001820  56 6b 21 31 36 3d 2d 31  3a c8 99 26 33 31 2c 56  |Vk!16=-1:..&31,V|
00001830  6b 2c 56 6b 2b 33 32 3a  61 59 3d 56 6b 21 33 32  |k,Vk+32:aY=Vk!32|
00001840  3a 61 5a 3d 56 6b 21 33  36 3a 61 61 3d 56 6b 21  |:aZ=Vk!36:aa=Vk!|
00001850  34 30 3a 61 62 3d 56 6b  21 34 34 3a 78 3d 61 61  |40:ab=Vk!44:x=aa|
00001860  2a 20 32 5e 61 59 20 3a  79 3d 61 62 2a 20 32 5e  |* 2^aY :y=ab* 2^|
00001870  61 5a 3a 78 3d 28 78 2d  57 73 29 20 81 32 3a 79  |aZ:x=(x-Ws) .2:y|
00001880  3d 28 79 2d 57 74 29 20  81 32 3a 56 6b 21 28 30  |=(y-Wt) .2:Vk!(0|
00001890  29 3d 56 71 3a 56 6b 21  28 34 2b 30 29 3d 78 3a  |)=Vq:Vk!(4+0)=x:|
000018a0  56 6b 21 28 34 2b 34 29  3d 79 3a 56 6b 21 28 34  |Vk!(4+4)=y:Vk!(4|
000018b0  2b 38 29 3d 56 6b 21 28  34 2b 30 29 2b 57 73 3a  |+8)=Vk!(4+0)+Ws:|
000018c0  56 6b 21 28 34 2b 31 32  29 3d 56 6b 21 28 34 2b  |Vk!(4+12)=Vk!(4+|
000018d0  34 29 2b 57 74 3a 56 6b  21 32 38 3d 2d 31 3a c8  |4)+Wt:Vk!28=-1:.|
000018e0  99 26 34 30 30 43 35 2c  2c 56 6b 3a e1 0d 1e 1e  |.&400C5,,Vk:....|
000018f0  4d dd f2 61 63 28 56 6b  2c 56 71 2c 61 64 2c 61  |M..ac(Vk,Vq,ad,a|
00001900  65 2c 61 66 2c 61 67 29  3a 56 6b 21 30 3d 61 64  |e,af,ag):Vk!0=ad|
00001910  3a 56 6b 21 34 3d 61 66  3a 56 6b 21 38 3d 61 65  |:Vk!4=af:Vk!8=ae|
00001920  3a 56 6b 21 31 32 3d 61  67 3a c8 99 26 34 30 30  |:Vk!12=ag:..&400|
00001930  44 37 2c 56 71 2c 56 6b  3a e1 0d 1e 78 4b dd a4  |D7,Vq,Vk:...xK..|
00001940  58 62 28 56 6b 2c 56 71  29 3a ea 61 68 2c 61 69  |Xb(Vk,Vq):.ah,ai|
00001950  3a 56 6b 21 30 3d 56 71  3a c8 99 26 34 30 30 43  |:Vk!0=Vq:..&400C|
00001960  42 2c 2c 56 6b 3a 61 68  3d 56 6b 21 33 32 3a 61  |B,,Vk:ah=Vk!32:a|
00001970  69 3d 28 61 68 20 80 32  5e 31 36 29 3d 32 5e 31  |i=(ah .2^16)=2^1|
00001980  36 3a 3d 61 69 0d 1e d2  a4 dd f2 61 6a 28 56 6b  |6:=ai......aj(Vk|
00001990  2c 56 71 29 3a ea 57 73  2c 57 74 2c 61 6b 2c 61  |,Vq):.Ws,Wt,ak,a|
000019a0  6c 3a ea 61 6d 2c 61 6e  2c 61 6f 2c 61 70 3a 56  |l:.am,an,ao,ap:V|
000019b0  6b 21 30 3d 56 71 3a c8  99 26 34 30 30 43 43 2c  |k!0=Vq:..&400CC,|
000019c0  2c 56 6b 3a 57 73 3d 56  6b 21 31 32 2d 55 69 21  |,Vk:Ws=Vk!12-Ui!|
000019d0  34 3a 57 74 3d 56 6b 21  31 36 2d 56 6b 21 38 3a  |4:Wt=Vk!16-Vk!8:|
000019e0  61 6b 3d 56 6b 21 32 30  3a 61 6c 3d 56 6b 21 32  |ak=Vk!20:al=Vk!2|
000019f0  34 3a 61 6d 3d 61 6b 3a  61 70 3d 61 6c 3a 61 6f  |4:am=ak:ap=al:ao|
00001a00  3d 61 70 2d 57 74 3a 61  6e 3d 61 6d 2b 57 73 3a  |=ap-Wt:an=am+Ws:|
00001a10  c8 99 26 34 30 30 44 31  2c 56 71 2c 61 6d 2c 61  |..&400D1,Vq,am,a|
00001a20  6f 2c 61 6e 2c 61 70 3a  e1 0d 1f 54 40 dd f2 61  |o,an,ap:...T@..a|
00001a30  71 28 56 6b 2c 56 71 2c  56 6c 29 3a 56 6b 21 30  |q(Vk,Vq,Vl):Vk!0|
00001a40  3d 56 71 3a 56 6b 21 34  3d 56 6c 3a 56 6b 21 38  |=Vq:Vk!4=Vl:Vk!8|
00001a50  3d 30 3a 56 6b 21 31 32  3d 30 3a c8 99 26 34 30  |=0:Vk!12=0:..&40|
00001a60  30 43 44 2c 2c 56 6b 3a  e1 0d 1f ae 2d dd f2 61  |0CD,,Vk:....-..a|
00001a70  72 28 56 71 2c 56 6c 2c  61 73 29 3a c8 99 26 34  |r(Vq,Vl,as):..&4|
00001a80  30 30 44 32 2c 56 71 2c  56 6c 2c 30 2c 30 2c 2d  |00D2,Vq,Vl,0,0,-|
00001a90  31 2c 61 73 3a e1 0d 1f  e0 25 dd f2 56 78 3a c8  |1,as:....%..Vx:.|
00001aa0  99 26 34 30 30 44 32 2c  2d 31 2c 2d 31 2c 2d 31  |.&400D2,-1,-1,-1|
00001ab0  2c 2d 31 2c 2d 31 2c 2d  31 3a e1 0d 20 12 5e dd  |,-1,-1,-1:.. .^.|
00001ac0  a4 56 7a 28 56 6b 2c 56  71 2c 56 6c 29 3a ea 57  |.Vz(Vk,Vq,Vl):.W|
00001ad0  77 2c 61 74 2c 61 75 24  3a 56 6b 21 30 3d 56 71  |w,at,au$:Vk!0=Vq|
00001ae0  3a 56 6b 21 34 3d 56 6c  3a c8 99 26 34 30 30 43  |:Vk!4=Vl:..&400C|
00001af0  45 2c 2c 56 6b 3a 57 77  3d 56 6b 21 28 38 2b 31  |E,,Vk:Ww=Vk!(8+1|
00001b00  36 29 3a 61 74 3d 28 57  77 20 80 32 5e 38 29 3d  |6):at=(Ww .2^8)=|
00001b10  32 5e 38 3a e7 61 74 20  8c 0d 20 62 16 61 75 24  |2^8:.at .. b.au$|
00001b20  3d a4 58 56 28 56 6b 21  28 38 2b 32 30 29 29 0d  |=.XV(Vk!(8+20)).|
00001b30  20 6c 16 cc 3a 61 75 24  3d a4 58 56 28 56 6b 2b  | l..:au$=.XV(Vk+|
00001b40  38 2b 32 30 29 0d 20 80  0a cd 3a 3d 61 75 24 0d  |8+20). ...:=au$.|
00001b50  20 a8 5e dd f2 57 56 28  56 6b 2c 56 71 2c 56 6c  | .^..WV(Vk,Vq,Vl|
00001b60  2c 61 76 24 29 3a ea 57  77 2c 61 74 3a 56 6b 21  |,av$):.Ww,at:Vk!|
00001b70  30 3d 56 71 3a 56 6b 21  34 3d 56 6c 3a c8 99 26  |0=Vq:Vk!4=Vl:..&|
00001b80  34 30 30 43 45 2c 2c 56  6b 3a 57 77 3d 56 6b 21  |400CE,,Vk:Ww=Vk!|
00001b90  28 38 2b 31 36 29 3a 61  74 3d 28 57 77 20 80 32  |(8+16):at=(Ww .2|
00001ba0  5e 38 29 3d 32 5e 38 3a  e7 61 74 20 8c 0d 20 f8  |^8)=2^8:.at .. .|
00001bb0  14 24 28 56 6b 21 28 38  2b 32 30 29 29 3d 61 76  |.$(Vk!(8+20))=av|
00001bc0  24 0d 21 02 14 cc 3a 24  28 56 6b 2b 38 2b 32 30  |$.!...:$(Vk+8+20|
00001bd0  29 3d 61 76 24 0d 21 16  33 cd 3a 56 6b 21 30 3d  |)=av$.!.3.:Vk!0=|
00001be0  56 71 3a 56 6b 21 34 3d  56 6c 3a 56 6b 21 38 3d  |Vq:Vk!4=Vl:Vk!8=|
00001bf0  30 3a 56 6b 21 31 32 3d  30 3a c8 99 26 34 30 30  |0:Vk!12=0:..&400|
00001c00  43 44 2c 2c 56 6b 3a e1  0d 21 70 1a dd f2 57 59  |CD,,Vk:..!p...WY|
00001c10  28 61 77 29 3a c8 99 26  34 30 30 44 43 2c 61 77  |(aw):..&400DC,aw|
00001c20  3a e1 0d 21 a2 38 dd a4  58 56 28 57 78 29 3a ea  |:..!.8..XV(Wx):.|
00001c30  61 78 24 3a 61 78 24 3d  22 22 3a c8 95 3f 57 78  |ax$:ax$="":..?Wx|
00001c40  3e 33 31 3a 61 78 24 2b  3d bd 3f 57 78 3a 57 78  |>31:ax$+=.?Wx:Wx|
00001c50  2b 3d 31 3a ce 3a 3d 61  78 24 0d 22 06 2a dd f2  |+=1:.:=ax$.".*..|
00001c60  57 6b 28 56 6b 2c 56 79  24 29 3a 24 56 6b 3d 56  |Wk(Vk,Vy$):$Vk=V|
00001c70  79 24 2b bd 30 3a c8 99  26 34 30 30 44 39 2c 2c  |y$+.0:..&400D9,,|
00001c80  56 6b 3a e1 0d 22 42 94  dd a4 57 6c 28 61 79 2c  |Vk:.."B...Wl(ay,|
00001c90  61 7a 2c 62 55 2c 62 56  24 2c 62 57 29 3a ea 5a  |az,bU,bV$,bW):.Z|
00001ca0  68 2c 62 58 2c 62 59 2c  62 5a 2c 62 61 3a c8 99  |h,bX,bY,bZ,ba:..|
00001cb0  26 34 30 30 44 42 2c 2c  61 79 2c 61 7a 2c 62 55  |&400DB,,ay,az,bU|
00001cc0  2c 2d 31 2c 62 56 24 2c  30 20 b8 2c 2c 5a 68 3a  |,-1,bV$,0 .,,Zh:|
00001cd0  62 58 3d 61 79 21 38 34  3a 62 59 3d 5a 68 3a 62  |bX=ay!84:bY=Zh:b|
00001ce0  5a 3d 30 3a c8 95 62 5a  3c 62 58 3a 62 61 3d 61  |Z=0:..bZ<bX:ba=a|
00001cf0  79 2b 38 38 2b 62 5a 2a  33 32 3a e7 28 62 61 21  |y+88+bZ*32:.(ba!|
00001d00  31 36 20 80 26 31 30 33  29 3d 26 31 30 32 20 8c  |16 .&103)=&102 .|
00001d10  62 61 21 32 34 3d 62 57  0d 22 b0 0f 62 5a 2b 3d  |ba!24=bW."..bZ+=|
00001d20  31 3a ce 3a 3d 62 59 0d  22 e2 25 dd a4 57 6e 28  |1:.:=bY.".%..Wn(|
00001d30  61 79 29 3a ea 56 71 3a  c8 99 26 34 30 30 43 31  |ay):.Vq:..&400C1|
00001d40  2c 2c 61 79 20 b8 56 71  3a 3d 56 71 0d 23 1e 13  |,,ay .Vq:=Vq.#..|
00001d50  dd f2 57 6f 3a c8 99 26  34 30 30 44 41 3a e1 0d  |..Wo:..&400DA:..|
00001d60  23 50 30 dd a4 56 61 28  56 6d 2c 62 62 29 3a ea  |#P0..Va(Vm,bb):.|
00001d70  5a 76 3a c8 99 26 34 30  30 43 37 2c 62 62 2c 56  |Zv:..&400C7,bb,V|
00001d80  6d 20 b8 5a 76 3a 62 63  3d 5a 76 3a 3d 62 63 0d  |m .Zv:bc=Zv:=bc.|
00001d90  23 96 3c dd a4 58 76 28  62 64 29 3a ea 5a 76 2c  |#.<..Xv(bd):.Zv,|
00001da0  5a 77 2c 5a 68 2c 62 65  3a c8 99 26 34 30 30 45  |Zw,Zh,be:..&400E|
00001db0  43 2c 62 64 2c 2d 31 20  b8 5a 76 2c 5a 77 2c 5a  |C,bd,-1 .Zv,Zw,Z|
00001dc0  68 3a 62 65 3d 5a 76 3a  3d 62 65 0d 23 dc 38 dd  |h:be=Zv:=be.#.8.|
00001dd0  a4 58 69 3a ea 5a 76 2c  5a 77 2c 5a 68 2c 62 65  |.Xi:.Zv,Zw,Zh,be|
00001de0  3a c8 99 26 34 30 30 45  43 2c 2d 31 2c 2d 31 20  |:..&400EC,-1,-1 |
00001df0  b8 5a 76 2c 5a 77 2c 5a  68 3a 62 65 3d 5a 76 3a  |.Zv,Zw,Zh:be=Zv:|
00001e00  3d 62 65 0d 24 22 38 dd  a4 58 75 3a ea 5a 76 2c  |=be.$"8..Xu:.Zv,|
00001e10  5a 77 2c 5a 68 2c 62 66  3a c8 99 26 34 30 30 45  |Zw,Zh,bf:..&400E|
00001e20  43 2c 2d 31 2c 2d 31 20  b8 5a 76 2c 5a 77 2c 5a  |C,-1,-1 .Zv,Zw,Z|
00001e30  68 3a 62 66 3d 5a 68 3a  3d 62 66 0d 24 68 8e dd  |h:bf=Zh:=bf.$h..|
00001e40  f2 62 67 28 56 6b 29 3a  ea 61 59 2c 61 5a 2c 61  |.bg(Vk):.aY,aZ,a|
00001e50  61 2c 61 62 3a 56 6b 21  30 3d 34 3a 56 6b 21 34  |a,ab:Vk!0=4:Vk!4|
00001e60  3d 35 3a 56 6b 21 38 3d  31 31 3a 56 6b 21 31 32  |=5:Vk!8=11:Vk!12|
00001e70  3d 31 32 3a 56 6b 21 31  36 3d 2d 31 3a c8 99 26  |=12:Vk!16=-1:..&|
00001e80  33 31 2c 56 6b 2c 56 6b  2b 33 32 3a 61 59 3d 56  |31,Vk,Vk+32:aY=V|
00001e90  6b 21 33 32 3a 61 5a 3d  56 6b 21 33 36 3a 61 61  |k!32:aZ=Vk!36:aa|
00001ea0  3d 56 6b 21 34 30 3a 61  62 3d 56 6b 21 34 34 3a  |=Vk!40:ab=Vk!44:|
00001eb0  c8 97 c8 93 30 2c 30 2c  61 61 2a 32 5e 61 59 2c  |....0,0,aa*2^aY,|
00001ec0  61 62 2a 32 5e 61 5a 3a  e1 0d 24 d6 f4 dd f2 62  |ab*2^aZ:..$....b|
00001ed0  68 28 56 6b 2c 56 71 29  3a ea 57 73 2c 57 74 2c  |h(Vk,Vq):.Ws,Wt,|
00001ee0  61 59 2c 61 5a 2c 61 61  2c 61 62 3a 21 56 6b 3d  |aY,aZ,aa,ab:!Vk=|
00001ef0  56 71 3a c8 99 26 34 30  30 43 43 2c 2c 56 6b 3a  |Vq:..&400CC,,Vk:|
00001f00  57 73 3d 94 56 6b 21 35  32 3a 57 74 3d 94 56 6b  |Ws=.Vk!52:Wt=.Vk|
00001f10  21 34 38 3a 56 6b 21 30  3d 34 3a 56 6b 21 34 3d  |!48:Vk!0=4:Vk!4=|
00001f20  35 3a 56 6b 21 38 3d 31  31 3a 56 6b 21 31 32 3d  |5:Vk!8=11:Vk!12=|
00001f30  31 32 3a 56 6b 21 31 36  3d 2d 31 3a c8 99 26 33  |12:Vk!16=-1:..&3|
00001f40  31 2c 56 6b 2c 56 6b 2b  33 32 3a 61 59 3d 56 6b  |1,Vk,Vk+32:aY=Vk|
00001f50  21 33 32 3a 61 5a 3d 56  6b 21 33 36 3a 61 61 3d  |!32:aZ=Vk!36:aa=|
00001f60  56 6b 21 34 30 3a 61 62  3d 56 6b 21 34 34 3a 78  |Vk!40:ab=Vk!44:x|
00001f70  3d 61 61 2a 20 32 5e 61  59 20 3a 79 3d 61 62 2a  |=aa* 2^aY :y=ab*|
00001f80  20 32 5e 61 5a 3a 78 3d  28 78 2d 57 73 29 2f 32  | 2^aZ:x=(x-Ws)/2|
00001f90  3a 79 3d 28 79 2d 57 74  29 2f 32 3a 56 6b 21 30  |:y=(y-Wt)/2:Vk!0|
00001fa0  3d 56 71 3a 56 6b 21 28  30 2b 34 2b 30 29 3d 78  |=Vq:Vk!(0+4+0)=x|
00001fb0  3a 56 6b 21 28 30 2b 34  2b 34 29 3d 79 0d 25 6c  |:Vk!(0+4+4)=y.%l|
00001fc0  7e 56 6b 21 28 30 2b 34  2b 38 29 3d 56 6b 21 28  |~Vk!(0+4+8)=Vk!(|
00001fd0  30 2b 34 2b 30 29 2b 57  73 3a 56 6b 21 28 30 2b  |0+4+0)+Ws:Vk!(0+|
00001fe0  34 2b 31 32 29 3d 56 6b  21 28 30 2b 34 2b 34 29  |4+12)=Vk!(0+4+4)|
00001ff0  2b 57 74 3a c8 99 26 34  30 30 43 35 2c 2c 56 6b  |+Wt:..&400C5,,Vk|
00002000  3a 78 3d 28 28 61 61 2a  32 5e 61 59 29 2d 57 73  |:x=((aa*2^aY)-Ws|
00002010  20 29 20 2f 20 32 3a 79  3d 28 28 61 62 2a 32 5e  | ) / 2:y=((ab*2^|
00002020  61 5a 29 2d 57 74 29 20  2f 20 32 3a c8 97 c8 93  |aZ)-Wt) / 2:....|
00002030  78 2c 79 2c 57 73 2c 57  74 3a e1 0d 25 c6 d4 dd  |x,y,Ws,Wt:..%...|
00002040  f2 62 69 28 56 6b 2c 56  71 2c 56 6c 2c 62 6a 2c  |.bi(Vk,Vq,Vl,bj,|
00002050  62 6b 29 3a 21 56 6b 3d  56 71 3a c8 99 26 34 30  |bk):!Vk=Vq:..&40|
00002060  30 43 43 2c 2c 56 6b 3a  62 6c 3d 56 6b 21 34 3a  |0CC,,Vk:bl=Vk!4:|
00002070  62 6d 3d 56 6b 21 38 3a  62 6e 3d 56 6b 21 31 32  |bm=Vk!8:bn=Vk!12|
00002080  3a 62 6f 3d 56 6b 21 31  36 3a 56 6b 21 30 3d 56  |:bo=Vk!16:Vk!0=V|
00002090  71 3a 56 6b 21 34 3d 56  6c 3a c8 99 26 34 30 30  |q:Vk!4=Vl:..&400|
000020a0  43 45 2c 2c 56 6b 3a 62  70 3d 56 6b 21 38 3a 62  |CE,,Vk:bp=Vk!8:b|
000020b0  71 3d 56 6b 21 31 32 3a  62 72 3d 56 6b 21 31 36  |q=Vk!12:br=Vk!16|
000020c0  3a 62 73 3d 56 6b 21 32  30 3a 62 74 3d 62 72 2d  |:bs=Vk!20:bt=br-|
000020d0  62 70 3a 62 75 3d 62 73  2d 62 71 3a 57 63 3d 62  |bp:bu=bs-bq:Wc=b|
000020e0  6c 2b 62 70 3a 57 65 3d  62 6f 2b 62 71 3a c8 97  |l+bp:We=bo+bq:..|
000020f0  c8 93 57 63 2b 62 6a 2c  57 65 2b 62 6b 2c 62 74  |..Wc+bj,We+bk,bt|
00002100  2d 62 6a 2a 32 2c 62 75  2d 62 6b 2a 32 3a e1 0d  |-bj*2,bu-bk*2:..|
00002110  26 66 6f dd f2 62 76 28  56 6b 2c 56 71 2c 56 6e  |&fo..bv(Vk,Vq,Vn|
00002120  2c 56 6f 29 3a 21 56 6b  3d 56 71 3a c8 99 26 34  |,Vo):!Vk=Vq:..&4|
00002130  30 30 43 43 2c 2c 56 6b  3a 62 77 3d 56 6b 21 34  |00CC,,Vk:bw=Vk!4|
00002140  2d 56 6b 21 32 30 3a 62  78 3d 56 6b 21 31 36 2d  |-Vk!20:bx=Vk!16-|
00002150  56 6b 21 32 34 3a 62 77  3d 56 6e 2d 62 77 3a 62  |Vk!24:bw=Vn-bw:b|
00002160  78 3d 31 30 32 34 2d 28  62 78 2d 56 6f 29 3a 62  |x=1024-(bx-Vo):b|
00002170  79 25 3d 62 77 3a 62 7a  25 3d 62 78 3a e1 0d 26  |y%=bw:bz%=bx:..&|
00002180  f2 cc dd f2 63 55 28 56  6b 2c 56 71 2c 63 56 29  |....cU(Vk,Vq,cV)|
00002190  3a 56 6b 21 30 3d 56 71  3a c8 99 26 34 30 30 43  |:Vk!0=Vq:..&400C|
000021a0  43 2c 2c 56 6b 3a 63 57  3d 56 6b 21 34 3a 63 58  |C,,Vk:cW=Vk!4:cX|
000021b0  3d 56 6b 21 31 32 3a 63  59 3d 56 6b 21 38 3a 63  |=Vk!12:cY=Vk!8:c|
000021c0  5a 3d 56 6b 21 31 36 3a  63 61 3d 56 6b 21 32 38  |Z=Vk!16:ca=Vk!28|
000021d0  3a 56 6b 21 30 3d 63 56  3a c8 99 26 34 30 30 43  |:Vk!0=cV:..&400C|
000021e0  43 2c 2c 56 6b 3a 57 63  3d 63 57 2d 28 56 6b 21  |C,,Vk:Wc=cW-(Vk!|
000021f0  31 32 2d 56 6b 21 34 29  2d 31 3a 57 74 3d 56 6b  |12-Vk!4)-1:Wt=Vk|
00002200  21 38 2d 56 6b 21 31 36  3a 56 6b 21 34 3d 57 63  |!8-Vk!16:Vk!4=Wc|
00002210  3a 56 6b 21 31 32 3d 63  58 3a 56 6b 21 38 3d 57  |:Vk!12=cX:Vk!8=W|
00002220  74 3a 56 6b 21 31 36 3d  63 5a 3a 56 6b 21 32 30  |t:Vk!16=cZ:Vk!20|
00002230  3d 30 3a 56 6b 21 32 38  3d 63 61 3a c8 99 26 34  |=0:Vk!28=ca:..&4|
00002240  30 30 43 35 2c 2c 56 6b  3a e1 0d 27 92 1c dd a4  |00C5,,Vk:..'....|
00002250  59 59 28 59 6e 29 3a 3d  28 28 59 6e 2b 33 29 20  |YY(Yn):=((Yn+3) |
00002260  80 28 ac 33 29 29 0d 27  ba 4c dd a4 56 59 3a c8  |.(.3)).'.L..VY:.|
00002270  99 26 31 45 2c 36 2c 2c  2c 31 36 20 b8 2c 2c 5a  |.&1E,6,,,16 .,,Z|
00002280  68 3a 56 58 3d 5a 68 3a  c8 99 26 34 31 35 30 31  |h:VX=Zh:..&41501|
00002290  2c 56 58 2c 22 3c 22 2b  55 64 24 2b 22 24 44 69  |,VX,"<"+Ud$+"$Di|
000022a0  72 3e 2e 4d 65 73 73 61  67 65 73 22 2c 30 3a 3d  |r>.Messages",0:=|
000022b0  56 58 0d 28 00 26 dd f2  56 69 28 63 62 29 3a c8  |VX.(.&..Vi(cb):.|
000022c0  99 26 34 31 35 30 34 2c  63 62 3a c8 99 26 31 45  |.&41504,cb:..&1E|
000022d0  2c 37 2c 2c 63 62 3a e1  0d 28 3c 49 dd a4 58 59  |,7,,cb:..(<I..XY|
000022e0  28 63 62 2c 58 63 24 29  3a c8 99 26 34 31 35 30  |(cb,Xc$):..&4150|
000022f0  32 2c 63 62 2c 58 63 24  2c 30 2c 30 2c 30 2c 30  |2,cb,Xc$,0,0,0,0|
00002300  2c 30 2c 30 20 b8 2c 2c  5a 68 3a 63 63 3d 5a 68  |,0,0 .,,Zh:cc=Zh|
00002310  3a 63 64 24 3d a4 58 56  28 63 63 29 3a 3d 63 64  |:cd$=.XV(cc):=cd|
00002320  24 0d 28 82 5a dd f2 63  65 28 63 66 2c 63 67 2c  |$.(.Z..ce(cf,cg,|
00002330  63 68 29 3a 63 69 3d 63  66 3a 63 6a 3d 63 67 3a  |ch):ci=cf:cj=cg:|
00002340  63 6b 3d 63 68 3a 63 6c  3d 34 3a f2 62 69 28 55  |ck=ch:cl=4:.bi(U|
00002350  69 2c 63 69 2c 63 6b 2c  31 36 2c 30 29 3a c8 99  |i,ci,ck,16,0):..|
00002360  26 31 43 20 b8 59 6b 2c  59 6c 2c 59 6d 3a 63 6d  |&1C .Yk,Yl,Ym:cm|
00002370  3d 59 6b 2d 31 3a f2 63  6e 3a e1 0d 29 04 0f dd  |=Yk-1:.cn:..)...|
00002380  f2 63 6e 3a c8 8e 63 69  20 ca 0d 29 22 0e c9 63  |.cn:..ci ..)"..c|
00002390  6f 3a c8 8e 63 6b 20 ca  0d 29 2c 27 c9 32 3a 63  |o:..ck ..),'.2:c|
000023a0  70 3d a4 63 71 28 63 70  2c 32 29 3a f2 63 72 28  |p=.cq(cp,2):.cr(|
000023b0  a8 28 36 34 2a 28 63 73  2f 31 30 30 29 29 29 0d  |.(64*(cs/100))).|
000023c0  29 40 05 cb 0d 29 4a 07  cb 3a e1 0d 29 72 27 dd  |)@...)J..:..)r'.|
000023d0  a4 63 71 28 63 67 2c 63  68 29 3a c8 99 26 31 43  |.cq(cg,ch):..&1C|
000023e0  20 b8 59 6b 2c 59 6c 2c  59 6d 3a e7 59 6d 3d 30  | .Yk,Yl,Ym:.Ym=0|
000023f0  20 8c 0d 29 c2 10 63 6c  3d 30 3a f2 62 67 28 55  | ..)..cl=0:.bg(U|
00002400  69 29 0d 29 e0 0f cc 3a  e7 59 6b 3c 3e 63 6d 20  |i).)...:.Yk<>cm |
00002410  8c 0d 2a 12 f8 21 55 69  3d 63 69 3a c8 99 26 34  |..*..!Ui=ci:..&4|
00002420  30 30 43 43 2c 2c 55 69  3a 62 6c 3d 55 69 21 34  |00CC,,Ui:bl=Ui!4|
00002430  3a 63 74 3d 59 6b 2d 62  6c 3a 55 69 21 30 3d 63  |:ct=Yk-bl:Ui!0=c|
00002440  69 3a 55 69 21 34 3d 63  67 3a c8 99 26 34 30 30  |i:Ui!4=cg:..&400|
00002450  43 45 2c 2c 55 69 3a 62  70 3d 55 69 21 28 38 2b  |CE,,Ui:bp=Ui!(8+|
00002460  30 29 3a 62 71 3d 55 69  21 28 38 2b 34 29 3a 62  |0):bq=Ui!(8+4):b|
00002470  72 3d 55 69 21 28 38 2b  38 29 3a 62 73 3d 55 69  |r=Ui!(8+8):bs=Ui|
00002480  21 28 38 2b 31 32 29 3a  55 69 21 28 31 30 30 2b  |!(8+12):Ui!(100+|
00002490  30 29 3d 63 69 3a 55 69  21 28 31 30 30 2b 34 29  |0)=ci:Ui!(100+4)|
000024a0  3d 63 67 3a c8 99 26 34  30 30 43 34 2c 2c 55 69  |=cg:..&400C4,,Ui|
000024b0  2b 31 30 30 3a c8 99 26  34 30 30 44 31 2c 63 69  |+100:..&400D1,ci|
000024c0  2c 62 70 2c 62 71 2c 62  72 2c 62 73 3a 55 69 21  |,bp,bq,br,bs:Ui!|
000024d0  28 38 2b 38 29 3d 63 74  3a 55 69 21 34 3d 63 69  |(8+8)=ct:Ui!4=ci|
000024e0  3a c8 99 26 34 30 30 43  32 2c 2c 55 69 2b 34 20  |:..&400C2,,Ui+4 |
000024f0  b8 63 67 3a f2 61 71 28  55 69 2c 63 69 2c 63 67  |.cg:.aq(Ui,ci,cg|
00002500  29 3a 55 69 21 30 3d 63  69 0d 2b 20 3f 55 69 21  |):Ui!0=ci.+ ?Ui!|
00002510  34 3d 63 6b 3a c8 99 26  34 30 30 43 45 2c 2c 55  |4=ck:..&400CE,,U|
00002520  69 3a 63 75 3d 55 69 21  28 38 2b 38 29 2d 31 36  |i:cu=Ui!(8+8)-16|
00002530  3a 63 6d 3d 59 6b 3a 63  73 3d a8 28 28 63 74 2f  |:cm=Yk:cs=.((ct/|
00002540  63 75 29 2a 31 30 30 29  0d 2b 66 05 cd 0d 2b 7a  |cu)*100).+f...+z|
00002550  09 cd 3a 3d 63 67 0d 2b  ac 52 dd f2 63 76 28 56  |..:=cg.+.R..cv(V|
00002560  6b 2c 56 71 2c 63 77 24  29 3a ea 57 77 2c 61 74  |k,Vq,cw$):.Ww,at|
00002570  3a 21 56 6b 3d 56 71 3a  c8 99 26 34 30 30 43 43  |:!Vk=Vq:..&400CC|
00002580  2c 2c 56 6b 3a 57 77 3d  56 6b 21 28 34 2b 35 36  |,,Vk:Ww=Vk!(4+56|
00002590  29 3a 61 74 3d 28 57 77  20 80 32 5e 38 29 3d 32  |):at=(Ww .2^8)=2|
000025a0  5e 38 3a e7 61 74 20 8c  0d 2b f2 24 63 78 3d 21  |^8:.at ..+.$cx=!|
000025b0  28 56 6b 2b 34 2b 37 32  29 3a 24 21 28 56 6b 2b  |(Vk+4+72):$!(Vk+|
000025c0  34 2b 37 32 29 3d 63 77  24 2b bd 30 0d 2c 06 17  |4+72)=cw$+.0.,..|
000025d0  cc 3a 24 28 56 6b 2b 34  2b 37 32 29 3d 61 76 24  |.:$(Vk+4+72)=av$|
000025e0  2b bd 30 0d 2c 1a 07 cd  3a e1 0d 2c 42 4f dd f2  |+.0.,...:..,BO..|
000025f0  63 79 28 56 6b 2c 56 71  2c 56 6c 2c 63 7a 29 3a  |cy(Vk,Vq,Vl,cz):|
00002600  56 6b 21 30 3d 56 71 3a  56 6b 21 34 3d 56 6c 3a  |Vk!0=Vq:Vk!4=Vl:|
00002610  56 6b 21 38 3d 28 94 63  7a 29 3c 3c 32 31 3a 56  |Vk!8=(.cz)<<21:V|
00002620  6b 21 31 32 3d 31 3c 3c  32 31 3a c8 99 26 34 30  |k!12=1<<21:..&40|
00002630  30 43 44 2c 2c 56 6b 3a  e1 0d 2c 9c 4f dd f2 56  |0CD,,Vk:..,.O..V|
00002640  74 28 56 6b 2c 56 71 2c  56 6c 2c 64 55 29 3a 56  |t(Vk,Vq,Vl,dU):V|
00002650  6b 21 30 3d 56 71 3a 56  6b 21 34 3d 56 6c 3a 56  |k!0=Vq:Vk!4=Vl:V|
00002660  6b 21 38 3d 28 94 64 55  29 3c 3c 32 32 3a 56 6b  |k!8=(.dU)<<22:Vk|
00002670  21 31 32 3d 31 3c 3c 32  32 3a c8 99 26 34 30 30  |!12=1<<22:..&400|
00002680  43 44 2c 2c 56 6b 3a e1  0d 2c f6 50 dd a4 56 75  |CD,,Vk:..,.P..Vu|
00002690  28 56 6b 2c 56 71 2c 56  6c 29 3a 56 6b 21 30 3d  |(Vk,Vq,Vl):Vk!0=|
000026a0  56 71 3a 56 6b 21 34 3d  56 6c 3a c8 99 26 34 30  |Vq:Vk!4=Vl:..&40|
000026b0  30 43 45 2c 2c 56 6b 3a  64 56 3d 28 56 6b 21 28  |0CE,,Vk:dV=(Vk!(|
000026c0  38 2b 31 36 29 29 20 80  32 5e 32 31 3a 3d ac 28  |8+16)) .2^21:=.(|
000026d0  64 56 3d 32 5e 32 31 29  0d 2d 46 30 dd f2 56 73  |dV=2^21).-F0..Vs|
000026e0  28 56 6b 2c 56 71 2c 56  6c 29 3a f2 63 79 28 56  |(Vk,Vq,Vl):.cy(V|
000026f0  6b 2c 56 71 2c 56 6c 2c  a4 56 75 28 56 6b 2c 56  |k,Vq,Vl,.Vu(Vk,V|
00002700  71 2c 56 6c 29 29 3a e1  0d 2d 78 1f dd a4 56 76  |q,Vl)):..-x...Vv|
00002710  28 56 6b 29 3a c8 99 26  34 30 30 44 33 2c 2c 56  |(Vk):..&400D3,,V|
00002720  6b 3a 3d 56 6b 21 30 0d  2d aa 1f dd a4 56 77 28  |k:=Vk!0.-....Vw(|
00002730  56 6b 29 3a c8 99 26 34  30 30 44 33 2c 2c 56 6b  |Vk):..&400D3,,Vk|
00002740  3a 3d 56 6b 21 34 0d ff                           |:=Vk!4..|
00002748

© Dominic Ford 2021–2025.

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