Home » Archimedes archive » Archimedes World » AW-1995-03-Disc2.adf » Disk2Mar95 » !AWMar95/Goodies/Morph/!Cinema/!RunImage
!AWMar95/Goodies/Morph/!Cinema/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1995-03-Disc2.adf » Disk2Mar95 |
| Filename: | !AWMar95/Goodies/Morph/!Cinema/!RunImage |
| Read OK: | ✔ |
| File size: | 327B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
80ONERRORMODEMODE:PRINT"Fatal Error : ";REPORT$;" at Line ";ERL:END
90PROCUV:ONERRORPROCUW
120PROCUX:END
170DEFPROCUV:UY=4:UZ=2:Ua=1:Ub=-2:Uc=&3E1:Ud=&FF9:Ue$="Cinema":Uf$="Cinema":Ug=1*1024 :DIMUh Ug:Ui=1*1024 :DIMUj Ui:Uk=3*1024 :DIMUl Uk:Um=2*1024 :DIMUn Um:Uo=1*1024 :DIMUp Uo:DIMUq 1024:DIMUr 1024:DIMUs 64:Ut=0:Uu= NOTTRUE:Uv=FNUw(2*100,Uf$):Ux=0:PROCUy:PROCUz:PROCVU:VV=FNVW(Uj):VX=FNVY
430VZ= NOTTRUE:Va=1:Vb=1:PROCVc:Vd=1:Ve=0:ENDPROC
510DEFPROCUX:PROCVf:REPEAT:Vg=FNVh(Uh,Ut):CASEVg OF
560WHEN0:IFVZ THENPROCVi
570IFVe=1 THENPROCVj
580WHEN1:PROCVk(Uh)
590WHEN2:PROCVl(Uh,Uj,-1,TRUE)
600WHEN3:PROCVm(Uj,Uh!0):IF!Uh=Vn THEN
620VZ= NOTTRUE:PROCVo
640ENDIF
650WHEN6:PROCVp(Uh)
660WHEN7:PROCVq(Uh)
670WHEN8:PROCVr(Uh)
680WHEN9:PROCVs(Uh)
690WHEN17:PROCVt(Uh)
700WHEN18:PROCVt(Uh)
710ENDCASE:UNTILUu:PROCVu(VX):PROCVv(Uv):ENDPROC
810DEFFNVW(Vw):Vw!0=-1:Vw!4=0:Vw!8=0:Vw!12=68:Vw!16=68:Vw!20=&3002:$(Vw+24)="!"+Ue$+CHR$0:SYS&400C2,,Vw TOVx:=Vx
930DEFPROCVp(Vy):Vz=Vy!0:WU=Vy!4:WV=Vy!8:WW=Vy!12:Vx=Vy!16:CASEWV OF
1000WHENUY:CASEWW OF
1010WHENWX:IFVx=3 THEN
1020PROCVm(Uj,WW):PROCWY
1040ENDIF
1050WHENWZ:IFVx=5 THEN
1060PROCVm(Uj,WW):PROCWa(Uj)
1080ENDIF
1090WHENWb:CASEVx OF
1100WHEN0:PROCWc(+1,0)
1110WHEN1:PROCWc(-1,0)
1120WHEN5:PROCWc(0,+1)
1130WHEN6:PROCWc(0,-1)
1140ENDCASE
1150ENDCASE
1160WHENUZ:CASEWW OF
1170WHENUb:IFVx=VV THENPROCWd(Vz)
1180WHENVn:PROCWe(Vz,WU)
1190ENDCASE
1200WHEN64,16:CASEWW OF
1210WHENVn:Ve=1:PROCWf(Vz,WU)
1220ENDCASE
1230ENDCASE:ENDPROC
1270DEFPROCVt(Vy):CASEVy!16 OF
1290WHEN0:Uu=TRUE
1300WHEN2:PROCWg(Vy)
1310WHEN3:PROCWh(Vy)
1320WHEN&502:PROCWi(Vy)
1330WHEN&400C1:IFVZ THEN
1340PROCWj:PROCWk
1360ENDIF
1370ENDCASE:ENDPROC
1410DEFPROCVr(Vy):WW=Vy!0:Vx=Vy!4:Wl=Vy!24:CASEWW OF
1460WHENWb:IFWl=13 THEN
1470CASEVx OF
1480WHEN2:PROCWm(WW,4,LENFNWn(Uj,WW,4))
1490WHEN4:Va=VALFNWn(Uj,WW,2):Vb=VALFNWn(Uj,WW,4):PROCWc(0,0):PROCWo
1530ENDCASE
1540ENDIF
1550ENDCASE:PROCWp(Wl):ENDPROC
1600DEFPROCVk(Vy):WW=Vy!0:SYS&400C8,,Vy TOWq:Wr=Vy!4:Ws=Vy!12:Wt=Vy!16:Wu=Vy!8:Wv=Vy!20:Ww=Vy!24:WHILEWq:CASEWW OF
1680WHENVn:PROCWx
1690ENDCASE:SYS&400CA,,Vy TOWq:ENDWHILE:ENDPROC
1750DEFPROCUy:Wy=Un:PROCWz(Uj,"<"+Ue$+"$Dir>.Templates"):Wy=FNXU(Ul,Wy,Un+Um,"information"):XV=FNXW(Ul):Wy=FNXU(Ul,Wy,Un+Um,"main"):Vn=FNXW(Ul):Wy=FNXU(Ul,Wy,Un+Um,"film_info"):XX=FNXW(Ul):Wy=FNXU(Ul,Wy,Un+Um,"magnifier"):Wb=FNXW(Ul):Wy=FNXU(Ul,Wy,Un+Um,"share_1")
1870WX=FNXW(Ul):Wy=FNXU(Ul,Wy,Un+Um,"share_2"):WZ=FNXW(Ul):PROCXY:ENDPROC
1940DEFPROCWd(Vz):Ux=1:XZ=0:PROCXa(Ue$,128,44):PROCXb("Info",0,XV, NOTTRUE):PROCXb("Quit",128,-1, NOTTRUE):SYS&400D4,,Up,Vz-80,184:ENDPROC
2040DEFPROCWe(Vz,WU):PROCVc:Ux=2:XZ=0:Xc=Up+XZ:PROCXa("Speed",128,44):PROCXd:Xe=Up+XZ:PROCXa(Ue$,160,44):PROCXb("Info...",2,XX, NOTTRUE):PROCXb("Zoom",0,Wb, NOTTRUE):PROCXb("Speed",2,Xc, NOTTRUE):PROCXb("Remove",128,-1, NOTTRUE):SYS&400D4,,Xe,Vz-80,WU:ENDPROC
2210DEFPROCXa(Xf$,Xg,Xh):$(Up+XZ)=Xf$+CHR$0:?(Up+XZ+12)=7:?(Up+XZ+13)=2:?(Up+XZ+14)=7:?(Up+XZ+15)=0:!(Up+XZ+16)=Xg:!(Up+XZ+20)=Xh:!(Up+XZ+24)=0:XZ+=28:ENDPROC
2340DEFPROCXb(Xi$,Xj,Xk,Xl):!(Up+XZ+0)=Xj:!(Up+XZ+4)=Xk:!(Up+XZ+8)=&07000001+ABSXl*2^22:$(Up+XZ+12)=Xi$+CHR$0:XZ+=24:ENDPROC
2430DEFPROCXd:!(Up+XZ+0)=128+4:!(Up+XZ+4)=-1:!(Up+XZ+8)=&07000101:!(Up+XZ+12)=Us:!(Up+XZ+16)=Us+32:!(Up+XZ+20)=4:$(Us+0)=STR$Vd+CHR$0:$(Us+32)="A0-9"+CHR$0:XZ+=24:ENDPROC
2560DEFPROCVs(Vy):Xm=Vy!0:SYS&400CF,,Vy:Vz=Vy!0:WU=Vy!4:WV=Vy!8:CASEUx OF
2630WHEN1:CASEXm OF
2640WHEN0
2650WHEN1:Uu=TRUE
2660ENDCASE
2670WHEN2:CASEXm OF
2680WHEN2:Xn=VALFNXo(Us):IFXn<1 THENXn=1
2700IFXn>999 THENXn=999
2710Vd=Xn
2720WHEN3:VZ= NOTTRUE:PROCVo:PROCVm(Uj,Vn):WV=WV AND%110
2760ENDCASE
2770ENDCASE:IFWV=Ua THEN
2790CASEUx OF
2800WHEN1:PROCWd(Vz)
2810WHEN2:PROCWe(Vz,WU)
2820ENDCASE
2830ELSE:IFUx<>1 ANDUx<>-1 THEN
2850SYS&400D4,,-1:Ux=0
2870ENDIF
2880ENDIF:ENDPROC
2920DEFPROCWh(Vy):Xp=Vy!40:Xq$=FNXo(Vy+44):Xr=Vy!4:Vy!16=4:Vy!12=Vy!8:SYS&400E7,17,Vy,Xr:IFXp<>Uc THEN
3000Xs$=FNXt("err01"):Xu=FNXv(Uj,99,Ue$,Xs$, NOTTRUE,TRUE)
3020ELSE:PROCXw(Xq$)
3040ENDIF:ENDPROC
3080DEFPROCVq(Vy):SYS&400CF,,Vy:Vz=Vy!0:WU=Vy!4:WW=Vy!12:Vx=Vy!16:Xq$=FNWn(Uj,Xx,1):Xy$=RIGHT$(Xq$,10-INSTR(RIGHT$(Xq$,10),".")):Vy!0=44+((LENXy$ DIV4)*4)+4:Vy!4=0:Vy!8=0:Vy!12=0:Vy!16=1:Vy!20=WW:Vy!24=Vx:Vy!28=Vz:Vy!32=WU:Vy!36=64:Vy!40=Uc:$(Vy+44)=Xy$+CHR$0:SYS&400E7,17,Vy,WW:ENDPROC
3320DEFPROCWg(Vy):Xr=Vy!4:Vy!12=Vy!8:Vy!16=3:Xq$=FNXo(Vy+44):SYS&400E7,17,Vy,Xr:IFINSTR(Xq$,"Wimp$Scrap")=0 THEN
3400ENDIF:SYS&400D4,,-1:ENDPROC
3450DEFFNXz(Vw,WW,Vx):LOCALXg,Xh,YU,YV:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:SYS&31,Vw,Vw+32:Xg=(Vw!40+1)* 2^( Vw!32 ):Xh=(Vw!44+1)* 2^( Vw!36 ):Vw!0=WW:SYS&400CC,,Vw:YU=Vw!4:YV=Vw!16:Vw!0=WW:Vw!4=Vx:SYS&400CE,,Vw:Vw!8+=YU:Vw!12+=YV:Vw!16+=YU:Vw!20+=YV
3620Vw!0=0:Vw!4=5:Vw!24=0:Vw!28=0:Vw!32=Xg:Vw!36=Xh:SYS&400D0,,Vw:=0
3690DEFPROCWi(Vy):YW$="":Xr=Vy!4:YX=Vy!32:YY=Vy!36:CASEYX OF
3750WHENUb:IFYY=VV THENYW$="ibar"
3760WHENVn:YW$="main"
3770ENDCASE:IFYW$<>"" THEN
3790YZ$=FNXt(YW$):Vy!0=20+((LEN(YZ$) DIV4)*4)+4:Vy!12=Vy!8:Vy!16=&503:$(Vy+20)=YZ$+CHR$0:SYS&400E7,17,Vy,Xr
3850ENDIF:ENDPROC
3890DEFPROCVc:PROCYa(Uj,Wb,2,STR$Va):PROCYa(Uj,Wb,4,STR$Vb):ENDPROC
3950DEFPROCWc(Yb,Yc):Va+=Yb:IFVa>999 THENVa=999
3970IFVa<1 THENVa=1
3980Vb+=Yc:IFVb>999 THENVb=999
3990IFVb<1 THENVb=1
4000PROCVc:PROCYd:ENDPROC
4050DEFPROCUW:Xs$="Fatal Error : "+REPORT$+" ("+STR$ERL+")":Xu=FNXv(Uj,99,Ue$,Xs$,TRUE, NOTTRUE):ENDPROC
4140DEFPROCWf(Ye,Yf):Yg=Ye:Yh=Yf:ENDPROC
4200DEFPROCVj:SYS&400CF,,Uj:Ye=Uj!0:Yf=Uj!4:Yi=Uj!8:IFYi=0 THEN
4250Ve=0
4260ELSE:Yj=Ye:Yk=Yf:Yl=Yj-Yg:Ym=Yk-Yh:Yg=Yj:Yh=Yk:Uj!0=Vn:SYS&400CB,,Uj:Uj!4+=Yl:Uj!8+=Ym:Uj!12+=Yl:Uj!16+=Ym:SYS&400C5,,Uj
4370ENDIF:ENDPROC
4440DEFPROCVf:PROCYn(Uj,WX):PROCYo(Uj,WX):VDU7:ENDPROC
4510DEFPROCWY:PROCYn(Uj,WZ):PROCYo(Uj,WZ):VDU7:ENDPROC
4720DEFPROCXw(Xq$):LOCALERROR:Yp=-1:ONERRORLOCALPROCYq:ENDPROC
4770VZ= NOTTRUE:PROCVo:Yr=Ys:Yt=FNYu(Xq$):Yv=FNYw(Yt):IF NOTYv THEN
4850Xs$=FNXt("err02"):Xu=FNXv(Uj,99,Ue$,Xs$, NOTTRUE,TRUE)
4880ELSE:OSCLI"Load "+Xq$+" "+STR$~Yr:Yv=FNYx:IFYv THEN
4930PROCYy:PROCWj:PROCWk:PROCYd:PROCYn(Uj,Vn):VZ=TRUE:Yz=1:ZU=0:PROCVi
5020ELSE:PROCVo:VZ= NOTTRUE
5050ENDIF
5070ENDIF:RESTOREERROR:ENDPROC
5140DEFPROCYy:PROCYa(Uj,XX,1,FNZV(Xq$)):PROCYa(Uj,XX,3,STR$ZW):PROCYa(Uj,XX,5,STR$ZX):PROCYa(Uj,XX,7,STR$ZY):PROCYa(Uj,XX,9,STR$(Yt DIV1024)):ENDPROC
5230DEFFNYx:ZZ$=LEFT$(FNXo(Yr),4):ZW=Yr!4:ZX=Yr!8:Za=Yr!12:Zb=Yr!16:ZY=Yr!20:Zc=Yr!24:Zd=Yr!28:Ze=Yr!32:Zf=Yr!36:Zg=Yr!40:IFZZ$<>"FILM" THEN
5320Xs$=FNXt("err01"):Xu=FNXv(Uj,99,Ue$,Xs$, NOTTRUE,TRUE):PROCVo:Yv= NOTTRUE:VZ= NOTTRUE:PROCVm(Uj,Vn)
5380ELSE:Zh=Ys:Yv=FNYw(Zc):IF NOTYv THEN
5420Xs$=FNXt("err04"):Xu=FNXv(Uj,99,Ue$,Xs$, NOTTRUE,TRUE):VZ= NOTTRUE
5450ELSE:PROCZi:Zj$=FNZk(Zh,1):Zl=FNZm(Zh,Zj$):Zn=FNZo(Zh,Zj$):Zp=FNZq(Zh,Zj$)
5510ENDIF
5520ENDIF:=Yv
5560DEFPROCZi:A%=Yr+11*4 + ZY*4 :B%=Zh:C%=Zc+8:CALLZr:ENDPROC
5620DEFPROCYq:Xs$=FNXt("err03"):Xu=FNXv(Uj,99,Ue$,Xs$+" : "+REPORT$+" ("+STR$ERL+")", NOTTRUE,TRUE):PROCVo:ENDPROC
5690DEFPROCVi:ZU+=1:IFZU>=Vd THEN
5720ZU=0:Zs=Yr!(11*4+((Yz-1)*4)):Zt=Yr+Zs:CASE!Zt OF
5760WHEN0:!Zu=Zt+4:!Zv=0:!Zw=Zn:CALLZx
5780WHEN1:IFYz<>1 THEN
5790A%=Zt+4:B%=Zn:C%=Zb:CALLZr
5810ELSE:PROCZi
5830ENDIF
5840ENDCASE:PROCZy(Uj,Vn):Yz+=1:IFYz>ZY THENYz=1
5870ENDIF:ENDPROC
5910DEFFNYu(Xq$):LOCALZz:SYS&8,17,Xq$ TO,,,,aU:=aU
5970DEFPROCWj:aV=Zh:aW=Uq:aX=Zl:IF NOTaX THEN
6100Zj$=FNZk(aV,1):aY=Za:aZ=FNaa(aV,Zj$):ab=FNZo(aV,Zj$):SYS&35,aY,3 TO,,ac:ad=ab-aZ:ae=(ad/8)-1:IFaZ<>-1 THEN
6180af=Ur:FORag=0 TOae:!(af+(ag*4) ) = !( aZ + (ag*8) ):NEXTag
6220ELSE:IFac=63 THEN
6240af=0
6250ELSE:af=Ur:SYS&400E5,,af:FORi=0 TO15:af!(i*4) = (af!(i*4) AND&FFFFFF00):NEXTi
6310ENDIF
6320ENDIF:IFae<>255 THEN
6340SYS&40740,aY,af,-1,-1,aW
6350ELSE:FORag=0 TOae:A%=!(aZ+ag*8 ):SYS&40744,A% TOah:aW?ag=ah:NEXTag
6410ENDIF
6420ELSE:Zj$=FNZk(aV,1):aY=Za:SYS&40740,aY,Ur,-1,-1,aW
6540ENDIF:ENDPROC
6580DEFPROCWk:SYS&35,-1,4 TO,,ai:SYS&35,-1,5 TO,,aj:SYS&35,Za,4 TO,,ak:SYS&35,Za,5 TO,,al:am=ai:am=ak/ai:an=al/aj:ENDPROC
6690DEFPROCWx:Zj$=FNZk(Zh,1):ao=Wr-Wv:ap=Wt-Ww:aq=Uj:aq!0=(ZW)* am * Va :aq!4=(ZX)* an * Va:aq!8=(ZW)* Vb :aq!12=(ZX)* Vb:SYS&2E,256+52,Zh,Zj$,ao,ap,8,aq,Uq:ENDPROC
6800DEFPROCYd:SYS&35,Za,4 TO,,ar:SYS&35,Za,5 TO,,as:at=(ZW<<ar)* (Va/Vb):au=(ZX<<as)* (Va/Vb):PROCav(Uj,Vn,0,at,0,au):IFFNaw(Uj,Vn) THEN
6870!Uj=Vn:SYS&400CB,,Uj:SYS&400C6,,Uj:SYS&400C5,,Uj
6910ENDIF:PROCax(Uj,Vn,at,au):ENDPROC
6960DEFPROCVU:ay=13:az=14:bU=15:DIMbV 2*1024:FORbW=0 TO2STEP2:P%=bV:[OPT bW:.Zu DCD 0:.bX DCD 0:.bY DCD 0:.Zw DCD 0:.Zv DCD 0:.Zx STMFD (ay)!,{az}:.bZ MOV r0,#0:STR r0,bX:STR r0,bY:LDR r0,Zu:LDR r1,bX:.ba LDRB r2,[r0],#1:ADD r1,r1,r2:CMP r2,#255:BEQ ba:LDRB r3,[r0],#1
7230STR r1,bX:STR r3,bY:STR r0,Zu:.bb CMP r1,#0:CMPEQ r3,#0:BEQ bc:LDR r0,Zv:ADD r0,r0,r1:STR r0,Zv:LDR r2,Zw:LDR r4,Zu:.bd CMP r3,#4 : BLE be:LDRB r5,[r4],#1 : STRB r5,[r2,r0]:ADD r0,r0,#1 : SUB r3,r3,#1:LDRB r5,[r4],#1 : STRB r5,[r2,r0]
7410ADD r0,r0,#1 : SUB r3,r3,#1:LDRB r5,[r4],#1 : STRB r5,[r2,r0]:ADD r0,r0,#1 : SUB r3,r3,#1:LDRB r5,[r4],#1 : STRB r5,[r2,r0]:ADD r0,r0,#1 : SUB r3,r3,#1:B bd:.be CMP r3,#0 : BEQ bf:LDRB r5,[r4],#1:STRB r5,[r2,r0]:ADD r0,r0,#1:SUB r3,r3,#1:B be
7560.bf STR r4,Zu:STR r0,Zv:.bc LDR r0,bX:LDR r1,bY:CMP r0,#0 : BNE bZ:CMP r1,#0 : BNE bZ:LDMFD (ay)!,{PC}:.Zr STMFD (ay)!,{r0-r12,az}:.bg CMP r2,#64:BLE bh:LDMIA r0!,{r3-r10}:STMIA r1!,{r3-r10}:LDMIA r0!,{r3-r10}:STMIA r1!,{r3-r10}:SUB r2,r2,#64:B bg
7820.bh LDR r3,[r0],#4:STR r3,[r1],#4:SUBS r2,r2,#4:BNE bh:LDMFD (ay)!,{r0-r12,PC}:]:NEXTbW:ENDPROC
8120DEFPROCUz:SYS&51 TObi:bj=FNbk:bl=0:Ys=HIMEM:ENDPROC
8200DEFFNYw(bm):LOCALbn,bo:LOCALbp,bq,br:LOCALbs,Yv:bn=(bm DIVbi)+1:bo=bn* bi:IFFNbt>=bm THEN
8270bp=FNbk:bq=bp+bm:br=FNbu(bq):bl+=bm:Ys+=bm:bs=HIMEM:Yv=TRUE
8340ELSE:Yv= NOTTRUE
8360ENDIF:=Yv
8400DEFFNbv(bm):bn=(bm DIVbi)+1:bo=bn* bi:=bo
8460DEFPROCVo:bp=FNbk:IFbp>bj THEN
8490Xu=FNbu(bj):bl=0:Ys=HIMEM
8520ENDIF:ENDPROC
9030DEFFNbw(bx,by$,aX):IF NOTaX THEN
9050SYS&2E,256+40,bx,by$ TO,,,bz,aU,cU,cV:cW=bz
9070ELSE:cX=FNZq(bx,by$):cW=cX!(4*4) + 1:cY=cX!(10*4) ::cZ=((cY>>27) AND%11111):IFcZ=5 THENcW+=cW
9130ENDIF:=cW
9170DEFFNca(bx,by$,aX):IF NOTaX THEN
9190SYS&2E,256+40,bx,by$ TO,,,bz,aU,cU,cV:cb=aU
9210ELSE:cX=FNZq(bx,by$):cb=cX!(5*4) + 1
9240ENDIF:=cb
9280DEFFNcc(bx,by$,aX):IF NOTaX THEN
9300SYS&2E,256+40,bx,by$ TO,,,bz,aU,cU,cV:cY=cV
9320ELSE:cX=FNZq(bx,by$):cY=cX!(10*4) :
9350ENDIF:=cY
9390DEFFNcd(bx,by$):cX=FNZq(bx,by$):ce=cX!(8*4):cf=cX!(9*4):=cf<>ce
9460DEFFNaa(bx,by$):cg=FNZq(bx,by$):ch=cg!32:IFch=11*4 THEN
9500ci=-1
9510ELSE:ci=cg+11*4
9530ENDIF:=ci
9570DEFFNcj(bx):=bx!4
9610DEFFNZk(bx,n):ck=bx+bx!8:cl=1:WHILEcl<n:cm=ck!0:ck+=cm:cl+=1:ENDWHILE:=LEFT$(FNXo(ck+4),12)+CHR$0
9740DEFFNZo(bx,by$):SYS&2E,256+24,bx,by$ TO,,cn:co=cn:ch=co!32:cp=co+ch:=cp
9820DEFFNcq(bx,by$):SYS&2E,256+24,bx,by$ TO,,cn:co=cn:cr=co!36:cs=co+cr:=cs
9900DEFFNZq(bx,by$):SYS&2E,256+24,bx,by$ TO,,cn:ct=cn:=ct
9960DEFPROCcu(bx,Xq$):SYS&2E,256+12,bx,Xq$:ENDPROC
10010DEFPROCcv(bx,Xq$):SYS&2E,256+10,bx,Xq$:ENDPROC
10060DEFPROCcw(bx,cx):bx!0=cx:bx!8=16:SYS&2E,256+9,bx:ENDPROC
10130DEFFNcy(bx,by$,x,y):LOCALcz,dU:SYS&2E,256+41,bx,by$,x,y TO,,,,,cU,cV:cz=cU:dU=cV:=cz
10210DEFPROCdV(bx,by$,x,y,cz,dU):SYS&2E,256+42,bx,by$,x,y,cz,dU:ENDPROC
10260DEFPROCdW(bx,by$,dX$):SYS&2E,256+26,bx,by$,dX$:ENDPROC
10310DEFFNdY:dZ=1:SYS&6,161,133 TO,,da:da=(da>>2) AND3:IF(da=2) THEN
10380dZ=3
10390ELSE:SYS&35,-1,4 TO,,ar:SYS&35,-1,5 TO,,as:IFar=as THEN
10430dZ=2
10440ENDIF
10450ENDIF:=dZ
10490DEFFNZm(bx,by$):cX=FNZq(bx,by$):db=cX!(10*4):=db>40
10550DEFPROCdc(bx,by$):SYS&2E,256+30,bx,by$:ENDPROC
10600DEFPROCdd(bx,by$,Xg,Xh,db,de):SYS&2E,256+15,bx,by$,ABSde,Xg,Xh,db:ENDPROC
11260DEFFNUw(df,dg$):LOCALdh,di:SYS&400C0,df,&4B534154,dg$+CHR$0 TOdh,di:dj=di:=dj
11330DEFPROCVv(dj):SYS&400DD,dj,"TASK":ENDPROC
11380DEFFNXv(Vw,dk,Xf$,Xs$,dl,dm):LOCALXj,di,dn:$Vw=Xf$+CHR$0:Vw!32=dk:$(Vw+36)=Xs$+CHR$0:Xj=(ABSdl*2^0)+(ABSdm*2^1):SYS&400DF,Vw+32,Xj,Vw TO,di:dn=di:=dn
11500DEFPROCVl(Vy,Vw,WW,do):IFdo= NOTTRUE THEN
11520Vw!0=WW:SYS&400CB,,Vw:SYS&400C5,,Vw
11550ELSE:SYS&400C5,,Vy
11570ENDIF:ENDPROC
11610DEFPROCVm(Vw,WW):Vw!0=WW:SYS&400C6,,Vw:ENDPROC
11670DEFPROCYn(Vw,WW):LOCALXg,Xh,dp,dq,dr,ds:Vw!0=WW:SYS&400CC,,Vw:Xg=ABSVw!52:Xh=ABSVw!56:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:SYS&31,Vw,Vw+32:dp=Vw!32:dq=Vw!36:dr=Vw!40:ds=Vw!44:x=dr* 2^dp :y=ds* 2^dq:x=(x-Xg) DIV2:y=(y-Xh) DIV2:Vw!(0)=WW:Vw!(4+0)=x:Vw!(4+4)=y
11830Vw!(4+8)=Vw!(4+0)+Xg:Vw!(4+12)=Vw!(4+4)+Xh:Vw!28=-1:SYS&400C5,,Vw:ENDPROC
11890DEFPROCav(Vw,WW,dt,du,dv,dw):Vw!0=dt:Vw!4=dv:Vw!8=du:Vw!12=dw:SYS&400D7,WW,Vw:ENDPROC
11980DEFFNaw(Vw,WW):LOCALdx,dy:Vw!0=WW:SYS&400CB,,Vw:dx=Vw!32:dy=(dx AND2^16)=2^16:=dy
12070DEFPROCZy(Vw,WW):LOCALXg,Xh,dz,eU:LOCALeV,eW,eX,eY:Vw!0=WW:SYS&400CC,,Vw:Xg=Vw!12-Uj!4:Xh=Vw!16-Vw!8:dz=Vw!20:eU=Vw!24:eV=dz:eY=eU:eX=eY-Xh:eW=eV+Xg:SYS&400D1,WW,eV,eX,eW,eY:ENDPROC
12200DEFPROCeZ(Vw,WW,Vx):Vw!0=WW:Vw!4=Vx:Vw!8=0:Vw!12=0:SYS&400CD,,Vw:ENDPROC
12290DEFPROCWm(WW,Vx,ea):SYS&400D2,WW,Vx,0,0,-1,ea:ENDPROC
12340DEFPROCWo:SYS&400D2,-1,-1,-1,-1,-1,-1:ENDPROC
12390DEFFNWn(Vw,WW,Vx):LOCALXj,eb,ec$:Vw!0=WW:Vw!4=Vx:SYS&400CE,,Vw:Xj=Vw!(8+16):eb=(Xj AND2^8)=2^8:IFeb THEN
12470ec$=FNXo(Vw!(8+20))
12480ELSE:ec$=FNXo(Vw+8+20)
12500ENDIF:=ec$
12540DEFPROCYa(Vw,WW,Vx,ed$):LOCALXj,eb:Vw!0=WW:Vw!4=Vx:SYS&400CE,,Vw:Xj=Vw!(8+16):eb=(Xj AND2^8)=2^8:IFeb THEN
12620$(Vw!(8+20))=ed$
12630ELSE:$(Vw+8+20)=ed$
12650ENDIF:Vw!0=WW:Vw!4=Vx:Vw!8=0:Vw!12=0:SYS&400CD,,Vw:ENDPROC
12740DEFPROCWp(ee):SYS&400DC,ee:ENDPROC
12790DEFFNXo(Xk):LOCALef$:ef$="":WHILE?Xk>31:ef$+=CHR$?Xk:Xk+=1:ENDWHILE:=ef$
12890DEFPROCWz(Vw,Xq$):$Vw=Xq$+CHR$0:SYS&400D9,,Vw:ENDPROC
12950DEFFNXU(eg,eh,ei,ej$):LOCALcn,ek,el,em,en:SYS&400DB,,eg,eh,ei,-1,ej$,0 TO,,cn:ek=eg!84:=cn
13040DEFFNXW(eg):LOCALWW:SYS&400C1,,eg TOWW:=WW
13100DEFPROCXY:SYS&400DA:ENDPROC
13150DEFFNVh(Vy,eo):LOCALdh:SYS&400C7,eo,Vy TOdh:ep=dh:=ep
13220DEFFNbu(eq):LOCALdh,di,cn,er:SYS&400EC,eq,-1 TOdh,di,cn:er=dh:=er
13290DEFFNbk:LOCALdh,di,cn,er:SYS&400EC,-1,-1 TOdh,di,cn:er=dh:=er
13360DEFFNbt:LOCALdh,di,cn,es:SYS&400EC,-1,-1 TOdh,di,cn:es=cn:=es
13430DEFPROCWa(Vw):LOCALdp,dq,dr,ds:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:SYS&31,Vw,Vw+32:dp=Vw!32:dq=Vw!36:dr=Vw!40:ds=Vw!44:MOUSERECTANGLE0,0,dr*2^dp,ds*2^dq:ENDPROC
13540DEFPROCYo(Vw,WW):LOCALXg,Xh,dp,dq,dr,ds:!Vw=WW:SYS&400CC,,Vw:Xg=ABSVw!52:Xh=ABSVw!48:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:SYS&31,Vw,Vw+32:dp=Vw!32:dq=Vw!36:dr=Vw!40:ds=Vw!44:x=dr* 2^dp :y=ds* 2^dq:x=(x-Xg)/2:y=(y-Xh)/2:Vw!0=WW:Vw!(0+4+0)=x:Vw!(0+4+4)=y
13690Vw!(0+4+8)=Vw!(0+4+0)+Xg:Vw!(0+4+12)=Vw!(0+4+4)+Xh:SYS&400C5,,Vw:x=((dr*2^dp)-Xg ) / 2:y=((ds*2^dq)-Xh) / 2:MOUSERECTANGLEx,y,Xg,Xh:ENDPROC
13780DEFPROCet(Vw,WW,Vx,eu,ev):!Vw=WW:SYS&400CC,,Vw:ew=Vw!4:ex=Vw!8:ey=Vw!12:ez=Vw!16:Vw!0=WW:Vw!4=Vx:SYS&400CE,,Vw:fU=Vw!8:fV=Vw!12:fW=Vw!16:fX=Vw!20:fY=fW-fU:fZ=fX-fV:Wr=ew+fU:Wu=ez+fV:MOUSERECTANGLEWr+eu,Wu+ev,fY-eu*2,fZ-ev*2:ENDPROC
13940DEFPROCfa(Vw,WW,Vz,WU):!Vw=WW:SYS&400CC,,Vw:fb=Vw!4-Vw!20:fc=Vw!16-Vw!24:fb=Vz-fb:fc=1024-(fc-WU):fd%=fb:fe%=fc:ENDPROC
14080DEFPROCff(Vw,WW,fg):Vw!0=WW:SYS&400CC,,Vw:fh=Vw!4:fi=Vw!12:fj=Vw!8:fk=Vw!16:fl=Vw!28:Vw!0=fg:SYS&400CC,,Vw:Wr=fh-(Vw!12-Vw!4)-1:Xh=Vw!8-Vw!16:Vw!4=Wr:Vw!12=fi:Vw!8=Xh:Vw!16=fk:Vw!20=0:Vw!28=fl:SYS&400C5,,Vw:ENDPROC
14240DEFFNfm(fn):=((fn+3) AND(NOT3))
14280DEFFNVY:SYS&1E,6,,,16 TO,,cn:VX=cn:SYS&41501,VX,"<"+Ue$+"$Dir>.Messages",0:=VX
14350DEFPROCVu(fo):SYS&41504,fo:SYS&1E,7,,fo:ENDPROC
14410DEFFNXt(YW$):SYS&41502,VX,YW$,0,0,0,0,0,0 TO,,cn:fp=cn:fq$=FNXo(fp):=fq$
14480DEFPROCfr(Vw,WW,fs$):LOCALXj,eb:!Vw=WW:SYS&400CC,,Vw:Xj=Vw!(4+56):eb=(Xj AND2^8)=2^8:IFeb THEN
14550Zt=!(Vw+4+72):$!(Vw+4+72)=fs$+CHR$0
14570ELSE:$(Vw+4+72)=ed$+CHR$0
14590ENDIF:ENDPROC
14630DEFPROCft(Vw,WW,Vx,fu):Vw!0=WW:Vw!4=Vx:Vw!8=(ABSfu)<<21:Vw!12=1<<21:SYS&400CD,,Vw:ENDPROC
14720DEFPROCfv(Vw,WW,Vx,fw):Vw!0=WW:Vw!4=Vx:Vw!8=(ABSfw)<<22:Vw!12=1<<22:SYS&400CD,,Vw:ENDPROC
14810DEFFNZV(Xq$):IFXq$="" THEN=""
14830LOCALi:i=LENXq$:WHILEMID$(Xq$,i,1)<>"." ANDi>0:i-=1:ENDWHILE:=MID$(Xq$,i+1,LENXq$)
14910DEFPROCax(Vw,YX,fx,fy):!Vw=YX:SYS&400CC,,Vw:Vw!(4+8)=Vw!(4+0)+fx:Vw!(4+4)=Vw!(4+12)-fy:SYS&400C6,,Vw:SYS&400C5,,Vw:ENDPROC
P-���:�"Fatal Error : ";�$;" at Line ";�:�
Z
�UV:��UW
x �UX:�
����UV:UY=4:UZ=2:Ua=1:Ub=-2:Uc=&3E1:Ud=&FF9:Ue$="Cinema":Uf$="Cinema":Ug=1*1024 :�Uh Ug:Ui=1*1024 :�Uj Ui:Uk=3*1024 :�Ul Uk:Um=2*1024 :�Un Um:Uo=1*1024 :�Up Uo:�Uq 1024:�Ur 1024:�Us 64:Ut=0:Uu= ��:Uv=�Uw(2*100,Uf$):Ux=0:�Uy:�Uz:�VU:VV=�VW(Uj):VX=�VY
�$VZ= ��:Va=1:Vb=1:�Vc:Vd=1:Ve=0:�
�#��UX:�Vf:�:Vg=�Vh(Uh,Ut):ȎVg �
0�0:�VZ ��Vi
:�Ve=1 ��Vj
D�1:�Vk(Uh)
N�2:�Vl(Uh,Uj,-1,�)
X �3:�Vm(Uj,Uh!0):�!Uh=Vn �
lVZ= ��:�Vo
��
��6:�Vp(Uh)
��7:�Vq(Uh)
��8:�Vr(Uh)
��9:�Vs(Uh)
��17:�Vt(Uh)
��18:�Vt(Uh)
��:�Uu:�Vu(VX):�Vv(Uv):�
*iݤVW(Vw):Vw!0=-1:Vw!4=0:Vw!8=0:Vw!12=68:Vw!16=68:Vw!20=&3002:$(Vw+24)="!"+Ue$+�0:ș&400C2,,Vw �Vx:=Vx
�=��Vp(Vy):Vz=Vy!0:WU=Vy!4:WV=Vy!8:WW=Vy!12:Vx=Vy!16:ȎWV �
��UY:ȎWW �
��WX:�Vx=3 �
��Vm(Uj,WW):�WY
�
�WZ:�Vx=5 �
$�Vm(Uj,WW):�Wa(Uj)
8�
B�Wb:ȎVx �
L�0:�Wc(+1,0)
V�1:�Wc(-1,0)
`�5:�Wc(0,+1)
j�6:�Wc(0,-1)
t�
~�
��UZ:ȎWW �
��Ub:�Vx=VV ��Wd(Vz)
��Vn:�We(Vz,WU)
��
��64,16:ȎWW �
��Vn:Ve=1:�Wf(Vz,WU)
��
��:�
���Vt(Vy):ȎVy!16 �
�0:Uu=�
�2:�Wg(Vy)
�3:�Wh(Vy)
(�&502:�Wi(Vy)
2�&400C1:�VZ �
< �Wj:�Wk
P�
Z�:�
�,��Vr(Vy):WW=Vy!0:Vx=Vy!4:Wl=Vy!24:ȎWW �
��Wb:�Wl=13 �
�
ȎVx �
� �2:�Wm(WW,4,��Wn(Uj,WW,4))
�5�4:Va=��Wn(Uj,WW,2):Vb=��Wn(Uj,WW,4):�Wc(0,0):�Wo
��
�
�:�Wp(Wl):�
@e��Vk(Vy):WW=Vy!0:ș&400C8,,Vy �Wq:Wr=Vy!4:Ws=Vy!12:Wt=Vy!16:Wu=Vy!8:Wv=Vy!20:Ww=Vy!24:ȕWq:ȎWW �
� �Vn:�Wx
��:ș&400CA,,Vy �Wq:�:�
���Uy:Wy=Un:�Wz(Uj,"<"+Ue$+"$Dir>.Templates"):Wy=�XU(Ul,Wy,Un+Um,"information"):XV=�XW(Ul):Wy=�XU(Ul,Wy,Un+Um,"main"):Vn=�XW(Ul):Wy=�XU(Ul,Wy,Un+Um,"film_info"):XX=�XW(Ul):Wy=�XU(Ul,Wy,Un+Um,"magnifier"):Wb=�XW(Ul):Wy=�XU(Ul,Wy,Un+Um,"share_1")
N=WX=�XW(Ul):Wy=�XU(Ul,Wy,Un+Um,"share_2"):WZ=�XW(Ul):�XY:�
�k��Wd(Vz):Ux=1:XZ=0:�Xa(Ue$,128,44):�Xb("Info",0,XV, ��):�Xb("Quit",128,-1, ��):ș&400D4,,Up,Vz-80,184:�
����We(Vz,WU):�Vc:Ux=2:XZ=0:Xc=Up+XZ:�Xa("Speed",128,44):�Xd:Xe=Up+XZ:�Xa(Ue$,160,44):�Xb("Info...",2,XX, ��):�Xb("Zoom",0,Wb, ��):�Xb("Speed",2,Xc, ��):�Xb("Remove",128,-1, ��):ș&400D4,,Xe,Vz-80,WU:�
����Xa(Xf$,Xg,Xh):$(Up+XZ)=Xf$+�0:?(Up+XZ+12)=7:?(Up+XZ+13)=2:?(Up+XZ+14)=7:?(Up+XZ+15)=0:!(Up+XZ+16)=Xg:!(Up+XZ+20)=Xh:!(Up+XZ+24)=0:XZ+=28:�
$l��Xb(Xi$,Xj,Xk,Xl):!(Up+XZ+0)=Xj:!(Up+XZ+4)=Xk:!(Up+XZ+8)=&07000001+�Xl*2^22:$(Up+XZ+12)=Xi$+�0:XZ+=24:�
~���Xd:!(Up+XZ+0)=128+4:!(Up+XZ+4)=-1:!(Up+XZ+8)=&07000101:!(Up+XZ+12)=Us:!(Up+XZ+16)=Us+32:!(Up+XZ+20)=4:$(Us+0)=�Vd+�0:$(Us+32)="A0-9"+�0:XZ+=24:�
@��Vs(Vy):Xm=Vy!0:ș&400CF,,Vy:Vz=Vy!0:WU=Vy!4:WV=Vy!8:ȎUx �
F
�1:ȎXm �
P�0
Z �1:Uu=�
d�
n
�2:ȎXm �
x �2:Xn=��Xo(Us):�Xn<1 �Xn=1
��Xn>999 �Xn=999
� Vd=Xn
�(�3:VZ= ��:�Vo:�Vm(Uj,Vn):WV=WV �%110
��
��:�WV=Ua �
�
ȎUx �
��1:�Wd(Vz)
��2:�We(Vz,WU)
�
�:�Ux<>1 �Ux<>-1 �
"ș&400D4,,-1:Ux=0
6�
@�:�
h[��Wh(Vy):Xp=Vy!40:Xq$=�Xo(Vy+44):Xr=Vy!4:Vy!16=4:Vy!12=Vy!8:ș&400E7,17,Vy,Xr:�Xp<>Uc �
�0Xs$=�Xt("err01"):Xu=�Xv(Uj,99,Ue$,Xs$, ��,�)
��:�Xw(Xq$)
��:�
���Vq(Vy):ș&400CF,,Vy:Vz=Vy!0:WU=Vy!4:WW=Vy!12:Vx=Vy!16:Xq$=�Wn(Uj,Xx,1):Xy$=�Xq$,10-��Xq$,10),".")):Vy!0=44+((�Xy$ �4)*4)+4:Vy!4=0:Vy!8=0:Vy!12=0:Vy!16=1:Vy!20=WW:Vy!24=Vx:Vy!28=Vz:Vy!32=WU:Vy!36=64:Vy!40=Uc:$(Vy+44)=Xy$+�0:ș&400E7,17,Vy,WW:�
�`��Wg(Vy):Xr=Vy!4:Vy!12=Vy!8:Vy!16=3:Xq$=�Xo(Vy+44):ș&400E7,17,Vy,Xr:�Xq$,"Wimp$Scrap")=0 �
H�:ș&400D4,,-1:�
z�ݤXz(Vw,WW,Vx):�Xg,Xh,YU,YV:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:ș&31,Vw,Vw+32:Xg=(Vw!40+1)* 2^( Vw!32 ):Xh=(Vw!44+1)* 2^( Vw!36 ):Vw!0=WW:ș&400CC,,Vw:YU=Vw!4:YV=Vw!16:Vw!0=WW:Vw!4=Vx:ș&400CE,,Vw:Vw!8+=YU:Vw!12+=YV:Vw!16+=YU:Vw!20+=YV
$CVw!0=0:Vw!4=5:Vw!24=0:Vw!28=0:Vw!32=Xg:Vw!36=Xh:ș&400D0,,Vw:=0
j4��Wi(Vy):YW$="":Xr=Vy!4:YX=Vy!32:YY=Vy!36:ȎYX �
��Ub:�YY=VV �YW$="ibar"
��Vn:YW$="main"
��:�YW$<>"" �
�bYZ$=�Xt(YW$):Vy!0=20+((�(YZ$) �4)*4)+4:Vy!12=Vy!8:Vy!16=&503:$(Vy+20)=YZ$+�0:ș&400E7,17,Vy,Xr
�:�
2,��Vc:�Ya(Uj,Wb,2,�Va):�Ya(Uj,Wb,4,�Vb):�
n&��Wc(Yb,Yc):Va+=Yb:�Va>999 �Va=999
��Va<1 �Va=1
�Vb+=Yc:�Vb>999 �Vb=999
��Vb<1 �Vb=1
�
�Vc:�Yd:�
�J��UW:Xs$="Fatal Error : "+�$+" ("+Þ+")":Xu=�Xv(Uj,99,Ue$,Xs$,�, ��):�
, ��Wf(Ye,Yf):Yg=Ye:Yh=Yf:�
h5��Vj:ș&400CF,,Uj:Ye=Uj!0:Yf=Uj!4:Yi=Uj!8:�Yi=0 �
�Ve=0
�w�:Yj=Ye:Yk=Yf:Yl=Yj-Yg:Ym=Yk-Yh:Yg=Yj:Yh=Yk:Uj!0=Vn:ș&400CB,,Uj:Uj!4+=Yl:Uj!8+=Ym:Uj!12+=Yl:Uj!16+=Ym:ș&400C5,,Uj
�:�
X#��Vf:�Yn(Uj,WX):�Yo(Uj,WX):�7:�
�#��WY:�Yn(Uj,WZ):�Yo(Uj,WZ):�7:�
p ��Xw(Xq$):�:Yp=-1:���Yq:�
�3VZ= ��:�Vo:Yr=Ys:Yt=�Yu(Xq$):Yv=�Yw(Yt):� �Yv �
�0Xs$=�Xt("err02"):Xu=�Xv(Uj,99,Ue$,Xs$, ��,�)
(�:�"Load "+Xq$+" "+�~Yr:Yv=�Yx:�Yv �
B1�Yy:�Wj:�Wk:�Yd:�Yn(Uj,Vn):VZ=�:Yz=1:ZU=0:�Vi
��:�Vo:VZ= ��
��
�
�:��:�
l��Yy:�Ya(Uj,XX,1,�ZV(Xq$)):�Ya(Uj,XX,3,�ZW):�Ya(Uj,XX,5,�ZX):�Ya(Uj,XX,7,�ZY):�Ya(Uj,XX,9,�(Yt �1024)):�
nݤYx:ZZ$=��Xo(Yr),4):ZW=Yr!4:ZX=Yr!8:Za=Yr!12:Zb=Yr!16:ZY=Yr!20:Zc=Yr!24:Zd=Yr!28:Ze=Yr!32:Zf=Yr!36:Zg=Yr!40:�ZZ$<>"FILM" �
�MXs$=�Xt("err01"):Xu=�Xv(Uj,99,Ue$,Xs$, ��,�):�Vo:Yv= ��:VZ= ��:�Vm(Uj,Vn)
�:Zh=Ys:Yv=�Yw(Zc):� �Yv �
,7Xs$=�Xt("err04"):Xu=�Xv(Uj,99,Ue$,Xs$, ��,�):VZ= ��
JD�:�Zi:Zj$=�Zk(Zh,1):Zl=�Zm(Zh,Zj$):Zn=�Zo(Zh,Zj$):Zp=�Zq(Zh,Zj$)
��
� �:=Yv
�/��Zi:A%=Yr+11*4 + ZY*4 :B%=Zh:C%=Zc+8:�Zr:�
�P��Yq:Xs$=�Xt("err03"):Xu=�Xv(Uj,99,Ue$,Xs$+" : "+�$+" ("+Þ+")", ��,�):�Vo:�
:��Vi:ZU+=1:�ZU>=Vd �
X1ZU=0:Zs=Yr!(11*4+((Yz-1)*4)):Zt=Yr+Zs:Ȏ!Zt �
� �0:!Zu=Zt+4:!Zv=0:!Zw=Zn:�Zx
��1:�Yz<>1 �
�A%=Zt+4:B%=Zn:C%=Zb:�Zr
� �:�Zi
��
�#�:�Zy(Uj,Vn):Yz+=1:�Yz>ZY �Yz=1
��:�
)ݤYu(Xq$):�Zz:ș&8,17,Xq$ �,,,,aU:=aU
R"��Wj:aV=Zh:aW=Uq:aX=Zl:� �aX �
�eZj$=�Zk(aV,1):aY=Za:aZ=�aa(aV,Zj$):ab=�Zo(aV,Zj$):ș&35,aY,3 �,,ac:ad=ab-aZ:ae=(ad/8)-1:�aZ<>-1 �
$8af=Ur:�ag=0 �ae:!(af+(ag*4) ) = !( aZ + (ag*8) ):�ag
L�:�ac=63 �
`af=0
jE�:af=Ur:ș&400E5,,af:�i=0 �15:af!(i*4) = (af!(i*4) �&FFFFFF00):�i
��
��:�ae<>255 �
�ș&40740,aY,af,-1,-1,aW
�;�:�ag=0 �ae:A%=!(aZ+ag*8 ):ș&40744,A% �ah:aW?ag=ah:�ag
�
1�:Zj$=�Zk(aV,1):aY=Za:ș&40740,aY,Ur,-1,-1,aW
��:�
�f��Wk:ș&35,-1,4 �,,ai:ș&35,-1,5 �,,aj:ș&35,Za,4 �,,ak:ș&35,Za,5 �,,al:am=ai:am=ak/ai:an=al/aj:�
"���Wx:Zj$=�Zk(Zh,1):ao=Wr-Wv:ap=Wt-Ww:aq=Uj:aq!0=(ZW)* am * Va :aq!4=(ZX)* an * Va:aq!8=(ZW)* Vb :aq!12=(ZX)* Vb:ș&2E,256+52,Zh,Zj$,ao,ap,8,aq,Uq:�
�w��Yd:ș&35,Za,4 �,,ar:ș&35,Za,5 �,,as:at=(ZW<<ar)* (Va/Vb):au=(ZX<<as)* (Va/Vb):�av(Uj,Vn,0,at,0,au):�aw(Uj,Vn) �
�1!Uj=Vn:ș&400CB,,Uj:ș&400C6,,Uj:ș&400C5,,Uj
��:�ax(Uj,Vn,at,au):�
0���VU:ay=13:az=14:bU=15:�bV 2*1024:�bW=0 �2�2:P%=bV:[OPT bW:.Zu DCD 0:.bX DCD 0:.bY DCD 0:.Zw DCD 0:.Zv DCD 0:.Zx STMFD (ay)!,{az}:.bZ MOV r0,#0:STR r0,bX:STR r0,bY:LDR r0,Zu:LDR r1,bX:.ba LDRB r2,[r0],#1:ADD r1,r1,r2:CMP r2,#255:BEQ ba:LDRB r3,[r0],#1
>�STR r1,bX:STR r3,bY:STR r0,Zu:.bb CMP r1,#0:CMPEQ r3,#0:BEQ bc:LDR r0,Zv:ADD r0,r0,r1:STR r0,Zv:LDR r2,Zw:LDR r4,Zu:.bd CMP r3,#4 : BLE be:LDRB r5,[r4],#1 : STRB r5,[r2,r0]:ADD r0,r0,#1 : SUB r3,r3,#1:LDRB r5,[r4],#1 : STRB r5,[r2,r0]
�ADD r0,r0,#1 : SUB r3,r3,#1:LDRB r5,[r4],#1 : STRB r5,[r2,r0]:ADD r0,r0,#1 : SUB r3,r3,#1:LDRB r5,[r4],#1 : STRB r5,[r2,r0]:ADD r0,r0,#1 : SUB r3,r3,#1:B bd:.be CMP r3,#0 : BEQ bf:LDRB r5,[r4],#1:STRB r5,[r2,r0]:ADD r0,r0,#1:SUB r3,r3,#1:B be
��.bf STR r4,Zu:STR r0,Zv:.bc LDR r0,bX:LDR r1,bY:CMP r0,#0 : BNE bZ:CMP r1,#0 : BNE bZ:LDMFD (ay)!,{PC}:.Zr STMFD (ay)!,{r0-r12,az}:.bg CMP r2,#64:BLE bh:LDMIA r0!,{r3-r10}:STMIA r1!,{r3-r10}:LDMIA r0!,{r3-r10}:STMIA r1!,{r3-r10}:SUB r2,r2,#64:B bg
�Z.bh LDR r3,[r0],#4:STR r3,[r1],#4:SUBS r2,r2,#4:BNE bh:LDMFD (ay)!,{r0-r12,PC}:]:�bW:�
�%��Uz:ș&51 �bi:bj=�bk:bl=0:Ys=�:�
GݤYw(bm):�bn,bo:�bp,bq,br:�bs,Yv:bn=(bm �bi)+1:bo=bn* bi:�bt>=bm �
N6bp=�bk:bq=bp+bm:br=�bu(bq):bl+=bm:Ys+=bm:bs=�:Yv=�
� �:Yv= ��
� �:=Yv
�(ݤbv(bm):bn=(bm �bi)+1:bo=bn* bi:=bo
! ��Vo:bp=�bk:�bp>bj �
!*Xu=�bu(bj):bl=0:Ys=�
!H�:�
#Fݤbw(bx,by$,aX):� �aX �
#Z-ș&2E,256+40,bx,by$ �,,,bz,aU,cU,cV:cW=bz
#nW�:cX=�Zq(bx,by$):cW=cX!(4*4) + 1:cY=cX!(10*4) ::cZ=((cY>>27) �%11111):�cZ=5 �cW+=cW
#� �:=cW
#�ݤca(bx,by$,aX):� �aX �
#�-ș&2E,256+40,bx,by$ �,,,bz,aU,cU,cV:cb=aU
#�$�:cX=�Zq(bx,by$):cb=cX!(5*4) + 1
$ �:=cb
$@ݤcc(bx,by$,aX):� �aX �
$T-ș&2E,256+40,bx,by$ �,,,bz,aU,cU,cV:cY=cV
$h#�:cX=�Zq(bx,by$):cY=cX!(10*4) :
$� �:=cY
$�?ݤcd(bx,by$):cX=�Zq(bx,by$):ce=cX!(8*4):cf=cX!(9*4):=cf<>ce
$�3ݤaa(bx,by$):cg=�Zq(bx,by$):ch=cg!32:�ch=11*4 �
% ci=-1
%&�:ci=cg+11*4
%: �:=ci
%bݤcj(bx):=bx!4
%�OݤZk(bx,n):ck=bx+bx!8:cl=1:ȕcl<n:cm=ck!0:ck+=cm:cl+=1:�:=��Xo(ck+4),12)+�0
& FݤZo(bx,by$):ș&2E,256+24,bx,by$ �,,cn:co=cn:ch=co!32:cp=co+ch:=cp
&\Fݤcq(bx,by$):ș&2E,256+24,bx,by$ �,,cn:co=cn:cr=co!36:cs=co+cr:=cs
&�4ݤZq(bx,by$):ș&2E,256+24,bx,by$ �,,cn:ct=cn:=ct
&�&��cu(bx,Xq$):ș&2E,256+12,bx,Xq$:�
'&��cv(bx,Xq$):ș&2E,256+10,bx,Xq$:�
'L0��cw(bx,cx):bx!0=cx:bx!8=16:ș&2E,256+9,bx:�
'�Oݤcy(bx,by$,x,y):�cz,dU:ș&2E,256+41,bx,by$,x,y �,,,,,cU,cV:cz=cU:dU=cV:=cz
'�:��dV(bx,by$,x,y,cz,dU):ș&2E,256+42,bx,by$,x,y,cz,dU:�
(.��dW(bx,by$,dX$):ș&2E,256+26,bx,by$,dX$:�
(F8ݤdY:dZ=1:ș&6,161,133 �,,da:da=(da>>2) �3:�(da=2) �
(�dZ=3
(�0�:ș&35,-1,4 �,,ar:ș&35,-1,5 �,,as:�ar=as �
(�dZ=2
(��
(� �:=dZ
(�3ݤZm(bx,by$):cX=�Zq(bx,by$):db=cX!(10*4):=db>40
)6&��dc(bx,by$):ș&2E,256+30,bx,by$:�
)h?��dd(bx,by$,Xg,Xh,db,de):ș&2E,256+15,bx,by$,�de,Xg,Xh,db:�
+�EݤUw(df,dg$):�dh,di:ș&400C0,df,&4B534154,dg$+�0 �dh,di:dj=di:=dj
,B!��Vv(dj):ș&400DD,dj,"TASK":�
,t�ݤXv(Vw,dk,Xf$,Xs$,dl,dm):�Xj,di,dn:$Vw=Xf$+�0:Vw!32=dk:$(Vw+36)=Xs$+�0:Xj=(�dl*2^0)+(�dm*2^1):ș&400DF,Vw+32,Xj,Vw �,di:dn=di:=dn
,� ��Vl(Vy,Vw,WW,do):�do= �� �
- %Vw!0=WW:ș&400CB,,Vw:ș&400C5,,Vw
- �:ș&400C5,,Vy
-2�:�
-Z&��Vm(Vw,WW):Vw!0=WW:ș&400C6,,Vw:�
-����Yn(Vw,WW):�Xg,Xh,dp,dq,dr,ds:Vw!0=WW:ș&400CC,,Vw:Xg=�Vw!52:Xh=�Vw!56:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:ș&31,Vw,Vw+32:dp=Vw!32:dq=Vw!36:dr=Vw!40:ds=Vw!44:x=dr* 2^dp :y=ds* 2^dq:x=(x-Xg) �2:y=(y-Xh) �2:Vw!(0)=WW:Vw!(4+0)=x:Vw!(4+4)=y
.6FVw!(4+8)=Vw!(4+0)+Xg:Vw!(4+12)=Vw!(4+4)+Xh:Vw!28=-1:ș&400C5,,Vw:�
.rM��av(Vw,WW,dt,du,dv,dw):Vw!0=dt:Vw!4=dv:Vw!8=du:Vw!12=dw:ș&400D7,WW,Vw:�
.�Kݤaw(Vw,WW):�dx,dy:Vw!0=WW:ș&400CB,,Vw:dx=Vw!32:dy=(dx �2^16)=2^16:=dy
/&���Zy(Vw,WW):�Xg,Xh,dz,eU:�eV,eW,eX,eY:Vw!0=WW:ș&400CC,,Vw:Xg=Vw!12-Uj!4:Xh=Vw!16-Vw!8:dz=Vw!20:eU=Vw!24:eV=dz:eY=eU:eX=eY-Xh:eW=eV+Xg:ș&400D1,WW,eV,eX,eW,eY:�
/�@��eZ(Vw,WW,Vx):Vw!0=WW:Vw!4=Vx:Vw!8=0:Vw!12=0:ș&400CD,,Vw:�
0-��Wm(WW,Vx,ea):ș&400D2,WW,Vx,0,0,-1,ea:�
04%��Wo:ș&400D2,-1,-1,-1,-1,-1,-1:�
0f^ݤWn(Vw,WW,Vx):�Xj,eb,ec$:Vw!0=WW:Vw!4=Vx:ș&400CE,,Vw:Xj=Vw!(8+16):eb=(Xj �2^8)=2^8:�eb �
0�ec$=�Xo(Vw!(8+20))
0��:ec$=�Xo(Vw+8+20)
0�
�:=ec$
0�^��Ya(Vw,WW,Vx,ed$):�Xj,eb:Vw!0=WW:Vw!4=Vx:ș&400CE,,Vw:Xj=Vw!(8+16):eb=(Xj �2^8)=2^8:�eb �
1L$(Vw!(8+20))=ed$
1V�:$(Vw+8+20)=ed$
1j3�:Vw!0=WW:Vw!4=Vx:Vw!8=0:Vw!12=0:ș&400CD,,Vw:�
1���Wp(ee):ș&400DC,ee:�
1�8ݤXo(Xk):�ef$:ef$="":ȕ?Xk>31:ef$+=�?Xk:Xk+=1:�:=ef$
2Z*��Wz(Vw,Xq$):$Vw=Xq$+�0:ș&400D9,,Vw:�
2�UݤXU(eg,eh,ei,ej$):�cn,ek,el,em,en:ș&400DB,,eg,eh,ei,-1,ej$,0 �,,cn:ek=eg!84:=cn
2�%ݤXW(eg):�WW:ș&400C1,,eg �WW:=WW
3,��XY:ș&400DA:�
3^0ݤVh(Vy,eo):�dh:ș&400C7,eo,Vy �dh:ep=dh:=ep
3�<ݤbu(eq):�dh,di,cn,er:ș&400EC,eq,-1 �dh,di,cn:er=dh:=er
3�8ݤbk:�dh,di,cn,er:ș&400EC,-1,-1 �dh,di,cn:er=dh:=er
408ݤbt:�dh,di,cn,es:ș&400EC,-1,-1 �dh,di,cn:es=cn:=es
4v���Wa(Vw):�dp,dq,dr,ds:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:ș&31,Vw,Vw+32:dp=Vw!32:dq=Vw!36:dr=Vw!40:ds=Vw!44:ȗȓ0,0,dr*2^dp,ds*2^dq:�
4����Yo(Vw,WW):�Xg,Xh,dp,dq,dr,ds:!Vw=WW:ș&400CC,,Vw:Xg=�Vw!52:Xh=�Vw!48:Vw!0=4:Vw!4=5:Vw!8=11:Vw!12=12:Vw!16=-1:ș&31,Vw,Vw+32:dp=Vw!32:dq=Vw!36:dr=Vw!40:ds=Vw!44:x=dr* 2^dp :y=ds* 2^dq:x=(x-Xg)/2:y=(y-Xh)/2:Vw!0=WW:Vw!(0+4+0)=x:Vw!(0+4+4)=y
5z~Vw!(0+4+8)=Vw!(0+4+0)+Xg:Vw!(0+4+12)=Vw!(0+4+4)+Xh:ș&400C5,,Vw:x=((dr*2^dp)-Xg ) / 2:y=((ds*2^dq)-Xh) / 2:ȗȓx,y,Xg,Xh:�
5����et(Vw,WW,Vx,eu,ev):!Vw=WW:ș&400CC,,Vw:ew=Vw!4:ex=Vw!8:ey=Vw!12:ez=Vw!16:Vw!0=WW:Vw!4=Vx:ș&400CE,,Vw:fU=Vw!8:fV=Vw!12:fW=Vw!16:fX=Vw!20:fY=fW-fU:fZ=fX-fV:Wr=ew+fU:Wu=ez+fV:ȗȓWr+eu,Wu+ev,fY-eu*2,fZ-ev*2:�
6to��fa(Vw,WW,Vz,WU):!Vw=WW:ș&400CC,,Vw:fb=Vw!4-Vw!20:fc=Vw!16-Vw!24:fb=Vz-fb:fc=1024-(fc-WU):fd%=fb:fe%=fc:�
7 ���ff(Vw,WW,fg):Vw!0=WW:ș&400CC,,Vw:fh=Vw!4:fi=Vw!12:fj=Vw!8:fk=Vw!16:fl=Vw!28:Vw!0=fg:ș&400CC,,Vw:Wr=fh-(Vw!12-Vw!4)-1:Xh=Vw!8-Vw!16:Vw!4=Wr:Vw!12=fi:Vw!8=Xh:Vw!16=fk:Vw!20=0:Vw!28=fl:ș&400C5,,Vw:�
7� ݤfm(fn):=((fn+3) �(�3))
7�LݤVY:ș&1E,6,,,16 �,,cn:VX=cn:ș&41501,VX,"<"+Ue$+"$Dir>.Messages",0:=VX
8&��Vu(fo):ș&41504,fo:ș&1E,7,,fo:�
8JFݤXt(YW$):ș&41502,VX,YW$,0,0,0,0,0,0 �,,cn:fp=cn:fq$=�Xo(fp):=fq$
8�R��fr(Vw,WW,fs$):�Xj,eb:!Vw=WW:ș&400CC,,Vw:Xj=Vw!(4+56):eb=(Xj �2^8)=2^8:�eb �
8�$Zt=!(Vw+4+72):$!(Vw+4+72)=fs$+�0
8��:$(Vw+4+72)=ed$+�0
8��:�
9&O��ft(Vw,WW,Vx,fu):Vw!0=WW:Vw!4=Vx:Vw!8=(�fu)<<21:Vw!12=1<<21:ș&400CD,,Vw:�
9�O��fv(Vw,WW,Vx,fw):Vw!0=WW:Vw!4=Vx:Vw!8=(�fw)<<22:Vw!12=1<<22:ș&400CD,,Vw:�
9�ݤZV(Xq$):�Xq$="" �=""
9�:�i:i=�Xq$:ȕ�Xq$,i,1)<>"." �i>0:i-=1:�:=�Xq$,i+1,�Xq$)
:>p��ax(Vw,YX,fx,fy):!Vw=YX:ș&400CC,,Vw:Vw!(4+8)=Vw!(4+0)+fx:Vw!(4+4)=Vw!(4+12)-fy:ș&400C6,,Vw:ș&400C5,,Vw:�
� 00000000 0d 00 50 2d ee 85 eb eb 3a f1 22 46 61 74 61 6c |..P-....:."Fatal|
00000010 20 45 72 72 6f 72 20 3a 20 22 3b f6 24 3b 22 20 | Error : ";.$;" |
00000020 61 74 20 4c 69 6e 65 20 22 3b 9e 3a e0 0d 00 5a |at Line ";.:...Z|
00000030 0d f2 55 56 3a ee 85 f2 55 57 0d 00 78 09 f2 55 |..UV:...UW..x..U|
00000040 58 3a e0 0d 00 aa fb dd f2 55 56 3a 55 59 3d 34 |X:.......UV:UY=4|
00000050 3a 55 5a 3d 32 3a 55 61 3d 31 3a 55 62 3d 2d 32 |:UZ=2:Ua=1:Ub=-2|
00000060 3a 55 63 3d 26 33 45 31 3a 55 64 3d 26 46 46 39 |:Uc=&3E1:Ud=&FF9|
00000070 3a 55 65 24 3d 22 43 69 6e 65 6d 61 22 3a 55 66 |:Ue$="Cinema":Uf|
00000080 24 3d 22 43 69 6e 65 6d 61 22 3a 55 67 3d 31 2a |$="Cinema":Ug=1*|
00000090 31 30 32 34 20 3a de 55 68 20 55 67 3a 55 69 3d |1024 :.Uh Ug:Ui=|
000000a0 31 2a 31 30 32 34 20 3a de 55 6a 20 55 69 3a 55 |1*1024 :.Uj Ui:U|
000000b0 6b 3d 33 2a 31 30 32 34 20 3a de 55 6c 20 55 6b |k=3*1024 :.Ul Uk|
000000c0 3a 55 6d 3d 32 2a 31 30 32 34 20 3a de 55 6e 20 |:Um=2*1024 :.Un |
000000d0 55 6d 3a 55 6f 3d 31 2a 31 30 32 34 20 3a de 55 |Um:Uo=1*1024 :.U|
000000e0 70 20 55 6f 3a de 55 71 20 31 30 32 34 3a de 55 |p Uo:.Uq 1024:.U|
000000f0 72 20 31 30 32 34 3a de 55 73 20 36 34 3a 55 74 |r 1024:.Us 64:Ut|
00000100 3d 30 3a 55 75 3d 20 ac b9 3a 55 76 3d a4 55 77 |=0:Uu= ..:Uv=.Uw|
00000110 28 32 2a 31 30 30 2c 55 66 24 29 3a 55 78 3d 30 |(2*100,Uf$):Ux=0|
00000120 3a f2 55 79 3a f2 55 7a 3a f2 56 55 3a 56 56 3d |:.Uy:.Uz:.VU:VV=|
00000130 a4 56 57 28 55 6a 29 3a 56 58 3d a4 56 59 0d 01 |.VW(Uj):VX=.VY..|
00000140 ae 24 56 5a 3d 20 ac b9 3a 56 61 3d 31 3a 56 62 |.$VZ= ..:Va=1:Vb|
00000150 3d 31 3a f2 56 63 3a 56 64 3d 31 3a 56 65 3d 30 |=1:.Vc:Vd=1:Ve=0|
00000160 3a e1 0d 01 fe 23 dd f2 55 58 3a f2 56 66 3a f5 |:....#..UX:.Vf:.|
00000170 3a 56 67 3d a4 56 68 28 55 68 2c 55 74 29 3a c8 |:Vg=.Vh(Uh,Ut):.|
00000180 8e 56 67 20 ca 0d 02 30 0f c9 30 3a e7 56 5a 20 |.Vg ...0..0:.VZ |
00000190 8c f2 56 69 0d 02 3a 0e e7 56 65 3d 31 20 8c f2 |..Vi..:..Ve=1 ..|
000001a0 56 6a 0d 02 44 0e c9 31 3a f2 56 6b 28 55 68 29 |Vj..D..1:.Vk(Uh)|
000001b0 0d 02 4e 16 c9 32 3a f2 56 6c 28 55 68 2c 55 6a |..N..2:.Vl(Uh,Uj|
000001c0 2c 2d 31 2c b9 29 0d 02 58 1d c9 33 3a f2 56 6d |,-1,.)..X..3:.Vm|
000001d0 28 55 6a 2c 55 68 21 30 29 3a e7 21 55 68 3d 56 |(Uj,Uh!0):.!Uh=V|
000001e0 6e 20 8c 0d 02 6c 0e 56 5a 3d 20 ac b9 3a f2 56 |n ...l.VZ= ..:.V|
000001f0 6f 0d 02 80 05 cd 0d 02 8a 0e c9 36 3a f2 56 70 |o..........6:.Vp|
00000200 28 55 68 29 0d 02 94 0e c9 37 3a f2 56 71 28 55 |(Uh).....7:.Vq(U|
00000210 68 29 0d 02 9e 0e c9 38 3a f2 56 72 28 55 68 29 |h).....8:.Vr(Uh)|
00000220 0d 02 a8 0e c9 39 3a f2 56 73 28 55 68 29 0d 02 |.....9:.Vs(Uh)..|
00000230 b2 0f c9 31 37 3a f2 56 74 28 55 68 29 0d 02 bc |...17:.Vt(Uh)...|
00000240 0f c9 31 38 3a f2 56 74 28 55 68 29 0d 02 c6 1b |..18:.Vt(Uh)....|
00000250 cb 3a fd 55 75 3a f2 56 75 28 56 58 29 3a f2 56 |.:.Uu:.Vu(VX):.V|
00000260 76 28 55 76 29 3a e1 0d 03 2a 69 dd a4 56 57 28 |v(Uv):...*i..VW(|
00000270 56 77 29 3a 56 77 21 30 3d 2d 31 3a 56 77 21 34 |Vw):Vw!0=-1:Vw!4|
00000280 3d 30 3a 56 77 21 38 3d 30 3a 56 77 21 31 32 3d |=0:Vw!8=0:Vw!12=|
00000290 36 38 3a 56 77 21 31 36 3d 36 38 3a 56 77 21 32 |68:Vw!16=68:Vw!2|
000002a0 30 3d 26 33 30 30 32 3a 24 28 56 77 2b 32 34 29 |0=&3002:$(Vw+24)|
000002b0 3d 22 21 22 2b 55 65 24 2b bd 30 3a c8 99 26 34 |="!"+Ue$+.0:..&4|
000002c0 30 30 43 32 2c 2c 56 77 20 b8 56 78 3a 3d 56 78 |00C2,,Vw .Vx:=Vx|
000002d0 0d 03 a2 3d dd f2 56 70 28 56 79 29 3a 56 7a 3d |...=..Vp(Vy):Vz=|
000002e0 56 79 21 30 3a 57 55 3d 56 79 21 34 3a 57 56 3d |Vy!0:WU=Vy!4:WV=|
000002f0 56 79 21 38 3a 57 57 3d 56 79 21 31 32 3a 56 78 |Vy!8:WW=Vy!12:Vx|
00000300 3d 56 79 21 31 36 3a c8 8e 57 56 20 ca 0d 03 e8 |=Vy!16:..WV ....|
00000310 0e c9 55 59 3a c8 8e 57 57 20 ca 0d 03 f2 0f c9 |..UY:..WW ......|
00000320 57 58 3a e7 56 78 3d 33 20 8c 0d 03 fc 12 f2 56 |WX:.Vx=3 ......V|
00000330 6d 28 55 6a 2c 57 57 29 3a f2 57 59 0d 04 10 05 |m(Uj,WW):.WY....|
00000340 cd 0d 04 1a 0f c9 57 5a 3a e7 56 78 3d 35 20 8c |......WZ:.Vx=5 .|
00000350 0d 04 24 16 f2 56 6d 28 55 6a 2c 57 57 29 3a f2 |..$..Vm(Uj,WW):.|
00000360 57 61 28 55 6a 29 0d 04 38 05 cd 0d 04 42 0e c9 |Wa(Uj)..8....B..|
00000370 57 62 3a c8 8e 56 78 20 ca 0d 04 4c 10 c9 30 3a |Wb:..Vx ...L..0:|
00000380 f2 57 63 28 2b 31 2c 30 29 0d 04 56 10 c9 31 3a |.Wc(+1,0)..V..1:|
00000390 f2 57 63 28 2d 31 2c 30 29 0d 04 60 10 c9 35 3a |.Wc(-1,0)..`..5:|
000003a0 f2 57 63 28 30 2c 2b 31 29 0d 04 6a 10 c9 36 3a |.Wc(0,+1)..j..6:|
000003b0 f2 57 63 28 30 2c 2d 31 29 0d 04 74 05 cb 0d 04 |.Wc(0,-1)..t....|
000003c0 7e 05 cb 0d 04 88 0e c9 55 5a 3a c8 8e 57 57 20 |~.......UZ:..WW |
000003d0 ca 0d 04 92 17 c9 55 62 3a e7 56 78 3d 56 56 20 |......Ub:.Vx=VV |
000003e0 8c f2 57 64 28 56 7a 29 0d 04 9c 12 c9 56 6e 3a |..Wd(Vz).....Vn:|
000003f0 f2 57 65 28 56 7a 2c 57 55 29 0d 04 a6 05 cb 0d |.We(Vz,WU)......|
00000400 04 b0 11 c9 36 34 2c 31 36 3a c8 8e 57 57 20 ca |....64,16:..WW .|
00000410 0d 04 ba 17 c9 56 6e 3a 56 65 3d 31 3a f2 57 66 |.....Vn:Ve=1:.Wf|
00000420 28 56 7a 2c 57 55 29 0d 04 c4 05 cb 0d 04 ce 07 |(Vz,WU).........|
00000430 cb 3a e1 0d 04 f6 16 dd f2 56 74 28 56 79 29 3a |.:.......Vt(Vy):|
00000440 c8 8e 56 79 21 31 36 20 ca 0d 05 0a 0b c9 30 3a |..Vy!16 ......0:|
00000450 55 75 3d b9 0d 05 14 0e c9 32 3a f2 57 67 28 56 |Uu=......2:.Wg(V|
00000460 79 29 0d 05 1e 0e c9 33 3a f2 57 68 28 56 79 29 |y).....3:.Wh(Vy)|
00000470 0d 05 28 11 c9 26 35 30 32 3a f2 57 69 28 56 79 |..(..&502:.Wi(Vy|
00000480 29 0d 05 32 11 c9 26 34 30 30 43 31 3a e7 56 5a |)..2..&400C1:.VZ|
00000490 20 8c 0d 05 3c 0b f2 57 6a 3a f2 57 6b 0d 05 50 | ...<..Wj:.Wk..P|
000004a0 05 cd 0d 05 5a 07 cb 3a e1 0d 05 82 2c dd f2 56 |....Z..:....,..V|
000004b0 72 28 56 79 29 3a 57 57 3d 56 79 21 30 3a 56 78 |r(Vy):WW=Vy!0:Vx|
000004c0 3d 56 79 21 34 3a 57 6c 3d 56 79 21 32 34 3a c8 |=Vy!4:Wl=Vy!24:.|
000004d0 8e 57 57 20 ca 0d 05 b4 10 c9 57 62 3a e7 57 6c |.WW ......Wb:.Wl|
000004e0 3d 31 33 20 8c 0d 05 be 0a c8 8e 56 78 20 ca 0d |=13 .......Vx ..|
000004f0 05 c8 1e c9 32 3a f2 57 6d 28 57 57 2c 34 2c a9 |....2:.Wm(WW,4,.|
00000500 a4 57 6e 28 55 6a 2c 57 57 2c 34 29 29 0d 05 d2 |.Wn(Uj,WW,4))...|
00000510 35 c9 34 3a 56 61 3d bb a4 57 6e 28 55 6a 2c 57 |5.4:Va=..Wn(Uj,W|
00000520 57 2c 32 29 3a 56 62 3d bb a4 57 6e 28 55 6a 2c |W,2):Vb=..Wn(Uj,|
00000530 57 57 2c 34 29 3a f2 57 63 28 30 2c 30 29 3a f2 |WW,4):.Wc(0,0):.|
00000540 57 6f 0d 05 fa 05 cb 0d 06 04 05 cd 0d 06 0e 0f |Wo..............|
00000550 cb 3a f2 57 70 28 57 6c 29 3a e1 0d 06 40 65 dd |.:.Wp(Wl):...@e.|
00000560 f2 56 6b 28 56 79 29 3a 57 57 3d 56 79 21 30 3a |.Vk(Vy):WW=Vy!0:|
00000570 c8 99 26 34 30 30 43 38 2c 2c 56 79 20 b8 57 71 |..&400C8,,Vy .Wq|
00000580 3a 57 72 3d 56 79 21 34 3a 57 73 3d 56 79 21 31 |:Wr=Vy!4:Ws=Vy!1|
00000590 32 3a 57 74 3d 56 79 21 31 36 3a 57 75 3d 56 79 |2:Wt=Vy!16:Wu=Vy|
000005a0 21 38 3a 57 76 3d 56 79 21 32 30 3a 57 77 3d 56 |!8:Wv=Vy!20:Ww=V|
000005b0 79 21 32 34 3a c8 95 57 71 3a c8 8e 57 57 20 ca |y!24:..Wq:..WW .|
000005c0 0d 06 90 0b c9 56 6e 3a f2 57 78 0d 06 9a 1a cb |.....Vn:.Wx.....|
000005d0 3a c8 99 26 34 30 30 43 41 2c 2c 56 79 20 b8 57 |:..&400CA,,Vy .W|
000005e0 71 3a ce 3a e1 0d 06 d6 f7 dd f2 55 79 3a 57 79 |q:.:.......Uy:Wy|
000005f0 3d 55 6e 3a f2 57 7a 28 55 6a 2c 22 3c 22 2b 55 |=Un:.Wz(Uj,"<"+U|
00000600 65 24 2b 22 24 44 69 72 3e 2e 54 65 6d 70 6c 61 |e$+"$Dir>.Templa|
00000610 74 65 73 22 29 3a 57 79 3d a4 58 55 28 55 6c 2c |tes"):Wy=.XU(Ul,|
00000620 57 79 2c 55 6e 2b 55 6d 2c 22 69 6e 66 6f 72 6d |Wy,Un+Um,"inform|
00000630 61 74 69 6f 6e 22 29 3a 58 56 3d a4 58 57 28 55 |ation"):XV=.XW(U|
00000640 6c 29 3a 57 79 3d a4 58 55 28 55 6c 2c 57 79 2c |l):Wy=.XU(Ul,Wy,|
00000650 55 6e 2b 55 6d 2c 22 6d 61 69 6e 22 29 3a 56 6e |Un+Um,"main"):Vn|
00000660 3d a4 58 57 28 55 6c 29 3a 57 79 3d a4 58 55 28 |=.XW(Ul):Wy=.XU(|
00000670 55 6c 2c 57 79 2c 55 6e 2b 55 6d 2c 22 66 69 6c |Ul,Wy,Un+Um,"fil|
00000680 6d 5f 69 6e 66 6f 22 29 3a 58 58 3d a4 58 57 28 |m_info"):XX=.XW(|
00000690 55 6c 29 3a 57 79 3d a4 58 55 28 55 6c 2c 57 79 |Ul):Wy=.XU(Ul,Wy|
000006a0 2c 55 6e 2b 55 6d 2c 22 6d 61 67 6e 69 66 69 65 |,Un+Um,"magnifie|
000006b0 72 22 29 3a 57 62 3d a4 58 57 28 55 6c 29 3a 57 |r"):Wb=.XW(Ul):W|
000006c0 79 3d a4 58 55 28 55 6c 2c 57 79 2c 55 6e 2b 55 |y=.XU(Ul,Wy,Un+U|
000006d0 6d 2c 22 73 68 61 72 65 5f 31 22 29 0d 07 4e 3d |m,"share_1")..N=|
000006e0 57 58 3d a4 58 57 28 55 6c 29 3a 57 79 3d a4 58 |WX=.XW(Ul):Wy=.X|
000006f0 55 28 55 6c 2c 57 79 2c 55 6e 2b 55 6d 2c 22 73 |U(Ul,Wy,Un+Um,"s|
00000700 68 61 72 65 5f 32 22 29 3a 57 5a 3d a4 58 57 28 |hare_2"):WZ=.XW(|
00000710 55 6c 29 3a f2 58 59 3a e1 0d 07 94 6b dd f2 57 |Ul):.XY:....k..W|
00000720 64 28 56 7a 29 3a 55 78 3d 31 3a 58 5a 3d 30 3a |d(Vz):Ux=1:XZ=0:|
00000730 f2 58 61 28 55 65 24 2c 31 32 38 2c 34 34 29 3a |.Xa(Ue$,128,44):|
00000740 f2 58 62 28 22 49 6e 66 6f 22 2c 30 2c 58 56 2c |.Xb("Info",0,XV,|
00000750 20 ac b9 29 3a f2 58 62 28 22 51 75 69 74 22 2c | ..):.Xb("Quit",|
00000760 31 32 38 2c 2d 31 2c 20 ac b9 29 3a c8 99 26 34 |128,-1, ..):..&4|
00000770 30 30 44 34 2c 2c 55 70 2c 56 7a 2d 38 30 2c 31 |00D4,,Up,Vz-80,1|
00000780 38 34 3a e1 0d 07 f8 cb dd f2 57 65 28 56 7a 2c |84:.......We(Vz,|
00000790 57 55 29 3a f2 56 63 3a 55 78 3d 32 3a 58 5a 3d |WU):.Vc:Ux=2:XZ=|
000007a0 30 3a 58 63 3d 55 70 2b 58 5a 3a f2 58 61 28 22 |0:Xc=Up+XZ:.Xa("|
000007b0 53 70 65 65 64 22 2c 31 32 38 2c 34 34 29 3a f2 |Speed",128,44):.|
000007c0 58 64 3a 58 65 3d 55 70 2b 58 5a 3a f2 58 61 28 |Xd:Xe=Up+XZ:.Xa(|
000007d0 55 65 24 2c 31 36 30 2c 34 34 29 3a f2 58 62 28 |Ue$,160,44):.Xb(|
000007e0 22 49 6e 66 6f 2e 2e 2e 22 2c 32 2c 58 58 2c 20 |"Info...",2,XX, |
000007f0 ac b9 29 3a f2 58 62 28 22 5a 6f 6f 6d 22 2c 30 |..):.Xb("Zoom",0|
00000800 2c 57 62 2c 20 ac b9 29 3a f2 58 62 28 22 53 70 |,Wb, ..):.Xb("Sp|
00000810 65 65 64 22 2c 32 2c 58 63 2c 20 ac b9 29 3a f2 |eed",2,Xc, ..):.|
00000820 58 62 28 22 52 65 6d 6f 76 65 22 2c 31 32 38 2c |Xb("Remove",128,|
00000830 2d 31 2c 20 ac b9 29 3a c8 99 26 34 30 30 44 34 |-1, ..):..&400D4|
00000840 2c 2c 58 65 2c 56 7a 2d 38 30 2c 57 55 3a e1 0d |,,Xe,Vz-80,WU:..|
00000850 08 a2 90 dd f2 58 61 28 58 66 24 2c 58 67 2c 58 |.....Xa(Xf$,Xg,X|
00000860 68 29 3a 24 28 55 70 2b 58 5a 29 3d 58 66 24 2b |h):$(Up+XZ)=Xf$+|
00000870 bd 30 3a 3f 28 55 70 2b 58 5a 2b 31 32 29 3d 37 |.0:?(Up+XZ+12)=7|
00000880 3a 3f 28 55 70 2b 58 5a 2b 31 33 29 3d 32 3a 3f |:?(Up+XZ+13)=2:?|
00000890 28 55 70 2b 58 5a 2b 31 34 29 3d 37 3a 3f 28 55 |(Up+XZ+14)=7:?(U|
000008a0 70 2b 58 5a 2b 31 35 29 3d 30 3a 21 28 55 70 2b |p+XZ+15)=0:!(Up+|
000008b0 58 5a 2b 31 36 29 3d 58 67 3a 21 28 55 70 2b 58 |XZ+16)=Xg:!(Up+X|
000008c0 5a 2b 32 30 29 3d 58 68 3a 21 28 55 70 2b 58 5a |Z+20)=Xh:!(Up+XZ|
000008d0 2b 32 34 29 3d 30 3a 58 5a 2b 3d 32 38 3a e1 0d |+24)=0:XZ+=28:..|
000008e0 09 24 6c dd f2 58 62 28 58 69 24 2c 58 6a 2c 58 |.$l..Xb(Xi$,Xj,X|
000008f0 6b 2c 58 6c 29 3a 21 28 55 70 2b 58 5a 2b 30 29 |k,Xl):!(Up+XZ+0)|
00000900 3d 58 6a 3a 21 28 55 70 2b 58 5a 2b 34 29 3d 58 |=Xj:!(Up+XZ+4)=X|
00000910 6b 3a 21 28 55 70 2b 58 5a 2b 38 29 3d 26 30 37 |k:!(Up+XZ+8)=&07|
00000920 30 30 30 30 30 31 2b 94 58 6c 2a 32 5e 32 32 3a |000001+.Xl*2^22:|
00000930 24 28 55 70 2b 58 5a 2b 31 32 29 3d 58 69 24 2b |$(Up+XZ+12)=Xi$+|
00000940 bd 30 3a 58 5a 2b 3d 32 34 3a e1 0d 09 7e 96 dd |.0:XZ+=24:...~..|
00000950 f2 58 64 3a 21 28 55 70 2b 58 5a 2b 30 29 3d 31 |.Xd:!(Up+XZ+0)=1|
00000960 32 38 2b 34 3a 21 28 55 70 2b 58 5a 2b 34 29 3d |28+4:!(Up+XZ+4)=|
00000970 2d 31 3a 21 28 55 70 2b 58 5a 2b 38 29 3d 26 30 |-1:!(Up+XZ+8)=&0|
00000980 37 30 30 30 31 30 31 3a 21 28 55 70 2b 58 5a 2b |7000101:!(Up+XZ+|
00000990 31 32 29 3d 55 73 3a 21 28 55 70 2b 58 5a 2b 31 |12)=Us:!(Up+XZ+1|
000009a0 36 29 3d 55 73 2b 33 32 3a 21 28 55 70 2b 58 5a |6)=Us+32:!(Up+XZ|
000009b0 2b 32 30 29 3d 34 3a 24 28 55 73 2b 30 29 3d c3 |+20)=4:$(Us+0)=.|
000009c0 56 64 2b bd 30 3a 24 28 55 73 2b 33 32 29 3d 22 |Vd+.0:$(Us+32)="|
000009d0 41 30 2d 39 22 2b bd 30 3a 58 5a 2b 3d 32 34 3a |A0-9"+.0:XZ+=24:|
000009e0 e1 0d 0a 00 40 dd f2 56 73 28 56 79 29 3a 58 6d |....@..Vs(Vy):Xm|
000009f0 3d 56 79 21 30 3a c8 99 26 34 30 30 43 46 2c 2c |=Vy!0:..&400CF,,|
00000a00 56 79 3a 56 7a 3d 56 79 21 30 3a 57 55 3d 56 79 |Vy:Vz=Vy!0:WU=Vy|
00000a10 21 34 3a 57 56 3d 56 79 21 38 3a c8 8e 55 78 20 |!4:WV=Vy!8:..Ux |
00000a20 ca 0d 0a 46 0d c9 31 3a c8 8e 58 6d 20 ca 0d 0a |...F..1:..Xm ...|
00000a30 50 06 c9 30 0d 0a 5a 0b c9 31 3a 55 75 3d b9 0d |P..0..Z..1:Uu=..|
00000a40 0a 64 05 cb 0d 0a 6e 0d c9 32 3a c8 8e 58 6d 20 |.d....n..2:..Xm |
00000a50 ca 0d 0a 78 1e c9 32 3a 58 6e 3d bb a4 58 6f 28 |...x..2:Xn=..Xo(|
00000a60 55 73 29 3a e7 58 6e 3c 31 20 8c 58 6e 3d 31 0d |Us):.Xn<1 .Xn=1.|
00000a70 0a 8c 13 e7 58 6e 3e 39 39 39 20 8c 58 6e 3d 39 |....Xn>999 .Xn=9|
00000a80 39 39 0d 0a 96 09 56 64 3d 58 6e 0d 0a a0 28 c9 |99....Vd=Xn...(.|
00000a90 33 3a 56 5a 3d 20 ac b9 3a f2 56 6f 3a f2 56 6d |3:VZ= ..:.Vo:.Vm|
00000aa0 28 55 6a 2c 56 6e 29 3a 57 56 3d 57 56 20 80 25 |(Uj,Vn):WV=WV .%|
00000ab0 31 31 30 0d 0a c8 05 cb 0d 0a d2 0e cb 3a e7 57 |110..........:.W|
00000ac0 56 3d 55 61 20 8c 0d 0a e6 0a c8 8e 55 78 20 ca |V=Ua .......Ux .|
00000ad0 0d 0a f0 0e c9 31 3a f2 57 64 28 56 7a 29 0d 0a |.....1:.Wd(Vz)..|
00000ae0 fa 11 c9 32 3a f2 57 65 28 56 7a 2c 57 55 29 0d |...2:.We(Vz,WU).|
00000af0 0b 04 05 cb 0d 0b 0e 16 cc 3a e7 55 78 3c 3e 31 |.........:.Ux<>1|
00000b00 20 80 55 78 3c 3e 2d 31 20 8c 0d 0b 22 15 c8 99 | .Ux<>-1 ..."...|
00000b10 26 34 30 30 44 34 2c 2c 2d 31 3a 55 78 3d 30 0d |&400D4,,-1:Ux=0.|
00000b20 0b 36 05 cd 0d 0b 40 07 cd 3a e1 0d 0b 68 5b dd |.6....@..:...h[.|
00000b30 f2 57 68 28 56 79 29 3a 58 70 3d 56 79 21 34 30 |.Wh(Vy):Xp=Vy!40|
00000b40 3a 58 71 24 3d a4 58 6f 28 56 79 2b 34 34 29 3a |:Xq$=.Xo(Vy+44):|
00000b50 58 72 3d 56 79 21 34 3a 56 79 21 31 36 3d 34 3a |Xr=Vy!4:Vy!16=4:|
00000b60 56 79 21 31 32 3d 56 79 21 38 3a c8 99 26 34 30 |Vy!12=Vy!8:..&40|
00000b70 30 45 37 2c 31 37 2c 56 79 2c 58 72 3a e7 58 70 |0E7,17,Vy,Xr:.Xp|
00000b80 3c 3e 55 63 20 8c 0d 0b b8 30 58 73 24 3d a4 58 |<>Uc ....0Xs$=.X|
00000b90 74 28 22 65 72 72 30 31 22 29 3a 58 75 3d a4 58 |t("err01"):Xu=.X|
00000ba0 76 28 55 6a 2c 39 39 2c 55 65 24 2c 58 73 24 2c |v(Uj,99,Ue$,Xs$,|
00000bb0 20 ac b9 2c b9 29 0d 0b cc 0e cc 3a f2 58 77 28 | ..,.).....:.Xw(|
00000bc0 58 71 24 29 0d 0b e0 07 cd 3a e1 0d 0c 08 f8 dd |Xq$).....:......|
00000bd0 f2 56 71 28 56 79 29 3a c8 99 26 34 30 30 43 46 |.Vq(Vy):..&400CF|
00000be0 2c 2c 56 79 3a 56 7a 3d 56 79 21 30 3a 57 55 3d |,,Vy:Vz=Vy!0:WU=|
00000bf0 56 79 21 34 3a 57 57 3d 56 79 21 31 32 3a 56 78 |Vy!4:WW=Vy!12:Vx|
00000c00 3d 56 79 21 31 36 3a 58 71 24 3d a4 57 6e 28 55 |=Vy!16:Xq$=.Wn(U|
00000c10 6a 2c 58 78 2c 31 29 3a 58 79 24 3d c2 58 71 24 |j,Xx,1):Xy$=.Xq$|
00000c20 2c 31 30 2d a7 c2 58 71 24 2c 31 30 29 2c 22 2e |,10-..Xq$,10),".|
00000c30 22 29 29 3a 56 79 21 30 3d 34 34 2b 28 28 a9 58 |")):Vy!0=44+((.X|
00000c40 79 24 20 81 34 29 2a 34 29 2b 34 3a 56 79 21 34 |y$ .4)*4)+4:Vy!4|
00000c50 3d 30 3a 56 79 21 38 3d 30 3a 56 79 21 31 32 3d |=0:Vy!8=0:Vy!12=|
00000c60 30 3a 56 79 21 31 36 3d 31 3a 56 79 21 32 30 3d |0:Vy!16=1:Vy!20=|
00000c70 57 57 3a 56 79 21 32 34 3d 56 78 3a 56 79 21 32 |WW:Vy!24=Vx:Vy!2|
00000c80 38 3d 56 7a 3a 56 79 21 33 32 3d 57 55 3a 56 79 |8=Vz:Vy!32=WU:Vy|
00000c90 21 33 36 3d 36 34 3a 56 79 21 34 30 3d 55 63 3a |!36=64:Vy!40=Uc:|
00000ca0 24 28 56 79 2b 34 34 29 3d 58 79 24 2b bd 30 3a |$(Vy+44)=Xy$+.0:|
00000cb0 c8 99 26 34 30 30 45 37 2c 31 37 2c 56 79 2c 57 |..&400E7,17,Vy,W|
00000cc0 57 3a e1 0d 0c f8 60 dd f2 57 67 28 56 79 29 3a |W:....`..Wg(Vy):|
00000cd0 58 72 3d 56 79 21 34 3a 56 79 21 31 32 3d 56 79 |Xr=Vy!4:Vy!12=Vy|
00000ce0 21 38 3a 56 79 21 31 36 3d 33 3a 58 71 24 3d a4 |!8:Vy!16=3:Xq$=.|
00000cf0 58 6f 28 56 79 2b 34 34 29 3a c8 99 26 34 30 30 |Xo(Vy+44):..&400|
00000d00 45 37 2c 31 37 2c 56 79 2c 58 72 3a e7 a7 58 71 |E7,17,Vy,Xr:..Xq|
00000d10 24 2c 22 57 69 6d 70 24 53 63 72 61 70 22 29 3d |$,"Wimp$Scrap")=|
00000d20 30 20 8c 0d 0d 48 14 cd 3a c8 99 26 34 30 30 44 |0 ...H..:..&400D|
00000d30 34 2c 2c 2d 31 3a e1 0d 0d 7a f4 dd a4 58 7a 28 |4,,-1:...z...Xz(|
00000d40 56 77 2c 57 57 2c 56 78 29 3a ea 58 67 2c 58 68 |Vw,WW,Vx):.Xg,Xh|
00000d50 2c 59 55 2c 59 56 3a 56 77 21 30 3d 34 3a 56 77 |,YU,YV:Vw!0=4:Vw|
00000d60 21 34 3d 35 3a 56 77 21 38 3d 31 31 3a 56 77 21 |!4=5:Vw!8=11:Vw!|
00000d70 31 32 3d 31 32 3a 56 77 21 31 36 3d 2d 31 3a c8 |12=12:Vw!16=-1:.|
00000d80 99 26 33 31 2c 56 77 2c 56 77 2b 33 32 3a 58 67 |.&31,Vw,Vw+32:Xg|
00000d90 3d 28 56 77 21 34 30 2b 31 29 2a 20 32 5e 28 20 |=(Vw!40+1)* 2^( |
00000da0 56 77 21 33 32 20 29 3a 58 68 3d 28 56 77 21 34 |Vw!32 ):Xh=(Vw!4|
00000db0 34 2b 31 29 2a 20 32 5e 28 20 56 77 21 33 36 20 |4+1)* 2^( Vw!36 |
00000dc0 29 3a 56 77 21 30 3d 57 57 3a c8 99 26 34 30 30 |):Vw!0=WW:..&400|
00000dd0 43 43 2c 2c 56 77 3a 59 55 3d 56 77 21 34 3a 59 |CC,,Vw:YU=Vw!4:Y|
00000de0 56 3d 56 77 21 31 36 3a 56 77 21 30 3d 57 57 3a |V=Vw!16:Vw!0=WW:|
00000df0 56 77 21 34 3d 56 78 3a c8 99 26 34 30 30 43 45 |Vw!4=Vx:..&400CE|
00000e00 2c 2c 56 77 3a 56 77 21 38 2b 3d 59 55 3a 56 77 |,,Vw:Vw!8+=YU:Vw|
00000e10 21 31 32 2b 3d 59 56 3a 56 77 21 31 36 2b 3d 59 |!12+=YV:Vw!16+=Y|
00000e20 55 3a 56 77 21 32 30 2b 3d 59 56 0d 0e 24 43 56 |U:Vw!20+=YV..$CV|
00000e30 77 21 30 3d 30 3a 56 77 21 34 3d 35 3a 56 77 21 |w!0=0:Vw!4=5:Vw!|
00000e40 32 34 3d 30 3a 56 77 21 32 38 3d 30 3a 56 77 21 |24=0:Vw!28=0:Vw!|
00000e50 33 32 3d 58 67 3a 56 77 21 33 36 3d 58 68 3a c8 |32=Xg:Vw!36=Xh:.|
00000e60 99 26 34 30 30 44 30 2c 2c 56 77 3a 3d 30 0d 0e |.&400D0,,Vw:=0..|
00000e70 6a 34 dd f2 57 69 28 56 79 29 3a 59 57 24 3d 22 |j4..Wi(Vy):YW$="|
00000e80 22 3a 58 72 3d 56 79 21 34 3a 59 58 3d 56 79 21 |":Xr=Vy!4:YX=Vy!|
00000e90 33 32 3a 59 59 3d 56 79 21 33 36 3a c8 8e 59 58 |32:YY=Vy!36:..YX|
00000ea0 20 ca 0d 0e a6 1a c9 55 62 3a e7 59 59 3d 56 56 | ......Ub:.YY=VV|
00000eb0 20 8c 59 57 24 3d 22 69 62 61 72 22 0d 0e b0 12 | .YW$="ibar"....|
00000ec0 c9 56 6e 3a 59 57 24 3d 22 6d 61 69 6e 22 0d 0e |.Vn:YW$="main"..|
00000ed0 ba 10 cb 3a e7 59 57 24 3c 3e 22 22 20 8c 0d 0e |...:.YW$<>"" ...|
00000ee0 ce 62 59 5a 24 3d a4 58 74 28 59 57 24 29 3a 56 |.bYZ$=.Xt(YW$):V|
00000ef0 79 21 30 3d 32 30 2b 28 28 a9 28 59 5a 24 29 20 |y!0=20+((.(YZ$) |
00000f00 81 34 29 2a 34 29 2b 34 3a 56 79 21 31 32 3d 56 |.4)*4)+4:Vy!12=V|
00000f10 79 21 38 3a 56 79 21 31 36 3d 26 35 30 33 3a 24 |y!8:Vy!16=&503:$|
00000f20 28 56 79 2b 32 30 29 3d 59 5a 24 2b bd 30 3a c8 |(Vy+20)=YZ$+.0:.|
00000f30 99 26 34 30 30 45 37 2c 31 37 2c 56 79 2c 58 72 |.&400E7,17,Vy,Xr|
00000f40 0d 0f 0a 07 cd 3a e1 0d 0f 32 2c dd f2 56 63 3a |.....:...2,..Vc:|
00000f50 f2 59 61 28 55 6a 2c 57 62 2c 32 2c c3 56 61 29 |.Ya(Uj,Wb,2,.Va)|
00000f60 3a f2 59 61 28 55 6a 2c 57 62 2c 34 2c c3 56 62 |:.Ya(Uj,Wb,4,.Vb|
00000f70 29 3a e1 0d 0f 6e 26 dd f2 57 63 28 59 62 2c 59 |):...n&..Wc(Yb,Y|
00000f80 63 29 3a 56 61 2b 3d 59 62 3a e7 56 61 3e 39 39 |c):Va+=Yb:.Va>99|
00000f90 39 20 8c 56 61 3d 39 39 39 0d 0f 82 0f e7 56 61 |9 .Va=999.....Va|
00000fa0 3c 31 20 8c 56 61 3d 31 0d 0f 8c 1a 56 62 2b 3d |<1 .Va=1....Vb+=|
00000fb0 59 63 3a e7 56 62 3e 39 39 39 20 8c 56 62 3d 39 |Yc:.Vb>999 .Vb=9|
00000fc0 39 39 0d 0f 96 0f e7 56 62 3c 31 20 8c 56 62 3d |99.....Vb<1 .Vb=|
00000fd0 31 0d 0f a0 0d f2 56 63 3a f2 59 64 3a e1 0d 0f |1.....Vc:.Yd:...|
00000fe0 d2 4a dd f2 55 57 3a 58 73 24 3d 22 46 61 74 61 |.J..UW:Xs$="Fata|
00000ff0 6c 20 45 72 72 6f 72 20 3a 20 22 2b f6 24 2b 22 |l Error : "+.$+"|
00001000 20 28 22 2b c3 9e 2b 22 29 22 3a 58 75 3d a4 58 | ("+..+")":Xu=.X|
00001010 76 28 55 6a 2c 39 39 2c 55 65 24 2c 58 73 24 2c |v(Uj,99,Ue$,Xs$,|
00001020 b9 2c 20 ac b9 29 3a e1 0d 10 2c 1d dd f2 57 66 |., ..):...,...Wf|
00001030 28 59 65 2c 59 66 29 3a 59 67 3d 59 65 3a 59 68 |(Ye,Yf):Yg=Ye:Yh|
00001040 3d 59 66 3a e1 0d 10 68 35 dd f2 56 6a 3a c8 99 |=Yf:...h5..Vj:..|
00001050 26 34 30 30 43 46 2c 2c 55 6a 3a 59 65 3d 55 6a |&400CF,,Uj:Ye=Uj|
00001060 21 30 3a 59 66 3d 55 6a 21 34 3a 59 69 3d 55 6a |!0:Yf=Uj!4:Yi=Uj|
00001070 21 38 3a e7 59 69 3d 30 20 8c 0d 10 9a 08 56 65 |!8:.Yi=0 .....Ve|
00001080 3d 30 0d 10 a4 77 cc 3a 59 6a 3d 59 65 3a 59 6b |=0...w.:Yj=Ye:Yk|
00001090 3d 59 66 3a 59 6c 3d 59 6a 2d 59 67 3a 59 6d 3d |=Yf:Yl=Yj-Yg:Ym=|
000010a0 59 6b 2d 59 68 3a 59 67 3d 59 6a 3a 59 68 3d 59 |Yk-Yh:Yg=Yj:Yh=Y|
000010b0 6b 3a 55 6a 21 30 3d 56 6e 3a c8 99 26 34 30 30 |k:Uj!0=Vn:..&400|
000010c0 43 42 2c 2c 55 6a 3a 55 6a 21 34 2b 3d 59 6c 3a |CB,,Uj:Uj!4+=Yl:|
000010d0 55 6a 21 38 2b 3d 59 6d 3a 55 6a 21 31 32 2b 3d |Uj!8+=Ym:Uj!12+=|
000010e0 59 6c 3a 55 6a 21 31 36 2b 3d 59 6d 3a c8 99 26 |Yl:Uj!16+=Ym:..&|
000010f0 34 30 30 43 35 2c 2c 55 6a 0d 11 12 07 cd 3a e1 |400C5,,Uj.....:.|
00001100 0d 11 58 23 dd f2 56 66 3a f2 59 6e 28 55 6a 2c |..X#..Vf:.Yn(Uj,|
00001110 57 58 29 3a f2 59 6f 28 55 6a 2c 57 58 29 3a ef |WX):.Yo(Uj,WX):.|
00001120 37 3a e1 0d 11 9e 23 dd f2 57 59 3a f2 59 6e 28 |7:....#..WY:.Yn(|
00001130 55 6a 2c 57 5a 29 3a f2 59 6f 28 55 6a 2c 57 5a |Uj,WZ):.Yo(Uj,WZ|
00001140 29 3a ef 37 3a e1 0d 12 70 1f dd f2 58 77 28 58 |):.7:...p...Xw(X|
00001150 71 24 29 3a ea 85 3a 59 70 3d 2d 31 3a ee 85 ea |q$):..:Yp=-1:...|
00001160 f2 59 71 3a e1 0d 12 a2 33 56 5a 3d 20 ac b9 3a |.Yq:....3VZ= ..:|
00001170 f2 56 6f 3a 59 72 3d 59 73 3a 59 74 3d a4 59 75 |.Vo:Yr=Ys:Yt=.Yu|
00001180 28 58 71 24 29 3a 59 76 3d a4 59 77 28 59 74 29 |(Xq$):Yv=.Yw(Yt)|
00001190 3a e7 20 ac 59 76 20 8c 0d 12 f2 30 58 73 24 3d |:. .Yv ....0Xs$=|
000011a0 a4 58 74 28 22 65 72 72 30 32 22 29 3a 58 75 3d |.Xt("err02"):Xu=|
000011b0 a4 58 76 28 55 6a 2c 39 39 2c 55 65 24 2c 58 73 |.Xv(Uj,99,Ue$,Xs|
000011c0 24 2c 20 ac b9 2c b9 29 0d 13 10 28 cc 3a ff 22 |$, ..,.)...(.:."|
000011d0 4c 6f 61 64 20 22 2b 58 71 24 2b 22 20 22 2b c3 |Load "+Xq$+" "+.|
000011e0 7e 59 72 3a 59 76 3d a4 59 78 3a e7 59 76 20 8c |~Yr:Yv=.Yx:.Yv .|
000011f0 0d 13 42 31 f2 59 79 3a f2 57 6a 3a f2 57 6b 3a |..B1.Yy:.Wj:.Wk:|
00001200 f2 59 64 3a f2 59 6e 28 55 6a 2c 56 6e 29 3a 56 |.Yd:.Yn(Uj,Vn):V|
00001210 5a 3d b9 3a 59 7a 3d 31 3a 5a 55 3d 30 3a f2 56 |Z=.:Yz=1:ZU=0:.V|
00001220 69 0d 13 9c 10 cc 3a f2 56 6f 3a 56 5a 3d 20 ac |i.....:.Vo:VZ= .|
00001230 b9 0d 13 ba 05 cd 0d 13 ce 0a cd 3a f7 85 3a e1 |...........:..:.|
00001240 0d 14 14 6c dd f2 59 79 3a f2 59 61 28 55 6a 2c |...l..Yy:.Ya(Uj,|
00001250 58 58 2c 31 2c a4 5a 56 28 58 71 24 29 29 3a f2 |XX,1,.ZV(Xq$)):.|
00001260 59 61 28 55 6a 2c 58 58 2c 33 2c c3 5a 57 29 3a |Ya(Uj,XX,3,.ZW):|
00001270 f2 59 61 28 55 6a 2c 58 58 2c 35 2c c3 5a 58 29 |.Ya(Uj,XX,5,.ZX)|
00001280 3a f2 59 61 28 55 6a 2c 58 58 2c 37 2c c3 5a 59 |:.Ya(Uj,XX,7,.ZY|
00001290 29 3a f2 59 61 28 55 6a 2c 58 58 2c 39 2c c3 28 |):.Ya(Uj,XX,9,.(|
000012a0 59 74 20 81 31 30 32 34 29 29 3a e1 0d 14 6e 7f |Yt .1024)):...n.|
000012b0 dd a4 59 78 3a 5a 5a 24 3d c0 a4 58 6f 28 59 72 |..Yx:ZZ$=..Xo(Yr|
000012c0 29 2c 34 29 3a 5a 57 3d 59 72 21 34 3a 5a 58 3d |),4):ZW=Yr!4:ZX=|
000012d0 59 72 21 38 3a 5a 61 3d 59 72 21 31 32 3a 5a 62 |Yr!8:Za=Yr!12:Zb|
000012e0 3d 59 72 21 31 36 3a 5a 59 3d 59 72 21 32 30 3a |=Yr!16:ZY=Yr!20:|
000012f0 5a 63 3d 59 72 21 32 34 3a 5a 64 3d 59 72 21 32 |Zc=Yr!24:Zd=Yr!2|
00001300 38 3a 5a 65 3d 59 72 21 33 32 3a 5a 66 3d 59 72 |8:Ze=Yr!32:Zf=Yr|
00001310 21 33 36 3a 5a 67 3d 59 72 21 34 30 3a e7 5a 5a |!36:Zg=Yr!40:.ZZ|
00001320 24 3c 3e 22 46 49 4c 4d 22 20 8c 0d 14 c8 4d 58 |$<>"FILM" ....MX|
00001330 73 24 3d a4 58 74 28 22 65 72 72 30 31 22 29 3a |s$=.Xt("err01"):|
00001340 58 75 3d a4 58 76 28 55 6a 2c 39 39 2c 55 65 24 |Xu=.Xv(Uj,99,Ue$|
00001350 2c 58 73 24 2c 20 ac b9 2c b9 29 3a f2 56 6f 3a |,Xs$, ..,.):.Vo:|
00001360 59 76 3d 20 ac b9 3a 56 5a 3d 20 ac b9 3a f2 56 |Yv= ..:VZ= ..:.V|
00001370 6d 28 55 6a 2c 56 6e 29 0d 15 04 1e cc 3a 5a 68 |m(Uj,Vn).....:Zh|
00001380 3d 59 73 3a 59 76 3d a4 59 77 28 5a 63 29 3a e7 |=Ys:Yv=.Yw(Zc):.|
00001390 20 ac 59 76 20 8c 0d 15 2c 37 58 73 24 3d a4 58 | .Yv ...,7Xs$=.X|
000013a0 74 28 22 65 72 72 30 34 22 29 3a 58 75 3d a4 58 |t("err04"):Xu=.X|
000013b0 76 28 55 6a 2c 39 39 2c 55 65 24 2c 58 73 24 2c |v(Uj,99,Ue$,Xs$,|
000013c0 20 ac b9 2c b9 29 3a 56 5a 3d 20 ac b9 0d 15 4a | ..,.):VZ= ....J|
000013d0 44 cc 3a f2 5a 69 3a 5a 6a 24 3d a4 5a 6b 28 5a |D.:.Zi:Zj$=.Zk(Z|
000013e0 68 2c 31 29 3a 5a 6c 3d a4 5a 6d 28 5a 68 2c 5a |h,1):Zl=.Zm(Zh,Z|
000013f0 6a 24 29 3a 5a 6e 3d a4 5a 6f 28 5a 68 2c 5a 6a |j$):Zn=.Zo(Zh,Zj|
00001400 24 29 3a 5a 70 3d a4 5a 71 28 5a 68 2c 5a 6a 24 |$):Zp=.Zq(Zh,Zj$|
00001410 29 0d 15 86 05 cd 0d 15 90 09 cd 3a 3d 59 76 0d |)..........:=Yv.|
00001420 15 b8 2f dd f2 5a 69 3a 41 25 3d 59 72 2b 31 31 |../..Zi:A%=Yr+11|
00001430 2a 34 20 2b 20 5a 59 2a 34 20 3a 42 25 3d 5a 68 |*4 + ZY*4 :B%=Zh|
00001440 3a 43 25 3d 5a 63 2b 38 3a d6 5a 72 3a e1 0d 15 |:C%=Zc+8:.Zr:...|
00001450 f4 50 dd f2 59 71 3a 58 73 24 3d a4 58 74 28 22 |.P..Yq:Xs$=.Xt("|
00001460 65 72 72 30 33 22 29 3a 58 75 3d a4 58 76 28 55 |err03"):Xu=.Xv(U|
00001470 6a 2c 39 39 2c 55 65 24 2c 58 73 24 2b 22 20 3a |j,99,Ue$,Xs$+" :|
00001480 20 22 2b f6 24 2b 22 20 28 22 2b c3 9e 2b 22 29 | "+.$+" ("+..+")|
00001490 22 2c 20 ac b9 2c b9 29 3a f2 56 6f 3a e1 0d 16 |", ..,.):.Vo:...|
000014a0 3a 18 dd f2 56 69 3a 5a 55 2b 3d 31 3a e7 5a 55 |:...Vi:ZU+=1:.ZU|
000014b0 3e 3d 56 64 20 8c 0d 16 58 31 5a 55 3d 30 3a 5a |>=Vd ...X1ZU=0:Z|
000014c0 73 3d 59 72 21 28 31 31 2a 34 2b 28 28 59 7a 2d |s=Yr!(11*4+((Yz-|
000014d0 31 29 2a 34 29 29 3a 5a 74 3d 59 72 2b 5a 73 3a |1)*4)):Zt=Yr+Zs:|
000014e0 c8 8e 21 5a 74 20 ca 0d 16 80 20 c9 30 3a 21 5a |..!Zt .... .0:!Z|
000014f0 75 3d 5a 74 2b 34 3a 21 5a 76 3d 30 3a 21 5a 77 |u=Zt+4:!Zv=0:!Zw|
00001500 3d 5a 6e 3a d6 5a 78 0d 16 94 0f c9 31 3a e7 59 |=Zn:.Zx.....1:.Y|
00001510 7a 3c 3e 31 20 8c 0d 16 9e 1b 41 25 3d 5a 74 2b |z<>1 .....A%=Zt+|
00001520 34 3a 42 25 3d 5a 6e 3a 43 25 3d 5a 62 3a d6 5a |4:B%=Zn:C%=Zb:.Z|
00001530 72 0d 16 b2 09 cc 3a f2 5a 69 0d 16 c6 05 cd 0d |r.....:.Zi......|
00001540 16 d0 23 cb 3a f2 5a 79 28 55 6a 2c 56 6e 29 3a |..#.:.Zy(Uj,Vn):|
00001550 59 7a 2b 3d 31 3a e7 59 7a 3e 5a 59 20 8c 59 7a |Yz+=1:.Yz>ZY .Yz|
00001560 3d 31 0d 16 ee 07 cd 3a e1 0d 17 16 29 dd a4 59 |=1.....:....)..Y|
00001570 75 28 58 71 24 29 3a ea 5a 7a 3a c8 99 26 38 2c |u(Xq$):.Zz:..&8,|
00001580 31 37 2c 58 71 24 20 b8 2c 2c 2c 2c 61 55 3a 3d |17,Xq$ .,,,,aU:=|
00001590 61 55 0d 17 52 22 dd f2 57 6a 3a 61 56 3d 5a 68 |aU..R"..Wj:aV=Zh|
000015a0 3a 61 57 3d 55 71 3a 61 58 3d 5a 6c 3a e7 20 ac |:aW=Uq:aX=Zl:. .|
000015b0 61 58 20 8c 0d 17 d4 65 5a 6a 24 3d a4 5a 6b 28 |aX ....eZj$=.Zk(|
000015c0 61 56 2c 31 29 3a 61 59 3d 5a 61 3a 61 5a 3d a4 |aV,1):aY=Za:aZ=.|
000015d0 61 61 28 61 56 2c 5a 6a 24 29 3a 61 62 3d a4 5a |aa(aV,Zj$):ab=.Z|
000015e0 6f 28 61 56 2c 5a 6a 24 29 3a c8 99 26 33 35 2c |o(aV,Zj$):..&35,|
000015f0 61 59 2c 33 20 b8 2c 2c 61 63 3a 61 64 3d 61 62 |aY,3 .,,ac:ad=ab|
00001600 2d 61 5a 3a 61 65 3d 28 61 64 2f 38 29 2d 31 3a |-aZ:ae=(ad/8)-1:|
00001610 e7 61 5a 3c 3e 2d 31 20 8c 0d 18 24 38 61 66 3d |.aZ<>-1 ...$8af=|
00001620 55 72 3a e3 61 67 3d 30 20 b8 61 65 3a 21 28 61 |Ur:.ag=0 .ae:!(a|
00001630 66 2b 28 61 67 2a 34 29 20 29 20 3d 20 21 28 20 |f+(ag*4) ) = !( |
00001640 61 5a 20 2b 20 28 61 67 2a 38 29 20 29 3a ed 61 |aZ + (ag*8) ):.a|
00001650 67 0d 18 4c 0e cc 3a e7 61 63 3d 36 33 20 8c 0d |g..L..:.ac=63 ..|
00001660 18 60 08 61 66 3d 30 0d 18 6a 45 cc 3a 61 66 3d |.`.af=0..jE.:af=|
00001670 55 72 3a c8 99 26 34 30 30 45 35 2c 2c 61 66 3a |Ur:..&400E5,,af:|
00001680 e3 69 3d 30 20 b8 31 35 3a 61 66 21 28 69 2a 34 |.i=0 .15:af!(i*4|
00001690 29 20 3d 20 28 61 66 21 28 69 2a 34 29 20 80 26 |) = (af!(i*4) .&|
000016a0 46 46 46 46 46 46 30 30 29 3a ed 69 0d 18 a6 05 |FFFFFF00):.i....|
000016b0 cd 0d 18 b0 10 cd 3a e7 61 65 3c 3e 32 35 35 20 |......:.ae<>255 |
000016c0 8c 0d 18 c4 1b c8 99 26 34 30 37 34 30 2c 61 59 |.......&40740,aY|
000016d0 2c 61 66 2c 2d 31 2c 2d 31 2c 61 57 0d 18 ce 3b |,af,-1,-1,aW...;|
000016e0 cc 3a e3 61 67 3d 30 20 b8 61 65 3a 41 25 3d 21 |.:.ag=0 .ae:A%=!|
000016f0 28 61 5a 2b 61 67 2a 38 20 29 3a c8 99 26 34 30 |(aZ+ag*8 ):..&40|
00001700 37 34 34 2c 41 25 20 b8 61 68 3a 61 57 3f 61 67 |744,A% .ah:aW?ag|
00001710 3d 61 68 3a ed 61 67 0d 19 0a 05 cd 0d 19 14 31 |=ah:.ag........1|
00001720 cc 3a 5a 6a 24 3d a4 5a 6b 28 61 56 2c 31 29 3a |.:Zj$=.Zk(aV,1):|
00001730 61 59 3d 5a 61 3a c8 99 26 34 30 37 34 30 2c 61 |aY=Za:..&40740,a|
00001740 59 2c 55 72 2c 2d 31 2c 2d 31 2c 61 57 0d 19 8c |Y,Ur,-1,-1,aW...|
00001750 07 cd 3a e1 0d 19 b4 66 dd f2 57 6b 3a c8 99 26 |..:....f..Wk:..&|
00001760 33 35 2c 2d 31 2c 34 20 b8 2c 2c 61 69 3a c8 99 |35,-1,4 .,,ai:..|
00001770 26 33 35 2c 2d 31 2c 35 20 b8 2c 2c 61 6a 3a c8 |&35,-1,5 .,,aj:.|
00001780 99 26 33 35 2c 5a 61 2c 34 20 b8 2c 2c 61 6b 3a |.&35,Za,4 .,,ak:|
00001790 c8 99 26 33 35 2c 5a 61 2c 35 20 b8 2c 2c 61 6c |..&35,Za,5 .,,al|
000017a0 3a 61 6d 3d 61 69 3a 61 6d 3d 61 6b 2f 61 69 3a |:am=ai:am=ak/ai:|
000017b0 61 6e 3d 61 6c 2f 61 6a 3a e1 0d 1a 22 97 dd f2 |an=al/aj:..."...|
000017c0 57 78 3a 5a 6a 24 3d a4 5a 6b 28 5a 68 2c 31 29 |Wx:Zj$=.Zk(Zh,1)|
000017d0 3a 61 6f 3d 57 72 2d 57 76 3a 61 70 3d 57 74 2d |:ao=Wr-Wv:ap=Wt-|
000017e0 57 77 3a 61 71 3d 55 6a 3a 61 71 21 30 3d 28 5a |Ww:aq=Uj:aq!0=(Z|
000017f0 57 29 2a 20 61 6d 20 2a 20 56 61 20 3a 61 71 21 |W)* am * Va :aq!|
00001800 34 3d 28 5a 58 29 2a 20 61 6e 20 2a 20 56 61 3a |4=(ZX)* an * Va:|
00001810 61 71 21 38 3d 28 5a 57 29 2a 20 56 62 20 3a 61 |aq!8=(ZW)* Vb :a|
00001820 71 21 31 32 3d 28 5a 58 29 2a 20 56 62 3a c8 99 |q!12=(ZX)* Vb:..|
00001830 26 32 45 2c 32 35 36 2b 35 32 2c 5a 68 2c 5a 6a |&2E,256+52,Zh,Zj|
00001840 24 2c 61 6f 2c 61 70 2c 38 2c 61 71 2c 55 71 3a |$,ao,ap,8,aq,Uq:|
00001850 e1 0d 1a 90 77 dd f2 59 64 3a c8 99 26 33 35 2c |....w..Yd:..&35,|
00001860 5a 61 2c 34 20 b8 2c 2c 61 72 3a c8 99 26 33 35 |Za,4 .,,ar:..&35|
00001870 2c 5a 61 2c 35 20 b8 2c 2c 61 73 3a 61 74 3d 28 |,Za,5 .,,as:at=(|
00001880 5a 57 3c 3c 61 72 29 2a 20 28 56 61 2f 56 62 29 |ZW<<ar)* (Va/Vb)|
00001890 3a 61 75 3d 28 5a 58 3c 3c 61 73 29 2a 20 28 56 |:au=(ZX<<as)* (V|
000018a0 61 2f 56 62 29 3a f2 61 76 28 55 6a 2c 56 6e 2c |a/Vb):.av(Uj,Vn,|
000018b0 30 2c 61 74 2c 30 2c 61 75 29 3a e7 a4 61 77 28 |0,at,0,au):..aw(|
000018c0 55 6a 2c 56 6e 29 20 8c 0d 1a d6 31 21 55 6a 3d |Uj,Vn) ....1!Uj=|
000018d0 56 6e 3a c8 99 26 34 30 30 43 42 2c 2c 55 6a 3a |Vn:..&400CB,,Uj:|
000018e0 c8 99 26 34 30 30 43 36 2c 2c 55 6a 3a c8 99 26 |..&400C6,,Uj:..&|
000018f0 34 30 30 43 35 2c 2c 55 6a 0d 1a fe 18 cd 3a f2 |400C5,,Uj.....:.|
00001900 61 78 28 55 6a 2c 56 6e 2c 61 74 2c 61 75 29 3a |ax(Uj,Vn,at,au):|
00001910 e1 0d 1b 30 ff dd f2 56 55 3a 61 79 3d 31 33 3a |...0...VU:ay=13:|
00001920 61 7a 3d 31 34 3a 62 55 3d 31 35 3a de 62 56 20 |az=14:bU=15:.bV |
00001930 32 2a 31 30 32 34 3a e3 62 57 3d 30 20 b8 32 88 |2*1024:.bW=0 .2.|
00001940 32 3a 50 25 3d 62 56 3a 5b 4f 50 54 20 62 57 3a |2:P%=bV:[OPT bW:|
00001950 2e 5a 75 20 44 43 44 20 30 3a 2e 62 58 20 44 43 |.Zu DCD 0:.bX DC|
00001960 44 20 30 3a 2e 62 59 20 44 43 44 20 30 3a 2e 5a |D 0:.bY DCD 0:.Z|
00001970 77 20 44 43 44 20 30 3a 2e 5a 76 20 44 43 44 20 |w DCD 0:.Zv DCD |
00001980 30 3a 2e 5a 78 20 53 54 4d 46 44 20 28 61 79 29 |0:.Zx STMFD (ay)|
00001990 21 2c 7b 61 7a 7d 3a 2e 62 5a 20 4d 4f 56 20 72 |!,{az}:.bZ MOV r|
000019a0 30 2c 23 30 3a 53 54 52 20 72 30 2c 62 58 3a 53 |0,#0:STR r0,bX:S|
000019b0 54 52 20 72 30 2c 62 59 3a 4c 44 52 20 72 30 2c |TR r0,bY:LDR r0,|
000019c0 5a 75 3a 4c 44 52 20 72 31 2c 62 58 3a 2e 62 61 |Zu:LDR r1,bX:.ba|
000019d0 20 4c 44 52 42 20 72 32 2c 5b 72 30 5d 2c 23 31 | LDRB r2,[r0],#1|
000019e0 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 43 4d |:ADD r1,r1,r2:CM|
000019f0 50 20 72 32 2c 23 32 35 35 3a 42 45 51 20 62 61 |P r2,#255:BEQ ba|
00001a00 3a 4c 44 52 42 20 72 33 2c 5b 72 30 5d 2c 23 31 |:LDRB r3,[r0],#1|
00001a10 0d 1c 3e ee 53 54 52 20 72 31 2c 62 58 3a 53 54 |..>.STR r1,bX:ST|
00001a20 52 20 72 33 2c 62 59 3a 53 54 52 20 72 30 2c 5a |R r3,bY:STR r0,Z|
00001a30 75 3a 2e 62 62 20 43 4d 50 20 72 31 2c 23 30 3a |u:.bb CMP r1,#0:|
00001a40 43 4d 50 45 51 20 72 33 2c 23 30 3a 42 45 51 20 |CMPEQ r3,#0:BEQ |
00001a50 62 63 3a 4c 44 52 20 72 30 2c 5a 76 3a 41 44 44 |bc:LDR r0,Zv:ADD|
00001a60 20 72 30 2c 72 30 2c 72 31 3a 53 54 52 20 72 30 | r0,r0,r1:STR r0|
00001a70 2c 5a 76 3a 4c 44 52 20 72 32 2c 5a 77 3a 4c 44 |,Zv:LDR r2,Zw:LD|
00001a80 52 20 72 34 2c 5a 75 3a 2e 62 64 20 43 4d 50 20 |R r4,Zu:.bd CMP |
00001a90 72 33 2c 23 34 20 3a 20 42 4c 45 20 62 65 3a 4c |r3,#4 : BLE be:L|
00001aa0 44 52 42 20 72 35 2c 5b 72 34 5d 2c 23 31 20 3a |DRB r5,[r4],#1 :|
00001ab0 20 53 54 52 42 20 72 35 2c 5b 72 32 2c 72 30 5d | STRB r5,[r2,r0]|
00001ac0 3a 41 44 44 20 72 30 2c 72 30 2c 23 31 20 3a 20 |:ADD r0,r0,#1 : |
00001ad0 53 55 42 20 72 33 2c 72 33 2c 23 31 3a 4c 44 52 |SUB r3,r3,#1:LDR|
00001ae0 42 20 72 35 2c 5b 72 34 5d 2c 23 31 20 3a 20 53 |B r5,[r4],#1 : S|
00001af0 54 52 42 20 72 35 2c 5b 72 32 2c 72 30 5d 0d 1c |TRB r5,[r2,r0]..|
00001b00 f2 f6 41 44 44 20 72 30 2c 72 30 2c 23 31 20 3a |..ADD r0,r0,#1 :|
00001b10 20 53 55 42 20 72 33 2c 72 33 2c 23 31 3a 4c 44 | SUB r3,r3,#1:LD|
00001b20 52 42 20 72 35 2c 5b 72 34 5d 2c 23 31 20 3a 20 |RB r5,[r4],#1 : |
00001b30 53 54 52 42 20 72 35 2c 5b 72 32 2c 72 30 5d 3a |STRB r5,[r2,r0]:|
00001b40 41 44 44 20 72 30 2c 72 30 2c 23 31 20 3a 20 53 |ADD r0,r0,#1 : S|
00001b50 55 42 20 72 33 2c 72 33 2c 23 31 3a 4c 44 52 42 |UB r3,r3,#1:LDRB|
00001b60 20 72 35 2c 5b 72 34 5d 2c 23 31 20 3a 20 53 54 | r5,[r4],#1 : ST|
00001b70 52 42 20 72 35 2c 5b 72 32 2c 72 30 5d 3a 41 44 |RB r5,[r2,r0]:AD|
00001b80 44 20 72 30 2c 72 30 2c 23 31 20 3a 20 53 55 42 |D r0,r0,#1 : SUB|
00001b90 20 72 33 2c 72 33 2c 23 31 3a 42 20 62 64 3a 2e | r3,r3,#1:B bd:.|
00001ba0 62 65 20 43 4d 50 20 72 33 2c 23 30 20 3a 20 42 |be CMP r3,#0 : B|
00001bb0 45 51 20 62 66 3a 4c 44 52 42 20 72 35 2c 5b 72 |EQ bf:LDRB r5,[r|
00001bc0 34 5d 2c 23 31 3a 53 54 52 42 20 72 35 2c 5b 72 |4],#1:STRB r5,[r|
00001bd0 32 2c 72 30 5d 3a 41 44 44 20 72 30 2c 72 30 2c |2,r0]:ADD r0,r0,|
00001be0 23 31 3a 53 55 42 20 72 33 2c 72 33 2c 23 31 3a |#1:SUB r3,r3,#1:|
00001bf0 42 20 62 65 0d 1d 88 fb 2e 62 66 20 53 54 52 20 |B be.....bf STR |
00001c00 72 34 2c 5a 75 3a 53 54 52 20 72 30 2c 5a 76 3a |r4,Zu:STR r0,Zv:|
00001c10 2e 62 63 20 4c 44 52 20 72 30 2c 62 58 3a 4c 44 |.bc LDR r0,bX:LD|
00001c20 52 20 72 31 2c 62 59 3a 43 4d 50 20 72 30 2c 23 |R r1,bY:CMP r0,#|
00001c30 30 20 3a 20 42 4e 45 20 62 5a 3a 43 4d 50 20 72 |0 : BNE bZ:CMP r|
00001c40 31 2c 23 30 20 3a 20 42 4e 45 20 62 5a 3a 4c 44 |1,#0 : BNE bZ:LD|
00001c50 4d 46 44 20 28 61 79 29 21 2c 7b 50 43 7d 3a 2e |MFD (ay)!,{PC}:.|
00001c60 5a 72 20 53 54 4d 46 44 20 28 61 79 29 21 2c 7b |Zr STMFD (ay)!,{|
00001c70 72 30 2d 72 31 32 2c 61 7a 7d 3a 2e 62 67 20 43 |r0-r12,az}:.bg C|
00001c80 4d 50 20 72 32 2c 23 36 34 3a 42 4c 45 20 62 68 |MP r2,#64:BLE bh|
00001c90 3a 4c 44 4d 49 41 20 72 30 21 2c 7b 72 33 2d 72 |:LDMIA r0!,{r3-r|
00001ca0 31 30 7d 3a 53 54 4d 49 41 20 72 31 21 2c 7b 72 |10}:STMIA r1!,{r|
00001cb0 33 2d 72 31 30 7d 3a 4c 44 4d 49 41 20 72 30 21 |3-r10}:LDMIA r0!|
00001cc0 2c 7b 72 33 2d 72 31 30 7d 3a 53 54 4d 49 41 20 |,{r3-r10}:STMIA |
00001cd0 72 31 21 2c 7b 72 33 2d 72 31 30 7d 3a 53 55 42 |r1!,{r3-r10}:SUB|
00001ce0 20 72 32 2c 72 32 2c 23 36 34 3a 42 20 62 67 0d | r2,r2,#64:B bg.|
00001cf0 1e 8c 5a 2e 62 68 20 4c 44 52 20 72 33 2c 5b 72 |..Z.bh LDR r3,[r|
00001d00 30 5d 2c 23 34 3a 53 54 52 20 72 33 2c 5b 72 31 |0],#4:STR r3,[r1|
00001d10 5d 2c 23 34 3a 53 55 42 53 20 72 32 2c 72 32 2c |],#4:SUBS r2,r2,|
00001d20 23 34 3a 42 4e 45 20 62 68 3a 4c 44 4d 46 44 20 |#4:BNE bh:LDMFD |
00001d30 28 61 79 29 21 2c 7b 72 30 2d 72 31 32 2c 50 43 |(ay)!,{r0-r12,PC|
00001d40 7d 3a 5d 3a ed 62 57 3a e1 0d 1f b8 25 dd f2 55 |}:]:.bW:....%..U|
00001d50 7a 3a c8 99 26 35 31 20 b8 62 69 3a 62 6a 3d a4 |z:..&51 .bi:bj=.|
00001d60 62 6b 3a 62 6c 3d 30 3a 59 73 3d 93 3a e1 0d 20 |bk:bl=0:Ys=.:.. |
00001d70 08 47 dd a4 59 77 28 62 6d 29 3a ea 62 6e 2c 62 |.G..Yw(bm):.bn,b|
00001d80 6f 3a ea 62 70 2c 62 71 2c 62 72 3a ea 62 73 2c |o:.bp,bq,br:.bs,|
00001d90 59 76 3a 62 6e 3d 28 62 6d 20 81 62 69 29 2b 31 |Yv:bn=(bm .bi)+1|
00001da0 3a 62 6f 3d 62 6e 2a 20 62 69 3a e7 a4 62 74 3e |:bo=bn* bi:..bt>|
00001db0 3d 62 6d 20 8c 0d 20 4e 36 62 70 3d a4 62 6b 3a |=bm .. N6bp=.bk:|
00001dc0 62 71 3d 62 70 2b 62 6d 3a 62 72 3d a4 62 75 28 |bq=bp+bm:br=.bu(|
00001dd0 62 71 29 3a 62 6c 2b 3d 62 6d 3a 59 73 2b 3d 62 |bq):bl+=bm:Ys+=b|
00001de0 6d 3a 62 73 3d 93 3a 59 76 3d b9 0d 20 94 0c cc |m:bs=.:Yv=.. ...|
00001df0 3a 59 76 3d 20 ac b9 0d 20 a8 09 cd 3a 3d 59 76 |:Yv= ... ...:=Yv|
00001e00 0d 20 d0 28 dd a4 62 76 28 62 6d 29 3a 62 6e 3d |. .(..bv(bm):bn=|
00001e10 28 62 6d 20 81 62 69 29 2b 31 3a 62 6f 3d 62 6e |(bm .bi)+1:bo=bn|
00001e20 2a 20 62 69 3a 3d 62 6f 0d 21 0c 18 dd f2 56 6f |* bi:=bo.!....Vo|
00001e30 3a 62 70 3d a4 62 6b 3a e7 62 70 3e 62 6a 20 8c |:bp=.bk:.bp>bj .|
00001e40 0d 21 2a 18 58 75 3d a4 62 75 28 62 6a 29 3a 62 |.!*.Xu=.bu(bj):b|
00001e50 6c 3d 30 3a 59 73 3d 93 0d 21 48 07 cd 3a e1 0d |l=0:Ys=..!H..:..|
00001e60 23 46 1b dd a4 62 77 28 62 78 2c 62 79 24 2c 61 |#F...bw(bx,by$,a|
00001e70 58 29 3a e7 20 ac 61 58 20 8c 0d 23 5a 2d c8 99 |X):. .aX ..#Z-..|
00001e80 26 32 45 2c 32 35 36 2b 34 30 2c 62 78 2c 62 79 |&2E,256+40,bx,by|
00001e90 24 20 b8 2c 2c 2c 62 7a 2c 61 55 2c 63 55 2c 63 |$ .,,,bz,aU,cU,c|
00001ea0 56 3a 63 57 3d 62 7a 0d 23 6e 57 cc 3a 63 58 3d |V:cW=bz.#nW.:cX=|
00001eb0 a4 5a 71 28 62 78 2c 62 79 24 29 3a 63 57 3d 63 |.Zq(bx,by$):cW=c|
00001ec0 58 21 28 34 2a 34 29 20 2b 20 31 3a 63 59 3d 63 |X!(4*4) + 1:cY=c|
00001ed0 58 21 28 31 30 2a 34 29 20 3a 3a 63 5a 3d 28 28 |X!(10*4) ::cZ=((|
00001ee0 63 59 3e 3e 32 37 29 20 80 25 31 31 31 31 31 29 |cY>>27) .%11111)|
00001ef0 3a e7 63 5a 3d 35 20 8c 63 57 2b 3d 63 57 0d 23 |:.cZ=5 .cW+=cW.#|
00001f00 aa 09 cd 3a 3d 63 57 0d 23 d2 1b dd a4 63 61 28 |...:=cW.#....ca(|
00001f10 62 78 2c 62 79 24 2c 61 58 29 3a e7 20 ac 61 58 |bx,by$,aX):. .aX|
00001f20 20 8c 0d 23 e6 2d c8 99 26 32 45 2c 32 35 36 2b | ..#.-..&2E,256+|
00001f30 34 30 2c 62 78 2c 62 79 24 20 b8 2c 2c 2c 62 7a |40,bx,by$ .,,,bz|
00001f40 2c 61 55 2c 63 55 2c 63 56 3a 63 62 3d 61 55 0d |,aU,cU,cV:cb=aU.|
00001f50 23 fa 24 cc 3a 63 58 3d a4 5a 71 28 62 78 2c 62 |#.$.:cX=.Zq(bx,b|
00001f60 79 24 29 3a 63 62 3d 63 58 21 28 35 2a 34 29 20 |y$):cb=cX!(5*4) |
00001f70 2b 20 31 0d 24 18 09 cd 3a 3d 63 62 0d 24 40 1b |+ 1.$...:=cb.$@.|
00001f80 dd a4 63 63 28 62 78 2c 62 79 24 2c 61 58 29 3a |..cc(bx,by$,aX):|
00001f90 e7 20 ac 61 58 20 8c 0d 24 54 2d c8 99 26 32 45 |. .aX ..$T-..&2E|
00001fa0 2c 32 35 36 2b 34 30 2c 62 78 2c 62 79 24 20 b8 |,256+40,bx,by$ .|
00001fb0 2c 2c 2c 62 7a 2c 61 55 2c 63 55 2c 63 56 3a 63 |,,,bz,aU,cU,cV:c|
00001fc0 59 3d 63 56 0d 24 68 23 cc 3a 63 58 3d a4 5a 71 |Y=cV.$h#.:cX=.Zq|
00001fd0 28 62 78 2c 62 79 24 29 3a 63 59 3d 63 58 21 28 |(bx,by$):cY=cX!(|
00001fe0 31 30 2a 34 29 20 3a 0d 24 86 09 cd 3a 3d 63 59 |10*4) :.$...:=cY|
00001ff0 0d 24 ae 3f dd a4 63 64 28 62 78 2c 62 79 24 29 |.$.?..cd(bx,by$)|
00002000 3a 63 58 3d a4 5a 71 28 62 78 2c 62 79 24 29 3a |:cX=.Zq(bx,by$):|
00002010 63 65 3d 63 58 21 28 38 2a 34 29 3a 63 66 3d 63 |ce=cX!(8*4):cf=c|
00002020 58 21 28 39 2a 34 29 3a 3d 63 66 3c 3e 63 65 0d |X!(9*4):=cf<>ce.|
00002030 24 f4 33 dd a4 61 61 28 62 78 2c 62 79 24 29 3a |$.3..aa(bx,by$):|
00002040 63 67 3d a4 5a 71 28 62 78 2c 62 79 24 29 3a 63 |cg=.Zq(bx,by$):c|
00002050 68 3d 63 67 21 33 32 3a e7 63 68 3d 31 31 2a 34 |h=cg!32:.ch=11*4|
00002060 20 8c 0d 25 1c 09 63 69 3d 2d 31 0d 25 26 10 cc | ..%..ci=-1.%&..|
00002070 3a 63 69 3d 63 67 2b 31 31 2a 34 0d 25 3a 09 cd |:ci=cg+11*4.%:..|
00002080 3a 3d 63 69 0d 25 62 12 dd a4 63 6a 28 62 78 29 |:=ci.%b...cj(bx)|
00002090 3a 3d 62 78 21 34 0d 25 8a 4f dd a4 5a 6b 28 62 |:=bx!4.%.O..Zk(b|
000020a0 78 2c 6e 29 3a 63 6b 3d 62 78 2b 62 78 21 38 3a |x,n):ck=bx+bx!8:|
000020b0 63 6c 3d 31 3a c8 95 63 6c 3c 6e 3a 63 6d 3d 63 |cl=1:..cl<n:cm=c|
000020c0 6b 21 30 3a 63 6b 2b 3d 63 6d 3a 63 6c 2b 3d 31 |k!0:ck+=cm:cl+=1|
000020d0 3a ce 3a 3d c0 a4 58 6f 28 63 6b 2b 34 29 2c 31 |:.:=..Xo(ck+4),1|
000020e0 32 29 2b bd 30 0d 26 0c 46 dd a4 5a 6f 28 62 78 |2)+.0.&.F..Zo(bx|
000020f0 2c 62 79 24 29 3a c8 99 26 32 45 2c 32 35 36 2b |,by$):..&2E,256+|
00002100 32 34 2c 62 78 2c 62 79 24 20 b8 2c 2c 63 6e 3a |24,bx,by$ .,,cn:|
00002110 63 6f 3d 63 6e 3a 63 68 3d 63 6f 21 33 32 3a 63 |co=cn:ch=co!32:c|
00002120 70 3d 63 6f 2b 63 68 3a 3d 63 70 0d 26 5c 46 dd |p=co+ch:=cp.&\F.|
00002130 a4 63 71 28 62 78 2c 62 79 24 29 3a c8 99 26 32 |.cq(bx,by$):..&2|
00002140 45 2c 32 35 36 2b 32 34 2c 62 78 2c 62 79 24 20 |E,256+24,bx,by$ |
00002150 b8 2c 2c 63 6e 3a 63 6f 3d 63 6e 3a 63 72 3d 63 |.,,cn:co=cn:cr=c|
00002160 6f 21 33 36 3a 63 73 3d 63 6f 2b 63 72 3a 3d 63 |o!36:cs=co+cr:=c|
00002170 73 0d 26 ac 34 dd a4 5a 71 28 62 78 2c 62 79 24 |s.&.4..Zq(bx,by$|
00002180 29 3a c8 99 26 32 45 2c 32 35 36 2b 32 34 2c 62 |):..&2E,256+24,b|
00002190 78 2c 62 79 24 20 b8 2c 2c 63 6e 3a 63 74 3d 63 |x,by$ .,,cn:ct=c|
000021a0 6e 3a 3d 63 74 0d 26 e8 26 dd f2 63 75 28 62 78 |n:=ct.&.&..cu(bx|
000021b0 2c 58 71 24 29 3a c8 99 26 32 45 2c 32 35 36 2b |,Xq$):..&2E,256+|
000021c0 31 32 2c 62 78 2c 58 71 24 3a e1 0d 27 1a 26 dd |12,bx,Xq$:..'.&.|
000021d0 f2 63 76 28 62 78 2c 58 71 24 29 3a c8 99 26 32 |.cv(bx,Xq$):..&2|
000021e0 45 2c 32 35 36 2b 31 30 2c 62 78 2c 58 71 24 3a |E,256+10,bx,Xq$:|
000021f0 e1 0d 27 4c 30 dd f2 63 77 28 62 78 2c 63 78 29 |..'L0..cw(bx,cx)|
00002200 3a 62 78 21 30 3d 63 78 3a 62 78 21 38 3d 31 36 |:bx!0=cx:bx!8=16|
00002210 3a c8 99 26 32 45 2c 32 35 36 2b 39 2c 62 78 3a |:..&2E,256+9,bx:|
00002220 e1 0d 27 92 4f dd a4 63 79 28 62 78 2c 62 79 24 |..'.O..cy(bx,by$|
00002230 2c 78 2c 79 29 3a ea 63 7a 2c 64 55 3a c8 99 26 |,x,y):.cz,dU:..&|
00002240 32 45 2c 32 35 36 2b 34 31 2c 62 78 2c 62 79 24 |2E,256+41,bx,by$|
00002250 2c 78 2c 79 20 b8 2c 2c 2c 2c 2c 63 55 2c 63 56 |,x,y .,,,,,cU,cV|
00002260 3a 63 7a 3d 63 55 3a 64 55 3d 63 56 3a 3d 63 7a |:cz=cU:dU=cV:=cz|
00002270 0d 27 e2 3a dd f2 64 56 28 62 78 2c 62 79 24 2c |.'.:..dV(bx,by$,|
00002280 78 2c 79 2c 63 7a 2c 64 55 29 3a c8 99 26 32 45 |x,y,cz,dU):..&2E|
00002290 2c 32 35 36 2b 34 32 2c 62 78 2c 62 79 24 2c 78 |,256+42,bx,by$,x|
000022a0 2c 79 2c 63 7a 2c 64 55 3a e1 0d 28 14 2e dd f2 |,y,cz,dU:..(....|
000022b0 64 57 28 62 78 2c 62 79 24 2c 64 58 24 29 3a c8 |dW(bx,by$,dX$):.|
000022c0 99 26 32 45 2c 32 35 36 2b 32 36 2c 62 78 2c 62 |.&2E,256+26,bx,b|
000022d0 79 24 2c 64 58 24 3a e1 0d 28 46 38 dd a4 64 59 |y$,dX$:..(F8..dY|
000022e0 3a 64 5a 3d 31 3a c8 99 26 36 2c 31 36 31 2c 31 |:dZ=1:..&6,161,1|
000022f0 33 33 20 b8 2c 2c 64 61 3a 64 61 3d 28 64 61 3e |33 .,,da:da=(da>|
00002300 3e 32 29 20 80 33 3a e7 28 64 61 3d 32 29 20 8c |>2) .3:.(da=2) .|
00002310 0d 28 8c 08 64 5a 3d 33 0d 28 96 30 cc 3a c8 99 |.(..dZ=3.(.0.:..|
00002320 26 33 35 2c 2d 31 2c 34 20 b8 2c 2c 61 72 3a c8 |&35,-1,4 .,,ar:.|
00002330 99 26 33 35 2c 2d 31 2c 35 20 b8 2c 2c 61 73 3a |.&35,-1,5 .,,as:|
00002340 e7 61 72 3d 61 73 20 8c 0d 28 be 08 64 5a 3d 32 |.ar=as ..(..dZ=2|
00002350 0d 28 c8 05 cd 0d 28 d2 09 cd 3a 3d 64 5a 0d 28 |.(....(...:=dZ.(|
00002360 fa 33 dd a4 5a 6d 28 62 78 2c 62 79 24 29 3a 63 |.3..Zm(bx,by$):c|
00002370 58 3d a4 5a 71 28 62 78 2c 62 79 24 29 3a 64 62 |X=.Zq(bx,by$):db|
00002380 3d 63 58 21 28 31 30 2a 34 29 3a 3d 64 62 3e 34 |=cX!(10*4):=db>4|
00002390 30 0d 29 36 26 dd f2 64 63 28 62 78 2c 62 79 24 |0.)6&..dc(bx,by$|
000023a0 29 3a c8 99 26 32 45 2c 32 35 36 2b 33 30 2c 62 |):..&2E,256+30,b|
000023b0 78 2c 62 79 24 3a e1 0d 29 68 3f dd f2 64 64 28 |x,by$:..)h?..dd(|
000023c0 62 78 2c 62 79 24 2c 58 67 2c 58 68 2c 64 62 2c |bx,by$,Xg,Xh,db,|
000023d0 64 65 29 3a c8 99 26 32 45 2c 32 35 36 2b 31 35 |de):..&2E,256+15|
000023e0 2c 62 78 2c 62 79 24 2c 94 64 65 2c 58 67 2c 58 |,bx,by$,.de,Xg,X|
000023f0 68 2c 64 62 3a e1 0d 2b fc 45 dd a4 55 77 28 64 |h,db:..+.E..Uw(d|
00002400 66 2c 64 67 24 29 3a ea 64 68 2c 64 69 3a c8 99 |f,dg$):.dh,di:..|
00002410 26 34 30 30 43 30 2c 64 66 2c 26 34 42 35 33 34 |&400C0,df,&4B534|
00002420 31 35 34 2c 64 67 24 2b bd 30 20 b8 64 68 2c 64 |154,dg$+.0 .dh,d|
00002430 69 3a 64 6a 3d 64 69 3a 3d 64 6a 0d 2c 42 21 dd |i:dj=di:=dj.,B!.|
00002440 f2 56 76 28 64 6a 29 3a c8 99 26 34 30 30 44 44 |.Vv(dj):..&400DD|
00002450 2c 64 6a 2c 22 54 41 53 4b 22 3a e1 0d 2c 74 86 |,dj,"TASK":..,t.|
00002460 dd a4 58 76 28 56 77 2c 64 6b 2c 58 66 24 2c 58 |..Xv(Vw,dk,Xf$,X|
00002470 73 24 2c 64 6c 2c 64 6d 29 3a ea 58 6a 2c 64 69 |s$,dl,dm):.Xj,di|
00002480 2c 64 6e 3a 24 56 77 3d 58 66 24 2b bd 30 3a 56 |,dn:$Vw=Xf$+.0:V|
00002490 77 21 33 32 3d 64 6b 3a 24 28 56 77 2b 33 36 29 |w!32=dk:$(Vw+36)|
000024a0 3d 58 73 24 2b bd 30 3a 58 6a 3d 28 94 64 6c 2a |=Xs$+.0:Xj=(.dl*|
000024b0 32 5e 30 29 2b 28 94 64 6d 2a 32 5e 31 29 3a c8 |2^0)+(.dm*2^1):.|
000024c0 99 26 34 30 30 44 46 2c 56 77 2b 33 32 2c 58 6a |.&400DF,Vw+32,Xj|
000024d0 2c 56 77 20 b8 2c 64 69 3a 64 6e 3d 64 69 3a 3d |,Vw .,di:dn=di:=|
000024e0 64 6e 0d 2c ec 1f dd f2 56 6c 28 56 79 2c 56 77 |dn.,....Vl(Vy,Vw|
000024f0 2c 57 57 2c 64 6f 29 3a e7 64 6f 3d 20 ac b9 20 |,WW,do):.do= .. |
00002500 8c 0d 2d 00 25 56 77 21 30 3d 57 57 3a c8 99 26 |..-.%Vw!0=WW:..&|
00002510 34 30 30 43 42 2c 2c 56 77 3a c8 99 26 34 30 30 |400CB,,Vw:..&400|
00002520 43 35 2c 2c 56 77 0d 2d 1e 12 cc 3a c8 99 26 34 |C5,,Vw.-...:..&4|
00002530 30 30 43 35 2c 2c 56 79 0d 2d 32 07 cd 3a e1 0d |00C5,,Vy.-2..:..|
00002540 2d 5a 26 dd f2 56 6d 28 56 77 2c 57 57 29 3a 56 |-Z&..Vm(Vw,WW):V|
00002550 77 21 30 3d 57 57 3a c8 99 26 34 30 30 43 36 2c |w!0=WW:..&400C6,|
00002560 2c 56 77 3a e1 0d 2d 96 f5 dd f2 59 6e 28 56 77 |,Vw:..-....Yn(Vw|
00002570 2c 57 57 29 3a ea 58 67 2c 58 68 2c 64 70 2c 64 |,WW):.Xg,Xh,dp,d|
00002580 71 2c 64 72 2c 64 73 3a 56 77 21 30 3d 57 57 3a |q,dr,ds:Vw!0=WW:|
00002590 c8 99 26 34 30 30 43 43 2c 2c 56 77 3a 58 67 3d |..&400CC,,Vw:Xg=|
000025a0 94 56 77 21 35 32 3a 58 68 3d 94 56 77 21 35 36 |.Vw!52:Xh=.Vw!56|
000025b0 3a 56 77 21 30 3d 34 3a 56 77 21 34 3d 35 3a 56 |:Vw!0=4:Vw!4=5:V|
000025c0 77 21 38 3d 31 31 3a 56 77 21 31 32 3d 31 32 3a |w!8=11:Vw!12=12:|
000025d0 56 77 21 31 36 3d 2d 31 3a c8 99 26 33 31 2c 56 |Vw!16=-1:..&31,V|
000025e0 77 2c 56 77 2b 33 32 3a 64 70 3d 56 77 21 33 32 |w,Vw+32:dp=Vw!32|
000025f0 3a 64 71 3d 56 77 21 33 36 3a 64 72 3d 56 77 21 |:dq=Vw!36:dr=Vw!|
00002600 34 30 3a 64 73 3d 56 77 21 34 34 3a 78 3d 64 72 |40:ds=Vw!44:x=dr|
00002610 2a 20 32 5e 64 70 20 3a 79 3d 64 73 2a 20 32 5e |* 2^dp :y=ds* 2^|
00002620 64 71 3a 78 3d 28 78 2d 58 67 29 20 81 32 3a 79 |dq:x=(x-Xg) .2:y|
00002630 3d 28 79 2d 58 68 29 20 81 32 3a 56 77 21 28 30 |=(y-Xh) .2:Vw!(0|
00002640 29 3d 57 57 3a 56 77 21 28 34 2b 30 29 3d 78 3a |)=WW:Vw!(4+0)=x:|
00002650 56 77 21 28 34 2b 34 29 3d 79 0d 2e 36 46 56 77 |Vw!(4+4)=y..6FVw|
00002660 21 28 34 2b 38 29 3d 56 77 21 28 34 2b 30 29 2b |!(4+8)=Vw!(4+0)+|
00002670 58 67 3a 56 77 21 28 34 2b 31 32 29 3d 56 77 21 |Xg:Vw!(4+12)=Vw!|
00002680 28 34 2b 34 29 2b 58 68 3a 56 77 21 32 38 3d 2d |(4+4)+Xh:Vw!28=-|
00002690 31 3a c8 99 26 34 30 30 43 35 2c 2c 56 77 3a e1 |1:..&400C5,,Vw:.|
000026a0 0d 2e 72 4d dd f2 61 76 28 56 77 2c 57 57 2c 64 |..rM..av(Vw,WW,d|
000026b0 74 2c 64 75 2c 64 76 2c 64 77 29 3a 56 77 21 30 |t,du,dv,dw):Vw!0|
000026c0 3d 64 74 3a 56 77 21 34 3d 64 76 3a 56 77 21 38 |=dt:Vw!4=dv:Vw!8|
000026d0 3d 64 75 3a 56 77 21 31 32 3d 64 77 3a c8 99 26 |=du:Vw!12=dw:..&|
000026e0 34 30 30 44 37 2c 57 57 2c 56 77 3a e1 0d 2e cc |400D7,WW,Vw:....|
000026f0 4b dd a4 61 77 28 56 77 2c 57 57 29 3a ea 64 78 |K..aw(Vw,WW):.dx|
00002700 2c 64 79 3a 56 77 21 30 3d 57 57 3a c8 99 26 34 |,dy:Vw!0=WW:..&4|
00002710 30 30 43 42 2c 2c 56 77 3a 64 78 3d 56 77 21 33 |00CB,,Vw:dx=Vw!3|
00002720 32 3a 64 79 3d 28 64 78 20 80 32 5e 31 36 29 3d |2:dy=(dx .2^16)=|
00002730 32 5e 31 36 3a 3d 64 79 0d 2f 26 a4 dd f2 5a 79 |2^16:=dy./&...Zy|
00002740 28 56 77 2c 57 57 29 3a ea 58 67 2c 58 68 2c 64 |(Vw,WW):.Xg,Xh,d|
00002750 7a 2c 65 55 3a ea 65 56 2c 65 57 2c 65 58 2c 65 |z,eU:.eV,eW,eX,e|
00002760 59 3a 56 77 21 30 3d 57 57 3a c8 99 26 34 30 30 |Y:Vw!0=WW:..&400|
00002770 43 43 2c 2c 56 77 3a 58 67 3d 56 77 21 31 32 2d |CC,,Vw:Xg=Vw!12-|
00002780 55 6a 21 34 3a 58 68 3d 56 77 21 31 36 2d 56 77 |Uj!4:Xh=Vw!16-Vw|
00002790 21 38 3a 64 7a 3d 56 77 21 32 30 3a 65 55 3d 56 |!8:dz=Vw!20:eU=V|
000027a0 77 21 32 34 3a 65 56 3d 64 7a 3a 65 59 3d 65 55 |w!24:eV=dz:eY=eU|
000027b0 3a 65 58 3d 65 59 2d 58 68 3a 65 57 3d 65 56 2b |:eX=eY-Xh:eW=eV+|
000027c0 58 67 3a c8 99 26 34 30 30 44 31 2c 57 57 2c 65 |Xg:..&400D1,WW,e|
000027d0 56 2c 65 58 2c 65 57 2c 65 59 3a e1 0d 2f a8 40 |V,eX,eW,eY:../.@|
000027e0 dd f2 65 5a 28 56 77 2c 57 57 2c 56 78 29 3a 56 |..eZ(Vw,WW,Vx):V|
000027f0 77 21 30 3d 57 57 3a 56 77 21 34 3d 56 78 3a 56 |w!0=WW:Vw!4=Vx:V|
00002800 77 21 38 3d 30 3a 56 77 21 31 32 3d 30 3a c8 99 |w!8=0:Vw!12=0:..|
00002810 26 34 30 30 43 44 2c 2c 56 77 3a e1 0d 30 02 2d |&400CD,,Vw:..0.-|
00002820 dd f2 57 6d 28 57 57 2c 56 78 2c 65 61 29 3a c8 |..Wm(WW,Vx,ea):.|
00002830 99 26 34 30 30 44 32 2c 57 57 2c 56 78 2c 30 2c |.&400D2,WW,Vx,0,|
00002840 30 2c 2d 31 2c 65 61 3a e1 0d 30 34 25 dd f2 57 |0,-1,ea:..04%..W|
00002850 6f 3a c8 99 26 34 30 30 44 32 2c 2d 31 2c 2d 31 |o:..&400D2,-1,-1|
00002860 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 3a e1 0d 30 |,-1,-1,-1,-1:..0|
00002870 66 5e dd a4 57 6e 28 56 77 2c 57 57 2c 56 78 29 |f^..Wn(Vw,WW,Vx)|
00002880 3a ea 58 6a 2c 65 62 2c 65 63 24 3a 56 77 21 30 |:.Xj,eb,ec$:Vw!0|
00002890 3d 57 57 3a 56 77 21 34 3d 56 78 3a c8 99 26 34 |=WW:Vw!4=Vx:..&4|
000028a0 30 30 43 45 2c 2c 56 77 3a 58 6a 3d 56 77 21 28 |00CE,,Vw:Xj=Vw!(|
000028b0 38 2b 31 36 29 3a 65 62 3d 28 58 6a 20 80 32 5e |8+16):eb=(Xj .2^|
000028c0 38 29 3d 32 5e 38 3a e7 65 62 20 8c 0d 30 b6 16 |8)=2^8:.eb ..0..|
000028d0 65 63 24 3d a4 58 6f 28 56 77 21 28 38 2b 32 30 |ec$=.Xo(Vw!(8+20|
000028e0 29 29 0d 30 c0 16 cc 3a 65 63 24 3d a4 58 6f 28 |)).0...:ec$=.Xo(|
000028f0 56 77 2b 38 2b 32 30 29 0d 30 d4 0a cd 3a 3d 65 |Vw+8+20).0...:=e|
00002900 63 24 0d 30 fc 5e dd f2 59 61 28 56 77 2c 57 57 |c$.0.^..Ya(Vw,WW|
00002910 2c 56 78 2c 65 64 24 29 3a ea 58 6a 2c 65 62 3a |,Vx,ed$):.Xj,eb:|
00002920 56 77 21 30 3d 57 57 3a 56 77 21 34 3d 56 78 3a |Vw!0=WW:Vw!4=Vx:|
00002930 c8 99 26 34 30 30 43 45 2c 2c 56 77 3a 58 6a 3d |..&400CE,,Vw:Xj=|
00002940 56 77 21 28 38 2b 31 36 29 3a 65 62 3d 28 58 6a |Vw!(8+16):eb=(Xj|
00002950 20 80 32 5e 38 29 3d 32 5e 38 3a e7 65 62 20 8c | .2^8)=2^8:.eb .|
00002960 0d 31 4c 14 24 28 56 77 21 28 38 2b 32 30 29 29 |.1L.$(Vw!(8+20))|
00002970 3d 65 64 24 0d 31 56 14 cc 3a 24 28 56 77 2b 38 |=ed$.1V..:$(Vw+8|
00002980 2b 32 30 29 3d 65 64 24 0d 31 6a 33 cd 3a 56 77 |+20)=ed$.1j3.:Vw|
00002990 21 30 3d 57 57 3a 56 77 21 34 3d 56 78 3a 56 77 |!0=WW:Vw!4=Vx:Vw|
000029a0 21 38 3d 30 3a 56 77 21 31 32 3d 30 3a c8 99 26 |!8=0:Vw!12=0:..&|
000029b0 34 30 30 43 44 2c 2c 56 77 3a e1 0d 31 c4 1a dd |400CD,,Vw:..1...|
000029c0 f2 57 70 28 65 65 29 3a c8 99 26 34 30 30 44 43 |.Wp(ee):..&400DC|
000029d0 2c 65 65 3a e1 0d 31 f6 38 dd a4 58 6f 28 58 6b |,ee:..1.8..Xo(Xk|
000029e0 29 3a ea 65 66 24 3a 65 66 24 3d 22 22 3a c8 95 |):.ef$:ef$="":..|
000029f0 3f 58 6b 3e 33 31 3a 65 66 24 2b 3d bd 3f 58 6b |?Xk>31:ef$+=.?Xk|
00002a00 3a 58 6b 2b 3d 31 3a ce 3a 3d 65 66 24 0d 32 5a |:Xk+=1:.:=ef$.2Z|
00002a10 2a dd f2 57 7a 28 56 77 2c 58 71 24 29 3a 24 56 |*..Wz(Vw,Xq$):$V|
00002a20 77 3d 58 71 24 2b bd 30 3a c8 99 26 34 30 30 44 |w=Xq$+.0:..&400D|
00002a30 39 2c 2c 56 77 3a e1 0d 32 96 55 dd a4 58 55 28 |9,,Vw:..2.U..XU(|
00002a40 65 67 2c 65 68 2c 65 69 2c 65 6a 24 29 3a ea 63 |eg,eh,ei,ej$):.c|
00002a50 6e 2c 65 6b 2c 65 6c 2c 65 6d 2c 65 6e 3a c8 99 |n,ek,el,em,en:..|
00002a60 26 34 30 30 44 42 2c 2c 65 67 2c 65 68 2c 65 69 |&400DB,,eg,eh,ei|
00002a70 2c 2d 31 2c 65 6a 24 2c 30 20 b8 2c 2c 63 6e 3a |,-1,ej$,0 .,,cn:|
00002a80 65 6b 3d 65 67 21 38 34 3a 3d 63 6e 0d 32 f0 25 |ek=eg!84:=cn.2.%|
00002a90 dd a4 58 57 28 65 67 29 3a ea 57 57 3a c8 99 26 |..XW(eg):.WW:..&|
00002aa0 34 30 30 43 31 2c 2c 65 67 20 b8 57 57 3a 3d 57 |400C1,,eg .WW:=W|
00002ab0 57 0d 33 2c 13 dd f2 58 59 3a c8 99 26 34 30 30 |W.3,...XY:..&400|
00002ac0 44 41 3a e1 0d 33 5e 30 dd a4 56 68 28 56 79 2c |DA:..3^0..Vh(Vy,|
00002ad0 65 6f 29 3a ea 64 68 3a c8 99 26 34 30 30 43 37 |eo):.dh:..&400C7|
00002ae0 2c 65 6f 2c 56 79 20 b8 64 68 3a 65 70 3d 64 68 |,eo,Vy .dh:ep=dh|
00002af0 3a 3d 65 70 0d 33 a4 3c dd a4 62 75 28 65 71 29 |:=ep.3.<..bu(eq)|
00002b00 3a ea 64 68 2c 64 69 2c 63 6e 2c 65 72 3a c8 99 |:.dh,di,cn,er:..|
00002b10 26 34 30 30 45 43 2c 65 71 2c 2d 31 20 b8 64 68 |&400EC,eq,-1 .dh|
00002b20 2c 64 69 2c 63 6e 3a 65 72 3d 64 68 3a 3d 65 72 |,di,cn:er=dh:=er|
00002b30 0d 33 ea 38 dd a4 62 6b 3a ea 64 68 2c 64 69 2c |.3.8..bk:.dh,di,|
00002b40 63 6e 2c 65 72 3a c8 99 26 34 30 30 45 43 2c 2d |cn,er:..&400EC,-|
00002b50 31 2c 2d 31 20 b8 64 68 2c 64 69 2c 63 6e 3a 65 |1,-1 .dh,di,cn:e|
00002b60 72 3d 64 68 3a 3d 65 72 0d 34 30 38 dd a4 62 74 |r=dh:=er.408..bt|
00002b70 3a ea 64 68 2c 64 69 2c 63 6e 2c 65 73 3a c8 99 |:.dh,di,cn,es:..|
00002b80 26 34 30 30 45 43 2c 2d 31 2c 2d 31 20 b8 64 68 |&400EC,-1,-1 .dh|
00002b90 2c 64 69 2c 63 6e 3a 65 73 3d 63 6e 3a 3d 65 73 |,di,cn:es=cn:=es|
00002ba0 0d 34 76 8e dd f2 57 61 28 56 77 29 3a ea 64 70 |.4v...Wa(Vw):.dp|
00002bb0 2c 64 71 2c 64 72 2c 64 73 3a 56 77 21 30 3d 34 |,dq,dr,ds:Vw!0=4|
00002bc0 3a 56 77 21 34 3d 35 3a 56 77 21 38 3d 31 31 3a |:Vw!4=5:Vw!8=11:|
00002bd0 56 77 21 31 32 3d 31 32 3a 56 77 21 31 36 3d 2d |Vw!12=12:Vw!16=-|
00002be0 31 3a c8 99 26 33 31 2c 56 77 2c 56 77 2b 33 32 |1:..&31,Vw,Vw+32|
00002bf0 3a 64 70 3d 56 77 21 33 32 3a 64 71 3d 56 77 21 |:dp=Vw!32:dq=Vw!|
00002c00 33 36 3a 64 72 3d 56 77 21 34 30 3a 64 73 3d 56 |36:dr=Vw!40:ds=V|
00002c10 77 21 34 34 3a c8 97 c8 93 30 2c 30 2c 64 72 2a |w!44:....0,0,dr*|
00002c20 32 5e 64 70 2c 64 73 2a 32 5e 64 71 3a e1 0d 34 |2^dp,ds*2^dq:..4|
00002c30 e4 f4 dd f2 59 6f 28 56 77 2c 57 57 29 3a ea 58 |....Yo(Vw,WW):.X|
00002c40 67 2c 58 68 2c 64 70 2c 64 71 2c 64 72 2c 64 73 |g,Xh,dp,dq,dr,ds|
00002c50 3a 21 56 77 3d 57 57 3a c8 99 26 34 30 30 43 43 |:!Vw=WW:..&400CC|
00002c60 2c 2c 56 77 3a 58 67 3d 94 56 77 21 35 32 3a 58 |,,Vw:Xg=.Vw!52:X|
00002c70 68 3d 94 56 77 21 34 38 3a 56 77 21 30 3d 34 3a |h=.Vw!48:Vw!0=4:|
00002c80 56 77 21 34 3d 35 3a 56 77 21 38 3d 31 31 3a 56 |Vw!4=5:Vw!8=11:V|
00002c90 77 21 31 32 3d 31 32 3a 56 77 21 31 36 3d 2d 31 |w!12=12:Vw!16=-1|
00002ca0 3a c8 99 26 33 31 2c 56 77 2c 56 77 2b 33 32 3a |:..&31,Vw,Vw+32:|
00002cb0 64 70 3d 56 77 21 33 32 3a 64 71 3d 56 77 21 33 |dp=Vw!32:dq=Vw!3|
00002cc0 36 3a 64 72 3d 56 77 21 34 30 3a 64 73 3d 56 77 |6:dr=Vw!40:ds=Vw|
00002cd0 21 34 34 3a 78 3d 64 72 2a 20 32 5e 64 70 20 3a |!44:x=dr* 2^dp :|
00002ce0 79 3d 64 73 2a 20 32 5e 64 71 3a 78 3d 28 78 2d |y=ds* 2^dq:x=(x-|
00002cf0 58 67 29 2f 32 3a 79 3d 28 79 2d 58 68 29 2f 32 |Xg)/2:y=(y-Xh)/2|
00002d00 3a 56 77 21 30 3d 57 57 3a 56 77 21 28 30 2b 34 |:Vw!0=WW:Vw!(0+4|
00002d10 2b 30 29 3d 78 3a 56 77 21 28 30 2b 34 2b 34 29 |+0)=x:Vw!(0+4+4)|
00002d20 3d 79 0d 35 7a 7e 56 77 21 28 30 2b 34 2b 38 29 |=y.5z~Vw!(0+4+8)|
00002d30 3d 56 77 21 28 30 2b 34 2b 30 29 2b 58 67 3a 56 |=Vw!(0+4+0)+Xg:V|
00002d40 77 21 28 30 2b 34 2b 31 32 29 3d 56 77 21 28 30 |w!(0+4+12)=Vw!(0|
00002d50 2b 34 2b 34 29 2b 58 68 3a c8 99 26 34 30 30 43 |+4+4)+Xh:..&400C|
00002d60 35 2c 2c 56 77 3a 78 3d 28 28 64 72 2a 32 5e 64 |5,,Vw:x=((dr*2^d|
00002d70 70 29 2d 58 67 20 29 20 2f 20 32 3a 79 3d 28 28 |p)-Xg ) / 2:y=((|
00002d80 64 73 2a 32 5e 64 71 29 2d 58 68 29 20 2f 20 32 |ds*2^dq)-Xh) / 2|
00002d90 3a c8 97 c8 93 78 2c 79 2c 58 67 2c 58 68 3a e1 |:....x,y,Xg,Xh:.|
00002da0 0d 35 d4 d4 dd f2 65 74 28 56 77 2c 57 57 2c 56 |.5....et(Vw,WW,V|
00002db0 78 2c 65 75 2c 65 76 29 3a 21 56 77 3d 57 57 3a |x,eu,ev):!Vw=WW:|
00002dc0 c8 99 26 34 30 30 43 43 2c 2c 56 77 3a 65 77 3d |..&400CC,,Vw:ew=|
00002dd0 56 77 21 34 3a 65 78 3d 56 77 21 38 3a 65 79 3d |Vw!4:ex=Vw!8:ey=|
00002de0 56 77 21 31 32 3a 65 7a 3d 56 77 21 31 36 3a 56 |Vw!12:ez=Vw!16:V|
00002df0 77 21 30 3d 57 57 3a 56 77 21 34 3d 56 78 3a c8 |w!0=WW:Vw!4=Vx:.|
00002e00 99 26 34 30 30 43 45 2c 2c 56 77 3a 66 55 3d 56 |.&400CE,,Vw:fU=V|
00002e10 77 21 38 3a 66 56 3d 56 77 21 31 32 3a 66 57 3d |w!8:fV=Vw!12:fW=|
00002e20 56 77 21 31 36 3a 66 58 3d 56 77 21 32 30 3a 66 |Vw!16:fX=Vw!20:f|
00002e30 59 3d 66 57 2d 66 55 3a 66 5a 3d 66 58 2d 66 56 |Y=fW-fU:fZ=fX-fV|
00002e40 3a 57 72 3d 65 77 2b 66 55 3a 57 75 3d 65 7a 2b |:Wr=ew+fU:Wu=ez+|
00002e50 66 56 3a c8 97 c8 93 57 72 2b 65 75 2c 57 75 2b |fV:....Wr+eu,Wu+|
00002e60 65 76 2c 66 59 2d 65 75 2a 32 2c 66 5a 2d 65 76 |ev,fY-eu*2,fZ-ev|
00002e70 2a 32 3a e1 0d 36 74 6f dd f2 66 61 28 56 77 2c |*2:..6to..fa(Vw,|
00002e80 57 57 2c 56 7a 2c 57 55 29 3a 21 56 77 3d 57 57 |WW,Vz,WU):!Vw=WW|
00002e90 3a c8 99 26 34 30 30 43 43 2c 2c 56 77 3a 66 62 |:..&400CC,,Vw:fb|
00002ea0 3d 56 77 21 34 2d 56 77 21 32 30 3a 66 63 3d 56 |=Vw!4-Vw!20:fc=V|
00002eb0 77 21 31 36 2d 56 77 21 32 34 3a 66 62 3d 56 7a |w!16-Vw!24:fb=Vz|
00002ec0 2d 66 62 3a 66 63 3d 31 30 32 34 2d 28 66 63 2d |-fb:fc=1024-(fc-|
00002ed0 57 55 29 3a 66 64 25 3d 66 62 3a 66 65 25 3d 66 |WU):fd%=fb:fe%=f|
00002ee0 63 3a e1 0d 37 00 cc dd f2 66 66 28 56 77 2c 57 |c:..7....ff(Vw,W|
00002ef0 57 2c 66 67 29 3a 56 77 21 30 3d 57 57 3a c8 99 |W,fg):Vw!0=WW:..|
00002f00 26 34 30 30 43 43 2c 2c 56 77 3a 66 68 3d 56 77 |&400CC,,Vw:fh=Vw|
00002f10 21 34 3a 66 69 3d 56 77 21 31 32 3a 66 6a 3d 56 |!4:fi=Vw!12:fj=V|
00002f20 77 21 38 3a 66 6b 3d 56 77 21 31 36 3a 66 6c 3d |w!8:fk=Vw!16:fl=|
00002f30 56 77 21 32 38 3a 56 77 21 30 3d 66 67 3a c8 99 |Vw!28:Vw!0=fg:..|
00002f40 26 34 30 30 43 43 2c 2c 56 77 3a 57 72 3d 66 68 |&400CC,,Vw:Wr=fh|
00002f50 2d 28 56 77 21 31 32 2d 56 77 21 34 29 2d 31 3a |-(Vw!12-Vw!4)-1:|
00002f60 58 68 3d 56 77 21 38 2d 56 77 21 31 36 3a 56 77 |Xh=Vw!8-Vw!16:Vw|
00002f70 21 34 3d 57 72 3a 56 77 21 31 32 3d 66 69 3a 56 |!4=Wr:Vw!12=fi:V|
00002f80 77 21 38 3d 58 68 3a 56 77 21 31 36 3d 66 6b 3a |w!8=Xh:Vw!16=fk:|
00002f90 56 77 21 32 30 3d 30 3a 56 77 21 32 38 3d 66 6c |Vw!20=0:Vw!28=fl|
00002fa0 3a c8 99 26 34 30 30 43 35 2c 2c 56 77 3a e1 0d |:..&400C5,,Vw:..|
00002fb0 37 a0 1c dd a4 66 6d 28 66 6e 29 3a 3d 28 28 66 |7....fm(fn):=((f|
00002fc0 6e 2b 33 29 20 80 28 ac 33 29 29 0d 37 c8 4c dd |n+3) .(.3)).7.L.|
00002fd0 a4 56 59 3a c8 99 26 31 45 2c 36 2c 2c 2c 31 36 |.VY:..&1E,6,,,16|
00002fe0 20 b8 2c 2c 63 6e 3a 56 58 3d 63 6e 3a c8 99 26 | .,,cn:VX=cn:..&|
00002ff0 34 31 35 30 31 2c 56 58 2c 22 3c 22 2b 55 65 24 |41501,VX,"<"+Ue$|
00003000 2b 22 24 44 69 72 3e 2e 4d 65 73 73 61 67 65 73 |+"$Dir>.Messages|
00003010 22 2c 30 3a 3d 56 58 0d 38 0e 26 dd f2 56 75 28 |",0:=VX.8.&..Vu(|
00003020 66 6f 29 3a c8 99 26 34 31 35 30 34 2c 66 6f 3a |fo):..&41504,fo:|
00003030 c8 99 26 31 45 2c 37 2c 2c 66 6f 3a e1 0d 38 4a |..&1E,7,,fo:..8J|
00003040 46 dd a4 58 74 28 59 57 24 29 3a c8 99 26 34 31 |F..Xt(YW$):..&41|
00003050 35 30 32 2c 56 58 2c 59 57 24 2c 30 2c 30 2c 30 |502,VX,YW$,0,0,0|
00003060 2c 30 2c 30 2c 30 20 b8 2c 2c 63 6e 3a 66 70 3d |,0,0,0 .,,cn:fp=|
00003070 63 6e 3a 66 71 24 3d a4 58 6f 28 66 70 29 3a 3d |cn:fq$=.Xo(fp):=|
00003080 66 71 24 0d 38 90 52 dd f2 66 72 28 56 77 2c 57 |fq$.8.R..fr(Vw,W|
00003090 57 2c 66 73 24 29 3a ea 58 6a 2c 65 62 3a 21 56 |W,fs$):.Xj,eb:!V|
000030a0 77 3d 57 57 3a c8 99 26 34 30 30 43 43 2c 2c 56 |w=WW:..&400CC,,V|
000030b0 77 3a 58 6a 3d 56 77 21 28 34 2b 35 36 29 3a 65 |w:Xj=Vw!(4+56):e|
000030c0 62 3d 28 58 6a 20 80 32 5e 38 29 3d 32 5e 38 3a |b=(Xj .2^8)=2^8:|
000030d0 e7 65 62 20 8c 0d 38 d6 24 5a 74 3d 21 28 56 77 |.eb ..8.$Zt=!(Vw|
000030e0 2b 34 2b 37 32 29 3a 24 21 28 56 77 2b 34 2b 37 |+4+72):$!(Vw+4+7|
000030f0 32 29 3d 66 73 24 2b bd 30 0d 38 ea 17 cc 3a 24 |2)=fs$+.0.8...:$|
00003100 28 56 77 2b 34 2b 37 32 29 3d 65 64 24 2b bd 30 |(Vw+4+72)=ed$+.0|
00003110 0d 38 fe 07 cd 3a e1 0d 39 26 4f dd f2 66 74 28 |.8...:..9&O..ft(|
00003120 56 77 2c 57 57 2c 56 78 2c 66 75 29 3a 56 77 21 |Vw,WW,Vx,fu):Vw!|
00003130 30 3d 57 57 3a 56 77 21 34 3d 56 78 3a 56 77 21 |0=WW:Vw!4=Vx:Vw!|
00003140 38 3d 28 94 66 75 29 3c 3c 32 31 3a 56 77 21 31 |8=(.fu)<<21:Vw!1|
00003150 32 3d 31 3c 3c 32 31 3a c8 99 26 34 30 30 43 44 |2=1<<21:..&400CD|
00003160 2c 2c 56 77 3a e1 0d 39 80 4f dd f2 66 76 28 56 |,,Vw:..9.O..fv(V|
00003170 77 2c 57 57 2c 56 78 2c 66 77 29 3a 56 77 21 30 |w,WW,Vx,fw):Vw!0|
00003180 3d 57 57 3a 56 77 21 34 3d 56 78 3a 56 77 21 38 |=WW:Vw!4=Vx:Vw!8|
00003190 3d 28 94 66 77 29 3c 3c 32 32 3a 56 77 21 31 32 |=(.fw)<<22:Vw!12|
000031a0 3d 31 3c 3c 32 32 3a c8 99 26 34 30 30 43 44 2c |=1<<22:..&400CD,|
000031b0 2c 56 77 3a e1 0d 39 da 1a dd a4 5a 56 28 58 71 |,Vw:..9....ZV(Xq|
000031c0 24 29 3a e7 58 71 24 3d 22 22 20 8c 3d 22 22 0d |$):.Xq$="" .="".|
000031d0 39 ee 3a ea 69 3a 69 3d a9 58 71 24 3a c8 95 c1 |9.:.i:i=.Xq$:...|
000031e0 58 71 24 2c 69 2c 31 29 3c 3e 22 2e 22 20 80 69 |Xq$,i,1)<>"." .i|
000031f0 3e 30 3a 69 2d 3d 31 3a ce 3a 3d c1 58 71 24 2c |>0:i-=1:.:=.Xq$,|
00003200 69 2b 31 2c a9 58 71 24 29 0d 3a 3e 70 dd f2 61 |i+1,.Xq$).:>p..a|
00003210 78 28 56 77 2c 59 58 2c 66 78 2c 66 79 29 3a 21 |x(Vw,YX,fx,fy):!|
00003220 56 77 3d 59 58 3a c8 99 26 34 30 30 43 43 2c 2c |Vw=YX:..&400CC,,|
00003230 56 77 3a 56 77 21 28 34 2b 38 29 3d 56 77 21 28 |Vw:Vw!(4+8)=Vw!(|
00003240 34 2b 30 29 2b 66 78 3a 56 77 21 28 34 2b 34 29 |4+0)+fx:Vw!(4+4)|
00003250 3d 56 77 21 28 34 2b 31 32 29 2d 66 79 3a c8 99 |=Vw!(4+12)-fy:..|
00003260 26 34 30 30 43 36 2c 2c 56 77 3a c8 99 26 34 30 |&400C6,,Vw:..&40|
00003270 30 43 35 2c 2c 56 77 3a e1 0d ff |0C5,,Vw:...|
0000327b 
.