Home » Archimedes archive » Acorn User » AU 1993-10.adf » !MorphDemo_MorphDemo » !MorphDemo/!RunImage
!MorphDemo/!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 » Acorn User » AU 1993-10.adf » !MorphDemo_MorphDemo |
| Filename: | !MorphDemo/!RunImage |
| Read OK: | ✔ |
| File size: | D2E8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
50UV$="1.00 Demonstration version":PROCUW:DIMb% 2500,Q% 6000,UX% 1000,UY% 3000,UZ% 256,Ua% 256,Ub% 1024:DIMUc% 16,Ud% 16,Ue% 16,Uf% 16,Ug% 256,Uh% 256,Ui% 256,Uj% 256:DIMUk% 48*30*30+8,Ul% 12000,Um% 20,Un% 1024:DIMUo%(20),Up%(10),Up$(10),Uq%(10),Ur$(8),Ur%(8,11)
130DIMUs% 33000,Ut% 320,Uu% 32,Uv% 40,Uw% 256:PROCUx:Uy%=b%+1000:Uv%!0=2:Uv%!4=3:Uv%!8=&400C0:Uv%!12=&400C1:Uv%!16=0:$b%="TASK":SYS&400C0,300,!b%,"Morpheus DEMO",Uv% TO,Uz%:END=END+&4000:HIMEM=HIMEM-256:VU%=HIMEM:PROCVV(VU%,256):PROCVW:PROCVX:PROCVY:ONERRORPROCVZ
290WHILEVa%=0:SYS&400C7,,b% TOVb%:CASEVb% OF
320WHEN0:IFVc% THENPROCVc
330IFVd% THENPROCVe(3)
340IFVf% THENPROCVg
350IFVh% THENPROCVh
360WHEN1:PROCVi(b%)
370WHEN2:PROCVj(b%!0,TRUE)
380WHEN3:PROCVk(b%!0)
390WHEN4:IFb%!0=Vl% THENVh%=FALSE:PROCVm
400IFb%!0=Vn% ORb%!0=Vo% THENVd%=FALSE:PROCVe(2)
410WHEN5:IFb%!0=Vl% THENVh%=TRUE
420IF(b%!0=Vn% ORb%!0=Vo%) AND NOTVd% THENVd%=TRUE:PROCVe(1)
430WHEN6:PROCVp(b%)
440WHEN7:PROCVq(b%)
450WHEN8:PROCVr(b%!0,b%!4,b%!24)
460WHEN9:PROCVs(b%)
470WHEN17,18:PROCVt(b%)
480ENDCASE:ENDWHILE:b%!0=1:$(b%+4)="The Full version of Morpheus is available from Oregan Developments, 36 Grosvenor Avenue, Streetly, Sutton Coldfield, B74 3PE and costs �34.95":SYS&400DF,b%,17,"Morpheus DEMO":PROCVu:QUIT
550DEFPROCVY:SYS&400D1,-1,Vv%/2-380,Vw%/2-240,Vv%/2+400,Vw%/2+240:ENDPROC
590DEFPROCVu:LOCALVx%,n%:FORVx%=0 TO255:IFUw%?Vx%>0 THEN
630FORn%=0 TOUw%?Vx%:SYS&40082,Vx%:NEXT
640ENDIF:NEXT:SYS&400DD:ENDPROC
690DEFPROCUx:LOCALVy%,Vz%,f$:SYS53,-1,5 TO,,Vz%:IFVz%=1 THEN
730f$="<MorphDemo$Dir>.Resources.XSprites22"
740ELSE:f$="<MorphDemo$Dir>.Resources.XSprites"
760ENDIF:SYS&8,5,f$ TO,,,,Vy%:Vy%+=16:DIMUx% Vy%:Ux%!0=Vy%:Ux%!4=0:Ux%!8=16:Ux%!12=16:SYS&2E,256+10,Ux%,f$:ENDPROC
840DEFFNWU:LOCALVb%,WV%:WV%=1:SYS&400C7,,b% TOVb%:CASEVb% OF
890WHEN0:WV%=0:IFVd% THENPROCVe(3)
900WHEN1:PROCVi(b%)
910WHEN2:PROCVj(b%!0,TRUE)
920WHEN3:PROCVk(b%!0)
930WHEN4:IFb%!0=WW% THENVh%=FALSE:PROCVm
940IFb%!0=Vn% ORb%!0=Vo% THENVd%=FALSE:PROCVe(2)
950WHEN5:IFb%!0=WW% THENVh%=TRUE
960IF(b%!0=Vn% ORb%!0=Vo%) AND NOTVd% THENVd%=TRUE:PROCVe(1)
970WHEN6:PROCVp(b%)
980WHEN8:PROCVr(b%!0,b%!4,b%!24)
990WHEN9:IFWX%=2 ANDb%!0=6 ANDb%!4=0 THENWV%=3
1000WHEN17,18:IFb%!16=0 THENWV%=2
1010ENDCASE:=WV%
1040DEFPROCVW:LOCALWY%,p%,i%,l%:ONERRORPROCVZ:QUIT
1080WZ%=FALSE:Va%=0:Wa%=0:Wb%=0:Wc%=FALSE:Wd%=FALSE:SYS&6,161,28 TO,,p%:IF(p% AND3)<>0 THENWd%=TRUE
1140PROCWe:$FNi(Wf%,3)=UV$:Wg%=FNi(Wh%,0):DIMWi 12:$Wi="!MORPHDEMO":!b%=-1:b%!4=0:b%!12=64:b%!8=0:b%!16=72:b%!20=&3102:b%!24=Wi:b%!28=1:b%!32=LEN$Wi+1:SYS&400C2,,b% TOWY%:Wj=1:Wk=1:Wl=1:Wm%=1:PROCWn:PROCWo:Wp%=FALSE:FORi%=0 TO7:Uu%!(4*i%)=Us%+4100*i%:NEXT:Wq%=FNi(Wr%,31)
1310Ws%=0:Un%!0=-1:Vd%=FALSE:Wt%=2:PROCWu(Wr%,10,1):Wv%=-1:Ww%=-1:Wx%=-1:Wy%=-1:Vh%=FALSE:Wz%=FALSE:XU%=0:XV%=0:XW%=FALSE:XX%=FALSE:XY%=FALSE:XZ%=FALSE:Xa%=FALSE:Xb%=TRUE:Xc%=FNi(Xd%,2):Xe%=FNXf(Xd%,4):Xg%=FNi(Xd%,12):Xh%=FNi(Xd%,14):Xi%=FNi(Xj%,2):Xk%=FNi(Xj%,13):Xl%=FNi(Xm%,1):Xn%=FNi(Xm%,3)
1520Xo%=FNi(Xp%,1):Xq%=FNi(Wr%,37):Xr%=FNi(Wr%,40):Xs%=FNi(Xt%,0):Xu%=FNi(Xt%,1):Xv%=FNi(Xw%,7):Xx%=FNi(Xw%,8):Xy%=FNi(Xw%,9):Xz%=10:YU%=FNi(YV%,1):YW%=FNi(YV%,8):YX%=FNi(YV%,9):YY%=FALSE:YZ%=TRUE:PROCWu(Wr%,45,1):PROCWu(Xm%,5,0):Vc%=FALSE:Ya%=-1:Yb%=FALSE:Yc%=0:Yd%=0
1690Up%()=-1:Up$()="":Uq%()=-1:Vf%=FALSE:SYS&8,255,"<MorphDemo$Dir>.Resources.MorphCode",Ul%:Ye=4:Yf=8:Yg=12:Yh=16:Yi=20:Yj=28:Yk=32:Yl=36:Ym=40:Yn=44:Yo=48:Yp=52:Yq=56:Yr=60:PROCYs(TRUE):ENDPROC
1920DEFPROCVk(w%):Uy%!0=w%:SYS&400C6,,Uy%:CASEw% OF
1950WHENVn%:IFYt% THENPROCVk(Yu%)
1960WHENYv%:PROCVk(Wr%):XY%=FALSE
1970WHENXd%:Yw%=FALSE:PROCWu(Yu%,6,0)
1980WHENXj%:Yx%=FALSE:PROCWu(Yu%,7,0)
1990WHENWW%=XW%=FALSE
2000WHENYy%:XX%=FALSE
2010ENDCASE:ENDPROC
2040DEFPROCVj(w%,Yz%):LOCALZU%,ZV%:b%!0=w%:ZV%=TRUE:CASEw% OF
2080WHENVn%:IFYt% THEN
2090Uy%!0=Yu%:Uy%!4=b%!4-136:Uy%!8=b%!16-1000:IFb%!4<136 THENUy%!4=0
2110Uy%!12=Uy%!4+136:Uy%!16=b%!16:Uy%!20=0:Uy%!24=0:Uy%!28=b%!28:IF NOTYz%SYS&400CB,,Uy%:Uy%!28=-1
2130SYS&400C5,,Uy%:IF NOTYz%SYS&400CB,,b%
2150b%!28=Yu%:SYS&400C5,,b%:ZV%=FALSE
2170ENDIF
2180WHENYv%:Uy%!0=Wr%:SYS&400CB,,Uy%:IFYz% THEN
2200Uy%!4=b%!4+16:Uy%!8=b%!8+16:Uy%!12=Uy%!4+800:Uy%!16=Uy%!8+400:Uy%!28=b%!28
2220ELSE:Uy%!28=-1
2240ENDIF:SYS&400C5,,Uy%:IF NOTYz%SYS&400CB,,b%
2270b%!28=Wr%:SYS&400C5,,b%:XY%=TRUE:ZV%=FALSE
2290WHENXd%:IF NOTYw% THENPROCWu(Yu%,6,1)
2300Yw%=TRUE
2310WHENXj%:IF NOTYx% THENPROCWu(Yu%,7,1)
2320Yx%=TRUE
2330WHENWW%:XW%=TRUE
2340WHENYy%:XX%=TRUE
2350ENDCASE:IFZV% THEN
2370IF NOTYz%SYS&400CB,,b%:b%!28=-1
2380SYS&400C5,,b%
2390ENDIF:ENDPROC
2420DEFPROCZW(w%):PROCVj(w%,FALSE):PROCVj(w%,TRUE):ENDPROC
2440DEFPROCZX(w%,x%,y%):b%!0=0:b%!4=0:b%!8=x%:b%!12=y%:SYS&400D7,w%,b%:ENDPROC
2480DEFPROCVt(b%):LOCALZY%,s$,ZZ%:ZY%=b%!8:CASEb%!16 OF
2520WHEN0:Va%=TRUE
2530WHEN2:IFWb%=0 THENENDPROC
2540CASEWb% OF
2550WHEN25:PROCZa(b%+44)
2560ENDCASE
2570WHEN3:IFb%!12<>0 THENENDPROC
2580SYS&400CF,,Uy%:CASETRUE OF
2600WHENb%!40=&1000:CASETRUE OF
2610WHENUy%!12=-2:PROCZb(b%)
2620WHENUy%!12=Xj% ANDUy%!16=2:$Xi%=FNs(b%+44):PROCZc(Xj%,2)
2640ENDCASE
2650WHENb%!40=&FF9 ANDUy%!12=Xw%:PROCXw(b%+44,Uy%!16)
2660WHENb%!40=&FFD ANDWZ% ANDUy%!12=-2
2670WHENUy%!12=WW%:PROCZd(b%+44,b%+40)
2680ENDCASE
2690WHEN&400C0:CASEb%!32 OF
2700WHEN3:IFb%!36=0 THENPROCZe
2710WHEN2:CASEb%!36 OF
2720WHEN3:$Xo%="ARMovie"
2730WHEN4:$Xo%="ViA-file"
2740ENDCASE
2750ENDCASE:SYS&400E8,,b%!20,b%!24,b%!28
2770WHEN&400C1:PROCWn
2780ENDCASE:ENDPROC
2810DEFPROCZe:$YU%=STR$(Xz%):$YW%=STR$(1+INT((Xz%*Zf%*Zg%)/1024)):$YX%=STR$(1+INT((3*Xz%*Zf%*Zg%)/1024)):ENDPROC
2870DEFPROCZh(g%):LOCALi%:PROCZi(WW%,17,7+g%):Zj%=g%:$FNi(WW%,16)=STR$g%:PROCZc(WW%,16):$FNi(WW%,18)=Ur$(g%):PROCZc(WW%,18):FORi%=0 TO10:Ur%(0,i%)=Ur%(g%,i%):NEXT:PROCZc(WW%,0):ENDPROC
2970DEFPROCXt(Zk$,Zl$,Zm$):$FNi(Xt%,0)=Zk$:$FNi(Xt%,1)=Zl$:$FNi(Xt%,2)=Zm$:PROCZn(Xt%):VDU7:ENDPROC
3030DEFPROCZo:SYS&400D4,,-1:ENDPROC
3050DEFPROCVZ:IFVf% THENPROCZp
3070IFWp% THENPROCZq
3080PROCZr(0):!b%=ERR:IFERR<>1 THEN
3110$(b%+4)=REPORT$+" (Error code "+STR$ERL+")."
3120ELSE:$(b%+4)=REPORT$
3140ENDIF:SYS&400DF,b%,1,"Morpheus DEMO":IFINKEY(-90) THENVa%=TRUE
3170ENDPROC
3190DEFPROCZs(w%,i%,Zt%):b%!0=0:b%!4=0:b%!8=Zt%:b%!12=w%:b%!16=i%:PROCVp(b%):ENDPROC
3240DEFPROCVp(b%):LOCALw%,i%,Zt%,Zu%,Zv%,Zw%,x%,y%,Zx,Zy%,f%,p%,Zz%,aU%:w%=b%!12:i%=b%!16:Zt%=b%!8:x%=b%!0:y%=b%!4:Zw%=(Zt% AND4)<>0:Zu%=(Zt% AND2)<>0:Zv%=(Zt% AND1)<>0:IFZu% THENPROCaV(0)
3290IFw%<>Xd% ANDYw% THENPROCVk(Xd%)
3300IFw%<>Xj% ANDYx% THENPROCVk(Xj%)
3310IFw%<>Wr% ANDw%<>Yv% ANDXY% THENPROCVk(Yv%)
3320IFw%<>WW% ANDXW% THENPROCVk(WW%)
3330IFw%<>Yy% ANDXX% THENPROCVk(Yy%)
3340CASEw% OF
3350WHEN-2:IFZu% THEN
3360PROCaW:aX%=x%-80:aY%=228:SYS&400D4,,Uo%(1),aX%,aY%
3380ENDIF:IFZw% THEN
3400IFWZ% THEN
3410PROCZW(Vn%):PROCZW(Vo%):PROCZW(aZ%)
3430ELSE:PROCaa
3450ENDIF
3460ENDIF:IFZv% ANDVf% THENPROCZn(Xt%):PROCab
3480WHENYu%:IFZu% ORVf% THENENDPROC
3490CASEi% OF
3500WHEN1:ac%=NOTac%:PROCWu(Yu%,1,ac%):PROCad(Vn%):PROCad(Vo%)
3520WHEN0,2,3,4,5:PROCaV(i%+1)
3530WHEN6:PROCaV(0):PROCZW(Xd%)
3540WHEN7:PROCaV(0):PROCZW(Xj%)
3550ENDCASE
3560WHENVn%:IFZu% THEN
3570aX%=x%-60:aY%=y%:PROCae(1):PROCYi:SYS&400D4,,Uo%(2),aX%,aY%:ENDPROC
3610ENDIF:IFVf% THENENDPROC
3630CASEYd% OF
3640WHEN1:PROCaf(x%,y%,10)
3650WHEN3:IFZv% ANDag% THEN
3660PROCah(0,1,3,x%,y%)
3670ELSE:PROCah(0,0,2,x%,y%)
3690ENDIF
3700WHEN4:PROCai(x%,y%,Zw%,w%)
3710WHEN5:PROCaj(x%,y%,Zw%,w%)
3720WHEN6:PROCak(x%,y%,w%,Zt%)
3730WHEN7:PROCaf(x%,y%,7)
3740ENDCASE
3750WHENVo%:IFZu% THEN
3760aX%=x%-60:aY%=y%:PROCae(2):PROCYi:SYS&400D4,,Uo%(2),aX%,aY%:ENDPROC
3800ENDIF:IFVf% THENENDPROC
3820CASEYd% OF
3830WHEN1:PROCaf(x%,y%,11)
3840WHEN3:IFZv% ANDag% THEN
3850PROCah(1,1,5,x%,y%)
3860ELSE:PROCah(1,0,4,x%,y%)
3880ENDIF
3890WHEN4:PROCai(x%,y%,Zw%,w%)
3900WHEN5:PROCaj(x%,y%,Zw%,w%)
3910WHEN6:PROCak(x%,y%,w%,Zt%)
3920WHEN7:PROCaf(x%,y%,8)
3930ENDCASE
3940WHENaZ%:IFZu% THEN
3950aX%=x%-60:aY%=y%:PROCae(3):SYS&400D4,,Uo%(2),aX%,aY%
3970ENDIF
3980WHENXt%:IFi%=4 THENPROCVk(Xt%)
3990WHENVl%:IFi%=12 ANDZw% ANDWz% THENPROCaf(0,0,15)
4000WHENWh%:IFZu% THENENDPROC
4010CASEi% OF
4020WHEN2:PROCal(w%,0,Wg%,1,10,999,0,4):PROCam(w%,0)
4030WHEN3:PROCal(w%,0,Wg%,-1,10,999,0,4):PROCam(w%,0)
4040WHEN5,6,7,8:Zx%=50*(2^(i%-5)):IFi%=8 THENZx%=500
4050$Wg%=STR$(Zx%):PROCZc(Wh%,0):PROCam(w%,0)
4060WHEN9:PROCan:IFZw% THENPROCZo
4070WHEN10:PROCZo
4080ENDCASE
4090WHENWW%:IFZu% ANDi%<>17 THENENDPROC
4100CASEi% OF
4110WHEN22:b%!0=w%:SYS&400CB,,b%:x%-=b%!4-b%!20+300:y%-=b%!16-b%!24+68:f%=(x%+61)/102.4:Ur%(0,f%)=y%:x%=300+102.4*f%:IFf%=0 THEN
4170SYS&400D1,w%,300,72,403,584
4180ELSE:SYS&400D1,w%,x%-103,72,x%+103,584
4200ENDIF
4210WHEN17:aX%=x%-60:aY%=y%:PROCao:SYS&400D4,,Uo%(11),aX%,aY%
4230WHEN19:Ur$(0)="Group #"+STR$Zj%:$FNi(w%,18)=Ur$(0):FORf%=0 TO10:Ur%(0,f%)=50.8*f%:NEXT:PROCZc(w%,0):PROCZc(w%,18)
4270WHEN20:FORf%=0 TO10:Ur%(0,f%)=Ur%(Zj%,f%):NEXT:Ur$(0)=Ur$(Zj%):$FNi(w%,18)=Ur$(0):PROCZc(w%,0):PROCZc(w%,18):IFZw% THENPROCVk(w%)
4320WHEN21:FORf%=0 TO10:Ur%(Zj%,f%)=Ur%(0,f%):NEXT:Ur$(Zj%)=FNs(FNi(WW%,18)):PROCap(Zj%):IFZw% THENPROCVk(WW%)
4360ENDCASE
4370WHENWr%:IFZu% AND(i%<>31 ANDi%<>33) THENENDPROC
4380CASEi% OF
4390WHEN2:Zr%=NOTZr%:PROCWu(w%,i%,Zr%)
4400WHEN3:Yt%=NOTYt%:PROCWu(w%,i%,Yt%):IFWZ% THEN
4420IFYt% THENPROCZW(Vn%)ELSEPROCVk(Yu%)
4430ENDIF
4440WHEN4:aq%=NOTaq%:PROCWu(w%,i%,aq%):PROCar(w%,2,aq%)
4460WHEN8,9,10:Wt%=i%-8:IFZv% THENPROCWu(w%,i%,1)
4470WHEN16:as%=as% AND NOT1:IFZv% THENPROCWu(w%,i%,1)
4480WHEN17:as%=as% OR1:IFZv% THENPROCWu(w%,i%,1)
4490WHEN19:as%=as% OR2:IFZv% THENPROCWu(w%,i%,1)
4500WHEN20:as%=as% AND NOT2:IFZv% THENPROCWu(w%,i%,1)
4510WHEN23:as%=as% AND NOT4:IFZv% THENPROCWu(w%,i%,1)
4520WHEN24:as%=as% OR4:IFZv% THENPROCWu(w%,i%,1)
4530WHEN26:as%=as% AND NOT8:IFZv% THENPROCWu(w%,i%,1)
4540WHEN25:as%=as% OR8:IFZv% THENPROCWu(w%,i%,1)
4550WHEN29:at%=NOTat%:PROCWu(w%,i%,at%):PROCad(Vn%):PROCad(Vo%):PROCar(w%,42,NOTat%)
4580WHEN31:aX%=x%-80:aY%=y%:PROCau:SYS&400D4,,Uo%(6),aX%,aY%
4600WHEN33:aX%=x%-80:aY%=y%:PROCau:SYS&400D4,,Uo%(6),aX%,aY%
4620WHEN32:ag%=NOTag%:PROCWu(w%,i%,ag%)
4630WHEN36:av%=NOTav%:PROCWu(w%,i%,av%):PROCar(w%,37,NOTav%):IFav% THENPROCam(w%,37)ELSEPROCaw
4660WHEN42:ax%=NOTax%:PROCWu(w%,i%,ax%):PROCad(Vn%):PROCad(Vo%)
4680WHEN44:YY%=NOTYY%:PROCWu(w%,i%,YY%)
4690WHEN45:YZ%=NOTYZ%:PROCWu(w%,i%,YZ%)
4700ENDCASE
4710WHENYv%:IFZu% THENENDPROC
4720CASEi% OF
4730WHEN0:PROCVk(w%)
4740ENDCASE
4750WHENXd%:IFZu% ANDi%<>18 THENENDPROC
4760CASEi% OF
4770WHEN6,7,8:ay%=i%-6:IFZv% THENPROCWu(w%,i%,1)
4780IFay%=2 THEN
4790$Xe%="Sfile_690;Pptr_hand,6,6"
4800ELSE:$Xe%="Sfile_ff9;Pptr_hand,6,6"
4820ENDIF:PROCZc(w%,4):PROCaz(ay%,Xd%,18):bU%=ay%
4850WHEN11,13:bV%=(i%=11):IFZv% THENPROCWu(w%,i%,1)
4860PROCar(w%,i%+1,0):PROCar(w%,25-i%,1):PROCam(w%,i%+1)
4880WHEN15:PROCVk(Xd%)
4890WHEN16:f%=ay%:IFf%=3 THENf%=bU%
4910IFf%>2 THENf%+=5
4920IFbV% THEN
4930PROCbW(TRUE,0,f%,VAL(FNs(Xg%)),FNs(Xc%),2)
4940ELSE:PROCbW(FALSE,0,f%,VAL(FNs(Xh%)),FNs(Xc%),2)
4960ENDIF:PROCVk(Yv%)
4980WHEN17:ay%=3:IFZv% THENPROCWu(w%,i%,1)
4990CASEbU% OF
5000WHEN0,1,3:$Xe%="Sfile_ff9;Pptr_hand,6,6"
5010WHEN2:$Xe%="Sfile_690;Pptr_hand,6,6"
5020WHEN4,5,6:$Xe%="Sfile_ffd;Pptr_hand,6,6"
5030ENDCASE:PROCZc(w%,4)
5050WHEN18:aX%=x%-80:aY%=y%:PROCbX(4):SYS&400D4,,Uo%(16),aX%,aY%
5070ENDCASE
5080WHENXj%:IFZu% ANDi%<>17 THENENDPROC
5090CASEi% OF
5100WHEN6,7,8:bY%=i%-6:IFZv% THENPROCWu(w%,i%,1)
5110PROCaz(bY%,Xj%,17):bZ%=bY%
5120WHEN16:bY%=3:IFZv% THENPROCWu(w%,i%,1)
5130WHEN11,12:ba%=(i%=12):IFZv% THENPROCWu(w%,i%,1)
5140PROCar(w%,13,ba%):IFi%=12 THENPROCawELSEPROCam(w%,13)
5160WHEN15:PROCVk(w%)
5170WHEN17:aX%=x%-80:aY%=y%:PROCbX(5):SYS&400D4,,Uo%(16),aX%,aY%
5190ENDCASE
5200WHENYV%:IFZu% THENENDPROC
5210CASEi% OF
5220WHEN2,3:PROCal(w%,1,YU%,5-2*i%,2,64,0,2):Zy%=VAL(FNs(YU%)):$YW%=STR$(INT((Zy%*Zf%*Zg%)/1024)):PROCZc(w%,8):$YX%=STR$(INT((3*Zy%*Zf%*Zg%)/1024)):PROCZc(w%,9)
5260WHEN4:Zy%=VAL(FNs(YU%)):IFZy%>=2 ANDZy%<=64 THEN
5280Xz%=Zy%:PROCbb(0):PROCZe:PROCZc(w%,8):PROCZc(w%,9)
5300ENDIF:IFZw% THENPROCZo
5320ENDCASE
5330WHENYy%:IFZw% THEN
5340b%!0=w%:SYS&400CB,,b%:x%=(x%-b%!4+b%!20)/(bc%*bd):y%=(y%-b%!16+b%!24)/(be%*bd):p%=Uk%+8+48*XV%:Zz%=SQR((x%-p%!0-p%!32)^2+((y%-p%!4-p%!36)<<bf%)^2):aU%=SQR((x%-p%!8-p%!40)^2+((y%-p%!12-p%!44)<<bf%)^2):IFZz%<aU% THEN
5400IFp%!32<>x%-p%!0 ORp%!36<>y%-p%!4 THEN
5410PROCbg:p%!32=x%-p%!0:p%!36=y%-p%!4:PROCbg
5420ENDIF
5430ELSE:IFp%!40<>x%-p%!8 ORp%!44<>y%-p%!12 THEN
5450PROCbg:p%!40=x%-p%!8:p%!44=y%-p%!12:PROCbg
5460ENDIF
5470ENDIF:ENDPROC
5490ENDIF:IFZu% THEN
5510aX%=x%-60:aY%=y%:PROCbh:SYS&400D4,,Uo%(19),aX%,aY%:ENDPROC
5540ENDIF
5550WHENXw%:IFZu% THENENDPROC
5560CASEi% OF
5570WHEN5:Xb%=NOTXb%:PROCWu(w%,i%,Xb%)
5580WHEN6:PROCaf(w%,i%,25)
5590ENDCASE
5600ENDCASE:ENDPROC
5630DEFPROCXw(bi%,i%):LOCALs$,f$:IFi%<>0 ANDi%<>2 THENENDPROC
5660f$=FNs(bi%):$FNXf(Xw%,i%)="R2;Sfile_ff9":IFi%=0 THEN
5690bj$=f$:$Xx%=FNbk(f$):PROCZc(Xw%,8)
5710ELSE:bl$=f$:$Xy%=FNbk(f$):PROCZc(Xw%,9)
5740ENDIF:IFbj$<>"" ANDbl$<>"" THEN
5760PROCar(Xw%,6,0):$Xv%="NewMorph":PROCZc(Xw%,7):PROCam(Xw%,7)
5800ENDIF:PROCZc(Xw%,i%):ENDPROC
5840DEFPROCZa(p%):LOCALbm$,ZZ%,bn%,bo%,bp%,bq%,br%,bs%,bt%:PROCVk(Xw%):bm$=FNs(p%):SYS&8,23,bj$ TOZZ%,,,,,,bn%:IFZZ%<>1 THENPROCVk(Xw%):ERROR1,"Can't find "+bj$
5900SYS&8,23,bl$ TOZZ%,,,,,,bo%:IFZZ%<>1 THENPROCVk(Xw%):ERROR1,"Can't find "+bl$
5920IFbn%<>bo% THENERROR1,"Both files MUST be sprites."
5930IFXb% THEN
5940PROCbu(bj$):bp%=bv%:bq%=bw%:bt%=bx%:PROCbu(bl$):br%=bv%:bs%=bw%:SYS&8,5,bj$ TO,,,,by%:SYS&8,5,bl$ TO,,,,bz%:SYS&8,8,bm$:IFby%<>bz% ORbp%<>br% ORbq%<>bs% ORFNcU(bt%,3)<>63 THEN
6000bt%=FNcV(MODE):PROCcW(bj$,bm$+".Sprite1",bp%,bq%,bt%):PROCcW(bl$,bm$+".Sprite2",bp%,bq%,bt%)
6030ELSE:SYS&29,&1A,bj$,bm$+".Sprite1",%1100000:SYS&29,&1A,bl$,bm$+".Sprite2",%1100000
6060ENDIF
6070ELSE:SYS&8,8,bm$:SYS&29,&1A,bj$,bm$+".Sprite1",%1100000:SYS&29,&1A,bl$,bm$+".Sprite2",%1100000
6110ENDIF:$(b%+44)=bm$:PROCZb(b%):ENDPROC
6150DEFPROCaa:$FNXf(Xw%,0)="R2":$FNXf(Xw%,2)="R2":$Xv%="":$Xx%="":$Xy%="":PROCar(Xw%,6,1):PROCWu(Xw%,5,Xb%):bj$="":bl$="":PROCZW(Xw%):ENDPROC
6260DEFPROCbb(cX%):LOCALZy%,t:FORZy%=1 TOXz%:t=Zy%/(Xz%+1):CASEcX% OF
6310WHEN0:t=t
6320WHEN1:t=t*t
6330WHEN2:t=SIN(t*PI/2)
6340WHEN3:IFt<=0.5 THENt=0.5*SIN(t*PI)ELSEt=1-0.5*SIN(PI-t*PI)
6350WHEN4:t=0.5-0.5*COS(t*PI)
6360ENDCASE:Ut%!(4*Zy%)=1024*t:NEXT:ENDPROC
6410DEFPROCap(i%):LOCALp%,s%:p%=Uu%!(4*i%-4):FORs%=0 TO10:Ub%!(4*s%)=2*Ur%(i%,s%):NEXT:PROCcY(Yo,p%,Ub%,0,0,0,0):ENDPROC
6480DEFPROCVr(w%,i%,k%):CASEw% OF
6500WHENXm%:IFi%=1 ANDk%=13 THEN
6510Vf%=TRUE:cZ%=17:PROCZo:IFaq% THENPROCad(Vn%):PROCad(Vo%)
6530ELSE:PROCca(k%)
6550ENDIF
6560WHENXp%:IFi%=1 ANDk%=13 THEN
6570Vf%=TRUE:cZ%=16:PROCZo:IFaq% THENPROCad(Vn%):PROCad(Vo%)
6590ELSE:PROCca(k%)
6610ENDIF
6620WHENYV%:IFi%=1 ANDk%=13 THENPROCZs(w%,4,1)ELSEPROCca(k%)
6630OTHERWISE:PROCca(k%)
6650ENDCASE:ENDPROC
6680DEFPROCca(k%):SYS&400DC,k%:ENDPROC
6700DEFPROCam(w%,i%):SYS&400D2,w%,i%,,,40,-1:ENDPROC
6710DEFPROCaw:SYS&400D2,-1,-1,,,40,-1:ENDPROC
6730DEFPROCal(w%,i%,cb%,cc,cd,ce,cf%,cg%):LOCALv$,v,@%:IFcd=ce THEN
6760v=cc
6770ELSE:v=EVAL(FNs(cb%))+cc:IFv<cd THENv=cd
6800IFv>ce THENv=ce
6810ENDIF:@%=&20000+256*cf%+cg%:IFv<>0 THENv$=LEFT$(STR$(v+(0.1^(cf%+3))),cg%)ELSEv$=STR$(0)
6840IFINSTR(v$,".") THENv$=LEFT$(v$,INSTR(v$,".")-1)
6850$cb%=v$:PROCZc(w%,i%):ENDPROC
6880DEFPROCaV(Vb%):IFVb%=4 ANDac% THENERROR1,"You can only alter the guide marks with the grid turned off."
6900IFVb%=5 AND NOTat% THENERROR1,"You can only alter the group of the knots when the knots are being shown."
6910IFYd%>0 ANDYd%<20 THENPROCWu(Yu%,Yd%-1,0)
6920Yd%=Vb%:IFYd%>0 ANDYd%<20 THENPROCWu(Yu%,Yd%-1,1)
6940ENDPROC
6960DEFPROCVq(b%):LOCALx%,y%,z,ch,w%,ci,cj,p%,ck%,cl%,ZU%,cm%,cn%:SYS&400CF,,b%:x%=b%!0:y%=b%!4:CASEWa% OF
7000WHEN25:b%!20=b%!12:b%!24=b%!16:b%!28=b%!0:b%!32=b%!4:b%!12=0:b%!16=1:b%!36=40000:b%!40=&1000:b%!0=60:$(b%+44)=FNs(Xv%):SYS&400E7,17,b%,b%!20,b%!24
7040WHEN2,3,4,5:PROCco(cp%,cq%,Yc%,Yb%):Vc%=FALSE:cm%=3:IF NOTYb% THEN
7070IFYc%=0 THENcm%=1ELSEcm%=2
7080ENDIF:PROCcr(Ya%,cm%):IFYb% THEN
7110p%=Uk%+8+48*Ya%:p%!8=cp%:p%!12=cq%
7130ELSE:p%=Uk%+8+48*Ya%+8*Yc%
7150ENDIF:p%!0=cp%:p%!4=cq%:XU%=0:PROCcr(Ya%,cm%):SYS&400CF,,b%:IFb%!12=Vn% ORb%!12=Vo% THENVd%=TRUE
7200WHEN7,8:IFWa%=7 THENw%=Vn%:z=WjELSEw%=Vo%:z=Wk
7210IFb%!12<>w% THENERROR1,"Please keep inside window."
7220IFx%<cp% THENSWAPx%,cp%
7230IFy%<cq% THENSWAPy%,cq%
7240b%!0=w%:SYS&400CB,,b%:x%=(x%-b%!4+b%!20)/z:y%=(y%-b%!16+b%!24)/z:ck%=(cp%-b%!4+b%!20)/z:cl%=(cq%-b%!16+b%!24)/z:PROCcs(Wa%-6,ck%/bc%,cl%/be%,x%/bc%,y%/be%)
7280WHEN10,11:IFWa%=10 THENw%=Vn%:z=WjELSEw%=Vo%:z=Wk
7290ch=z:IFb%!12<>w% THENERROR1,"Please keep inside window."
7310IFx%<cp% THENSWAPx%,cp%
7320IFy%<cq% THENSWAPy%,cq%
7330x%=ABS(x%-cp%):y%=ABS(y%-cq%):IFx%=0 ORy%=0 THENERROR1,"You can't enlarge an area with no width/height."
7350b%!0=w%:SYS&400CB,,b%:cp%-=b%!4-b%!20:cq%-=b%!16-b%!24:cp%=cp%/ch:cq%=cq%/ch:ci=z*ABS((b%!4-b%!12)/x%):cj=z*ABS((b%!8-b%!16)/y%):IFci>cj THENz=cjELSEz=ci
7400IFz<0.1 ORz>10 THENERROR1,"Illegal scale factor."
7410z=INT(z*100)/100:PROCZX(w%,ct%*z,cu%*z):b%!0=w%:SYS&400CB,,b%:b%!20=cp%*z:b%!24=cq%*z-b%!8+b%!16:SYS&400C5,,b%:IFWa%=10 THENWj=zELSEWk=z
7470PROCcv:PROCad(w%):PROCaV(0)
7490WHEN15:b%!0=Vl%:SYS&400CB,,b%:Ut%!(4*cq%)=x%-(b%!4-b%!20)-256:SYS&400D1,Vl%,256,160,1280,224:PROCVm
7530ENDCASE:Wa%=0:XU%=0:Vc%=FALSE:ENDPROC
7570DEFPROCaf(w%,i%,cw%):LOCALcx%,cy%,cz%,dU%,dV$,dW%,dX%,dY%:cz%=w%:dU%=i%:dY%=64:CASEcw% OF
7610WHEN2,3,4,5:cx%=w%:cy%=i%:IFcw%=2 ORcw%=3 THENw%=Vn%ELSEw%=Vo%
7630Uy%!0=w%:SYS&400CB,,Uy%:b%!24=b%!4:b%!28=b%!8:b%!32=b%!12:b%!36=b%!16:b%!8=cx%:b%!12=cy%:b%!16=cx%:b%!20=cy%:b%!4=7
7660WHEN7,8:IFcw%=7 THENb%!0=Vn%ELSEb%!0=Vo%
7670SYS&400CB,,b%:b%!24=b%!4:b%!28=b%!8:b%!32=b%!12:b%!36=b%!16:b%!8=cz%:b%!12=dU%:b%!16=cz%:b%!20=dU%:b%!4=6:cp%=cz%:cq%=dU%
7720WHEN10,11:IFcw%=10 THENb%!0=Vn%ELSEb%!0=Vo%
7730SYS&400CB,,b%:b%!24=b%!4:b%!28=b%!8:b%!32=b%!12:b%!36=b%!16:b%!8=cz%:b%!12=dU%:b%!16=cz%:b%!20=dU%:b%!4=6:cp%=cz%:cq%=dU%
7780WHEN15:Uy%!0=Vl%:SYS&400CB,,Uy%:dZ%=Uy%!4-Uy%!20+256:SYS&400CF,,Uy%:cx%=Uy%!0-dZ%:cy%=Uy%!4:cx%=FNcY(Yn,cx%,Ut%,Xz%,0,0,0):IFcx%=0 THENENDPROC
7830dW%=Ut%!(4*cx%-4):dX%=Ut%!(4*cx%+4):IFcx%=1 THENdW%=-3
7850IFcx%=Xz% THENdX%=1027
7860b%!4=7:b%!8=0:b%!12=0:b%!16=0:b%!20=0:b%!24=dZ%+dW%+3:b%!28=cy%:b%!32=dZ%+dX%-3:b%!36=cy%:cq%=cx%:cp%=Ut%!(4*cx%):Vc%=TRUE:XU%=2
7900WHEN25:Wb%=25:b%!0=w%:SYS&400CB,,b%:cx%=b%!4-b%!20:cy%=b%!16-b%!24:b%!4=i%:SYS&400CE,,b%:b%!8+=cx%:b%!12+=cy%:b%!16+=cx%:b%!20+=cy%:b%!24=0:b%!28=0:b%!32=Vv%:b%!36=Vw%:b%!4=5:cz%=b%!8:dU%=b%!12:dV$="directory":dY%=68
7980ENDCASE:Wa%=cw%:IFcw%>20 ANDWd% THEN
8010Ub%!0=cz%:Ub%!4=dU%:Ub%!8=cz%+dY%:Ub%!12=dU%+64:Ub%!16=-32000:Ub%!20=-32000:Ub%!24=32000:Ub%!28=32000:SYS&42400,&C5,1,dV$,Ub%
8040ELSE:SYS&400D0,,b%
8060ENDIF:IFcw%=15 THENPROCda
8080ENDPROC
8100DEFPROCan:LOCALdb,w%:db=VAL(FNs(Wg%))/100:IFdb<0.1 ORdb>10 THENERROR1,"Illegal scale factor"
8140CASEWm% OF
8150WHEN1:w%=Vn%:Wj=db:PROCZX(w%,ct%*db,cu%*db)
8160WHEN2:w%=Vo%:Wk=db:PROCZX(w%,ct%*db,cu%*db)
8170WHEN3:w%=aZ%:Wl=db:PROCZX(w%,dc%*db,dd%*db)
8180ENDCASE:PROCcv:PROCZW(w%):PROCad(w%):ENDPROC
8240DEFPROCab:LOCALde$,df$,dg%,t%:de$="Frame "+STR$dh%+" of "+STR$di%+". Line "+STR$(dj%+1)+" of "+STR$(dk%-1)+".":dg%=100*(dh%-1+dj%/(dk%-1))/di%:SYS66 TOt%:t%=(t%-dl%)/100:df$=STR$dg%+"% completed (in "+STR$t%+" seconds).":$Xs%=de$:$Xu%=df$:PROCZc(Xt%,0):PROCZc(Xt%,1):ENDPROC
8340DEFPROCda:SYS&400E9,36,1,"ptr_time",2,14,6:Wz%=TRUE:ENDPROC
8390DEFPROCVm:SYS&400E9,36,1,"ptr_default",1,0,0:Wz%=FALSE:ENDPROC
8440DEFPROCVh:LOCALdZ%,x%,y%,ZZ%:b%!0=Vl%:SYS&400CB,,b%:dZ%=b%!4-b%!20:SYS&400CF,,b%:x%=b%!0:y%=b%!4:dZ%=x%-dZ%-256:ZZ%=FNcY(Yn,dZ%,Ut%,Xz%,0,0,0):IFWz% THEN
8530IFb%!16<>12 ORZZ%=0 THENPROCVm
8540ELSE:IFb%!16=12 ANDZZ%>0 THENPROCda
8560ENDIF:ENDPROC
8590DEFPROCYi:LOCALdm%,dn%,x%,y%,z,cz%,dU%,do%:SYS&400CF,,b%:dm%=b%!12:x%=b%!0:y%=b%!4:CASEdm% OF
8640WHENVn%:do%=0:z=Wj
8650WHENVo%:do%=1:z=Wk
8660OTHERWISE:ENDPROC
8680ENDCASE:b%!0=dm%:SYS&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):dn%=FNcY(Yi,Uk%,dp%,dq%,bf%,do%,Wt%):IFdn%=0 THENENDPROC
8740dm%=dn%!16:IFWt%=2 THENdr%=dm% MODds%:dt%=dm% DIVds%
8760ENDPROC
8780DEFPROCVe(du%):LOCALdm%,do%,z,cz%,dU%,dp%,dq%,dn%,x%,y%:IFdu% AND1 THEN
8810SYS&400CF,,b%:dm%=b%!12:x%=b%!0:y%=b%!4:CASEdm% OF
8830WHENVn%:do%=0:z=Wj
8840WHENVo%:do%=1:z=Wk
8850OTHERWISE:ENDPROC
8870ENDCASE:b%!0=dm%:SYS&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):dn%=FNcY(Yi,Uk%,dp%,dq%,bf%,do%,Wt%):IFdn%=0 THENENDPROC
8930PROCdv(Vn%,dn%,Wj,du%,Wv%,Ww%):PROCdv(Vo%,dn%+8,Wk,du%,Wx%,Wy%):Wv%=dn%!0:Ww%=dn%!4:Wx%=dn%!8:Wy%=dn%!12:dm%=dn%!16
8970ELSE:Ub%!0=-2:Ub%!4=-2:PROCdv(Vn%,Ub%,Wj,2,Wv%,Ww%):Ub%!0=-2:Ub%!4=-2:PROCdv(Vo%,Ub%,Wk,2,Wx%,Wy%):Wv%=-1:Ww%=-1:Wx%=-1:Wy%=-1
9030ENDIF:ENDPROC
9060DEFPROCdv(w%,dn%,z,f%,dw%,dx%):LOCALcm%,dy%,dz%,x%,y%:x%=dn%!0:y%=dn%!4:IFx%=dw% ANDy%=dx% THENENDPROC
9100b%!0=w%:b%!4=0:b%!8=0:b%!12=32000:b%!16=32000:SYS&400C9,,b% TOcm%:dy%=b%!4-b%!20:dz%=b%!16-b%!24:WHILEcm%:IFf% AND1 THENPROCeU(dy%,dz%,x%,y%,z)
9150IFf% AND2 THENPROCeU(dy%,dz%,dw%,dx%,z)
9160SYS&400CA,,b% TOcm%:ENDWHILE:ENDPROC
9220DEFPROCeV:eW%=1024*VAL(FNs(Xq%)):eX%=1024*VAL(FNs(Xr%)):ENDPROC
9270DEFPROCcY(eY%,A%,B%,C%,D%,E%,F%):CALL(Ul%+eY%):ENDPROC
9280DEFFNcY(eY%,A%,B%,C%,D%,E%,F%):eY%+=Ul%:=USReY%
9320DEFPROCak(x%,y%,w%,Zt%):LOCALp%,do%,z,dp%,dq%,cz%,dU%,eZ%:CASEw% OF
9350WHENVn%:do%=0:z=Wj
9360WHENVo%:do%=1:z=Wk
9370ENDCASE:b%!0=w%:SYS&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=FNcY(Ye,Uk%,dp%,dq%,bf%,do%,0):IFp%=-1 THENERROR1,"Can't find a point."
9430eZ%=Uk%+8+48*p%:IFZt% AND1 THEN
9450IFeZ%?30<>255 THENERROR1,"You can't edit the path for a knot that has no path!!"
9460PROCZX(Yy%,z*ct%,z*cu%):bd=z:XV%=p%:ea%=w%:PROCZW(Yy%)
9490ELSE:CASEeZ%?30 OF
9510WHEN0,1,2,3,4,5,6,7:eZ%?31=eZ%?30:eZ%?30=255
9520WHEN255:eZ%?30=eZ%?31
9530ENDCASE:PROCeb(p%,3)
9550ENDIF:ENDPROC
9580DEFPROCVc:LOCALx%,y%,w%,z,dw%,dx%:SYS&400CF,,b%:x%=b%!0:y%=b%!4:w%=b%!12:CASEXU% OF
9630WHEN1:IFYc%=0 THENw%=Vn%:z=WjELSEw%=Vo%:z=Wk
9640b%!0=w%:SYS&400CB,,b%:dw%=cp%:dx%=cq%:cp%=(x%-b%!4+b%!20)/(z*bc%):cq%=(y%-b%!16+b%!24)/(z*be%):IFdw%=cp% ANDdx%=cq% THENENDPROC
9680PROCco(dw%,dx%,Yc%,Yb%):PROCco(cp%,cq%,Yc%,Yb%):PROCVe(3)
9710WHEN2:b%!0=Vl%:SYS&400CB,,b%:x%-=b%!4-b%!20+256:IFx%<>cp% THENPROCec(cp%,x%):cp%=x%
9740PROCda
9750ENDCASE:ENDPROC
9780DEFPROCec(dw%,ed%):LOCALcm%,x%,y%:b%!0=Vl%:b%!4=0:b%!8=0:b%!12=30000:b%!16=30000:SYS&400C9,,b% TOcm%:x%=b%!4-b%!20+256:y%=b%!16-b%!24+164:WHILEcm%:SYS&400E6,1:MOVEx%+dw%,y%:DRAWBY 0,56:SYS&400E6,11:MOVEx%+ed%,y%:DRAWBY 0,56:SYS&400CA,,b% TOcm%:ENDWHILE:ENDPROC
9920DEFPROCco(x%,y%,ee%,ef%):LOCALz:IFee%=0 THEN
9950PROCeg(Vn%,Wj,x%,y%,0):IFef% THENPROCeg(Vo%,Wk,x%,y%,8)
9970ELSE:PROCeg(Vo%,Wk,x%,y%,8):IFef% THENPROCeg(Vn%,Wj,x%,y%,0)
10000ENDIF:ENDPROC
10030DEFPROCeg(w%,z,x%,y%,cb%):LOCALcm%,dy%,dz%,ci,cj:b%!0=w%:b%!4=0:b%!8=0:b%!12=32000:b%!16=32000:SYS&400C9,,b% TOcm%:dy%=b%!4-b%!20:dz%=b%!16-b%!24:ci=z*bc%:cj=z*be%:WHILEcm%:SYS&400E6,79:PROCeh(ei%-1,ej%,x%,y%,dy%,dz%,ci,cj,cb%):PROCeh(ei%+1,ej%,x%,y%,dy%,dz%,ci,cj,cb%)
10130PROCeh(ei%,ej%-1,x%,y%,dy%,dz%,ci,cj,cb%):PROCeh(ei%,ej%+1,x%,y%,dy%,dz%,ci,cj,cb%):SYS&400CA,,b% TOcm%:ENDWHILE:ENDPROC
10190DEFPROCeh(ek%,el%,x%,y%,dy%,dz%,ci,cj,cb%):LOCALp%:IFek%<0 ORel%<0 ORek%>ds%-1 ORel%>dk%-1 THENENDPROC
10220p%=Uk%+8+48*(ek%+ds%*el%)+cb%:MOVEx%*ci+dy%,y%*cj+dz%:DRAWp%!0*ci+dy%,p%!4*cj+dz%:ENDPROC
10260DEFPROCah(do%,ef%,cw%,x%,y%):LOCALp%,w%,z,dp%,dq%,cz%,dU%:CASEdo% OF
10290WHEN0:w%=Vn%:z=Wj
10300WHEN1:w%=Vo%:z=Wk
10310ENDCASE:b%!0=w%:SYS&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=FNcY(Ye,Uk%,dp%,dq%,bf%,do%,0):IFp%=-1 THENERROR1,"Can't find a point."
10370Ya%=p%:PROCaf(x%,y%,cw%):ei%=p% MODds%:ej%=p% DIVds%:cp%=Uk%!(8+48*p%+8*do%):cq%=Uk%!(8+48*p%+4+8*do%):Vc%=TRUE:XU%=1:Yc%=do%:Yb%=ef%:PROCco(cp%,cq%,Yc%,Yb%):ENDPROC
10470DEFPROCem(i%):LOCALx%,y%,en%,p%:p%=Uk%+8+8*(i%-1):FORy%=0 TOdk%-1:en%=p%+48*y%*ds%:en%!0=0:en%=p%+48*(y%*ds%+ds%-1):en%!0=Zf%:NEXT:FORx%=0 TOds%-1:en%=p%+48*x%:en%!4=0:en%=p%+48*(x%+(dk%-1)*ds%):en%!4=Zg%:NEXT:ENDPROC
10640DEFPROCai(x%,y%,eo%,w%):LOCALcz%,dU%,z,do%,dp%,dq%,p%,eZ%,ep%,bm%:CASEw% OF
10670WHENVn%:z=Wj:do%=0
10680WHENVo%:z=Wk:do%=1
10690ENDCASE:b%!0=w%:SYS&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=FNcY(Ye,Uk%,dp%,dq%,bf%,do%,0):IFp%=-1 THENENDPROC
10750dp%=p% MODds%:dq%=p% DIVds%:eZ%=Uk%+8+48*p%+29:ep%=(eZ%?0)AND3:IFeo% THENbm%=(ep%+1)AND3ELSEbm%=(ep%+3)AND3
10790IFdp%=0 THENbm%=(bm% AND254)
10800IFdq%=0 THENbm%=(bm% AND253)
10810?eZ%=((?eZ%)AND252)ORbm%:PROCeq(p%,3):ENDPROC
10850DEFPROCaj(x%,y%,eo%,w%):LOCALcz%,dU%,z,do%,dp%,dq%,p%,eZ%,er%:CASEw% OF
10880WHENVn%:z=Wj:do%=0
10890WHENVo%:z=Wk:do%=1
10900ENDCASE:b%!0=w%:SYS&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=FNcY(Ye,Uk%,dp%,dq%,bf%,do%,0):IFp%=-1 THENENDPROC
10960dp%=p% MODds%:dq%=p% DIVds%:eZ%=Uk%+8+48*p%:IFeZ%?30=255 THENERROR1,"That knot doesn't belong to a group."
10990er%=(eZ%?30)AND15:IFeo% THENer%+=1ELSEer%-=1
11010IFer%<0 THENer%=7
11020IFer%>7 THENer%=0
11030eZ%?30=((eZ%?30)AND NOT15)ORer%:PROCeb(p%,3):ENDPROC
11070DEFPROCYp:PROCes(1):PROCes(2):ENDPROC
11090DEFPROCet(er%):LOCALx%,y%,en%,c%:c%=0:FORy%=0 TOdk%-1:FORx%=0 TOds%-1:en%=Uk%+48*c%+8:en%?30=er%:c%+=1:NEXT:NEXT:PROCad(Vn%):PROCad(Vo%):ENDPROC
11220DEFPROCes(i%):LOCALx%,y%,c%,en%:x%=(1<<18)*Zf%/(ds%-1):y%=(1<<18)*Zg%/(dk%-1):PROCcY(Yp,Uk%,ds%,dk%,x%,y%,i%-1):Uk%!0=ds%:Uk%!4=dk%:IFi%=0 THEN
11290PROCad(Vn%)
11300ELSE:PROCad(Vo%)
11320ENDIF:ac%=TRUE:PROCWu(Yu%,1,TRUE):ENDPROC
11360DEFPROCeu(ee%,ev%):LOCALp%,w%,n%:CASEev% OF
11390WHEN1:w%=Vn%
11400WHEN2:w%=Vo%
11410ENDCASE:ee%=ee%*8:ev%=ev%*8:FORn%=0 TOds%*dk%-1:p%=Uk%+48*n%:p%!ev%=p%!ee%:p%!(ev%+4)=p%!(ee%+4):NEXT:PROCad(w%):ENDPROC
11510DEFFNeu:LOCALp%,s%,i%:s%=1+(8+48*ds%*dk%)/1024:p%=FNew(s%*1024):IFp%<=0ERROR1,"No room for temporary workspace "+FNex(s%*1024)
11560FORi%=0 TO8+48*ds%*dk%STEP4:p%!i%=Uk%!i%:NEXT:=p%
11590DEFPROCey(ez%):LOCALp%,x%,y%,fU%,fV%,d%,cb%:IFdk%>=30 THENERROR1,"You can't have more than 30 rows."
11620IFez%=0ERROR1,"You can't insert a row below the bottom row."
11630PROCUW:p%=FNeu:fV%=8:fU%=8:d%=48*ds%:FORy%=0 TOdk%-1:PROCfW(100*y%/(dk%-1)):IFy%=ez%-1 THEN
11690FORx%=0 TOds%-1:FORcb%=0 TO3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%+48*x%)+p%!(fV%+d%+4*cb%+48*x%))/2:NEXT:FORcb%=4 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48:NEXT
11780ENDIF:FORx%=0 TOds%-1:FORcb%=0 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fV%+=48:fU%+=48:NEXT:NEXT:PROCVX:dk%+=1:Uk%!4=dk%:PROCfX(p%):PROCad(Vn%):PROCad(Vo%):ENDPROC
11920DEFPROCfY(fZ%):LOCALp%,fV%,fU%,cb%,x%,y%:IFds%>=30 THENERROR1,"You can't have more than 30 coloum."
11950IFfZ%=0ERROR1,"You can't insert a coloum to the left of the first coloum."
11960PROCUW:p%=FNeu:fV%=8:fU%=8:FORy%=0 TOdk%-1:PROCfW(100*y%/(dk%-1)):FORx%=0 TOds%-1:IFx%=fZ%-1 THEN
12030FORcb%=0 TO3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%)+p%!(fV%+4*cb%+48))/2:NEXT:FORcb%=4 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48
12100ENDIF:FORcb%=0 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48:fV%+=48:NEXT:NEXT:PROCVX:ds%+=1:Uk%!0=ds%:PROCfX(p%):PROCad(Vn%):PROCad(Vo%):ENDPROC
12230DEFPROCfa:LOCALp%,x%,y%,cb%,fV%,fU%,d%:IFdk%>=15 THENERROR1,"You can't have more than 30 rows."
12260p%=FNeu:PROCUW:fV%=8:fU%=8:d%=-48*ds%:FORy%=0 TOdk%-1:PROCfW(100*y%/(dk%-1)):FORx%=0 TOds%-1:FORcb%=0 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48:fV%+=48:NEXT:IFy%<>dk%-1 THEN
12360FORx%=0 TOds%-1:FORcb%=0 TO3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%+48*x%)+p%!(fV%+4*cb%+d%+48*x%))/2:NEXT:FORcb%=4 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48:NEXT
12430ENDIF:NEXT:PROCVX:dk%=2*dk%-1:Uk%!4=dk%:PROCfX(p%):PROCad(Vn%):PROCad(Vo%):ENDPROC
12510DEFPROCfb:LOCALp%,x%,y%,cb%,fU%,fV%:IFds%>=15 THENERROR1,"You can't have more than 30 coloums."
12540p%=FNeu:PROCUW:fU%=8:fV%=8:FORy%=0 TOdk%-1:PROCfW(100*y%/(dk%-1)):FORx%=0 TOds%-1:FORcb%=0 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48:fV%+=48:IFx%<>ds%-1 THEN
12650FORcb%=0 TO3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%)+p%!(fV%+4*cb%-48))/2:NEXT:FORcb%=4 TO7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):NEXT:fU%+=48
12720ENDIF:NEXT:NEXT:PROCVX:ds%=2*ds%-1:Uk%!0=ds%:PROCfX(p%):PROCad(Vn%):PROCad(Vo%):ENDPROC
12810DEFPROCfc(do%,fd%,Zx%,ZU%,i%):LOCALp%,w%,x%,y%,cb%,ce%:ce%=Zf%-1:IFi%=1 THENce%=Zg%-1
12840CASEdo% OF
12850WHEN1:w%=Vn%:cb%=0
12860WHEN2:w%=Vo%:cb%=8
12870ENDCASE:IFi%=0 THEN
12890FORy%=0 TOdk%-1:p%=Uk%+8+cb%+48*(ds%*y%+fd%):p%!0=Zx%+p%!0:IFp%!0>ce% THENp%!0=ce
12920IFp%!0<0 THENp%!0=0
12930NEXT
12940ELSE:FORx%=0 TOds%-1:p%=Uk%+8+cb%+48*(ds%*fd%+x%):p%!4=ZU%+p%!4:IFp%!4>ce% THENp%!4=ce%
12980IFp%!4<0 THENp%!0=0
12990NEXT
13000ENDIF:PROCad(w%):ENDPROC
13040DEFPROCcs(i%,fe%,ff%,fg%,fh%):LOCALcb%,w%,dW%,fi%,dX%,fj%,p%,Zx,ZU:CASEi% OF
13070WHEN1:w%=Vn%:cb%=Uk%+8
13080WHEN2:w%=Vo%:cb%=Uk%+16
13090ENDCASE:PROCUW:dW%=100000:fi%=100000:dX%=-100000:fj%=-100000:PROCfW(0):FORc%=0 TOds%*dk%-1:p%=cb%+48*c%:IFp%!0>dX% THENdX%=p%!0
13170IFp%!4>fj% THENfj%=p%!4
13180IFp%!0<dW% THENdW%=p%!0
13190IFp%!4<fi% THENfi%=p%!4
13200NEXT:Zx=(fg%-fe%)/(dX%-dW%):ZU=(fh%-ff%)/(fj%-fi%):PROCfW(50):FORc%=0 TOds%*dk%-1:p%=cb%+48*c%:p%!0=(p%!0-dW%)*Zx+fe%:p%!4=(p%!4-fi%)*ZU+ff%:NEXT:PROCVX:PROCad(w%):ENDPROC
13320DEFPROCfk:LOCALp%,x%,y%:p%=Uk%+8:FORy%=0 TOdk%-1:FORx%=0 TOds%-1:p%!32=0:p%!36=0:p%!40=0:p%!44=0:p%+=48:NEXT:NEXT:ENDPROC
13430DEFPROCfl(c%,r%,do%):LOCALp%,y%,x%,w%,i%:CASEdo% OF
13460WHEN1:w%=Vn%:i%=0
13470WHEN2:w%=Vo%:i%=8
13480ENDCASE:p%=Uk%+8+i%+48*(c%+ds%*r%):y%=p%!4:FORx%=0 TOds%-1:p%=Uk%+8+i%+48*(x%+ds%*r%):p%!4=y%:NEXT:PROCad(w%):ENDPROC
13580DEFPROCfm(c%,r%,do%):LOCALp%,y%,x%,w%,i%:CASEdo% OF
13610WHEN1:w%=Vn%:i%=0
13620WHEN2:w%=Vo%:i%=8
13630ENDCASE:p%=Uk%+8+i%+48*(c%+ds%*r%):x%=p%!0:FORy%=0 TOdk%-1:p%=Uk%+8+i%+48*(c%+ds%*y%):p%!0=x%:NEXT:PROCad(w%):ENDPROC
13730DEFPROCfn(fo%):LOCALx%,y%,r%,c%,eZ%,p%:c%=fo% MODds%:r%=fo% DIVds%:eZ%=Uk%+8+48*fo%:FORy%=r%-1 TOr%+1:FORx%=c%-1 TOc%+1:IFx%>=0 ANDx%<ds% ANDy%>=0 ANDy%<ds% THEN
13810p%=Uk%+8+48*(x%+y%*ds%):IFp%?30=255 THENp%!32=eZ%!32:p%!36=eZ%!36:p%!40=eZ%!40:p%!44=eZ%!44
13830ENDIF:NEXT:NEXT:IFXZ% THENPROCad(Yy%)
13870ENDPROC
13890DEFPROCfp(fo%):LOCALx%,y%,c%,r%,n%,fg%,fq%,fh%,fr%,p%:PROCbg:c%=fo% MODds%:r%=fo% DIVds%:n%=0:FORy%=r%-1 TOr%+1:FORx%=c%-1 TOc%+1:IFx%>=0 ANDx%<ds% ANDy%>=0 ANDy%<ds% THEN
13980p%=Uk%+8+48*(x%+y%*ds%):IFp%?30=255 ANDx%<>c% ANDy%<>r% THEN
14000n%+=1:fg%+=p%!32:fh%+=p%!36:fq%+=p%!40:fr%+=p%!44
14030ENDIF
14040ENDIF:NEXT:NEXT:IFn%>0 THEN
14080p%=Uk%+8+48*fo%:p%!32=fg%/n%:p%!36=fh%/n%:p%!40=fq%/n%:p%!44=fr%/n%
14110ENDIF:PROCbg:ENDPROC
14170DEFPROCbW(fs%,ft%,fu%,t,fv$,fw%):LOCALp%,t%,cm%:PROCeV:IFWs%>=128 THENERROR1,"No room for any more morph tasks."
14210IFfs% AND(t>1 ORt<0) THENERROR1,"Time is out of range."
14220IF NOTfs% AND(t<1 ORt>Xz%) THENERROR1,"The frame number is illegal."
14230p%=Un%+8*Ws%:Ws%+=1:CASEfu% OF
14250WHEN0:fx%=4+4*((Zf%-1)DIV4):fy%=fx%*Zg%+60:fz%=TRUE
14270WHEN1:fx%=4+4*((Zf%-1)DIV4):fy%=fx%*Zg%+2108:fz%=TRUE
14290WHEN8:fx%=4+4*((Zf%-1)DIV8):fy%=fx%*Zg%+188:fz%=TRUE
14310ENDCASE:cZ%=fu%:IFfs% THENt%=1024*tELSEt%=t
14340IFt%=1024 THENt%=1023
14350cm%=0:IFfs% THENcm%=cm% OR(1<<10)
14370p%!0=t% ORcm%:p%!4=0:PROCVk(Xd%):PROCVk(Xj%):PROCVk(Yv%):PROCZo:PROCVk(aZ%):PROCVk(WW%):IFaq% THENPROCad(Vn%):PROCad(Vo%)
14420Vf%=TRUE:ENDPROC
14450DEFPROCVg:LOCALcm%,fs%,t%,gU%,t,fv$,gV$,gW%,d%,gX%,h%,i%:LOCALce%,gY%,gZ%,ga%,gb%,y%,p%,gc%,gd%,t$:IFWs%<=0 THENENDPROC
14490IF NOTaq% THEN
14500IFZr% THENPROCZr(1)ELSEPROCUW
14510ENDIF:IFUp%(3)<>-1 THENPROCfX(Up%(3))
14530UZ%?28=ge%+cZ%*16:UZ%?29=as%:IFYY% THENUZ%?29=(UZ%?29)OR%10000
14560IFYZ% THENUZ%?29=(UZ%?29)OR%10000000
14570UZ%!24=fx%:di%=Ws%:gf%=Ws%:dh%=0:SYS66 TOdl%:REPEAT:Ws%-=1:dh%+=1:gd%=TIME:IF NOT(aq% ORZr%) THENPROCfW(100*(gf%-Ws%-1)/gf%)
14650cm%=Un%!(8*Ws%):IF(cm% AND(1<<10))<>0 THENfs%=TRUEELSEfs%=FALSE
14670t%=(cm% AND1023):IFfs% THENt=t%/1024ELSEgU%=t%:t%=Ut%!(4*t%)
14690UZ%!108=t%:PROCcY(Yf,Uk%,t%,Uu%,UZ%,0,0):CASEcZ% OF
14720WHEN0:gX%=60
14730WHEN1:gX%=2108
14740WHEN2:gX%=32
14750WHEN8:gX%=188
14760WHEN9:gX%=16
14770WHEN10:gX%=28
14780WHEN11:gX%=40
14790ENDCASE:IFUp%(3)=-1 THEN
14820gc%=FNew(fy%):IFgc%<=0 THENERROR1,"No room for morphed image. You can either close other applications or use the option 'Swap output file'."
14840Up%(3)=gc%
14850ENDIF:CASEcZ% OF
14870WHEN0:Up$(3)="FRAME":gc%!0=fy%:gc%!4=0:gc%!8=16:gc%!12=16:SYS&2E,256+15,gc%,"frame",0,Zf%,Zg%,bx%
14900WHEN1:Up$(3)="FRAME":gc%!0=fy%:gc%!4=0:gc%!8=16:gc%!12=16:SYS&2E,256+15,gc%,"frame",0,Zf%,Zg%,bx%:PROCcY(Yl,gc%+60,fx%*Zg%,gc%+2108,0,0,0):gc%!48=2048+gc%!48:gc%!52=gc%!48:gc%!16=fx%*Zg%+2108:gc%!12=gc%!16+16:FORd%=0 TO255:Ub%?0=0:Ub%?1=d%:Ub%?2=d%:Ub%?3=d%
14990gc%!(60+8*d%)=!Ub%:gc%!(60+8*d%+4)=!Ub%:NEXT
15010WHEN8:gc%!0=fy%:gc%!4=0:gc%!8=16:gc%!12=16:SYS&2E,256+15,gc%,"frame",1,Zf%,Zg%,FNgg(bx%):Up$(3)="FRAME":FORd%=0 TO15:Ub%?0=0:Ub%?1=d%*16+15:Ub%?2=d%*16+15:Ub%?3=d%*16+15:gc%!(60+8*d%)=!Ub%:gc%!(60+8*d%+4)=!Ub%:NEXT
15080WHEN9,10,11
15090ENDCASE:UZ%!8=gc%+gX%:IFgh% THEN
15130gY%=-1:gZ%=-1:FORy%=0 TOdk%-2:PROCcY(Yj,Uk%,y%,UZ%,0,0,0):d%=UZ%!204-UZ%!200:IFd%>gY% THENgY%=d%
15180PROCcY(Yj,Uk%,y%,UZ%,0,1,0):d%=UZ%!204-UZ%!200:IFd%>gZ% THENgZ%=d%
15210NEXT:ga%=gi%*(gY%+1):gb%=gi%*(gZ%+1):p%=FNew(ga%):IFp%<=0 THENERROR1,"No room for morph-image "+FNex(ga%+gb%)
15250Up%(5)=p%:p%=FNew(gb%):IFp%<=0 THENPROCfX(Up%(5)):ERROR1,"No room for morph-image "+FNex(gb%)
15270Up%(6)=p%
15280ELSE:ga%=0:gb%=0
15310ENDIF:IFgh% THEN
15340PROCgj(fv$,gX%,gc%,FALSE,TRUE,Up%(5),Up%(6),aq%)
15350ELSE:IFaq% THEN
15370PROCgj(fv$,gX%,gc%,FALSE,FALSE,0,0,TRUE)
15380ELSE:PROCcY(Yg,Uk%,t%,UZ%,0,0,0)
15400ENDIF
15410ENDIF:IFgh% THENPROCfX(Up%(5)):PROCfX(Up%(6))
15430IF NOTaq% ANDINKEY(-133) ANDINKEY(-5) THENPROCZp:SYS6,21,0
15440gd%=TIME-gd%:IFaq% THEN
15460t$=STR$((INT(gd%/10))/10):IFINSTR(t$,".") THENt$=LEFT$(t$,INSTR(t$,".")+1)
15480$FNi(gk%,7)=t$
15490ENDIF:UNTILWs%=0:t$=STR$((INT(gd%/10))/10):IFINSTR(t$,".") THENt$=LEFT$(t$,INSTR(t$,".")+1)
15530$FNi(gk%,7)=t$:PROCZW(aZ%):PROCad(aZ%):Vf%=FALSE:IFaq% THEN
15570PROCad(Vn%):PROCad(Vo%)
15580ELSE:IFZr% THENPROCZr(0)ELSEPROCVX
15600ENDIF:PROCXt("Morphing completed.","Last frame took "+t$+" seconds.",""):ENDPROC
15640DEFPROCgl(gm$,ev%,gn%,ee%):LOCALh%:SYS&D,&C3,gm$ TOh%:SYS&C,3,h%,ev%,gn%,ee%:SYS&D,0,h%:ENDPROC
15710DEFPROCgj(go$,gp%,gq%,gr%,gs%,gt%,gu%,gv%):LOCALgw%,gx%,gy%,gz%,hU%,hV%,hW%:FORgw%=0 TOdk%-2:dj%=gw%:IFgv% AND NOTZr% THENPROCab
15750IFgs% THEN
15760PROCcY(Yj,Uk%,gw%,UZ%,0,0,0):gy%=UZ%!200:gz%=UZ%!204:hU%=gz%-gy%+1:PROCgl(Vn$,gt%,hU%*gi%,hX%+(Zg%-gz%-1)*gi%):UZ%!0=gt%-(Zg%-gz%-1)*gi%:IFge%=1 THENPROCcY(Yk,gt%,Ua%,hU%*gi%,0,0,0)
15820PROCcY(Yj,Uk%,gw%,UZ%,0,1,0):gy%=UZ%!200:gz%=UZ%!204:hU%=gz%-gy%+1:PROCgl(Vo$,gu%,hU%*gi%,hX%+(Zg%-gz%-1)*gi%):UZ%!4=gu%-(Zg%-gz%-1)*gi%:IFge%=1 THENPROCcY(Yk,gu%,Ua%,hU%*gi%,0,0,0)
15880ENDIF:IFgv% THEN
15900gx%=gw%*ds%:hW%=gw%*ds%+ds%-2:REPEAT:hV%=FNWU:CASEhV% OF
15940WHEN0,1:PROCcY(Ym,gx%,gx%+ds%,gx%+ds%+1,Uk%,UZ%,0):PROCcY(Ym,gx%,gx%+1,gx%+ds%+1,Uk%,UZ%,0):gx%+=1
15960WHEN2:PROCZp:Va%=TRUE:ENDPROC
15970WHEN3:PROCZp:ENDPROC
15980ENDCASE:UNTILgx%>hW%
16000ELSE:FORgx%=gw%*ds% TOgw%*ds%+ds%-2:PROCcY(Ym,gx%,gx%+ds%,gx%+ds%+1,Uk%,UZ%,0):PROCcY(Ym,gx%,gx%+1,gx%+ds%+1,Uk%,UZ%,0):NEXT
16050ENDIF:NEXT:ENDPROC
16090DEFPROCZp:Vf%=FALSE:PROCVk(aZ%):IFUp%(3)<>-1 THENPROCfX(Up%(3))
16130IFgh% THENPROCfX(Up%(5)):PROCfX(Up%(6))
16140Ws%=0:ENDPROC
16190DEFPROCaW:PROChY(1,1,Vf%):PROChY(1,2,Vf%):WX%=1:ENDPROC
16250DEFPROCae(do%):LOCALs%:Wm%=do%:CASEdo% OF
16290WHEN1:PROCal(Wh%,0,Wg%,100*Wj,1,1,0,4)
16300WHEN2:PROCal(Wh%,0,Wg%,100*Wk,1,1,0,4)
16310WHEN3:PROCal(Wh%,0,Wg%,100*Wl,1,1,0,4)
16320ENDCASE:$YU%=STR$Xz%:$Xn%=STR$Zf%+"x"+STR$Zg%:$Um%=STR$(ds%)+" x "+STR$(dk%):IFVf% THENs%=1ELSEs%=0
16370PROChY(2,6,1-s%):PROChY(2,1,s%):PROChY(2,2,s%):PROChY(2,3,s%):PROChY(2,4,s%):PROChY(2,5,s%):PROChY(3,2,s%):PROChY(3,3,s%):IFdo%=3 THENPROChY(2,1,1)
16430PROChY(7,1,Wt%<>2):PROChY(7,2,Wt%<>2):PROChY(4,2,gh%):PROChY(4,3,gh%):PROChY(8,2,Wt%<>2):PROChY(8,3,Wt%<>2):PROChY(7,5,Wt%<>2):PROChY(7,6,Wt%<>2):WX%=2:ENDPROC
16510DEFPROCau:PROChZ(6,0,ha%=0):PROChZ(6,1,ha%=7):PROChZ(6,2,ha%=8):PROChZ(6,3,ha%=9):PROChZ(6,4,ha%=10):PROChZ(6,5,ha%=11):PROChZ(6,6,ha%=12):PROChZ(6,7,ha%=13):PROChZ(6,8,ha%=14):PROChZ(6,9,ha%=15):PROChZ(6,10,ha%=71):WX%=3:ENDPROC
16590DEFPROCbX(t%):WX%=t%:ENDPROC
16630DEFPROCao:WX%=6:ENDPROC
16670DEFPROCbh:PROChZ(19,3,Xa%):PROChZ(19,4,XZ%):WX%=7:ENDPROC
16730DEFPROCWo:LOCALm$:hb%=UX%:hc%=UY%:PROChd(3,1,"Morpheus","Info|[Info],Options...|,Quit|"):m$="White|,Black|#07=,Dark blue|#08,Yellow|#79,Green|#7A,Red|#7B,Cream|#7C,Army green|#0D,Orange|#7E,Blue|#7F=,Invert|":PROChd(11,6,"Grid colour",m$)
16800m$="1|#08,2|#79|,3|#7A,4|#7B,5|#7C,6|#0D,7|#7E,8|#8F":PROChd(8,11,"Group",m$):PROChd(5,19,"Path tools","Straighten|=,Copy to neighbours|,Copy from neighbours|=,Show all||,Draw neighbours|")
16850m$="Sprite 8bpp|,Sprite 8bpp grey|,Clear 24bpp|=,Sprite 4bpp grey|,CMYK 32bpp|,P15 (15bpp RGB)|,P13 (15bpp YUV)|":PROChd(7,16,"Formats",m$):PROChd(4,3,"File","Info|[File],Save setup|,Options...|,Drop file|"):PROChd(1,10,"Grid size"," |(08GRD)")
16900PROChd(1,13,"Abort","Are you sure?|"):PROChd(5,15,"Interval","Regular|,Speed up|,Slow down|,Fast-Slow-Fast|,Slow-Fast-Slow|"):PROChd(4,17,"Move coloum","Left much|,Left little|=,Right much|,Right little|")
16930PROChd(4,18,"Move row","Up much|,Up little|=,Down much|,Down little|"):PROChd(3,14,"Frames","No. of frames|*[FrmN],Timing|[Fram]=,Intervals|>15<"):m$="1...|,2...|,3...|,4...|,5...|,6...|,7...|,8...|":PROChd(8,12,"Group",m$)
16970m$="10 x 10|,15 x 15|,20 x 20|,30 x 30|,50 x 50|,Custom|>10<":PROChd(6,9,"Grid size",m$):m$="Double rows|,Double coloums|=,Insert row|,Insert coloum|":PROChd(4,8,"Adjust grid",m$)
17010m$="Tidy border|,Move row|>18<,Move coloum|>17<,Fit in area...|,Fit to image|,Straighten row|,Straighten coloum|":PROChd(7,7,"Grid tools",m$):m$="Tools|>7<,Reset grid|,Export grid|=,Reset groups|>11<,Reset paths|=,Size|>9<,Adjust grid|>8<"
17040PROChd(7,5,"Grid",m$):m$="Single frame...|,Sequence of frames...|=,Animation|[Morp3],Uncompressed Replay|[Morp4]*|,ViA|[Morp4]*":PROChd(5,4,"Morph",m$):m$="File|>3<,Grid|>5<,Morph|>4<,Frames|>14<,Group|>12<,Zoom|[Zoom]=,Abort|>13<":PROChd(7,2,"Morpheus",m$)
17100PROChY(16,2,1):PROChY(16,4,1):PROChY(16,5,1):PROChY(16,6,1):PROChY(3,1,1):PROChY(9,4,1):ENDPROC
17140DEFFNs(a%):a$="":WHILE?a%>31:a$+=CHR$(?a%):a%+=1:ENDWHILE:=a$
17160DEFFNbk(f$):IFINSTR(f$,".") THEN
17180WHILEINSTR(f$,".")>0:f$=MID$(f$,INSTR(f$,".")+1):ENDWHILE:=f$
17190ELSE:WHILEINSTR(f$,":")>0:f$=MID$(f$,INSTR(f$,":")+1):ENDWHILE:=f$
17210ENDIF:=""
17240DEFPROCWe:LOCALhe%,hf%,n%,hg%:FORn%=0 TO255:Uw%?n%=0:NEXT:he%=&400DB:hf%=&400C1:n%=Q%:hg%=6000:SYS&400D9,,"<MorphDemo$Dir>.Resources.Templates":SYShe%,,b%,n%,Q%+hg%,Uw%,"Info" TO,,n%:b%!64=Ux%:SYShf%,,b% TOWf%:SYShe%,,b%,n%,Q%+hg%,-1,"Zoom" TO,,n%:SYShf%,,b% TOWh%
17310SYShe%,,b%,n%,Q%+hg%,-1,"File" TO,,n%:SYShf%,,b% TOgk%:SYShe%,,b%,n%,Q%+hg%,-1,"Source" TO,,n%:SYShf%,,b% TOVn%:SYShe%,,b%,n%,Q%+hg%,-1,"Options" TO,,n%:b%!64=Ux%:SYShf%,,b% TOWr%:SYShe%,,b%,n%,Q%+hg%,-1,"Options2" TO,,n%:SYShf%,,b% TOYv%
17350SYShe%,,b%,n%,Q%+hg%,-1,"Dest" TO,,n%:SYShf%,,b% TOVo%:SYShe%,,b%,n%,Q%+hg%,-1,"Frame" TO,,n%:SYShf%,,b% TOaZ%:SYShe%,,b%,n%,Q%+hg%,-1,"FrameEd" TO,,n%:SYShf%,,b% TOVl%:SYShe%,,b%,n%,Q%+hg%,-1,"FrameNum" TO,,n%:SYShf%,,b% TOYV%
17390SYShe%,,b%,n%,Q%+hg%,-1,"Tools" TO,,n%:b%!64=Ux%:SYShf%,,b% TOYu%:SYShe%,,b%,n%,Q%+hg%,-1,"Time" TO,,n%:SYShf%,,b% TOWW%:SYShe%,,b%,n%,Q%+hg%,-1,"Report" TO,,n%:SYShf%,,b% TOXt%:SYShe%,,b%,n%,Q%+hg%,-1,"Morph1" TO,,n%:b%!64=Ux%:SYShf%,,b% TOXd%
17430SYShe%,,b%,n%,Q%+hg%,-1,"Morph2" TO,,n%:b%!64=Ux%:SYShf%,,b% TOXj%:SYShe%,,b%,n%,Q%+hg%,-1,"Morph3" TO,,n%:b%!64=Ux%:SYShf%,,b% TOXm%:SYShe%,,b%,n%,Q%+hg%,-1,"Morph4" TO,,n%:SYShf%,,b% TOXp%:SYShe%,,b%,n%,Q%+hg%,-1,"NewMorph" TO,,n%:b%!64=Ux%:SYShf%,,b% TOXw%
17470SYShe%,,b%,n%,Q%+hg%,-1,"PathEd" TO,,n%:SYShf%,,b% TOYy%:SYS&400DA:ENDPROC
17510DEFPROChd(hh%,h%,hi$,t$):LOCALde$,hj$,hk$,c$,hl%,hm%,hn%,I%,cg%,ho%,hp%,hq%,hr%,hs%:IFh%<0 THENgX%=Uo%(-h%)ELSEgX%=hc%
17540ht%=gX%:IFLENhi$>11 THENhi$=LEFT$(hi$,11)
17560$ht%=hi$:cg%=16*LENhi$+8:ht%!12=&70207:ht%!20=44:ht%!24=0:ht%+=28:FORI%=1 TOhh%:hl%=-1:hm%=0:hn%=0:hp%=0:hq%=7:hr%=0:hs%=0:de$=LEFT$(t$,INSTR(t$,",")-1):hj$=LEFT$(de$,INSTR(de$,"|")-1):c$=MID$(de$,INSTR(de$,"|")+1):IFINSTR(c$,">") THEN
17640hk$=MID$(c$,INSTR(c$,">")+1):hk$=LEFT$(hk$,INSTR(hk$,"<")-1):hl%=Uo%(EVAL(hk$))
17670ENDIF:IFINSTR(c$,"[") THEN
17690hk$=MID$(c$,INSTR(c$,"[")+1):hk$=LEFT$(hk$,INSTR(hk$,"]")-1):CASEhk$ OF
17720WHEN"Info":hl%=Wf%
17730WHEN"Zoom":hl%=Wh%
17740WHEN"Time":hl%=WW%
17750WHEN"File":hl%=gk%
17760WHEN"FrmN":hl%=YV%
17770WHEN"Fram":hl%=Vl%
17780WHEN"Morp1":hl%=Xd%
17790WHEN"Morp2":hl%=Xj%
17800WHEN"Morp3":hl%=Xm%
17810WHEN"Morp4":hl%=Xp%
17820OTHERWISE:ERROR1,"Unknown window :"+hk$
17840ENDCASE
17850ENDIF:IFINSTR(c$,"(") THEN
17870hk$=MID$(c$,INSTR(c$,"(")+1):hk$=LEFT$(hk$,INSTR(hk$,")")-1):CASEMID$(hk$,3) OF
17900WHEN"GRD":ht%!12=Um%
17910ENDCASE:ht%!16=-1:ht%!20=EVALLEFT$(hk$,2):hm%=4:hp%=1:cg%=16+16*ht%!20
17940ELSE:ho%=LENhj$:IFho%>11 THEN
17970ht%!12=hb%:ht%!16=-1:ht%!20=ho%+1:$hb%=hj$:hb%+=ho%+2:hp%=1
18000ELSE:$(ht%+12)=hj$
18020ENDIF:IF16+16*ho%>cg% THENcg%=16+16*ho%
18040ENDIF:IFINSTR(c$,"=") THENhn%=2
18060IFINSTR(c$,"*") THENhs%=8
18070IFINSTR(c$,"#") THEN
18080hq%=EVAL("&"+MID$(c$,INSTR(c$,"#")+1,1)):hr%=EVAL("&"+MID$(c$,INSTR(c$,"#")+2,1))
18100ENDIF:t$=MID$(t$,INSTR(t$,",")+1):ht%!0=hn% ORhm% ORhs%:ht%!4=hl%:ht%!8=&21 ORhp%<<8 ORhq%<<24 ORhr%<<28:ht%+=24:NEXT:ht%!-24=(ht%!-24 OR&80):gX%!16=cg%:IFh%>=0 THENhc%+=28+24*hh%:Uo%(h%)=gX%
18200ENDPROC
18220DEFPROChu(b%):CASEb%!0 OF
18240WHEN0:PROCZn(Wf%)
18250WHEN1:PROCZW(Yv%)
18260WHEN2:Va%=TRUE
18270ENDCASE:ENDPROC
18300DEFPROChv(b%):LOCALx%,y%,t$,t,f%:CASEb%!0 OF
18330WHEN0:CASEb%!4 OF
18340WHEN0:PROCZn(gk%)
18350WHEN2:PROCZW(Yv%)
18360WHEN3:PROCZq
18370ENDCASE
18380WHEN1:CASEb%!4 OF
18390WHEN0:CASEb%!8 OF
18400WHEN0:PROCem(Wm%):PROCad(Vn%):PROCad(Vo%)
18410WHEN1:CASEb%!12 OF
18420WHEN0:PROCfc(Wm%,dt%,0,5,1)
18430WHEN1:PROCfc(Wm%,dt%,0,1,1)
18440WHEN2:PROCfc(Wm%,dt%,0,-5,1)
18450WHEN3:PROCfc(Wm%,dt%,0,-1,1)
18460ENDCASE
18470WHEN2:CASEb%!12 OF
18480WHEN0:PROCfc(Wm%,dr%,-5,0,0)
18490WHEN1:PROCfc(Wm%,dr%,-1,0,0)
18500WHEN2:PROCfc(Wm%,dr%,5,0,0)
18510WHEN3:PROCfc(Wm%,dr%,1,0,0)
18520ENDCASE
18530WHEN3:PROCaV(7)
18540WHEN4:PROCcs(Wm%,0,0,Zf%,Zg%)
18550WHEN5:PROCfl(dr%,dt%,Wm%)
18560WHEN6:PROCfm(dr%,dt%,Wm%)
18570ENDCASE
18580WHEN1:PROCes(Wm%):PROCad(Vn%):PROCad(Vo%)
18590WHEN2:PROCeu(Wm%,3-Wm%)
18600WHEN3:CASEb%!8 OF
18610WHEN-1:PROCet(3)
18620OTHERWISE:PROCet(b%!8)
18640ENDCASE
18650WHEN4:PROCfk
18660WHEN5:CASEb%!8 OF
18670WHEN0:ds%=10:dk%=10:PROCYp:PROCet(3)
18680WHEN1:ds%=15:dk%=15:PROCYp:PROCet(3)
18690WHEN2:ds%=20:dk%=20:PROCYp:PROCet(3)
18700WHEN3:ds%=30:dk%=30:PROCYp:PROCet(3)
18710WHEN5:t$=FNs(Um%):IFINSTR(t$,"x") THEN
18730x%=VAL(LEFT$(t$,INSTR(t$,"x")-1)):y%=VAL(MID$(t$,INSTR(t$,"x")+2)):IFx%>=3 ANDx%<=30 ANDy%>=3 ANDy%<=30 THEN
18750ds%=x%:dk%=y%:PROCYp:PROCet(3):t$=""
18770ELSE:ERROR1,"Illegal grid size (3-30)."
18790ENDIF
18800ENDIF:IFINSTR(t$,"X") THEN
18820x%=VAL(LEFT$(t$,INSTR(t$,"X")-1)):y%=VAL(MID$(t$,INSTR(t$,"X")+2)):IFx%>=3 ANDx%<=30 ANDy%>=3 ANDy%<=30 THEN
18840ds%=x%:dk%=y%:PROCYp:PROCet(3)
18860ELSE:ERROR1,"Illegal grid size (3-30)."
18880ENDIF
18890ENDIF
18900ENDCASE
18910WHEN6:CASEb%!8 OF
18920WHEN0:PROCfa
18930WHEN1:PROCfb
18940WHEN2:PROCey(dt%)
18950WHEN3:PROCfY(dr%)
18960ENDCASE
18970ENDCASE
18980WHEN2:CASEb%!4 OF
18990WHEN0:PROCZW(Xd%)
19000WHEN1:PROCZW(Xj%)
19010WHEN2:PROCZn(Xm%)
19020WHEN3:PROCZn(Xp%)
19030ENDCASE
19040WHEN3:CASEb%!4 OF
19050WHEN0:PROCZe:PROCZn(YV%)
19060WHEN1:PROCZn(Vl%)
19070WHEN2:PROCbb(b%!8)
19080ENDCASE
19090WHEN4:IFb%!4<>-1 THEN
19100PROCZh(1+b%!4)
19110ELSE:PROCZh(1)
19130ENDIF:PROCZW(WW%)
19150WHEN5:PROCZn(Wh%)
19160ENDCASE:ENDPROC
19190DEFPROChw(b%):LOCALc%,c$:CASEb%!0 OF
19220WHEN0:ha%=0
19230WHEN1:ha%=7
19240WHEN2,3,4,5,6,7,8,9:ha%=6+b%!0
19250WHEN10:ha%=71
19260ENDCASE:c%=ha%:c$="":IFc%=71 THENc%=0:c$="Invert"
19290$Wq%=c$:PROCZi(Wr%,31,c%):PROCad(Vn%):PROCad(Vo%):ENDPROC
19340DEFPROChx(b%):bU%=b%!0:PROCaz(bU%,Xd%,18):IFay%=3 THEN
19380CASEbU% OF
19390WHEN0,1,3:$Xe%="Sfile_ff9;Pptr_hand,6,6"
19400ENDCASE:PROCZc(Xd%,4)
19420ENDIF:ENDPROC
19450DEFPROChy(b%):bZ%=b%!0:PROCaz(bZ%,Xj%,17):ENDPROC
19500DEFPROChz(b%):PROCZh(1+b%!0):ENDPROC
19540DEFPROCiU(b%):LOCALp%:CASEb%!0 OF
19570WHEN0:PROCbg:p%=Uk%+8+48*XV%:p%!32=0:p%!36=0:p%!40=0:p%!44=0:PROCbg
19600WHEN1:PROCfn(XV%)
19610WHEN2:PROCfp(XV%)
19620WHEN3:Xa%=NOTXa%:PROCad(Yy%)
19630WHEN4:XZ%=NOTXZ%:PROCad(Yy%)
19640ENDCASE:ENDPROC
19670DEFPROCVs(b%):CASEWX% OF
19690WHEN1:PROChu(b%)
19700WHEN2:PROChv(b%)
19710WHEN3:PROChw(b%)
19720WHEN4:PROChx(b%)
19730WHEN5:PROChy(b%)
19740WHEN6:PROChz(b%)
19750WHEN7:PROCiU(b%)
19760ENDCASE:SYS&400CF,,b%:IF(b%!8 AND1) THEN
19790CASEWX% OF
19800WHEN1:PROCaW:SYS&400D4,,Uo%(1),aX%,aY%
19810WHEN2:PROCae(Wm%):SYS&400D4,,Uo%(2),aX%,aY%
19820WHEN3:PROCau:SYS&400D4,,Uo%(6),aX%,aY%
19830WHEN4,5:PROCbX(WX%):SYS&400D4,,Uo%(16),aX%,aY%
19840WHEN6:PROCao:SYS&400D4,,Uo%(11),aX%,aY%
19850WHEN7:PROCbh:SYS&400D4,,Uo%(19),aX%,aY%
19860ENDCASE
19870ENDIF:ENDPROC
19900DEFPROCZn(w%):LOCALdp%,dq%:SYS&400CF,,Uy%:dp%=Uy%!0:dq%=Uy%!4:Uy%!0=w%:SYS&400CB,,Uy%:IF((Uy%!32)AND(1<<16))<>0 THEN
19950PROCad(w%)
19960ELSE:SYS&400D4,,w%,dp%-(Uy%!12-Uy%!4)/2,dq%+(Uy%!16-Uy%!8)/2
19980ENDIF:ENDPROC
20010DEFPROChY(p%,n%,s%):p%=Uo%(p%)+36+n%*24:IFs% THEN!p%=(!p% OR&400000)ELSE!p%=(!p% AND NOT&400000)
20040ENDPROC
20060DEFPROChZ(p%,n%,t%):p%=Uo%(p%)+28+n%*24:IFt% THEN!p%=(!p% OR1)ELSE!p%=(!p% AND NOT1)
20090ENDPROC
20110DEFPROCUW:SYS&406C0:ENDPROC
20120DEFPROCVX:SYS&406C1:ENDPROC
20130DEFPROCfW(p%):IFp%<0 THENp%=0
20150SYS&406C4,p%:ENDPROC
20180DEFPROCaz(f%,w%,i%):LOCALf$:CASEf% OF
20210WHEN0:f$="Sprite 8bpp"
20220WHEN1:f$="Sprite 8bpp grey"
20230WHEN2:f$="Clear 24bpp"
20240WHEN3:f$="Sprite 4bpp grey"
20250WHEN4:f$="CMYK 32bpp"
20260WHEN5:f$="P15 (15bpp RGB)"
20270WHEN6:f$="P13 (15bpp YUV)"
20280ENDCASE:$FNi(w%,i%)=f$:PROCZc(w%,i%):ENDPROC
20350DEFPROCWu(w%,i%,f%):Uy%!0=w%:Uy%!4=i%:SYS&400CE,,Uy%:CASEf% OF
20380WHEN0:Uy%!8=Uy%!24 AND NOT(1<<21)
20390WHEN1,-1:Uy%!8=Uy%!24 OR(1<<21)
20400WHEN2:Uy%!8=Uy%!24 EOR(1<<21)
20410ENDCASE:Uy%!12=-1:SYS&400CD,,Uy%:ENDPROC
20450DEFPROCar(w%,i%,f%):Uy%!0=w%:Uy%!4=i%:SYS&400CE,,Uy%:IFf% THEN
20480Uy%!8=Uy%!24 OR(1<<22)
20490ELSE:Uy%!8=Uy%!24 AND NOT(1<<22)
20510ENDIF:Uy%!12=-1:SYS&400CD,,Uy%:ENDPROC
20550DEFPROCZc(w%,i%):Uy%!0=w%:Uy%!4=i%:Uy%!8=0:Uy%!12=0:SYS&400CD,,Uy%:ENDPROC
20590DEFFNi(w%,i%):b%!0=w%:b%!4=i%:SYS&400CE,,b%:=b%!28
20600DEFFNXf(w%,i%):Uy%!0=w%:Uy%!4=i%:SYS&400CE,,Uy%:=Uy%!32
20620DEFPROCZr(k%):IFk% THENSYS&1A,&300,&F00ELSESYS&1A,&D00,&F00
20640ENDPROC
20660DEFPROCZi(w%,i%,hr%):Uy%!0=w%:Uy%!4=i%:SYS&600CE,,Uy%:Uy%!8=Uy%!24:Uy%?11=((Uy%?11)AND15)OR(hr%*16):Uy%!12=-1:SYS&600CD,,Uy%:ENDPROC
20730DEFPROCYs(iV%):LOCALt%,i%:IFiV% THEN
20760aq%=FALSE:PROCWu(Wr%,4,0):Zr%=FALSE:PROCWu(Wr%,2,0):PROCar(Wr%,2,0):iW%=FALSE:PROCWu(Wr%,13,0):PROCar(Wr%,13,1):Yt%=TRUE:PROCWu(Wr%,3,1):PROCar(Xd%,5,1):PROCar(Xj%,5,1):at%=TRUE:PROCWu(Wr%,29,1):ax%=FALSE:PROCWu(Wr%,42,0):PROCar(Wr%,42,0):ac%=TRUE:PROCWu(Yu%,1,1):ag%=TRUE:PROCWu(Wr%,32,1):ha%=11:PROCZi(Wr%,31,ha%)
20860ENDIF:Zj%=1:FORt%=1 TO8:FORi%=0 TO10:Ur%(t%,i%)=i%*50.8:NEXT:PROCap(t%):NEXT:$FNi(gk%,7)="-":ay%=0:PROCWu(Xd%,6,1):PROCWu(Xd%,7,0):PROCWu(Xd%,8,0):PROCar(Xd%,8,1):PROCWu(Xd%,17,0):$Xc%="Morpheus:Morphed":$Xg%="0.50":$Xh%="1":bV%=TRUE:PROCWu(Xd%,11,1):PROCar(Xd%,14,1):Yw%=FALSE:bU%=0:PROCaz(0,Xd%,18)
21060PROCar(Xd%,2,1):PROCar(Xd%,4,1):bY%=0:PROCWu(Xj%,6,1):PROCWu(Xj%,7,0):PROCWu(Xj%,8,0):PROCar(Xj%,8,1):PROCWu(Xj%,16,0):$Xi%="Morpheus:Series":$Xk%="1":ba%=TRUE:PROCWu(Xj%,12,1):PROCar(Xj%,13,1):Yx%=FALSE:bZ%=0:PROCaz(0,Xj%,17):PROCar(Xj%,2,1):PROCar(Xj%,4,1):$Xl%="!MorphFilm":PROCar(Xm%,2,1)
21200PROCar(Xm%,1,1):PROCar(Xm%,3,1):PROCar(Xm%,5,1):$Xo%="ARFilm":PROCar(Xp%,2,1):PROCar(Xp%,1,1):IFiV% THEN
21250ge%=0:gh%=FALSE:cZ%=0:eW%=200*1024:$Xq%="200":eX%=200*1024:$Xr%="200":av%=FALSE:PROCWu(Wr%,36,0):PROCar(Wr%,37,NOTav%)
21340ENDIF:PROCWu(Wr%,39,0):PROCar(Wr%,39,1):PROCar(Wr%,40,1):PROCar(Wr%,43,1):as%=0:PROCiX(as%):ENDPROC
21410DEFPROCiX(p%):LOCALeZ%:eZ%=(p% AND1)<>0:PROCWu(Wr%,16,NOTeZ%):PROCWu(Wr%,17,eZ%):eZ%=(p% AND2)=0:PROCWu(Wr%,19,NOTeZ%):PROCWu(Wr%,20,eZ%):eZ%=(p% AND4)<>0:PROCWu(Wr%,23,NOTeZ%):PROCWu(Wr%,24,eZ%):eZ%=(p% AND8)=0:PROCWu(Wr%,25,NOTeZ%):PROCWu(Wr%,26,eZ%):ENDPROC
21550DEFPROCVV(VU%,l%):SYS&1D,0,VU%,,l%:ENDPROC
21570DEFFNew(s%):LOCALf%,p%:SYS&2001D,2,VU%,,s% TO,,p%;f%:IFf% AND1 THEN
21610SYS&400EC,VU%+VU%!8+&100+s%-&8000,-1 TOf%:f%+=&8000:SYS&1D,5,VU%,,f%-VU%-VU%!12:SYS&2001D,2,VU%,,s% TO,,p%;f%:IFf% AND1 THENp%=-1
21660ENDIF:=p%
21690DEFPROCfX(RETURNp%):IFp%<=0 THENENDPROC
21710SYS&1D,3,VU%,p%:SYS&1D,5,VU%,,VU%!8-VU%!12:SYS&400EC,VU%+VU%!12-&8000,-1:p%=-1:ENDPROC
21790DEFPROCWn:SYS53,-1,3 TO,,iY%:SYS53,-1,4 TO,,iZ%:iZ%=(1<<iZ%):SYS53,-1,5 TO,,ia%:ia%=(1<<ia%):SYS53,-1,11 TO,,Vv%:Vv%=Vv%*iZ%:SYS53,-1,12 TO,,Vw%:Vw%=Vw%*ia%:PROCcv:ENDPROC
21880DEFFNcU(m%,n%):SYS53,m%,n% TO,,ib%:=ib%
21900DEFPROCcv:LOCALi%:IF NOTWZ% THENENDPROC
21930IFic%>15 THEN
21940IFid%=0 THEN
21950SYS&40740,15,0,-1,-1,Uh%
21960ELSE:FORi%=0 TO255:Ub%?0=0:Ub%?1=i%:Ub%?2=i%:Ub%?3=i%:SYS&40744,!Ub% TOUh%?i%:NEXT
22010ENDIF
22020ELSE:SYS&400ED,296,Up%(1),Up$(1),,,,,Uh%
22040ENDIF:SYS&40740,15,0,-1,-1,Ui%:FORi%=0 TO255:Ub%?0=0:Ub%?1=i%:Ub%?2=i%:Ub%?3=i%:SYS&40744,!Ub% TOUj%?i%:NEXT:Ud%!0=ct%*Wj:Ud%!4=cu%*Wj:Ud%!8=Zf%*iZ%:Ud%!12=Zg%*ia%:Ue%!0=ct%*Wk:Ue%!4=cu%*Wk:Ue%!8=Zf%*iZ%:Ue%!12=Zg%*ia%
22120Uf%!0=dc%*Wl:Uf%!4=dd%*Wl:Uf%!8=Zf%*iZ%:Uf%!12=Zg%*ia%:ENDPROC
22150DEFPROCVi(b%):LOCALcm%,x%,y%,Zy%,i%,p%,ie%,fq%,fr%,ci,cj:SYS&400C8,,b% TOcm%:x%=b%!4-b%!20:y%=b%!16-b%!24:WHILEcm%:CASEb%!0 OF
22210WHENVl%:SYS&400E6,11:FORZy%=1 TOXz%:MOVEx%+Ut%!(Zy%*4)+256,y%+164:DRAWBY 0,56:NEXT:IFb%!32<y%+148 ANDb%!40>y%+148 THENPROCif(b%,x%+256,y%+148)
22270WHENVn%:CASEid% OF
22280WHEN0,1:PROCig(x%,y%,Up%(1),Up$(1),Ud%,Uh%,id%)
22290WHEN16:PROCih(x%,y%,Up%(1),Up$(1),Wj)
22300ENDCASE:PROCii(b%,0,x%,y%):IFVd% ANDWt%>0 THENPROCeU(x%,y%,Wv%,Ww%,Wj)
22330WHENVo%:CASEid% OF
22340WHEN0,1:PROCig(x%,y%,Up%(2),Up$(2),Ue%,Uh%,id%)
22350WHEN16:PROCih(x%,y%,Up%(2),Up$(2),Wk)
22360ENDCASE:PROCii(b%,1,x%,y%):IFVd% ANDWt%>0PROCeU(x%,y%,Wx%,Wy%,Wk)
22390WHENaZ%:CASEcZ% OF
22400WHEN0:PROCig(x%,y%,Up%(3),Up$(3),Uf%,Ui%,0)
22410WHEN1:PROCig(x%,y%,Up%(3),Up$(3),Uf%,Uj%,1)
22420WHEN8:PROCih(x%,y%,Up%(3),Up$(3),Wl)
22430ENDCASE
22440WHENYy%:p%=Uk%+8+XV%*48:i%=1:ie%=Ud%:IFea%=Vo% THENi%=2:ie%=Ue%
22460CASEid% OF
22470WHEN0,1:PROCig(x%,y%,Up%(i%),Up$(i%),ie%,Uh%,id%)
22480WHEN16:PROCih(x%,y%,Up%(i%),Up$(i%),bd)
22490ENDCASE:IFXa% THENPROCii(b%,3,x%,y%)
22510ci=bd*bc%*(1<<16):cj=bd*be%*(1<<16):IFXZ% THEN
22530SYS&400E6,ha%:fq%=XV% MODds%:fr%=XV% DIVds%:PROCYq(fq%-1,fr%-1,x%,y%,ci,cj):PROCYq(fq%-1,fr%,x%,y%,ci,cj):PROCYq(fq%-1,fr%+1,x%,y%,ci,cj):PROCYq(fq%,fr%-1,x%,y%,ci,cj):PROCYq(fq%,fr%+1,x%,y%,ci,cj):PROCYq(fq%+1,fr%-1,x%,y%,ci,cj)
22580PROCYq(fq%+1,fr%,x%,y%,ci,cj):PROCYq(fq%+1,fr%+1,x%,y%,ci,cj)
22590ENDIF:SYS&400E6,71:p%=Uk%+8+48*XV%:PROCcY(Yq,Ub%,x%,y%,p%,ci,cj)
22620WHENWW%:SYS&400E6,2:FORi%=1 TO7:MOVEx%+300,y%+72+i%*64:DRAWBY 1024,0:NEXT:SYS&400E6,7:MOVEx%+300,y%+72+Ur%(0,0):FORi%=1 TO10:DRAWx%+300+i%*102.4,y%+72+Ur%(0,i%):NEXT:IFb%!32<y%+64 ANDb%!40>y%+56 THENPROCif(b%,x%+300,y%+60)
22700ENDCASE:SYS&400CA,,b% TOcm%:ENDWHILE:ENDPROC
22750DEFPROCbg:LOCALcm%,x%,y%,p%:b%!0=Yy%:b%!4=0:b%!8=0:b%!12=30000:b%!16=30000:SYS&400C9,,b% TOcm%:p%=Uk%+8+48*XV%:x%=b%!4-b%!20:y%=b%!16-b%!24:WHILEcm%:SYS&400E6,71:PROCcY(Yq,Ub%,x%,y%,p%,bd*bc%*(1<<16),bd*be%*(1<<16)):SYS&400CA,,b% TOcm%:ENDWHILE:ENDPROC
22890DEFPROCYq(ck%,cl%,x%,y%,ci,cj):LOCALp%:IFck%<0 ORcl%<0 ORck%>ds%-1 ORcl%>dk%-1 THENENDPROC
22920p%=Uk%+8+48*(ck%+ds%*cl%):IFp%?30<>255 THENENDPROC
22940PROCcY(Yr,Ub%,x%,y%,p%,ci,cj):ENDPROC
22970DEFPROCeU(x%,y%,ij%,ik%,z):SYS&400E6,79:x%+=ij%*z*bc%:y%+=ik%*z*be%:MOVE0,y%:DRAWBY 32000,0:MOVEx%,0:DRAWBY 0,32000:ENDPROC
23040DEFPROCif(b%,x%,y%):LOCALt%,de,df:de=b%!28-x%:IFde<0 THENde=0
23070df=b%!36-x%:IFdf<0 THENENDPROC
23080IFdf>1024 THENdf=1024
23090FORt=de TOdfSTEP10.24:POINTx%+t,y%:NEXT:ENDPROC
23120DEFPROCii(b%,do%,x%,y%):LOCALz,cm%:IFVf% ANDaq% THENENDPROC
23150CASEdo% OF
23160WHEN0:z=Wj:cm%=0:IF NOTat% THENcm%=cm% OR2
23180IF NOTac% THENcm%=cm% OR4
23190WHEN1:z=Wk:cm%=1:IF NOTat% THENcm%=cm% OR2
23210IF NOTac% THENcm%=cm% OR4
23220WHEN3:IFea%=Vo% THENz=Wk:cm%=53ELSEz=Wj:cm%=52
23230ENDCASE:IFax% THENcm%=cm% OR8
23250PROCcY(Yh,Uk%,b%,z*256*bc%,z*256*be%,cm%,ha%):ENDPROC
23280DEFPROCig(x%,y%,a%,n$,ie%,il%,f%):IFf%=0 ANDic%>15 ANDiY%>15 THENil%=-1
23300SYS&2002E,308,a%,n$,x%,y%,0,ie%,il%:ENDPROC
23330DEFPROCih(x%,y%,a%,n$,z):SYS&400ED,296,a%,n$,,,,Uc%,Ug%:IFz<>1 THEN
23360z=100*z:Uc%!0=z*Uc%!0:Uc%!4=z*Uc%!4:Uc%!8=100*Uc%!8:Uc%!12=100*Uc%!12
23390ENDIF:SYS&2002E,308,a%,n$,x%,y%,0,Uc%,Ug%:ENDPROC
23430DEFPROCad(w%):SYS&400D1,w%,-3000,-3000,30000,30000:ENDPROC
23450DEFPROCeq(p%,cm%):LOCALdp%,dq%:dp%=p% MODds%:dq%=p% DIVds%:IFcm% AND1 THENPROCim(Vn%,0,Wj,dp%,dq%,FALSE)
23490IFcm% AND2 THENPROCim(Vo%,1,Wk,dp%,dq%,FALSE)
23500IFcm% AND4 THENPROCim(aZ%,2,Wl,dp%,dq%,FALSE)
23510ENDPROC
23530DEFPROCcr(p%,cm%):LOCALdp%,dq%:dp%=p% MODds%:dq%=p% DIVds%:IFcm% AND1 THENPROCim(Vn%,0,Wj,dp%,dq%,TRUE)
23570IFcm% AND2 THENPROCim(Vo%,1,Wk,dp%,dq%,TRUE)
23580IFcm% AND4 THENPROCim(aZ%,2,Wl,dp%,dq%,TRUE)
23590ENDPROC
23610DEFPROCeb(p%,cm%):LOCALdp%,dq%:dp%=p% MODds%:dq%=p% DIVds%:IFcm% AND1 THENPROCin(Vn%,0,Wj,dp%,dq%)
23650IFcm% AND2 THENPROCin(Vo%,1,Wk,dp%,dq%)
23660ENDPROC
23680DEFPROCin(w%,i%,z,dp%,dq%):LOCALx%,y%:PROCio(dp%,dq%,i%,x%,y%):x%=x%*bc%*z:y%=y%*be%*z:SYS&400D1,w%,x%-16,y%-16,x%+16,y%+16:ENDPROC
23750DEFPROCim(w%,i%,z,dp%,dq%,ip%):LOCALfg%,fh%,fq%,fr%,iq%,ir%:PROCio(dp%,dq%,i%,fg%,fh%):fq%=fg%:fr%=fh%:PROCio(dp%+1,dq%,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23800IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23810PROCio(dp%+1,dq%+1,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23830IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23840PROCio(dp%+1,dq%-1,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23860IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23870PROCio(dp%,dq%,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23890IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23900PROCio(dp%,dq%+1,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23920IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23930PROCio(dp%,dq%-1,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23950IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23960PROCio(dp%-1,dq%,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
23980IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
23990PROCio(dp%-1,dq%+1,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
24010IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
24020PROCio(dp%-1,dq%-1,i%,iq%,ir%):IFiq%<fg% THENfg%=iq%ELSEIFiq%>fq% THENfq%=iq%
24040IFir%<fh% THENfh%=ir%ELSEIFir%>fr% THENfr%=ir%
24050fg%=z*bc%*fg%:fh%=z*be%*fh%:fq%=z*bc%*fq%:fr%=z*be%*fr%:IFip% THEN
24080SYS&400D1,w%,fg%-16,fh%-16,fq%+16,fr%+16
24090ELSE:PROCis(w%,fg%-16,fh%-16,fq%+16,fr%+16)
24110ENDIF:ENDPROC
24140DEFPROCio(x%,y%,i%,RETURNck%,RETURNcl%):LOCALp%:IFx%<0 THENx%=0
24170IFy%<0 THENy%=0
24180IFx%>ds%-1 THENx%=ds%-1
24190IFy%>dk%-1 THENy%=dk%-1
24200p%=Uk%+8+i%*8+48*(x%+y%*ds%):ck%=p%!0:cl%=p%!4:ENDPROC
24230DEFPROCis(w%,fg%,fh%,fq%,fr%):LOCALcm%,x%,y%:PROCVe(2):b%!0=w%:b%!4=fg%:b%!8=fh%:b%!12=fq%:b%!16=fr%:SYS&400C9,,b% TOcm%:x%=b%!4-b%!20:y%=b%!16-b%!24:WHILEcm%:CASEw% OF
24310WHENVn%:PROCig(x%,y%,Up%(1),Up$(1),Ud%,Uh%,id%):PROCii(b%,0,x%,y%):IFWt%>0PROCeU(x%,y%,Wv%,Ww%,Wj)
24340WHENVo%:PROCig(x%,y%,Up%(2),Up$(2),Ue%,Uh%,id%):PROCii(b%,1,x%,y%):IFWt%>0PROCeU(x%,y%,Wx%,Wy%,Wk)
24370WHENaZ%:CASEcZ% OF
24380WHEN0:PROCig(x%,y%,Up%(3),Up$(3),Uf%,Ui%,0)
24390WHEN1:PROCig(x%,y%,Up%(3),Up$(3),Uf%,Uj%,1)
24400ENDCASE
24410ENDCASE:SYS&400CA,,b% TOcm%:ENDWHILE:PROCVe(1):ENDPROC
24490DEFFNex(Vy%):="(need "+STR$(1+Vy%/1024)+"k)."
24510DEFPROCZq:IFVf% THENPROCZp
24530Wp%=FALSE:PROCfX(Up%(1)):PROCfX(Up%(2)):PROCfX(Up%(3)):PROCfX(Up%(4)):PROCfX(Up%(5)):PROCfX(Up%(6)):PROCfX(Uq%(1)):PROCfX(Uq%(2)):PROCfX(Uq%(3)):PROCfX(Uq%(4)):PROCfX(Uq%(5)):PROCfX(Uq%(6)):PROCVk(Vn%):PROCVk(Vo%):PROCVk(aZ%):PROCVk(Xd%):PROCVk(Xj%):WZ%=FALSE:it$="":Up%()=-1:Up$()="":Uq%()=-1:$FNi(gk%,7)="-"
24650PROCYs(TRUE):ENDPROC
24680DEFFNiu(a%):SYS&2E,256+13,a%,Ub%,255,1:=FNs(Ub%)
24700DEFFNiv(f$):LOCALZZ%:SYS&8,5,f$ TOZZ%:=(ZZ%=1)
24750DEFFNiw(f$):LOCALl%,ZZ%:SYS&8,5,f$ TOZZ%,,l%:IFZZ%<>1 THEN=-1
24790IF(l% AND(&FFF<<20))<>(&FFF<<20) THEN=-1
24800=((l%>>8)AND&FFF)
24820DEFPROCix:IFWZ% THENPROCZqELSEPROCYs(FALSE)
24840PROCeV:PROCVk(Xw%):ENDPROC
24880DEFPROCiy(f$):LOCALdY%,Vz%,iz%:IFZf%>2400 ORZg%>2400 ORZf%<32 ORZg%<32 THENERROR1,"Images are too small"
24910iz%=ge%:CASEiz% OF
24930WHEN0,1:gi%=4+4*((Zf%-1)DIV4)
24940WHEN2:gi%=3*Zf%
24950ENDCASE:SYS53,jU%,3 TO,,ic%:id%=0:IF(Up%(1)-FNjV(1))>2000 THENid%=1
24990IFic%<=15 THENid%=16
25000SYS53,bx%,4 TO,,dY%:SYS53,bx%,5 TO,,Vz%:bc%=(1<<dY%):be%=(1<<Vz%):SYS53,jU%,4 TO,,dY%:SYS53,jU%,5 TO,,Vz%:jW%=(1<<dY%):jX%=(1<<Vz%):dc%=Zf%*bc%:dd%=Zg%*be%:ct%=Zf%*jW%:cu%=Zg%*jX%:IFge%=1 AND NOTgh% THEN
25100PROCcY(Yk,UZ%!0,Ua%,gi%*Zg%,0,0,0):PROCcY(Yk,UZ%!4,Ua%,gi%*Zg%,0,0,0)
25120ENDIF:jY$=FNbk(f$):PROCZX(Vn%,Wj*ct%,Wj*cu%):PROCZX(Vo%,Wk*ct%,Wk*cu%):PROCZX(aZ%,dc%,dd%):PROCZX(Yy%,Wj*ct%,Wj*cu%):PROCjZ(jY$+"::Start picture",Vn%):PROCZW(Vn%):PROCjZ(jY$+"::End picture",Vo%):PROCZW(Vo%):PROCjZ(jY$+"::Morphed",aZ%):it$=f$:WZ%=TRUE:Wl=1:UZ%!12=Zf%:UZ%!16=Zg%
25270PROCWu(Xd%,6,iz%=0):PROCWu(Xd%,7,iz%=1):PROCWu(Xd%,8,iz%=2):PROCWu(Xj%,6,iz%=0):PROCWu(Xj%,7,iz%=1):PROCWu(Xj%,8,iz%=2):ay%=iz%:bY%=iz%:bU%=iz%:bZ%=iz%:IFiz%=2 THEN
25360$Xe%="Sfile_690;Pptr_hand,6,6"
25370ELSE:$Xe%="Sfile_ff9;Pptr_hand,6,6"
25390ENDIF:UZ%!20=gi%:PROCaz(iz%,Xd%,18):PROCaz(iz%,Xj%,17):UZ%!24=UZ%!20:UZ%?28=ge%:UZ%?30=0:UZ%?31=0:UZ%!104=Uk%:IFLENf$>27 THENf$="..."+RIGHT$(f$,24)
25500$FNi(gk%,1)=f$:$FNi(gk%,2)=STR$(Zf%)+" x "+STR$(Zg%):IFFNiw(Vn$)=&690 ANDge%=1 THENiz%=16
25540CASEiz% OF
25550WHEN0:f$="Sprite (colour)"
25560WHEN1:f$="Sprite (grey)"
25570WHEN2:f$="Clear (24bpp)"
25580WHEN16:f$="Clear (grey)"
25590ENDCASE:IFgh% THENf$+=", swapped"
25610$FNi(gk%,9)=f$:PROCja:bf%=0:IFbe%=2*bc% THENbf%=1
25650IFbe%=4*bc% THENbf%=2
25660PROCcv:ENDPROC
25690DEFPROCZb(b%):LOCALf$,jb$,jc$,jd$,gX$,je$,by%,bz%,Vy%,er%,x%,y%,jf%:PROCUW:f$=FNs(b%+44):SYS&8,5,f$ TOjf%:IFjf%<>2 THENERROR1,"Morpheus needs a directory."
25760PROCix:Wp%=TRUE:jb$=f$+".Sprite1":IFFNiw(jb$)<>&FF9 THENERROR1,"File 'Sprite1' isn't a spritefile or can't be found."
25800jc$=f$+".Sprite2":IFFNiw(jc$)<>&FF9 THENERROR1,"File 'Sprite2' isn't a spritefile or can't be found."
25810jd$=f$+".!Morph":gX$=f$+".Start":je$=f$+".End":IF NOT(FNiv(gX$) ANDFNiv(je$)) THENgX$=jb$:je$=jc$
25850cn%=FNiw(gX$):IFcn%<>FNiw(je$) THENERROR1,"Start and end images aren't the same type."
25870IFcn%<>&690 ANDcn%<>&FF9 THENERROR1,"Start and end images are neither sprite nor Clear files."
25880SYS&8,5,gX$ TO,,,,by%:SYS&8,5,je$ TO,,,,bz%:IFby%<>bz% THENERROR1,"Start and end images aren't the same size."
25920SYS&8,5,jb$ TO,,,,by%:PROCjg(jb$,by%,1):SYS&8,5,jc$ TO,,,,by%:PROCjg(jc$,by%,2):SYS&2E,256+40,Up%(1),Up$(1) TO,,,,,,jU%:Vn$=gX$:Vo$=je$:IFgX$=jb$ THEN
25990bx%=jU%:SYS&2E,256+40,Up%(1),Up$(1) TO,,,x%,y%:SYS53,bx%,3 TO,,er%:IFer%<>63 THENERROR1,"Only 8bpp sprite can be loaded."
26030gh%=FALSE:ge%=0:PROCjh(Up%(1)):IFji% THEN
26070PROCjh(Up%(2)):PROCjh(Up%(3)):ge%=1
26090ENDIF:Zf%=x%:Zg%=y%:UZ%!0=FNjV(1):UZ%!4=FNjV(2)
26130ELSE:gh%=FALSE:SYS&8,5,gX$ TO,,,,by%:IFav% ANDby%>eW% THENgh%=TRUE
26170IFcn%=&FF9 THEN
26180IFgh% THEN
26190PROCbu(gX$):IFhX%=-1 THENERROR1,"Error in spritefile or illegal mode/size."
26210IFhX%=-2 THENERROR1,"The sprite has lefthand wastage. This can be removed by loading the spritefile into !Paint and resaving it without any changes."
26220IFji% THENge%=1ELSEge%=0
26230Zf%=bv%:Zg%=bw%
26240ELSE:PROCjg(gX$,by%,5):PROCjg(je$,by%,6):SYS&2E,256+40,Up%(5),Up$(5) TO,,,x%,y%,,bx%:SYS53,bx%,3 TO,,er%:IFer%<>63 THENERROR1,"Not a 8bpp sprite."
26290ge%=0:PROCjh(Up%(5)):IFji% THENPROCjh(Up%(6)):ge%=1
26320Zf%=x%:Zg%=y%:UZ%!0=FNjV(5):UZ%!4=FNjV(6)
26350ENDIF
26360ELSE:bx%=FNcV(jU%):IFgh% THEN
26390ge%=FNjj(gX$):IFge%=-1 THENERROR1,"Illegal Clear format."
26410Zf%=bv%:Zg%=bw%
26420ELSE:ge%=FNjj(gX$):IFge%=-1 THENERROR1,"Illegal Clear format."
26450Zf%=bv%:Zg%=bw%:PROCjk(gX$,5):PROCjk(je$,6):IFge%=1 THEN
26490UZ%!0=FNjV(5):UZ%!4=FNjV(6)
26510ELSE:UZ%!0=Uq%(5):UZ%!4=Uq%(6)
26540ENDIF
26550ENDIF
26560ENDIF
26570ENDIF:WZ%=TRUE:PROCjl(f$):PROCiy(f$):Wp%=FALSE:PROCVX:ENDPROC
26660DEFFNgg(m%):LOCALdY%,Vz%:SYS53,m%,4 TO,,dY%:SYS53,m%,5 TO,,Vz%:CASETRUE OF
26710WHENdY%=1 ANDVz%=1:=20
26720WHENdY%=1 ANDVz%=2:=12
26730WHENdY%=2 ANDVz%=2:=9
26740ENDCASE:=12
26770DEFFNcV(m%):LOCALdY%,Vz%:SYS53,m%,4 TO,,dY%:SYS53,m%,5 TO,,Vz%:CASETRUE OF
26820WHENdY%=1 ANDVz%=1:=28
26830WHENdY%=1 ANDVz%=2:=15
26840WHENdY%=2 ANDVz%=2:=13
26850ENDCASE:=13
26880DEFPROCbu(f$):LOCALh%,f%,l%,p%,d%,m%,er%,g%,ez%,jm%,jn%:SYS&D,&43,f$ TOh%:d%=FNjo(h%):p%=FNjo(h%):hX%=p%-4:PTR#h%=p%+12:bv%=FNjo(h%):bw%=FNjo(h%):f%=FNjo(h%):l%=FNjo(h%):p%=FNjo(h%):d%=FNjo(h%):m%=FNjo(h%):hX%+=p%:SYS53,m%,3 TO,,er%:IFer%<>63 THENhX%=-1
27040bx%=m%:bw%+=1:IFbw%<32 ORbw%>2400 THENhX%=-1
27060IFf%<>0 THENhX%=-2
27070bv%=bv%*4:CASEl% OF
27090WHEN7:bv%+=1
27100WHEN15:bv%+=2
27110WHEN23:bv%+=3
27120WHEN31:bv%+=4
27130ENDCASE:IFbv%<32 ORbv%>2400 THENhX%=-1
27150ji%=FALSE:IFhX%>2000 THEN
27170g%=TRUE:FORp%=0 TO255:ez%=FNjo(h%):jn%=FNjo(h%):jm%=FNjo(h%):IFez%<>jn% ORjm%<>jn% ORez%<>jm% THENg%=FALSE
27210Ua%?p%=ez%:NEXT:ji%=g%
27240ENDIF:SYS&D,0,h%:ENDPROC
27280DEFFNjj(f$):LOCALh%,n$,a%,jp%,jq%,jr%,js%,jt%,ju%:SYS&D,&43,f$ TOh%:n$="":a%=BGET#h%:WHILEa%<>0:n$+=CHR$a%:a%=BGET#h%:ENDWHILE:a%=FNjo(h%):bv%=FNjo(h%):bw%=FNjo(h%):ju%=FNjo(h%):IFju%=24 THENhX%=PTR#h%:SYS&D,0,h%:=2
27370jp%=TRUE:FORjq%=0 TO255:jr%=BGET#h%:js%=BGET#h%:jt%=BGET#h%:Ua%?jq%=jr%:IFjr%<>js% ORjs%<>jt% ORjr%<>jt% THENjp%=FALSE
27420NEXT:hX%=PTR#h%:SYS&D,0,h%:IFjp% THEN=1
27460=-1
27480DEFPROCjg(f$,l%,n%):LOCALp%,n$:p%=FNew(l%+20):IFp%<=0 THENERROR1,"No room to load sprite "+FNex(l%+20)
27510p%!0=l%+20:p%!4=0:p%!8=16:p%!12=16:SYS&2E,256+10,p%,f$:n$=FNiu(p%):SYS&2E,256+54,p%,n$:SYS&2E,256+30,p%,n$:Up%(n%)=p%:Up$(n%)=n$:ENDPROC
27590DEFPROCjk(f$,n%):IFge%=1 THEN
27610PROCjv(f$,n%)
27620ELSE:PROCjw(f$,n%)
27640ENDIF:ENDPROC
27670DEFPROCjw(f$,n%):LOCALp%,h%:p%=FNew(Zf%*Zg%*3):IFp%<=0 THENERROR1,"No room to load Clear file "+FNex(Zf%*Zg%*3)
27700SYS&D,&43,f$ TOh%:SYS&C,3,h%,p%,3*Zf%*Zg%,hX%:SYS&D,0,h%:Uq%(n%)=p%:ENDPROC
27760DEFPROCjv(f$,n%):LOCALp%,l%,h%,jx%,ZU%,i%:l%=Zg%*(4+4*(Zf%-1)DIV4):p%=FNew(l%+20):IFp%<=0 THENERROR1,"No room to load Clear file "+FNex(l%+20)
27800p%!0=l%+20:p%!4=0:p%!8=16:p%!12=16:SYS&2E,256+15,p%,"ClearImage",0,Zf%,Zg%,21:SYS&D,&43,f$ TOh%:IF(Zf% MOD4)=0 THEN
27840SYS&C,4,h%,p%+60,Zf%*Zg%
27850ELSE:jx%=p%+60:ZU%=4*((Zf%+4)DIV4):FORi%=1 TOZg%:SYS&C,4,h%,jx%,Zf%:jx%+=ZU%:NEXT
27920ENDIF:SYS&D,0,h%:ENDPROC
27960DEFFNjV(n%):n%=Up%(n%):n%+=n%!8:=n%+n%!32
27980DEFPROCjl(f$):LOCALjy$,x%,y%,cm%,c%,Zy%,t%,ho%,c$,fu%:jy$=FNbk(f$):PROCjz(jy$):SYS&8,5,f$+".!Morph" TOjf%:IFjf%=0 THENENDPROC
28040IFjf%<>1 THENERROR1,jy$+".!Morph already exists, but not as a file."
28050h%=OPENIN(f$+".!Morph"):fu%=FNjo(h%):IFfu%<-2 ORfu%>50 THENCLOSE#h%:ERROR1,"This version of Morpheus can only read setup formats 0, 1 and 2."
28080IFfu%=-1 ORfu%=-2 THEN
28090fu%=-fu%:x%=FNjo(h%):y%=FNjo(h%):IFx%<3 ORy%<3 ORx%>30 ORy%>30 THENCLOSE#h%:PROCXt("Error in morph setup.","",""):ENDPROC
28120Zy%=FNjo(h%):IFZy%<3 ORZy%>64 THENCLOSE#h%:PROCXt("Error in morph setup.","",""):ENDPROC
28140Xz%=Zy%:t%=0:FORZy%=1 TOXz%:ho%=t%:t%=FNjo(h%):IFt%<0 ORt%>1024 ORt%<ho% THENCLOSE#h%:PROCXt("Error in morph setup.","",""):ENDPROC
28190Ut%!(4*Zy%)=t%:NEXT:FORt%=1 TO8:Ur$(t%)=GET$#h%:NEXT:FORZy%=1 TO8:FORt%=0 TO10:Ur%(Zy%,t%)=FNjo(h%):NEXT:PROCap(Zy%):NEXT:t%=FNjo(h%):as%=0:IF(t% AND1)<>0 THENas%=(as% OR1)
28310IF(t% AND2)<>0 THENas%=(as% OR2)
28320IF(t% AND4)<>0 THENas%=(as% OR4)
28330IF(t% AND8)<>0 THENas%=(as% OR8)
28340PROCiX(as%):IF(t% AND16)<>0 THENYZ%=TRUEELSEYZ%=FALSE
28360IF(t% AND32)<>0 THENYY%=TRUEELSEYY%=FALSE
28370PROCWu(Wr%,45,YZ%):PROCWu(Wr%,44,YY%):t%=FNjo(h%):c$="":ha%=t%:IFt%=71 THENt%=0:c$="Invert"
28420$Wq%=c$:PROCZi(Wr%,31,t%):Wj=FNjo(h%)/100:Wk=FNjo(h%)/100:PROCkU(x%,y%,h%,fu%)
28470ELSE:x%=fu%:y%=FNjo(h%):IFx%<3 ORy%<3 ORx%>30 ORy%>30CLOSE#h%:PROCXt("Error in morph setup.","",""):ENDPROC
28500PROCkU(x%,y%,h%,0)
28510ENDIF:CLOSE#h%:ENDPROC
28550DEFPROCkU(x%,y%,h%,fu%):LOCALen%,p%,cm%,t%:ds%=x%:dk%=y%:Uk%!0=x%:Uk%!4=y%:FORp%=0 TOds%*dk%-1:en%=Uk%+48*p%+8:en%!0=FNjo(h%):en%!4=FNjo(h%):en%!8=FNjo(h%):en%!12=FNjo(h%):en%!24=0:CASEfu% OF
28670WHEN0:cm%=FNjo(h%):en%?29=(cm% AND15):en%?30=(cm%>>4)AND15:en%!32=0:en%!36=0:en%!40=0:en%!44=0
28710WHEN1:en%!28=FNjo(h%):t%=FNjo(h%):t%=FNjo(h%):en%!32=0:en%!36=0:en%!40=0:en%!44=0
28740WHEN2:en%!28=FNjo(h%):en%!32=FNjo(h%):en%!36=FNjo(h%):en%!40=FNjo(h%):en%!44=FNjo(h%)
28770ENDCASE:NEXT:ENDPROC
28810DEFPROCjz(f$):LOCALc%,t,Zy%:Xz%=10:ds%=10:dk%=10:FORZy%=1 TO8:FORt%=0 TO10:Ur%(Zy%,t%)=50.8*t%:NEXT:PROCap(Zy%):NEXT:FORc%=1 TO8:Ur$(c%)="Group #"+STR$c%:NEXT:PROCbb(0):PROCYp:PROCet(3):ENDPROC
28960DEFFNjo(h%):Ub%?0=BGET#h%:Ub%?1=BGET#h%:Ub%?2=BGET#h%:Ub%?3=BGET#h%:=!Ub%
29000DEFPROCjZ(t$,w%):Uy%!0=w%:SYS&400CC,,Uy%:$(Uy%!76)=t$:ENDPROC
29040DEFPROCja:LOCALZZ%,f$,kV%,kW%:f$=it$+".!Morph":SYS&8,5,f$ TOZZ%,,kV%,kW%:IFZZ%=1 THEN
29090Ub%!0=kW%:Ub%?4=(kV% AND255)
29100ELSE:Ub%?0=3:SYS&7,14,Ub%
29120ENDIF:SYS&C0,Ub%,FNi(gk%,3),24:ENDPROC
29160DEFPROCZd(p%,kX%):LOCALf$,h%,kY%,i%,v:f$=FNs(p%):kY%=Uu%!(4*Zj%-4):IFkX%=&FFF THEN
29210h%=OPENIN(f$):PROCUW:i%=0:REPEAT:v=VAL(GET$#h%):kY%!(4*i%)=1024*v:i%+=1:UNTILEOF#h% ORi%=1025:PROCVX:CLOSE#h%
29310ELSE:ERROR1,"You can only load textfiles (1025 entries, separated by linefeeds)."
29330ENDIF:ENDPROC
29360DEFPROCcW(ep$,bm$,x%,y%,bt%):LOCALkZ%,gc%,ka%,kb$,dw%,dx%,m%,t%:ka%=2000+y%*(4+4*(x%-1)DIV4):gc%=FNew(ka%):IFgc%<=0 THENERROR1,"No room for conversion to the sprite."
29400gc%!0=ka%:gc%!4=0:gc%!8=16:gc%!12=16:SYS&8,5,ep$ TO,,,,ka%:ka%+=20:kZ%=FNew(ka%):IFkZ%<=0 THENPROCfX(gc%):ERROR1,"No room for conversion to the sprite."
29430kZ%!0=ka%:kZ%!4=0:kZ%!8=16:kZ%!12=16:SYS&2E,256+10,kZ%,ep$:kb$=FNiu(kZ%):SYS&2E,256+40,kZ%,kb$ TO,,,dw%,dx%,,m%:SYS&2E,256+15,gc%,"converted",0,x%,y%,bt%:t%=Ub%:t%!0=x%*(1<<FNcU(bt%,4)):t%!4=y%*(1<<FNcU(bt%,5))
29500t%!8=dw%*(1<<FNcU(m%,4)):t%!12=dx%*(1<<FNcU(m%,5)):SYS&2E,256+60,gc%,"converted",0 TOkc%,kd%,ke%,kf%:SYS&40750:IFFNcU(m%,3)<>63 THEN
29540SYS&60740,kZ%,kb$,-1,0,Ub%+20,%10
29550ELSE:FORt%=0 TO255:Ub%?(20+t%)=t%:NEXT
29570ENDIF:SYS&2002E,256+52,kZ%,kb$,0,0,0,Ub%,Ub%+20:SYS&2E,kc%,kd%,ke%,kf%:SYS&40750:SYS&2E,256+12,gc%,bm$:PROCfX(kZ%):PROCfX(gc%):ENDPROC
29670DEFPROCjh(s%):LOCALcX%,eZ%,i%,jp%,jq%,ez%,jn%,jm%:IFs%<=0 THENENDPROC
29700ji%=FALSE:cX%=s%+s%!8:eZ%=cX%!32:IFcX%!36<eZ% THENeZ%=cX%!36
29730CASETRUE OF
29740WHENeZ%=2092:jp%=TRUE:jq%=cX%+44:FORi%=0 TO255:ez%=jq%?(8*i%+1):jn%=jq%?(8*i%+2):jm%=jq%?(8*i%+3):IFez%<>jn% ORjn%<>jm% ORez%<>jm% THENjp%=FALSE
29780Ua%?i%=ez%:NEXT:IFjp% THENji%=TRUE
29810PROCkg(cX%,s%)
29820WHENeZ%>44:PROCkg(cX%,s%)
29830ENDCASE:ENDPROC
29860DEFPROCkg(cX%,kh%):LOCALki%:ki%=cX%!32-44:PROCcY(Yl,cX%+ki%+44,kh%!0-cX%!32-kh%!8,cX%+44,0,0,0):cX%!0=cX%!0-ki%:cX%!32=cX%!32-ki%:cX%!36=cX%!36-ki%:kh%!0=kh%!0-ki%:kh%!12=kh%!12-ki%:ENDPROC
2�UV$="1.00 Demonstration version":�UW:�b% 2500,Q% 6000,UX% 1000,UY% 3000,UZ% 256,Ua% 256,Ub% 1024:�Uc% 16,Ud% 16,Ue% 16,Uf% 16,Ug% 256,Uh% 256,Ui% 256,Uj% 256:�Uk% 48*30*30+8,Ul% 12000,Um% 20,Un% 1024:�Uo%(20),Up%(10),Up$(10),Uq%(10),Ur$(8),Ur%(8,11)
���Us% 33000,Ut% 320,Uu% 32,Uv% 40,Uw% 256:�Ux:Uy%=b%+1000:Uv%!0=2:Uv%!4=3:Uv%!8=&400C0:Uv%!12=&400C1:Uv%!16=0:$b%="TASK":ș&400C0,300,!b%,"Morpheus DEMO",Uv% �,Uz%:�=�+&4000:�=�-256:VU%=�:�VV(VU%,256):�VW:�VX:�VY:��VZ
"%ȕVa%=0:ș&400C7,,b% �Vb%:ȎVb% �
@�0:�Vc% ��Vc
J�Vd% ��Ve(3)
T
�Vf% ��Vg
^
�Vh% ��Vh
h�1:�Vi(b%)
r�2:�Vj(b%!0,�)
|�3:�Vk(b%!0)
��4:�b%!0=Vl% �Vh%=�:�Vm
�%�b%!0=Vn% �b%!0=Vo% �Vd%=�:�Ve(2)
��5:�b%!0=Vl% �Vh%=�
�.�(b%!0=Vn% �b%!0=Vo%) � �Vd% �Vd%=�:�Ve(1)
��6:�Vp(b%)
��7:�Vq(b%)
��8:�Vr(b%!0,b%!4,b%!24)
��9:�Vs(b%)
��17,18:�Vt(b%)
���:�:b%!0=1:$(b%+4)="The Full version of Morpheus is available from Oregan Developments, 36 Grosvenor Avenue, Streetly, Sutton Coldfield, B74 3PE and costs �34.95":ș&400DF,b%,17,"Morpheus DEMO":�Vu:Ș
&>��VY:ș&400D1,-1,Vv%/2-380,Vw%/2-240,Vv%/2+400,Vw%/2+240:�
N)��Vu:�Vx%,n%:�Vx%=0 �255:�Uw%?Vx%>0 �
v!�n%=0 �Uw%?Vx%:ș&40082,Vx%:�
��:�:ș&400DD:�
�.��Ux:�Vy%,Vz%,f$:ș53,-1,5 �,,Vz%:�Vz%=1 �
�-f$="<MorphDemo$Dir>.Resources.XSprites22"
�-�:f$="<MorphDemo$Dir>.Resources.XSprites"
�d�:ș&8,5,f$ �,,,,Vy%:Vy%+=16:�Ux% Vy%:Ux%!0=Vy%:Ux%!4=0:Ux%!8=16:Ux%!12=16:ș&2E,256+10,Ux%,f$:�
H1ݤWU:�Vb%,WV%:WV%=1:ș&400C7,,b% �Vb%:ȎVb% �
z�0:WV%=0:�Vd% ��Ve(3)
��1:�Vi(b%)
��2:�Vj(b%!0,�)
��3:�Vk(b%!0)
��4:�b%!0=WW% �Vh%=�:�Vm
�%�b%!0=Vn% �b%!0=Vo% �Vd%=�:�Ve(2)
��5:�b%!0=WW% �Vh%=�
�.�(b%!0=Vn% �b%!0=Vo%) � �Vd% �Vd%=�:�Ve(1)
��6:�Vp(b%)
��8:�Vr(b%!0,b%!4,b%!24)
�$�9:�WX%=2 �b%!0=6 �b%!4=0 �WV%=3
��17,18:�b%!16=0 �WV%=2
�
�:=WV%
��VW:�WY%,p%,i%,l%:��VZ:Ș
8LWZ%=�:Va%=0:Wa%=0:Wb%=0:Wc%=�:Wd%=�:ș&6,161,28 �,,p%:�(p% �3)<>0 �Wd%=�
t��We:$�i(Wf%,3)=UV$:Wg%=�i(Wh%,0):�Wi 12:$Wi="!MORPHDEMO":!b%=-1:b%!4=0:b%!12=64:b%!8=0:b%!16=72:b%!20=&3102:b%!24=Wi:b%!28=1:b%!32=�$Wi+1:ș&400C2,,b% �WY%:Wj=1:Wk=1:Wl=1:Wm%=1:�Wn:�Wo:Wp%=�:�i%=0 �7:Uu%!(4*i%)=Us%+4100*i%:�:Wq%=�i(Wr%,31)
�Ws%=0:Un%!0=-1:Vd%=�:Wt%=2:�Wu(Wr%,10,1):Wv%=-1:Ww%=-1:Wx%=-1:Wy%=-1:Vh%=�:Wz%=�:XU%=0:XV%=0:XW%=�:XX%=�:XY%=�:XZ%=�:Xa%=�:Xb%=�:Xc%=�i(Xd%,2):Xe%=�Xf(Xd%,4):Xg%=�i(Xd%,12):Xh%=�i(Xd%,14):Xi%=�i(Xj%,2):Xk%=�i(Xj%,13):Xl%=�i(Xm%,1):Xn%=�i(Xm%,3)
��Xo%=�i(Xp%,1):Xq%=�i(Wr%,37):Xr%=�i(Wr%,40):Xs%=�i(Xt%,0):Xu%=�i(Xt%,1):Xv%=�i(Xw%,7):Xx%=�i(Xw%,8):Xy%=�i(Xw%,9):Xz%=10:YU%=�i(YV%,1):YW%=�i(YV%,8):YX%=�i(YV%,9):YY%=�:YZ%=�:�Wu(Wr%,45,1):�Wu(Xm%,5,0):Vc%=�:Ya%=-1:Yb%=�:Yc%=0:Yd%=0
��Up%()=-1:Up$()="":Uq%()=-1:Vf%=�:ș&8,255,"<MorphDemo$Dir>.Resources.MorphCode",Ul%:Ye=4:Yf=8:Yg=12:Yh=16:Yi=20:Yj=28:Yk=32:Yl=36:Ym=40:Yn=44:Yo=48:Yp=52:Yq=56:Yr=60:�Ys(�):�
�*��Vk(w%):Uy%!0=w%:ș&400C6,,Uy%:Ȏw% �
��Vn%:�Yt% ��Vk(Yu%)
��Yv%:�Vk(Wr%):XY%=�
��Xd%:Yw%=�:�Wu(Yu%,6,0)
��Xj%:Yx%=�:�Wu(Yu%,7,0)
��WW%=XW%=�
��Yy%:XX%=�
��:�
�.��Vj(w%,Yz%):�ZU%,ZV%:b%!0=w%:ZV%=�:Ȏw% �
�Vn%:�Yt% �
*@Uy%!0=Yu%:Uy%!4=b%!4-136:Uy%!8=b%!16-1000:�b%!4<136 �Uy%!4=0
>^Uy%!12=Uy%!4+136:Uy%!16=b%!16:Uy%!20=0:Uy%!24=0:Uy%!28=b%!28:� �Yz%ș&400CB,,Uy%:Uy%!28=-1
R$ș&400C5,,Uy%:� �Yz%ș&400CB,,b%
f b%!28=Yu%:ș&400C5,,b%:ZV%=�
z�
�'�Yv%:Uy%!0=Wr%:ș&400CB,,Uy%:�Yz% �
�NUy%!4=b%!4+16:Uy%!8=b%!8+16:Uy%!12=Uy%!4+800:Uy%!16=Uy%!8+400:Uy%!28=b%!28
��:Uy%!28=-1
�&�:ș&400C5,,Uy%:� �Yz%ș&400CB,,b%
�&b%!28=Wr%:ș&400C5,,b%:XY%=�:ZV%=�
� �Xd%:� �Yw% ��Wu(Yu%,6,1)
� Yw%=�
�Xj%:� �Yx% ��Wu(Yu%,7,1)
Yx%=�
�WW%:XW%=�
$�Yy%:XX%=�
. �:�ZV% �
B � �Yz%ș&400CB,,b%:b%!28=-1
Lș&400C5,,b%
V�:�
t"��ZW(w%):�Vj(w%,�):�Vj(w%,�):�
�B��ZX(w%,x%,y%):b%!0=0:b%!4=0:b%!8=x%:b%!12=y%:ș&400D7,w%,b%:�
�+��Vt(b%):�ZY%,s$,ZZ%:ZY%=b%!8:Ȏb%!16 �
� �0:Va%=�
��2:�Wb%=0 ��
� ȎWb% �
��25:�Za(b%+44)
�
�3:�b%!12<>0 ��
ș&400CF,,Uy%:Ȏ� �
(�b%!40=&1000:Ȏ� �
2�Uy%!12=-2:�Zb(b%)
<3�Uy%!12=Xj% �Uy%!16=2:$Xi%=�s(b%+44):�Zc(Xj%,2)
P�
Z-�b%!40=&FF9 �Uy%!12=Xw%:�Xw(b%+44,Uy%!16)
d �b%!40=&FFD �WZ% �Uy%!12=-2
n �Uy%!12=WW%:�Zd(b%+44,b%+40)
x�
��&400C0:Ȏb%!32 �
��3:�b%!36=0 ��Ze
��2:Ȏb%!36 �
��3:$Xo%="ARMovie"
��4:$Xo%="ViA-file"
��
�!�:ș&400E8,,b%!20,b%!24,b%!28
��&400C1:�Wn
��:�
�X��Ze:$YU%=�(Xz%):$YW%=�(1+�((Xz%*Zf%*Zg%)/1024)):$YX%=�(1+�((3*Xz%*Zf%*Zg%)/1024)):�
6���Zh(g%):�i%:�Zi(WW%,17,7+g%):Zj%=g%:$�i(WW%,16)=�g%:�Zc(WW%,16):$�i(WW%,18)=Ur$(g%):�Zc(WW%,18):�i%=0 �10:Ur%(0,i%)=Ur%(g%,i%):�:�Zc(WW%,0):�
�P��Xt(Zk$,Zl$,Zm$):$�i(Xt%,0)=Zk$:$�i(Xt%,1)=Zl$:$�i(Xt%,2)=Zm$:�Zn(Xt%):�7:�
���Zo:ș&400D4,,-1:�
���VZ:�Vf% ��Zp
�
�Wp% ��Zq
�Zr(0):!b%=�:�<>1 �
&&$(b%+4)=�$+" (Error code "+Þ+")."
0�:$(b%+4)=�$
D2�:ș&400DF,b%,1,"Morpheus DEMO":�(-90) �Va%=�
b�
vF��Zs(w%,i%,Zt%):b%!0=0:b%!4=0:b%!8=Zt%:b%!12=w%:b%!16=i%:�Vp(b%):�
����Vp(b%):�w%,i%,Zt%,Zu%,Zv%,Zw%,x%,y%,Zx,Zy%,f%,p%,Zz%,aU%:w%=b%!12:i%=b%!16:Zt%=b%!8:x%=b%!0:y%=b%!4:Zw%=(Zt% �4)<>0:Zu%=(Zt% �2)<>0:Zv%=(Zt% �1)<>0:�Zu% ��aV(0)
��w%<>Xd% �Yw% ��Vk(Xd%)
��w%<>Xj% �Yx% ��Vk(Xj%)
�$�w%<>Wr% �w%<>Yv% �XY% ��Vk(Yv%)
��w%<>WW% �XW% ��Vk(WW%)
�w%<>Yy% �XX% ��Vk(Yy%)
Ȏw% �
�-2:�Zu% �
2�aW:aX%=x%-80:aY%=228:ș&400D4,,Uo%(1),aX%,aY%
4 �:�Zw% �
H
�WZ% �
R �ZW(Vn%):�ZW(Vo%):�ZW(aZ%)
f �:�aa
z�
� �:�Zv% �Vf% ��Zn(Xt%):�ab
��Yu%:�Zu% �Vf% ��
�
Ȏi% �
�0�1:ac%=�ac%:�Wu(Yu%,1,ac%):�ad(Vn%):�ad(Vo%)
��0,2,3,4,5:�aV(i%+1)
��6:�aV(0):�ZW(Xd%)
��7:�aV(0):�ZW(Xj%)
��
��Vn%:�Zu% �
�:aX%=x%-60:aY%=y%:�ae(1):�Yi:ș&400D4,,Uo%(2),aX%,aY%:�
�:�Vf% ��
. ȎYd% �
8�1:�af(x%,y%,10)
B�3:�Zv% �ag% �
L�ah(0,1,3,x%,y%)
V�:�ah(0,0,2,x%,y%)
j�
t�4:�ai(x%,y%,Zw%,w%)
~�5:�aj(x%,y%,Zw%,w%)
��6:�ak(x%,y%,w%,Zt%)
��7:�af(x%,y%,7)
��
��Vo%:�Zu% �
�:aX%=x%-60:aY%=y%:�ae(2):�Yi:ș&400D4,,Uo%(2),aX%,aY%:�
�
�:�Vf% ��
� ȎYd% �
��1:�af(x%,y%,11)
�3:�Zv% �ag% �
�ah(1,1,5,x%,y%)
�:�ah(1,0,4,x%,y%)
(�
2�4:�ai(x%,y%,Zw%,w%)
<�5:�aj(x%,y%,Zw%,w%)
F�6:�ak(x%,y%,w%,Zt%)
P�7:�af(x%,y%,8)
Z�
d�aZ%:�Zu% �
n4aX%=x%-60:aY%=y%:�ae(3):ș&400D4,,Uo%(2),aX%,aY%
��
��Xt%:�i%=4 ��Vk(Xt%)
�&�Vl%:�i%=12 �Zw% �Wz% ��af(0,0,15)
��Wh%:�Zu% ��
�
Ȏi% �
�+�2:�al(w%,0,Wg%,1,10,999,0,4):�am(w%,0)
�,�3:�al(w%,0,Wg%,-1,10,999,0,4):�am(w%,0)
�-�5,6,7,8:Zx%=50*(2^(i%-5)):�i%=8 �Zx%=500
�$$Wg%=�(Zx%):�Zc(Wh%,0):�am(w%,0)
��9:�an:�Zw% ��Zo
� �10:�Zo
��
��WW%:�Zu% �i%<>17 ��
Ȏi% �
x�22:b%!0=w%:ș&400CB,,b%:x%-=b%!4-b%!20+300:y%-=b%!16-b%!24+68:f%=(x%+61)/102.4:Ur%(0,f%)=y%:x%=300+102.4*f%:�f%=0 �
J ș&400D1,w%,300,72,403,584
T&�:ș&400D1,w%,x%-103,72,x%+103,584
h�
r6�17:aX%=x%-60:aY%=y%:�ao:ș&400D4,,Uo%(11),aX%,aY%
�b�19:Ur$(0)="Group #"+�Zj%:$�i(w%,18)=Ur$(0):�f%=0 �10:Ur%(0,f%)=50.8*f%:�:�Zc(w%,0):�Zc(w%,18)
�n�20:�f%=0 �10:Ur%(0,f%)=Ur%(Zj%,f%):�:Ur$(0)=Ur$(Zj%):$�i(w%,18)=Ur$(0):�Zc(w%,0):�Zc(w%,18):�Zw% ��Vk(w%)
�Y�21:�f%=0 �10:Ur%(Zj%,f%)=Ur%(0,f%):�:Ur$(Zj%)=�s(�i(WW%,18)):�ap(Zj%):�Zw% ��Vk(WW%)
�
"�Wr%:�Zu% �(i%<>31 �i%<>33) ��
Ȏi% �
& �2:Zr%=�Zr%:�Wu(w%,i%,Zr%)
0%�3:Yt%=�Yt%:�Wu(w%,i%,Yt%):�WZ% �
D�Yt% ��ZW(Vn%)��Vk(Yu%)
N�
X,�4:aq%=�aq%:�Wu(w%,i%,aq%):�ar(w%,2,aq%)
l'�8,9,10:Wt%=i%-8:�Zv% ��Wu(w%,i%,1)
v'�16:as%=as% � �1:�Zv% ��Wu(w%,i%,1)
�%�17:as%=as% �1:�Zv% ��Wu(w%,i%,1)
�%�19:as%=as% �2:�Zv% ��Wu(w%,i%,1)
�'�20:as%=as% � �2:�Zv% ��Wu(w%,i%,1)
�'�23:as%=as% � �4:�Zv% ��Wu(w%,i%,1)
�%�24:as%=as% �4:�Zv% ��Wu(w%,i%,1)
�'�26:as%=as% � �8:�Zv% ��Wu(w%,i%,1)
�%�25:as%=as% �8:�Zv% ��Wu(w%,i%,1)
�A�29:at%=�at%:�Wu(w%,i%,at%):�ad(Vn%):�ad(Vo%):�ar(w%,42,�at%)
�5�31:aX%=x%-80:aY%=y%:�au:ș&400D4,,Uo%(6),aX%,aY%
�5�33:aX%=x%-80:aY%=y%:�au:ș&400D4,,Uo%(6),aX%,aY%
�32:ag%=�ag%:�Wu(w%,i%,ag%)
D�36:av%=�av%:�Wu(w%,i%,av%):�ar(w%,37,�av%):�av% ��am(w%,37)��aw
41�42:ax%=�ax%:�Wu(w%,i%,ax%):�ad(Vn%):�ad(Vo%)
H �44:YY%=�YY%:�Wu(w%,i%,YY%)
R �45:YZ%=�YZ%:�Wu(w%,i%,YZ%)
\�
f�Yv%:�Zu% ��
p
Ȏi% �
z�0:�Vk(w%)
��
��Xd%:�Zu% �i%<>18 ��
�
Ȏi% �
�&�6,7,8:ay%=i%-6:�Zv% ��Wu(w%,i%,1)
� �ay%=2 �
�"$Xe%="Sfile_690;Pptr_hand,6,6"
�$�:$Xe%="Sfile_ff9;Pptr_hand,6,6"
�'�:�Zc(w%,4):�az(ay%,Xd%,18):bU%=ay%
�)�11,13:bV%=(i%=11):�Zv% ��Wu(w%,i%,1)
�/�ar(w%,i%+1,0):�ar(w%,25-i%,1):�am(w%,i%+1)
�15:�Vk(Xd%)
�16:f%=ay%:�f%=3 �f%=bU%
.�f%>2 �f%+=5
8
�bV% �
B$�bW(�,0,f%,�(�s(Xg%)),�s(Xc%),2)
L&�:�bW(�,0,f%,�(�s(Xh%)),�s(Xc%),2)
`�:�Vk(Yv%)
t �17:ay%=3:�Zv% ��Wu(w%,i%,1)
~ ȎbU% �
�)�0,1,3:$Xe%="Sfile_ff9;Pptr_hand,6,6"
�%�2:$Xe%="Sfile_690;Pptr_hand,6,6"
�)�4,5,6:$Xe%="Sfile_ffd;Pptr_hand,6,6"
��:�Zc(w%,4)
�9�18:aX%=x%-80:aY%=y%:�bX(4):ș&400D4,,Uo%(16),aX%,aY%
��
��Xj%:�Zu% �i%<>17 ��
�
Ȏi% �
�&�6,7,8:bY%=i%-6:�Zv% ��Wu(w%,i%,1)
��az(bY%,Xj%,17):bZ%=bY%
�16:bY%=3:�Zv% ��Wu(w%,i%,1)
)�11,12:ba%=(i%=12):�Zv% ��Wu(w%,i%,1)
)�ar(w%,13,ba%):�i%=12 ��aw��am(w%,13)
(�15:�Vk(w%)
29�17:aX%=x%-80:aY%=y%:�bX(5):ș&400D4,,Uo%(16),aX%,aY%
F�
P�YV%:�Zu% ��
Z
Ȏi% �
d��2,3:�al(w%,1,YU%,5-2*i%,2,64,0,2):Zy%=�(�s(YU%)):$YW%=�(�((Zy%*Zf%*Zg%)/1024)):�Zc(w%,8):$YX%=�(�((3*Zy%*Zf%*Zg%)/1024)):�Zc(w%,9)
�(�4:Zy%=�(�s(YU%)):�Zy%>=2 �Zy%<=64 �
�*Xz%=Zy%:�bb(0):�Ze:�Zc(w%,8):�Zc(w%,9)
��:�Zw% ��Zo
��
��Yy%:�Zw% �
��b%!0=w%:ș&400CB,,b%:x%=(x%-b%!4+b%!20)/(bc%*bd):y%=(y%-b%!16+b%!24)/(be%*bd):p%=Uk%+8+48*XV%:Zz%=�((x%-p%!0-p%!32)^2+((y%-p%!4-p%!36)<<bf%)^2):aU%=�((x%-p%!8-p%!40)^2+((y%-p%!12-p%!44)<<bf%)^2):�Zz%<aU% �
%�p%!32<>x%-p%!0 �p%!36<>y%-p%!4 �
"'�bg:p%!32=x%-p%!0:p%!36=y%-p%!4:�bg
,�
6(�:�p%!40<>x%-p%!8 �p%!44<>y%-p%!12 �
J(�bg:p%!40=x%-p%!8:p%!44=y%-p%!12:�bg
T�
^�:�
r �:�Zu% �
�4aX%=x%-60:aY%=y%:�bh:ș&400D4,,Uo%(19),aX%,aY%:�
��
��Xw%:�Zu% ��
�
Ȏi% �
� �5:Xb%=�Xb%:�Wu(w%,i%,Xb%)
��6:�af(w%,i%,25)
��
��:�
�(��Xw(bi%,i%):�s$,f$:�i%<>0 �i%<>2 ��
2f$=�s(bi%):$�Xf(Xw%,i%)="R2;Sfile_ff9":�i%=0 �
:"bj$=f$:$Xx%=�bk(f$):�Zc(Xw%,8)
N$�:bl$=f$:$Xy%=�bk(f$):�Zc(Xw%,9)
l�:�bj$<>"" �bl$<>"" �
�6�ar(Xw%,6,0):$Xv%="NewMorph":�Zc(Xw%,7):�am(Xw%,7)
��:�Zc(Xw%,i%):�
І��Za(p%):�bm$,ZZ%,bn%,bo%,bp%,bq%,br%,bs%,bt%:�Vk(Xw%):bm$=�s(p%):ș&8,23,bj$ �ZZ%,,,,,,bn%:�ZZ%<>1 ��Vk(Xw%):�1,"Can't find "+bj$
Dș&8,23,bl$ �ZZ%,,,,,,bo%:�ZZ%<>1 ��Vk(Xw%):�1,"Can't find "+bl$
/�bn%<>bo% ��1,"Both files MUST be sprites."
*
�Xb% �
4��bu(bj$):bp%=bv%:bq%=bw%:bt%=bx%:�bu(bl$):br%=bv%:bs%=bw%:ș&8,5,bj$ �,,,,by%:ș&8,5,bl$ �,,,,bz%:ș&8,8,bm$:�by%<>bz% �bp%<>br% �bq%<>bs% ��cU(bt%,3)<>63 �
pVbt%=�cV(�):�cW(bj$,bm$+".Sprite1",bp%,bq%,bt%):�cW(bl$,bm$+".Sprite2",bp%,bq%,bt%)
�Q�:ș&29,&1A,bj$,bm$+".Sprite1",%1100000:ș&29,&1A,bl$,bm$+".Sprite2",%1100000
��
�\�:ș&8,8,bm$:ș&29,&1A,bj$,bm$+".Sprite1",%1100000:ș&29,&1A,bl$,bm$+".Sprite2",%1100000
� �:$(b%+44)=bm$:�Zb(b%):�
w��aa:$�Xf(Xw%,0)="R2":$�Xf(Xw%,2)="R2":$Xv%="":$Xx%="":$Xy%="":�ar(Xw%,6,1):�Wu(Xw%,5,Xb%):bj$="":bl$="":�ZW(Xw%):�
t6��bb(cX%):�Zy%,t:�Zy%=1 �Xz%:t=Zy%/(Xz%+1):ȎcX% �
�
�0:t=t
� �1:t=t*t
��2:t=�(t*�/2)
�-�3:�t<=0.5 �t=0.5*�(t*�)�t=1-0.5*�(�-t*�)
��4:t=0.5-0.5*�(t*�)
� �:Ut%!(4*Zy%)=1024*t:�:�
`��ap(i%):�p%,s%:p%=Uu%!(4*i%-4):�s%=0 �10:Ub%!(4*s%)=2*Ur%(i%,s%):�:�cY(Yo,p%,Ub%,0,0,0,0):�
P��Vr(w%,i%,k%):Ȏw% �
d�Xm%:�i%=1 �k%=13 �
n,Vf%=�:cZ%=17:�Zo:�aq% ��ad(Vn%):�ad(Vo%)
�
�:�ca(k%)
��
��Xp%:�i%=1 �k%=13 �
�,Vf%=�:cZ%=16:�Zo:�aq% ��ad(Vn%):�ad(Vo%)
�
�:�ca(k%)
��
�*�YV%:�i%=1 �k%=13 ��Zs(w%,4,1)��ca(k%)
�
:�ca(k%)
��:�
��ca(k%):ș&400DC,k%:�
,(��am(w%,i%):ș&400D2,w%,i%,,,40,-1:�
6!��aw:ș&400D2,-1,-1,,,40,-1:�
J6��al(w%,i%,cb%,cc,cd,ce,cf%,cg%):�v$,v,@%:�cd=ce �
hv=cc
r!�:v=�(�s(cb%))+cc:�v<cd �v=cd
��v>ce �v=ce
�F�:@%=&20000+256*cf%+cg%:�v<>0 �v$=��(v+(0.1^(cf%+3))),cg%)�v$=�(0)
�!�v$,".") �v$=�v$,�v$,".")-1)
�$cb%=v$:�Zc(w%,i%):�
�\��aV(Vb%):�Vb%=4 �ac% ��1,"You can only alter the guide marks with the grid turned off."
�a�Vb%=5 � �at% ��1,"You can only alter the group of the knots when the knots are being shown."
�$�Yd%>0 �Yd%<20 ��Wu(Yu%,Yd%-1,0)
,Yd%=Vb%:�Yd%>0 �Yd%<20 ��Wu(Yu%,Yd%-1,1)
�
0]��Vq(b%):�x%,y%,z,ch,w%,ci,cj,p%,ck%,cl%,ZU%,cm%,cn%:ș&400CF,,b%:x%=b%!0:y%=b%!4:ȎWa% �
X��25:b%!20=b%!12:b%!24=b%!16:b%!28=b%!0:b%!32=b%!4:b%!12=0:b%!16=1:b%!36=40000:b%!40=&1000:b%!0=60:$(b%+44)=�s(Xv%):ș&400E7,17,b%,b%!20,b%!24
�6�2,3,4,5:�co(cp%,cq%,Yc%,Yb%):Vc%=�:cm%=3:� �Yb% �
��Yc%=0 �cm%=1�cm%=2
��:�cr(Ya%,cm%):�Yb% �
�&p%=Uk%+8+48*Ya%:p%!8=cp%:p%!12=cq%
��:p%=Uk%+8+48*Ya%+8*Yc%
�T�:p%!0=cp%:p%!4=cq%:XU%=0:�cr(Ya%,cm%):ș&400CF,,b%:�b%!12=Vn% �b%!12=Vo% �Vd%=�
(�7,8:�Wa%=7 �w%=Vn%:z=Wj�w%=Vo%:z=Wk
*/�b%!12<>w% ��1,"Please keep inside window."
4�x%<cp% �Ȕx%,cp%
>�y%<cq% �Ȕy%,cq%
H�b%!0=w%:ș&400CB,,b%:x%=(x%-b%!4+b%!20)/z:y%=(y%-b%!16+b%!24)/z:ck%=(cp%-b%!4+b%!20)/z:cl%=(cq%-b%!16+b%!24)/z:�cs(Wa%-6,ck%/bc%,cl%/be%,x%/bc%,y%/be%)
p+�10,11:�Wa%=10 �w%=Vn%:z=Wj�w%=Vo%:z=Wk
z4ch=z:�b%!12<>w% ��1,"Please keep inside window."
��x%<cp% �Ȕx%,cp%
��y%<cq% �Ȕy%,cq%
�_x%=�(x%-cp%):y%=�(y%-cq%):�x%=0 �y%=0 ��1,"You can't enlarge an area with no width/height."
��b%!0=w%:ș&400CB,,b%:cp%-=b%!4-b%!20:cq%-=b%!16-b%!24:cp%=cp%/ch:cq%=cq%/ch:ci=z*�((b%!4-b%!12)/x%):cj=z*�((b%!8-b%!16)/y%):�ci>cj �z=cj�z=ci
�,�z<0.1 �z>10 ��1,"Illegal scale factor."
�~z=�(z*100)/100:�ZX(w%,ct%*z,cu%*z):b%!0=w%:ș&400CB,,b%:b%!20=cp%*z:b%!24=cq%*z-b%!8+b%!16:ș&400C5,,b%:�Wa%=10 �Wj=z�Wk=z
.�cv:�ad(w%):�aV(0)
B_�15:b%!0=Vl%:ș&400CB,,b%:Ut%!(4*cq%)=x%-(b%!4-b%!20)-256:ș&400D1,Vl%,256,160,1280,224:�Vm
j�:Wa%=0:XU%=0:Vc%=�:�
�Q��af(w%,i%,cw%):�cx%,cy%,cz%,dU%,dV$,dW%,dX%,dY%:cz%=w%:dU%=i%:dY%=64:Ȏcw% �
�7�2,3,4,5:cx%=w%:cy%=i%:�cw%=2 �cw%=3 �w%=Vn%�w%=Vo%
�vUy%!0=w%:ș&400CB,,Uy%:b%!24=b%!4:b%!28=b%!8:b%!32=b%!12:b%!36=b%!16:b%!8=cx%:b%!12=cy%:b%!16=cx%:b%!20=cy%:b%!4=7
�"�7,8:�cw%=7 �b%!0=Vn%�b%!0=Vo%
�|ș&400CB,,b%:b%!24=b%!4:b%!28=b%!8:b%!32=b%!12:b%!36=b%!16:b%!8=cz%:b%!12=dU%:b%!16=cz%:b%!20=dU%:b%!4=6:cp%=cz%:cq%=dU%
(%�10,11:�cw%=10 �b%!0=Vn%�b%!0=Vo%
2|ș&400CB,,b%:b%!24=b%!4:b%!28=b%!8:b%!32=b%!12:b%!36=b%!16:b%!8=cz%:b%!12=dU%:b%!16=cz%:b%!20=dU%:b%!4=6:cp%=cz%:cq%=dU%
d��15:Uy%!0=Vl%:ș&400CB,,Uy%:dZ%=Uy%!4-Uy%!20+256:ș&400CF,,Uy%:cx%=Uy%!0-dZ%:cy%=Uy%!4:cx%=�cY(Yn,cx%,Ut%,Xz%,0,0,0):�cx%=0 ��
�6dW%=Ut%!(4*cx%-4):dX%=Ut%!(4*cx%+4):�cx%=1 �dW%=-3
��cx%=Xz% �dX%=1027
��b%!4=7:b%!8=0:b%!12=0:b%!16=0:b%!20=0:b%!24=dZ%+dW%+3:b%!28=cy%:b%!32=dZ%+dX%-3:b%!36=cy%:cq%=cx%:cp%=Ut%!(4*cx%):Vc%=�:XU%=2
���25:Wb%=25:b%!0=w%:ș&400CB,,b%:cx%=b%!4-b%!20:cy%=b%!16-b%!24:b%!4=i%:ș&400CE,,b%:b%!8+=cx%:b%!12+=cy%:b%!16+=cx%:b%!20+=cy%:b%!24=0:b%!28=0:b%!32=Vv%:b%!36=Vw%:b%!4=5:cz%=b%!8:dU%=b%!12:dV$="directory":dY%=68
, �:Wa%=cw%:�cw%>20 �Wd% �
J�Ub%!0=cz%:Ub%!4=dU%:Ub%!8=cz%+dY%:Ub%!12=dU%+64:Ub%!16=-32000:Ub%!20=-32000:Ub%!24=32000:Ub%!28=32000:ș&42400,&C5,1,dV$,Ub%
h�:ș&400D0,,b%
|�:�cw%=15 ��da
��
�K��an:�db,w%:db=�(�s(Wg%))/100:�db<0.1 �db>10 ��1,"Illegal scale factor"
� ȎWm% �
�)�1:w%=Vn%:Wj=db:�ZX(w%,ct%*db,cu%*db)
�)�2:w%=Vo%:Wk=db:�ZX(w%,ct%*db,cu%*db)
�)�3:w%=aZ%:Wl=db:�ZX(w%,dc%*db,dd%*db)
��:�cv:�ZW(w%):�ad(w%):�
0���ab:�de$,df$,dg%,t%:de$="Frame "+�dh%+" of "+�di%+". Line "+�(dj%+1)+" of "+�(dk%-1)+".":dg%=100*(dh%-1+dj%/(dk%-1))/di%:ș66 �t%:t%=(t%-dl%)/100:df$=�dg%+"% completed (in "+�t%+" seconds).":$Xs%=de$:$Xu%=df$:�Zc(Xt%,0):�Zc(Xt%,1):�
�0��da:ș&400E9,36,1,"ptr_time",2,14,6:Wz%=�:�
�2��Vm:ș&400E9,36,1,"ptr_default",1,0,0:Wz%=�:�
����Vh:�dZ%,x%,y%,ZZ%:b%!0=Vl%:ș&400CB,,b%:dZ%=b%!4-b%!20:ș&400CF,,b%:x%=b%!0:y%=b%!4:dZ%=x%-dZ%-256:ZZ%=�cY(Yn,dZ%,Ut%,Xz%,0,0,0):�Wz% �
!R�b%!16<>12 �ZZ%=0 ��Vm
!\�:�b%!16=12 �ZZ%>0 ��da
!p�:�
!�T��Yi:�dm%,dn%,x%,y%,z,cz%,dU%,do%:ș&400CF,,b%:dm%=b%!12:x%=b%!0:y%=b%!4:Ȏdm% �
!��Vn%:do%=0:z=Wj
!��Vo%:do%=1:z=Wk
!�:�
!��:b%!0=dm%:ș&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):dn%=�cY(Yi,Uk%,dp%,dq%,bf%,do%,Wt%):�dn%=0 ��
"$0dm%=dn%!16:�Wt%=2 �dr%=dm% �ds%:dt%=dm% �ds%
"8�
"L<��Ve(du%):�dm%,do%,z,cz%,dU%,dp%,dq%,dn%,x%,y%:�du% �1 �
"j2ș&400CF,,b%:dm%=b%!12:x%=b%!0:y%=b%!4:Ȏdm% �
"~�Vn%:do%=0:z=Wj
"��Vo%:do%=1:z=Wk
"�:�
"���:b%!0=dm%:ș&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):dn%=�cY(Yi,Uk%,dp%,dq%,bf%,do%,Wt%):�dn%=0 ��
"�q�dv(Vn%,dn%,Wj,du%,Wv%,Ww%):�dv(Vo%,dn%+8,Wk,du%,Wx%,Wy%):Wv%=dn%!0:Ww%=dn%!4:Wx%=dn%!8:Wy%=dn%!12:dm%=dn%!16
#
y�:Ub%!0=-2:Ub%!4=-2:�dv(Vn%,Ub%,Wj,2,Wv%,Ww%):Ub%!0=-2:Ub%!4=-2:�dv(Vo%,Ub%,Wk,2,Wx%,Wy%):Wv%=-1:Ww%=-1:Wx%=-1:Wy%=-1
#F�:�
#dU��dv(w%,dn%,z,f%,dw%,dx%):�cm%,dy%,dz%,x%,y%:x%=dn%!0:y%=dn%!4:�x%=dw% �y%=dx% ��
#��b%!0=w%:b%!4=0:b%!8=0:b%!12=32000:b%!16=32000:ș&400C9,,b% �cm%:dy%=b%!4-b%!20:dz%=b%!16-b%!24:ȕcm%:�f% �1 ��eU(dy%,dz%,x%,y%,z)
#�"�f% �2 ��eU(dy%,dz%,dw%,dx%,z)
#�ș&400CA,,b% �cm%:�:�
$2��eV:eW%=1024*�(�s(Xq%)):eX%=1024*�(�s(Xr%)):�
$6,��cY(eY%,A%,B%,C%,D%,E%,F%):�(Ul%+eY%):�
$@.ݤcY(eY%,A%,B%,C%,D%,E%,F%):eY%+=Ul%:=�eY%
$h;��ak(x%,y%,w%,Zt%):�p%,do%,z,dp%,dq%,cz%,dU%,eZ%:Ȏw% �
$��Vn%:do%=0:z=Wj
$��Vo%:do%=1:z=Wk
$���:b%!0=w%:ș&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=�cY(Ye,Uk%,dp%,dq%,bf%,do%,0):�p%=-1 ��1,"Can't find a point."
$� eZ%=Uk%+8+48*p%:�Zt% �1 �
$�L�eZ%?30<>255 ��1,"You can't edit the path for a knot that has no path!!"
$�4�ZX(Yy%,z*ct%,z*cu%):bd=z:XV%=p%:ea%=w%:�ZW(Yy%)
%�:ȎeZ%?30 �
%&-�0,1,2,3,4,5,6,7:eZ%?31=eZ%?30:eZ%?30=255
%0�255:eZ%?30=eZ%?31
%:�:�eb(p%,3)
%N�:�
%lJ��Vc:�x%,y%,w%,z,dw%,dx%:ș&400CF,,b%:x%=b%!0:y%=b%!4:w%=b%!12:ȎXU% �
%�&�1:�Yc%=0 �w%=Vn%:z=Wj�w%=Vo%:z=Wk
%�vb%!0=w%:ș&400CB,,b%:dw%=cp%:dx%=cq%:cp%=(x%-b%!4+b%!20)/(z*bc%):cq%=(y%-b%!16+b%!24)/(z*be%):�dw%=cp% �dx%=cq% ��
%�4�co(dw%,dx%,Yc%,Yb%):�co(cp%,cq%,Yc%,Yb%):�Ve(3)
%�L�2:b%!0=Vl%:ș&400CB,,b%:x%-=b%!4-b%!20+256:�x%<>cp% ��ec(cp%,x%):cp%=x%
& �da
&�:�
&4���ec(dw%,ed%):�cm%,x%,y%:b%!0=Vl%:b%!4=0:b%!8=0:b%!12=30000:b%!16=30000:ș&400C9,,b% �cm%:x%=b%!4-b%!20+256:y%=b%!16-b%!24+164:ȕcm%:ș&400E6,1:�x%+dw%,y%:�BY 0,56:ș&400E6,11:�x%+ed%,y%:�BY 0,56:ș&400CA,,b% �cm%:�:�
&�#��co(x%,y%,ee%,ef%):�z:�ee%=0 �
&�1�eg(Vn%,Wj,x%,y%,0):�ef% ��eg(Vo%,Wk,x%,y%,8)
&�3�:�eg(Vo%,Wk,x%,y%,8):�ef% ��eg(Vn%,Wj,x%,y%,0)
'�:�
'.���eg(w%,z,x%,y%,cb%):�cm%,dy%,dz%,ci,cj:b%!0=w%:b%!4=0:b%!8=0:b%!12=32000:b%!16=32000:ș&400C9,,b% �cm%:dy%=b%!4-b%!20:dz%=b%!16-b%!24:ci=z*bc%:cj=z*be%:ȕcm%:ș&400E6,79:�eh(ei%-1,ej%,x%,y%,dy%,dz%,ci,cj,cb%):�eh(ei%+1,ej%,x%,y%,dy%,dz%,ci,cj,cb%)
'�g�eh(ei%,ej%-1,x%,y%,dy%,dz%,ci,cj,cb%):�eh(ei%,ej%+1,x%,y%,dy%,dz%,ci,cj,cb%):ș&400CA,,b% �cm%:�:�
'�T��eh(ek%,el%,x%,y%,dy%,dz%,ci,cj,cb%):�p%:�ek%<0 �el%<0 �ek%>ds%-1 �el%>dk%-1 ��
'�Qp%=Uk%+8+48*(ek%+ds%*el%)+cb%:�x%*ci+dy%,y%*cj+dz%:�p%!0*ci+dy%,p%!4*cj+dz%:�
(<��ah(do%,ef%,cw%,x%,y%):�p%,w%,z,dp%,dq%,cz%,dU%:Ȏdo% �
(2�0:w%=Vn%:z=Wj
(<�1:w%=Vo%:z=Wk
(F��:b%!0=w%:ș&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=�cY(Ye,Uk%,dp%,dq%,bf%,do%,0):�p%=-1 ��1,"Can't find a point."
(��Ya%=p%:�af(x%,y%,cw%):ei%=p% �ds%:ej%=p% �ds%:cp%=Uk%!(8+48*p%+8*do%):cq%=Uk%!(8+48*p%+4+8*do%):Vc%=�:XU%=1:Yc%=do%:Yb%=ef%:�co(cp%,cq%,Yc%,Yb%):�
(����em(i%):�x%,y%,en%,p%:p%=Uk%+8+8*(i%-1):�y%=0 �dk%-1:en%=p%+48*y%*ds%:en%!0=0:en%=p%+48*(y%*ds%+ds%-1):en%!0=Zf%:�:�x%=0 �ds%-1:en%=p%+48*x%:en%!4=0:en%=p%+48*(x%+(dk%-1)*ds%):en%!4=Zg%:�:�
)�C��ai(x%,y%,eo%,w%):�cz%,dU%,z,do%,dp%,dq%,p%,eZ%,ep%,bm%:Ȏw% �
)��Vn%:z=Wj:do%=0
)��Vo%:z=Wk:do%=1
)�:b%!0=w%:ș&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=�cY(Ye,Uk%,dp%,dq%,bf%,do%,0):�p%=-1 ��
)�^dp%=p% �ds%:dq%=p% �ds%:eZ%=Uk%+8+48*p%+29:ep%=(eZ%?0)�3:�eo% �bm%=(ep%+1)�3�bm%=(ep%+3)�3
*&�dp%=0 �bm%=(bm% �254)
*0�dq%=0 �bm%=(bm% �253)
*:%?eZ%=((?eZ%)�252)�bm%:�eq(p%,3):�
*b?��aj(x%,y%,eo%,w%):�cz%,dU%,z,do%,dp%,dq%,p%,eZ%,er%:Ȏw% �
*��Vn%:z=Wj:do%=0
*��Vo%:z=Wk:do%=1
*���:b%!0=w%:ș&400CB,,b%:cz%=b%!4-b%!20:dU%=b%!16-b%!24:dp%=(x%-cz%)/(z*bc%):dq%=(y%-dU%)/(z*be%):p%=�cY(Ye,Uk%,dp%,dq%,bf%,do%,0):�p%=-1 ��
*�bdp%=p% �ds%:dq%=p% �ds%:eZ%=Uk%+8+48*p%:�eZ%?30=255 ��1,"That knot doesn't belong to a group."
*�'er%=(eZ%?30)�15:�eo% �er%+=1�er%-=1
+�er%<0 �er%=7
+ �er%>7 �er%=0
+*eZ%?30=((eZ%?30)� �15)�er%:�eb(p%,3):�
+>��Yp:�es(1):�es(2):�
+Rs��et(er%):�x%,y%,en%,c%:c%=0:�y%=0 �dk%-1:�x%=0 �ds%-1:en%=Uk%+48*c%+8:en%?30=er%:c%+=1:�:�:�ad(Vn%):�ad(Vo%):�
+ԃ��es(i%):�x%,y%,c%,en%:x%=(1<<18)*Zf%/(ds%-1):y%=(1<<18)*Zg%/(dk%-1):�cY(Yp,Uk%,ds%,dk%,x%,y%,i%-1):Uk%!0=ds%:Uk%!4=dk%:�i%=0 �
, �ad(Vn%)
,$�:�ad(Vo%)
,8�:ac%=�:�Wu(Yu%,1,�):�
,`#��eu(ee%,ev%):�p%,w%,n%:Ȏev% �
,~
�1:w%=Vn%
,�
�2:w%=Vo%
,�g�:ee%=ee%*8:ev%=ev%*8:�n%=0 �ds%*dk%-1:p%=Uk%+48*n%:p%!ev%=p%!ee%:p%!(ev%+4)=p%!(ee%+4):�:�ad(w%):�
,�tݤeu:�p%,s%,i%:s%=1+(8+48*ds%*dk%)/1024:p%=�ew(s%*1024):�p%<=0�1,"No room for temporary workspace "+�ex(s%*1024)
-(,�i%=0 �8+48*ds%*dk%�4:p%!i%=Uk%!i%:�:=p%
-FW��ey(ez%):�p%,x%,y%,fU%,fV%,d%,cb%:�dk%>=30 ��1,"You can't have more than 30 rows."
-d;�ez%=0�1,"You can't insert a row below the bottom row."
-nQ�UW:p%=�eu:fV%=8:fU%=8:d%=48*ds%:�y%=0 �dk%-1:�fW(100*y%/(dk%-1)):�y%=ez%-1 �
-���x%=0 �ds%-1:�cb%=0 �3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%+48*x%)+p%!(fV%+d%+4*cb%+48*x%))/2:�:�cb%=4 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48:�
.��:�x%=0 �ds%-1:�cb%=0 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fV%+=48:fU%+=48:�:�:�VX:dk%+=1:Uk%!4=dk%:�fX(p%):�ad(Vn%):�ad(Vo%):�
.�V��fY(fZ%):�p%,fV%,fU%,cb%,x%,y%:�ds%>=30 ��1,"You can't have more than 30 coloum."
.�I�fZ%=0�1,"You can't insert a coloum to the left of the first coloum."
.�T�UW:p%=�eu:fV%=8:fU%=8:�y%=0 �dk%-1:�fW(100*y%/(dk%-1)):�x%=0 �ds%-1:�x%=fZ%-1 �
.�w�cb%=0 �3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%)+p%!(fV%+4*cb%+48))/2:�:�cb%=4 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48
/Du�:�cb%=0 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48:fV%+=48:�:�:�VX:ds%+=1:Uk%!0=ds%:�fX(p%):�ad(Vn%):�ad(Vo%):�
/�R��fa:�p%,x%,y%,cb%,fV%,fU%,d%:�dk%>=15 ��1,"You can't have more than 30 rows."
/�p%=�eu:�UW:fV%=8:fU%=8:d%=-48*ds%:�y%=0 �dk%-1:�fW(100*y%/(dk%-1)):�x%=0 �ds%-1:�cb%=0 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48:fV%+=48:�:�y%<>dk%-1 �
0H��x%=0 �ds%-1:�cb%=0 �3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%+48*x%)+p%!(fV%+4*cb%+d%+48*x%))/2:�:�cb%=4 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48:�
0�=�:�:�VX:dk%=2*dk%-1:Uk%!4=dk%:�fX(p%):�ad(Vn%):�ad(Vo%):�
0�R��fb:�p%,x%,y%,cb%,fU%,fV%:�ds%>=15 ��1,"You can't have more than 30 coloums."
0��p%=�eu:�UW:fU%=8:fV%=8:�y%=0 �dk%-1:�fW(100*y%/(dk%-1)):�x%=0 �ds%-1:�cb%=0 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48:fV%+=48:�x%<>ds%-1 �
1jw�cb%=0 �3:Uk%!(fU%+4*cb%)=(p%!(fV%+4*cb%)+p%!(fV%+4*cb%-48))/2:�:�cb%=4 �7:Uk%!(fU%+4*cb%)=p%!(fV%+4*cb%):�:fU%+=48
1�?�:�:�:�VX:ds%=2*ds%-1:Uk%!0=ds%:�fX(p%):�ad(Vn%):�ad(Vo%):�
2
L��fc(do%,fd%,Zx%,ZU%,i%):�p%,w%,x%,y%,cb%,ce%:ce%=Zf%-1:�i%=1 �ce%=Zg%-1
2( Ȏdo% �
22�1:w%=Vn%:cb%=0
2<�2:w%=Vo%:cb%=8
2F
�:�i%=0 �
2ZN�y%=0 �dk%-1:p%=Uk%+8+cb%+48*(ds%*y%+fd%):p%!0=Zx%+p%!0:�p%!0>ce% �p%!0=ce
2x�p%!0<0 �p%!0=0
2��
2�Q�:�x%=0 �ds%-1:p%=Uk%+8+cb%+48*(ds%*fd%+x%):p%!4=ZU%+p%!4:�p%!4>ce% �p%!4=ce%
2��p%!4<0 �p%!0=0
2��
2��:�ad(w%):�
2�D��cs(i%,fe%,ff%,fg%,fh%):�cb%,w%,dW%,fi%,dX%,fj%,p%,Zx,ZU:Ȏi% �
3�1:w%=Vn%:cb%=Uk%+8
3�2:w%=Vo%:cb%=Uk%+16
3"p�:�UW:dW%=100000:fi%=100000:dX%=-100000:fj%=-100000:�fW(0):�c%=0 �ds%*dk%-1:p%=cb%+48*c%:�p%!0>dX% �dX%=p%!0
3r�p%!4>fj% �fj%=p%!4
3|�p%!0<dW% �dW%=p%!0
3��p%!4<fi% �fi%=p%!4
3���:Zx=(fg%-fe%)/(dX%-dW%):ZU=(fh%-ff%)/(fj%-fi%):�fW(50):�c%=0 �ds%*dk%-1:p%=cb%+48*c%:p%!0=(p%!0-dW%)*Zx+fe%:p%!4=(p%!4-fi%)*ZU+ff%:�:�VX:�ad(w%):�
4b��fk:�p%,x%,y%:p%=Uk%+8:�y%=0 �dk%-1:�x%=0 �ds%-1:p%!32=0:p%!36=0:p%!40=0:p%!44=0:p%+=48:�:�:�
4v+��fl(c%,r%,do%):�p%,y%,x%,w%,i%:Ȏdo% �
4��1:w%=Vn%:i%=0
4��2:w%=Vo%:i%=8
4�d�:p%=Uk%+8+i%+48*(c%+ds%*r%):y%=p%!4:�x%=0 �ds%-1:p%=Uk%+8+i%+48*(x%+ds%*r%):p%!4=y%:�:�ad(w%):�
5 +��fm(c%,r%,do%):�p%,y%,x%,w%,i%:Ȏdo% �
5*�1:w%=Vn%:i%=0
54�2:w%=Vo%:i%=8
5>d�:p%=Uk%+8+i%+48*(c%+ds%*r%):x%=p%!0:�y%=0 �dk%-1:p%=Uk%+8+i%+48*(c%+ds%*y%):p%!0=x%:�:�ad(w%):�
5����fn(fo%):�x%,y%,r%,c%,eZ%,p%:c%=fo% �ds%:r%=fo% �ds%:eZ%=Uk%+8+48*fo%:�y%=r%-1 �r%+1:�x%=c%-1 �c%+1:�x%>=0 �x%<ds% �y%>=0 �y%<ds% �
5�[p%=Uk%+8+48*(x%+y%*ds%):�p%?30=255 �p%!32=eZ%!32:p%!36=eZ%!36:p%!40=eZ%!40:p%!44=eZ%!44
6�:�:�:�XZ% ��ad(Yy%)
6.�
6B���fp(fo%):�x%,y%,c%,r%,n%,fg%,fq%,fh%,fr%,p%:�bg:c%=fo% �ds%:r%=fo% �ds%:n%=0:�y%=r%-1 �r%+1:�x%=c%-1 �c%+1:�x%>=0 �x%<ds% �y%>=0 �y%<ds% �
6�8p%=Uk%+8+48*(x%+y%*ds%):�p%?30=255 �x%<>c% �y%<>r% �
6�5n%+=1:fg%+=p%!32:fh%+=p%!36:fq%+=p%!40:fr%+=p%!44
6��
6��:�:�:�n%>0 �
7 Gp%=Uk%+8+48*fo%:p%!32=fg%/n%:p%!36=fh%/n%:p%!40=fq%/n%:p%!44=fr%/n%
7 �:�bg:�
7Z`��bW(fs%,ft%,fu%,t,fv$,fw%):�p%,t%,cm%:�eV:�Ws%>=128 ��1,"No room for any more morph tasks."
7�0�fs% �(t>1 �t<0) ��1,"Time is out of range."
7�;� �fs% �(t<1 �t>Xz%) ��1,"The frame number is illegal."
7� p%=Un%+8*Ws%:Ws%+=1:Ȏfu% �
7�/�0:fx%=4+4*((Zf%-1)�4):fy%=fx%*Zg%+60:fz%=�
7�1�1:fx%=4+4*((Zf%-1)�4):fy%=fx%*Zg%+2108:fz%=�
7�0�8:fx%=4+4*((Zf%-1)�8):fy%=fx%*Zg%+188:fz%=�
7�"�:cZ%=fu%:�fs% �t%=1024*t�t%=t
8�t%=1024 �t%=1023
8 cm%=0:�fs% �cm%=cm% �(1<<10)
8"`p%!0=t% �cm%:p%!4=0:�Vk(Xd%):�Vk(Xj%):�Vk(Yv%):�Zo:�Vk(aZ%):�Vk(WW%):�aq% ��ad(Vn%):�ad(Vo%)
8T Vf%=�:�
8rd��Vg:�cm%,fs%,t%,gU%,t,fv$,gV$,gW%,d%,gX%,h%,i%:�ce%,gY%,gZ%,ga%,gb%,y%,p%,gc%,gd%,t$:�Ws%<=0 ��
8� � �aq% �
8��Zr% ��Zr(1)��UW
8� �:�Up%(3)<>-1 ��fX(Up%(3))
8�=UZ%?28=ge%+cZ%*16:UZ%?29=as%:�YY% �UZ%?29=(UZ%?29)�%10000
8�#�YZ% �UZ%?29=(UZ%?29)�%10000000
8�lUZ%!24=fx%:di%=Ws%:gf%=Ws%:dh%=0:ș66 �dl%:�:Ws%-=1:dh%+=1:gd%=�:� �(aq% �Zr%) ��fW(100*(gf%-Ws%-1)/gf%)
9:3cm%=Un%!(8*Ws%):�(cm% �(1<<10))<>0 �fs%=��fs%=�
9N7t%=(cm% �1023):�fs% �t=t%/1024�gU%=t%:t%=Ut%!(4*t%)
9b1UZ%!108=t%:�cY(Yf,Uk%,t%,Uu%,UZ%,0,0):ȎcZ% �
9�
�0:gX%=60
9��1:gX%=2108
9�
�2:gX%=32
9��8:gX%=188
9�
�9:gX%=16
9��10:gX%=28
9��11:gX%=40
9��:�Up%(3)=-1 �
9�gc%=�ew(fy%):�gc%<=0 ��1,"No room for morphed image. You can either close other applications or use the option 'Swap output file'."
9�Up%(3)=gc%
:
�:ȎcZ% �
:a�0:Up$(3)="FRAME":gc%!0=fy%:gc%!4=0:gc%!8=16:gc%!12=16:ș&2E,256+15,gc%,"frame",0,Zf%,Zg%,bx%
:4��1:Up$(3)="FRAME":gc%!0=fy%:gc%!4=0:gc%!8=16:gc%!12=16:ș&2E,256+15,gc%,"frame",0,Zf%,Zg%,bx%:�cY(Yl,gc%+60,fx%*Zg%,gc%+2108,0,0,0):gc%!48=2048+gc%!48:gc%!52=gc%!48:gc%!16=fx%*Zg%+2108:gc%!12=gc%!16+16:�d%=0 �255:Ub%?0=0:Ub%?1=d%:Ub%?2=d%:Ub%?3=d%
:�-gc%!(60+8*d%)=!Ub%:gc%!(60+8*d%+4)=!Ub%:�
:���8:gc%!0=fy%:gc%!4=0:gc%!8=16:gc%!12=16:ș&2E,256+15,gc%,"frame",1,Zf%,Zg%,�gg(bx%):Up$(3)="FRAME":�d%=0 �15:Ub%?0=0:Ub%?1=d%*16+15:Ub%?2=d%*16+15:Ub%?3=d%*16+15:gc%!(60+8*d%)=!Ub%:gc%!(60+8*d%+4)=!Ub%:�
:� �9,10,11
:��:UZ%!8=gc%+gX%:�gh% �
;ZgY%=-1:gZ%=-1:�y%=0 �dk%-2:�cY(Yj,Uk%,y%,UZ%,0,0,0):d%=UZ%!204-UZ%!200:�d%>gY% �gY%=d%
;L?�cY(Yj,Uk%,y%,UZ%,0,1,0):d%=UZ%!204-UZ%!200:�d%>gZ% �gZ%=d%
;jd�:ga%=gi%*(gY%+1):gb%=gi%*(gZ%+1):p%=�ew(ga%):�p%<=0 ��1,"No room for morph-image "+�ex(ga%+gb%)
;�TUp%(5)=p%:p%=�ew(gb%):�p%<=0 ��fX(Up%(5)):�1,"No room for morph-image "+�ex(gb%)
;�
Up%(6)=p%
;��:ga%=0:gb%=0
;� �:�gh% �
;�*�gj(fv$,gX%,gc%,�,�,Up%(5),Up%(6),aq%)
;� �:�aq% �
<
�gj(fv$,gX%,gc%,�,�,0,0,�)
< �:�cY(Yg,Uk%,t%,UZ%,0,0,0)
<(�
<2#�:�gh% ��fX(Up%(5)):�fX(Up%(6))
<F(� �aq% ��(-133) ��(-5) ��Zp:ș6,21,0
<Pgd%=�-gd%:�aq% �
<d6t$=�((�(gd%/10))/10):�t$,".") �t$=�t$,�t$,".")+1)
<x$�i(gk%,7)=t$
<�?�:�Ws%=0:t$=�((�(gd%/10))/10):�t$,".") �t$=�t$,�t$,".")+1)
<�0$�i(gk%,7)=t$:�ZW(aZ%):�ad(aZ%):Vf%=�:�aq% �
<��ad(Vn%):�ad(Vo%)
<��:�Zr% ��Zr(0)��VX
<�G�:�Xt("Morphing completed.","Last frame took "+t$+" seconds.",""):�
=P��gl(gm$,ev%,gn%,ee%):�h%:ș&D,&C3,gm$ �h%:ș&C,3,h%,ev%,gn%,ee%:ș&D,0,h%:�
=^m��gj(go$,gp%,gq%,gr%,gs%,gt%,gu%,gv%):�gw%,gx%,gy%,gz%,hU%,hV%,hW%:�gw%=0 �dk%-2:dj%=gw%:�gv% � �Zr% ��ab
=�
�gs% �
=���cY(Yj,Uk%,gw%,UZ%,0,0,0):gy%=UZ%!200:gz%=UZ%!204:hU%=gz%-gy%+1:�gl(Vn$,gt%,hU%*gi%,hX%+(Zg%-gz%-1)*gi%):UZ%!0=gt%-(Zg%-gz%-1)*gi%:�ge%=1 ��cY(Yk,gt%,Ua%,hU%*gi%,0,0,0)
=̬�cY(Yj,Uk%,gw%,UZ%,0,1,0):gy%=UZ%!200:gz%=UZ%!204:hU%=gz%-gy%+1:�gl(Vo$,gu%,hU%*gi%,hX%+(Zg%-gz%-1)*gi%):UZ%!4=gu%-(Zg%-gz%-1)*gi%:�ge%=1 ��cY(Yk,gu%,Ua%,hU%*gi%,0,0,0)
> �:�gv% �
> 3gx%=gw%*ds%:hW%=gw%*ds%+ds%-2:�:hV%=�WU:ȎhV% �
>D]�0,1:�cY(Ym,gx%,gx%+ds%,gx%+ds%+1,Uk%,UZ%,0):�cY(Ym,gx%,gx%+1,gx%+ds%+1,Uk%,UZ%,0):gx%+=1
>X�2:�Zp:Va%=�:�
>b �3:�Zp:�
>l�:�gx%>hW%
>�q�:�gx%=gw%*ds% �gw%*ds%+ds%-2:�cY(Ym,gx%,gx%+ds%,gx%+ds%+1,Uk%,UZ%,0):�cY(Ym,gx%,gx%+1,gx%+ds%+1,Uk%,UZ%,0):�
>� �:�:�
>�0��Zp:Vf%=�:�Vk(aZ%):�Up%(3)<>-1 ��fX(Up%(3))
?!�gh% ��fX(Up%(5)):�fX(Up%(6))
? Ws%=0:�
?>*��aW:�hY(1,1,Vf%):�hY(1,2,Vf%):WX%=1:�
?z!��ae(do%):�s%:Wm%=do%:Ȏdo% �
?�$�1:�al(Wh%,0,Wg%,100*Wj,1,1,0,4)
?�$�2:�al(Wh%,0,Wg%,100*Wk,1,1,0,4)
?�$�3:�al(Wh%,0,Wg%,100*Wl,1,1,0,4)
?�K�:$YU%=�Xz%:$Xn%=�Zf%+"x"+�Zg%:$Um%=�(ds%)+" x "+�(dk%):�Vf% �s%=1�s%=0
?�x�hY(2,6,1-s%):�hY(2,1,s%):�hY(2,2,s%):�hY(2,3,s%):�hY(2,4,s%):�hY(2,5,s%):�hY(3,2,s%):�hY(3,3,s%):�do%=3 ��hY(2,1,1)
@.��hY(7,1,Wt%<>2):�hY(7,2,Wt%<>2):�hY(4,2,gh%):�hY(4,3,gh%):�hY(8,2,Wt%<>2):�hY(8,3,Wt%<>2):�hY(7,5,Wt%<>2):�hY(7,6,Wt%<>2):WX%=2:�
@~���au:�hZ(6,0,ha%=0):�hZ(6,1,ha%=7):�hZ(6,2,ha%=8):�hZ(6,3,ha%=9):�hZ(6,4,ha%=10):�hZ(6,5,ha%=11):�hZ(6,6,ha%=12):�hZ(6,7,ha%=13):�hZ(6,8,ha%=14):�hZ(6,9,ha%=15):�hZ(6,10,ha%=71):WX%=3:�
@���bX(t%):WX%=t%:�
@���ao:WX%=6:�
A ,��bh:�hZ(19,3,Xa%):�hZ(19,4,XZ%):WX%=7:�
AZ���Wo:�m$:hb%=UX%:hc%=UY%:�hd(3,1,"Morpheus","Info|[Info],Options...|,Quit|"):m$="White|,Black|#07=,Dark blue|#08,Yellow|#79,Green|#7A,Red|#7B,Cream|#7C,Army green|#0D,Orange|#7E,Blue|#7F=,Invert|":�hd(11,6,"Grid colour",m$)
A��m$="1|#08,2|#79|,3|#7A,4|#7B,5|#7C,6|#0D,7|#7E,8|#8F":�hd(8,11,"Group",m$):�hd(5,19,"Path tools","Straighten|=,Copy to neighbours|,Copy from neighbours|=,Show all||,Draw neighbours|")
A��m$="Sprite 8bpp|,Sprite 8bpp grey|,Clear 24bpp|=,Sprite 4bpp grey|,CMYK 32bpp|,P15 (15bpp RGB)|,P13 (15bpp YUV)|":�hd(7,16,"Formats",m$):�hd(4,3,"File","Info|[File],Save setup|,Options...|,Drop file|"):�hd(1,10,"Grid size"," |(08GRD)")
B��hd(1,13,"Abort","Are you sure?|"):�hd(5,15,"Interval","Regular|,Speed up|,Slow down|,Fast-Slow-Fast|,Slow-Fast-Slow|"):�hd(4,17,"Move coloum","Left much|,Left little|=,Right much|,Right little|")
B"��hd(4,18,"Move row","Up much|,Up little|=,Down much|,Down little|"):�hd(3,14,"Frames","No. of frames|*[FrmN],Timing|[Fram]=,Intervals|>15<"):m$="1...|,2...|,3...|,4...|,5...|,6...|,7...|,8...|":�hd(8,12,"Group",m$)
BJ�m$="10 x 10|,15 x 15|,20 x 20|,30 x 30|,50 x 50|,Custom|>10<":�hd(6,9,"Grid size",m$):m$="Double rows|,Double coloums|=,Insert row|,Insert coloum|":�hd(4,8,"Adjust grid",m$)
Br�m$="Tidy border|,Move row|>18<,Move coloum|>17<,Fit in area...|,Fit to image|,Straighten row|,Straighten coloum|":�hd(7,7,"Grid tools",m$):m$="Tools|>7<,Reset grid|,Export grid|=,Reset groups|>11<,Reset paths|=,Size|>9<,Adjust grid|>8<"
B���hd(7,5,"Grid",m$):m$="Single frame...|,Sequence of frames...|=,Animation|[Morp3],Uncompressed Replay|[Morp4]*|,ViA|[Morp4]*":�hd(5,4,"Morph",m$):m$="File|>3<,Grid|>5<,Morph|>4<,Frames|>14<,Group|>12<,Zoom|[Zoom]=,Abort|>13<":�hd(7,2,"Morpheus",m$)
B�K�hY(16,2,1):�hY(16,4,1):�hY(16,5,1):�hY(16,6,1):�hY(3,1,1):�hY(9,4,1):�
B�1ݤs(a%):a$="":ȕ?a%>31:a$+=�(?a%):a%+=1:�:=a$
Cݤbk(f$):�f$,".") �
C )ȕ�f$,".")>0:f$=�f$,�f$,".")+1):�:=f$
C&+�:ȕ�f$,":")>0:f$=�f$,�f$,":")+1):�:=f$
C: �:=""
CX���We:�he%,hf%,n%,hg%:�n%=0 �255:Uw%?n%=0:�:he%=&400DB:hf%=&400C1:n%=Q%:hg%=6000:ș&400D9,,"<MorphDemo$Dir>.Resources.Templates":șhe%,,b%,n%,Q%+hg%,Uw%,"Info" �,,n%:b%!64=Ux%:șhf%,,b% �Wf%:șhe%,,b%,n%,Q%+hg%,-1,"Zoom" �,,n%:șhf%,,b% �Wh%
C��șhe%,,b%,n%,Q%+hg%,-1,"File" �,,n%:șhf%,,b% �gk%:șhe%,,b%,n%,Q%+hg%,-1,"Source" �,,n%:șhf%,,b% �Vn%:șhe%,,b%,n%,Q%+hg%,-1,"Options" �,,n%:b%!64=Ux%:șhf%,,b% �Wr%:șhe%,,b%,n%,Q%+hg%,-1,"Options2" �,,n%:șhf%,,b% �Yv%
C��șhe%,,b%,n%,Q%+hg%,-1,"Dest" �,,n%:șhf%,,b% �Vo%:șhe%,,b%,n%,Q%+hg%,-1,"Frame" �,,n%:șhf%,,b% �aZ%:șhe%,,b%,n%,Q%+hg%,-1,"FrameEd" �,,n%:șhf%,,b% �Vl%:șhe%,,b%,n%,Q%+hg%,-1,"FrameNum" �,,n%:șhf%,,b% �YV%
C��șhe%,,b%,n%,Q%+hg%,-1,"Tools" �,,n%:b%!64=Ux%:șhf%,,b% �Yu%:șhe%,,b%,n%,Q%+hg%,-1,"Time" �,,n%:șhf%,,b% �WW%:șhe%,,b%,n%,Q%+hg%,-1,"Report" �,,n%:șhf%,,b% �Xt%:șhe%,,b%,n%,Q%+hg%,-1,"Morph1" �,,n%:b%!64=Ux%:șhf%,,b% �Xd%
D�șhe%,,b%,n%,Q%+hg%,-1,"Morph2" �,,n%:b%!64=Ux%:șhf%,,b% �Xj%:șhe%,,b%,n%,Q%+hg%,-1,"Morph3" �,,n%:b%!64=Ux%:șhf%,,b% �Xm%:șhe%,,b%,n%,Q%+hg%,-1,"Morph4" �,,n%:șhf%,,b% �Xp%:șhe%,,b%,n%,Q%+hg%,-1,"NewMorph" �,,n%:b%!64=Ux%:șhf%,,b% �Xw%
D>Cșhe%,,b%,n%,Q%+hg%,-1,"PathEd" �,,n%:șhf%,,b% �Yy%:ș&400DA:�
Dfj��hd(hh%,h%,hi$,t$):�de$,hj$,hk$,c$,hl%,hm%,hn%,I%,cg%,ho%,hp%,hq%,hr%,hs%:�h%<0 �gX%=Uo%(-h%)�gX%=hc%
D�"ht%=gX%:�hi$>11 �hi$=�hi$,11)
D��$ht%=hi$:cg%=16*�hi$+8:ht%!12=&70207:ht%!20=44:ht%!24=0:ht%+=28:�I%=1 �hh%:hl%=-1:hm%=0:hn%=0:hp%=0:hq%=7:hr%=0:hs%=0:de$=�t$,�t$,",")-1):hj$=�de$,�de$,"|")-1):c$=�de$,�de$,"|")+1):�c$,">") �
D�=hk$=�c$,�c$,">")+1):hk$=�hk$,�hk$,"<")-1):hl%=Uo%(�(hk$))
E�:�c$,"[") �
E5hk$=�c$,�c$,"[")+1):hk$=�hk$,�hk$,"]")-1):Ȏhk$ �
E8�"Info":hl%=Wf%
EB�"Zoom":hl%=Wh%
EL�"Time":hl%=WW%
EV�"File":hl%=gk%
E`�"FrmN":hl%=YV%
Ej�"Fram":hl%=Vl%
Et�"Morp1":hl%=Xd%
E~�"Morp2":hl%=Xj%
E��"Morp3":hl%=Xm%
E��"Morp4":hl%=Xp%
E� :�1,"Unknown window :"+hk$
E��
E��:�c$,"(") �
E�9hk$=�c$,�c$,"(")+1):hk$=�hk$,�hk$,")")-1):Ȏ�hk$,3) �
E��"GRD":ht%!12=Um%
E�<�:ht%!16=-1:ht%!20=��hk$,2):hm%=4:hp%=1:cg%=16+16*ht%!20
F�:ho%=�hj$:�ho%>11 �
F2?ht%!12=hb%:ht%!16=-1:ht%!20=ho%+1:$hb%=hj$:hb%+=ho%+2:hp%=1
FP�:$(ht%+12)=hj$
Fd#�:�16+16*ho%>cg% �cg%=16+16*ho%
Fx�:�c$,"=") �hn%=2
F��c$,"*") �hs%=8
F��c$,"#") �
F�=hq%=�("&"+�c$,�c$,"#")+1,1)):hr%=�("&"+�c$,�c$,"#")+2,1))
F���:t$=�t$,�t$,",")+1):ht%!0=hn% �hm% �hs%:ht%!4=hl%:ht%!8=&21 �hp%<<8 �hq%<<24 �hr%<<28:ht%+=24:�:ht%!-24=(ht%!-24 �&80):gX%!16=cg%:�h%>=0 �hc%+=28+24*hh%:Uo%(h%)=gX%
G�
G,��hu(b%):Ȏb%!0 �
G@�0:�Zn(Wf%)
GJ�1:�ZW(Yv%)
GT �2:Va%=�
G^�:�
G|$��hv(b%):�x%,y%,t$,t,f%:Ȏb%!0 �
G��0:Ȏb%!4 �
G��0:�Zn(gk%)
G��2:�ZW(Yv%)
G�
�3:�Zq
G��
G��1:Ȏb%!4 �
G��0:Ȏb%!8 �
G�!�0:�em(Wm%):�ad(Vn%):�ad(Vo%)
G��1:Ȏb%!12 �
G��0:�fc(Wm%,dt%,0,5,1)
G��1:�fc(Wm%,dt%,0,1,1)
H�2:�fc(Wm%,dt%,0,-5,1)
H�3:�fc(Wm%,dt%,0,-1,1)
H �
H&�2:Ȏb%!12 �
H0�0:�fc(Wm%,dr%,-5,0,0)
H:�1:�fc(Wm%,dr%,-1,0,0)
HD�2:�fc(Wm%,dr%,5,0,0)
HN�3:�fc(Wm%,dr%,1,0,0)
HX�
Hb
�3:�aV(7)
Hl�4:�cs(Wm%,0,0,Zf%,Zg%)
Hv�5:�fl(dr%,dt%,Wm%)
H��6:�fm(dr%,dt%,Wm%)
H��
H�!�1:�es(Wm%):�ad(Vn%):�ad(Vo%)
H��2:�eu(Wm%,3-Wm%)
H��3:Ȏb%!8 �
H��-1:�et(3)
H�:�et(b%!8)
H��
H�
�4:�fk
H��5:Ȏb%!8 �
H� �0:ds%=10:dk%=10:�Yp:�et(3)
H� �1:ds%=15:dk%=15:�Yp:�et(3)
I �2:ds%=20:dk%=20:�Yp:�et(3)
I �3:ds%=30:dk%=30:�Yp:�et(3)
I �5:t$=�s(Um%):�t$,"x") �
I*Ox%=�(�t$,�t$,"x")-1)):y%=�(�t$,�t$,"x")+2)):�x%>=3 �x%<=30 �y%>=3 �y%<=30 �
I>"ds%=x%:dk%=y%:�Yp:�et(3):t$=""
IR$�:�1,"Illegal grid size (3-30)."
If�
Ip�:�t$,"X") �
I�Ox%=�(�t$,�t$,"X")-1)):y%=�(�t$,�t$,"X")+2)):�x%>=3 �x%<=30 �y%>=3 �y%<=30 �
I� ds%=x%:dk%=y%:�Yp:�et(3)
I�$�:�1,"Illegal grid size (3-30)."
I��
I��
I��
I��6:Ȏb%!8 �
I�
�0:�fa
I�
�1:�fb
I��2:�ey(dt%)
J�3:�fY(dr%)
J�
J�
J$�2:Ȏb%!4 �
J.�0:�ZW(Xd%)
J8�1:�ZW(Xj%)
JB�2:�Zn(Xm%)
JL�3:�Zn(Xp%)
JV�
J`�3:Ȏb%!4 �
Jj�0:�Ze:�Zn(YV%)
Jt�1:�Zn(Vl%)
J~�2:�bb(b%!8)
J��
J��4:�b%!4<>-1 �
J��Zh(1+b%!4)
J� �:�Zh(1)
J��:�ZW(WW%)
J��5:�Zn(Wh%)
J��:�
J� ��hw(b%):�c%,c$:Ȏb%!0 �
K �0:ha%=0
K �1:ha%=7
K( �2,3,4,5,6,7,8,9:ha%=6+b%!0
K2�10:ha%=71
K<+�:c%=ha%:c$="":�c%=71 �c%=0:c$="Invert"
KZ.$Wq%=c$:�Zi(Wr%,31,c%):�ad(Vn%):�ad(Vo%):�
K�.��hx(b%):bU%=b%!0:�az(bU%,Xd%,18):�ay%=3 �
K� ȎbU% �
K�)�0,1,3:$Xe%="Sfile_ff9;Pptr_hand,6,6"
K��:�Zc(Xd%,4)
K��:�
K�'��hy(b%):bZ%=b%!0:�az(bZ%,Xj%,17):�
L,��hz(b%):�Zh(1+b%!0):�
LT��iU(b%):�p%:Ȏb%!0 �
Lr>�0:�bg:p%=Uk%+8+48*XV%:p%!32=0:p%!36=0:p%!40=0:p%!44=0:�bg
L��1:�fn(XV%)
L��2:�fp(XV%)
L��3:Xa%=�Xa%:�ad(Yy%)
L��4:XZ%=�XZ%:�ad(Yy%)
L��:�
L���Vs(b%):ȎWX% �
L��1:�hu(b%)
L��2:�hv(b%)
L��3:�hw(b%)
M�4:�hx(b%)
M�5:�hy(b%)
M �6:�hz(b%)
M&�7:�iU(b%)
M0 �:ș&400CF,,b%:�(b%!8 �1) �
MN ȎWX% �
MX#�1:�aW:ș&400D4,,Uo%(1),aX%,aY%
Mb(�2:�ae(Wm%):ș&400D4,,Uo%(2),aX%,aY%
Ml#�3:�au:ș&400D4,,Uo%(6),aX%,aY%
Mv+�4,5:�bX(WX%):ș&400D4,,Uo%(16),aX%,aY%
M�$�6:�ao:ș&400D4,,Uo%(11),aX%,aY%
M�$�7:�bh:ș&400D4,,Uo%(19),aX%,aY%
M��
M��:�
M�g��Zn(w%):�dp%,dq%:ș&400CF,,Uy%:dp%=Uy%!0:dq%=Uy%!4:Uy%!0=w%:ș&400CB,,Uy%:�((Uy%!32)�(1<<16))<>0 �
M� �ad(w%)
M�<�:ș&400D4,,w%,dp%-(Uy%!12-Uy%!4)/2,dq%+(Uy%!16-Uy%!8)/2
N �:�
N*S��hY(p%,n%,s%):p%=Uo%(p%)+36+n%*24:�s% �!p%=(!p% �&400000)�!p%=(!p% � �&400000)
NH�
N\G��hZ(p%,n%,t%):p%=Uo%(p%)+28+n%*24:�t% �!p%=(!p% �1)�!p%=(!p% � �1)
Nz�
N���UW:ș&406C0:�
N���VX:ș&406C1:�
N���fW(p%):�p%<0 �p%=0
N�ș&406C4,p%:�
N� ��az(f%,w%,i%):�f$:Ȏf% �
N��0:f$="Sprite 8bpp"
N� �1:f$="Sprite 8bpp grey"
O�2:f$="Clear 24bpp"
O �3:f$="Sprite 4bpp grey"
O�4:f$="CMYK 32bpp"
O$�5:f$="P15 (15bpp RGB)"
O.�6:f$="P13 (15bpp YUV)"
O8 �:$�i(w%,i%)=f$:�Zc(w%,i%):�
O~9��Wu(w%,i%,f%):Uy%!0=w%:Uy%!4=i%:ș&400CE,,Uy%:Ȏf% �
O� �0:Uy%!8=Uy%!24 � �(1<<21)
O� �1,-1:Uy%!8=Uy%!24 �(1<<21)
O� �2:Uy%!8=Uy%!24 �(1<<21)
O� �:Uy%!12=-1:ș&400CD,,Uy%:�
O�8��ar(w%,i%,f%):Uy%!0=w%:Uy%!4=i%:ș&400CE,,Uy%:�f% �
P Uy%!8=Uy%!24 �(1<<22)
P
�:Uy%!8=Uy%!24 � �(1<<22)
P �:Uy%!12=-1:ș&400CD,,Uy%:�
PFB��Zc(w%,i%):Uy%!0=w%:Uy%!4=i%:Uy%!8=0:Uy%!12=0:ș&400CD,,Uy%:�
Pn2ݤi(w%,i%):b%!0=w%:b%!4=i%:ș&400CE,,b%:=b%!28
Px7ݤXf(w%,i%):Uy%!0=w%:Uy%!4=i%:ș&400CE,,Uy%:=Uy%!32
P�1��Zr(k%):�k% �ș&1A,&300,&F00�ș&1A,&D00,&F00
P��
P�x��Zi(w%,i%,hr%):Uy%!0=w%:Uy%!4=i%:ș&600CE,,Uy%:Uy%!8=Uy%!24:Uy%?11=((Uy%?11)�15)�(hr%*16):Uy%!12=-1:ș&600CD,,Uy%:�
P���Ys(iV%):�t%,i%:�iV% �
Q�aq%=�:�Wu(Wr%,4,0):Zr%=�:�Wu(Wr%,2,0):�ar(Wr%,2,0):iW%=�:�Wu(Wr%,13,0):�ar(Wr%,13,1):Yt%=�:�Wu(Wr%,3,1):�ar(Xd%,5,1):�ar(Xj%,5,1):at%=�:�Wu(Wr%,29,1):ax%=�:�Wu(Wr%,42,0):�ar(Wr%,42,0):ac%=�:�Wu(Yu%,1,1):ag%=�:�Wu(Wr%,32,1):ha%=11:�Zi(Wr%,31,ha%)
Q|��:Zj%=1:�t%=1 �8:�i%=0 �10:Ur%(t%,i%)=i%*50.8:�:�ap(t%):�:$�i(gk%,7)="-":ay%=0:�Wu(Xd%,6,1):�Wu(Xd%,7,0):�Wu(Xd%,8,0):�ar(Xd%,8,1):�Wu(Xd%,17,0):$Xc%="Morpheus:Morphed":$Xg%="0.50":$Xh%="1":bV%=�:�Wu(Xd%,11,1):�ar(Xd%,14,1):Yw%=�:bU%=0:�az(0,Xd%,18)
RD��ar(Xd%,2,1):�ar(Xd%,4,1):bY%=0:�Wu(Xj%,6,1):�Wu(Xj%,7,0):�Wu(Xj%,8,0):�ar(Xj%,8,1):�Wu(Xj%,16,0):$Xi%="Morpheus:Series":$Xk%="1":ba%=�:�Wu(Xj%,12,1):�ar(Xj%,13,1):Yx%=�:bZ%=0:�az(0,Xj%,17):�ar(Xj%,2,1):�ar(Xj%,4,1):$Xl%="!MorphFilm":�ar(Xm%,2,1)
R�Y�ar(Xm%,1,1):�ar(Xm%,3,1):�ar(Xm%,5,1):$Xo%="ARFilm":�ar(Xp%,2,1):�ar(Xp%,1,1):�iV% �
Sjge%=0:gh%=�:cZ%=0:eW%=200*1024:$Xq%="200":eX%=200*1024:$Xr%="200":av%=�:�Wu(Wr%,36,0):�ar(Wr%,37,�av%)
S\N�:�Wu(Wr%,39,0):�ar(Wr%,39,1):�ar(Wr%,40,1):�ar(Wr%,43,1):as%=0:�iX(as%):�
S����iX(p%):�eZ%:eZ%=(p% �1)<>0:�Wu(Wr%,16,�eZ%):�Wu(Wr%,17,eZ%):eZ%=(p% �2)=0:�Wu(Wr%,19,�eZ%):�Wu(Wr%,20,eZ%):eZ%=(p% �4)<>0:�Wu(Wr%,23,�eZ%):�Wu(Wr%,24,eZ%):eZ%=(p% �8)=0:�Wu(Wr%,25,�eZ%):�Wu(Wr%,26,eZ%):�
T."��VV(VU%,l%):ș&1D,0,VU%,,l%:�
TB8ݤew(s%):�f%,p%:ș&2001D,2,VU%,,s% �,,p%;f%:�f% �1 �
Tjzș&400EC,VU%+VU%!8+&100+s%-&8000,-1 �f%:f%+=&8000:ș&1D,5,VU%,,f%-VU%-VU%!12:ș&2001D,2,VU%,,s% �,,p%;f%:�f% �1 �p%=-1
T� �:=p%
T���fX(�p%):�p%<=0 ��
T�Qș&1D,3,VU%,p%:ș&1D,5,VU%,,VU%!8-VU%!12:ș&400EC,VU%+VU%!12-&8000,-1:p%=-1:�
U ���Wn:ș53,-1,3 �,,iY%:ș53,-1,4 �,,iZ%:iZ%=(1<<iZ%):ș53,-1,5 �,,ia%:ia%=(1<<ia%):ș53,-1,11 �,,Vv%:Vv%=Vv%*iZ%:ș53,-1,12 �,,Vw%:Vw%=Vw%*ia%:�cv:�
Ux&ݤcU(m%,n%):ș53,m%,n% �,,ib%:=ib%
U���cv:�i%:� �WZ% ��
U�
�ic%>15 �
U� �id%=0 �
U�ș&40740,15,0,-1,-1,Uh%
U�K�:�i%=0 �255:Ub%?0=0:Ub%?1=i%:Ub%?2=i%:Ub%?3=i%:ș&40744,!Ub% �Uh%?i%:�
U��
V(�:ș&400ED,296,Up%(1),Up$(1),,,,,Uh%
V��:ș&40740,15,0,-1,-1,Ui%:�i%=0 �255:Ub%?0=0:Ub%?1=i%:Ub%?2=i%:Ub%?3=i%:ș&40744,!Ub% �Uj%?i%:�:Ud%!0=ct%*Wj:Ud%!4=cu%*Wj:Ud%!8=Zf%*iZ%:Ud%!12=Zg%*ia%:Ue%!0=ct%*Wk:Ue%!4=cu%*Wk:Ue%!8=Zf%*iZ%:Ue%!12=Zg%*ia%
Vh<Uf%!0=dc%*Wl:Uf%!4=dd%*Wl:Uf%!8=Zf%*iZ%:Uf%!12=Zg%*ia%:�
V�q��Vi(b%):�cm%,x%,y%,Zy%,i%,p%,ie%,fq%,fr%,ci,cj:ș&400C8,,b% �cm%:x%=b%!4-b%!20:y%=b%!16-b%!24:ȕcm%:Ȏb%!0 �
V�y�Vl%:ș&400E6,11:�Zy%=1 �Xz%:�x%+Ut%!(Zy%*4)+256,y%+164:�BY 0,56:�:�b%!32<y%+148 �b%!40>y%+148 ��if(b%,x%+256,y%+148)
V��Vn%:Ȏid% �
W-�0,1:�ig(x%,y%,Up%(1),Up$(1),Ud%,Uh%,id%)
W#�16:�ih(x%,y%,Up%(1),Up$(1),Wj)
W 8�:�ii(b%,0,x%,y%):�Vd% �Wt%>0 ��eU(x%,y%,Wv%,Ww%,Wj)
W:�Vo%:Ȏid% �
WD-�0,1:�ig(x%,y%,Up%(2),Up$(2),Ue%,Uh%,id%)
WN#�16:�ih(x%,y%,Up%(2),Up$(2),Wk)
WX6�:�ii(b%,1,x%,y%):�Vd% �Wt%>0�eU(x%,y%,Wx%,Wy%,Wk)
Wv�aZ%:ȎcZ% �
W�)�0:�ig(x%,y%,Up%(3),Up$(3),Uf%,Ui%,0)
W�)�1:�ig(x%,y%,Up%(3),Up$(3),Uf%,Uj%,1)
W�"�8:�ih(x%,y%,Up%(3),Up$(3),Wl)
W��
W�<�Yy%:p%=Uk%+8+XV%*48:i%=1:ie%=Ud%:�ea%=Vo% �i%=2:ie%=Ue%
W� Ȏid% �
W�/�0,1:�ig(x%,y%,Up%(i%),Up$(i%),ie%,Uh%,id%)
W�%�16:�ih(x%,y%,Up%(i%),Up$(i%),bd)
W��:�Xa% ��ii(b%,3,x%,y%)
W�.ci=bd*bc%*(1<<16):cj=bd*be%*(1<<16):�XZ% �
X�ș&400E6,ha%:fq%=XV% �ds%:fr%=XV% �ds%:�Yq(fq%-1,fr%-1,x%,y%,ci,cj):�Yq(fq%-1,fr%,x%,y%,ci,cj):�Yq(fq%-1,fr%+1,x%,y%,ci,cj):�Yq(fq%,fr%-1,x%,y%,ci,cj):�Yq(fq%,fr%+1,x%,y%,ci,cj):�Yq(fq%+1,fr%-1,x%,y%,ci,cj)
X4;�Yq(fq%+1,fr%,x%,y%,ci,cj):�Yq(fq%+1,fr%+1,x%,y%,ci,cj)
X><�:ș&400E6,71:p%=Uk%+8+48*XV%:�cY(Yq,Ub%,x%,y%,p%,ci,cj)
X\��WW%:ș&400E6,2:�i%=1 �7:�x%+300,y%+72+i%*64:�BY 1024,0:�:ș&400E6,7:�x%+300,y%+72+Ur%(0,0):�i%=1 �10:�x%+300+i%*102.4,y%+72+Ur%(0,i%):�:�b%!32<y%+64 �b%!40>y%+56 ��if(b%,x%+300,y%+60)
X��:ș&400CA,,b% �cm%:�:�
X����bg:�cm%,x%,y%,p%:b%!0=Yy%:b%!4=0:b%!8=0:b%!12=30000:b%!16=30000:ș&400C9,,b% �cm%:p%=Uk%+8+48*XV%:x%=b%!4-b%!20:y%=b%!16-b%!24:ȕcm%:ș&400E6,71:�cY(Yq,Ub%,x%,y%,p%,bd*bc%*(1<<16),bd*be%*(1<<16)):ș&400CA,,b% �cm%:�:�
YjH��Yq(ck%,cl%,x%,y%,ci,cj):�p%:�ck%<0 �cl%<0 �ck%>ds%-1 �cl%>dk%-1 ��
Y�,p%=Uk%+8+48*(ck%+ds%*cl%):�p%?30<>255 ��
Y� �cY(Yr,Ub%,x%,y%,p%,ci,cj):�
Y�g��eU(x%,y%,ij%,ik%,z):ș&400E6,79:x%+=ij%*z*bc%:y%+=ik%*z*be%:�0,y%:�BY 32000,0:�x%,0:�BY 0,32000:�
Z 4��if(b%,x%,y%):�t%,de,df:de=b%!28-x%:�de<0 �de=0
Z df=b%!36-x%:�df<0 ��
Z(�df>1024 �df=1024
Z2!�t=de �df�10.24:Ȓx%+t,y%:�:�
ZP*��ii(b%,do%,x%,y%):�z,cm%:�Vf% �aq% ��
Zn Ȏdo% �
Zx$�0:z=Wj:cm%=0:� �at% �cm%=cm% �2
Z�� �ac% �cm%=cm% �4
Z�$�1:z=Wk:cm%=1:� �at% �cm%=cm% �2
Z�� �ac% �cm%=cm% �4
Z�(�3:�ea%=Vo% �z=Wk:cm%=53�z=Wj:cm%=52
Z��:�ax% �cm%=cm% �8
Z�0�cY(Yh,Uk%,b%,z*256*bc%,z*256*be%,cm%,ha%):�
Z�>��ig(x%,y%,a%,n$,ie%,il%,f%):�f%=0 �ic%>15 �iY%>15 �il%=-1
[(ș&2002E,308,a%,n$,x%,y%,0,ie%,il%:�
["=��ih(x%,y%,a%,n$,z):ș&400ED,296,a%,n$,,,,Uc%,Ug%:�z<>1 �
[@Iz=100*z:Uc%!0=z*Uc%!0:Uc%!4=z*Uc%!4:Uc%!8=100*Uc%!8:Uc%!12=100*Uc%!12
[^*�:ș&2002E,308,a%,n$,x%,y%,0,Uc%,Ug%:�
[�2��ad(w%):ș&400D1,w%,-3000,-3000,30000,30000:�
[�R��eq(p%,cm%):�dp%,dq%:dp%=p% �ds%:dq%=p% �ds%:�cm% �1 ��im(Vn%,0,Wj,dp%,dq%,�)
[�$�cm% �2 ��im(Vo%,1,Wk,dp%,dq%,�)
[�$�cm% �4 ��im(aZ%,2,Wl,dp%,dq%,�)
[��
[�R��cr(p%,cm%):�dp%,dq%:dp%=p% �ds%:dq%=p% �ds%:�cm% �1 ��im(Vn%,0,Wj,dp%,dq%,�)
\$�cm% �2 ��im(Vo%,1,Wk,dp%,dq%,�)
\ $�cm% �4 ��im(aZ%,2,Wl,dp%,dq%,�)
\&�
\:P��eb(p%,cm%):�dp%,dq%:dp%=p% �ds%:dq%=p% �ds%:�cm% �1 ��in(Vn%,0,Wj,dp%,dq%)
\b"�cm% �2 ��in(Vo%,1,Wk,dp%,dq%)
\l�
\�t��in(w%,i%,z,dp%,dq%):�x%,y%:�io(dp%,dq%,i%,x%,y%):x%=x%*bc%*z:y%=y%*be%*z:ș&400D1,w%,x%-16,y%-16,x%+16,y%+16:�
\Ɯ��im(w%,i%,z,dp%,dq%,ip%):�fg%,fh%,fq%,fr%,iq%,ir%:�io(dp%,dq%,i%,fg%,fh%):fq%=fg%:fr%=fh%:�io(dp%+1,dq%,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
\�'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]C�io(dp%+1,dq%+1,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
] C�io(dp%+1,dq%-1,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]4'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]>?�io(dp%,dq%,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]R'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]\A�io(dp%,dq%+1,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]p'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]zA�io(dp%,dq%-1,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]�'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]�A�io(dp%-1,dq%,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]�'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]�C�io(dp%-1,dq%+1,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]�'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]�C�io(dp%-1,dq%-1,i%,iq%,ir%):�iq%<fg% �fg%=iq%��iq%>fq% �fq%=iq%
]�'�ir%<fh% �fh%=ir%��ir%>fr% �fr%=ir%
]�Bfg%=z*bc%*fg%:fh%=z*be%*fh%:fq%=z*bc%*fq%:fr%=z*be%*fr%:�ip% �
^+ș&400D1,w%,fg%-16,fh%-16,fq%+16,fr%+16
^)�:�is(w%,fg%-16,fh%-16,fq%+16,fr%+16)
^.�:�
^L,��io(x%,y%,i%,�ck%,�cl%):�p%:�x%<0 �x%=0
^j�y%<0 �y%=0
^t�x%>ds%-1 �x%=ds%-1
^~�y%>dk%-1 �y%=dk%-1
^�4p%=Uk%+8+i%*8+48*(x%+y%*ds%):ck%=p%!0:cl%=p%!4:�
^����is(w%,fg%,fh%,fq%,fr%):�cm%,x%,y%:�Ve(2):b%!0=w%:b%!4=fg%:b%!8=fh%:b%!12=fq%:b%!16=fr%:ș&400C9,,b% �cm%:x%=b%!4-b%!20:y%=b%!16-b%!24:ȕcm%:Ȏw% �
^�Y�Vn%:�ig(x%,y%,Up%(1),Up$(1),Ud%,Uh%,id%):�ii(b%,0,x%,y%):�Wt%>0�eU(x%,y%,Wv%,Ww%,Wj)
_Y�Vo%:�ig(x%,y%,Up%(2),Up$(2),Ue%,Uh%,id%):�ii(b%,1,x%,y%):�Wt%>0�eU(x%,y%,Wx%,Wy%,Wk)
_2�aZ%:ȎcZ% �
_<)�0:�ig(x%,y%,Up%(3),Up$(3),Uf%,Ui%,0)
_F)�1:�ig(x%,y%,Up%(3),Up$(3),Uf%,Uj%,1)
_P�
_Z"�:ș&400CA,,b% �cm%:�:�Ve(1):�
_�+ݤex(Vy%):="(need "+�(1+Vy%/1024)+"k)."
_���Zq:�Vf% ��Zp
_�Wp%=�:�fX(Up%(1)):�fX(Up%(2)):�fX(Up%(3)):�fX(Up%(4)):�fX(Up%(5)):�fX(Up%(6)):�fX(Uq%(1)):�fX(Uq%(2)):�fX(Uq%(3)):�fX(Uq%(4)):�fX(Uq%(5)):�fX(Uq%(6)):�Vk(Vn%):�Vk(Vo%):�Vk(aZ%):�Vk(Xd%):�Vk(Xj%):WZ%=�:it$="":Up%()=-1:Up$()="":Uq%()=-1:$�i(gk%,7)="-"
`J �Ys(�):�
`h/ݤiu(a%):ș&2E,256+13,a%,Ub%,255,1:=�s(Ub%)
`|)ݤiv(f$):�ZZ%:ș&8,5,f$ �ZZ%:=(ZZ%=1)
`�4ݤiw(f$):�l%,ZZ%:ș&8,5,f$ �ZZ%,,l%:�ZZ%<>1 �=-1
`�&�(l% �(&FFF<<20))<>(&FFF<<20) �=-1
`�=((l%>>8)�&FFF)
`���ix:�WZ% ��Zq��Ys(�)
a�eV:�Vk(Xw%):�
a0X��iy(f$):�dY%,Vz%,iz%:�Zf%>2400 �Zg%>2400 �Zf%<32 �Zg%<32 ��1,"Images are too small"
aNiz%=ge%:Ȏiz% �
ab �0,1:gi%=4+4*((Zf%-1)�4)
al�2:gi%=3*Zf%
av:�:ș53,jU%,3 �,,ic%:id%=0:�(Up%(1)-�jV(1))>2000 �id%=1
a��ic%<=15 �id%=16
a��ș53,bx%,4 �,,dY%:ș53,bx%,5 �,,Vz%:bc%=(1<<dY%):be%=(1<<Vz%):ș53,jU%,4 �,,dY%:ș53,jU%,5 �,,Vz%:jW%=(1<<dY%):jX%=(1<<Vz%):dc%=Zf%*bc%:dd%=Zg%*be%:ct%=Zf%*jW%:cu%=Zg%*jX%:�ge%=1 � �gh% �
b C�cY(Yk,UZ%!0,Ua%,gi%*Zg%,0,0,0):�cY(Yk,UZ%!4,Ua%,gi%*Zg%,0,0,0)
b ��:jY$=�bk(f$):�ZX(Vn%,Wj*ct%,Wj*cu%):�ZX(Vo%,Wk*ct%,Wk*cu%):�ZX(aZ%,dc%,dd%):�ZX(Yy%,Wj*ct%,Wj*cu%):�jZ(jY$+"::Start picture",Vn%):�ZW(Vn%):�jZ(jY$+"::End picture",Vo%):�ZW(Vo%):�jZ(jY$+"::Morphed",aZ%):it$=f$:WZ%=�:Wl=1:UZ%!12=Zf%:UZ%!16=Zg%
b���Wu(Xd%,6,iz%=0):�Wu(Xd%,7,iz%=1):�Wu(Xd%,8,iz%=2):�Wu(Xj%,6,iz%=0):�Wu(Xj%,7,iz%=1):�Wu(Xj%,8,iz%=2):ay%=iz%:bY%=iz%:bU%=iz%:bZ%=iz%:�iz%=2 �
c"$Xe%="Sfile_690;Pptr_hand,6,6"
c$�:$Xe%="Sfile_ff9;Pptr_hand,6,6"
c.��:UZ%!20=gi%:�az(iz%,Xd%,18):�az(iz%,Xj%,17):UZ%!24=UZ%!20:UZ%?28=ge%:UZ%?30=0:UZ%?31=0:UZ%!104=Uk%:�f$>27 �f$="..."+�f$,24)
c�N$�i(gk%,1)=f$:$�i(gk%,2)=�(Zf%)+" x "+�(Zg%):�iw(Vn$)=&690 �ge%=1 �iz%=16
c� Ȏiz% �
c��0:f$="Sprite (colour)"
c��1:f$="Sprite (grey)"
c��2:f$="Clear (24bpp)"
c��16:f$="Clear (grey)"
c��:�gh% �f$+=", swapped"
d
-$�i(gk%,9)=f$:�ja:bf%=0:�be%=2*bc% �bf%=1
d2�be%=4*bc% �bf%=2
d< �cv:�
dZ���Zb(b%):�f$,jb$,jc$,jd$,gX$,je$,by%,bz%,Vy%,er%,x%,y%,jf%:�UW:f$=�s(b%+44):ș&8,5,f$ �jf%:�jf%<>2 ��1,"Morpheus needs a directory."
d�j�ix:Wp%=�:jb$=f$+".Sprite1":�iw(jb$)<>&FF9 ��1,"File 'Sprite1' isn't a spritefile or can't be found."
d�`jc$=f$+".Sprite2":�iw(jc$)<>&FF9 ��1,"File 'Sprite2' isn't a spritefile or can't be found."
d�[jd$=f$+".!Morph":gX$=f$+".Start":je$=f$+".End":� �(�iv(gX$) ��iv(je$)) �gX$=jb$:je$=jc$
d�Pcn%=�iw(gX$):�cn%<>�iw(je$) ��1,"Start and end images aren't the same type."
eX�cn%<>&690 �cn%<>&FF9 ��1,"Start and end images are neither sprite nor Clear files."
efș&8,5,gX$ �,,,,by%:ș&8,5,je$ �,,,,bz%:�by%<>bz% ��1,"Start and end images aren't the same size."
e@�ș&8,5,jb$ �,,,,by%:�jg(jb$,by%,1):ș&8,5,jc$ �,,,,by%:�jg(jc$,by%,2):ș&2E,256+40,Up%(1),Up$(1) �,,,,,,jU%:Vn$=gX$:Vo$=je$:�gX$=jb$ �
e�qbx%=jU%:ș&2E,256+40,Up%(1),Up$(1) �,,,x%,y%:ș53,bx%,3 �,,er%:�er%<>63 ��1,"Only 8bpp sprite can be loaded."
e�"gh%=�:ge%=0:�jh(Up%(1)):�ji% �
e�!�jh(Up%(2)):�jh(Up%(3)):ge%=1
e�-�:Zf%=x%:Zg%=y%:UZ%!0=�jV(1):UZ%!4=�jV(2)
f4�:gh%=�:ș&8,5,gX$ �,,,,by%:�av% �by%>eW% �gh%=�
f:�cn%=&FF9 �
fD
�gh% �
fND�bu(gX$):�hX%=-1 ��1,"Error in spritefile or illegal mode/size."
fb��hX%=-2 ��1,"The sprite has lefthand wastage. This can be removed by loading the spritefile into !Paint and resaving it without any changes."
fl�ji% �ge%=1�ge%=0
fvZf%=bv%:Zg%=bw%
f���:�jg(gX$,by%,5):�jg(je$,by%,6):ș&2E,256+40,Up%(5),Up$(5) �,,,x%,y%,,bx%:ș53,bx%,3 �,,er%:�er%<>63 ��1,"Not a 8bpp sprite."
f�-ge%=0:�jh(Up%(5)):�ji% ��jh(Up%(6)):ge%=1
f�+Zf%=x%:Zg%=y%:UZ%!0=�jV(5):UZ%!4=�jV(6)
f��
f��:bx%=�cV(jU%):�gh% �
g4ge%=�jj(gX$):�ge%=-1 ��1,"Illegal Clear format."
g*Zf%=bv%:Zg%=bw%
g46�:ge%=�jj(gX$):�ge%=-1 ��1,"Illegal Clear format."
gR2Zf%=bv%:Zg%=bw%:�jk(gX$,5):�jk(je$,6):�ge%=1 �
gz UZ%!0=�jV(5):UZ%!4=�jV(6)
g� �:UZ%!0=Uq%(5):UZ%!4=Uq%(6)
g��
g��
g��
g�'�:WZ%=�:�jl(f$):�iy(f$):Wp%=�:�VX:�
h$=ݤgg(m%):�dY%,Vz%:ș53,m%,4 �,,dY%:ș53,m%,5 �,,Vz%:Ȏ� �
hV�dY%=1 �Vz%=1:=20
h`�dY%=1 �Vz%=2:=12
hj�dY%=2 �Vz%=2:=9
ht �:=12
h�=ݤcV(m%):�dY%,Vz%:ș53,m%,4 �,,dY%:ș53,m%,5 �,,Vz%:Ȏ� �
h��dY%=1 �Vz%=1:=28
h��dY%=1 �Vz%=2:=15
h��dY%=2 �Vz%=2:=13
h� �:=13
i ���bu(f$):�h%,f%,l%,p%,d%,m%,er%,g%,ez%,jm%,jn%:ș&D,&43,f$ �h%:d%=�jo(h%):p%=�jo(h%):hX%=p%-4:�#h%=p%+12:bv%=�jo(h%):bw%=�jo(h%):f%=�jo(h%):l%=�jo(h%):p%=�jo(h%):d%=�jo(h%):m%=�jo(h%):hX%+=p%:ș53,m%,3 �,,er%:�er%<>63 �hX%=-1
i�+bx%=m%:bw%+=1:�bw%<32 �bw%>2400 �hX%=-1
i��f%<>0 �hX%=-2
i�bv%=bv%*4:Ȏl% �
i�
�7:bv%+=1
i��15:bv%+=2
i��23:bv%+=3
i��31:bv%+=4
i� �:�bv%<32 �bv%>2400 �hX%=-1
jji%=�:�hX%>2000 �
j"[g%=�:�p%=0 �255:ez%=�jo(h%):jn%=�jo(h%):jm%=�jo(h%):�ez%<>jn% �jm%<>jn% �ez%<>jm% �g%=�
jJUa%?p%=ez%:�:ji%=g%
jh�:ș&D,0,h%:�
j��ݤjj(f$):�h%,n$,a%,jp%,jq%,jr%,js%,jt%,ju%:ș&D,&43,f$ �h%:n$="":a%=�#h%:ȕa%<>0:n$+=�a%:a%=�#h%:�:a%=�jo(h%):bv%=�jo(h%):bw%=�jo(h%):ju%=�jo(h%):�ju%=24 �hX%=�#h%:ș&D,0,h%:=2
j�ajp%=�:�jq%=0 �255:jr%=�#h%:js%=�#h%:jt%=�#h%:Ua%?jq%=jr%:�jr%<>js% �js%<>jt% �jr%<>jt% �jp%=�
k !�:hX%=�#h%:ș&D,0,h%:�jp% �=1
kD=-1
kXW��jg(f$,l%,n%):�p%,n$:p%=�ew(l%+20):�p%<=0 ��1,"No room to load sprite "+�ex(l%+20)
kv�p%!0=l%+20:p%!4=0:p%!8=16:p%!12=16:ș&2E,256+10,p%,f$:n$=�iu(p%):ș&2E,256+54,p%,n$:ș&2E,256+30,p%,n$:Up%(n%)=p%:Up$(n%)=n$:�
k���jk(f$,n%):�ge%=1 �
k��jv(f$,n%)
k��:�jw(f$,n%)
k��:�
l`��jw(f$,n%):�p%,h%:p%=�ew(Zf%*Zg%*3):�p%<=0 ��1,"No room to load Clear file "+�ex(Zf%*Zg%*3)
l4Eș&D,&43,f$ �h%:ș&C,3,h%,p%,3*Zf%*Zg%,hX%:ș&D,0,h%:Uq%(n%)=p%:�
lp}��jv(f$,n%):�p%,l%,h%,jx%,ZU%,i%:l%=Zg%*(4+4*(Zf%-1)�4):p%=�ew(l%+20):�p%<=0 ��1,"No room to load Clear file "+�ex(l%+20)
l�np%!0=l%+20:p%!4=0:p%!8=16:p%!12=16:ș&2E,256+15,p%,"ClearImage",0,Zf%,Zg%,21:ș&D,&43,f$ �h%:�(Zf% �4)=0 �
l�ș&C,4,h%,p%+60,Zf%*Zg%
l�I�:jx%=p%+60:ZU%=4*((Zf%+4)�4):�i%=1 �Zg%:ș&C,4,h%,jx%,Zf%:jx%+=ZU%:�
m�:ș&D,0,h%:�
m8*ݤjV(n%):n%=Up%(n%):n%+=n%!8:=n%+n%!32
mLh��jl(f$):�jy$,x%,y%,cm%,c%,Zy%,t%,ho%,c$,fu%:jy$=�bk(f$):�jz(jy$):ș&8,5,f$+".!Morph" �jf%:�jf%=0 ��
m�@�jf%<>1 ��1,jy$+".!Morph already exists, but not as a file."
m�~h%=�(f$+".!Morph"):fu%=�jo(h%):�fu%<-2 �fu%>50 ��#h%:�1,"This version of Morpheus can only read setup formats 0, 1 and 2."
m��fu%=-1 �fu%=-2 �
m�gfu%=-fu%:x%=�jo(h%):y%=�jo(h%):�x%<3 �y%<3 �x%>30 �y%>30 ��#h%:�Xt("Error in morph setup.","",""):�
m�IZy%=�jo(h%):�Zy%<3 �Zy%>64 ��#h%:�Xt("Error in morph setup.","",""):�
m�pXz%=Zy%:t%=0:�Zy%=1 �Xz%:ho%=t%:t%=�jo(h%):�t%<0 �t%>1024 �t%<ho% ��#h%:�Xt("Error in morph setup.","",""):�
n �Ut%!(4*Zy%)=t%:�:�t%=1 �8:Ur$(t%)=�#h%:�:�Zy%=1 �8:�t%=0 �10:Ur%(Zy%,t%)=�jo(h%):�:�ap(Zy%):�:t%=�jo(h%):as%=0:�(t% �1)<>0 �as%=(as% �1)
n� �(t% �2)<>0 �as%=(as% �2)
n� �(t% �4)<>0 �as%=(as% �4)
n� �(t% �8)<>0 �as%=(as% �8)
n�&�iX(as%):�(t% �16)<>0 �YZ%=��YZ%=�
n� �(t% �32)<>0 �YY%=��YY%=�
n�T�Wu(Wr%,45,YZ%):�Wu(Wr%,44,YY%):t%=�jo(h%):c$="":ha%=t%:�t%=71 �t%=0:c$="Invert"
oJ$Wq%=c$:�Zi(Wr%,31,t%):Wj=�jo(h%)/100:Wk=�jo(h%)/100:�kU(x%,y%,h%,fu%)
o6Z�:x%=fu%:y%=�jo(h%):�x%<3 �y%<3 �x%>30 �y%>30�#h%:�Xt("Error in morph setup.","",""):�
oT�kU(x%,y%,h%,0)
o^ �:�#h%:�
o����kU(x%,y%,h%,fu%):�en%,p%,cm%,t%:ds%=x%:dk%=y%:Uk%!0=x%:Uk%!4=y%:�p%=0 �ds%*dk%-1:en%=Uk%+48*p%+8:en%!0=�jo(h%):en%!4=�jo(h%):en%!8=�jo(h%):en%!12=�jo(h%):en%!24=0:Ȏfu% �
o�Z�0:cm%=�jo(h%):en%?29=(cm% �15):en%?30=(cm%>>4)�15:en%!32=0:en%!36=0:en%!40=0:en%!44=0
p&O�1:en%!28=�jo(h%):t%=�jo(h%):t%=�jo(h%):en%!32=0:en%!36=0:en%!40=0:en%!44=0
pDQ�2:en%!28=�jo(h%):en%!32=�jo(h%):en%!36=�jo(h%):en%!40=�jo(h%):en%!44=�jo(h%)
pb �:�:�
p����jz(f$):�c%,t,Zy%:Xz%=10:ds%=10:dk%=10:�Zy%=1 �8:�t%=0 �10:Ur%(Zy%,t%)=50.8*t%:�:�ap(Zy%):�:�c%=1 �8:Ur$(c%)="Group #"+�c%:�:�bb(0):�Yp:�et(3):�
q >ݤjo(h%):Ub%?0=�#h%:Ub%?1=�#h%:Ub%?2=�#h%:Ub%?3=�#h%:=!Ub%
qH5��jZ(t$,w%):Uy%!0=w%:ș&400CC,,Uy%:$(Uy%!76)=t$:�
qpJ��ja:�ZZ%,f$,kV%,kW%:f$=it$+".!Morph":ș&8,5,f$ �ZZ%,,kV%,kW%:�ZZ%=1 �
q� Ub%!0=kW%:Ub%?4=(kV% �255)
q��:Ub%?0=3:ș&7,14,Ub%
q� �:ș&C0,Ub%,�i(gk%,3),24:�
q�H��Zd(p%,kX%):�f$,h%,kY%,i%,v:f$=�s(p%):kY%=Uu%!(4*Zj%-4):�kX%=&FFF �
rQh%=�(f$):�UW:i%=0:�:v=�(�#h%):kY%!(4*i%)=1024*v:i%+=1:��#h% �i%=1025:�VX:�#h%
r~N�:�1,"You can only load textfiles (1025 entries, separated by linefeeds)."
r��:�
r����cW(ep$,bm$,x%,y%,bt%):�kZ%,gc%,ka%,kb$,dw%,dx%,m%,t%:ka%=2000+y%*(4+4*(x%-1)�4):gc%=�ew(ka%):�gc%<=0 ��1,"No room for conversion to the sprite."
r؎gc%!0=ka%:gc%!4=0:gc%!8=16:gc%!12=16:ș&8,5,ep$ �,,,,ka%:ka%+=20:kZ%=�ew(ka%):�kZ%<=0 ��fX(gc%):�1,"No room for conversion to the sprite."
r��kZ%!0=ka%:kZ%!4=0:kZ%!8=16:kZ%!12=16:ș&2E,256+10,kZ%,ep$:kb$=�iu(kZ%):ș&2E,256+40,kZ%,kb$ �,,,dw%,dx%,,m%:ș&2E,256+15,gc%,"converted",0,x%,y%,bt%:t%=Ub%:t%!0=x%*(1<<�cU(bt%,4)):t%!4=y%*(1<<�cU(bt%,5))
s<~t%!8=dw%*(1<<�cU(m%,4)):t%!12=dx%*(1<<�cU(m%,5)):ș&2E,256+60,gc%,"converted",0 �kc%,kd%,ke%,kf%:ș&40750:�cU(m%,3)<>63 �
sd$ș&60740,kZ%,kb$,-1,0,Ub%+20,%10
sn!�:�t%=0 �255:Ub%?(20+t%)=t%:�
s�v�:ș&2002E,256+52,kZ%,kb$,0,0,0,Ub%,Ub%+20:ș&2E,kc%,kd%,ke%,kf%:ș&40750:ș&2E,256+12,gc%,bm$:�fX(kZ%):�fX(gc%):�
s�6��jh(s%):�cX%,eZ%,i%,jp%,jq%,ez%,jn%,jm%:�s%<=0 ��
t8ji%=�:cX%=s%+s%!8:eZ%=cX%!32:�cX%!36<eZ% �eZ%=cX%!36
t" Ȏ� �
t,��eZ%=2092:jp%=�:jq%=cX%+44:�i%=0 �255:ez%=jq%?(8*i%+1):jn%=jq%?(8*i%+2):jm%=jq%?(8*i%+3):�ez%<>jn% �jn%<>jm% �ez%<>jm% �jp%=�
tT Ua%?i%=ez%:�:�jp% �ji%=�
tr�kg(cX%,s%)
t|�eZ%>44:�kg(cX%,s%)
t��:�
t����kg(cX%,kh%):�ki%:ki%=cX%!32-44:�cY(Yl,cX%+ki%+44,kh%!0-cX%!32-kh%!8,cX%+44,0,0,0):cX%!0=cX%!0-ki%:cX%!32=cX%!32-ki%:cX%!36=cX%!36-ki%:kh%!0=kh%!0-ki%:kh%!12=kh%!12-ki%:�
� 00000000 0d 00 32 fd 55 56 24 3d 22 31 2e 30 30 20 44 65 |..2.UV$="1.00 De|
00000010 6d 6f 6e 73 74 72 61 74 69 6f 6e 20 76 65 72 73 |monstration vers|
00000020 69 6f 6e 22 3a f2 55 57 3a de 62 25 20 32 35 30 |ion":.UW:.b% 250|
00000030 30 2c 51 25 20 36 30 30 30 2c 55 58 25 20 31 30 |0,Q% 6000,UX% 10|
00000040 30 30 2c 55 59 25 20 33 30 30 30 2c 55 5a 25 20 |00,UY% 3000,UZ% |
00000050 32 35 36 2c 55 61 25 20 32 35 36 2c 55 62 25 20 |256,Ua% 256,Ub% |
00000060 31 30 32 34 3a de 55 63 25 20 31 36 2c 55 64 25 |1024:.Uc% 16,Ud%|
00000070 20 31 36 2c 55 65 25 20 31 36 2c 55 66 25 20 31 | 16,Ue% 16,Uf% 1|
00000080 36 2c 55 67 25 20 32 35 36 2c 55 68 25 20 32 35 |6,Ug% 256,Uh% 25|
00000090 36 2c 55 69 25 20 32 35 36 2c 55 6a 25 20 32 35 |6,Ui% 256,Uj% 25|
000000a0 36 3a de 55 6b 25 20 34 38 2a 33 30 2a 33 30 2b |6:.Uk% 48*30*30+|
000000b0 38 2c 55 6c 25 20 31 32 30 30 30 2c 55 6d 25 20 |8,Ul% 12000,Um% |
000000c0 32 30 2c 55 6e 25 20 31 30 32 34 3a de 55 6f 25 |20,Un% 1024:.Uo%|
000000d0 28 32 30 29 2c 55 70 25 28 31 30 29 2c 55 70 24 |(20),Up%(10),Up$|
000000e0 28 31 30 29 2c 55 71 25 28 31 30 29 2c 55 72 24 |(10),Uq%(10),Ur$|
000000f0 28 38 29 2c 55 72 25 28 38 2c 31 31 29 0d 00 82 |(8),Ur%(8,11)...|
00000100 dd de 55 73 25 20 33 33 30 30 30 2c 55 74 25 20 |..Us% 33000,Ut% |
00000110 33 32 30 2c 55 75 25 20 33 32 2c 55 76 25 20 34 |320,Uu% 32,Uv% 4|
00000120 30 2c 55 77 25 20 32 35 36 3a f2 55 78 3a 55 79 |0,Uw% 256:.Ux:Uy|
00000130 25 3d 62 25 2b 31 30 30 30 3a 55 76 25 21 30 3d |%=b%+1000:Uv%!0=|
00000140 32 3a 55 76 25 21 34 3d 33 3a 55 76 25 21 38 3d |2:Uv%!4=3:Uv%!8=|
00000150 26 34 30 30 43 30 3a 55 76 25 21 31 32 3d 26 34 |&400C0:Uv%!12=&4|
00000160 30 30 43 31 3a 55 76 25 21 31 36 3d 30 3a 24 62 |00C1:Uv%!16=0:$b|
00000170 25 3d 22 54 41 53 4b 22 3a c8 99 26 34 30 30 43 |%="TASK":..&400C|
00000180 30 2c 33 30 30 2c 21 62 25 2c 22 4d 6f 72 70 68 |0,300,!b%,"Morph|
00000190 65 75 73 20 44 45 4d 4f 22 2c 55 76 25 20 b8 2c |eus DEMO",Uv% .,|
000001a0 55 7a 25 3a e0 3d e0 2b 26 34 30 30 30 3a d3 3d |Uz%:.=.+&4000:.=|
000001b0 93 2d 32 35 36 3a 56 55 25 3d 93 3a f2 56 56 28 |.-256:VU%=.:.VV(|
000001c0 56 55 25 2c 32 35 36 29 3a f2 56 57 3a f2 56 58 |VU%,256):.VW:.VX|
000001d0 3a f2 56 59 3a ee 85 f2 56 5a 0d 01 22 25 c8 95 |:.VY:...VZ.."%..|
000001e0 56 61 25 3d 30 3a c8 99 26 34 30 30 43 37 2c 2c |Va%=0:..&400C7,,|
000001f0 62 25 20 b8 56 62 25 3a c8 8e 56 62 25 20 ca 0d |b% .Vb%:..Vb% ..|
00000200 01 40 10 c9 30 3a e7 56 63 25 20 8c f2 56 63 0d |.@..0:.Vc% ..Vc.|
00000210 01 4a 10 e7 56 64 25 20 8c f2 56 65 28 33 29 0d |.J..Vd% ..Ve(3).|
00000220 01 54 0d e7 56 66 25 20 8c f2 56 67 0d 01 5e 0d |.T..Vf% ..Vg..^.|
00000230 e7 56 68 25 20 8c f2 56 68 0d 01 68 0e c9 31 3a |.Vh% ..Vh..h..1:|
00000240 f2 56 69 28 62 25 29 0d 01 72 12 c9 32 3a f2 56 |.Vi(b%)..r..2:.V|
00000250 6a 28 62 25 21 30 2c b9 29 0d 01 7c 10 c9 33 3a |j(b%!0,.)..|..3:|
00000260 f2 56 6b 28 62 25 21 30 29 0d 01 86 1b c9 34 3a |.Vk(b%!0).....4:|
00000270 e7 62 25 21 30 3d 56 6c 25 20 8c 56 68 25 3d a3 |.b%!0=Vl% .Vh%=.|
00000280 3a f2 56 6d 0d 01 90 25 e7 62 25 21 30 3d 56 6e |:.Vm...%.b%!0=Vn|
00000290 25 20 84 62 25 21 30 3d 56 6f 25 20 8c 56 64 25 |% .b%!0=Vo% .Vd%|
000002a0 3d a3 3a f2 56 65 28 32 29 0d 01 9a 17 c9 35 3a |=.:.Ve(2).....5:|
000002b0 e7 62 25 21 30 3d 56 6c 25 20 8c 56 68 25 3d b9 |.b%!0=Vl% .Vh%=.|
000002c0 0d 01 a4 2e e7 28 62 25 21 30 3d 56 6e 25 20 84 |.....(b%!0=Vn% .|
000002d0 62 25 21 30 3d 56 6f 25 29 20 80 20 ac 56 64 25 |b%!0=Vo%) . .Vd%|
000002e0 20 8c 56 64 25 3d b9 3a f2 56 65 28 31 29 0d 01 | .Vd%=.:.Ve(1)..|
000002f0 ae 0e c9 36 3a f2 56 70 28 62 25 29 0d 01 b8 0e |...6:.Vp(b%)....|
00000300 c9 37 3a f2 56 71 28 62 25 29 0d 01 c2 1b c9 38 |.7:.Vq(b%).....8|
00000310 3a f2 56 72 28 62 25 21 30 2c 62 25 21 34 2c 62 |:.Vr(b%!0,b%!4,b|
00000320 25 21 32 34 29 0d 01 cc 0e c9 39 3a f2 56 73 28 |%!24).....9:.Vs(|
00000330 62 25 29 0d 01 d6 12 c9 31 37 2c 31 38 3a f2 56 |b%).....17,18:.V|
00000340 74 28 62 25 29 0d 01 e0 cc cb 3a ce 3a 62 25 21 |t(b%).....:.:b%!|
00000350 30 3d 31 3a 24 28 62 25 2b 34 29 3d 22 54 68 65 |0=1:$(b%+4)="The|
00000360 20 46 75 6c 6c 20 76 65 72 73 69 6f 6e 20 6f 66 | Full version of|
00000370 20 4d 6f 72 70 68 65 75 73 20 69 73 20 61 76 61 | Morpheus is ava|
00000380 69 6c 61 62 6c 65 20 66 72 6f 6d 20 4f 72 65 67 |ilable from Oreg|
00000390 61 6e 20 44 65 76 65 6c 6f 70 6d 65 6e 74 73 2c |an Developments,|
000003a0 20 33 36 20 47 72 6f 73 76 65 6e 6f 72 20 41 76 | 36 Grosvenor Av|
000003b0 65 6e 75 65 2c 20 53 74 72 65 65 74 6c 79 2c 20 |enue, Streetly, |
000003c0 53 75 74 74 6f 6e 20 43 6f 6c 64 66 69 65 6c 64 |Sutton Coldfield|
000003d0 2c 20 42 37 34 20 33 50 45 20 61 6e 64 20 63 6f |, B74 3PE and co|
000003e0 73 74 73 20 a3 33 34 2e 39 35 22 3a c8 99 26 34 |sts .34.95":..&4|
000003f0 30 30 44 46 2c 62 25 2c 31 37 2c 22 4d 6f 72 70 |00DF,b%,17,"Morp|
00000400 68 65 75 73 20 44 45 4d 4f 22 3a f2 56 75 3a c8 |heus DEMO":.Vu:.|
00000410 98 0d 02 26 3e dd f2 56 59 3a c8 99 26 34 30 30 |...&>..VY:..&400|
00000420 44 31 2c 2d 31 2c 56 76 25 2f 32 2d 33 38 30 2c |D1,-1,Vv%/2-380,|
00000430 56 77 25 2f 32 2d 32 34 30 2c 56 76 25 2f 32 2b |Vw%/2-240,Vv%/2+|
00000440 34 30 30 2c 56 77 25 2f 32 2b 32 34 30 3a e1 0d |400,Vw%/2+240:..|
00000450 02 4e 29 dd f2 56 75 3a ea 56 78 25 2c 6e 25 3a |.N)..Vu:.Vx%,n%:|
00000460 e3 56 78 25 3d 30 20 b8 32 35 35 3a e7 55 77 25 |.Vx%=0 .255:.Uw%|
00000470 3f 56 78 25 3e 30 20 8c 0d 02 76 21 e3 6e 25 3d |?Vx%>0 ...v!.n%=|
00000480 30 20 b8 55 77 25 3f 56 78 25 3a c8 99 26 34 30 |0 .Uw%?Vx%:..&40|
00000490 30 38 32 2c 56 78 25 3a ed 0d 02 80 12 cd 3a ed |082,Vx%:......:.|
000004a0 3a c8 99 26 34 30 30 44 44 3a e1 0d 02 b2 2e dd |:..&400DD:......|
000004b0 f2 55 78 3a ea 56 79 25 2c 56 7a 25 2c 66 24 3a |.Ux:.Vy%,Vz%,f$:|
000004c0 c8 99 35 33 2c 2d 31 2c 35 20 b8 2c 2c 56 7a 25 |..53,-1,5 .,,Vz%|
000004d0 3a e7 56 7a 25 3d 31 20 8c 0d 02 da 2d 66 24 3d |:.Vz%=1 ....-f$=|
000004e0 22 3c 4d 6f 72 70 68 44 65 6d 6f 24 44 69 72 3e |"<MorphDemo$Dir>|
000004f0 2e 52 65 73 6f 75 72 63 65 73 2e 58 53 70 72 69 |.Resources.XSpri|
00000500 74 65 73 32 32 22 0d 02 e4 2d cc 3a 66 24 3d 22 |tes22"...-.:f$="|
00000510 3c 4d 6f 72 70 68 44 65 6d 6f 24 44 69 72 3e 2e |<MorphDemo$Dir>.|
00000520 52 65 73 6f 75 72 63 65 73 2e 58 53 70 72 69 74 |Resources.XSprit|
00000530 65 73 22 0d 02 f8 64 cd 3a c8 99 26 38 2c 35 2c |es"...d.:..&8,5,|
00000540 66 24 20 b8 2c 2c 2c 2c 56 79 25 3a 56 79 25 2b |f$ .,,,,Vy%:Vy%+|
00000550 3d 31 36 3a de 55 78 25 20 56 79 25 3a 55 78 25 |=16:.Ux% Vy%:Ux%|
00000560 21 30 3d 56 79 25 3a 55 78 25 21 34 3d 30 3a 55 |!0=Vy%:Ux%!4=0:U|
00000570 78 25 21 38 3d 31 36 3a 55 78 25 21 31 32 3d 31 |x%!8=16:Ux%!12=1|
00000580 36 3a c8 99 26 32 45 2c 32 35 36 2b 31 30 2c 55 |6:..&2E,256+10,U|
00000590 78 25 2c 66 24 3a e1 0d 03 48 31 dd a4 57 55 3a |x%,f$:...H1..WU:|
000005a0 ea 56 62 25 2c 57 56 25 3a 57 56 25 3d 31 3a c8 |.Vb%,WV%:WV%=1:.|
000005b0 99 26 34 30 30 43 37 2c 2c 62 25 20 b8 56 62 25 |.&400C7,,b% .Vb%|
000005c0 3a c8 8e 56 62 25 20 ca 0d 03 7a 19 c9 30 3a 57 |:..Vb% ...z..0:W|
000005d0 56 25 3d 30 3a e7 56 64 25 20 8c f2 56 65 28 33 |V%=0:.Vd% ..Ve(3|
000005e0 29 0d 03 84 0e c9 31 3a f2 56 69 28 62 25 29 0d |).....1:.Vi(b%).|
000005f0 03 8e 12 c9 32 3a f2 56 6a 28 62 25 21 30 2c b9 |....2:.Vj(b%!0,.|
00000600 29 0d 03 98 10 c9 33 3a f2 56 6b 28 62 25 21 30 |).....3:.Vk(b%!0|
00000610 29 0d 03 a2 1b c9 34 3a e7 62 25 21 30 3d 57 57 |).....4:.b%!0=WW|
00000620 25 20 8c 56 68 25 3d a3 3a f2 56 6d 0d 03 ac 25 |% .Vh%=.:.Vm...%|
00000630 e7 62 25 21 30 3d 56 6e 25 20 84 62 25 21 30 3d |.b%!0=Vn% .b%!0=|
00000640 56 6f 25 20 8c 56 64 25 3d a3 3a f2 56 65 28 32 |Vo% .Vd%=.:.Ve(2|
00000650 29 0d 03 b6 17 c9 35 3a e7 62 25 21 30 3d 57 57 |).....5:.b%!0=WW|
00000660 25 20 8c 56 68 25 3d b9 0d 03 c0 2e e7 28 62 25 |% .Vh%=......(b%|
00000670 21 30 3d 56 6e 25 20 84 62 25 21 30 3d 56 6f 25 |!0=Vn% .b%!0=Vo%|
00000680 29 20 80 20 ac 56 64 25 20 8c 56 64 25 3d b9 3a |) . .Vd% .Vd%=.:|
00000690 f2 56 65 28 31 29 0d 03 ca 0e c9 36 3a f2 56 70 |.Ve(1).....6:.Vp|
000006a0 28 62 25 29 0d 03 d4 1b c9 38 3a f2 56 72 28 62 |(b%).....8:.Vr(b|
000006b0 25 21 30 2c 62 25 21 34 2c 62 25 21 32 34 29 0d |%!0,b%!4,b%!24).|
000006c0 03 de 24 c9 39 3a e7 57 58 25 3d 32 20 80 62 25 |..$.9:.WX%=2 .b%|
000006d0 21 30 3d 36 20 80 62 25 21 34 3d 30 20 8c 57 56 |!0=6 .b%!4=0 .WV|
000006e0 25 3d 33 0d 03 e8 1a c9 31 37 2c 31 38 3a e7 62 |%=3.....17,18:.b|
000006f0 25 21 31 36 3d 30 20 8c 57 56 25 3d 32 0d 03 f2 |%!16=0 .WV%=2...|
00000700 0a cb 3a 3d 57 56 25 0d 04 10 1f dd f2 56 57 3a |..:=WV%......VW:|
00000710 ea 57 59 25 2c 70 25 2c 69 25 2c 6c 25 3a ee 85 |.WY%,p%,i%,l%:..|
00000720 f2 56 5a 3a c8 98 0d 04 38 4c 57 5a 25 3d a3 3a |.VZ:....8LWZ%=.:|
00000730 56 61 25 3d 30 3a 57 61 25 3d 30 3a 57 62 25 3d |Va%=0:Wa%=0:Wb%=|
00000740 30 3a 57 63 25 3d a3 3a 57 64 25 3d a3 3a c8 99 |0:Wc%=.:Wd%=.:..|
00000750 26 36 2c 31 36 31 2c 32 38 20 b8 2c 2c 70 25 3a |&6,161,28 .,,p%:|
00000760 e7 28 70 25 20 80 33 29 3c 3e 30 20 8c 57 64 25 |.(p% .3)<>0 .Wd%|
00000770 3d b9 0d 04 74 f3 f2 57 65 3a 24 a4 69 28 57 66 |=...t..We:$.i(Wf|
00000780 25 2c 33 29 3d 55 56 24 3a 57 67 25 3d a4 69 28 |%,3)=UV$:Wg%=.i(|
00000790 57 68 25 2c 30 29 3a de 57 69 20 31 32 3a 24 57 |Wh%,0):.Wi 12:$W|
000007a0 69 3d 22 21 4d 4f 52 50 48 44 45 4d 4f 22 3a 21 |i="!MORPHDEMO":!|
000007b0 62 25 3d 2d 31 3a 62 25 21 34 3d 30 3a 62 25 21 |b%=-1:b%!4=0:b%!|
000007c0 31 32 3d 36 34 3a 62 25 21 38 3d 30 3a 62 25 21 |12=64:b%!8=0:b%!|
000007d0 31 36 3d 37 32 3a 62 25 21 32 30 3d 26 33 31 30 |16=72:b%!20=&310|
000007e0 32 3a 62 25 21 32 34 3d 57 69 3a 62 25 21 32 38 |2:b%!24=Wi:b%!28|
000007f0 3d 31 3a 62 25 21 33 32 3d a9 24 57 69 2b 31 3a |=1:b%!32=.$Wi+1:|
00000800 c8 99 26 34 30 30 43 32 2c 2c 62 25 20 b8 57 59 |..&400C2,,b% .WY|
00000810 25 3a 57 6a 3d 31 3a 57 6b 3d 31 3a 57 6c 3d 31 |%:Wj=1:Wk=1:Wl=1|
00000820 3a 57 6d 25 3d 31 3a f2 57 6e 3a f2 57 6f 3a 57 |:Wm%=1:.Wn:.Wo:W|
00000830 70 25 3d a3 3a e3 69 25 3d 30 20 b8 37 3a 55 75 |p%=.:.i%=0 .7:Uu|
00000840 25 21 28 34 2a 69 25 29 3d 55 73 25 2b 34 31 30 |%!(4*i%)=Us%+410|
00000850 30 2a 69 25 3a ed 3a 57 71 25 3d a4 69 28 57 72 |0*i%:.:Wq%=.i(Wr|
00000860 25 2c 33 31 29 0d 05 1e f8 57 73 25 3d 30 3a 55 |%,31)....Ws%=0:U|
00000870 6e 25 21 30 3d 2d 31 3a 56 64 25 3d a3 3a 57 74 |n%!0=-1:Vd%=.:Wt|
00000880 25 3d 32 3a f2 57 75 28 57 72 25 2c 31 30 2c 31 |%=2:.Wu(Wr%,10,1|
00000890 29 3a 57 76 25 3d 2d 31 3a 57 77 25 3d 2d 31 3a |):Wv%=-1:Ww%=-1:|
000008a0 57 78 25 3d 2d 31 3a 57 79 25 3d 2d 31 3a 56 68 |Wx%=-1:Wy%=-1:Vh|
000008b0 25 3d a3 3a 57 7a 25 3d a3 3a 58 55 25 3d 30 3a |%=.:Wz%=.:XU%=0:|
000008c0 58 56 25 3d 30 3a 58 57 25 3d a3 3a 58 58 25 3d |XV%=0:XW%=.:XX%=|
000008d0 a3 3a 58 59 25 3d a3 3a 58 5a 25 3d a3 3a 58 61 |.:XY%=.:XZ%=.:Xa|
000008e0 25 3d a3 3a 58 62 25 3d b9 3a 58 63 25 3d a4 69 |%=.:Xb%=.:Xc%=.i|
000008f0 28 58 64 25 2c 32 29 3a 58 65 25 3d a4 58 66 28 |(Xd%,2):Xe%=.Xf(|
00000900 58 64 25 2c 34 29 3a 58 67 25 3d a4 69 28 58 64 |Xd%,4):Xg%=.i(Xd|
00000910 25 2c 31 32 29 3a 58 68 25 3d a4 69 28 58 64 25 |%,12):Xh%=.i(Xd%|
00000920 2c 31 34 29 3a 58 69 25 3d a4 69 28 58 6a 25 2c |,14):Xi%=.i(Xj%,|
00000930 32 29 3a 58 6b 25 3d a4 69 28 58 6a 25 2c 31 33 |2):Xk%=.i(Xj%,13|
00000940 29 3a 58 6c 25 3d a4 69 28 58 6d 25 2c 31 29 3a |):Xl%=.i(Xm%,1):|
00000950 58 6e 25 3d a4 69 28 58 6d 25 2c 33 29 0d 05 f0 |Xn%=.i(Xm%,3)...|
00000960 ec 58 6f 25 3d a4 69 28 58 70 25 2c 31 29 3a 58 |.Xo%=.i(Xp%,1):X|
00000970 71 25 3d a4 69 28 57 72 25 2c 33 37 29 3a 58 72 |q%=.i(Wr%,37):Xr|
00000980 25 3d a4 69 28 57 72 25 2c 34 30 29 3a 58 73 25 |%=.i(Wr%,40):Xs%|
00000990 3d a4 69 28 58 74 25 2c 30 29 3a 58 75 25 3d a4 |=.i(Xt%,0):Xu%=.|
000009a0 69 28 58 74 25 2c 31 29 3a 58 76 25 3d a4 69 28 |i(Xt%,1):Xv%=.i(|
000009b0 58 77 25 2c 37 29 3a 58 78 25 3d a4 69 28 58 77 |Xw%,7):Xx%=.i(Xw|
000009c0 25 2c 38 29 3a 58 79 25 3d a4 69 28 58 77 25 2c |%,8):Xy%=.i(Xw%,|
000009d0 39 29 3a 58 7a 25 3d 31 30 3a 59 55 25 3d a4 69 |9):Xz%=10:YU%=.i|
000009e0 28 59 56 25 2c 31 29 3a 59 57 25 3d a4 69 28 59 |(YV%,1):YW%=.i(Y|
000009f0 56 25 2c 38 29 3a 59 58 25 3d a4 69 28 59 56 25 |V%,8):YX%=.i(YV%|
00000a00 2c 39 29 3a 59 59 25 3d a3 3a 59 5a 25 3d b9 3a |,9):YY%=.:YZ%=.:|
00000a10 f2 57 75 28 57 72 25 2c 34 35 2c 31 29 3a f2 57 |.Wu(Wr%,45,1):.W|
00000a20 75 28 58 6d 25 2c 35 2c 30 29 3a 56 63 25 3d a3 |u(Xm%,5,0):Vc%=.|
00000a30 3a 59 61 25 3d 2d 31 3a 59 62 25 3d a3 3a 59 63 |:Ya%=-1:Yb%=.:Yc|
00000a40 25 3d 30 3a 59 64 25 3d 30 0d 06 9a b2 55 70 25 |%=0:Yd%=0....Up%|
00000a50 28 29 3d 2d 31 3a 55 70 24 28 29 3d 22 22 3a 55 |()=-1:Up$()="":U|
00000a60 71 25 28 29 3d 2d 31 3a 56 66 25 3d a3 3a c8 99 |q%()=-1:Vf%=.:..|
00000a70 26 38 2c 32 35 35 2c 22 3c 4d 6f 72 70 68 44 65 |&8,255,"<MorphDe|
00000a80 6d 6f 24 44 69 72 3e 2e 52 65 73 6f 75 72 63 65 |mo$Dir>.Resource|
00000a90 73 2e 4d 6f 72 70 68 43 6f 64 65 22 2c 55 6c 25 |s.MorphCode",Ul%|
00000aa0 3a 59 65 3d 34 3a 59 66 3d 38 3a 59 67 3d 31 32 |:Ye=4:Yf=8:Yg=12|
00000ab0 3a 59 68 3d 31 36 3a 59 69 3d 32 30 3a 59 6a 3d |:Yh=16:Yi=20:Yj=|
00000ac0 32 38 3a 59 6b 3d 33 32 3a 59 6c 3d 33 36 3a 59 |28:Yk=32:Yl=36:Y|
00000ad0 6d 3d 34 30 3a 59 6e 3d 34 34 3a 59 6f 3d 34 38 |m=40:Yn=44:Yo=48|
00000ae0 3a 59 70 3d 35 32 3a 59 71 3d 35 36 3a 59 72 3d |:Yp=52:Yq=56:Yr=|
00000af0 36 30 3a f2 59 73 28 b9 29 3a e1 0d 07 80 2a dd |60:.Ys(.):....*.|
00000b00 f2 56 6b 28 77 25 29 3a 55 79 25 21 30 3d 77 25 |.Vk(w%):Uy%!0=w%|
00000b10 3a c8 99 26 34 30 30 43 36 2c 2c 55 79 25 3a c8 |:..&400C6,,Uy%:.|
00000b20 8e 77 25 20 ca 0d 07 9e 17 c9 56 6e 25 3a e7 59 |.w% ......Vn%:.Y|
00000b30 74 25 20 8c f2 56 6b 28 59 75 25 29 0d 07 a8 17 |t% ..Vk(Yu%)....|
00000b40 c9 59 76 25 3a f2 56 6b 28 57 72 25 29 3a 58 59 |.Yv%:.Vk(Wr%):XY|
00000b50 25 3d a3 0d 07 b2 1b c9 58 64 25 3a 59 77 25 3d |%=......Xd%:Yw%=|
00000b60 a3 3a f2 57 75 28 59 75 25 2c 36 2c 30 29 0d 07 |.:.Wu(Yu%,6,0)..|
00000b70 bc 1b c9 58 6a 25 3a 59 78 25 3d a3 3a f2 57 75 |...Xj%:Yx%=.:.Wu|
00000b80 28 59 75 25 2c 37 2c 30 29 0d 07 c6 0e c9 57 57 |(Yu%,7,0).....WW|
00000b90 25 3d 58 57 25 3d a3 0d 07 d0 0e c9 59 79 25 3a |%=XW%=......Yy%:|
00000ba0 58 58 25 3d a3 0d 07 da 07 cb 3a e1 0d 07 f8 2e |XX%=......:.....|
00000bb0 dd f2 56 6a 28 77 25 2c 59 7a 25 29 3a ea 5a 55 |..Vj(w%,Yz%):.ZU|
00000bc0 25 2c 5a 56 25 3a 62 25 21 30 3d 77 25 3a 5a 56 |%,ZV%:b%!0=w%:ZV|
00000bd0 25 3d b9 3a c8 8e 77 25 20 ca 0d 08 20 0f c9 56 |%=.:..w% ... ..V|
00000be0 6e 25 3a e7 59 74 25 20 8c 0d 08 2a 40 55 79 25 |n%:.Yt% ...*@Uy%|
00000bf0 21 30 3d 59 75 25 3a 55 79 25 21 34 3d 62 25 21 |!0=Yu%:Uy%!4=b%!|
00000c00 34 2d 31 33 36 3a 55 79 25 21 38 3d 62 25 21 31 |4-136:Uy%!8=b%!1|
00000c10 36 2d 31 30 30 30 3a e7 62 25 21 34 3c 31 33 36 |6-1000:.b%!4<136|
00000c20 20 8c 55 79 25 21 34 3d 30 0d 08 3e 5e 55 79 25 | .Uy%!4=0..>^Uy%|
00000c30 21 31 32 3d 55 79 25 21 34 2b 31 33 36 3a 55 79 |!12=Uy%!4+136:Uy|
00000c40 25 21 31 36 3d 62 25 21 31 36 3a 55 79 25 21 32 |%!16=b%!16:Uy%!2|
00000c50 30 3d 30 3a 55 79 25 21 32 34 3d 30 3a 55 79 25 |0=0:Uy%!24=0:Uy%|
00000c60 21 32 38 3d 62 25 21 32 38 3a e7 20 ac 59 7a 25 |!28=b%!28:. .Yz%|
00000c70 c8 99 26 34 30 30 43 42 2c 2c 55 79 25 3a 55 79 |..&400CB,,Uy%:Uy|
00000c80 25 21 32 38 3d 2d 31 0d 08 52 24 c8 99 26 34 30 |%!28=-1..R$..&40|
00000c90 30 43 35 2c 2c 55 79 25 3a e7 20 ac 59 7a 25 c8 |0C5,,Uy%:. .Yz%.|
00000ca0 99 26 34 30 30 43 42 2c 2c 62 25 0d 08 66 20 62 |.&400CB,,b%..f b|
00000cb0 25 21 32 38 3d 59 75 25 3a c8 99 26 34 30 30 43 |%!28=Yu%:..&400C|
00000cc0 35 2c 2c 62 25 3a 5a 56 25 3d a3 0d 08 7a 05 cd |5,,b%:ZV%=...z..|
00000cd0 0d 08 84 27 c9 59 76 25 3a 55 79 25 21 30 3d 57 |...'.Yv%:Uy%!0=W|
00000ce0 72 25 3a c8 99 26 34 30 30 43 42 2c 2c 55 79 25 |r%:..&400CB,,Uy%|
00000cf0 3a e7 59 7a 25 20 8c 0d 08 98 4e 55 79 25 21 34 |:.Yz% ....NUy%!4|
00000d00 3d 62 25 21 34 2b 31 36 3a 55 79 25 21 38 3d 62 |=b%!4+16:Uy%!8=b|
00000d10 25 21 38 2b 31 36 3a 55 79 25 21 31 32 3d 55 79 |%!8+16:Uy%!12=Uy|
00000d20 25 21 34 2b 38 30 30 3a 55 79 25 21 31 36 3d 55 |%!4+800:Uy%!16=U|
00000d30 79 25 21 38 2b 34 30 30 3a 55 79 25 21 32 38 3d |y%!8+400:Uy%!28=|
00000d40 62 25 21 32 38 0d 08 ac 0f cc 3a 55 79 25 21 32 |b%!28.....:Uy%!2|
00000d50 38 3d 2d 31 0d 08 c0 26 cd 3a c8 99 26 34 30 30 |8=-1...&.:..&400|
00000d60 43 35 2c 2c 55 79 25 3a e7 20 ac 59 7a 25 c8 99 |C5,,Uy%:. .Yz%..|
00000d70 26 34 30 30 43 42 2c 2c 62 25 0d 08 de 26 62 25 |&400CB,,b%...&b%|
00000d80 21 32 38 3d 57 72 25 3a c8 99 26 34 30 30 43 35 |!28=Wr%:..&400C5|
00000d90 2c 2c 62 25 3a 58 59 25 3d b9 3a 5a 56 25 3d a3 |,,b%:XY%=.:ZV%=.|
00000da0 0d 08 f2 1d c9 58 64 25 3a e7 20 ac 59 77 25 20 |.....Xd%:. .Yw% |
00000db0 8c f2 57 75 28 59 75 25 2c 36 2c 31 29 0d 08 fc |..Wu(Yu%,6,1)...|
00000dc0 09 59 77 25 3d b9 0d 09 06 1d c9 58 6a 25 3a e7 |.Yw%=......Xj%:.|
00000dd0 20 ac 59 78 25 20 8c f2 57 75 28 59 75 25 2c 37 | .Yx% ..Wu(Yu%,7|
00000de0 2c 31 29 0d 09 10 09 59 78 25 3d b9 0d 09 1a 0e |,1)....Yx%=.....|
00000df0 c9 57 57 25 3a 58 57 25 3d b9 0d 09 24 0e c9 59 |.WW%:XW%=...$..Y|
00000e00 79 25 3a 58 58 25 3d b9 0d 09 2e 0c cb 3a e7 5a |y%:XX%=......:.Z|
00000e10 56 25 20 8c 0d 09 42 1f e7 20 ac 59 7a 25 c8 99 |V% ...B.. .Yz%..|
00000e20 26 34 30 30 43 42 2c 2c 62 25 3a 62 25 21 32 38 |&400CB,,b%:b%!28|
00000e30 3d 2d 31 0d 09 4c 10 c8 99 26 34 30 30 43 35 2c |=-1..L...&400C5,|
00000e40 2c 62 25 0d 09 56 07 cd 3a e1 0d 09 74 22 dd f2 |,b%..V..:...t"..|
00000e50 5a 57 28 77 25 29 3a f2 56 6a 28 77 25 2c a3 29 |ZW(w%):.Vj(w%,.)|
00000e60 3a f2 56 6a 28 77 25 2c b9 29 3a e1 0d 09 88 42 |:.Vj(w%,.):....B|
00000e70 dd f2 5a 58 28 77 25 2c 78 25 2c 79 25 29 3a 62 |..ZX(w%,x%,y%):b|
00000e80 25 21 30 3d 30 3a 62 25 21 34 3d 30 3a 62 25 21 |%!0=0:b%!4=0:b%!|
00000e90 38 3d 78 25 3a 62 25 21 31 32 3d 79 25 3a c8 99 |8=x%:b%!12=y%:..|
00000ea0 26 34 30 30 44 37 2c 77 25 2c 62 25 3a e1 0d 09 |&400D7,w%,b%:...|
00000eb0 b0 2b dd f2 56 74 28 62 25 29 3a ea 5a 59 25 2c |.+..Vt(b%):.ZY%,|
00000ec0 73 24 2c 5a 5a 25 3a 5a 59 25 3d 62 25 21 38 3a |s$,ZZ%:ZY%=b%!8:|
00000ed0 c8 8e 62 25 21 31 36 20 ca 0d 09 d8 0c c9 30 3a |..b%!16 ......0:|
00000ee0 56 61 25 3d b9 0d 09 e2 10 c9 32 3a e7 57 62 25 |Va%=......2:.Wb%|
00000ef0 3d 30 20 8c e1 0d 09 ec 0b c8 8e 57 62 25 20 ca |=0 ........Wb% .|
00000f00 0d 09 f6 12 c9 32 35 3a f2 5a 61 28 62 25 2b 34 |.....25:.Za(b%+4|
00000f10 34 29 0d 0a 00 05 cb 0d 0a 0a 13 c9 33 3a e7 62 |4)..........3:.b|
00000f20 25 21 31 32 3c 3e 30 20 8c e1 0d 0a 14 17 c8 99 |%!12<>0 ........|
00000f30 26 34 30 30 43 46 2c 2c 55 79 25 3a c8 8e b9 20 |&400CF,,Uy%:... |
00000f40 ca 0d 0a 28 16 c9 62 25 21 34 30 3d 26 31 30 30 |...(..b%!40=&100|
00000f50 30 3a c8 8e b9 20 ca 0d 0a 32 16 c9 55 79 25 21 |0:... ...2..Uy%!|
00000f60 31 32 3d 2d 32 3a f2 5a 62 28 62 25 29 0d 0a 3c |12=-2:.Zb(b%)..<|
00000f70 33 c9 55 79 25 21 31 32 3d 58 6a 25 20 80 55 79 |3.Uy%!12=Xj% .Uy|
00000f80 25 21 31 36 3d 32 3a 24 58 69 25 3d a4 73 28 62 |%!16=2:$Xi%=.s(b|
00000f90 25 2b 34 34 29 3a f2 5a 63 28 58 6a 25 2c 32 29 |%+44):.Zc(Xj%,2)|
00000fa0 0d 0a 50 05 cb 0d 0a 5a 2d c9 62 25 21 34 30 3d |..P....Z-.b%!40=|
00000fb0 26 46 46 39 20 80 55 79 25 21 31 32 3d 58 77 25 |&FF9 .Uy%!12=Xw%|
00000fc0 3a f2 58 77 28 62 25 2b 34 34 2c 55 79 25 21 31 |:.Xw(b%+44,Uy%!1|
00000fd0 36 29 0d 0a 64 1f c9 62 25 21 34 30 3d 26 46 46 |6)..d..b%!40=&FF|
00000fe0 44 20 80 57 5a 25 20 80 55 79 25 21 31 32 3d 2d |D .WZ% .Uy%!12=-|
00000ff0 32 0d 0a 6e 20 c9 55 79 25 21 31 32 3d 57 57 25 |2..n .Uy%!12=WW%|
00001000 3a f2 5a 64 28 62 25 2b 34 34 2c 62 25 2b 34 30 |:.Zd(b%+44,b%+40|
00001010 29 0d 0a 78 05 cb 0d 0a 82 15 c9 26 34 30 30 43 |)..x.......&400C|
00001020 30 3a c8 8e 62 25 21 33 32 20 ca 0d 0a 8c 14 c9 |0:..b%!32 ......|
00001030 33 3a e7 62 25 21 33 36 3d 30 20 8c f2 5a 65 0d |3:.b%!36=0 ..Ze.|
00001040 0a 96 10 c9 32 3a c8 8e 62 25 21 33 36 20 ca 0d |....2:..b%!36 ..|
00001050 0a a0 15 c9 33 3a 24 58 6f 25 3d 22 41 52 4d 6f |....3:$Xo%="ARMo|
00001060 76 69 65 22 0d 0a aa 16 c9 34 3a 24 58 6f 25 3d |vie".....4:$Xo%=|
00001070 22 56 69 41 2d 66 69 6c 65 22 0d 0a b4 05 cb 0d |"ViA-file"......|
00001080 0a be 21 cb 3a c8 99 26 34 30 30 45 38 2c 2c 62 |..!.:..&400E8,,b|
00001090 25 21 32 30 2c 62 25 21 32 34 2c 62 25 21 32 38 |%!20,b%!24,b%!28|
000010a0 0d 0a d2 0f c9 26 34 30 30 43 31 3a f2 57 6e 0d |.....&400C1:.Wn.|
000010b0 0a dc 07 cb 3a e1 0d 0a fa 58 dd f2 5a 65 3a 24 |....:....X..Ze:$|
000010c0 59 55 25 3d c3 28 58 7a 25 29 3a 24 59 57 25 3d |YU%=.(Xz%):$YW%=|
000010d0 c3 28 31 2b a8 28 28 58 7a 25 2a 5a 66 25 2a 5a |.(1+.((Xz%*Zf%*Z|
000010e0 67 25 29 2f 31 30 32 34 29 29 3a 24 59 58 25 3d |g%)/1024)):$YX%=|
000010f0 c3 28 31 2b a8 28 28 33 2a 58 7a 25 2a 5a 66 25 |.(1+.((3*Xz%*Zf%|
00001100 2a 5a 67 25 29 2f 31 30 32 34 29 29 3a e1 0d 0b |*Zg%)/1024)):...|
00001110 36 92 dd f2 5a 68 28 67 25 29 3a ea 69 25 3a f2 |6...Zh(g%):.i%:.|
00001120 5a 69 28 57 57 25 2c 31 37 2c 37 2b 67 25 29 3a |Zi(WW%,17,7+g%):|
00001130 5a 6a 25 3d 67 25 3a 24 a4 69 28 57 57 25 2c 31 |Zj%=g%:$.i(WW%,1|
00001140 36 29 3d c3 67 25 3a f2 5a 63 28 57 57 25 2c 31 |6)=.g%:.Zc(WW%,1|
00001150 36 29 3a 24 a4 69 28 57 57 25 2c 31 38 29 3d 55 |6):$.i(WW%,18)=U|
00001160 72 24 28 67 25 29 3a f2 5a 63 28 57 57 25 2c 31 |r$(g%):.Zc(WW%,1|
00001170 38 29 3a e3 69 25 3d 30 20 b8 31 30 3a 55 72 25 |8):.i%=0 .10:Ur%|
00001180 28 30 2c 69 25 29 3d 55 72 25 28 67 25 2c 69 25 |(0,i%)=Ur%(g%,i%|
00001190 29 3a ed 3a f2 5a 63 28 57 57 25 2c 30 29 3a e1 |):.:.Zc(WW%,0):.|
000011a0 0d 0b 9a 50 dd f2 58 74 28 5a 6b 24 2c 5a 6c 24 |...P..Xt(Zk$,Zl$|
000011b0 2c 5a 6d 24 29 3a 24 a4 69 28 58 74 25 2c 30 29 |,Zm$):$.i(Xt%,0)|
000011c0 3d 5a 6b 24 3a 24 a4 69 28 58 74 25 2c 31 29 3d |=Zk$:$.i(Xt%,1)=|
000011d0 5a 6c 24 3a 24 a4 69 28 58 74 25 2c 32 29 3d 5a |Zl$:$.i(Xt%,2)=Z|
000011e0 6d 24 3a f2 5a 6e 28 58 74 25 29 3a ef 37 3a e1 |m$:.Zn(Xt%):.7:.|
000011f0 0d 0b d6 17 dd f2 5a 6f 3a c8 99 26 34 30 30 44 |......Zo:..&400D|
00001200 34 2c 2c 2d 31 3a e1 0d 0b ea 12 dd f2 56 5a 3a |4,,-1:.......VZ:|
00001210 e7 56 66 25 20 8c f2 5a 70 0d 0b fe 0d e7 57 70 |.Vf% ..Zp.....Wp|
00001220 25 20 8c f2 5a 71 0d 0c 08 18 f2 5a 72 28 30 29 |% ..Zq.....Zr(0)|
00001230 3a 21 62 25 3d 9f 3a e7 9f 3c 3e 31 20 8c 0d 0c |:!b%=.:..<>1 ...|
00001240 26 26 24 28 62 25 2b 34 29 3d f6 24 2b 22 20 28 |&&$(b%+4)=.$+" (|
00001250 45 72 72 6f 72 20 63 6f 64 65 20 22 2b c3 9e 2b |Error code "+..+|
00001260 22 29 2e 22 0d 0c 30 10 cc 3a 24 28 62 25 2b 34 |")."..0..:$(b%+4|
00001270 29 3d f6 24 0d 0c 44 32 cd 3a c8 99 26 34 30 30 |)=.$..D2.:..&400|
00001280 44 46 2c 62 25 2c 31 2c 22 4d 6f 72 70 68 65 75 |DF,b%,1,"Morpheu|
00001290 73 20 44 45 4d 4f 22 3a e7 a6 28 2d 39 30 29 20 |s DEMO":..(-90) |
000012a0 8c 56 61 25 3d b9 0d 0c 62 05 e1 0d 0c 76 46 dd |.Va%=...b....vF.|
000012b0 f2 5a 73 28 77 25 2c 69 25 2c 5a 74 25 29 3a 62 |.Zs(w%,i%,Zt%):b|
000012c0 25 21 30 3d 30 3a 62 25 21 34 3d 30 3a 62 25 21 |%!0=0:b%!4=0:b%!|
000012d0 38 3d 5a 74 25 3a 62 25 21 31 32 3d 77 25 3a 62 |8=Zt%:b%!12=w%:b|
000012e0 25 21 31 36 3d 69 25 3a f2 56 70 28 62 25 29 3a |%!16=i%:.Vp(b%):|
000012f0 e1 0d 0c a8 a6 dd f2 56 70 28 62 25 29 3a ea 77 |.......Vp(b%):.w|
00001300 25 2c 69 25 2c 5a 74 25 2c 5a 75 25 2c 5a 76 25 |%,i%,Zt%,Zu%,Zv%|
00001310 2c 5a 77 25 2c 78 25 2c 79 25 2c 5a 78 2c 5a 79 |,Zw%,x%,y%,Zx,Zy|
00001320 25 2c 66 25 2c 70 25 2c 5a 7a 25 2c 61 55 25 3a |%,f%,p%,Zz%,aU%:|
00001330 77 25 3d 62 25 21 31 32 3a 69 25 3d 62 25 21 31 |w%=b%!12:i%=b%!1|
00001340 36 3a 5a 74 25 3d 62 25 21 38 3a 78 25 3d 62 25 |6:Zt%=b%!8:x%=b%|
00001350 21 30 3a 79 25 3d 62 25 21 34 3a 5a 77 25 3d 28 |!0:y%=b%!4:Zw%=(|
00001360 5a 74 25 20 80 34 29 3c 3e 30 3a 5a 75 25 3d 28 |Zt% .4)<>0:Zu%=(|
00001370 5a 74 25 20 80 32 29 3c 3e 30 3a 5a 76 25 3d 28 |Zt% .2)<>0:Zv%=(|
00001380 5a 74 25 20 80 31 29 3c 3e 30 3a e7 5a 75 25 20 |Zt% .1)<>0:.Zu% |
00001390 8c f2 61 56 28 30 29 0d 0c da 1b e7 77 25 3c 3e |..aV(0).....w%<>|
000013a0 58 64 25 20 80 59 77 25 20 8c f2 56 6b 28 58 64 |Xd% .Yw% ..Vk(Xd|
000013b0 25 29 0d 0c e4 1b e7 77 25 3c 3e 58 6a 25 20 80 |%).....w%<>Xj% .|
000013c0 59 78 25 20 8c f2 56 6b 28 58 6a 25 29 0d 0c ee |Yx% ..Vk(Xj%)...|
000013d0 24 e7 77 25 3c 3e 57 72 25 20 80 77 25 3c 3e 59 |$.w%<>Wr% .w%<>Y|
000013e0 76 25 20 80 58 59 25 20 8c f2 56 6b 28 59 76 25 |v% .XY% ..Vk(Yv%|
000013f0 29 0d 0c f8 1b e7 77 25 3c 3e 57 57 25 20 80 58 |).....w%<>WW% .X|
00001400 57 25 20 8c f2 56 6b 28 57 57 25 29 0d 0d 02 1b |W% ..Vk(WW%)....|
00001410 e7 77 25 3c 3e 59 79 25 20 80 58 58 25 20 8c f2 |.w%<>Yy% .XX% ..|
00001420 56 6b 28 59 79 25 29 0d 0d 0c 0a c8 8e 77 25 20 |Vk(Yy%)......w% |
00001430 ca 0d 0d 16 0e c9 2d 32 3a e7 5a 75 25 20 8c 0d |......-2:.Zu% ..|
00001440 0d 20 32 f2 61 57 3a 61 58 25 3d 78 25 2d 38 30 |. 2.aW:aX%=x%-80|
00001450 3a 61 59 25 3d 32 32 38 3a c8 99 26 34 30 30 44 |:aY%=228:..&400D|
00001460 34 2c 2c 55 6f 25 28 31 29 2c 61 58 25 2c 61 59 |4,,Uo%(1),aX%,aY|
00001470 25 0d 0d 34 0c cd 3a e7 5a 77 25 20 8c 0d 0d 48 |%..4..:.Zw% ...H|
00001480 0a e7 57 5a 25 20 8c 0d 0d 52 1e f2 5a 57 28 56 |..WZ% ...R..ZW(V|
00001490 6e 25 29 3a f2 5a 57 28 56 6f 25 29 3a f2 5a 57 |n%):.ZW(Vo%):.ZW|
000014a0 28 61 5a 25 29 0d 0d 66 09 cc 3a f2 61 61 0d 0d |(aZ%)..f..:.aa..|
000014b0 7a 05 cd 0d 0d 84 1d cd 3a e7 5a 76 25 20 80 56 |z.......:.Zv% .V|
000014c0 66 25 20 8c f2 5a 6e 28 58 74 25 29 3a f2 61 62 |f% ..Zn(Xt%):.ab|
000014d0 0d 0d 98 15 c9 59 75 25 3a e7 5a 75 25 20 84 56 |.....Yu%:.Zu% .V|
000014e0 66 25 20 8c e1 0d 0d a2 0a c8 8e 69 25 20 ca 0d |f% ........i% ..|
000014f0 0d ac 30 c9 31 3a 61 63 25 3d ac 61 63 25 3a f2 |..0.1:ac%=.ac%:.|
00001500 57 75 28 59 75 25 2c 31 2c 61 63 25 29 3a f2 61 |Wu(Yu%,1,ac%):.a|
00001510 64 28 56 6e 25 29 3a f2 61 64 28 56 6f 25 29 0d |d(Vn%):.ad(Vo%).|
00001520 0d c0 18 c9 30 2c 32 2c 33 2c 34 2c 35 3a f2 61 |....0,2,3,4,5:.a|
00001530 56 28 69 25 2b 31 29 0d 0d ca 16 c9 36 3a f2 61 |V(i%+1).....6:.a|
00001540 56 28 30 29 3a f2 5a 57 28 58 64 25 29 0d 0d d4 |V(0):.ZW(Xd%)...|
00001550 16 c9 37 3a f2 61 56 28 30 29 3a f2 5a 57 28 58 |..7:.aV(0):.ZW(X|
00001560 6a 25 29 0d 0d de 05 cb 0d 0d e8 0f c9 56 6e 25 |j%)..........Vn%|
00001570 3a e7 5a 75 25 20 8c 0d 0d f2 3a 61 58 25 3d 78 |:.Zu% ....:aX%=x|
00001580 25 2d 36 30 3a 61 59 25 3d 79 25 3a f2 61 65 28 |%-60:aY%=y%:.ae(|
00001590 31 29 3a f2 59 69 3a c8 99 26 34 30 30 44 34 2c |1):.Yi:..&400D4,|
000015a0 2c 55 6f 25 28 32 29 2c 61 58 25 2c 61 59 25 3a |,Uo%(2),aX%,aY%:|
000015b0 e1 0d 0e 1a 0d cd 3a e7 56 66 25 20 8c e1 0d 0e |......:.Vf% ....|
000015c0 2e 0b c8 8e 59 64 25 20 ca 0d 0e 38 14 c9 31 3a |....Yd% ...8..1:|
000015d0 f2 61 66 28 78 25 2c 79 25 2c 31 30 29 0d 0e 42 |.af(x%,y%,10)..B|
000015e0 12 c9 33 3a e7 5a 76 25 20 80 61 67 25 20 8c 0d |..3:.Zv% .ag% ..|
000015f0 0e 4c 14 f2 61 68 28 30 2c 31 2c 33 2c 78 25 2c |.L..ah(0,1,3,x%,|
00001600 79 25 29 0d 0e 56 16 cc 3a f2 61 68 28 30 2c 30 |y%)..V..:.ah(0,0|
00001610 2c 32 2c 78 25 2c 79 25 29 0d 0e 6a 05 cd 0d 0e |,2,x%,y%)..j....|
00001620 74 18 c9 34 3a f2 61 69 28 78 25 2c 79 25 2c 5a |t..4:.ai(x%,y%,Z|
00001630 77 25 2c 77 25 29 0d 0e 7e 18 c9 35 3a f2 61 6a |w%,w%)..~..5:.aj|
00001640 28 78 25 2c 79 25 2c 5a 77 25 2c 77 25 29 0d 0e |(x%,y%,Zw%,w%)..|
00001650 88 18 c9 36 3a f2 61 6b 28 78 25 2c 79 25 2c 77 |...6:.ak(x%,y%,w|
00001660 25 2c 5a 74 25 29 0d 0e 92 13 c9 37 3a f2 61 66 |%,Zt%).....7:.af|
00001670 28 78 25 2c 79 25 2c 37 29 0d 0e 9c 05 cb 0d 0e |(x%,y%,7).......|
00001680 a6 0f c9 56 6f 25 3a e7 5a 75 25 20 8c 0d 0e b0 |...Vo%:.Zu% ....|
00001690 3a 61 58 25 3d 78 25 2d 36 30 3a 61 59 25 3d 79 |:aX%=x%-60:aY%=y|
000016a0 25 3a f2 61 65 28 32 29 3a f2 59 69 3a c8 99 26 |%:.ae(2):.Yi:..&|
000016b0 34 30 30 44 34 2c 2c 55 6f 25 28 32 29 2c 61 58 |400D4,,Uo%(2),aX|
000016c0 25 2c 61 59 25 3a e1 0d 0e d8 0d cd 3a e7 56 66 |%,aY%:......:.Vf|
000016d0 25 20 8c e1 0d 0e ec 0b c8 8e 59 64 25 20 ca 0d |% ........Yd% ..|
000016e0 0e f6 14 c9 31 3a f2 61 66 28 78 25 2c 79 25 2c |....1:.af(x%,y%,|
000016f0 31 31 29 0d 0f 00 12 c9 33 3a e7 5a 76 25 20 80 |11).....3:.Zv% .|
00001700 61 67 25 20 8c 0d 0f 0a 14 f2 61 68 28 31 2c 31 |ag% ......ah(1,1|
00001710 2c 35 2c 78 25 2c 79 25 29 0d 0f 14 16 cc 3a f2 |,5,x%,y%).....:.|
00001720 61 68 28 31 2c 30 2c 34 2c 78 25 2c 79 25 29 0d |ah(1,0,4,x%,y%).|
00001730 0f 28 05 cd 0d 0f 32 18 c9 34 3a f2 61 69 28 78 |.(....2..4:.ai(x|
00001740 25 2c 79 25 2c 5a 77 25 2c 77 25 29 0d 0f 3c 18 |%,y%,Zw%,w%)..<.|
00001750 c9 35 3a f2 61 6a 28 78 25 2c 79 25 2c 5a 77 25 |.5:.aj(x%,y%,Zw%|
00001760 2c 77 25 29 0d 0f 46 18 c9 36 3a f2 61 6b 28 78 |,w%)..F..6:.ak(x|
00001770 25 2c 79 25 2c 77 25 2c 5a 74 25 29 0d 0f 50 13 |%,y%,w%,Zt%)..P.|
00001780 c9 37 3a f2 61 66 28 78 25 2c 79 25 2c 38 29 0d |.7:.af(x%,y%,8).|
00001790 0f 5a 05 cb 0d 0f 64 0f c9 61 5a 25 3a e7 5a 75 |.Z....d..aZ%:.Zu|
000017a0 25 20 8c 0d 0f 6e 34 61 58 25 3d 78 25 2d 36 30 |% ...n4aX%=x%-60|
000017b0 3a 61 59 25 3d 79 25 3a f2 61 65 28 33 29 3a c8 |:aY%=y%:.ae(3):.|
000017c0 99 26 34 30 30 44 34 2c 2c 55 6f 25 28 32 29 2c |.&400D4,,Uo%(2),|
000017d0 61 58 25 2c 61 59 25 0d 0f 82 05 cd 0d 0f 8c 18 |aX%,aY%.........|
000017e0 c9 58 74 25 3a e7 69 25 3d 34 20 8c f2 56 6b 28 |.Xt%:.i%=4 ..Vk(|
000017f0 58 74 25 29 0d 0f 96 26 c9 56 6c 25 3a e7 69 25 |Xt%)...&.Vl%:.i%|
00001800 3d 31 32 20 80 5a 77 25 20 80 57 7a 25 20 8c f2 |=12 .Zw% .Wz% ..|
00001810 61 66 28 30 2c 30 2c 31 35 29 0d 0f a0 10 c9 57 |af(0,0,15).....W|
00001820 68 25 3a e7 5a 75 25 20 8c e1 0d 0f aa 0a c8 8e |h%:.Zu% ........|
00001830 69 25 20 ca 0d 0f b4 2b c9 32 3a f2 61 6c 28 77 |i% ....+.2:.al(w|
00001840 25 2c 30 2c 57 67 25 2c 31 2c 31 30 2c 39 39 39 |%,0,Wg%,1,10,999|
00001850 2c 30 2c 34 29 3a f2 61 6d 28 77 25 2c 30 29 0d |,0,4):.am(w%,0).|
00001860 0f be 2c c9 33 3a f2 61 6c 28 77 25 2c 30 2c 57 |..,.3:.al(w%,0,W|
00001870 67 25 2c 2d 31 2c 31 30 2c 39 39 39 2c 30 2c 34 |g%,-1,10,999,0,4|
00001880 29 3a f2 61 6d 28 77 25 2c 30 29 0d 0f c8 2d c9 |):.am(w%,0)...-.|
00001890 35 2c 36 2c 37 2c 38 3a 5a 78 25 3d 35 30 2a 28 |5,6,7,8:Zx%=50*(|
000018a0 32 5e 28 69 25 2d 35 29 29 3a e7 69 25 3d 38 20 |2^(i%-5)):.i%=8 |
000018b0 8c 5a 78 25 3d 35 30 30 0d 0f d2 24 24 57 67 25 |.Zx%=500...$$Wg%|
000018c0 3d c3 28 5a 78 25 29 3a f2 5a 63 28 57 68 25 2c |=.(Zx%):.Zc(Wh%,|
000018d0 30 29 3a f2 61 6d 28 77 25 2c 30 29 0d 0f dc 14 |0):.am(w%,0)....|
000018e0 c9 39 3a f2 61 6e 3a e7 5a 77 25 20 8c f2 5a 6f |.9:.an:.Zw% ..Zo|
000018f0 0d 0f e6 0b c9 31 30 3a f2 5a 6f 0d 0f f0 05 cb |.....10:.Zo.....|
00001900 0d 0f fa 18 c9 57 57 25 3a e7 5a 75 25 20 80 69 |.....WW%:.Zu% .i|
00001910 25 3c 3e 31 37 20 8c e1 0d 10 04 0a c8 8e 69 25 |%<>17 ........i%|
00001920 20 ca 0d 10 0e 78 c9 32 32 3a 62 25 21 30 3d 77 | ....x.22:b%!0=w|
00001930 25 3a c8 99 26 34 30 30 43 42 2c 2c 62 25 3a 78 |%:..&400CB,,b%:x|
00001940 25 2d 3d 62 25 21 34 2d 62 25 21 32 30 2b 33 30 |%-=b%!4-b%!20+30|
00001950 30 3a 79 25 2d 3d 62 25 21 31 36 2d 62 25 21 32 |0:y%-=b%!16-b%!2|
00001960 34 2b 36 38 3a 66 25 3d 28 78 25 2b 36 31 29 2f |4+68:f%=(x%+61)/|
00001970 31 30 32 2e 34 3a 55 72 25 28 30 2c 66 25 29 3d |102.4:Ur%(0,f%)=|
00001980 79 25 3a 78 25 3d 33 30 30 2b 31 30 32 2e 34 2a |y%:x%=300+102.4*|
00001990 66 25 3a e7 66 25 3d 30 20 8c 0d 10 4a 1e c8 99 |f%:.f%=0 ...J...|
000019a0 26 34 30 30 44 31 2c 77 25 2c 33 30 30 2c 37 32 |&400D1,w%,300,72|
000019b0 2c 34 30 33 2c 35 38 34 0d 10 54 26 cc 3a c8 99 |,403,584..T&.:..|
000019c0 26 34 30 30 44 31 2c 77 25 2c 78 25 2d 31 30 33 |&400D1,w%,x%-103|
000019d0 2c 37 32 2c 78 25 2b 31 30 33 2c 35 38 34 0d 10 |,72,x%+103,584..|
000019e0 68 05 cd 0d 10 72 36 c9 31 37 3a 61 58 25 3d 78 |h....r6.17:aX%=x|
000019f0 25 2d 36 30 3a 61 59 25 3d 79 25 3a f2 61 6f 3a |%-60:aY%=y%:.ao:|
00001a00 c8 99 26 34 30 30 44 34 2c 2c 55 6f 25 28 31 31 |..&400D4,,Uo%(11|
00001a10 29 2c 61 58 25 2c 61 59 25 0d 10 86 62 c9 31 39 |),aX%,aY%...b.19|
00001a20 3a 55 72 24 28 30 29 3d 22 47 72 6f 75 70 20 23 |:Ur$(0)="Group #|
00001a30 22 2b c3 5a 6a 25 3a 24 a4 69 28 77 25 2c 31 38 |"+.Zj%:$.i(w%,18|
00001a40 29 3d 55 72 24 28 30 29 3a e3 66 25 3d 30 20 b8 |)=Ur$(0):.f%=0 .|
00001a50 31 30 3a 55 72 25 28 30 2c 66 25 29 3d 35 30 2e |10:Ur%(0,f%)=50.|
00001a60 38 2a 66 25 3a ed 3a f2 5a 63 28 77 25 2c 30 29 |8*f%:.:.Zc(w%,0)|
00001a70 3a f2 5a 63 28 77 25 2c 31 38 29 0d 10 ae 6e c9 |:.Zc(w%,18)...n.|
00001a80 32 30 3a e3 66 25 3d 30 20 b8 31 30 3a 55 72 25 |20:.f%=0 .10:Ur%|
00001a90 28 30 2c 66 25 29 3d 55 72 25 28 5a 6a 25 2c 66 |(0,f%)=Ur%(Zj%,f|
00001aa0 25 29 3a ed 3a 55 72 24 28 30 29 3d 55 72 24 28 |%):.:Ur$(0)=Ur$(|
00001ab0 5a 6a 25 29 3a 24 a4 69 28 77 25 2c 31 38 29 3d |Zj%):$.i(w%,18)=|
00001ac0 55 72 24 28 30 29 3a f2 5a 63 28 77 25 2c 30 29 |Ur$(0):.Zc(w%,0)|
00001ad0 3a f2 5a 63 28 77 25 2c 31 38 29 3a e7 5a 77 25 |:.Zc(w%,18):.Zw%|
00001ae0 20 8c f2 56 6b 28 77 25 29 0d 10 e0 59 c9 32 31 | ..Vk(w%)...Y.21|
00001af0 3a e3 66 25 3d 30 20 b8 31 30 3a 55 72 25 28 5a |:.f%=0 .10:Ur%(Z|
00001b00 6a 25 2c 66 25 29 3d 55 72 25 28 30 2c 66 25 29 |j%,f%)=Ur%(0,f%)|
00001b10 3a ed 3a 55 72 24 28 5a 6a 25 29 3d a4 73 28 a4 |:.:Ur$(Zj%)=.s(.|
00001b20 69 28 57 57 25 2c 31 38 29 29 3a f2 61 70 28 5a |i(WW%,18)):.ap(Z|
00001b30 6a 25 29 3a e7 5a 77 25 20 8c f2 56 6b 28 57 57 |j%):.Zw% ..Vk(WW|
00001b40 25 29 0d 11 08 05 cb 0d 11 12 22 c9 57 72 25 3a |%)........".Wr%:|
00001b50 e7 5a 75 25 20 80 28 69 25 3c 3e 33 31 20 80 69 |.Zu% .(i%<>31 .i|
00001b60 25 3c 3e 33 33 29 20 8c e1 0d 11 1c 0a c8 8e 69 |%<>33) ........i|
00001b70 25 20 ca 0d 11 26 1e c9 32 3a 5a 72 25 3d ac 5a |% ...&..2:Zr%=.Z|
00001b80 72 25 3a f2 57 75 28 77 25 2c 69 25 2c 5a 72 25 |r%:.Wu(w%,i%,Zr%|
00001b90 29 0d 11 30 25 c9 33 3a 59 74 25 3d ac 59 74 25 |)..0%.3:Yt%=.Yt%|
00001ba0 3a f2 57 75 28 77 25 2c 69 25 2c 59 74 25 29 3a |:.Wu(w%,i%,Yt%):|
00001bb0 e7 57 5a 25 20 8c 0d 11 44 1b e7 59 74 25 20 8c |.WZ% ...D..Yt% .|
00001bc0 f2 5a 57 28 56 6e 25 29 8b f2 56 6b 28 59 75 25 |.ZW(Vn%)..Vk(Yu%|
00001bd0 29 0d 11 4e 05 cd 0d 11 58 2c c9 34 3a 61 71 25 |)..N....X,.4:aq%|
00001be0 3d ac 61 71 25 3a f2 57 75 28 77 25 2c 69 25 2c |=.aq%:.Wu(w%,i%,|
00001bf0 61 71 25 29 3a f2 61 72 28 77 25 2c 32 2c 61 71 |aq%):.ar(w%,2,aq|
00001c00 25 29 0d 11 6c 27 c9 38 2c 39 2c 31 30 3a 57 74 |%)..l'.8,9,10:Wt|
00001c10 25 3d 69 25 2d 38 3a e7 5a 76 25 20 8c f2 57 75 |%=i%-8:.Zv% ..Wu|
00001c20 28 77 25 2c 69 25 2c 31 29 0d 11 76 27 c9 31 36 |(w%,i%,1)..v'.16|
00001c30 3a 61 73 25 3d 61 73 25 20 80 20 ac 31 3a e7 5a |:as%=as% . .1:.Z|
00001c40 76 25 20 8c f2 57 75 28 77 25 2c 69 25 2c 31 29 |v% ..Wu(w%,i%,1)|
00001c50 0d 11 80 25 c9 31 37 3a 61 73 25 3d 61 73 25 20 |...%.17:as%=as% |
00001c60 84 31 3a e7 5a 76 25 20 8c f2 57 75 28 77 25 2c |.1:.Zv% ..Wu(w%,|
00001c70 69 25 2c 31 29 0d 11 8a 25 c9 31 39 3a 61 73 25 |i%,1)...%.19:as%|
00001c80 3d 61 73 25 20 84 32 3a e7 5a 76 25 20 8c f2 57 |=as% .2:.Zv% ..W|
00001c90 75 28 77 25 2c 69 25 2c 31 29 0d 11 94 27 c9 32 |u(w%,i%,1)...'.2|
00001ca0 30 3a 61 73 25 3d 61 73 25 20 80 20 ac 32 3a e7 |0:as%=as% . .2:.|
00001cb0 5a 76 25 20 8c f2 57 75 28 77 25 2c 69 25 2c 31 |Zv% ..Wu(w%,i%,1|
00001cc0 29 0d 11 9e 27 c9 32 33 3a 61 73 25 3d 61 73 25 |)...'.23:as%=as%|
00001cd0 20 80 20 ac 34 3a e7 5a 76 25 20 8c f2 57 75 28 | . .4:.Zv% ..Wu(|
00001ce0 77 25 2c 69 25 2c 31 29 0d 11 a8 25 c9 32 34 3a |w%,i%,1)...%.24:|
00001cf0 61 73 25 3d 61 73 25 20 84 34 3a e7 5a 76 25 20 |as%=as% .4:.Zv% |
00001d00 8c f2 57 75 28 77 25 2c 69 25 2c 31 29 0d 11 b2 |..Wu(w%,i%,1)...|
00001d10 27 c9 32 36 3a 61 73 25 3d 61 73 25 20 80 20 ac |'.26:as%=as% . .|
00001d20 38 3a e7 5a 76 25 20 8c f2 57 75 28 77 25 2c 69 |8:.Zv% ..Wu(w%,i|
00001d30 25 2c 31 29 0d 11 bc 25 c9 32 35 3a 61 73 25 3d |%,1)...%.25:as%=|
00001d40 61 73 25 20 84 38 3a e7 5a 76 25 20 8c f2 57 75 |as% .8:.Zv% ..Wu|
00001d50 28 77 25 2c 69 25 2c 31 29 0d 11 c6 41 c9 32 39 |(w%,i%,1)...A.29|
00001d60 3a 61 74 25 3d ac 61 74 25 3a f2 57 75 28 77 25 |:at%=.at%:.Wu(w%|
00001d70 2c 69 25 2c 61 74 25 29 3a f2 61 64 28 56 6e 25 |,i%,at%):.ad(Vn%|
00001d80 29 3a f2 61 64 28 56 6f 25 29 3a f2 61 72 28 77 |):.ad(Vo%):.ar(w|
00001d90 25 2c 34 32 2c ac 61 74 25 29 0d 11 e4 35 c9 33 |%,42,.at%)...5.3|
00001da0 31 3a 61 58 25 3d 78 25 2d 38 30 3a 61 59 25 3d |1:aX%=x%-80:aY%=|
00001db0 79 25 3a f2 61 75 3a c8 99 26 34 30 30 44 34 2c |y%:.au:..&400D4,|
00001dc0 2c 55 6f 25 28 36 29 2c 61 58 25 2c 61 59 25 0d |,Uo%(6),aX%,aY%.|
00001dd0 11 f8 35 c9 33 33 3a 61 58 25 3d 78 25 2d 38 30 |..5.33:aX%=x%-80|
00001de0 3a 61 59 25 3d 79 25 3a f2 61 75 3a c8 99 26 34 |:aY%=y%:.au:..&4|
00001df0 30 30 44 34 2c 2c 55 6f 25 28 36 29 2c 61 58 25 |00D4,,Uo%(6),aX%|
00001e00 2c 61 59 25 0d 12 0c 1f c9 33 32 3a 61 67 25 3d |,aY%.....32:ag%=|
00001e10 ac 61 67 25 3a f2 57 75 28 77 25 2c 69 25 2c 61 |.ag%:.Wu(w%,i%,a|
00001e20 67 25 29 0d 12 16 44 c9 33 36 3a 61 76 25 3d ac |g%)...D.36:av%=.|
00001e30 61 76 25 3a f2 57 75 28 77 25 2c 69 25 2c 61 76 |av%:.Wu(w%,i%,av|
00001e40 25 29 3a f2 61 72 28 77 25 2c 33 37 2c ac 61 76 |%):.ar(w%,37,.av|
00001e50 25 29 3a e7 61 76 25 20 8c f2 61 6d 28 77 25 2c |%):.av% ..am(w%,|
00001e60 33 37 29 8b f2 61 77 0d 12 34 31 c9 34 32 3a 61 |37)..aw..41.42:a|
00001e70 78 25 3d ac 61 78 25 3a f2 57 75 28 77 25 2c 69 |x%=.ax%:.Wu(w%,i|
00001e80 25 2c 61 78 25 29 3a f2 61 64 28 56 6e 25 29 3a |%,ax%):.ad(Vn%):|
00001e90 f2 61 64 28 56 6f 25 29 0d 12 48 1f c9 34 34 3a |.ad(Vo%)..H..44:|
00001ea0 59 59 25 3d ac 59 59 25 3a f2 57 75 28 77 25 2c |YY%=.YY%:.Wu(w%,|
00001eb0 69 25 2c 59 59 25 29 0d 12 52 1f c9 34 35 3a 59 |i%,YY%)..R..45:Y|
00001ec0 5a 25 3d ac 59 5a 25 3a f2 57 75 28 77 25 2c 69 |Z%=.YZ%:.Wu(w%,i|
00001ed0 25 2c 59 5a 25 29 0d 12 5c 05 cb 0d 12 66 10 c9 |%,YZ%)..\....f..|
00001ee0 59 76 25 3a e7 5a 75 25 20 8c e1 0d 12 70 0a c8 |Yv%:.Zu% ....p..|
00001ef0 8e 69 25 20 ca 0d 12 7a 0e c9 30 3a f2 56 6b 28 |.i% ...z..0:.Vk(|
00001f00 77 25 29 0d 12 84 05 cb 0d 12 8e 18 c9 58 64 25 |w%)..........Xd%|
00001f10 3a e7 5a 75 25 20 80 69 25 3c 3e 31 38 20 8c e1 |:.Zu% .i%<>18 ..|
00001f20 0d 12 98 0a c8 8e 69 25 20 ca 0d 12 a2 26 c9 36 |......i% ....&.6|
00001f30 2c 37 2c 38 3a 61 79 25 3d 69 25 2d 36 3a e7 5a |,7,8:ay%=i%-6:.Z|
00001f40 76 25 20 8c f2 57 75 28 77 25 2c 69 25 2c 31 29 |v% ..Wu(w%,i%,1)|
00001f50 0d 12 ac 0c e7 61 79 25 3d 32 20 8c 0d 12 b6 22 |.....ay%=2 ...."|
00001f60 24 58 65 25 3d 22 53 66 69 6c 65 5f 36 39 30 3b |$Xe%="Sfile_690;|
00001f70 50 70 74 72 5f 68 61 6e 64 2c 36 2c 36 22 0d 12 |Pptr_hand,6,6"..|
00001f80 c0 24 cc 3a 24 58 65 25 3d 22 53 66 69 6c 65 5f |.$.:$Xe%="Sfile_|
00001f90 66 66 39 3b 50 70 74 72 5f 68 61 6e 64 2c 36 2c |ff9;Pptr_hand,6,|
00001fa0 36 22 0d 12 d4 27 cd 3a f2 5a 63 28 77 25 2c 34 |6"...'.:.Zc(w%,4|
00001fb0 29 3a f2 61 7a 28 61 79 25 2c 58 64 25 2c 31 38 |):.az(ay%,Xd%,18|
00001fc0 29 3a 62 55 25 3d 61 79 25 0d 12 f2 29 c9 31 31 |):bU%=ay%...).11|
00001fd0 2c 31 33 3a 62 56 25 3d 28 69 25 3d 31 31 29 3a |,13:bV%=(i%=11):|
00001fe0 e7 5a 76 25 20 8c f2 57 75 28 77 25 2c 69 25 2c |.Zv% ..Wu(w%,i%,|
00001ff0 31 29 0d 12 fc 2f f2 61 72 28 77 25 2c 69 25 2b |1).../.ar(w%,i%+|
00002000 31 2c 30 29 3a f2 61 72 28 77 25 2c 32 35 2d 69 |1,0):.ar(w%,25-i|
00002010 25 2c 31 29 3a f2 61 6d 28 77 25 2c 69 25 2b 31 |%,1):.am(w%,i%+1|
00002020 29 0d 13 10 10 c9 31 35 3a f2 56 6b 28 58 64 25 |).....15:.Vk(Xd%|
00002030 29 0d 13 1a 1c c9 31 36 3a 66 25 3d 61 79 25 3a |).....16:f%=ay%:|
00002040 e7 66 25 3d 33 20 8c 66 25 3d 62 55 25 0d 13 2e |.f%=3 .f%=bU%...|
00002050 10 e7 66 25 3e 32 20 8c 66 25 2b 3d 35 0d 13 38 |..f%>2 .f%+=5..8|
00002060 0a e7 62 56 25 20 8c 0d 13 42 24 f2 62 57 28 b9 |..bV% ...B$.bW(.|
00002070 2c 30 2c 66 25 2c bb 28 a4 73 28 58 67 25 29 29 |,0,f%,.(.s(Xg%))|
00002080 2c a4 73 28 58 63 25 29 2c 32 29 0d 13 4c 26 cc |,.s(Xc%),2)..L&.|
00002090 3a f2 62 57 28 a3 2c 30 2c 66 25 2c bb 28 a4 73 |:.bW(.,0,f%,.(.s|
000020a0 28 58 68 25 29 29 2c a4 73 28 58 63 25 29 2c 32 |(Xh%)),.s(Xc%),2|
000020b0 29 0d 13 60 0e cd 3a f2 56 6b 28 59 76 25 29 0d |)..`..:.Vk(Yv%).|
000020c0 13 74 20 c9 31 37 3a 61 79 25 3d 33 3a e7 5a 76 |.t .17:ay%=3:.Zv|
000020d0 25 20 8c f2 57 75 28 77 25 2c 69 25 2c 31 29 0d |% ..Wu(w%,i%,1).|
000020e0 13 7e 0b c8 8e 62 55 25 20 ca 0d 13 88 29 c9 30 |.~...bU% ....).0|
000020f0 2c 31 2c 33 3a 24 58 65 25 3d 22 53 66 69 6c 65 |,1,3:$Xe%="Sfile|
00002100 5f 66 66 39 3b 50 70 74 72 5f 68 61 6e 64 2c 36 |_ff9;Pptr_hand,6|
00002110 2c 36 22 0d 13 92 25 c9 32 3a 24 58 65 25 3d 22 |,6"...%.2:$Xe%="|
00002120 53 66 69 6c 65 5f 36 39 30 3b 50 70 74 72 5f 68 |Sfile_690;Pptr_h|
00002130 61 6e 64 2c 36 2c 36 22 0d 13 9c 29 c9 34 2c 35 |and,6,6"...).4,5|
00002140 2c 36 3a 24 58 65 25 3d 22 53 66 69 6c 65 5f 66 |,6:$Xe%="Sfile_f|
00002150 66 64 3b 50 70 74 72 5f 68 61 6e 64 2c 36 2c 36 |fd;Pptr_hand,6,6|
00002160 22 0d 13 a6 0f cb 3a f2 5a 63 28 77 25 2c 34 29 |".....:.Zc(w%,4)|
00002170 0d 13 ba 39 c9 31 38 3a 61 58 25 3d 78 25 2d 38 |...9.18:aX%=x%-8|
00002180 30 3a 61 59 25 3d 79 25 3a f2 62 58 28 34 29 3a |0:aY%=y%:.bX(4):|
00002190 c8 99 26 34 30 30 44 34 2c 2c 55 6f 25 28 31 36 |..&400D4,,Uo%(16|
000021a0 29 2c 61 58 25 2c 61 59 25 0d 13 ce 05 cb 0d 13 |),aX%,aY%.......|
000021b0 d8 18 c9 58 6a 25 3a e7 5a 75 25 20 80 69 25 3c |...Xj%:.Zu% .i%<|
000021c0 3e 31 37 20 8c e1 0d 13 e2 0a c8 8e 69 25 20 ca |>17 ........i% .|
000021d0 0d 13 ec 26 c9 36 2c 37 2c 38 3a 62 59 25 3d 69 |...&.6,7,8:bY%=i|
000021e0 25 2d 36 3a e7 5a 76 25 20 8c f2 57 75 28 77 25 |%-6:.Zv% ..Wu(w%|
000021f0 2c 69 25 2c 31 29 0d 13 f6 1b f2 61 7a 28 62 59 |,i%,1).....az(bY|
00002200 25 2c 58 6a 25 2c 31 37 29 3a 62 5a 25 3d 62 59 |%,Xj%,17):bZ%=bY|
00002210 25 0d 14 00 20 c9 31 36 3a 62 59 25 3d 33 3a e7 |%... .16:bY%=3:.|
00002220 5a 76 25 20 8c f2 57 75 28 77 25 2c 69 25 2c 31 |Zv% ..Wu(w%,i%,1|
00002230 29 0d 14 0a 29 c9 31 31 2c 31 32 3a 62 61 25 3d |)...).11,12:ba%=|
00002240 28 69 25 3d 31 32 29 3a e7 5a 76 25 20 8c f2 57 |(i%=12):.Zv% ..W|
00002250 75 28 77 25 2c 69 25 2c 31 29 0d 14 14 29 f2 61 |u(w%,i%,1)...).a|
00002260 72 28 77 25 2c 31 33 2c 62 61 25 29 3a e7 69 25 |r(w%,13,ba%):.i%|
00002270 3d 31 32 20 8c f2 61 77 8b f2 61 6d 28 77 25 2c |=12 ..aw..am(w%,|
00002280 31 33 29 0d 14 28 0f c9 31 35 3a f2 56 6b 28 77 |13)..(..15:.Vk(w|
00002290 25 29 0d 14 32 39 c9 31 37 3a 61 58 25 3d 78 25 |%)..29.17:aX%=x%|
000022a0 2d 38 30 3a 61 59 25 3d 79 25 3a f2 62 58 28 35 |-80:aY%=y%:.bX(5|
000022b0 29 3a c8 99 26 34 30 30 44 34 2c 2c 55 6f 25 28 |):..&400D4,,Uo%(|
000022c0 31 36 29 2c 61 58 25 2c 61 59 25 0d 14 46 05 cb |16),aX%,aY%..F..|
000022d0 0d 14 50 10 c9 59 56 25 3a e7 5a 75 25 20 8c e1 |..P..YV%:.Zu% ..|
000022e0 0d 14 5a 0a c8 8e 69 25 20 ca 0d 14 64 87 c9 32 |..Z...i% ...d..2|
000022f0 2c 33 3a f2 61 6c 28 77 25 2c 31 2c 59 55 25 2c |,3:.al(w%,1,YU%,|
00002300 35 2d 32 2a 69 25 2c 32 2c 36 34 2c 30 2c 32 29 |5-2*i%,2,64,0,2)|
00002310 3a 5a 79 25 3d bb 28 a4 73 28 59 55 25 29 29 3a |:Zy%=.(.s(YU%)):|
00002320 24 59 57 25 3d c3 28 a8 28 28 5a 79 25 2a 5a 66 |$YW%=.(.((Zy%*Zf|
00002330 25 2a 5a 67 25 29 2f 31 30 32 34 29 29 3a f2 5a |%*Zg%)/1024)):.Z|
00002340 63 28 77 25 2c 38 29 3a 24 59 58 25 3d c3 28 a8 |c(w%,8):$YX%=.(.|
00002350 28 28 33 2a 5a 79 25 2a 5a 66 25 2a 5a 67 25 29 |((3*Zy%*Zf%*Zg%)|
00002360 2f 31 30 32 34 29 29 3a f2 5a 63 28 77 25 2c 39 |/1024)):.Zc(w%,9|
00002370 29 0d 14 8c 28 c9 34 3a 5a 79 25 3d bb 28 a4 73 |)...(.4:Zy%=.(.s|
00002380 28 59 55 25 29 29 3a e7 5a 79 25 3e 3d 32 20 80 |(YU%)):.Zy%>=2 .|
00002390 5a 79 25 3c 3d 36 34 20 8c 0d 14 a0 2a 58 7a 25 |Zy%<=64 ....*Xz%|
000023a0 3d 5a 79 25 3a f2 62 62 28 30 29 3a f2 5a 65 3a |=Zy%:.bb(0):.Ze:|
000023b0 f2 5a 63 28 77 25 2c 38 29 3a f2 5a 63 28 77 25 |.Zc(w%,8):.Zc(w%|
000023c0 2c 39 29 0d 14 b4 0f cd 3a e7 5a 77 25 20 8c f2 |,9).....:.Zw% ..|
000023d0 5a 6f 0d 14 c8 05 cb 0d 14 d2 0f c9 59 79 25 3a |Zo..........Yy%:|
000023e0 e7 5a 77 25 20 8c 0d 14 dc d1 62 25 21 30 3d 77 |.Zw% .....b%!0=w|
000023f0 25 3a c8 99 26 34 30 30 43 42 2c 2c 62 25 3a 78 |%:..&400CB,,b%:x|
00002400 25 3d 28 78 25 2d 62 25 21 34 2b 62 25 21 32 30 |%=(x%-b%!4+b%!20|
00002410 29 2f 28 62 63 25 2a 62 64 29 3a 79 25 3d 28 79 |)/(bc%*bd):y%=(y|
00002420 25 2d 62 25 21 31 36 2b 62 25 21 32 34 29 2f 28 |%-b%!16+b%!24)/(|
00002430 62 65 25 2a 62 64 29 3a 70 25 3d 55 6b 25 2b 38 |be%*bd):p%=Uk%+8|
00002440 2b 34 38 2a 58 56 25 3a 5a 7a 25 3d b6 28 28 78 |+48*XV%:Zz%=.((x|
00002450 25 2d 70 25 21 30 2d 70 25 21 33 32 29 5e 32 2b |%-p%!0-p%!32)^2+|
00002460 28 28 79 25 2d 70 25 21 34 2d 70 25 21 33 36 29 |((y%-p%!4-p%!36)|
00002470 3c 3c 62 66 25 29 5e 32 29 3a 61 55 25 3d b6 28 |<<bf%)^2):aU%=.(|
00002480 28 78 25 2d 70 25 21 38 2d 70 25 21 34 30 29 5e |(x%-p%!8-p%!40)^|
00002490 32 2b 28 28 79 25 2d 70 25 21 31 32 2d 70 25 21 |2+((y%-p%!12-p%!|
000024a0 34 34 29 3c 3c 62 66 25 29 5e 32 29 3a e7 5a 7a |44)<<bf%)^2):.Zz|
000024b0 25 3c 61 55 25 20 8c 0d 15 18 25 e7 70 25 21 33 |%<aU% ....%.p%!3|
000024c0 32 3c 3e 78 25 2d 70 25 21 30 20 84 70 25 21 33 |2<>x%-p%!0 .p%!3|
000024d0 36 3c 3e 79 25 2d 70 25 21 34 20 8c 0d 15 22 27 |6<>y%-p%!4 ..."'|
000024e0 f2 62 67 3a 70 25 21 33 32 3d 78 25 2d 70 25 21 |.bg:p%!32=x%-p%!|
000024f0 30 3a 70 25 21 33 36 3d 79 25 2d 70 25 21 34 3a |0:p%!36=y%-p%!4:|
00002500 f2 62 67 0d 15 2c 05 cd 0d 15 36 28 cc 3a e7 70 |.bg..,....6(.:.p|
00002510 25 21 34 30 3c 3e 78 25 2d 70 25 21 38 20 84 70 |%!40<>x%-p%!8 .p|
00002520 25 21 34 34 3c 3e 79 25 2d 70 25 21 31 32 20 8c |%!44<>y%-p%!12 .|
00002530 0d 15 4a 28 f2 62 67 3a 70 25 21 34 30 3d 78 25 |..J(.bg:p%!40=x%|
00002540 2d 70 25 21 38 3a 70 25 21 34 34 3d 79 25 2d 70 |-p%!8:p%!44=y%-p|
00002550 25 21 31 32 3a f2 62 67 0d 15 54 05 cd 0d 15 5e |%!12:.bg..T....^|
00002560 07 cd 3a e1 0d 15 72 0c cd 3a e7 5a 75 25 20 8c |..:...r..:.Zu% .|
00002570 0d 15 86 34 61 58 25 3d 78 25 2d 36 30 3a 61 59 |...4aX%=x%-60:aY|
00002580 25 3d 79 25 3a f2 62 68 3a c8 99 26 34 30 30 44 |%=y%:.bh:..&400D|
00002590 34 2c 2c 55 6f 25 28 31 39 29 2c 61 58 25 2c 61 |4,,Uo%(19),aX%,a|
000025a0 59 25 3a e1 0d 15 a4 05 cd 0d 15 ae 10 c9 58 77 |Y%:...........Xw|
000025b0 25 3a e7 5a 75 25 20 8c e1 0d 15 b8 0a c8 8e 69 |%:.Zu% ........i|
000025c0 25 20 ca 0d 15 c2 1e c9 35 3a 58 62 25 3d ac 58 |% ......5:Xb%=.X|
000025d0 62 25 3a f2 57 75 28 77 25 2c 69 25 2c 58 62 25 |b%:.Wu(w%,i%,Xb%|
000025e0 29 0d 15 cc 14 c9 36 3a f2 61 66 28 77 25 2c 69 |).....6:.af(w%,i|
000025f0 25 2c 32 35 29 0d 15 d6 05 cb 0d 15 e0 07 cb 3a |%,25)..........:|
00002600 e1 0d 15 fe 28 dd f2 58 77 28 62 69 25 2c 69 25 |....(..Xw(bi%,i%|
00002610 29 3a ea 73 24 2c 66 24 3a e7 69 25 3c 3e 30 20 |):.s$,f$:.i%<>0 |
00002620 80 69 25 3c 3e 32 20 8c e1 0d 16 1c 32 66 24 3d |.i%<>2 .....2f$=|
00002630 a4 73 28 62 69 25 29 3a 24 a4 58 66 28 58 77 25 |.s(bi%):$.Xf(Xw%|
00002640 2c 69 25 29 3d 22 52 32 3b 53 66 69 6c 65 5f 66 |,i%)="R2;Sfile_f|
00002650 66 39 22 3a e7 69 25 3d 30 20 8c 0d 16 3a 22 62 |f9":.i%=0 ...:"b|
00002660 6a 24 3d 66 24 3a 24 58 78 25 3d a4 62 6b 28 66 |j$=f$:$Xx%=.bk(f|
00002670 24 29 3a f2 5a 63 28 58 77 25 2c 38 29 0d 16 4e |$):.Zc(Xw%,8)..N|
00002680 24 cc 3a 62 6c 24 3d 66 24 3a 24 58 79 25 3d a4 |$.:bl$=f$:$Xy%=.|
00002690 62 6b 28 66 24 29 3a f2 5a 63 28 58 77 25 2c 39 |bk(f$):.Zc(Xw%,9|
000026a0 29 0d 16 6c 19 cd 3a e7 62 6a 24 3c 3e 22 22 20 |)..l..:.bj$<>"" |
000026b0 80 62 6c 24 3c 3e 22 22 20 8c 0d 16 80 36 f2 61 |.bl$<>"" ....6.a|
000026c0 72 28 58 77 25 2c 36 2c 30 29 3a 24 58 76 25 3d |r(Xw%,6,0):$Xv%=|
000026d0 22 4e 65 77 4d 6f 72 70 68 22 3a f2 5a 63 28 58 |"NewMorph":.Zc(X|
000026e0 77 25 2c 37 29 3a f2 61 6d 28 58 77 25 2c 37 29 |w%,7):.am(Xw%,7)|
000026f0 0d 16 a8 13 cd 3a f2 5a 63 28 58 77 25 2c 69 25 |.....:.Zc(Xw%,i%|
00002700 29 3a e1 0d 16 d0 86 dd f2 5a 61 28 70 25 29 3a |):.......Za(p%):|
00002710 ea 62 6d 24 2c 5a 5a 25 2c 62 6e 25 2c 62 6f 25 |.bm$,ZZ%,bn%,bo%|
00002720 2c 62 70 25 2c 62 71 25 2c 62 72 25 2c 62 73 25 |,bp%,bq%,br%,bs%|
00002730 2c 62 74 25 3a f2 56 6b 28 58 77 25 29 3a 62 6d |,bt%:.Vk(Xw%):bm|
00002740 24 3d a4 73 28 70 25 29 3a c8 99 26 38 2c 32 33 |$=.s(p%):..&8,23|
00002750 2c 62 6a 24 20 b8 5a 5a 25 2c 2c 2c 2c 2c 2c 62 |,bj$ .ZZ%,,,,,,b|
00002760 6e 25 3a e7 5a 5a 25 3c 3e 31 20 8c f2 56 6b 28 |n%:.ZZ%<>1 ..Vk(|
00002770 58 77 25 29 3a 85 31 2c 22 43 61 6e 27 74 20 66 |Xw%):.1,"Can't f|
00002780 69 6e 64 20 22 2b 62 6a 24 0d 17 0c 44 c8 99 26 |ind "+bj$...D..&|
00002790 38 2c 32 33 2c 62 6c 24 20 b8 5a 5a 25 2c 2c 2c |8,23,bl$ .ZZ%,,,|
000027a0 2c 2c 2c 62 6f 25 3a e7 5a 5a 25 3c 3e 31 20 8c |,,,bo%:.ZZ%<>1 .|
000027b0 f2 56 6b 28 58 77 25 29 3a 85 31 2c 22 43 61 6e |.Vk(Xw%):.1,"Can|
000027c0 27 74 20 66 69 6e 64 20 22 2b 62 6c 24 0d 17 20 |'t find "+bl$.. |
000027d0 2f e7 62 6e 25 3c 3e 62 6f 25 20 8c 85 31 2c 22 |/.bn%<>bo% ..1,"|
000027e0 42 6f 74 68 20 66 69 6c 65 73 20 4d 55 53 54 20 |Both files MUST |
000027f0 62 65 20 73 70 72 69 74 65 73 2e 22 0d 17 2a 0a |be sprites."..*.|
00002800 e7 58 62 25 20 8c 0d 17 34 a0 f2 62 75 28 62 6a |.Xb% ...4..bu(bj|
00002810 24 29 3a 62 70 25 3d 62 76 25 3a 62 71 25 3d 62 |$):bp%=bv%:bq%=b|
00002820 77 25 3a 62 74 25 3d 62 78 25 3a f2 62 75 28 62 |w%:bt%=bx%:.bu(b|
00002830 6c 24 29 3a 62 72 25 3d 62 76 25 3a 62 73 25 3d |l$):br%=bv%:bs%=|
00002840 62 77 25 3a c8 99 26 38 2c 35 2c 62 6a 24 20 b8 |bw%:..&8,5,bj$ .|
00002850 2c 2c 2c 2c 62 79 25 3a c8 99 26 38 2c 35 2c 62 |,,,,by%:..&8,5,b|
00002860 6c 24 20 b8 2c 2c 2c 2c 62 7a 25 3a c8 99 26 38 |l$ .,,,,bz%:..&8|
00002870 2c 38 2c 62 6d 24 3a e7 62 79 25 3c 3e 62 7a 25 |,8,bm$:.by%<>bz%|
00002880 20 84 62 70 25 3c 3e 62 72 25 20 84 62 71 25 3c | .bp%<>br% .bq%<|
00002890 3e 62 73 25 20 84 a4 63 55 28 62 74 25 2c 33 29 |>bs% ..cU(bt%,3)|
000028a0 3c 3e 36 33 20 8c 0d 17 70 56 62 74 25 3d a4 63 |<>63 ...pVbt%=.c|
000028b0 56 28 eb 29 3a f2 63 57 28 62 6a 24 2c 62 6d 24 |V(.):.cW(bj$,bm$|
000028c0 2b 22 2e 53 70 72 69 74 65 31 22 2c 62 70 25 2c |+".Sprite1",bp%,|
000028d0 62 71 25 2c 62 74 25 29 3a f2 63 57 28 62 6c 24 |bq%,bt%):.cW(bl$|
000028e0 2c 62 6d 24 2b 22 2e 53 70 72 69 74 65 32 22 2c |,bm$+".Sprite2",|
000028f0 62 70 25 2c 62 71 25 2c 62 74 25 29 0d 17 8e 51 |bp%,bq%,bt%)...Q|
00002900 cc 3a c8 99 26 32 39 2c 26 31 41 2c 62 6a 24 2c |.:..&29,&1A,bj$,|
00002910 62 6d 24 2b 22 2e 53 70 72 69 74 65 31 22 2c 25 |bm$+".Sprite1",%|
00002920 31 31 30 30 30 30 30 3a c8 99 26 32 39 2c 26 31 |1100000:..&29,&1|
00002930 41 2c 62 6c 24 2c 62 6d 24 2b 22 2e 53 70 72 69 |A,bl$,bm$+".Spri|
00002940 74 65 32 22 2c 25 31 31 30 30 30 30 30 0d 17 ac |te2",%1100000...|
00002950 05 cd 0d 17 b6 5c cc 3a c8 99 26 38 2c 38 2c 62 |.....\.:..&8,8,b|
00002960 6d 24 3a c8 99 26 32 39 2c 26 31 41 2c 62 6a 24 |m$:..&29,&1A,bj$|
00002970 2c 62 6d 24 2b 22 2e 53 70 72 69 74 65 31 22 2c |,bm$+".Sprite1",|
00002980 25 31 31 30 30 30 30 30 3a c8 99 26 32 39 2c 26 |%1100000:..&29,&|
00002990 31 41 2c 62 6c 24 2c 62 6d 24 2b 22 2e 53 70 72 |1A,bl$,bm$+".Spr|
000029a0 69 74 65 32 22 2c 25 31 31 30 30 30 30 30 0d 17 |ite2",%1100000..|
000029b0 de 1c cd 3a 24 28 62 25 2b 34 34 29 3d 62 6d 24 |...:$(b%+44)=bm$|
000029c0 3a f2 5a 62 28 62 25 29 3a e1 0d 18 06 77 dd f2 |:.Zb(b%):....w..|
000029d0 61 61 3a 24 a4 58 66 28 58 77 25 2c 30 29 3d 22 |aa:$.Xf(Xw%,0)="|
000029e0 52 32 22 3a 24 a4 58 66 28 58 77 25 2c 32 29 3d |R2":$.Xf(Xw%,2)=|
000029f0 22 52 32 22 3a 24 58 76 25 3d 22 22 3a 24 58 78 |"R2":$Xv%="":$Xx|
00002a00 25 3d 22 22 3a 24 58 79 25 3d 22 22 3a f2 61 72 |%="":$Xy%="":.ar|
00002a10 28 58 77 25 2c 36 2c 31 29 3a f2 57 75 28 58 77 |(Xw%,6,1):.Wu(Xw|
00002a20 25 2c 35 2c 58 62 25 29 3a 62 6a 24 3d 22 22 3a |%,5,Xb%):bj$="":|
00002a30 62 6c 24 3d 22 22 3a f2 5a 57 28 58 77 25 29 3a |bl$="":.ZW(Xw%):|
00002a40 e1 0d 18 74 36 dd f2 62 62 28 63 58 25 29 3a ea |...t6..bb(cX%):.|
00002a50 5a 79 25 2c 74 3a e3 5a 79 25 3d 31 20 b8 58 7a |Zy%,t:.Zy%=1 .Xz|
00002a60 25 3a 74 3d 5a 79 25 2f 28 58 7a 25 2b 31 29 3a |%:t=Zy%/(Xz%+1):|
00002a70 c8 8e 63 58 25 20 ca 0d 18 a6 0a c9 30 3a 74 3d |..cX% ......0:t=|
00002a80 74 0d 18 b0 0c c9 31 3a 74 3d 74 2a 74 0d 18 ba |t.....1:t=t*t...|
00002a90 11 c9 32 3a 74 3d b5 28 74 2a af 2f 32 29 0d 18 |..2:t=.(t*./2)..|
00002aa0 c4 2d c9 33 3a e7 74 3c 3d 30 2e 35 20 8c 74 3d |.-.3:.t<=0.5 .t=|
00002ab0 30 2e 35 2a b5 28 74 2a af 29 8b 74 3d 31 2d 30 |0.5*.(t*.).t=1-0|
00002ac0 2e 35 2a b5 28 af 2d 74 2a af 29 0d 18 ce 17 c9 |.5*.(.-t*.).....|
00002ad0 34 3a 74 3d 30 2e 35 2d 30 2e 35 2a 9b 28 74 2a |4:t=0.5-0.5*.(t*|
00002ae0 af 29 0d 18 d8 1c cb 3a 55 74 25 21 28 34 2a 5a |.).....:Ut%!(4*Z|
00002af0 79 25 29 3d 31 30 32 34 2a 74 3a ed 3a e1 0d 19 |y%)=1024*t:.:...|
00002b00 0a 60 dd f2 61 70 28 69 25 29 3a ea 70 25 2c 73 |.`..ap(i%):.p%,s|
00002b10 25 3a 70 25 3d 55 75 25 21 28 34 2a 69 25 2d 34 |%:p%=Uu%!(4*i%-4|
00002b20 29 3a e3 73 25 3d 30 20 b8 31 30 3a 55 62 25 21 |):.s%=0 .10:Ub%!|
00002b30 28 34 2a 73 25 29 3d 32 2a 55 72 25 28 69 25 2c |(4*s%)=2*Ur%(i%,|
00002b40 73 25 29 3a ed 3a f2 63 59 28 59 6f 2c 70 25 2c |s%):.:.cY(Yo,p%,|
00002b50 55 62 25 2c 30 2c 30 2c 30 2c 30 29 3a e1 0d 19 |Ub%,0,0,0,0):...|
00002b60 50 19 dd f2 56 72 28 77 25 2c 69 25 2c 6b 25 29 |P...Vr(w%,i%,k%)|
00002b70 3a c8 8e 77 25 20 ca 0d 19 64 17 c9 58 6d 25 3a |:..w% ...d..Xm%:|
00002b80 e7 69 25 3d 31 20 80 6b 25 3d 31 33 20 8c 0d 19 |.i%=1 .k%=13 ...|
00002b90 6e 2c 56 66 25 3d b9 3a 63 5a 25 3d 31 37 3a f2 |n,Vf%=.:cZ%=17:.|
00002ba0 5a 6f 3a e7 61 71 25 20 8c f2 61 64 28 56 6e 25 |Zo:.aq% ..ad(Vn%|
00002bb0 29 3a f2 61 64 28 56 6f 25 29 0d 19 82 0d cc 3a |):.ad(Vo%).....:|
00002bc0 f2 63 61 28 6b 25 29 0d 19 96 05 cd 0d 19 a0 17 |.ca(k%).........|
00002bd0 c9 58 70 25 3a e7 69 25 3d 31 20 80 6b 25 3d 31 |.Xp%:.i%=1 .k%=1|
00002be0 33 20 8c 0d 19 aa 2c 56 66 25 3d b9 3a 63 5a 25 |3 ....,Vf%=.:cZ%|
00002bf0 3d 31 36 3a f2 5a 6f 3a e7 61 71 25 20 8c f2 61 |=16:.Zo:.aq% ..a|
00002c00 64 28 56 6e 25 29 3a f2 61 64 28 56 6f 25 29 0d |d(Vn%):.ad(Vo%).|
00002c10 19 be 0d cc 3a f2 63 61 28 6b 25 29 0d 19 d2 05 |....:.ca(k%)....|
00002c20 cd 0d 19 dc 2a c9 59 56 25 3a e7 69 25 3d 31 20 |....*.YV%:.i%=1 |
00002c30 80 6b 25 3d 31 33 20 8c f2 5a 73 28 77 25 2c 34 |.k%=13 ..Zs(w%,4|
00002c40 2c 31 29 8b f2 63 61 28 6b 25 29 0d 19 e6 0d 7f |,1)..ca(k%).....|
00002c50 3a f2 63 61 28 6b 25 29 0d 19 fa 07 cb 3a e1 0d |:.ca(k%).....:..|
00002c60 1a 18 1a dd f2 63 61 28 6b 25 29 3a c8 99 26 34 |.....ca(k%):..&4|
00002c70 30 30 44 43 2c 6b 25 3a e1 0d 1a 2c 28 dd f2 61 |00DC,k%:...,(..a|
00002c80 6d 28 77 25 2c 69 25 29 3a c8 99 26 34 30 30 44 |m(w%,i%):..&400D|
00002c90 32 2c 77 25 2c 69 25 2c 2c 2c 34 30 2c 2d 31 3a |2,w%,i%,,,40,-1:|
00002ca0 e1 0d 1a 36 21 dd f2 61 77 3a c8 99 26 34 30 30 |...6!..aw:..&400|
00002cb0 44 32 2c 2d 31 2c 2d 31 2c 2c 2c 34 30 2c 2d 31 |D2,-1,-1,,,40,-1|
00002cc0 3a e1 0d 1a 4a 36 dd f2 61 6c 28 77 25 2c 69 25 |:...J6..al(w%,i%|
00002cd0 2c 63 62 25 2c 63 63 2c 63 64 2c 63 65 2c 63 66 |,cb%,cc,cd,ce,cf|
00002ce0 25 2c 63 67 25 29 3a ea 76 24 2c 76 2c 40 25 3a |%,cg%):.v$,v,@%:|
00002cf0 e7 63 64 3d 63 65 20 8c 0d 1a 68 08 76 3d 63 63 |.cd=ce ...h.v=cc|
00002d00 0d 1a 72 21 cc 3a 76 3d a0 28 a4 73 28 63 62 25 |..r!.:v=.(.s(cb%|
00002d10 29 29 2b 63 63 3a e7 76 3c 63 64 20 8c 76 3d 63 |))+cc:.v<cd .v=c|
00002d20 64 0d 1a 90 0f e7 76 3e 63 65 20 8c 76 3d 63 65 |d.....v>ce .v=ce|
00002d30 0d 1a 9a 46 cd 3a 40 25 3d 26 32 30 30 30 30 2b |...F.:@%=&20000+|
00002d40 32 35 36 2a 63 66 25 2b 63 67 25 3a e7 76 3c 3e |256*cf%+cg%:.v<>|
00002d50 30 20 8c 76 24 3d c0 c3 28 76 2b 28 30 2e 31 5e |0 .v$=..(v+(0.1^|
00002d60 28 63 66 25 2b 33 29 29 29 2c 63 67 25 29 8b 76 |(cf%+3))),cg%).v|
00002d70 24 3d c3 28 30 29 0d 1a b8 21 e7 a7 76 24 2c 22 |$=.(0)...!..v$,"|
00002d80 2e 22 29 20 8c 76 24 3d c0 76 24 2c a7 76 24 2c |.") .v$=.v$,.v$,|
00002d90 22 2e 22 29 2d 31 29 0d 1a c2 18 24 63 62 25 3d |".")-1)....$cb%=|
00002da0 76 24 3a f2 5a 63 28 77 25 2c 69 25 29 3a e1 0d |v$:.Zc(w%,i%):..|
00002db0 1a e0 5c dd f2 61 56 28 56 62 25 29 3a e7 56 62 |..\..aV(Vb%):.Vb|
00002dc0 25 3d 34 20 80 61 63 25 20 8c 85 31 2c 22 59 6f |%=4 .ac% ..1,"Yo|
00002dd0 75 20 63 61 6e 20 6f 6e 6c 79 20 61 6c 74 65 72 |u can only alter|
00002de0 20 74 68 65 20 67 75 69 64 65 20 6d 61 72 6b 73 | the guide marks|
00002df0 20 77 69 74 68 20 74 68 65 20 67 72 69 64 20 74 | with the grid t|
00002e00 75 72 6e 65 64 20 6f 66 66 2e 22 0d 1a f4 61 e7 |urned off."...a.|
00002e10 56 62 25 3d 35 20 80 20 ac 61 74 25 20 8c 85 31 |Vb%=5 . .at% ..1|
00002e20 2c 22 59 6f 75 20 63 61 6e 20 6f 6e 6c 79 20 61 |,"You can only a|
00002e30 6c 74 65 72 20 74 68 65 20 67 72 6f 75 70 20 6f |lter the group o|
00002e40 66 20 74 68 65 20 6b 6e 6f 74 73 20 77 68 65 6e |f the knots when|
00002e50 20 74 68 65 20 6b 6e 6f 74 73 20 61 72 65 20 62 | the knots are b|
00002e60 65 69 6e 67 20 73 68 6f 77 6e 2e 22 0d 1a fe 24 |eing shown."...$|
00002e70 e7 59 64 25 3e 30 20 80 59 64 25 3c 32 30 20 8c |.Yd%>0 .Yd%<20 .|
00002e80 f2 57 75 28 59 75 25 2c 59 64 25 2d 31 2c 30 29 |.Wu(Yu%,Yd%-1,0)|
00002e90 0d 1b 08 2c 59 64 25 3d 56 62 25 3a e7 59 64 25 |...,Yd%=Vb%:.Yd%|
00002ea0 3e 30 20 80 59 64 25 3c 32 30 20 8c f2 57 75 28 |>0 .Yd%<20 ..Wu(|
00002eb0 59 75 25 2c 59 64 25 2d 31 2c 31 29 0d 1b 1c 05 |Yu%,Yd%-1,1)....|
00002ec0 e1 0d 1b 30 5d dd f2 56 71 28 62 25 29 3a ea 78 |...0]..Vq(b%):.x|
00002ed0 25 2c 79 25 2c 7a 2c 63 68 2c 77 25 2c 63 69 2c |%,y%,z,ch,w%,ci,|
00002ee0 63 6a 2c 70 25 2c 63 6b 25 2c 63 6c 25 2c 5a 55 |cj,p%,ck%,cl%,ZU|
00002ef0 25 2c 63 6d 25 2c 63 6e 25 3a c8 99 26 34 30 30 |%,cm%,cn%:..&400|
00002f00 43 46 2c 2c 62 25 3a 78 25 3d 62 25 21 30 3a 79 |CF,,b%:x%=b%!0:y|
00002f10 25 3d 62 25 21 34 3a c8 8e 57 61 25 20 ca 0d 1b |%=b%!4:..Wa% ...|
00002f20 58 91 c9 32 35 3a 62 25 21 32 30 3d 62 25 21 31 |X..25:b%!20=b%!1|
00002f30 32 3a 62 25 21 32 34 3d 62 25 21 31 36 3a 62 25 |2:b%!24=b%!16:b%|
00002f40 21 32 38 3d 62 25 21 30 3a 62 25 21 33 32 3d 62 |!28=b%!0:b%!32=b|
00002f50 25 21 34 3a 62 25 21 31 32 3d 30 3a 62 25 21 31 |%!4:b%!12=0:b%!1|
00002f60 36 3d 31 3a 62 25 21 33 36 3d 34 30 30 30 30 3a |6=1:b%!36=40000:|
00002f70 62 25 21 34 30 3d 26 31 30 30 30 3a 62 25 21 30 |b%!40=&1000:b%!0|
00002f80 3d 36 30 3a 24 28 62 25 2b 34 34 29 3d a4 73 28 |=60:$(b%+44)=.s(|
00002f90 58 76 25 29 3a c8 99 26 34 30 30 45 37 2c 31 37 |Xv%):..&400E7,17|
00002fa0 2c 62 25 2c 62 25 21 32 30 2c 62 25 21 32 34 0d |,b%,b%!20,b%!24.|
00002fb0 1b 80 36 c9 32 2c 33 2c 34 2c 35 3a f2 63 6f 28 |..6.2,3,4,5:.co(|
00002fc0 63 70 25 2c 63 71 25 2c 59 63 25 2c 59 62 25 29 |cp%,cq%,Yc%,Yb%)|
00002fd0 3a 56 63 25 3d a3 3a 63 6d 25 3d 33 3a e7 20 ac |:Vc%=.:cm%=3:. .|
00002fe0 59 62 25 20 8c 0d 1b 9e 17 e7 59 63 25 3d 30 20 |Yb% ......Yc%=0 |
00002ff0 8c 63 6d 25 3d 31 8b 63 6d 25 3d 32 0d 1b a8 19 |.cm%=1.cm%=2....|
00003000 cd 3a f2 63 72 28 59 61 25 2c 63 6d 25 29 3a e7 |.:.cr(Ya%,cm%):.|
00003010 59 62 25 20 8c 0d 1b c6 26 70 25 3d 55 6b 25 2b |Yb% ....&p%=Uk%+|
00003020 38 2b 34 38 2a 59 61 25 3a 70 25 21 38 3d 63 70 |8+48*Ya%:p%!8=cp|
00003030 25 3a 70 25 21 31 32 3d 63 71 25 0d 1b da 1b cc |%:p%!12=cq%.....|
00003040 3a 70 25 3d 55 6b 25 2b 38 2b 34 38 2a 59 61 25 |:p%=Uk%+8+48*Ya%|
00003050 2b 38 2a 59 63 25 0d 1b ee 54 cd 3a 70 25 21 30 |+8*Yc%...T.:p%!0|
00003060 3d 63 70 25 3a 70 25 21 34 3d 63 71 25 3a 58 55 |=cp%:p%!4=cq%:XU|
00003070 25 3d 30 3a f2 63 72 28 59 61 25 2c 63 6d 25 29 |%=0:.cr(Ya%,cm%)|
00003080 3a c8 99 26 34 30 30 43 46 2c 2c 62 25 3a e7 62 |:..&400CF,,b%:.b|
00003090 25 21 31 32 3d 56 6e 25 20 84 62 25 21 31 32 3d |%!12=Vn% .b%!12=|
000030a0 56 6f 25 20 8c 56 64 25 3d b9 0d 1c 20 28 c9 37 |Vo% .Vd%=... (.7|
000030b0 2c 38 3a e7 57 61 25 3d 37 20 8c 77 25 3d 56 6e |,8:.Wa%=7 .w%=Vn|
000030c0 25 3a 7a 3d 57 6a 8b 77 25 3d 56 6f 25 3a 7a 3d |%:z=Wj.w%=Vo%:z=|
000030d0 57 6b 0d 1c 2a 2f e7 62 25 21 31 32 3c 3e 77 25 |Wk..*/.b%!12<>w%|
000030e0 20 8c 85 31 2c 22 50 6c 65 61 73 65 20 6b 65 65 | ..1,"Please kee|
000030f0 70 20 69 6e 73 69 64 65 20 77 69 6e 64 6f 77 2e |p inside window.|
00003100 22 0d 1c 34 15 e7 78 25 3c 63 70 25 20 8c c8 94 |"..4..x%<cp% ...|
00003110 78 25 2c 63 70 25 0d 1c 3e 15 e7 79 25 3c 63 71 |x%,cp%..>..y%<cq|
00003120 25 20 8c c8 94 79 25 2c 63 71 25 0d 1c 48 9b 62 |% ...y%,cq%..H.b|
00003130 25 21 30 3d 77 25 3a c8 99 26 34 30 30 43 42 2c |%!0=w%:..&400CB,|
00003140 2c 62 25 3a 78 25 3d 28 78 25 2d 62 25 21 34 2b |,b%:x%=(x%-b%!4+|
00003150 62 25 21 32 30 29 2f 7a 3a 79 25 3d 28 79 25 2d |b%!20)/z:y%=(y%-|
00003160 62 25 21 31 36 2b 62 25 21 32 34 29 2f 7a 3a 63 |b%!16+b%!24)/z:c|
00003170 6b 25 3d 28 63 70 25 2d 62 25 21 34 2b 62 25 21 |k%=(cp%-b%!4+b%!|
00003180 32 30 29 2f 7a 3a 63 6c 25 3d 28 63 71 25 2d 62 |20)/z:cl%=(cq%-b|
00003190 25 21 31 36 2b 62 25 21 32 34 29 2f 7a 3a f2 63 |%!16+b%!24)/z:.c|
000031a0 73 28 57 61 25 2d 36 2c 63 6b 25 2f 62 63 25 2c |s(Wa%-6,ck%/bc%,|
000031b0 63 6c 25 2f 62 65 25 2c 78 25 2f 62 63 25 2c 79 |cl%/be%,x%/bc%,y|
000031c0 25 2f 62 65 25 29 0d 1c 70 2b c9 31 30 2c 31 31 |%/be%)..p+.10,11|
000031d0 3a e7 57 61 25 3d 31 30 20 8c 77 25 3d 56 6e 25 |:.Wa%=10 .w%=Vn%|
000031e0 3a 7a 3d 57 6a 8b 77 25 3d 56 6f 25 3a 7a 3d 57 |:z=Wj.w%=Vo%:z=W|
000031f0 6b 0d 1c 7a 34 63 68 3d 7a 3a e7 62 25 21 31 32 |k..z4ch=z:.b%!12|
00003200 3c 3e 77 25 20 8c 85 31 2c 22 50 6c 65 61 73 65 |<>w% ..1,"Please|
00003210 20 6b 65 65 70 20 69 6e 73 69 64 65 20 77 69 6e | keep inside win|
00003220 64 6f 77 2e 22 0d 1c 8e 15 e7 78 25 3c 63 70 25 |dow.".....x%<cp%|
00003230 20 8c c8 94 78 25 2c 63 70 25 0d 1c 98 15 e7 79 | ...x%,cp%.....y|
00003240 25 3c 63 71 25 20 8c c8 94 79 25 2c 63 71 25 0d |%<cq% ...y%,cq%.|
00003250 1c a2 5f 78 25 3d 94 28 78 25 2d 63 70 25 29 3a |.._x%=.(x%-cp%):|
00003260 79 25 3d 94 28 79 25 2d 63 71 25 29 3a e7 78 25 |y%=.(y%-cq%):.x%|
00003270 3d 30 20 84 79 25 3d 30 20 8c 85 31 2c 22 59 6f |=0 .y%=0 ..1,"Yo|
00003280 75 20 63 61 6e 27 74 20 65 6e 6c 61 72 67 65 20 |u can't enlarge |
00003290 61 6e 20 61 72 65 61 20 77 69 74 68 20 6e 6f 20 |an area with no |
000032a0 77 69 64 74 68 2f 68 65 69 67 68 74 2e 22 0d 1c |width/height."..|
000032b0 b6 91 62 25 21 30 3d 77 25 3a c8 99 26 34 30 30 |..b%!0=w%:..&400|
000032c0 43 42 2c 2c 62 25 3a 63 70 25 2d 3d 62 25 21 34 |CB,,b%:cp%-=b%!4|
000032d0 2d 62 25 21 32 30 3a 63 71 25 2d 3d 62 25 21 31 |-b%!20:cq%-=b%!1|
000032e0 36 2d 62 25 21 32 34 3a 63 70 25 3d 63 70 25 2f |6-b%!24:cp%=cp%/|
000032f0 63 68 3a 63 71 25 3d 63 71 25 2f 63 68 3a 63 69 |ch:cq%=cq%/ch:ci|
00003300 3d 7a 2a 94 28 28 62 25 21 34 2d 62 25 21 31 32 |=z*.((b%!4-b%!12|
00003310 29 2f 78 25 29 3a 63 6a 3d 7a 2a 94 28 28 62 25 |)/x%):cj=z*.((b%|
00003320 21 38 2d 62 25 21 31 36 29 2f 79 25 29 3a e7 63 |!8-b%!16)/y%):.c|
00003330 69 3e 63 6a 20 8c 7a 3d 63 6a 8b 7a 3d 63 69 0d |i>cj .z=cj.z=ci.|
00003340 1c e8 2c e7 7a 3c 30 2e 31 20 84 7a 3e 31 30 20 |..,.z<0.1 .z>10 |
00003350 8c 85 31 2c 22 49 6c 6c 65 67 61 6c 20 73 63 61 |..1,"Illegal sca|
00003360 6c 65 20 66 61 63 74 6f 72 2e 22 0d 1c f2 7e 7a |le factor."...~z|
00003370 3d a8 28 7a 2a 31 30 30 29 2f 31 30 30 3a f2 5a |=.(z*100)/100:.Z|
00003380 58 28 77 25 2c 63 74 25 2a 7a 2c 63 75 25 2a 7a |X(w%,ct%*z,cu%*z|
00003390 29 3a 62 25 21 30 3d 77 25 3a c8 99 26 34 30 30 |):b%!0=w%:..&400|
000033a0 43 42 2c 2c 62 25 3a 62 25 21 32 30 3d 63 70 25 |CB,,b%:b%!20=cp%|
000033b0 2a 7a 3a 62 25 21 32 34 3d 63 71 25 2a 7a 2d 62 |*z:b%!24=cq%*z-b|
000033c0 25 21 38 2b 62 25 21 31 36 3a c8 99 26 34 30 30 |%!8+b%!16:..&400|
000033d0 43 35 2c 2c 62 25 3a e7 57 61 25 3d 31 30 20 8c |C5,,b%:.Wa%=10 .|
000033e0 57 6a 3d 7a 8b 57 6b 3d 7a 0d 1d 2e 16 f2 63 76 |Wj=z.Wk=z.....cv|
000033f0 3a f2 61 64 28 77 25 29 3a f2 61 56 28 30 29 0d |:.ad(w%):.aV(0).|
00003400 1d 42 5f c9 31 35 3a 62 25 21 30 3d 56 6c 25 3a |.B_.15:b%!0=Vl%:|
00003410 c8 99 26 34 30 30 43 42 2c 2c 62 25 3a 55 74 25 |..&400CB,,b%:Ut%|
00003420 21 28 34 2a 63 71 25 29 3d 78 25 2d 28 62 25 21 |!(4*cq%)=x%-(b%!|
00003430 34 2d 62 25 21 32 30 29 2d 32 35 36 3a c8 99 26 |4-b%!20)-256:..&|
00003440 34 30 30 44 31 2c 56 6c 25 2c 32 35 36 2c 31 36 |400D1,Vl%,256,16|
00003450 30 2c 31 32 38 30 2c 32 32 34 3a f2 56 6d 0d 1d |0,1280,224:.Vm..|
00003460 6a 19 cb 3a 57 61 25 3d 30 3a 58 55 25 3d 30 3a |j..:Wa%=0:XU%=0:|
00003470 56 63 25 3d a3 3a e1 0d 1d 92 51 dd f2 61 66 28 |Vc%=.:....Q..af(|
00003480 77 25 2c 69 25 2c 63 77 25 29 3a ea 63 78 25 2c |w%,i%,cw%):.cx%,|
00003490 63 79 25 2c 63 7a 25 2c 64 55 25 2c 64 56 24 2c |cy%,cz%,dU%,dV$,|
000034a0 64 57 25 2c 64 58 25 2c 64 59 25 3a 63 7a 25 3d |dW%,dX%,dY%:cz%=|
000034b0 77 25 3a 64 55 25 3d 69 25 3a 64 59 25 3d 36 34 |w%:dU%=i%:dY%=64|
000034c0 3a c8 8e 63 77 25 20 ca 0d 1d ba 37 c9 32 2c 33 |:..cw% ....7.2,3|
000034d0 2c 34 2c 35 3a 63 78 25 3d 77 25 3a 63 79 25 3d |,4,5:cx%=w%:cy%=|
000034e0 69 25 3a e7 63 77 25 3d 32 20 84 63 77 25 3d 33 |i%:.cw%=2 .cw%=3|
000034f0 20 8c 77 25 3d 56 6e 25 8b 77 25 3d 56 6f 25 0d | .w%=Vn%.w%=Vo%.|
00003500 1d ce 76 55 79 25 21 30 3d 77 25 3a c8 99 26 34 |..vUy%!0=w%:..&4|
00003510 30 30 43 42 2c 2c 55 79 25 3a 62 25 21 32 34 3d |00CB,,Uy%:b%!24=|
00003520 62 25 21 34 3a 62 25 21 32 38 3d 62 25 21 38 3a |b%!4:b%!28=b%!8:|
00003530 62 25 21 33 32 3d 62 25 21 31 32 3a 62 25 21 33 |b%!32=b%!12:b%!3|
00003540 36 3d 62 25 21 31 36 3a 62 25 21 38 3d 63 78 25 |6=b%!16:b%!8=cx%|
00003550 3a 62 25 21 31 32 3d 63 79 25 3a 62 25 21 31 36 |:b%!12=cy%:b%!16|
00003560 3d 63 78 25 3a 62 25 21 32 30 3d 63 79 25 3a 62 |=cx%:b%!20=cy%:b|
00003570 25 21 34 3d 37 0d 1d ec 22 c9 37 2c 38 3a e7 63 |%!4=7...".7,8:.c|
00003580 77 25 3d 37 20 8c 62 25 21 30 3d 56 6e 25 8b 62 |w%=7 .b%!0=Vn%.b|
00003590 25 21 30 3d 56 6f 25 0d 1d f6 7c c8 99 26 34 30 |%!0=Vo%...|..&40|
000035a0 30 43 42 2c 2c 62 25 3a 62 25 21 32 34 3d 62 25 |0CB,,b%:b%!24=b%|
000035b0 21 34 3a 62 25 21 32 38 3d 62 25 21 38 3a 62 25 |!4:b%!28=b%!8:b%|
000035c0 21 33 32 3d 62 25 21 31 32 3a 62 25 21 33 36 3d |!32=b%!12:b%!36=|
000035d0 62 25 21 31 36 3a 62 25 21 38 3d 63 7a 25 3a 62 |b%!16:b%!8=cz%:b|
000035e0 25 21 31 32 3d 64 55 25 3a 62 25 21 31 36 3d 63 |%!12=dU%:b%!16=c|
000035f0 7a 25 3a 62 25 21 32 30 3d 64 55 25 3a 62 25 21 |z%:b%!20=dU%:b%!|
00003600 34 3d 36 3a 63 70 25 3d 63 7a 25 3a 63 71 25 3d |4=6:cp%=cz%:cq%=|
00003610 64 55 25 0d 1e 28 25 c9 31 30 2c 31 31 3a e7 63 |dU%..(%.10,11:.c|
00003620 77 25 3d 31 30 20 8c 62 25 21 30 3d 56 6e 25 8b |w%=10 .b%!0=Vn%.|
00003630 62 25 21 30 3d 56 6f 25 0d 1e 32 7c c8 99 26 34 |b%!0=Vo%..2|..&4|
00003640 30 30 43 42 2c 2c 62 25 3a 62 25 21 32 34 3d 62 |00CB,,b%:b%!24=b|
00003650 25 21 34 3a 62 25 21 32 38 3d 62 25 21 38 3a 62 |%!4:b%!28=b%!8:b|
00003660 25 21 33 32 3d 62 25 21 31 32 3a 62 25 21 33 36 |%!32=b%!12:b%!36|
00003670 3d 62 25 21 31 36 3a 62 25 21 38 3d 63 7a 25 3a |=b%!16:b%!8=cz%:|
00003680 62 25 21 31 32 3d 64 55 25 3a 62 25 21 31 36 3d |b%!12=dU%:b%!16=|
00003690 63 7a 25 3a 62 25 21 32 30 3d 64 55 25 3a 62 25 |cz%:b%!20=dU%:b%|
000036a0 21 34 3d 36 3a 63 70 25 3d 63 7a 25 3a 63 71 25 |!4=6:cp%=cz%:cq%|
000036b0 3d 64 55 25 0d 1e 64 82 c9 31 35 3a 55 79 25 21 |=dU%..d..15:Uy%!|
000036c0 30 3d 56 6c 25 3a c8 99 26 34 30 30 43 42 2c 2c |0=Vl%:..&400CB,,|
000036d0 55 79 25 3a 64 5a 25 3d 55 79 25 21 34 2d 55 79 |Uy%:dZ%=Uy%!4-Uy|
000036e0 25 21 32 30 2b 32 35 36 3a c8 99 26 34 30 30 43 |%!20+256:..&400C|
000036f0 46 2c 2c 55 79 25 3a 63 78 25 3d 55 79 25 21 30 |F,,Uy%:cx%=Uy%!0|
00003700 2d 64 5a 25 3a 63 79 25 3d 55 79 25 21 34 3a 63 |-dZ%:cy%=Uy%!4:c|
00003710 78 25 3d a4 63 59 28 59 6e 2c 63 78 25 2c 55 74 |x%=.cY(Yn,cx%,Ut|
00003720 25 2c 58 7a 25 2c 30 2c 30 2c 30 29 3a e7 63 78 |%,Xz%,0,0,0):.cx|
00003730 25 3d 30 20 8c e1 0d 1e 96 36 64 57 25 3d 55 74 |%=0 .....6dW%=Ut|
00003740 25 21 28 34 2a 63 78 25 2d 34 29 3a 64 58 25 3d |%!(4*cx%-4):dX%=|
00003750 55 74 25 21 28 34 2a 63 78 25 2b 34 29 3a e7 63 |Ut%!(4*cx%+4):.c|
00003760 78 25 3d 31 20 8c 64 57 25 3d 2d 33 0d 1e aa 16 |x%=1 .dW%=-3....|
00003770 e7 63 78 25 3d 58 7a 25 20 8c 64 58 25 3d 31 30 |.cx%=Xz% .dX%=10|
00003780 32 37 0d 1e b4 81 62 25 21 34 3d 37 3a 62 25 21 |27....b%!4=7:b%!|
00003790 38 3d 30 3a 62 25 21 31 32 3d 30 3a 62 25 21 31 |8=0:b%!12=0:b%!1|
000037a0 36 3d 30 3a 62 25 21 32 30 3d 30 3a 62 25 21 32 |6=0:b%!20=0:b%!2|
000037b0 34 3d 64 5a 25 2b 64 57 25 2b 33 3a 62 25 21 32 |4=dZ%+dW%+3:b%!2|
000037c0 38 3d 63 79 25 3a 62 25 21 33 32 3d 64 5a 25 2b |8=cy%:b%!32=dZ%+|
000037d0 64 58 25 2d 33 3a 62 25 21 33 36 3d 63 79 25 3a |dX%-3:b%!36=cy%:|
000037e0 63 71 25 3d 63 78 25 3a 63 70 25 3d 55 74 25 21 |cq%=cx%:cp%=Ut%!|
000037f0 28 34 2a 63 78 25 29 3a 56 63 25 3d b9 3a 58 55 |(4*cx%):Vc%=.:XU|
00003800 25 3d 32 0d 1e dc d7 c9 32 35 3a 57 62 25 3d 32 |%=2.....25:Wb%=2|
00003810 35 3a 62 25 21 30 3d 77 25 3a c8 99 26 34 30 30 |5:b%!0=w%:..&400|
00003820 43 42 2c 2c 62 25 3a 63 78 25 3d 62 25 21 34 2d |CB,,b%:cx%=b%!4-|
00003830 62 25 21 32 30 3a 63 79 25 3d 62 25 21 31 36 2d |b%!20:cy%=b%!16-|
00003840 62 25 21 32 34 3a 62 25 21 34 3d 69 25 3a c8 99 |b%!24:b%!4=i%:..|
00003850 26 34 30 30 43 45 2c 2c 62 25 3a 62 25 21 38 2b |&400CE,,b%:b%!8+|
00003860 3d 63 78 25 3a 62 25 21 31 32 2b 3d 63 79 25 3a |=cx%:b%!12+=cy%:|
00003870 62 25 21 31 36 2b 3d 63 78 25 3a 62 25 21 32 30 |b%!16+=cx%:b%!20|
00003880 2b 3d 63 79 25 3a 62 25 21 32 34 3d 30 3a 62 25 |+=cy%:b%!24=0:b%|
00003890 21 32 38 3d 30 3a 62 25 21 33 32 3d 56 76 25 3a |!28=0:b%!32=Vv%:|
000038a0 62 25 21 33 36 3d 56 77 25 3a 62 25 21 34 3d 35 |b%!36=Vw%:b%!4=5|
000038b0 3a 63 7a 25 3d 62 25 21 38 3a 64 55 25 3d 62 25 |:cz%=b%!8:dU%=b%|
000038c0 21 31 32 3a 64 56 24 3d 22 64 69 72 65 63 74 6f |!12:dV$="directo|
000038d0 72 79 22 3a 64 59 25 3d 36 38 0d 1f 2c 1c cb 3a |ry":dY%=68..,..:|
000038e0 57 61 25 3d 63 77 25 3a e7 63 77 25 3e 32 30 20 |Wa%=cw%:.cw%>20 |
000038f0 80 57 64 25 20 8c 0d 1f 4a 80 55 62 25 21 30 3d |.Wd% ...J.Ub%!0=|
00003900 63 7a 25 3a 55 62 25 21 34 3d 64 55 25 3a 55 62 |cz%:Ub%!4=dU%:Ub|
00003910 25 21 38 3d 63 7a 25 2b 64 59 25 3a 55 62 25 21 |%!8=cz%+dY%:Ub%!|
00003920 31 32 3d 64 55 25 2b 36 34 3a 55 62 25 21 31 36 |12=dU%+64:Ub%!16|
00003930 3d 2d 33 32 30 30 30 3a 55 62 25 21 32 30 3d 2d |=-32000:Ub%!20=-|
00003940 33 32 30 30 30 3a 55 62 25 21 32 34 3d 33 32 30 |32000:Ub%!24=320|
00003950 30 30 3a 55 62 25 21 32 38 3d 33 32 30 30 30 3a |00:Ub%!28=32000:|
00003960 c8 99 26 34 32 34 30 30 2c 26 43 35 2c 31 2c 64 |..&42400,&C5,1,d|
00003970 56 24 2c 55 62 25 0d 1f 68 12 cc 3a c8 99 26 34 |V$,Ub%..h..:..&4|
00003980 30 30 44 30 2c 2c 62 25 0d 1f 7c 12 cd 3a e7 63 |00D0,,b%..|..:.c|
00003990 77 25 3d 31 35 20 8c f2 64 61 0d 1f 90 05 e1 0d |w%=15 ..da......|
000039a0 1f a4 4b dd f2 61 6e 3a ea 64 62 2c 77 25 3a 64 |..K..an:.db,w%:d|
000039b0 62 3d bb 28 a4 73 28 57 67 25 29 29 2f 31 30 30 |b=.(.s(Wg%))/100|
000039c0 3a e7 64 62 3c 30 2e 31 20 84 64 62 3e 31 30 20 |:.db<0.1 .db>10 |
000039d0 8c 85 31 2c 22 49 6c 6c 65 67 61 6c 20 73 63 61 |..1,"Illegal sca|
000039e0 6c 65 20 66 61 63 74 6f 72 22 0d 1f cc 0b c8 8e |le factor"......|
000039f0 57 6d 25 20 ca 0d 1f d6 29 c9 31 3a 77 25 3d 56 |Wm% ....).1:w%=V|
00003a00 6e 25 3a 57 6a 3d 64 62 3a f2 5a 58 28 77 25 2c |n%:Wj=db:.ZX(w%,|
00003a10 63 74 25 2a 64 62 2c 63 75 25 2a 64 62 29 0d 1f |ct%*db,cu%*db)..|
00003a20 e0 29 c9 32 3a 77 25 3d 56 6f 25 3a 57 6b 3d 64 |.).2:w%=Vo%:Wk=d|
00003a30 62 3a f2 5a 58 28 77 25 2c 63 74 25 2a 64 62 2c |b:.ZX(w%,ct%*db,|
00003a40 63 75 25 2a 64 62 29 0d 1f ea 29 c9 33 3a 77 25 |cu%*db)...).3:w%|
00003a50 3d 61 5a 25 3a 57 6c 3d 64 62 3a f2 5a 58 28 77 |=aZ%:Wl=db:.ZX(w|
00003a60 25 2c 64 63 25 2a 64 62 2c 64 64 25 2a 64 62 29 |%,dc%*db,dd%*db)|
00003a70 0d 1f f4 1b cb 3a f2 63 76 3a f2 5a 57 28 77 25 |.....:.cv:.ZW(w%|
00003a80 29 3a f2 61 64 28 77 25 29 3a e1 0d 20 30 ed dd |):.ad(w%):.. 0..|
00003a90 f2 61 62 3a ea 64 65 24 2c 64 66 24 2c 64 67 25 |.ab:.de$,df$,dg%|
00003aa0 2c 74 25 3a 64 65 24 3d 22 46 72 61 6d 65 20 22 |,t%:de$="Frame "|
00003ab0 2b c3 64 68 25 2b 22 20 6f 66 20 22 2b c3 64 69 |+.dh%+" of "+.di|
00003ac0 25 2b 22 2e 20 4c 69 6e 65 20 22 2b c3 28 64 6a |%+". Line "+.(dj|
00003ad0 25 2b 31 29 2b 22 20 6f 66 20 22 2b c3 28 64 6b |%+1)+" of "+.(dk|
00003ae0 25 2d 31 29 2b 22 2e 22 3a 64 67 25 3d 31 30 30 |%-1)+".":dg%=100|
00003af0 2a 28 64 68 25 2d 31 2b 64 6a 25 2f 28 64 6b 25 |*(dh%-1+dj%/(dk%|
00003b00 2d 31 29 29 2f 64 69 25 3a c8 99 36 36 20 b8 74 |-1))/di%:..66 .t|
00003b10 25 3a 74 25 3d 28 74 25 2d 64 6c 25 29 2f 31 30 |%:t%=(t%-dl%)/10|
00003b20 30 3a 64 66 24 3d c3 64 67 25 2b 22 25 20 63 6f |0:df$=.dg%+"% co|
00003b30 6d 70 6c 65 74 65 64 20 28 69 6e 20 22 2b c3 74 |mpleted (in "+.t|
00003b40 25 2b 22 20 73 65 63 6f 6e 64 73 29 2e 22 3a 24 |%+" seconds).":$|
00003b50 58 73 25 3d 64 65 24 3a 24 58 75 25 3d 64 66 24 |Xs%=de$:$Xu%=df$|
00003b60 3a f2 5a 63 28 58 74 25 2c 30 29 3a f2 5a 63 28 |:.Zc(Xt%,0):.Zc(|
00003b70 58 74 25 2c 31 29 3a e1 0d 20 94 30 dd f2 64 61 |Xt%,1):.. .0..da|
00003b80 3a c8 99 26 34 30 30 45 39 2c 33 36 2c 31 2c 22 |:..&400E9,36,1,"|
00003b90 70 74 72 5f 74 69 6d 65 22 2c 32 2c 31 34 2c 36 |ptr_time",2,14,6|
00003ba0 3a 57 7a 25 3d b9 3a e1 0d 20 c6 32 dd f2 56 6d |:Wz%=.:.. .2..Vm|
00003bb0 3a c8 99 26 34 30 30 45 39 2c 33 36 2c 31 2c 22 |:..&400E9,36,1,"|
00003bc0 70 74 72 5f 64 65 66 61 75 6c 74 22 2c 31 2c 30 |ptr_default",1,0|
00003bd0 2c 30 3a 57 7a 25 3d a3 3a e1 0d 20 f8 8d dd f2 |,0:Wz%=.:.. ....|
00003be0 56 68 3a ea 64 5a 25 2c 78 25 2c 79 25 2c 5a 5a |Vh:.dZ%,x%,y%,ZZ|
00003bf0 25 3a 62 25 21 30 3d 56 6c 25 3a c8 99 26 34 30 |%:b%!0=Vl%:..&40|
00003c00 30 43 42 2c 2c 62 25 3a 64 5a 25 3d 62 25 21 34 |0CB,,b%:dZ%=b%!4|
00003c10 2d 62 25 21 32 30 3a c8 99 26 34 30 30 43 46 2c |-b%!20:..&400CF,|
00003c20 2c 62 25 3a 78 25 3d 62 25 21 30 3a 79 25 3d 62 |,b%:x%=b%!0:y%=b|
00003c30 25 21 34 3a 64 5a 25 3d 78 25 2d 64 5a 25 2d 32 |%!4:dZ%=x%-dZ%-2|
00003c40 35 36 3a 5a 5a 25 3d a4 63 59 28 59 6e 2c 64 5a |56:ZZ%=.cY(Yn,dZ|
00003c50 25 2c 55 74 25 2c 58 7a 25 2c 30 2c 30 2c 30 29 |%,Ut%,Xz%,0,0,0)|
00003c60 3a e7 57 7a 25 20 8c 0d 21 52 1a e7 62 25 21 31 |:.Wz% ..!R..b%!1|
00003c70 36 3c 3e 31 32 20 84 5a 5a 25 3d 30 20 8c f2 56 |6<>12 .ZZ%=0 ..V|
00003c80 6d 0d 21 5c 1b cc 3a e7 62 25 21 31 36 3d 31 32 |m.!\..:.b%!16=12|
00003c90 20 80 5a 5a 25 3e 30 20 8c f2 64 61 0d 21 70 07 | .ZZ%>0 ..da.!p.|
00003ca0 cd 3a e1 0d 21 8e 54 dd f2 59 69 3a ea 64 6d 25 |.:..!.T..Yi:.dm%|
00003cb0 2c 64 6e 25 2c 78 25 2c 79 25 2c 7a 2c 63 7a 25 |,dn%,x%,y%,z,cz%|
00003cc0 2c 64 55 25 2c 64 6f 25 3a c8 99 26 34 30 30 43 |,dU%,do%:..&400C|
00003cd0 46 2c 2c 62 25 3a 64 6d 25 3d 62 25 21 31 32 3a |F,,b%:dm%=b%!12:|
00003ce0 78 25 3d 62 25 21 30 3a 79 25 3d 62 25 21 34 3a |x%=b%!0:y%=b%!4:|
00003cf0 c8 8e 64 6d 25 20 ca 0d 21 c0 13 c9 56 6e 25 3a |..dm% ..!...Vn%:|
00003d00 64 6f 25 3d 30 3a 7a 3d 57 6a 0d 21 ca 13 c9 56 |do%=0:z=Wj.!...V|
00003d10 6f 25 3a 64 6f 25 3d 31 3a 7a 3d 57 6b 0d 21 d4 |o%:do%=1:z=Wk.!.|
00003d20 07 7f 3a e1 0d 21 e8 92 cb 3a 62 25 21 30 3d 64 |..:..!...:b%!0=d|
00003d30 6d 25 3a c8 99 26 34 30 30 43 42 2c 2c 62 25 3a |m%:..&400CB,,b%:|
00003d40 63 7a 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 64 |cz%=b%!4-b%!20:d|
00003d50 55 25 3d 62 25 21 31 36 2d 62 25 21 32 34 3a 64 |U%=b%!16-b%!24:d|
00003d60 70 25 3d 28 78 25 2d 63 7a 25 29 2f 28 7a 2a 62 |p%=(x%-cz%)/(z*b|
00003d70 63 25 29 3a 64 71 25 3d 28 79 25 2d 64 55 25 29 |c%):dq%=(y%-dU%)|
00003d80 2f 28 7a 2a 62 65 25 29 3a 64 6e 25 3d a4 63 59 |/(z*be%):dn%=.cY|
00003d90 28 59 69 2c 55 6b 25 2c 64 70 25 2c 64 71 25 2c |(Yi,Uk%,dp%,dq%,|
00003da0 62 66 25 2c 64 6f 25 2c 57 74 25 29 3a e7 64 6e |bf%,do%,Wt%):.dn|
00003db0 25 3d 30 20 8c e1 0d 22 24 30 64 6d 25 3d 64 6e |%=0 ..."$0dm%=dn|
00003dc0 25 21 31 36 3a e7 57 74 25 3d 32 20 8c 64 72 25 |%!16:.Wt%=2 .dr%|
00003dd0 3d 64 6d 25 20 83 64 73 25 3a 64 74 25 3d 64 6d |=dm% .ds%:dt%=dm|
00003de0 25 20 81 64 73 25 0d 22 38 05 e1 0d 22 4c 3c dd |% .ds%."8..."L<.|
00003df0 f2 56 65 28 64 75 25 29 3a ea 64 6d 25 2c 64 6f |.Ve(du%):.dm%,do|
00003e00 25 2c 7a 2c 63 7a 25 2c 64 55 25 2c 64 70 25 2c |%,z,cz%,dU%,dp%,|
00003e10 64 71 25 2c 64 6e 25 2c 78 25 2c 79 25 3a e7 64 |dq%,dn%,x%,y%:.d|
00003e20 75 25 20 80 31 20 8c 0d 22 6a 32 c8 99 26 34 30 |u% .1 .."j2..&40|
00003e30 30 43 46 2c 2c 62 25 3a 64 6d 25 3d 62 25 21 31 |0CF,,b%:dm%=b%!1|
00003e40 32 3a 78 25 3d 62 25 21 30 3a 79 25 3d 62 25 21 |2:x%=b%!0:y%=b%!|
00003e50 34 3a c8 8e 64 6d 25 20 ca 0d 22 7e 13 c9 56 6e |4:..dm% .."~..Vn|
00003e60 25 3a 64 6f 25 3d 30 3a 7a 3d 57 6a 0d 22 88 13 |%:do%=0:z=Wj."..|
00003e70 c9 56 6f 25 3a 64 6f 25 3d 31 3a 7a 3d 57 6b 0d |.Vo%:do%=1:z=Wk.|
00003e80 22 92 07 7f 3a e1 0d 22 a6 92 cb 3a 62 25 21 30 |"...:.."...:b%!0|
00003e90 3d 64 6d 25 3a c8 99 26 34 30 30 43 42 2c 2c 62 |=dm%:..&400CB,,b|
00003ea0 25 3a 63 7a 25 3d 62 25 21 34 2d 62 25 21 32 30 |%:cz%=b%!4-b%!20|
00003eb0 3a 64 55 25 3d 62 25 21 31 36 2d 62 25 21 32 34 |:dU%=b%!16-b%!24|
00003ec0 3a 64 70 25 3d 28 78 25 2d 63 7a 25 29 2f 28 7a |:dp%=(x%-cz%)/(z|
00003ed0 2a 62 63 25 29 3a 64 71 25 3d 28 79 25 2d 64 55 |*bc%):dq%=(y%-dU|
00003ee0 25 29 2f 28 7a 2a 62 65 25 29 3a 64 6e 25 3d a4 |%)/(z*be%):dn%=.|
00003ef0 63 59 28 59 69 2c 55 6b 25 2c 64 70 25 2c 64 71 |cY(Yi,Uk%,dp%,dq|
00003f00 25 2c 62 66 25 2c 64 6f 25 2c 57 74 25 29 3a e7 |%,bf%,do%,Wt%):.|
00003f10 64 6e 25 3d 30 20 8c e1 0d 22 e2 71 f2 64 76 28 |dn%=0 ...".q.dv(|
00003f20 56 6e 25 2c 64 6e 25 2c 57 6a 2c 64 75 25 2c 57 |Vn%,dn%,Wj,du%,W|
00003f30 76 25 2c 57 77 25 29 3a f2 64 76 28 56 6f 25 2c |v%,Ww%):.dv(Vo%,|
00003f40 64 6e 25 2b 38 2c 57 6b 2c 64 75 25 2c 57 78 25 |dn%+8,Wk,du%,Wx%|
00003f50 2c 57 79 25 29 3a 57 76 25 3d 64 6e 25 21 30 3a |,Wy%):Wv%=dn%!0:|
00003f60 57 77 25 3d 64 6e 25 21 34 3a 57 78 25 3d 64 6e |Ww%=dn%!4:Wx%=dn|
00003f70 25 21 38 3a 57 79 25 3d 64 6e 25 21 31 32 3a 64 |%!8:Wy%=dn%!12:d|
00003f80 6d 25 3d 64 6e 25 21 31 36 0d 23 0a 79 cc 3a 55 |m%=dn%!16.#.y.:U|
00003f90 62 25 21 30 3d 2d 32 3a 55 62 25 21 34 3d 2d 32 |b%!0=-2:Ub%!4=-2|
00003fa0 3a f2 64 76 28 56 6e 25 2c 55 62 25 2c 57 6a 2c |:.dv(Vn%,Ub%,Wj,|
00003fb0 32 2c 57 76 25 2c 57 77 25 29 3a 55 62 25 21 30 |2,Wv%,Ww%):Ub%!0|
00003fc0 3d 2d 32 3a 55 62 25 21 34 3d 2d 32 3a f2 64 76 |=-2:Ub%!4=-2:.dv|
00003fd0 28 56 6f 25 2c 55 62 25 2c 57 6b 2c 32 2c 57 78 |(Vo%,Ub%,Wk,2,Wx|
00003fe0 25 2c 57 79 25 29 3a 57 76 25 3d 2d 31 3a 57 77 |%,Wy%):Wv%=-1:Ww|
00003ff0 25 3d 2d 31 3a 57 78 25 3d 2d 31 3a 57 79 25 3d |%=-1:Wx%=-1:Wy%=|
00004000 2d 31 0d 23 46 07 cd 3a e1 0d 23 64 55 dd f2 64 |-1.#F..:..#dU..d|
00004010 76 28 77 25 2c 64 6e 25 2c 7a 2c 66 25 2c 64 77 |v(w%,dn%,z,f%,dw|
00004020 25 2c 64 78 25 29 3a ea 63 6d 25 2c 64 79 25 2c |%,dx%):.cm%,dy%,|
00004030 64 7a 25 2c 78 25 2c 79 25 3a 78 25 3d 64 6e 25 |dz%,x%,y%:x%=dn%|
00004040 21 30 3a 79 25 3d 64 6e 25 21 34 3a e7 78 25 3d |!0:y%=dn%!4:.x%=|
00004050 64 77 25 20 80 79 25 3d 64 78 25 20 8c e1 0d 23 |dw% .y%=dx% ...#|
00004060 8c 85 62 25 21 30 3d 77 25 3a 62 25 21 34 3d 30 |..b%!0=w%:b%!4=0|
00004070 3a 62 25 21 38 3d 30 3a 62 25 21 31 32 3d 33 32 |:b%!8=0:b%!12=32|
00004080 30 30 30 3a 62 25 21 31 36 3d 33 32 30 30 30 3a |000:b%!16=32000:|
00004090 c8 99 26 34 30 30 43 39 2c 2c 62 25 20 b8 63 6d |..&400C9,,b% .cm|
000040a0 25 3a 64 79 25 3d 62 25 21 34 2d 62 25 21 32 30 |%:dy%=b%!4-b%!20|
000040b0 3a 64 7a 25 3d 62 25 21 31 36 2d 62 25 21 32 34 |:dz%=b%!16-b%!24|
000040c0 3a c8 95 63 6d 25 3a e7 66 25 20 80 31 20 8c f2 |:..cm%:.f% .1 ..|
000040d0 65 55 28 64 79 25 2c 64 7a 25 2c 78 25 2c 79 25 |eU(dy%,dz%,x%,y%|
000040e0 2c 7a 29 0d 23 be 22 e7 66 25 20 80 32 20 8c f2 |,z).#.".f% .2 ..|
000040f0 65 55 28 64 79 25 2c 64 7a 25 2c 64 77 25 2c 64 |eU(dy%,dz%,dw%,d|
00004100 78 25 2c 7a 29 0d 23 c8 19 c8 99 26 34 30 30 43 |x%,z).#....&400C|
00004110 41 2c 2c 62 25 20 b8 63 6d 25 3a ce 3a e1 0d 24 |A,,b% .cm%:.:..$|
00004120 04 32 dd f2 65 56 3a 65 57 25 3d 31 30 32 34 2a |.2..eV:eW%=1024*|
00004130 bb 28 a4 73 28 58 71 25 29 29 3a 65 58 25 3d 31 |.(.s(Xq%)):eX%=1|
00004140 30 32 34 2a bb 28 a4 73 28 58 72 25 29 29 3a e1 |024*.(.s(Xr%)):.|
00004150 0d 24 36 2c dd f2 63 59 28 65 59 25 2c 41 25 2c |.$6,..cY(eY%,A%,|
00004160 42 25 2c 43 25 2c 44 25 2c 45 25 2c 46 25 29 3a |B%,C%,D%,E%,F%):|
00004170 d6 28 55 6c 25 2b 65 59 25 29 3a e1 0d 24 40 2e |.(Ul%+eY%):..$@.|
00004180 dd a4 63 59 28 65 59 25 2c 41 25 2c 42 25 2c 43 |..cY(eY%,A%,B%,C|
00004190 25 2c 44 25 2c 45 25 2c 46 25 29 3a 65 59 25 2b |%,D%,E%,F%):eY%+|
000041a0 3d 55 6c 25 3a 3d ba 65 59 25 0d 24 68 3b dd f2 |=Ul%:=.eY%.$h;..|
000041b0 61 6b 28 78 25 2c 79 25 2c 77 25 2c 5a 74 25 29 |ak(x%,y%,w%,Zt%)|
000041c0 3a ea 70 25 2c 64 6f 25 2c 7a 2c 64 70 25 2c 64 |:.p%,do%,z,dp%,d|
000041d0 71 25 2c 63 7a 25 2c 64 55 25 2c 65 5a 25 3a c8 |q%,cz%,dU%,eZ%:.|
000041e0 8e 77 25 20 ca 0d 24 86 13 c9 56 6e 25 3a 64 6f |.w% ..$...Vn%:do|
000041f0 25 3d 30 3a 7a 3d 57 6a 0d 24 90 13 c9 56 6f 25 |%=0:z=Wj.$...Vo%|
00004200 3a 64 6f 25 3d 31 3a 7a 3d 57 6b 0d 24 9a a5 cb |:do%=1:z=Wk.$...|
00004210 3a 62 25 21 30 3d 77 25 3a c8 99 26 34 30 30 43 |:b%!0=w%:..&400C|
00004220 42 2c 2c 62 25 3a 63 7a 25 3d 62 25 21 34 2d 62 |B,,b%:cz%=b%!4-b|
00004230 25 21 32 30 3a 64 55 25 3d 62 25 21 31 36 2d 62 |%!20:dU%=b%!16-b|
00004240 25 21 32 34 3a 64 70 25 3d 28 78 25 2d 63 7a 25 |%!24:dp%=(x%-cz%|
00004250 29 2f 28 7a 2a 62 63 25 29 3a 64 71 25 3d 28 79 |)/(z*bc%):dq%=(y|
00004260 25 2d 64 55 25 29 2f 28 7a 2a 62 65 25 29 3a 70 |%-dU%)/(z*be%):p|
00004270 25 3d a4 63 59 28 59 65 2c 55 6b 25 2c 64 70 25 |%=.cY(Ye,Uk%,dp%|
00004280 2c 64 71 25 2c 62 66 25 2c 64 6f 25 2c 30 29 3a |,dq%,bf%,do%,0):|
00004290 e7 70 25 3d 2d 31 20 8c 85 31 2c 22 43 61 6e 27 |.p%=-1 ..1,"Can'|
000042a0 74 20 66 69 6e 64 20 61 20 70 6f 69 6e 74 2e 22 |t find a point."|
000042b0 0d 24 d6 1d 65 5a 25 3d 55 6b 25 2b 38 2b 34 38 |.$..eZ%=Uk%+8+48|
000042c0 2a 70 25 3a e7 5a 74 25 20 80 31 20 8c 0d 24 ea |*p%:.Zt% .1 ..$.|
000042d0 4c e7 65 5a 25 3f 33 30 3c 3e 32 35 35 20 8c 85 |L.eZ%?30<>255 ..|
000042e0 31 2c 22 59 6f 75 20 63 61 6e 27 74 20 65 64 69 |1,"You can't edi|
000042f0 74 20 74 68 65 20 70 61 74 68 20 66 6f 72 20 61 |t the path for a|
00004300 20 6b 6e 6f 74 20 74 68 61 74 20 68 61 73 20 6e | knot that has n|
00004310 6f 20 70 61 74 68 21 21 22 0d 24 f4 34 f2 5a 58 |o path!!".$.4.ZX|
00004320 28 59 79 25 2c 7a 2a 63 74 25 2c 7a 2a 63 75 25 |(Yy%,z*ct%,z*cu%|
00004330 29 3a 62 64 3d 7a 3a 58 56 25 3d 70 25 3a 65 61 |):bd=z:XV%=p%:ea|
00004340 25 3d 77 25 3a f2 5a 57 28 59 79 25 29 0d 25 12 |%=w%:.ZW(Yy%).%.|
00004350 10 cc 3a c8 8e 65 5a 25 3f 33 30 20 ca 0d 25 26 |..:..eZ%?30 ..%&|
00004360 2d c9 30 2c 31 2c 32 2c 33 2c 34 2c 35 2c 36 2c |-.0,1,2,3,4,5,6,|
00004370 37 3a 65 5a 25 3f 33 31 3d 65 5a 25 3f 33 30 3a |7:eZ%?31=eZ%?30:|
00004380 65 5a 25 3f 33 30 3d 32 35 35 0d 25 30 16 c9 32 |eZ%?30=255.%0..2|
00004390 35 35 3a 65 5a 25 3f 33 30 3d 65 5a 25 3f 33 31 |55:eZ%?30=eZ%?31|
000043a0 0d 25 3a 0f cb 3a f2 65 62 28 70 25 2c 33 29 0d |.%:..:.eb(p%,3).|
000043b0 25 4e 07 cd 3a e1 0d 25 6c 4a dd f2 56 63 3a ea |%N..:..%lJ..Vc:.|
000043c0 78 25 2c 79 25 2c 77 25 2c 7a 2c 64 77 25 2c 64 |x%,y%,w%,z,dw%,d|
000043d0 78 25 3a c8 99 26 34 30 30 43 46 2c 2c 62 25 3a |x%:..&400CF,,b%:|
000043e0 78 25 3d 62 25 21 30 3a 79 25 3d 62 25 21 34 3a |x%=b%!0:y%=b%!4:|
000043f0 77 25 3d 62 25 21 31 32 3a c8 8e 58 55 25 20 ca |w%=b%!12:..XU% .|
00004400 0d 25 9e 26 c9 31 3a e7 59 63 25 3d 30 20 8c 77 |.%.&.1:.Yc%=0 .w|
00004410 25 3d 56 6e 25 3a 7a 3d 57 6a 8b 77 25 3d 56 6f |%=Vn%:z=Wj.w%=Vo|
00004420 25 3a 7a 3d 57 6b 0d 25 a8 76 62 25 21 30 3d 77 |%:z=Wk.%.vb%!0=w|
00004430 25 3a c8 99 26 34 30 30 43 42 2c 2c 62 25 3a 64 |%:..&400CB,,b%:d|
00004440 77 25 3d 63 70 25 3a 64 78 25 3d 63 71 25 3a 63 |w%=cp%:dx%=cq%:c|
00004450 70 25 3d 28 78 25 2d 62 25 21 34 2b 62 25 21 32 |p%=(x%-b%!4+b%!2|
00004460 30 29 2f 28 7a 2a 62 63 25 29 3a 63 71 25 3d 28 |0)/(z*bc%):cq%=(|
00004470 79 25 2d 62 25 21 31 36 2b 62 25 21 32 34 29 2f |y%-b%!16+b%!24)/|
00004480 28 7a 2a 62 65 25 29 3a e7 64 77 25 3d 63 70 25 |(z*be%):.dw%=cp%|
00004490 20 80 64 78 25 3d 63 71 25 20 8c e1 0d 25 d0 34 | .dx%=cq% ...%.4|
000044a0 f2 63 6f 28 64 77 25 2c 64 78 25 2c 59 63 25 2c |.co(dw%,dx%,Yc%,|
000044b0 59 62 25 29 3a f2 63 6f 28 63 70 25 2c 63 71 25 |Yb%):.co(cp%,cq%|
000044c0 2c 59 63 25 2c 59 62 25 29 3a f2 56 65 28 33 29 |,Yc%,Yb%):.Ve(3)|
000044d0 0d 25 ee 4c c9 32 3a 62 25 21 30 3d 56 6c 25 3a |.%.L.2:b%!0=Vl%:|
000044e0 c8 99 26 34 30 30 43 42 2c 2c 62 25 3a 78 25 2d |..&400CB,,b%:x%-|
000044f0 3d 62 25 21 34 2d 62 25 21 32 30 2b 32 35 36 3a |=b%!4-b%!20+256:|
00004500 e7 78 25 3c 3e 63 70 25 20 8c f2 65 63 28 63 70 |.x%<>cp% ..ec(cp|
00004510 25 2c 78 25 29 3a 63 70 25 3d 78 25 0d 26 0c 07 |%,x%):cp%=x%.&..|
00004520 f2 64 61 0d 26 16 07 cb 3a e1 0d 26 34 dd dd f2 |.da.&...:..&4...|
00004530 65 63 28 64 77 25 2c 65 64 25 29 3a ea 63 6d 25 |ec(dw%,ed%):.cm%|
00004540 2c 78 25 2c 79 25 3a 62 25 21 30 3d 56 6c 25 3a |,x%,y%:b%!0=Vl%:|
00004550 62 25 21 34 3d 30 3a 62 25 21 38 3d 30 3a 62 25 |b%!4=0:b%!8=0:b%|
00004560 21 31 32 3d 33 30 30 30 30 3a 62 25 21 31 36 3d |!12=30000:b%!16=|
00004570 33 30 30 30 30 3a c8 99 26 34 30 30 43 39 2c 2c |30000:..&400C9,,|
00004580 62 25 20 b8 63 6d 25 3a 78 25 3d 62 25 21 34 2d |b% .cm%:x%=b%!4-|
00004590 62 25 21 32 30 2b 32 35 36 3a 79 25 3d 62 25 21 |b%!20+256:y%=b%!|
000045a0 31 36 2d 62 25 21 32 34 2b 31 36 34 3a c8 95 63 |16-b%!24+164:..c|
000045b0 6d 25 3a c8 99 26 34 30 30 45 36 2c 31 3a ec 78 |m%:..&400E6,1:.x|
000045c0 25 2b 64 77 25 2c 79 25 3a df 42 59 20 30 2c 35 |%+dw%,y%:.BY 0,5|
000045d0 36 3a c8 99 26 34 30 30 45 36 2c 31 31 3a ec 78 |6:..&400E6,11:.x|
000045e0 25 2b 65 64 25 2c 79 25 3a df 42 59 20 30 2c 35 |%+ed%,y%:.BY 0,5|
000045f0 36 3a c8 99 26 34 30 30 43 41 2c 2c 62 25 20 b8 |6:..&400CA,,b% .|
00004600 63 6d 25 3a ce 3a e1 0d 26 c0 23 dd f2 63 6f 28 |cm%:.:..&.#..co(|
00004610 78 25 2c 79 25 2c 65 65 25 2c 65 66 25 29 3a ea |x%,y%,ee%,ef%):.|
00004620 7a 3a e7 65 65 25 3d 30 20 8c 0d 26 de 31 f2 65 |z:.ee%=0 ..&.1.e|
00004630 67 28 56 6e 25 2c 57 6a 2c 78 25 2c 79 25 2c 30 |g(Vn%,Wj,x%,y%,0|
00004640 29 3a e7 65 66 25 20 8c f2 65 67 28 56 6f 25 2c |):.ef% ..eg(Vo%,|
00004650 57 6b 2c 78 25 2c 79 25 2c 38 29 0d 26 f2 33 cc |Wk,x%,y%,8).&.3.|
00004660 3a f2 65 67 28 56 6f 25 2c 57 6b 2c 78 25 2c 79 |:.eg(Vo%,Wk,x%,y|
00004670 25 2c 38 29 3a e7 65 66 25 20 8c f2 65 67 28 56 |%,8):.ef% ..eg(V|
00004680 6e 25 2c 57 6a 2c 78 25 2c 79 25 2c 30 29 0d 27 |n%,Wj,x%,y%,0).'|
00004690 10 07 cd 3a e1 0d 27 2e fc dd f2 65 67 28 77 25 |...:..'....eg(w%|
000046a0 2c 7a 2c 78 25 2c 79 25 2c 63 62 25 29 3a ea 63 |,z,x%,y%,cb%):.c|
000046b0 6d 25 2c 64 79 25 2c 64 7a 25 2c 63 69 2c 63 6a |m%,dy%,dz%,ci,cj|
000046c0 3a 62 25 21 30 3d 77 25 3a 62 25 21 34 3d 30 3a |:b%!0=w%:b%!4=0:|
000046d0 62 25 21 38 3d 30 3a 62 25 21 31 32 3d 33 32 30 |b%!8=0:b%!12=320|
000046e0 30 30 3a 62 25 21 31 36 3d 33 32 30 30 30 3a c8 |00:b%!16=32000:.|
000046f0 99 26 34 30 30 43 39 2c 2c 62 25 20 b8 63 6d 25 |.&400C9,,b% .cm%|
00004700 3a 64 79 25 3d 62 25 21 34 2d 62 25 21 32 30 3a |:dy%=b%!4-b%!20:|
00004710 64 7a 25 3d 62 25 21 31 36 2d 62 25 21 32 34 3a |dz%=b%!16-b%!24:|
00004720 63 69 3d 7a 2a 62 63 25 3a 63 6a 3d 7a 2a 62 65 |ci=z*bc%:cj=z*be|
00004730 25 3a c8 95 63 6d 25 3a c8 99 26 34 30 30 45 36 |%:..cm%:..&400E6|
00004740 2c 37 39 3a f2 65 68 28 65 69 25 2d 31 2c 65 6a |,79:.eh(ei%-1,ej|
00004750 25 2c 78 25 2c 79 25 2c 64 79 25 2c 64 7a 25 2c |%,x%,y%,dy%,dz%,|
00004760 63 69 2c 63 6a 2c 63 62 25 29 3a f2 65 68 28 65 |ci,cj,cb%):.eh(e|
00004770 69 25 2b 31 2c 65 6a 25 2c 78 25 2c 79 25 2c 64 |i%+1,ej%,x%,y%,d|
00004780 79 25 2c 64 7a 25 2c 63 69 2c 63 6a 2c 63 62 25 |y%,dz%,ci,cj,cb%|
00004790 29 0d 27 92 67 f2 65 68 28 65 69 25 2c 65 6a 25 |).'.g.eh(ei%,ej%|
000047a0 2d 31 2c 78 25 2c 79 25 2c 64 79 25 2c 64 7a 25 |-1,x%,y%,dy%,dz%|
000047b0 2c 63 69 2c 63 6a 2c 63 62 25 29 3a f2 65 68 28 |,ci,cj,cb%):.eh(|
000047c0 65 69 25 2c 65 6a 25 2b 31 2c 78 25 2c 79 25 2c |ei%,ej%+1,x%,y%,|
000047d0 64 79 25 2c 64 7a 25 2c 63 69 2c 63 6a 2c 63 62 |dy%,dz%,ci,cj,cb|
000047e0 25 29 3a c8 99 26 34 30 30 43 41 2c 2c 62 25 20 |%):..&400CA,,b% |
000047f0 b8 63 6d 25 3a ce 3a e1 0d 27 ce 54 dd f2 65 68 |.cm%:.:..'.T..eh|
00004800 28 65 6b 25 2c 65 6c 25 2c 78 25 2c 79 25 2c 64 |(ek%,el%,x%,y%,d|
00004810 79 25 2c 64 7a 25 2c 63 69 2c 63 6a 2c 63 62 25 |y%,dz%,ci,cj,cb%|
00004820 29 3a ea 70 25 3a e7 65 6b 25 3c 30 20 84 65 6c |):.p%:.ek%<0 .el|
00004830 25 3c 30 20 84 65 6b 25 3e 64 73 25 2d 31 20 84 |%<0 .ek%>ds%-1 .|
00004840 65 6c 25 3e 64 6b 25 2d 31 20 8c e1 0d 27 ec 51 |el%>dk%-1 ...'.Q|
00004850 70 25 3d 55 6b 25 2b 38 2b 34 38 2a 28 65 6b 25 |p%=Uk%+8+48*(ek%|
00004860 2b 64 73 25 2a 65 6c 25 29 2b 63 62 25 3a ec 78 |+ds%*el%)+cb%:.x|
00004870 25 2a 63 69 2b 64 79 25 2c 79 25 2a 63 6a 2b 64 |%*ci+dy%,y%*cj+d|
00004880 7a 25 3a df 70 25 21 30 2a 63 69 2b 64 79 25 2c |z%:.p%!0*ci+dy%,|
00004890 70 25 21 34 2a 63 6a 2b 64 7a 25 3a e1 0d 28 14 |p%!4*cj+dz%:..(.|
000048a0 3c dd f2 61 68 28 64 6f 25 2c 65 66 25 2c 63 77 |<..ah(do%,ef%,cw|
000048b0 25 2c 78 25 2c 79 25 29 3a ea 70 25 2c 77 25 2c |%,x%,y%):.p%,w%,|
000048c0 7a 2c 64 70 25 2c 64 71 25 2c 63 7a 25 2c 64 55 |z,dp%,dq%,cz%,dU|
000048d0 25 3a c8 8e 64 6f 25 20 ca 0d 28 32 12 c9 30 3a |%:..do% ..(2..0:|
000048e0 77 25 3d 56 6e 25 3a 7a 3d 57 6a 0d 28 3c 12 c9 |w%=Vn%:z=Wj.(<..|
000048f0 31 3a 77 25 3d 56 6f 25 3a 7a 3d 57 6b 0d 28 46 |1:w%=Vo%:z=Wk.(F|
00004900 a5 cb 3a 62 25 21 30 3d 77 25 3a c8 99 26 34 30 |..:b%!0=w%:..&40|
00004910 30 43 42 2c 2c 62 25 3a 63 7a 25 3d 62 25 21 34 |0CB,,b%:cz%=b%!4|
00004920 2d 62 25 21 32 30 3a 64 55 25 3d 62 25 21 31 36 |-b%!20:dU%=b%!16|
00004930 2d 62 25 21 32 34 3a 64 70 25 3d 28 78 25 2d 63 |-b%!24:dp%=(x%-c|
00004940 7a 25 29 2f 28 7a 2a 62 63 25 29 3a 64 71 25 3d |z%)/(z*bc%):dq%=|
00004950 28 79 25 2d 64 55 25 29 2f 28 7a 2a 62 65 25 29 |(y%-dU%)/(z*be%)|
00004960 3a 70 25 3d a4 63 59 28 59 65 2c 55 6b 25 2c 64 |:p%=.cY(Ye,Uk%,d|
00004970 70 25 2c 64 71 25 2c 62 66 25 2c 64 6f 25 2c 30 |p%,dq%,bf%,do%,0|
00004980 29 3a e7 70 25 3d 2d 31 20 8c 85 31 2c 22 43 61 |):.p%=-1 ..1,"Ca|
00004990 6e 27 74 20 66 69 6e 64 20 61 20 70 6f 69 6e 74 |n't find a point|
000049a0 2e 22 0d 28 82 96 59 61 25 3d 70 25 3a f2 61 66 |.".(..Ya%=p%:.af|
000049b0 28 78 25 2c 79 25 2c 63 77 25 29 3a 65 69 25 3d |(x%,y%,cw%):ei%=|
000049c0 70 25 20 83 64 73 25 3a 65 6a 25 3d 70 25 20 81 |p% .ds%:ej%=p% .|
000049d0 64 73 25 3a 63 70 25 3d 55 6b 25 21 28 38 2b 34 |ds%:cp%=Uk%!(8+4|
000049e0 38 2a 70 25 2b 38 2a 64 6f 25 29 3a 63 71 25 3d |8*p%+8*do%):cq%=|
000049f0 55 6b 25 21 28 38 2b 34 38 2a 70 25 2b 34 2b 38 |Uk%!(8+48*p%+4+8|
00004a00 2a 64 6f 25 29 3a 56 63 25 3d b9 3a 58 55 25 3d |*do%):Vc%=.:XU%=|
00004a10 31 3a 59 63 25 3d 64 6f 25 3a 59 62 25 3d 65 66 |1:Yc%=do%:Yb%=ef|
00004a20 25 3a f2 63 6f 28 63 70 25 2c 63 71 25 2c 59 63 |%:.co(cp%,cq%,Yc|
00004a30 25 2c 59 62 25 29 3a e1 0d 28 e6 c2 dd f2 65 6d |%,Yb%):..(....em|
00004a40 28 69 25 29 3a ea 78 25 2c 79 25 2c 65 6e 25 2c |(i%):.x%,y%,en%,|
00004a50 70 25 3a 70 25 3d 55 6b 25 2b 38 2b 38 2a 28 69 |p%:p%=Uk%+8+8*(i|
00004a60 25 2d 31 29 3a e3 79 25 3d 30 20 b8 64 6b 25 2d |%-1):.y%=0 .dk%-|
00004a70 31 3a 65 6e 25 3d 70 25 2b 34 38 2a 79 25 2a 64 |1:en%=p%+48*y%*d|
00004a80 73 25 3a 65 6e 25 21 30 3d 30 3a 65 6e 25 3d 70 |s%:en%!0=0:en%=p|
00004a90 25 2b 34 38 2a 28 79 25 2a 64 73 25 2b 64 73 25 |%+48*(y%*ds%+ds%|
00004aa0 2d 31 29 3a 65 6e 25 21 30 3d 5a 66 25 3a ed 3a |-1):en%!0=Zf%:.:|
00004ab0 e3 78 25 3d 30 20 b8 64 73 25 2d 31 3a 65 6e 25 |.x%=0 .ds%-1:en%|
00004ac0 3d 70 25 2b 34 38 2a 78 25 3a 65 6e 25 21 34 3d |=p%+48*x%:en%!4=|
00004ad0 30 3a 65 6e 25 3d 70 25 2b 34 38 2a 28 78 25 2b |0:en%=p%+48*(x%+|
00004ae0 28 64 6b 25 2d 31 29 2a 64 73 25 29 3a 65 6e 25 |(dk%-1)*ds%):en%|
00004af0 21 34 3d 5a 67 25 3a ed 3a e1 0d 29 90 43 dd f2 |!4=Zg%:.:..).C..|
00004b00 61 69 28 78 25 2c 79 25 2c 65 6f 25 2c 77 25 29 |ai(x%,y%,eo%,w%)|
00004b10 3a ea 63 7a 25 2c 64 55 25 2c 7a 2c 64 6f 25 2c |:.cz%,dU%,z,do%,|
00004b20 64 70 25 2c 64 71 25 2c 70 25 2c 65 5a 25 2c 65 |dp%,dq%,p%,eZ%,e|
00004b30 70 25 2c 62 6d 25 3a c8 8e 77 25 20 ca 0d 29 ae |p%,bm%:..w% ..).|
00004b40 13 c9 56 6e 25 3a 7a 3d 57 6a 3a 64 6f 25 3d 30 |..Vn%:z=Wj:do%=0|
00004b50 0d 29 b8 13 c9 56 6f 25 3a 7a 3d 57 6b 3a 64 6f |.)...Vo%:z=Wk:do|
00004b60 25 3d 31 0d 29 c2 8e cb 3a 62 25 21 30 3d 77 25 |%=1.)...:b%!0=w%|
00004b70 3a c8 99 26 34 30 30 43 42 2c 2c 62 25 3a 63 7a |:..&400CB,,b%:cz|
00004b80 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 64 55 25 |%=b%!4-b%!20:dU%|
00004b90 3d 62 25 21 31 36 2d 62 25 21 32 34 3a 64 70 25 |=b%!16-b%!24:dp%|
00004ba0 3d 28 78 25 2d 63 7a 25 29 2f 28 7a 2a 62 63 25 |=(x%-cz%)/(z*bc%|
00004bb0 29 3a 64 71 25 3d 28 79 25 2d 64 55 25 29 2f 28 |):dq%=(y%-dU%)/(|
00004bc0 7a 2a 62 65 25 29 3a 70 25 3d a4 63 59 28 59 65 |z*be%):p%=.cY(Ye|
00004bd0 2c 55 6b 25 2c 64 70 25 2c 64 71 25 2c 62 66 25 |,Uk%,dp%,dq%,bf%|
00004be0 2c 64 6f 25 2c 30 29 3a e7 70 25 3d 2d 31 20 8c |,do%,0):.p%=-1 .|
00004bf0 e1 0d 29 fe 5e 64 70 25 3d 70 25 20 83 64 73 25 |..).^dp%=p% .ds%|
00004c00 3a 64 71 25 3d 70 25 20 81 64 73 25 3a 65 5a 25 |:dq%=p% .ds%:eZ%|
00004c10 3d 55 6b 25 2b 38 2b 34 38 2a 70 25 2b 32 39 3a |=Uk%+8+48*p%+29:|
00004c20 65 70 25 3d 28 65 5a 25 3f 30 29 80 33 3a e7 65 |ep%=(eZ%?0).3:.e|
00004c30 6f 25 20 8c 62 6d 25 3d 28 65 70 25 2b 31 29 80 |o% .bm%=(ep%+1).|
00004c40 33 8b 62 6d 25 3d 28 65 70 25 2b 33 29 80 33 0d |3.bm%=(ep%+3).3.|
00004c50 2a 26 1a e7 64 70 25 3d 30 20 8c 62 6d 25 3d 28 |*&..dp%=0 .bm%=(|
00004c60 62 6d 25 20 80 32 35 34 29 0d 2a 30 1a e7 64 71 |bm% .254).*0..dq|
00004c70 25 3d 30 20 8c 62 6d 25 3d 28 62 6d 25 20 80 32 |%=0 .bm%=(bm% .2|
00004c80 35 33 29 0d 2a 3a 25 3f 65 5a 25 3d 28 28 3f 65 |53).*:%?eZ%=((?e|
00004c90 5a 25 29 80 32 35 32 29 84 62 6d 25 3a f2 65 71 |Z%).252).bm%:.eq|
00004ca0 28 70 25 2c 33 29 3a e1 0d 2a 62 3f dd f2 61 6a |(p%,3):..*b?..aj|
00004cb0 28 78 25 2c 79 25 2c 65 6f 25 2c 77 25 29 3a ea |(x%,y%,eo%,w%):.|
00004cc0 63 7a 25 2c 64 55 25 2c 7a 2c 64 6f 25 2c 64 70 |cz%,dU%,z,do%,dp|
00004cd0 25 2c 64 71 25 2c 70 25 2c 65 5a 25 2c 65 72 25 |%,dq%,p%,eZ%,er%|
00004ce0 3a c8 8e 77 25 20 ca 0d 2a 80 13 c9 56 6e 25 3a |:..w% ..*...Vn%:|
00004cf0 7a 3d 57 6a 3a 64 6f 25 3d 30 0d 2a 8a 13 c9 56 |z=Wj:do%=0.*...V|
00004d00 6f 25 3a 7a 3d 57 6b 3a 64 6f 25 3d 31 0d 2a 94 |o%:z=Wk:do%=1.*.|
00004d10 8e cb 3a 62 25 21 30 3d 77 25 3a c8 99 26 34 30 |..:b%!0=w%:..&40|
00004d20 30 43 42 2c 2c 62 25 3a 63 7a 25 3d 62 25 21 34 |0CB,,b%:cz%=b%!4|
00004d30 2d 62 25 21 32 30 3a 64 55 25 3d 62 25 21 31 36 |-b%!20:dU%=b%!16|
00004d40 2d 62 25 21 32 34 3a 64 70 25 3d 28 78 25 2d 63 |-b%!24:dp%=(x%-c|
00004d50 7a 25 29 2f 28 7a 2a 62 63 25 29 3a 64 71 25 3d |z%)/(z*bc%):dq%=|
00004d60 28 79 25 2d 64 55 25 29 2f 28 7a 2a 62 65 25 29 |(y%-dU%)/(z*be%)|
00004d70 3a 70 25 3d a4 63 59 28 59 65 2c 55 6b 25 2c 64 |:p%=.cY(Ye,Uk%,d|
00004d80 70 25 2c 64 71 25 2c 62 66 25 2c 64 6f 25 2c 30 |p%,dq%,bf%,do%,0|
00004d90 29 3a e7 70 25 3d 2d 31 20 8c e1 0d 2a d0 62 64 |):.p%=-1 ...*.bd|
00004da0 70 25 3d 70 25 20 83 64 73 25 3a 64 71 25 3d 70 |p%=p% .ds%:dq%=p|
00004db0 25 20 81 64 73 25 3a 65 5a 25 3d 55 6b 25 2b 38 |% .ds%:eZ%=Uk%+8|
00004dc0 2b 34 38 2a 70 25 3a e7 65 5a 25 3f 33 30 3d 32 |+48*p%:.eZ%?30=2|
00004dd0 35 35 20 8c 85 31 2c 22 54 68 61 74 20 6b 6e 6f |55 ..1,"That kno|
00004de0 74 20 64 6f 65 73 6e 27 74 20 62 65 6c 6f 6e 67 |t doesn't belong|
00004df0 20 74 6f 20 61 20 67 72 6f 75 70 2e 22 0d 2a ee | to a group.".*.|
00004e00 27 65 72 25 3d 28 65 5a 25 3f 33 30 29 80 31 35 |'er%=(eZ%?30).15|
00004e10 3a e7 65 6f 25 20 8c 65 72 25 2b 3d 31 8b 65 72 |:.eo% .er%+=1.er|
00004e20 25 2d 3d 31 0d 2b 02 11 e7 65 72 25 3c 30 20 8c |%-=1.+...er%<0 .|
00004e30 65 72 25 3d 37 0d 2b 0c 11 e7 65 72 25 3e 37 20 |er%=7.+...er%>7 |
00004e40 8c 65 72 25 3d 30 0d 2b 16 2a 65 5a 25 3f 33 30 |.er%=0.+.*eZ%?30|
00004e50 3d 28 28 65 5a 25 3f 33 30 29 80 20 ac 31 35 29 |=((eZ%?30). .15)|
00004e60 84 65 72 25 3a f2 65 62 28 70 25 2c 33 29 3a e1 |.er%:.eb(p%,3):.|
00004e70 0d 2b 3e 18 dd f2 59 70 3a f2 65 73 28 31 29 3a |.+>...Yp:.es(1):|
00004e80 f2 65 73 28 32 29 3a e1 0d 2b 52 73 dd f2 65 74 |.es(2):..+Rs..et|
00004e90 28 65 72 25 29 3a ea 78 25 2c 79 25 2c 65 6e 25 |(er%):.x%,y%,en%|
00004ea0 2c 63 25 3a 63 25 3d 30 3a e3 79 25 3d 30 20 b8 |,c%:c%=0:.y%=0 .|
00004eb0 64 6b 25 2d 31 3a e3 78 25 3d 30 20 b8 64 73 25 |dk%-1:.x%=0 .ds%|
00004ec0 2d 31 3a 65 6e 25 3d 55 6b 25 2b 34 38 2a 63 25 |-1:en%=Uk%+48*c%|
00004ed0 2b 38 3a 65 6e 25 3f 33 30 3d 65 72 25 3a 63 25 |+8:en%?30=er%:c%|
00004ee0 2b 3d 31 3a ed 3a ed 3a f2 61 64 28 56 6e 25 29 |+=1:.:.:.ad(Vn%)|
00004ef0 3a f2 61 64 28 56 6f 25 29 3a e1 0d 2b d4 83 dd |:.ad(Vo%):..+...|
00004f00 f2 65 73 28 69 25 29 3a ea 78 25 2c 79 25 2c 63 |.es(i%):.x%,y%,c|
00004f10 25 2c 65 6e 25 3a 78 25 3d 28 31 3c 3c 31 38 29 |%,en%:x%=(1<<18)|
00004f20 2a 5a 66 25 2f 28 64 73 25 2d 31 29 3a 79 25 3d |*Zf%/(ds%-1):y%=|
00004f30 28 31 3c 3c 31 38 29 2a 5a 67 25 2f 28 64 6b 25 |(1<<18)*Zg%/(dk%|
00004f40 2d 31 29 3a f2 63 59 28 59 70 2c 55 6b 25 2c 64 |-1):.cY(Yp,Uk%,d|
00004f50 73 25 2c 64 6b 25 2c 78 25 2c 79 25 2c 69 25 2d |s%,dk%,x%,y%,i%-|
00004f60 31 29 3a 55 6b 25 21 30 3d 64 73 25 3a 55 6b 25 |1):Uk%!0=ds%:Uk%|
00004f70 21 34 3d 64 6b 25 3a e7 69 25 3d 30 20 8c 0d 2c |!4=dk%:.i%=0 ..,|
00004f80 1a 0c f2 61 64 28 56 6e 25 29 0d 2c 24 0e cc 3a |...ad(Vn%).,$..:|
00004f90 f2 61 64 28 56 6f 25 29 0d 2c 38 1a cd 3a 61 63 |.ad(Vo%).,8..:ac|
00004fa0 25 3d b9 3a f2 57 75 28 59 75 25 2c 31 2c b9 29 |%=.:.Wu(Yu%,1,.)|
00004fb0 3a e1 0d 2c 60 23 dd f2 65 75 28 65 65 25 2c 65 |:..,`#..eu(ee%,e|
00004fc0 76 25 29 3a ea 70 25 2c 77 25 2c 6e 25 3a c8 8e |v%):.p%,w%,n%:..|
00004fd0 65 76 25 20 ca 0d 2c 7e 0d c9 31 3a 77 25 3d 56 |ev% ..,~..1:w%=V|
00004fe0 6e 25 0d 2c 88 0d c9 32 3a 77 25 3d 56 6f 25 0d |n%.,...2:w%=Vo%.|
00004ff0 2c 92 67 cb 3a 65 65 25 3d 65 65 25 2a 38 3a 65 |,.g.:ee%=ee%*8:e|
00005000 76 25 3d 65 76 25 2a 38 3a e3 6e 25 3d 30 20 b8 |v%=ev%*8:.n%=0 .|
00005010 64 73 25 2a 64 6b 25 2d 31 3a 70 25 3d 55 6b 25 |ds%*dk%-1:p%=Uk%|
00005020 2b 34 38 2a 6e 25 3a 70 25 21 65 76 25 3d 70 25 |+48*n%:p%!ev%=p%|
00005030 21 65 65 25 3a 70 25 21 28 65 76 25 2b 34 29 3d |!ee%:p%!(ev%+4)=|
00005040 70 25 21 28 65 65 25 2b 34 29 3a ed 3a f2 61 64 |p%!(ee%+4):.:.ad|
00005050 28 77 25 29 3a e1 0d 2c f6 74 dd a4 65 75 3a ea |(w%):..,.t..eu:.|
00005060 70 25 2c 73 25 2c 69 25 3a 73 25 3d 31 2b 28 38 |p%,s%,i%:s%=1+(8|
00005070 2b 34 38 2a 64 73 25 2a 64 6b 25 29 2f 31 30 32 |+48*ds%*dk%)/102|
00005080 34 3a 70 25 3d a4 65 77 28 73 25 2a 31 30 32 34 |4:p%=.ew(s%*1024|
00005090 29 3a e7 70 25 3c 3d 30 85 31 2c 22 4e 6f 20 72 |):.p%<=0.1,"No r|
000050a0 6f 6f 6d 20 66 6f 72 20 74 65 6d 70 6f 72 61 72 |oom for temporar|
000050b0 79 20 77 6f 72 6b 73 70 61 63 65 20 22 2b a4 65 |y workspace "+.e|
000050c0 78 28 73 25 2a 31 30 32 34 29 0d 2d 28 2c e3 69 |x(s%*1024).-(,.i|
000050d0 25 3d 30 20 b8 38 2b 34 38 2a 64 73 25 2a 64 6b |%=0 .8+48*ds%*dk|
000050e0 25 88 34 3a 70 25 21 69 25 3d 55 6b 25 21 69 25 |%.4:p%!i%=Uk%!i%|
000050f0 3a ed 3a 3d 70 25 0d 2d 46 57 dd f2 65 79 28 65 |:.:=p%.-FW..ey(e|
00005100 7a 25 29 3a ea 70 25 2c 78 25 2c 79 25 2c 66 55 |z%):.p%,x%,y%,fU|
00005110 25 2c 66 56 25 2c 64 25 2c 63 62 25 3a e7 64 6b |%,fV%,d%,cb%:.dk|
00005120 25 3e 3d 33 30 20 8c 85 31 2c 22 59 6f 75 20 63 |%>=30 ..1,"You c|
00005130 61 6e 27 74 20 68 61 76 65 20 6d 6f 72 65 20 74 |an't have more t|
00005140 68 61 6e 20 33 30 20 72 6f 77 73 2e 22 0d 2d 64 |han 30 rows.".-d|
00005150 3b e7 65 7a 25 3d 30 85 31 2c 22 59 6f 75 20 63 |;.ez%=0.1,"You c|
00005160 61 6e 27 74 20 69 6e 73 65 72 74 20 61 20 72 6f |an't insert a ro|
00005170 77 20 62 65 6c 6f 77 20 74 68 65 20 62 6f 74 74 |w below the bott|
00005180 6f 6d 20 72 6f 77 2e 22 0d 2d 6e 51 f2 55 57 3a |om row.".-nQ.UW:|
00005190 70 25 3d a4 65 75 3a 66 56 25 3d 38 3a 66 55 25 |p%=.eu:fV%=8:fU%|
000051a0 3d 38 3a 64 25 3d 34 38 2a 64 73 25 3a e3 79 25 |=8:d%=48*ds%:.y%|
000051b0 3d 30 20 b8 64 6b 25 2d 31 3a f2 66 57 28 31 30 |=0 .dk%-1:.fW(10|
000051c0 30 2a 79 25 2f 28 64 6b 25 2d 31 29 29 3a e7 79 |0*y%/(dk%-1)):.y|
000051d0 25 3d 65 7a 25 2d 31 20 8c 0d 2d aa 92 e3 78 25 |%=ez%-1 ..-...x%|
000051e0 3d 30 20 b8 64 73 25 2d 31 3a e3 63 62 25 3d 30 |=0 .ds%-1:.cb%=0|
000051f0 20 b8 33 3a 55 6b 25 21 28 66 55 25 2b 34 2a 63 | .3:Uk%!(fU%+4*c|
00005200 62 25 29 3d 28 70 25 21 28 66 56 25 2b 34 2a 63 |b%)=(p%!(fV%+4*c|
00005210 62 25 2b 34 38 2a 78 25 29 2b 70 25 21 28 66 56 |b%+48*x%)+p%!(fV|
00005220 25 2b 64 25 2b 34 2a 63 62 25 2b 34 38 2a 78 25 |%+d%+4*cb%+48*x%|
00005230 29 29 2f 32 3a ed 3a e3 63 62 25 3d 34 20 b8 37 |))/2:.:.cb%=4 .7|
00005240 3a 55 6b 25 21 28 66 55 25 2b 34 2a 63 62 25 29 |:Uk%!(fU%+4*cb%)|
00005250 3d 70 25 21 28 66 56 25 2b 34 2a 63 62 25 29 3a |=p%!(fV%+4*cb%):|
00005260 ed 3a 66 55 25 2b 3d 34 38 3a ed 0d 2e 04 82 cd |.:fU%+=48:......|
00005270 3a e3 78 25 3d 30 20 b8 64 73 25 2d 31 3a e3 63 |:.x%=0 .ds%-1:.c|
00005280 62 25 3d 30 20 b8 37 3a 55 6b 25 21 28 66 55 25 |b%=0 .7:Uk%!(fU%|
00005290 2b 34 2a 63 62 25 29 3d 70 25 21 28 66 56 25 2b |+4*cb%)=p%!(fV%+|
000052a0 34 2a 63 62 25 29 3a ed 3a 66 56 25 2b 3d 34 38 |4*cb%):.:fV%+=48|
000052b0 3a 66 55 25 2b 3d 34 38 3a ed 3a ed 3a f2 56 58 |:fU%+=48:.:.:.VX|
000052c0 3a 64 6b 25 2b 3d 31 3a 55 6b 25 21 34 3d 64 6b |:dk%+=1:Uk%!4=dk|
000052d0 25 3a f2 66 58 28 70 25 29 3a f2 61 64 28 56 6e |%:.fX(p%):.ad(Vn|
000052e0 25 29 3a f2 61 64 28 56 6f 25 29 3a e1 0d 2e 90 |%):.ad(Vo%):....|
000052f0 56 dd f2 66 59 28 66 5a 25 29 3a ea 70 25 2c 66 |V..fY(fZ%):.p%,f|
00005300 56 25 2c 66 55 25 2c 63 62 25 2c 78 25 2c 79 25 |V%,fU%,cb%,x%,y%|
00005310 3a e7 64 73 25 3e 3d 33 30 20 8c 85 31 2c 22 59 |:.ds%>=30 ..1,"Y|
00005320 6f 75 20 63 61 6e 27 74 20 68 61 76 65 20 6d 6f |ou can't have mo|
00005330 72 65 20 74 68 61 6e 20 33 30 20 63 6f 6c 6f 75 |re than 30 colou|
00005340 6d 2e 22 0d 2e ae 49 e7 66 5a 25 3d 30 85 31 2c |m."...I.fZ%=0.1,|
00005350 22 59 6f 75 20 63 61 6e 27 74 20 69 6e 73 65 72 |"You can't inser|
00005360 74 20 61 20 63 6f 6c 6f 75 6d 20 74 6f 20 74 68 |t a coloum to th|
00005370 65 20 6c 65 66 74 20 6f 66 20 74 68 65 20 66 69 |e left of the fi|
00005380 72 73 74 20 63 6f 6c 6f 75 6d 2e 22 0d 2e b8 54 |rst coloum."...T|
00005390 f2 55 57 3a 70 25 3d a4 65 75 3a 66 56 25 3d 38 |.UW:p%=.eu:fV%=8|
000053a0 3a 66 55 25 3d 38 3a e3 79 25 3d 30 20 b8 64 6b |:fU%=8:.y%=0 .dk|
000053b0 25 2d 31 3a f2 66 57 28 31 30 30 2a 79 25 2f 28 |%-1:.fW(100*y%/(|
000053c0 64 6b 25 2d 31 29 29 3a e3 78 25 3d 30 20 b8 64 |dk%-1)):.x%=0 .d|
000053d0 73 25 2d 31 3a e7 78 25 3d 66 5a 25 2d 31 20 8c |s%-1:.x%=fZ%-1 .|
000053e0 0d 2e fe 77 e3 63 62 25 3d 30 20 b8 33 3a 55 6b |...w.cb%=0 .3:Uk|
000053f0 25 21 28 66 55 25 2b 34 2a 63 62 25 29 3d 28 70 |%!(fU%+4*cb%)=(p|
00005400 25 21 28 66 56 25 2b 34 2a 63 62 25 29 2b 70 25 |%!(fV%+4*cb%)+p%|
00005410 21 28 66 56 25 2b 34 2a 63 62 25 2b 34 38 29 29 |!(fV%+4*cb%+48))|
00005420 2f 32 3a ed 3a e3 63 62 25 3d 34 20 b8 37 3a 55 |/2:.:.cb%=4 .7:U|
00005430 6b 25 21 28 66 55 25 2b 34 2a 63 62 25 29 3d 70 |k%!(fU%+4*cb%)=p|
00005440 25 21 28 66 56 25 2b 34 2a 63 62 25 29 3a ed 3a |%!(fV%+4*cb%):.:|
00005450 66 55 25 2b 3d 34 38 0d 2f 44 75 cd 3a e3 63 62 |fU%+=48./Du.:.cb|
00005460 25 3d 30 20 b8 37 3a 55 6b 25 21 28 66 55 25 2b |%=0 .7:Uk%!(fU%+|
00005470 34 2a 63 62 25 29 3d 70 25 21 28 66 56 25 2b 34 |4*cb%)=p%!(fV%+4|
00005480 2a 63 62 25 29 3a ed 3a 66 55 25 2b 3d 34 38 3a |*cb%):.:fU%+=48:|
00005490 66 56 25 2b 3d 34 38 3a ed 3a ed 3a f2 56 58 3a |fV%+=48:.:.:.VX:|
000054a0 64 73 25 2b 3d 31 3a 55 6b 25 21 30 3d 64 73 25 |ds%+=1:Uk%!0=ds%|
000054b0 3a f2 66 58 28 70 25 29 3a f2 61 64 28 56 6e 25 |:.fX(p%):.ad(Vn%|
000054c0 29 3a f2 61 64 28 56 6f 25 29 3a e1 0d 2f c6 52 |):.ad(Vo%):../.R|
000054d0 dd f2 66 61 3a ea 70 25 2c 78 25 2c 79 25 2c 63 |..fa:.p%,x%,y%,c|
000054e0 62 25 2c 66 56 25 2c 66 55 25 2c 64 25 3a e7 64 |b%,fV%,fU%,d%:.d|
000054f0 6b 25 3e 3d 31 35 20 8c 85 31 2c 22 59 6f 75 20 |k%>=15 ..1,"You |
00005500 63 61 6e 27 74 20 68 61 76 65 20 6d 6f 72 65 20 |can't have more |
00005510 74 68 61 6e 20 33 30 20 72 6f 77 73 2e 22 0d 2f |than 30 rows."./|
00005520 e4 9d 70 25 3d a4 65 75 3a f2 55 57 3a 66 56 25 |..p%=.eu:.UW:fV%|
00005530 3d 38 3a 66 55 25 3d 38 3a 64 25 3d 2d 34 38 2a |=8:fU%=8:d%=-48*|
00005540 64 73 25 3a e3 79 25 3d 30 20 b8 64 6b 25 2d 31 |ds%:.y%=0 .dk%-1|
00005550 3a f2 66 57 28 31 30 30 2a 79 25 2f 28 64 6b 25 |:.fW(100*y%/(dk%|
00005560 2d 31 29 29 3a e3 78 25 3d 30 20 b8 64 73 25 2d |-1)):.x%=0 .ds%-|
00005570 31 3a e3 63 62 25 3d 30 20 b8 37 3a 55 6b 25 21 |1:.cb%=0 .7:Uk%!|
00005580 28 66 55 25 2b 34 2a 63 62 25 29 3d 70 25 21 28 |(fU%+4*cb%)=p%!(|
00005590 66 56 25 2b 34 2a 63 62 25 29 3a ed 3a 66 55 25 |fV%+4*cb%):.:fU%|
000055a0 2b 3d 34 38 3a 66 56 25 2b 3d 34 38 3a ed 3a e7 |+=48:fV%+=48:.:.|
000055b0 79 25 3c 3e 64 6b 25 2d 31 20 8c 0d 30 48 92 e3 |y%<>dk%-1 ..0H..|
000055c0 78 25 3d 30 20 b8 64 73 25 2d 31 3a e3 63 62 25 |x%=0 .ds%-1:.cb%|
000055d0 3d 30 20 b8 33 3a 55 6b 25 21 28 66 55 25 2b 34 |=0 .3:Uk%!(fU%+4|
000055e0 2a 63 62 25 29 3d 28 70 25 21 28 66 56 25 2b 34 |*cb%)=(p%!(fV%+4|
000055f0 2a 63 62 25 2b 34 38 2a 78 25 29 2b 70 25 21 28 |*cb%+48*x%)+p%!(|
00005600 66 56 25 2b 34 2a 63 62 25 2b 64 25 2b 34 38 2a |fV%+4*cb%+d%+48*|
00005610 78 25 29 29 2f 32 3a ed 3a e3 63 62 25 3d 34 20 |x%))/2:.:.cb%=4 |
00005620 b8 37 3a 55 6b 25 21 28 66 55 25 2b 34 2a 63 62 |.7:Uk%!(fU%+4*cb|
00005630 25 29 3d 70 25 21 28 66 56 25 2b 34 2a 63 62 25 |%)=p%!(fV%+4*cb%|
00005640 29 3a ed 3a 66 55 25 2b 3d 34 38 3a ed 0d 30 8e |):.:fU%+=48:..0.|
00005650 3d cd 3a ed 3a f2 56 58 3a 64 6b 25 3d 32 2a 64 |=.:.:.VX:dk%=2*d|
00005660 6b 25 2d 31 3a 55 6b 25 21 34 3d 64 6b 25 3a f2 |k%-1:Uk%!4=dk%:.|
00005670 66 58 28 70 25 29 3a f2 61 64 28 56 6e 25 29 3a |fX(p%):.ad(Vn%):|
00005680 f2 61 64 28 56 6f 25 29 3a e1 0d 30 de 52 dd f2 |.ad(Vo%):..0.R..|
00005690 66 62 3a ea 70 25 2c 78 25 2c 79 25 2c 63 62 25 |fb:.p%,x%,y%,cb%|
000056a0 2c 66 55 25 2c 66 56 25 3a e7 64 73 25 3e 3d 31 |,fU%,fV%:.ds%>=1|
000056b0 35 20 8c 85 31 2c 22 59 6f 75 20 63 61 6e 27 74 |5 ..1,"You can't|
000056c0 20 68 61 76 65 20 6d 6f 72 65 20 74 68 61 6e 20 | have more than |
000056d0 33 30 20 63 6f 6c 6f 75 6d 73 2e 22 0d 30 fc 90 |30 coloums.".0..|
000056e0 70 25 3d a4 65 75 3a f2 55 57 3a 66 55 25 3d 38 |p%=.eu:.UW:fU%=8|
000056f0 3a 66 56 25 3d 38 3a e3 79 25 3d 30 20 b8 64 6b |:fV%=8:.y%=0 .dk|
00005700 25 2d 31 3a f2 66 57 28 31 30 30 2a 79 25 2f 28 |%-1:.fW(100*y%/(|
00005710 64 6b 25 2d 31 29 29 3a e3 78 25 3d 30 20 b8 64 |dk%-1)):.x%=0 .d|
00005720 73 25 2d 31 3a e3 63 62 25 3d 30 20 b8 37 3a 55 |s%-1:.cb%=0 .7:U|
00005730 6b 25 21 28 66 55 25 2b 34 2a 63 62 25 29 3d 70 |k%!(fU%+4*cb%)=p|
00005740 25 21 28 66 56 25 2b 34 2a 63 62 25 29 3a ed 3a |%!(fV%+4*cb%):.:|
00005750 66 55 25 2b 3d 34 38 3a 66 56 25 2b 3d 34 38 3a |fU%+=48:fV%+=48:|
00005760 e7 78 25 3c 3e 64 73 25 2d 31 20 8c 0d 31 6a 77 |.x%<>ds%-1 ..1jw|
00005770 e3 63 62 25 3d 30 20 b8 33 3a 55 6b 25 21 28 66 |.cb%=0 .3:Uk%!(f|
00005780 55 25 2b 34 2a 63 62 25 29 3d 28 70 25 21 28 66 |U%+4*cb%)=(p%!(f|
00005790 56 25 2b 34 2a 63 62 25 29 2b 70 25 21 28 66 56 |V%+4*cb%)+p%!(fV|
000057a0 25 2b 34 2a 63 62 25 2d 34 38 29 29 2f 32 3a ed |%+4*cb%-48))/2:.|
000057b0 3a e3 63 62 25 3d 34 20 b8 37 3a 55 6b 25 21 28 |:.cb%=4 .7:Uk%!(|
000057c0 66 55 25 2b 34 2a 63 62 25 29 3d 70 25 21 28 66 |fU%+4*cb%)=p%!(f|
000057d0 56 25 2b 34 2a 63 62 25 29 3a ed 3a 66 55 25 2b |V%+4*cb%):.:fU%+|
000057e0 3d 34 38 0d 31 b0 3f cd 3a ed 3a ed 3a f2 56 58 |=48.1.?.:.:.:.VX|
000057f0 3a 64 73 25 3d 32 2a 64 73 25 2d 31 3a 55 6b 25 |:ds%=2*ds%-1:Uk%|
00005800 21 30 3d 64 73 25 3a f2 66 58 28 70 25 29 3a f2 |!0=ds%:.fX(p%):.|
00005810 61 64 28 56 6e 25 29 3a f2 61 64 28 56 6f 25 29 |ad(Vn%):.ad(Vo%)|
00005820 3a e1 0d 32 0a 4c dd f2 66 63 28 64 6f 25 2c 66 |:..2.L..fc(do%,f|
00005830 64 25 2c 5a 78 25 2c 5a 55 25 2c 69 25 29 3a ea |d%,Zx%,ZU%,i%):.|
00005840 70 25 2c 77 25 2c 78 25 2c 79 25 2c 63 62 25 2c |p%,w%,x%,y%,cb%,|
00005850 63 65 25 3a 63 65 25 3d 5a 66 25 2d 31 3a e7 69 |ce%:ce%=Zf%-1:.i|
00005860 25 3d 31 20 8c 63 65 25 3d 5a 67 25 2d 31 0d 32 |%=1 .ce%=Zg%-1.2|
00005870 28 0b c8 8e 64 6f 25 20 ca 0d 32 32 13 c9 31 3a |(...do% ..22..1:|
00005880 77 25 3d 56 6e 25 3a 63 62 25 3d 30 0d 32 3c 13 |w%=Vn%:cb%=0.2<.|
00005890 c9 32 3a 77 25 3d 56 6f 25 3a 63 62 25 3d 38 0d |.2:w%=Vo%:cb%=8.|
000058a0 32 46 0d cb 3a e7 69 25 3d 30 20 8c 0d 32 5a 4e |2F..:.i%=0 ..2ZN|
000058b0 e3 79 25 3d 30 20 b8 64 6b 25 2d 31 3a 70 25 3d |.y%=0 .dk%-1:p%=|
000058c0 55 6b 25 2b 38 2b 63 62 25 2b 34 38 2a 28 64 73 |Uk%+8+cb%+48*(ds|
000058d0 25 2a 79 25 2b 66 64 25 29 3a 70 25 21 30 3d 5a |%*y%+fd%):p%!0=Z|
000058e0 78 25 2b 70 25 21 30 3a e7 70 25 21 30 3e 63 65 |x%+p%!0:.p%!0>ce|
000058f0 25 20 8c 70 25 21 30 3d 63 65 0d 32 78 13 e7 70 |% .p%!0=ce.2x..p|
00005900 25 21 30 3c 30 20 8c 70 25 21 30 3d 30 0d 32 82 |%!0<0 .p%!0=0.2.|
00005910 05 ed 0d 32 8c 51 cc 3a e3 78 25 3d 30 20 b8 64 |...2.Q.:.x%=0 .d|
00005920 73 25 2d 31 3a 70 25 3d 55 6b 25 2b 38 2b 63 62 |s%-1:p%=Uk%+8+cb|
00005930 25 2b 34 38 2a 28 64 73 25 2a 66 64 25 2b 78 25 |%+48*(ds%*fd%+x%|
00005940 29 3a 70 25 21 34 3d 5a 55 25 2b 70 25 21 34 3a |):p%!4=ZU%+p%!4:|
00005950 e7 70 25 21 34 3e 63 65 25 20 8c 70 25 21 34 3d |.p%!4>ce% .p%!4=|
00005960 63 65 25 0d 32 b4 13 e7 70 25 21 34 3c 30 20 8c |ce%.2...p%!4<0 .|
00005970 70 25 21 30 3d 30 0d 32 be 05 ed 0d 32 c8 0f cd |p%!0=0.2....2...|
00005980 3a f2 61 64 28 77 25 29 3a e1 0d 32 f0 44 dd f2 |:.ad(w%):..2.D..|
00005990 63 73 28 69 25 2c 66 65 25 2c 66 66 25 2c 66 67 |cs(i%,fe%,ff%,fg|
000059a0 25 2c 66 68 25 29 3a ea 63 62 25 2c 77 25 2c 64 |%,fh%):.cb%,w%,d|
000059b0 57 25 2c 66 69 25 2c 64 58 25 2c 66 6a 25 2c 70 |W%,fi%,dX%,fj%,p|
000059c0 25 2c 5a 78 2c 5a 55 3a c8 8e 69 25 20 ca 0d 33 |%,Zx,ZU:..i% ..3|
000059d0 0e 17 c9 31 3a 77 25 3d 56 6e 25 3a 63 62 25 3d |...1:w%=Vn%:cb%=|
000059e0 55 6b 25 2b 38 0d 33 18 18 c9 32 3a 77 25 3d 56 |Uk%+8.3...2:w%=V|
000059f0 6f 25 3a 63 62 25 3d 55 6b 25 2b 31 36 0d 33 22 |o%:cb%=Uk%+16.3"|
00005a00 70 cb 3a f2 55 57 3a 64 57 25 3d 31 30 30 30 30 |p.:.UW:dW%=10000|
00005a10 30 3a 66 69 25 3d 31 30 30 30 30 30 3a 64 58 25 |0:fi%=100000:dX%|
00005a20 3d 2d 31 30 30 30 30 30 3a 66 6a 25 3d 2d 31 30 |=-100000:fj%=-10|
00005a30 30 30 30 30 3a f2 66 57 28 30 29 3a e3 63 25 3d |0000:.fW(0):.c%=|
00005a40 30 20 b8 64 73 25 2a 64 6b 25 2d 31 3a 70 25 3d |0 .ds%*dk%-1:p%=|
00005a50 63 62 25 2b 34 38 2a 63 25 3a e7 70 25 21 30 3e |cb%+48*c%:.p%!0>|
00005a60 64 58 25 20 8c 64 58 25 3d 70 25 21 30 0d 33 72 |dX% .dX%=p%!0.3r|
00005a70 17 e7 70 25 21 34 3e 66 6a 25 20 8c 66 6a 25 3d |..p%!4>fj% .fj%=|
00005a80 70 25 21 34 0d 33 7c 17 e7 70 25 21 30 3c 64 57 |p%!4.3|..p%!0<dW|
00005a90 25 20 8c 64 57 25 3d 70 25 21 30 0d 33 86 17 e7 |% .dW%=p%!0.3...|
00005aa0 70 25 21 34 3c 66 69 25 20 8c 66 69 25 3d 70 25 |p%!4<fi% .fi%=p%|
00005ab0 21 34 0d 33 90 97 ed 3a 5a 78 3d 28 66 67 25 2d |!4.3...:Zx=(fg%-|
00005ac0 66 65 25 29 2f 28 64 58 25 2d 64 57 25 29 3a 5a |fe%)/(dX%-dW%):Z|
00005ad0 55 3d 28 66 68 25 2d 66 66 25 29 2f 28 66 6a 25 |U=(fh%-ff%)/(fj%|
00005ae0 2d 66 69 25 29 3a f2 66 57 28 35 30 29 3a e3 63 |-fi%):.fW(50):.c|
00005af0 25 3d 30 20 b8 64 73 25 2a 64 6b 25 2d 31 3a 70 |%=0 .ds%*dk%-1:p|
00005b00 25 3d 63 62 25 2b 34 38 2a 63 25 3a 70 25 21 30 |%=cb%+48*c%:p%!0|
00005b10 3d 28 70 25 21 30 2d 64 57 25 29 2a 5a 78 2b 66 |=(p%!0-dW%)*Zx+f|
00005b20 65 25 3a 70 25 21 34 3d 28 70 25 21 34 2d 66 69 |e%:p%!4=(p%!4-fi|
00005b30 25 29 2a 5a 55 2b 66 66 25 3a ed 3a f2 56 58 3a |%)*ZU+ff%:.:.VX:|
00005b40 f2 61 64 28 77 25 29 3a e1 0d 34 08 62 dd f2 66 |.ad(w%):..4.b..f|
00005b50 6b 3a ea 70 25 2c 78 25 2c 79 25 3a 70 25 3d 55 |k:.p%,x%,y%:p%=U|
00005b60 6b 25 2b 38 3a e3 79 25 3d 30 20 b8 64 6b 25 2d |k%+8:.y%=0 .dk%-|
00005b70 31 3a e3 78 25 3d 30 20 b8 64 73 25 2d 31 3a 70 |1:.x%=0 .ds%-1:p|
00005b80 25 21 33 32 3d 30 3a 70 25 21 33 36 3d 30 3a 70 |%!32=0:p%!36=0:p|
00005b90 25 21 34 30 3d 30 3a 70 25 21 34 34 3d 30 3a 70 |%!40=0:p%!44=0:p|
00005ba0 25 2b 3d 34 38 3a ed 3a ed 3a e1 0d 34 76 2b dd |%+=48:.:.:..4v+.|
00005bb0 f2 66 6c 28 63 25 2c 72 25 2c 64 6f 25 29 3a ea |.fl(c%,r%,do%):.|
00005bc0 70 25 2c 79 25 2c 78 25 2c 77 25 2c 69 25 3a c8 |p%,y%,x%,w%,i%:.|
00005bd0 8e 64 6f 25 20 ca 0d 34 94 12 c9 31 3a 77 25 3d |.do% ..4...1:w%=|
00005be0 56 6e 25 3a 69 25 3d 30 0d 34 9e 12 c9 32 3a 77 |Vn%:i%=0.4...2:w|
00005bf0 25 3d 56 6f 25 3a 69 25 3d 38 0d 34 a8 64 cb 3a |%=Vo%:i%=8.4.d.:|
00005c00 70 25 3d 55 6b 25 2b 38 2b 69 25 2b 34 38 2a 28 |p%=Uk%+8+i%+48*(|
00005c10 63 25 2b 64 73 25 2a 72 25 29 3a 79 25 3d 70 25 |c%+ds%*r%):y%=p%|
00005c20 21 34 3a e3 78 25 3d 30 20 b8 64 73 25 2d 31 3a |!4:.x%=0 .ds%-1:|
00005c30 70 25 3d 55 6b 25 2b 38 2b 69 25 2b 34 38 2a 28 |p%=Uk%+8+i%+48*(|
00005c40 78 25 2b 64 73 25 2a 72 25 29 3a 70 25 21 34 3d |x%+ds%*r%):p%!4=|
00005c50 79 25 3a ed 3a f2 61 64 28 77 25 29 3a e1 0d 35 |y%:.:.ad(w%):..5|
00005c60 0c 2b dd f2 66 6d 28 63 25 2c 72 25 2c 64 6f 25 |.+..fm(c%,r%,do%|
00005c70 29 3a ea 70 25 2c 79 25 2c 78 25 2c 77 25 2c 69 |):.p%,y%,x%,w%,i|
00005c80 25 3a c8 8e 64 6f 25 20 ca 0d 35 2a 12 c9 31 3a |%:..do% ..5*..1:|
00005c90 77 25 3d 56 6e 25 3a 69 25 3d 30 0d 35 34 12 c9 |w%=Vn%:i%=0.54..|
00005ca0 32 3a 77 25 3d 56 6f 25 3a 69 25 3d 38 0d 35 3e |2:w%=Vo%:i%=8.5>|
00005cb0 64 cb 3a 70 25 3d 55 6b 25 2b 38 2b 69 25 2b 34 |d.:p%=Uk%+8+i%+4|
00005cc0 38 2a 28 63 25 2b 64 73 25 2a 72 25 29 3a 78 25 |8*(c%+ds%*r%):x%|
00005cd0 3d 70 25 21 30 3a e3 79 25 3d 30 20 b8 64 6b 25 |=p%!0:.y%=0 .dk%|
00005ce0 2d 31 3a 70 25 3d 55 6b 25 2b 38 2b 69 25 2b 34 |-1:p%=Uk%+8+i%+4|
00005cf0 38 2a 28 63 25 2b 64 73 25 2a 79 25 29 3a 70 25 |8*(c%+ds%*y%):p%|
00005d00 21 30 3d 78 25 3a ed 3a f2 61 64 28 77 25 29 3a |!0=x%:.:.ad(w%):|
00005d10 e1 0d 35 a2 88 dd f2 66 6e 28 66 6f 25 29 3a ea |..5....fn(fo%):.|
00005d20 78 25 2c 79 25 2c 72 25 2c 63 25 2c 65 5a 25 2c |x%,y%,r%,c%,eZ%,|
00005d30 70 25 3a 63 25 3d 66 6f 25 20 83 64 73 25 3a 72 |p%:c%=fo% .ds%:r|
00005d40 25 3d 66 6f 25 20 81 64 73 25 3a 65 5a 25 3d 55 |%=fo% .ds%:eZ%=U|
00005d50 6b 25 2b 38 2b 34 38 2a 66 6f 25 3a e3 79 25 3d |k%+8+48*fo%:.y%=|
00005d60 72 25 2d 31 20 b8 72 25 2b 31 3a e3 78 25 3d 63 |r%-1 .r%+1:.x%=c|
00005d70 25 2d 31 20 b8 63 25 2b 31 3a e7 78 25 3e 3d 30 |%-1 .c%+1:.x%>=0|
00005d80 20 80 78 25 3c 64 73 25 20 80 79 25 3e 3d 30 20 | .x%<ds% .y%>=0 |
00005d90 80 79 25 3c 64 73 25 20 8c 0d 35 f2 5b 70 25 3d |.y%<ds% ..5.[p%=|
00005da0 55 6b 25 2b 38 2b 34 38 2a 28 78 25 2b 79 25 2a |Uk%+8+48*(x%+y%*|
00005db0 64 73 25 29 3a e7 70 25 3f 33 30 3d 32 35 35 20 |ds%):.p%?30=255 |
00005dc0 8c 70 25 21 33 32 3d 65 5a 25 21 33 32 3a 70 25 |.p%!32=eZ%!32:p%|
00005dd0 21 33 36 3d 65 5a 25 21 33 36 3a 70 25 21 34 30 |!36=eZ%!36:p%!40|
00005de0 3d 65 5a 25 21 34 30 3a 70 25 21 34 34 3d 65 5a |=eZ%!40:p%!44=eZ|
00005df0 25 21 34 34 0d 36 06 18 cd 3a ed 3a ed 3a e7 58 |%!44.6...:.:.:.X|
00005e00 5a 25 20 8c f2 61 64 28 59 79 25 29 0d 36 2e 05 |Z% ..ad(Yy%).6..|
00005e10 e1 0d 36 42 8f dd f2 66 70 28 66 6f 25 29 3a ea |..6B...fp(fo%):.|
00005e20 78 25 2c 79 25 2c 63 25 2c 72 25 2c 6e 25 2c 66 |x%,y%,c%,r%,n%,f|
00005e30 67 25 2c 66 71 25 2c 66 68 25 2c 66 72 25 2c 70 |g%,fq%,fh%,fr%,p|
00005e40 25 3a f2 62 67 3a 63 25 3d 66 6f 25 20 83 64 73 |%:.bg:c%=fo% .ds|
00005e50 25 3a 72 25 3d 66 6f 25 20 81 64 73 25 3a 6e 25 |%:r%=fo% .ds%:n%|
00005e60 3d 30 3a e3 79 25 3d 72 25 2d 31 20 b8 72 25 2b |=0:.y%=r%-1 .r%+|
00005e70 31 3a e3 78 25 3d 63 25 2d 31 20 b8 63 25 2b 31 |1:.x%=c%-1 .c%+1|
00005e80 3a e7 78 25 3e 3d 30 20 80 78 25 3c 64 73 25 20 |:.x%>=0 .x%<ds% |
00005e90 80 79 25 3e 3d 30 20 80 79 25 3c 64 73 25 20 8c |.y%>=0 .y%<ds% .|
00005ea0 0d 36 9c 38 70 25 3d 55 6b 25 2b 38 2b 34 38 2a |.6.8p%=Uk%+8+48*|
00005eb0 28 78 25 2b 79 25 2a 64 73 25 29 3a e7 70 25 3f |(x%+y%*ds%):.p%?|
00005ec0 33 30 3d 32 35 35 20 80 78 25 3c 3e 63 25 20 80 |30=255 .x%<>c% .|
00005ed0 79 25 3c 3e 72 25 20 8c 0d 36 b0 35 6e 25 2b 3d |y%<>r% ..6.5n%+=|
00005ee0 31 3a 66 67 25 2b 3d 70 25 21 33 32 3a 66 68 25 |1:fg%+=p%!32:fh%|
00005ef0 2b 3d 70 25 21 33 36 3a 66 71 25 2b 3d 70 25 21 |+=p%!36:fq%+=p%!|
00005f00 34 30 3a 66 72 25 2b 3d 70 25 21 34 34 0d 36 ce |40:fr%+=p%!44.6.|
00005f10 05 cd 0d 36 d8 11 cd 3a ed 3a ed 3a e7 6e 25 3e |...6...:.:.:.n%>|
00005f20 30 20 8c 0d 37 00 47 70 25 3d 55 6b 25 2b 38 2b |0 ..7.Gp%=Uk%+8+|
00005f30 34 38 2a 66 6f 25 3a 70 25 21 33 32 3d 66 67 25 |48*fo%:p%!32=fg%|
00005f40 2f 6e 25 3a 70 25 21 33 36 3d 66 68 25 2f 6e 25 |/n%:p%!36=fh%/n%|
00005f50 3a 70 25 21 34 30 3d 66 71 25 2f 6e 25 3a 70 25 |:p%!40=fq%/n%:p%|
00005f60 21 34 34 3d 66 72 25 2f 6e 25 0d 37 1e 0b cd 3a |!44=fr%/n%.7...:|
00005f70 f2 62 67 3a e1 0d 37 5a 60 dd f2 62 57 28 66 73 |.bg:..7Z`..bW(fs|
00005f80 25 2c 66 74 25 2c 66 75 25 2c 74 2c 66 76 24 2c |%,ft%,fu%,t,fv$,|
00005f90 66 77 25 29 3a ea 70 25 2c 74 25 2c 63 6d 25 3a |fw%):.p%,t%,cm%:|
00005fa0 f2 65 56 3a e7 57 73 25 3e 3d 31 32 38 20 8c 85 |.eV:.Ws%>=128 ..|
00005fb0 31 2c 22 4e 6f 20 72 6f 6f 6d 20 66 6f 72 20 61 |1,"No room for a|
00005fc0 6e 79 20 6d 6f 72 65 20 6d 6f 72 70 68 20 74 61 |ny more morph ta|
00005fd0 73 6b 73 2e 22 0d 37 82 30 e7 66 73 25 20 80 28 |sks.".7.0.fs% .(|
00005fe0 74 3e 31 20 84 74 3c 30 29 20 8c 85 31 2c 22 54 |t>1 .t<0) ..1,"T|
00005ff0 69 6d 65 20 69 73 20 6f 75 74 20 6f 66 20 72 61 |ime is out of ra|
00006000 6e 67 65 2e 22 0d 37 8c 3b e7 20 ac 66 73 25 20 |nge.".7.;. .fs% |
00006010 80 28 74 3c 31 20 84 74 3e 58 7a 25 29 20 8c 85 |.(t<1 .t>Xz%) ..|
00006020 31 2c 22 54 68 65 20 66 72 61 6d 65 20 6e 75 6d |1,"The frame num|
00006030 62 65 72 20 69 73 20 69 6c 6c 65 67 61 6c 2e 22 |ber is illegal."|
00006040 0d 37 96 1f 70 25 3d 55 6e 25 2b 38 2a 57 73 25 |.7..p%=Un%+8*Ws%|
00006050 3a 57 73 25 2b 3d 31 3a c8 8e 66 75 25 20 ca 0d |:Ws%+=1:..fu% ..|
00006060 37 aa 2f c9 30 3a 66 78 25 3d 34 2b 34 2a 28 28 |7./.0:fx%=4+4*((|
00006070 5a 66 25 2d 31 29 81 34 29 3a 66 79 25 3d 66 78 |Zf%-1).4):fy%=fx|
00006080 25 2a 5a 67 25 2b 36 30 3a 66 7a 25 3d b9 0d 37 |%*Zg%+60:fz%=..7|
00006090 be 31 c9 31 3a 66 78 25 3d 34 2b 34 2a 28 28 5a |.1.1:fx%=4+4*((Z|
000060a0 66 25 2d 31 29 81 34 29 3a 66 79 25 3d 66 78 25 |f%-1).4):fy%=fx%|
000060b0 2a 5a 67 25 2b 32 31 30 38 3a 66 7a 25 3d b9 0d |*Zg%+2108:fz%=..|
000060c0 37 d2 30 c9 38 3a 66 78 25 3d 34 2b 34 2a 28 28 |7.0.8:fx%=4+4*((|
000060d0 5a 66 25 2d 31 29 81 38 29 3a 66 79 25 3d 66 78 |Zf%-1).8):fy%=fx|
000060e0 25 2a 5a 67 25 2b 31 38 38 3a 66 7a 25 3d b9 0d |%*Zg%+188:fz%=..|
000060f0 37 e6 22 cb 3a 63 5a 25 3d 66 75 25 3a e7 66 73 |7.".:cZ%=fu%:.fs|
00006100 25 20 8c 74 25 3d 31 30 32 34 2a 74 8b 74 25 3d |% .t%=1024*t.t%=|
00006110 74 0d 38 04 15 e7 74 25 3d 31 30 32 34 20 8c 74 |t.8...t%=1024 .t|
00006120 25 3d 31 30 32 33 0d 38 0e 20 63 6d 25 3d 30 3a |%=1023.8. cm%=0:|
00006130 e7 66 73 25 20 8c 63 6d 25 3d 63 6d 25 20 84 28 |.fs% .cm%=cm% .(|
00006140 31 3c 3c 31 30 29 0d 38 22 60 70 25 21 30 3d 74 |1<<10).8"`p%!0=t|
00006150 25 20 84 63 6d 25 3a 70 25 21 34 3d 30 3a f2 56 |% .cm%:p%!4=0:.V|
00006160 6b 28 58 64 25 29 3a f2 56 6b 28 58 6a 25 29 3a |k(Xd%):.Vk(Xj%):|
00006170 f2 56 6b 28 59 76 25 29 3a f2 5a 6f 3a f2 56 6b |.Vk(Yv%):.Zo:.Vk|
00006180 28 61 5a 25 29 3a f2 56 6b 28 57 57 25 29 3a e7 |(aZ%):.Vk(WW%):.|
00006190 61 71 25 20 8c f2 61 64 28 56 6e 25 29 3a f2 61 |aq% ..ad(Vn%):.a|
000061a0 64 28 56 6f 25 29 0d 38 54 0b 56 66 25 3d b9 3a |d(Vo%).8T.Vf%=.:|
000061b0 e1 0d 38 72 64 dd f2 56 67 3a ea 63 6d 25 2c 66 |..8rd..Vg:.cm%,f|
000061c0 73 25 2c 74 25 2c 67 55 25 2c 74 2c 66 76 24 2c |s%,t%,gU%,t,fv$,|
000061d0 67 56 24 2c 67 57 25 2c 64 25 2c 67 58 25 2c 68 |gV$,gW%,d%,gX%,h|
000061e0 25 2c 69 25 3a ea 63 65 25 2c 67 59 25 2c 67 5a |%,i%:.ce%,gY%,gZ|
000061f0 25 2c 67 61 25 2c 67 62 25 2c 79 25 2c 70 25 2c |%,ga%,gb%,y%,p%,|
00006200 67 63 25 2c 67 64 25 2c 74 24 3a e7 57 73 25 3c |gc%,gd%,t$:.Ws%<|
00006210 3d 30 20 8c e1 0d 38 9a 0c e7 20 ac 61 71 25 20 |=0 ...8... .aq% |
00006220 8c 0d 38 a4 14 e7 5a 72 25 20 8c f2 5a 72 28 31 |..8...Zr% ..Zr(1|
00006230 29 8b f2 55 57 0d 38 ae 1e cd 3a e7 55 70 25 28 |)..UW.8...:.Up%(|
00006240 33 29 3c 3e 2d 31 20 8c f2 66 58 28 55 70 25 28 |3)<>-1 ..fX(Up%(|
00006250 33 29 29 0d 38 c2 3d 55 5a 25 3f 32 38 3d 67 65 |3)).8.=UZ%?28=ge|
00006260 25 2b 63 5a 25 2a 31 36 3a 55 5a 25 3f 32 39 3d |%+cZ%*16:UZ%?29=|
00006270 61 73 25 3a e7 59 59 25 20 8c 55 5a 25 3f 32 39 |as%:.YY% .UZ%?29|
00006280 3d 28 55 5a 25 3f 32 39 29 84 25 31 30 30 30 30 |=(UZ%?29).%10000|
00006290 0d 38 e0 23 e7 59 5a 25 20 8c 55 5a 25 3f 32 39 |.8.#.YZ% .UZ%?29|
000062a0 3d 28 55 5a 25 3f 32 39 29 84 25 31 30 30 30 30 |=(UZ%?29).%10000|
000062b0 30 30 30 0d 38 ea 6c 55 5a 25 21 32 34 3d 66 78 |000.8.lUZ%!24=fx|
000062c0 25 3a 64 69 25 3d 57 73 25 3a 67 66 25 3d 57 73 |%:di%=Ws%:gf%=Ws|
000062d0 25 3a 64 68 25 3d 30 3a c8 99 36 36 20 b8 64 6c |%:dh%=0:..66 .dl|
000062e0 25 3a f5 3a 57 73 25 2d 3d 31 3a 64 68 25 2b 3d |%:.:Ws%-=1:dh%+=|
000062f0 31 3a 67 64 25 3d 91 3a e7 20 ac 28 61 71 25 20 |1:gd%=.:. .(aq% |
00006300 84 5a 72 25 29 20 8c f2 66 57 28 31 30 30 2a 28 |.Zr%) ..fW(100*(|
00006310 67 66 25 2d 57 73 25 2d 31 29 2f 67 66 25 29 0d |gf%-Ws%-1)/gf%).|
00006320 39 3a 33 63 6d 25 3d 55 6e 25 21 28 38 2a 57 73 |9:3cm%=Un%!(8*Ws|
00006330 25 29 3a e7 28 63 6d 25 20 80 28 31 3c 3c 31 30 |%):.(cm% .(1<<10|
00006340 29 29 3c 3e 30 20 8c 66 73 25 3d b9 8b 66 73 25 |))<>0 .fs%=..fs%|
00006350 3d a3 0d 39 4e 37 74 25 3d 28 63 6d 25 20 80 31 |=..9N7t%=(cm% .1|
00006360 30 32 33 29 3a e7 66 73 25 20 8c 74 3d 74 25 2f |023):.fs% .t=t%/|
00006370 31 30 32 34 8b 67 55 25 3d 74 25 3a 74 25 3d 55 |1024.gU%=t%:t%=U|
00006380 74 25 21 28 34 2a 74 25 29 0d 39 62 31 55 5a 25 |t%!(4*t%).9b1UZ%|
00006390 21 31 30 38 3d 74 25 3a f2 63 59 28 59 66 2c 55 |!108=t%:.cY(Yf,U|
000063a0 6b 25 2c 74 25 2c 55 75 25 2c 55 5a 25 2c 30 2c |k%,t%,Uu%,UZ%,0,|
000063b0 30 29 3a c8 8e 63 5a 25 20 ca 0d 39 80 0d c9 30 |0):..cZ% ..9...0|
000063c0 3a 67 58 25 3d 36 30 0d 39 8a 0f c9 31 3a 67 58 |:gX%=60.9...1:gX|
000063d0 25 3d 32 31 30 38 0d 39 94 0d c9 32 3a 67 58 25 |%=2108.9...2:gX%|
000063e0 3d 33 32 0d 39 9e 0e c9 38 3a 67 58 25 3d 31 38 |=32.9...8:gX%=18|
000063f0 38 0d 39 a8 0d c9 39 3a 67 58 25 3d 31 36 0d 39 |8.9...9:gX%=16.9|
00006400 b2 0e c9 31 30 3a 67 58 25 3d 32 38 0d 39 bc 0e |...10:gX%=28.9..|
00006410 c9 31 31 3a 67 58 25 3d 34 30 0d 39 c6 12 cb 3a |.11:gX%=40.9...:|
00006420 e7 55 70 25 28 33 29 3d 2d 31 20 8c 0d 39 e4 87 |.Up%(3)=-1 ..9..|
00006430 67 63 25 3d a4 65 77 28 66 79 25 29 3a e7 67 63 |gc%=.ew(fy%):.gc|
00006440 25 3c 3d 30 20 8c 85 31 2c 22 4e 6f 20 72 6f 6f |%<=0 ..1,"No roo|
00006450 6d 20 66 6f 72 20 6d 6f 72 70 68 65 64 20 69 6d |m for morphed im|
00006460 61 67 65 2e 20 59 6f 75 20 63 61 6e 20 65 69 74 |age. You can eit|
00006470 68 65 72 20 63 6c 6f 73 65 20 6f 74 68 65 72 20 |her close other |
00006480 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 6f 72 20 |applications or |
00006490 75 73 65 20 74 68 65 20 6f 70 74 69 6f 6e 20 27 |use the option '|
000064a0 53 77 61 70 20 6f 75 74 70 75 74 20 66 69 6c 65 |Swap output file|
000064b0 27 2e 22 0d 39 f8 0e 55 70 25 28 33 29 3d 67 63 |'.".9..Up%(3)=gc|
000064c0 25 0d 3a 02 0d cd 3a c8 8e 63 5a 25 20 ca 0d 3a |%.:...:..cZ% ..:|
000064d0 16 61 c9 30 3a 55 70 24 28 33 29 3d 22 46 52 41 |.a.0:Up$(3)="FRA|
000064e0 4d 45 22 3a 67 63 25 21 30 3d 66 79 25 3a 67 63 |ME":gc%!0=fy%:gc|
000064f0 25 21 34 3d 30 3a 67 63 25 21 38 3d 31 36 3a 67 |%!4=0:gc%!8=16:g|
00006500 63 25 21 31 32 3d 31 36 3a c8 99 26 32 45 2c 32 |c%!12=16:..&2E,2|
00006510 35 36 2b 31 35 2c 67 63 25 2c 22 66 72 61 6d 65 |56+15,gc%,"frame|
00006520 22 2c 30 2c 5a 66 25 2c 5a 67 25 2c 62 78 25 0d |",0,Zf%,Zg%,bx%.|
00006530 3a 34 fb c9 31 3a 55 70 24 28 33 29 3d 22 46 52 |:4..1:Up$(3)="FR|
00006540 41 4d 45 22 3a 67 63 25 21 30 3d 66 79 25 3a 67 |AME":gc%!0=fy%:g|
00006550 63 25 21 34 3d 30 3a 67 63 25 21 38 3d 31 36 3a |c%!4=0:gc%!8=16:|
00006560 67 63 25 21 31 32 3d 31 36 3a c8 99 26 32 45 2c |gc%!12=16:..&2E,|
00006570 32 35 36 2b 31 35 2c 67 63 25 2c 22 66 72 61 6d |256+15,gc%,"fram|
00006580 65 22 2c 30 2c 5a 66 25 2c 5a 67 25 2c 62 78 25 |e",0,Zf%,Zg%,bx%|
00006590 3a f2 63 59 28 59 6c 2c 67 63 25 2b 36 30 2c 66 |:.cY(Yl,gc%+60,f|
000065a0 78 25 2a 5a 67 25 2c 67 63 25 2b 32 31 30 38 2c |x%*Zg%,gc%+2108,|
000065b0 30 2c 30 2c 30 29 3a 67 63 25 21 34 38 3d 32 30 |0,0,0):gc%!48=20|
000065c0 34 38 2b 67 63 25 21 34 38 3a 67 63 25 21 35 32 |48+gc%!48:gc%!52|
000065d0 3d 67 63 25 21 34 38 3a 67 63 25 21 31 36 3d 66 |=gc%!48:gc%!16=f|
000065e0 78 25 2a 5a 67 25 2b 32 31 30 38 3a 67 63 25 21 |x%*Zg%+2108:gc%!|
000065f0 31 32 3d 67 63 25 21 31 36 2b 31 36 3a e3 64 25 |12=gc%!16+16:.d%|
00006600 3d 30 20 b8 32 35 35 3a 55 62 25 3f 30 3d 30 3a |=0 .255:Ub%?0=0:|
00006610 55 62 25 3f 31 3d 64 25 3a 55 62 25 3f 32 3d 64 |Ub%?1=d%:Ub%?2=d|
00006620 25 3a 55 62 25 3f 33 3d 64 25 0d 3a 8e 2d 67 63 |%:Ub%?3=d%.:.-gc|
00006630 25 21 28 36 30 2b 38 2a 64 25 29 3d 21 55 62 25 |%!(60+8*d%)=!Ub%|
00006640 3a 67 63 25 21 28 36 30 2b 38 2a 64 25 2b 34 29 |:gc%!(60+8*d%+4)|
00006650 3d 21 55 62 25 3a ed 0d 3a a2 cf c9 38 3a 67 63 |=!Ub%:..:...8:gc|
00006660 25 21 30 3d 66 79 25 3a 67 63 25 21 34 3d 30 3a |%!0=fy%:gc%!4=0:|
00006670 67 63 25 21 38 3d 31 36 3a 67 63 25 21 31 32 3d |gc%!8=16:gc%!12=|
00006680 31 36 3a c8 99 26 32 45 2c 32 35 36 2b 31 35 2c |16:..&2E,256+15,|
00006690 67 63 25 2c 22 66 72 61 6d 65 22 2c 31 2c 5a 66 |gc%,"frame",1,Zf|
000066a0 25 2c 5a 67 25 2c a4 67 67 28 62 78 25 29 3a 55 |%,Zg%,.gg(bx%):U|
000066b0 70 24 28 33 29 3d 22 46 52 41 4d 45 22 3a e3 64 |p$(3)="FRAME":.d|
000066c0 25 3d 30 20 b8 31 35 3a 55 62 25 3f 30 3d 30 3a |%=0 .15:Ub%?0=0:|
000066d0 55 62 25 3f 31 3d 64 25 2a 31 36 2b 31 35 3a 55 |Ub%?1=d%*16+15:U|
000066e0 62 25 3f 32 3d 64 25 2a 31 36 2b 31 35 3a 55 62 |b%?2=d%*16+15:Ub|
000066f0 25 3f 33 3d 64 25 2a 31 36 2b 31 35 3a 67 63 25 |%?3=d%*16+15:gc%|
00006700 21 28 36 30 2b 38 2a 64 25 29 3d 21 55 62 25 3a |!(60+8*d%)=!Ub%:|
00006710 67 63 25 21 28 36 30 2b 38 2a 64 25 2b 34 29 3d |gc%!(60+8*d%+4)=|
00006720 21 55 62 25 3a ed 0d 3a e8 0c c9 39 2c 31 30 2c |!Ub%:..:...9,10,|
00006730 31 31 0d 3a f2 1a cb 3a 55 5a 25 21 38 3d 67 63 |11.:...:UZ%!8=gc|
00006740 25 2b 67 58 25 3a e7 67 68 25 20 8c 0d 3b 1a 5a |%+gX%:.gh% ..;.Z|
00006750 67 59 25 3d 2d 31 3a 67 5a 25 3d 2d 31 3a e3 79 |gY%=-1:gZ%=-1:.y|
00006760 25 3d 30 20 b8 64 6b 25 2d 32 3a f2 63 59 28 59 |%=0 .dk%-2:.cY(Y|
00006770 6a 2c 55 6b 25 2c 79 25 2c 55 5a 25 2c 30 2c 30 |j,Uk%,y%,UZ%,0,0|
00006780 2c 30 29 3a 64 25 3d 55 5a 25 21 32 30 34 2d 55 |,0):d%=UZ%!204-U|
00006790 5a 25 21 32 30 30 3a e7 64 25 3e 67 59 25 20 8c |Z%!200:.d%>gY% .|
000067a0 67 59 25 3d 64 25 0d 3b 4c 3f f2 63 59 28 59 6a |gY%=d%.;L?.cY(Yj|
000067b0 2c 55 6b 25 2c 79 25 2c 55 5a 25 2c 30 2c 31 2c |,Uk%,y%,UZ%,0,1,|
000067c0 30 29 3a 64 25 3d 55 5a 25 21 32 30 34 2d 55 5a |0):d%=UZ%!204-UZ|
000067d0 25 21 32 30 30 3a e7 64 25 3e 67 5a 25 20 8c 67 |%!200:.d%>gZ% .g|
000067e0 5a 25 3d 64 25 0d 3b 6a 64 ed 3a 67 61 25 3d 67 |Z%=d%.;jd.:ga%=g|
000067f0 69 25 2a 28 67 59 25 2b 31 29 3a 67 62 25 3d 67 |i%*(gY%+1):gb%=g|
00006800 69 25 2a 28 67 5a 25 2b 31 29 3a 70 25 3d a4 65 |i%*(gZ%+1):p%=.e|
00006810 77 28 67 61 25 29 3a e7 70 25 3c 3d 30 20 8c 85 |w(ga%):.p%<=0 ..|
00006820 31 2c 22 4e 6f 20 72 6f 6f 6d 20 66 6f 72 20 6d |1,"No room for m|
00006830 6f 72 70 68 2d 69 6d 61 67 65 20 22 2b a4 65 78 |orph-image "+.ex|
00006840 28 67 61 25 2b 67 62 25 29 0d 3b 92 54 55 70 25 |(ga%+gb%).;.TUp%|
00006850 28 35 29 3d 70 25 3a 70 25 3d a4 65 77 28 67 62 |(5)=p%:p%=.ew(gb|
00006860 25 29 3a e7 70 25 3c 3d 30 20 8c f2 66 58 28 55 |%):.p%<=0 ..fX(U|
00006870 70 25 28 35 29 29 3a 85 31 2c 22 4e 6f 20 72 6f |p%(5)):.1,"No ro|
00006880 6f 6d 20 66 6f 72 20 6d 6f 72 70 68 2d 69 6d 61 |om for morph-ima|
00006890 67 65 20 22 2b a4 65 78 28 67 62 25 29 0d 3b a6 |ge "+.ex(gb%).;.|
000068a0 0d 55 70 25 28 36 29 3d 70 25 0d 3b b0 11 cc 3a |.Up%(6)=p%.;...:|
000068b0 67 61 25 3d 30 3a 67 62 25 3d 30 0d 3b ce 0c cd |ga%=0:gb%=0.;...|
000068c0 3a e7 67 68 25 20 8c 0d 3b ec 2a f2 67 6a 28 66 |:.gh% ..;.*.gj(f|
000068d0 76 24 2c 67 58 25 2c 67 63 25 2c a3 2c b9 2c 55 |v$,gX%,gc%,.,.,U|
000068e0 70 25 28 35 29 2c 55 70 25 28 36 29 2c 61 71 25 |p%(5),Up%(6),aq%|
000068f0 29 0d 3b f6 0c cc 3a e7 61 71 25 20 8c 0d 3c 0a |).;...:.aq% ..<.|
00006900 1e f2 67 6a 28 66 76 24 2c 67 58 25 2c 67 63 25 |..gj(fv$,gX%,gc%|
00006910 2c a3 2c a3 2c 30 2c 30 2c b9 29 0d 3c 14 1e cc |,.,.,0,0,.).<...|
00006920 3a f2 63 59 28 59 67 2c 55 6b 25 2c 74 25 2c 55 |:.cY(Yg,Uk%,t%,U|
00006930 5a 25 2c 30 2c 30 2c 30 29 0d 3c 28 05 cd 0d 3c |Z%,0,0,0).<(...<|
00006940 32 23 cd 3a e7 67 68 25 20 8c f2 66 58 28 55 70 |2#.:.gh% ..fX(Up|
00006950 25 28 35 29 29 3a f2 66 58 28 55 70 25 28 36 29 |%(5)):.fX(Up%(6)|
00006960 29 0d 3c 46 28 e7 20 ac 61 71 25 20 80 a6 28 2d |).<F(. .aq% ..(-|
00006970 31 33 33 29 20 80 a6 28 2d 35 29 20 8c f2 5a 70 |133) ..(-5) ..Zp|
00006980 3a c8 99 36 2c 32 31 2c 30 0d 3c 50 14 67 64 25 |:..6,21,0.<P.gd%|
00006990 3d 91 2d 67 64 25 3a e7 61 71 25 20 8c 0d 3c 64 |=.-gd%:.aq% ..<d|
000069a0 36 74 24 3d c3 28 28 a8 28 67 64 25 2f 31 30 29 |6t$=.((.(gd%/10)|
000069b0 29 2f 31 30 29 3a e7 a7 74 24 2c 22 2e 22 29 20 |)/10):..t$,".") |
000069c0 8c 74 24 3d c0 74 24 2c a7 74 24 2c 22 2e 22 29 |.t$=.t$,.t$,".")|
000069d0 2b 31 29 0d 3c 78 11 24 a4 69 28 67 6b 25 2c 37 |+1).<x.$.i(gk%,7|
000069e0 29 3d 74 24 0d 3c 82 3f cd 3a fd 57 73 25 3d 30 |)=t$.<.?.:.Ws%=0|
000069f0 3a 74 24 3d c3 28 28 a8 28 67 64 25 2f 31 30 29 |:t$=.((.(gd%/10)|
00006a00 29 2f 31 30 29 3a e7 a7 74 24 2c 22 2e 22 29 20 |)/10):..t$,".") |
00006a10 8c 74 24 3d c0 74 24 2c a7 74 24 2c 22 2e 22 29 |.t$=.t$,.t$,".")|
00006a20 2b 31 29 0d 3c aa 30 24 a4 69 28 67 6b 25 2c 37 |+1).<.0$.i(gk%,7|
00006a30 29 3d 74 24 3a f2 5a 57 28 61 5a 25 29 3a f2 61 |)=t$:.ZW(aZ%):.a|
00006a40 64 28 61 5a 25 29 3a 56 66 25 3d a3 3a e7 61 71 |d(aZ%):Vf%=.:.aq|
00006a50 25 20 8c 0d 3c d2 15 f2 61 64 28 56 6e 25 29 3a |% ..<...ad(Vn%):|
00006a60 f2 61 64 28 56 6f 25 29 0d 3c dc 16 cc 3a e7 5a |.ad(Vo%).<...:.Z|
00006a70 72 25 20 8c f2 5a 72 28 30 29 8b f2 56 58 0d 3c |r% ..Zr(0)..VX.<|
00006a80 f0 47 cd 3a f2 58 74 28 22 4d 6f 72 70 68 69 6e |.G.:.Xt("Morphin|
00006a90 67 20 63 6f 6d 70 6c 65 74 65 64 2e 22 2c 22 4c |g completed.","L|
00006aa0 61 73 74 20 66 72 61 6d 65 20 74 6f 6f 6b 20 22 |ast frame took "|
00006ab0 2b 74 24 2b 22 20 73 65 63 6f 6e 64 73 2e 22 2c |+t$+" seconds.",|
00006ac0 22 22 29 3a e1 0d 3d 18 50 dd f2 67 6c 28 67 6d |""):..=.P..gl(gm|
00006ad0 24 2c 65 76 25 2c 67 6e 25 2c 65 65 25 29 3a ea |$,ev%,gn%,ee%):.|
00006ae0 68 25 3a c8 99 26 44 2c 26 43 33 2c 67 6d 24 20 |h%:..&D,&C3,gm$ |
00006af0 b8 68 25 3a c8 99 26 43 2c 33 2c 68 25 2c 65 76 |.h%:..&C,3,h%,ev|
00006b00 25 2c 67 6e 25 2c 65 65 25 3a c8 99 26 44 2c 30 |%,gn%,ee%:..&D,0|
00006b10 2c 68 25 3a e1 0d 3d 5e 6d dd f2 67 6a 28 67 6f |,h%:..=^m..gj(go|
00006b20 24 2c 67 70 25 2c 67 71 25 2c 67 72 25 2c 67 73 |$,gp%,gq%,gr%,gs|
00006b30 25 2c 67 74 25 2c 67 75 25 2c 67 76 25 29 3a ea |%,gt%,gu%,gv%):.|
00006b40 67 77 25 2c 67 78 25 2c 67 79 25 2c 67 7a 25 2c |gw%,gx%,gy%,gz%,|
00006b50 68 55 25 2c 68 56 25 2c 68 57 25 3a e3 67 77 25 |hU%,hV%,hW%:.gw%|
00006b60 3d 30 20 b8 64 6b 25 2d 32 3a 64 6a 25 3d 67 77 |=0 .dk%-2:dj%=gw|
00006b70 25 3a e7 67 76 25 20 80 20 ac 5a 72 25 20 8c f2 |%:.gv% . .Zr% ..|
00006b80 61 62 0d 3d 86 0a e7 67 73 25 20 8c 0d 3d 90 ac |ab.=...gs% ..=..|
00006b90 f2 63 59 28 59 6a 2c 55 6b 25 2c 67 77 25 2c 55 |.cY(Yj,Uk%,gw%,U|
00006ba0 5a 25 2c 30 2c 30 2c 30 29 3a 67 79 25 3d 55 5a |Z%,0,0,0):gy%=UZ|
00006bb0 25 21 32 30 30 3a 67 7a 25 3d 55 5a 25 21 32 30 |%!200:gz%=UZ%!20|
00006bc0 34 3a 68 55 25 3d 67 7a 25 2d 67 79 25 2b 31 3a |4:hU%=gz%-gy%+1:|
00006bd0 f2 67 6c 28 56 6e 24 2c 67 74 25 2c 68 55 25 2a |.gl(Vn$,gt%,hU%*|
00006be0 67 69 25 2c 68 58 25 2b 28 5a 67 25 2d 67 7a 25 |gi%,hX%+(Zg%-gz%|
00006bf0 2d 31 29 2a 67 69 25 29 3a 55 5a 25 21 30 3d 67 |-1)*gi%):UZ%!0=g|
00006c00 74 25 2d 28 5a 67 25 2d 67 7a 25 2d 31 29 2a 67 |t%-(Zg%-gz%-1)*g|
00006c10 69 25 3a e7 67 65 25 3d 31 20 8c f2 63 59 28 59 |i%:.ge%=1 ..cY(Y|
00006c20 6b 2c 67 74 25 2c 55 61 25 2c 68 55 25 2a 67 69 |k,gt%,Ua%,hU%*gi|
00006c30 25 2c 30 2c 30 2c 30 29 0d 3d cc ac f2 63 59 28 |%,0,0,0).=...cY(|
00006c40 59 6a 2c 55 6b 25 2c 67 77 25 2c 55 5a 25 2c 30 |Yj,Uk%,gw%,UZ%,0|
00006c50 2c 31 2c 30 29 3a 67 79 25 3d 55 5a 25 21 32 30 |,1,0):gy%=UZ%!20|
00006c60 30 3a 67 7a 25 3d 55 5a 25 21 32 30 34 3a 68 55 |0:gz%=UZ%!204:hU|
00006c70 25 3d 67 7a 25 2d 67 79 25 2b 31 3a f2 67 6c 28 |%=gz%-gy%+1:.gl(|
00006c80 56 6f 24 2c 67 75 25 2c 68 55 25 2a 67 69 25 2c |Vo$,gu%,hU%*gi%,|
00006c90 68 58 25 2b 28 5a 67 25 2d 67 7a 25 2d 31 29 2a |hX%+(Zg%-gz%-1)*|
00006ca0 67 69 25 29 3a 55 5a 25 21 34 3d 67 75 25 2d 28 |gi%):UZ%!4=gu%-(|
00006cb0 5a 67 25 2d 67 7a 25 2d 31 29 2a 67 69 25 3a e7 |Zg%-gz%-1)*gi%:.|
00006cc0 67 65 25 3d 31 20 8c f2 63 59 28 59 6b 2c 67 75 |ge%=1 ..cY(Yk,gu|
00006cd0 25 2c 55 61 25 2c 68 55 25 2a 67 69 25 2c 30 2c |%,Ua%,hU%*gi%,0,|
00006ce0 30 2c 30 29 0d 3e 08 0c cd 3a e7 67 76 25 20 8c |0,0).>...:.gv% .|
00006cf0 0d 3e 1c 33 67 78 25 3d 67 77 25 2a 64 73 25 3a |.>.3gx%=gw%*ds%:|
00006d00 68 57 25 3d 67 77 25 2a 64 73 25 2b 64 73 25 2d |hW%=gw%*ds%+ds%-|
00006d10 32 3a f5 3a 68 56 25 3d a4 57 55 3a c8 8e 68 56 |2:.:hV%=.WU:..hV|
00006d20 25 20 ca 0d 3e 44 5d c9 30 2c 31 3a f2 63 59 28 |% ..>D].0,1:.cY(|
00006d30 59 6d 2c 67 78 25 2c 67 78 25 2b 64 73 25 2c 67 |Ym,gx%,gx%+ds%,g|
00006d40 78 25 2b 64 73 25 2b 31 2c 55 6b 25 2c 55 5a 25 |x%+ds%+1,Uk%,UZ%|
00006d50 2c 30 29 3a f2 63 59 28 59 6d 2c 67 78 25 2c 67 |,0):.cY(Ym,gx%,g|
00006d60 78 25 2b 31 2c 67 78 25 2b 64 73 25 2b 31 2c 55 |x%+1,gx%+ds%+1,U|
00006d70 6b 25 2c 55 5a 25 2c 30 29 3a 67 78 25 2b 3d 31 |k%,UZ%,0):gx%+=1|
00006d80 0d 3e 58 12 c9 32 3a f2 5a 70 3a 56 61 25 3d b9 |.>X..2:.Zp:Va%=.|
00006d90 3a e1 0d 3e 62 0c c9 33 3a f2 5a 70 3a e1 0d 3e |:..>b..3:.Zp:..>|
00006da0 6c 0e cb 3a fd 67 78 25 3e 68 57 25 0d 3e 80 71 |l..:.gx%>hW%.>.q|
00006db0 cc 3a e3 67 78 25 3d 67 77 25 2a 64 73 25 20 b8 |.:.gx%=gw%*ds% .|
00006dc0 67 77 25 2a 64 73 25 2b 64 73 25 2d 32 3a f2 63 |gw%*ds%+ds%-2:.c|
00006dd0 59 28 59 6d 2c 67 78 25 2c 67 78 25 2b 64 73 25 |Y(Ym,gx%,gx%+ds%|
00006de0 2c 67 78 25 2b 64 73 25 2b 31 2c 55 6b 25 2c 55 |,gx%+ds%+1,Uk%,U|
00006df0 5a 25 2c 30 29 3a f2 63 59 28 59 6d 2c 67 78 25 |Z%,0):.cY(Ym,gx%|
00006e00 2c 67 78 25 2b 31 2c 67 78 25 2b 64 73 25 2b 31 |,gx%+1,gx%+ds%+1|
00006e10 2c 55 6b 25 2c 55 5a 25 2c 30 29 3a ed 0d 3e b2 |,Uk%,UZ%,0):..>.|
00006e20 09 cd 3a ed 3a e1 0d 3e da 30 dd f2 5a 70 3a 56 |..:.:..>.0..Zp:V|
00006e30 66 25 3d a3 3a f2 56 6b 28 61 5a 25 29 3a e7 55 |f%=.:.Vk(aZ%):.U|
00006e40 70 25 28 33 29 3c 3e 2d 31 20 8c f2 66 58 28 55 |p%(3)<>-1 ..fX(U|
00006e50 70 25 28 33 29 29 0d 3f 02 21 e7 67 68 25 20 8c |p%(3)).?.!.gh% .|
00006e60 f2 66 58 28 55 70 25 28 35 29 29 3a f2 66 58 28 |.fX(Up%(5)):.fX(|
00006e70 55 70 25 28 36 29 29 0d 3f 0c 0b 57 73 25 3d 30 |Up%(6)).?..Ws%=0|
00006e80 3a e1 0d 3f 3e 2a dd f2 61 57 3a f2 68 59 28 31 |:..?>*..aW:.hY(1|
00006e90 2c 31 2c 56 66 25 29 3a f2 68 59 28 31 2c 32 2c |,1,Vf%):.hY(1,2,|
00006ea0 56 66 25 29 3a 57 58 25 3d 31 3a e1 0d 3f 7a 21 |Vf%):WX%=1:..?z!|
00006eb0 dd f2 61 65 28 64 6f 25 29 3a ea 73 25 3a 57 6d |..ae(do%):.s%:Wm|
00006ec0 25 3d 64 6f 25 3a c8 8e 64 6f 25 20 ca 0d 3f a2 |%=do%:..do% ..?.|
00006ed0 24 c9 31 3a f2 61 6c 28 57 68 25 2c 30 2c 57 67 |$.1:.al(Wh%,0,Wg|
00006ee0 25 2c 31 30 30 2a 57 6a 2c 31 2c 31 2c 30 2c 34 |%,100*Wj,1,1,0,4|
00006ef0 29 0d 3f ac 24 c9 32 3a f2 61 6c 28 57 68 25 2c |).?.$.2:.al(Wh%,|
00006f00 30 2c 57 67 25 2c 31 30 30 2a 57 6b 2c 31 2c 31 |0,Wg%,100*Wk,1,1|
00006f10 2c 30 2c 34 29 0d 3f b6 24 c9 33 3a f2 61 6c 28 |,0,4).?.$.3:.al(|
00006f20 57 68 25 2c 30 2c 57 67 25 2c 31 30 30 2a 57 6c |Wh%,0,Wg%,100*Wl|
00006f30 2c 31 2c 31 2c 30 2c 34 29 0d 3f c0 4b cb 3a 24 |,1,1,0,4).?.K.:$|
00006f40 59 55 25 3d c3 58 7a 25 3a 24 58 6e 25 3d c3 5a |YU%=.Xz%:$Xn%=.Z|
00006f50 66 25 2b 22 78 22 2b c3 5a 67 25 3a 24 55 6d 25 |f%+"x"+.Zg%:$Um%|
00006f60 3d c3 28 64 73 25 29 2b 22 20 78 20 22 2b c3 28 |=.(ds%)+" x "+.(|
00006f70 64 6b 25 29 3a e7 56 66 25 20 8c 73 25 3d 31 8b |dk%):.Vf% .s%=1.|
00006f80 73 25 3d 30 0d 3f f2 78 f2 68 59 28 32 2c 36 2c |s%=0.?.x.hY(2,6,|
00006f90 31 2d 73 25 29 3a f2 68 59 28 32 2c 31 2c 73 25 |1-s%):.hY(2,1,s%|
00006fa0 29 3a f2 68 59 28 32 2c 32 2c 73 25 29 3a f2 68 |):.hY(2,2,s%):.h|
00006fb0 59 28 32 2c 33 2c 73 25 29 3a f2 68 59 28 32 2c |Y(2,3,s%):.hY(2,|
00006fc0 34 2c 73 25 29 3a f2 68 59 28 32 2c 35 2c 73 25 |4,s%):.hY(2,5,s%|
00006fd0 29 3a f2 68 59 28 33 2c 32 2c 73 25 29 3a f2 68 |):.hY(3,2,s%):.h|
00006fe0 59 28 33 2c 33 2c 73 25 29 3a e7 64 6f 25 3d 33 |Y(3,3,s%):.do%=3|
00006ff0 20 8c f2 68 59 28 32 2c 31 2c 31 29 0d 40 2e 85 | ..hY(2,1,1).@..|
00007000 f2 68 59 28 37 2c 31 2c 57 74 25 3c 3e 32 29 3a |.hY(7,1,Wt%<>2):|
00007010 f2 68 59 28 37 2c 32 2c 57 74 25 3c 3e 32 29 3a |.hY(7,2,Wt%<>2):|
00007020 f2 68 59 28 34 2c 32 2c 67 68 25 29 3a f2 68 59 |.hY(4,2,gh%):.hY|
00007030 28 34 2c 33 2c 67 68 25 29 3a f2 68 59 28 38 2c |(4,3,gh%):.hY(8,|
00007040 32 2c 57 74 25 3c 3e 32 29 3a f2 68 59 28 38 2c |2,Wt%<>2):.hY(8,|
00007050 33 2c 57 74 25 3c 3e 32 29 3a f2 68 59 28 37 2c |3,Wt%<>2):.hY(7,|
00007060 35 2c 57 74 25 3c 3e 32 29 3a f2 68 59 28 37 2c |5,Wt%<>2):.hY(7,|
00007070 36 2c 57 74 25 3c 3e 32 29 3a 57 58 25 3d 32 3a |6,Wt%<>2):WX%=2:|
00007080 e1 0d 40 7e bd dd f2 61 75 3a f2 68 5a 28 36 2c |..@~...au:.hZ(6,|
00007090 30 2c 68 61 25 3d 30 29 3a f2 68 5a 28 36 2c 31 |0,ha%=0):.hZ(6,1|
000070a0 2c 68 61 25 3d 37 29 3a f2 68 5a 28 36 2c 32 2c |,ha%=7):.hZ(6,2,|
000070b0 68 61 25 3d 38 29 3a f2 68 5a 28 36 2c 33 2c 68 |ha%=8):.hZ(6,3,h|
000070c0 61 25 3d 39 29 3a f2 68 5a 28 36 2c 34 2c 68 61 |a%=9):.hZ(6,4,ha|
000070d0 25 3d 31 30 29 3a f2 68 5a 28 36 2c 35 2c 68 61 |%=10):.hZ(6,5,ha|
000070e0 25 3d 31 31 29 3a f2 68 5a 28 36 2c 36 2c 68 61 |%=11):.hZ(6,6,ha|
000070f0 25 3d 31 32 29 3a f2 68 5a 28 36 2c 37 2c 68 61 |%=12):.hZ(6,7,ha|
00007100 25 3d 31 33 29 3a f2 68 5a 28 36 2c 38 2c 68 61 |%=13):.hZ(6,8,ha|
00007110 25 3d 31 34 29 3a f2 68 5a 28 36 2c 39 2c 68 61 |%=14):.hZ(6,9,ha|
00007120 25 3d 31 35 29 3a f2 68 5a 28 36 2c 31 30 2c 68 |%=15):.hZ(6,10,h|
00007130 61 25 3d 37 31 29 3a 57 58 25 3d 33 3a e1 0d 40 |a%=71):WX%=3:..@|
00007140 ce 15 dd f2 62 58 28 74 25 29 3a 57 58 25 3d 74 |....bX(t%):WX%=t|
00007150 25 3a e1 0d 40 f6 10 dd f2 61 6f 3a 57 58 25 3d |%:..@....ao:WX%=|
00007160 36 3a e1 0d 41 1e 2c dd f2 62 68 3a f2 68 5a 28 |6:..A.,..bh:.hZ(|
00007170 31 39 2c 33 2c 58 61 25 29 3a f2 68 5a 28 31 39 |19,3,Xa%):.hZ(19|
00007180 2c 34 2c 58 5a 25 29 3a 57 58 25 3d 37 3a e1 0d |,4,XZ%):WX%=7:..|
00007190 41 5a e3 dd f2 57 6f 3a ea 6d 24 3a 68 62 25 3d |AZ...Wo:.m$:hb%=|
000071a0 55 58 25 3a 68 63 25 3d 55 59 25 3a f2 68 64 28 |UX%:hc%=UY%:.hd(|
000071b0 33 2c 31 2c 22 4d 6f 72 70 68 65 75 73 22 2c 22 |3,1,"Morpheus","|
000071c0 49 6e 66 6f 7c 5b 49 6e 66 6f 5d 2c 4f 70 74 69 |Info|[Info],Opti|
000071d0 6f 6e 73 2e 2e 2e 7c 2c 51 75 69 74 7c 22 29 3a |ons...|,Quit|"):|
000071e0 6d 24 3d 22 57 68 69 74 65 7c 2c 42 6c 61 63 6b |m$="White|,Black|
000071f0 7c 23 30 37 3d 2c 44 61 72 6b 20 62 6c 75 65 7c ||#07=,Dark blue||
00007200 23 30 38 2c 59 65 6c 6c 6f 77 7c 23 37 39 2c 47 |#08,Yellow|#79,G|
00007210 72 65 65 6e 7c 23 37 41 2c 52 65 64 7c 23 37 42 |reen|#7A,Red|#7B|
00007220 2c 43 72 65 61 6d 7c 23 37 43 2c 41 72 6d 79 20 |,Cream|#7C,Army |
00007230 67 72 65 65 6e 7c 23 30 44 2c 4f 72 61 6e 67 65 |green|#0D,Orange|
00007240 7c 23 37 45 2c 42 6c 75 65 7c 23 37 46 3d 2c 49 ||#7E,Blue|#7F=,I|
00007250 6e 76 65 72 74 7c 22 3a f2 68 64 28 31 31 2c 36 |nvert|":.hd(11,6|
00007260 2c 22 47 72 69 64 20 63 6f 6c 6f 75 72 22 2c 6d |,"Grid colour",m|
00007270 24 29 0d 41 a0 bb 6d 24 3d 22 31 7c 23 30 38 2c |$).A..m$="1|#08,|
00007280 32 7c 23 37 39 7c 2c 33 7c 23 37 41 2c 34 7c 23 |2|#79|,3|#7A,4|#|
00007290 37 42 2c 35 7c 23 37 43 2c 36 7c 23 30 44 2c 37 |7B,5|#7C,6|#0D,7|
000072a0 7c 23 37 45 2c 38 7c 23 38 46 22 3a f2 68 64 28 ||#7E,8|#8F":.hd(|
000072b0 38 2c 31 31 2c 22 47 72 6f 75 70 22 2c 6d 24 29 |8,11,"Group",m$)|
000072c0 3a f2 68 64 28 35 2c 31 39 2c 22 50 61 74 68 20 |:.hd(5,19,"Path |
000072d0 74 6f 6f 6c 73 22 2c 22 53 74 72 61 69 67 68 74 |tools","Straight|
000072e0 65 6e 7c 3d 2c 43 6f 70 79 20 74 6f 20 6e 65 69 |en|=,Copy to nei|
000072f0 67 68 62 6f 75 72 73 7c 2c 43 6f 70 79 20 66 72 |ghbours|,Copy fr|
00007300 6f 6d 20 6e 65 69 67 68 62 6f 75 72 73 7c 3d 2c |om neighbours|=,|
00007310 53 68 6f 77 20 61 6c 6c 7c 7c 2c 44 72 61 77 20 |Show all||,Draw |
00007320 6e 65 69 67 68 62 6f 75 72 73 7c 22 29 0d 41 d2 |neighbours|").A.|
00007330 ef 6d 24 3d 22 53 70 72 69 74 65 20 38 62 70 70 |.m$="Sprite 8bpp|
00007340 7c 2c 53 70 72 69 74 65 20 38 62 70 70 20 67 72 ||,Sprite 8bpp gr|
00007350 65 79 7c 2c 43 6c 65 61 72 20 32 34 62 70 70 7c |ey|,Clear 24bpp||
00007360 3d 2c 53 70 72 69 74 65 20 34 62 70 70 20 67 72 |=,Sprite 4bpp gr|
00007370 65 79 7c 2c 43 4d 59 4b 20 33 32 62 70 70 7c 2c |ey|,CMYK 32bpp|,|
00007380 50 31 35 20 28 31 35 62 70 70 20 52 47 42 29 7c |P15 (15bpp RGB)||
00007390 2c 50 31 33 20 28 31 35 62 70 70 20 59 55 56 29 |,P13 (15bpp YUV)|
000073a0 7c 22 3a f2 68 64 28 37 2c 31 36 2c 22 46 6f 72 ||":.hd(7,16,"For|
000073b0 6d 61 74 73 22 2c 6d 24 29 3a f2 68 64 28 34 2c |mats",m$):.hd(4,|
000073c0 33 2c 22 46 69 6c 65 22 2c 22 49 6e 66 6f 7c 5b |3,"File","Info|[|
000073d0 46 69 6c 65 5d 2c 53 61 76 65 20 73 65 74 75 70 |File],Save setup|
000073e0 7c 2c 4f 70 74 69 6f 6e 73 2e 2e 2e 7c 2c 44 72 ||,Options...|,Dr|
000073f0 6f 70 20 66 69 6c 65 7c 22 29 3a f2 68 64 28 31 |op file|"):.hd(1|
00007400 2c 31 30 2c 22 47 72 69 64 20 73 69 7a 65 22 2c |,10,"Grid size",|
00007410 22 20 7c 28 30 38 47 52 44 29 22 29 0d 42 04 c8 |" |(08GRD)").B..|
00007420 f2 68 64 28 31 2c 31 33 2c 22 41 62 6f 72 74 22 |.hd(1,13,"Abort"|
00007430 2c 22 41 72 65 20 79 6f 75 20 73 75 72 65 3f 7c |,"Are you sure?||
00007440 22 29 3a f2 68 64 28 35 2c 31 35 2c 22 49 6e 74 |"):.hd(5,15,"Int|
00007450 65 72 76 61 6c 22 2c 22 52 65 67 75 6c 61 72 7c |erval","Regular||
00007460 2c 53 70 65 65 64 20 75 70 7c 2c 53 6c 6f 77 20 |,Speed up|,Slow |
00007470 64 6f 77 6e 7c 2c 46 61 73 74 2d 53 6c 6f 77 2d |down|,Fast-Slow-|
00007480 46 61 73 74 7c 2c 53 6c 6f 77 2d 46 61 73 74 2d |Fast|,Slow-Fast-|
00007490 53 6c 6f 77 7c 22 29 3a f2 68 64 28 34 2c 31 37 |Slow|"):.hd(4,17|
000074a0 2c 22 4d 6f 76 65 20 63 6f 6c 6f 75 6d 22 2c 22 |,"Move coloum","|
000074b0 4c 65 66 74 20 6d 75 63 68 7c 2c 4c 65 66 74 20 |Left much|,Left |
000074c0 6c 69 74 74 6c 65 7c 3d 2c 52 69 67 68 74 20 6d |little|=,Right m|
000074d0 75 63 68 7c 2c 52 69 67 68 74 20 6c 69 74 74 6c |uch|,Right littl|
000074e0 65 7c 22 29 0d 42 22 da f2 68 64 28 34 2c 31 38 |e|").B"..hd(4,18|
000074f0 2c 22 4d 6f 76 65 20 72 6f 77 22 2c 22 55 70 20 |,"Move row","Up |
00007500 6d 75 63 68 7c 2c 55 70 20 6c 69 74 74 6c 65 7c |much|,Up little||
00007510 3d 2c 44 6f 77 6e 20 6d 75 63 68 7c 2c 44 6f 77 |=,Down much|,Dow|
00007520 6e 20 6c 69 74 74 6c 65 7c 22 29 3a f2 68 64 28 |n little|"):.hd(|
00007530 33 2c 31 34 2c 22 46 72 61 6d 65 73 22 2c 22 4e |3,14,"Frames","N|
00007540 6f 2e 20 6f 66 20 66 72 61 6d 65 73 7c 2a 5b 46 |o. of frames|*[F|
00007550 72 6d 4e 5d 2c 54 69 6d 69 6e 67 7c 5b 46 72 61 |rmN],Timing|[Fra|
00007560 6d 5d 3d 2c 49 6e 74 65 72 76 61 6c 73 7c 3e 31 |m]=,Intervals|>1|
00007570 35 3c 22 29 3a 6d 24 3d 22 31 2e 2e 2e 7c 2c 32 |5<"):m$="1...|,2|
00007580 2e 2e 2e 7c 2c 33 2e 2e 2e 7c 2c 34 2e 2e 2e 7c |...|,3...|,4...||
00007590 2c 35 2e 2e 2e 7c 2c 36 2e 2e 2e 7c 2c 37 2e 2e |,5...|,6...|,7..|
000075a0 2e 7c 2c 38 2e 2e 2e 7c 22 3a f2 68 64 28 38 2c |.|,8...|":.hd(8,|
000075b0 31 32 2c 22 47 72 6f 75 70 22 2c 6d 24 29 0d 42 |12,"Group",m$).B|
000075c0 4a b1 6d 24 3d 22 31 30 20 78 20 31 30 7c 2c 31 |J.m$="10 x 10|,1|
000075d0 35 20 78 20 31 35 7c 2c 32 30 20 78 20 32 30 7c |5 x 15|,20 x 20||
000075e0 2c 33 30 20 78 20 33 30 7c 2c 35 30 20 78 20 35 |,30 x 30|,50 x 5|
000075f0 30 7c 2c 43 75 73 74 6f 6d 7c 3e 31 30 3c 22 3a |0|,Custom|>10<":|
00007600 f2 68 64 28 36 2c 39 2c 22 47 72 69 64 20 73 69 |.hd(6,9,"Grid si|
00007610 7a 65 22 2c 6d 24 29 3a 6d 24 3d 22 44 6f 75 62 |ze",m$):m$="Doub|
00007620 6c 65 20 72 6f 77 73 7c 2c 44 6f 75 62 6c 65 20 |le rows|,Double |
00007630 63 6f 6c 6f 75 6d 73 7c 3d 2c 49 6e 73 65 72 74 |coloums|=,Insert|
00007640 20 72 6f 77 7c 2c 49 6e 73 65 72 74 20 63 6f 6c | row|,Insert col|
00007650 6f 75 6d 7c 22 3a f2 68 64 28 34 2c 38 2c 22 41 |oum|":.hd(4,8,"A|
00007660 64 6a 75 73 74 20 67 72 69 64 22 2c 6d 24 29 0d |djust grid",m$).|
00007670 42 72 f0 6d 24 3d 22 54 69 64 79 20 62 6f 72 64 |Br.m$="Tidy bord|
00007680 65 72 7c 2c 4d 6f 76 65 20 72 6f 77 7c 3e 31 38 |er|,Move row|>18|
00007690 3c 2c 4d 6f 76 65 20 63 6f 6c 6f 75 6d 7c 3e 31 |<,Move coloum|>1|
000076a0 37 3c 2c 46 69 74 20 69 6e 20 61 72 65 61 2e 2e |7<,Fit in area..|
000076b0 2e 7c 2c 46 69 74 20 74 6f 20 69 6d 61 67 65 7c |.|,Fit to image||
000076c0 2c 53 74 72 61 69 67 68 74 65 6e 20 72 6f 77 7c |,Straighten row||
000076d0 2c 53 74 72 61 69 67 68 74 65 6e 20 63 6f 6c 6f |,Straighten colo|
000076e0 75 6d 7c 22 3a f2 68 64 28 37 2c 37 2c 22 47 72 |um|":.hd(7,7,"Gr|
000076f0 69 64 20 74 6f 6f 6c 73 22 2c 6d 24 29 3a 6d 24 |id tools",m$):m$|
00007700 3d 22 54 6f 6f 6c 73 7c 3e 37 3c 2c 52 65 73 65 |="Tools|>7<,Rese|
00007710 74 20 67 72 69 64 7c 2c 45 78 70 6f 72 74 20 67 |t grid|,Export g|
00007720 72 69 64 7c 3d 2c 52 65 73 65 74 20 67 72 6f 75 |rid|=,Reset grou|
00007730 70 73 7c 3e 31 31 3c 2c 52 65 73 65 74 20 70 61 |ps|>11<,Reset pa|
00007740 74 68 73 7c 3d 2c 53 69 7a 65 7c 3e 39 3c 2c 41 |ths|=,Size|>9<,A|
00007750 64 6a 75 73 74 20 67 72 69 64 7c 3e 38 3c 22 0d |djust grid|>8<".|
00007760 42 90 fc f2 68 64 28 37 2c 35 2c 22 47 72 69 64 |B...hd(7,5,"Grid|
00007770 22 2c 6d 24 29 3a 6d 24 3d 22 53 69 6e 67 6c 65 |",m$):m$="Single|
00007780 20 66 72 61 6d 65 2e 2e 2e 7c 2c 53 65 71 75 65 | frame...|,Seque|
00007790 6e 63 65 20 6f 66 20 66 72 61 6d 65 73 2e 2e 2e |nce of frames...|
000077a0 7c 3d 2c 41 6e 69 6d 61 74 69 6f 6e 7c 5b 4d 6f ||=,Animation|[Mo|
000077b0 72 70 33 5d 2c 55 6e 63 6f 6d 70 72 65 73 73 65 |rp3],Uncompresse|
000077c0 64 20 52 65 70 6c 61 79 7c 5b 4d 6f 72 70 34 5d |d Replay|[Morp4]|
000077d0 2a 7c 2c 56 69 41 7c 5b 4d 6f 72 70 34 5d 2a 22 |*|,ViA|[Morp4]*"|
000077e0 3a f2 68 64 28 35 2c 34 2c 22 4d 6f 72 70 68 22 |:.hd(5,4,"Morph"|
000077f0 2c 6d 24 29 3a 6d 24 3d 22 46 69 6c 65 7c 3e 33 |,m$):m$="File|>3|
00007800 3c 2c 47 72 69 64 7c 3e 35 3c 2c 4d 6f 72 70 68 |<,Grid|>5<,Morph|
00007810 7c 3e 34 3c 2c 46 72 61 6d 65 73 7c 3e 31 34 3c ||>4<,Frames|>14<|
00007820 2c 47 72 6f 75 70 7c 3e 31 32 3c 2c 5a 6f 6f 6d |,Group|>12<,Zoom|
00007830 7c 5b 5a 6f 6f 6d 5d 3d 2c 41 62 6f 72 74 7c 3e ||[Zoom]=,Abort|>|
00007840 31 33 3c 22 3a f2 68 64 28 37 2c 32 2c 22 4d 6f |13<":.hd(7,2,"Mo|
00007850 72 70 68 65 75 73 22 2c 6d 24 29 0d 42 cc 4b f2 |rpheus",m$).B.K.|
00007860 68 59 28 31 36 2c 32 2c 31 29 3a f2 68 59 28 31 |hY(16,2,1):.hY(1|
00007870 36 2c 34 2c 31 29 3a f2 68 59 28 31 36 2c 35 2c |6,4,1):.hY(16,5,|
00007880 31 29 3a f2 68 59 28 31 36 2c 36 2c 31 29 3a f2 |1):.hY(16,6,1):.|
00007890 68 59 28 33 2c 31 2c 31 29 3a f2 68 59 28 39 2c |hY(3,1,1):.hY(9,|
000078a0 34 2c 31 29 3a e1 0d 42 f4 31 dd a4 73 28 61 25 |4,1):..B.1..s(a%|
000078b0 29 3a 61 24 3d 22 22 3a c8 95 3f 61 25 3e 33 31 |):a$="":..?a%>31|
000078c0 3a 61 24 2b 3d bd 28 3f 61 25 29 3a 61 25 2b 3d |:a$+=.(?a%):a%+=|
000078d0 31 3a ce 3a 3d 61 24 0d 43 08 18 dd a4 62 6b 28 |1:.:=a$.C....bk(|
000078e0 66 24 29 3a e7 a7 66 24 2c 22 2e 22 29 20 8c 0d |f$):..f$,".") ..|
000078f0 43 1c 29 c8 95 a7 66 24 2c 22 2e 22 29 3e 30 3a |C.)...f$,".")>0:|
00007900 66 24 3d c1 66 24 2c a7 66 24 2c 22 2e 22 29 2b |f$=.f$,.f$,".")+|
00007910 31 29 3a ce 3a 3d 66 24 0d 43 26 2b cc 3a c8 95 |1):.:=f$.C&+.:..|
00007920 a7 66 24 2c 22 3a 22 29 3e 30 3a 66 24 3d c1 66 |.f$,":")>0:f$=.f|
00007930 24 2c a7 66 24 2c 22 3a 22 29 2b 31 29 3a ce 3a |$,.f$,":")+1):.:|
00007940 3d 66 24 0d 43 3a 09 cd 3a 3d 22 22 0d 43 58 f4 |=f$.C:..:="".CX.|
00007950 dd f2 57 65 3a ea 68 65 25 2c 68 66 25 2c 6e 25 |..We:.he%,hf%,n%|
00007960 2c 68 67 25 3a e3 6e 25 3d 30 20 b8 32 35 35 3a |,hg%:.n%=0 .255:|
00007970 55 77 25 3f 6e 25 3d 30 3a ed 3a 68 65 25 3d 26 |Uw%?n%=0:.:he%=&|
00007980 34 30 30 44 42 3a 68 66 25 3d 26 34 30 30 43 31 |400DB:hf%=&400C1|
00007990 3a 6e 25 3d 51 25 3a 68 67 25 3d 36 30 30 30 3a |:n%=Q%:hg%=6000:|
000079a0 c8 99 26 34 30 30 44 39 2c 2c 22 3c 4d 6f 72 70 |..&400D9,,"<Morp|
000079b0 68 44 65 6d 6f 24 44 69 72 3e 2e 52 65 73 6f 75 |hDemo$Dir>.Resou|
000079c0 72 63 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 3a |rces.Templates":|
000079d0 c8 99 68 65 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b |..he%,,b%,n%,Q%+|
000079e0 68 67 25 2c 55 77 25 2c 22 49 6e 66 6f 22 20 b8 |hg%,Uw%,"Info" .|
000079f0 2c 2c 6e 25 3a 62 25 21 36 34 3d 55 78 25 3a c8 |,,n%:b%!64=Ux%:.|
00007a00 99 68 66 25 2c 2c 62 25 20 b8 57 66 25 3a c8 99 |.hf%,,b% .Wf%:..|
00007a10 68 65 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 |he%,,b%,n%,Q%+hg|
00007a20 25 2c 2d 31 2c 22 5a 6f 6f 6d 22 20 b8 2c 2c 6e |%,-1,"Zoom" .,,n|
00007a30 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 57 68 25 |%:..hf%,,b% .Wh%|
00007a40 0d 43 9e e2 c8 99 68 65 25 2c 2c 62 25 2c 6e 25 |.C....he%,,b%,n%|
00007a50 2c 51 25 2b 68 67 25 2c 2d 31 2c 22 46 69 6c 65 |,Q%+hg%,-1,"File|
00007a60 22 20 b8 2c 2c 6e 25 3a c8 99 68 66 25 2c 2c 62 |" .,,n%:..hf%,,b|
00007a70 25 20 b8 67 6b 25 3a c8 99 68 65 25 2c 2c 62 25 |% .gk%:..he%,,b%|
00007a80 2c 6e 25 2c 51 25 2b 68 67 25 2c 2d 31 2c 22 53 |,n%,Q%+hg%,-1,"S|
00007a90 6f 75 72 63 65 22 20 b8 2c 2c 6e 25 3a c8 99 68 |ource" .,,n%:..h|
00007aa0 66 25 2c 2c 62 25 20 b8 56 6e 25 3a c8 99 68 65 |f%,,b% .Vn%:..he|
00007ab0 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 25 2c |%,,b%,n%,Q%+hg%,|
00007ac0 2d 31 2c 22 4f 70 74 69 6f 6e 73 22 20 b8 2c 2c |-1,"Options" .,,|
00007ad0 6e 25 3a 62 25 21 36 34 3d 55 78 25 3a c8 99 68 |n%:b%!64=Ux%:..h|
00007ae0 66 25 2c 2c 62 25 20 b8 57 72 25 3a c8 99 68 65 |f%,,b% .Wr%:..he|
00007af0 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 25 2c |%,,b%,n%,Q%+hg%,|
00007b00 2d 31 2c 22 4f 70 74 69 6f 6e 73 32 22 20 b8 2c |-1,"Options2" .,|
00007b10 2c 6e 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 59 |,n%:..hf%,,b% .Y|
00007b20 76 25 0d 43 c6 d7 c8 99 68 65 25 2c 2c 62 25 2c |v%.C....he%,,b%,|
00007b30 6e 25 2c 51 25 2b 68 67 25 2c 2d 31 2c 22 44 65 |n%,Q%+hg%,-1,"De|
00007b40 73 74 22 20 b8 2c 2c 6e 25 3a c8 99 68 66 25 2c |st" .,,n%:..hf%,|
00007b50 2c 62 25 20 b8 56 6f 25 3a c8 99 68 65 25 2c 2c |,b% .Vo%:..he%,,|
00007b60 62 25 2c 6e 25 2c 51 25 2b 68 67 25 2c 2d 31 2c |b%,n%,Q%+hg%,-1,|
00007b70 22 46 72 61 6d 65 22 20 b8 2c 2c 6e 25 3a c8 99 |"Frame" .,,n%:..|
00007b80 68 66 25 2c 2c 62 25 20 b8 61 5a 25 3a c8 99 68 |hf%,,b% .aZ%:..h|
00007b90 65 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 25 |e%,,b%,n%,Q%+hg%|
00007ba0 2c 2d 31 2c 22 46 72 61 6d 65 45 64 22 20 b8 2c |,-1,"FrameEd" .,|
00007bb0 2c 6e 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 56 |,n%:..hf%,,b% .V|
00007bc0 6c 25 3a c8 99 68 65 25 2c 2c 62 25 2c 6e 25 2c |l%:..he%,,b%,n%,|
00007bd0 51 25 2b 68 67 25 2c 2d 31 2c 22 46 72 61 6d 65 |Q%+hg%,-1,"Frame|
00007be0 4e 75 6d 22 20 b8 2c 2c 6e 25 3a c8 99 68 66 25 |Num" .,,n%:..hf%|
00007bf0 2c 2c 62 25 20 b8 59 56 25 0d 43 ee e8 c8 99 68 |,,b% .YV%.C....h|
00007c00 65 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 25 |e%,,b%,n%,Q%+hg%|
00007c10 2c 2d 31 2c 22 54 6f 6f 6c 73 22 20 b8 2c 2c 6e |,-1,"Tools" .,,n|
00007c20 25 3a 62 25 21 36 34 3d 55 78 25 3a c8 99 68 66 |%:b%!64=Ux%:..hf|
00007c30 25 2c 2c 62 25 20 b8 59 75 25 3a c8 99 68 65 25 |%,,b% .Yu%:..he%|
00007c40 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 25 2c 2d |,,b%,n%,Q%+hg%,-|
00007c50 31 2c 22 54 69 6d 65 22 20 b8 2c 2c 6e 25 3a c8 |1,"Time" .,,n%:.|
00007c60 99 68 66 25 2c 2c 62 25 20 b8 57 57 25 3a c8 99 |.hf%,,b% .WW%:..|
00007c70 68 65 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 |he%,,b%,n%,Q%+hg|
00007c80 25 2c 2d 31 2c 22 52 65 70 6f 72 74 22 20 b8 2c |%,-1,"Report" .,|
00007c90 2c 6e 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 58 |,n%:..hf%,,b% .X|
00007ca0 74 25 3a c8 99 68 65 25 2c 2c 62 25 2c 6e 25 2c |t%:..he%,,b%,n%,|
00007cb0 51 25 2b 68 67 25 2c 2d 31 2c 22 4d 6f 72 70 68 |Q%+hg%,-1,"Morph|
00007cc0 31 22 20 b8 2c 2c 6e 25 3a 62 25 21 36 34 3d 55 |1" .,,n%:b%!64=U|
00007cd0 78 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 58 64 |x%:..hf%,,b% .Xd|
00007ce0 25 0d 44 16 f7 c8 99 68 65 25 2c 2c 62 25 2c 6e |%.D....he%,,b%,n|
00007cf0 25 2c 51 25 2b 68 67 25 2c 2d 31 2c 22 4d 6f 72 |%,Q%+hg%,-1,"Mor|
00007d00 70 68 32 22 20 b8 2c 2c 6e 25 3a 62 25 21 36 34 |ph2" .,,n%:b%!64|
00007d10 3d 55 78 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 |=Ux%:..hf%,,b% .|
00007d20 58 6a 25 3a c8 99 68 65 25 2c 2c 62 25 2c 6e 25 |Xj%:..he%,,b%,n%|
00007d30 2c 51 25 2b 68 67 25 2c 2d 31 2c 22 4d 6f 72 70 |,Q%+hg%,-1,"Morp|
00007d40 68 33 22 20 b8 2c 2c 6e 25 3a 62 25 21 36 34 3d |h3" .,,n%:b%!64=|
00007d50 55 78 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 58 |Ux%:..hf%,,b% .X|
00007d60 6d 25 3a c8 99 68 65 25 2c 2c 62 25 2c 6e 25 2c |m%:..he%,,b%,n%,|
00007d70 51 25 2b 68 67 25 2c 2d 31 2c 22 4d 6f 72 70 68 |Q%+hg%,-1,"Morph|
00007d80 34 22 20 b8 2c 2c 6e 25 3a c8 99 68 66 25 2c 2c |4" .,,n%:..hf%,,|
00007d90 62 25 20 b8 58 70 25 3a c8 99 68 65 25 2c 2c 62 |b% .Xp%:..he%,,b|
00007da0 25 2c 6e 25 2c 51 25 2b 68 67 25 2c 2d 31 2c 22 |%,n%,Q%+hg%,-1,"|
00007db0 4e 65 77 4d 6f 72 70 68 22 20 b8 2c 2c 6e 25 3a |NewMorph" .,,n%:|
00007dc0 62 25 21 36 34 3d 55 78 25 3a c8 99 68 66 25 2c |b%!64=Ux%:..hf%,|
00007dd0 2c 62 25 20 b8 58 77 25 0d 44 3e 43 c8 99 68 65 |,b% .Xw%.D>C..he|
00007de0 25 2c 2c 62 25 2c 6e 25 2c 51 25 2b 68 67 25 2c |%,,b%,n%,Q%+hg%,|
00007df0 2d 31 2c 22 50 61 74 68 45 64 22 20 b8 2c 2c 6e |-1,"PathEd" .,,n|
00007e00 25 3a c8 99 68 66 25 2c 2c 62 25 20 b8 59 79 25 |%:..hf%,,b% .Yy%|
00007e10 3a c8 99 26 34 30 30 44 41 3a e1 0d 44 66 6a dd |:..&400DA:..Dfj.|
00007e20 f2 68 64 28 68 68 25 2c 68 25 2c 68 69 24 2c 74 |.hd(hh%,h%,hi$,t|
00007e30 24 29 3a ea 64 65 24 2c 68 6a 24 2c 68 6b 24 2c |$):.de$,hj$,hk$,|
00007e40 63 24 2c 68 6c 25 2c 68 6d 25 2c 68 6e 25 2c 49 |c$,hl%,hm%,hn%,I|
00007e50 25 2c 63 67 25 2c 68 6f 25 2c 68 70 25 2c 68 71 |%,cg%,ho%,hp%,hq|
00007e60 25 2c 68 72 25 2c 68 73 25 3a e7 68 25 3c 30 20 |%,hr%,hs%:.h%<0 |
00007e70 8c 67 58 25 3d 55 6f 25 28 2d 68 25 29 8b 67 58 |.gX%=Uo%(-h%).gX|
00007e80 25 3d 68 63 25 0d 44 84 22 68 74 25 3d 67 58 25 |%=hc%.D."ht%=gX%|
00007e90 3a e7 a9 68 69 24 3e 31 31 20 8c 68 69 24 3d c0 |:..hi$>11 .hi$=.|
00007ea0 68 69 24 2c 31 31 29 0d 44 98 c4 24 68 74 25 3d |hi$,11).D..$ht%=|
00007eb0 68 69 24 3a 63 67 25 3d 31 36 2a a9 68 69 24 2b |hi$:cg%=16*.hi$+|
00007ec0 38 3a 68 74 25 21 31 32 3d 26 37 30 32 30 37 3a |8:ht%!12=&70207:|
00007ed0 68 74 25 21 32 30 3d 34 34 3a 68 74 25 21 32 34 |ht%!20=44:ht%!24|
00007ee0 3d 30 3a 68 74 25 2b 3d 32 38 3a e3 49 25 3d 31 |=0:ht%+=28:.I%=1|
00007ef0 20 b8 68 68 25 3a 68 6c 25 3d 2d 31 3a 68 6d 25 | .hh%:hl%=-1:hm%|
00007f00 3d 30 3a 68 6e 25 3d 30 3a 68 70 25 3d 30 3a 68 |=0:hn%=0:hp%=0:h|
00007f10 71 25 3d 37 3a 68 72 25 3d 30 3a 68 73 25 3d 30 |q%=7:hr%=0:hs%=0|
00007f20 3a 64 65 24 3d c0 74 24 2c a7 74 24 2c 22 2c 22 |:de$=.t$,.t$,","|
00007f30 29 2d 31 29 3a 68 6a 24 3d c0 64 65 24 2c a7 64 |)-1):hj$=.de$,.d|
00007f40 65 24 2c 22 7c 22 29 2d 31 29 3a 63 24 3d c1 64 |e$,"|")-1):c$=.d|
00007f50 65 24 2c a7 64 65 24 2c 22 7c 22 29 2b 31 29 3a |e$,.de$,"|")+1):|
00007f60 e7 a7 63 24 2c 22 3e 22 29 20 8c 0d 44 e8 3d 68 |..c$,">") ..D.=h|
00007f70 6b 24 3d c1 63 24 2c a7 63 24 2c 22 3e 22 29 2b |k$=.c$,.c$,">")+|
00007f80 31 29 3a 68 6b 24 3d c0 68 6b 24 2c a7 68 6b 24 |1):hk$=.hk$,.hk$|
00007f90 2c 22 3c 22 29 2d 31 29 3a 68 6c 25 3d 55 6f 25 |,"<")-1):hl%=Uo%|
00007fa0 28 a0 28 68 6b 24 29 29 0d 45 06 11 cd 3a e7 a7 |(.(hk$)).E...:..|
00007fb0 63 24 2c 22 5b 22 29 20 8c 0d 45 1a 35 68 6b 24 |c$,"[") ..E.5hk$|
00007fc0 3d c1 63 24 2c a7 63 24 2c 22 5b 22 29 2b 31 29 |=.c$,.c$,"[")+1)|
00007fd0 3a 68 6b 24 3d c0 68 6b 24 2c a7 68 6b 24 2c 22 |:hk$=.hk$,.hk$,"|
00007fe0 5d 22 29 2d 31 29 3a c8 8e 68 6b 24 20 ca 0d 45 |]")-1):..hk$ ..E|
00007ff0 38 13 c9 22 49 6e 66 6f 22 3a 68 6c 25 3d 57 66 |8.."Info":hl%=Wf|
00008000 25 0d 45 42 13 c9 22 5a 6f 6f 6d 22 3a 68 6c 25 |%.EB.."Zoom":hl%|
00008010 3d 57 68 25 0d 45 4c 13 c9 22 54 69 6d 65 22 3a |=Wh%.EL.."Time":|
00008020 68 6c 25 3d 57 57 25 0d 45 56 13 c9 22 46 69 6c |hl%=WW%.EV.."Fil|
00008030 65 22 3a 68 6c 25 3d 67 6b 25 0d 45 60 13 c9 22 |e":hl%=gk%.E`.."|
00008040 46 72 6d 4e 22 3a 68 6c 25 3d 59 56 25 0d 45 6a |FrmN":hl%=YV%.Ej|
00008050 13 c9 22 46 72 61 6d 22 3a 68 6c 25 3d 56 6c 25 |.."Fram":hl%=Vl%|
00008060 0d 45 74 14 c9 22 4d 6f 72 70 31 22 3a 68 6c 25 |.Et.."Morp1":hl%|
00008070 3d 58 64 25 0d 45 7e 14 c9 22 4d 6f 72 70 32 22 |=Xd%.E~.."Morp2"|
00008080 3a 68 6c 25 3d 58 6a 25 0d 45 88 14 c9 22 4d 6f |:hl%=Xj%.E..."Mo|
00008090 72 70 33 22 3a 68 6c 25 3d 58 6d 25 0d 45 92 14 |rp3":hl%=Xm%.E..|
000080a0 c9 22 4d 6f 72 70 34 22 3a 68 6c 25 3d 58 70 25 |."Morp4":hl%=Xp%|
000080b0 0d 45 9c 1f 7f 3a 85 31 2c 22 55 6e 6b 6e 6f 77 |.E...:.1,"Unknow|
000080c0 6e 20 77 69 6e 64 6f 77 20 3a 22 2b 68 6b 24 0d |n window :"+hk$.|
000080d0 45 b0 05 cb 0d 45 ba 11 cd 3a e7 a7 63 24 2c 22 |E....E...:..c$,"|
000080e0 28 22 29 20 8c 0d 45 ce 39 68 6b 24 3d c1 63 24 |(") ..E.9hk$=.c$|
000080f0 2c a7 63 24 2c 22 28 22 29 2b 31 29 3a 68 6b 24 |,.c$,"(")+1):hk$|
00008100 3d c0 68 6b 24 2c a7 68 6b 24 2c 22 29 22 29 2d |=.hk$,.hk$,")")-|
00008110 31 29 3a c8 8e c1 68 6b 24 2c 33 29 20 ca 0d 45 |1):...hk$,3) ..E|
00008120 ec 15 c9 22 47 52 44 22 3a 68 74 25 21 31 32 3d |..."GRD":ht%!12=|
00008130 55 6d 25 0d 45 f6 3c cb 3a 68 74 25 21 31 36 3d |Um%.E.<.:ht%!16=|
00008140 2d 31 3a 68 74 25 21 32 30 3d a0 c0 68 6b 24 2c |-1:ht%!20=..hk$,|
00008150 32 29 3a 68 6d 25 3d 34 3a 68 70 25 3d 31 3a 63 |2):hm%=4:hp%=1:c|
00008160 67 25 3d 31 36 2b 31 36 2a 68 74 25 21 32 30 0d |g%=16+16*ht%!20.|
00008170 46 14 18 cc 3a 68 6f 25 3d a9 68 6a 24 3a e7 68 |F...:ho%=.hj$:.h|
00008180 6f 25 3e 31 31 20 8c 0d 46 32 3f 68 74 25 21 31 |o%>11 ..F2?ht%!1|
00008190 32 3d 68 62 25 3a 68 74 25 21 31 36 3d 2d 31 3a |2=hb%:ht%!16=-1:|
000081a0 68 74 25 21 32 30 3d 68 6f 25 2b 31 3a 24 68 62 |ht%!20=ho%+1:$hb|
000081b0 25 3d 68 6a 24 3a 68 62 25 2b 3d 68 6f 25 2b 32 |%=hj$:hb%+=ho%+2|
000081c0 3a 68 70 25 3d 31 0d 46 50 13 cc 3a 24 28 68 74 |:hp%=1.FP..:$(ht|
000081d0 25 2b 31 32 29 3d 68 6a 24 0d 46 64 23 cd 3a e7 |%+12)=hj$.Fd#.:.|
000081e0 31 36 2b 31 36 2a 68 6f 25 3e 63 67 25 20 8c 63 |16+16*ho%>cg% .c|
000081f0 67 25 3d 31 36 2b 31 36 2a 68 6f 25 0d 46 78 16 |g%=16+16*ho%.Fx.|
00008200 cd 3a e7 a7 63 24 2c 22 3d 22 29 20 8c 68 6e 25 |.:..c$,"=") .hn%|
00008210 3d 32 0d 46 8c 14 e7 a7 63 24 2c 22 2a 22 29 20 |=2.F....c$,"*") |
00008220 8c 68 73 25 3d 38 0d 46 96 0f e7 a7 63 24 2c 22 |.hs%=8.F....c$,"|
00008230 23 22 29 20 8c 0d 46 a0 3d 68 71 25 3d a0 28 22 |#") ..F.=hq%=.("|
00008240 26 22 2b c1 63 24 2c a7 63 24 2c 22 23 22 29 2b |&"+.c$,.c$,"#")+|
00008250 31 2c 31 29 29 3a 68 72 25 3d a0 28 22 26 22 2b |1,1)):hr%=.("&"+|
00008260 c1 63 24 2c a7 63 24 2c 22 23 22 29 2b 32 2c 31 |.c$,.c$,"#")+2,1|
00008270 29 29 0d 46 b4 a9 cd 3a 74 24 3d c1 74 24 2c a7 |)).F...:t$=.t$,.|
00008280 74 24 2c 22 2c 22 29 2b 31 29 3a 68 74 25 21 30 |t$,",")+1):ht%!0|
00008290 3d 68 6e 25 20 84 68 6d 25 20 84 68 73 25 3a 68 |=hn% .hm% .hs%:h|
000082a0 74 25 21 34 3d 68 6c 25 3a 68 74 25 21 38 3d 26 |t%!4=hl%:ht%!8=&|
000082b0 32 31 20 84 68 70 25 3c 3c 38 20 84 68 71 25 3c |21 .hp%<<8 .hq%<|
000082c0 3c 32 34 20 84 68 72 25 3c 3c 32 38 3a 68 74 25 |<24 .hr%<<28:ht%|
000082d0 2b 3d 32 34 3a ed 3a 68 74 25 21 2d 32 34 3d 28 |+=24:.:ht%!-24=(|
000082e0 68 74 25 21 2d 32 34 20 84 26 38 30 29 3a 67 58 |ht%!-24 .&80):gX|
000082f0 25 21 31 36 3d 63 67 25 3a e7 68 25 3e 3d 30 20 |%!16=cg%:.h%>=0 |
00008300 8c 68 63 25 2b 3d 32 38 2b 32 34 2a 68 68 25 3a |.hc%+=28+24*hh%:|
00008310 55 6f 25 28 68 25 29 3d 67 58 25 0d 47 18 05 e1 |Uo%(h%)=gX%.G...|
00008320 0d 47 2c 15 dd f2 68 75 28 62 25 29 3a c8 8e 62 |.G,...hu(b%):..b|
00008330 25 21 30 20 ca 0d 47 40 0f c9 30 3a f2 5a 6e 28 |%!0 ..G@..0:.Zn(|
00008340 57 66 25 29 0d 47 4a 0f c9 31 3a f2 5a 57 28 59 |Wf%).GJ..1:.ZW(Y|
00008350 76 25 29 0d 47 54 0c c9 32 3a 56 61 25 3d b9 0d |v%).GT..2:Va%=..|
00008360 47 5e 07 cb 3a e1 0d 47 7c 24 dd f2 68 76 28 62 |G^..:..G|$..hv(b|
00008370 25 29 3a ea 78 25 2c 79 25 2c 74 24 2c 74 2c 66 |%):.x%,y%,t$,t,f|
00008380 25 3a c8 8e 62 25 21 30 20 ca 0d 47 9a 0f c9 30 |%:..b%!0 ..G...0|
00008390 3a c8 8e 62 25 21 34 20 ca 0d 47 a4 0f c9 30 3a |:..b%!4 ..G...0:|
000083a0 f2 5a 6e 28 67 6b 25 29 0d 47 ae 0f c9 32 3a f2 |.Zn(gk%).G...2:.|
000083b0 5a 57 28 59 76 25 29 0d 47 b8 0a c9 33 3a f2 5a |ZW(Yv%).G...3:.Z|
000083c0 71 0d 47 c2 05 cb 0d 47 cc 0f c9 31 3a c8 8e 62 |q.G....G...1:..b|
000083d0 25 21 34 20 ca 0d 47 d6 0f c9 30 3a c8 8e 62 25 |%!4 ..G...0:..b%|
000083e0 21 38 20 ca 0d 47 e0 21 c9 30 3a f2 65 6d 28 57 |!8 ..G.!.0:.em(W|
000083f0 6d 25 29 3a f2 61 64 28 56 6e 25 29 3a f2 61 64 |m%):.ad(Vn%):.ad|
00008400 28 56 6f 25 29 0d 47 ea 10 c9 31 3a c8 8e 62 25 |(Vo%).G...1:..b%|
00008410 21 31 32 20 ca 0d 47 f4 19 c9 30 3a f2 66 63 28 |!12 ..G...0:.fc(|
00008420 57 6d 25 2c 64 74 25 2c 30 2c 35 2c 31 29 0d 47 |Wm%,dt%,0,5,1).G|
00008430 fe 19 c9 31 3a f2 66 63 28 57 6d 25 2c 64 74 25 |...1:.fc(Wm%,dt%|
00008440 2c 30 2c 31 2c 31 29 0d 48 08 1a c9 32 3a f2 66 |,0,1,1).H...2:.f|
00008450 63 28 57 6d 25 2c 64 74 25 2c 30 2c 2d 35 2c 31 |c(Wm%,dt%,0,-5,1|
00008460 29 0d 48 12 1a c9 33 3a f2 66 63 28 57 6d 25 2c |).H...3:.fc(Wm%,|
00008470 64 74 25 2c 30 2c 2d 31 2c 31 29 0d 48 1c 05 cb |dt%,0,-1,1).H...|
00008480 0d 48 26 10 c9 32 3a c8 8e 62 25 21 31 32 20 ca |.H&..2:..b%!12 .|
00008490 0d 48 30 1a c9 30 3a f2 66 63 28 57 6d 25 2c 64 |.H0..0:.fc(Wm%,d|
000084a0 72 25 2c 2d 35 2c 30 2c 30 29 0d 48 3a 1a c9 31 |r%,-5,0,0).H:..1|
000084b0 3a f2 66 63 28 57 6d 25 2c 64 72 25 2c 2d 31 2c |:.fc(Wm%,dr%,-1,|
000084c0 30 2c 30 29 0d 48 44 19 c9 32 3a f2 66 63 28 57 |0,0).HD..2:.fc(W|
000084d0 6d 25 2c 64 72 25 2c 35 2c 30 2c 30 29 0d 48 4e |m%,dr%,5,0,0).HN|
000084e0 19 c9 33 3a f2 66 63 28 57 6d 25 2c 64 72 25 2c |..3:.fc(Wm%,dr%,|
000084f0 31 2c 30 2c 30 29 0d 48 58 05 cb 0d 48 62 0d c9 |1,0,0).HX...Hb..|
00008500 33 3a f2 61 56 28 37 29 0d 48 6c 1b c9 34 3a f2 |3:.aV(7).Hl..4:.|
00008510 63 73 28 57 6d 25 2c 30 2c 30 2c 5a 66 25 2c 5a |cs(Wm%,0,0,Zf%,Z|
00008520 67 25 29 0d 48 76 17 c9 35 3a f2 66 6c 28 64 72 |g%).Hv..5:.fl(dr|
00008530 25 2c 64 74 25 2c 57 6d 25 29 0d 48 80 17 c9 36 |%,dt%,Wm%).H...6|
00008540 3a f2 66 6d 28 64 72 25 2c 64 74 25 2c 57 6d 25 |:.fm(dr%,dt%,Wm%|
00008550 29 0d 48 8a 05 cb 0d 48 94 21 c9 31 3a f2 65 73 |).H....H.!.1:.es|
00008560 28 57 6d 25 29 3a f2 61 64 28 56 6e 25 29 3a f2 |(Wm%):.ad(Vn%):.|
00008570 61 64 28 56 6f 25 29 0d 48 9e 15 c9 32 3a f2 65 |ad(Vo%).H...2:.e|
00008580 75 28 57 6d 25 2c 33 2d 57 6d 25 29 0d 48 a8 0f |u(Wm%,3-Wm%).H..|
00008590 c9 33 3a c8 8e 62 25 21 38 20 ca 0d 48 b2 0e c9 |.3:..b%!8 ..H...|
000085a0 2d 31 3a f2 65 74 28 33 29 0d 48 bc 0f 7f 3a f2 |-1:.et(3).H...:.|
000085b0 65 74 28 62 25 21 38 29 0d 48 d0 05 cb 0d 48 da |et(b%!8).H....H.|
000085c0 0a c9 34 3a f2 66 6b 0d 48 e4 0f c9 35 3a c8 8e |..4:.fk.H...5:..|
000085d0 62 25 21 38 20 ca 0d 48 ee 1f c9 30 3a 64 73 25 |b%!8 ..H...0:ds%|
000085e0 3d 31 30 3a 64 6b 25 3d 31 30 3a f2 59 70 3a f2 |=10:dk%=10:.Yp:.|
000085f0 65 74 28 33 29 0d 48 f8 1f c9 31 3a 64 73 25 3d |et(3).H...1:ds%=|
00008600 31 35 3a 64 6b 25 3d 31 35 3a f2 59 70 3a f2 65 |15:dk%=15:.Yp:.e|
00008610 74 28 33 29 0d 49 02 1f c9 32 3a 64 73 25 3d 32 |t(3).I...2:ds%=2|
00008620 30 3a 64 6b 25 3d 32 30 3a f2 59 70 3a f2 65 74 |0:dk%=20:.Yp:.et|
00008630 28 33 29 0d 49 0c 1f c9 33 3a 64 73 25 3d 33 30 |(3).I...3:ds%=30|
00008640 3a 64 6b 25 3d 33 30 3a f2 59 70 3a f2 65 74 28 |:dk%=30:.Yp:.et(|
00008650 33 29 0d 49 16 1d c9 35 3a 74 24 3d a4 73 28 55 |3).I...5:t$=.s(U|
00008660 6d 25 29 3a e7 a7 74 24 2c 22 78 22 29 20 8c 0d |m%):..t$,"x") ..|
00008670 49 2a 4f 78 25 3d bb 28 c0 74 24 2c a7 74 24 2c |I*Ox%=.(.t$,.t$,|
00008680 22 78 22 29 2d 31 29 29 3a 79 25 3d bb 28 c1 74 |"x")-1)):y%=.(.t|
00008690 24 2c a7 74 24 2c 22 78 22 29 2b 32 29 29 3a e7 |$,.t$,"x")+2)):.|
000086a0 78 25 3e 3d 33 20 80 78 25 3c 3d 33 30 20 80 79 |x%>=3 .x%<=30 .y|
000086b0 25 3e 3d 33 20 80 79 25 3c 3d 33 30 20 8c 0d 49 |%>=3 .y%<=30 ..I|
000086c0 3e 22 64 73 25 3d 78 25 3a 64 6b 25 3d 79 25 3a |>"ds%=x%:dk%=y%:|
000086d0 f2 59 70 3a f2 65 74 28 33 29 3a 74 24 3d 22 22 |.Yp:.et(3):t$=""|
000086e0 0d 49 52 24 cc 3a 85 31 2c 22 49 6c 6c 65 67 61 |.IR$.:.1,"Illega|
000086f0 6c 20 67 72 69 64 20 73 69 7a 65 20 28 33 2d 33 |l grid size (3-3|
00008700 30 29 2e 22 0d 49 66 05 cd 0d 49 70 11 cd 3a e7 |0).".If...Ip..:.|
00008710 a7 74 24 2c 22 58 22 29 20 8c 0d 49 84 4f 78 25 |.t$,"X") ..I.Ox%|
00008720 3d bb 28 c0 74 24 2c a7 74 24 2c 22 58 22 29 2d |=.(.t$,.t$,"X")-|
00008730 31 29 29 3a 79 25 3d bb 28 c1 74 24 2c a7 74 24 |1)):y%=.(.t$,.t$|
00008740 2c 22 58 22 29 2b 32 29 29 3a e7 78 25 3e 3d 33 |,"X")+2)):.x%>=3|
00008750 20 80 78 25 3c 3d 33 30 20 80 79 25 3e 3d 33 20 | .x%<=30 .y%>=3 |
00008760 80 79 25 3c 3d 33 30 20 8c 0d 49 98 1c 64 73 25 |.y%<=30 ..I..ds%|
00008770 3d 78 25 3a 64 6b 25 3d 79 25 3a f2 59 70 3a f2 |=x%:dk%=y%:.Yp:.|
00008780 65 74 28 33 29 0d 49 ac 24 cc 3a 85 31 2c 22 49 |et(3).I.$.:.1,"I|
00008790 6c 6c 65 67 61 6c 20 67 72 69 64 20 73 69 7a 65 |llegal grid size|
000087a0 20 28 33 2d 33 30 29 2e 22 0d 49 c0 05 cd 0d 49 | (3-30).".I....I|
000087b0 ca 05 cd 0d 49 d4 05 cb 0d 49 de 0f c9 36 3a c8 |....I....I...6:.|
000087c0 8e 62 25 21 38 20 ca 0d 49 e8 0a c9 30 3a f2 66 |.b%!8 ..I...0:.f|
000087d0 61 0d 49 f2 0a c9 31 3a f2 66 62 0d 49 fc 0f c9 |a.I...1:.fb.I...|
000087e0 32 3a f2 65 79 28 64 74 25 29 0d 4a 06 0f c9 33 |2:.ey(dt%).J...3|
000087f0 3a f2 66 59 28 64 72 25 29 0d 4a 10 05 cb 0d 4a |:.fY(dr%).J....J|
00008800 1a 05 cb 0d 4a 24 0f c9 32 3a c8 8e 62 25 21 34 |....J$..2:..b%!4|
00008810 20 ca 0d 4a 2e 0f c9 30 3a f2 5a 57 28 58 64 25 | ..J...0:.ZW(Xd%|
00008820 29 0d 4a 38 0f c9 31 3a f2 5a 57 28 58 6a 25 29 |).J8..1:.ZW(Xj%)|
00008830 0d 4a 42 0f c9 32 3a f2 5a 6e 28 58 6d 25 29 0d |.JB..2:.Zn(Xm%).|
00008840 4a 4c 0f c9 33 3a f2 5a 6e 28 58 70 25 29 0d 4a |JL..3:.Zn(Xp%).J|
00008850 56 05 cb 0d 4a 60 0f c9 33 3a c8 8e 62 25 21 34 |V...J`..3:..b%!4|
00008860 20 ca 0d 4a 6a 13 c9 30 3a f2 5a 65 3a f2 5a 6e | ..Jj..0:.Ze:.Zn|
00008870 28 59 56 25 29 0d 4a 74 0f c9 31 3a f2 5a 6e 28 |(YV%).Jt..1:.Zn(|
00008880 56 6c 25 29 0d 4a 7e 10 c9 32 3a f2 62 62 28 62 |Vl%).J~..2:.bb(b|
00008890 25 21 38 29 0d 4a 88 05 cb 0d 4a 92 12 c9 34 3a |%!8).J....J...4:|
000088a0 e7 62 25 21 34 3c 3e 2d 31 20 8c 0d 4a 9c 0f f2 |.b%!4<>-1 ..J...|
000088b0 5a 68 28 31 2b 62 25 21 34 29 0d 4a a6 0c cc 3a |Zh(1+b%!4).J...:|
000088c0 f2 5a 68 28 31 29 0d 4a ba 0e cd 3a f2 5a 57 28 |.Zh(1).J...:.ZW(|
000088d0 57 57 25 29 0d 4a ce 0f c9 35 3a f2 5a 6e 28 57 |WW%).J...5:.Zn(W|
000088e0 68 25 29 0d 4a d8 07 cb 3a e1 0d 4a f6 1c dd f2 |h%).J...:..J....|
000088f0 68 77 28 62 25 29 3a ea 63 25 2c 63 24 3a c8 8e |hw(b%):.c%,c$:..|
00008900 62 25 21 30 20 ca 0d 4b 14 0c c9 30 3a 68 61 25 |b%!0 ..K...0:ha%|
00008910 3d 30 0d 4b 1e 0c c9 31 3a 68 61 25 3d 37 0d 4b |=0.K...1:ha%=7.K|
00008920 28 1f c9 32 2c 33 2c 34 2c 35 2c 36 2c 37 2c 38 |(..2,3,4,5,6,7,8|
00008930 2c 39 3a 68 61 25 3d 36 2b 62 25 21 30 0d 4b 32 |,9:ha%=6+b%!0.K2|
00008940 0e c9 31 30 3a 68 61 25 3d 37 31 0d 4b 3c 2b cb |..10:ha%=71.K<+.|
00008950 3a 63 25 3d 68 61 25 3a 63 24 3d 22 22 3a e7 63 |:c%=ha%:c$="":.c|
00008960 25 3d 37 31 20 8c 63 25 3d 30 3a 63 24 3d 22 49 |%=71 .c%=0:c$="I|
00008970 6e 76 65 72 74 22 0d 4b 5a 2e 24 57 71 25 3d 63 |nvert".KZ.$Wq%=c|
00008980 24 3a f2 5a 69 28 57 72 25 2c 33 31 2c 63 25 29 |$:.Zi(Wr%,31,c%)|
00008990 3a f2 61 64 28 56 6e 25 29 3a f2 61 64 28 56 6f |:.ad(Vn%):.ad(Vo|
000089a0 25 29 3a e1 0d 4b 8c 2e dd f2 68 78 28 62 25 29 |%):..K....hx(b%)|
000089b0 3a 62 55 25 3d 62 25 21 30 3a f2 61 7a 28 62 55 |:bU%=b%!0:.az(bU|
000089c0 25 2c 58 64 25 2c 31 38 29 3a e7 61 79 25 3d 33 |%,Xd%,18):.ay%=3|
000089d0 20 8c 0d 4b b4 0b c8 8e 62 55 25 20 ca 0d 4b be | ..K....bU% ..K.|
000089e0 29 c9 30 2c 31 2c 33 3a 24 58 65 25 3d 22 53 66 |).0,1,3:$Xe%="Sf|
000089f0 69 6c 65 5f 66 66 39 3b 50 70 74 72 5f 68 61 6e |ile_ff9;Pptr_han|
00008a00 64 2c 36 2c 36 22 0d 4b c8 10 cb 3a f2 5a 63 28 |d,6,6".K...:.Zc(|
00008a10 58 64 25 2c 34 29 0d 4b dc 07 cd 3a e1 0d 4b fa |Xd%,4).K...:..K.|
00008a20 27 dd f2 68 79 28 62 25 29 3a 62 5a 25 3d 62 25 |'..hy(b%):bZ%=b%|
00008a30 21 30 3a f2 61 7a 28 62 5a 25 2c 58 6a 25 2c 31 |!0:.az(bZ%,Xj%,1|
00008a40 37 29 3a e1 0d 4c 2c 1a dd f2 68 7a 28 62 25 29 |7):..L,...hz(b%)|
00008a50 3a f2 5a 68 28 31 2b 62 25 21 30 29 3a e1 0d 4c |:.Zh(1+b%!0):..L|
00008a60 54 19 dd f2 69 55 28 62 25 29 3a ea 70 25 3a c8 |T...iU(b%):.p%:.|
00008a70 8e 62 25 21 30 20 ca 0d 4c 72 3e c9 30 3a f2 62 |.b%!0 ..Lr>.0:.b|
00008a80 67 3a 70 25 3d 55 6b 25 2b 38 2b 34 38 2a 58 56 |g:p%=Uk%+8+48*XV|
00008a90 25 3a 70 25 21 33 32 3d 30 3a 70 25 21 33 36 3d |%:p%!32=0:p%!36=|
00008aa0 30 3a 70 25 21 34 30 3d 30 3a 70 25 21 34 34 3d |0:p%!40=0:p%!44=|
00008ab0 30 3a f2 62 67 0d 4c 90 0f c9 31 3a f2 66 6e 28 |0:.bg.L...1:.fn(|
00008ac0 58 56 25 29 0d 4c 9a 0f c9 32 3a f2 66 70 28 58 |XV%).L...2:.fp(X|
00008ad0 56 25 29 0d 4c a4 18 c9 33 3a 58 61 25 3d ac 58 |V%).L...3:Xa%=.X|
00008ae0 61 25 3a f2 61 64 28 59 79 25 29 0d 4c ae 18 c9 |a%:.ad(Yy%).L...|
00008af0 34 3a 58 5a 25 3d ac 58 5a 25 3a f2 61 64 28 59 |4:XZ%=.XZ%:.ad(Y|
00008b00 79 25 29 0d 4c b8 07 cb 3a e1 0d 4c d6 14 dd f2 |y%).L...:..L....|
00008b10 56 73 28 62 25 29 3a c8 8e 57 58 25 20 ca 0d 4c |Vs(b%):..WX% ..L|
00008b20 ea 0e c9 31 3a f2 68 75 28 62 25 29 0d 4c f4 0e |...1:.hu(b%).L..|
00008b30 c9 32 3a f2 68 76 28 62 25 29 0d 4c fe 0e c9 33 |.2:.hv(b%).L...3|
00008b40 3a f2 68 77 28 62 25 29 0d 4d 08 0e c9 34 3a f2 |:.hw(b%).M...4:.|
00008b50 68 78 28 62 25 29 0d 4d 12 0e c9 35 3a f2 68 79 |hx(b%).M...5:.hy|
00008b60 28 62 25 29 0d 4d 1c 0e c9 36 3a f2 68 7a 28 62 |(b%).M...6:.hz(b|
00008b70 25 29 0d 4d 26 0e c9 37 3a f2 69 55 28 62 25 29 |%).M&..7:.iU(b%)|
00008b80 0d 4d 30 1f cb 3a c8 99 26 34 30 30 43 46 2c 2c |.M0..:..&400CF,,|
00008b90 62 25 3a e7 28 62 25 21 38 20 80 31 29 20 8c 0d |b%:.(b%!8 .1) ..|
00008ba0 4d 4e 0b c8 8e 57 58 25 20 ca 0d 4d 58 23 c9 31 |MN...WX% ..MX#.1|
00008bb0 3a f2 61 57 3a c8 99 26 34 30 30 44 34 2c 2c 55 |:.aW:..&400D4,,U|
00008bc0 6f 25 28 31 29 2c 61 58 25 2c 61 59 25 0d 4d 62 |o%(1),aX%,aY%.Mb|
00008bd0 28 c9 32 3a f2 61 65 28 57 6d 25 29 3a c8 99 26 |(.2:.ae(Wm%):..&|
00008be0 34 30 30 44 34 2c 2c 55 6f 25 28 32 29 2c 61 58 |400D4,,Uo%(2),aX|
00008bf0 25 2c 61 59 25 0d 4d 6c 23 c9 33 3a f2 61 75 3a |%,aY%.Ml#.3:.au:|
00008c00 c8 99 26 34 30 30 44 34 2c 2c 55 6f 25 28 36 29 |..&400D4,,Uo%(6)|
00008c10 2c 61 58 25 2c 61 59 25 0d 4d 76 2b c9 34 2c 35 |,aX%,aY%.Mv+.4,5|
00008c20 3a f2 62 58 28 57 58 25 29 3a c8 99 26 34 30 30 |:.bX(WX%):..&400|
00008c30 44 34 2c 2c 55 6f 25 28 31 36 29 2c 61 58 25 2c |D4,,Uo%(16),aX%,|
00008c40 61 59 25 0d 4d 80 24 c9 36 3a f2 61 6f 3a c8 99 |aY%.M.$.6:.ao:..|
00008c50 26 34 30 30 44 34 2c 2c 55 6f 25 28 31 31 29 2c |&400D4,,Uo%(11),|
00008c60 61 58 25 2c 61 59 25 0d 4d 8a 24 c9 37 3a f2 62 |aX%,aY%.M.$.7:.b|
00008c70 68 3a c8 99 26 34 30 30 44 34 2c 2c 55 6f 25 28 |h:..&400D4,,Uo%(|
00008c80 31 39 29 2c 61 58 25 2c 61 59 25 0d 4d 94 05 cb |19),aX%,aY%.M...|
00008c90 0d 4d 9e 07 cd 3a e1 0d 4d bc 67 dd f2 5a 6e 28 |.M...:..M.g..Zn(|
00008ca0 77 25 29 3a ea 64 70 25 2c 64 71 25 3a c8 99 26 |w%):.dp%,dq%:..&|
00008cb0 34 30 30 43 46 2c 2c 55 79 25 3a 64 70 25 3d 55 |400CF,,Uy%:dp%=U|
00008cc0 79 25 21 30 3a 64 71 25 3d 55 79 25 21 34 3a 55 |y%!0:dq%=Uy%!4:U|
00008cd0 79 25 21 30 3d 77 25 3a c8 99 26 34 30 30 43 42 |y%!0=w%:..&400CB|
00008ce0 2c 2c 55 79 25 3a e7 28 28 55 79 25 21 33 32 29 |,,Uy%:.((Uy%!32)|
00008cf0 80 28 31 3c 3c 31 36 29 29 3c 3e 30 20 8c 0d 4d |.(1<<16))<>0 ..M|
00008d00 ee 0b f2 61 64 28 77 25 29 0d 4d f8 3c cc 3a c8 |...ad(w%).M.<.:.|
00008d10 99 26 34 30 30 44 34 2c 2c 77 25 2c 64 70 25 2d |.&400D4,,w%,dp%-|
00008d20 28 55 79 25 21 31 32 2d 55 79 25 21 34 29 2f 32 |(Uy%!12-Uy%!4)/2|
00008d30 2c 64 71 25 2b 28 55 79 25 21 31 36 2d 55 79 25 |,dq%+(Uy%!16-Uy%|
00008d40 21 38 29 2f 32 0d 4e 0c 07 cd 3a e1 0d 4e 2a 53 |!8)/2.N...:..N*S|
00008d50 dd f2 68 59 28 70 25 2c 6e 25 2c 73 25 29 3a 70 |..hY(p%,n%,s%):p|
00008d60 25 3d 55 6f 25 28 70 25 29 2b 33 36 2b 6e 25 2a |%=Uo%(p%)+36+n%*|
00008d70 32 34 3a e7 73 25 20 8c 21 70 25 3d 28 21 70 25 |24:.s% .!p%=(!p%|
00008d80 20 84 26 34 30 30 30 30 30 29 8b 21 70 25 3d 28 | .&400000).!p%=(|
00008d90 21 70 25 20 80 20 ac 26 34 30 30 30 30 30 29 0d |!p% . .&400000).|
00008da0 4e 48 05 e1 0d 4e 5c 47 dd f2 68 5a 28 70 25 2c |NH...N\G..hZ(p%,|
00008db0 6e 25 2c 74 25 29 3a 70 25 3d 55 6f 25 28 70 25 |n%,t%):p%=Uo%(p%|
00008dc0 29 2b 32 38 2b 6e 25 2a 32 34 3a e7 74 25 20 8c |)+28+n%*24:.t% .|
00008dd0 21 70 25 3d 28 21 70 25 20 84 31 29 8b 21 70 25 |!p%=(!p% .1).!p%|
00008de0 3d 28 21 70 25 20 80 20 ac 31 29 0d 4e 7a 05 e1 |=(!p% . .1).Nz..|
00008df0 0d 4e 8e 13 dd f2 55 57 3a c8 99 26 34 30 36 43 |.N....UW:..&406C|
00008e00 30 3a e1 0d 4e 98 13 dd f2 56 58 3a c8 99 26 34 |0:..N....VX:..&4|
00008e10 30 36 43 31 3a e1 0d 4e a2 18 dd f2 66 57 28 70 |06C1:..N....fW(p|
00008e20 25 29 3a e7 70 25 3c 30 20 8c 70 25 3d 30 0d 4e |%):.p%<0 .p%=0.N|
00008e30 b6 11 c8 99 26 34 30 36 43 34 2c 70 25 3a e1 0d |....&406C4,p%:..|
00008e40 4e d4 1d dd f2 61 7a 28 66 25 2c 77 25 2c 69 25 |N....az(f%,w%,i%|
00008e50 29 3a ea 66 24 3a c8 8e 66 25 20 ca 0d 4e f2 17 |):.f$:..f% ..N..|
00008e60 c9 30 3a 66 24 3d 22 53 70 72 69 74 65 20 38 62 |.0:f$="Sprite 8b|
00008e70 70 70 22 0d 4e fc 1c c9 31 3a 66 24 3d 22 53 70 |pp".N...1:f$="Sp|
00008e80 72 69 74 65 20 38 62 70 70 20 67 72 65 79 22 0d |rite 8bpp grey".|
00008e90 4f 06 17 c9 32 3a 66 24 3d 22 43 6c 65 61 72 20 |O...2:f$="Clear |
00008ea0 32 34 62 70 70 22 0d 4f 10 1c c9 33 3a 66 24 3d |24bpp".O...3:f$=|
00008eb0 22 53 70 72 69 74 65 20 34 62 70 70 20 67 72 65 |"Sprite 4bpp gre|
00008ec0 79 22 0d 4f 1a 16 c9 34 3a 66 24 3d 22 43 4d 59 |y".O...4:f$="CMY|
00008ed0 4b 20 33 32 62 70 70 22 0d 4f 24 1b c9 35 3a 66 |K 32bpp".O$..5:f|
00008ee0 24 3d 22 50 31 35 20 28 31 35 62 70 70 20 52 47 |$="P15 (15bpp RG|
00008ef0 42 29 22 0d 4f 2e 1b c9 36 3a 66 24 3d 22 50 31 |B)".O...6:f$="P1|
00008f00 33 20 28 31 35 62 70 70 20 59 55 56 29 22 0d 4f |3 (15bpp YUV)".O|
00008f10 38 20 cb 3a 24 a4 69 28 77 25 2c 69 25 29 3d 66 |8 .:$.i(w%,i%)=f|
00008f20 24 3a f2 5a 63 28 77 25 2c 69 25 29 3a e1 0d 4f |$:.Zc(w%,i%):..O|
00008f30 7e 39 dd f2 57 75 28 77 25 2c 69 25 2c 66 25 29 |~9..Wu(w%,i%,f%)|
00008f40 3a 55 79 25 21 30 3d 77 25 3a 55 79 25 21 34 3d |:Uy%!0=w%:Uy%!4=|
00008f50 69 25 3a c8 99 26 34 30 30 43 45 2c 2c 55 79 25 |i%:..&400CE,,Uy%|
00008f60 3a c8 8e 66 25 20 ca 0d 4f 9c 1e c9 30 3a 55 79 |:..f% ..O...0:Uy|
00008f70 25 21 38 3d 55 79 25 21 32 34 20 80 20 ac 28 31 |%!8=Uy%!24 . .(1|
00008f80 3c 3c 32 31 29 0d 4f a6 1f c9 31 2c 2d 31 3a 55 |<<21).O...1,-1:U|
00008f90 79 25 21 38 3d 55 79 25 21 32 34 20 84 28 31 3c |y%!8=Uy%!24 .(1<|
00008fa0 3c 32 31 29 0d 4f b0 1c c9 32 3a 55 79 25 21 38 |<21).O...2:Uy%!8|
00008fb0 3d 55 79 25 21 32 34 20 82 28 31 3c 3c 32 31 29 |=Uy%!24 .(1<<21)|
00008fc0 0d 4f ba 1f cb 3a 55 79 25 21 31 32 3d 2d 31 3a |.O...:Uy%!12=-1:|
00008fd0 c8 99 26 34 30 30 43 44 2c 2c 55 79 25 3a e1 0d |..&400CD,,Uy%:..|
00008fe0 4f e2 38 dd f2 61 72 28 77 25 2c 69 25 2c 66 25 |O.8..ar(w%,i%,f%|
00008ff0 29 3a 55 79 25 21 30 3d 77 25 3a 55 79 25 21 34 |):Uy%!0=w%:Uy%!4|
00009000 3d 69 25 3a c8 99 26 34 30 30 43 45 2c 2c 55 79 |=i%:..&400CE,,Uy|
00009010 25 3a e7 66 25 20 8c 0d 50 00 19 55 79 25 21 38 |%:.f% ..P..Uy%!8|
00009020 3d 55 79 25 21 32 34 20 84 28 31 3c 3c 32 32 29 |=Uy%!24 .(1<<22)|
00009030 0d 50 0a 1d cc 3a 55 79 25 21 38 3d 55 79 25 21 |.P...:Uy%!8=Uy%!|
00009040 32 34 20 80 20 ac 28 31 3c 3c 32 32 29 0d 50 1e |24 . .(1<<22).P.|
00009050 1f cd 3a 55 79 25 21 31 32 3d 2d 31 3a c8 99 26 |..:Uy%!12=-1:..&|
00009060 34 30 30 43 44 2c 2c 55 79 25 3a e1 0d 50 46 42 |400CD,,Uy%:..PFB|
00009070 dd f2 5a 63 28 77 25 2c 69 25 29 3a 55 79 25 21 |..Zc(w%,i%):Uy%!|
00009080 30 3d 77 25 3a 55 79 25 21 34 3d 69 25 3a 55 79 |0=w%:Uy%!4=i%:Uy|
00009090 25 21 38 3d 30 3a 55 79 25 21 31 32 3d 30 3a c8 |%!8=0:Uy%!12=0:.|
000090a0 99 26 34 30 30 43 44 2c 2c 55 79 25 3a e1 0d 50 |.&400CD,,Uy%:..P|
000090b0 6e 32 dd a4 69 28 77 25 2c 69 25 29 3a 62 25 21 |n2..i(w%,i%):b%!|
000090c0 30 3d 77 25 3a 62 25 21 34 3d 69 25 3a c8 99 26 |0=w%:b%!4=i%:..&|
000090d0 34 30 30 43 45 2c 2c 62 25 3a 3d 62 25 21 32 38 |400CE,,b%:=b%!28|
000090e0 0d 50 78 37 dd a4 58 66 28 77 25 2c 69 25 29 3a |.Px7..Xf(w%,i%):|
000090f0 55 79 25 21 30 3d 77 25 3a 55 79 25 21 34 3d 69 |Uy%!0=w%:Uy%!4=i|
00009100 25 3a c8 99 26 34 30 30 43 45 2c 2c 55 79 25 3a |%:..&400CE,,Uy%:|
00009110 3d 55 79 25 21 33 32 0d 50 8c 31 dd f2 5a 72 28 |=Uy%!32.P.1..Zr(|
00009120 6b 25 29 3a e7 6b 25 20 8c c8 99 26 31 41 2c 26 |k%):.k% ...&1A,&|
00009130 33 30 30 2c 26 46 30 30 8b c8 99 26 31 41 2c 26 |300,&F00...&1A,&|
00009140 44 30 30 2c 26 46 30 30 0d 50 a0 05 e1 0d 50 b4 |D00,&F00.P....P.|
00009150 78 dd f2 5a 69 28 77 25 2c 69 25 2c 68 72 25 29 |x..Zi(w%,i%,hr%)|
00009160 3a 55 79 25 21 30 3d 77 25 3a 55 79 25 21 34 3d |:Uy%!0=w%:Uy%!4=|
00009170 69 25 3a c8 99 26 36 30 30 43 45 2c 2c 55 79 25 |i%:..&600CE,,Uy%|
00009180 3a 55 79 25 21 38 3d 55 79 25 21 32 34 3a 55 79 |:Uy%!8=Uy%!24:Uy|
00009190 25 3f 31 31 3d 28 28 55 79 25 3f 31 31 29 80 31 |%?11=((Uy%?11).1|
000091a0 35 29 84 28 68 72 25 2a 31 36 29 3a 55 79 25 21 |5).(hr%*16):Uy%!|
000091b0 31 32 3d 2d 31 3a c8 99 26 36 30 30 43 44 2c 2c |12=-1:..&600CD,,|
000091c0 55 79 25 3a e1 0d 50 fa 1b dd f2 59 73 28 69 56 |Uy%:..P....Ys(iV|
000091d0 25 29 3a ea 74 25 2c 69 25 3a e7 69 56 25 20 8c |%):.t%,i%:.iV% .|
000091e0 0d 51 18 f9 61 71 25 3d a3 3a f2 57 75 28 57 72 |.Q..aq%=.:.Wu(Wr|
000091f0 25 2c 34 2c 30 29 3a 5a 72 25 3d a3 3a f2 57 75 |%,4,0):Zr%=.:.Wu|
00009200 28 57 72 25 2c 32 2c 30 29 3a f2 61 72 28 57 72 |(Wr%,2,0):.ar(Wr|
00009210 25 2c 32 2c 30 29 3a 69 57 25 3d a3 3a f2 57 75 |%,2,0):iW%=.:.Wu|
00009220 28 57 72 25 2c 31 33 2c 30 29 3a f2 61 72 28 57 |(Wr%,13,0):.ar(W|
00009230 72 25 2c 31 33 2c 31 29 3a 59 74 25 3d b9 3a f2 |r%,13,1):Yt%=.:.|
00009240 57 75 28 57 72 25 2c 33 2c 31 29 3a f2 61 72 28 |Wu(Wr%,3,1):.ar(|
00009250 58 64 25 2c 35 2c 31 29 3a f2 61 72 28 58 6a 25 |Xd%,5,1):.ar(Xj%|
00009260 2c 35 2c 31 29 3a 61 74 25 3d b9 3a f2 57 75 28 |,5,1):at%=.:.Wu(|
00009270 57 72 25 2c 32 39 2c 31 29 3a 61 78 25 3d a3 3a |Wr%,29,1):ax%=.:|
00009280 f2 57 75 28 57 72 25 2c 34 32 2c 30 29 3a f2 61 |.Wu(Wr%,42,0):.a|
00009290 72 28 57 72 25 2c 34 32 2c 30 29 3a 61 63 25 3d |r(Wr%,42,0):ac%=|
000092a0 b9 3a f2 57 75 28 59 75 25 2c 31 2c 31 29 3a 61 |.:.Wu(Yu%,1,1):a|
000092b0 67 25 3d b9 3a f2 57 75 28 57 72 25 2c 33 32 2c |g%=.:.Wu(Wr%,32,|
000092c0 31 29 3a 68 61 25 3d 31 31 3a f2 5a 69 28 57 72 |1):ha%=11:.Zi(Wr|
000092d0 25 2c 33 31 2c 68 61 25 29 0d 51 7c fd cd 3a 5a |%,31,ha%).Q|..:Z|
000092e0 6a 25 3d 31 3a e3 74 25 3d 31 20 b8 38 3a e3 69 |j%=1:.t%=1 .8:.i|
000092f0 25 3d 30 20 b8 31 30 3a 55 72 25 28 74 25 2c 69 |%=0 .10:Ur%(t%,i|
00009300 25 29 3d 69 25 2a 35 30 2e 38 3a ed 3a f2 61 70 |%)=i%*50.8:.:.ap|
00009310 28 74 25 29 3a ed 3a 24 a4 69 28 67 6b 25 2c 37 |(t%):.:$.i(gk%,7|
00009320 29 3d 22 2d 22 3a 61 79 25 3d 30 3a f2 57 75 28 |)="-":ay%=0:.Wu(|
00009330 58 64 25 2c 36 2c 31 29 3a f2 57 75 28 58 64 25 |Xd%,6,1):.Wu(Xd%|
00009340 2c 37 2c 30 29 3a f2 57 75 28 58 64 25 2c 38 2c |,7,0):.Wu(Xd%,8,|
00009350 30 29 3a f2 61 72 28 58 64 25 2c 38 2c 31 29 3a |0):.ar(Xd%,8,1):|
00009360 f2 57 75 28 58 64 25 2c 31 37 2c 30 29 3a 24 58 |.Wu(Xd%,17,0):$X|
00009370 63 25 3d 22 4d 6f 72 70 68 65 75 73 3a 4d 6f 72 |c%="Morpheus:Mor|
00009380 70 68 65 64 22 3a 24 58 67 25 3d 22 30 2e 35 30 |phed":$Xg%="0.50|
00009390 22 3a 24 58 68 25 3d 22 31 22 3a 62 56 25 3d b9 |":$Xh%="1":bV%=.|
000093a0 3a f2 57 75 28 58 64 25 2c 31 31 2c 31 29 3a f2 |:.Wu(Xd%,11,1):.|
000093b0 61 72 28 58 64 25 2c 31 34 2c 31 29 3a 59 77 25 |ar(Xd%,14,1):Yw%|
000093c0 3d a3 3a 62 55 25 3d 30 3a f2 61 7a 28 30 2c 58 |=.:bU%=0:.az(0,X|
000093d0 64 25 2c 31 38 29 0d 52 44 fa f2 61 72 28 58 64 |d%,18).RD..ar(Xd|
000093e0 25 2c 32 2c 31 29 3a f2 61 72 28 58 64 25 2c 34 |%,2,1):.ar(Xd%,4|
000093f0 2c 31 29 3a 62 59 25 3d 30 3a f2 57 75 28 58 6a |,1):bY%=0:.Wu(Xj|
00009400 25 2c 36 2c 31 29 3a f2 57 75 28 58 6a 25 2c 37 |%,6,1):.Wu(Xj%,7|
00009410 2c 30 29 3a f2 57 75 28 58 6a 25 2c 38 2c 30 29 |,0):.Wu(Xj%,8,0)|
00009420 3a f2 61 72 28 58 6a 25 2c 38 2c 31 29 3a f2 57 |:.ar(Xj%,8,1):.W|
00009430 75 28 58 6a 25 2c 31 36 2c 30 29 3a 24 58 69 25 |u(Xj%,16,0):$Xi%|
00009440 3d 22 4d 6f 72 70 68 65 75 73 3a 53 65 72 69 65 |="Morpheus:Serie|
00009450 73 22 3a 24 58 6b 25 3d 22 31 22 3a 62 61 25 3d |s":$Xk%="1":ba%=|
00009460 b9 3a f2 57 75 28 58 6a 25 2c 31 32 2c 31 29 3a |.:.Wu(Xj%,12,1):|
00009470 f2 61 72 28 58 6a 25 2c 31 33 2c 31 29 3a 59 78 |.ar(Xj%,13,1):Yx|
00009480 25 3d a3 3a 62 5a 25 3d 30 3a f2 61 7a 28 30 2c |%=.:bZ%=0:.az(0,|
00009490 58 6a 25 2c 31 37 29 3a f2 61 72 28 58 6a 25 2c |Xj%,17):.ar(Xj%,|
000094a0 32 2c 31 29 3a f2 61 72 28 58 6a 25 2c 34 2c 31 |2,1):.ar(Xj%,4,1|
000094b0 29 3a 24 58 6c 25 3d 22 21 4d 6f 72 70 68 46 69 |):$Xl%="!MorphFi|
000094c0 6c 6d 22 3a f2 61 72 28 58 6d 25 2c 32 2c 31 29 |lm":.ar(Xm%,2,1)|
000094d0 0d 52 d0 59 f2 61 72 28 58 6d 25 2c 31 2c 31 29 |.R.Y.ar(Xm%,1,1)|
000094e0 3a f2 61 72 28 58 6d 25 2c 33 2c 31 29 3a f2 61 |:.ar(Xm%,3,1):.a|
000094f0 72 28 58 6d 25 2c 35 2c 31 29 3a 24 58 6f 25 3d |r(Xm%,5,1):$Xo%=|
00009500 22 41 52 46 69 6c 6d 22 3a f2 61 72 28 58 70 25 |"ARFilm":.ar(Xp%|
00009510 2c 32 2c 31 29 3a f2 61 72 28 58 70 25 2c 31 2c |,2,1):.ar(Xp%,1,|
00009520 31 29 3a e7 69 56 25 20 8c 0d 53 02 6a 67 65 25 |1):.iV% ..S.jge%|
00009530 3d 30 3a 67 68 25 3d a3 3a 63 5a 25 3d 30 3a 65 |=0:gh%=.:cZ%=0:e|
00009540 57 25 3d 32 30 30 2a 31 30 32 34 3a 24 58 71 25 |W%=200*1024:$Xq%|
00009550 3d 22 32 30 30 22 3a 65 58 25 3d 32 30 30 2a 31 |="200":eX%=200*1|
00009560 30 32 34 3a 24 58 72 25 3d 22 32 30 30 22 3a 61 |024:$Xr%="200":a|
00009570 76 25 3d a3 3a f2 57 75 28 57 72 25 2c 33 36 2c |v%=.:.Wu(Wr%,36,|
00009580 30 29 3a f2 61 72 28 57 72 25 2c 33 37 2c ac 61 |0):.ar(Wr%,37,.a|
00009590 76 25 29 0d 53 5c 4e cd 3a f2 57 75 28 57 72 25 |v%).S\N.:.Wu(Wr%|
000095a0 2c 33 39 2c 30 29 3a f2 61 72 28 57 72 25 2c 33 |,39,0):.ar(Wr%,3|
000095b0 39 2c 31 29 3a f2 61 72 28 57 72 25 2c 34 30 2c |9,1):.ar(Wr%,40,|
000095c0 31 29 3a f2 61 72 28 57 72 25 2c 34 33 2c 31 29 |1):.ar(Wr%,43,1)|
000095d0 3a 61 73 25 3d 30 3a f2 69 58 28 61 73 25 29 3a |:as%=0:.iX(as%):|
000095e0 e1 0d 53 a2 d1 dd f2 69 58 28 70 25 29 3a ea 65 |..S....iX(p%):.e|
000095f0 5a 25 3a 65 5a 25 3d 28 70 25 20 80 31 29 3c 3e |Z%:eZ%=(p% .1)<>|
00009600 30 3a f2 57 75 28 57 72 25 2c 31 36 2c ac 65 5a |0:.Wu(Wr%,16,.eZ|
00009610 25 29 3a f2 57 75 28 57 72 25 2c 31 37 2c 65 5a |%):.Wu(Wr%,17,eZ|
00009620 25 29 3a 65 5a 25 3d 28 70 25 20 80 32 29 3d 30 |%):eZ%=(p% .2)=0|
00009630 3a f2 57 75 28 57 72 25 2c 31 39 2c ac 65 5a 25 |:.Wu(Wr%,19,.eZ%|
00009640 29 3a f2 57 75 28 57 72 25 2c 32 30 2c 65 5a 25 |):.Wu(Wr%,20,eZ%|
00009650 29 3a 65 5a 25 3d 28 70 25 20 80 34 29 3c 3e 30 |):eZ%=(p% .4)<>0|
00009660 3a f2 57 75 28 57 72 25 2c 32 33 2c ac 65 5a 25 |:.Wu(Wr%,23,.eZ%|
00009670 29 3a f2 57 75 28 57 72 25 2c 32 34 2c 65 5a 25 |):.Wu(Wr%,24,eZ%|
00009680 29 3a 65 5a 25 3d 28 70 25 20 80 38 29 3d 30 3a |):eZ%=(p% .8)=0:|
00009690 f2 57 75 28 57 72 25 2c 32 35 2c ac 65 5a 25 29 |.Wu(Wr%,25,.eZ%)|
000096a0 3a f2 57 75 28 57 72 25 2c 32 36 2c 65 5a 25 29 |:.Wu(Wr%,26,eZ%)|
000096b0 3a e1 0d 54 2e 22 dd f2 56 56 28 56 55 25 2c 6c |:..T."..VV(VU%,l|
000096c0 25 29 3a c8 99 26 31 44 2c 30 2c 56 55 25 2c 2c |%):..&1D,0,VU%,,|
000096d0 6c 25 3a e1 0d 54 42 38 dd a4 65 77 28 73 25 29 |l%:..TB8..ew(s%)|
000096e0 3a ea 66 25 2c 70 25 3a c8 99 26 32 30 30 31 44 |:.f%,p%:..&2001D|
000096f0 2c 32 2c 56 55 25 2c 2c 73 25 20 b8 2c 2c 70 25 |,2,VU%,,s% .,,p%|
00009700 3b 66 25 3a e7 66 25 20 80 31 20 8c 0d 54 6a 7a |;f%:.f% .1 ..Tjz|
00009710 c8 99 26 34 30 30 45 43 2c 56 55 25 2b 56 55 25 |..&400EC,VU%+VU%|
00009720 21 38 2b 26 31 30 30 2b 73 25 2d 26 38 30 30 30 |!8+&100+s%-&8000|
00009730 2c 2d 31 20 b8 66 25 3a 66 25 2b 3d 26 38 30 30 |,-1 .f%:f%+=&800|
00009740 30 3a c8 99 26 31 44 2c 35 2c 56 55 25 2c 2c 66 |0:..&1D,5,VU%,,f|
00009750 25 2d 56 55 25 2d 56 55 25 21 31 32 3a c8 99 26 |%-VU%-VU%!12:..&|
00009760 32 30 30 31 44 2c 32 2c 56 55 25 2c 2c 73 25 20 |2001D,2,VU%,,s% |
00009770 b8 2c 2c 70 25 3b 66 25 3a e7 66 25 20 80 31 20 |.,,p%;f%:.f% .1 |
00009780 8c 70 25 3d 2d 31 0d 54 9c 09 cd 3a 3d 70 25 0d |.p%=-1.T...:=p%.|
00009790 54 ba 17 dd f2 66 58 28 f8 70 25 29 3a e7 70 25 |T....fX(.p%):.p%|
000097a0 3c 3d 30 20 8c e1 0d 54 ce 51 c8 99 26 31 44 2c |<=0 ...T.Q..&1D,|
000097b0 33 2c 56 55 25 2c 70 25 3a c8 99 26 31 44 2c 35 |3,VU%,p%:..&1D,5|
000097c0 2c 56 55 25 2c 2c 56 55 25 21 38 2d 56 55 25 21 |,VU%,,VU%!8-VU%!|
000097d0 31 32 3a c8 99 26 34 30 30 45 43 2c 56 55 25 2b |12:..&400EC,VU%+|
000097e0 56 55 25 21 31 32 2d 26 38 30 30 30 2c 2d 31 3a |VU%!12-&8000,-1:|
000097f0 70 25 3d 2d 31 3a e1 0d 55 1e 97 dd f2 57 6e 3a |p%=-1:..U....Wn:|
00009800 c8 99 35 33 2c 2d 31 2c 33 20 b8 2c 2c 69 59 25 |..53,-1,3 .,,iY%|
00009810 3a c8 99 35 33 2c 2d 31 2c 34 20 b8 2c 2c 69 5a |:..53,-1,4 .,,iZ|
00009820 25 3a 69 5a 25 3d 28 31 3c 3c 69 5a 25 29 3a c8 |%:iZ%=(1<<iZ%):.|
00009830 99 35 33 2c 2d 31 2c 35 20 b8 2c 2c 69 61 25 3a |.53,-1,5 .,,ia%:|
00009840 69 61 25 3d 28 31 3c 3c 69 61 25 29 3a c8 99 35 |ia%=(1<<ia%):..5|
00009850 33 2c 2d 31 2c 31 31 20 b8 2c 2c 56 76 25 3a 56 |3,-1,11 .,,Vv%:V|
00009860 76 25 3d 56 76 25 2a 69 5a 25 3a c8 99 35 33 2c |v%=Vv%*iZ%:..53,|
00009870 2d 31 2c 31 32 20 b8 2c 2c 56 77 25 3a 56 77 25 |-1,12 .,,Vw%:Vw%|
00009880 3d 56 77 25 2a 69 61 25 3a f2 63 76 3a e1 0d 55 |=Vw%*ia%:.cv:..U|
00009890 78 26 dd a4 63 55 28 6d 25 2c 6e 25 29 3a c8 99 |x&..cU(m%,n%):..|
000098a0 35 33 2c 6d 25 2c 6e 25 20 b8 2c 2c 69 62 25 3a |53,m%,n% .,,ib%:|
000098b0 3d 69 62 25 0d 55 8c 16 dd f2 63 76 3a ea 69 25 |=ib%.U....cv:.i%|
000098c0 3a e7 20 ac 57 5a 25 20 8c e1 0d 55 aa 0d e7 69 |:. .WZ% ...U...i|
000098d0 63 25 3e 31 35 20 8c 0d 55 b4 0c e7 69 64 25 3d |c%>15 ..U...id%=|
000098e0 30 20 8c 0d 55 be 1b c8 99 26 34 30 37 34 30 2c |0 ..U....&40740,|
000098f0 31 35 2c 30 2c 2d 31 2c 2d 31 2c 55 68 25 0d 55 |15,0,-1,-1,Uh%.U|
00009900 c8 4b cc 3a e3 69 25 3d 30 20 b8 32 35 35 3a 55 |.K.:.i%=0 .255:U|
00009910 62 25 3f 30 3d 30 3a 55 62 25 3f 31 3d 69 25 3a |b%?0=0:Ub%?1=i%:|
00009920 55 62 25 3f 32 3d 69 25 3a 55 62 25 3f 33 3d 69 |Ub%?2=i%:Ub%?3=i|
00009930 25 3a c8 99 26 34 30 37 34 34 2c 21 55 62 25 20 |%:..&40744,!Ub% |
00009940 b8 55 68 25 3f 69 25 3a ed 0d 55 fa 05 cd 0d 56 |.Uh%?i%:..U....V|
00009950 04 28 cc 3a c8 99 26 34 30 30 45 44 2c 32 39 36 |.(.:..&400ED,296|
00009960 2c 55 70 25 28 31 29 2c 55 70 24 28 31 29 2c 2c |,Up%(1),Up$(1),,|
00009970 2c 2c 2c 55 68 25 0d 56 18 d1 cd 3a c8 99 26 34 |,,,Uh%.V...:..&4|
00009980 30 37 34 30 2c 31 35 2c 30 2c 2d 31 2c 2d 31 2c |0740,15,0,-1,-1,|
00009990 55 69 25 3a e3 69 25 3d 30 20 b8 32 35 35 3a 55 |Ui%:.i%=0 .255:U|
000099a0 62 25 3f 30 3d 30 3a 55 62 25 3f 31 3d 69 25 3a |b%?0=0:Ub%?1=i%:|
000099b0 55 62 25 3f 32 3d 69 25 3a 55 62 25 3f 33 3d 69 |Ub%?2=i%:Ub%?3=i|
000099c0 25 3a c8 99 26 34 30 37 34 34 2c 21 55 62 25 20 |%:..&40744,!Ub% |
000099d0 b8 55 6a 25 3f 69 25 3a ed 3a 55 64 25 21 30 3d |.Uj%?i%:.:Ud%!0=|
000099e0 63 74 25 2a 57 6a 3a 55 64 25 21 34 3d 63 75 25 |ct%*Wj:Ud%!4=cu%|
000099f0 2a 57 6a 3a 55 64 25 21 38 3d 5a 66 25 2a 69 5a |*Wj:Ud%!8=Zf%*iZ|
00009a00 25 3a 55 64 25 21 31 32 3d 5a 67 25 2a 69 61 25 |%:Ud%!12=Zg%*ia%|
00009a10 3a 55 65 25 21 30 3d 63 74 25 2a 57 6b 3a 55 65 |:Ue%!0=ct%*Wk:Ue|
00009a20 25 21 34 3d 63 75 25 2a 57 6b 3a 55 65 25 21 38 |%!4=cu%*Wk:Ue%!8|
00009a30 3d 5a 66 25 2a 69 5a 25 3a 55 65 25 21 31 32 3d |=Zf%*iZ%:Ue%!12=|
00009a40 5a 67 25 2a 69 61 25 0d 56 68 3c 55 66 25 21 30 |Zg%*ia%.Vh<Uf%!0|
00009a50 3d 64 63 25 2a 57 6c 3a 55 66 25 21 34 3d 64 64 |=dc%*Wl:Uf%!4=dd|
00009a60 25 2a 57 6c 3a 55 66 25 21 38 3d 5a 66 25 2a 69 |%*Wl:Uf%!8=Zf%*i|
00009a70 5a 25 3a 55 66 25 21 31 32 3d 5a 67 25 2a 69 61 |Z%:Uf%!12=Zg%*ia|
00009a80 25 3a e1 0d 56 86 71 dd f2 56 69 28 62 25 29 3a |%:..V.q..Vi(b%):|
00009a90 ea 63 6d 25 2c 78 25 2c 79 25 2c 5a 79 25 2c 69 |.cm%,x%,y%,Zy%,i|
00009aa0 25 2c 70 25 2c 69 65 25 2c 66 71 25 2c 66 72 25 |%,p%,ie%,fq%,fr%|
00009ab0 2c 63 69 2c 63 6a 3a c8 99 26 34 30 30 43 38 2c |,ci,cj:..&400C8,|
00009ac0 2c 62 25 20 b8 63 6d 25 3a 78 25 3d 62 25 21 34 |,b% .cm%:x%=b%!4|
00009ad0 2d 62 25 21 32 30 3a 79 25 3d 62 25 21 31 36 2d |-b%!20:y%=b%!16-|
00009ae0 62 25 21 32 34 3a c8 95 63 6d 25 3a c8 8e 62 25 |b%!24:..cm%:..b%|
00009af0 21 30 20 ca 0d 56 c2 79 c9 56 6c 25 3a c8 99 26 |!0 ..V.y.Vl%:..&|
00009b00 34 30 30 45 36 2c 31 31 3a e3 5a 79 25 3d 31 20 |400E6,11:.Zy%=1 |
00009b10 b8 58 7a 25 3a ec 78 25 2b 55 74 25 21 28 5a 79 |.Xz%:.x%+Ut%!(Zy|
00009b20 25 2a 34 29 2b 32 35 36 2c 79 25 2b 31 36 34 3a |%*4)+256,y%+164:|
00009b30 df 42 59 20 30 2c 35 36 3a ed 3a e7 62 25 21 33 |.BY 0,56:.:.b%!3|
00009b40 32 3c 79 25 2b 31 34 38 20 80 62 25 21 34 30 3e |2<y%+148 .b%!40>|
00009b50 79 25 2b 31 34 38 20 8c f2 69 66 28 62 25 2c 78 |y%+148 ..if(b%,x|
00009b60 25 2b 32 35 36 2c 79 25 2b 31 34 38 29 0d 56 fe |%+256,y%+148).V.|
00009b70 10 c9 56 6e 25 3a c8 8e 69 64 25 20 ca 0d 57 08 |..Vn%:..id% ..W.|
00009b80 2d c9 30 2c 31 3a f2 69 67 28 78 25 2c 79 25 2c |-.0,1:.ig(x%,y%,|
00009b90 55 70 25 28 31 29 2c 55 70 24 28 31 29 2c 55 64 |Up%(1),Up$(1),Ud|
00009ba0 25 2c 55 68 25 2c 69 64 25 29 0d 57 12 23 c9 31 |%,Uh%,id%).W.#.1|
00009bb0 36 3a f2 69 68 28 78 25 2c 79 25 2c 55 70 25 28 |6:.ih(x%,y%,Up%(|
00009bc0 31 29 2c 55 70 24 28 31 29 2c 57 6a 29 0d 57 1c |1),Up$(1),Wj).W.|
00009bd0 38 cb 3a f2 69 69 28 62 25 2c 30 2c 78 25 2c 79 |8.:.ii(b%,0,x%,y|
00009be0 25 29 3a e7 56 64 25 20 80 57 74 25 3e 30 20 8c |%):.Vd% .Wt%>0 .|
00009bf0 f2 65 55 28 78 25 2c 79 25 2c 57 76 25 2c 57 77 |.eU(x%,y%,Wv%,Ww|
00009c00 25 2c 57 6a 29 0d 57 3a 10 c9 56 6f 25 3a c8 8e |%,Wj).W:..Vo%:..|
00009c10 69 64 25 20 ca 0d 57 44 2d c9 30 2c 31 3a f2 69 |id% ..WD-.0,1:.i|
00009c20 67 28 78 25 2c 79 25 2c 55 70 25 28 32 29 2c 55 |g(x%,y%,Up%(2),U|
00009c30 70 24 28 32 29 2c 55 65 25 2c 55 68 25 2c 69 64 |p$(2),Ue%,Uh%,id|
00009c40 25 29 0d 57 4e 23 c9 31 36 3a f2 69 68 28 78 25 |%).WN#.16:.ih(x%|
00009c50 2c 79 25 2c 55 70 25 28 32 29 2c 55 70 24 28 32 |,y%,Up%(2),Up$(2|
00009c60 29 2c 57 6b 29 0d 57 58 36 cb 3a f2 69 69 28 62 |),Wk).WX6.:.ii(b|
00009c70 25 2c 31 2c 78 25 2c 79 25 29 3a e7 56 64 25 20 |%,1,x%,y%):.Vd% |
00009c80 80 57 74 25 3e 30 f2 65 55 28 78 25 2c 79 25 2c |.Wt%>0.eU(x%,y%,|
00009c90 57 78 25 2c 57 79 25 2c 57 6b 29 0d 57 76 10 c9 |Wx%,Wy%,Wk).Wv..|
00009ca0 61 5a 25 3a c8 8e 63 5a 25 20 ca 0d 57 80 29 c9 |aZ%:..cZ% ..W.).|
00009cb0 30 3a f2 69 67 28 78 25 2c 79 25 2c 55 70 25 28 |0:.ig(x%,y%,Up%(|
00009cc0 33 29 2c 55 70 24 28 33 29 2c 55 66 25 2c 55 69 |3),Up$(3),Uf%,Ui|
00009cd0 25 2c 30 29 0d 57 8a 29 c9 31 3a f2 69 67 28 78 |%,0).W.).1:.ig(x|
00009ce0 25 2c 79 25 2c 55 70 25 28 33 29 2c 55 70 24 28 |%,y%,Up%(3),Up$(|
00009cf0 33 29 2c 55 66 25 2c 55 6a 25 2c 31 29 0d 57 94 |3),Uf%,Uj%,1).W.|
00009d00 22 c9 38 3a f2 69 68 28 78 25 2c 79 25 2c 55 70 |".8:.ih(x%,y%,Up|
00009d10 25 28 33 29 2c 55 70 24 28 33 29 2c 57 6c 29 0d |%(3),Up$(3),Wl).|
00009d20 57 9e 05 cb 0d 57 a8 3c c9 59 79 25 3a 70 25 3d |W....W.<.Yy%:p%=|
00009d30 55 6b 25 2b 38 2b 58 56 25 2a 34 38 3a 69 25 3d |Uk%+8+XV%*48:i%=|
00009d40 31 3a 69 65 25 3d 55 64 25 3a e7 65 61 25 3d 56 |1:ie%=Ud%:.ea%=V|
00009d50 6f 25 20 8c 69 25 3d 32 3a 69 65 25 3d 55 65 25 |o% .i%=2:ie%=Ue%|
00009d60 0d 57 bc 0b c8 8e 69 64 25 20 ca 0d 57 c6 2f c9 |.W....id% ..W./.|
00009d70 30 2c 31 3a f2 69 67 28 78 25 2c 79 25 2c 55 70 |0,1:.ig(x%,y%,Up|
00009d80 25 28 69 25 29 2c 55 70 24 28 69 25 29 2c 69 65 |%(i%),Up$(i%),ie|
00009d90 25 2c 55 68 25 2c 69 64 25 29 0d 57 d0 25 c9 31 |%,Uh%,id%).W.%.1|
00009da0 36 3a f2 69 68 28 78 25 2c 79 25 2c 55 70 25 28 |6:.ih(x%,y%,Up%(|
00009db0 69 25 29 2c 55 70 24 28 69 25 29 2c 62 64 29 0d |i%),Up$(i%),bd).|
00009dc0 57 da 1b cb 3a e7 58 61 25 20 8c f2 69 69 28 62 |W...:.Xa% ..ii(b|
00009dd0 25 2c 33 2c 78 25 2c 79 25 29 0d 57 ee 2e 63 69 |%,3,x%,y%).W..ci|
00009de0 3d 62 64 2a 62 63 25 2a 28 31 3c 3c 31 36 29 3a |=bd*bc%*(1<<16):|
00009df0 63 6a 3d 62 64 2a 62 65 25 2a 28 31 3c 3c 31 36 |cj=bd*be%*(1<<16|
00009e00 29 3a e7 58 5a 25 20 8c 0d 58 02 d2 c8 99 26 34 |):.XZ% ..X....&4|
00009e10 30 30 45 36 2c 68 61 25 3a 66 71 25 3d 58 56 25 |00E6,ha%:fq%=XV%|
00009e20 20 83 64 73 25 3a 66 72 25 3d 58 56 25 20 81 64 | .ds%:fr%=XV% .d|
00009e30 73 25 3a f2 59 71 28 66 71 25 2d 31 2c 66 72 25 |s%:.Yq(fq%-1,fr%|
00009e40 2d 31 2c 78 25 2c 79 25 2c 63 69 2c 63 6a 29 3a |-1,x%,y%,ci,cj):|
00009e50 f2 59 71 28 66 71 25 2d 31 2c 66 72 25 2c 78 25 |.Yq(fq%-1,fr%,x%|
00009e60 2c 79 25 2c 63 69 2c 63 6a 29 3a f2 59 71 28 66 |,y%,ci,cj):.Yq(f|
00009e70 71 25 2d 31 2c 66 72 25 2b 31 2c 78 25 2c 79 25 |q%-1,fr%+1,x%,y%|
00009e80 2c 63 69 2c 63 6a 29 3a f2 59 71 28 66 71 25 2c |,ci,cj):.Yq(fq%,|
00009e90 66 72 25 2d 31 2c 78 25 2c 79 25 2c 63 69 2c 63 |fr%-1,x%,y%,ci,c|
00009ea0 6a 29 3a f2 59 71 28 66 71 25 2c 66 72 25 2b 31 |j):.Yq(fq%,fr%+1|
00009eb0 2c 78 25 2c 79 25 2c 63 69 2c 63 6a 29 3a f2 59 |,x%,y%,ci,cj):.Y|
00009ec0 71 28 66 71 25 2b 31 2c 66 72 25 2d 31 2c 78 25 |q(fq%+1,fr%-1,x%|
00009ed0 2c 79 25 2c 63 69 2c 63 6a 29 0d 58 34 3b f2 59 |,y%,ci,cj).X4;.Y|
00009ee0 71 28 66 71 25 2b 31 2c 66 72 25 2c 78 25 2c 79 |q(fq%+1,fr%,x%,y|
00009ef0 25 2c 63 69 2c 63 6a 29 3a f2 59 71 28 66 71 25 |%,ci,cj):.Yq(fq%|
00009f00 2b 31 2c 66 72 25 2b 31 2c 78 25 2c 79 25 2c 63 |+1,fr%+1,x%,y%,c|
00009f10 69 2c 63 6a 29 0d 58 3e 3c cd 3a c8 99 26 34 30 |i,cj).X><.:..&40|
00009f20 30 45 36 2c 37 31 3a 70 25 3d 55 6b 25 2b 38 2b |0E6,71:p%=Uk%+8+|
00009f30 34 38 2a 58 56 25 3a f2 63 59 28 59 71 2c 55 62 |48*XV%:.cY(Yq,Ub|
00009f40 25 2c 78 25 2c 79 25 2c 70 25 2c 63 69 2c 63 6a |%,x%,y%,p%,ci,cj|
00009f50 29 0d 58 5c bc c9 57 57 25 3a c8 99 26 34 30 30 |).X\..WW%:..&400|
00009f60 45 36 2c 32 3a e3 69 25 3d 31 20 b8 37 3a ec 78 |E6,2:.i%=1 .7:.x|
00009f70 25 2b 33 30 30 2c 79 25 2b 37 32 2b 69 25 2a 36 |%+300,y%+72+i%*6|
00009f80 34 3a df 42 59 20 31 30 32 34 2c 30 3a ed 3a c8 |4:.BY 1024,0:.:.|
00009f90 99 26 34 30 30 45 36 2c 37 3a ec 78 25 2b 33 30 |.&400E6,7:.x%+30|
00009fa0 30 2c 79 25 2b 37 32 2b 55 72 25 28 30 2c 30 29 |0,y%+72+Ur%(0,0)|
00009fb0 3a e3 69 25 3d 31 20 b8 31 30 3a df 78 25 2b 33 |:.i%=1 .10:.x%+3|
00009fc0 30 30 2b 69 25 2a 31 30 32 2e 34 2c 79 25 2b 37 |00+i%*102.4,y%+7|
00009fd0 32 2b 55 72 25 28 30 2c 69 25 29 3a ed 3a e7 62 |2+Ur%(0,i%):.:.b|
00009fe0 25 21 33 32 3c 79 25 2b 36 34 20 80 62 25 21 34 |%!32<y%+64 .b%!4|
00009ff0 30 3e 79 25 2b 35 36 20 8c f2 69 66 28 62 25 2c |0>y%+56 ..if(b%,|
0000a000 78 25 2b 33 30 30 2c 79 25 2b 36 30 29 0d 58 ac |x%+300,y%+60).X.|
0000a010 1b cb 3a c8 99 26 34 30 30 43 41 2c 2c 62 25 20 |..:..&400CA,,b% |
0000a020 b8 63 6d 25 3a ce 3a e1 0d 58 de df dd f2 62 67 |.cm%:.:..X....bg|
0000a030 3a ea 63 6d 25 2c 78 25 2c 79 25 2c 70 25 3a 62 |:.cm%,x%,y%,p%:b|
0000a040 25 21 30 3d 59 79 25 3a 62 25 21 34 3d 30 3a 62 |%!0=Yy%:b%!4=0:b|
0000a050 25 21 38 3d 30 3a 62 25 21 31 32 3d 33 30 30 30 |%!8=0:b%!12=3000|
0000a060 30 3a 62 25 21 31 36 3d 33 30 30 30 30 3a c8 99 |0:b%!16=30000:..|
0000a070 26 34 30 30 43 39 2c 2c 62 25 20 b8 63 6d 25 3a |&400C9,,b% .cm%:|
0000a080 70 25 3d 55 6b 25 2b 38 2b 34 38 2a 58 56 25 3a |p%=Uk%+8+48*XV%:|
0000a090 78 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 79 25 |x%=b%!4-b%!20:y%|
0000a0a0 3d 62 25 21 31 36 2d 62 25 21 32 34 3a c8 95 63 |=b%!16-b%!24:..c|
0000a0b0 6d 25 3a c8 99 26 34 30 30 45 36 2c 37 31 3a f2 |m%:..&400E6,71:.|
0000a0c0 63 59 28 59 71 2c 55 62 25 2c 78 25 2c 79 25 2c |cY(Yq,Ub%,x%,y%,|
0000a0d0 70 25 2c 62 64 2a 62 63 25 2a 28 31 3c 3c 31 36 |p%,bd*bc%*(1<<16|
0000a0e0 29 2c 62 64 2a 62 65 25 2a 28 31 3c 3c 31 36 29 |),bd*be%*(1<<16)|
0000a0f0 29 3a c8 99 26 34 30 30 43 41 2c 2c 62 25 20 b8 |):..&400CA,,b% .|
0000a100 63 6d 25 3a ce 3a e1 0d 59 6a 48 dd f2 59 71 28 |cm%:.:..YjH..Yq(|
0000a110 63 6b 25 2c 63 6c 25 2c 78 25 2c 79 25 2c 63 69 |ck%,cl%,x%,y%,ci|
0000a120 2c 63 6a 29 3a ea 70 25 3a e7 63 6b 25 3c 30 20 |,cj):.p%:.ck%<0 |
0000a130 84 63 6c 25 3c 30 20 84 63 6b 25 3e 64 73 25 2d |.cl%<0 .ck%>ds%-|
0000a140 31 20 84 63 6c 25 3e 64 6b 25 2d 31 20 8c e1 0d |1 .cl%>dk%-1 ...|
0000a150 59 88 2c 70 25 3d 55 6b 25 2b 38 2b 34 38 2a 28 |Y.,p%=Uk%+8+48*(|
0000a160 63 6b 25 2b 64 73 25 2a 63 6c 25 29 3a e7 70 25 |ck%+ds%*cl%):.p%|
0000a170 3f 33 30 3c 3e 32 35 35 20 8c e1 0d 59 9c 20 f2 |?30<>255 ...Y. .|
0000a180 63 59 28 59 72 2c 55 62 25 2c 78 25 2c 79 25 2c |cY(Yr,Ub%,x%,y%,|
0000a190 70 25 2c 63 69 2c 63 6a 29 3a e1 0d 59 ba 67 dd |p%,ci,cj):..Y.g.|
0000a1a0 f2 65 55 28 78 25 2c 79 25 2c 69 6a 25 2c 69 6b |.eU(x%,y%,ij%,ik|
0000a1b0 25 2c 7a 29 3a c8 99 26 34 30 30 45 36 2c 37 39 |%,z):..&400E6,79|
0000a1c0 3a 78 25 2b 3d 69 6a 25 2a 7a 2a 62 63 25 3a 79 |:x%+=ij%*z*bc%:y|
0000a1d0 25 2b 3d 69 6b 25 2a 7a 2a 62 65 25 3a ec 30 2c |%+=ik%*z*be%:.0,|
0000a1e0 79 25 3a df 42 59 20 33 32 30 30 30 2c 30 3a ec |y%:.BY 32000,0:.|
0000a1f0 78 25 2c 30 3a df 42 59 20 30 2c 33 32 30 30 30 |x%,0:.BY 0,32000|
0000a200 3a e1 0d 5a 00 34 dd f2 69 66 28 62 25 2c 78 25 |:..Z.4..if(b%,x%|
0000a210 2c 79 25 29 3a ea 74 25 2c 64 65 2c 64 66 3a 64 |,y%):.t%,de,df:d|
0000a220 65 3d 62 25 21 32 38 2d 78 25 3a e7 64 65 3c 30 |e=b%!28-x%:.de<0|
0000a230 20 8c 64 65 3d 30 0d 5a 1e 18 64 66 3d 62 25 21 | .de=0.Z..df=b%!|
0000a240 33 36 2d 78 25 3a e7 64 66 3c 30 20 8c e1 0d 5a |36-x%:.df<0 ...Z|
0000a250 28 15 e7 64 66 3e 31 30 32 34 20 8c 64 66 3d 31 |(..df>1024 .df=1|
0000a260 30 32 34 0d 5a 32 21 e3 74 3d 64 65 20 b8 64 66 |024.Z2!.t=de .df|
0000a270 88 31 30 2e 32 34 3a c8 92 78 25 2b 74 2c 79 25 |.10.24:..x%+t,y%|
0000a280 3a ed 3a e1 0d 5a 50 2a dd f2 69 69 28 62 25 2c |:.:..ZP*..ii(b%,|
0000a290 64 6f 25 2c 78 25 2c 79 25 29 3a ea 7a 2c 63 6d |do%,x%,y%):.z,cm|
0000a2a0 25 3a e7 56 66 25 20 80 61 71 25 20 8c e1 0d 5a |%:.Vf% .aq% ...Z|
0000a2b0 6e 0b c8 8e 64 6f 25 20 ca 0d 5a 78 24 c9 30 3a |n...do% ..Zx$.0:|
0000a2c0 7a 3d 57 6a 3a 63 6d 25 3d 30 3a e7 20 ac 61 74 |z=Wj:cm%=0:. .at|
0000a2d0 25 20 8c 63 6d 25 3d 63 6d 25 20 84 32 0d 5a 8c |% .cm%=cm% .2.Z.|
0000a2e0 16 e7 20 ac 61 63 25 20 8c 63 6d 25 3d 63 6d 25 |.. .ac% .cm%=cm%|
0000a2f0 20 84 34 0d 5a 96 24 c9 31 3a 7a 3d 57 6b 3a 63 | .4.Z.$.1:z=Wk:c|
0000a300 6d 25 3d 31 3a e7 20 ac 61 74 25 20 8c 63 6d 25 |m%=1:. .at% .cm%|
0000a310 3d 63 6d 25 20 84 32 0d 5a aa 16 e7 20 ac 61 63 |=cm% .2.Z... .ac|
0000a320 25 20 8c 63 6d 25 3d 63 6d 25 20 84 34 0d 5a b4 |% .cm%=cm% .4.Z.|
0000a330 28 c9 33 3a e7 65 61 25 3d 56 6f 25 20 8c 7a 3d |(.3:.ea%=Vo% .z=|
0000a340 57 6b 3a 63 6d 25 3d 35 33 8b 7a 3d 57 6a 3a 63 |Wk:cm%=53.z=Wj:c|
0000a350 6d 25 3d 35 32 0d 5a be 16 cb 3a e7 61 78 25 20 |m%=52.Z...:.ax% |
0000a360 8c 63 6d 25 3d 63 6d 25 20 84 38 0d 5a d2 30 f2 |.cm%=cm% .8.Z.0.|
0000a370 63 59 28 59 68 2c 55 6b 25 2c 62 25 2c 7a 2a 32 |cY(Yh,Uk%,b%,z*2|
0000a380 35 36 2a 62 63 25 2c 7a 2a 32 35 36 2a 62 65 25 |56*bc%,z*256*be%|
0000a390 2c 63 6d 25 2c 68 61 25 29 3a e1 0d 5a f0 3e dd |,cm%,ha%):..Z.>.|
0000a3a0 f2 69 67 28 78 25 2c 79 25 2c 61 25 2c 6e 24 2c |.ig(x%,y%,a%,n$,|
0000a3b0 69 65 25 2c 69 6c 25 2c 66 25 29 3a e7 66 25 3d |ie%,il%,f%):.f%=|
0000a3c0 30 20 80 69 63 25 3e 31 35 20 80 69 59 25 3e 31 |0 .ic%>15 .iY%>1|
0000a3d0 35 20 8c 69 6c 25 3d 2d 31 0d 5b 04 28 c8 99 26 |5 .il%=-1.[.(..&|
0000a3e0 32 30 30 32 45 2c 33 30 38 2c 61 25 2c 6e 24 2c |2002E,308,a%,n$,|
0000a3f0 78 25 2c 79 25 2c 30 2c 69 65 25 2c 69 6c 25 3a |x%,y%,0,ie%,il%:|
0000a400 e1 0d 5b 22 3d dd f2 69 68 28 78 25 2c 79 25 2c |..["=..ih(x%,y%,|
0000a410 61 25 2c 6e 24 2c 7a 29 3a c8 99 26 34 30 30 45 |a%,n$,z):..&400E|
0000a420 44 2c 32 39 36 2c 61 25 2c 6e 24 2c 2c 2c 2c 55 |D,296,a%,n$,,,,U|
0000a430 63 25 2c 55 67 25 3a e7 7a 3c 3e 31 20 8c 0d 5b |c%,Ug%:.z<>1 ..[|
0000a440 40 49 7a 3d 31 30 30 2a 7a 3a 55 63 25 21 30 3d |@Iz=100*z:Uc%!0=|
0000a450 7a 2a 55 63 25 21 30 3a 55 63 25 21 34 3d 7a 2a |z*Uc%!0:Uc%!4=z*|
0000a460 55 63 25 21 34 3a 55 63 25 21 38 3d 31 30 30 2a |Uc%!4:Uc%!8=100*|
0000a470 55 63 25 21 38 3a 55 63 25 21 31 32 3d 31 30 30 |Uc%!8:Uc%!12=100|
0000a480 2a 55 63 25 21 31 32 0d 5b 5e 2a cd 3a c8 99 26 |*Uc%!12.[^*.:..&|
0000a490 32 30 30 32 45 2c 33 30 38 2c 61 25 2c 6e 24 2c |2002E,308,a%,n$,|
0000a4a0 78 25 2c 79 25 2c 30 2c 55 63 25 2c 55 67 25 3a |x%,y%,0,Uc%,Ug%:|
0000a4b0 e1 0d 5b 86 32 dd f2 61 64 28 77 25 29 3a c8 99 |..[.2..ad(w%):..|
0000a4c0 26 34 30 30 44 31 2c 77 25 2c 2d 33 30 30 30 2c |&400D1,w%,-3000,|
0000a4d0 2d 33 30 30 30 2c 33 30 30 30 30 2c 33 30 30 30 |-3000,30000,3000|
0000a4e0 30 3a e1 0d 5b 9a 52 dd f2 65 71 28 70 25 2c 63 |0:..[.R..eq(p%,c|
0000a4f0 6d 25 29 3a ea 64 70 25 2c 64 71 25 3a 64 70 25 |m%):.dp%,dq%:dp%|
0000a500 3d 70 25 20 83 64 73 25 3a 64 71 25 3d 70 25 20 |=p% .ds%:dq%=p% |
0000a510 81 64 73 25 3a e7 63 6d 25 20 80 31 20 8c f2 69 |.ds%:.cm% .1 ..i|
0000a520 6d 28 56 6e 25 2c 30 2c 57 6a 2c 64 70 25 2c 64 |m(Vn%,0,Wj,dp%,d|
0000a530 71 25 2c a3 29 0d 5b c2 24 e7 63 6d 25 20 80 32 |q%,.).[.$.cm% .2|
0000a540 20 8c f2 69 6d 28 56 6f 25 2c 31 2c 57 6b 2c 64 | ..im(Vo%,1,Wk,d|
0000a550 70 25 2c 64 71 25 2c a3 29 0d 5b cc 24 e7 63 6d |p%,dq%,.).[.$.cm|
0000a560 25 20 80 34 20 8c f2 69 6d 28 61 5a 25 2c 32 2c |% .4 ..im(aZ%,2,|
0000a570 57 6c 2c 64 70 25 2c 64 71 25 2c a3 29 0d 5b d6 |Wl,dp%,dq%,.).[.|
0000a580 05 e1 0d 5b ea 52 dd f2 63 72 28 70 25 2c 63 6d |...[.R..cr(p%,cm|
0000a590 25 29 3a ea 64 70 25 2c 64 71 25 3a 64 70 25 3d |%):.dp%,dq%:dp%=|
0000a5a0 70 25 20 83 64 73 25 3a 64 71 25 3d 70 25 20 81 |p% .ds%:dq%=p% .|
0000a5b0 64 73 25 3a e7 63 6d 25 20 80 31 20 8c f2 69 6d |ds%:.cm% .1 ..im|
0000a5c0 28 56 6e 25 2c 30 2c 57 6a 2c 64 70 25 2c 64 71 |(Vn%,0,Wj,dp%,dq|
0000a5d0 25 2c b9 29 0d 5c 12 24 e7 63 6d 25 20 80 32 20 |%,.).\.$.cm% .2 |
0000a5e0 8c f2 69 6d 28 56 6f 25 2c 31 2c 57 6b 2c 64 70 |..im(Vo%,1,Wk,dp|
0000a5f0 25 2c 64 71 25 2c b9 29 0d 5c 1c 24 e7 63 6d 25 |%,dq%,.).\.$.cm%|
0000a600 20 80 34 20 8c f2 69 6d 28 61 5a 25 2c 32 2c 57 | .4 ..im(aZ%,2,W|
0000a610 6c 2c 64 70 25 2c 64 71 25 2c b9 29 0d 5c 26 05 |l,dp%,dq%,.).\&.|
0000a620 e1 0d 5c 3a 50 dd f2 65 62 28 70 25 2c 63 6d 25 |..\:P..eb(p%,cm%|
0000a630 29 3a ea 64 70 25 2c 64 71 25 3a 64 70 25 3d 70 |):.dp%,dq%:dp%=p|
0000a640 25 20 83 64 73 25 3a 64 71 25 3d 70 25 20 81 64 |% .ds%:dq%=p% .d|
0000a650 73 25 3a e7 63 6d 25 20 80 31 20 8c f2 69 6e 28 |s%:.cm% .1 ..in(|
0000a660 56 6e 25 2c 30 2c 57 6a 2c 64 70 25 2c 64 71 25 |Vn%,0,Wj,dp%,dq%|
0000a670 29 0d 5c 62 22 e7 63 6d 25 20 80 32 20 8c f2 69 |).\b".cm% .2 ..i|
0000a680 6e 28 56 6f 25 2c 31 2c 57 6b 2c 64 70 25 2c 64 |n(Vo%,1,Wk,dp%,d|
0000a690 71 25 29 0d 5c 6c 05 e1 0d 5c 80 74 dd f2 69 6e |q%).\l...\.t..in|
0000a6a0 28 77 25 2c 69 25 2c 7a 2c 64 70 25 2c 64 71 25 |(w%,i%,z,dp%,dq%|
0000a6b0 29 3a ea 78 25 2c 79 25 3a f2 69 6f 28 64 70 25 |):.x%,y%:.io(dp%|
0000a6c0 2c 64 71 25 2c 69 25 2c 78 25 2c 79 25 29 3a 78 |,dq%,i%,x%,y%):x|
0000a6d0 25 3d 78 25 2a 62 63 25 2a 7a 3a 79 25 3d 79 25 |%=x%*bc%*z:y%=y%|
0000a6e0 2a 62 65 25 2a 7a 3a c8 99 26 34 30 30 44 31 2c |*be%*z:..&400D1,|
0000a6f0 77 25 2c 78 25 2d 31 36 2c 79 25 2d 31 36 2c 78 |w%,x%-16,y%-16,x|
0000a700 25 2b 31 36 2c 79 25 2b 31 36 3a e1 0d 5c c6 9c |%+16,y%+16:..\..|
0000a710 dd f2 69 6d 28 77 25 2c 69 25 2c 7a 2c 64 70 25 |..im(w%,i%,z,dp%|
0000a720 2c 64 71 25 2c 69 70 25 29 3a ea 66 67 25 2c 66 |,dq%,ip%):.fg%,f|
0000a730 68 25 2c 66 71 25 2c 66 72 25 2c 69 71 25 2c 69 |h%,fq%,fr%,iq%,i|
0000a740 72 25 3a f2 69 6f 28 64 70 25 2c 64 71 25 2c 69 |r%:.io(dp%,dq%,i|
0000a750 25 2c 66 67 25 2c 66 68 25 29 3a 66 71 25 3d 66 |%,fg%,fh%):fq%=f|
0000a760 67 25 3a 66 72 25 3d 66 68 25 3a f2 69 6f 28 64 |g%:fr%=fh%:.io(d|
0000a770 70 25 2b 31 2c 64 71 25 2c 69 25 2c 69 71 25 2c |p%+1,dq%,i%,iq%,|
0000a780 69 72 25 29 3a e7 69 71 25 3c 66 67 25 20 8c 66 |ir%):.iq%<fg% .f|
0000a790 67 25 3d 69 71 25 8b e7 69 71 25 3e 66 71 25 20 |g%=iq%..iq%>fq% |
0000a7a0 8c 66 71 25 3d 69 71 25 0d 5c f8 27 e7 69 72 25 |.fq%=iq%.\.'.ir%|
0000a7b0 3c 66 68 25 20 8c 66 68 25 3d 69 72 25 8b e7 69 |<fh% .fh%=ir%..i|
0000a7c0 72 25 3e 66 72 25 20 8c 66 72 25 3d 69 72 25 0d |r%>fr% .fr%=ir%.|
0000a7d0 5d 02 43 f2 69 6f 28 64 70 25 2b 31 2c 64 71 25 |].C.io(dp%+1,dq%|
0000a7e0 2b 31 2c 69 25 2c 69 71 25 2c 69 72 25 29 3a e7 |+1,i%,iq%,ir%):.|
0000a7f0 69 71 25 3c 66 67 25 20 8c 66 67 25 3d 69 71 25 |iq%<fg% .fg%=iq%|
0000a800 8b e7 69 71 25 3e 66 71 25 20 8c 66 71 25 3d 69 |..iq%>fq% .fq%=i|
0000a810 71 25 0d 5d 16 27 e7 69 72 25 3c 66 68 25 20 8c |q%.].'.ir%<fh% .|
0000a820 66 68 25 3d 69 72 25 8b e7 69 72 25 3e 66 72 25 |fh%=ir%..ir%>fr%|
0000a830 20 8c 66 72 25 3d 69 72 25 0d 5d 20 43 f2 69 6f | .fr%=ir%.] C.io|
0000a840 28 64 70 25 2b 31 2c 64 71 25 2d 31 2c 69 25 2c |(dp%+1,dq%-1,i%,|
0000a850 69 71 25 2c 69 72 25 29 3a e7 69 71 25 3c 66 67 |iq%,ir%):.iq%<fg|
0000a860 25 20 8c 66 67 25 3d 69 71 25 8b e7 69 71 25 3e |% .fg%=iq%..iq%>|
0000a870 66 71 25 20 8c 66 71 25 3d 69 71 25 0d 5d 34 27 |fq% .fq%=iq%.]4'|
0000a880 e7 69 72 25 3c 66 68 25 20 8c 66 68 25 3d 69 72 |.ir%<fh% .fh%=ir|
0000a890 25 8b e7 69 72 25 3e 66 72 25 20 8c 66 72 25 3d |%..ir%>fr% .fr%=|
0000a8a0 69 72 25 0d 5d 3e 3f f2 69 6f 28 64 70 25 2c 64 |ir%.]>?.io(dp%,d|
0000a8b0 71 25 2c 69 25 2c 69 71 25 2c 69 72 25 29 3a e7 |q%,i%,iq%,ir%):.|
0000a8c0 69 71 25 3c 66 67 25 20 8c 66 67 25 3d 69 71 25 |iq%<fg% .fg%=iq%|
0000a8d0 8b e7 69 71 25 3e 66 71 25 20 8c 66 71 25 3d 69 |..iq%>fq% .fq%=i|
0000a8e0 71 25 0d 5d 52 27 e7 69 72 25 3c 66 68 25 20 8c |q%.]R'.ir%<fh% .|
0000a8f0 66 68 25 3d 69 72 25 8b e7 69 72 25 3e 66 72 25 |fh%=ir%..ir%>fr%|
0000a900 20 8c 66 72 25 3d 69 72 25 0d 5d 5c 41 f2 69 6f | .fr%=ir%.]\A.io|
0000a910 28 64 70 25 2c 64 71 25 2b 31 2c 69 25 2c 69 71 |(dp%,dq%+1,i%,iq|
0000a920 25 2c 69 72 25 29 3a e7 69 71 25 3c 66 67 25 20 |%,ir%):.iq%<fg% |
0000a930 8c 66 67 25 3d 69 71 25 8b e7 69 71 25 3e 66 71 |.fg%=iq%..iq%>fq|
0000a940 25 20 8c 66 71 25 3d 69 71 25 0d 5d 70 27 e7 69 |% .fq%=iq%.]p'.i|
0000a950 72 25 3c 66 68 25 20 8c 66 68 25 3d 69 72 25 8b |r%<fh% .fh%=ir%.|
0000a960 e7 69 72 25 3e 66 72 25 20 8c 66 72 25 3d 69 72 |.ir%>fr% .fr%=ir|
0000a970 25 0d 5d 7a 41 f2 69 6f 28 64 70 25 2c 64 71 25 |%.]zA.io(dp%,dq%|
0000a980 2d 31 2c 69 25 2c 69 71 25 2c 69 72 25 29 3a e7 |-1,i%,iq%,ir%):.|
0000a990 69 71 25 3c 66 67 25 20 8c 66 67 25 3d 69 71 25 |iq%<fg% .fg%=iq%|
0000a9a0 8b e7 69 71 25 3e 66 71 25 20 8c 66 71 25 3d 69 |..iq%>fq% .fq%=i|
0000a9b0 71 25 0d 5d 8e 27 e7 69 72 25 3c 66 68 25 20 8c |q%.].'.ir%<fh% .|
0000a9c0 66 68 25 3d 69 72 25 8b e7 69 72 25 3e 66 72 25 |fh%=ir%..ir%>fr%|
0000a9d0 20 8c 66 72 25 3d 69 72 25 0d 5d 98 41 f2 69 6f | .fr%=ir%.].A.io|
0000a9e0 28 64 70 25 2d 31 2c 64 71 25 2c 69 25 2c 69 71 |(dp%-1,dq%,i%,iq|
0000a9f0 25 2c 69 72 25 29 3a e7 69 71 25 3c 66 67 25 20 |%,ir%):.iq%<fg% |
0000aa00 8c 66 67 25 3d 69 71 25 8b e7 69 71 25 3e 66 71 |.fg%=iq%..iq%>fq|
0000aa10 25 20 8c 66 71 25 3d 69 71 25 0d 5d ac 27 e7 69 |% .fq%=iq%.].'.i|
0000aa20 72 25 3c 66 68 25 20 8c 66 68 25 3d 69 72 25 8b |r%<fh% .fh%=ir%.|
0000aa30 e7 69 72 25 3e 66 72 25 20 8c 66 72 25 3d 69 72 |.ir%>fr% .fr%=ir|
0000aa40 25 0d 5d b6 43 f2 69 6f 28 64 70 25 2d 31 2c 64 |%.].C.io(dp%-1,d|
0000aa50 71 25 2b 31 2c 69 25 2c 69 71 25 2c 69 72 25 29 |q%+1,i%,iq%,ir%)|
0000aa60 3a e7 69 71 25 3c 66 67 25 20 8c 66 67 25 3d 69 |:.iq%<fg% .fg%=i|
0000aa70 71 25 8b e7 69 71 25 3e 66 71 25 20 8c 66 71 25 |q%..iq%>fq% .fq%|
0000aa80 3d 69 71 25 0d 5d ca 27 e7 69 72 25 3c 66 68 25 |=iq%.].'.ir%<fh%|
0000aa90 20 8c 66 68 25 3d 69 72 25 8b e7 69 72 25 3e 66 | .fh%=ir%..ir%>f|
0000aaa0 72 25 20 8c 66 72 25 3d 69 72 25 0d 5d d4 43 f2 |r% .fr%=ir%.].C.|
0000aab0 69 6f 28 64 70 25 2d 31 2c 64 71 25 2d 31 2c 69 |io(dp%-1,dq%-1,i|
0000aac0 25 2c 69 71 25 2c 69 72 25 29 3a e7 69 71 25 3c |%,iq%,ir%):.iq%<|
0000aad0 66 67 25 20 8c 66 67 25 3d 69 71 25 8b e7 69 71 |fg% .fg%=iq%..iq|
0000aae0 25 3e 66 71 25 20 8c 66 71 25 3d 69 71 25 0d 5d |%>fq% .fq%=iq%.]|
0000aaf0 e8 27 e7 69 72 25 3c 66 68 25 20 8c 66 68 25 3d |.'.ir%<fh% .fh%=|
0000ab00 69 72 25 8b e7 69 72 25 3e 66 72 25 20 8c 66 72 |ir%..ir%>fr% .fr|
0000ab10 25 3d 69 72 25 0d 5d f2 42 66 67 25 3d 7a 2a 62 |%=ir%.].Bfg%=z*b|
0000ab20 63 25 2a 66 67 25 3a 66 68 25 3d 7a 2a 62 65 25 |c%*fg%:fh%=z*be%|
0000ab30 2a 66 68 25 3a 66 71 25 3d 7a 2a 62 63 25 2a 66 |*fh%:fq%=z*bc%*f|
0000ab40 71 25 3a 66 72 25 3d 7a 2a 62 65 25 2a 66 72 25 |q%:fr%=z*be%*fr%|
0000ab50 3a e7 69 70 25 20 8c 0d 5e 10 2b c8 99 26 34 30 |:.ip% ..^.+..&40|
0000ab60 30 44 31 2c 77 25 2c 66 67 25 2d 31 36 2c 66 68 |0D1,w%,fg%-16,fh|
0000ab70 25 2d 31 36 2c 66 71 25 2b 31 36 2c 66 72 25 2b |%-16,fq%+16,fr%+|
0000ab80 31 36 0d 5e 1a 29 cc 3a f2 69 73 28 77 25 2c 66 |16.^.).:.is(w%,f|
0000ab90 67 25 2d 31 36 2c 66 68 25 2d 31 36 2c 66 71 25 |g%-16,fh%-16,fq%|
0000aba0 2b 31 36 2c 66 72 25 2b 31 36 29 0d 5e 2e 07 cd |+16,fr%+16).^...|
0000abb0 3a e1 0d 5e 4c 2c dd f2 69 6f 28 78 25 2c 79 25 |:..^L,..io(x%,y%|
0000abc0 2c 69 25 2c f8 63 6b 25 2c f8 63 6c 25 29 3a ea |,i%,.ck%,.cl%):.|
0000abd0 70 25 3a e7 78 25 3c 30 20 8c 78 25 3d 30 0d 5e |p%:.x%<0 .x%=0.^|
0000abe0 6a 0f e7 79 25 3c 30 20 8c 79 25 3d 30 0d 5e 74 |j..y%<0 .y%=0.^t|
0000abf0 17 e7 78 25 3e 64 73 25 2d 31 20 8c 78 25 3d 64 |..x%>ds%-1 .x%=d|
0000ac00 73 25 2d 31 0d 5e 7e 17 e7 79 25 3e 64 6b 25 2d |s%-1.^~..y%>dk%-|
0000ac10 31 20 8c 79 25 3d 64 6b 25 2d 31 0d 5e 88 34 70 |1 .y%=dk%-1.^.4p|
0000ac20 25 3d 55 6b 25 2b 38 2b 69 25 2a 38 2b 34 38 2a |%=Uk%+8+i%*8+48*|
0000ac30 28 78 25 2b 79 25 2a 64 73 25 29 3a 63 6b 25 3d |(x%+y%*ds%):ck%=|
0000ac40 70 25 21 30 3a 63 6c 25 3d 70 25 21 34 3a e1 0d |p%!0:cl%=p%!4:..|
0000ac50 5e a6 98 dd f2 69 73 28 77 25 2c 66 67 25 2c 66 |^....is(w%,fg%,f|
0000ac60 68 25 2c 66 71 25 2c 66 72 25 29 3a ea 63 6d 25 |h%,fq%,fr%):.cm%|
0000ac70 2c 78 25 2c 79 25 3a f2 56 65 28 32 29 3a 62 25 |,x%,y%:.Ve(2):b%|
0000ac80 21 30 3d 77 25 3a 62 25 21 34 3d 66 67 25 3a 62 |!0=w%:b%!4=fg%:b|
0000ac90 25 21 38 3d 66 68 25 3a 62 25 21 31 32 3d 66 71 |%!8=fh%:b%!12=fq|
0000aca0 25 3a 62 25 21 31 36 3d 66 72 25 3a c8 99 26 34 |%:b%!16=fr%:..&4|
0000acb0 30 30 43 39 2c 2c 62 25 20 b8 63 6d 25 3a 78 25 |00C9,,b% .cm%:x%|
0000acc0 3d 62 25 21 34 2d 62 25 21 32 30 3a 79 25 3d 62 |=b%!4-b%!20:y%=b|
0000acd0 25 21 31 36 2d 62 25 21 32 34 3a c8 95 63 6d 25 |%!16-b%!24:..cm%|
0000ace0 3a c8 8e 77 25 20 ca 0d 5e f6 59 c9 56 6e 25 3a |:..w% ..^.Y.Vn%:|
0000acf0 f2 69 67 28 78 25 2c 79 25 2c 55 70 25 28 31 29 |.ig(x%,y%,Up%(1)|
0000ad00 2c 55 70 24 28 31 29 2c 55 64 25 2c 55 68 25 2c |,Up$(1),Ud%,Uh%,|
0000ad10 69 64 25 29 3a f2 69 69 28 62 25 2c 30 2c 78 25 |id%):.ii(b%,0,x%|
0000ad20 2c 79 25 29 3a e7 57 74 25 3e 30 f2 65 55 28 78 |,y%):.Wt%>0.eU(x|
0000ad30 25 2c 79 25 2c 57 76 25 2c 57 77 25 2c 57 6a 29 |%,y%,Wv%,Ww%,Wj)|
0000ad40 0d 5f 14 59 c9 56 6f 25 3a f2 69 67 28 78 25 2c |._.Y.Vo%:.ig(x%,|
0000ad50 79 25 2c 55 70 25 28 32 29 2c 55 70 24 28 32 29 |y%,Up%(2),Up$(2)|
0000ad60 2c 55 65 25 2c 55 68 25 2c 69 64 25 29 3a f2 69 |,Ue%,Uh%,id%):.i|
0000ad70 69 28 62 25 2c 31 2c 78 25 2c 79 25 29 3a e7 57 |i(b%,1,x%,y%):.W|
0000ad80 74 25 3e 30 f2 65 55 28 78 25 2c 79 25 2c 57 78 |t%>0.eU(x%,y%,Wx|
0000ad90 25 2c 57 79 25 2c 57 6b 29 0d 5f 32 10 c9 61 5a |%,Wy%,Wk)._2..aZ|
0000ada0 25 3a c8 8e 63 5a 25 20 ca 0d 5f 3c 29 c9 30 3a |%:..cZ% .._<).0:|
0000adb0 f2 69 67 28 78 25 2c 79 25 2c 55 70 25 28 33 29 |.ig(x%,y%,Up%(3)|
0000adc0 2c 55 70 24 28 33 29 2c 55 66 25 2c 55 69 25 2c |,Up$(3),Uf%,Ui%,|
0000add0 30 29 0d 5f 46 29 c9 31 3a f2 69 67 28 78 25 2c |0)._F).1:.ig(x%,|
0000ade0 79 25 2c 55 70 25 28 33 29 2c 55 70 24 28 33 29 |y%,Up%(3),Up$(3)|
0000adf0 2c 55 66 25 2c 55 6a 25 2c 31 29 0d 5f 50 05 cb |,Uf%,Uj%,1)._P..|
0000ae00 0d 5f 5a 22 cb 3a c8 99 26 34 30 30 43 41 2c 2c |._Z".:..&400CA,,|
0000ae10 62 25 20 b8 63 6d 25 3a ce 3a f2 56 65 28 31 29 |b% .cm%:.:.Ve(1)|
0000ae20 3a e1 0d 5f aa 2b dd a4 65 78 28 56 79 25 29 3a |:.._.+..ex(Vy%):|
0000ae30 3d 22 28 6e 65 65 64 20 22 2b c3 28 31 2b 56 79 |="(need "+.(1+Vy|
0000ae40 25 2f 31 30 32 34 29 2b 22 6b 29 2e 22 0d 5f be |%/1024)+"k)."._.|
0000ae50 12 dd f2 5a 71 3a e7 56 66 25 20 8c f2 5a 70 0d |...Zq:.Vf% ..Zp.|
0000ae60 5f d2 fd 57 70 25 3d a3 3a f2 66 58 28 55 70 25 |_..Wp%=.:.fX(Up%|
0000ae70 28 31 29 29 3a f2 66 58 28 55 70 25 28 32 29 29 |(1)):.fX(Up%(2))|
0000ae80 3a f2 66 58 28 55 70 25 28 33 29 29 3a f2 66 58 |:.fX(Up%(3)):.fX|
0000ae90 28 55 70 25 28 34 29 29 3a f2 66 58 28 55 70 25 |(Up%(4)):.fX(Up%|
0000aea0 28 35 29 29 3a f2 66 58 28 55 70 25 28 36 29 29 |(5)):.fX(Up%(6))|
0000aeb0 3a f2 66 58 28 55 71 25 28 31 29 29 3a f2 66 58 |:.fX(Uq%(1)):.fX|
0000aec0 28 55 71 25 28 32 29 29 3a f2 66 58 28 55 71 25 |(Uq%(2)):.fX(Uq%|
0000aed0 28 33 29 29 3a f2 66 58 28 55 71 25 28 34 29 29 |(3)):.fX(Uq%(4))|
0000aee0 3a f2 66 58 28 55 71 25 28 35 29 29 3a f2 66 58 |:.fX(Uq%(5)):.fX|
0000aef0 28 55 71 25 28 36 29 29 3a f2 56 6b 28 56 6e 25 |(Uq%(6)):.Vk(Vn%|
0000af00 29 3a f2 56 6b 28 56 6f 25 29 3a f2 56 6b 28 61 |):.Vk(Vo%):.Vk(a|
0000af10 5a 25 29 3a f2 56 6b 28 58 64 25 29 3a f2 56 6b |Z%):.Vk(Xd%):.Vk|
0000af20 28 58 6a 25 29 3a 57 5a 25 3d a3 3a 69 74 24 3d |(Xj%):WZ%=.:it$=|
0000af30 22 22 3a 55 70 25 28 29 3d 2d 31 3a 55 70 24 28 |"":Up%()=-1:Up$(|
0000af40 29 3d 22 22 3a 55 71 25 28 29 3d 2d 31 3a 24 a4 |)="":Uq%()=-1:$.|
0000af50 69 28 67 6b 25 2c 37 29 3d 22 2d 22 0d 60 4a 0c |i(gk%,7)="-".`J.|
0000af60 f2 59 73 28 b9 29 3a e1 0d 60 68 2f dd a4 69 75 |.Ys(.):..`h/..iu|
0000af70 28 61 25 29 3a c8 99 26 32 45 2c 32 35 36 2b 31 |(a%):..&2E,256+1|
0000af80 33 2c 61 25 2c 55 62 25 2c 32 35 35 2c 31 3a 3d |3,a%,Ub%,255,1:=|
0000af90 a4 73 28 55 62 25 29 0d 60 7c 29 dd a4 69 76 28 |.s(Ub%).`|)..iv(|
0000afa0 66 24 29 3a ea 5a 5a 25 3a c8 99 26 38 2c 35 2c |f$):.ZZ%:..&8,5,|
0000afb0 66 24 20 b8 5a 5a 25 3a 3d 28 5a 5a 25 3d 31 29 |f$ .ZZ%:=(ZZ%=1)|
0000afc0 0d 60 ae 34 dd a4 69 77 28 66 24 29 3a ea 6c 25 |.`.4..iw(f$):.l%|
0000afd0 2c 5a 5a 25 3a c8 99 26 38 2c 35 2c 66 24 20 b8 |,ZZ%:..&8,5,f$ .|
0000afe0 5a 5a 25 2c 2c 6c 25 3a e7 5a 5a 25 3c 3e 31 20 |ZZ%,,l%:.ZZ%<>1 |
0000aff0 8c 3d 2d 31 0d 60 d6 26 e7 28 6c 25 20 80 28 26 |.=-1.`.&.(l% .(&|
0000b000 46 46 46 3c 3c 32 30 29 29 3c 3e 28 26 46 46 46 |FFF<<20))<>(&FFF|
0000b010 3c 3c 32 30 29 20 8c 3d 2d 31 0d 60 e0 13 3d 28 |<<20) .=-1.`..=(|
0000b020 28 6c 25 3e 3e 38 29 80 26 46 46 46 29 0d 60 f4 |(l%>>8).&FFF).`.|
0000b030 19 dd f2 69 78 3a e7 57 5a 25 20 8c f2 5a 71 8b |...ix:.WZ% ..Zq.|
0000b040 f2 59 73 28 a3 29 0d 61 08 12 f2 65 56 3a f2 56 |.Ys(.).a...eV:.V|
0000b050 6b 28 58 77 25 29 3a e1 0d 61 30 58 dd f2 69 79 |k(Xw%):..a0X..iy|
0000b060 28 66 24 29 3a ea 64 59 25 2c 56 7a 25 2c 69 7a |(f$):.dY%,Vz%,iz|
0000b070 25 3a e7 5a 66 25 3e 32 34 30 30 20 84 5a 67 25 |%:.Zf%>2400 .Zg%|
0000b080 3e 32 34 30 30 20 84 5a 66 25 3c 33 32 20 84 5a |>2400 .Zf%<32 .Z|
0000b090 67 25 3c 33 32 20 8c 85 31 2c 22 49 6d 61 67 65 |g%<32 ..1,"Image|
0000b0a0 73 20 61 72 65 20 74 6f 6f 20 73 6d 61 6c 6c 22 |s are too small"|
0000b0b0 0d 61 4e 13 69 7a 25 3d 67 65 25 3a c8 8e 69 7a |.aN.iz%=ge%:..iz|
0000b0c0 25 20 ca 0d 61 62 1c c9 30 2c 31 3a 67 69 25 3d |% ..ab..0,1:gi%=|
0000b0d0 34 2b 34 2a 28 28 5a 66 25 2d 31 29 81 34 29 0d |4+4*((Zf%-1).4).|
0000b0e0 61 6c 10 c9 32 3a 67 69 25 3d 33 2a 5a 66 25 0d |al..2:gi%=3*Zf%.|
0000b0f0 61 76 3a cb 3a c8 99 35 33 2c 6a 55 25 2c 33 20 |av:.:..53,jU%,3 |
0000b100 b8 2c 2c 69 63 25 3a 69 64 25 3d 30 3a e7 28 55 |.,,ic%:id%=0:.(U|
0000b110 70 25 28 31 29 2d a4 6a 56 28 31 29 29 3e 32 30 |p%(1)-.jV(1))>20|
0000b120 30 30 20 8c 69 64 25 3d 31 0d 61 9e 14 e7 69 63 |00 .id%=1.a...ic|
0000b130 25 3c 3d 31 35 20 8c 69 64 25 3d 31 36 0d 61 a8 |%<=15 .id%=16.a.|
0000b140 bf c8 99 35 33 2c 62 78 25 2c 34 20 b8 2c 2c 64 |...53,bx%,4 .,,d|
0000b150 59 25 3a c8 99 35 33 2c 62 78 25 2c 35 20 b8 2c |Y%:..53,bx%,5 .,|
0000b160 2c 56 7a 25 3a 62 63 25 3d 28 31 3c 3c 64 59 25 |,Vz%:bc%=(1<<dY%|
0000b170 29 3a 62 65 25 3d 28 31 3c 3c 56 7a 25 29 3a c8 |):be%=(1<<Vz%):.|
0000b180 99 35 33 2c 6a 55 25 2c 34 20 b8 2c 2c 64 59 25 |.53,jU%,4 .,,dY%|
0000b190 3a c8 99 35 33 2c 6a 55 25 2c 35 20 b8 2c 2c 56 |:..53,jU%,5 .,,V|
0000b1a0 7a 25 3a 6a 57 25 3d 28 31 3c 3c 64 59 25 29 3a |z%:jW%=(1<<dY%):|
0000b1b0 6a 58 25 3d 28 31 3c 3c 56 7a 25 29 3a 64 63 25 |jX%=(1<<Vz%):dc%|
0000b1c0 3d 5a 66 25 2a 62 63 25 3a 64 64 25 3d 5a 67 25 |=Zf%*bc%:dd%=Zg%|
0000b1d0 2a 62 65 25 3a 63 74 25 3d 5a 66 25 2a 6a 57 25 |*be%:ct%=Zf%*jW%|
0000b1e0 3a 63 75 25 3d 5a 67 25 2a 6a 58 25 3a e7 67 65 |:cu%=Zg%*jX%:.ge|
0000b1f0 25 3d 31 20 80 20 ac 67 68 25 20 8c 0d 62 0c 43 |%=1 . .gh% ..b.C|
0000b200 f2 63 59 28 59 6b 2c 55 5a 25 21 30 2c 55 61 25 |.cY(Yk,UZ%!0,Ua%|
0000b210 2c 67 69 25 2a 5a 67 25 2c 30 2c 30 2c 30 29 3a |,gi%*Zg%,0,0,0):|
0000b220 f2 63 59 28 59 6b 2c 55 5a 25 21 34 2c 55 61 25 |.cY(Yk,UZ%!4,Ua%|
0000b230 2c 67 69 25 2a 5a 67 25 2c 30 2c 30 2c 30 29 0d |,gi%*Zg%,0,0,0).|
0000b240 62 20 f6 cd 3a 6a 59 24 3d a4 62 6b 28 66 24 29 |b ..:jY$=.bk(f$)|
0000b250 3a f2 5a 58 28 56 6e 25 2c 57 6a 2a 63 74 25 2c |:.ZX(Vn%,Wj*ct%,|
0000b260 57 6a 2a 63 75 25 29 3a f2 5a 58 28 56 6f 25 2c |Wj*cu%):.ZX(Vo%,|
0000b270 57 6b 2a 63 74 25 2c 57 6b 2a 63 75 25 29 3a f2 |Wk*ct%,Wk*cu%):.|
0000b280 5a 58 28 61 5a 25 2c 64 63 25 2c 64 64 25 29 3a |ZX(aZ%,dc%,dd%):|
0000b290 f2 5a 58 28 59 79 25 2c 57 6a 2a 63 74 25 2c 57 |.ZX(Yy%,Wj*ct%,W|
0000b2a0 6a 2a 63 75 25 29 3a f2 6a 5a 28 6a 59 24 2b 22 |j*cu%):.jZ(jY$+"|
0000b2b0 3a 3a 53 74 61 72 74 20 70 69 63 74 75 72 65 22 |::Start picture"|
0000b2c0 2c 56 6e 25 29 3a f2 5a 57 28 56 6e 25 29 3a f2 |,Vn%):.ZW(Vn%):.|
0000b2d0 6a 5a 28 6a 59 24 2b 22 3a 3a 45 6e 64 20 70 69 |jZ(jY$+"::End pi|
0000b2e0 63 74 75 72 65 22 2c 56 6f 25 29 3a f2 5a 57 28 |cture",Vo%):.ZW(|
0000b2f0 56 6f 25 29 3a f2 6a 5a 28 6a 59 24 2b 22 3a 3a |Vo%):.jZ(jY$+"::|
0000b300 4d 6f 72 70 68 65 64 22 2c 61 5a 25 29 3a 69 74 |Morphed",aZ%):it|
0000b310 24 3d 66 24 3a 57 5a 25 3d b9 3a 57 6c 3d 31 3a |$=f$:WZ%=.:Wl=1:|
0000b320 55 5a 25 21 31 32 3d 5a 66 25 3a 55 5a 25 21 31 |UZ%!12=Zf%:UZ%!1|
0000b330 36 3d 5a 67 25 0d 62 b6 92 f2 57 75 28 58 64 25 |6=Zg%.b...Wu(Xd%|
0000b340 2c 36 2c 69 7a 25 3d 30 29 3a f2 57 75 28 58 64 |,6,iz%=0):.Wu(Xd|
0000b350 25 2c 37 2c 69 7a 25 3d 31 29 3a f2 57 75 28 58 |%,7,iz%=1):.Wu(X|
0000b360 64 25 2c 38 2c 69 7a 25 3d 32 29 3a f2 57 75 28 |d%,8,iz%=2):.Wu(|
0000b370 58 6a 25 2c 36 2c 69 7a 25 3d 30 29 3a f2 57 75 |Xj%,6,iz%=0):.Wu|
0000b380 28 58 6a 25 2c 37 2c 69 7a 25 3d 31 29 3a f2 57 |(Xj%,7,iz%=1):.W|
0000b390 75 28 58 6a 25 2c 38 2c 69 7a 25 3d 32 29 3a 61 |u(Xj%,8,iz%=2):a|
0000b3a0 79 25 3d 69 7a 25 3a 62 59 25 3d 69 7a 25 3a 62 |y%=iz%:bY%=iz%:b|
0000b3b0 55 25 3d 69 7a 25 3a 62 5a 25 3d 69 7a 25 3a e7 |U%=iz%:bZ%=iz%:.|
0000b3c0 69 7a 25 3d 32 20 8c 0d 63 10 22 24 58 65 25 3d |iz%=2 ..c."$Xe%=|
0000b3d0 22 53 66 69 6c 65 5f 36 39 30 3b 50 70 74 72 5f |"Sfile_690;Pptr_|
0000b3e0 68 61 6e 64 2c 36 2c 36 22 0d 63 1a 24 cc 3a 24 |hand,6,6".c.$.:$|
0000b3f0 58 65 25 3d 22 53 66 69 6c 65 5f 66 66 39 3b 50 |Xe%="Sfile_ff9;P|
0000b400 70 74 72 5f 68 61 6e 64 2c 36 2c 36 22 0d 63 2e |ptr_hand,6,6".c.|
0000b410 81 cd 3a 55 5a 25 21 32 30 3d 67 69 25 3a f2 61 |..:UZ%!20=gi%:.a|
0000b420 7a 28 69 7a 25 2c 58 64 25 2c 31 38 29 3a f2 61 |z(iz%,Xd%,18):.a|
0000b430 7a 28 69 7a 25 2c 58 6a 25 2c 31 37 29 3a 55 5a |z(iz%,Xj%,17):UZ|
0000b440 25 21 32 34 3d 55 5a 25 21 32 30 3a 55 5a 25 3f |%!24=UZ%!20:UZ%?|
0000b450 32 38 3d 67 65 25 3a 55 5a 25 3f 33 30 3d 30 3a |28=ge%:UZ%?30=0:|
0000b460 55 5a 25 3f 33 31 3d 30 3a 55 5a 25 21 31 30 34 |UZ%?31=0:UZ%!104|
0000b470 3d 55 6b 25 3a e7 a9 66 24 3e 32 37 20 8c 66 24 |=Uk%:..f$>27 .f$|
0000b480 3d 22 2e 2e 2e 22 2b c2 66 24 2c 32 34 29 0d 63 |="..."+.f$,24).c|
0000b490 9c 4e 24 a4 69 28 67 6b 25 2c 31 29 3d 66 24 3a |.N$.i(gk%,1)=f$:|
0000b4a0 24 a4 69 28 67 6b 25 2c 32 29 3d c3 28 5a 66 25 |$.i(gk%,2)=.(Zf%|
0000b4b0 29 2b 22 20 78 20 22 2b c3 28 5a 67 25 29 3a e7 |)+" x "+.(Zg%):.|
0000b4c0 a4 69 77 28 56 6e 24 29 3d 26 36 39 30 20 80 67 |.iw(Vn$)=&690 .g|
0000b4d0 65 25 3d 31 20 8c 69 7a 25 3d 31 36 0d 63 c4 0b |e%=1 .iz%=16.c..|
0000b4e0 c8 8e 69 7a 25 20 ca 0d 63 ce 1b c9 30 3a 66 24 |..iz% ..c...0:f$|
0000b4f0 3d 22 53 70 72 69 74 65 20 28 63 6f 6c 6f 75 72 |="Sprite (colour|
0000b500 29 22 0d 63 d8 19 c9 31 3a 66 24 3d 22 53 70 72 |)".c...1:f$="Spr|
0000b510 69 74 65 20 28 67 72 65 79 29 22 0d 63 e2 19 c9 |ite (grey)".c...|
0000b520 32 3a 66 24 3d 22 43 6c 65 61 72 20 28 32 34 62 |2:f$="Clear (24b|
0000b530 70 70 29 22 0d 63 ec 19 c9 31 36 3a 66 24 3d 22 |pp)".c...16:f$="|
0000b540 43 6c 65 61 72 20 28 67 72 65 79 29 22 0d 63 f6 |Clear (grey)".c.|
0000b550 1b cb 3a e7 67 68 25 20 8c 66 24 2b 3d 22 2c 20 |..:.gh% .f$+=", |
0000b560 73 77 61 70 70 65 64 22 0d 64 0a 2d 24 a4 69 28 |swapped".d.-$.i(|
0000b570 67 6b 25 2c 39 29 3d 66 24 3a f2 6a 61 3a 62 66 |gk%,9)=f$:.ja:bf|
0000b580 25 3d 30 3a e7 62 65 25 3d 32 2a 62 63 25 20 8c |%=0:.be%=2*bc% .|
0000b590 62 66 25 3d 31 0d 64 32 15 e7 62 65 25 3d 34 2a |bf%=1.d2..be%=4*|
0000b5a0 62 63 25 20 8c 62 66 25 3d 32 0d 64 3c 09 f2 63 |bc% .bf%=2.d<..c|
0000b5b0 76 3a e1 0d 64 5a 88 dd f2 5a 62 28 62 25 29 3a |v:..dZ...Zb(b%):|
0000b5c0 ea 66 24 2c 6a 62 24 2c 6a 63 24 2c 6a 64 24 2c |.f$,jb$,jc$,jd$,|
0000b5d0 67 58 24 2c 6a 65 24 2c 62 79 25 2c 62 7a 25 2c |gX$,je$,by%,bz%,|
0000b5e0 56 79 25 2c 65 72 25 2c 78 25 2c 79 25 2c 6a 66 |Vy%,er%,x%,y%,jf|
0000b5f0 25 3a f2 55 57 3a 66 24 3d a4 73 28 62 25 2b 34 |%:.UW:f$=.s(b%+4|
0000b600 34 29 3a c8 99 26 38 2c 35 2c 66 24 20 b8 6a 66 |4):..&8,5,f$ .jf|
0000b610 25 3a e7 6a 66 25 3c 3e 32 20 8c 85 31 2c 22 4d |%:.jf%<>2 ..1,"M|
0000b620 6f 72 70 68 65 75 73 20 6e 65 65 64 73 20 61 20 |orpheus needs a |
0000b630 64 69 72 65 63 74 6f 72 79 2e 22 0d 64 a0 6a f2 |directory.".d.j.|
0000b640 69 78 3a 57 70 25 3d b9 3a 6a 62 24 3d 66 24 2b |ix:Wp%=.:jb$=f$+|
0000b650 22 2e 53 70 72 69 74 65 31 22 3a e7 a4 69 77 28 |".Sprite1":..iw(|
0000b660 6a 62 24 29 3c 3e 26 46 46 39 20 8c 85 31 2c 22 |jb$)<>&FF9 ..1,"|
0000b670 46 69 6c 65 20 27 53 70 72 69 74 65 31 27 20 69 |File 'Sprite1' i|
0000b680 73 6e 27 74 20 61 20 73 70 72 69 74 65 66 69 6c |sn't a spritefil|
0000b690 65 20 6f 72 20 63 61 6e 27 74 20 62 65 20 66 6f |e or can't be fo|
0000b6a0 75 6e 64 2e 22 0d 64 c8 60 6a 63 24 3d 66 24 2b |und.".d.`jc$=f$+|
0000b6b0 22 2e 53 70 72 69 74 65 32 22 3a e7 a4 69 77 28 |".Sprite2":..iw(|
0000b6c0 6a 63 24 29 3c 3e 26 46 46 39 20 8c 85 31 2c 22 |jc$)<>&FF9 ..1,"|
0000b6d0 46 69 6c 65 20 27 53 70 72 69 74 65 32 27 20 69 |File 'Sprite2' i|
0000b6e0 73 6e 27 74 20 61 20 73 70 72 69 74 65 66 69 6c |sn't a spritefil|
0000b6f0 65 20 6f 72 20 63 61 6e 27 74 20 62 65 20 66 6f |e or can't be fo|
0000b700 75 6e 64 2e 22 0d 64 d2 5b 6a 64 24 3d 66 24 2b |und.".d.[jd$=f$+|
0000b710 22 2e 21 4d 6f 72 70 68 22 3a 67 58 24 3d 66 24 |".!Morph":gX$=f$|
0000b720 2b 22 2e 53 74 61 72 74 22 3a 6a 65 24 3d 66 24 |+".Start":je$=f$|
0000b730 2b 22 2e 45 6e 64 22 3a e7 20 ac 28 a4 69 76 28 |+".End":. .(.iv(|
0000b740 67 58 24 29 20 80 a4 69 76 28 6a 65 24 29 29 20 |gX$) ..iv(je$)) |
0000b750 8c 67 58 24 3d 6a 62 24 3a 6a 65 24 3d 6a 63 24 |.gX$=jb$:je$=jc$|
0000b760 0d 64 fa 50 63 6e 25 3d a4 69 77 28 67 58 24 29 |.d.Pcn%=.iw(gX$)|
0000b770 3a e7 63 6e 25 3c 3e a4 69 77 28 6a 65 24 29 20 |:.cn%<>.iw(je$) |
0000b780 8c 85 31 2c 22 53 74 61 72 74 20 61 6e 64 20 65 |..1,"Start and e|
0000b790 6e 64 20 69 6d 61 67 65 73 20 61 72 65 6e 27 74 |nd images aren't|
0000b7a0 20 74 68 65 20 73 61 6d 65 20 74 79 70 65 2e 22 | the same type."|
0000b7b0 0d 65 0e 58 e7 63 6e 25 3c 3e 26 36 39 30 20 80 |.e.X.cn%<>&690 .|
0000b7c0 63 6e 25 3c 3e 26 46 46 39 20 8c 85 31 2c 22 53 |cn%<>&FF9 ..1,"S|
0000b7d0 74 61 72 74 20 61 6e 64 20 65 6e 64 20 69 6d 61 |tart and end ima|
0000b7e0 67 65 73 20 61 72 65 20 6e 65 69 74 68 65 72 20 |ges are neither |
0000b7f0 73 70 72 69 74 65 20 6e 6f 72 20 43 6c 65 61 72 |sprite nor Clear|
0000b800 20 66 69 6c 65 73 2e 22 0d 65 18 66 c8 99 26 38 | files.".e.f..&8|
0000b810 2c 35 2c 67 58 24 20 b8 2c 2c 2c 2c 62 79 25 3a |,5,gX$ .,,,,by%:|
0000b820 c8 99 26 38 2c 35 2c 6a 65 24 20 b8 2c 2c 2c 2c |..&8,5,je$ .,,,,|
0000b830 62 7a 25 3a e7 62 79 25 3c 3e 62 7a 25 20 8c 85 |bz%:.by%<>bz% ..|
0000b840 31 2c 22 53 74 61 72 74 20 61 6e 64 20 65 6e 64 |1,"Start and end|
0000b850 20 69 6d 61 67 65 73 20 61 72 65 6e 27 74 20 74 | images aren't t|
0000b860 68 65 20 73 61 6d 65 20 73 69 7a 65 2e 22 0d 65 |he same size.".e|
0000b870 40 8a c8 99 26 38 2c 35 2c 6a 62 24 20 b8 2c 2c |@...&8,5,jb$ .,,|
0000b880 2c 2c 62 79 25 3a f2 6a 67 28 6a 62 24 2c 62 79 |,,by%:.jg(jb$,by|
0000b890 25 2c 31 29 3a c8 99 26 38 2c 35 2c 6a 63 24 20 |%,1):..&8,5,jc$ |
0000b8a0 b8 2c 2c 2c 2c 62 79 25 3a f2 6a 67 28 6a 63 24 |.,,,,by%:.jg(jc$|
0000b8b0 2c 62 79 25 2c 32 29 3a c8 99 26 32 45 2c 32 35 |,by%,2):..&2E,25|
0000b8c0 36 2b 34 30 2c 55 70 25 28 31 29 2c 55 70 24 28 |6+40,Up%(1),Up$(|
0000b8d0 31 29 20 b8 2c 2c 2c 2c 2c 2c 6a 55 25 3a 56 6e |1) .,,,,,,jU%:Vn|
0000b8e0 24 3d 67 58 24 3a 56 6f 24 3d 6a 65 24 3a e7 67 |$=gX$:Vo$=je$:.g|
0000b8f0 58 24 3d 6a 62 24 20 8c 0d 65 86 71 62 78 25 3d |X$=jb$ ..e.qbx%=|
0000b900 6a 55 25 3a c8 99 26 32 45 2c 32 35 36 2b 34 30 |jU%:..&2E,256+40|
0000b910 2c 55 70 25 28 31 29 2c 55 70 24 28 31 29 20 b8 |,Up%(1),Up$(1) .|
0000b920 2c 2c 2c 78 25 2c 79 25 3a c8 99 35 33 2c 62 78 |,,,x%,y%:..53,bx|
0000b930 25 2c 33 20 b8 2c 2c 65 72 25 3a e7 65 72 25 3c |%,3 .,,er%:.er%<|
0000b940 3e 36 33 20 8c 85 31 2c 22 4f 6e 6c 79 20 38 62 |>63 ..1,"Only 8b|
0000b950 70 70 20 73 70 72 69 74 65 20 63 61 6e 20 62 65 |pp sprite can be|
0000b960 20 6c 6f 61 64 65 64 2e 22 0d 65 ae 22 67 68 25 | loaded.".e."gh%|
0000b970 3d a3 3a 67 65 25 3d 30 3a f2 6a 68 28 55 70 25 |=.:ge%=0:.jh(Up%|
0000b980 28 31 29 29 3a e7 6a 69 25 20 8c 0d 65 d6 21 f2 |(1)):.ji% ..e.!.|
0000b990 6a 68 28 55 70 25 28 32 29 29 3a f2 6a 68 28 55 |jh(Up%(2)):.jh(U|
0000b9a0 70 25 28 33 29 29 3a 67 65 25 3d 31 0d 65 ea 2d |p%(3)):ge%=1.e.-|
0000b9b0 cd 3a 5a 66 25 3d 78 25 3a 5a 67 25 3d 79 25 3a |.:Zf%=x%:Zg%=y%:|
0000b9c0 55 5a 25 21 30 3d a4 6a 56 28 31 29 3a 55 5a 25 |UZ%!0=.jV(1):UZ%|
0000b9d0 21 34 3d a4 6a 56 28 32 29 0d 66 12 34 cc 3a 67 |!4=.jV(2).f.4.:g|
0000b9e0 68 25 3d a3 3a c8 99 26 38 2c 35 2c 67 58 24 20 |h%=.:..&8,5,gX$ |
0000b9f0 b8 2c 2c 2c 2c 62 79 25 3a e7 61 76 25 20 80 62 |.,,,,by%:.av% .b|
0000ba00 79 25 3e 65 57 25 20 8c 67 68 25 3d b9 0d 66 3a |y%>eW% .gh%=..f:|
0000ba10 0f e7 63 6e 25 3d 26 46 46 39 20 8c 0d 66 44 0a |..cn%=&FF9 ..fD.|
0000ba20 e7 67 68 25 20 8c 0d 66 4e 44 f2 62 75 28 67 58 |.gh% ..fND.bu(gX|
0000ba30 24 29 3a e7 68 58 25 3d 2d 31 20 8c 85 31 2c 22 |$):.hX%=-1 ..1,"|
0000ba40 45 72 72 6f 72 20 69 6e 20 73 70 72 69 74 65 66 |Error in spritef|
0000ba50 69 6c 65 20 6f 72 20 69 6c 6c 65 67 61 6c 20 6d |ile or illegal m|
0000ba60 6f 64 65 2f 73 69 7a 65 2e 22 0d 66 62 91 e7 68 |ode/size.".fb..h|
0000ba70 58 25 3d 2d 32 20 8c 85 31 2c 22 54 68 65 20 73 |X%=-2 ..1,"The s|
0000ba80 70 72 69 74 65 20 68 61 73 20 6c 65 66 74 68 61 |prite has leftha|
0000ba90 6e 64 20 77 61 73 74 61 67 65 2e 20 54 68 69 73 |nd wastage. This|
0000baa0 20 63 61 6e 20 62 65 20 72 65 6d 6f 76 65 64 20 | can be removed |
0000bab0 62 79 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 |by loading the s|
0000bac0 70 72 69 74 65 66 69 6c 65 20 69 6e 74 6f 20 21 |pritefile into !|
0000bad0 50 61 69 6e 74 20 61 6e 64 20 72 65 73 61 76 69 |Paint and resavi|
0000bae0 6e 67 20 69 74 20 77 69 74 68 6f 75 74 20 61 6e |ng it without an|
0000baf0 79 20 63 68 61 6e 67 65 73 2e 22 0d 66 6c 15 e7 |y changes.".fl..|
0000bb00 6a 69 25 20 8c 67 65 25 3d 31 8b 67 65 25 3d 30 |ji% .ge%=1.ge%=0|
0000bb10 0d 66 76 13 5a 66 25 3d 62 76 25 3a 5a 67 25 3d |.fv.Zf%=bv%:Zg%=|
0000bb20 62 77 25 0d 66 80 81 cc 3a f2 6a 67 28 67 58 24 |bw%.f...:.jg(gX$|
0000bb30 2c 62 79 25 2c 35 29 3a f2 6a 67 28 6a 65 24 2c |,by%,5):.jg(je$,|
0000bb40 62 79 25 2c 36 29 3a c8 99 26 32 45 2c 32 35 36 |by%,6):..&2E,256|
0000bb50 2b 34 30 2c 55 70 25 28 35 29 2c 55 70 24 28 35 |+40,Up%(5),Up$(5|
0000bb60 29 20 b8 2c 2c 2c 78 25 2c 79 25 2c 2c 62 78 25 |) .,,,x%,y%,,bx%|
0000bb70 3a c8 99 35 33 2c 62 78 25 2c 33 20 b8 2c 2c 65 |:..53,bx%,3 .,,e|
0000bb80 72 25 3a e7 65 72 25 3c 3e 36 33 20 8c 85 31 2c |r%:.er%<>63 ..1,|
0000bb90 22 4e 6f 74 20 61 20 38 62 70 70 20 73 70 72 69 |"Not a 8bpp spri|
0000bba0 74 65 2e 22 0d 66 b2 2d 67 65 25 3d 30 3a f2 6a |te.".f.-ge%=0:.j|
0000bbb0 68 28 55 70 25 28 35 29 29 3a e7 6a 69 25 20 8c |h(Up%(5)):.ji% .|
0000bbc0 f2 6a 68 28 55 70 25 28 36 29 29 3a 67 65 25 3d |.jh(Up%(6)):ge%=|
0000bbd0 31 0d 66 d0 2b 5a 66 25 3d 78 25 3a 5a 67 25 3d |1.f.+Zf%=x%:Zg%=|
0000bbe0 79 25 3a 55 5a 25 21 30 3d a4 6a 56 28 35 29 3a |y%:UZ%!0=.jV(5):|
0000bbf0 55 5a 25 21 34 3d a4 6a 56 28 36 29 0d 66 ee 05 |UZ%!4=.jV(6).f..|
0000bc00 cd 0d 66 f8 19 cc 3a 62 78 25 3d a4 63 56 28 6a |..f...:bx%=.cV(j|
0000bc10 55 25 29 3a e7 67 68 25 20 8c 0d 67 16 34 67 65 |U%):.gh% ..g.4ge|
0000bc20 25 3d a4 6a 6a 28 67 58 24 29 3a e7 67 65 25 3d |%=.jj(gX$):.ge%=|
0000bc30 2d 31 20 8c 85 31 2c 22 49 6c 6c 65 67 61 6c 20 |-1 ..1,"Illegal |
0000bc40 43 6c 65 61 72 20 66 6f 72 6d 61 74 2e 22 0d 67 |Clear format.".g|
0000bc50 2a 13 5a 66 25 3d 62 76 25 3a 5a 67 25 3d 62 77 |*.Zf%=bv%:Zg%=bw|
0000bc60 25 0d 67 34 36 cc 3a 67 65 25 3d a4 6a 6a 28 67 |%.g46.:ge%=.jj(g|
0000bc70 58 24 29 3a e7 67 65 25 3d 2d 31 20 8c 85 31 2c |X$):.ge%=-1 ..1,|
0000bc80 22 49 6c 6c 65 67 61 6c 20 43 6c 65 61 72 20 66 |"Illegal Clear f|
0000bc90 6f 72 6d 61 74 2e 22 0d 67 52 32 5a 66 25 3d 62 |ormat.".gR2Zf%=b|
0000bca0 76 25 3a 5a 67 25 3d 62 77 25 3a f2 6a 6b 28 67 |v%:Zg%=bw%:.jk(g|
0000bcb0 58 24 2c 35 29 3a f2 6a 6b 28 6a 65 24 2c 36 29 |X$,5):.jk(je$,6)|
0000bcc0 3a e7 67 65 25 3d 31 20 8c 0d 67 7a 1d 55 5a 25 |:.ge%=1 ..gz.UZ%|
0000bcd0 21 30 3d a4 6a 56 28 35 29 3a 55 5a 25 21 34 3d |!0=.jV(5):UZ%!4=|
0000bce0 a4 6a 56 28 36 29 0d 67 8e 1f cc 3a 55 5a 25 21 |.jV(6).g...:UZ%!|
0000bcf0 30 3d 55 71 25 28 35 29 3a 55 5a 25 21 34 3d 55 |0=Uq%(5):UZ%!4=U|
0000bd00 71 25 28 36 29 0d 67 ac 05 cd 0d 67 b6 05 cd 0d |q%(6).g....g....|
0000bd10 67 c0 05 cd 0d 67 ca 27 cd 3a 57 5a 25 3d b9 3a |g....g.'.:WZ%=.:|
0000bd20 f2 6a 6c 28 66 24 29 3a f2 69 79 28 66 24 29 3a |.jl(f$):.iy(f$):|
0000bd30 57 70 25 3d a3 3a f2 56 58 3a e1 0d 68 24 3d dd |Wp%=.:.VX:..h$=.|
0000bd40 a4 67 67 28 6d 25 29 3a ea 64 59 25 2c 56 7a 25 |.gg(m%):.dY%,Vz%|
0000bd50 3a c8 99 35 33 2c 6d 25 2c 34 20 b8 2c 2c 64 59 |:..53,m%,4 .,,dY|
0000bd60 25 3a c8 99 35 33 2c 6d 25 2c 35 20 b8 2c 2c 56 |%:..53,m%,5 .,,V|
0000bd70 7a 25 3a c8 8e b9 20 ca 0d 68 56 15 c9 64 59 25 |z%:... ..hV..dY%|
0000bd80 3d 31 20 80 56 7a 25 3d 31 3a 3d 32 30 0d 68 60 |=1 .Vz%=1:=20.h`|
0000bd90 15 c9 64 59 25 3d 31 20 80 56 7a 25 3d 32 3a 3d |..dY%=1 .Vz%=2:=|
0000bda0 31 32 0d 68 6a 14 c9 64 59 25 3d 32 20 80 56 7a |12.hj..dY%=2 .Vz|
0000bdb0 25 3d 32 3a 3d 39 0d 68 74 09 cb 3a 3d 31 32 0d |%=2:=9.ht..:=12.|
0000bdc0 68 92 3d dd a4 63 56 28 6d 25 29 3a ea 64 59 25 |h.=..cV(m%):.dY%|
0000bdd0 2c 56 7a 25 3a c8 99 35 33 2c 6d 25 2c 34 20 b8 |,Vz%:..53,m%,4 .|
0000bde0 2c 2c 64 59 25 3a c8 99 35 33 2c 6d 25 2c 35 20 |,,dY%:..53,m%,5 |
0000bdf0 b8 2c 2c 56 7a 25 3a c8 8e b9 20 ca 0d 68 c4 15 |.,,Vz%:... ..h..|
0000be00 c9 64 59 25 3d 31 20 80 56 7a 25 3d 31 3a 3d 32 |.dY%=1 .Vz%=1:=2|
0000be10 38 0d 68 ce 15 c9 64 59 25 3d 31 20 80 56 7a 25 |8.h...dY%=1 .Vz%|
0000be20 3d 32 3a 3d 31 35 0d 68 d8 15 c9 64 59 25 3d 32 |=2:=15.h...dY%=2|
0000be30 20 80 56 7a 25 3d 32 3a 3d 31 33 0d 68 e2 09 cb | .Vz%=2:=13.h...|
0000be40 3a 3d 31 33 0d 69 00 e5 dd f2 62 75 28 66 24 29 |:=13.i....bu(f$)|
0000be50 3a ea 68 25 2c 66 25 2c 6c 25 2c 70 25 2c 64 25 |:.h%,f%,l%,p%,d%|
0000be60 2c 6d 25 2c 65 72 25 2c 67 25 2c 65 7a 25 2c 6a |,m%,er%,g%,ez%,j|
0000be70 6d 25 2c 6a 6e 25 3a c8 99 26 44 2c 26 34 33 2c |m%,jn%:..&D,&43,|
0000be80 66 24 20 b8 68 25 3a 64 25 3d a4 6a 6f 28 68 25 |f$ .h%:d%=.jo(h%|
0000be90 29 3a 70 25 3d a4 6a 6f 28 68 25 29 3a 68 58 25 |):p%=.jo(h%):hX%|
0000bea0 3d 70 25 2d 34 3a cf 23 68 25 3d 70 25 2b 31 32 |=p%-4:.#h%=p%+12|
0000beb0 3a 62 76 25 3d a4 6a 6f 28 68 25 29 3a 62 77 25 |:bv%=.jo(h%):bw%|
0000bec0 3d a4 6a 6f 28 68 25 29 3a 66 25 3d a4 6a 6f 28 |=.jo(h%):f%=.jo(|
0000bed0 68 25 29 3a 6c 25 3d a4 6a 6f 28 68 25 29 3a 70 |h%):l%=.jo(h%):p|
0000bee0 25 3d a4 6a 6f 28 68 25 29 3a 64 25 3d a4 6a 6f |%=.jo(h%):d%=.jo|
0000bef0 28 68 25 29 3a 6d 25 3d a4 6a 6f 28 68 25 29 3a |(h%):m%=.jo(h%):|
0000bf00 68 58 25 2b 3d 70 25 3a c8 99 35 33 2c 6d 25 2c |hX%+=p%:..53,m%,|
0000bf10 33 20 b8 2c 2c 65 72 25 3a e7 65 72 25 3c 3e 36 |3 .,,er%:.er%<>6|
0000bf20 33 20 8c 68 58 25 3d 2d 31 0d 69 a0 2b 62 78 25 |3 .hX%=-1.i.+bx%|
0000bf30 3d 6d 25 3a 62 77 25 2b 3d 31 3a e7 62 77 25 3c |=m%:bw%+=1:.bw%<|
0000bf40 33 32 20 84 62 77 25 3e 32 34 30 30 20 8c 68 58 |32 .bw%>2400 .hX|
0000bf50 25 3d 2d 31 0d 69 b4 12 e7 66 25 3c 3e 30 20 8c |%=-1.i...f%<>0 .|
0000bf60 68 58 25 3d 2d 32 0d 69 be 14 62 76 25 3d 62 76 |hX%=-2.i..bv%=bv|
0000bf70 25 2a 34 3a c8 8e 6c 25 20 ca 0d 69 d2 0d c9 37 |%*4:..l% ..i...7|
0000bf80 3a 62 76 25 2b 3d 31 0d 69 dc 0e c9 31 35 3a 62 |:bv%+=1.i...15:b|
0000bf90 76 25 2b 3d 32 0d 69 e6 0e c9 32 33 3a 62 76 25 |v%+=2.i...23:bv%|
0000bfa0 2b 3d 33 0d 69 f0 0e c9 33 31 3a 62 76 25 2b 3d |+=3.i...31:bv%+=|
0000bfb0 34 0d 69 fa 1f cb 3a e7 62 76 25 3c 33 32 20 84 |4.i...:.bv%<32 .|
0000bfc0 62 76 25 3e 32 34 30 30 20 8c 68 58 25 3d 2d 31 |bv%>2400 .hX%=-1|
0000bfd0 0d 6a 0e 15 6a 69 25 3d a3 3a e7 68 58 25 3e 32 |.j..ji%=.:.hX%>2|
0000bfe0 30 30 30 20 8c 0d 6a 22 5b 67 25 3d b9 3a e3 70 |000 ..j"[g%=.:.p|
0000bff0 25 3d 30 20 b8 32 35 35 3a 65 7a 25 3d a4 6a 6f |%=0 .255:ez%=.jo|
0000c000 28 68 25 29 3a 6a 6e 25 3d a4 6a 6f 28 68 25 29 |(h%):jn%=.jo(h%)|
0000c010 3a 6a 6d 25 3d a4 6a 6f 28 68 25 29 3a e7 65 7a |:jm%=.jo(h%):.ez|
0000c020 25 3c 3e 6a 6e 25 20 84 6a 6d 25 3c 3e 6a 6e 25 |%<>jn% .jm%<>jn%|
0000c030 20 84 65 7a 25 3c 3e 6a 6d 25 20 8c 67 25 3d a3 | .ez%<>jm% .g%=.|
0000c040 0d 6a 4a 17 55 61 25 3f 70 25 3d 65 7a 25 3a ed |.jJ.Ua%?p%=ez%:.|
0000c050 3a 6a 69 25 3d 67 25 0d 6a 68 11 cd 3a c8 99 26 |:ji%=g%.jh..:..&|
0000c060 44 2c 30 2c 68 25 3a e1 0d 6a 90 b4 dd a4 6a 6a |D,0,h%:..j....jj|
0000c070 28 66 24 29 3a ea 68 25 2c 6e 24 2c 61 25 2c 6a |(f$):.h%,n$,a%,j|
0000c080 70 25 2c 6a 71 25 2c 6a 72 25 2c 6a 73 25 2c 6a |p%,jq%,jr%,js%,j|
0000c090 74 25 2c 6a 75 25 3a c8 99 26 44 2c 26 34 33 2c |t%,ju%:..&D,&43,|
0000c0a0 66 24 20 b8 68 25 3a 6e 24 3d 22 22 3a 61 25 3d |f$ .h%:n$="":a%=|
0000c0b0 9a 23 68 25 3a c8 95 61 25 3c 3e 30 3a 6e 24 2b |.#h%:..a%<>0:n$+|
0000c0c0 3d bd 61 25 3a 61 25 3d 9a 23 68 25 3a ce 3a 61 |=.a%:a%=.#h%:.:a|
0000c0d0 25 3d a4 6a 6f 28 68 25 29 3a 62 76 25 3d a4 6a |%=.jo(h%):bv%=.j|
0000c0e0 6f 28 68 25 29 3a 62 77 25 3d a4 6a 6f 28 68 25 |o(h%):bw%=.jo(h%|
0000c0f0 29 3a 6a 75 25 3d a4 6a 6f 28 68 25 29 3a e7 6a |):ju%=.jo(h%):.j|
0000c100 75 25 3d 32 34 20 8c 68 58 25 3d 8f 23 68 25 3a |u%=24 .hX%=.#h%:|
0000c110 c8 99 26 44 2c 30 2c 68 25 3a 3d 32 0d 6a ea 61 |..&D,0,h%:=2.j.a|
0000c120 6a 70 25 3d b9 3a e3 6a 71 25 3d 30 20 b8 32 35 |jp%=.:.jq%=0 .25|
0000c130 35 3a 6a 72 25 3d 9a 23 68 25 3a 6a 73 25 3d 9a |5:jr%=.#h%:js%=.|
0000c140 23 68 25 3a 6a 74 25 3d 9a 23 68 25 3a 55 61 25 |#h%:jt%=.#h%:Ua%|
0000c150 3f 6a 71 25 3d 6a 72 25 3a e7 6a 72 25 3c 3e 6a |?jq%=jr%:.jr%<>j|
0000c160 73 25 20 84 6a 73 25 3c 3e 6a 74 25 20 84 6a 72 |s% .js%<>jt% .jr|
0000c170 25 3c 3e 6a 74 25 20 8c 6a 70 25 3d a3 0d 6b 1c |%<>jt% .jp%=..k.|
0000c180 21 ed 3a 68 58 25 3d 8f 23 68 25 3a c8 99 26 44 |!.:hX%=.#h%:..&D|
0000c190 2c 30 2c 68 25 3a e7 6a 70 25 20 8c 3d 31 0d 6b |,0,h%:.jp% .=1.k|
0000c1a0 44 07 3d 2d 31 0d 6b 58 57 dd f2 6a 67 28 66 24 |D.=-1.kXW..jg(f$|
0000c1b0 2c 6c 25 2c 6e 25 29 3a ea 70 25 2c 6e 24 3a 70 |,l%,n%):.p%,n$:p|
0000c1c0 25 3d a4 65 77 28 6c 25 2b 32 30 29 3a e7 70 25 |%=.ew(l%+20):.p%|
0000c1d0 3c 3d 30 20 8c 85 31 2c 22 4e 6f 20 72 6f 6f 6d |<=0 ..1,"No room|
0000c1e0 20 74 6f 20 6c 6f 61 64 20 73 70 72 69 74 65 20 | to load sprite |
0000c1f0 22 2b a4 65 78 28 6c 25 2b 32 30 29 0d 6b 76 82 |"+.ex(l%+20).kv.|
0000c200 70 25 21 30 3d 6c 25 2b 32 30 3a 70 25 21 34 3d |p%!0=l%+20:p%!4=|
0000c210 30 3a 70 25 21 38 3d 31 36 3a 70 25 21 31 32 3d |0:p%!8=16:p%!12=|
0000c220 31 36 3a c8 99 26 32 45 2c 32 35 36 2b 31 30 2c |16:..&2E,256+10,|
0000c230 70 25 2c 66 24 3a 6e 24 3d a4 69 75 28 70 25 29 |p%,f$:n$=.iu(p%)|
0000c240 3a c8 99 26 32 45 2c 32 35 36 2b 35 34 2c 70 25 |:..&2E,256+54,p%|
0000c250 2c 6e 24 3a c8 99 26 32 45 2c 32 35 36 2b 33 30 |,n$:..&2E,256+30|
0000c260 2c 70 25 2c 6e 24 3a 55 70 25 28 6e 25 29 3d 70 |,p%,n$:Up%(n%)=p|
0000c270 25 3a 55 70 24 28 6e 25 29 3d 6e 24 3a e1 0d 6b |%:Up$(n%)=n$:..k|
0000c280 c6 18 dd f2 6a 6b 28 66 24 2c 6e 25 29 3a e7 67 |....jk(f$,n%):.g|
0000c290 65 25 3d 31 20 8c 0d 6b da 0e f2 6a 76 28 66 24 |e%=1 ..k...jv(f$|
0000c2a0 2c 6e 25 29 0d 6b e4 10 cc 3a f2 6a 77 28 66 24 |,n%).k...:.jw(f$|
0000c2b0 2c 6e 25 29 0d 6b f8 07 cd 3a e1 0d 6c 16 60 dd |,n%).k...:..l.`.|
0000c2c0 f2 6a 77 28 66 24 2c 6e 25 29 3a ea 70 25 2c 68 |.jw(f$,n%):.p%,h|
0000c2d0 25 3a 70 25 3d a4 65 77 28 5a 66 25 2a 5a 67 25 |%:p%=.ew(Zf%*Zg%|
0000c2e0 2a 33 29 3a e7 70 25 3c 3d 30 20 8c 85 31 2c 22 |*3):.p%<=0 ..1,"|
0000c2f0 4e 6f 20 72 6f 6f 6d 20 74 6f 20 6c 6f 61 64 20 |No room to load |
0000c300 43 6c 65 61 72 20 66 69 6c 65 20 22 2b a4 65 78 |Clear file "+.ex|
0000c310 28 5a 66 25 2a 5a 67 25 2a 33 29 0d 6c 34 45 c8 |(Zf%*Zg%*3).l4E.|
0000c320 99 26 44 2c 26 34 33 2c 66 24 20 b8 68 25 3a c8 |.&D,&43,f$ .h%:.|
0000c330 99 26 43 2c 33 2c 68 25 2c 70 25 2c 33 2a 5a 66 |.&C,3,h%,p%,3*Zf|
0000c340 25 2a 5a 67 25 2c 68 58 25 3a c8 99 26 44 2c 30 |%*Zg%,hX%:..&D,0|
0000c350 2c 68 25 3a 55 71 25 28 6e 25 29 3d 70 25 3a e1 |,h%:Uq%(n%)=p%:.|
0000c360 0d 6c 70 7d dd f2 6a 76 28 66 24 2c 6e 25 29 3a |.lp}..jv(f$,n%):|
0000c370 ea 70 25 2c 6c 25 2c 68 25 2c 6a 78 25 2c 5a 55 |.p%,l%,h%,jx%,ZU|
0000c380 25 2c 69 25 3a 6c 25 3d 5a 67 25 2a 28 34 2b 34 |%,i%:l%=Zg%*(4+4|
0000c390 2a 28 5a 66 25 2d 31 29 81 34 29 3a 70 25 3d a4 |*(Zf%-1).4):p%=.|
0000c3a0 65 77 28 6c 25 2b 32 30 29 3a e7 70 25 3c 3d 30 |ew(l%+20):.p%<=0|
0000c3b0 20 8c 85 31 2c 22 4e 6f 20 72 6f 6f 6d 20 74 6f | ..1,"No room to|
0000c3c0 20 6c 6f 61 64 20 43 6c 65 61 72 20 66 69 6c 65 | load Clear file|
0000c3d0 20 22 2b a4 65 78 28 6c 25 2b 32 30 29 0d 6c 98 | "+.ex(l%+20).l.|
0000c3e0 6e 70 25 21 30 3d 6c 25 2b 32 30 3a 70 25 21 34 |np%!0=l%+20:p%!4|
0000c3f0 3d 30 3a 70 25 21 38 3d 31 36 3a 70 25 21 31 32 |=0:p%!8=16:p%!12|
0000c400 3d 31 36 3a c8 99 26 32 45 2c 32 35 36 2b 31 35 |=16:..&2E,256+15|
0000c410 2c 70 25 2c 22 43 6c 65 61 72 49 6d 61 67 65 22 |,p%,"ClearImage"|
0000c420 2c 30 2c 5a 66 25 2c 5a 67 25 2c 32 31 3a c8 99 |,0,Zf%,Zg%,21:..|
0000c430 26 44 2c 26 34 33 2c 66 24 20 b8 68 25 3a e7 28 |&D,&43,f$ .h%:.(|
0000c440 5a 66 25 20 83 34 29 3d 30 20 8c 0d 6c c0 1b c8 |Zf% .4)=0 ..l...|
0000c450 99 26 43 2c 34 2c 68 25 2c 70 25 2b 36 30 2c 5a |.&C,4,h%,p%+60,Z|
0000c460 66 25 2a 5a 67 25 0d 6c ca 49 cc 3a 6a 78 25 3d |f%*Zg%.l.I.:jx%=|
0000c470 70 25 2b 36 30 3a 5a 55 25 3d 34 2a 28 28 5a 66 |p%+60:ZU%=4*((Zf|
0000c480 25 2b 34 29 81 34 29 3a e3 69 25 3d 31 20 b8 5a |%+4).4):.i%=1 .Z|
0000c490 67 25 3a c8 99 26 43 2c 34 2c 68 25 2c 6a 78 25 |g%:..&C,4,h%,jx%|
0000c4a0 2c 5a 66 25 3a 6a 78 25 2b 3d 5a 55 25 3a ed 0d |,Zf%:jx%+=ZU%:..|
0000c4b0 6d 10 11 cd 3a c8 99 26 44 2c 30 2c 68 25 3a e1 |m...:..&D,0,h%:.|
0000c4c0 0d 6d 38 2a dd a4 6a 56 28 6e 25 29 3a 6e 25 3d |.m8*..jV(n%):n%=|
0000c4d0 55 70 25 28 6e 25 29 3a 6e 25 2b 3d 6e 25 21 38 |Up%(n%):n%+=n%!8|
0000c4e0 3a 3d 6e 25 2b 6e 25 21 33 32 0d 6d 4c 68 dd f2 |:=n%+n%!32.mLh..|
0000c4f0 6a 6c 28 66 24 29 3a ea 6a 79 24 2c 78 25 2c 79 |jl(f$):.jy$,x%,y|
0000c500 25 2c 63 6d 25 2c 63 25 2c 5a 79 25 2c 74 25 2c |%,cm%,c%,Zy%,t%,|
0000c510 68 6f 25 2c 63 24 2c 66 75 25 3a 6a 79 24 3d a4 |ho%,c$,fu%:jy$=.|
0000c520 62 6b 28 66 24 29 3a f2 6a 7a 28 6a 79 24 29 3a |bk(f$):.jz(jy$):|
0000c530 c8 99 26 38 2c 35 2c 66 24 2b 22 2e 21 4d 6f 72 |..&8,5,f$+".!Mor|
0000c540 70 68 22 20 b8 6a 66 25 3a e7 6a 66 25 3d 30 20 |ph" .jf%:.jf%=0 |
0000c550 8c e1 0d 6d 88 40 e7 6a 66 25 3c 3e 31 20 8c 85 |...m.@.jf%<>1 ..|
0000c560 31 2c 6a 79 24 2b 22 2e 21 4d 6f 72 70 68 20 61 |1,jy$+".!Morph a|
0000c570 6c 72 65 61 64 79 20 65 78 69 73 74 73 2c 20 62 |lready exists, b|
0000c580 75 74 20 6e 6f 74 20 61 73 20 61 20 66 69 6c 65 |ut not as a file|
0000c590 2e 22 0d 6d 92 7e 68 25 3d 8e 28 66 24 2b 22 2e |.".m.~h%=.(f$+".|
0000c5a0 21 4d 6f 72 70 68 22 29 3a 66 75 25 3d a4 6a 6f |!Morph"):fu%=.jo|
0000c5b0 28 68 25 29 3a e7 66 75 25 3c 2d 32 20 84 66 75 |(h%):.fu%<-2 .fu|
0000c5c0 25 3e 35 30 20 8c d9 23 68 25 3a 85 31 2c 22 54 |%>50 ..#h%:.1,"T|
0000c5d0 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 4d |his version of M|
0000c5e0 6f 72 70 68 65 75 73 20 63 61 6e 20 6f 6e 6c 79 |orpheus can only|
0000c5f0 20 72 65 61 64 20 73 65 74 75 70 20 66 6f 72 6d | read setup form|
0000c600 61 74 73 20 30 2c 20 31 20 61 6e 64 20 32 2e 22 |ats 0, 1 and 2."|
0000c610 0d 6d b0 15 e7 66 75 25 3d 2d 31 20 84 66 75 25 |.m...fu%=-1 .fu%|
0000c620 3d 2d 32 20 8c 0d 6d ba 67 66 75 25 3d 2d 66 75 |=-2 ..m.gfu%=-fu|
0000c630 25 3a 78 25 3d a4 6a 6f 28 68 25 29 3a 79 25 3d |%:x%=.jo(h%):y%=|
0000c640 a4 6a 6f 28 68 25 29 3a e7 78 25 3c 33 20 84 79 |.jo(h%):.x%<3 .y|
0000c650 25 3c 33 20 84 78 25 3e 33 30 20 84 79 25 3e 33 |%<3 .x%>30 .y%>3|
0000c660 30 20 8c d9 23 68 25 3a f2 58 74 28 22 45 72 72 |0 ..#h%:.Xt("Err|
0000c670 6f 72 20 69 6e 20 6d 6f 72 70 68 20 73 65 74 75 |or in morph setu|
0000c680 70 2e 22 2c 22 22 2c 22 22 29 3a e1 0d 6d d8 49 |p.","",""):..m.I|
0000c690 5a 79 25 3d a4 6a 6f 28 68 25 29 3a e7 5a 79 25 |Zy%=.jo(h%):.Zy%|
0000c6a0 3c 33 20 84 5a 79 25 3e 36 34 20 8c d9 23 68 25 |<3 .Zy%>64 ..#h%|
0000c6b0 3a f2 58 74 28 22 45 72 72 6f 72 20 69 6e 20 6d |:.Xt("Error in m|
0000c6c0 6f 72 70 68 20 73 65 74 75 70 2e 22 2c 22 22 2c |orph setup.","",|
0000c6d0 22 22 29 3a e1 0d 6d ec 70 58 7a 25 3d 5a 79 25 |""):..m.pXz%=Zy%|
0000c6e0 3a 74 25 3d 30 3a e3 5a 79 25 3d 31 20 b8 58 7a |:t%=0:.Zy%=1 .Xz|
0000c6f0 25 3a 68 6f 25 3d 74 25 3a 74 25 3d a4 6a 6f 28 |%:ho%=t%:t%=.jo(|
0000c700 68 25 29 3a e7 74 25 3c 30 20 84 74 25 3e 31 30 |h%):.t%<0 .t%>10|
0000c710 32 34 20 84 74 25 3c 68 6f 25 20 8c d9 23 68 25 |24 .t%<ho% ..#h%|
0000c720 3a f2 58 74 28 22 45 72 72 6f 72 20 69 6e 20 6d |:.Xt("Error in m|
0000c730 6f 72 70 68 20 73 65 74 75 70 2e 22 2c 22 22 2c |orph setup.","",|
0000c740 22 22 29 3a e1 0d 6e 1e 8c 55 74 25 21 28 34 2a |""):..n..Ut%!(4*|
0000c750 5a 79 25 29 3d 74 25 3a ed 3a e3 74 25 3d 31 20 |Zy%)=t%:.:.t%=1 |
0000c760 b8 38 3a 55 72 24 28 74 25 29 3d be 23 68 25 3a |.8:Ur$(t%)=.#h%:|
0000c770 ed 3a e3 5a 79 25 3d 31 20 b8 38 3a e3 74 25 3d |.:.Zy%=1 .8:.t%=|
0000c780 30 20 b8 31 30 3a 55 72 25 28 5a 79 25 2c 74 25 |0 .10:Ur%(Zy%,t%|
0000c790 29 3d a4 6a 6f 28 68 25 29 3a ed 3a f2 61 70 28 |)=.jo(h%):.:.ap(|
0000c7a0 5a 79 25 29 3a ed 3a 74 25 3d a4 6a 6f 28 68 25 |Zy%):.:t%=.jo(h%|
0000c7b0 29 3a 61 73 25 3d 30 3a e7 28 74 25 20 80 31 29 |):as%=0:.(t% .1)|
0000c7c0 3c 3e 30 20 8c 61 73 25 3d 28 61 73 25 20 84 31 |<>0 .as%=(as% .1|
0000c7d0 29 0d 6e 96 1d e7 28 74 25 20 80 32 29 3c 3e 30 |).n...(t% .2)<>0|
0000c7e0 20 8c 61 73 25 3d 28 61 73 25 20 84 32 29 0d 6e | .as%=(as% .2).n|
0000c7f0 a0 1d e7 28 74 25 20 80 34 29 3c 3e 30 20 8c 61 |...(t% .4)<>0 .a|
0000c800 73 25 3d 28 61 73 25 20 84 34 29 0d 6e aa 1d e7 |s%=(as% .4).n...|
0000c810 28 74 25 20 80 38 29 3c 3e 30 20 8c 61 73 25 3d |(t% .8)<>0 .as%=|
0000c820 28 61 73 25 20 84 38 29 0d 6e b4 26 f2 69 58 28 |(as% .8).n.&.iX(|
0000c830 61 73 25 29 3a e7 28 74 25 20 80 31 36 29 3c 3e |as%):.(t% .16)<>|
0000c840 30 20 8c 59 5a 25 3d b9 8b 59 5a 25 3d a3 0d 6e |0 .YZ%=..YZ%=..n|
0000c850 c8 1d e7 28 74 25 20 80 33 32 29 3c 3e 30 20 8c |...(t% .32)<>0 .|
0000c860 59 59 25 3d b9 8b 59 59 25 3d a3 0d 6e d2 54 f2 |YY%=..YY%=..n.T.|
0000c870 57 75 28 57 72 25 2c 34 35 2c 59 5a 25 29 3a f2 |Wu(Wr%,45,YZ%):.|
0000c880 57 75 28 57 72 25 2c 34 34 2c 59 59 25 29 3a 74 |Wu(Wr%,44,YY%):t|
0000c890 25 3d a4 6a 6f 28 68 25 29 3a 63 24 3d 22 22 3a |%=.jo(h%):c$="":|
0000c8a0 68 61 25 3d 74 25 3a e7 74 25 3d 37 31 20 8c 74 |ha%=t%:.t%=71 .t|
0000c8b0 25 3d 30 3a 63 24 3d 22 49 6e 76 65 72 74 22 0d |%=0:c$="Invert".|
0000c8c0 6f 04 4a 24 57 71 25 3d 63 24 3a f2 5a 69 28 57 |o.J$Wq%=c$:.Zi(W|
0000c8d0 72 25 2c 33 31 2c 74 25 29 3a 57 6a 3d a4 6a 6f |r%,31,t%):Wj=.jo|
0000c8e0 28 68 25 29 2f 31 30 30 3a 57 6b 3d a4 6a 6f 28 |(h%)/100:Wk=.jo(|
0000c8f0 68 25 29 2f 31 30 30 3a f2 6b 55 28 78 25 2c 79 |h%)/100:.kU(x%,y|
0000c900 25 2c 68 25 2c 66 75 25 29 0d 6f 36 5a cc 3a 78 |%,h%,fu%).o6Z.:x|
0000c910 25 3d 66 75 25 3a 79 25 3d a4 6a 6f 28 68 25 29 |%=fu%:y%=.jo(h%)|
0000c920 3a e7 78 25 3c 33 20 84 79 25 3c 33 20 84 78 25 |:.x%<3 .y%<3 .x%|
0000c930 3e 33 30 20 84 79 25 3e 33 30 d9 23 68 25 3a f2 |>30 .y%>30.#h%:.|
0000c940 58 74 28 22 45 72 72 6f 72 20 69 6e 20 6d 6f 72 |Xt("Error in mor|
0000c950 70 68 20 73 65 74 75 70 2e 22 2c 22 22 2c 22 22 |ph setup.","",""|
0000c960 29 3a e1 0d 6f 54 13 f2 6b 55 28 78 25 2c 79 25 |):..oT..kU(x%,y%|
0000c970 2c 68 25 2c 30 29 0d 6f 5e 0c cd 3a d9 23 68 25 |,h%,0).o^..:.#h%|
0000c980 3a e1 0d 6f 86 b0 dd f2 6b 55 28 78 25 2c 79 25 |:..o....kU(x%,y%|
0000c990 2c 68 25 2c 66 75 25 29 3a ea 65 6e 25 2c 70 25 |,h%,fu%):.en%,p%|
0000c9a0 2c 63 6d 25 2c 74 25 3a 64 73 25 3d 78 25 3a 64 |,cm%,t%:ds%=x%:d|
0000c9b0 6b 25 3d 79 25 3a 55 6b 25 21 30 3d 78 25 3a 55 |k%=y%:Uk%!0=x%:U|
0000c9c0 6b 25 21 34 3d 79 25 3a e3 70 25 3d 30 20 b8 64 |k%!4=y%:.p%=0 .d|
0000c9d0 73 25 2a 64 6b 25 2d 31 3a 65 6e 25 3d 55 6b 25 |s%*dk%-1:en%=Uk%|
0000c9e0 2b 34 38 2a 70 25 2b 38 3a 65 6e 25 21 30 3d a4 |+48*p%+8:en%!0=.|
0000c9f0 6a 6f 28 68 25 29 3a 65 6e 25 21 34 3d a4 6a 6f |jo(h%):en%!4=.jo|
0000ca00 28 68 25 29 3a 65 6e 25 21 38 3d a4 6a 6f 28 68 |(h%):en%!8=.jo(h|
0000ca10 25 29 3a 65 6e 25 21 31 32 3d a4 6a 6f 28 68 25 |%):en%!12=.jo(h%|
0000ca20 29 3a 65 6e 25 21 32 34 3d 30 3a c8 8e 66 75 25 |):en%!24=0:..fu%|
0000ca30 20 ca 0d 6f fe 5a c9 30 3a 63 6d 25 3d a4 6a 6f | ..o.Z.0:cm%=.jo|
0000ca40 28 68 25 29 3a 65 6e 25 3f 32 39 3d 28 63 6d 25 |(h%):en%?29=(cm%|
0000ca50 20 80 31 35 29 3a 65 6e 25 3f 33 30 3d 28 63 6d | .15):en%?30=(cm|
0000ca60 25 3e 3e 34 29 80 31 35 3a 65 6e 25 21 33 32 3d |%>>4).15:en%!32=|
0000ca70 30 3a 65 6e 25 21 33 36 3d 30 3a 65 6e 25 21 34 |0:en%!36=0:en%!4|
0000ca80 30 3d 30 3a 65 6e 25 21 34 34 3d 30 0d 70 26 4f |0=0:en%!44=0.p&O|
0000ca90 c9 31 3a 65 6e 25 21 32 38 3d a4 6a 6f 28 68 25 |.1:en%!28=.jo(h%|
0000caa0 29 3a 74 25 3d a4 6a 6f 28 68 25 29 3a 74 25 3d |):t%=.jo(h%):t%=|
0000cab0 a4 6a 6f 28 68 25 29 3a 65 6e 25 21 33 32 3d 30 |.jo(h%):en%!32=0|
0000cac0 3a 65 6e 25 21 33 36 3d 30 3a 65 6e 25 21 34 30 |:en%!36=0:en%!40|
0000cad0 3d 30 3a 65 6e 25 21 34 34 3d 30 0d 70 44 51 c9 |=0:en%!44=0.pDQ.|
0000cae0 32 3a 65 6e 25 21 32 38 3d a4 6a 6f 28 68 25 29 |2:en%!28=.jo(h%)|
0000caf0 3a 65 6e 25 21 33 32 3d a4 6a 6f 28 68 25 29 3a |:en%!32=.jo(h%):|
0000cb00 65 6e 25 21 33 36 3d a4 6a 6f 28 68 25 29 3a 65 |en%!36=.jo(h%):e|
0000cb10 6e 25 21 34 30 3d a4 6a 6f 28 68 25 29 3a 65 6e |n%!40=.jo(h%):en|
0000cb20 25 21 34 34 3d a4 6a 6f 28 68 25 29 0d 70 62 09 |%!44=.jo(h%).pb.|
0000cb30 cb 3a ed 3a e1 0d 70 8a 95 dd f2 6a 7a 28 66 24 |.:.:..p....jz(f$|
0000cb40 29 3a ea 63 25 2c 74 2c 5a 79 25 3a 58 7a 25 3d |):.c%,t,Zy%:Xz%=|
0000cb50 31 30 3a 64 73 25 3d 31 30 3a 64 6b 25 3d 31 30 |10:ds%=10:dk%=10|
0000cb60 3a e3 5a 79 25 3d 31 20 b8 38 3a e3 74 25 3d 30 |:.Zy%=1 .8:.t%=0|
0000cb70 20 b8 31 30 3a 55 72 25 28 5a 79 25 2c 74 25 29 | .10:Ur%(Zy%,t%)|
0000cb80 3d 35 30 2e 38 2a 74 25 3a ed 3a f2 61 70 28 5a |=50.8*t%:.:.ap(Z|
0000cb90 79 25 29 3a ed 3a e3 63 25 3d 31 20 b8 38 3a 55 |y%):.:.c%=1 .8:U|
0000cba0 72 24 28 63 25 29 3d 22 47 72 6f 75 70 20 23 22 |r$(c%)="Group #"|
0000cbb0 2b c3 63 25 3a ed 3a f2 62 62 28 30 29 3a f2 59 |+.c%:.:.bb(0):.Y|
0000cbc0 70 3a f2 65 74 28 33 29 3a e1 0d 71 20 3e dd a4 |p:.et(3):..q >..|
0000cbd0 6a 6f 28 68 25 29 3a 55 62 25 3f 30 3d 9a 23 68 |jo(h%):Ub%?0=.#h|
0000cbe0 25 3a 55 62 25 3f 31 3d 9a 23 68 25 3a 55 62 25 |%:Ub%?1=.#h%:Ub%|
0000cbf0 3f 32 3d 9a 23 68 25 3a 55 62 25 3f 33 3d 9a 23 |?2=.#h%:Ub%?3=.#|
0000cc00 68 25 3a 3d 21 55 62 25 0d 71 48 35 dd f2 6a 5a |h%:=!Ub%.qH5..jZ|
0000cc10 28 74 24 2c 77 25 29 3a 55 79 25 21 30 3d 77 25 |(t$,w%):Uy%!0=w%|
0000cc20 3a c8 99 26 34 30 30 43 43 2c 2c 55 79 25 3a 24 |:..&400CC,,Uy%:$|
0000cc30 28 55 79 25 21 37 36 29 3d 74 24 3a e1 0d 71 70 |(Uy%!76)=t$:..qp|
0000cc40 4a dd f2 6a 61 3a ea 5a 5a 25 2c 66 24 2c 6b 56 |J..ja:.ZZ%,f$,kV|
0000cc50 25 2c 6b 57 25 3a 66 24 3d 69 74 24 2b 22 2e 21 |%,kW%:f$=it$+".!|
0000cc60 4d 6f 72 70 68 22 3a c8 99 26 38 2c 35 2c 66 24 |Morph":..&8,5,f$|
0000cc70 20 b8 5a 5a 25 2c 2c 6b 56 25 2c 6b 57 25 3a e7 | .ZZ%,,kV%,kW%:.|
0000cc80 5a 5a 25 3d 31 20 8c 0d 71 a2 1e 55 62 25 21 30 |ZZ%=1 ..q..Ub%!0|
0000cc90 3d 6b 57 25 3a 55 62 25 3f 34 3d 28 6b 56 25 20 |=kW%:Ub%?4=(kV% |
0000cca0 80 32 35 35 29 0d 71 ac 19 cc 3a 55 62 25 3f 30 |.255).q...:Ub%?0|
0000ccb0 3d 33 3a c8 99 26 37 2c 31 34 2c 55 62 25 0d 71 |=3:..&7,14,Ub%.q|
0000ccc0 c0 1e cd 3a c8 99 26 43 30 2c 55 62 25 2c a4 69 |...:..&C0,Ub%,.i|
0000ccd0 28 67 6b 25 2c 33 29 2c 32 34 3a e1 0d 71 e8 48 |(gk%,3),24:..q.H|
0000cce0 dd f2 5a 64 28 70 25 2c 6b 58 25 29 3a ea 66 24 |..Zd(p%,kX%):.f$|
0000ccf0 2c 68 25 2c 6b 59 25 2c 69 25 2c 76 3a 66 24 3d |,h%,kY%,i%,v:f$=|
0000cd00 a4 73 28 70 25 29 3a 6b 59 25 3d 55 75 25 21 28 |.s(p%):kY%=Uu%!(|
0000cd10 34 2a 5a 6a 25 2d 34 29 3a e7 6b 58 25 3d 26 46 |4*Zj%-4):.kX%=&F|
0000cd20 46 46 20 8c 0d 72 1a 51 68 25 3d 8e 28 66 24 29 |FF ..r.Qh%=.(f$)|
0000cd30 3a f2 55 57 3a 69 25 3d 30 3a f5 3a 76 3d bb 28 |:.UW:i%=0:.:v=.(|
0000cd40 be 23 68 25 29 3a 6b 59 25 21 28 34 2a 69 25 29 |.#h%):kY%!(4*i%)|
0000cd50 3d 31 30 32 34 2a 76 3a 69 25 2b 3d 31 3a fd c5 |=1024*v:i%+=1:..|
0000cd60 23 68 25 20 84 69 25 3d 31 30 32 35 3a f2 56 58 |#h% .i%=1025:.VX|
0000cd70 3a d9 23 68 25 0d 72 7e 4e cc 3a 85 31 2c 22 59 |:.#h%.r~N.:.1,"Y|
0000cd80 6f 75 20 63 61 6e 20 6f 6e 6c 79 20 6c 6f 61 64 |ou can only load|
0000cd90 20 74 65 78 74 66 69 6c 65 73 20 28 31 30 32 35 | textfiles (1025|
0000cda0 20 65 6e 74 72 69 65 73 2c 20 73 65 70 61 72 61 | entries, separa|
0000cdb0 74 65 64 20 62 79 20 6c 69 6e 65 66 65 65 64 73 |ted by linefeeds|
0000cdc0 29 2e 22 0d 72 92 07 cd 3a e1 0d 72 b0 96 dd f2 |).".r...:..r....|
0000cdd0 63 57 28 65 70 24 2c 62 6d 24 2c 78 25 2c 79 25 |cW(ep$,bm$,x%,y%|
0000cde0 2c 62 74 25 29 3a ea 6b 5a 25 2c 67 63 25 2c 6b |,bt%):.kZ%,gc%,k|
0000cdf0 61 25 2c 6b 62 24 2c 64 77 25 2c 64 78 25 2c 6d |a%,kb$,dw%,dx%,m|
0000ce00 25 2c 74 25 3a 6b 61 25 3d 32 30 30 30 2b 79 25 |%,t%:ka%=2000+y%|
0000ce10 2a 28 34 2b 34 2a 28 78 25 2d 31 29 81 34 29 3a |*(4+4*(x%-1).4):|
0000ce20 67 63 25 3d a4 65 77 28 6b 61 25 29 3a e7 67 63 |gc%=.ew(ka%):.gc|
0000ce30 25 3c 3d 30 20 8c 85 31 2c 22 4e 6f 20 72 6f 6f |%<=0 ..1,"No roo|
0000ce40 6d 20 66 6f 72 20 63 6f 6e 76 65 72 73 69 6f 6e |m for conversion|
0000ce50 20 74 6f 20 74 68 65 20 73 70 72 69 74 65 2e 22 | to the sprite."|
0000ce60 0d 72 d8 8e 67 63 25 21 30 3d 6b 61 25 3a 67 63 |.r..gc%!0=ka%:gc|
0000ce70 25 21 34 3d 30 3a 67 63 25 21 38 3d 31 36 3a 67 |%!4=0:gc%!8=16:g|
0000ce80 63 25 21 31 32 3d 31 36 3a c8 99 26 38 2c 35 2c |c%!12=16:..&8,5,|
0000ce90 65 70 24 20 b8 2c 2c 2c 2c 6b 61 25 3a 6b 61 25 |ep$ .,,,,ka%:ka%|
0000cea0 2b 3d 32 30 3a 6b 5a 25 3d a4 65 77 28 6b 61 25 |+=20:kZ%=.ew(ka%|
0000ceb0 29 3a e7 6b 5a 25 3c 3d 30 20 8c f2 66 58 28 67 |):.kZ%<=0 ..fX(g|
0000cec0 63 25 29 3a 85 31 2c 22 4e 6f 20 72 6f 6f 6d 20 |c%):.1,"No room |
0000ced0 66 6f 72 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 |for conversion t|
0000cee0 6f 20 74 68 65 20 73 70 72 69 74 65 2e 22 0d 72 |o the sprite.".r|
0000cef0 f6 cf 6b 5a 25 21 30 3d 6b 61 25 3a 6b 5a 25 21 |..kZ%!0=ka%:kZ%!|
0000cf00 34 3d 30 3a 6b 5a 25 21 38 3d 31 36 3a 6b 5a 25 |4=0:kZ%!8=16:kZ%|
0000cf10 21 31 32 3d 31 36 3a c8 99 26 32 45 2c 32 35 36 |!12=16:..&2E,256|
0000cf20 2b 31 30 2c 6b 5a 25 2c 65 70 24 3a 6b 62 24 3d |+10,kZ%,ep$:kb$=|
0000cf30 a4 69 75 28 6b 5a 25 29 3a c8 99 26 32 45 2c 32 |.iu(kZ%):..&2E,2|
0000cf40 35 36 2b 34 30 2c 6b 5a 25 2c 6b 62 24 20 b8 2c |56+40,kZ%,kb$ .,|
0000cf50 2c 2c 64 77 25 2c 64 78 25 2c 2c 6d 25 3a c8 99 |,,dw%,dx%,,m%:..|
0000cf60 26 32 45 2c 32 35 36 2b 31 35 2c 67 63 25 2c 22 |&2E,256+15,gc%,"|
0000cf70 63 6f 6e 76 65 72 74 65 64 22 2c 30 2c 78 25 2c |converted",0,x%,|
0000cf80 79 25 2c 62 74 25 3a 74 25 3d 55 62 25 3a 74 25 |y%,bt%:t%=Ub%:t%|
0000cf90 21 30 3d 78 25 2a 28 31 3c 3c a4 63 55 28 62 74 |!0=x%*(1<<.cU(bt|
0000cfa0 25 2c 34 29 29 3a 74 25 21 34 3d 79 25 2a 28 31 |%,4)):t%!4=y%*(1|
0000cfb0 3c 3c a4 63 55 28 62 74 25 2c 35 29 29 0d 73 3c |<<.cU(bt%,5)).s<|
0000cfc0 7e 74 25 21 38 3d 64 77 25 2a 28 31 3c 3c a4 63 |~t%!8=dw%*(1<<.c|
0000cfd0 55 28 6d 25 2c 34 29 29 3a 74 25 21 31 32 3d 64 |U(m%,4)):t%!12=d|
0000cfe0 78 25 2a 28 31 3c 3c a4 63 55 28 6d 25 2c 35 29 |x%*(1<<.cU(m%,5)|
0000cff0 29 3a c8 99 26 32 45 2c 32 35 36 2b 36 30 2c 67 |):..&2E,256+60,g|
0000d000 63 25 2c 22 63 6f 6e 76 65 72 74 65 64 22 2c 30 |c%,"converted",0|
0000d010 20 b8 6b 63 25 2c 6b 64 25 2c 6b 65 25 2c 6b 66 | .kc%,kd%,ke%,kf|
0000d020 25 3a c8 99 26 34 30 37 35 30 3a e7 a4 63 55 28 |%:..&40750:..cU(|
0000d030 6d 25 2c 33 29 3c 3e 36 33 20 8c 0d 73 64 24 c8 |m%,3)<>63 ..sd$.|
0000d040 99 26 36 30 37 34 30 2c 6b 5a 25 2c 6b 62 24 2c |.&60740,kZ%,kb$,|
0000d050 2d 31 2c 30 2c 55 62 25 2b 32 30 2c 25 31 30 0d |-1,0,Ub%+20,%10.|
0000d060 73 6e 21 cc 3a e3 74 25 3d 30 20 b8 32 35 35 3a |sn!.:.t%=0 .255:|
0000d070 55 62 25 3f 28 32 30 2b 74 25 29 3d 74 25 3a ed |Ub%?(20+t%)=t%:.|
0000d080 0d 73 82 76 cd 3a c8 99 26 32 30 30 32 45 2c 32 |.s.v.:..&2002E,2|
0000d090 35 36 2b 35 32 2c 6b 5a 25 2c 6b 62 24 2c 30 2c |56+52,kZ%,kb$,0,|
0000d0a0 30 2c 30 2c 55 62 25 2c 55 62 25 2b 32 30 3a c8 |0,0,Ub%,Ub%+20:.|
0000d0b0 99 26 32 45 2c 6b 63 25 2c 6b 64 25 2c 6b 65 25 |.&2E,kc%,kd%,ke%|
0000d0c0 2c 6b 66 25 3a c8 99 26 34 30 37 35 30 3a c8 99 |,kf%:..&40750:..|
0000d0d0 26 32 45 2c 32 35 36 2b 31 32 2c 67 63 25 2c 62 |&2E,256+12,gc%,b|
0000d0e0 6d 24 3a f2 66 58 28 6b 5a 25 29 3a f2 66 58 28 |m$:.fX(kZ%):.fX(|
0000d0f0 67 63 25 29 3a e1 0d 73 e6 36 dd f2 6a 68 28 73 |gc%):..s.6..jh(s|
0000d100 25 29 3a ea 63 58 25 2c 65 5a 25 2c 69 25 2c 6a |%):.cX%,eZ%,i%,j|
0000d110 70 25 2c 6a 71 25 2c 65 7a 25 2c 6a 6e 25 2c 6a |p%,jq%,ez%,jn%,j|
0000d120 6d 25 3a e7 73 25 3c 3d 30 20 8c e1 0d 74 04 38 |m%:.s%<=0 ...t.8|
0000d130 6a 69 25 3d a3 3a 63 58 25 3d 73 25 2b 73 25 21 |ji%=.:cX%=s%+s%!|
0000d140 38 3a 65 5a 25 3d 63 58 25 21 33 32 3a e7 63 58 |8:eZ%=cX%!32:.cX|
0000d150 25 21 33 36 3c 65 5a 25 20 8c 65 5a 25 3d 63 58 |%!36<eZ% .eZ%=cX|
0000d160 25 21 33 36 0d 74 22 09 c8 8e b9 20 ca 0d 74 2c |%!36.t".... ..t,|
0000d170 81 c9 65 5a 25 3d 32 30 39 32 3a 6a 70 25 3d b9 |..eZ%=2092:jp%=.|
0000d180 3a 6a 71 25 3d 63 58 25 2b 34 34 3a e3 69 25 3d |:jq%=cX%+44:.i%=|
0000d190 30 20 b8 32 35 35 3a 65 7a 25 3d 6a 71 25 3f 28 |0 .255:ez%=jq%?(|
0000d1a0 38 2a 69 25 2b 31 29 3a 6a 6e 25 3d 6a 71 25 3f |8*i%+1):jn%=jq%?|
0000d1b0 28 38 2a 69 25 2b 32 29 3a 6a 6d 25 3d 6a 71 25 |(8*i%+2):jm%=jq%|
0000d1c0 3f 28 38 2a 69 25 2b 33 29 3a e7 65 7a 25 3c 3e |?(8*i%+3):.ez%<>|
0000d1d0 6a 6e 25 20 84 6a 6e 25 3c 3e 6a 6d 25 20 84 65 |jn% .jn%<>jm% .e|
0000d1e0 7a 25 3c 3e 6a 6d 25 20 8c 6a 70 25 3d a3 0d 74 |z%<>jm% .jp%=..t|
0000d1f0 54 1c 55 61 25 3f 69 25 3d 65 7a 25 3a ed 3a e7 |T.Ua%?i%=ez%:.:.|
0000d200 6a 70 25 20 8c 6a 69 25 3d b9 0d 74 72 0f f2 6b |jp% .ji%=..tr..k|
0000d210 67 28 63 58 25 2c 73 25 29 0d 74 7c 17 c9 65 5a |g(cX%,s%).t|..eZ|
0000d220 25 3e 34 34 3a f2 6b 67 28 63 58 25 2c 73 25 29 |%>44:.kg(cX%,s%)|
0000d230 0d 74 86 07 cb 3a e1 0d 74 a4 af dd f2 6b 67 28 |.t...:..t....kg(|
0000d240 63 58 25 2c 6b 68 25 29 3a ea 6b 69 25 3a 6b 69 |cX%,kh%):.ki%:ki|
0000d250 25 3d 63 58 25 21 33 32 2d 34 34 3a f2 63 59 28 |%=cX%!32-44:.cY(|
0000d260 59 6c 2c 63 58 25 2b 6b 69 25 2b 34 34 2c 6b 68 |Yl,cX%+ki%+44,kh|
0000d270 25 21 30 2d 63 58 25 21 33 32 2d 6b 68 25 21 38 |%!0-cX%!32-kh%!8|
0000d280 2c 63 58 25 2b 34 34 2c 30 2c 30 2c 30 29 3a 63 |,cX%+44,0,0,0):c|
0000d290 58 25 21 30 3d 63 58 25 21 30 2d 6b 69 25 3a 63 |X%!0=cX%!0-ki%:c|
0000d2a0 58 25 21 33 32 3d 63 58 25 21 33 32 2d 6b 69 25 |X%!32=cX%!32-ki%|
0000d2b0 3a 63 58 25 21 33 36 3d 63 58 25 21 33 36 2d 6b |:cX%!36=cX%!36-k|
0000d2c0 69 25 3a 6b 68 25 21 30 3d 6b 68 25 21 30 2d 6b |i%:kh%!0=kh%!0-k|
0000d2d0 69 25 3a 6b 68 25 21 31 32 3d 6b 68 25 21 31 32 |i%:kh%!12=kh%!12|
0000d2e0 2d 6b 69 25 3a e1 0d ff |-ki%:...|
0000d2e8 
.