Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » Process » !Process/!RunImage

!Process/!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 » Acorn User - Shareware Collection (1993).adf » Process
Filename: !Process/!RunImage
Read OK:
File size: EBA9 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM> <Process$Dir>.!RunImage
   20q$="1.15 (28-Jul-1993)":PROCf:DIMb% 2000,Q% 6000,aa% 2600,ba% 5300,ca% 20,da% 3000:DIMe% 256,L% 256,ea% 16,fa% 16,ga% 256,ha% 16,ia% 16,ja% 16,ka% 16:DIMla% 512,ma% 2100,Z% 16400,na% 2400,g% 256
   30DIMd%(3,2),b%(3,3),e%(40),a(3),c%(3,5),f%(3,16):DIMa%(10,6),a$(10,2),g%(30):PROCaa:j%=b%+1000:$b%="TASK":SYS262336,200,!b%,"Colour"+CHR$160+"processing"TO,oa%:SYS530050,oa%:END=END+24576:HIMEM=HIMEM-256
   40pa%=HIMEM:PROCba(pa%,256):PROCca:PROCg:PROCda:ONERRORPROCea
   50SYS66TOqa%:ra%=0:WHILEsa%=0:SYS262343,,b%TOta%:SYS530054,ta%,,oa%:SYS530056,ta%,b%,oa%TOta%:IFta%=6THENSYS66TOua%:ra%=ua%-qa%:qa%=ua%
   60CASEta%OF
   70WHEN0:IFva%ANDwa%=2THENPROCfa
   80IFxa%THENPROCga
   90IFya%>100THENPROCha
  100WHEN1:PROCia(b%)
  110WHEN2:PROCy(b%!0,TRUE)
  120WHEN3:PROCl(b%!0)
  130WHEN6:PROCja(b%)
  140WHEN7:PROCka(b%)
  150WHEN8:SYS262364,b%!24
  160WHEN9:PROCla(b%)
  170WHEN17,18:PROCma(b%)
  180ENDCASE
  190ENDWHILE:PROCna:QUIT
  200DEFPROCda:SYS262353,-1,za%/2-500,Aa%/2-400,za%/2+500,Aa%/2+400:ENDPROC
  210DEFPROCna:SYS262365:SYS530051,oa%:ENDPROC
  220DEFPROCca:LOCALBa%,c%,h$,p%,a$:ONERRORPROCea:QUIT
  230SYS8,255,"<Process$Dir>.Resources.Code.Distort",da%:SYS8,255,"<Process$Dir>.Resources.Code.Whirl",da%+1400:r=da%:D=da%+1400:E=da%+1404:F=da%+1408:Ca%=0:a%()=0:a$()="":FORp%=1TO9:a%(p%,3)=na%+(p%-1)*256:a%(p%,4)=100:a%(p%,5)=100:NEXT:Da%=4
  240h$=FNf("Process$Options"):p%=INSTR(h$,"-max"):IFp%>0THEN
  250a$=MID$(h$,p%+4,1):p%=VAL(a$):IFp%>=2ANDp%<=9THENDa%=p%
  260ENDIF
  270p%=INSTR(h$,"-dma"):IFp%THENO%=TRUEELSEO%=0
  280p%=INSTR(h$,"-swap"):IFp%THENEa%=TRUEELSEEa%=0
  290p%=INSTR(h$,"-tools"):IFp%THENFa%=TRUEELSEFa%=0
  300p%=INSTR(h$,"-pan"):IFp%THENGa%=1ELSEGa%=0
  310o$=FNf("Process$WindowTitle"):SYS6,161,28TO,,p%:Ha%=(p%AND2)<>0:PROCoa:o%=1:_%=2:X%=a%(o%,1):P%=a%(_%,1):$FNi(Ia%,3)=q$:sa%=0:Ja%=-1:ya%=0:Ka%=0:La%=0:W%=0:Ma%=FALSE:PROCd(Na%,4,FALSE):Oa%=FALSE:Pa%=FNi(Qa%,14):Ra%=1:Sa%=0:xa%=FALSE:Ta%=0:Ua%=0
  320Va%=0:Wa%=FALSE:g%()=0:g%(1)=1:DIMw 12:$w="!PROCESS":!b%=-1:b%!4=0:b%!12=64:b%!8=0:b%!16=72:b%!20=12546:b%!24=w:b%!28=1:b%!32=LEN$w+1:SYS262338,,b%TOBa%:Xa%=FNi(Na%,1):Ya%=FNi(Za%,0):_a%=FNi(`a%,10):ab%=FNi(`a%,14):bb%=FNi(`a%,1):cb%=13
  330$_a%="100":$ab%="100":$bb%="NewImage":db%=0:eb%=TRUE:fb%=1:d%()=0:gb%=-1:hb%=100:f=0.05:ib%=FALSE:jb%=60:`%=128:kb%=128:lb%=128:mb%=128:nb%=TRUE:ob%=128:pb%=128:qb%=128:rb%=0:sb%=1:tb%=0:ub%=0:vb%=FALSE:wb%=FALSE:xb%=0:yb%=0:zb%=0:Ab%=0:$ca%="45"+CHR$0
  340Bb%=TRUE:Cb%=40:Db%=20:Eb%=10:Fb%=10:Gb%=0:PROCd(Hb%,1,1):Ib%=FNi(Hb%,15):$Ib%="20":Jb%=FNi(Kb%,9):Lb%=FNi(Kb%,12):Mb%=FNi(Kb%,15):Nb%=FNi(Kb%,18):Ob%=FNi(Kb%,21):$Jb%="4":$Lb%="45":$Mb%="0.80":$Nb%="0":$Ob%="0":Pb%=FNi(Qb%,6):$Pb%="1.00"
  350Rb%=1:a()=1:Sb%=1:Tb%=0:Ub%=1:Vb%=1:Wb%=FNi(Xb%,10):$Wb%="10":FORc%=1TO5:c%(1,c%)=(c%-1)*64:c%(2,c%)=(c%-1)*64:c%(3,c%)=(c%-1)*64:NEXT:FORc%=1TO16:f%(1,c%)=c%*16-1:f%(2,c%)=c%*16-1:f%(3,c%)=c%*16-1:NEXT:Yb%=128:Zb%=0:_b%=0:wa%=0:va%=0:PROCpa
  360!g%=0:PROCqa(0):PROCra:SYS90,-1TO,`b%:ENDPROC
  370DEFFNf(v$):LOCALM%:SYS35,v$,e%,255,0TO,,M%:e%?M%=0:=FNs(e%)
  380DEFPROCsa(i%):LOCALa$,ac%:$FNi(bc%,4)=a$(i%,1):a$=a$(i%,2):IFLENa$>23THENa$="..."+RIGHT$(a$,20)
  390$FNi(bc%,5)=a$:a$=STR$(cc%/T%)+" x "+STR$(dc%/N%):$FNi(bc%,6)=a$:$FNi(bc%,7)=i$:ac%=cc%*dc%/(T%*N%):a$=STR$(ac%)+" (":ac%=(ac%DIV1024):IFac%<=0THENac%=1
  400$FNi(bc%,8)=a$+STR$(ac%)+"k)":ENDPROC
  410DEFPROCl(w%):LOCALV%:CASEw%OF
  420WHENQa%:Oa%=0:PROCb(w%,13,0):Zb%=FALSE:IFdb%=3THENPROCta
  430PROCd(ec%,7,0)
  440WHENX%:j%!0=ec%:SYS262342,,j%:a%(o%,6)=0:PROCm
  450WHENP%:j%!0=fc%:SYS262342,,j%:a%(_%,6)=0
  460WHENgc%:Wa%=FALSE
  470OTHERWISE:V%=FNa(w%):IFV%>0THENa%(V%,6)=0
  480ENDCASE
  490j%!0=w%:SYS262342,,j%:IFw%<>gc%ANDWa%THENPROCl(gc%)
  500ENDPROC
  510DEFPROCy(w%,hc%):LOCALic%,jc%,kc%,lc%:b%!0=w%:kc%=TRUE:lc%=FALSE:CASEw%OF
  520WHENX%,P%:IFFa%THEN
  530ic%=ec%:jc%=136:IFw%=P%THENic%=fc%:jc%=72
  540j%!0=ic%:IFhc%THEN
  550j%!4=b%!4-jc%-2:j%!8=b%!16-1000:IFb%!4<jc%THENj%!4=0
  560j%!12=j%!4+jc%:j%!16=b%!16:j%!20=0:j%!24=0:j%!28=b%!28
  570ELSE:SYS262347,,j%:j%!28=-1
  580ENDIF
  590SYS262341,,j%:IFNOThc%SYS262347,,b%
  600b%!28=ic%:SYS262341,,b%:kc%=FALSE
  610ENDIF
  620WHENQa%:Oa%=TRUE:PROCd(ec%,7,1)
  630WHENgc%:Wa%=TRUE
  640ENDCASE
  650IFkc%THEN
  660IFNOThc%SYS262347,,b%:b%!28=-1
  670SYS262341,,b%
  680ENDIF
  690ic%=FNa(w%):IFic%>0THENa%(ic%,6)=1
  700IFw%<>gc%ANDWa%THENPROCl(gc%)
  710ENDPROC
  720DEFPROCua:LOCALn%,i%,mc%,nc%,oc%,jc%,x%,y%:n%=0:FORi%=1TODa%:IFa%(i%,6)=1THENn%+=1
  730NEXT:IFn%<=1THENENDPROC
  740IFn%=2THENnc%=1
  750IFn%>2ANDn%<6THENnc%=2
  760IFn%>6THENnc%=3
  770IFnc%=1THENmc%=2ELSEmc%=(n%+1)/nc%
  780oc%=za%/mc%:jc%=Aa%/nc%:x%=0:y%=Aa%-jc%:FORi%=1TODa%:IFa%(i%,6)=1THEN
  790b%!0=a%(i%,1):SYS262347,,b%:b%!4=x%:b%!12=b%!4+oc%-48:b%!8=y%:b%!16=b%!8+jc%-48:PROCy(b%!0,TRUE):x%+=oc%:IFx%=mc%*oc%THENx%=0:y%-=jc%
  800ENDIF
  810NEXT:ENDPROC
  820DEFPROCa(w%):PROCy(w%,0):PROCy(w%,TRUE):PROCk(w%):ENDPROC
  830DEFPROCP(w%,x%,y%):b%!0=0:b%!4=0:b%!8=x%:b%!12=y%:SYS262359,w%,b%:ENDPROC
  840DEFPROCva:LOCALi%:FORi%=1TODa%:PROCP(a%(i%,1),cc%*a%(i%,4)/100,dc%*a%(i%,5)/100):NEXT:ENDPROC
  850DEFPROCma(b%):LOCALpc%:pc%=b%!8:CASEb%!16OF
  860WHEN0:sa%=TRUE
  870WHEN2:IFKa%=0THENENDPROC
  880PROCwa(b%+44,Ka%):SYS262351,,b%:b%!20=b%!12:b%!24=b%!16:b%!28=b%!0:b%!32=b%!4:b%!0=256:b%!12=pc%:b%!16=3:b%!40=4089:IFLa%THEN$(b%+44)="<Wimp$Scrap>"+CHR$0
  890SYS262375,17,b%,b%!20,b%!24:Ka%=0:La%=0:SYS262356,,-1
  900WHEN3:IFb%!12=0THEN
  910CASEb%!40OF
  920WHEN4089:PROCxa(b%)
  930WHEN4093:PROCya(b%)
  940WHEN4:PROCza(b%)
  950WHEN1680:PROCAa(b%)
  960ENDCASE
  970WHEN262337:PROCpa
  980ENDCASE
  990ENDPROC
 1000DEFPROCea:IF_b%THENPROCn
 1010PROCc(0):IFJa%<>-1THENPROCb(Ja%,qc%,0)
 1020PROCm:!b%=ERR:IFERR<>1THEN
 1030$(b%+4)=REPORT$+" (Internal error code "+STR$ERL+". Please report to the author, the address can be found in the !Help file)."
 1040ELSE:$(b%+4)=REPORT$
 1050ENDIF
 1060SYS262367,b%,1,"Process":IFINKEY(-90)THENsa%=TRUE
 1070ENDPROC
 1080DEFPROCo(s%,s$):IFs%=0THENs$=a$(_%,1):s%=a%(_%,2)
 1090IFs%=-1THENs$=a$(o%,1):s%=a%(o%,2)
 1100SYS46,316,s%,s$,0TOrc%,sc%,tc%,uc%:SYS90,1:SYS90,2:_b%=TRUE:ENDPROC
 1110DEFPROCn:SYS46,rc%,sc%,tc%,uc%:_b%=0:ENDPROC
 1120DEFPROCta:IFdb%=0THENENDPROC
 1130j%!0=X%:j%!4=-1:j%!8=-1:j%!12=-1:j%!16=-1:SYS530053,oa%,j%:db%=0:ENDPROC
 1140DEFPROCBa(p$):j%!0=X%:j%!4=-1:j%!8=-1:j%!12=-1:j%!16=-1:$(j%+20)=p$+CHR$0:j%!32=0:j%!36=0:j%!40=0:j%!44=0:SYS530052,,j%:ENDPROC
 1150DEFPROCja(b%):LOCALw%,i%,vc%,wc%,xc%,yc%,x%,y%,v%,v,G%,x,y,u%,zc%:w%=b%!12:i%=b%!16:vc%=b%!8:x%=b%!0:y%=b%!4:yc%=(vc%AND4)<>0:wc%=(vc%AND2)<>0:xc%=(vc%AND1)<>0:va%=0:Ac%=FNa(w%):IFw%<>gc%ANDWa%THENPROCl(gc%)
 1160IFwc%THEN
 1170IFZb%THENPROCb(Qa%,13,0)
 1180PROCl(Qa%):IFw%=X%ORw%=P%THENPROCm
 1190ENDIF
 1200CASEw%OF
 1210WHEN-2:IFwc%THEN
 1220PROCCa:Bc%=x%-120:Cc%=364:SYS262356,,e%(2),Bc%,Cc%
 1230ENDIF
 1240WHENDc%:IFi%=0AND(yc%ORxc%)THENPROCz(w%,i%,101)
 1250WHENP%:IFwc%THEN
 1260Bc%=x%-60:Cc%=y%:PROC`(3):SYS262356,,e%(20),Bc%,Cc%
 1270ENDIF
 1280WHENX%:IFwc%THEN
 1290Bc%=x%-60:Cc%=y%:PROC`(2):SYS262356,,e%(20),Bc%,Cc%
 1300ELSE:IFZb%THEN
 1310PROCQ(x%,y%,Ec%,Fc%):SYS892609,,a%(o%,3),Ec%,dc%/N%-Fc%+1TOG%:IFG%<>-1THEN
 1320IFW%=0THEN
 1330!e%=G%:PROCt(e%?1,e%?2,e%?3,mb%)
 1340ELSE:PROCt(`%,kb%,lb%,G%)
 1350ENDIF
 1360ENDIF
 1370ELSE:CASEdb%OF
 1380WHEN1:b%!0=w%:SYS262347,,b%:PROCDa(x%-b%!4+b%!20,y%-b%!16+b%!24)
 1390WHEN2:Gc%=x%:Hc%=y%:PROCr(3)
 1400WHEN4:PROCQ(x%,y%,Ec%,Fc%):PROCEa(Sa%,Ec%-1,Fc%-1)
 1410WHEN6:Gc%=x%:Hc%=y%:PROCr(7)
 1420WHEN8:b%!0=X%:SYS262347,,b%:IFGa%=1THEN
 1430x=(x%-b%!4)/(b%!12-b%!4):y=(y%-b%!8)/(b%!16-b%!8):b%!20=cc%*x*a%(o%,4)/100-0.5*(b%!12-b%!4):b%!24=dc%*y*a%(o%,5)/100+0.5*(b%!16-b%!8)
 1440ELSE:IFra%>50THENIc%=TRUE
 1450IFIc%THENIc%=FALSEELSEb%!20-=x%-Gc%:b%!24-=y%-Hc%
 1460Gc%=x%:Hc%=y%
 1470ENDIF
 1480SYS262341,,b%
 1490WHEN101:PROCQ(x%,y%,Ec%,Fc%):PROCFa(Ta%,Ec%-1,Fc%-1)
 1500ENDCASE
 1510ENDIF
 1520ENDIF
 1530WHENec%:IFwc%THEN
 1540CASEi%OF
 1550WHEN1:IFvb%THENPROCGa(2)
 1560WHEN5:IFdb%<>6ANDdb%<>7THENPROCGa(3)
 1570WHEN8:PROCGa(1)
 1580ENDCASE
 1590ENDPROC
 1600ENDIF
 1610CASEi%OF
 1620WHEN0:IFyc%OR(db%<>2ANDdb%<>3)THEN
 1630PROCr(2)
 1640ELSE:PROCm
 1650ENDIF
 1660WHEN1:IFub%THEN
 1670IFdb%=2ORdb%=3THENPROCm
 1680IFvb%THENPROCv(0)ELSEPROCv(1)
 1690PROCd(w%,i%,vb%)
 1700ENDIF
 1710WHEN2:PROCd(w%,i%,1):PROCF(_%,o%):PROCk(X%):PROCd(w%,i%,0)
 1720WHEN3:PROCd(w%,i%,1):PROCHa:PROCd(w%,i%,0)
 1730WHEN4:PROCd(w%,i%,1):PROCIa(U%):PROCd(w%,i%,0)
 1740WHEN5:IFyc%OR(db%<>6ANDdb%<>7)THEN
 1750PROCr(6)
 1760ELSE:PROCm
 1770ENDIF
 1780WHEN6:PROCd(w%,i%,1):PROCV:PROCd(w%,i%,0)
 1790WHEN7:IFyc%ORNOTOa%THENPROCG(0)ELSEPROCl(Qa%)
 1800WHEN8:IFyc%ORdb%<>4THENPROCr(4)ELSEPROCm
 1810WHEN9:IFyc%ORdb%<>8THENPROCr(8)ELSEPROCm
 1820ENDCASE
 1830WHENJc%:IFwc%THENENDPROC
 1840CASEi%OF
 1850WHEN1,2,3:sb%=i%:PROCd(w%,i%,1):PROCe(w%,0):PROCe(w%,5):PROCJa:Kc%=0:FORh%=0TO15:v%=ma%!(64*(sb%-1)+192*tb%+4*h%):IFv%>Kc%THENKc%=v%
 1860NEXT
 1870WHEN4:tb%=1-tb%:PROCe(w%,0):PROCJa
 1880WHEN5:b%!0=w%:SYS262347,,b%:x%-=b%!4-b%!20:IFW%=0THENx%=x%DIV32ELSEx%=x%DIV2
 1890IFyc%THEN
 1900IFx%<d%(sb%,2)THENd%(sb%,1)=x%
 1910ELSE:IFx%>d%(sb%,1)THENd%(sb%,2)=x%+1
 1920ENDIF
 1930PROCe(w%,5)
 1940ENDCASE
 1950WHENKb%:IFwc%THENENDPROC
 1960CASEi%OF
 1970WHEN5:PROCb(w%,i%,vc%):SYS262356,,-1:PROCb(w%,i%,0)
 1980WHEN6:PROCb(w%,i%,vc%):PROCKa:IFyc%THENSYS262356,,-1
 1990PROCb(w%,i%,0)
 2000WHEN7,8:PROCp(w%,9,Jb%,2*i%-15,2,20,0,2)
 2010WHEN10,11:PROCp(w%,12,Lb%,2*i%-21,0,359,0,3)
 2020WHEN13,14:PROCp(w%,15,Mb%,0.05*(2*i%-27),0.1,0.99,2,4)
 2030WHEN16,17:PROCp(w%,18,Nb%,20*i%-330,-500,500,0,4)
 2040WHEN19,20:PROCp(w%,21,Ob%,20*i%-390,-500,500,0,4)
 2050ENDCASE
 2060WHENgc%:IFwc%THENENDPROC
 2070b%!0=w%:SYS262347,,b%:PROCqa(8*(Lc%-(y%-b%!16+b%!24)DIV64)+(x%-b%!4+b%!20)DIV64):IFyc%THENPROCl(gc%)
 2080IFyc%ANDRa%=1THENPROCr(4)
 2090WHENXb%:IFwc%THENENDPROC
 2100CASEi%OF
 2110WHEN1,2,3,4:Ub%=i%:PROCd(w%,i%,TRUE)
 2120WHEN11,12:PROCp(w%,10,Wb%,i%*2-23,0,100,0,3)
 2130WHEN13,14:Vb%=i%-12:PROCd(w%,i%,TRUE)
 2140WHEN15:PROCb(w%,i%,vc%):SYS262356,,-1:PROCb(w%,i%,0)
 2150WHEN16:PROCb(w%,i%,vc%):PROCLa(Ub%,VAL(FNs(Wb%)),Vb%):IFyc%THENSYS262356,,-1
 2160PROCb(w%,i%,0)
 2170ENDCASE
 2180WHENQa%:IFwc%THENENDPROC
 2190CASEi%OF
 2200WHEN3,4,5,15:CASEi%OF
 2210WHEN3,4,5:IFW%=0THENPROCz(w%,i%,100+i%)
 2220WHEN15:IFNOTnb%THENPROCz(w%,i%,115)
 2230ENDCASE
 2240WHEN6:PROCb(w%,i%,vc%):CASETRUEOF
 2250WHENgb%=-1
 2260WHENgb%<50:PROCMa(gb%,`%,kb%,lb%,mb%)
 2270WHENgb%=50:PROCNa(`%,kb%,lb%,mb%)
 2280WHENgb%=200:PROCOa(fb%)
 2290WHENgb%>=100ANDgb%<=199:IFW%=0THEN
 2300PROCC:PROCPa(gb%-100,!e%)
 2310ELSE:PROCPa(gb%-100,mb%)
 2320ENDIF
 2330WHENgb%>=200ANDgb%<=299:IFW%=0THEN
 2340PROCC:PROCQa(gb%-200,!e%)
 2350ELSE:PROCQa(gb%-200,mb%)
 2360ENDIF
 2370ENDCASE
 2380PROCb(w%,i%,0):IFyc%THENPROCl(Qa%)
 2390WHEN7:PROCb(w%,i%,vc%):PROCl(Qa%):PROCb(w%,i%,0)
 2400WHEN11:PROCb(w%,i%,vc%):IFW%=0THEN
 2410PROCt(255,255,255,mb%)
 2420ELSE:PROCt(`%,kb%,lb%,255)
 2430ENDIF
 2440PROCb(w%,i%,0)
 2450WHEN12:PROCb(w%,i%,vc%):IFW%=0THENPROCt(0,0,0,mb%)ELSEPROCt(`%,kb%,lb%,0)
 2460PROCb(w%,i%,0)
 2470WHEN13:IFyc%ORNOTZb%THEN
 2480Zb%=TRUE:PROCb(w%,i%,vc%)
 2490ELSE:Zb%=0:PROCb(w%,i%,0)
 2500ENDIF
 2510WHEN17:b%!0=w%:SYS262347,,b%:x%-=b%!4-b%!20+800:y%-=b%!16-b%!24+20:x%=x%DIV16:y%=y%DIV16:G%=x%+16*(15-y%):IFW%=0THEN
 2520SYS892610,G%TO!e%:PROCt(e%?1,e%?2,e%?3,mb%)
 2530ELSE:PROCt(`%,kb%,lb%,G%)
 2540ENDIF
 2550ENDCASE
 2560WHENMc%:IFwc%THENENDPROC
 2570CASEi%OF
 2580WHEN0,1,2:b%!0=w%:SYS262347,,b%:x%-=b%!4-b%!20+24+216*i%:y%-=b%!16-b%!24+80:b%(i%+1,1+(x%DIV64))=y%:PROCe(w%,i%)
 2590WHEN6:PROCb(w%,i%,vc%):PROCRa:PROCb(w%,i%,0):IFyc%THENPROCl(Mc%)
 2600ENDCASE
 2610WHEN`a%:IFwc%THENENDPROC
 2620CASEi%OF
 2630WHEN4:cb%=13:PROCd(w%,i%,1)
 2640WHEN5:cb%=15:PROCd(w%,i%,1)
 2650WHEN6:cb%=21:PROCd(w%,i%,1)
 2660WHEN11:PROCp(w%,10,_a%,-2,20,1999,0,4)
 2670WHEN12:PROCp(w%,10,_a%,2,20,1999,0,4)
 2680WHEN15:PROCp(w%,14,ab%,2,20,1999,0,4)
 2690WHEN16:PROCp(w%,14,ab%,-2,20,1999,0,4)
 2700WHEN17:PROCb(w%,i%,vc%):PROCSa:PROCl(`a%):PROCb(w%,i%,0)
 2710WHEN18:PROCb(w%,i%,vc%):PROCl(`a%):PROCb(w%,i%,0)
 2720ENDCASE
 2730WHENNc%:IFwc%THENENDPROC
 2740CASEi%OF
 2750WHEN0:PROCz(w%,i%,110)
 2760WHEN1:hb%+=5:IFhb%>250THENhb%=250
 2770PROCe(w%,0)
 2780WHEN2:hb%-=5:IFhb%<5THENhb%=5
 2790PROCe(w%,0)
 2800WHEN3:f-=0.001:IFf<0.008THENf=0.008
 2810PROCe(w%,0)
 2820WHEN4:f+=0.001:IFf>0.10THENf=0.10
 2830PROCe(w%,0)
 2840WHEN5:PROCb(w%,i%,vc%):PROCl(w%):PROCb(w%,i%,0)
 2850WHEN6:PROCb(w%,i%,vc%):PROCTa(0):IFyc%THENSYS262356,,-1
 2860PROCb(w%,i%,0)
 2870WHEN7:ib%=NOTib%:PROCd(w%,7,ib%)
 2880ENDCASE
 2890WHENNa%:IFwc%THENENDPROC
 2900CASEi%OF
 2910WHEN2:PROCb(w%,i%,vc%):PROCwa(Xa%,fb%):PROCb(w%,i%,0)
 2920WHEN3:PROCz(0,fb%,1)
 2930WHEN4:Ma%=NOTMa%
 2940ENDCASE
 2950WHENQb%:IFwc%THENENDPROC
 2960CASEi%OF
 2970WHEN0:IFSb%<>1THENPROCz(w%,i%,111)
 2980WHEN1,2,3:a(Rb%)=EVAL(FNs(Pb%)):PROCp(w%,6,Pb%,a(i%),0,0,2,4):Rb%=i%:PROCe(w%,0)
 2990WHEN4:PROCb(w%,i%,vc%):SYS262356,,-1:PROCl(w%):PROCb(w%,i%,0)
 3000WHEN5:PROCb(w%,i%,vc%):CASESb%OF
 3010WHEN1:PROCUa(a(1),a(2),a(3))
 3020WHEN2:PROCVa
 3030WHEN4:PROCWa
 3040ENDCASE
 3050IFyc%THENSYS262356,,-1
 3060PROCb(w%,i%,0)
 3070WHEN7,8:PROCp(w%,6,Pb%,0.02*(2*i%-15),0.2,3,2,4):a(Rb%)=EVAL(FNs(Pb%)):IFTb%ORW%=1THEN
 3080a(1)=a(Rb%):a(2)=a(Rb%):a(3)=a(Rb%)
 3090ENDIF
 3100PROCe(w%,0)
 3110WHEN9,10,12:Sb%=i%-8:PROCd(w%,i%,TRUE):PROCe(w%,0):PROCK(w%,6,Sb%<>1):PROCK(w%,7,Sb%<>1):PROCK(w%,8,Sb%<>1)
 3120WHEN11:IFyc%ORNOTTb%THEN
 3130PROCb(w%,i%,vc%):Tb%=TRUE:g=a(Rb%):a(1)=g:a(2)=g:a(3)=g:FORx%=1TO5:y%=c%(Rb%,x%):c%(1,x%)=y%:c%(2,x%)=y%:c%(3,x%)=y%:NEXT
 3140ELSE:PROCb(w%,i%,0):Tb%=0
 3150ENDIF
 3160ENDCASE
 3170WHENZa%:IFwc%THENENDPROC
 3180IFi%>=5ANDi%<=13THENPROCb(w%,i%,vc%)
 3190CASEi%OF
 3200WHEN2:PROCp(w%,0,Ya%,1,10,1999,0,4):PROCA(w%,0)
 3210WHEN3:PROCp(w%,0,Ya%,-1,10,1999,0,4):PROCA(w%,0)
 3220WHEN5:$Ya%="10":PROCe(Za%,0):PROCA(w%,0)
 3230WHEN6:$Ya%="33":PROCe(Za%,0):PROCA(w%,0)
 3240WHEN7:$Ya%="50":PROCe(Za%,0):PROCA(w%,0)
 3250WHEN8:$Ya%="100":PROCe(Za%,0):PROCA(w%,0)
 3260WHEN9:$Ya%="200":PROCe(Za%,0):PROCA(w%,0)
 3270WHEN10:$Ya%="500":PROCe(Za%,0):PROCA(w%,0)
 3280WHEN11:PROCXa:PROCA(w%,0)
 3290WHEN12:PROCH(1):SYS262356,,-1
 3300WHEN13:SYS262356,,-1
 3310ENDCASE
 3320IFi%>=5ANDi%<=13THENPROCb(w%,i%,0)
 3330WHENHb%:IFwc%THENENDPROC
 3340CASEi%OF
 3350WHEN1:IFGb%=0THENGb%=1ELSEGb%=0
 3360PROCd(w%,1,Gb%=0):PROCe(w%,10)
 3370WHEN9:PROCb(w%,i%,vc%):PROCl(Hb%):PROCb(w%,i%,0)
 3380WHEN10:PROCz(w%,i%,112)
 3390WHEN11:PROCz(w%,i%,113)
 3400WHEN13,14:PROCp(w%,15,Ib%,i%*2-27,1,100,0,3):Db%=EVAL(FNs(Ib%))
 3410WHEN16:b%!0=w%:SYS262347,,b%:x%-=b%!4-b%!20+48:x%=x%DIV48:CASEx%OF
 3420WHEN0,1,2:Gb%=1:Eb%=4*(2^x%):Fb%=Eb%
 3430WHEN3,4,5:Gb%=2:Eb%=6*(2^(x%-3)):Fb%=Eb%
 3440WHEN6,7,8:Gb%=3:Eb%=4*(2^(x%-6)):Fb%=24
 3450ENDCASE
 3460PROCd(w%,1,Gb%=0):PROCe(w%,10)
 3470ENDCASE
 3480OTHERWISE:IFAc%>0ANDwc%THEN
 3490PROCYa(Ac%):Bc%=b%!0-60:Cc%=b%!4:SYS262356,,e%(23),Bc%,Cc%
 3500ENDIF
 3510ENDCASE
 3520ENDPROC
 3530DEFPROCA(w%,i%):SYS262354,w%,i%,,,40,-1:ENDPROC
 3540DEFPROCp(w%,i%,Oc%,C,z,A,Pc%,Qc%):LOCALv$,v,@%:v=EVAL(FNs(Oc%))+C:IFv<zTHENv=z
 3550IFv>ATHENv=A
 3560IFz=ATHENv=C
 3570@%=131072+256*Pc%+Qc%:IFv<>0THENv$=LEFT$(STR$(v+(0.1^(Pc%+3))),Qc%)ELSEv$=STR$(0)
 3580IFRIGHT$(v$)="."THENv$=LEFT$(v$,LEN(v$)-1)
 3590$Oc%=v$:PROCe(w%,i%):ENDPROC
 3600DEFPROCQ(x%,y%,RETURNRc%,RETURNSc%):j%!0=X%:SYS262347,,j%:x%-=j%!4-j%!20:y%-=j%!16-j%!24:Rc%=x%*100/(a%(o%,4)*T%)+1:Sc%=y%*100/(a%(o%,5)*N%)+1:ENDPROC
 3610DEFPROCZa:SYS262352,,-1:ya%=0:ENDPROC
 3620DEFPROCha:LOCALx%,y%,xc%:SYS262351,,b%:x%=(b%!0-Gc%):y%=(b%!4-Hc%):xc%=(b%!8AND1)<>0:IFx%<0THENx%=0
 3630IFx%>Tc%THENx%=Tc%
 3640IFy%<0THENy%=0
 3650IFy%>Uc%THENy%=Uc%
 3660CASEya%OF
 3670WHEN101:x%=x%/2-6:IFx%<0THENx%=0
 3680IFx%>255THENx%=255
 3690IFx%<>Yb%THENYb%=x%:PROCe(Dc%,0)
 3700WHEN103:IFxc%THENkb%=x%/2:lb%=x%/2
 3710PROCt(x%/2,kb%,lb%,mb%)
 3720WHEN104:IFxc%THEN`%=x%/2:lb%=x%/2
 3730PROCt(`%,x%/2,lb%,mb%)
 3740WHEN105:IFxc%THEN`%=x%/2:kb%=x%/2
 3750PROCt(`%,kb%,x%/2,mb%)
 3760WHEN110:hb%=ABS(28-x%):IFhb%>250THENhb%=250
 3770IFhb%<5THENhb%=5
 3780IFy%>0THENf=3.5/(35+y%)ELSEf=0.1
 3790IFf>0.1THENf=0.1
 3800IFf<0.008THENf=0.008
 3810PROCe(Nc%,0)
 3820WHEN111:IFy%<0THENy%=0
 3830IFy%>255THENy%=255
 3840CASESb%OF
 3850WHEN2:x%=1+(x%+32)DIV64:c%(Rb%,x%)=y%:IFTb%ORW%=1THENc%(1,x%)=y%:c%(2,x%)=y%:c%(3,x%)=y%
 3860PROCe(Qb%,0)
 3870WHEN4:x%=1+x%DIV16:IFx%>16THENx%=16
 3880f%(Rb%,x%)=y%:IFTb%ORW%=1THENf%(1,x%)=y%:f%(2,x%)=y%:f%(3,x%)=y%
 3890SYS262353,Qb%,x%*16+2,80,x%*16+24,344
 3900ENDCASE
 3910WHEN112:Eb%=x%-80:Fb%=y%-80:PROCe(Hb%,10)
 3920WHEN113:x%-=80:y%-=80:Cb%=SQR(x%*x%+y%*y%):IFCb%>60THENCb%=60
 3930PROCe(Hb%,11)
 3940WHEN115:PROCt(`%,kb%,lb%,x%/2)
 3950ENDCASE
 3960ENDPROC
 3970DEFPROCka(b%):LOCALx%,y%,z%,V%,h,i:SYS262351,,b%:x%=b%!0:y%=b%!4:CASEya%OF
 3980WHEN1:V%=FNa(b%!12):IFV%>0THEN
 3990IFV%<>Ka%THENPROCF(Ka%,V%):PROCk(a%(V%,1))
 4000ELSE:b%!20=b%!12:b%!24=b%!16:b%!28=b%!0:b%!32=b%!4:b%!12=0:b%!16=1:b%!36=2000:b%!40=4089:b%!0=60:$(b%+44)=FNe(FNs(Xa%)):SYS262375,17,b%,b%!20,b%!24
 4010ENDIF
 4020WHEN3:IFb%!12<>X%THENERROR1,"Please keep inside the window"
 4030PROCQ(x%,y%,x%,y%):zb%=x%:Ab%=y%:x%=Gc%:y%=Hc%:PROCQ(x%,y%,x%,y%):xb%=x%:yb%=y%:IFxb%>zb%THENSWAPxb%,zb%
 4040IFyb%>Ab%THENSWAPyb%,Ab%
 4050PROCm:ub%=TRUE:PROCv(1)
 4060WHEN4:IFb%!12<>X%THENERROR1,"Please keep inside the window"
 4070IFx%<Gc%THENSWAPx%,Gc%
 4080IFy%<Hc%THENSWAPy%,Hc%
 4090x%=ABS(x%-Gc%):y%=ABS(y%-Hc%):IFx%=0ORy%=0THENERROR1,"You can't enlarge an area with no width/height"
 4100b%!0=X%:SYS262347,,b%:Gc%-=b%!4-b%!20:Hc%-=b%!16-b%!24:Gc%=100*Gc%/a%(o%,4):Hc%=100*Hc%/a%(o%,5):h=a%(o%,4)*ABS((b%!4-b%!12)/x%):i=a%(o%,5)*ABS((b%!8-b%!16)/y%):IFh<10ORh>1999ORi<10ORi>1999THENERROR1,"Illegal scale factor"
 4110a%(o%,4)=h:a%(o%,5)=i:PROCP(X%,cc%*h/100,dc%*i/100):PROCI(o%):b%!0=X%:SYS262347,,b%:b%!20=Gc%*h/100:b%!24=Hc%*i/100-b%!8+b%!16:PROCy(X%,TRUE):PROCk(X%):PROCm
 4120ENDCASE
 4130ya%=0:ENDPROC
 4140DEFPROCz(w%,i%,Vc%):LOCALWc%,Xc%,Yc%,Zc%:CASEVc%OF
 4150WHEN1:Ka%=i%:b%!0=Na%:SYS262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=3:SYS262350,,b%:b%!8+=Wc%:b%!12+=Xc%:b%!16+=Wc%:b%!20+=Xc%:b%!4=5
 4160WHEN3,4:b%!8=w%:b%!12=i%:b%!16=w%:b%!20=i%:b%!4=6:b%!24=0:b%!28=0:b%!32=za%:b%!36=Aa%
 4170WHEN103,104,105,115:b%!0=w%:SYS262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=i%:SYS262350,,b%:b%!24=b%!8+Wc%:b%!28=Xc%+(b%!20+b%!12)/2:b%!32=b%!16+Wc%:b%!36=b%!28:Gc%=b%!24:Hc%=b%!28:Tc%=510:Uc%=510:b%!4=7
 4180WHEN101:b%!0=w%:SYS262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=i%:SYS262350,,b%:b%!24=b%!8+Wc%:b%!28=Xc%+(b%!20+b%!12)/2:b%!32=b%!16+Wc%:b%!36=b%!28:Gc%=b%!24:Hc%=b%!28:Tc%=b%!32-b%!24:Uc%=b%!36-b%!28:b%!4=7
 4190WHEN110,111,112,113:b%!0=w%:SYS262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=i%:SYS262350,,b%:b%!24=b%!8+Wc%:b%!28=Xc%+b%!12:b%!32=b%!16+Wc%:b%!36=b%!20+Xc%:Gc%=b%!24:Hc%=b%!28:Tc%=b%!32-b%!24:Uc%=b%!36-b%!28:b%!4=7
 4200ENDCASE
 4210ya%=Vc%:IFVc%=1ANDHa%THEN
 4220e%!0=b%!8:e%!4=b%!12:e%!8=b%!8+64:e%!12=b%!12+64:e%!16=-32000:e%!20=-32000:e%!24=32000:e%!28=32000:SYS271360,197,1,"file_ff9",e%
 4230ELSE:SYS262352,,b%
 4240ENDIF
 4250ENDPROC
 4260DEFPROCqa(i%):LOCAL_c%,`c%:g%()=0:CASERa%OF
 4270WHEN1:j%!0=ec%:j%!4=8:SYS262350,,j%:$(j%!32)="P"+r$+";Sproc_draw0"+CHR$(i%+65)+",proc_draw1"+CHR$(i%+65):_c%=64*(Sa%MOD8):`c%=64-64*(Sa%DIV8):SYS262353,gc%,_c%,`c%,_c%+64,`c%+64:Sa%=i%:PROCEa(-1,0,0):PROCe(ec%,8):_c%=64*(i%MOD8):`c%=64-64*(i%DIV8)
 4280SYS262353,gc%,_c%,`c%,_c%+64,`c%+64:g%(i%)=1
 4290WHEN2:PROC_a(i%)
 4300WHEN3:CASEi%OF
 4310WHEN0:fb%=o%:$Ya%="10":PROCH(1)
 4320WHEN1:fb%=o%:$Ya%="33":PROCH(1)
 4330WHEN2:fb%=o%:$Ya%="50":PROCH(1)
 4340WHEN3:fb%=o%:$Ya%="100":PROCH(1)
 4350WHEN4:fb%=o%:$Ya%="200":PROCH(1)
 4360WHEN5:fb%=o%:$Ya%="500":PROCH(1)
 4370WHEN6:_c%=a%(o%,4)*0.5:`c%=a%(o%,5)*0.5:IF_c%<10THEN_c%=10
 4380IF`c%<10THEN`c%=10
 4390a%(o%,4)=_c%:a%(o%,5)=`c%:PROCP(X%,cc%*_c%/100,dc%*`c%/100):PROCI(o%):PROCa(X%)
 4400WHEN7:_c%=a%(o%,4)*2:`c%=a%(o%,5)*2:IF_c%>1999THEN_c%=1999
 4410IF`c%>1999THEN`c%=1999
 4420a%(o%,4)=_c%:a%(o%,5)=`c%:PROCP(X%,cc%*_c%/100,dc%*`c%/100):PROCI(o%):PROCa(X%)
 4430ENDCASE
 4440ENDCASE
 4450ENDPROC
 4460DEFPROCGa(ad%):LOCALx%,y%,w%,bd%:CASEad%OF
 4470WHEN1:x%=8:y%=-24:bd%=512:Lc%=1
 4480WHEN2:x%=72:y%=232:bd%=512:Lc%=0
 4490WHEN3:x%=72:y%=40:bd%=512:Lc%=0
 4500ENDCASE
 4510y%-=64*Lc%:b%!0=0:b%!4=0:b%!8=bd%:b%!12=64+64*Lc%:SYS262359,gc%,b%:j%!0=ec%:SYS262347,,j%:b%!0=gc%:b%!4=j%!4-j%!20+x%:b%!8=j%!16-j%!24+y%:b%!12=b%!4+bd%:b%!16=b%!8+64*Lc%+64:b%!20=0:b%!24=0:b%!28=-1:SYS262341,,b%:Wa%=TRUE:Ra%=ad%:ENDPROC
 4520DEFPROC`a(b%):LOCALi%,Zc%,Yc%,x%,y%,a$:x%=b%!4-b%!20:y%=b%!16-b%!24+64*Lc%:FORYc%=0TO7:FORZc%=0TOLc%:i%=Yc%+8*Zc%:CASERa%OF
 4530WHEN1:IFg%(i%)THENa$="1"+CHR$(i%+65)ELSEa$="0"+CHR$(i%+65)
 4540a$="proc_draw"+a$
 4550WHEN2:a$="proc_area"+CHR$(i%+65)
 4560WHEN3:a$="proc_zoom"+CHR$(i%+65)
 4570ENDCASE
 4580SYS46,256+52,cd%,a$,x%+64*Yc%,y%-64*Zc%,0,ha%,ia%:NEXT:NEXT:ENDPROC
 4590DEFPROCJ(p%,A%,B%,C%,D%,E%,F%):CALLp%:ENDPROC
 4600DEFFNg(x%,y%):IFvb%THEN
 4610IF(x%>=xb%ANDx%<zb%ANDy%>=yb%ANDy%<Ab%)THEN=TRUEELSE=FALSE
 4620ELSE:IF(x%>=0ANDx%<cc%/T%ANDy%>=0ANDy%<dc%/N%)THEN=TRUEELSE=FALSE
 4630ENDIF
 4640=FALSE
 4650DEFPROCFa(dd%,x%,y%):LOCALR%,S%,i%,r%,ed%,fd%,gd%,hd%,id%:IFd%<>-1THENR%=x%*T%:S%=y%*N%
 4660IFd%>=0THENIFNOTFNg(x%,y%)THENENDPROC
 4670CASEdd%OF
 4680WHEN1:CASEg%!0OF
 4690WHEN0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:PROCu
 4700WHEN2:Ua%=3:PROCu:g%!0=4:g%!28=5:g%!32=R%:g%!36=S%:g%!40=5:g%!44=g%!8:g%!48=g%!12:PROCu
 4710WHEN4:Ua%=5:PROCu:g%!0=5:g%!52=0:g%!56=R%:g%!60=S%:PROCu
 4720WHEN5:Ua%=6:PROCu:g%!0=6:g%!64=5:g%!68=R%:g%!72=S%:PROCu
 4730WHEN6:Ua%=7:PROCu:g%!0=8:g%!76=5:g%!80=R%:g%!84=S%:g%!88=5:g%!92=g%!56:g%!96=g%!60:PROCu
 4740WHEN8:xa%=FALSE:Ta%=0:Ua%=0:PROCm:FORi%=0TO2:e%!(8*i%+24)=(g%!(12*i%+8))/T%:e%!(8*i%+28)=(g%!(12*i%+12))/N%:NEXT:FORi%=3TO5:e%!(8*i%-24)=(g%!(12*i%+20))/T%:e%!(8*i%-20)=(g%!(12*i%+24))/N%:NEXT:PROCf:PROCJ(r,jd%,U%,0,e%,Z%,0):PROCg:PROCa(P%)
 4750ENDCASE
 4760WHEN2:CASEg%!0OF
 4770WHEN0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:PROCu
 4780WHEN2:Ua%=3:PROCu:g%!0=3:g%!28=5:g%!32=R%:g%!36=S%:PROCu
 4790WHEN3:Ua%=4:PROCu:g%!0=5:g%!40=5:g%!44=R%:g%!48=S%:g%!52=5:g%!56=g%!8:g%!60=g%!12:PROCu
 4800WHEN5:Ua%=6:PROCu:g%!0=6:g%!64=0:g%!68=R%:g%!72=S%:PROCu
 4810WHEN6:Ua%=7:PROCu:g%!0=7:g%!76=5:g%!80=R%:g%!84=S%:PROCu
 4820WHEN7:Ua%=8:PROCu:g%!0=8:g%!88=5:g%!92=R%:g%!96=S%:PROCu
 4830WHEN8:Ua%=9:PROCu:g%!0=10:g%!100=5:g%!104=R%:g%!108=S%:g%!112=5:g%!116=g%!68:g%!120=g%!72:PROCu
 4840WHEN10:xa%=FALSE:Ta%=0:Ua%=0:PROCm:FORi%=0TO9:g%!(12*i%+8)=(g%!(12*i%+8))/T%:NEXT:FORi%=0TO9:g%!(12*i%+12)=(g%!(12*i%+12))/N%:NEXT:FORi%=0TO2:e%!(8*i%+24)=g%!(12*i%+8):e%!(8*i%+28)=g%!(12*i%+12):NEXT:FORi%=3TO5
 4850e%!(8*i%-24)=g%!(12*i%+32):e%!(8*i%-20)=g%!(12*i%+36):NEXT:PROCJ(r,jd%,U%,0,e%,Z%,0):e%!0=g%!68:e%!4=g%!72:e%!8=g%!92:e%!12=g%!96:e%!16=g%!104:e%!20=g%!108:e%!24=g%!8:e%!28=g%!12:e%!32=g%!32:e%!36=g%!36:e%!40=g%!44:e%!44=g%!48
 4860PROCf:PROCJ(r,jd%,U%,0,e%,Z%,0):PROCg:PROCa(P%)
 4870ENDCASE
 4880WHEN3:CASEg%!0OF
 4890WHEN0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:PROCu
 4900WHEN2:Ua%=3:PROCu:g%!0=4:g%!28=5:g%!32=R%:g%!36=S%:g%!40=5:g%!44=g%!8:g%!48=g%!12:PROCu
 4910WHEN4:Ua%=5:PROCu:g%!0=5:g%!52=0:g%!56=R%:g%!60=S%:PROCu
 4920WHEN5:Ua%=6:PROCu:g%!0=6:g%!64=4:g%!68=R%:g%!72=S%:PROCu
 4930WHEN6:xa%=FALSE:Ta%=0:Ua%=0:PROCm:FORi%=0TO2:e%!(8*i%+24)=g%!(12*i%+8)/T%:e%!(8*i%+28)=g%!(12*i%+12)/N%:NEXT:r%=SQR((g%!56-g%!68)^2+(g%!60-g%!72)^2):PROCf:FORi%=0TO8:e%!0=(g%!56+r%*COSRAD(40*i%))/T%:e%!4=(g%!60+r%*SINRAD(40*i%))/N%
 4940e%!8=(g%!56+r%*COSRAD(40*i%+40))/T%:e%!12=(g%!60+r%*SINRAD(40*i%+40))/N%:e%!16=(g%!56)/T%:e%!20=(g%!60)/N%:PROCJ(r,jd%,U%,0,e%,Z%,0):PROCD(i%*12):NEXT:PROCg:PROCa(P%)
 4950ENDCASE
 4960WHEN20:PROCo(-1,""):b%!0=X%:SYS262347,,b%:MOUSEx%,y%,i%:x%-=b%!4-b%!20:y%-=b%!16-b%!24:RECTANGLER%-jb%/2,S%-jb%/2,jb%TOx%,y%:PROCR:PROCn:PROCE
 4970WHEN10,11,12,13:CASEg%!0OF
 4980WHEN0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=4:g%!20=R%:g%!24=S%:PROCu
 4990WHEN2:xa%=FALSE:Ta%=0:Ua%=0:PROCm:ed%=g%!8:fd%=g%!12:r%=SQR((ed%-g%!20)^2+(fd%-g%!24)^2):IFW%=0THEN
 5000gd%=`%:hd%=kb%:id%=lb%
 5010ELSE:gd%=mb%:hd%=mb%:id%=mb%
 5020ENDIF
 5030PROCab(ed%,fd%,r%,gd%,hd%,id%,dd%)
 5040ENDCASE
 5050WHEN14,15:CASEg%!0OF
 5060WHEN0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:PROCu
 5070WHEN2:xa%=FALSE:Ta%=0:Ua%=0:PROCm:IFW%=0THEN
 5080gd%=`%:hd%=kb%:id%=lb%
 5090ELSE:gd%=mb%:hd%=mb%:id%=mb%
 5100ENDIF
 5110PROCbb(g%!8,g%!12,g%!20,g%!24,gd%,hd%,id%,dd%)
 5120ENDCASE
 5130ENDCASE
 5140ENDPROC
 5150DEFPROCEa(d%,x%,y%):LOCALR%,S%,c%:IFd%<>-1THENR%=x%*T%:S%=y%*N%
 5160IFd%>=0THENIFNOTFNg(x%,y%)THENENDPROC
 5170CASEd%OF
 5180WHEN-1:PROCm:CASESa%OF
 5190WHEN0,6,7,8,15:xa%=FALSE
 5200OTHERWISE:xa%=TRUE
 5210ENDCASE
 5220WHEN0:PROCo(-1,""):PROCB:PROCL:CASEGb%OF
 5230WHEN0:POINTR%,S%
 5240WHEN1:RECTANGLEFILLR%-Eb%,S%-Fb%,Eb%*2,Fb%*2
 5250WHEN2:CIRCLEFILLR%,S%,Eb%
 5260WHEN3:ELLIPSEFILLR%,S%,Eb%,Fb%
 5270ENDCASE
 5280PROCR:PROCn:PROCE
 5290WHEN1,2,3,4,5:IFg%!0=0THEN
 5300Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=d%:g%!20=R%:g%!24=S%:PROCu
 5310ELSE:PROCo(-1,""):PROCB:PROCL:PROCcb(0,0,0):PROCn:PROCE:IFd%=5THEN
 5320Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=d%:g%!20=R%:g%!24=S%:PROCu
 5330ELSE:g%!0=0
 5340ENDIF
 5350ENDIF
 5360WHEN6:PROCo(-1,""):PROCB:PROCL:GCOL128+POINT(R%,S%)TINTTINT(R%,S%):FILLR%,S%:PROCR:PROCn:PROCE
 5370WHEN7:SYS892609,,a%(o%,3),x%,dc%/N%-y%+1TOc%:PROCdb(`%,kb%,lb%,mb%,c%)
 5380WHEN8:e%!12=Cb%/T%:e%!16=Cb%/N%:e%!20=e%!12*e%!16*Db%/100:e%!24=Va%:IFvb%THENx%-=xb%:y%-=yb%
 5390IFW%=0THEN
 5400PROCC:SYS892615,,U%,3,!e%,x%,kd%-y%+1,e%+12
 5410ELSE:SYS892615,,U%,3,mb%,x%,kd%-y%+1,e%+12
 5420ENDIF
 5430ld%=R%-Cb%:md%=S%-Cb%:nd%=R%+Cb%:od%=S%+Cb%:PROCE
 5440WHEN9,10,11,12,13,14:CASEg%!0OF
 5450WHEN0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:PROCu
 5460WHEN2:Ua%=3:g%!0=3:g%!28=d%:g%!32=R%:g%!36=S%:PROCu:IFd%=13ORd%=14THENg%!16=0
 5470WHEN3:PROCo(-1,""):PROCB:PROCL:PROCcb(0,0,0):PROCn:PROCE:g%!0=0
 5480ENDCASE
 5490WHEN15:IFg%!0=1THEN
 5500PROCo(-1,""):PROCB:PROCL:LINEg%!8,g%!12,R%,S%:PROCR:PROCn:g%!20=g%!8:g%!24=g%!12:g%!8=R%:g%!12=S%:PROCE
 5510ELSE:Ua%=1:g%!0=1:g%!8=R%:g%!12=S%
 5520ENDIF
 5530ENDCASE
 5540eb%=TRUE:ENDPROC
 5550DEFPROCL:IFW%=0THENPROCC:PROCeb(!e%,Va%)ELSEPROCeb(mb%,Va%)
 5560ENDPROC
 5570DEFPROCC:e%?0=0:e%?1=`%:e%?2=kb%:e%?3=lb%:ENDPROC
 5580DEFPROCfb(G%):PROCeb(G%,0):ENDPROC
 5590DEFPROCOa(pd%):LOCALs%,w%:IFfb%=o%THENw%=X%:s%=-1
 5600IFfb%=_%THENw%=P%:s%=0
 5610PROCo(s%,""):PROCL:RECTANGLEFILL0,0,cc%,dc%:PROCn:PROCk(w%):ENDPROC
 5620DEFPROCeb(G%,ta%):IFW%=0THENSYS892611,G%TOG%
 5630SYS264013,G%TOG%:GCOLta%,G%DIV4TINT(G%MOD4)*64:ENDPROC
 5640DEFPROCga:LOCALx%,y%,Yc%,Zc%:IFg%!0<=0THENENDPROC
 5650SYS262351,,b%:IFb%!12<>X%THENENDPROC
 5660x%=b%!0:y%=b%!4:b%!0=X%:SYS262347,,b%:x%-=b%!4-b%!20:y%-=b%!16-b%!24:x%=x%*100/a%(o%,4):y%=y%*100/a%(o%,5):Yc%=12*Ua%-4:Zc%=12*Ua%:IFx%<>g%!Yc%ORy%<>g%!Zc%PROCu:g%!Yc%=x%:g%!Zc%=y%:PROCu
 5670ENDPROC
 5680DEFPROCr(ta%):LOCALp$,i%:p$="":i%=-1:PROCm:CASEta%OF
 5690WHEN1:p$=u$
 5700WHEN2:PROCv(0):i%=0
 5710WHEN3:i%=0:PROCz(Gc%,Hc%,3)
 5720WHEN4:i%=8:CASESa%OF
 5730WHEN0,6:xa%=FALSE
 5740WHEN7:xa%=FALSE:p$=w$
 5750OTHERWISE:xa%=TRUE
 5760ENDCASE
 5770WHEN6:i%=5
 5780WHEN7:i%=5:PROCz(Gc%,Hc%,4)
 5790WHEN8:i%=9:p$=x$:Ic%=TRUE
 5800WHEN101:xa%=TRUE
 5810ENDCASE
 5820IFp$<>""THENPROCBa(p$)
 5830IFi%>=0ANDi%<100THENPROCd(ec%,i%,1)
 5840db%=ta%:ENDPROC
 5850DEFPROCm:CASEdb%OF
 5860WHEN2,3:PROCd(ec%,0,0)
 5870WHEN4:PROCd(ec%,8,0):IFg%!0>0THENPROCu:g%!0=0
 5880WHEN6,7:PROCd(ec%,5,0)
 5890WHEN8:PROCd(ec%,9,0)
 5900WHEN101:IFg%!0>0THENPROCu:g%!0=0
 5910ENDCASE
 5920IFOa%THENPROCl(Qa%)
 5930PROCZa:PROCta:ENDPROC
 5940DEFPROCHa:SWAPa%(o%,2),a%(_%,2):SWAPa%(o%,3),a%(_%,3):SWAPa$(o%,1),a$(_%,1):SWAPa$(o%,2),a$(_%,2):SWAPU%,jd%:PROCI(o%):PROCI(_%):PROCa(P%):PROCa(X%):eb%=TRUE:ENDPROC
 5950DEFPROCi:IFEa%THENPROCHa
 5960ENDPROC
 5970DEFPROCv(qd%):LOCALi%,rd%,sd%,td%:IFvb%THENPROCgb
 5980CASEqd%OF
 5990WHEN0:vb%=0:rd%=a%(o%,3):sd%=a%(_%,3)
 6000WHEN1,2:IFub%THEN
 6010rd%=la%:sd%=la%+256:IFxb%<0THENxb%=0
 6020IFzb%>cc%/T%THENzb%=cc%/T%
 6030IFyb%<0THENyb%=0
 6040IFAb%>dc%/N%THENAb%=dc%/N%
 6050FORi%=0TO252STEP4:rd%!i%=a%(o%,3)!i%:NEXT:rd%!0=zb%-xb%:rd%!4=Ab%-yb%:rd%!52=T%*rd%!0:rd%!56=N%*rd%!4:rd%!20=rd%!4*rd%!16+rd%!0:td%=xb%+(dc%/N%-Ab%)*rd%!16:rd%!24+=td%:FORi%=0TO252STEP4:sd%!i%=rd%!i%:NEXT:sd%!24=a%(_%,3)!24+td%:vb%=TRUE
 6060ELSE:vb%=0:ENDPROC
 6070ENDIF
 6080WHEN3:vb%=0:ENDPROC
 6090ENDCASE
 6100PROCd(ec%,1,vb%):U%=rd%:jd%=sd%:ud%=rd%!52:vd%=rd%!56:wd%=rd%!0:kd%=rd%!4:IFa%(o%,6)=0THENPROCa(X%)ELSEPROCgb
 6110eb%=TRUE:ENDPROC
 6120DEFPROC_a(n%):LOCALoc%,jc%:PROCv(3):CASEn%OF
 6130WHEN0:Ab%=dc%/N%
 6140WHEN1:yb%=0
 6150WHEN2:zb%=cc%/T%
 6160WHEN3:xb%=0
 6170WHEN4:jc%=Ab%-yb%:Ab%+=jc%:yb%+=jc%
 6180WHEN5:jc%=Ab%-yb%:Ab%-=jc%:yb%-=jc%
 6190WHEN6:oc%=zb%-xb%:zb%+=oc%:xb%+=oc%
 6200WHEN7:oc%=zb%-xb%:zb%-=oc%:xb%-=oc%
 6210ENDCASE
 6220PROCv(2):ENDPROC
 6230DEFPROCH(hc%):LOCALxd%,c%:xd%=VAL(FNs(Ya%)):IFxd%<10ORxd%>1999THENERROR1,"Illegal scale factor"
 6240c%=fb%:a%(c%,4)=xd%:a%(c%,5)=xd%:PROCP(a%(c%,1),cc%*xd%/100,dc%*xd%/100):PROCI(c%):IFhc%THENPROCa(a%(c%,1))
 6250ENDPROC
 6260DEFPROCV:PROCF(o%,_%):PROCa(P%):ENDPROC
 6270DEFPROCF(yd%,qd%):PROCo(a%(qd%,2),a$(qd%,1)):IFyd%=o%ORqd%=o%THENPROCB
 6280SYS131118,290,a%(yd%,2),a$(yd%,1),0,0,0:PROCn:a$(qd%,2)=a$(yd%,2):IFqd%=o%THENeb%=TRUE
 6290ENDPROC
 6300DEFPROCXa:LOCALB,w%,zd%,Ad%:w%=a%(fb%,1):j%!0=w%:SYS262347,,j%:zd%=j%!12-j%!4:Ad%=j%!16-j%!8:IFzd%>Ad%THENB=zd%/cc%ELSEB=Ad%/dc%
 6310$Ya%=STR$(INT(B*100)):PROCe(Za%,0):ENDPROC
 6320DEFPROChb(Bd%,i%):SYS46,256+Bd%,a%(i%,2),a$(i%,1):IFi%=o%THENeb%=TRUE
 6330PROCk(a%(i%,1)):PROCi:ENDPROC
 6340DEFPROCib(v,o,Cd%,Dd%,Ed%,Fd%):LOCALx%,y%,Gd%,Hd%,k,i%:k=256*o:v=-RAD(v):x%=ud%/2:y%=vd%/2:PROCjb(v,x%,y%,0,vd%,Gd%,Hd%):e%!0=k*Gd%:e%!4=k*Hd%:PROCjb(v,x%,y%,ud%,vd%,Gd%,Hd%):e%!8=k*Gd%:e%!12=k*Hd%:e%!16=k*ud%-e%!0:e%!20=k*vd%-e%!4
 6350e%!24=k*ud%-e%!8:e%!28=k*vd%-e%!12:IFvb%THEN
 6360e%!128=xb%:e%!132=Ab%:e%!136=zb%:e%!140=yb%:Cd%+=xb%*T%:Dd%+=yb%*N%
 6370ELSE:e%!128=0:e%!132=dc%/N%:e%!136=cc%/T%:e%!140=0
 6380ENDIF
 6390PROCo(0,""):IFEd%THENPROCkb
 6400ORIGINCd%,Dd%:SYS131118,312,a%(o%,2),a$(o%,1),3,e%+128,0,e%:PROCn:IFNOTFd%THENPROCa(P%):PROCi
 6410ENDPROC
 6420DEFPROCjb(v,Cd%,Dd%,x%,y%,RETURNmc%,RETURNnc%):x%-=Cd%:y%-=Dd%:mc%=Cd%+(x%*COSv+y%*SINv):nc%=Dd%+(-x%*SINv+y%*COSv):ENDPROC
 6430DEFPROCG(t%):LOCALb$,e$:CASEt%OF
 6440WHEN-1:b$="Mean colour in source image":e$="Colour components":PROCq(TRUE):gb%=-1
 6450WHEN0:b$="Select colour":e$="Colour":PROCq(TRUE):gb%=-1
 6460WHEN4:b$="Transform to black & white":e$="Colour weights":PROCq(TRUE):gb%=4
 6470WHEN5:b$="Transform to grey tones":e$="Colour weights":PROCq(TRUE):gb%=5
 6480WHEN6:b$="Convert to black & white (threshold)":e$="Threshold colour":PROCq(TRUE):gb%=7
 6490WHEN7:b$="Add value to all colours":e$="Colour components":PROCq(TRUE):gb%=2
 6500WHEN8:b$="Subtract value from all colours":e$="Colour components":PROCq(TRUE):gb%=3
 6510WHEN9:b$="Apply RGB filter":e$="Filter colour":PROCq(TRUE):gb%=6
 6520WHEN11:b$="Move all colours towards the selected colour":e$="Colour":PROCq(FALSE):gb%=50:$Pa%="Effect":PROCe(Qa%,14)
 6530WHEN12:b$="Isolate a single colour":e$="Isolate colour":PROCq(TRUE):gb%=8
 6540WHEN112:b$="Trace edges":e$="Minimum distance":PROCq(TRUE):gb%=112
 6550WHEN113:b$="Difference filter":e$="Maximum distance":PROCq(TRUE):gb%=113
 6560WHEN200:b$="Clear image":e$="Colour":PROCq(TRUE):gb%=200
 6570ENDCASE
 6580PROCy(Qa%,0):$FNi(Qa%,8)=b$:PROCe(Qa%,8):$FNi(Qa%,9)=e$:PROCe(Qa%,9):PROCt(`%,kb%,lb%,mb%):ENDPROC
 6590DEFPROCMa(Id%,H%,J%,K%,Y%):IFW%=0THEN
 6600e%?0=0:e%?1=H%:e%!2=J%:e%?3=K%:SYS892613,Id%,!e%,L%
 6610ELSE:SYS892613,Id%,Y%,L%
 6620ENDIF
 6630SYS892612,jd%,U%,L%:PROCi:PROCa(P%):ENDPROC
 6640DEFPROCdb(H%,J%,K%,Y%,G%):LOCALJd%,q%,Kd%:IFW%=0THEN
 6650SYS892611,G%TOJd%:IFJd%=-1THENENDPROC
 6660e%?0=0:e%?1=H%:e%?2=J%:e%?3=K%:SYS892611,!e%TOKd%
 6670ELSE:Jd%=G%:Kd%=Y%
 6680ENDIF
 6690FORq%=0TO255:IFq%<>Jd%THENL%?q%=q%ELSEL%?q%=Kd%
 6700NEXT:SYS892612,U%,U%,L%:ld%=0:md%=0:nd%=cc%:od%=dc%:PROCE:ENDPROC
 6710DEFPROCNa(H%,J%,K%,Ld%):LOCALq%,Md%,Nd%,Od%:PROCf:IFO%THENPROCc(TRUE)
 6720FORq%=0TO255:SYS892610,q%TO!e%:Md%=e%?1:Nd%=e%?2:Od%=e%?3:Md%=Md%+(H%-Md%)*Ld%/256:Nd%=Nd%+(J%-Nd%)*Ld%/256:Od%=Od%+(K%-Od%)*Ld%/256:IFMd%<0THENMd%=0
 6730IFNd%<0THENNd%=0
 6740IFOd%<0THENOd%=0
 6750IFMd%>255THENMd%=255
 6760IFNd%>255THENNd%=255
 6770IFOd%>255THENOd%=255
 6780e%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:SYS892611,!e%TOL%?q%:NEXT:PROCg:IFO%THENPROCc(FALSE)
 6790SYS892612,jd%,U%,L%:PROCi:PROCa(P%):ENDPROC
 6800DEFPROCWa:LOCALq%,i%,H%,J%,K%:PROCf:IFO%THENPROCc(TRUE)
 6810IFW%=0THEN
 6820FORq%=0TO255:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:e%?0=0:e%?1=f%(1,1+(H%DIV16)):e%?2=f%(2,1+(J%DIV16)):e%?3=f%(3,1+(K%DIV16)):SYS892611,!e%TOL%?q%:NEXT
 6830ELSE:FORq%=0TO255:L%?q%=f%(1,1+q%DIV16):NEXT
 6840ENDIF
 6850SYS892612,jd%,U%,L%:PROCg:IFO%THENPROCc(0)
 6860PROCi:PROCa(P%):ENDPROC
 6870DEFPROCVa:LOCALq%,H%,J%,K%,Md%,Nd%,Od%,i%,Yc%:PROCf:IFO%THENPROCc(TRUE)
 6880IFW%=0THEN
 6890FORq%=0TO255:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:i%=1+(H%DIV64):Yc%=64*i%-64:Md%=c%(1,i%)+(c%(1,i%+1)-c%(1,i%))*(H%-Yc%)/64:i%=1+(J%DIV64):Yc%=64*i%-64:Nd%=c%(2,i%)+(c%(2,i%+1)-c%(2,i%))*(J%-Yc%)/64:i%=1+(K%DIV64):Yc%=64*i%-64
 6900Od%=c%(3,i%)+(c%(3,i%+1)-c%(3,i%))*(K%-Yc%)/64:IFMd%>255THENMd%=255
 6910IFMd%<0THENMd%=0
 6920IFNd%>255THENNd%=255
 6930IFNd%<0THENNd%=0
 6940IFOd%>255THENOd%=255
 6950IFOd%<0THENOd%=0
 6960e%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:SYS892611,!e%TOL%?q%:NEXT
 6970ELSE:FORq%=0TO255:i%=1+(q%DIV64):Yc%=64*i%-64:Nd%=c%(1,i%)+(c%(1,i%+1)-c%(1,i%))*(q%-Yc%)/64:IFNd%>255THENNd%=255
 6980IFNd%<0THENNd%=0
 6990L%?q%=Nd%:NEXT
 7000ENDIF
 7010SYS892612,jd%,U%,L%:PROCg:IFO%THENPROCc(0)
 7020PROCi:PROCa(P%):ENDPROC
 7030DEFPROCUa(c,d,e):LOCALq%,H%,J%,K%,Md%,Nd%,Od%:PROCf:IFO%THENPROCc(TRUE)
 7040IFW%=0THEN
 7050FORq%=0TO255:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:Md%=255*((H%/255)^c):IFMd%>255THENMd%=255
 7060Nd%=255*((J%/255)^d):IFNd%>255THENNd%=255
 7070Od%=255*((K%/255)^e):IFOd%>255THENOd%=255
 7080e%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:SYS892611,!e%TOL%?q%:NEXT
 7090ELSE:FORq%=0TO255:IFq%>0THENMd%=255*((q%/255)^c)ELSEMd%=0
 7100IFMd%>255THENMd%=255
 7110L%?q%=Md%:NEXT
 7120ENDIF
 7130SYS892612,jd%,U%,L%:PROCg:IFO%THENPROCc(0)
 7140PROCi:PROCa(P%):ENDPROC
 7150DEFPROCRa:LOCALq%,H%,J%,K%,Md%,Nd%,Od%:PROCf:IFO%THENPROCc(TRUE)
 7160FORq%=0TO255:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:Md%=(b%(1,1)*H%+b%(1,2)*J%+b%(1,3)*K%)/255:Nd%=(b%(2,1)*H%+b%(2,2)*J%+b%(2,3)*K%)/255:Od%=(b%(3,1)*H%+b%(3,2)*J%+b%(3,3)*K%)/255:IFMd%>255THENMd%=255
 7170IFNd%>255THENNd%=255
 7180IFOd%>255THENOd%=255
 7190e%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:SYS892611,!e%TOL%?q%:NEXT:PROCg:IFO%THENPROCc(0)
 7200SYS892612,jd%,U%,L%:PROCi:PROCa(P%):ENDPROC
 7210DEFPROClb(Id%):LOCALPd%,G%,V%,q%,Qd%,Rd%,Sd%,h%,s%,v%,n$:PROCf:IFO%THENPROCc(TRUE)
 7220G%=0:FORV%=1TO4:IFV%<>o%THEN
 7230G%+=1:CASEG%OF
 7240WHEN1:n$="Hue"
 7250WHEN2:n$="Saturation"
 7260WHEN3:n$="Value"
 7270ENDCASE
 7280FORq%=0TO255:SYS892610,q%TO!e%:Qd%=e%?1:Rd%=e%?2:Sd%=e%?3:SYS264024,Qd%*256,Rd%*256,Sd%*256TOh%,s%,v%:s%=s%/256:v%=v%/256:IFs%=0THENh%=-1
 7290CASEG%OF
 7300WHEN1:IFh%=-1THEN
 7310Pd%=v%
 7320ELSE:SYS264025,h%,255*256,255*256TOQd%,Rd%,Sd%:e%?0=0:e%?1=Qd%/256:e%?2=Rd%/256:e%?3=Sd%/256:SYS892611,!e%TOPd%
 7330ENDIF
 7340WHEN2:IFId%=1THEN
 7350Pd%=s%
 7360ELSE:e%?0=0:e%?1=s%:e%?2=s%:e%?3=s%:SYS892611,!e%TOPd%
 7370ENDIF
 7380WHEN3:IFId%=1THEN
 7390Pd%=v%
 7400ELSE:e%?0=0:e%?1=v%:e%?2=v%:e%?3=v%:SYS892611,!e%TOPd%
 7410ENDIF
 7420ENDCASE
 7430L%?q%=Pd%:NEXT:SYS892612,a%(V%,3),a%(o%,3),L%:PROCx(V%,n$):PROCk(a%(V%,1))
 7440ENDIF
 7450NEXT:PROCg:IFO%THENPROCc(FALSE)
 7460PROCa(P%):ENDPROC
 7470DEFPROCmb(Id%):LOCALG%,Td%,V%,q%,n$:PROCf:IFO%THENPROCc(TRUE)
 7480G%=0:FORV%=1TO4:IFV%<>o%THEN
 7490G%+=1:CASEG%OF
 7500WHEN1:n$="Red"
 7510WHEN2:n$="Green"
 7520WHEN3:n$="Blue"
 7530ENDCASE
 7540IFId%<>1THEN
 7550CASEG%OF
 7560WHEN1:Td%=65280
 7570WHEN2:Td%=&FF0000
 7580WHEN3:Td%=-16777216
 7590ENDCASE
 7600SYS892613,6,Td%,L%
 7610ELSE:FORq%=0TO255:SYS892610,q%TO!e%:L%?q%=e%?G%:NEXT
 7620ENDIF
 7630SYS892612,a%(V%,3),a%(o%,3),L%:PROCx(V%,n$):PROCk(a%(V%,1))
 7640ENDIF
 7650NEXT:PROCg:IFO%THENPROCc(0)
 7660PROCa(P%):ENDPROC
 7670DEFPROCnb(Id%):LOCALq%,c%,m%,y%,k%,H%,J%,K%,G%,Td%,n$:PROCf:IFO%THENPROCc(TRUE)
 7680H%=`%:J%=kb%:K%=lb%:IFId%<>1THEN
 7690FORq%=0TO255:SYS892610,q%TO!e%:`%=e%?1:kb%=e%?2:lb%=e%?3:PROCob:c%=ob%:m%=pb%:y%=qb%:k%=rb%:ob%=c%:pb%=0:qb%=0:rb%=0:PROCW:PROCC:SYS892611,!e%TOTd%:Z%?q%=Td%:ob%=0:pb%=m%:qb%=0:rb%=0:PROCW:PROCC:SYS892611,!e%TOTd%:Z%?(q%+256)=Td%
 7700ob%=0:pb%=0:qb%=y%:rb%=0:PROCW:PROCC:SYS892611,!e%TOTd%:Z%?(q%+512)=Td%:ob%=0:pb%=0:qb%=0:rb%=k%:PROCW:PROCC:SYS892611,!e%TOTd%:Z%?(q%+768)=Td%:NEXT
 7710ELSE:FORq%=0TO255:SYS892610,q%TO!e%:`%=e%?1:kb%=e%?2:lb%=e%?3:PROCob:Z%?q%=ob%:Z%?(q%+256)=pb%:Z%?(q%+512)=qb%:Z%?(q%+768)=rb%:NEXT
 7720ENDIF
 7730`%=H%:kb%=J%:lb%=K%:G%=0:FORV%=1TO5:IFV%<>o%THEN
 7740CASEG%OF
 7750WHEN0:n$="Cyan"
 7760WHEN1:n$="Magenta"
 7770WHEN2:n$="Yellow"
 7780WHEN3:n$="Key"
 7790ENDCASE
 7800SYS892612,a%(V%,3),a%(o%,3),Z%+256*G%:PROCx(V%,n$):PROCk(a%(V%,1)):G%+=1
 7810ENDIF
 7820NEXT:PROCg:IFO%THENPROCc(0)
 7830PROCa(P%):ENDPROC
 7840DEFPROCpb(p%,Ud%):CASEp%OF
 7850WHEN0,1,13,14:SYS892613,p%,,L%:SYS892612,jd%,U%,L%:PROCa(P%):PROCi
 7860WHEN2,3:IFW%=0THEN
 7870SYS892613,p%,269488128,L%
 7880ELSE:SYS892613,p%,16,L%
 7890ENDIF
 7900SYS892612,jd%,U%,L%:PROCa(P%):PROCi
 7910WHEN4,5,6,7,8,11,12:PROCG(p%)
 7920WHEN9:CASEUd%OF
 7930WHEN0:`%=255:kb%=0:lb%=0:PROCk(Qa%)
 7940WHEN1:`%=0:kb%=255:lb%=0:PROCk(Qa%)
 7950WHEN2:`%=0:kb%=0:lb%=255:PROCk(Qa%)
 7960ENDCASE
 7970PROCG(p%)
 7980WHEN10:CASEUd%OF
 7990WHEN-1
 8000WHEN0:b%()=0:b%(1,2)=255:b%(2,1)=255:b%(3,3)=255
 8010WHEN1:b%()=0:b%(1,3)=255:b%(2,2)=255:b%(3,1)=255
 8020WHEN2:b%()=0:b%(1,1)=255:b%(2,3)=255:b%(3,2)=255
 8030ENDCASE
 8040PROCw(Mc%)
 8050ENDCASE
 8060ENDPROC
 8070DEFPROCPa(f%,p%):IFf%<0ORf%>13THENERROR1,"Illegal filter ("+STR$f%+")"
 8080PROCV:PROCf:IFO%THENPROCc(TRUE)
 8090SYS892614,jd%,U%,f%,p%:PROCg:IFO%THENPROCc(0)
 8100PROCa(P%):PROCi:ENDPROC
 8110DEFPROCQa(c%,Vd%):IFc%<0ORc%>14THENERROR1,"Illegal arithmetic operation ("+STR$c%+")"
 8120IFc%=13THENVd%=Yb%+(255-Yb%)*256
 8130PROCf:IFO%THENPROCc(TRUE)
 8140SYS892617,jd%,U%,c%,Vd%:PROCg:IFO%THENPROCc(0)
 8150PROCa(P%):PROCi:ENDPROC
 8160DEFPROCab(ed%,fd%,r%,gd%,hd%,id%,dd%):LOCALWd%,Xd%,Yd%,i%,a:IFdd%=10ORdd%=12THENWd%=0:Xd%=0:Yd%=0ELSEWd%=255:Xd%=255:Yd%=255
 8170IFdd%=10ORdd%=11THENSWAPWd%,gd%:SWAPXd%,hd%:SWAPYd%,id%
 8180PROCo(0,""):PROCB:PROCM(gd%,hd%,id%):RECTANGLEFILL0,0,cc%,dc%:IFr%>1THEN
 8190FORi%=r%TO1STEP-10:a=i%/r%:PROCM(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):CIRCLEFILLed%,fd%,i%:NEXT
 8200ENDIF
 8210PROCn:PROCa(P%):PROCx(_%,"Shaded"):ENDPROC
 8220DEFPROCbb(Rc%,Sc%,u%,zc%,Wd%,Xd%,Yd%,dd%):LOCALZd%,_d%,a,`d%,ae%,be%,ce%,d%,p,q,i%,gd%,hd%,id%,de%,ee%:IFdd%=14THENgd%=0:hd%=0:id%=0ELSEgd%=255:hd%=255:id%=255
 8230Zd%=Sc%-zc%:_d%=u%-Rc%:IFABS(_d%/Zd%)<0.01THEN_d%=0
 8240PROCf:PROCo(0,""):PROCB:CASETRUEOF
 8250WHENZd%=0AND_d%=0:PROCM(gd%,hd%,id%):RECTANGLEFILL0,0,cc%,dc%
 8260WHEN_d%=0:FOR_d%=0TOdc%STEP12:a=(_d%-Sc%)/(zc%-Sc%):IFa<0THENa=0
 8270IFa>1THENa=1
 8280PROCM(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):RECTANGLEFILL0,_d%,cc%,11:NEXT
 8290WHENZd%=0:FORZd%=0TOcc%STEP12:a=(Zd%-Rc%)/(u%-Rc%):IFa<0THENa=0
 8300IFa>1THENa=1
 8310PROCM(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):RECTANGLEFILLZd%,0,11,dc%:NEXT
 8320OTHERWISE:IF_d%<0THENZd%=-Zd%:_d%=-_d%
 8330IFZd%>0THENae%=dc%:ce%=0ELSEae%=0:ce%=dc%
 8340p=Zd%/SQR(Zd%*Zd%+_d%*_d%):q=_d%/SQR(Zd%*Zd%+_d%*_d%):`d%=-ae%*p/q:be%=cc%-ce%*p/q:de%=Rc%-Sc%*p/q:ee%=u%-zc%*p/q:FORi%=`d%TObe%STEP20:a=(i%-de%)/(ee%-de%):IFa<0THENa=0
 8350IFa>1THENa=1
 8360PROCM(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):MOVEi%,0:MOVEBY 20,0:PLOT113,dc%*p/q,dc%:NEXT
 8370ENDCASE
 8380PROCn:PROCa(P%):PROCx(_%,"Shaded"):PROCg:ENDPROC
 8390DEFPROCM(Wd%,Xd%,Yd%):IFBb%THEN
 8400SYS892672,Wd%,Xd%,Yd%
 8410ELSE:e%?0=0:e%?1=Wd%:e%?2=Xd%:e%?3=Yd%:SYS264003,!e%
 8420ENDIF
 8430ENDPROC
 8440DEFPROCqb(s%,fe%):LOCALc%:CASEs%OF
 8450WHEN0:CASEfe%OF
 8460WHEN0:PROCN(0.85)
 8470WHEN1:PROCN(0.60)
 8480WHEN2:PROCN(0.35)
 8490ENDCASE
 8500WHEN1:CASEfe%OF
 8510WHEN0:PROCN(1.20)
 8520WHEN1:PROCN(1.60)
 8530WHEN2:PROCN(2.00)
 8540ENDCASE
 8550WHEN2:IFge%=2THENPROCIa(U%)ELSEPROCIa(jd%)
 8560WHEN3:PROCrb
 8570WHEN4:PROCsb
 8580WHEN5:`%=0:kb%=0:lb%=0:mb%=0:IFW%=0THEN
 8590FORc%=0TO15:`%+=16*c%*!(ma%+4*c%)/(wd%*kd%):kb%+=16*c%*!(ma%+64+4*c%)/(wd%*kd%):lb%+=16*c%*!(ma%+128+4*c%)/(wd%*kd%):NEXT
 8600ELSE:FORc%=0TO255:mb%+=c%*!(ma%+4*c%)/(wd%*kd%):NEXT
 8610ENDIF
 8620PROCG(-1):PROCk(Jc%)
 8630WHEN6:PROCw(Qb%)
 8640ENDCASE
 8650ENDPROC
 8660DEFPROCIa(d%):IFeb%THEN
 8670SYS892616,,d%,ma%:eb%=0:PROCJa
 8680ENDIF
 8690PROCw(Jc%):PROCk(Jc%):ENDPROC
 8700DEFPROCJa:LOCALh%,v%:Kc%=0:IFW%=0THEN
 8710FORh%=0TO15:v%=ma%!(64*(sb%-1)+192*tb%+4*h%):IFv%>Kc%THENKc%=v%
 8720NEXT
 8730ELSE:FORh%=0TO255:v%=ma%!(1024*tb%+4*h%):IFv%>Kc%THENKc%=v%
 8740NEXT
 8750ENDIF
 8760ENDPROC
 8770DEFPROCrb:PROCf:IFO%THENPROCc(TRUE)
 8780IFW%=0THENPROCtbELSEPROCub
 8790PROCg:IFO%THENPROCc(FALSE)
 8800SYS892612,jd%,U%,L%:PROCx(_%,"Stretched"):PROCa(P%):PROCi:ENDPROC
 8810DEFPROCub:LOCALq%,Y%,b,he%:he%=sb%:IFd%(he%,2)=d%(he%,1)THENERROR1,"The histogram cannot be stretched"
 8820FORq%=0TO255:b=RND(16)-8:Y%=b+255*(q%-d%(he%,1))/(d%(he%,2)-d%(he%,1)):IFY%<0THENY%=0
 8830IFY%>255THENY%=255
 8840L%?q%=Y%:NEXT:ENDPROC
 8850DEFPROCtb:LOCALq%,H%,J%,K%,s%(),l%,b:DIMs%(3,2):FORl%=1TO3:s%(l%,1)=d%(l%,1)*16+15:s%(l%,2)=d%(l%,2)*16+15:NEXT:IFs%(1,1)=s%(1,2)THENERROR1,"RED histogram cannot be stretched"
 8860IFs%(2,1)=s%(2,2)THENERROR1,"GREEN histogram cannot be stretched"
 8870IFs%(3,1)=s%(3,2)THENERROR1,"BLUE histogram cannot be stretched"
 8880FORq%=0TO255:b=RND(16)-8:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:H%=b+255*(H%-s%(1,1))/(s%(1,2)-s%(1,1)):IFH%<0THENH%=0
 8890IFH%>255THENH%=255
 8900J%=b+255*(J%-s%(2,1))/(s%(2,2)-s%(2,1)):IFJ%<0THENJ%=0
 8910IFJ%>255THENJ%=255
 8920K%=b+255*(K%-s%(3,1))/(s%(3,2)-s%(3,1)):IFK%<0THENK%=0
 8930IFK%>255THENK%=255
 8940e%!0=0:e%?1=H%:e%?2=J%:e%?3=K%:SYS892611,!e%TOL%?q%:NEXT:ENDPROC
 8950DEFPROCsb:PROCf:IFO%THENPROCc(TRUE)
 8960IFW%=0THENPROCvbELSEPROCwb
 8970PROCg:IFO%THENPROCc(FALSE)
 8980SYS892612,jd%,U%,L%:PROCx(_%,"Equalized"):PROCa(P%):PROCi:ENDPROC
 8990DEFPROCwb:LOCALq%,j,h%,ie%,b,je%,l,h%,ke%:h%=ma%+1024:ie%=wd%*kd%:FORq%=0TO255:b=RND(2)-1:j=q%:je%=j+b:ke%=h%!(4*je%+4):IFje%=255THENke%=ie%
 9000l=h%!(4*je%)*(1-j+je%)+ke%*(j-je%):j=255*l/ie%:IFj<0THENj=0
 9010IFj>255THENj=255
 9020L%?q%=255-j:NEXT:ENDPROC
 9030DEFPROCvb:LOCALq%,c,d,e,h%,ie%,b,je%,l,le%,ke%:le%=ma%+192:ie%=wd%*kd%:FORq%=0TO255:PROCD(100*q%/256):b=RND(1)-0.5:SYS892610,q%TO!e%:c=e%?1:d=e%?2:e=e%?3:c=(c-15)/16:d=(d-15)/16:e=(e-15)/16:IFc<0THENc=0
 9040IFd<0THENd=0
 9050IFe<0THENe=0
 9060h%=le%:je%=c+b:ke%=h%!(4*je%+4):IFje%=15THENke%=ie%
 9070l=h%!(4*je%)*(1-c+je%)+ke%*(c-je%):c=255*l/ie%:IFc<0THENc=0
 9080IFc>255THENc=255
 9090h%=le%+64:je%=d+b:ke%=h%!(4*je%+4):IFje%=15THENke%=ie%
 9100l=h%!(4*je%)*(1-d+je%)+ke%*(d-je%):d=255*l/ie%:IFd<0THENd=0
 9110IFd>255THENd=255
 9120h%=le%+128:je%=e+b:ke%=h%!(4*je%+4):IFje%=15THENke%=ie%
 9130l=h%!(4*je%)*(1-e+je%)+ke%*(e-je%):e=255*l/ie%:IFe<0THENe=0
 9140IFe>255THENe=255
 9150e%!0=0:e%?1=255-c:e%?2=255-d:e%?3=255-e:SYS892611,!e%TOL%?q%:NEXT:ENDPROC
 9160DEFPROCN(s):LOCALq%,H%,J%,K%,Y%:PROCf:IFO%THENPROCc(TRUE)
 9170IFW%=0THEN
 9180FORq%=0TO255:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:H%=(H%-128)*s+128:IFH%<0THENH%=0
 9190IFH%>255THENH%=255
 9200J%=(J%-128)*s+128:IFJ%<0THENJ%=0
 9210IFJ%>255THENJ%=255
 9220K%=(K%-128)*s+128:IFK%<0THENK%=0
 9230IFK%>255THENK%=255
 9240e%!0=0:e%?1=H%:e%?2=J%:e%?3=K%:SYS892611,!e%TOL%?q%:NEXT
 9250ELSE:FORq%=0TO255:Y%=(q%-128)*s+128:IFY%<0THENY%=0
 9260IFY%>255THENY%=255
 9270L%?q%=Y%:NEXT
 9280ENDIF
 9290PROCg:IFO%THENPROCc(FALSE)
 9300SYS892612,jd%,U%,L%:PROCa(P%):PROCi:ENDPROC
 9310DEFPROCKa:LOCALme%,c%,o,ne%,oe%,pe%:me%=VAL(FNs(Jb%)):IFme%<2ORme%>20THENENDPROC
 9320pe%=VAL(FNs(Lb%)):IFpe%<-360ORpe%>360THENENDPROC
 9330o=VAL(FNs(Mb%)):IFo<0.1ORo>0.99THENENDPROC
 9340ne%=VAL(FNs(Nb%)):IFne%<-500ORne%>500THENENDPROC
 9350oe%=VAL(FNs(Ob%)):IFoe%<-500ORoe%>500THENENDPROC
 9360PROCf:IFO%THENPROCc(TRUE)
 9370FORc%=0TOme%-1:PROCD(00*c%/me%):PROCib(pe%*c%,o^c%,ne%*c%,oe%*c%,0,TRUE):NEXT:PROCg:IFO%THENPROCc(0)
 9380PROCx(_%,"Twisted"):PROCi:PROCa(P%):ENDPROC
 9390DEFPROCDa(x%,y%):LOCALqe%,re%,M%,p%:x%=x%*100/(a%(o%,4)*T%):y%=y%*100/(a%(o%,5)*N%):IFx%<1ORy%<1THENENDPROC
 9400qe%=cc%/(x%*T%):re%=dc%/(y%*N%):IFqe%<2ORre%<2THENENDPROC
 9410M%=500+(qe%+4)*(re%+4):IFM%<8000THEN
 9420p%=Z%
 9430ELSE:p%=FNb(M%):IFp%<=0THENERROR1,"Not able to claim workspace for the mosaic effect"
 9440ENDIF
 9450p%!0=M%:p%!4=0:p%!8=16:p%!12=16:SYS46,256+15,p%,"TEMP",0,qe%,re%,se%:e%!0=qe%:e%!4=re%:e%!8=cc%/T%:e%!12=dc%/N%:PROCo(p%,"TEMP"):SYS131118,308,a%(o%,2),a$(o%,1),0,0,8,e%,-1:PROCn:e%!0=cc%/T%:e%!4=dc%/N%:e%!8=qe%:e%!12=re%:PROCo(0,""):PROCB
 9460SYS131118,256+52,p%,"TEMP",0,0,8,e%,-1:PROCn:PROCa(P%):PROCi:IFp%<>Z%THENPROCX(p%)
 9470ENDPROC
 9480DEFPROCxb(me%,te%,b):LOCALG%,qe%,re%,x%,y%:PROCf:IFO%THENPROCc(TRUE)
 9490PROCo(0,""):PROCkb:GCOL63TINT255:RECTANGLEFILL0,0,ud%,vd%:FORx%=1TOwd%STEPme%/T%:FORy%=1TOkd%STEPme%/N%:SYS892609,,U%,x%,kd%-y%+1TOG%:PROCfb(G%):qe%=x%*T%+RND(T%*b)-T%*b/2:re%=y%*N%+RND(N%*b)-N%*b/2:CIRCLEFILLqe%,re%,te%:NEXT:NEXT:PROCn:PROCg:IFO%THENPROCc(0)
 9500PROCx(_%,"Pointilize"):PROCi:PROCa(P%):ENDPROC
 9510DEFPROCyb(s%):LOCALx%,y%,G%:IFs%=2THENs%=3
 9520s%=s%*8+6:PROCV:PROCf:IFO%THENPROCc(TRUE)
 9530PROCo(0,""):PROCkb:FORy%=1TOkd%STEP3:PROCD(100*y%/kd%):FORx%=1TOwd%STEP3:SYS892609,,U%,x%,kd%-y%+1TOG%:IFW%=0THENSYS892611,G%TOG%
 9540G%=G%EOR(RND(2)-1):IFW%=0THENSYS892610,G%TOG%
 9550PROCfb(G%):MOVE(x%+4-RND(8))*T%,(y%+4-RND(8))*N%:DRAWBY RND(4)-s%,RND(6)-s%*2:NEXT:NEXT:PROCn:PROCg:IFO%THENPROCc(0)
 9560PROCx(_%,"Scratched"):PROCi:PROCa(P%):ENDPROC
 9570DEFPROCkb:IFvb%THEN
 9580ORIGINxb%*T%,yb%*N%:VDU24,0;0;ud%-T%;vd%-N%;
 9590ELSE:ORIGIN0,0:VDU26
 9600ENDIF
 9610ENDPROC
 9620DEFPROCB:IFvb%THEN
 9630VDU24,xb%*T%;yb%*N%;xb%*T%+ud%-T%;yb%*N%+vd%-N%;
 9640ELSE:ORIGIN0,0:VDU26
 9650ENDIF
 9660ENDPROC
 9670DEFPROCzb(ue%,ve%):LOCALG%,v,i%,d%:CASEue%OF
 9680WHEN0:IFve%>=0THENPROCyb(ve%)
 9690WHEN1:PROCw(Nc%)
 9700WHEN2:PROCG(112)
 9710WHEN3:PROCr(1)
 9720WHEN4:CASEve%OF
 9730WHEN-1,0:PROCxb(20,9,2)
 9740WHEN1:PROCxb(10,20,5)
 9750WHEN2:PROCxb(10,10,15)
 9760ENDCASE
 9770WHEN5:PROCw(Kb%)
 9780WHEN6:IFve%=0ORve%=1THENPROCTa(ve%+1)
 9790WHEN7:PROCw(Xb%)
 9800WHEN8:CASEve%OF
 9810WHEN0,1:CASEwa%OF
 9820WHEN0:PROCpb(ve%+13,0)
 9830WHEN1:IFwe%<>63THENERROR1,"Works only in 256 colour modes"
 9840PROCAb(ve%+11)
 9850WHEN2:va%=TRUE:SYS892613,ve%+11,,L%
 9860ENDCASE
 9870WHEN2,3,4:wa%=ve%-2
 9880ENDCASE
 9890WHEN9:PROCTa(3)
 9900WHEN10:FORi%=0TO63STEP4:G%=4*RND(64)-4:e%?0=G%:e%?1=G%+1:e%?2=G%+2:e%?3=G%+3:L%!(i%*4)=!e%:NEXT:SYS892612,jd%,U%,L%:PROCi:PROCa(P%)
 9910WHEN11:PROCr(101):Ta%=3
 9920WHEN12:CASEve%OF
 9930WHEN0:PROCBb
 9940WHEN1:PROCCb
 9950ENDCASE
 9960WHEN13:v=VAL(FNs(ca%)):d%=SQR((cc%/2)^2+(dc%/2)^2):PROCf:IFO%THENPROCc(TRUE)
 9970PROCD(10):FORi%=0TO2047:Z%!(4*i%)=(1<<16)*SIN(2*PI*i%/2048):NEXT:PROCD(20):FORi%=0TO2047:Z%!(4*i%+8200)=16*SQR(i%):NEXT:PROCD(30):CASEve%OF
 9980WHEN0:PROCJ(D,jd%,U%,Z%,v*23301.7/d%,Z%+8200,d%*16)
 9990WHEN1:PROCJ(E,jd%,U%,Z%,v*23301.7/d%,Z%+8200,d%*16)
10000WHEN2:PROCJ(F,jd%,U%,Z%,v,Z%+8200,0)
10010ENDCASE
10020PROCg:IFO%THENPROCc(FALSE)
10030PROCi:PROCa(P%)
10040ENDCASE
10050ENDPROC
10060DEFPROCBb:LOCALi%,Gd%,Hd%,y%,xe%,ye%,t,t%:IFcc%<dc%THEN
10070Gd%=wd%:Hd%=cc%/N%
10080ELSE:Gd%=kd%*N%/T%:Hd%=kd%
10090ENDIF
10100Gd%=Gd%/2:Hd%=Hd%/2:PROCf:IFO%THENPROCc(TRUE)
10110FORi%=0TOkd%:Z%!(4*i%)=wd%/2-1:NEXT:FORy%=kd%/2-Hd%TOkd%/2+Hd%:t=(1-((y%-kd%/2)/Hd%)^2):xe%=wd%/2+Gd%*SQR(ABS(t)):ye%=wd%-xe%:IFxe%<ye%THENt%=xe%ELSEt%=ye%
10120IFt%=wd%/2THENt%-=1
10130Z%!(4*y%)=t%:NEXT:SYS892615,jd%,U%,4,Z%:PROCg:IFO%THENPROCc(FALSE)
10140PROCi:PROCa(P%):ENDPROC
10150DEFPROCCb:LOCALi%:PROCf:IFO%THENPROCc(TRUE)
10160FORi%=0TOkd%:Z%!(4*i%)=0.5*wd%*i%/kd%:NEXT:SYS892615,jd%,U%,4,Z%:PROCg:IFO%THENPROCc(FALSE)
10170PROCi:PROCa(P%):ENDPROC
10180DEFPROCAb(c%):LOCALx%,y%,vc%:SYS892613,c%,,L%:REPEAT:PROCfa:MOUSEx%,y%,vc%:UNTILvc%=2:ENDPROC
10190DEFPROCfa:LOCALze%,Ae%:IFwe%<>63THENva%=0:ERROR1,"Works only in 256 colour modes"
10200IFwb%THENAe%=ga%ELSEAe%=-1
10210SYS892612,jd%,jd%,L%:b%!0=P%:b%!4=0:b%!8=0:b%!12=32700:b%!16=32700:fa%!0=a%(_%,4)*ea%!0:fa%!4=a%(_%,5)*ea%!4:SYS262345,,b%TOze%:WHILEze%:SYS131118,308,a%(_%,2),a$(_%,1),b%!4-b%!20,b%!16-b%!24,,fa%,Ae%:SYS262346,,b%TOze%:ENDWHILE:ENDPROC
10220DEFPROCTa(Ld%):LOCALBe%:PROCf:IFO%THENPROCc(TRUE)
10230CASELd%OF
10240WHEN0:IFib%THEN
10250FORBe%=0TO2047:Z%!(4*Be%)=hb%*(1+SIN(Be%*f*N%))/T%:NEXT:SYS892615,jd%,U%,4,Z%
10260ELSE:FORBe%=0TO2047:Z%!(4*Be%)=hb%*SIN(Be%*f*N%)/T%:NEXT:SYS892615,jd%,U%,0,Z%
10270ENDIF
10280PROCx(_%,"Rippled")
10290WHEN1:SYS892615,jd%,U%,1,255
10300WHEN2:SYS892615,jd%,U%,1,0
10310WHEN3:SYS892615,jd%,U%,2
10320ENDCASE
10330PROCg:IFO%THENPROCc(0)
10340PROCi:PROCa(P%):ENDPROC
10350DEFPROCLa(Ce%,p%,pd%):PROCf:IFO%THENPROCc(TRUE)
10360IFpd%=2THEN
10370SYS892618,jd%,p%,Ce%:PROCk(P%)
10380ELSE:SYS892618,U%,p%,Ce%:PROCk(X%)
10390ENDIF
10400PROCg:IFO%THENPROCc(0)
10410ENDPROC
10420DEFPROCCa:LOCALi%,m$:m$="Tidy images|=,":FORi%=1TODa%:CASEi%OF
10430WHENo%:m$+="Source|,"
10440WHEN_%:m$+="Destination|,"
10450OTHERWISE:m$+=STR$(i%)+"|,"
10460ENDCASE
10470NEXT:PROCh(Da%+1,-1,"Images",LEFT$(m$,LENm$-1)):FORi%=1TODa%:PROCs(1,i%,a%(i%,6)<>0):NEXT:PROCj(2,1,NOTCa%):PROCj(2,3,NOTCa%):PROCj(2,2,Ca%):ge%=1:ENDPROC
10480DEFPROCYa(i%):fb%=i%:$Ya%=STR$(a%(i%,4)):$Xa%=a$(i%,2):ge%=-i%:ENDPROC
10490DEFPROC`(wc%):LOCALi%:IFwc%=2THENi%=o%ELSEi%=_%
10500PROCsa(i%):PROCs(13,0,Ea%):PROCs(13,1,O%):PROCs(13,2,Fa%):PROCs(13,3,Ga%=1):PROCs(16,5,NOTvb%):PROCs(16,6,vb%):PROCj(16,6,NOTub%):PROCj(16,4,NOTub%):fb%=i%:$Ya%=STR$(a%(i%,4)):$Xa%=a$(i%,2):PROCj(10,3,eb%):PROCj(10,4,eb%):PROCj(10,5,eb%):PROCj(14,0,NOTub%):PROCj(14,1,NOTub%)
10510PROCj(14,2,NOTub%):PROCj(14,3,NOTub%):PROCj(14,4,NOTub%):PROCj(14,5,NOTub%):PROCj(14,6,NOTub%):PROCj(14,7,NOTub%):PROCs(21,2,wa%=0):PROCs(21,3,wa%=1):PROCs(21,4,wa%=2):PROCs(26,6,Bb%):FORi%=0TO7:PROCs(25,i%,Va%=i%):NEXT:ge%=wc%:ENDPROC
10520DEFPROCDb(t%):LOCALG%:W%=t%:PROCj(16,1,t%):PROCs(13,4,t%):PROCj(18,5,t%):PROCj(18,9,t%):PROCj(18,10,t%):PROCj(18,11,t%):PROCj(18,13,t%):PROCj(18,14,t%):PROCK(Jc%,1,t%):PROCK(Jc%,2,t%):PROCK(Jc%,3,t%):IFDa%<4THENPROCS(18,13)
10530IFDa%<5THENPROCS(18,14)
10540CASEW%OF
10550WHEN0:*RMLoad <Process$Dir>.Resources.ColourPro
10560Ma%=FALSE:PROCd(Na%,4,FALSE):$Pa%="Effect":PROCq(1):G%=7
10570WHEN1:*RMLoad <Process$Dir>.Resources.GreyPro
10580Ma%=TRUE:PROCd(Na%,4,TRUE):$Pa%="Grey":PROCq(0):G%=3
10590ENDCASE
10600PROCT(Qa%,0,G%):PROCT(Qa%,1,G%):PROCT(Qa%,2,G%):eb%=TRUE:d%()=0:ENDPROC
10610DEFPROCq(De%):IFDe%ANDW%=1THENENDPROC
10620nb%=De%:IFDe%THENPROCT(Qa%,14,3)ELSEPROCT(Qa%,14,7)
10630ENDPROC
10640DEFPROCra:LOCALm$:Ee%=aa%+100:Fe%=ba%+300:e%(1)=ba%:PROCh(5,2,"Process","Info|[Info]=,Views|>1<,Create image ...|=,Drop file|,Quit|"):PROCh(1,4,"Degrees"," |(08Rot)")
10650m$="Noise (weak)|,Noise (strong)|=,Average|,Smoothen (weak)|,Smoothen (strong)|,Median|,Sharpen|=,Vertical edges|,Horizontal edges|,Edges (emboss)|=,Minimum|,Maximum|=,Difference ...|":PROCh(13,5,"Filters",m$)
10660PROCh(3,6,"Swap colours","Red <> Green|,Red <> Blue|,Green <> Blue|"):PROCh(3,7,"Change","Small|,Medium|,Much|"):PROCh(3,8,"Scratch","Short|,Medium|,Long|"):PROCh(3,9,"Filter","Red|,Green|,Blue|")
10670m$="Reduce range|>7<,Expand range|>7<=,Calculate histogram ...|,Stretch|,Equalise|,Transfer median|=,Colour correction|[NonLin]":PROCh(7,10,"Range",m$):PROCh(3,11,"Style","Dots|,Overlap|,Wild|")
10680m$="Source + Dest|,Source - Dest|,Dest - Source|=,Source EOR Dest|,Source AND Dest|,Source OR Dest|,Source = Dest|,Source <> Dest|,Source < Dest|,Source > Dest|=,MAX(Source;Dest)|,MIN(Source;Dest)|=,Overlay|,Combine|[Mark],ABS(Source - Dest)|"
10690PROCh(15,12,"Dest =",m$):m$="Automatic swap|,Disable DMA|,Show toolbox|,Normal panning|,Display in greytones|":PROCh(5,13,"Options",m$)
10700m$="Extend top|,Extend bottom|,Extend right|,Extend left|=,Top neighbour|,Bottom neighbour|,Right neighbour|,Left neighbour|":PROCh(8,14,"Select area",m$):PROCh(2,15,"Extend�area","White|,Black|")
10710m$="Radial to black|,Radial to white|,Radial from black|,Radial from white|,Linear to black|,Linear to white|=,Use dithering|":PROCh(7,26,"Shading",m$)
10720m$="Clear...|,Flip about X-axis|,Flip about Y-axis|,Rotate|>4<,Shading|>26<=,Distort triangle|,Distort quadrangle|=,Smudge|":PROCh(8,24,"More tools",m$)
10730m$="Image info|[Image],Convert to greyscale|,Copy source image|=,Select area|>14<,Clear area|=,Use full image|,Use selected area|":PROCh(7,16,"Image",m$):PROCh(8,25,"Plot type","Set|=,OR|,AND|,EOR|,Invert|,Don't plot|,AND NOT|,OR NOT|")
10740PROCh(4,17,"Misc","Options|>13<,Edit pencil/spraycan ...|,Plot type|>25<=,Reload last|"):PROCh(2,27,"","True colours|,8 bit per pixel|")
10750m$="Invert|,Remove TINT|=,Brighten|,Darken|=,Black & White ...|,Greytones ...|,Threshold ...|=,Add colour ...|"
10760m$+=",Sub colour ...|,RGB filter ...|>9<,Translate ...|>6<,Shade ...|=,Isolate ...|,RGB separation|>27<,CMYK separation|>27<,HSV separation|>27<":PROCh(16,18,"Process",m$):m$="Up|,Down|=,Only once|,Repeatedly|,Multi-tasking|"
10770PROCh(5,21,"Cycle",m$):PROCh(2,28,"Squash","Circle|,Triangle|"):m$="Whirl|>4<,Son of Whirl|>4<,Whirl revisted|>4<":PROCh(3,29,"Whirl type",m$)
10780m$="Scratch|>8<,Ripple ...|[Ripple],Trace edges ...|,Mosaic ...|,Pointillise|>11<,Twist|[Twist],Extend area|>15<,Add noise|[Noise],Cycle bytes|>21<,Mask|,Mix colours|,Wheel|,Squash|>28<,Whirl|>29<":PROCh(14,19,"Effects",m$)
10790m$="Image|>16<,Miscellaneous|>17<,Contrast/range|>10<,Process|>18<,Filters|>5<,Effects|>19<,Arithmetic|>12=<,More tools|>24<=,Swap images|,Save image|[Save],Zoom|[Zoom]":PROCh(11,20,"Process",m$)
10800m$="Copy from source|,Copy from destination|=,Copy to source|,Copy to destination|":PROCh(4,22,"Copy",m$):m$="Use as source|,Use as destination|=,Copy|>22<,Reload last|,Save image|[Save],Zoom|[Zoom]":PROCh(6,23,"Process",m$)
10810IFDa%<4THENPROCS(18,13):PROCS(18,15)
10820IFDa%<5THENPROCS(18,14)
10830ENDPROC
10840DEFFNs(a%):SYS891331,a%,e%,13:=$e%
10850DEFFNe(f$):WHILEINSTR(f$,".")>0:f$=MID$(f$,INSTR(f$,".")+1):ENDWHILE:=f$
10860DEFPROCaa:LOCALM%,Ge%,f$,Id%:f$="<Process$Dir>.Resources.XSprites":SYS53,-1,5TO,,Ge%:IFGe%<2THEN
10870SYS8,5,f$+"22"TOId%:IFId%=1THENf$=f$+"22"
10880ENDIF
10890SYS8,5,f$TO,,,,M%:M%+=16:DIMcd% M%:cd%!0=M%:cd%!4=0:cd%!8=16:cd%!12=16:SYS46,256+10,cd%,f$:ENDPROC
10900DEFPROCoa:LOCALHe%,Ie%,n%,Je%,i%,w%,s%:He%=262363:Ie%=262337:n%=Q%:Je%=6000:s%=cd%:SYS262361,,"<Process$Dir>.Resources.Templates":SYSHe%,,b%,n%,Q%+Je%,-1,"Info"TO,,n%:SYSIe%,,b%TOIa%:SYSHe%,,b%,n%,Q%+Je%,-1,"Save"TO,,n%:b%!64=s%:SYSIe%,,b%TONa%
10910SYSHe%,,b%,n%,Q%+Je%,-1,"Zoom"TO,,n%:b%!64=s%:SYSIe%,,b%TOZa%:SYSHe%,,b%,n%,Q%+Je%,-1,"Select"TO,,n%:b%!64=s%:SYSIe%,,b%TOQa%:SYSHe%,,b%,n%,Q%+Je%,-1,"Histogram"TO,,n%:b%!64=s%:SYSIe%,,b%TOJc%
10920SYSHe%,,b%,n%,Q%+Je%,-1,"Translate"TO,,n%:SYSIe%,,b%TOMc%:SYSHe%,,b%,n%,Q%+Je%,-1,"Wobble"TO,,n%:b%!64=s%:SYSIe%,,b%TONc%:SYSHe%,,b%,n%,Q%+Je%,-1,"ImageInfo"TO,,n%:SYSIe%,,b%TObc%:SYSHe%,,b%,n%,Q%+Je%,-1,"Twist"TO,,n%:SYSIe%,,b%TOKb%
10930SYSHe%,,b%,n%,Q%+Je%,-1,"NonLin"TO,,n%:b%!64=s%:SYSIe%,,b%TOQb%:SYSHe%,,b%,n%,Q%+Je%,-1,"Noise"TO,,n%:b%!64=s%:SYSIe%,,b%TOXb%:SYSHe%,,b%,n%,Q%+Je%,-1,"Tools"TO,,n%:b%!64=s%:SYSIe%,,b%TOec%
10940SYSHe%,,b%,n%,Q%+Je%,-1,"Dest"TO,,n%:b%!64=s%:SYSIe%,,b%TOfc%:SYSHe%,,b%,n%,Q%+Je%,-1,"Range"TO,,n%:b%!64=s%:SYSIe%,,b%TODc%:SYSHe%,,b%,n%,Q%+Je%,-1,"SubTool"TO,,n%:b%!64=s%:SYSIe%,,b%TOgc%
10950SYSHe%,,b%,n%,Q%+Je%,-1,"Create"TO,,n%:b%!64=s%:SYSIe%,,b%TO`a%:SYSHe%,,b%,n%,Q%+Je%,-1,"Pencil"TO,,n%:b%!64=s%:SYSIe%,,b%TOHb%:FORi%=1TODa%:SYSHe%,,b%,n%,Q%+Je%,-1,"Source"TO,,n%:SYSIe%,,b%TOw%:a%(i%,1)=w%:NEXT:SYS262362:ENDPROC
10960DEFPROCh(Ke%,h%,j$,t$):LOCALb$,k$,d$,c$,Le%,Me%,Ne%,I%,Qc%,Oe%,Pe%:IFh%<0THENQe%=e%(-h%)ELSEQe%=Fe%
10970Re%=Qe%:IFLENj$>11THENj$=LEFT$(j$,11)
10980$Re%=j$:Qc%=16*LENj$+8:Re%!12=459271:Re%!20=44:Re%!24=0:Re%+=28:FORI%=1TOKe%:Le%=-1:Me%=0:Ne%=0:Pe%=0:b$=LEFT$(t$,INSTR(t$,",")-1):Oe%=INSTR(b$,"|"):k$=LEFT$(b$,Oe%-1):c$=MID$(b$,Oe%+1):IFINSTR(c$,">")THEN
10990d$=MID$(c$,INSTR(c$,">")+1):d$=LEFT$(d$,INSTR(d$,"<")-1):Le%=e%(VAL(d$))
11000ENDIF
11010IFINSTR(c$,"[")THEN
11020d$=MID$(c$,INSTR(c$,"[")+1):d$=LEFT$(d$,INSTR(d$,"]")-1):CASEd$OF
11030WHEN"Info":Le%=Ia%
11040WHEN"Save":Le%=Na%
11050WHEN"Zoom":Le%=Za%
11060WHEN"Image":Le%=bc%
11070WHEN"Twist":Le%=Kb%
11080WHEN"Ripple":Le%=Nc%
11090WHEN"NonLin":Le%=Qb%
11100WHEN"Noise":Le%=Xb%
11110WHEN"Mark":Le%=Dc%
11120OTHERWISE:ERROR1,"Unknown window :"+d$
11130ENDCASE
11140ENDIF
11150IFINSTR(c$,"(")THEN
11160d$=MID$(c$,INSTR(c$,"(")+1):d$=LEFT$(d$,INSTR(d$,")")-1):CASEMID$(d$,3)OF
11170WHEN"Rot":Re%!12=ca%
11180ENDCASE
11190Re%!16=-1:Re%!20=EVALLEFT$(d$,2):Me%=4:Pe%=1:Qc%=16+16*Re%!20
11200ELSE:Oe%=LENk$:IFOe%>11THEN
11210Re%!12=Ee%:Re%!16=-1:Re%!20=Oe%+1:$Ee%=k$:Ee%+=Oe%+2:Pe%=1
11220ELSE:$(Re%+12)=k$
11230ENDIF
11240IF16+16*Oe%>Qc%THENQc%=16+16*Oe%
11250ENDIF
11260IFINSTR(c$,"=")THENNe%=2
11270t$=MID$(t$,INSTR(t$,",")+1):Re%!0=Ne%ORMe%:Re%!4=Le%:Re%!8=&7000021ORPe%<<8:Re%+=24:NEXT:Re%!-24=(Re%!-24OR128):Qe%!16=Qc%:IFh%>=0THENFe%+=28+24*Ke%:e%(h%)=Qe%
11280ENDPROC
11290DEFPROCEb(b%):CASEb%!0OF
11300WHEN0:PROCw(Ia%)
11310WHEN1:IFb%!4<=0THENPROCuaELSEPROCa(a%(b%!4,1))
11320WHEN2:PROCw(`a%)
11330WHEN3:PROCY
11340WHEN4:sa%=TRUE
11350ENDCASE
11360ENDPROC
11370DEFPROCFb(b%):CASEb%!0OF
11380WHEN0:CASEb%!4OF
11390WHEN0:PROCw(bc%)
11400WHEN1:PROCGb
11410WHEN2:PROCV
11420WHEN3:CASEb%!8OF
11430WHEN-1:PROCr(2)
11440WHEN0,1,2,3,4,5,6,7:PROC_a(b%!8)
11450ENDCASE
11460WHEN4:PROCv(0):ub%=0
11470WHEN5,6:PROCv(b%!4-5)
11480ENDCASE
11490WHEN1:CASEb%!4OF
11500WHEN0:CASEb%!8OF
11510WHEN0:Ea%=NOTEa%
11520WHEN1:O%=NOTO%
11530WHEN2:Fa%=NOTFa%:IFFa%THEN
11540IFa%(o%,6)<>0THENPROCa(X%)
11550IFa%(_%,6)<>0THENPROCa(P%)
11560ELSE:PROCl(ec%):PROCl(fc%)
11570ENDIF
11580WHEN3:Ga%=1-Ga%
11590WHEN4:PROCHb(NOTwb%)
11600ENDCASE
11610WHEN1:PROCa(Hb%)
11620WHEN2:CASEb%!8OF
11630WHEN-1:Va%=0
11640OTHERWISE:Va%=b%!8
11650ENDCASE
11660WHEN3:IFge%=2THENPROCIb(o%)ELSEPROCIb(_%)
11670ENDCASE
11680WHEN2:PROCqb(b%!4,b%!8)
11690WHEN3:CASEb%!4OF
11700WHEN13:PROCmb(b%!8)
11710WHEN14:PROCnb(b%!8)
11720WHEN15:PROClb(b%!8)
11730OTHERWISE:PROCpb(b%!4,b%!8)
11740ENDCASE
11750WHEN4:CASEb%!4OF
11760WHEN0,1,2,3,4,5,6,7,8,9,10,11:PROCPa(b%!4,0)
11770WHEN12:PROCG(113)
11780ENDCASE
11790WHEN5:PROCzb(b%!4,b%!8)
11800WHEN6:PROCQa(b%!4,0)
11810WHEN7:CASEb%!4OF
11820WHEN0:PROCG(200)
11830WHEN1:PROChb(33,o%)
11840WHEN2:PROChb(47,o%)
11850WHEN3:PROCib(VAL(FNs(ca%)),1,0,0,TRUE,0)
11860WHEN4:CASEb%!8OF
11870WHEN0,1,2,3,4,5:PROCr(101):Ta%=10+b%!8
11880WHEN6:Bb%=NOTBb%
11890ENDCASE
11900WHEN5:PROCr(101):Ta%=1
11910WHEN6:PROCr(101):Ta%=2
11920WHEN7:PROCr(101):Ta%=20
11930ENDCASE
11940WHEN8:PROCHa
11950WHEN9:PROCw(Na%)
11960WHEN10:PROCw(Za%)
11970ENDCASE
11980ENDPROC
11990DEFPROCla(b%):CASEge%OF
12000WHEN1:PROCEb(b%)
12010WHEN2,3:PROCFb(b%)
12020OTHERWISE:IFge%<0THEN
12030CASEb%!0OF
12040WHEN0:PROCJb(-ge%):ge%=2
12050WHEN1:PROCKb(-ge%):ge%=3
12060WHEN2:CASEb%!4OF
12070WHEN0:PROCF(o%,-ge%):PROCk(a%(-ge%,1))
12080WHEN1:PROCF(_%,-ge%):PROCk(a%(-ge%,1))
12090WHEN2:PROCF(-ge%,o%):PROCk(X%)
12100WHEN3:PROCF(-ge%,_%):PROCk(P%)
12110ENDCASE
12120WHEN3:PROCIb(-ge%)
12130WHEN4:PROCw(Na%)
12140WHEN5:PROCw(Za%)
12150ENDCASE
12160ENDIF
12170ENDCASE
12180SYS262351,,b%:IF(b%!8AND1)THEN
12190CASEge%OF
12200WHEN1:PROCCa:SYS262356,,e%(2),Bc%,Cc%
12210WHEN2,3:PROC`(ge%):SYS262356,,e%(20),Bc%,Cc%
12220OTHERWISE:IFge%<0THEN
12230PROCYa(-ge%):SYS262356,,e%(23),Bc%,Cc%
12240ENDIF
12250ENDCASE
12260ENDIF
12270ENDPROC
12280DEFPROCw(w%):SYS262356,,w%,za%/2-200,Aa%/2+300:ENDPROC
12290DEFPROCS(p%,n%):p%=e%(p%)+36+n%*24:!p%=(!p%OR4194304):ENDPROC
12300DEFPROCj(p%,n%,s%):p%=e%(p%)+36+n%*24:IFs%THEN!p%=(!p%OR4194304)ELSE!p%=(!p%ANDNOT4194304)
12310ENDPROC
12320DEFPROCs(p%,n%,t%):p%=e%(p%)+28+n%*24:IFt%THEN!p%=(!p%OR1)ELSE!p%=(!p%ANDNOT1)
12330ENDPROC
12340DEFPROCf:SYS263872:ENDPROC
12350DEFPROCg:SYS263873:ENDPROC
12360DEFPROCD(p%):SYS263876,p%:ENDPROC
12370DEFPROCHb(Se%):LOCALi%:wb%=Se%:PROCLb:FORi%=1TODa%:PROCk(a%(i%,1)):NEXT:PROCs(13,4,wb%):ENDPROC
12380DEFPROCMb(V%):LOCALq%,H%,J%,K%:FORq%=0TO255:SYS892610,q%TO!e%:H%=e%?1:J%=e%?2:K%=e%?3:L%?q%=H%*0.3+J%*0.55+K%*0.15:NEXT:SYS892612,a%(V%,3),a%(V%,3),L%:ENDPROC
12390DEFPROCGb:PROCf:PROCHb(TRUE):FORV%=1TODa%:PROCD(100*(V%-1)/Da%):PROCMb(V%):NEXT:PROCDb(1):PROCg:ENDPROC
12400DEFPROCb(j%!12,j%!16,j%!8):IFj%!12<>-1THENSYS661120,,j%
12410IFj%!8=0THENJa%=-1ELSEJa%=j%!12:qc%=j%!16
12420ENDPROC
12430DEFPROCd(w%,i%,f%):j%!0=w%:j%!4=i%:SYS262350,,j%:CASEf%OF
12440WHEN0:j%!8=j%!24ANDNOT(1<<21)
12450WHEN1,-1:j%!8=j%!24OR(1<<21)
12460WHEN2:j%!8=j%!24EOR(1<<21)
12470ENDCASE
12480j%!12=-1:SYS262349,,j%:ENDPROC
12490DEFPROCT(w%,i%,Te%):j%!0=w%:j%!4=i%:SYS262350,,j%:j%!8=(j%!24ANDNOT(15<<24))ORTe%<<24:j%!12=-1:SYS262349,,j%:ENDPROC
12500DEFPROCK(w%,i%,f%):j%!0=w%:j%!4=i%:SYS262350,,j%:IFf%THENj%!8=j%!24OR(1<<22)ELSEj%!8=j%!24ANDNOT(1<<22)
12510j%!12=-1:SYS262349,,j%:ENDPROC
12520DEFPROCe(w%,i%):j%!0=w%:j%!4=i%:j%!8=0:j%!12=0:SYS262349,,j%:ENDPROC
12530DEFFNi(w%,i%):b%!0=w%:b%!4=i%:SYS262350,,b%:=b%!28
12540DEFPROCba(pa%,l%):SYS29,0,pa%,,l%:ENDPROC
12550DEFFNb(s%):LOCALf%,p%,Ue%:SYS131101,2,pa%,,s%TO,,p%;f%:IFf%AND1THEN
12560SYS393452,pa%+pa%!8+256+s%-32768,-1TOf%;Ue%:IF(Ue%AND1)<>0THEN=-1
12570f%+=32768:SYS131101,5,pa%,,f%-pa%-pa%!12TO;Ue%:IF(Ue%AND1)<>0THEN=-1
12580SYS131101,2,pa%,,s%TO,,p%;f%:IFf%AND1THENp%=-1
12590ENDIF
12600=p%
12610DEFPROCX(RETURNp%):IFp%<=0THENENDPROC
12620SYS131101,3,pa%,p%:SYS131101,5,pa%,,pa%!8-pa%!12:SYS393452,pa%+pa%!12-32768,-1:p%=-1:ENDPROC
12630DEFPROCpa:SYS53,-1,3TO,,we%:SYS53,-1,4TO,,Ve%:Ve%=(1<<Ve%):SYS53,-1,5TO,,We%:We%=(1<<We%):SYS53,-1,11TO,,za%:za%=za%*Ve%:SYS53,-1,12TO,,Aa%:Aa%=Aa%*We%:SYS262381,296,cd%,"RANGEMARK",,,,ha%,ia%:PROCLb:u$="ptr_mosaic":w$="ptr_brush"
12640r$="ptr_menuw":x$="ptr_hand":ENDPROC
12650DEFPROCLb:LOCALbd%,Ge%,i%,p%:SYS53,-1,4TO,,bd%:bd%=(1<<bd%):SYS53,-1,5TO,,Ge%:Ge%=(1<<Ge%):IFwb%THEN
12660FORi%=0TO255:e%?0=0:e%?1=i%:e%?2=i%:e%?3=i%:SYS264004,!e%TOga%?i%:NEXT
12670ELSE:SYS264000,15,0,-1,-1,ga%
12680ENDIF
12690IFCa%THEN
12700ea%!0=ud%:ea%!4=vd%:ea%!8=wd%*bd%*100:ea%!12=kd%*Ge%*100:fa%!8=ea%!8:fa%!12=ea%!12
12710ENDIF
12720ENDPROC
12730DEFPROCt(H%,J%,K%,Y%):LOCALze%,x%,y%:`%=H%:kb%=J%:lb%=K%:mb%=Y%:H%=2*H%:J%=2*J%:K%=2*K%:Y%=2*Y%:b%!0=Qa%:b%!4=136:b%!8=76:b%!12=780:b%!16=268:SYS262345,,b%TOze%:x%=b%!4-b%!20+136:y%=b%!16-b%!24:WHILEze%:SYS262374,1:RECTANGLEFILLx%+2+H%,y%+244,512-H%,23
12740RECTANGLEFILLx%+2+J%,y%+188,512-J%,23:RECTANGLEFILLx%+2+K%,y%+132,512-K%,23:RECTANGLEFILLx%+2+Y%,y%+76,512-Y%,23:IFW%=0THEN
12750SYS892672,`%:RECTANGLEFILLx%,y%+244,H%,23:SYS892672,,kb%:RECTANGLEFILLx%,y%+188,J%,23:SYS892672,,,lb%:RECTANGLEFILLx%,y%+132,K%,23:IFnb%THENSYS262374,2ELSESYS262374,7
12760RECTANGLEFILLx%,y%+76,Y%,23:SYS892672,`%,kb%,lb%:RECTANGLEFILLx%+544,y%+132,68,132
12770ELSE:SYS262374,2:RECTANGLEFILLx%,y%+244,H%,23:RECTANGLEFILLx%,y%+188,J%,23:RECTANGLEFILLx%,y%+132,K%,23:SYS262374,7:RECTANGLEFILLx%,y%+76,Y%,23:SYS892672,mb%,mb%,mb%:RECTANGLEFILLx%+544,y%+132,68,132
12780ENDIF
12790SYS262346,,b%TOze%:ENDWHILE:ENDPROC
12800DEFPROCgb:PROCNb(1):ENDPROC
12810DEFPROCu:PROCNb(0):ENDPROC
12820DEFPROCNb(Xe%):LOCALze%,x%,y%,m,n:b%!0=X%:b%!4=0:b%!8=0:b%!12=32700:b%!16=32700:SYS262345,,b%TOze%:x%=b%!4-b%!20:y%=b%!16-b%!24:WHILEze%:PROCOb(x%,y%):IFXe%ANDvb%THEN
12830SYS262374,71:m=a%(o%,4)*T%/100:n=a%(o%,5)*N%/100:RECTANGLEx%+m*xb%,y%+n*yb%,m*(zb%-xb%),n*(Ab%-yb%)
12840ENDIF
12850SYS262346,,b%TOze%:ENDWHILE:ENDPROC
12860DEFPROCia(b%):LOCALze%,x%,y%,u%,p%,h%,u,Ad%,m,n,g,Ae%,s$:SYS262344,,b%TOze%:x%=b%!4-b%!20:y%=b%!16-b%!24:WHILEze%:CASEb%!0OF
12870WHENKb%,Na%,Za%:SYS530049,,b%
12880WHENIa%:PROCPb(cd%,"Info",x%+632,y%-220):SYS530049,,b%
12890WHENXb%,bc%,`a%:SYS530049,,b%
12900WHENDc%:SYS46,308,cd%,"RANGEMARK",x%+8+2*Yb%,y%+24,0,ha%,ia%:SYS530049,,b%
12910WHENX%:PROCQb(x%,y%,o%):PROCOb(x%,y%):IFvb%THEN
12920SYS262374,71:m=a%(o%,4)*T%/100:n=a%(o%,5)*N%/100:RECTANGLEx%+m*xb%,y%+n*yb%,m*(zb%-xb%),n*(Ab%-yb%)
12930ENDIF
12940WHENJc%:IFW%=0THEN
12950p%=ma%+64*(sb%-1)+192*tb%:u=255/Kc%:FORh%=0TO15:RECTANGLEFILLx%+32*h%,y%+80,28,u*(p%!(h%*4)):NEXT:MOVEx%+32*d%(sb%,1),y%+36:PLOT101,x%+32*d%(sb%,2),y%+48
12960ELSE:p%=ma%+1024*tb%:u=255/Kc%:FORh%=0TO255:RECTANGLEFILLx%+2*h%,y%+80,2,u*(p%!(h%*4)):NEXT:MOVEx%+2*d%(sb%,1),y%+36:PLOT101,x%+2*d%(sb%,2),y%+48
12970ENDIF
12980SYS530049,,b%
12990WHENNc%:FORAd%=0TO400STEP5:u%=28+hb%*SIN(Ad%*f):IFAd%=0THENMOVEu%+x%,Ad%+y%-4ELSEDRAWu%+x%,Ad%+y%-4
13000NEXT:SYS530049,,b%
13010WHENgc%:PROC`a(b%)
13020WHENMc%:FORh%=0TO3:u%=x%+216*(h%-1)+24:SYS262374,11:RECTANGLEFILLu%,y%+80,60,b%(h%,1):SYS262374,10:RECTANGLEFILLu%+64,y%+80,60,b%(h%,2):SYS262374,8:RECTANGLEFILLu%+128,y%+80,60,b%(h%,3):NEXT:SYS530049,,b%
13030WHENQb%:x%+=20:y%+=84:CASESb%OF
13040WHEN1:g=a(Rb%):MOVEx%,y%:FORu%=8TO256STEP8:Ad%=((u%/256)^g)*256:IFAd%>256THENAd%=256
13050DRAWx%+u%,y%+Ad%:NEXT
13060WHEN2:SYS262374,3:FORu%=64TO192STEP64:MOVEx%+u%,y%:DRAWBY 0,256:MOVEx%,y%+u%:DRAWBY 256,0:NEXT:SYS262374,7:FORu%=0TO4:Ad%=c%(Rb%,u%+1):IFu%=0THENMOVEx%+64*u%,y%+Ad%ELSEDRAWx%+64*u%,y%+Ad%
13070NEXT
13080WHEN4:FORu%=0TO15:RECTANGLEFILLx%+16*u%,y%,15,f%(Rb%,u%+1):NEXT
13090ENDCASE
13100SYS530049,,b%
13110WHENQa%:u%=x%+136:IFW%=0THEN
13120SYS892672,`%:RECTANGLEFILLu%,y%+244,`%*2,23:SYS892672,,kb%:RECTANGLEFILLu%,y%+188,kb%*2,23:SYS892672,,,lb%:RECTANGLEFILLu%,y%+132,lb%*2,23:IFnb%THENSYS262374,2ELSESYS262374,7
13130RECTANGLEFILLu%,y%+76,mb%*2,23:SYS892672,`%,kb%,lb%:RECTANGLEFILLx%+680,y%+132,68,132
13140ELSE:SYS262374,2:RECTANGLEFILLu%,y%+244,`%*2,23:RECTANGLEFILLu%,y%+188,kb%*2,23:RECTANGLEFILLu%,y%+132,lb%*2,23:SYS262374,7:RECTANGLEFILLu%,y%+76,mb%*2,23:SYS892672,mb%,mb%,mb%:RECTANGLEFILLx%+680,y%+132,68,132
13150ENDIF
13160CASEwe%OF
13170WHEN1,3:s$="MODE15":Ae%=ga%:h%=4
13180WHEN15:Ae%=-1:h%=1:s$="MODE12COL":IFwb%THENs$="MODE12BW"
13190OTHERWISE:s$="MODE15":h%=4:IFwb%THENAe%=ga%ELSEAe%=-1
13200ENDCASE
13210ja%!0=h%*256:ja%!4=h%*256:ja%!8=128*Ve%:ja%!12=64*We%:SYS46,308,cd%,s$,x%+800,y%+20,,ja%,Ae%:SYS530049,,b%
13220WHENHb%:CIRCLEFILLx%+656,y%+96,Cb%:CASEGb%OF
13230WHEN1:RECTANGLEFILLx%+656-Eb%,y%+348-Fb%,Eb%*2,Fb%*2
13240WHEN2:CIRCLEFILLx%+656,y%+348,Eb%
13250WHEN3:ELLIPSEFILLx%+656,y%+348,Eb%,Fb%
13260ENDCASE
13270u%=x%+80:zc%=y%+308:RECTANGLEFILLu%-4,zc%-4,8:RECTANGLEFILLu%+48-8,zc%-8,16:RECTANGLEFILLu%+96-16,zc%-16,32:CIRCLEFILLu%+144,zc%,6:CIRCLEFILLu%+192,zc%,12:CIRCLEFILLu%+240,zc%,24:ELLIPSEFILLu%+288,zc%,4,24:ELLIPSEFILLu%+336,zc%,8,24:ELLIPSEFILLu%+384,zc%,16,24:SYS530049,,b%
13280OTHERWISE:h%=FNa(b%!0):IFh%>0THENPROCQb(x%,y%,h%)
13290ENDCASE
13300SYS262346,,b%TOze%:ENDWHILE:ENDPROC
13310DEFPROCOb(x%,y%):IFg%!0<=0THENENDPROC
13320SYS262374,71:PROCcb(x%,y%,1):ENDPROC
13330DEFPROCcb(x%,y%,z%):LOCALd%,p%,u%,zc%,Ye%,Ze%,_e%,`e%:FORd%=1TOg%!0:p%=g%+12*d%-8:IFz%THEN
13340u%=x%+p%!4*a%(o%,4)/100:zc%=y%+p%!8*a%(o%,5)/100
13350ELSE:u%=x%+p%!4:zc%=y%+p%!8
13360ENDIF
13370CASEp%!0OF
13380WHEN0:MOVEu%,zc%
13390WHEN1:PLOT101,u%,zc%
13400WHEN2:DRAWu%,Ze%:DRAWu%,zc%:DRAWYe%,zc%:DRAWYe%,Ze%
13410WHEN3:PLOT157,u%,zc%
13420WHEN4:PLOT149,u%,zc%
13430WHEN5:DRAWu%,zc%
13440WHEN9:PLOT85,u%,zc%
13450WHEN10:DRAWu%,zc%:DRAW_e%,`e%
13460WHEN11:PLOT117,u%,zc%
13470WHEN12:DRAWu%,zc%:DRAWBY _e%-Ye%,`e%-Ze%:DRAW_e%,`e%
13480WHEN13:PLOT205,u%,zc%
13490WHEN14:PLOT197,u%,zc%
13500ENDCASE
13510_e%=Ye%:`e%=Ze%:Ye%=u%:Ze%=zc%:NEXT:IFz%=0THENPROCR
13520ENDPROC
13530DEFPROCR:ld%=T%*`b%!4:md%=N%*`b%!8:nd%=T%*`b%!12:od%=N%*`b%!16:ENDPROC
13540DEFPROCE:LOCALh,i,ze%,x%,y%:h=a%(o%,4)/100:i=a%(o%,5)/100:b%!0=X%:b%!4=h*ld%:b%!8=i*md%:b%!12=h*nd%+h*T%:b%!16=i*od%+i*N%:SYS262345,,b%TOze%:x%=b%!4-b%!20:y%=b%!16-b%!24:h=h*T%:i=i*N%:WHILEze%:PROCQb(x%,y%,o%):IFvb%THEN
13550SYS262374,71:RECTANGLEx%+h*xb%,y%+i*yb%,h*(zb%-xb%),i*(Ab%-yb%)
13560ENDIF
13570SYS262346,,b%TOze%:ENDWHILE:ENDPROC
13580DEFFNa(af%):LOCALi%:FORi%=1TODa%:IFa%(i%,1)=af%THEN=i%
13590NEXT:=0
13600DEFPROCQb(x%,y%,i%):LOCALAe%,Ue%:IFwe%>15ANDNOTwb%THENAe%=-1ELSEAe%=ga%
13610fa%!0=a%(i%,4)*ea%!0:fa%!4=a%(i%,5)*ea%!4:SYS131118,308,a%(i%,2),a$(i%,1),x%,y%,0,fa%,Ae%TO;Ue%:IF(Ue%AND1)<>0THENa$(i%,1)=FNc(a%(i%,2))
13620ENDPROC
13630DEFPROCPb(p%,s$,x%,y%):SYS262381,296,p%,s$,,,,ja%,ka%:SYS46,308,p%,s$,x%,y%,0,ja%,ka%:ENDPROC
13640DEFPROCk(w%):SYS262353,w%,-30000,-30000,30000,30000:ENDPROC
13650DEFPROCKb(i%):IFi%=_%THENENDPROC
13660_%=i%:P%=a%(i%,1):jd%=a%(i%,3):PROCy(P%,0):PROCy(P%,TRUE):IFvb%THENPROCv(3):PROCv(0):ub%=0
13670ENDPROC
13680DEFPROCJb(i%):IFi%=o%THENENDPROC
13690PROCv(3):o%=i%:X%=a%(i%,1):U%=a%(i%,3):PROCy(X%,0):PROCy(X%,TRUE):IFub%THENPROCv(0):ub%=0
13700ENDPROC
13710DEFPROCU:LOCALi%:FORi%=1TODa%:IFa%(i%,2)>0THENPROCX(a%(i%,2)):a%(i%,2)=0
13720NEXT:Ca%=0:ENDPROC
13730DEFPROCRb(i%):LOCALp%,s%,M%:p%=a%(i%,3):p%!0=wd%:p%!4=kd%:p%!8=T%:p%!12=N%:p%!48=se%:M%=1000+(wd%+4)*(kd%+4):s%=FNb(M%):IFs%<=0THENPROCU:ERROR1,"No room to create another view"
13740a%(i%,2)=s%:a$(i%,1)="PROCESSED":s%!0=M%:s%!4=0:s%!8=16:s%!12=16:SYS46,256+15,s%,a$(i%,1),0,wd%,kd%,se%:PROCZ(p%,s%,a$(i%,1)):a$(i%,2)="Processed":ENDPROC
13750DEFFNc(p%):LOCALn$,M%:SYS46,256+13,p%,e%,16,1TO,,,M%:e%?M%=13:n$=FNs(e%):=n$
13760DEFPROCZ(p%,Xe%,n$):LOCALUd%:Ud%=Xe%+Xe%!8:p%!16=4*(Ud%!16+1):p%!20=(p%!16)*(Ud%!20+1):p%!24=Ud%+Ud%!32:p%!28=Xe%:$(p%+32)=n$+CHR$0:p%!52=p%!0*p%!8:p%!56=p%!4*p%!12:ENDPROC
13770DEFPROCIb(i%):LOCALbf%,M%,a$,cf%,Ue%:SYS8,5,a$(i%,2)TObf%,,cf%,,M%:IF((cf%>>8)AND4095)<>4089THENERROR1,"You can only reload spritefiles"
13780IFbf%<>1THENERROR1,"File '"+a$(i%,2)+"' not found"
13790IFM%<>df%THENERROR1,"File has changed"
13800SYS131118,256+10,a%(i%,2),a$(i%,2)TO;Ue%:IFNOTUe%THENERROR1,"Not enough room in sprite area"
13810a$=FNc(a%(i%,2)):a$(i%,1)=a$:SYS46,256+54,a%(i%,2),a$:PROCSb(a%(i%,2)):PROCZ(a%(i%,3),a%(i%,2),a$):IFW%=1THENPROCMb(i%)
13820PROCa(a%(i%,1)):ENDPROC
13830DEFPROCY:LOCALi%:FORi%=1TODa%:PROCX(a%(i%,2)):PROCl(a%(i%,1)):a%(i%,2)=0:NEXT:vb%=0:ub%=0:Ca%=0:wb%=FALSE:PROCd(ec%,0,0):PROCd(ec%,1,0):PROCd(ec%,2,0):PROCd(ec%,3,0):ENDPROC
13840DEFPROCya(b%):LOCALM%,V%:SYS262351,,j%:V%=FNa(j%!12):IFV%<=0THENERROR1,"You can't load that file there!!"
13850IFNOTCa%THENERROR1,"No image loaded"
13860SYS8,5,b%+44TO,,,,M%:IFM%<>256THENERROR1,"Not a map-file"
13870SYS8,255,b%+44,L%:SYS892612,a%(V%,3),a%(V%,3),L%:PROCk(a%(V%,1)):ENDPROC
13880DEFPROCTb(b%,M%,f$,i%):LOCALn$,x%,y%,ef%,ff%:IFM%<>df%THENENDPROC
13890SYS46,256+10,a%(i%,2),f$:n$=FNc(a%(i%,2)):SYS46,256+40,a%(i%,2),n$TO,,,x%,y%,,ef%:IFef%<>se%THENERROR1,"The sprite is in a wrong mode""
13900IFx%<>wd%ORy%<>kd%THENERROR1,"Size doesn't match"
13910SYS53,ef%,3TO,,ff%:IFff%<>63THENERROR1,"Not a 256 colour sprite"
13920a$(i%,1)=n$:a$(i%,2)=f$:SYS46,256+54,a%(i%,2),n$:PROCSb(a%(i%,2)):PROCZ(a%(i%,3),a%(i%,2),a$(i%,1)):IFW%=1THENPROCMb(i%)
13930PROCa(a%(i%,1)):ENDPROC
13940DEFPROCxa(b%):LOCALbf%,M%,p%,n$,x%,y%,ef%,ff%,f$,V%:f$=FNs(b%+44):SYS8,5,f$TObf%,,,,M%:IFbf%<>1THENENDPROC
13950SYS262351,,j%:V%=FNa(j%!12):IFV%>0THENPROCTb(b%,M%,f$,V%):ENDPROC
13960IFCa%THENPROCY
13970p%=FNb(M%+20):IFp%<=0THENPROCU:ERROR1,"No room to load image"
13980p%!0=M%+20:p%!4=0:p%!8=16:p%!12=16:SYS46,256+10,p%,f$:n$=FNc(p%):SYS46,256+40,p%,n$TO,,,x%,y%,,ef%:SYS53,ef%,3TO,,ff%:IFff%<>63THENPROCX(p%):ERROR1,"Not a 256 colour sprite"
13990df%=M%:PROCSb(p%):i$="Sprite (MODE "+STR$ef%+")":IFgf%THENi$+=" Grey"
14000PROC_(f$,x%,y%,ef%,p%,n$,gf%,0):IFgf%THENSYS892612,U%,U%,L%:PROCHb(TRUE)
14010ENDPROC
14020DEFPROCSb(s%):LOCALhf%,if%,jf%,i%,Y%,kf%,Qd%,Rd%,Sd%:gf%=FALSE:hf%=s%+s%!8:if%=hf%+hf%!32:jf%=hf%!32:IFhf%!36<jf%THENjf%=hf%!36
14030CASETRUEOF
14040WHENjf%=2092:Y%=TRUE:kf%=hf%+44:FORi%=0TO255:Qd%=kf%?(8*i%+1):Rd%=kf%?(8*i%+2):Sd%=kf%?(8*i%+3):IFQd%<>Rd%ORRd%<>Sd%ORQd%<>Sd%THENY%=FALSE
14050L%?i%=Qd%:NEXT:IFY%THENgf%=TRUE
14060PROCUb(hf%,s%)
14070WHENjf%>44:PROCUb(hf%,s%)
14080ENDCASE
14090ENDPROC
14100DEFPROCUb(hf%,lf%):LOCALi%,mf%:mf%=hf%!32-44:SYS891328,hf%+mf%+44,lf%!0-hf%!32-lf%!8,hf%+44:hf%!0=hf%!0-mf%:hf%!32=hf%!32-mf%:hf%!36=hf%!36-mf%:lf%!0=lf%!0-mf%:lf%!12=lf%!12-mf%:ENDPROC
14110DEFPROCza(b%):LOCALp%,f$,bf%,M%:f$=FNs(b%+44):SYS8,5,f$TObf%,,,,M%:IFbf%<>1THENENDPROC
14120IFM%<>65536THENERROR1,"Not an AIM image file"
14130SYS262351,,j%:IFj%!12<>-2THENERROR1,"You can only load AIM images thru the icon bar"
14140IFCa%THENPROCY
14150p%=FNb(66000):IFp%<=0THENPROCU:ERROR1,"No room to load image"
14160p%!0=66000:p%!4=0:p%!8=16:p%!12=16:SYS46,256+15,p%,"AIM_Image",0,256,256,21:SYS8,255,f$,p%+60:df%=65536:PROC_(f$,256,256,21,p%,"AIM_Image",TRUE,2):i$="AIM":ENDPROC
14170DEFPROC_(f$,x%,y%,ef%,p%,n$,Y%,Id%):LOCALi%,bd%,Ge%:PROCf:a%(o%,2)=p%:a$(o%,1)=n$:a$(o%,2)=f$:SYS46,256+54,p%,n$:SYS53,ef%,4TO,,bd%:SYS53,ef%,5TO,,Ge%:se%=ef%:wd%=x%:kd%=y%:ud%=x%*(1<<bd%):vd%=y%*(1<<Ge%):cc%=ud%:dc%=vd%:T%=1<<bd%:N%=1<<Ge%
14180p%=a%(o%,3):p%!0=wd%:p%!4=kd%:p%!8=(1<<bd%):p%!12=(1<<Ge%):p%!48=se%:PROCZ(p%,a%(o%,2),n$):n$=FNe(f$):FORi%=1TODa%:IFi%<>o%THENPROCRb(i%)
14190PROCVb(i%,FALSE):NEXT:Ca%=TRUE:PROCva:PROCv(0):IFY%THENwb%=TRUE:PROCDb(1)ELSEPROCDb(0)
14200PROCLb:PROCg:ENDPROC
14210DEFPROCx(i%,n$):SYS46,256+26,a%(i%,2),a$(i%,1),n$:a$(i%,1)=n$:PROCVb(i%,TRUE):ENDPROC
14220DEFPROCI(i%):PROCVb(i%,TRUE):ENDPROC
14230DEFPROCVb(i%,nf%):LOCALt$,f$,M%:f$=a$(i%,2):$Z%="Process "+f$+" "+FNe(f$)+" "+a$(i%,1)+" "+STR$se%+" "+STR$wd%+" "+STR$kd%+" "+STR$i%+" "+STR$(a%(i%,4))+" "+STR$(a%(i%,5)):SYS67,Z%OR(1<<31),e%,255,o$,LENo$TO,,M%:e%?M%=13:t$=$e%:j%!0=a%(i%,1):SYS262348,,j%:$(j%!76)=t$
14240IFnf%SYS262368,,j%:SYS262353,-1,j%!4,j%!8,j%!12,j%!16
14250ENDPROC
14260DEFPROCwa(of%,i%):LOCALg$,kf%,h%,p%,hf%,d%:g$=FNs(of%):IFNOTFNh(g$)THENERROR1,"To save, drag the icon to a directory viewer or to another Process viewer"
14270PROCf:IFMa%THEN
14280SYS13,131,g$TOh%:p%=a%(i%,2):SYS12,2,h%,p%+4,12:hf%=p%+p%!8:PROCO(h%,2048+hf%!0):SYS12,2,h%,hf%+4,28:PROCO(h%,hf%!32+2048):PROCO(h%,hf%!36+2048):PROCO(h%,se%):FORkf%=0TO255:IFW%=0THEN
14290SYS892610,kf%TOe%!0
14300ELSE:e%?0=0:e%?1=kf%:e%?2=kf%:e%?3=kf%
14310ENDIF
14320PROCO(h%,e%!0):PROCO(h%,e%!0):NEXT:d%=a%(i%,3):SYS12,2,h%,d%!24,d%!20:SYS13,0,h%:SYS8,18,g$,4089
14330ELSE:SYS46,256+12,a%(i%,2),g$
14340ENDIF
14350IFg$<>"<Wimp$Scrap>"THEN
14360a$(i%,2)=g$:SYS8,5,g$TO,,,,df%:PROCI(i%)
14370ENDIF
14380PROCg:ENDPROC
14390DEFPROCO(h%,w%):e%!0=w%:BPUT#h%,e%?0:BPUT#h%,e%?1:BPUT#h%,e%?2:BPUT#h%,e%?3:ENDPROC
14400DEFFNd(h%):e%?0=BGET#h%:e%?1=BGET#h%:e%?2=BGET#h%:e%?3=BGET#h%:=e%!0
14410DEFFNh(f$):IFf$="<Wimp$Scrap>"THENLa%=TRUE
14420IF(INSTR(f$,".")<1ANDINSTR(f$,":")<1)ANDf$<>"<Wimp$Scrap>"THEN=0
14430=-1
14440DEFPROCc(k%):IFk%THENSYS26,768,3840ELSESYS26,3328,3840
14450ENDPROC
14460DEFPROCSa:LOCALl$,bd%,Ge%,p%,M%:bd%=VAL(FNs(_a%)):Ge%=VAL(FNs(ab%)):l$=FNs(bb%):IFl$=""THENERROR1,"The image has no name"
14470IFbd%<20ORbd%>999ORGe%<20ORGe%>999THENERROR1,"Illegal image size"
14480M%=(bd%+4)*(Ge%+4)+1000:p%=FNb(M%):IFp%<=0THENPROCU:ERROR1,"No room to create the new image"
14490p%!0=M%:p%!4=0:p%!8=16:p%!12=16:SYS46,256+15,p%,l$,0,bd%,Ge%,cb%:df%=M%:i$="Sprite (MODE "+STR$cb%+")":PROC_("NewImage",bd%,Ge%,cb%,p%,l$,FALSE,0):ENDPROC
14500DEFPROCob:ob%=255-`%:pb%=255-kb%:qb%=255-lb%:rb%=ob%:IFpb%<rb%THENrb%=pb%
14510IFqb%<rb%THENrb%=qb%
14520ob%=ob%-rb%:pb%=pb%-rb%:qb%=qb%-rb%:ENDPROC
14530DEFPROCW:`%=255-(ob%+rb%):kb%=255-(pb%+rb%):lb%=255-(qb%+rb%):ENDPROC
14540DEFPROCAa(b%):LOCALf$,h%,n$,a%,c%,x%,y%,pf%,p%,Ud%,H%,J%,K%,Y%,kf%,jc%,i%,bf%,M%,ef%:f$=FNs(b%+44):SYS8,5,f$TObf%,,,,M%:IFbf%<>1THENENDPROC
14550PROCf:SYS262351,,j%:IFj%!12<>-2THENERROR1,"You can only load Clear images thru the icon bar"
14560IFCa%THENPROCY
14570SYS13,67,f$TOh%:n$="":a%=BGET#h%:WHILEa%<>0:n$+=CHR$a%:a%=BGET#h%:ENDWHILE:a%=FNd(h%):x%=FNd(h%):y%=FNd(h%):pf%=FNd(h%):IFpf%<>8THENERROR1,"Process only accepts 8 bpp Clear images"
14580Y%=TRUE:FORkf%=0TO255:H%=BGET#h%:J%=BGET#h%:K%=BGET#h%:L%?kf%=H%:IFH%<>J%ORJ%<>K%ORH%<>K%THENY%=FALSE
14590NEXT:IFNOTY%THENCLOSE#h%:ERROR1,"Process only accepts grey scaled Clear images"
14600M%=(x%+4)*(y%+4)+1000:p%=FNb(M%):IFp%<=0THENCLOSE#h%:PROCU:ERROR1,"No room to load the image"
14610df%=M%:p%!0=M%:p%!4=0:p%!8=16:p%!12=16:SYS46,256+15,p%,"ClearImage",0,x%,y%,21:IF(x%MOD4)=0THEN
14620SYS12,4,h%,p%+60,x%*y%
14630ELSE:Ud%=p%+60:jc%=4*((x%+4)DIV4):FORi%=1TOy%:SYS12,4,h%,Ud%,x%:Ud%+=jc%:NEXT
14640ENDIF
14650SYS13,0,h%:PROC_(f$,x%,y%,21,p%,"ClearImage",TRUE,1):SYS892612,U%,U%,L%:i$="Clear (8bpp, greyscale)":PROCg:ENDPROC

�> <Process$Dir>.!RunImage
�q$="1.15 (28-Jul-1993)":�f:�b% 2000,Q% 6000,aa% 2600,ba% 5300,ca% 20,da% 3000:�e% 256,L% 256,ea% 16,fa% 16,ga% 256,ha% 16,ia% 16,ja% 16,ka% 16:�la% 512,ma% 2100,Z% 16400,na% 2400,g% 256
��d%(3,2),b%(3,3),e%(40),a(3),c%(3,5),f%(3,16):�a%(10,6),a$(10,2),g%(30):�aa:j%=b%+1000:$b%="TASK":ș262336,200,!b%,"Colour"+�160+"processing"�,oa%:ș530050,oa%:�=�+24576:�=�-256
('pa%=�:�ba(pa%,256):�ca:�g:�da:��ea
2yș66�qa%:ra%=0:ȕsa%=0:ș262343,,b%�ta%:ș530054,ta%,,oa%:ș530056,ta%,b%,oa%�ta%:�ta%=6�ș66�ua%:ra%=ua%-qa%:qa%=ua%
<
Ȏta%�
F�0:�va%�wa%=2��fa
P�xa%��ga
Z�ya%>100��ha
d�1:�ia(b%)
n�2:�y(b%!0,�)
x�3:�l(b%!0)
��6:�ja(b%)
��7:�ka(b%)
��8:ș262364,b%!24
��9:�la(b%)
��17,18:�ma(b%)
��
��:�na:Ș
�>��da:ș262353,-1,za%/2-500,Aa%/2-400,za%/2+500,Aa%/2+400:�
� ��na:ș262365:ș530051,oa%:�
�"��ca:�Ba%,c%,h$,p%,a$:��ea:Ș
��ș8,255,"<Process$Dir>.Resources.Code.Distort",da%:ș8,255,"<Process$Dir>.Resources.Code.Whirl",da%+1400:r=da%:D=da%+1400:E=da%+1404:F=da%+1408:Ca%=0:a%()=0:a$()="":�p%=1�9:a%(p%,3)=na%+(p%-1)*256:a%(p%,4)=100:a%(p%,5)=100:�:Da%=4
�2h$=�f("Process$Options"):p%=�h$,"-max"):�p%>0�
�/a$=�h$,p%+4,1):p%=�(a$):�p%>=2�p%<=9�Da%=p%
�
 p%=�h$,"-dma"):�p%�O%=��O%=0
#p%=�h$,"-swap"):�p%�Ea%=��Ea%=0
"$p%=�h$,"-tools"):�p%�Fa%=��Fa%=0
,"p%=�h$,"-pan"):�p%�Ga%=1�Ga%=0
6�o$=�f("Process$WindowTitle"):ș6,161,28�,,p%:Ha%=(p%�2)<>0:�oa:o%=1:_%=2:X%=a%(o%,1):P%=a%(_%,1):$�i(Ia%,3)=q$:sa%=0:Ja%=-1:ya%=0:Ka%=0:La%=0:W%=0:Ma%=�:�d(Na%,4,�):Oa%=�:Pa%=�i(Qa%,14):Ra%=1:Sa%=0:xa%=�:Ta%=0:Ua%=0
@�Va%=0:Wa%=�:g%()=0:g%(1)=1:�w 12:$w="!PROCESS":!b%=-1:b%!4=0:b%!12=64:b%!8=0:b%!16=72:b%!20=12546:b%!24=w:b%!28=1:b%!32=�$w+1:ș262338,,b%�Ba%:Xa%=�i(Na%,1):Ya%=�i(Za%,0):_a%=�i(`a%,10):ab%=�i(`a%,14):bb%=�i(`a%,1):cb%=13
J�$_a%="100":$ab%="100":$bb%="NewImage":db%=0:eb%=�:fb%=1:d%()=0:gb%=-1:hb%=100:f=0.05:ib%=�:jb%=60:`%=128:kb%=128:lb%=128:mb%=128:nb%=�:ob%=128:pb%=128:qb%=128:rb%=0:sb%=1:tb%=0:ub%=0:vb%=�:wb%=�:xb%=0:yb%=0:zb%=0:Ab%=0:$ca%="45"+�0
T�Bb%=�:Cb%=40:Db%=20:Eb%=10:Fb%=10:Gb%=0:�d(Hb%,1,1):Ib%=�i(Hb%,15):$Ib%="20":Jb%=�i(Kb%,9):Lb%=�i(Kb%,12):Mb%=�i(Kb%,15):Nb%=�i(Kb%,18):Ob%=�i(Kb%,21):$Jb%="4":$Lb%="45":$Mb%="0.80":$Nb%="0":$Ob%="0":Pb%=�i(Qb%,6):$Pb%="1.00"
^�Rb%=1:a()=1:Sb%=1:Tb%=0:Ub%=1:Vb%=1:Wb%=�i(Xb%,10):$Wb%="10":�c%=1�5:c%(1,c%)=(c%-1)*64:c%(2,c%)=(c%-1)*64:c%(3,c%)=(c%-1)*64:�:�c%=1�16:f%(1,c%)=c%*16-1:f%(2,c%)=c%*16-1:f%(3,c%)=c%*16-1:�:Yb%=128:Zb%=0:_b%=0:wa%=0:va%=0:�pa
h#!g%=0:�qa(0):�ra:ș90,-1�,`b%:�
r5ݤf(v$):�M%:ș35,v$,e%,255,0�,,M%:e%?M%=0:=�s(e%)
|M��sa(i%):�a$,ac%:$�i(bc%,4)=a$(i%,1):a$=a$(i%,2):�a$>23�a$="..."+�a$,20)
��$�i(bc%,5)=a$:a$=�(cc%/T%)+" x "+�(dc%/N%):$�i(bc%,6)=a$:$�i(bc%,7)=i$:ac%=cc%*dc%/(T%*N%):a$=�(ac%)+" (":ac%=(ac%�1024):�ac%<=0�ac%=1
�$�i(bc%,8)=a$+�(ac%)+"k)":�
���l(w%):�V%:Ȏw%�
�+�Qa%:Oa%=0:�b(w%,13,0):Zb%=�:�db%=3��ta
��d(ec%,7,0)
�+�X%:j%!0=ec%:ș262342,,j%:a%(o%,6)=0:�m
�(�P%:j%!0=fc%:ș262342,,j%:a%(_%,6)=0
��gc%:Wa%=�
� :V%=�a(w%):�V%>0�a%(V%,6)=0
��
�-j%!0=w%:ș262342,,j%:�w%<>gc%�Wa%��l(gc%)
��
�:��y(w%,hc%):�ic%,jc%,kc%,lc%:b%!0=w%:kc%=�:lc%=�:Ȏw%�
�X%,P%:�Fa%�
)ic%=ec%:jc%=136:�w%=P%�ic%=fc%:jc%=72
j%!0=ic%:�hc%�
&4j%!4=b%!4-jc%-2:j%!8=b%!16-1000:�b%!4<jc%�j%!4=0
0:j%!12=j%!4+jc%:j%!16=b%!16:j%!20=0:j%!24=0:j%!28=b%!28
:�:ș262347,,j%:j%!28=-1
D�
N"ș262341,,j%:�hc%ș262347,,b%
X b%!28=ic%:ș262341,,b%:kc%=�
b�
l�Qa%:Oa%=�:�d(ec%,7,1)
v�gc%:Wa%=�
��
�	�kc%�
��hc%ș262347,,b%:b%!28=-1
�ș262341,,b%
��
�!ic%=�a(w%):�ic%>0�a%(ic%,6)=1
��w%<>gc%�Wa%��l(gc%)
��
�F��ua:�n%,i%,mc%,nc%,oc%,jc%,x%,y%:n%=0:�i%=1�Da%:�a%(i%,6)=1�n%+=1
��:�n%<=1��
��n%=2�nc%=1
��n%>2�n%<6�nc%=2
��n%>6�nc%=3
�nc%=1�mc%=2�mc%=(n%+1)/nc%
Boc%=za%/mc%:jc%=Aa%/nc%:x%=0:y%=Aa%-jc%:�i%=1�Da%:�a%(i%,6)=1�
~b%!0=a%(i%,1):ș262347,,b%:b%!4=x%:b%!12=b%!4+oc%-48:b%!8=y%:b%!16=b%!8+jc%-48:�y(b%!0,�):x%+=oc%:�x%=mc%*oc%�x%=0:y%-=jc%
 �
*�:�
4&��a(w%):�y(w%,0):�y(w%,�):�k(w%):�
>A��P(w%,x%,y%):b%!0=0:b%!4=0:b%!8=x%:b%!12=y%:ș262359,w%,b%:�
HI��va:�i%:�i%=1�Da%:�P(a%(i%,1),cc%*a%(i%,4)/100,dc%*a%(i%,5)/100):�:�
R#��ma(b%):�pc%:pc%=b%!8:Ȏb%!16�
\�0:sa%=�
f�2:�Ka%=0��
p��wa(b%+44,Ka%):ș262351,,b%:b%!20=b%!12:b%!24=b%!16:b%!28=b%!0:b%!32=b%!4:b%!0=256:b%!12=pc%:b%!16=3:b%!40=4089:�La%�$(b%+44)="<Wimp$Scrap>"+�0
z7ș262375,17,b%,b%!20,b%!24:Ka%=0:La%=0:ș262356,,-1
��3:�b%!12=0�
�Ȏb%!40�
��4089:�xa(b%)
��4093:�ya(b%)
��4:�za(b%)
��1680:�Aa(b%)
��
��262337:�pa
��
��
���ea:�_b%��n
� �c(0):�Ja%<>-1��b(Ja%,qc%,0)
��m:!b%=�:�<>1�
x$(b%+4)=�$+" (Internal error code "+Þ+". Please report to the author, the address can be found in the !Help file)."
�:$(b%+4)=�$
�
$)ș262367,b%,1,"Process":�(-90)�sa%=�
.�
8,��o(s%,s$):�s%=0�s$=a$(_%,1):s%=a%(_%,2)
B"�s%=-1�s$=a$(o%,1):s%=a%(o%,2)
L:ș46,316,s%,s$,0�rc%,sc%,tc%,uc%:ș90,1:ș90,2:_b%=�:�
V$��n:ș46,rc%,sc%,tc%,uc%:_b%=0:�
`��ta:�db%=0��
jEj%!0=X%:j%!4=-1:j%!8=-1:j%!12=-1:j%!16=-1:ș530053,oa%,j%:db%=0:�
tt��Ba(p$):j%!0=X%:j%!4=-1:j%!8=-1:j%!12=-1:j%!16=-1:$(j%+20)=p$+�0:j%!32=0:j%!36=0:j%!40=0:j%!44=0:ș530052,,j%:�
~���ja(b%):�w%,i%,vc%,wc%,xc%,yc%,x%,y%,v%,v,G%,x,y,u%,zc%:w%=b%!12:i%=b%!16:vc%=b%!8:x%=b%!0:y%=b%!4:yc%=(vc%�4)<>0:wc%=(vc%�2)<>0:xc%=(vc%�1)<>0:va%=0:Ac%=�a(w%):�w%<>gc%�Wa%��l(gc%)
�	�wc%�
��Zb%��b(Qa%,13,0)
��l(Qa%):�w%=X%�w%=P%��m
��
�	Ȏw%�
�
�-2:�wc%�
�2�Ca:Bc%=x%-120:Cc%=364:ș262356,,e%(2),Bc%,Cc%
��
�&�Dc%:�i%=0�(yc%�xc%)��z(w%,i%,101)
�
�P%:�wc%�
�3Bc%=x%-60:Cc%=y%:�`(3):ș262356,,e%(20),Bc%,Cc%
��

�X%:�wc%�

3Bc%=x%-60:Cc%=y%:�`(2):ș262356,,e%(20),Bc%,Cc%
�:�Zb%�
E�Q(x%,y%,Ec%,Fc%):ș892609,,a%(o%,3),Ec%,dc%/N%-Fc%+1�G%:�G%<>-1�
(
�W%=0�
2!!e%=G%:�t(e%?1,e%?2,e%?3,mb%)
<�:�t(`%,kb%,lb%,G%)
F�
P�
Z�:Ȏdb%�
d=�1:b%!0=w%:ș262347,,b%:�Da(x%-b%!4+b%!20,y%-b%!16+b%!24)
n�2:Gc%=x%:Hc%=y%:�r(3)
x-�4:�Q(x%,y%,Ec%,Fc%):�Ea(Sa%,Ec%-1,Fc%-1)
��6:Gc%=x%:Hc%=y%:�r(7)
�#�8:b%!0=X%:ș262347,,b%:�Ga%=1�
��x=(x%-b%!4)/(b%!12-b%!4):y=(y%-b%!8)/(b%!16-b%!8):b%!20=cc%*x*a%(o%,4)/100-0.5*(b%!12-b%!4):b%!24=dc%*y*a%(o%,5)/100+0.5*(b%!16-b%!8)
��:�ra%>50�Ic%=�
�*�Ic%�Ic%=��b%!20-=x%-Gc%:b%!24-=y%-Hc%
�Gc%=x%:Hc%=y%
��
�ș262341,,b%
�/�101:�Q(x%,y%,Ec%,Fc%):�Fa(Ta%,Ec%-1,Fc%-1)
��
��
��
��ec%:�wc%�
	Ȏi%�
�1:�vb%��Ga(2)
�5:�db%<>6�db%<>7��Ga(3)
"
�8:�Ga(1)
,�
6�
@�
J	Ȏi%�
T�0:�yc%�(db%<>2�db%<>3)�
^	�r(2)
h�:�m
r�
|�1:�ub%�
��db%=2�db%=3��m
��vb%��v(0)��v(1)
��d(w%,i%,vb%)
��
�/�2:�d(w%,i%,1):�F(_%,o%):�k(X%):�d(w%,i%,0)
�"�3:�d(w%,i%,1):�Ha:�d(w%,i%,0)
�&�4:�d(w%,i%,1):�Ia(U%):�d(w%,i%,0)
��5:�yc%�(db%<>6�db%<>7)�
�	�r(6)
��:�m
��
�!�6:�d(w%,i%,1):�V:�d(w%,i%,0)
��7:�yc%��Oa%��G(0)��l(Qa%)
�8:�yc%�db%<>4��r(4)��m
�9:�yc%�db%<>8��r(8)��m
�
&�Jc%:�wc%��
0	Ȏi%�
:r�1,2,3:sb%=i%:�d(w%,i%,1):�e(w%,0):�e(w%,5):�Ja:Kc%=0:�h%=0�15:v%=ma%!(64*(sb%-1)+192*tb%+4*h%):�v%>Kc%�Kc%=v%
D�
N�4:tb%=1-tb%:�e(w%,0):�Ja
XA�5:b%!0=w%:ș262347,,b%:x%-=b%!4-b%!20:�W%=0�x%=x%�32�x%=x%�2
b	�yc%�
l�x%<d%(sb%,2)�d%(sb%,1)=x%
v"�:�x%>d%(sb%,1)�d%(sb%,2)=x%+1
��
��e(w%,5)
��
��Kb%:�wc%��
�	Ȏi%�
�-�5:�b(w%,i%,vc%):ș262356,,-1:�b(w%,i%,0)
�*�6:�b(w%,i%,vc%):�Ka:�yc%�ș262356,,-1
��b(w%,i%,0)
�&�7,8:�p(w%,9,Jb%,2*i%-15,2,20,0,2)
�*�10,11:�p(w%,12,Lb%,2*i%-21,0,359,0,3)
�4�13,14:�p(w%,15,Mb%,0.05*(2*i%-27),0.1,0.99,2,4)
�/�16,17:�p(w%,18,Nb%,20*i%-330,-500,500,0,4)
�/�19,20:�p(w%,21,Ob%,20*i%-390,-500,500,0,4)
�
�gc%:�wc%��
Yb%!0=w%:ș262347,,b%:�qa(8*(Lc%-(y%-b%!16+b%!24)�64)+(x%-b%!4+b%!20)�64):�yc%��l(gc%)
 �yc%�Ra%=1��r(4)
*�Xb%:�wc%��
4	Ȏi%�
>�1,2,3,4:Ub%=i%:�d(w%,i%,�)
H*�11,12:�p(w%,10,Wb%,i%*2-23,0,100,0,3)
R �13,14:Vb%=i%-12:�d(w%,i%,�)
\.�15:�b(w%,i%,vc%):ș262356,,-1:�b(w%,i%,0)
f?�16:�b(w%,i%,vc%):�La(Ub%,�(�s(Wb%)),Vb%):�yc%�ș262356,,-1
p�b(w%,i%,0)
z�
��Qa%:�wc%��
�	Ȏi%�
��3,4,5,15:Ȏi%�
�!�3,4,5:�W%=0��z(w%,i%,100+i%)
��15:�nb%��z(w%,i%,115)
��
��6:�b(w%,i%,vc%):Ȏ��
��gb%=-1
�#�gb%<50:�Ma(gb%,`%,kb%,lb%,mb%)
��gb%=50:�Na(`%,kb%,lb%,mb%)
��gb%=200:�Oa(fb%)
��gb%>=100�gb%<=199:�W%=0�
��C:�Pa(gb%-100,!e%)
	�:�Pa(gb%-100,mb%)
	�
	�gb%>=200�gb%<=299:�W%=0�
	$�C:�Qa(gb%-200,!e%)
	.�:�Qa(gb%-200,mb%)
	8�
	B�
	L�b(w%,i%,0):�yc%��l(Qa%)
	V(�7:�b(w%,i%,vc%):�l(Qa%):�b(w%,i%,0)
	`�11:�b(w%,i%,vc%):�W%=0�
	j�t(255,255,255,mb%)
	t�:�t(`%,kb%,lb%,255)
	~�
	��b(w%,i%,0)
	�:�12:�b(w%,i%,vc%):�W%=0��t(0,0,0,mb%)��t(`%,kb%,lb%,0)
	��b(w%,i%,0)
	��13:�yc%��Zb%�
	�Zb%=�:�b(w%,i%,vc%)
	��:Zb%=0:�b(w%,i%,0)
	��
	�l�17:b%!0=w%:ș262347,,b%:x%-=b%!4-b%!20+800:y%-=b%!16-b%!24+20:x%=x%�16:y%=y%�16:G%=x%+16*(15-y%):�W%=0�
	�*ș892610,G%�!e%:�t(e%?1,e%?2,e%?3,mb%)
	��:�t(`%,kb%,lb%,G%)
	��
	��
�Mc%:�wc%��

	Ȏi%�
k�0,1,2:b%!0=w%:ș262347,,b%:x%-=b%!4-b%!20+24+216*i%:y%-=b%!16-b%!24+80:b%(i%+1,1+(x%�64))=y%:�e(w%,i%)
1�6:�b(w%,i%,vc%):�Ra:�b(w%,i%,0):�yc%��l(Mc%)
(�
2�`a%:�wc%��
<	Ȏi%�
F�4:cb%=13:�d(w%,i%,1)
P�5:cb%=15:�d(w%,i%,1)
Z�6:cb%=21:�d(w%,i%,1)
d$�11:�p(w%,10,_a%,-2,20,1999,0,4)
n#�12:�p(w%,10,_a%,2,20,1999,0,4)
x#�15:�p(w%,14,ab%,2,20,1999,0,4)
�$�16:�p(w%,14,ab%,-2,20,1999,0,4)
�-�17:�b(w%,i%,vc%):�Sa:�l(`a%):�b(w%,i%,0)
�)�18:�b(w%,i%,vc%):�l(`a%):�b(w%,i%,0)
��
��Nc%:�wc%��
�	Ȏi%�
��0:�z(w%,i%,110)
��1:hb%+=5:�hb%>250�hb%=250
��e(w%,0)
��2:hb%-=5:�hb%<5�hb%=5
��e(w%,0)
� �3:f-=0.001:�f<0.008�f=0.008
��e(w%,0)
�4:f+=0.001:�f>0.10�f=0.10
�e(w%,0)
'�5:�b(w%,i%,vc%):�l(w%):�b(w%,i%,0)
"-�6:�b(w%,i%,vc%):�Ta(0):�yc%�ș262356,,-1
,�b(w%,i%,0)
6�7:ib%=�ib%:�d(w%,7,ib%)
@�
J�Na%:�wc%��
T	Ȏi%�
^-�2:�b(w%,i%,vc%):�wa(Xa%,fb%):�b(w%,i%,0)
h�3:�z(0,fb%,1)
r�4:Ma%=�Ma%
|�
��Qb%:�wc%��
�	Ȏi%�
��0:�Sb%<>1��z(w%,i%,111)
�G�1,2,3:a(Rb%)=�(�s(Pb%)):�p(w%,6,Pb%,a(i%),0,0,2,4):Rb%=i%:�e(w%,0)
�4�4:�b(w%,i%,vc%):ș262356,,-1:�l(w%):�b(w%,i%,0)
��5:�b(w%,i%,vc%):ȎSb%�
��1:�Ua(a(1),a(2),a(3))
�
�2:�Va
�
�4:�Wa
��
��yc%�ș262356,,-1
��b(w%,i%,0)
�K�7,8:�p(w%,6,Pb%,0.02*(2*i%-15),0.2,3,2,4):a(Rb%)=�(�s(Pb%)):�Tb%�W%=1�
'a(1)=a(Rb%):a(2)=a(Rb%):a(3)=a(Rb%)
�
�e(w%,0)
&Z�9,10,12:Sb%=i%-8:�d(w%,i%,�):�e(w%,0):�K(w%,6,Sb%<>1):�K(w%,7,Sb%<>1):�K(w%,8,Sb%<>1)
0�11:�yc%��Tb%�
:q�b(w%,i%,vc%):Tb%=�:g=a(Rb%):a(1)=g:a(2)=g:a(3)=g:�x%=1�5:y%=c%(Rb%,x%):c%(1,x%)=y%:c%(2,x%)=y%:c%(3,x%)=y%:�
D�:�b(w%,i%,0):Tb%=0
N�
X�
b�Za%:�wc%��
l�i%>=5�i%<=13��b(w%,i%,vc%)
v	Ȏi%�
�*�2:�p(w%,0,Ya%,1,10,1999,0,4):�A(w%,0)
�+�3:�p(w%,0,Ya%,-1,10,1999,0,4):�A(w%,0)
�#�5:$Ya%="10":�e(Za%,0):�A(w%,0)
�#�6:$Ya%="33":�e(Za%,0):�A(w%,0)
�#�7:$Ya%="50":�e(Za%,0):�A(w%,0)
�$�8:$Ya%="100":�e(Za%,0):�A(w%,0)
�$�9:$Ya%="200":�e(Za%,0):�A(w%,0)
�%�10:$Ya%="500":�e(Za%,0):�A(w%,0)
��11:�Xa:�A(w%,0)
��12:�H(1):ș262356,,-1
��13:ș262356,,-1
��
��i%>=5�i%<=13��b(w%,i%,0)

�Hb%:�wc%��

	Ȏi%�

�1:�Gb%=0�Gb%=1�Gb%=0

 �d(w%,1,Gb%=0):�e(w%,10)

*(�9:�b(w%,i%,vc%):�l(Hb%):�b(w%,i%,0)

4�10:�z(w%,i%,112)

>�11:�z(w%,i%,113)

H9�13,14:�p(w%,15,Ib%,i%*2-27,1,100,0,3):Db%=�(�s(Ib%))

R=�16:b%!0=w%:ș262347,,b%:x%-=b%!4-b%!20+48:x%=x%�48:Ȏx%�

\%�0,1,2:Gb%=1:Eb%=4*(2^x%):Fb%=Eb%

f)�3,4,5:Gb%=2:Eb%=6*(2^(x%-3)):Fb%=Eb%

p(�6,7,8:Gb%=3:Eb%=4*(2^(x%-6)):Fb%=24

z�

��d(w%,1,Gb%=0):�e(w%,10)

��

�:�Ac%>0�wc%�

�:�Ya(Ac%):Bc%=b%!0-60:Cc%=b%!4:ș262356,,e%(23),Bc%,Cc%

��

��

��

�'��A(w%,i%):ș262354,w%,i%,,,40,-1:�

�A��p(w%,i%,Oc%,C,z,A,Pc%,Qc%):�v$,v,@%:v=�(�s(Oc%))+C:�v<z�v=z

��v>A�v=A

��z=A�v=C

�C@%=131072+256*Pc%+Qc%:�v<>0�v$=��(v+(0.1^(Pc%+3))),Qc%)�v$=�(0)

���v$)="."�v$=�v$,�(v$)-1)
$Oc%=v$:�e(w%,i%):�
���Q(x%,y%,�Rc%,�Sc%):j%!0=X%:ș262347,,j%:x%-=j%!4-j%!20:y%-=j%!16-j%!24:Rc%=x%*100/(a%(o%,4)*T%)+1:Sc%=y%*100/(a%(o%,5)*N%)+1:�
��Za:ș262352,,-1:ya%=0:�
$W��ha:�x%,y%,xc%:ș262351,,b%:x%=(b%!0-Gc%):y%=(b%!4-Hc%):xc%=(b%!8�1)<>0:�x%<0�x%=0
.�x%>Tc%�x%=Tc%
8�y%<0�y%=0
B�y%>Uc%�y%=Uc%
L
Ȏya%�
V�101:x%=x%/2-6:�x%<0�x%=0
`�x%>255�x%=255
j�x%<>Yb%�Yb%=x%:�e(Dc%,0)
t�103:�xc%�kb%=x%/2:lb%=x%/2
~�t(x%/2,kb%,lb%,mb%)
��104:�xc%�`%=x%/2:lb%=x%/2
��t(`%,x%/2,lb%,mb%)
��105:�xc%�`%=x%/2:kb%=x%/2
��t(`%,kb%,x%/2,mb%)
�&�110:hb%=�(28-x%):�hb%>250�hb%=250
��hb%<5�hb%=5
��y%>0�f=3.5/(35+y%)�f=0.1
��f>0.1�f=0.1
��f<0.008�f=0.008
�
�e(Nc%,0)
��111:�y%<0�y%=0
��y%>255�y%=255

ȎSb%�

R�2:x%=1+(x%+32)�64:c%(Rb%,x%)=y%:�Tb%�W%=1�c%(1,x%)=y%:c%(2,x%)=y%:c%(3,x%)=y%

�e(Qb%,0)
�4:x%=1+x%�16:�x%>16�x%=16
(?f%(Rb%,x%)=y%:�Tb%�W%=1�f%(1,x%)=y%:f%(2,x%)=y%:f%(3,x%)=y%
2(ș262353,Qb%,x%*16+2,80,x%*16+24,344
<�
F'�112:Eb%=x%-80:Fb%=y%-80:�e(Hb%,10)
P8�113:x%-=80:y%-=80:Cb%=�(x%*x%+y%*y%):�Cb%>60�Cb%=60
Z�e(Hb%,11)
d�115:�t(`%,kb%,lb%,x%/2)
n�
x�
�A��ka(b%):�x%,y%,z%,V%,h,i:ș262351,,b%:x%=b%!0:y%=b%!4:Ȏya%�
��1:V%=�a(b%!12):�V%>0�
�$�V%<>Ka%��F(Ka%,V%):�k(a%(V%,1))
���:b%!20=b%!12:b%!24=b%!16:b%!28=b%!0:b%!32=b%!4:b%!12=0:b%!16=1:b%!36=2000:b%!40=4089:b%!0=60:$(b%+44)=�e(�s(Xa%)):ș262375,17,b%,b%!20,b%!24
��
�4�3:�b%!12<>X%��1,"Please keep inside the window"
�`�Q(x%,y%,x%,y%):zb%=x%:Ab%=y%:x%=Gc%:y%=Hc%:�Q(x%,y%,x%,y%):xb%=x%:yb%=y%:�xb%>zb%�Ȕxb%,zb%
��yb%>Ab%�Ȕyb%,Ab%
��m:ub%=�:�v(1)
�4�4:�b%!12<>X%��1,"Please keep inside the window"
��x%<Gc%�Ȕx%,Gc%
��y%<Hc%�Ȕy%,Hc%
�\x%=�(x%-Gc%):y%=�(y%-Hc%):�x%=0�y%=0��1,"You can't enlarge an area with no width/height"
�b%!0=X%:ș262347,,b%:Gc%-=b%!4-b%!20:Hc%-=b%!16-b%!24:Gc%=100*Gc%/a%(o%,4):Hc%=100*Hc%/a%(o%,5):h=a%(o%,4)*�((b%!4-b%!12)/x%):i=a%(o%,5)*�((b%!8-b%!16)/y%):�h<10�h>1999�i<10�i>1999��1,"Illegal scale factor"
�a%(o%,4)=h:a%(o%,5)=i:�P(X%,cc%*h/100,dc%*i/100):�I(o%):b%!0=X%:ș262347,,b%:b%!20=Gc%*h/100:b%!24=Hc%*i/100-b%!8+b%!16:�y(X%,�):�k(X%):�m
�
"ya%=0:�
,*��z(w%,i%,Vc%):�Wc%,Xc%,Yc%,Zc%:ȎVc%�
6��1:Ka%=i%:b%!0=Na%:ș262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=3:ș262350,,b%:b%!8+=Wc%:b%!12+=Xc%:b%!16+=Wc%:b%!20+=Xc%:b%!4=5
@V�3,4:b%!8=w%:b%!12=i%:b%!16=w%:b%!20=i%:b%!4=6:b%!24=0:b%!28=0:b%!32=za%:b%!36=Aa%
J��103,104,105,115:b%!0=w%:ș262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=i%:ș262350,,b%:b%!24=b%!8+Wc%:b%!28=Xc%+(b%!20+b%!12)/2:b%!32=b%!16+Wc%:b%!36=b%!28:Gc%=b%!24:Hc%=b%!28:Tc%=510:Uc%=510:b%!4=7
T��101:b%!0=w%:ș262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=i%:ș262350,,b%:b%!24=b%!8+Wc%:b%!28=Xc%+(b%!20+b%!12)/2:b%!32=b%!16+Wc%:b%!36=b%!28:Gc%=b%!24:Hc%=b%!28:Tc%=b%!32-b%!24:Uc%=b%!36-b%!28:b%!4=7
^��110,111,112,113:b%!0=w%:ș262347,,b%:Wc%=b%!4-b%!20:Xc%=b%!16-b%!24:b%!4=i%:ș262350,,b%:b%!24=b%!8+Wc%:b%!28=Xc%+b%!12:b%!32=b%!16+Wc%:b%!36=b%!20+Xc%:Gc%=b%!24:Hc%=b%!28:Tc%=b%!32-b%!24:Uc%=b%!36-b%!28:b%!4=7
h�
rya%=Vc%:�Vc%=1�Ha%�
|�e%!0=b%!8:e%!4=b%!12:e%!8=b%!8+64:e%!12=b%!12+64:e%!16=-32000:e%!20=-32000:e%!24=32000:e%!28=32000:ș271360,197,1,"file_ff9",e%
��:ș262352,,b%
��
��
�#��qa(i%):�_c%,`c%:g%()=0:ȎRa%�
���1:j%!0=ec%:j%!4=8:ș262350,,j%:$(j%!32)="P"+r$+";Sproc_draw0"+�(i%+65)+",proc_draw1"+�(i%+65):_c%=64*(Sa%�8):`c%=64-64*(Sa%�8):ș262353,gc%,_c%,`c%,_c%+64,`c%+64:Sa%=i%:�Ea(-1,0,0):�e(ec%,8):_c%=64*(i%�8):`c%=64-64*(i%�8)
�/ș262353,gc%,_c%,`c%,_c%+64,`c%+64:g%(i%)=1
��2:�_a(i%)
��3:Ȏi%�
��0:fb%=o%:$Ya%="10":�H(1)
��1:fb%=o%:$Ya%="33":�H(1)
��2:fb%=o%:$Ya%="50":�H(1)
��3:fb%=o%:$Ya%="100":�H(1)
��4:fb%=o%:$Ya%="200":�H(1)
�5:fb%=o%:$Ya%="500":�H(1)
7�6:_c%=a%(o%,4)*0.5:`c%=a%(o%,5)*0.5:�_c%<10�_c%=10
�`c%<10�`c%=10
&Ja%(o%,4)=_c%:a%(o%,5)=`c%:�P(X%,cc%*_c%/100,dc%*`c%/100):�I(o%):�a(X%)
07�7:_c%=a%(o%,4)*2:`c%=a%(o%,5)*2:�_c%>1999�_c%=1999
:�`c%>1999�`c%=1999
DJa%(o%,4)=_c%:a%(o%,5)=`c%:�P(X%,cc%*_c%/100,dc%*`c%/100):�I(o%):�a(X%)
N�
X�
b�
l"��Ga(ad%):�x%,y%,w%,bd%:Ȏad%�
v �1:x%=8:y%=-24:bd%=512:Lc%=1
�!�2:x%=72:y%=232:bd%=512:Lc%=0
� �3:x%=72:y%=40:bd%=512:Lc%=0
��
��y%-=64*Lc%:b%!0=0:b%!4=0:b%!8=bd%:b%!12=64+64*Lc%:ș262359,gc%,b%:j%!0=ec%:ș262347,,j%:b%!0=gc%:b%!4=j%!4-j%!20+x%:b%!8=j%!16-j%!24+y%:b%!12=b%!4+bd%:b%!16=b%!8+64*Lc%+64:b%!20=0:b%!24=0:b%!28=-1:ș262341,,b%:Wa%=�:Ra%=ad%:�
�m��`a(b%):�i%,Zc%,Yc%,x%,y%,a$:x%=b%!4-b%!20:y%=b%!16-b%!24+64*Lc%:�Yc%=0�7:�Zc%=0�Lc%:i%=Yc%+8*Zc%:ȎRa%�
�.�1:�g%(i%)�a$="1"+�(i%+65)�a$="0"+�(i%+65)
�a$="proc_draw"+a$
��2:a$="proc_area"+�(i%+65)
��3:a$="proc_zoom"+�(i%+65)
��
�:ș46,256+52,cd%,a$,x%+64*Yc%,y%-64*Zc%,0,ha%,ia%:�:�:�
�#��J(p%,A%,B%,C%,D%,E%,F%):�p%:�
�ݤg(x%,y%):�vb%�
*�(x%>=xb%�x%<zb%�y%>=yb%�y%<Ab%)�=��=�
.�:�(x%>=0�x%<cc%/T%�y%>=0�y%<dc%/N%)�=��=�
�
 =�
*N��Fa(dd%,x%,y%):�R%,S%,i%,r%,ed%,fd%,gd%,hd%,id%:�d%<>-1�R%=x%*T%:S%=y%*N%
4�d%>=0�笤g(x%,y%)��
>
Ȏdd%�
H�1:Ȏg%!0�
RH�0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:�u
\R�2:Ua%=3:�u:g%!0=4:g%!28=5:g%!32=R%:g%!36=S%:g%!40=5:g%!44=g%!8:g%!48=g%!12:�u
f3�4:Ua%=5:�u:g%!0=5:g%!52=0:g%!56=R%:g%!60=S%:�u
p3�5:Ua%=6:�u:g%!0=6:g%!64=5:g%!68=R%:g%!72=S%:�u
zS�6:Ua%=7:�u:g%!0=8:g%!76=5:g%!80=R%:g%!84=S%:g%!88=5:g%!92=g%!56:g%!96=g%!60:�u
���8:xa%=�:Ta%=0:Ua%=0:�m:�i%=0�2:e%!(8*i%+24)=(g%!(12*i%+8))/T%:e%!(8*i%+28)=(g%!(12*i%+12))/N%:�:�i%=3�5:e%!(8*i%-24)=(g%!(12*i%+20))/T%:e%!(8*i%-20)=(g%!(12*i%+24))/N%:�:�f:�J(r,jd%,U%,0,e%,Z%,0):�g:�a(P%)
��
��2:Ȏg%!0�
�H�0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:�u
�3�2:Ua%=3:�u:g%!0=3:g%!28=5:g%!32=R%:g%!36=S%:�u
�R�3:Ua%=4:�u:g%!0=5:g%!40=5:g%!44=R%:g%!48=S%:g%!52=5:g%!56=g%!8:g%!60=g%!12:�u
�3�5:Ua%=6:�u:g%!0=6:g%!64=0:g%!68=R%:g%!72=S%:�u
�3�6:Ua%=7:�u:g%!0=7:g%!76=5:g%!80=R%:g%!84=S%:�u
�3�7:Ua%=8:�u:g%!0=8:g%!88=5:g%!92=R%:g%!96=S%:�u
�Z�8:Ua%=9:�u:g%!0=10:g%!100=5:g%!104=R%:g%!108=S%:g%!112=5:g%!116=g%!68:g%!120=g%!72:�u
��10:xa%=�:Ta%=0:Ua%=0:�m:�i%=0�9:g%!(12*i%+8)=(g%!(12*i%+8))/T%:�:�i%=0�9:g%!(12*i%+12)=(g%!(12*i%+12))/N%:�:�i%=0�2:e%!(8*i%+24)=g%!(12*i%+8):e%!(8*i%+28)=g%!(12*i%+12):�:�i%=3�5
��e%!(8*i%-24)=g%!(12*i%+32):e%!(8*i%-20)=g%!(12*i%+36):�:�J(r,jd%,U%,0,e%,Z%,0):e%!0=g%!68:e%!4=g%!72:e%!8=g%!92:e%!12=g%!96:e%!16=g%!104:e%!20=g%!108:e%!24=g%!8:e%!28=g%!12:e%!32=g%!32:e%!36=g%!36:e%!40=g%!44:e%!44=g%!48
�'�f:�J(r,jd%,U%,0,e%,Z%,0):�g:�a(P%)
�
�3:Ȏg%!0�
H�0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:�u
$R�2:Ua%=3:�u:g%!0=4:g%!28=5:g%!32=R%:g%!36=S%:g%!40=5:g%!44=g%!8:g%!48=g%!12:�u
.3�4:Ua%=5:�u:g%!0=5:g%!52=0:g%!56=R%:g%!60=S%:�u
83�5:Ua%=6:�u:g%!0=6:g%!64=4:g%!68=R%:g%!72=S%:�u
B��6:xa%=�:Ta%=0:Ua%=0:�m:�i%=0�2:e%!(8*i%+24)=g%!(12*i%+8)/T%:e%!(8*i%+28)=g%!(12*i%+12)/N%:�:r%=�((g%!56-g%!68)^2+(g%!60-g%!72)^2):�f:�i%=0�8:e%!0=(g%!56+r%*��(40*i%))/T%:e%!4=(g%!60+r%*��(40*i%))/N%
L�e%!8=(g%!56+r%*��(40*i%+40))/T%:e%!12=(g%!60+r%*��(40*i%+40))/N%:e%!16=(g%!56)/T%:e%!20=(g%!60)/N%:�J(r,jd%,U%,0,e%,Z%,0):�D(i%*12):�:�g:�a(P%)
V�
`w�20:�o(-1,""):b%!0=X%:ș262347,,b%:ȗx%,y%,i%:x%-=b%!4-b%!20:y%-=b%!16-b%!24:ȓR%-jb%/2,S%-jb%/2,jb%�x%,y%:�R:�n:�E
j�10,11,12,13:Ȏg%!0�
tH�0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=4:g%!20=R%:g%!24=S%:�u
~W�2:xa%=�:Ta%=0:Ua%=0:�m:ed%=g%!8:fd%=g%!12:r%=�((ed%-g%!20)^2+(fd%-g%!24)^2):�W%=0�
�gd%=`%:hd%=kb%:id%=lb%
��:gd%=mb%:hd%=mb%:id%=mb%
��
�#�ab(ed%,fd%,r%,gd%,hd%,id%,dd%)
��
��14,15:Ȏg%!0�
�H�0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:�u
�"�2:xa%=�:Ta%=0:Ua%=0:�m:�W%=0�
�gd%=`%:hd%=kb%:id%=lb%
��:gd%=mb%:hd%=mb%:id%=mb%
��
�/�bb(g%!8,g%!12,g%!20,g%!24,gd%,hd%,id%,dd%)
�

�
�
6��Ea(d%,x%,y%):�R%,S%,c%:�d%<>-1�R%=x%*T%:S%=y%*N%
(�d%>=0�笤g(x%,y%)��
2	Ȏd%�
<�-1:�m:ȎSa%�
F�0,6,7,8,15:xa%=�
P:xa%=�
Z�
d�0:�o(-1,""):�B:�L:ȎGb%�
n�0:ȒR%,S%
x$�1:ȓȐR%-Eb%,S%-Fb%,Eb%*2,Fb%*2
��2:ȏȐR%,S%,Eb%
��3:ȝȐR%,S%,Eb%,Fb%
��
��R:�n:�E
��1,2,3,4,5:�g%!0=0�
�FUa%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=d%:g%!20=R%:g%!24=S%:�u
�-�:�o(-1,""):�B:�L:�cb(0,0,0):�n:�E:�d%=5�
�FUa%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=d%:g%!20=R%:g%!24=S%:�u
��:g%!0=0
��
��
�?�6:�o(-1,""):�B:�L:�128+�R%,S%)ȜȜ(R%,S%):ȐR%,S%:�R:�n:�E
�B�7:ș892609,,a%(o%,3),x%,dc%/N%-y%+1�c%:�db(`%,kb%,lb%,mb%,c%)
Y�8:e%!12=Cb%/T%:e%!16=Cb%/N%:e%!20=e%!12*e%!16*Db%/100:e%!24=Va%:�vb%�x%-=xb%:y%-=yb%

�W%=0�
+�C:ș892615,,U%,3,!e%,x%,kd%-y%+1,e%+12
"*�:ș892615,,U%,3,mb%,x%,kd%-y%+1,e%+12
,�
62ld%=R%-Cb%:md%=S%-Cb%:nd%=R%+Cb%:od%=S%+Cb%:�E
@�9,10,11,12,13,14:Ȏg%!0�
JH�0:Ua%=2:g%!0=2:g%!4=0:g%!8=R%:g%!12=S%:g%!16=5:g%!20=R%:g%!24=S%:�u
TF�2:Ua%=3:g%!0=3:g%!28=d%:g%!32=R%:g%!36=S%:�u:�d%=13�d%=14�g%!16=0
^.�3:�o(-1,""):�B:�L:�cb(0,0,0):�n:�E:g%!0=0
h�
r�15:�g%!0=1�
|V�o(-1,""):�B:�L:�g%!8,g%!12,R%,S%:�R:�n:g%!20=g%!8:g%!24=g%!12:g%!8=R%:g%!12=S%:�E
�#�:Ua%=1:g%!0=1:g%!8=R%:g%!12=S%
��
��
�eb%=�:�
�*��L:�W%=0��C:�eb(!e%,Va%)��eb(mb%,Va%)
��
�*��C:e%?0=0:e%?1=`%:e%?2=kb%:e%?3=lb%:�
���fb(G%):�eb(G%,0):�
�(��Oa(pd%):�s%,w%:�fb%=o%�w%=X%:s%=-1
��fb%=_%�w%=P%:s%=0
�,�o(s%,""):�L:ȓȐ0,0,cc%,dc%:�n:�k(w%):�
�%��eb(G%,ta%):�W%=0�ș892611,G%�G%
�)ș264013,G%�G%:�ta%,G%�4Ȝ(G%�4)*64:�
"��ga:�x%,y%,Yc%,Zc%:�g%!0<=0��
ș262351,,b%:�b%!12<>X%��
�x%=b%!0:y%=b%!4:b%!0=X%:ș262347,,b%:x%-=b%!4-b%!20:y%-=b%!16-b%!24:x%=x%*100/a%(o%,4):y%=y%*100/a%(o%,5):Yc%=12*Ua%-4:Zc%=12*Ua%:�x%<>g%!Yc%�y%<>g%!Zc%�u:g%!Yc%=x%:g%!Zc%=y%:�u
&�
0)��r(ta%):�p$,i%:p$="":i%=-1:�m:Ȏta%�
:�1:p$=u$
D�2:�v(0):i%=0
N�3:i%=0:�z(Gc%,Hc%,3)
X�4:i%=8:ȎSa%�
b�0,6:xa%=�
l�7:xa%=�:p$=w$
v:xa%=�
��
��6:i%=5
��7:i%=5:�z(Gc%,Hc%,4)
��8:i%=9:p$=x$:Ic%=�
��101:xa%=�
��
��p$<>""��Ba(p$)
��i%>=0�i%<100��d(ec%,i%,1)
�
db%=ta%:�
���m:Ȏdb%�
��2,3:�d(ec%,0,0)
�$�4:�d(ec%,8,0):�g%!0>0��u:g%!0=0
��6,7:�d(ec%,5,0)
�8:�d(ec%,9,0)
�101:�g%!0>0��u:g%!0=0
�
 �Oa%��l(Qa%)
*
�Za:�ta:�
4���Ha:Ȕa%(o%,2),a%(_%,2):Ȕa%(o%,3),a%(_%,3):Ȕa$(o%,1),a$(_%,1):Ȕa$(o%,2),a$(_%,2):ȔU%,jd%:�I(o%):�I(_%):�a(P%):�a(X%):eb%=�:�
>��i:�Ea%��Ha
H�
R%��v(qd%):�i%,rd%,sd%,td%:�vb%��gb
\
Ȏqd%�
f&�0:vb%=0:rd%=a%(o%,3):sd%=a%(_%,3)
p�1,2:�ub%�
z$rd%=la%:sd%=la%+256:�xb%<0�xb%=0
��zb%>cc%/T%�zb%=cc%/T%
��yb%<0�yb%=0
��Ab%>dc%/N%�Ab%=dc%/N%
���i%=0�252�4:rd%!i%=a%(o%,3)!i%:�:rd%!0=zb%-xb%:rd%!4=Ab%-yb%:rd%!52=T%*rd%!0:rd%!56=N%*rd%!4:rd%!20=rd%!4*rd%!16+rd%!0:td%=xb%+(dc%/N%-Ab%)*rd%!16:rd%!24+=td%:�i%=0�252�4:sd%!i%=rd%!i%:�:sd%!24=a%(_%,3)!24+td%:vb%=�
�
�:vb%=0:�
��
��3:vb%=0:�
��
�a�d(ec%,1,vb%):U%=rd%:jd%=sd%:ud%=rd%!52:vd%=rd%!56:wd%=rd%!0:kd%=rd%!4:�a%(o%,6)=0��a(X%)��gb
�eb%=�:�
�!��_a(n%):�oc%,jc%:�v(3):Ȏn%�
��0:Ab%=dc%/N%
��1:yb%=0
�2:zb%=cc%/T%
�3:xb%=0
$�4:jc%=Ab%-yb%:Ab%+=jc%:yb%+=jc%
$$�5:jc%=Ab%-yb%:Ab%-=jc%:yb%-=jc%
.$�6:oc%=zb%-xb%:zb%+=oc%:xb%+=oc%
8$�7:oc%=zb%-xb%:zb%-=oc%:xb%-=oc%
B�
L�v(2):�
VN��H(hc%):�xd%,c%:xd%=�(�s(Ya%)):�xd%<10�xd%>1999��1,"Illegal scale factor"
`bc%=fb%:a%(c%,4)=xd%:a%(c%,5)=xd%:�P(a%(c%,1),cc%*xd%/100,dc%*xd%/100):�I(c%):�hc%��a(a%(c%,1))
j�
t��V:�F(o%,_%):�a(P%):�
~:��F(yd%,qd%):�o(a%(qd%,2),a$(qd%,1)):�yd%=o%�qd%=o%��B
�Oș131118,290,a%(yd%,2),a$(yd%,1),0,0,0:�n:a$(qd%,2)=a$(yd%,2):�qd%=o%�eb%=�
��
�s��Xa:�B,w%,zd%,Ad%:w%=a%(fb%,1):j%!0=w%:ș262347,,j%:zd%=j%!12-j%!4:Ad%=j%!16-j%!8:�zd%>Ad%�B=zd%/cc%�B=Ad%/dc%
� $Ya%=�(�(B*100)):�e(Za%,0):�
�<��hb(Bd%,i%):ș46,256+Bd%,a%(i%,2),a$(i%,1):�i%=o%�eb%=�
��k(a%(i%,1)):�i:�
����ib(v,o,Cd%,Dd%,Ed%,Fd%):�x%,y%,Gd%,Hd%,k,i%:k=256*o:v=-�(v):x%=ud%/2:y%=vd%/2:�jb(v,x%,y%,0,vd%,Gd%,Hd%):e%!0=k*Gd%:e%!4=k*Hd%:�jb(v,x%,y%,ud%,vd%,Gd%,Hd%):e%!8=k*Gd%:e%!12=k*Hd%:e%!16=k*ud%-e%!0:e%!20=k*vd%-e%!4
�,e%!24=k*ud%-e%!8:e%!28=k*vd%-e%!12:�vb%�
�Ge%!128=xb%:e%!132=Ab%:e%!136=zb%:e%!140=yb%:Cd%+=xb%*T%:Dd%+=yb%*N%
�3�:e%!128=0:e%!132=dc%/N%:e%!136=cc%/T%:e%!140=0
��
��o(0,""):�Ed%��kb
MȑCd%,Dd%:ș131118,312,a%(o%,2),a$(o%,1),3,e%+128,0,e%:�n:�Fd%��a(P%):�i

�
b��jb(v,Cd%,Dd%,x%,y%,�mc%,�nc%):x%-=Cd%:y%-=Dd%:mc%=Cd%+(x%*�v+y%*�v):nc%=Dd%+(-x%*�v+y%*�v):�
��G(t%):�b$,e$:Ȏt%�
(L�-1:b$="Mean colour in source image":e$="Colour components":�q(�):gb%=-1
22�0:b$="Select colour":e$="Colour":�q(�):gb%=-1
<F�4:b$="Transform to black & white":e$="Colour weights":�q(�):gb%=4
FC�5:b$="Transform to grey tones":e$="Colour weights":�q(�):gb%=5
PR�6:b$="Convert to black & white (threshold)":e$="Threshold colour":�q(�):gb%=7
ZG�7:b$="Add value to all colours":e$="Colour components":�q(�):gb%=2
dN�8:b$="Subtract value from all colours":e$="Colour components":�q(�):gb%=3
n;�9:b$="Apply RGB filter":e$="Filter colour":�q(�):gb%=6
xk�11:b$="Move all colours towards the selected colour":e$="Colour":�q(�):gb%=50:$Pa%="Effect":�e(Qa%,14)
�D�12:b$="Isolate a single colour":e$="Isolate colour":�q(�):gb%=8
�=�112:b$="Trace edges":e$="Minimum distance":�q(�):gb%=112
�C�113:b$="Difference filter":e$="Maximum distance":�q(�):gb%=113
�3�200:b$="Clear image":e$="Colour":�q(�):gb%=200
��
�R�y(Qa%,0):$�i(Qa%,8)=b$:�e(Qa%,8):$�i(Qa%,9)=e$:�e(Qa%,9):�t(`%,kb%,lb%,mb%):�
� ��Ma(Id%,H%,J%,K%,Y%):�W%=0�
�6e%?0=0:e%?1=H%:e%!2=J%:e%?3=K%:ș892613,Id%,!e%,L%
��:ș892613,Id%,Y%,L%
��
�"ș892612,jd%,U%,L%:�i:�a(P%):�
�+��db(H%,J%,K%,Y%,G%):�Jd%,q%,Kd%:�W%=0�
�ș892611,G%�Jd%:�Jd%=-1��
3e%?0=0:e%?1=H%:e%?2=J%:e%?3=K%:ș892611,!e%�Kd%
�:Jd%=G%:Kd%=Y%
�
")�q%=0�255:�q%<>Jd%�L%?q%=q%�L%?q%=Kd%
,8�:ș892612,U%,U%,L%:ld%=0:md%=0:nd%=cc%:od%=dc%:�E:�
63��Na(H%,J%,K%,Ld%):�q%,Md%,Nd%,Od%:�f:�O%��c(�)
@��q%=0�255:ș892610,q%�!e%:Md%=e%?1:Nd%=e%?2:Od%=e%?3:Md%=Md%+(H%-Md%)*Ld%/256:Nd%=Nd%+(J%-Nd%)*Ld%/256:Od%=Od%+(K%-Od%)*Ld%/256:�Md%<0�Md%=0
J�Nd%<0�Nd%=0
T�Od%<0�Od%=0
^�Md%>255�Md%=255
h�Nd%>255�Nd%=255
r�Od%>255�Od%=255
|Ge%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:ș892611,!e%�L%?q%:�:�g:�O%��c(�)
�"ș892612,jd%,U%,L%:�i:�a(P%):�
�%��Wa:�q%,i%,H%,J%,K%:�f:�O%��c(�)
�
�W%=0�
���q%=0�255:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:e%?0=0:e%?1=f%(1,1+(H%�16)):e%?2=f%(2,1+(J%�16)):e%?3=f%(3,1+(K%�16)):ș892611,!e%�L%?q%:�
�%�:�q%=0�255:L%?q%=f%(1,1+q%�16):�
��
�#ș892612,jd%,U%,L%:�g:�O%��c(0)
��i:�a(P%):�
�5��Va:�q%,H%,J%,K%,Md%,Nd%,Od%,i%,Yc%:�f:�O%��c(�)
�
�W%=0�
���q%=0�255:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:i%=1+(H%�64):Yc%=64*i%-64:Md%=c%(1,i%)+(c%(1,i%+1)-c%(1,i%))*(H%-Yc%)/64:i%=1+(J%�64):Yc%=64*i%-64:Nd%=c%(2,i%)+(c%(2,i%+1)-c%(2,i%))*(J%-Yc%)/64:i%=1+(K%�64):Yc%=64*i%-64
�COd%=c%(3,i%)+(c%(3,i%+1)-c%(3,i%))*(K%-Yc%)/64:�Md%>255�Md%=255
��Md%<0�Md%=0
�Nd%>255�Nd%=255
�Nd%<0�Nd%=0
�Od%>255�Od%=255
&�Od%<0�Od%=0
0:e%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:ș892611,!e%�L%?q%:�
:i�:�q%=0�255:i%=1+(q%�64):Yc%=64*i%-64:Nd%=c%(1,i%)+(c%(1,i%+1)-c%(1,i%))*(q%-Yc%)/64:�Nd%>255�Nd%=255
D�Nd%<0�Nd%=0
NL%?q%=Nd%:�
X�
b#ș892612,jd%,U%,L%:�g:�O%��c(0)
l�i:�a(P%):�
v5��Ua(c,d,e):�q%,H%,J%,K%,Md%,Nd%,Od%:�f:�O%��c(�)
�
�W%=0�
�[�q%=0�255:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:Md%=255*((H%/255)^c):�Md%>255�Md%=255
�)Nd%=255*((J%/255)^d):�Nd%>255�Nd%=255
�)Od%=255*((K%/255)^e):�Od%>255�Od%=255
�:e%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:ș892611,!e%�L%?q%:�
�0�:�q%=0�255:�q%>0�Md%=255*((q%/255)^c)�Md%=0
��Md%>255�Md%=255
�L%?q%=Md%:�
��
�#ș892612,jd%,U%,L%:�g:�O%��c(0)
��i:�a(P%):�
�.��Ra:�q%,H%,J%,K%,Md%,Nd%,Od%:�f:�O%��c(�)
���q%=0�255:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:Md%=(b%(1,1)*H%+b%(1,2)*J%+b%(1,3)*K%)/255:Nd%=(b%(2,1)*H%+b%(2,2)*J%+b%(2,3)*K%)/255:Od%=(b%(3,1)*H%+b%(3,2)*J%+b%(3,3)*K%)/255:�Md%>255�Md%=255
�Nd%>255�Nd%=255
�Od%>255�Od%=255
Ge%!0=0:e%?1=Md%:e%?2=Nd%:e%?3=Od%:ș892611,!e%�L%?q%:�:�g:�O%��c(0)
 "ș892612,jd%,U%,L%:�i:�a(P%):�
*@��lb(Id%):�Pd%,G%,V%,q%,Qd%,Rd%,Sd%,h%,s%,v%,n$:�f:�O%��c(�)
4G%=0:�V%=1�4:�V%<>o%�
>G%+=1:ȎG%�
H�1:n$="Hue"
R�2:n$="Saturation"
\�3:n$="Value"
f�
p��q%=0�255:ș892610,q%�!e%:Qd%=e%?1:Rd%=e%?2:Sd%=e%?3:ș264024,Qd%*256,Rd%*256,Sd%*256�h%,s%,v%:s%=s%/256:v%=v%/256:�s%=0�h%=-1
z	ȎG%�
��1:�h%=-1�
�
Pd%=v%
�l�:ș264025,h%,255*256,255*256�Qd%,Rd%,Sd%:e%?0=0:e%?1=Qd%/256:e%?2=Rd%/256:e%?3=Sd%/256:ș892611,!e%�Pd%
��
��2:�Id%=1�
�
Pd%=s%
�5�:e%?0=0:e%?1=s%:e%?2=s%:e%?3=s%:ș892611,!e%�Pd%
��
��3:�Id%=1�
�
Pd%=v%
�5�:e%?0=0:e%?1=v%:e%?2=v%:e%?3=v%:ș892611,!e%�Pd%
��
��
DL%?q%=Pd%:�:ș892612,a%(V%,3),a%(o%,3),L%:�x(V%,n$):�k(a%(V%,1))
�
�:�g:�O%��c(�)
$�a(P%):�
.+��mb(Id%):�G%,Td%,V%,q%,n$:�f:�O%��c(�)
8G%=0:�V%=1�4:�V%<>o%�
BG%+=1:ȎG%�
L�1:n$="Red"
V�2:n$="Green"
`�3:n$="Blue"
j�
t�Id%<>1�
~	ȎG%�
��1:Td%=65280
��2:Td%=&FF0000
��3:Td%=-16777216
��
�ș892613,6,Td%,L%
�-�:�q%=0�255:ș892610,q%�!e%:L%?q%=e%?G%:�
��
�8ș892612,a%(V%,3),a%(o%,3),L%:�x(V%,n$):�k(a%(V%,1))
��
��:�g:�O%��c(0)
��a(P%):�
�=��nb(Id%):�q%,c%,m%,y%,k%,H%,J%,K%,G%,Td%,n$:�f:�O%��c(�)
 H%=`%:J%=kb%:K%=lb%:�Id%<>1�

��q%=0�255:ș892610,q%�!e%:`%=e%?1:kb%=e%?2:lb%=e%?3:�ob:c%=ob%:m%=pb%:y%=qb%:k%=rb%:ob%=c%:pb%=0:qb%=0:rb%=0:�W:�C:ș892611,!e%�Td%:Z%?q%=Td%:ob%=0:pb%=m%:qb%=0:rb%=0:�W:�C:ș892611,!e%�Td%:Z%?(q%+256)=Td%
�ob%=0:pb%=0:qb%=y%:rb%=0:�W:�C:ș892611,!e%�Td%:Z%?(q%+512)=Td%:ob%=0:pb%=0:qb%=0:rb%=k%:�W:�C:ș892611,!e%�Td%:Z%?(q%+768)=Td%:�
y�:�q%=0�255:ș892610,q%�!e%:`%=e%?1:kb%=e%?2:lb%=e%?3:�ob:Z%?q%=ob%:Z%?(q%+256)=pb%:Z%?(q%+512)=qb%:Z%?(q%+768)=rb%:�
(�
2-`%=H%:kb%=J%:lb%=K%:G%=0:�V%=1�5:�V%<>o%�
<	ȎG%�
F�0:n$="Cyan"
P�1:n$="Magenta"
Z�2:n$="Yellow"
d�3:n$="Key"
n�
xEș892612,a%(V%,3),a%(o%,3),Z%+256*G%:�x(V%,n$):�k(a%(V%,1)):G%+=1
��
��:�g:�O%��c(0)
��a(P%):�
���pb(p%,Ud%):Ȏp%�
�;�0,1,13,14:ș892613,p%,,L%:ș892612,jd%,U%,L%:�a(P%):�i
��2,3:�W%=0�
�ș892613,p%,269488128,L%
��:ș892613,p%,16,L%
��
� ș892612,jd%,U%,L%:�a(P%):�i
��4,5,6,7,8,11,12:�G(p%)
�
�9:ȎUd%�
�!�0:`%=255:kb%=0:lb%=0:�k(Qa%)
!�1:`%=0:kb%=255:lb%=0:�k(Qa%)
!�2:`%=0:kb%=0:lb%=255:�k(Qa%)
�
"
�G(p%)
,�10:ȎUd%�
6�-1
@1�0:b%()=0:b%(1,2)=255:b%(2,1)=255:b%(3,3)=255
J1�1:b%()=0:b%(1,3)=255:b%(2,2)=255:b%(3,1)=255
T1�2:b%()=0:b%(1,1)=255:b%(2,3)=255:b%(3,2)=255
^�
h�w(Mc%)
r�
|�
�9��Pa(f%,p%):�f%<0�f%>13��1,"Illegal filter ("+�f%+")"
��V:�f:�O%��c(�)
�&ș892614,jd%,U%,f%,p%:�g:�O%��c(0)
��a(P%):�i:�
�H��Qa(c%,Vd%):�c%<0�c%>14��1,"Illegal arithmetic operation ("+�c%+")"
� �c%=13�Vd%=Yb%+(255-Yb%)*256
��f:�O%��c(�)
�'ș892617,jd%,U%,c%,Vd%:�g:�O%��c(0)
��a(P%):�i:�
�o��ab(ed%,fd%,r%,gd%,hd%,id%,dd%):�Wd%,Xd%,Yd%,i%,a:�dd%=10�dd%=12�Wd%=0:Xd%=0:Yd%=0�Wd%=255:Xd%=255:Yd%=255
�0�dd%=10�dd%=11�ȔWd%,gd%:ȔXd%,hd%:ȔYd%,id%
�6�o(0,""):�B:�M(gd%,hd%,id%):ȓȐ0,0,cc%,dc%:�r%>1�
�]�i%=r%�1�-10:a=i%/r%:�M(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):ȏȐed%,fd%,i%:�
 �
 �n:�a(P%):�x(_%,"Shaded"):�
 ���bb(Rc%,Sc%,u%,zc%,Wd%,Xd%,Yd%,dd%):�Zd%,_d%,a,`d%,ae%,be%,ce%,d%,p,q,i%,gd%,hd%,id%,de%,ee%:�dd%=14�gd%=0:hd%=0:id%=0�gd%=255:hd%=255:id%=255
 &1Zd%=Sc%-zc%:_d%=u%-Rc%:�(_d%/Zd%)<0.01�_d%=0
 0�f:�o(0,""):�B:Ȏ��
 :0�Zd%=0�_d%=0:�M(gd%,hd%,id%):ȓȐ0,0,cc%,dc%
 D7�_d%=0:�_d%=0�dc%�12:a=(_d%-Sc%)/(zc%-Sc%):�a<0�a=0
 N�a>1�a=1
 XJ�M(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):ȓȐ0,_d%,cc%,11:�
 b6�Zd%=0:�Zd%=0�cc%�12:a=(Zd%-Rc%)/(u%-Rc%):�a<0�a=0
 l�a>1�a=1
 vJ�M(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):ȓȐZd%,0,11,dc%:�
 �:�_d%<0�Zd%=-Zd%:_d%=-_d%
 �&�Zd%>0�ae%=dc%:ce%=0�ae%=0:ce%=dc%
 ��p=Zd%/�(Zd%*Zd%+_d%*_d%):q=_d%/�(Zd%*Zd%+_d%*_d%):`d%=-ae%*p/q:be%=cc%-ce%*p/q:de%=Rc%-Sc%*p/q:ee%=u%-zc%*p/q:�i%=`d%�be%�20:a=(i%-de%)/(ee%-de%):�a<0�a=0
 ��a>1�a=1
 �Y�M(Wd%+(gd%-Wd%)*a,Xd%+(hd%-Xd%)*a,Yd%+(id%-Yd%)*a):�i%,0:�BY 20,0:�113,dc%*p/q,dc%:�
 ��
 �"�n:�a(P%):�x(_%,"Shaded"):�g:�
 ���M(Wd%,Xd%,Yd%):�Bb%�
 �ș892672,Wd%,Xd%,Yd%
 �4�:e%?0=0:e%?1=Wd%:e%?2=Xd%:e%?3=Yd%:ș264003,!e%
 ��
 ��
 ���qb(s%,fe%):�c%:Ȏs%�
!
�0:Ȏfe%�
!�0:�N(0.85)
!�1:�N(0.60)
! �2:�N(0.35)
!*�
!4
�1:Ȏfe%�
!>�0:�N(1.20)
!H�1:�N(1.60)
!R�2:�N(2.00)
!\�
!f�2:�ge%=2��Ia(U%)��Ia(jd%)
!p
�3:�rb
!z
�4:�sb
!�$�5:`%=0:kb%=0:lb%=0:mb%=0:�W%=0�
!�w�c%=0�15:`%+=16*c%*!(ma%+4*c%)/(wd%*kd%):kb%+=16*c%*!(ma%+64+4*c%)/(wd%*kd%):lb%+=16*c%*!(ma%+128+4*c%)/(wd%*kd%):�
!�/�:�c%=0�255:mb%+=c%*!(ma%+4*c%)/(wd%*kd%):�
!��
!��G(-1):�k(Jc%)
!��6:�w(Qb%)
!��
!��
!���Ia(d%):�eb%�
!�ș892616,,d%,ma%:eb%=0:�Ja
!��
!��w(Jc%):�k(Jc%):�
!���Ja:�h%,v%:Kc%=0:�W%=0�
"<�h%=0�15:v%=ma%!(64*(sb%-1)+192*tb%+4*h%):�v%>Kc%�Kc%=v%
"�
"5�:�h%=0�255:v%=ma%!(1024*tb%+4*h%):�v%>Kc%�Kc%=v%
"$�
".�
"8�
"B��rb:�f:�O%��c(�)
"L�W%=0��tb��ub
"V�g:�O%��c(�)
"`5ș892612,jd%,U%,L%:�x(_%,"Stretched"):�a(P%):�i:�
"jY��ub:�q%,Y%,b,he%:he%=sb%:�d%(he%,2)=d%(he%,1)��1,"The histogram cannot be stretched"
"tP�q%=0�255:b=�(16)-8:Y%=b+255*(q%-d%(he%,1))/(d%(he%,2)-d%(he%,1)):�Y%<0�Y%=0
"~�Y%>255�Y%=255
"�L%?q%=Y%:�:�
"����tb:�q%,H%,J%,K%,s%(),l%,b:�s%(3,2):�l%=1�3:s%(l%,1)=d%(l%,1)*16+15:s%(l%,2)=d%(l%,2)*16+15:�:�s%(1,1)=s%(1,2)��1,"RED histogram cannot be stretched"
"�=�s%(2,1)=s%(2,2)��1,"GREEN histogram cannot be stretched"
"�<�s%(3,1)=s%(3,2)��1,"BLUE histogram cannot be stretched"
"�r�q%=0�255:b=�(16)-8:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:H%=b+255*(H%-s%(1,1))/(s%(1,2)-s%(1,1)):�H%<0�H%=0
"��H%>255�H%=255
"�6J%=b+255*(J%-s%(2,1))/(s%(2,2)-s%(2,1)):�J%<0�J%=0
"��J%>255�J%=255
"�6K%=b+255*(K%-s%(3,1))/(s%(3,2)-s%(3,1)):�K%<0�K%=0
"��K%>255�K%=255
"�9e%!0=0:e%?1=H%:e%?2=J%:e%?3=K%:ș892611,!e%�L%?q%:�:�
"���sb:�f:�O%��c(�)
#�W%=0��vb��wb
#
�g:�O%��c(�)
#5ș892612,jd%,U%,L%:�x(_%,"Equalized"):�a(P%):�i:�
#~��wb:�q%,j,h%,ie%,b,je%,l,h%,ke%:h%=ma%+1024:ie%=wd%*kd%:�q%=0�255:b=�(2)-1:j=q%:je%=j+b:ke%=h%!(4*je%+4):�je%=255�ke%=ie%
#(;l=h%!(4*je%)*(1-j+je%)+ke%*(j-je%):j=255*l/ie%:�j<0�j=0
#2�j>255�j=255
#<L%?q%=255-j:�:�
#F���vb:�q%,c,d,e,h%,ie%,b,je%,l,le%,ke%:le%=ma%+192:ie%=wd%*kd%:�q%=0�255:�D(100*q%/256):b=�(1)-0.5:ș892610,q%�!e%:c=e%?1:d=e%?2:e=e%?3:c=(c-15)/16:d=(d-15)/16:e=(e-15)/16:�c<0�c=0
#P�d<0�d=0
#Z�e<0�e=0
#d3h%=le%:je%=c+b:ke%=h%!(4*je%+4):�je%=15�ke%=ie%
#n;l=h%!(4*je%)*(1-c+je%)+ke%*(c-je%):c=255*l/ie%:�c<0�c=0
#x�c>255�c=255
#�6h%=le%+64:je%=d+b:ke%=h%!(4*je%+4):�je%=15�ke%=ie%
#�;l=h%!(4*je%)*(1-d+je%)+ke%*(d-je%):d=255*l/ie%:�d<0�d=0
#��d>255�d=255
#�7h%=le%+128:je%=e+b:ke%=h%!(4*je%+4):�je%=15�ke%=ie%
#�;l=h%!(4*je%)*(1-e+je%)+ke%*(e-je%):e=255*l/ie%:�e<0�e=0
#��e>255�e=255
#�Be%!0=0:e%?1=255-c:e%?2=255-d:e%?3=255-e:ș892611,!e%�L%?q%:�:�
#�'��N(s):�q%,H%,J%,K%,Y%:�f:�O%��c(�)
#�
�W%=0�
#�R�q%=0�255:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:H%=(H%-128)*s+128:�H%<0�H%=0
#��H%>255�H%=255
#� J%=(J%-128)*s+128:�J%<0�J%=0
#��J%>255�J%=255
$ K%=(K%-128)*s+128:�K%<0�K%=0
$�K%>255�K%=255
$7e%!0=0:e%?1=H%:e%?2=J%:e%?3=K%:ș892611,!e%�L%?q%:�
$",�:�q%=0�255:Y%=(q%-128)*s+128:�Y%<0�Y%=0
$,�Y%>255�Y%=255
$6L%?q%=Y%:�
$@�
$J�g:�O%��c(�)
$T"ș892612,jd%,U%,L%:�a(P%):�i:�
$^=��Ka:�me%,c%,o,ne%,oe%,pe%:me%=�(�s(Jb%)):�me%<2�me%>20��
$h&pe%=�(�s(Lb%)):�pe%<-360�pe%>360��
$r o=�(�s(Mb%)):�o<0.1�o>0.99��
$|&ne%=�(�s(Nb%)):�ne%<-500�ne%>500��
$�&oe%=�(�s(Ob%)):�oe%<-500�oe%>500��
$��f:�O%��c(�)
$�O�c%=0�me%-1:�D(00*c%/me%):�ib(pe%*c%,o^c%,ne%*c%,oe%*c%,0,�):�:�g:�O%��c(0)
$� �x(_%,"Twisted"):�i:�a(P%):�
$�[��Da(x%,y%):�qe%,re%,M%,p%:x%=x%*100/(a%(o%,4)*T%):y%=y%*100/(a%(o%,5)*N%):�x%<1�y%<1��
$�2qe%=cc%/(x%*T%):re%=dc%/(y%*N%):�qe%<2�re%<2��
$�$M%=500+(qe%+4)*(re%+4):�M%<8000�
$�	p%=Z%
$�M�:p%=�b(M%):�p%<=0��1,"Not able to claim workspace for the mosaic effect"
$��
$��p%!0=M%:p%!4=0:p%!8=16:p%!12=16:ș46,256+15,p%,"TEMP",0,qe%,re%,se%:e%!0=qe%:e%!4=re%:e%!8=cc%/T%:e%!12=dc%/N%:�o(p%,"TEMP"):ș131118,308,a%(o%,2),a$(o%,1),0,0,8,e%,-1:�n:e%!0=cc%/T%:e%!4=dc%/N%:e%!8=qe%:e%!12=re%:�o(0,""):�B
$�Eș131118,256+52,p%,"TEMP",0,0,8,e%,-1:�n:�a(P%):�i:�p%<>Z%��X(p%)
$��
%2��xb(me%,te%,b):�G%,qe%,re%,x%,y%:�f:�O%��c(�)
%��o(0,""):�kb:�63Ȝ255:ȓȐ0,0,ud%,vd%:�x%=1�wd%�me%/T%:�y%=1�kd%�me%/N%:ș892609,,U%,x%,kd%-y%+1�G%:�fb(G%):qe%=x%*T%+�(T%*b)-T%*b/2:re%=y%*N%+�(N%*b)-N%*b/2:ȏȐqe%,re%,te%:�:�:�n:�g:�O%��c(0)
%#�x(_%,"Pointilize"):�i:�a(P%):�
%&!��yb(s%):�x%,y%,G%:�s%=2�s%=3
%0s%=s%*8+6:�V:�f:�O%��c(�)
%:h�o(0,""):�kb:�y%=1�kd%�3:�D(100*y%/kd%):�x%=1�wd%�3:ș892609,,U%,x%,kd%-y%+1�G%:�W%=0�ș892611,G%�G%
%D'G%=G%�(�(2)-1):�W%=0�ș892610,G%�G%
%NT�fb(G%):�(x%+4-�(8))*T%,(y%+4-�(8))*N%:�BY �(4)-s%,�(6)-s%*2:�:�:�n:�g:�O%��c(0)
%X"�x(_%,"Scratched"):�i:�a(P%):�
%b��kb:�vb%�
%l*ȑxb%*T%,yb%*N%:�24,0;0;ud%-T%;vd%-N%;
%v�:ȑ0,0:�26
%��
%��
%�
��B:�vb%�
%�2�24,xb%*T%;yb%*N%;xb%*T%+ud%-T%;yb%*N%+vd%-N%;
%��:ȑ0,0:�26
%��
%��
%�$��zb(ue%,ve%):�G%,v,i%,d%:Ȏue%�
%��0:�ve%>=0��yb(ve%)
%��1:�w(Nc%)
%��2:�G(112)
%��3:�r(1)
%�
�4:Ȏve%�
&�-1,0:�xb(20,9,2)
&�1:�xb(10,20,5)
&�2:�xb(10,10,15)
& �
&*�5:�w(Kb%)
&4�6:�ve%=0�ve%=1��Ta(ve%+1)
&>�7:�w(Xb%)
&H
�8:Ȏve%�
&R�0,1:Ȏwa%�
&\�0:�pb(ve%+13,0)
&f3�1:�we%<>63��1,"Works only in 256 colour modes"
&p�Ab(ve%+11)
&z �2:va%=�:ș892613,ve%+11,,L%
&��
&��2,3,4:wa%=ve%-2
&��
&�
�9:�Ta(3)
&�r�10:�i%=0�63�4:G%=4*�(64)-4:e%?0=G%:e%?1=G%+1:e%?2=G%+2:e%?3=G%+3:L%!(i%*4)=!e%:�:ș892612,jd%,U%,L%:�i:�a(P%)
&��11:�r(101):Ta%=3
&��12:Ȏve%�
&�
�0:�Bb
&�
�1:�Cb
&��
&�;�13:v=�(�s(ca%)):d%=�((cc%/2)^2+(dc%/2)^2):�f:�O%��c(�)
&�r�D(10):�i%=0�2047:Z%!(4*i%)=(1<<16)*�(2*�*i%/2048):�:�D(20):�i%=0�2047:Z%!(4*i%+8200)=16*�(i%):�:�D(30):Ȏve%�
&�1�0:�J(D,jd%,U%,Z%,v*23301.7/d%,Z%+8200,d%*16)
'1�1:�J(E,jd%,U%,Z%,v*23301.7/d%,Z%+8200,d%*16)
'"�2:�J(F,jd%,U%,Z%,v,Z%+8200,0)
'�
'$�g:�O%��c(�)
'.
�i:�a(P%)
'8�
'B�
'L.��Bb:�i%,Gd%,Hd%,y%,xe%,ye%,t,t%:�cc%<dc%�
'VGd%=wd%:Hd%=cc%/N%
'`�:Gd%=kd%*N%/T%:Hd%=kd%
'j�
't$Gd%=Gd%/2:Hd%=Hd%/2:�f:�O%��c(�)
'~��i%=0�kd%:Z%!(4*i%)=wd%/2-1:�:�y%=kd%/2-Hd%�kd%/2+Hd%:t=(1-((y%-kd%/2)/Hd%)^2):xe%=wd%/2+Gd%*�(�(t)):ye%=wd%-xe%:�xe%<ye%�t%=xe%�t%=ye%
'��t%=wd%/2�t%-=1
'�4Z%!(4*y%)=t%:�:ș892615,jd%,U%,4,Z%:�g:�O%��c(�)
'��i:�a(P%):�
'���Cb:�i%:�f:�O%��c(�)
'�J�i%=0�kd%:Z%!(4*i%)=0.5*wd%*i%/kd%:�:ș892615,jd%,U%,4,Z%:�g:�O%��c(�)
'��i:�a(P%):�
'�B��Ab(c%):�x%,y%,vc%:ș892613,c%,,L%:�:�fa:ȗx%,y%,vc%:�vc%=2:�
'�D��fa:�ze%,Ae%:�we%<>63�va%=0:�1,"Works only in 256 colour modes"
'��wb%�Ae%=ga%�Ae%=-1
'��ș892612,jd%,jd%,L%:b%!0=P%:b%!4=0:b%!8=0:b%!12=32700:b%!16=32700:fa%!0=a%(_%,4)*ea%!0:fa%!4=a%(_%,5)*ea%!4:ș262345,,b%�ze%:ȕze%:ș131118,308,a%(_%,2),a$(_%,1),b%!4-b%!20,b%!16-b%!24,,fa%,Ae%:ș262346,,b%�ze%:�:�
'���Ta(Ld%):�Be%:�f:�O%��c(�)
'�
ȎLd%�
(�0:�ib%�
(
H�Be%=0�2047:Z%!(4*Be%)=hb%*(1+�(Be%*f*N%))/T%:�:ș892615,jd%,U%,4,Z%
(F�:�Be%=0�2047:Z%!(4*Be%)=hb%*�(Be%*f*N%)/T%:�:ș892615,jd%,U%,0,Z%
(�
((�x(_%,"Rippled")
(2�1:ș892615,jd%,U%,1,255
(<�2:ș892615,jd%,U%,1,0
(F�3:ș892615,jd%,U%,2
(P�
(Z�g:�O%��c(0)
(d�i:�a(P%):�
(n!��La(Ce%,p%,pd%):�f:�O%��c(�)
(x�pd%=2�
(�ș892618,jd%,p%,Ce%:�k(P%)
(��:ș892618,U%,p%,Ce%:�k(X%)
(��
(��g:�O%��c(0)
(��
(�3��Ca:�i%,m$:m$="Tidy images|=,":�i%=1�Da%:Ȏi%�
(��o%:m$+="Source|,"
(��_%:m$+="Destination|,"
(�:m$+=�(i%)+"|,"
(��
(�u�:�h(Da%+1,-1,"Images",�m$,�m$-1)):�i%=1�Da%:�s(1,i%,a%(i%,6)<>0):�:�j(2,1,�Ca%):�j(2,3,�Ca%):�j(2,2,Ca%):ge%=1:�
(�<��Ya(i%):fb%=i%:$Ya%=�(a%(i%,4)):$Xa%=a$(i%,2):ge%=-i%:�
(�#��`(wc%):�i%:�wc%=2�i%=o%�i%=_%
)��sa(i%):�s(13,0,Ea%):�s(13,1,O%):�s(13,2,Fa%):�s(13,3,Ga%=1):�s(16,5,�vb%):�s(16,6,vb%):�j(16,6,�ub%):�j(16,4,�ub%):fb%=i%:$Ya%=�(a%(i%,4)):$Xa%=a$(i%,2):�j(10,3,eb%):�j(10,4,eb%):�j(10,5,eb%):�j(14,0,�ub%):�j(14,1,�ub%)
)��j(14,2,�ub%):�j(14,3,�ub%):�j(14,4,�ub%):�j(14,5,�ub%):�j(14,6,�ub%):�j(14,7,�ub%):�s(21,2,wa%=0):�s(21,3,wa%=1):�s(21,4,wa%=2):�s(26,6,Bb%):�i%=0�7:�s(25,i%,Va%=i%):�:ge%=wc%:�
)���Db(t%):�G%:W%=t%:�j(16,1,t%):�s(13,4,t%):�j(18,5,t%):�j(18,9,t%):�j(18,10,t%):�j(18,11,t%):�j(18,13,t%):�j(18,14,t%):�K(Jc%,1,t%):�K(Jc%,2,t%):�K(Jc%,3,t%):�Da%<4��S(18,13)
)"�Da%<5��S(18,14)
),	ȎW%�
)60�0:*RMLoad <Process$Dir>.Resources.ColourPro
)@.Ma%=�:�d(Na%,4,�):$Pa%="Effect":�q(1):G%=7
)J.�1:*RMLoad <Process$Dir>.Resources.GreyPro
)T,Ma%=�:�d(Na%,4,�):$Pa%="Grey":�q(0):G%=3
)^�
)h9�T(Qa%,0,G%):�T(Qa%,1,G%):�T(Qa%,2,G%):eb%=�:d%()=0:�
)r��q(De%):�De%�W%=1��
)|*nb%=De%:�De%��T(Qa%,14,3)��T(Qa%,14,7)
)��
)����ra:�m$:Ee%=aa%+100:Fe%=ba%+300:e%(1)=ba%:�h(5,2,"Process","Info|[Info]=,Views|>1<,Create image ...|=,Drop file|,Quit|"):�h(1,4,"Degrees"," |(08Rot)")
)��m$="Noise (weak)|,Noise (strong)|=,Average|,Smoothen (weak)|,Smoothen (strong)|,Median|,Sharpen|=,Vertical edges|,Horizontal edges|,Edges (emboss)|=,Minimum|,Maximum|=,Difference ...|":�h(13,5,"Filters",m$)
)���h(3,6,"Swap colours","Red <> Green|,Red <> Blue|,Green <> Blue|"):�h(3,7,"Change","Small|,Medium|,Much|"):�h(3,8,"Scratch","Short|,Medium|,Long|"):�h(3,9,"Filter","Red|,Green|,Blue|")
)��m$="Reduce range|>7<,Expand range|>7<=,Calculate histogram ...|,Stretch|,Equalise|,Transfer median|=,Colour correction|[NonLin]":�h(7,10,"Range",m$):�h(3,11,"Style","Dots|,Overlap|,Wild|")
)��m$="Source + Dest|,Source - Dest|,Dest - Source|=,Source EOR Dest|,Source AND Dest|,Source OR Dest|,Source = Dest|,Source <> Dest|,Source < Dest|,Source > Dest|=,MAX(Source;Dest)|,MIN(Source;Dest)|=,Overlay|,Combine|[Mark],ABS(Source - Dest)|"
)…�h(15,12,"Dest =",m$):m$="Automatic swap|,Disable DMA|,Show toolbox|,Normal panning|,Display in greytones|":�h(5,13,"Options",m$)
)��m$="Extend top|,Extend bottom|,Extend right|,Extend left|=,Top neighbour|,Bottom neighbour|,Right neighbour|,Left neighbour|":�h(8,14,"Select area",m$):�h(2,15,"Extend�area","White|,Black|")
)֘m$="Radial to black|,Radial to white|,Radial from black|,Radial from white|,Linear to black|,Linear to white|=,Use dithering|":�h(7,26,"Shading",m$)
)�m$="Clear...|,Flip about X-axis|,Flip about Y-axis|,Rotate|>4<,Shading|>26<=,Distort triangle|,Distort quadrangle|=,Smudge|":�h(8,24,"More tools",m$)
)��m$="Image info|[Image],Convert to greyscale|,Copy source image|=,Select area|>14<,Clear area|=,Use full image|,Use selected area|":�h(7,16,"Image",m$):�h(8,25,"Plot type","Set|=,OR|,AND|,EOR|,Invert|,Don't plot|,AND NOT|,OR NOT|")
)��h(4,17,"Misc","Options|>13<,Edit pencil/spraycan ...|,Plot type|>25<=,Reload last|"):�h(2,27,"","True colours|,8 bit per pixel|")
)�sm$="Invert|,Remove TINT|=,Brighten|,Darken|=,Black & White ...|,Greytones ...|,Threshold ...|=,Add colour ...|"
*�m$+=",Sub colour ...|,RGB filter ...|>9<,Translate ...|>6<,Shade ...|=,Isolate ...|,RGB separation|>27<,CMYK separation|>27<,HSV separation|>27<":�h(16,18,"Process",m$):m$="Up|,Down|=,Only once|,Repeatedly|,Multi-tasking|"
*��h(5,21,"Cycle",m$):�h(2,28,"Squash","Circle|,Triangle|"):m$="Whirl|>4<,Son of Whirl|>4<,Whirl revisted|>4<":�h(3,29,"Whirl type",m$)
*�m$="Scratch|>8<,Ripple ...|[Ripple],Trace edges ...|,Mosaic ...|,Pointillise|>11<,Twist|[Twist],Extend area|>15<,Add noise|[Noise],Cycle bytes|>21<,Mask|,Mix colours|,Wheel|,Squash|>28<,Whirl|>29<":�h(14,19,"Effects",m$)
*&�m$="Image|>16<,Miscellaneous|>17<,Contrast/range|>10<,Process|>18<,Filters|>5<,Effects|>19<,Arithmetic|>12=<,More tools|>24<=,Swap images|,Save image|[Save],Zoom|[Zoom]":�h(11,20,"Process",m$)
*0�m$="Copy from source|,Copy from destination|=,Copy to source|,Copy to destination|":�h(4,22,"Copy",m$):m$="Use as source|,Use as destination|=,Copy|>22<,Reload last|,Save image|[Save],Zoom|[Zoom]":�h(6,23,"Process",m$)
*:�Da%<4��S(18,13):�S(18,15)
*D�Da%<5��S(18,14)
*N�
*X"ݤs(a%):ș891331,a%,e%,13:=$e%
*b1ݤe(f$):ȕ�f$,".")>0:f$=�f$,�f$,".")+1):�:=f$
*lU��aa:�M%,Ge%,f$,Id%:f$="<Process$Dir>.Resources.XSprites":ș53,-1,5�,,Ge%:�Ge%<2�
*v'ș8,5,f$+"22"�Id%:�Id%=1�f$=f$+"22"
*��
*�[ș8,5,f$�,,,,M%:M%+=16:�cd% M%:cd%!0=M%:cd%!4=0:cd%!8=16:cd%!12=16:ș46,256+10,cd%,f$:�
*����oa:�He%,Ie%,n%,Je%,i%,w%,s%:He%=262363:Ie%=262337:n%=Q%:Je%=6000:s%=cd%:ș262361,,"<Process$Dir>.Resources.Templates":șHe%,,b%,n%,Q%+Je%,-1,"Info"�,,n%:șIe%,,b%�Ia%:șHe%,,b%,n%,Q%+Je%,-1,"Save"�,,n%:b%!64=s%:șIe%,,b%�Na%
*��șHe%,,b%,n%,Q%+Je%,-1,"Zoom"�,,n%:b%!64=s%:șIe%,,b%�Za%:șHe%,,b%,n%,Q%+Je%,-1,"Select"�,,n%:b%!64=s%:șIe%,,b%�Qa%:șHe%,,b%,n%,Q%+Je%,-1,"Histogram"�,,n%:b%!64=s%:șIe%,,b%�Jc%
*��șHe%,,b%,n%,Q%+Je%,-1,"Translate"�,,n%:șIe%,,b%�Mc%:șHe%,,b%,n%,Q%+Je%,-1,"Wobble"�,,n%:b%!64=s%:șIe%,,b%�Nc%:șHe%,,b%,n%,Q%+Je%,-1,"ImageInfo"�,,n%:șIe%,,b%�bc%:șHe%,,b%,n%,Q%+Je%,-1,"Twist"�,,n%:șIe%,,b%�Kb%
*��șHe%,,b%,n%,Q%+Je%,-1,"NonLin"�,,n%:b%!64=s%:șIe%,,b%�Qb%:șHe%,,b%,n%,Q%+Je%,-1,"Noise"�,,n%:b%!64=s%:șIe%,,b%�Xb%:șHe%,,b%,n%,Q%+Je%,-1,"Tools"�,,n%:b%!64=s%:șIe%,,b%�ec%
*��șHe%,,b%,n%,Q%+Je%,-1,"Dest"�,,n%:b%!64=s%:șIe%,,b%�fc%:șHe%,,b%,n%,Q%+Je%,-1,"Range"�,,n%:b%!64=s%:șIe%,,b%�Dc%:șHe%,,b%,n%,Q%+Je%,-1,"SubTool"�,,n%:b%!64=s%:șIe%,,b%�gc%
*��șHe%,,b%,n%,Q%+Je%,-1,"Create"�,,n%:b%!64=s%:șIe%,,b%�`a%:șHe%,,b%,n%,Q%+Je%,-1,"Pencil"�,,n%:b%!64=s%:șIe%,,b%�Hb%:�i%=1�Da%:șHe%,,b%,n%,Q%+Je%,-1,"Source"�,,n%:șIe%,,b%�w%:a%(i%,1)=w%:�:ș262362:�
*�W��h(Ke%,h%,j$,t$):�b$,k$,d$,c$,Le%,Me%,Ne%,I%,Qc%,Oe%,Pe%:�h%<0�Qe%=e%(-h%)�Qe%=Fe%
*�Re%=Qe%:�j$>11�j$=�j$,11)
*�$Re%=j$:Qc%=16*�j$+8:Re%!12=459271:Re%!20=44:Re%!24=0:Re%+=28:�I%=1�Ke%:Le%=-1:Me%=0:Ne%=0:Pe%=0:b$=�t$,�t$,",")-1):Oe%=�b$,"|"):k$=�b$,Oe%-1):c$=�b$,Oe%+1):�c$,">")�
*�7d$=�c$,�c$,">")+1):d$=�d$,�d$,"<")-1):Le%=e%(�(d$))
*��
+�c$,"[")�
+/d$=�c$,�c$,"[")+1):d$=�d$,�d$,"]")-1):Ȏd$�
+�"Info":Le%=Ia%
+ �"Save":Le%=Na%
+*�"Zoom":Le%=Za%
+4�"Image":Le%=bc%
+>�"Twist":Le%=Kb%
+H�"Ripple":Le%=Nc%
+R�"NonLin":Le%=Qb%
+\�"Noise":Le%=Xb%
+f�"Mark":Le%=Dc%
+p:�1,"Unknown window :"+d$
+z�
+��
+��c$,"(")�
+�3d$=�c$,�c$,"(")+1):d$=�d$,�d$,")")-1):Ȏ�d$,3)�
+��"Rot":Re%!12=ca%
+��
+�9Re%!16=-1:Re%!20=��d$,2):Me%=4:Pe%=1:Qc%=16+16*Re%!20
+��:Oe%=�k$:�Oe%>11�
+�>Re%!12=Ee%:Re%!16=-1:Re%!20=Oe%+1:$Ee%=k$:Ee%+=Oe%+2:Pe%=1
+��:$(Re%+12)=k$
+��
+� �16+16*Oe%>Qc%�Qc%=16+16*Oe%
+��
+��c$,"=")�Ne%=2
,�t$=�t$,�t$,",")+1):Re%!0=Ne%�Me%:Re%!4=Le%:Re%!8=&7000021�Pe%<<8:Re%+=24:�:Re%!-24=(Re%!-24�128):Qe%!16=Qc%:�h%>=0�Fe%+=28+24*Ke%:e%(h%)=Qe%
,�
,��Eb(b%):Ȏb%!0�
,$�0:�w(Ia%)
,."�1:�b%!4<=0��ua��a(a%(b%!4,1))
,8�2:�w(`a%)
,B	�3:�Y
,L�4:sa%=�
,V�
,`�
,j��Fb(b%):Ȏb%!0�
,t�0:Ȏb%!4�
,~�0:�w(bc%)
,�
�1:�Gb
,�	�2:�V
,��3:Ȏb%!8�
,�
�-1:�r(2)
,��0,1,2,3,4,5,6,7:�_a(b%!8)
,��
,��4:�v(0):ub%=0
,��5,6:�v(b%!4-5)
,��
,��1:Ȏb%!4�
,��0:Ȏb%!8�
,��0:Ea%=�Ea%
-
�1:O%=�O%
-
�2:Fa%=�Fa%:�Fa%�
-�a%(o%,6)<>0��a(X%)
-�a%(_%,6)<>0��a(P%)
-(�:�l(ec%):�l(fc%)
-2�
-<�3:Ga%=1-Ga%
-F�4:�Hb(�wb%)
-P�
-Z�1:�a(Hb%)
-d�2:Ȏb%!8�
-n
�-1:Va%=0
-x:Va%=b%!8
-��
-��3:�ge%=2��Ib(o%)��Ib(_%)
-��
-��2:�qb(b%!4,b%!8)
-��3:Ȏb%!4�
-��13:�mb(b%!8)
-��14:�nb(b%!8)
-��15:�lb(b%!8)
-�:�pb(b%!4,b%!8)
-��
-��4:Ȏb%!4�
-�*�0,1,2,3,4,5,6,7,8,9,10,11:�Pa(b%!4,0)
-��12:�G(113)
.�
.�5:�zb(b%!4,b%!8)
.�6:�Qa(b%!4,0)
."�7:Ȏb%!4�
.,�0:�G(200)
.6�1:�hb(33,o%)
.@�2:�hb(47,o%)
.J �3:�ib(�(�s(ca%)),1,0,0,�,0)
.T�4:Ȏb%!8�
.^$�0,1,2,3,4,5:�r(101):Ta%=10+b%!8
.h�6:Bb%=�Bb%
.r�
.|�5:�r(101):Ta%=1
.��6:�r(101):Ta%=2
.��7:�r(101):Ta%=20
.��
.�
�8:�Ha
.��9:�w(Na%)
.��10:�w(Za%)
.��
.��
.���la(b%):Ȏge%�
.��1:�Eb(b%)
.��2,3:�Fb(b%)
.�
:�ge%<0�
.�Ȏb%!0�
/�0:�Jb(-ge%):ge%=2
/�1:�Kb(-ge%):ge%=3
/�2:Ȏb%!4�
/&!�0:�F(o%,-ge%):�k(a%(-ge%,1))
/0!�1:�F(_%,-ge%):�k(a%(-ge%,1))
/:�2:�F(-ge%,o%):�k(X%)
/D�3:�F(-ge%,_%):�k(P%)
/N�
/X�3:�Ib(-ge%)
/b�4:�w(Na%)
/l�5:�w(Za%)
/v�
/��
/��
/�ș262351,,b%:�(b%!8�1)�
/�
Ȏge%�
/�"�1:�Ca:ș262356,,e%(2),Bc%,Cc%
/�)�2,3:�`(ge%):ș262356,,e%(20),Bc%,Cc%
/�
:�ge%<0�
/�&�Ya(-ge%):ș262356,,e%(23),Bc%,Cc%
/��
/��
/��
/��
/�.��w(w%):ș262356,,w%,za%/2-200,Aa%/2+300:�
05��S(p%,n%):p%=e%(p%)+36+n%*24:!p%=(!p%�4194304):�
0M��j(p%,n%,s%):p%=e%(p%)+36+n%*24:�s%�!p%=(!p%�4194304)�!p%=(!p%��4194304)
0�
0 A��s(p%,n%,t%):p%=e%(p%)+28+n%*24:�t%�!p%=(!p%�1)�!p%=(!p%��1)
0*�
04��f:ș263872:�
0>��g:ș263873:�
0H��D(p%):ș263876,p%:�
0RE��Hb(Se%):�i%:wb%=Se%:�Lb:�i%=1�Da%:�k(a%(i%,1)):�:�s(13,4,wb%):�
0\���Mb(V%):�q%,H%,J%,K%:�q%=0�255:ș892610,q%�!e%:H%=e%?1:J%=e%?2:K%=e%?3:L%?q%=H%*0.3+J%*0.55+K%*0.15:�:ș892612,a%(V%,3),a%(V%,3),L%:�
0fE��Gb:�f:�Hb(�):�V%=1�Da%:�D(100*(V%-1)/Da%):�Mb(V%):�:�Db(1):�g:�
0p1��b(j%!12,j%!16,j%!8):�j%!12<>-1�ș661120,,j%
0z&�j%!8=0�Ja%=-1�Ja%=j%!12:qc%=j%!16
0��
0�4��d(w%,i%,f%):j%!0=w%:j%!4=i%:ș262350,,j%:Ȏf%�
0��0:j%!8=j%!24��(1<<21)
0��1,-1:j%!8=j%!24�(1<<21)
0��2:j%!8=j%!24�(1<<21)
0��
0�j%!12=-1:ș262349,,j%:�
0�f��T(w%,i%,Te%):j%!0=w%:j%!4=i%:ș262350,,j%:j%!8=(j%!24��(15<<24))�Te%<<24:j%!12=-1:ș262349,,j%:�
0�Y��K(w%,i%,f%):j%!0=w%:j%!4=i%:ș262350,,j%:�f%�j%!8=j%!24�(1<<22)�j%!8=j%!24��(1<<22)
0�j%!12=-1:ș262349,,j%:�
0�<��e(w%,i%):j%!0=w%:j%!4=i%:j%!8=0:j%!12=0:ș262349,,j%:�
0�2ݤi(w%,i%):b%!0=w%:b%!4=i%:ș262350,,b%:=b%!28
0�!��ba(pa%,l%):ș29,0,pa%,,l%:�
18ݤb(s%):�f%,p%,Ue%:ș131101,2,pa%,,s%�,,p%;f%:�f%�1�
1=ș393452,pa%+pa%!8+256+s%-32768,-1�f%;Ue%:�(Ue%�1)<>0�=-1
1@f%+=32768:ș131101,5,pa%,,f%-pa%-pa%!12�;Ue%:�(Ue%�1)<>0�=-1
1$*ș131101,2,pa%,,s%�,,p%;f%:�f%�1�p%=-1
1.�
18=p%
1B��X(�p%):�p%<=0��
1LWș131101,3,pa%,p%:ș131101,5,pa%,,pa%!8-pa%!12:ș393452,pa%+pa%!12-32768,-1:p%=-1:�
1V���pa:ș53,-1,3�,,we%:ș53,-1,4�,,Ve%:Ve%=(1<<Ve%):ș53,-1,5�,,We%:We%=(1<<We%):ș53,-1,11�,,za%:za%=za%*Ve%:ș53,-1,12�,,Aa%:Aa%=Aa%*We%:ș262381,296,cd%,"RANGEMARK",,,,ha%,ia%:�Lb:u$="ptr_mosaic":w$="ptr_brush"
1`"r$="ptr_menuw":x$="ptr_hand":�
1jW��Lb:�bd%,Ge%,i%,p%:ș53,-1,4�,,bd%:bd%=(1<<bd%):ș53,-1,5�,,Ge%:Ge%=(1<<Ge%):�wb%�
1tB�i%=0�255:e%?0=0:e%?1=i%:e%?2=i%:e%?3=i%:ș264004,!e%�ga%?i%:�
1~�:ș264000,15,0,-1,-1,ga%
1��
1�	�Ca%�
1�Vea%!0=ud%:ea%!4=vd%:ea%!8=wd%*bd%*100:ea%!12=kd%*Ge%*100:fa%!8=ea%!8:fa%!12=ea%!12
1��
1��
1����t(H%,J%,K%,Y%):�ze%,x%,y%:`%=H%:kb%=J%:lb%=K%:mb%=Y%:H%=2*H%:J%=2*J%:K%=2*K%:Y%=2*Y%:b%!0=Qa%:b%!4=136:b%!8=76:b%!12=780:b%!16=268:ș262345,,b%�ze%:x%=b%!4-b%!20+136:y%=b%!16-b%!24:ȕze%:ș262374,1:ȓȐx%+2+H%,y%+244,512-H%,23
1�`ȓȐx%+2+J%,y%+188,512-J%,23:ȓȐx%+2+K%,y%+132,512-K%,23:ȓȐx%+2+Y%,y%+76,512-Y%,23:�W%=0�
1΃ș892672,`%:ȓȐx%,y%+244,H%,23:ș892672,,kb%:ȓȐx%,y%+188,J%,23:ș892672,,,lb%:ȓȐx%,y%+132,K%,23:�nb%�ș262374,2�ș262374,7
1�CȓȐx%,y%+76,Y%,23:ș892672,`%,kb%,lb%:ȓȐx%+544,y%+132,68,132
1��:ș262374,2:ȓȐx%,y%+244,H%,23:ȓȐx%,y%+188,J%,23:ȓȐx%,y%+132,K%,23:ș262374,7:ȓȐx%,y%+76,Y%,23:ș892672,mb%,mb%,mb%:ȓȐx%+544,y%+132,68,132
1��
1�ș262346,,b%�ze%:�:�
2��gb:�Nb(1):�
2
��u:�Nb(0):�
2���Nb(Xe%):�ze%,x%,y%,m,n:b%!0=X%:b%!4=0:b%!8=0:b%!12=32700:b%!16=32700:ș262345,,b%�ze%:x%=b%!4-b%!20:y%=b%!16-b%!24:ȕze%:�Ob(x%,y%):�Xe%�vb%�
2_ș262374,71:m=a%(o%,4)*T%/100:n=a%(o%,5)*N%/100:ȓx%+m*xb%,y%+n*yb%,m*(zb%-xb%),n*(Ab%-yb%)
2(�
22ș262346,,b%�ze%:�:�
2<o��ia(b%):�ze%,x%,y%,u%,p%,h%,u,Ad%,m,n,g,Ae%,s$:ș262344,,b%�ze%:x%=b%!4-b%!20:y%=b%!16-b%!24:ȕze%:Ȏb%!0�
2F�Kb%,Na%,Za%:ș530049,,b%
2P3�Ia%:�Pb(cd%,"Info",x%+632,y%-220):ș530049,,b%
2Z�Xb%,bc%,`a%:ș530049,,b%
2dI�Dc%:ș46,308,cd%,"RANGEMARK",x%+8+2*Yb%,y%+24,0,ha%,ia%:ș530049,,b%
2n&�X%:�Qb(x%,y%,o%):�Ob(x%,y%):�vb%�
2x_ș262374,71:m=a%(o%,4)*T%/100:n=a%(o%,5)*N%/100:ȓx%+m*xb%,y%+n*yb%,m*(zb%-xb%),n*(Ab%-yb%)
2��
2��Jc%:�W%=0�
2��p%=ma%+64*(sb%-1)+192*tb%:u=255/Kc%:�h%=0�15:ȓȐx%+32*h%,y%+80,28,u*(p%!(h%*4)):�:�x%+32*d%(sb%,1),y%+36:�101,x%+32*d%(sb%,2),y%+48
2�}�:p%=ma%+1024*tb%:u=255/Kc%:�h%=0�255:ȓȐx%+2*h%,y%+80,2,u*(p%!(h%*4)):�:�x%+2*d%(sb%,1),y%+36:�101,x%+2*d%(sb%,2),y%+48
2��
2�ș530049,,b%
2�O�Nc%:�Ad%=0�400�5:u%=28+hb%*�(Ad%*f):�Ad%=0��u%+x%,Ad%+y%-4��u%+x%,Ad%+y%-4
2��:ș530049,,b%
2��gc%:�`a(b%)
2ܨ�Mc%:�h%=0�3:u%=x%+216*(h%-1)+24:ș262374,11:ȓȐu%,y%+80,60,b%(h%,1):ș262374,10:ȓȐu%+64,y%+80,60,b%(h%,2):ș262374,8:ȓȐu%+128,y%+80,60,b%(h%,3):�:ș530049,,b%
2��Qb%:x%+=20:y%+=84:ȎSb%�
2�H�1:g=a(Rb%):�x%,y%:�u%=8�256�8:Ad%=((u%/256)^g)*256:�Ad%>256�Ad%=256
2��x%+u%,y%+Ad%:�
3��2:ș262374,3:�u%=64�192�64:�x%+u%,y%:�BY 0,256:�x%,y%+u%:�BY 256,0:�:ș262374,7:�u%=0�4:Ad%=c%(Rb%,u%+1):�u%=0��x%+64*u%,y%+Ad%��x%+64*u%,y%+Ad%
3�
31�4:�u%=0�15:ȓȐx%+16*u%,y%,15,f%(Rb%,u%+1):�
3"�
3,ș530049,,b%
36�Qa%:u%=x%+136:�W%=0�
3@�ș892672,`%:ȓȐu%,y%+244,`%*2,23:ș892672,,kb%:ȓȐu%,y%+188,kb%*2,23:ș892672,,,lb%:ȓȐu%,y%+132,lb%*2,23:�nb%�ș262374,2�ș262374,7
3JFȓȐu%,y%+76,mb%*2,23:ș892672,`%,kb%,lb%:ȓȐx%+680,y%+132,68,132
3T��:ș262374,2:ȓȐu%,y%+244,`%*2,23:ȓȐu%,y%+188,kb%*2,23:ȓȐu%,y%+132,lb%*2,23:ș262374,7:ȓȐu%,y%+76,mb%*2,23:ș892672,mb%,mb%,mb%:ȓȐx%+680,y%+132,68,132
3^�
3h
Ȏwe%�
3r!�1,3:s$="MODE15":Ae%=ga%:h%=4
3|5�15:Ae%=-1:h%=1:s$="MODE12COL":�wb%�s$="MODE12BW"
3�*:s$="MODE15":h%=4:�wb%�Ae%=ga%�Ae%=-1
3��
3�lja%!0=h%*256:ja%!4=h%*256:ja%!8=128*Ve%:ja%!12=64*We%:ș46,308,cd%,s$,x%+800,y%+20,,ja%,Ae%:ș530049,,b%
3�$�Hb%:ȏȐx%+656,y%+96,Cb%:ȎGb%�
3�,�1:ȓȐx%+656-Eb%,y%+348-Fb%,Eb%*2,Fb%*2
3��2:ȏȐx%+656,y%+348,Eb%
3� �3:ȝȐx%+656,y%+348,Eb%,Fb%
3��
3��u%=x%+80:zc%=y%+308:ȓȐu%-4,zc%-4,8:ȓȐu%+48-8,zc%-8,16:ȓȐu%+96-16,zc%-16,32:ȏȐu%+144,zc%,6:ȏȐu%+192,zc%,12:ȏȐu%+240,zc%,24:ȝȐu%+288,zc%,4,24:ȝȐu%+336,zc%,8,24:ȝȐu%+384,zc%,16,24:ș530049,,b%
3�%:h%=�a(b%!0):�h%>0��Qb(x%,y%,h%)
3��
3�ș262346,,b%�ze%:�:�
3���Ob(x%,y%):�g%!0<=0��
4ș262374,71:�cb(x%,y%,1):�
4N��cb(x%,y%,z%):�d%,p%,u%,zc%,Ye%,Ze%,_e%,`e%:�d%=1�g%!0:p%=g%+12*d%-8:�z%�
44u%=x%+p%!4*a%(o%,4)/100:zc%=y%+p%!8*a%(o%,5)/100
4&�:u%=x%+p%!4:zc%=y%+p%!8
40�
4:Ȏp%!0�
4D�0:�u%,zc%
4N�1:�101,u%,zc%
4X(�2:�u%,Ze%:�u%,zc%:�Ye%,zc%:�Ye%,Ze%
4b�3:�157,u%,zc%
4l�4:�149,u%,zc%
4v�5:�u%,zc%
4��9:�85,u%,zc%
4��10:�u%,zc%:�_e%,`e%
4��11:�117,u%,zc%
4�,�12:�u%,zc%:�BY _e%-Ye%,`e%-Ze%:�_e%,`e%
4��13:�205,u%,zc%
4��14:�197,u%,zc%
4��
4�-_e%=Ye%:`e%=Ze%:Ye%=u%:Ze%=zc%:�:�z%=0��R
4��
4�?��R:ld%=T%*`b%!4:md%=N%*`b%!8:nd%=T%*`b%!12:od%=N%*`b%!16:�
4����E:�h,i,ze%,x%,y%:h=a%(o%,4)/100:i=a%(o%,5)/100:b%!0=X%:b%!4=h*ld%:b%!8=i*md%:b%!12=h*nd%+h*T%:b%!16=i*od%+i*N%:ș262345,,b%�ze%:x%=b%!4-b%!20:y%=b%!16-b%!24:h=h*T%:i=i*N%:ȕze%:�Qb(x%,y%,o%):�vb%�
4�;ș262374,71:ȓx%+h*xb%,y%+i*yb%,h*(zb%-xb%),i*(Ab%-yb%)
4��
5ș262346,,b%�ze%:�:�
5,ݤa(af%):�i%:�i%=1�Da%:�a%(i%,1)=af%�=i%
5�:=0
5 7��Qb(x%,y%,i%):�Ae%,Ue%:�we%>15��wb%�Ae%=-1�Ae%=ga%
5*�fa%!0=a%(i%,4)*ea%!0:fa%!4=a%(i%,5)*ea%!4:ș131118,308,a%(i%,2),a$(i%,1),x%,y%,0,fa%,Ae%�;Ue%:�(Ue%�1)<>0�a$(i%,1)=�c(a%(i%,2))
54�
5>T��Pb(p%,s$,x%,y%):ș262381,296,p%,s$,,,,ja%,ka%:ș46,308,p%,s$,x%,y%,0,ja%,ka%:�
5H3��k(w%):ș262353,w%,-30000,-30000,30000,30000:�
5R��Kb(i%):�i%=_%��
5\K_%=i%:P%=a%(i%,1):jd%=a%(i%,3):�y(P%,0):�y(P%,�):�vb%��v(3):�v(0):ub%=0
5f�
5p��Jb(i%):�i%=o%��
5zJ�v(3):o%=i%:X%=a%(i%,1):U%=a%(i%,3):�y(X%,0):�y(X%,�):�ub%��v(0):ub%=0
5��
5�9��U:�i%:�i%=1�Da%:�a%(i%,2)>0��X(a%(i%,2)):a%(i%,2)=0
5�
�:Ca%=0:�
5����Rb(i%):�p%,s%,M%:p%=a%(i%,3):p%!0=wd%:p%!4=kd%:p%!8=T%:p%!12=N%:p%!48=se%:M%=1000+(wd%+4)*(kd%+4):s%=�b(M%):�s%<=0��U:�1,"No room to create another view"
5��a%(i%,2)=s%:a$(i%,1)="PROCESSED":s%!0=M%:s%!4=0:s%!8=16:s%!12=16:ș46,256+15,s%,a$(i%,1),0,wd%,kd%,se%:�Z(p%,s%,a$(i%,1)):a$(i%,2)="Processed":�
5�Fݤc(p%):�n$,M%:ș46,256+13,p%,e%,16,1�,,,M%:e%?M%=13:n$=�s(e%):=n$
5����Z(p%,Xe%,n$):�Ud%:Ud%=Xe%+Xe%!8:p%!16=4*(Ud%!16+1):p%!20=(p%!16)*(Ud%!20+1):p%!24=Ud%+Ud%!32:p%!28=Xe%:$(p%+32)=n$+�0:p%!52=p%!0*p%!8:p%!56=p%!4*p%!12:�
5�w��Ib(i%):�bf%,M%,a$,cf%,Ue%:ș8,5,a$(i%,2)�bf%,,cf%,,M%:�((cf%>>8)�4095)<>4089��1,"You can only reload spritefiles"
5�.�bf%<>1��1,"File '"+a$(i%,2)+"' not found"
5�"�M%<>df%��1,"File has changed"
5�Tș131118,256+10,a%(i%,2),a$(i%,2)�;Ue%:�Ue%��1,"Not enough room in sprite area"
5�la$=�c(a%(i%,2)):a$(i%,1)=a$:ș46,256+54,a%(i%,2),a$:�Sb(a%(i%,2)):�Z(a%(i%,3),a%(i%,2),a$):�W%=1��Mb(i%)
5��a(a%(i%,1)):�
6���Y:�i%:�i%=1�Da%:�X(a%(i%,2)):�l(a%(i%,1)):a%(i%,2)=0:�:vb%=0:ub%=0:Ca%=0:wb%=�:�d(ec%,0,0):�d(ec%,1,0):�d(ec%,2,0):�d(ec%,3,0):�
6Z��ya(b%):�M%,V%:ș262351,,j%:V%=�a(j%!12):�V%<=0��1,"You can't load that file there!!"
6�Ca%��1,"No image loaded"
6$3ș8,5,b%+44�,,,,M%:�M%<>256��1,"Not a map-file"
6.Aș8,255,b%+44,L%:ș892612,a%(V%,3),a%(V%,3),L%:�k(a%(V%,1)):�
682��Tb(b%,M%,f$,i%):�n$,x%,y%,ef%,ff%:�M%<>df%��
6Bș46,256+10,a%(i%,2),f$:n$=�c(a%(i%,2)):ș46,256+40,a%(i%,2),n$�,,,x%,y%,,ef%:�ef%<>se%��1,"The sprite is in a wrong mode""
6L,�x%<>wd%�y%<>kd%��1,"Size doesn't match"
6V:ș53,ef%,3�,,ff%:�ff%<>63��1,"Not a 256 colour sprite"
6`na$(i%,1)=n$:a$(i%,2)=f$:ș46,256+54,a%(i%,2),n$:�Sb(a%(i%,2)):�Z(a%(i%,3),a%(i%,2),a$(i%,1)):�W%=1��Mb(i%)
6j�a(a%(i%,1)):�
6tX��xa(b%):�bf%,M%,p%,n$,x%,y%,ef%,ff%,f$,V%:f$=�s(b%+44):ș8,5,f$�bf%,,,,M%:�bf%<>1��
6~6ș262351,,j%:V%=�a(j%!12):�V%>0��Tb(b%,M%,f$,V%):�
6��Ca%��Y
6�5p%=�b(M%+20):�p%<=0��U:�1,"No room to load image"
6��p%!0=M%+20:p%!4=0:p%!8=16:p%!12=16:ș46,256+10,p%,f$:n$=�c(p%):ș46,256+40,p%,n$�,,,x%,y%,,ef%:ș53,ef%,3�,,ff%:�ff%<>63��X(p%):�1,"Not a 256 colour sprite"
6�?df%=M%:�Sb(p%):i$="Sprite (MODE "+�ef%+")":�gf%�i$+=" Grey"
6�>�_(f$,x%,y%,ef%,p%,n$,gf%,0):�gf%�ș892612,U%,U%,L%:�Hb(�)
6��
6�r��Sb(s%):�hf%,if%,jf%,i%,Y%,kf%,Qd%,Rd%,Sd%:gf%=�:hf%=s%+s%!8:if%=hf%+hf%!32:jf%=hf%!32:�hf%!36<jf%�jf%=hf%!36
6�Ȏ��
6�{�jf%=2092:Y%=�:kf%=hf%+44:�i%=0�255:Qd%=kf%?(8*i%+1):Rd%=kf%?(8*i%+2):Sd%=kf%?(8*i%+3):�Qd%<>Rd%�Rd%<>Sd%�Qd%<>Sd%�Y%=�
6�L%?i%=Qd%:�:�Y%�gf%=�
6��Ub(hf%,s%)
6��jf%>44:�Ub(hf%,s%)
7�
7
�
7���Ub(hf%,lf%):�i%,mf%:mf%=hf%!32-44:ș891328,hf%+mf%+44,lf%!0-hf%!32-lf%!8,hf%+44:hf%!0=hf%!0-mf%:hf%!32=hf%!32-mf%:hf%!36=hf%!36-mf%:lf%!0=lf%!0-mf%:lf%!12=lf%!12-mf%:�
7D��za(b%):�p%,f$,bf%,M%:f$=�s(b%+44):ș8,5,f$�bf%,,,,M%:�bf%<>1��
7()�M%<>65536��1,"Not an AIM image file"
72Oș262351,,j%:�j%!12<>-2��1,"You can only load AIM images thru the icon bar"
7<�Ca%��Y
7F5p%=�b(66000):�p%<=0��U:�1,"No room to load image"
7P�p%!0=66000:p%!4=0:p%!8=16:p%!12=16:ș46,256+15,p%,"AIM_Image",0,256,256,21:ș8,255,f$,p%+60:df%=65536:�_(f$,256,256,21,p%,"AIM_Image",�,2):i$="AIM":�
7Z���_(f$,x%,y%,ef%,p%,n$,Y%,Id%):�i%,bd%,Ge%:�f:a%(o%,2)=p%:a$(o%,1)=n$:a$(o%,2)=f$:ș46,256+54,p%,n$:ș53,ef%,4�,,bd%:ș53,ef%,5�,,Ge%:se%=ef%:wd%=x%:kd%=y%:ud%=x%*(1<<bd%):vd%=y%*(1<<Ge%):cc%=ud%:dc%=vd%:T%=1<<bd%:N%=1<<Ge%
7dp%=a%(o%,3):p%!0=wd%:p%!4=kd%:p%!8=(1<<bd%):p%!12=(1<<Ge%):p%!48=se%:�Z(p%,a%(o%,2),n$):n$=�e(f$):�i%=1�Da%:�i%<>o%��Rb(i%)
7n7�Vb(i%,�):�:Ca%=�:�va:�v(0):�Y%�wb%=�:�Db(1)��Db(0)
7x�Lb:�g:�
7�G��x(i%,n$):ș46,256+26,a%(i%,2),a$(i%,1),n$:a$(i%,1)=n$:�Vb(i%,�):�
7���I(i%):�Vb(i%,�):�
7����Vb(i%,nf%):�t$,f$,M%:f$=a$(i%,2):$Z%="Process "+f$+" "+�e(f$)+" "+a$(i%,1)+" "+�se%+" "+�wd%+" "+�kd%+" "+�i%+" "+�(a%(i%,4))+" "+�(a%(i%,5)):ș67,Z%�(1<<31),e%,255,o$,�o$�,,M%:e%?M%=13:t$=$e%:j%!0=a%(i%,1):ș262348,,j%:$(j%!76)=t$
7�6�nf%ș262368,,j%:ș262353,-1,j%!4,j%!8,j%!12,j%!16
7��
7����wa(of%,i%):�g$,kf%,h%,p%,hf%,d%:g$=�s(of%):笤h(g$)��1,"To save, drag the icon to a directory viewer or to another Process viewer"
7��f:�Ma%�
7Ȥș13,131,g$�h%:p%=a%(i%,2):ș12,2,h%,p%+4,12:hf%=p%+p%!8:�O(h%,2048+hf%!0):ș12,2,h%,hf%+4,28:�O(h%,hf%!32+2048):�O(h%,hf%!36+2048):�O(h%,se%):�kf%=0�255:�W%=0�
7�ș892610,kf%�e%!0
7�'�:e%?0=0:e%?1=kf%:e%?2=kf%:e%?3=kf%
7��
7�X�O(h%,e%!0):�O(h%,e%!0):�:d%=a%(i%,3):ș12,2,h%,d%!24,d%!20:ș13,0,h%:ș8,18,g$,4089
7��:ș46,256+12,a%(i%,2),g$
8�
8�g$<>"<Wimp$Scrap>"�
8'a$(i%,2)=g$:ș8,5,g$�,,,,df%:�I(i%)
8"�
8,�g:�
86@��O(h%,w%):e%!0=w%:�#h%,e%?0:�#h%,e%?1:�#h%,e%?2:�#h%,e%?3:�
8@9ݤd(h%):e%?0=�#h%:e%?1=�#h%:e%?2=�#h%:e%?3=�#h%:=e%!0
8J$ݤh(f$):�f$="<Wimp$Scrap>"�La%=�
8T2�(�f$,".")<1��f$,":")<1)�f$<>"<Wimp$Scrap>"�=0
8^=-1
8h,��c(k%):�k%�ș26,768,3840�ș26,3328,3840
8r�
8|e��Sa:�l$,bd%,Ge%,p%,M%:bd%=�(�s(_a%)):Ge%=�(�s(ab%)):l$=�s(bb%):�l$=""��1,"The image has no name"
8�:�bd%<20�bd%>999�Ge%<20�Ge%>999��1,"Illegal image size"
8�TM%=(bd%+4)*(Ge%+4)+1000:p%=�b(M%):�p%<=0��U:�1,"No room to create the new image"
8��p%!0=M%:p%!4=0:p%!8=16:p%!12=16:ș46,256+15,p%,l$,0,bd%,Ge%,cb%:df%=M%:i$="Sprite (MODE "+�cb%+")":�_("NewImage",bd%,Ge%,cb%,p%,l$,�,0):�
8�D��ob:ob%=255-`%:pb%=255-kb%:qb%=255-lb%:rb%=ob%:�pb%<rb%�rb%=pb%
8��qb%<rb%�rb%=qb%
8�)ob%=ob%-rb%:pb%=pb%-rb%:qb%=qb%-rb%:�
8�>��W:`%=255-(ob%+rb%):kb%=255-(pb%+rb%):lb%=255-(qb%+rb%):�
8�y��Aa(b%):�f$,h%,n$,a%,c%,x%,y%,pf%,p%,Ud%,H%,J%,K%,Y%,kf%,jc%,i%,bf%,M%,ef%:f$=�s(b%+44):ș8,5,f$�bf%,,,,M%:�bf%<>1��
8�T�f:ș262351,,j%:�j%!12<>-2��1,"You can only load Clear images thru the icon bar"
8��Ca%��Y
8�ș13,67,f$�h%:n$="":a%=�#h%:ȕa%<>0:n$+=�a%:a%=�#h%:�:a%=�d(h%):x%=�d(h%):y%=�d(h%):pf%=�d(h%):�pf%<>8��1,"Process only accepts 8 bpp Clear images"
8�PY%=�:�kf%=0�255:H%=�#h%:J%=�#h%:K%=�#h%:L%?kf%=H%:�H%<>J%�J%<>K%�H%<>K%�Y%=�
8�B�:�Y%��#h%:�1,"Process only accepts grey scaled Clear images"
9QM%=(x%+4)*(y%+4)+1000:p%=�b(M%):�p%<=0��#h%:�U:�1,"No room to load the image"
9\df%=M%:p%!0=M%:p%!4=0:p%!8=16:p%!12=16:ș46,256+15,p%,"ClearImage",0,x%,y%,21:�(x%�4)=0�
9ș12,4,h%,p%+60,x%*y%
9&E�:Ud%=p%+60:jc%=4*((x%+4)�4):�i%=1�y%:ș12,4,h%,Ud%,x%:Ud%+=jc%:�
90�
9:eș13,0,h%:�_(f$,x%,y%,21,p%,"ClearImage",�,1):ș892612,U%,U%,L%:i$="Clear (8bpp, greyscale)":�g:�
�
00000000  0d 00 0a 1e f4 3e 20 3c  50 72 6f 63 65 73 73 24  |.....> <Process$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |Dir>.!RunImage..|
00000020  14 bd 71 24 3d 22 31 2e  31 35 20 28 32 38 2d 4a  |..q$="1.15 (28-J|
00000030  75 6c 2d 31 39 39 33 29  22 3a f2 66 3a de 62 25  |ul-1993)":.f:.b%|
00000040  20 32 30 30 30 2c 51 25  20 36 30 30 30 2c 61 61  | 2000,Q% 6000,aa|
00000050  25 20 32 36 30 30 2c 62  61 25 20 35 33 30 30 2c  |% 2600,ba% 5300,|
00000060  63 61 25 20 32 30 2c 64  61 25 20 33 30 30 30 3a  |ca% 20,da% 3000:|
00000070  de 65 25 20 32 35 36 2c  4c 25 20 32 35 36 2c 65  |.e% 256,L% 256,e|
00000080  61 25 20 31 36 2c 66 61  25 20 31 36 2c 67 61 25  |a% 16,fa% 16,ga%|
00000090  20 32 35 36 2c 68 61 25  20 31 36 2c 69 61 25 20  | 256,ha% 16,ia% |
000000a0  31 36 2c 6a 61 25 20 31  36 2c 6b 61 25 20 31 36  |16,ja% 16,ka% 16|
000000b0  3a de 6c 61 25 20 35 31  32 2c 6d 61 25 20 32 31  |:.la% 512,ma% 21|
000000c0  30 30 2c 5a 25 20 31 36  34 30 30 2c 6e 61 25 20  |00,Z% 16400,na% |
000000d0  32 34 30 30 2c 67 25 20  32 35 36 0d 00 1e b5 de  |2400,g% 256.....|
000000e0  64 25 28 33 2c 32 29 2c  62 25 28 33 2c 33 29 2c  |d%(3,2),b%(3,3),|
000000f0  65 25 28 34 30 29 2c 61  28 33 29 2c 63 25 28 33  |e%(40),a(3),c%(3|
00000100  2c 35 29 2c 66 25 28 33  2c 31 36 29 3a de 61 25  |,5),f%(3,16):.a%|
00000110  28 31 30 2c 36 29 2c 61  24 28 31 30 2c 32 29 2c  |(10,6),a$(10,2),|
00000120  67 25 28 33 30 29 3a f2  61 61 3a 6a 25 3d 62 25  |g%(30):.aa:j%=b%|
00000130  2b 31 30 30 30 3a 24 62  25 3d 22 54 41 53 4b 22  |+1000:$b%="TASK"|
00000140  3a c8 99 32 36 32 33 33  36 2c 32 30 30 2c 21 62  |:..262336,200,!b|
00000150  25 2c 22 43 6f 6c 6f 75  72 22 2b bd 31 36 30 2b  |%,"Colour"+.160+|
00000160  22 70 72 6f 63 65 73 73  69 6e 67 22 b8 2c 6f 61  |"processing".,oa|
00000170  25 3a c8 99 35 33 30 30  35 30 2c 6f 61 25 3a e0  |%:..530050,oa%:.|
00000180  3d e0 2b 32 34 35 37 36  3a d3 3d 93 2d 32 35 36  |=.+24576:.=.-256|
00000190  0d 00 28 27 70 61 25 3d  93 3a f2 62 61 28 70 61  |..('pa%=.:.ba(pa|
000001a0  25 2c 32 35 36 29 3a f2  63 61 3a f2 67 3a f2 64  |%,256):.ca:.g:.d|
000001b0  61 3a ee 85 f2 65 61 0d  00 32 79 c8 99 36 36 b8  |a:...ea..2y..66.|
000001c0  71 61 25 3a 72 61 25 3d  30 3a c8 95 73 61 25 3d  |qa%:ra%=0:..sa%=|
000001d0  30 3a c8 99 32 36 32 33  34 33 2c 2c 62 25 b8 74  |0:..262343,,b%.t|
000001e0  61 25 3a c8 99 35 33 30  30 35 34 2c 74 61 25 2c  |a%:..530054,ta%,|
000001f0  2c 6f 61 25 3a c8 99 35  33 30 30 35 36 2c 74 61  |,oa%:..530056,ta|
00000200  25 2c 62 25 2c 6f 61 25  b8 74 61 25 3a e7 74 61  |%,b%,oa%.ta%:.ta|
00000210  25 3d 36 8c c8 99 36 36  b8 75 61 25 3a 72 61 25  |%=6...66.ua%:ra%|
00000220  3d 75 61 25 2d 71 61 25  3a 71 61 25 3d 75 61 25  |=ua%-qa%:qa%=ua%|
00000230  0d 00 3c 0a c8 8e 74 61  25 ca 0d 00 46 15 c9 30  |..<...ta%...F..0|
00000240  3a e7 76 61 25 80 77 61  25 3d 32 8c f2 66 61 0d  |:.va%.wa%=2..fa.|
00000250  00 50 0c e7 78 61 25 8c  f2 67 61 0d 00 5a 10 e7  |.P..xa%..ga..Z..|
00000260  79 61 25 3e 31 30 30 8c  f2 68 61 0d 00 64 0e c9  |ya%>100..ha..d..|
00000270  31 3a f2 69 61 28 62 25  29 0d 00 6e 11 c9 32 3a  |1:.ia(b%)..n..2:|
00000280  f2 79 28 62 25 21 30 2c  b9 29 0d 00 78 0f c9 33  |.y(b%!0,.)..x..3|
00000290  3a f2 6c 28 62 25 21 30  29 0d 00 82 0e c9 36 3a  |:.l(b%!0).....6:|
000002a0  f2 6a 61 28 62 25 29 0d  00 8c 0e c9 37 3a f2 6b  |.ja(b%).....7:.k|
000002b0  61 28 62 25 29 0d 00 96  15 c9 38 3a c8 99 32 36  |a(b%).....8:..26|
000002c0  32 33 36 34 2c 62 25 21  32 34 0d 00 a0 0e c9 39  |2364,b%!24.....9|
000002d0  3a f2 6c 61 28 62 25 29  0d 00 aa 12 c9 31 37 2c  |:.la(b%).....17,|
000002e0  31 38 3a f2 6d 61 28 62  25 29 0d 00 b4 05 cb 0d  |18:.ma(b%)......|
000002f0  00 be 0c ce 3a f2 6e 61  3a c8 98 0d 00 c8 3e dd  |....:.na:.....>.|
00000300  f2 64 61 3a c8 99 32 36  32 33 35 33 2c 2d 31 2c  |.da:..262353,-1,|
00000310  7a 61 25 2f 32 2d 35 30  30 2c 41 61 25 2f 32 2d  |za%/2-500,Aa%/2-|
00000320  34 30 30 2c 7a 61 25 2f  32 2b 35 30 30 2c 41 61  |400,za%/2+500,Aa|
00000330  25 2f 32 2b 34 30 30 3a  e1 0d 00 d2 20 dd f2 6e  |%/2+400:.... ..n|
00000340  61 3a c8 99 32 36 32 33  36 35 3a c8 99 35 33 30  |a:..262365:..530|
00000350  30 35 31 2c 6f 61 25 3a  e1 0d 00 dc 22 dd f2 63  |051,oa%:...."..c|
00000360  61 3a ea 42 61 25 2c 63  25 2c 68 24 2c 70 25 2c  |a:.Ba%,c%,h$,p%,|
00000370  61 24 3a ee 85 f2 65 61  3a c8 98 0d 00 e6 ea c8  |a$:...ea:.......|
00000380  99 38 2c 32 35 35 2c 22  3c 50 72 6f 63 65 73 73  |.8,255,"<Process|
00000390  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
000003a0  43 6f 64 65 2e 44 69 73  74 6f 72 74 22 2c 64 61  |Code.Distort",da|
000003b0  25 3a c8 99 38 2c 32 35  35 2c 22 3c 50 72 6f 63  |%:..8,255,"<Proc|
000003c0  65 73 73 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |ess$Dir>.Resourc|
000003d0  65 73 2e 43 6f 64 65 2e  57 68 69 72 6c 22 2c 64  |es.Code.Whirl",d|
000003e0  61 25 2b 31 34 30 30 3a  72 3d 64 61 25 3a 44 3d  |a%+1400:r=da%:D=|
000003f0  64 61 25 2b 31 34 30 30  3a 45 3d 64 61 25 2b 31  |da%+1400:E=da%+1|
00000400  34 30 34 3a 46 3d 64 61  25 2b 31 34 30 38 3a 43  |404:F=da%+1408:C|
00000410  61 25 3d 30 3a 61 25 28  29 3d 30 3a 61 24 28 29  |a%=0:a%()=0:a$()|
00000420  3d 22 22 3a e3 70 25 3d  31 b8 39 3a 61 25 28 70  |="":.p%=1.9:a%(p|
00000430  25 2c 33 29 3d 6e 61 25  2b 28 70 25 2d 31 29 2a  |%,3)=na%+(p%-1)*|
00000440  32 35 36 3a 61 25 28 70  25 2c 34 29 3d 31 30 30  |256:a%(p%,4)=100|
00000450  3a 61 25 28 70 25 2c 35  29 3d 31 30 30 3a ed 3a  |:a%(p%,5)=100:.:|
00000460  44 61 25 3d 34 0d 00 f0  32 68 24 3d a4 66 28 22  |Da%=4...2h$=.f("|
00000470  50 72 6f 63 65 73 73 24  4f 70 74 69 6f 6e 73 22  |Process$Options"|
00000480  29 3a 70 25 3d a7 68 24  2c 22 2d 6d 61 78 22 29  |):p%=.h$,"-max")|
00000490  3a e7 70 25 3e 30 8c 0d  00 fa 2f 61 24 3d c1 68  |:.p%>0..../a$=.h|
000004a0  24 2c 70 25 2b 34 2c 31  29 3a 70 25 3d bb 28 61  |$,p%+4,1):p%=.(a|
000004b0  24 29 3a e7 70 25 3e 3d  32 80 70 25 3c 3d 39 8c  |$):.p%>=2.p%<=9.|
000004c0  44 61 25 3d 70 25 0d 01  04 05 cd 0d 01 0e 20 70  |Da%=p%........ p|
000004d0  25 3d a7 68 24 2c 22 2d  64 6d 61 22 29 3a e7 70  |%=.h$,"-dma"):.p|
000004e0  25 8c 4f 25 3d b9 8b 4f  25 3d 30 0d 01 18 23 70  |%.O%=..O%=0...#p|
000004f0  25 3d a7 68 24 2c 22 2d  73 77 61 70 22 29 3a e7  |%=.h$,"-swap"):.|
00000500  70 25 8c 45 61 25 3d b9  8b 45 61 25 3d 30 0d 01  |p%.Ea%=..Ea%=0..|
00000510  22 24 70 25 3d a7 68 24  2c 22 2d 74 6f 6f 6c 73  |"$p%=.h$,"-tools|
00000520  22 29 3a e7 70 25 8c 46  61 25 3d b9 8b 46 61 25  |"):.p%.Fa%=..Fa%|
00000530  3d 30 0d 01 2c 22 70 25  3d a7 68 24 2c 22 2d 70  |=0..,"p%=.h$,"-p|
00000540  61 6e 22 29 3a e7 70 25  8c 47 61 25 3d 31 8b 47  |an"):.p%.Ga%=1.G|
00000550  61 25 3d 30 0d 01 36 db  6f 24 3d a4 66 28 22 50  |a%=0..6.o$=.f("P|
00000560  72 6f 63 65 73 73 24 57  69 6e 64 6f 77 54 69 74  |rocess$WindowTit|
00000570  6c 65 22 29 3a c8 99 36  2c 31 36 31 2c 32 38 b8  |le"):..6,161,28.|
00000580  2c 2c 70 25 3a 48 61 25  3d 28 70 25 80 32 29 3c  |,,p%:Ha%=(p%.2)<|
00000590  3e 30 3a f2 6f 61 3a 6f  25 3d 31 3a 5f 25 3d 32  |>0:.oa:o%=1:_%=2|
000005a0  3a 58 25 3d 61 25 28 6f  25 2c 31 29 3a 50 25 3d  |:X%=a%(o%,1):P%=|
000005b0  61 25 28 5f 25 2c 31 29  3a 24 a4 69 28 49 61 25  |a%(_%,1):$.i(Ia%|
000005c0  2c 33 29 3d 71 24 3a 73  61 25 3d 30 3a 4a 61 25  |,3)=q$:sa%=0:Ja%|
000005d0  3d 2d 31 3a 79 61 25 3d  30 3a 4b 61 25 3d 30 3a  |=-1:ya%=0:Ka%=0:|
000005e0  4c 61 25 3d 30 3a 57 25  3d 30 3a 4d 61 25 3d a3  |La%=0:W%=0:Ma%=.|
000005f0  3a f2 64 28 4e 61 25 2c  34 2c a3 29 3a 4f 61 25  |:.d(Na%,4,.):Oa%|
00000600  3d a3 3a 50 61 25 3d a4  69 28 51 61 25 2c 31 34  |=.:Pa%=.i(Qa%,14|
00000610  29 3a 52 61 25 3d 31 3a  53 61 25 3d 30 3a 78 61  |):Ra%=1:Sa%=0:xa|
00000620  25 3d a3 3a 54 61 25 3d  30 3a 55 61 25 3d 30 0d  |%=.:Ta%=0:Ua%=0.|
00000630  01 40 e1 56 61 25 3d 30  3a 57 61 25 3d a3 3a 67  |.@.Va%=0:Wa%=.:g|
00000640  25 28 29 3d 30 3a 67 25  28 31 29 3d 31 3a de 77  |%()=0:g%(1)=1:.w|
00000650  20 31 32 3a 24 77 3d 22  21 50 52 4f 43 45 53 53  | 12:$w="!PROCESS|
00000660  22 3a 21 62 25 3d 2d 31  3a 62 25 21 34 3d 30 3a  |":!b%=-1:b%!4=0:|
00000670  62 25 21 31 32 3d 36 34  3a 62 25 21 38 3d 30 3a  |b%!12=64:b%!8=0:|
00000680  62 25 21 31 36 3d 37 32  3a 62 25 21 32 30 3d 31  |b%!16=72:b%!20=1|
00000690  32 35 34 36 3a 62 25 21  32 34 3d 77 3a 62 25 21  |2546:b%!24=w:b%!|
000006a0  32 38 3d 31 3a 62 25 21  33 32 3d a9 24 77 2b 31  |28=1:b%!32=.$w+1|
000006b0  3a c8 99 32 36 32 33 33  38 2c 2c 62 25 b8 42 61  |:..262338,,b%.Ba|
000006c0  25 3a 58 61 25 3d a4 69  28 4e 61 25 2c 31 29 3a  |%:Xa%=.i(Na%,1):|
000006d0  59 61 25 3d a4 69 28 5a  61 25 2c 30 29 3a 5f 61  |Ya%=.i(Za%,0):_a|
000006e0  25 3d a4 69 28 60 61 25  2c 31 30 29 3a 61 62 25  |%=.i(`a%,10):ab%|
000006f0  3d a4 69 28 60 61 25 2c  31 34 29 3a 62 62 25 3d  |=.i(`a%,14):bb%=|
00000700  a4 69 28 60 61 25 2c 31  29 3a 63 62 25 3d 31 33  |.i(`a%,1):cb%=13|
00000710  0d 01 4a eb 24 5f 61 25  3d 22 31 30 30 22 3a 24  |..J.$_a%="100":$|
00000720  61 62 25 3d 22 31 30 30  22 3a 24 62 62 25 3d 22  |ab%="100":$bb%="|
00000730  4e 65 77 49 6d 61 67 65  22 3a 64 62 25 3d 30 3a  |NewImage":db%=0:|
00000740  65 62 25 3d b9 3a 66 62  25 3d 31 3a 64 25 28 29  |eb%=.:fb%=1:d%()|
00000750  3d 30 3a 67 62 25 3d 2d  31 3a 68 62 25 3d 31 30  |=0:gb%=-1:hb%=10|
00000760  30 3a 66 3d 30 2e 30 35  3a 69 62 25 3d a3 3a 6a  |0:f=0.05:ib%=.:j|
00000770  62 25 3d 36 30 3a 60 25  3d 31 32 38 3a 6b 62 25  |b%=60:`%=128:kb%|
00000780  3d 31 32 38 3a 6c 62 25  3d 31 32 38 3a 6d 62 25  |=128:lb%=128:mb%|
00000790  3d 31 32 38 3a 6e 62 25  3d b9 3a 6f 62 25 3d 31  |=128:nb%=.:ob%=1|
000007a0  32 38 3a 70 62 25 3d 31  32 38 3a 71 62 25 3d 31  |28:pb%=128:qb%=1|
000007b0  32 38 3a 72 62 25 3d 30  3a 73 62 25 3d 31 3a 74  |28:rb%=0:sb%=1:t|
000007c0  62 25 3d 30 3a 75 62 25  3d 30 3a 76 62 25 3d a3  |b%=0:ub%=0:vb%=.|
000007d0  3a 77 62 25 3d a3 3a 78  62 25 3d 30 3a 79 62 25  |:wb%=.:xb%=0:yb%|
000007e0  3d 30 3a 7a 62 25 3d 30  3a 41 62 25 3d 30 3a 24  |=0:zb%=0:Ab%=0:$|
000007f0  63 61 25 3d 22 34 35 22  2b bd 30 0d 01 54 e5 42  |ca%="45"+.0..T.B|
00000800  62 25 3d b9 3a 43 62 25  3d 34 30 3a 44 62 25 3d  |b%=.:Cb%=40:Db%=|
00000810  32 30 3a 45 62 25 3d 31  30 3a 46 62 25 3d 31 30  |20:Eb%=10:Fb%=10|
00000820  3a 47 62 25 3d 30 3a f2  64 28 48 62 25 2c 31 2c  |:Gb%=0:.d(Hb%,1,|
00000830  31 29 3a 49 62 25 3d a4  69 28 48 62 25 2c 31 35  |1):Ib%=.i(Hb%,15|
00000840  29 3a 24 49 62 25 3d 22  32 30 22 3a 4a 62 25 3d  |):$Ib%="20":Jb%=|
00000850  a4 69 28 4b 62 25 2c 39  29 3a 4c 62 25 3d a4 69  |.i(Kb%,9):Lb%=.i|
00000860  28 4b 62 25 2c 31 32 29  3a 4d 62 25 3d a4 69 28  |(Kb%,12):Mb%=.i(|
00000870  4b 62 25 2c 31 35 29 3a  4e 62 25 3d a4 69 28 4b  |Kb%,15):Nb%=.i(K|
00000880  62 25 2c 31 38 29 3a 4f  62 25 3d a4 69 28 4b 62  |b%,18):Ob%=.i(Kb|
00000890  25 2c 32 31 29 3a 24 4a  62 25 3d 22 34 22 3a 24  |%,21):$Jb%="4":$|
000008a0  4c 62 25 3d 22 34 35 22  3a 24 4d 62 25 3d 22 30  |Lb%="45":$Mb%="0|
000008b0  2e 38 30 22 3a 24 4e 62  25 3d 22 30 22 3a 24 4f  |.80":$Nb%="0":$O|
000008c0  62 25 3d 22 30 22 3a 50  62 25 3d a4 69 28 51 62  |b%="0":Pb%=.i(Qb|
000008d0  25 2c 36 29 3a 24 50 62  25 3d 22 31 2e 30 30 22  |%,6):$Pb%="1.00"|
000008e0  0d 01 5e e5 52 62 25 3d  31 3a 61 28 29 3d 31 3a  |..^.Rb%=1:a()=1:|
000008f0  53 62 25 3d 31 3a 54 62  25 3d 30 3a 55 62 25 3d  |Sb%=1:Tb%=0:Ub%=|
00000900  31 3a 56 62 25 3d 31 3a  57 62 25 3d a4 69 28 58  |1:Vb%=1:Wb%=.i(X|
00000910  62 25 2c 31 30 29 3a 24  57 62 25 3d 22 31 30 22  |b%,10):$Wb%="10"|
00000920  3a e3 63 25 3d 31 b8 35  3a 63 25 28 31 2c 63 25  |:.c%=1.5:c%(1,c%|
00000930  29 3d 28 63 25 2d 31 29  2a 36 34 3a 63 25 28 32  |)=(c%-1)*64:c%(2|
00000940  2c 63 25 29 3d 28 63 25  2d 31 29 2a 36 34 3a 63  |,c%)=(c%-1)*64:c|
00000950  25 28 33 2c 63 25 29 3d  28 63 25 2d 31 29 2a 36  |%(3,c%)=(c%-1)*6|
00000960  34 3a ed 3a e3 63 25 3d  31 b8 31 36 3a 66 25 28  |4:.:.c%=1.16:f%(|
00000970  31 2c 63 25 29 3d 63 25  2a 31 36 2d 31 3a 66 25  |1,c%)=c%*16-1:f%|
00000980  28 32 2c 63 25 29 3d 63  25 2a 31 36 2d 31 3a 66  |(2,c%)=c%*16-1:f|
00000990  25 28 33 2c 63 25 29 3d  63 25 2a 31 36 2d 31 3a  |%(3,c%)=c%*16-1:|
000009a0  ed 3a 59 62 25 3d 31 32  38 3a 5a 62 25 3d 30 3a  |.:Yb%=128:Zb%=0:|
000009b0  5f 62 25 3d 30 3a 77 61  25 3d 30 3a 76 61 25 3d  |_b%=0:wa%=0:va%=|
000009c0  30 3a f2 70 61 0d 01 68  23 21 67 25 3d 30 3a f2  |0:.pa..h#!g%=0:.|
000009d0  71 61 28 30 29 3a f2 72  61 3a c8 99 39 30 2c 2d  |qa(0):.ra:..90,-|
000009e0  31 b8 2c 60 62 25 3a e1  0d 01 72 35 dd a4 66 28  |1.,`b%:...r5..f(|
000009f0  76 24 29 3a ea 4d 25 3a  c8 99 33 35 2c 76 24 2c  |v$):.M%:..35,v$,|
00000a00  65 25 2c 32 35 35 2c 30  b8 2c 2c 4d 25 3a 65 25  |e%,255,0.,,M%:e%|
00000a10  3f 4d 25 3d 30 3a 3d a4  73 28 65 25 29 0d 01 7c  |?M%=0:=.s(e%)..||
00000a20  4d dd f2 73 61 28 69 25  29 3a ea 61 24 2c 61 63  |M..sa(i%):.a$,ac|
00000a30  25 3a 24 a4 69 28 62 63  25 2c 34 29 3d 61 24 28  |%:$.i(bc%,4)=a$(|
00000a40  69 25 2c 31 29 3a 61 24  3d 61 24 28 69 25 2c 32  |i%,1):a$=a$(i%,2|
00000a50  29 3a e7 a9 61 24 3e 32  33 8c 61 24 3d 22 2e 2e  |):..a$>23.a$="..|
00000a60  2e 22 2b c2 61 24 2c 32  30 29 0d 01 86 8a 24 a4  |."+.a$,20)....$.|
00000a70  69 28 62 63 25 2c 35 29  3d 61 24 3a 61 24 3d c3  |i(bc%,5)=a$:a$=.|
00000a80  28 63 63 25 2f 54 25 29  2b 22 20 78 20 22 2b c3  |(cc%/T%)+" x "+.|
00000a90  28 64 63 25 2f 4e 25 29  3a 24 a4 69 28 62 63 25  |(dc%/N%):$.i(bc%|
00000aa0  2c 36 29 3d 61 24 3a 24  a4 69 28 62 63 25 2c 37  |,6)=a$:$.i(bc%,7|
00000ab0  29 3d 69 24 3a 61 63 25  3d 63 63 25 2a 64 63 25  |)=i$:ac%=cc%*dc%|
00000ac0  2f 28 54 25 2a 4e 25 29  3a 61 24 3d c3 28 61 63  |/(T%*N%):a$=.(ac|
00000ad0  25 29 2b 22 20 28 22 3a  61 63 25 3d 28 61 63 25  |%)+" (":ac%=(ac%|
00000ae0  81 31 30 32 34 29 3a e7  61 63 25 3c 3d 30 8c 61  |.1024):.ac%<=0.a|
00000af0  63 25 3d 31 0d 01 90 1f  24 a4 69 28 62 63 25 2c  |c%=1....$.i(bc%,|
00000b00  38 29 3d 61 24 2b c3 28  61 63 25 29 2b 22 6b 29  |8)=a$+.(ac%)+"k)|
00000b10  22 3a e1 0d 01 9a 15 dd  f2 6c 28 77 25 29 3a ea  |":.......l(w%):.|
00000b20  56 25 3a c8 8e 77 25 ca  0d 01 a4 2b c9 51 61 25  |V%:..w%....+.Qa%|
00000b30  3a 4f 61 25 3d 30 3a f2  62 28 77 25 2c 31 33 2c  |:Oa%=0:.b(w%,13,|
00000b40  30 29 3a 5a 62 25 3d a3  3a e7 64 62 25 3d 33 8c  |0):Zb%=.:.db%=3.|
00000b50  f2 74 61 0d 01 ae 0f f2  64 28 65 63 25 2c 37 2c  |.ta.....d(ec%,7,|
00000b60  30 29 0d 01 b8 2b c9 58  25 3a 6a 25 21 30 3d 65  |0)...+.X%:j%!0=e|
00000b70  63 25 3a c8 99 32 36 32  33 34 32 2c 2c 6a 25 3a  |c%:..262342,,j%:|
00000b80  61 25 28 6f 25 2c 36 29  3d 30 3a f2 6d 0d 01 c2  |a%(o%,6)=0:.m...|
00000b90  28 c9 50 25 3a 6a 25 21  30 3d 66 63 25 3a c8 99  |(.P%:j%!0=fc%:..|
00000ba0  32 36 32 33 34 32 2c 2c  6a 25 3a 61 25 28 5f 25  |262342,,j%:a%(_%|
00000bb0  2c 36 29 3d 30 0d 01 cc  0e c9 67 63 25 3a 57 61  |,6)=0.....gc%:Wa|
00000bc0  25 3d a3 0d 01 d6 20 7f  3a 56 25 3d a4 61 28 77  |%=.... .:V%=.a(w|
00000bd0  25 29 3a e7 56 25 3e 30  8c 61 25 28 56 25 2c 36  |%):.V%>0.a%(V%,6|
00000be0  29 3d 30 0d 01 e0 05 cb  0d 01 ea 2d 6a 25 21 30  |)=0........-j%!0|
00000bf0  3d 77 25 3a c8 99 32 36  32 33 34 32 2c 2c 6a 25  |=w%:..262342,,j%|
00000c00  3a e7 77 25 3c 3e 67 63  25 80 57 61 25 8c f2 6c  |:.w%<>gc%.Wa%..l|
00000c10  28 67 63 25 29 0d 01 f4  05 e1 0d 01 fe 3a dd f2  |(gc%)........:..|
00000c20  79 28 77 25 2c 68 63 25  29 3a ea 69 63 25 2c 6a  |y(w%,hc%):.ic%,j|
00000c30  63 25 2c 6b 63 25 2c 6c  63 25 3a 62 25 21 30 3d  |c%,kc%,lc%:b%!0=|
00000c40  77 25 3a 6b 63 25 3d b9  3a 6c 63 25 3d a3 3a c8  |w%:kc%=.:lc%=.:.|
00000c50  8e 77 25 ca 0d 02 08 10  c9 58 25 2c 50 25 3a e7  |.w%......X%,P%:.|
00000c60  46 61 25 8c 0d 02 12 29  69 63 25 3d 65 63 25 3a  |Fa%....)ic%=ec%:|
00000c70  6a 63 25 3d 31 33 36 3a  e7 77 25 3d 50 25 8c 69  |jc%=136:.w%=P%.i|
00000c80  63 25 3d 66 63 25 3a 6a  63 25 3d 37 32 0d 02 1c  |c%=fc%:jc%=72...|
00000c90  12 6a 25 21 30 3d 69 63  25 3a e7 68 63 25 8c 0d  |.j%!0=ic%:.hc%..|
00000ca0  02 26 34 6a 25 21 34 3d  62 25 21 34 2d 6a 63 25  |.&4j%!4=b%!4-jc%|
00000cb0  2d 32 3a 6a 25 21 38 3d  62 25 21 31 36 2d 31 30  |-2:j%!8=b%!16-10|
00000cc0  30 30 3a e7 62 25 21 34  3c 6a 63 25 8c 6a 25 21  |00:.b%!4<jc%.j%!|
00000cd0  34 3d 30 0d 02 30 3a 6a  25 21 31 32 3d 6a 25 21  |4=0..0:j%!12=j%!|
00000ce0  34 2b 6a 63 25 3a 6a 25  21 31 36 3d 62 25 21 31  |4+jc%:j%!16=b%!1|
00000cf0  36 3a 6a 25 21 32 30 3d  30 3a 6a 25 21 32 34 3d  |6:j%!20=0:j%!24=|
00000d00  30 3a 6a 25 21 32 38 3d  62 25 21 32 38 0d 02 3a  |0:j%!28=b%!28..:|
00000d10  1b cc 3a c8 99 32 36 32  33 34 37 2c 2c 6a 25 3a  |..:..262347,,j%:|
00000d20  6a 25 21 32 38 3d 2d 31  0d 02 44 05 cd 0d 02 4e  |j%!28=-1..D....N|
00000d30  22 c8 99 32 36 32 33 34  31 2c 2c 6a 25 3a e7 ac  |"..262341,,j%:..|
00000d40  68 63 25 c8 99 32 36 32  33 34 37 2c 2c 62 25 0d  |hc%..262347,,b%.|
00000d50  02 58 20 62 25 21 32 38  3d 69 63 25 3a c8 99 32  |.X b%!28=ic%:..2|
00000d60  36 32 33 34 31 2c 2c 62  25 3a 6b 63 25 3d a3 0d  |62341,,b%:kc%=..|
00000d70  02 62 05 cd 0d 02 6c 1a  c9 51 61 25 3a 4f 61 25  |.b....l..Qa%:Oa%|
00000d80  3d b9 3a f2 64 28 65 63  25 2c 37 2c 31 29 0d 02  |=.:.d(ec%,7,1)..|
00000d90  76 0e c9 67 63 25 3a 57  61 25 3d b9 0d 02 80 05  |v..gc%:Wa%=.....|
00000da0  cb 0d 02 8a 09 e7 6b 63  25 8c 0d 02 94 1e e7 ac  |......kc%.......|
00000db0  68 63 25 c8 99 32 36 32  33 34 37 2c 2c 62 25 3a  |hc%..262347,,b%:|
00000dc0  62 25 21 32 38 3d 2d 31  0d 02 9e 10 c8 99 32 36  |b%!28=-1......26|
00000dd0  32 33 34 31 2c 2c 62 25  0d 02 a8 05 cd 0d 02 b2  |2341,,b%........|
00000de0  21 69 63 25 3d a4 61 28  77 25 29 3a e7 69 63 25  |!ic%=.a(w%):.ic%|
00000df0  3e 30 8c 61 25 28 69 63  25 2c 36 29 3d 31 0d 02  |>0.a%(ic%,6)=1..|
00000e00  bc 18 e7 77 25 3c 3e 67  63 25 80 57 61 25 8c f2  |...w%<>gc%.Wa%..|
00000e10  6c 28 67 63 25 29 0d 02  c6 05 e1 0d 02 d0 46 dd  |l(gc%)........F.|
00000e20  f2 75 61 3a ea 6e 25 2c  69 25 2c 6d 63 25 2c 6e  |.ua:.n%,i%,mc%,n|
00000e30  63 25 2c 6f 63 25 2c 6a  63 25 2c 78 25 2c 79 25  |c%,oc%,jc%,x%,y%|
00000e40  3a 6e 25 3d 30 3a e3 69  25 3d 31 b8 44 61 25 3a  |:n%=0:.i%=1.Da%:|
00000e50  e7 61 25 28 69 25 2c 36  29 3d 31 8c 6e 25 2b 3d  |.a%(i%,6)=1.n%+=|
00000e60  31 0d 02 da 0e ed 3a e7  6e 25 3c 3d 31 8c e1 0d  |1.....:.n%<=1...|
00000e70  02 e4 0f e7 6e 25 3d 32  8c 6e 63 25 3d 31 0d 02  |....n%=2.nc%=1..|
00000e80  ee 14 e7 6e 25 3e 32 80  6e 25 3c 36 8c 6e 63 25  |...n%>2.n%<6.nc%|
00000e90  3d 32 0d 02 f8 0f e7 6e  25 3e 36 8c 6e 63 25 3d  |=2.....n%>6.nc%=|
00000ea0  33 0d 03 02 1f e7 6e 63  25 3d 31 8c 6d 63 25 3d  |3.....nc%=1.mc%=|
00000eb0  32 8b 6d 63 25 3d 28 6e  25 2b 31 29 2f 6e 63 25  |2.mc%=(n%+1)/nc%|
00000ec0  0d 03 0c 42 6f 63 25 3d  7a 61 25 2f 6d 63 25 3a  |...Boc%=za%/mc%:|
00000ed0  6a 63 25 3d 41 61 25 2f  6e 63 25 3a 78 25 3d 30  |jc%=Aa%/nc%:x%=0|
00000ee0  3a 79 25 3d 41 61 25 2d  6a 63 25 3a e3 69 25 3d  |:y%=Aa%-jc%:.i%=|
00000ef0  31 b8 44 61 25 3a e7 61  25 28 69 25 2c 36 29 3d  |1.Da%:.a%(i%,6)=|
00000f00  31 8c 0d 03 16 7e 62 25  21 30 3d 61 25 28 69 25  |1....~b%!0=a%(i%|
00000f10  2c 31 29 3a c8 99 32 36  32 33 34 37 2c 2c 62 25  |,1):..262347,,b%|
00000f20  3a 62 25 21 34 3d 78 25  3a 62 25 21 31 32 3d 62  |:b%!4=x%:b%!12=b|
00000f30  25 21 34 2b 6f 63 25 2d  34 38 3a 62 25 21 38 3d  |%!4+oc%-48:b%!8=|
00000f40  79 25 3a 62 25 21 31 36  3d 62 25 21 38 2b 6a 63  |y%:b%!16=b%!8+jc|
00000f50  25 2d 34 38 3a f2 79 28  62 25 21 30 2c b9 29 3a  |%-48:.y(b%!0,.):|
00000f60  78 25 2b 3d 6f 63 25 3a  e7 78 25 3d 6d 63 25 2a  |x%+=oc%:.x%=mc%*|
00000f70  6f 63 25 8c 78 25 3d 30  3a 79 25 2d 3d 6a 63 25  |oc%.x%=0:y%-=jc%|
00000f80  0d 03 20 05 cd 0d 03 2a  07 ed 3a e1 0d 03 34 26  |.. ....*..:...4&|
00000f90  dd f2 61 28 77 25 29 3a  f2 79 28 77 25 2c 30 29  |..a(w%):.y(w%,0)|
00000fa0  3a f2 79 28 77 25 2c b9  29 3a f2 6b 28 77 25 29  |:.y(w%,.):.k(w%)|
00000fb0  3a e1 0d 03 3e 41 dd f2  50 28 77 25 2c 78 25 2c  |:...>A..P(w%,x%,|
00000fc0  79 25 29 3a 62 25 21 30  3d 30 3a 62 25 21 34 3d  |y%):b%!0=0:b%!4=|
00000fd0  30 3a 62 25 21 38 3d 78  25 3a 62 25 21 31 32 3d  |0:b%!8=x%:b%!12=|
00000fe0  79 25 3a c8 99 32 36 32  33 35 39 2c 77 25 2c 62  |y%:..262359,w%,b|
00000ff0  25 3a e1 0d 03 48 49 dd  f2 76 61 3a ea 69 25 3a  |%:...HI..va:.i%:|
00001000  e3 69 25 3d 31 b8 44 61  25 3a f2 50 28 61 25 28  |.i%=1.Da%:.P(a%(|
00001010  69 25 2c 31 29 2c 63 63  25 2a 61 25 28 69 25 2c  |i%,1),cc%*a%(i%,|
00001020  34 29 2f 31 30 30 2c 64  63 25 2a 61 25 28 69 25  |4)/100,dc%*a%(i%|
00001030  2c 35 29 2f 31 30 30 29  3a ed 3a e1 0d 03 52 23  |,5)/100):.:...R#|
00001040  dd f2 6d 61 28 62 25 29  3a ea 70 63 25 3a 70 63  |..ma(b%):.pc%:pc|
00001050  25 3d 62 25 21 38 3a c8  8e 62 25 21 31 36 ca 0d  |%=b%!8:..b%!16..|
00001060  03 5c 0c c9 30 3a 73 61  25 3d b9 0d 03 66 0f c9  |.\..0:sa%=...f..|
00001070  32 3a e7 4b 61 25 3d 30  8c e1 0d 03 70 93 f2 77  |2:.Ka%=0....p..w|
00001080  61 28 62 25 2b 34 34 2c  4b 61 25 29 3a c8 99 32  |a(b%+44,Ka%):..2|
00001090  36 32 33 35 31 2c 2c 62  25 3a 62 25 21 32 30 3d  |62351,,b%:b%!20=|
000010a0  62 25 21 31 32 3a 62 25  21 32 34 3d 62 25 21 31  |b%!12:b%!24=b%!1|
000010b0  36 3a 62 25 21 32 38 3d  62 25 21 30 3a 62 25 21  |6:b%!28=b%!0:b%!|
000010c0  33 32 3d 62 25 21 34 3a  62 25 21 30 3d 32 35 36  |32=b%!4:b%!0=256|
000010d0  3a 62 25 21 31 32 3d 70  63 25 3a 62 25 21 31 36  |:b%!12=pc%:b%!16|
000010e0  3d 33 3a 62 25 21 34 30  3d 34 30 38 39 3a e7 4c  |=3:b%!40=4089:.L|
000010f0  61 25 8c 24 28 62 25 2b  34 34 29 3d 22 3c 57 69  |a%.$(b%+44)="<Wi|
00001100  6d 70 24 53 63 72 61 70  3e 22 2b bd 30 0d 03 7a  |mp$Scrap>"+.0..z|
00001110  37 c8 99 32 36 32 33 37  35 2c 31 37 2c 62 25 2c  |7..262375,17,b%,|
00001120  62 25 21 32 30 2c 62 25  21 32 34 3a 4b 61 25 3d  |b%!20,b%!24:Ka%=|
00001130  30 3a 4c 61 25 3d 30 3a  c8 99 32 36 32 33 35 36  |0:La%=0:..262356|
00001140  2c 2c 2d 31 0d 03 84 10  c9 33 3a e7 62 25 21 31  |,,-1.....3:.b%!1|
00001150  32 3d 30 8c 0d 03 8e 0c  c8 8e 62 25 21 34 30 ca  |2=0.......b%!40.|
00001160  0d 03 98 11 c9 34 30 38  39 3a f2 78 61 28 62 25  |.....4089:.xa(b%|
00001170  29 0d 03 a2 11 c9 34 30  39 33 3a f2 79 61 28 62  |).....4093:.ya(b|
00001180  25 29 0d 03 ac 0e c9 34  3a f2 7a 61 28 62 25 29  |%).....4:.za(b%)|
00001190  0d 03 b6 11 c9 31 36 38  30 3a f2 41 61 28 62 25  |.....1680:.Aa(b%|
000011a0  29 0d 03 c0 05 cb 0d 03  ca 0f c9 32 36 32 33 33  |)..........26233|
000011b0  37 3a f2 70 61 0d 03 d4  05 cb 0d 03 de 05 e1 0d  |7:.pa...........|
000011c0  03 e8 10 dd f2 65 61 3a  e7 5f 62 25 8c f2 6e 0d  |.....ea:._b%..n.|
000011d0  03 f2 20 f2 63 28 30 29  3a e7 4a 61 25 3c 3e 2d  |.. .c(0):.Ja%<>-|
000011e0  31 8c f2 62 28 4a 61 25  2c 71 63 25 2c 30 29 0d  |1..b(Ja%,qc%,0).|
000011f0  03 fc 13 f2 6d 3a 21 62  25 3d 9f 3a e7 9f 3c 3e  |....m:!b%=.:..<>|
00001200  31 8c 0d 04 06 78 24 28  62 25 2b 34 29 3d f6 24  |1....x$(b%+4)=.$|
00001210  2b 22 20 28 49 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (Internal err|
00001220  6f 72 20 63 6f 64 65 20  22 2b c3 9e 2b 22 2e 20  |or code "+..+". |
00001230  50 6c 65 61 73 65 20 72  65 70 6f 72 74 20 74 6f  |Please report to|
00001240  20 74 68 65 20 61 75 74  68 6f 72 2c 20 74 68 65  | the author, the|
00001250  20 61 64 64 72 65 73 73  20 63 61 6e 20 62 65 20  | address can be |
00001260  66 6f 75 6e 64 20 69 6e  20 74 68 65 20 21 48 65  |found in the !He|
00001270  6c 70 20 66 69 6c 65 29  2e 22 0d 04 10 10 cc 3a  |lp file).".....:|
00001280  24 28 62 25 2b 34 29 3d  f6 24 0d 04 1a 05 cd 0d  |$(b%+4)=.$......|
00001290  04 24 29 c8 99 32 36 32  33 36 37 2c 62 25 2c 31  |.$)..262367,b%,1|
000012a0  2c 22 50 72 6f 63 65 73  73 22 3a e7 a6 28 2d 39  |,"Process":..(-9|
000012b0  30 29 8c 73 61 25 3d b9  0d 04 2e 05 e1 0d 04 38  |0).sa%=........8|
000012c0  2c dd f2 6f 28 73 25 2c  73 24 29 3a e7 73 25 3d  |,..o(s%,s$):.s%=|
000012d0  30 8c 73 24 3d 61 24 28  5f 25 2c 31 29 3a 73 25  |0.s$=a$(_%,1):s%|
000012e0  3d 61 25 28 5f 25 2c 32  29 0d 04 42 22 e7 73 25  |=a%(_%,2)..B".s%|
000012f0  3d 2d 31 8c 73 24 3d 61  24 28 6f 25 2c 31 29 3a  |=-1.s$=a$(o%,1):|
00001300  73 25 3d 61 25 28 6f 25  2c 32 29 0d 04 4c 3a c8  |s%=a%(o%,2)..L:.|
00001310  99 34 36 2c 33 31 36 2c  73 25 2c 73 24 2c 30 b8  |.46,316,s%,s$,0.|
00001320  72 63 25 2c 73 63 25 2c  74 63 25 2c 75 63 25 3a  |rc%,sc%,tc%,uc%:|
00001330  c8 99 39 30 2c 31 3a c8  99 39 30 2c 32 3a 5f 62  |..90,1:..90,2:_b|
00001340  25 3d b9 3a e1 0d 04 56  24 dd f2 6e 3a c8 99 34  |%=.:...V$..n:..4|
00001350  36 2c 72 63 25 2c 73 63  25 2c 74 63 25 2c 75 63  |6,rc%,sc%,tc%,uc|
00001360  25 3a 5f 62 25 3d 30 3a  e1 0d 04 60 11 dd f2 74  |%:_b%=0:...`...t|
00001370  61 3a e7 64 62 25 3d 30  8c e1 0d 04 6a 45 6a 25  |a:.db%=0....jEj%|
00001380  21 30 3d 58 25 3a 6a 25  21 34 3d 2d 31 3a 6a 25  |!0=X%:j%!4=-1:j%|
00001390  21 38 3d 2d 31 3a 6a 25  21 31 32 3d 2d 31 3a 6a  |!8=-1:j%!12=-1:j|
000013a0  25 21 31 36 3d 2d 31 3a  c8 99 35 33 30 30 35 33  |%!16=-1:..530053|
000013b0  2c 6f 61 25 2c 6a 25 3a  64 62 25 3d 30 3a e1 0d  |,oa%,j%:db%=0:..|
000013c0  04 74 74 dd f2 42 61 28  70 24 29 3a 6a 25 21 30  |.tt..Ba(p$):j%!0|
000013d0  3d 58 25 3a 6a 25 21 34  3d 2d 31 3a 6a 25 21 38  |=X%:j%!4=-1:j%!8|
000013e0  3d 2d 31 3a 6a 25 21 31  32 3d 2d 31 3a 6a 25 21  |=-1:j%!12=-1:j%!|
000013f0  31 36 3d 2d 31 3a 24 28  6a 25 2b 32 30 29 3d 70  |16=-1:$(j%+20)=p|
00001400  24 2b bd 30 3a 6a 25 21  33 32 3d 30 3a 6a 25 21  |$+.0:j%!32=0:j%!|
00001410  33 36 3d 30 3a 6a 25 21  34 30 3d 30 3a 6a 25 21  |36=0:j%!40=0:j%!|
00001420  34 34 3d 30 3a c8 99 35  33 30 30 35 32 2c 2c 6a  |44=0:..530052,,j|
00001430  25 3a e1 0d 04 7e ba dd  f2 6a 61 28 62 25 29 3a  |%:...~...ja(b%):|
00001440  ea 77 25 2c 69 25 2c 76  63 25 2c 77 63 25 2c 78  |.w%,i%,vc%,wc%,x|
00001450  63 25 2c 79 63 25 2c 78  25 2c 79 25 2c 76 25 2c  |c%,yc%,x%,y%,v%,|
00001460  76 2c 47 25 2c 78 2c 79  2c 75 25 2c 7a 63 25 3a  |v,G%,x,y,u%,zc%:|
00001470  77 25 3d 62 25 21 31 32  3a 69 25 3d 62 25 21 31  |w%=b%!12:i%=b%!1|
00001480  36 3a 76 63 25 3d 62 25  21 38 3a 78 25 3d 62 25  |6:vc%=b%!8:x%=b%|
00001490  21 30 3a 79 25 3d 62 25  21 34 3a 79 63 25 3d 28  |!0:y%=b%!4:yc%=(|
000014a0  76 63 25 80 34 29 3c 3e  30 3a 77 63 25 3d 28 76  |vc%.4)<>0:wc%=(v|
000014b0  63 25 80 32 29 3c 3e 30  3a 78 63 25 3d 28 76 63  |c%.2)<>0:xc%=(vc|
000014c0  25 80 31 29 3c 3e 30 3a  76 61 25 3d 30 3a 41 63  |%.1)<>0:va%=0:Ac|
000014d0  25 3d a4 61 28 77 25 29  3a e7 77 25 3c 3e 67 63  |%=.a(w%):.w%<>gc|
000014e0  25 80 57 61 25 8c f2 6c  28 67 63 25 29 0d 04 88  |%.Wa%..l(gc%)...|
000014f0  09 e7 77 63 25 8c 0d 04  92 15 e7 5a 62 25 8c f2  |..wc%......Zb%..|
00001500  62 28 51 61 25 2c 31 33  2c 30 29 0d 04 9c 1b f2  |b(Qa%,13,0).....|
00001510  6c 28 51 61 25 29 3a e7  77 25 3d 58 25 84 77 25  |l(Qa%):.w%=X%.w%|
00001520  3d 50 25 8c f2 6d 0d 04  a6 05 cd 0d 04 b0 09 c8  |=P%..m..........|
00001530  8e 77 25 ca 0d 04 ba 0d  c9 2d 32 3a e7 77 63 25  |.w%......-2:.wc%|
00001540  8c 0d 04 c4 32 f2 43 61  3a 42 63 25 3d 78 25 2d  |....2.Ca:Bc%=x%-|
00001550  31 32 30 3a 43 63 25 3d  33 36 34 3a c8 99 32 36  |120:Cc%=364:..26|
00001560  32 33 35 36 2c 2c 65 25  28 32 29 2c 42 63 25 2c  |2356,,e%(2),Bc%,|
00001570  43 63 25 0d 04 ce 05 cd  0d 04 d8 26 c9 44 63 25  |Cc%........&.Dc%|
00001580  3a e7 69 25 3d 30 80 28  79 63 25 84 78 63 25 29  |:.i%=0.(yc%.xc%)|
00001590  8c f2 7a 28 77 25 2c 69  25 2c 31 30 31 29 0d 04  |..z(w%,i%,101)..|
000015a0  e2 0d c9 50 25 3a e7 77  63 25 8c 0d 04 ec 33 42  |...P%:.wc%....3B|
000015b0  63 25 3d 78 25 2d 36 30  3a 43 63 25 3d 79 25 3a  |c%=x%-60:Cc%=y%:|
000015c0  f2 60 28 33 29 3a c8 99  32 36 32 33 35 36 2c 2c  |.`(3):..262356,,|
000015d0  65 25 28 32 30 29 2c 42  63 25 2c 43 63 25 0d 04  |e%(20),Bc%,Cc%..|
000015e0  f6 05 cd 0d 05 00 0d c9  58 25 3a e7 77 63 25 8c  |........X%:.wc%.|
000015f0  0d 05 0a 33 42 63 25 3d  78 25 2d 36 30 3a 43 63  |...3Bc%=x%-60:Cc|
00001600  25 3d 79 25 3a f2 60 28  32 29 3a c8 99 32 36 32  |%=y%:.`(2):..262|
00001610  33 35 36 2c 2c 65 25 28  32 30 29 2c 42 63 25 2c  |356,,e%(20),Bc%,|
00001620  43 63 25 0d 05 14 0b cc  3a e7 5a 62 25 8c 0d 05  |Cc%.....:.Zb%...|
00001630  1e 45 f2 51 28 78 25 2c  79 25 2c 45 63 25 2c 46  |.E.Q(x%,y%,Ec%,F|
00001640  63 25 29 3a c8 99 38 39  32 36 30 39 2c 2c 61 25  |c%):..892609,,a%|
00001650  28 6f 25 2c 33 29 2c 45  63 25 2c 64 63 25 2f 4e  |(o%,3),Ec%,dc%/N|
00001660  25 2d 46 63 25 2b 31 b8  47 25 3a e7 47 25 3c 3e  |%-Fc%+1.G%:.G%<>|
00001670  2d 31 8c 0d 05 28 0a e7  57 25 3d 30 8c 0d 05 32  |-1...(..W%=0...2|
00001680  21 21 65 25 3d 47 25 3a  f2 74 28 65 25 3f 31 2c  |!!e%=G%:.t(e%?1,|
00001690  65 25 3f 32 2c 65 25 3f  33 2c 6d 62 25 29 0d 05  |e%?2,e%?3,mb%)..|
000016a0  3c 17 cc 3a f2 74 28 60  25 2c 6b 62 25 2c 6c 62  |<..:.t(`%,kb%,lb|
000016b0  25 2c 47 25 29 0d 05 46  05 cd 0d 05 50 05 cd 0d  |%,G%)..F....P...|
000016c0  05 5a 0c cc 3a c8 8e 64  62 25 ca 0d 05 64 3d c9  |.Z..:..db%...d=.|
000016d0  31 3a 62 25 21 30 3d 77  25 3a c8 99 32 36 32 33  |1:b%!0=w%:..2623|
000016e0  34 37 2c 2c 62 25 3a f2  44 61 28 78 25 2d 62 25  |47,,b%:.Da(x%-b%|
000016f0  21 34 2b 62 25 21 32 30  2c 79 25 2d 62 25 21 31  |!4+b%!20,y%-b%!1|
00001700  36 2b 62 25 21 32 34 29  0d 05 6e 1a c9 32 3a 47  |6+b%!24)..n..2:G|
00001710  63 25 3d 78 25 3a 48 63  25 3d 79 25 3a f2 72 28  |c%=x%:Hc%=y%:.r(|
00001720  33 29 0d 05 78 2d c9 34  3a f2 51 28 78 25 2c 79  |3)..x-.4:.Q(x%,y|
00001730  25 2c 45 63 25 2c 46 63  25 29 3a f2 45 61 28 53  |%,Ec%,Fc%):.Ea(S|
00001740  61 25 2c 45 63 25 2d 31  2c 46 63 25 2d 31 29 0d  |a%,Ec%-1,Fc%-1).|
00001750  05 82 1a c9 36 3a 47 63  25 3d 78 25 3a 48 63 25  |....6:Gc%=x%:Hc%|
00001760  3d 79 25 3a f2 72 28 37  29 0d 05 8c 23 c9 38 3a  |=y%:.r(7)...#.8:|
00001770  62 25 21 30 3d 58 25 3a  c8 99 32 36 32 33 34 37  |b%!0=X%:..262347|
00001780  2c 2c 62 25 3a e7 47 61  25 3d 31 8c 0d 05 96 89  |,,b%:.Ga%=1.....|
00001790  78 3d 28 78 25 2d 62 25  21 34 29 2f 28 62 25 21  |x=(x%-b%!4)/(b%!|
000017a0  31 32 2d 62 25 21 34 29  3a 79 3d 28 79 25 2d 62  |12-b%!4):y=(y%-b|
000017b0  25 21 38 29 2f 28 62 25  21 31 36 2d 62 25 21 38  |%!8)/(b%!16-b%!8|
000017c0  29 3a 62 25 21 32 30 3d  63 63 25 2a 78 2a 61 25  |):b%!20=cc%*x*a%|
000017d0  28 6f 25 2c 34 29 2f 31  30 30 2d 30 2e 35 2a 28  |(o%,4)/100-0.5*(|
000017e0  62 25 21 31 32 2d 62 25  21 34 29 3a 62 25 21 32  |b%!12-b%!4):b%!2|
000017f0  34 3d 64 63 25 2a 79 2a  61 25 28 6f 25 2c 35 29  |4=dc%*y*a%(o%,5)|
00001800  2f 31 30 30 2b 30 2e 35  2a 28 62 25 21 31 36 2d  |/100+0.5*(b%!16-|
00001810  62 25 21 38 29 0d 05 a0  13 cc 3a e7 72 61 25 3e  |b%!8).....:.ra%>|
00001820  35 30 8c 49 63 25 3d b9  0d 05 aa 2a e7 49 63 25  |50.Ic%=....*.Ic%|
00001830  8c 49 63 25 3d a3 8b 62  25 21 32 30 2d 3d 78 25  |.Ic%=..b%!20-=x%|
00001840  2d 47 63 25 3a 62 25 21  32 34 2d 3d 79 25 2d 48  |-Gc%:b%!24-=y%-H|
00001850  63 25 0d 05 b4 11 47 63  25 3d 78 25 3a 48 63 25  |c%....Gc%=x%:Hc%|
00001860  3d 79 25 0d 05 be 05 cd  0d 05 c8 10 c8 99 32 36  |=y%...........26|
00001870  32 33 34 31 2c 2c 62 25  0d 05 d2 2f c9 31 30 31  |2341,,b%.../.101|
00001880  3a f2 51 28 78 25 2c 79  25 2c 45 63 25 2c 46 63  |:.Q(x%,y%,Ec%,Fc|
00001890  25 29 3a f2 46 61 28 54  61 25 2c 45 63 25 2d 31  |%):.Fa(Ta%,Ec%-1|
000018a0  2c 46 63 25 2d 31 29 0d  05 dc 05 cb 0d 05 e6 05  |,Fc%-1).........|
000018b0  cd 0d 05 f0 05 cd 0d 05  fa 0e c9 65 63 25 3a e7  |...........ec%:.|
000018c0  77 63 25 8c 0d 06 04 09  c8 8e 69 25 ca 0d 06 0e  |wc%.......i%....|
000018d0  12 c9 31 3a e7 76 62 25  8c f2 47 61 28 32 29 0d  |..1:.vb%..Ga(2).|
000018e0  06 18 1c c9 35 3a e7 64  62 25 3c 3e 36 80 64 62  |....5:.db%<>6.db|
000018f0  25 3c 3e 37 8c f2 47 61  28 33 29 0d 06 22 0d c9  |%<>7..Ga(3).."..|
00001900  38 3a f2 47 61 28 31 29  0d 06 2c 05 cb 0d 06 36  |8:.Ga(1)..,....6|
00001910  05 e1 0d 06 40 05 cd 0d  06 4a 09 c8 8e 69 25 ca  |....@....J...i%.|
00001920  0d 06 54 1c c9 30 3a e7  79 63 25 84 28 64 62 25  |..T..0:.yc%.(db%|
00001930  3c 3e 32 80 64 62 25 3c  3e 33 29 8c 0d 06 5e 09  |<>2.db%<>3)...^.|
00001940  f2 72 28 32 29 0d 06 68  08 cc 3a f2 6d 0d 06 72  |.r(2)..h..:.m..r|
00001950  05 cd 0d 06 7c 0c c9 31  3a e7 75 62 25 8c 0d 06  |....|..1:.ub%...|
00001960  86 13 e7 64 62 25 3d 32  84 64 62 25 3d 33 8c f2  |...db%=2.db%=3..|
00001970  6d 0d 06 90 14 e7 76 62  25 8c f2 76 28 30 29 8b  |m.....vb%..v(0).|
00001980  f2 76 28 31 29 0d 06 9a  11 f2 64 28 77 25 2c 69  |.v(1).....d(w%,i|
00001990  25 2c 76 62 25 29 0d 06  a4 05 cd 0d 06 ae 2f c9  |%,vb%)......../.|
000019a0  32 3a f2 64 28 77 25 2c  69 25 2c 31 29 3a f2 46  |2:.d(w%,i%,1):.F|
000019b0  28 5f 25 2c 6f 25 29 3a  f2 6b 28 58 25 29 3a f2  |(_%,o%):.k(X%):.|
000019c0  64 28 77 25 2c 69 25 2c  30 29 0d 06 b8 22 c9 33  |d(w%,i%,0)...".3|
000019d0  3a f2 64 28 77 25 2c 69  25 2c 31 29 3a f2 48 61  |:.d(w%,i%,1):.Ha|
000019e0  3a f2 64 28 77 25 2c 69  25 2c 30 29 0d 06 c2 26  |:.d(w%,i%,0)...&|
000019f0  c9 34 3a f2 64 28 77 25  2c 69 25 2c 31 29 3a f2  |.4:.d(w%,i%,1):.|
00001a00  49 61 28 55 25 29 3a f2  64 28 77 25 2c 69 25 2c  |Ia(U%):.d(w%,i%,|
00001a10  30 29 0d 06 cc 1c c9 35  3a e7 79 63 25 84 28 64  |0).....5:.yc%.(d|
00001a20  62 25 3c 3e 36 80 64 62  25 3c 3e 37 29 8c 0d 06  |b%<>6.db%<>7)...|
00001a30  d6 09 f2 72 28 36 29 0d  06 e0 08 cc 3a f2 6d 0d  |...r(6).....:.m.|
00001a40  06 ea 05 cd 0d 06 f4 21  c9 36 3a f2 64 28 77 25  |.......!.6:.d(w%|
00001a50  2c 69 25 2c 31 29 3a f2  56 3a f2 64 28 77 25 2c  |,i%,1):.V:.d(w%,|
00001a60  69 25 2c 30 29 0d 06 fe  1e c9 37 3a e7 79 63 25  |i%,0).....7:.yc%|
00001a70  84 ac 4f 61 25 8c f2 47  28 30 29 8b f2 6c 28 51  |..Oa%..G(0)..l(Q|
00001a80  61 25 29 0d 07 08 1b c9  38 3a e7 79 63 25 84 64  |a%).....8:.yc%.d|
00001a90  62 25 3c 3e 34 8c f2 72  28 34 29 8b f2 6d 0d 07  |b%<>4..r(4)..m..|
00001aa0  12 1b c9 39 3a e7 79 63  25 84 64 62 25 3c 3e 38  |...9:.yc%.db%<>8|
00001ab0  8c f2 72 28 38 29 8b f2  6d 0d 07 1c 05 cb 0d 07  |..r(8)..m.......|
00001ac0  26 0f c9 4a 63 25 3a e7  77 63 25 8c e1 0d 07 30  |&..Jc%:.wc%....0|
00001ad0  09 c8 8e 69 25 ca 0d 07  3a 72 c9 31 2c 32 2c 33  |...i%...:r.1,2,3|
00001ae0  3a 73 62 25 3d 69 25 3a  f2 64 28 77 25 2c 69 25  |:sb%=i%:.d(w%,i%|
00001af0  2c 31 29 3a f2 65 28 77  25 2c 30 29 3a f2 65 28  |,1):.e(w%,0):.e(|
00001b00  77 25 2c 35 29 3a f2 4a  61 3a 4b 63 25 3d 30 3a  |w%,5):.Ja:Kc%=0:|
00001b10  e3 68 25 3d 30 b8 31 35  3a 76 25 3d 6d 61 25 21  |.h%=0.15:v%=ma%!|
00001b20  28 36 34 2a 28 73 62 25  2d 31 29 2b 31 39 32 2a  |(64*(sb%-1)+192*|
00001b30  74 62 25 2b 34 2a 68 25  29 3a e7 76 25 3e 4b 63  |tb%+4*h%):.v%>Kc|
00001b40  25 8c 4b 63 25 3d 76 25  0d 07 44 05 ed 0d 07 4e  |%.Kc%=v%..D....N|
00001b50  1d c9 34 3a 74 62 25 3d  31 2d 74 62 25 3a f2 65  |..4:tb%=1-tb%:.e|
00001b60  28 77 25 2c 30 29 3a f2  4a 61 0d 07 58 41 c9 35  |(w%,0):.Ja..XA.5|
00001b70  3a 62 25 21 30 3d 77 25  3a c8 99 32 36 32 33 34  |:b%!0=w%:..26234|
00001b80  37 2c 2c 62 25 3a 78 25  2d 3d 62 25 21 34 2d 62  |7,,b%:x%-=b%!4-b|
00001b90  25 21 32 30 3a e7 57 25  3d 30 8c 78 25 3d 78 25  |%!20:.W%=0.x%=x%|
00001ba0  81 33 32 8b 78 25 3d 78  25 81 32 0d 07 62 09 e7  |.32.x%=x%.2..b..|
00001bb0  79 63 25 8c 0d 07 6c 1e  e7 78 25 3c 64 25 28 73  |yc%...l..x%<d%(s|
00001bc0  62 25 2c 32 29 8c 64 25  28 73 62 25 2c 31 29 3d  |b%,2).d%(sb%,1)=|
00001bd0  78 25 0d 07 76 22 cc 3a  e7 78 25 3e 64 25 28 73  |x%..v".:.x%>d%(s|
00001be0  62 25 2c 31 29 8c 64 25  28 73 62 25 2c 32 29 3d  |b%,1).d%(sb%,2)=|
00001bf0  78 25 2b 31 0d 07 80 05  cd 0d 07 8a 0c f2 65 28  |x%+1..........e(|
00001c00  77 25 2c 35 29 0d 07 94  05 cb 0d 07 9e 0f c9 4b  |w%,5)..........K|
00001c10  62 25 3a e7 77 63 25 8c  e1 0d 07 a8 09 c8 8e 69  |b%:.wc%........i|
00001c20  25 ca 0d 07 b2 2d c9 35  3a f2 62 28 77 25 2c 69  |%....-.5:.b(w%,i|
00001c30  25 2c 76 63 25 29 3a c8  99 32 36 32 33 35 36 2c  |%,vc%):..262356,|
00001c40  2c 2d 31 3a f2 62 28 77  25 2c 69 25 2c 30 29 0d  |,-1:.b(w%,i%,0).|
00001c50  07 bc 2a c9 36 3a f2 62  28 77 25 2c 69 25 2c 76  |..*.6:.b(w%,i%,v|
00001c60  63 25 29 3a f2 4b 61 3a  e7 79 63 25 8c c8 99 32  |c%):.Ka:.yc%...2|
00001c70  36 32 33 35 36 2c 2c 2d  31 0d 07 c6 0f f2 62 28  |62356,,-1.....b(|
00001c80  77 25 2c 69 25 2c 30 29  0d 07 d0 26 c9 37 2c 38  |w%,i%,0)...&.7,8|
00001c90  3a f2 70 28 77 25 2c 39  2c 4a 62 25 2c 32 2a 69  |:.p(w%,9,Jb%,2*i|
00001ca0  25 2d 31 35 2c 32 2c 32  30 2c 30 2c 32 29 0d 07  |%-15,2,20,0,2)..|
00001cb0  da 2a c9 31 30 2c 31 31  3a f2 70 28 77 25 2c 31  |.*.10,11:.p(w%,1|
00001cc0  32 2c 4c 62 25 2c 32 2a  69 25 2d 32 31 2c 30 2c  |2,Lb%,2*i%-21,0,|
00001cd0  33 35 39 2c 30 2c 33 29  0d 07 e4 34 c9 31 33 2c  |359,0,3)...4.13,|
00001ce0  31 34 3a f2 70 28 77 25  2c 31 35 2c 4d 62 25 2c  |14:.p(w%,15,Mb%,|
00001cf0  30 2e 30 35 2a 28 32 2a  69 25 2d 32 37 29 2c 30  |0.05*(2*i%-27),0|
00001d00  2e 31 2c 30 2e 39 39 2c  32 2c 34 29 0d 07 ee 2f  |.1,0.99,2,4).../|
00001d10  c9 31 36 2c 31 37 3a f2  70 28 77 25 2c 31 38 2c  |.16,17:.p(w%,18,|
00001d20  4e 62 25 2c 32 30 2a 69  25 2d 33 33 30 2c 2d 35  |Nb%,20*i%-330,-5|
00001d30  30 30 2c 35 30 30 2c 30  2c 34 29 0d 07 f8 2f c9  |00,500,0,4).../.|
00001d40  31 39 2c 32 30 3a f2 70  28 77 25 2c 32 31 2c 4f  |19,20:.p(w%,21,O|
00001d50  62 25 2c 32 30 2a 69 25  2d 33 39 30 2c 2d 35 30  |b%,20*i%-390,-50|
00001d60  30 2c 35 30 30 2c 30 2c  34 29 0d 08 02 05 cb 0d  |0,500,0,4)......|
00001d70  08 0c 0f c9 67 63 25 3a  e7 77 63 25 8c e1 0d 08  |....gc%:.wc%....|
00001d80  16 59 62 25 21 30 3d 77  25 3a c8 99 32 36 32 33  |.Yb%!0=w%:..2623|
00001d90  34 37 2c 2c 62 25 3a f2  71 61 28 38 2a 28 4c 63  |47,,b%:.qa(8*(Lc|
00001da0  25 2d 28 79 25 2d 62 25  21 31 36 2b 62 25 21 32  |%-(y%-b%!16+b%!2|
00001db0  34 29 81 36 34 29 2b 28  78 25 2d 62 25 21 34 2b  |4).64)+(x%-b%!4+|
00001dc0  62 25 21 32 30 29 81 36  34 29 3a e7 79 63 25 8c  |b%!20).64):.yc%.|
00001dd0  f2 6c 28 67 63 25 29 0d  08 20 14 e7 79 63 25 80  |.l(gc%).. ..yc%.|
00001de0  52 61 25 3d 31 8c f2 72  28 34 29 0d 08 2a 0f c9  |Ra%=1..r(4)..*..|
00001df0  58 62 25 3a e7 77 63 25  8c e1 0d 08 34 09 c8 8e  |Xb%:.wc%....4...|
00001e00  69 25 ca 0d 08 3e 1f c9  31 2c 32 2c 33 2c 34 3a  |i%...>..1,2,3,4:|
00001e10  55 62 25 3d 69 25 3a f2  64 28 77 25 2c 69 25 2c  |Ub%=i%:.d(w%,i%,|
00001e20  b9 29 0d 08 48 2a c9 31  31 2c 31 32 3a f2 70 28  |.)..H*.11,12:.p(|
00001e30  77 25 2c 31 30 2c 57 62  25 2c 69 25 2a 32 2d 32  |w%,10,Wb%,i%*2-2|
00001e40  33 2c 30 2c 31 30 30 2c  30 2c 33 29 0d 08 52 20  |3,0,100,0,3)..R |
00001e50  c9 31 33 2c 31 34 3a 56  62 25 3d 69 25 2d 31 32  |.13,14:Vb%=i%-12|
00001e60  3a f2 64 28 77 25 2c 69  25 2c b9 29 0d 08 5c 2e  |:.d(w%,i%,.)..\.|
00001e70  c9 31 35 3a f2 62 28 77  25 2c 69 25 2c 76 63 25  |.15:.b(w%,i%,vc%|
00001e80  29 3a c8 99 32 36 32 33  35 36 2c 2c 2d 31 3a f2  |):..262356,,-1:.|
00001e90  62 28 77 25 2c 69 25 2c  30 29 0d 08 66 3f c9 31  |b(w%,i%,0)..f?.1|
00001ea0  36 3a f2 62 28 77 25 2c  69 25 2c 76 63 25 29 3a  |6:.b(w%,i%,vc%):|
00001eb0  f2 4c 61 28 55 62 25 2c  bb 28 a4 73 28 57 62 25  |.La(Ub%,.(.s(Wb%|
00001ec0  29 29 2c 56 62 25 29 3a  e7 79 63 25 8c c8 99 32  |)),Vb%):.yc%...2|
00001ed0  36 32 33 35 36 2c 2c 2d  31 0d 08 70 0f f2 62 28  |62356,,-1..p..b(|
00001ee0  77 25 2c 69 25 2c 30 29  0d 08 7a 05 cb 0d 08 84  |w%,i%,0)..z.....|
00001ef0  0f c9 51 61 25 3a e7 77  63 25 8c e1 0d 08 8e 09  |..Qa%:.wc%......|
00001f00  c8 8e 69 25 ca 0d 08 98  13 c9 33 2c 34 2c 35 2c  |..i%......3,4,5,|
00001f10  31 35 3a c8 8e 69 25 ca  0d 08 a2 21 c9 33 2c 34  |15:..i%....!.3,4|
00001f20  2c 35 3a e7 57 25 3d 30  8c f2 7a 28 77 25 2c 69  |,5:.W%=0..z(w%,i|
00001f30  25 2c 31 30 30 2b 69 25  29 0d 08 ac 1b c9 31 35  |%,100+i%).....15|
00001f40  3a e7 ac 6e 62 25 8c f2  7a 28 77 25 2c 69 25 2c  |:..nb%..z(w%,i%,|
00001f50  31 31 35 29 0d 08 b6 05  cb 0d 08 c0 19 c9 36 3a  |115)..........6:|
00001f60  f2 62 28 77 25 2c 69 25  2c 76 63 25 29 3a c8 8e  |.b(w%,i%,vc%):..|
00001f70  b9 ca 0d 08 ca 0b c9 67  62 25 3d 2d 31 0d 08 d4  |.......gb%=-1...|
00001f80  23 c9 67 62 25 3c 35 30  3a f2 4d 61 28 67 62 25  |#.gb%<50:.Ma(gb%|
00001f90  2c 60 25 2c 6b 62 25 2c  6c 62 25 2c 6d 62 25 29  |,`%,kb%,lb%,mb%)|
00001fa0  0d 08 de 1f c9 67 62 25  3d 35 30 3a f2 4e 61 28  |.....gb%=50:.Na(|
00001fb0  60 25 2c 6b 62 25 2c 6c  62 25 2c 6d 62 25 29 0d  |`%,kb%,lb%,mb%).|
00001fc0  08 e8 15 c9 67 62 25 3d  32 30 30 3a f2 4f 61 28  |....gb%=200:.Oa(|
00001fd0  66 62 25 29 0d 08 f2 1d  c9 67 62 25 3e 3d 31 30  |fb%).....gb%>=10|
00001fe0  30 80 67 62 25 3c 3d 31  39 39 3a e7 57 25 3d 30  |0.gb%<=199:.W%=0|
00001ff0  8c 0d 08 fc 17 f2 43 3a  f2 50 61 28 67 62 25 2d  |......C:.Pa(gb%-|
00002000  31 30 30 2c 21 65 25 29  0d 09 06 16 cc 3a f2 50  |100,!e%).....:.P|
00002010  61 28 67 62 25 2d 31 30  30 2c 6d 62 25 29 0d 09  |a(gb%-100,mb%)..|
00002020  10 05 cd 0d 09 1a 1d c9  67 62 25 3e 3d 32 30 30  |........gb%>=200|
00002030  80 67 62 25 3c 3d 32 39  39 3a e7 57 25 3d 30 8c  |.gb%<=299:.W%=0.|
00002040  0d 09 24 17 f2 43 3a f2  51 61 28 67 62 25 2d 32  |..$..C:.Qa(gb%-2|
00002050  30 30 2c 21 65 25 29 0d  09 2e 16 cc 3a f2 51 61  |00,!e%).....:.Qa|
00002060  28 67 62 25 2d 32 30 30  2c 6d 62 25 29 0d 09 38  |(gb%-200,mb%)..8|
00002070  05 cd 0d 09 42 05 cb 0d  09 4c 1c f2 62 28 77 25  |....B....L..b(w%|
00002080  2c 69 25 2c 30 29 3a e7  79 63 25 8c f2 6c 28 51  |,i%,0):.yc%..l(Q|
00002090  61 25 29 0d 09 56 28 c9  37 3a f2 62 28 77 25 2c  |a%)..V(.7:.b(w%,|
000020a0  69 25 2c 76 63 25 29 3a  f2 6c 28 51 61 25 29 3a  |i%,vc%):.l(Qa%):|
000020b0  f2 62 28 77 25 2c 69 25  2c 30 29 0d 09 60 1c c9  |.b(w%,i%,0)..`..|
000020c0  31 31 3a f2 62 28 77 25  2c 69 25 2c 76 63 25 29  |11:.b(w%,i%,vc%)|
000020d0  3a e7 57 25 3d 30 8c 0d  09 6a 17 f2 74 28 32 35  |:.W%=0...j..t(25|
000020e0  35 2c 32 35 35 2c 32 35  35 2c 6d 62 25 29 0d 09  |5,255,255,mb%)..|
000020f0  74 18 cc 3a f2 74 28 60  25 2c 6b 62 25 2c 6c 62  |t..:.t(`%,kb%,lb|
00002100  25 2c 32 35 35 29 0d 09  7e 05 cd 0d 09 88 0f f2  |%,255)..~.......|
00002110  62 28 77 25 2c 69 25 2c  30 29 0d 09 92 3a c9 31  |b(w%,i%,0)...:.1|
00002120  32 3a f2 62 28 77 25 2c  69 25 2c 76 63 25 29 3a  |2:.b(w%,i%,vc%):|
00002130  e7 57 25 3d 30 8c f2 74  28 30 2c 30 2c 30 2c 6d  |.W%=0..t(0,0,0,m|
00002140  62 25 29 8b f2 74 28 60  25 2c 6b 62 25 2c 6c 62  |b%)..t(`%,kb%,lb|
00002150  25 2c 30 29 0d 09 9c 0f  f2 62 28 77 25 2c 69 25  |%,0).....b(w%,i%|
00002160  2c 30 29 0d 09 a6 12 c9  31 33 3a e7 79 63 25 84  |,0).....13:.yc%.|
00002170  ac 5a 62 25 8c 0d 09 b0  17 5a 62 25 3d b9 3a f2  |.Zb%.....Zb%=.:.|
00002180  62 28 77 25 2c 69 25 2c  76 63 25 29 0d 09 ba 17  |b(w%,i%,vc%)....|
00002190  cc 3a 5a 62 25 3d 30 3a  f2 62 28 77 25 2c 69 25  |.:Zb%=0:.b(w%,i%|
000021a0  2c 30 29 0d 09 c4 05 cd  0d 09 ce 6c c9 31 37 3a  |,0)........l.17:|
000021b0  62 25 21 30 3d 77 25 3a  c8 99 32 36 32 33 34 37  |b%!0=w%:..262347|
000021c0  2c 2c 62 25 3a 78 25 2d  3d 62 25 21 34 2d 62 25  |,,b%:x%-=b%!4-b%|
000021d0  21 32 30 2b 38 30 30 3a  79 25 2d 3d 62 25 21 31  |!20+800:y%-=b%!1|
000021e0  36 2d 62 25 21 32 34 2b  32 30 3a 78 25 3d 78 25  |6-b%!24+20:x%=x%|
000021f0  81 31 36 3a 79 25 3d 79  25 81 31 36 3a 47 25 3d  |.16:y%=y%.16:G%=|
00002200  78 25 2b 31 36 2a 28 31  35 2d 79 25 29 3a e7 57  |x%+16*(15-y%):.W|
00002210  25 3d 30 8c 0d 09 d8 2a  c8 99 38 39 32 36 31 30  |%=0....*..892610|
00002220  2c 47 25 b8 21 65 25 3a  f2 74 28 65 25 3f 31 2c  |,G%.!e%:.t(e%?1,|
00002230  65 25 3f 32 2c 65 25 3f  33 2c 6d 62 25 29 0d 09  |e%?2,e%?3,mb%)..|
00002240  e2 17 cc 3a f2 74 28 60  25 2c 6b 62 25 2c 6c 62  |...:.t(`%,kb%,lb|
00002250  25 2c 47 25 29 0d 09 ec  05 cd 0d 09 f6 05 cb 0d  |%,G%)...........|
00002260  0a 00 0f c9 4d 63 25 3a  e7 77 63 25 8c e1 0d 0a  |....Mc%:.wc%....|
00002270  0a 09 c8 8e 69 25 ca 0d  0a 14 6b c9 30 2c 31 2c  |....i%....k.0,1,|
00002280  32 3a 62 25 21 30 3d 77  25 3a c8 99 32 36 32 33  |2:b%!0=w%:..2623|
00002290  34 37 2c 2c 62 25 3a 78  25 2d 3d 62 25 21 34 2d  |47,,b%:x%-=b%!4-|
000022a0  62 25 21 32 30 2b 32 34  2b 32 31 36 2a 69 25 3a  |b%!20+24+216*i%:|
000022b0  79 25 2d 3d 62 25 21 31  36 2d 62 25 21 32 34 2b  |y%-=b%!16-b%!24+|
000022c0  38 30 3a 62 25 28 69 25  2b 31 2c 31 2b 28 78 25  |80:b%(i%+1,1+(x%|
000022d0  81 36 34 29 29 3d 79 25  3a f2 65 28 77 25 2c 69  |.64))=y%:.e(w%,i|
000022e0  25 29 0d 0a 1e 31 c9 36  3a f2 62 28 77 25 2c 69  |%)...1.6:.b(w%,i|
000022f0  25 2c 76 63 25 29 3a f2  52 61 3a f2 62 28 77 25  |%,vc%):.Ra:.b(w%|
00002300  2c 69 25 2c 30 29 3a e7  79 63 25 8c f2 6c 28 4d  |,i%,0):.yc%..l(M|
00002310  63 25 29 0d 0a 28 05 cb  0d 0a 32 0f c9 60 61 25  |c%)..(....2..`a%|
00002320  3a e7 77 63 25 8c e1 0d  0a 3c 09 c8 8e 69 25 ca  |:.wc%....<...i%.|
00002330  0d 0a 46 19 c9 34 3a 63  62 25 3d 31 33 3a f2 64  |..F..4:cb%=13:.d|
00002340  28 77 25 2c 69 25 2c 31  29 0d 0a 50 19 c9 35 3a  |(w%,i%,1)..P..5:|
00002350  63 62 25 3d 31 35 3a f2  64 28 77 25 2c 69 25 2c  |cb%=15:.d(w%,i%,|
00002360  31 29 0d 0a 5a 19 c9 36  3a 63 62 25 3d 32 31 3a  |1)..Z..6:cb%=21:|
00002370  f2 64 28 77 25 2c 69 25  2c 31 29 0d 0a 64 24 c9  |.d(w%,i%,1)..d$.|
00002380  31 31 3a f2 70 28 77 25  2c 31 30 2c 5f 61 25 2c  |11:.p(w%,10,_a%,|
00002390  2d 32 2c 32 30 2c 31 39  39 39 2c 30 2c 34 29 0d  |-2,20,1999,0,4).|
000023a0  0a 6e 23 c9 31 32 3a f2  70 28 77 25 2c 31 30 2c  |.n#.12:.p(w%,10,|
000023b0  5f 61 25 2c 32 2c 32 30  2c 31 39 39 39 2c 30 2c  |_a%,2,20,1999,0,|
000023c0  34 29 0d 0a 78 23 c9 31  35 3a f2 70 28 77 25 2c  |4)..x#.15:.p(w%,|
000023d0  31 34 2c 61 62 25 2c 32  2c 32 30 2c 31 39 39 39  |14,ab%,2,20,1999|
000023e0  2c 30 2c 34 29 0d 0a 82  24 c9 31 36 3a f2 70 28  |,0,4)...$.16:.p(|
000023f0  77 25 2c 31 34 2c 61 62  25 2c 2d 32 2c 32 30 2c  |w%,14,ab%,-2,20,|
00002400  31 39 39 39 2c 30 2c 34  29 0d 0a 8c 2d c9 31 37  |1999,0,4)...-.17|
00002410  3a f2 62 28 77 25 2c 69  25 2c 76 63 25 29 3a f2  |:.b(w%,i%,vc%):.|
00002420  53 61 3a f2 6c 28 60 61  25 29 3a f2 62 28 77 25  |Sa:.l(`a%):.b(w%|
00002430  2c 69 25 2c 30 29 0d 0a  96 29 c9 31 38 3a f2 62  |,i%,0)...).18:.b|
00002440  28 77 25 2c 69 25 2c 76  63 25 29 3a f2 6c 28 60  |(w%,i%,vc%):.l(`|
00002450  61 25 29 3a f2 62 28 77  25 2c 69 25 2c 30 29 0d  |a%):.b(w%,i%,0).|
00002460  0a a0 05 cb 0d 0a aa 0f  c9 4e 63 25 3a e7 77 63  |.........Nc%:.wc|
00002470  25 8c e1 0d 0a b4 09 c8  8e 69 25 ca 0d 0a be 14  |%........i%.....|
00002480  c9 30 3a f2 7a 28 77 25  2c 69 25 2c 31 31 30 29  |.0:.z(w%,i%,110)|
00002490  0d 0a c8 1e c9 31 3a 68  62 25 2b 3d 35 3a e7 68  |.....1:hb%+=5:.h|
000024a0  62 25 3e 32 35 30 8c 68  62 25 3d 32 35 30 0d 0a  |b%>250.hb%=250..|
000024b0  d2 0c f2 65 28 77 25 2c  30 29 0d 0a dc 1a c9 32  |...e(w%,0).....2|
000024c0  3a 68 62 25 2d 3d 35 3a  e7 68 62 25 3c 35 8c 68  |:hb%-=5:.hb%<5.h|
000024d0  62 25 3d 35 0d 0a e6 0c  f2 65 28 77 25 2c 30 29  |b%=5.....e(w%,0)|
000024e0  0d 0a f0 20 c9 33 3a 66  2d 3d 30 2e 30 30 31 3a  |... .3:f-=0.001:|
000024f0  e7 66 3c 30 2e 30 30 38  8c 66 3d 30 2e 30 30 38  |.f<0.008.f=0.008|
00002500  0d 0a fa 0c f2 65 28 77  25 2c 30 29 0d 0b 04 1e  |.....e(w%,0)....|
00002510  c9 34 3a 66 2b 3d 30 2e  30 30 31 3a e7 66 3e 30  |.4:f+=0.001:.f>0|
00002520  2e 31 30 8c 66 3d 30 2e  31 30 0d 0b 0e 0c f2 65  |.10.f=0.10.....e|
00002530  28 77 25 2c 30 29 0d 0b  18 27 c9 35 3a f2 62 28  |(w%,0)...'.5:.b(|
00002540  77 25 2c 69 25 2c 76 63  25 29 3a f2 6c 28 77 25  |w%,i%,vc%):.l(w%|
00002550  29 3a f2 62 28 77 25 2c  69 25 2c 30 29 0d 0b 22  |):.b(w%,i%,0).."|
00002560  2d c9 36 3a f2 62 28 77  25 2c 69 25 2c 76 63 25  |-.6:.b(w%,i%,vc%|
00002570  29 3a f2 54 61 28 30 29  3a e7 79 63 25 8c c8 99  |):.Ta(0):.yc%...|
00002580  32 36 32 33 35 36 2c 2c  2d 31 0d 0b 2c 0f f2 62  |262356,,-1..,..b|
00002590  28 77 25 2c 69 25 2c 30  29 0d 0b 36 1c c9 37 3a  |(w%,i%,0)..6..7:|
000025a0  69 62 25 3d ac 69 62 25  3a f2 64 28 77 25 2c 37  |ib%=.ib%:.d(w%,7|
000025b0  2c 69 62 25 29 0d 0b 40  05 cb 0d 0b 4a 0f c9 4e  |,ib%)..@....J..N|
000025c0  61 25 3a e7 77 63 25 8c  e1 0d 0b 54 09 c8 8e 69  |a%:.wc%....T...i|
000025d0  25 ca 0d 0b 5e 2d c9 32  3a f2 62 28 77 25 2c 69  |%...^-.2:.b(w%,i|
000025e0  25 2c 76 63 25 29 3a f2  77 61 28 58 61 25 2c 66  |%,vc%):.wa(Xa%,f|
000025f0  62 25 29 3a f2 62 28 77  25 2c 69 25 2c 30 29 0d  |b%):.b(w%,i%,0).|
00002600  0b 68 12 c9 33 3a f2 7a  28 30 2c 66 62 25 2c 31  |.h..3:.z(0,fb%,1|
00002610  29 0d 0b 72 0f c9 34 3a  4d 61 25 3d ac 4d 61 25  |)..r..4:Ma%=.Ma%|
00002620  0d 0b 7c 05 cb 0d 0b 86  0f c9 51 62 25 3a e7 77  |..|.......Qb%:.w|
00002630  63 25 8c e1 0d 0b 90 09  c8 8e 69 25 ca 0d 0b 9a  |c%........i%....|
00002640  1c c9 30 3a e7 53 62 25  3c 3e 31 8c f2 7a 28 77  |..0:.Sb%<>1..z(w|
00002650  25 2c 69 25 2c 31 31 31  29 0d 0b a4 47 c9 31 2c  |%,i%,111)...G.1,|
00002660  32 2c 33 3a 61 28 52 62  25 29 3d a0 28 a4 73 28  |2,3:a(Rb%)=.(.s(|
00002670  50 62 25 29 29 3a f2 70  28 77 25 2c 36 2c 50 62  |Pb%)):.p(w%,6,Pb|
00002680  25 2c 61 28 69 25 29 2c  30 2c 30 2c 32 2c 34 29  |%,a(i%),0,0,2,4)|
00002690  3a 52 62 25 3d 69 25 3a  f2 65 28 77 25 2c 30 29  |:Rb%=i%:.e(w%,0)|
000026a0  0d 0b ae 34 c9 34 3a f2  62 28 77 25 2c 69 25 2c  |...4.4:.b(w%,i%,|
000026b0  76 63 25 29 3a c8 99 32  36 32 33 35 36 2c 2c 2d  |vc%):..262356,,-|
000026c0  31 3a f2 6c 28 77 25 29  3a f2 62 28 77 25 2c 69  |1:.l(w%):.b(w%,i|
000026d0  25 2c 30 29 0d 0b b8 1b  c9 35 3a f2 62 28 77 25  |%,0).....5:.b(w%|
000026e0  2c 69 25 2c 76 63 25 29  3a c8 8e 53 62 25 ca 0d  |,i%,vc%):..Sb%..|
000026f0  0b c2 1a c9 31 3a f2 55  61 28 61 28 31 29 2c 61  |....1:.Ua(a(1),a|
00002700  28 32 29 2c 61 28 33 29  29 0d 0b cc 0a c9 32 3a  |(2),a(3)).....2:|
00002710  f2 56 61 0d 0b d6 0a c9  34 3a f2 57 61 0d 0b e0  |.Va.....4:.Wa...|
00002720  05 cb 0d 0b ea 15 e7 79  63 25 8c c8 99 32 36 32  |.......yc%...262|
00002730  33 35 36 2c 2c 2d 31 0d  0b f4 0f f2 62 28 77 25  |356,,-1.....b(w%|
00002740  2c 69 25 2c 30 29 0d 0b  fe 4b c9 37 2c 38 3a f2  |,i%,0)...K.7,8:.|
00002750  70 28 77 25 2c 36 2c 50  62 25 2c 30 2e 30 32 2a  |p(w%,6,Pb%,0.02*|
00002760  28 32 2a 69 25 2d 31 35  29 2c 30 2e 32 2c 33 2c  |(2*i%-15),0.2,3,|
00002770  32 2c 34 29 3a 61 28 52  62 25 29 3d a0 28 a4 73  |2,4):a(Rb%)=.(.s|
00002780  28 50 62 25 29 29 3a e7  54 62 25 84 57 25 3d 31  |(Pb%)):.Tb%.W%=1|
00002790  8c 0d 0c 08 27 61 28 31  29 3d 61 28 52 62 25 29  |....'a(1)=a(Rb%)|
000027a0  3a 61 28 32 29 3d 61 28  52 62 25 29 3a 61 28 33  |:a(2)=a(Rb%):a(3|
000027b0  29 3d 61 28 52 62 25 29  0d 0c 12 05 cd 0d 0c 1c  |)=a(Rb%)........|
000027c0  0c f2 65 28 77 25 2c 30  29 0d 0c 26 5a c9 39 2c  |..e(w%,0)..&Z.9,|
000027d0  31 30 2c 31 32 3a 53 62  25 3d 69 25 2d 38 3a f2  |10,12:Sb%=i%-8:.|
000027e0  64 28 77 25 2c 69 25 2c  b9 29 3a f2 65 28 77 25  |d(w%,i%,.):.e(w%|
000027f0  2c 30 29 3a f2 4b 28 77  25 2c 36 2c 53 62 25 3c  |,0):.K(w%,6,Sb%<|
00002800  3e 31 29 3a f2 4b 28 77  25 2c 37 2c 53 62 25 3c  |>1):.K(w%,7,Sb%<|
00002810  3e 31 29 3a f2 4b 28 77  25 2c 38 2c 53 62 25 3c  |>1):.K(w%,8,Sb%<|
00002820  3e 31 29 0d 0c 30 12 c9  31 31 3a e7 79 63 25 84  |>1)..0..11:.yc%.|
00002830  ac 54 62 25 8c 0d 0c 3a  71 f2 62 28 77 25 2c 69  |.Tb%...:q.b(w%,i|
00002840  25 2c 76 63 25 29 3a 54  62 25 3d b9 3a 67 3d 61  |%,vc%):Tb%=.:g=a|
00002850  28 52 62 25 29 3a 61 28  31 29 3d 67 3a 61 28 32  |(Rb%):a(1)=g:a(2|
00002860  29 3d 67 3a 61 28 33 29  3d 67 3a e3 78 25 3d 31  |)=g:a(3)=g:.x%=1|
00002870  b8 35 3a 79 25 3d 63 25  28 52 62 25 2c 78 25 29  |.5:y%=c%(Rb%,x%)|
00002880  3a 63 25 28 31 2c 78 25  29 3d 79 25 3a 63 25 28  |:c%(1,x%)=y%:c%(|
00002890  32 2c 78 25 29 3d 79 25  3a 63 25 28 33 2c 78 25  |2,x%)=y%:c%(3,x%|
000028a0  29 3d 79 25 3a ed 0d 0c  44 17 cc 3a f2 62 28 77  |)=y%:...D..:.b(w|
000028b0  25 2c 69 25 2c 30 29 3a  54 62 25 3d 30 0d 0c 4e  |%,i%,0):Tb%=0..N|
000028c0  05 cd 0d 0c 58 05 cb 0d  0c 62 0f c9 5a 61 25 3a  |....X....b..Za%:|
000028d0  e7 77 63 25 8c e1 0d 0c  6c 1f e7 69 25 3e 3d 35  |.wc%....l..i%>=5|
000028e0  80 69 25 3c 3d 31 33 8c  f2 62 28 77 25 2c 69 25  |.i%<=13..b(w%,i%|
000028f0  2c 76 63 25 29 0d 0c 76  09 c8 8e 69 25 ca 0d 0c  |,vc%)..v...i%...|
00002900  80 2a c9 32 3a f2 70 28  77 25 2c 30 2c 59 61 25  |.*.2:.p(w%,0,Ya%|
00002910  2c 31 2c 31 30 2c 31 39  39 39 2c 30 2c 34 29 3a  |,1,10,1999,0,4):|
00002920  f2 41 28 77 25 2c 30 29  0d 0c 8a 2b c9 33 3a f2  |.A(w%,0)...+.3:.|
00002930  70 28 77 25 2c 30 2c 59  61 25 2c 2d 31 2c 31 30  |p(w%,0,Ya%,-1,10|
00002940  2c 31 39 39 39 2c 30 2c  34 29 3a f2 41 28 77 25  |,1999,0,4):.A(w%|
00002950  2c 30 29 0d 0c 94 23 c9  35 3a 24 59 61 25 3d 22  |,0)...#.5:$Ya%="|
00002960  31 30 22 3a f2 65 28 5a  61 25 2c 30 29 3a f2 41  |10":.e(Za%,0):.A|
00002970  28 77 25 2c 30 29 0d 0c  9e 23 c9 36 3a 24 59 61  |(w%,0)...#.6:$Ya|
00002980  25 3d 22 33 33 22 3a f2  65 28 5a 61 25 2c 30 29  |%="33":.e(Za%,0)|
00002990  3a f2 41 28 77 25 2c 30  29 0d 0c a8 23 c9 37 3a  |:.A(w%,0)...#.7:|
000029a0  24 59 61 25 3d 22 35 30  22 3a f2 65 28 5a 61 25  |$Ya%="50":.e(Za%|
000029b0  2c 30 29 3a f2 41 28 77  25 2c 30 29 0d 0c b2 24  |,0):.A(w%,0)...$|
000029c0  c9 38 3a 24 59 61 25 3d  22 31 30 30 22 3a f2 65  |.8:$Ya%="100":.e|
000029d0  28 5a 61 25 2c 30 29 3a  f2 41 28 77 25 2c 30 29  |(Za%,0):.A(w%,0)|
000029e0  0d 0c bc 24 c9 39 3a 24  59 61 25 3d 22 32 30 30  |...$.9:$Ya%="200|
000029f0  22 3a f2 65 28 5a 61 25  2c 30 29 3a f2 41 28 77  |":.e(Za%,0):.A(w|
00002a00  25 2c 30 29 0d 0c c6 25  c9 31 30 3a 24 59 61 25  |%,0)...%.10:$Ya%|
00002a10  3d 22 35 30 30 22 3a f2  65 28 5a 61 25 2c 30 29  |="500":.e(Za%,0)|
00002a20  3a f2 41 28 77 25 2c 30  29 0d 0c d0 14 c9 31 31  |:.A(w%,0).....11|
00002a30  3a f2 58 61 3a f2 41 28  77 25 2c 30 29 0d 0c da  |:.Xa:.A(w%,0)...|
00002a40  1a c9 31 32 3a f2 48 28  31 29 3a c8 99 32 36 32  |..12:.H(1):..262|
00002a50  33 35 36 2c 2c 2d 31 0d  0c e4 14 c9 31 33 3a c8  |356,,-1.....13:.|
00002a60  99 32 36 32 33 35 36 2c  2c 2d 31 0d 0c ee 05 cb  |.262356,,-1.....|
00002a70  0d 0c f8 1d e7 69 25 3e  3d 35 80 69 25 3c 3d 31  |.....i%>=5.i%<=1|
00002a80  33 8c f2 62 28 77 25 2c  69 25 2c 30 29 0d 0d 02  |3..b(w%,i%,0)...|
00002a90  0f c9 48 62 25 3a e7 77  63 25 8c e1 0d 0d 0c 09  |..Hb%:.wc%......|
00002aa0  c8 8e 69 25 ca 0d 0d 16  19 c9 31 3a e7 47 62 25  |..i%......1:.Gb%|
00002ab0  3d 30 8c 47 62 25 3d 31  8b 47 62 25 3d 30 0d 0d  |=0.Gb%=1.Gb%=0..|
00002ac0  20 1c f2 64 28 77 25 2c  31 2c 47 62 25 3d 30 29  | ..d(w%,1,Gb%=0)|
00002ad0  3a f2 65 28 77 25 2c 31  30 29 0d 0d 2a 28 c9 39  |:.e(w%,10)..*(.9|
00002ae0  3a f2 62 28 77 25 2c 69  25 2c 76 63 25 29 3a f2  |:.b(w%,i%,vc%):.|
00002af0  6c 28 48 62 25 29 3a f2  62 28 77 25 2c 69 25 2c  |l(Hb%):.b(w%,i%,|
00002b00  30 29 0d 0d 34 15 c9 31  30 3a f2 7a 28 77 25 2c  |0)..4..10:.z(w%,|
00002b10  69 25 2c 31 31 32 29 0d  0d 3e 15 c9 31 31 3a f2  |i%,112)..>..11:.|
00002b20  7a 28 77 25 2c 69 25 2c  31 31 33 29 0d 0d 48 39  |z(w%,i%,113)..H9|
00002b30  c9 31 33 2c 31 34 3a f2  70 28 77 25 2c 31 35 2c  |.13,14:.p(w%,15,|
00002b40  49 62 25 2c 69 25 2a 32  2d 32 37 2c 31 2c 31 30  |Ib%,i%*2-27,1,10|
00002b50  30 2c 30 2c 33 29 3a 44  62 25 3d a0 28 a4 73 28  |0,0,3):Db%=.(.s(|
00002b60  49 62 25 29 29 0d 0d 52  3d c9 31 36 3a 62 25 21  |Ib%))..R=.16:b%!|
00002b70  30 3d 77 25 3a c8 99 32  36 32 33 34 37 2c 2c 62  |0=w%:..262347,,b|
00002b80  25 3a 78 25 2d 3d 62 25  21 34 2d 62 25 21 32 30  |%:x%-=b%!4-b%!20|
00002b90  2b 34 38 3a 78 25 3d 78  25 81 34 38 3a c8 8e 78  |+48:x%=x%.48:..x|
00002ba0  25 ca 0d 0d 5c 25 c9 30  2c 31 2c 32 3a 47 62 25  |%...\%.0,1,2:Gb%|
00002bb0  3d 31 3a 45 62 25 3d 34  2a 28 32 5e 78 25 29 3a  |=1:Eb%=4*(2^x%):|
00002bc0  46 62 25 3d 45 62 25 0d  0d 66 29 c9 33 2c 34 2c  |Fb%=Eb%..f).3,4,|
00002bd0  35 3a 47 62 25 3d 32 3a  45 62 25 3d 36 2a 28 32  |5:Gb%=2:Eb%=6*(2|
00002be0  5e 28 78 25 2d 33 29 29  3a 46 62 25 3d 45 62 25  |^(x%-3)):Fb%=Eb%|
00002bf0  0d 0d 70 28 c9 36 2c 37  2c 38 3a 47 62 25 3d 33  |..p(.6,7,8:Gb%=3|
00002c00  3a 45 62 25 3d 34 2a 28  32 5e 28 78 25 2d 36 29  |:Eb%=4*(2^(x%-6)|
00002c10  29 3a 46 62 25 3d 32 34  0d 0d 7a 05 cb 0d 0d 84  |):Fb%=24..z.....|
00002c20  1c f2 64 28 77 25 2c 31  2c 47 62 25 3d 30 29 3a  |..d(w%,1,Gb%=0):|
00002c30  f2 65 28 77 25 2c 31 30  29 0d 0d 8e 05 cb 0d 0d  |.e(w%,10).......|
00002c40  98 11 7f 3a e7 41 63 25  3e 30 80 77 63 25 8c 0d  |...:.Ac%>0.wc%..|
00002c50  0d a2 3a f2 59 61 28 41  63 25 29 3a 42 63 25 3d  |..:.Ya(Ac%):Bc%=|
00002c60  62 25 21 30 2d 36 30 3a  43 63 25 3d 62 25 21 34  |b%!0-60:Cc%=b%!4|
00002c70  3a c8 99 32 36 32 33 35  36 2c 2c 65 25 28 32 33  |:..262356,,e%(23|
00002c80  29 2c 42 63 25 2c 43 63  25 0d 0d ac 05 cd 0d 0d  |),Bc%,Cc%.......|
00002c90  b6 05 cb 0d 0d c0 05 e1  0d 0d ca 27 dd f2 41 28  |...........'..A(|
00002ca0  77 25 2c 69 25 29 3a c8  99 32 36 32 33 35 34 2c  |w%,i%):..262354,|
00002cb0  77 25 2c 69 25 2c 2c 2c  34 30 2c 2d 31 3a e1 0d  |w%,i%,,,40,-1:..|
00002cc0  0d d4 41 dd f2 70 28 77  25 2c 69 25 2c 4f 63 25  |..A..p(w%,i%,Oc%|
00002cd0  2c 43 2c 7a 2c 41 2c 50  63 25 2c 51 63 25 29 3a  |,C,z,A,Pc%,Qc%):|
00002ce0  ea 76 24 2c 76 2c 40 25  3a 76 3d a0 28 a4 73 28  |.v$,v,@%:v=.(.s(|
00002cf0  4f 63 25 29 29 2b 43 3a  e7 76 3c 7a 8c 76 3d 7a  |Oc%))+C:.v<z.v=z|
00002d00  0d 0d de 0c e7 76 3e 41  8c 76 3d 41 0d 0d e8 0c  |.....v>A.v=A....|
00002d10  e7 7a 3d 41 8c 76 3d 43  0d 0d f2 43 40 25 3d 31  |.z=A.v=C...C@%=1|
00002d20  33 31 30 37 32 2b 32 35  36 2a 50 63 25 2b 51 63  |31072+256*Pc%+Qc|
00002d30  25 3a e7 76 3c 3e 30 8c  76 24 3d c0 c3 28 76 2b  |%:.v<>0.v$=..(v+|
00002d40  28 30 2e 31 5e 28 50 63  25 2b 33 29 29 29 2c 51  |(0.1^(Pc%+3))),Q|
00002d50  63 25 29 8b 76 24 3d c3  28 30 29 0d 0d fc 1d e7  |c%).v$=.(0).....|
00002d60  c2 76 24 29 3d 22 2e 22  8c 76 24 3d c0 76 24 2c  |.v$)=".".v$=.v$,|
00002d70  a9 28 76 24 29 2d 31 29  0d 0e 06 17 24 4f 63 25  |.(v$)-1)....$Oc%|
00002d80  3d 76 24 3a f2 65 28 77  25 2c 69 25 29 3a e1 0d  |=v$:.e(w%,i%):..|
00002d90  0e 10 84 dd f2 51 28 78  25 2c 79 25 2c f8 52 63  |.....Q(x%,y%,.Rc|
00002da0  25 2c f8 53 63 25 29 3a  6a 25 21 30 3d 58 25 3a  |%,.Sc%):j%!0=X%:|
00002db0  c8 99 32 36 32 33 34 37  2c 2c 6a 25 3a 78 25 2d  |..262347,,j%:x%-|
00002dc0  3d 6a 25 21 34 2d 6a 25  21 32 30 3a 79 25 2d 3d  |=j%!4-j%!20:y%-=|
00002dd0  6a 25 21 31 36 2d 6a 25  21 32 34 3a 52 63 25 3d  |j%!16-j%!24:Rc%=|
00002de0  78 25 2a 31 30 30 2f 28  61 25 28 6f 25 2c 34 29  |x%*100/(a%(o%,4)|
00002df0  2a 54 25 29 2b 31 3a 53  63 25 3d 79 25 2a 31 30  |*T%)+1:Sc%=y%*10|
00002e00  30 2f 28 61 25 28 6f 25  2c 35 29 2a 4e 25 29 2b  |0/(a%(o%,5)*N%)+|
00002e10  31 3a e1 0d 0e 1a 1d dd  f2 5a 61 3a c8 99 32 36  |1:.......Za:..26|
00002e20  32 33 35 32 2c 2c 2d 31  3a 79 61 25 3d 30 3a e1  |2352,,-1:ya%=0:.|
00002e30  0d 0e 24 57 dd f2 68 61  3a ea 78 25 2c 79 25 2c  |..$W..ha:.x%,y%,|
00002e40  78 63 25 3a c8 99 32 36  32 33 35 31 2c 2c 62 25  |xc%:..262351,,b%|
00002e50  3a 78 25 3d 28 62 25 21  30 2d 47 63 25 29 3a 79  |:x%=(b%!0-Gc%):y|
00002e60  25 3d 28 62 25 21 34 2d  48 63 25 29 3a 78 63 25  |%=(b%!4-Hc%):xc%|
00002e70  3d 28 62 25 21 38 80 31  29 3c 3e 30 3a e7 78 25  |=(b%!8.1)<>0:.x%|
00002e80  3c 30 8c 78 25 3d 30 0d  0e 2e 12 e7 78 25 3e 54  |<0.x%=0.....x%>T|
00002e90  63 25 8c 78 25 3d 54 63  25 0d 0e 38 0e e7 79 25  |c%.x%=Tc%..8..y%|
00002ea0  3c 30 8c 79 25 3d 30 0d  0e 42 12 e7 79 25 3e 55  |<0.y%=0..B..y%>U|
00002eb0  63 25 8c 79 25 3d 55 63  25 0d 0e 4c 0a c8 8e 79  |c%.y%=Uc%..L...y|
00002ec0  61 25 ca 0d 0e 56 1d c9  31 30 31 3a 78 25 3d 78  |a%...V..101:x%=x|
00002ed0  25 2f 32 2d 36 3a e7 78  25 3c 30 8c 78 25 3d 30  |%/2-6:.x%<0.x%=0|
00002ee0  0d 0e 60 12 e7 78 25 3e  32 35 35 8c 78 25 3d 32  |..`..x%>255.x%=2|
00002ef0  35 35 0d 0e 6a 1d e7 78  25 3c 3e 59 62 25 8c 59  |55..j..x%<>Yb%.Y|
00002f00  62 25 3d 78 25 3a f2 65  28 44 63 25 2c 30 29 0d  |b%=x%:.e(Dc%,0).|
00002f10  0e 74 1f c9 31 30 33 3a  e7 78 63 25 8c 6b 62 25  |.t..103:.xc%.kb%|
00002f20  3d 78 25 2f 32 3a 6c 62  25 3d 78 25 2f 32 0d 0e  |=x%/2:lb%=x%/2..|
00002f30  7e 18 f2 74 28 78 25 2f  32 2c 6b 62 25 2c 6c 62  |~..t(x%/2,kb%,lb|
00002f40  25 2c 6d 62 25 29 0d 0e  88 1e c9 31 30 34 3a e7  |%,mb%).....104:.|
00002f50  78 63 25 8c 60 25 3d 78  25 2f 32 3a 6c 62 25 3d  |xc%.`%=x%/2:lb%=|
00002f60  78 25 2f 32 0d 0e 92 17  f2 74 28 60 25 2c 78 25  |x%/2.....t(`%,x%|
00002f70  2f 32 2c 6c 62 25 2c 6d  62 25 29 0d 0e 9c 1e c9  |/2,lb%,mb%).....|
00002f80  31 30 35 3a e7 78 63 25  8c 60 25 3d 78 25 2f 32  |105:.xc%.`%=x%/2|
00002f90  3a 6b 62 25 3d 78 25 2f  32 0d 0e a6 17 f2 74 28  |:kb%=x%/2.....t(|
00002fa0  60 25 2c 6b 62 25 2c 78  25 2f 32 2c 6d 62 25 29  |`%,kb%,x%/2,mb%)|
00002fb0  0d 0e b0 26 c9 31 31 30  3a 68 62 25 3d 94 28 32  |...&.110:hb%=.(2|
00002fc0  38 2d 78 25 29 3a e7 68  62 25 3e 32 35 30 8c 68  |8-x%):.hb%>250.h|
00002fd0  62 25 3d 32 35 30 0d 0e  ba 10 e7 68 62 25 3c 35  |b%=250.....hb%<5|
00002fe0  8c 68 62 25 3d 35 0d 0e  c4 1d e7 79 25 3e 30 8c  |.hb%=5.....y%>0.|
00002ff0  66 3d 33 2e 35 2f 28 33  35 2b 79 25 29 8b 66 3d  |f=3.5/(35+y%).f=|
00003000  30 2e 31 0d 0e ce 10 e7  66 3e 30 2e 31 8c 66 3d  |0.1.....f>0.1.f=|
00003010  30 2e 31 0d 0e d8 14 e7  66 3c 30 2e 30 30 38 8c  |0.1.....f<0.008.|
00003020  66 3d 30 2e 30 30 38 0d  0e e2 0d f2 65 28 4e 63  |f=0.008.....e(Nc|
00003030  25 2c 30 29 0d 0e ec 13  c9 31 31 31 3a e7 79 25  |%,0).....111:.y%|
00003040  3c 30 8c 79 25 3d 30 0d  0e f6 12 e7 79 25 3e 32  |<0.y%=0.....y%>2|
00003050  35 35 8c 79 25 3d 32 35  35 0d 0f 00 0a c8 8e 53  |55.y%=255......S|
00003060  62 25 ca 0d 0f 0a 52 c9  32 3a 78 25 3d 31 2b 28  |b%....R.2:x%=1+(|
00003070  78 25 2b 33 32 29 81 36  34 3a 63 25 28 52 62 25  |x%+32).64:c%(Rb%|
00003080  2c 78 25 29 3d 79 25 3a  e7 54 62 25 84 57 25 3d  |,x%)=y%:.Tb%.W%=|
00003090  31 8c 63 25 28 31 2c 78  25 29 3d 79 25 3a 63 25  |1.c%(1,x%)=y%:c%|
000030a0  28 32 2c 78 25 29 3d 79  25 3a 63 25 28 33 2c 78  |(2,x%)=y%:c%(3,x|
000030b0  25 29 3d 79 25 0d 0f 14  0d f2 65 28 51 62 25 2c  |%)=y%.....e(Qb%,|
000030c0  30 29 0d 0f 1e 1e c9 34  3a 78 25 3d 31 2b 78 25  |0).....4:x%=1+x%|
000030d0  81 31 36 3a e7 78 25 3e  31 36 8c 78 25 3d 31 36  |.16:.x%>16.x%=16|
000030e0  0d 0f 28 3f 66 25 28 52  62 25 2c 78 25 29 3d 79  |..(?f%(Rb%,x%)=y|
000030f0  25 3a e7 54 62 25 84 57  25 3d 31 8c 66 25 28 31  |%:.Tb%.W%=1.f%(1|
00003100  2c 78 25 29 3d 79 25 3a  66 25 28 32 2c 78 25 29  |,x%)=y%:f%(2,x%)|
00003110  3d 79 25 3a 66 25 28 33  2c 78 25 29 3d 79 25 0d  |=y%:f%(3,x%)=y%.|
00003120  0f 32 28 c8 99 32 36 32  33 35 33 2c 51 62 25 2c  |.2(..262353,Qb%,|
00003130  78 25 2a 31 36 2b 32 2c  38 30 2c 78 25 2a 31 36  |x%*16+2,80,x%*16|
00003140  2b 32 34 2c 33 34 34 0d  0f 3c 05 cb 0d 0f 46 27  |+24,344..<....F'|
00003150  c9 31 31 32 3a 45 62 25  3d 78 25 2d 38 30 3a 46  |.112:Eb%=x%-80:F|
00003160  62 25 3d 79 25 2d 38 30  3a f2 65 28 48 62 25 2c  |b%=y%-80:.e(Hb%,|
00003170  31 30 29 0d 0f 50 38 c9  31 31 33 3a 78 25 2d 3d  |10)..P8.113:x%-=|
00003180  38 30 3a 79 25 2d 3d 38  30 3a 43 62 25 3d b6 28  |80:y%-=80:Cb%=.(|
00003190  78 25 2a 78 25 2b 79 25  2a 79 25 29 3a e7 43 62  |x%*x%+y%*y%):.Cb|
000031a0  25 3e 36 30 8c 43 62 25  3d 36 30 0d 0f 5a 0e f2  |%>60.Cb%=60..Z..|
000031b0  65 28 48 62 25 2c 31 31  29 0d 0f 64 1c c9 31 31  |e(Hb%,11)..d..11|
000031c0  35 3a f2 74 28 60 25 2c  6b 62 25 2c 6c 62 25 2c  |5:.t(`%,kb%,lb%,|
000031d0  78 25 2f 32 29 0d 0f 6e  05 cb 0d 0f 78 05 e1 0d  |x%/2)..n....x...|
000031e0  0f 82 41 dd f2 6b 61 28  62 25 29 3a ea 78 25 2c  |..A..ka(b%):.x%,|
000031f0  79 25 2c 7a 25 2c 56 25  2c 68 2c 69 3a c8 99 32  |y%,z%,V%,h,i:..2|
00003200  36 32 33 35 31 2c 2c 62  25 3a 78 25 3d 62 25 21  |62351,,b%:x%=b%!|
00003210  30 3a 79 25 3d 62 25 21  34 3a c8 8e 79 61 25 ca  |0:y%=b%!4:..ya%.|
00003220  0d 0f 8c 1a c9 31 3a 56  25 3d a4 61 28 62 25 21  |.....1:V%=.a(b%!|
00003230  31 32 29 3a e7 56 25 3e  30 8c 0d 0f 96 24 e7 56  |12):.V%>0....$.V|
00003240  25 3c 3e 4b 61 25 8c f2  46 28 4b 61 25 2c 56 25  |%<>Ka%..F(Ka%,V%|
00003250  29 3a f2 6b 28 61 25 28  56 25 2c 31 29 29 0d 0f  |):.k(a%(V%,1))..|
00003260  a0 91 cc 3a 62 25 21 32  30 3d 62 25 21 31 32 3a  |...:b%!20=b%!12:|
00003270  62 25 21 32 34 3d 62 25  21 31 36 3a 62 25 21 32  |b%!24=b%!16:b%!2|
00003280  38 3d 62 25 21 30 3a 62  25 21 33 32 3d 62 25 21  |8=b%!0:b%!32=b%!|
00003290  34 3a 62 25 21 31 32 3d  30 3a 62 25 21 31 36 3d  |4:b%!12=0:b%!16=|
000032a0  31 3a 62 25 21 33 36 3d  32 30 30 30 3a 62 25 21  |1:b%!36=2000:b%!|
000032b0  34 30 3d 34 30 38 39 3a  62 25 21 30 3d 36 30 3a  |40=4089:b%!0=60:|
000032c0  24 28 62 25 2b 34 34 29  3d a4 65 28 a4 73 28 58  |$(b%+44)=.e(.s(X|
000032d0  61 25 29 29 3a c8 99 32  36 32 33 37 35 2c 31 37  |a%)):..262375,17|
000032e0  2c 62 25 2c 62 25 21 32  30 2c 62 25 21 32 34 0d  |,b%,b%!20,b%!24.|
000032f0  0f aa 05 cd 0d 0f b4 34  c9 33 3a e7 62 25 21 31  |.......4.3:.b%!1|
00003300  32 3c 3e 58 25 8c 85 31  2c 22 50 6c 65 61 73 65  |2<>X%..1,"Please|
00003310  20 6b 65 65 70 20 69 6e  73 69 64 65 20 74 68 65  | keep inside the|
00003320  20 77 69 6e 64 6f 77 22  0d 0f be 60 f2 51 28 78  | window"...`.Q(x|
00003330  25 2c 79 25 2c 78 25 2c  79 25 29 3a 7a 62 25 3d  |%,y%,x%,y%):zb%=|
00003340  78 25 3a 41 62 25 3d 79  25 3a 78 25 3d 47 63 25  |x%:Ab%=y%:x%=Gc%|
00003350  3a 79 25 3d 48 63 25 3a  f2 51 28 78 25 2c 79 25  |:y%=Hc%:.Q(x%,y%|
00003360  2c 78 25 2c 79 25 29 3a  78 62 25 3d 78 25 3a 79  |,x%,y%):xb%=x%:y|
00003370  62 25 3d 79 25 3a e7 78  62 25 3e 7a 62 25 8c c8  |b%=y%:.xb%>zb%..|
00003380  94 78 62 25 2c 7a 62 25  0d 0f c8 16 e7 79 62 25  |.xb%,zb%.....yb%|
00003390  3e 41 62 25 8c c8 94 79  62 25 2c 41 62 25 0d 0f  |>Ab%...yb%,Ab%..|
000033a0  d2 12 f2 6d 3a 75 62 25  3d b9 3a f2 76 28 31 29  |...m:ub%=.:.v(1)|
000033b0  0d 0f dc 34 c9 34 3a e7  62 25 21 31 32 3c 3e 58  |...4.4:.b%!12<>X|
000033c0  25 8c 85 31 2c 22 50 6c  65 61 73 65 20 6b 65 65  |%..1,"Please kee|
000033d0  70 20 69 6e 73 69 64 65  20 74 68 65 20 77 69 6e  |p inside the win|
000033e0  64 6f 77 22 0d 0f e6 14  e7 78 25 3c 47 63 25 8c  |dow".....x%<Gc%.|
000033f0  c8 94 78 25 2c 47 63 25  0d 0f f0 14 e7 79 25 3c  |..x%,Gc%.....y%<|
00003400  48 63 25 8c c8 94 79 25  2c 48 63 25 0d 0f fa 5c  |Hc%...y%,Hc%...\|
00003410  78 25 3d 94 28 78 25 2d  47 63 25 29 3a 79 25 3d  |x%=.(x%-Gc%):y%=|
00003420  94 28 79 25 2d 48 63 25  29 3a e7 78 25 3d 30 84  |.(y%-Hc%):.x%=0.|
00003430  79 25 3d 30 8c 85 31 2c  22 59 6f 75 20 63 61 6e  |y%=0..1,"You can|
00003440  27 74 20 65 6e 6c 61 72  67 65 20 61 6e 20 61 72  |'t enlarge an ar|
00003450  65 61 20 77 69 74 68 20  6e 6f 20 77 69 64 74 68  |ea with no width|
00003460  2f 68 65 69 67 68 74 22  0d 10 04 d2 62 25 21 30  |/height"....b%!0|
00003470  3d 58 25 3a c8 99 32 36  32 33 34 37 2c 2c 62 25  |=X%:..262347,,b%|
00003480  3a 47 63 25 2d 3d 62 25  21 34 2d 62 25 21 32 30  |:Gc%-=b%!4-b%!20|
00003490  3a 48 63 25 2d 3d 62 25  21 31 36 2d 62 25 21 32  |:Hc%-=b%!16-b%!2|
000034a0  34 3a 47 63 25 3d 31 30  30 2a 47 63 25 2f 61 25  |4:Gc%=100*Gc%/a%|
000034b0  28 6f 25 2c 34 29 3a 48  63 25 3d 31 30 30 2a 48  |(o%,4):Hc%=100*H|
000034c0  63 25 2f 61 25 28 6f 25  2c 35 29 3a 68 3d 61 25  |c%/a%(o%,5):h=a%|
000034d0  28 6f 25 2c 34 29 2a 94  28 28 62 25 21 34 2d 62  |(o%,4)*.((b%!4-b|
000034e0  25 21 31 32 29 2f 78 25  29 3a 69 3d 61 25 28 6f  |%!12)/x%):i=a%(o|
000034f0  25 2c 35 29 2a 94 28 28  62 25 21 38 2d 62 25 21  |%,5)*.((b%!8-b%!|
00003500  31 36 29 2f 79 25 29 3a  e7 68 3c 31 30 84 68 3e  |16)/y%):.h<10.h>|
00003510  31 39 39 39 84 69 3c 31  30 84 69 3e 31 39 39 39  |1999.i<10.i>1999|
00003520  8c 85 31 2c 22 49 6c 6c  65 67 61 6c 20 73 63 61  |..1,"Illegal sca|
00003530  6c 65 20 66 61 63 74 6f  72 22 0d 10 0e 8e 61 25  |le factor"....a%|
00003540  28 6f 25 2c 34 29 3d 68  3a 61 25 28 6f 25 2c 35  |(o%,4)=h:a%(o%,5|
00003550  29 3d 69 3a f2 50 28 58  25 2c 63 63 25 2a 68 2f  |)=i:.P(X%,cc%*h/|
00003560  31 30 30 2c 64 63 25 2a  69 2f 31 30 30 29 3a f2  |100,dc%*i/100):.|
00003570  49 28 6f 25 29 3a 62 25  21 30 3d 58 25 3a c8 99  |I(o%):b%!0=X%:..|
00003580  32 36 32 33 34 37 2c 2c  62 25 3a 62 25 21 32 30  |262347,,b%:b%!20|
00003590  3d 47 63 25 2a 68 2f 31  30 30 3a 62 25 21 32 34  |=Gc%*h/100:b%!24|
000035a0  3d 48 63 25 2a 69 2f 31  30 30 2d 62 25 21 38 2b  |=Hc%*i/100-b%!8+|
000035b0  62 25 21 31 36 3a f2 79  28 58 25 2c b9 29 3a f2  |b%!16:.y(X%,.):.|
000035c0  6b 28 58 25 29 3a f2 6d  0d 10 18 05 cb 0d 10 22  |k(X%):.m......."|
000035d0  0b 79 61 25 3d 30 3a e1  0d 10 2c 2a dd f2 7a 28  |.ya%=0:...,*..z(|
000035e0  77 25 2c 69 25 2c 56 63  25 29 3a ea 57 63 25 2c  |w%,i%,Vc%):.Wc%,|
000035f0  58 63 25 2c 59 63 25 2c  5a 63 25 3a c8 8e 56 63  |Xc%,Yc%,Zc%:..Vc|
00003600  25 ca 0d 10 36 88 c9 31  3a 4b 61 25 3d 69 25 3a  |%...6..1:Ka%=i%:|
00003610  62 25 21 30 3d 4e 61 25  3a c8 99 32 36 32 33 34  |b%!0=Na%:..26234|
00003620  37 2c 2c 62 25 3a 57 63  25 3d 62 25 21 34 2d 62  |7,,b%:Wc%=b%!4-b|
00003630  25 21 32 30 3a 58 63 25  3d 62 25 21 31 36 2d 62  |%!20:Xc%=b%!16-b|
00003640  25 21 32 34 3a 62 25 21  34 3d 33 3a c8 99 32 36  |%!24:b%!4=3:..26|
00003650  32 33 35 30 2c 2c 62 25  3a 62 25 21 38 2b 3d 57  |2350,,b%:b%!8+=W|
00003660  63 25 3a 62 25 21 31 32  2b 3d 58 63 25 3a 62 25  |c%:b%!12+=Xc%:b%|
00003670  21 31 36 2b 3d 57 63 25  3a 62 25 21 32 30 2b 3d  |!16+=Wc%:b%!20+=|
00003680  58 63 25 3a 62 25 21 34  3d 35 0d 10 40 56 c9 33  |Xc%:b%!4=5..@V.3|
00003690  2c 34 3a 62 25 21 38 3d  77 25 3a 62 25 21 31 32  |,4:b%!8=w%:b%!12|
000036a0  3d 69 25 3a 62 25 21 31  36 3d 77 25 3a 62 25 21  |=i%:b%!16=w%:b%!|
000036b0  32 30 3d 69 25 3a 62 25  21 34 3d 36 3a 62 25 21  |20=i%:b%!4=6:b%!|
000036c0  32 34 3d 30 3a 62 25 21  32 38 3d 30 3a 62 25 21  |24=0:b%!28=0:b%!|
000036d0  33 32 3d 7a 61 25 3a 62  25 21 33 36 3d 41 61 25  |32=za%:b%!36=Aa%|
000036e0  0d 10 4a cd c9 31 30 33  2c 31 30 34 2c 31 30 35  |..J..103,104,105|
000036f0  2c 31 31 35 3a 62 25 21  30 3d 77 25 3a c8 99 32  |,115:b%!0=w%:..2|
00003700  36 32 33 34 37 2c 2c 62  25 3a 57 63 25 3d 62 25  |62347,,b%:Wc%=b%|
00003710  21 34 2d 62 25 21 32 30  3a 58 63 25 3d 62 25 21  |!4-b%!20:Xc%=b%!|
00003720  31 36 2d 62 25 21 32 34  3a 62 25 21 34 3d 69 25  |16-b%!24:b%!4=i%|
00003730  3a c8 99 32 36 32 33 35  30 2c 2c 62 25 3a 62 25  |:..262350,,b%:b%|
00003740  21 32 34 3d 62 25 21 38  2b 57 63 25 3a 62 25 21  |!24=b%!8+Wc%:b%!|
00003750  32 38 3d 58 63 25 2b 28  62 25 21 32 30 2b 62 25  |28=Xc%+(b%!20+b%|
00003760  21 31 32 29 2f 32 3a 62  25 21 33 32 3d 62 25 21  |!12)/2:b%!32=b%!|
00003770  31 36 2b 57 63 25 3a 62  25 21 33 36 3d 62 25 21  |16+Wc%:b%!36=b%!|
00003780  32 38 3a 47 63 25 3d 62  25 21 32 34 3a 48 63 25  |28:Gc%=b%!24:Hc%|
00003790  3d 62 25 21 32 38 3a 54  63 25 3d 35 31 30 3a 55  |=b%!28:Tc%=510:U|
000037a0  63 25 3d 35 31 30 3a 62  25 21 34 3d 37 0d 10 54  |c%=510:b%!4=7..T|
000037b0  d1 c9 31 30 31 3a 62 25  21 30 3d 77 25 3a c8 99  |..101:b%!0=w%:..|
000037c0  32 36 32 33 34 37 2c 2c  62 25 3a 57 63 25 3d 62  |262347,,b%:Wc%=b|
000037d0  25 21 34 2d 62 25 21 32  30 3a 58 63 25 3d 62 25  |%!4-b%!20:Xc%=b%|
000037e0  21 31 36 2d 62 25 21 32  34 3a 62 25 21 34 3d 69  |!16-b%!24:b%!4=i|
000037f0  25 3a c8 99 32 36 32 33  35 30 2c 2c 62 25 3a 62  |%:..262350,,b%:b|
00003800  25 21 32 34 3d 62 25 21  38 2b 57 63 25 3a 62 25  |%!24=b%!8+Wc%:b%|
00003810  21 32 38 3d 58 63 25 2b  28 62 25 21 32 30 2b 62  |!28=Xc%+(b%!20+b|
00003820  25 21 31 32 29 2f 32 3a  62 25 21 33 32 3d 62 25  |%!12)/2:b%!32=b%|
00003830  21 31 36 2b 57 63 25 3a  62 25 21 33 36 3d 62 25  |!16+Wc%:b%!36=b%|
00003840  21 32 38 3a 47 63 25 3d  62 25 21 32 34 3a 48 63  |!28:Gc%=b%!24:Hc|
00003850  25 3d 62 25 21 32 38 3a  54 63 25 3d 62 25 21 33  |%=b%!28:Tc%=b%!3|
00003860  32 2d 62 25 21 32 34 3a  55 63 25 3d 62 25 21 33  |2-b%!24:Uc%=b%!3|
00003870  36 2d 62 25 21 32 38 3a  62 25 21 34 3d 37 0d 10  |6-b%!28:b%!4=7..|
00003880  5e d7 c9 31 31 30 2c 31  31 31 2c 31 31 32 2c 31  |^..110,111,112,1|
00003890  31 33 3a 62 25 21 30 3d  77 25 3a c8 99 32 36 32  |13:b%!0=w%:..262|
000038a0  33 34 37 2c 2c 62 25 3a  57 63 25 3d 62 25 21 34  |347,,b%:Wc%=b%!4|
000038b0  2d 62 25 21 32 30 3a 58  63 25 3d 62 25 21 31 36  |-b%!20:Xc%=b%!16|
000038c0  2d 62 25 21 32 34 3a 62  25 21 34 3d 69 25 3a c8  |-b%!24:b%!4=i%:.|
000038d0  99 32 36 32 33 35 30 2c  2c 62 25 3a 62 25 21 32  |.262350,,b%:b%!2|
000038e0  34 3d 62 25 21 38 2b 57  63 25 3a 62 25 21 32 38  |4=b%!8+Wc%:b%!28|
000038f0  3d 58 63 25 2b 62 25 21  31 32 3a 62 25 21 33 32  |=Xc%+b%!12:b%!32|
00003900  3d 62 25 21 31 36 2b 57  63 25 3a 62 25 21 33 36  |=b%!16+Wc%:b%!36|
00003910  3d 62 25 21 32 30 2b 58  63 25 3a 47 63 25 3d 62  |=b%!20+Xc%:Gc%=b|
00003920  25 21 32 34 3a 48 63 25  3d 62 25 21 32 38 3a 54  |%!24:Hc%=b%!28:T|
00003930  63 25 3d 62 25 21 33 32  2d 62 25 21 32 34 3a 55  |c%=b%!32-b%!24:U|
00003940  63 25 3d 62 25 21 33 36  2d 62 25 21 32 38 3a 62  |c%=b%!36-b%!28:b|
00003950  25 21 34 3d 37 0d 10 68  05 cb 0d 10 72 17 79 61  |%!4=7..h....r.ya|
00003960  25 3d 56 63 25 3a e7 56  63 25 3d 31 80 48 61 25  |%=Vc%:.Vc%=1.Ha%|
00003970  8c 0d 10 7c 83 65 25 21  30 3d 62 25 21 38 3a 65  |...|.e%!0=b%!8:e|
00003980  25 21 34 3d 62 25 21 31  32 3a 65 25 21 38 3d 62  |%!4=b%!12:e%!8=b|
00003990  25 21 38 2b 36 34 3a 65  25 21 31 32 3d 62 25 21  |%!8+64:e%!12=b%!|
000039a0  31 32 2b 36 34 3a 65 25  21 31 36 3d 2d 33 32 30  |12+64:e%!16=-320|
000039b0  30 30 3a 65 25 21 32 30  3d 2d 33 32 30 30 30 3a  |00:e%!20=-32000:|
000039c0  65 25 21 32 34 3d 33 32  30 30 30 3a 65 25 21 32  |e%!24=32000:e%!2|
000039d0  38 3d 33 32 30 30 30 3a  c8 99 32 37 31 33 36 30  |8=32000:..271360|
000039e0  2c 31 39 37 2c 31 2c 22  66 69 6c 65 5f 66 66 39  |,197,1,"file_ff9|
000039f0  22 2c 65 25 0d 10 86 12  cc 3a c8 99 32 36 32 33  |",e%.....:..2623|
00003a00  35 32 2c 2c 62 25 0d 10  90 05 cd 0d 10 9a 05 e1  |52,,b%..........|
00003a10  0d 10 a4 23 dd f2 71 61  28 69 25 29 3a ea 5f 63  |...#..qa(i%):._c|
00003a20  25 2c 60 63 25 3a 67 25  28 29 3d 30 3a c8 8e 52  |%,`c%:g%()=0:..R|
00003a30  61 25 ca 0d 10 ae e2 c9  31 3a 6a 25 21 30 3d 65  |a%......1:j%!0=e|
00003a40  63 25 3a 6a 25 21 34 3d  38 3a c8 99 32 36 32 33  |c%:j%!4=8:..2623|
00003a50  35 30 2c 2c 6a 25 3a 24  28 6a 25 21 33 32 29 3d  |50,,j%:$(j%!32)=|
00003a60  22 50 22 2b 72 24 2b 22  3b 53 70 72 6f 63 5f 64  |"P"+r$+";Sproc_d|
00003a70  72 61 77 30 22 2b bd 28  69 25 2b 36 35 29 2b 22  |raw0"+.(i%+65)+"|
00003a80  2c 70 72 6f 63 5f 64 72  61 77 31 22 2b bd 28 69  |,proc_draw1"+.(i|
00003a90  25 2b 36 35 29 3a 5f 63  25 3d 36 34 2a 28 53 61  |%+65):_c%=64*(Sa|
00003aa0  25 83 38 29 3a 60 63 25  3d 36 34 2d 36 34 2a 28  |%.8):`c%=64-64*(|
00003ab0  53 61 25 81 38 29 3a c8  99 32 36 32 33 35 33 2c  |Sa%.8):..262353,|
00003ac0  67 63 25 2c 5f 63 25 2c  60 63 25 2c 5f 63 25 2b  |gc%,_c%,`c%,_c%+|
00003ad0  36 34 2c 60 63 25 2b 36  34 3a 53 61 25 3d 69 25  |64,`c%+64:Sa%=i%|
00003ae0  3a f2 45 61 28 2d 31 2c  30 2c 30 29 3a f2 65 28  |:.Ea(-1,0,0):.e(|
00003af0  65 63 25 2c 38 29 3a 5f  63 25 3d 36 34 2a 28 69  |ec%,8):_c%=64*(i|
00003b00  25 83 38 29 3a 60 63 25  3d 36 34 2d 36 34 2a 28  |%.8):`c%=64-64*(|
00003b10  69 25 81 38 29 0d 10 b8  2f c8 99 32 36 32 33 35  |i%.8).../..26235|
00003b20  33 2c 67 63 25 2c 5f 63  25 2c 60 63 25 2c 5f 63  |3,gc%,_c%,`c%,_c|
00003b30  25 2b 36 34 2c 60 63 25  2b 36 34 3a 67 25 28 69  |%+64,`c%+64:g%(i|
00003b40  25 29 3d 31 0d 10 c2 0e  c9 32 3a f2 5f 61 28 69  |%)=1.....2:._a(i|
00003b50  25 29 0d 10 cc 0c c9 33  3a c8 8e 69 25 ca 0d 10  |%).....3:..i%...|
00003b60  d6 1d c9 30 3a 66 62 25  3d 6f 25 3a 24 59 61 25  |...0:fb%=o%:$Ya%|
00003b70  3d 22 31 30 22 3a f2 48  28 31 29 0d 10 e0 1d c9  |="10":.H(1).....|
00003b80  31 3a 66 62 25 3d 6f 25  3a 24 59 61 25 3d 22 33  |1:fb%=o%:$Ya%="3|
00003b90  33 22 3a f2 48 28 31 29  0d 10 ea 1d c9 32 3a 66  |3":.H(1).....2:f|
00003ba0  62 25 3d 6f 25 3a 24 59  61 25 3d 22 35 30 22 3a  |b%=o%:$Ya%="50":|
00003bb0  f2 48 28 31 29 0d 10 f4  1e c9 33 3a 66 62 25 3d  |.H(1).....3:fb%=|
00003bc0  6f 25 3a 24 59 61 25 3d  22 31 30 30 22 3a f2 48  |o%:$Ya%="100":.H|
00003bd0  28 31 29 0d 10 fe 1e c9  34 3a 66 62 25 3d 6f 25  |(1).....4:fb%=o%|
00003be0  3a 24 59 61 25 3d 22 32  30 30 22 3a f2 48 28 31  |:$Ya%="200":.H(1|
00003bf0  29 0d 11 08 1e c9 35 3a  66 62 25 3d 6f 25 3a 24  |).....5:fb%=o%:$|
00003c00  59 61 25 3d 22 35 30 30  22 3a f2 48 28 31 29 0d  |Ya%="500":.H(1).|
00003c10  11 12 37 c9 36 3a 5f 63  25 3d 61 25 28 6f 25 2c  |..7.6:_c%=a%(o%,|
00003c20  34 29 2a 30 2e 35 3a 60  63 25 3d 61 25 28 6f 25  |4)*0.5:`c%=a%(o%|
00003c30  2c 35 29 2a 30 2e 35 3a  e7 5f 63 25 3c 31 30 8c  |,5)*0.5:._c%<10.|
00003c40  5f 63 25 3d 31 30 0d 11  1c 12 e7 60 63 25 3c 31  |_c%=10.....`c%<1|
00003c50  30 8c 60 63 25 3d 31 30  0d 11 26 4a 61 25 28 6f  |0.`c%=10..&Ja%(o|
00003c60  25 2c 34 29 3d 5f 63 25  3a 61 25 28 6f 25 2c 35  |%,4)=_c%:a%(o%,5|
00003c70  29 3d 60 63 25 3a f2 50  28 58 25 2c 63 63 25 2a  |)=`c%:.P(X%,cc%*|
00003c80  5f 63 25 2f 31 30 30 2c  64 63 25 2a 60 63 25 2f  |_c%/100,dc%*`c%/|
00003c90  31 30 30 29 3a f2 49 28  6f 25 29 3a f2 61 28 58  |100):.I(o%):.a(X|
00003ca0  25 29 0d 11 30 37 c9 37  3a 5f 63 25 3d 61 25 28  |%)..07.7:_c%=a%(|
00003cb0  6f 25 2c 34 29 2a 32 3a  60 63 25 3d 61 25 28 6f  |o%,4)*2:`c%=a%(o|
00003cc0  25 2c 35 29 2a 32 3a e7  5f 63 25 3e 31 39 39 39  |%,5)*2:._c%>1999|
00003cd0  8c 5f 63 25 3d 31 39 39  39 0d 11 3a 16 e7 60 63  |._c%=1999..:..`c|
00003ce0  25 3e 31 39 39 39 8c 60  63 25 3d 31 39 39 39 0d  |%>1999.`c%=1999.|
00003cf0  11 44 4a 61 25 28 6f 25  2c 34 29 3d 5f 63 25 3a  |.DJa%(o%,4)=_c%:|
00003d00  61 25 28 6f 25 2c 35 29  3d 60 63 25 3a f2 50 28  |a%(o%,5)=`c%:.P(|
00003d10  58 25 2c 63 63 25 2a 5f  63 25 2f 31 30 30 2c 64  |X%,cc%*_c%/100,d|
00003d20  63 25 2a 60 63 25 2f 31  30 30 29 3a f2 49 28 6f  |c%*`c%/100):.I(o|
00003d30  25 29 3a f2 61 28 58 25  29 0d 11 4e 05 cb 0d 11  |%):.a(X%)..N....|
00003d40  58 05 cb 0d 11 62 05 e1  0d 11 6c 22 dd f2 47 61  |X....b....l"..Ga|
00003d50  28 61 64 25 29 3a ea 78  25 2c 79 25 2c 77 25 2c  |(ad%):.x%,y%,w%,|
00003d60  62 64 25 3a c8 8e 61 64  25 ca 0d 11 76 20 c9 31  |bd%:..ad%...v .1|
00003d70  3a 78 25 3d 38 3a 79 25  3d 2d 32 34 3a 62 64 25  |:x%=8:y%=-24:bd%|
00003d80  3d 35 31 32 3a 4c 63 25  3d 31 0d 11 80 21 c9 32  |=512:Lc%=1...!.2|
00003d90  3a 78 25 3d 37 32 3a 79  25 3d 32 33 32 3a 62 64  |:x%=72:y%=232:bd|
00003da0  25 3d 35 31 32 3a 4c 63  25 3d 30 0d 11 8a 20 c9  |%=512:Lc%=0... .|
00003db0  33 3a 78 25 3d 37 32 3a  79 25 3d 34 30 3a 62 64  |3:x%=72:y%=40:bd|
00003dc0  25 3d 35 31 32 3a 4c 63  25 3d 30 0d 11 94 05 cb  |%=512:Lc%=0.....|
00003dd0  0d 11 9e e5 79 25 2d 3d  36 34 2a 4c 63 25 3a 62  |....y%-=64*Lc%:b|
00003de0  25 21 30 3d 30 3a 62 25  21 34 3d 30 3a 62 25 21  |%!0=0:b%!4=0:b%!|
00003df0  38 3d 62 64 25 3a 62 25  21 31 32 3d 36 34 2b 36  |8=bd%:b%!12=64+6|
00003e00  34 2a 4c 63 25 3a c8 99  32 36 32 33 35 39 2c 67  |4*Lc%:..262359,g|
00003e10  63 25 2c 62 25 3a 6a 25  21 30 3d 65 63 25 3a c8  |c%,b%:j%!0=ec%:.|
00003e20  99 32 36 32 33 34 37 2c  2c 6a 25 3a 62 25 21 30  |.262347,,j%:b%!0|
00003e30  3d 67 63 25 3a 62 25 21  34 3d 6a 25 21 34 2d 6a  |=gc%:b%!4=j%!4-j|
00003e40  25 21 32 30 2b 78 25 3a  62 25 21 38 3d 6a 25 21  |%!20+x%:b%!8=j%!|
00003e50  31 36 2d 6a 25 21 32 34  2b 79 25 3a 62 25 21 31  |16-j%!24+y%:b%!1|
00003e60  32 3d 62 25 21 34 2b 62  64 25 3a 62 25 21 31 36  |2=b%!4+bd%:b%!16|
00003e70  3d 62 25 21 38 2b 36 34  2a 4c 63 25 2b 36 34 3a  |=b%!8+64*Lc%+64:|
00003e80  62 25 21 32 30 3d 30 3a  62 25 21 32 34 3d 30 3a  |b%!20=0:b%!24=0:|
00003e90  62 25 21 32 38 3d 2d 31  3a c8 99 32 36 32 33 34  |b%!28=-1:..26234|
00003ea0  31 2c 2c 62 25 3a 57 61  25 3d b9 3a 52 61 25 3d  |1,,b%:Wa%=.:Ra%=|
00003eb0  61 64 25 3a e1 0d 11 a8  6d dd f2 60 61 28 62 25  |ad%:....m..`a(b%|
00003ec0  29 3a ea 69 25 2c 5a 63  25 2c 59 63 25 2c 78 25  |):.i%,Zc%,Yc%,x%|
00003ed0  2c 79 25 2c 61 24 3a 78  25 3d 62 25 21 34 2d 62  |,y%,a$:x%=b%!4-b|
00003ee0  25 21 32 30 3a 79 25 3d  62 25 21 31 36 2d 62 25  |%!20:y%=b%!16-b%|
00003ef0  21 32 34 2b 36 34 2a 4c  63 25 3a e3 59 63 25 3d  |!24+64*Lc%:.Yc%=|
00003f00  30 b8 37 3a e3 5a 63 25  3d 30 b8 4c 63 25 3a 69  |0.7:.Zc%=0.Lc%:i|
00003f10  25 3d 59 63 25 2b 38 2a  5a 63 25 3a c8 8e 52 61  |%=Yc%+8*Zc%:..Ra|
00003f20  25 ca 0d 11 b2 2e c9 31  3a e7 67 25 28 69 25 29  |%......1:.g%(i%)|
00003f30  8c 61 24 3d 22 31 22 2b  bd 28 69 25 2b 36 35 29  |.a$="1"+.(i%+65)|
00003f40  8b 61 24 3d 22 30 22 2b  bd 28 69 25 2b 36 35 29  |.a$="0"+.(i%+65)|
00003f50  0d 11 bc 15 61 24 3d 22  70 72 6f 63 5f 64 72 61  |....a$="proc_dra|
00003f60  77 22 2b 61 24 0d 11 c6  1e c9 32 3a 61 24 3d 22  |w"+a$.....2:a$="|
00003f70  70 72 6f 63 5f 61 72 65  61 22 2b bd 28 69 25 2b  |proc_area"+.(i%+|
00003f80  36 35 29 0d 11 d0 1e c9  33 3a 61 24 3d 22 70 72  |65).....3:a$="pr|
00003f90  6f 63 5f 7a 6f 6f 6d 22  2b bd 28 69 25 2b 36 35  |oc_zoom"+.(i%+65|
00003fa0  29 0d 11 da 05 cb 0d 11  e4 3a c8 99 34 36 2c 32  |)........:..46,2|
00003fb0  35 36 2b 35 32 2c 63 64  25 2c 61 24 2c 78 25 2b  |56+52,cd%,a$,x%+|
00003fc0  36 34 2a 59 63 25 2c 79  25 2d 36 34 2a 5a 63 25  |64*Yc%,y%-64*Zc%|
00003fd0  2c 30 2c 68 61 25 2c 69  61 25 3a ed 3a ed 3a e1  |,0,ha%,ia%:.:.:.|
00003fe0  0d 11 ee 23 dd f2 4a 28  70 25 2c 41 25 2c 42 25  |...#..J(p%,A%,B%|
00003ff0  2c 43 25 2c 44 25 2c 45  25 2c 46 25 29 3a d6 70  |,C%,D%,E%,F%):.p|
00004000  25 3a e1 0d 11 f8 14 dd  a4 67 28 78 25 2c 79 25  |%:.......g(x%,y%|
00004010  29 3a e7 76 62 25 8c 0d  12 02 2a e7 28 78 25 3e  |):.vb%....*.(x%>|
00004020  3d 78 62 25 80 78 25 3c  7a 62 25 80 79 25 3e 3d  |=xb%.x%<zb%.y%>=|
00004030  79 62 25 80 79 25 3c 41  62 25 29 8c 3d b9 8b 3d  |yb%.y%<Ab%).=..=|
00004040  a3 0d 12 0c 2e cc 3a e7  28 78 25 3e 3d 30 80 78  |......:.(x%>=0.x|
00004050  25 3c 63 63 25 2f 54 25  80 79 25 3e 3d 30 80 79  |%<cc%/T%.y%>=0.y|
00004060  25 3c 64 63 25 2f 4e 25  29 8c 3d b9 8b 3d a3 0d  |%<dc%/N%).=..=..|
00004070  12 16 05 cd 0d 12 20 06  3d a3 0d 12 2a 4e dd f2  |...... .=...*N..|
00004080  46 61 28 64 64 25 2c 78  25 2c 79 25 29 3a ea 52  |Fa(dd%,x%,y%):.R|
00004090  25 2c 53 25 2c 69 25 2c  72 25 2c 65 64 25 2c 66  |%,S%,i%,r%,ed%,f|
000040a0  64 25 2c 67 64 25 2c 68  64 25 2c 69 64 25 3a e7  |d%,gd%,hd%,id%:.|
000040b0  64 25 3c 3e 2d 31 8c 52  25 3d 78 25 2a 54 25 3a  |d%<>-1.R%=x%*T%:|
000040c0  53 25 3d 79 25 2a 4e 25  0d 12 34 18 e7 64 25 3e  |S%=y%*N%..4..d%>|
000040d0  3d 30 8c e7 ac a4 67 28  78 25 2c 79 25 29 8c e1  |=0....g(x%,y%)..|
000040e0  0d 12 3e 0a c8 8e 64 64  25 ca 0d 12 48 0e c9 31  |..>...dd%...H..1|
000040f0  3a c8 8e 67 25 21 30 ca  0d 12 52 48 c9 30 3a 55  |:..g%!0...RH.0:U|
00004100  61 25 3d 32 3a 67 25 21  30 3d 32 3a 67 25 21 34  |a%=2:g%!0=2:g%!4|
00004110  3d 30 3a 67 25 21 38 3d  52 25 3a 67 25 21 31 32  |=0:g%!8=R%:g%!12|
00004120  3d 53 25 3a 67 25 21 31  36 3d 35 3a 67 25 21 32  |=S%:g%!16=5:g%!2|
00004130  30 3d 52 25 3a 67 25 21  32 34 3d 53 25 3a f2 75  |0=R%:g%!24=S%:.u|
00004140  0d 12 5c 52 c9 32 3a 55  61 25 3d 33 3a f2 75 3a  |..\R.2:Ua%=3:.u:|
00004150  67 25 21 30 3d 34 3a 67  25 21 32 38 3d 35 3a 67  |g%!0=4:g%!28=5:g|
00004160  25 21 33 32 3d 52 25 3a  67 25 21 33 36 3d 53 25  |%!32=R%:g%!36=S%|
00004170  3a 67 25 21 34 30 3d 35  3a 67 25 21 34 34 3d 67  |:g%!40=5:g%!44=g|
00004180  25 21 38 3a 67 25 21 34  38 3d 67 25 21 31 32 3a  |%!8:g%!48=g%!12:|
00004190  f2 75 0d 12 66 33 c9 34  3a 55 61 25 3d 35 3a f2  |.u..f3.4:Ua%=5:.|
000041a0  75 3a 67 25 21 30 3d 35  3a 67 25 21 35 32 3d 30  |u:g%!0=5:g%!52=0|
000041b0  3a 67 25 21 35 36 3d 52  25 3a 67 25 21 36 30 3d  |:g%!56=R%:g%!60=|
000041c0  53 25 3a f2 75 0d 12 70  33 c9 35 3a 55 61 25 3d  |S%:.u..p3.5:Ua%=|
000041d0  36 3a f2 75 3a 67 25 21  30 3d 36 3a 67 25 21 36  |6:.u:g%!0=6:g%!6|
000041e0  34 3d 35 3a 67 25 21 36  38 3d 52 25 3a 67 25 21  |4=5:g%!68=R%:g%!|
000041f0  37 32 3d 53 25 3a f2 75  0d 12 7a 53 c9 36 3a 55  |72=S%:.u..zS.6:U|
00004200  61 25 3d 37 3a f2 75 3a  67 25 21 30 3d 38 3a 67  |a%=7:.u:g%!0=8:g|
00004210  25 21 37 36 3d 35 3a 67  25 21 38 30 3d 52 25 3a  |%!76=5:g%!80=R%:|
00004220  67 25 21 38 34 3d 53 25  3a 67 25 21 38 38 3d 35  |g%!84=S%:g%!88=5|
00004230  3a 67 25 21 39 32 3d 67  25 21 35 36 3a 67 25 21  |:g%!92=g%!56:g%!|
00004240  39 36 3d 67 25 21 36 30  3a f2 75 0d 12 84 d2 c9  |96=g%!60:.u.....|
00004250  38 3a 78 61 25 3d a3 3a  54 61 25 3d 30 3a 55 61  |8:xa%=.:Ta%=0:Ua|
00004260  25 3d 30 3a f2 6d 3a e3  69 25 3d 30 b8 32 3a 65  |%=0:.m:.i%=0.2:e|
00004270  25 21 28 38 2a 69 25 2b  32 34 29 3d 28 67 25 21  |%!(8*i%+24)=(g%!|
00004280  28 31 32 2a 69 25 2b 38  29 29 2f 54 25 3a 65 25  |(12*i%+8))/T%:e%|
00004290  21 28 38 2a 69 25 2b 32  38 29 3d 28 67 25 21 28  |!(8*i%+28)=(g%!(|
000042a0  31 32 2a 69 25 2b 31 32  29 29 2f 4e 25 3a ed 3a  |12*i%+12))/N%:.:|
000042b0  e3 69 25 3d 33 b8 35 3a  65 25 21 28 38 2a 69 25  |.i%=3.5:e%!(8*i%|
000042c0  2d 32 34 29 3d 28 67 25  21 28 31 32 2a 69 25 2b  |-24)=(g%!(12*i%+|
000042d0  32 30 29 29 2f 54 25 3a  65 25 21 28 38 2a 69 25  |20))/T%:e%!(8*i%|
000042e0  2d 32 30 29 3d 28 67 25  21 28 31 32 2a 69 25 2b  |-20)=(g%!(12*i%+|
000042f0  32 34 29 29 2f 4e 25 3a  ed 3a f2 66 3a f2 4a 28  |24))/N%:.:.f:.J(|
00004300  72 2c 6a 64 25 2c 55 25  2c 30 2c 65 25 2c 5a 25  |r,jd%,U%,0,e%,Z%|
00004310  2c 30 29 3a f2 67 3a f2  61 28 50 25 29 0d 12 8e  |,0):.g:.a(P%)...|
00004320  05 cb 0d 12 98 0e c9 32  3a c8 8e 67 25 21 30 ca  |.......2:..g%!0.|
00004330  0d 12 a2 48 c9 30 3a 55  61 25 3d 32 3a 67 25 21  |...H.0:Ua%=2:g%!|
00004340  30 3d 32 3a 67 25 21 34  3d 30 3a 67 25 21 38 3d  |0=2:g%!4=0:g%!8=|
00004350  52 25 3a 67 25 21 31 32  3d 53 25 3a 67 25 21 31  |R%:g%!12=S%:g%!1|
00004360  36 3d 35 3a 67 25 21 32  30 3d 52 25 3a 67 25 21  |6=5:g%!20=R%:g%!|
00004370  32 34 3d 53 25 3a f2 75  0d 12 ac 33 c9 32 3a 55  |24=S%:.u...3.2:U|
00004380  61 25 3d 33 3a f2 75 3a  67 25 21 30 3d 33 3a 67  |a%=3:.u:g%!0=3:g|
00004390  25 21 32 38 3d 35 3a 67  25 21 33 32 3d 52 25 3a  |%!28=5:g%!32=R%:|
000043a0  67 25 21 33 36 3d 53 25  3a f2 75 0d 12 b6 52 c9  |g%!36=S%:.u...R.|
000043b0  33 3a 55 61 25 3d 34 3a  f2 75 3a 67 25 21 30 3d  |3:Ua%=4:.u:g%!0=|
000043c0  35 3a 67 25 21 34 30 3d  35 3a 67 25 21 34 34 3d  |5:g%!40=5:g%!44=|
000043d0  52 25 3a 67 25 21 34 38  3d 53 25 3a 67 25 21 35  |R%:g%!48=S%:g%!5|
000043e0  32 3d 35 3a 67 25 21 35  36 3d 67 25 21 38 3a 67  |2=5:g%!56=g%!8:g|
000043f0  25 21 36 30 3d 67 25 21  31 32 3a f2 75 0d 12 c0  |%!60=g%!12:.u...|
00004400  33 c9 35 3a 55 61 25 3d  36 3a f2 75 3a 67 25 21  |3.5:Ua%=6:.u:g%!|
00004410  30 3d 36 3a 67 25 21 36  34 3d 30 3a 67 25 21 36  |0=6:g%!64=0:g%!6|
00004420  38 3d 52 25 3a 67 25 21  37 32 3d 53 25 3a f2 75  |8=R%:g%!72=S%:.u|
00004430  0d 12 ca 33 c9 36 3a 55  61 25 3d 37 3a f2 75 3a  |...3.6:Ua%=7:.u:|
00004440  67 25 21 30 3d 37 3a 67  25 21 37 36 3d 35 3a 67  |g%!0=7:g%!76=5:g|
00004450  25 21 38 30 3d 52 25 3a  67 25 21 38 34 3d 53 25  |%!80=R%:g%!84=S%|
00004460  3a f2 75 0d 12 d4 33 c9  37 3a 55 61 25 3d 38 3a  |:.u...3.7:Ua%=8:|
00004470  f2 75 3a 67 25 21 30 3d  38 3a 67 25 21 38 38 3d  |.u:g%!0=8:g%!88=|
00004480  35 3a 67 25 21 39 32 3d  52 25 3a 67 25 21 39 36  |5:g%!92=R%:g%!96|
00004490  3d 53 25 3a f2 75 0d 12  de 5a c9 38 3a 55 61 25  |=S%:.u...Z.8:Ua%|
000044a0  3d 39 3a f2 75 3a 67 25  21 30 3d 31 30 3a 67 25  |=9:.u:g%!0=10:g%|
000044b0  21 31 30 30 3d 35 3a 67  25 21 31 30 34 3d 52 25  |!100=5:g%!104=R%|
000044c0  3a 67 25 21 31 30 38 3d  53 25 3a 67 25 21 31 31  |:g%!108=S%:g%!11|
000044d0  32 3d 35 3a 67 25 21 31  31 36 3d 67 25 21 36 38  |2=5:g%!116=g%!68|
000044e0  3a 67 25 21 31 32 30 3d  67 25 21 37 32 3a f2 75  |:g%!120=g%!72:.u|
000044f0  0d 12 e8 b7 c9 31 30 3a  78 61 25 3d a3 3a 54 61  |.....10:xa%=.:Ta|
00004500  25 3d 30 3a 55 61 25 3d  30 3a f2 6d 3a e3 69 25  |%=0:Ua%=0:.m:.i%|
00004510  3d 30 b8 39 3a 67 25 21  28 31 32 2a 69 25 2b 38  |=0.9:g%!(12*i%+8|
00004520  29 3d 28 67 25 21 28 31  32 2a 69 25 2b 38 29 29  |)=(g%!(12*i%+8))|
00004530  2f 54 25 3a ed 3a e3 69  25 3d 30 b8 39 3a 67 25  |/T%:.:.i%=0.9:g%|
00004540  21 28 31 32 2a 69 25 2b  31 32 29 3d 28 67 25 21  |!(12*i%+12)=(g%!|
00004550  28 31 32 2a 69 25 2b 31  32 29 29 2f 4e 25 3a ed  |(12*i%+12))/N%:.|
00004560  3a e3 69 25 3d 30 b8 32  3a 65 25 21 28 38 2a 69  |:.i%=0.2:e%!(8*i|
00004570  25 2b 32 34 29 3d 67 25  21 28 31 32 2a 69 25 2b  |%+24)=g%!(12*i%+|
00004580  38 29 3a 65 25 21 28 38  2a 69 25 2b 32 38 29 3d  |8):e%!(8*i%+28)=|
00004590  67 25 21 28 31 32 2a 69  25 2b 31 32 29 3a ed 3a  |g%!(12*i%+12):.:|
000045a0  e3 69 25 3d 33 b8 35 0d  12 f2 e0 65 25 21 28 38  |.i%=3.5....e%!(8|
000045b0  2a 69 25 2d 32 34 29 3d  67 25 21 28 31 32 2a 69  |*i%-24)=g%!(12*i|
000045c0  25 2b 33 32 29 3a 65 25  21 28 38 2a 69 25 2d 32  |%+32):e%!(8*i%-2|
000045d0  30 29 3d 67 25 21 28 31  32 2a 69 25 2b 33 36 29  |0)=g%!(12*i%+36)|
000045e0  3a ed 3a f2 4a 28 72 2c  6a 64 25 2c 55 25 2c 30  |:.:.J(r,jd%,U%,0|
000045f0  2c 65 25 2c 5a 25 2c 30  29 3a 65 25 21 30 3d 67  |,e%,Z%,0):e%!0=g|
00004600  25 21 36 38 3a 65 25 21  34 3d 67 25 21 37 32 3a  |%!68:e%!4=g%!72:|
00004610  65 25 21 38 3d 67 25 21  39 32 3a 65 25 21 31 32  |e%!8=g%!92:e%!12|
00004620  3d 67 25 21 39 36 3a 65  25 21 31 36 3d 67 25 21  |=g%!96:e%!16=g%!|
00004630  31 30 34 3a 65 25 21 32  30 3d 67 25 21 31 30 38  |104:e%!20=g%!108|
00004640  3a 65 25 21 32 34 3d 67  25 21 38 3a 65 25 21 32  |:e%!24=g%!8:e%!2|
00004650  38 3d 67 25 21 31 32 3a  65 25 21 33 32 3d 67 25  |8=g%!12:e%!32=g%|
00004660  21 33 32 3a 65 25 21 33  36 3d 67 25 21 33 36 3a  |!32:e%!36=g%!36:|
00004670  65 25 21 34 30 3d 67 25  21 34 34 3a 65 25 21 34  |e%!40=g%!44:e%!4|
00004680  34 3d 67 25 21 34 38 0d  12 fc 27 f2 66 3a f2 4a  |4=g%!48...'.f:.J|
00004690  28 72 2c 6a 64 25 2c 55  25 2c 30 2c 65 25 2c 5a  |(r,jd%,U%,0,e%,Z|
000046a0  25 2c 30 29 3a f2 67 3a  f2 61 28 50 25 29 0d 13  |%,0):.g:.a(P%)..|
000046b0  06 05 cb 0d 13 10 0e c9  33 3a c8 8e 67 25 21 30  |........3:..g%!0|
000046c0  ca 0d 13 1a 48 c9 30 3a  55 61 25 3d 32 3a 67 25  |....H.0:Ua%=2:g%|
000046d0  21 30 3d 32 3a 67 25 21  34 3d 30 3a 67 25 21 38  |!0=2:g%!4=0:g%!8|
000046e0  3d 52 25 3a 67 25 21 31  32 3d 53 25 3a 67 25 21  |=R%:g%!12=S%:g%!|
000046f0  31 36 3d 35 3a 67 25 21  32 30 3d 52 25 3a 67 25  |16=5:g%!20=R%:g%|
00004700  21 32 34 3d 53 25 3a f2  75 0d 13 24 52 c9 32 3a  |!24=S%:.u..$R.2:|
00004710  55 61 25 3d 33 3a f2 75  3a 67 25 21 30 3d 34 3a  |Ua%=3:.u:g%!0=4:|
00004720  67 25 21 32 38 3d 35 3a  67 25 21 33 32 3d 52 25  |g%!28=5:g%!32=R%|
00004730  3a 67 25 21 33 36 3d 53  25 3a 67 25 21 34 30 3d  |:g%!36=S%:g%!40=|
00004740  35 3a 67 25 21 34 34 3d  67 25 21 38 3a 67 25 21  |5:g%!44=g%!8:g%!|
00004750  34 38 3d 67 25 21 31 32  3a f2 75 0d 13 2e 33 c9  |48=g%!12:.u...3.|
00004760  34 3a 55 61 25 3d 35 3a  f2 75 3a 67 25 21 30 3d  |4:Ua%=5:.u:g%!0=|
00004770  35 3a 67 25 21 35 32 3d  30 3a 67 25 21 35 36 3d  |5:g%!52=0:g%!56=|
00004780  52 25 3a 67 25 21 36 30  3d 53 25 3a f2 75 0d 13  |R%:g%!60=S%:.u..|
00004790  38 33 c9 35 3a 55 61 25  3d 36 3a f2 75 3a 67 25  |83.5:Ua%=6:.u:g%|
000047a0  21 30 3d 36 3a 67 25 21  36 34 3d 34 3a 67 25 21  |!0=6:g%!64=4:g%!|
000047b0  36 38 3d 52 25 3a 67 25  21 37 32 3d 53 25 3a f2  |68=R%:g%!72=S%:.|
000047c0  75 0d 13 42 cb c9 36 3a  78 61 25 3d a3 3a 54 61  |u..B..6:xa%=.:Ta|
000047d0  25 3d 30 3a 55 61 25 3d  30 3a f2 6d 3a e3 69 25  |%=0:Ua%=0:.m:.i%|
000047e0  3d 30 b8 32 3a 65 25 21  28 38 2a 69 25 2b 32 34  |=0.2:e%!(8*i%+24|
000047f0  29 3d 67 25 21 28 31 32  2a 69 25 2b 38 29 2f 54  |)=g%!(12*i%+8)/T|
00004800  25 3a 65 25 21 28 38 2a  69 25 2b 32 38 29 3d 67  |%:e%!(8*i%+28)=g|
00004810  25 21 28 31 32 2a 69 25  2b 31 32 29 2f 4e 25 3a  |%!(12*i%+12)/N%:|
00004820  ed 3a 72 25 3d b6 28 28  67 25 21 35 36 2d 67 25  |.:r%=.((g%!56-g%|
00004830  21 36 38 29 5e 32 2b 28  67 25 21 36 30 2d 67 25  |!68)^2+(g%!60-g%|
00004840  21 37 32 29 5e 32 29 3a  f2 66 3a e3 69 25 3d 30  |!72)^2):.f:.i%=0|
00004850  b8 38 3a 65 25 21 30 3d  28 67 25 21 35 36 2b 72  |.8:e%!0=(g%!56+r|
00004860  25 2a 9b b2 28 34 30 2a  69 25 29 29 2f 54 25 3a  |%*..(40*i%))/T%:|
00004870  65 25 21 34 3d 28 67 25  21 36 30 2b 72 25 2a b5  |e%!4=(g%!60+r%*.|
00004880  b2 28 34 30 2a 69 25 29  29 2f 4e 25 0d 13 4c 93  |.(40*i%))/N%..L.|
00004890  65 25 21 38 3d 28 67 25  21 35 36 2b 72 25 2a 9b  |e%!8=(g%!56+r%*.|
000048a0  b2 28 34 30 2a 69 25 2b  34 30 29 29 2f 54 25 3a  |.(40*i%+40))/T%:|
000048b0  65 25 21 31 32 3d 28 67  25 21 36 30 2b 72 25 2a  |e%!12=(g%!60+r%*|
000048c0  b5 b2 28 34 30 2a 69 25  2b 34 30 29 29 2f 4e 25  |..(40*i%+40))/N%|
000048d0  3a 65 25 21 31 36 3d 28  67 25 21 35 36 29 2f 54  |:e%!16=(g%!56)/T|
000048e0  25 3a 65 25 21 32 30 3d  28 67 25 21 36 30 29 2f  |%:e%!20=(g%!60)/|
000048f0  4e 25 3a f2 4a 28 72 2c  6a 64 25 2c 55 25 2c 30  |N%:.J(r,jd%,U%,0|
00004900  2c 65 25 2c 5a 25 2c 30  29 3a f2 44 28 69 25 2a  |,e%,Z%,0):.D(i%*|
00004910  31 32 29 3a ed 3a f2 67  3a f2 61 28 50 25 29 0d  |12):.:.g:.a(P%).|
00004920  13 56 05 cb 0d 13 60 77  c9 32 30 3a f2 6f 28 2d  |.V....`w.20:.o(-|
00004930  31 2c 22 22 29 3a 62 25  21 30 3d 58 25 3a c8 99  |1,""):b%!0=X%:..|
00004940  32 36 32 33 34 37 2c 2c  62 25 3a c8 97 78 25 2c  |262347,,b%:..x%,|
00004950  79 25 2c 69 25 3a 78 25  2d 3d 62 25 21 34 2d 62  |y%,i%:x%-=b%!4-b|
00004960  25 21 32 30 3a 79 25 2d  3d 62 25 21 31 36 2d 62  |%!20:y%-=b%!16-b|
00004970  25 21 32 34 3a c8 93 52  25 2d 6a 62 25 2f 32 2c  |%!24:..R%-jb%/2,|
00004980  53 25 2d 6a 62 25 2f 32  2c 6a 62 25 b8 78 25 2c  |S%-jb%/2,jb%.x%,|
00004990  79 25 3a f2 52 3a f2 6e  3a f2 45 0d 13 6a 18 c9  |y%:.R:.n:.E..j..|
000049a0  31 30 2c 31 31 2c 31 32  2c 31 33 3a c8 8e 67 25  |10,11,12,13:..g%|
000049b0  21 30 ca 0d 13 74 48 c9  30 3a 55 61 25 3d 32 3a  |!0...tH.0:Ua%=2:|
000049c0  67 25 21 30 3d 32 3a 67  25 21 34 3d 30 3a 67 25  |g%!0=2:g%!4=0:g%|
000049d0  21 38 3d 52 25 3a 67 25  21 31 32 3d 53 25 3a 67  |!8=R%:g%!12=S%:g|
000049e0  25 21 31 36 3d 34 3a 67  25 21 32 30 3d 52 25 3a  |%!16=4:g%!20=R%:|
000049f0  67 25 21 32 34 3d 53 25  3a f2 75 0d 13 7e 57 c9  |g%!24=S%:.u..~W.|
00004a00  32 3a 78 61 25 3d a3 3a  54 61 25 3d 30 3a 55 61  |2:xa%=.:Ta%=0:Ua|
00004a10  25 3d 30 3a f2 6d 3a 65  64 25 3d 67 25 21 38 3a  |%=0:.m:ed%=g%!8:|
00004a20  66 64 25 3d 67 25 21 31  32 3a 72 25 3d b6 28 28  |fd%=g%!12:r%=.((|
00004a30  65 64 25 2d 67 25 21 32  30 29 5e 32 2b 28 66 64  |ed%-g%!20)^2+(fd|
00004a40  25 2d 67 25 21 32 34 29  5e 32 29 3a e7 57 25 3d  |%-g%!24)^2):.W%=|
00004a50  30 8c 0d 13 88 1a 67 64  25 3d 60 25 3a 68 64 25  |0.....gd%=`%:hd%|
00004a60  3d 6b 62 25 3a 69 64 25  3d 6c 62 25 0d 13 92 1d  |=kb%:id%=lb%....|
00004a70  cc 3a 67 64 25 3d 6d 62  25 3a 68 64 25 3d 6d 62  |.:gd%=mb%:hd%=mb|
00004a80  25 3a 69 64 25 3d 6d 62  25 0d 13 9c 05 cd 0d 13  |%:id%=mb%.......|
00004a90  a6 23 f2 61 62 28 65 64  25 2c 66 64 25 2c 72 25  |.#.ab(ed%,fd%,r%|
00004aa0  2c 67 64 25 2c 68 64 25  2c 69 64 25 2c 64 64 25  |,gd%,hd%,id%,dd%|
00004ab0  29 0d 13 b0 05 cb 0d 13  ba 12 c9 31 34 2c 31 35  |)..........14,15|
00004ac0  3a c8 8e 67 25 21 30 ca  0d 13 c4 48 c9 30 3a 55  |:..g%!0....H.0:U|
00004ad0  61 25 3d 32 3a 67 25 21  30 3d 32 3a 67 25 21 34  |a%=2:g%!0=2:g%!4|
00004ae0  3d 30 3a 67 25 21 38 3d  52 25 3a 67 25 21 31 32  |=0:g%!8=R%:g%!12|
00004af0  3d 53 25 3a 67 25 21 31  36 3d 35 3a 67 25 21 32  |=S%:g%!16=5:g%!2|
00004b00  30 3d 52 25 3a 67 25 21  32 34 3d 53 25 3a f2 75  |0=R%:g%!24=S%:.u|
00004b10  0d 13 ce 22 c9 32 3a 78  61 25 3d a3 3a 54 61 25  |...".2:xa%=.:Ta%|
00004b20  3d 30 3a 55 61 25 3d 30  3a f2 6d 3a e7 57 25 3d  |=0:Ua%=0:.m:.W%=|
00004b30  30 8c 0d 13 d8 1a 67 64  25 3d 60 25 3a 68 64 25  |0.....gd%=`%:hd%|
00004b40  3d 6b 62 25 3a 69 64 25  3d 6c 62 25 0d 13 e2 1d  |=kb%:id%=lb%....|
00004b50  cc 3a 67 64 25 3d 6d 62  25 3a 68 64 25 3d 6d 62  |.:gd%=mb%:hd%=mb|
00004b60  25 3a 69 64 25 3d 6d 62  25 0d 13 ec 05 cd 0d 13  |%:id%=mb%.......|
00004b70  f6 2f f2 62 62 28 67 25  21 38 2c 67 25 21 31 32  |./.bb(g%!8,g%!12|
00004b80  2c 67 25 21 32 30 2c 67  25 21 32 34 2c 67 64 25  |,g%!20,g%!24,gd%|
00004b90  2c 68 64 25 2c 69 64 25  2c 64 64 25 29 0d 14 00  |,hd%,id%,dd%)...|
00004ba0  05 cb 0d 14 0a 05 cb 0d  14 14 05 e1 0d 14 1e 36  |...............6|
00004bb0  dd f2 45 61 28 64 25 2c  78 25 2c 79 25 29 3a ea  |..Ea(d%,x%,y%):.|
00004bc0  52 25 2c 53 25 2c 63 25  3a e7 64 25 3c 3e 2d 31  |R%,S%,c%:.d%<>-1|
00004bd0  8c 52 25 3d 78 25 2a 54  25 3a 53 25 3d 79 25 2a  |.R%=x%*T%:S%=y%*|
00004be0  4e 25 0d 14 28 18 e7 64  25 3e 3d 30 8c e7 ac a4  |N%..(..d%>=0....|
00004bf0  67 28 78 25 2c 79 25 29  8c e1 0d 14 32 09 c8 8e  |g(x%,y%)....2...|
00004c00  64 25 ca 0d 14 3c 11 c9  2d 31 3a f2 6d 3a c8 8e  |d%...<..-1:.m:..|
00004c10  53 61 25 ca 0d 14 46 15  c9 30 2c 36 2c 37 2c 38  |Sa%...F..0,6,7,8|
00004c20  2c 31 35 3a 78 61 25 3d  a3 0d 14 50 0b 7f 3a 78  |,15:xa%=...P..:x|
00004c30  61 25 3d b9 0d 14 5a 05  cb 0d 14 64 1d c9 30 3a  |a%=...Z....d..0:|
00004c40  f2 6f 28 2d 31 2c 22 22  29 3a f2 42 3a f2 4c 3a  |.o(-1,""):.B:.L:|
00004c50  c8 8e 47 62 25 ca 0d 14  6e 0e c9 30 3a c8 92 52  |..Gb%...n..0:..R|
00004c60  25 2c 53 25 0d 14 78 24  c9 31 3a c8 93 c8 90 52  |%,S%..x$.1:....R|
00004c70  25 2d 45 62 25 2c 53 25  2d 46 62 25 2c 45 62 25  |%-Eb%,S%-Fb%,Eb%|
00004c80  2a 32 2c 46 62 25 2a 32  0d 14 82 14 c9 32 3a c8  |*2,Fb%*2.....2:.|
00004c90  8f c8 90 52 25 2c 53 25  2c 45 62 25 0d 14 8c 18  |...R%,S%,Eb%....|
00004ca0  c9 33 3a c8 9d c8 90 52  25 2c 53 25 2c 45 62 25  |.3:....R%,S%,Eb%|
00004cb0  2c 46 62 25 0d 14 96 05  cb 0d 14 a0 0c f2 52 3a  |,Fb%..........R:|
00004cc0  f2 6e 3a f2 45 0d 14 aa  17 c9 31 2c 32 2c 33 2c  |.n:.E.....1,2,3,|
00004cd0  34 2c 35 3a e7 67 25 21  30 3d 30 8c 0d 14 b4 46  |4,5:.g%!0=0....F|
00004ce0  55 61 25 3d 32 3a 67 25  21 30 3d 32 3a 67 25 21  |Ua%=2:g%!0=2:g%!|
00004cf0  34 3d 30 3a 67 25 21 38  3d 52 25 3a 67 25 21 31  |4=0:g%!8=R%:g%!1|
00004d00  32 3d 53 25 3a 67 25 21  31 36 3d 64 25 3a 67 25  |2=S%:g%!16=d%:g%|
00004d10  21 32 30 3d 52 25 3a 67  25 21 32 34 3d 53 25 3a  |!20=R%:g%!24=S%:|
00004d20  f2 75 0d 14 be 2d cc 3a  f2 6f 28 2d 31 2c 22 22  |.u...-.:.o(-1,""|
00004d30  29 3a f2 42 3a f2 4c 3a  f2 63 62 28 30 2c 30 2c  |):.B:.L:.cb(0,0,|
00004d40  30 29 3a f2 6e 3a f2 45  3a e7 64 25 3d 35 8c 0d  |0):.n:.E:.d%=5..|
00004d50  14 c8 46 55 61 25 3d 32  3a 67 25 21 30 3d 32 3a  |..FUa%=2:g%!0=2:|
00004d60  67 25 21 34 3d 30 3a 67  25 21 38 3d 52 25 3a 67  |g%!4=0:g%!8=R%:g|
00004d70  25 21 31 32 3d 53 25 3a  67 25 21 31 36 3d 64 25  |%!12=S%:g%!16=d%|
00004d80  3a 67 25 21 32 30 3d 52  25 3a 67 25 21 32 34 3d  |:g%!20=R%:g%!24=|
00004d90  53 25 3a f2 75 0d 14 d2  0c cc 3a 67 25 21 30 3d  |S%:.u.....:g%!0=|
00004da0  30 0d 14 dc 05 cd 0d 14  e6 05 cd 0d 14 f0 3f c9  |0.............?.|
00004db0  36 3a f2 6f 28 2d 31 2c  22 22 29 3a f2 42 3a f2  |6:.o(-1,""):.B:.|
00004dc0  4c 3a e6 31 32 38 2b b0  52 25 2c 53 25 29 c8 9c  |L:.128+.R%,S%)..|
00004dd0  c8 9c 28 52 25 2c 53 25  29 3a c8 90 52 25 2c 53  |..(R%,S%):..R%,S|
00004de0  25 3a f2 52 3a f2 6e 3a  f2 45 0d 14 fa 42 c9 37  |%:.R:.n:.E...B.7|
00004df0  3a c8 99 38 39 32 36 30  39 2c 2c 61 25 28 6f 25  |:..892609,,a%(o%|
00004e00  2c 33 29 2c 78 25 2c 64  63 25 2f 4e 25 2d 79 25  |,3),x%,dc%/N%-y%|
00004e10  2b 31 b8 63 25 3a f2 64  62 28 60 25 2c 6b 62 25  |+1.c%:.db(`%,kb%|
00004e20  2c 6c 62 25 2c 6d 62 25  2c 63 25 29 0d 15 04 59  |,lb%,mb%,c%)...Y|
00004e30  c9 38 3a 65 25 21 31 32  3d 43 62 25 2f 54 25 3a  |.8:e%!12=Cb%/T%:|
00004e40  65 25 21 31 36 3d 43 62  25 2f 4e 25 3a 65 25 21  |e%!16=Cb%/N%:e%!|
00004e50  32 30 3d 65 25 21 31 32  2a 65 25 21 31 36 2a 44  |20=e%!12*e%!16*D|
00004e60  62 25 2f 31 30 30 3a 65  25 21 32 34 3d 56 61 25  |b%/100:e%!24=Va%|
00004e70  3a e7 76 62 25 8c 78 25  2d 3d 78 62 25 3a 79 25  |:.vb%.x%-=xb%:y%|
00004e80  2d 3d 79 62 25 0d 15 0e  0a e7 57 25 3d 30 8c 0d  |-=yb%.....W%=0..|
00004e90  15 18 2b f2 43 3a c8 99  38 39 32 36 31 35 2c 2c  |..+.C:..892615,,|
00004ea0  55 25 2c 33 2c 21 65 25  2c 78 25 2c 6b 64 25 2d  |U%,3,!e%,x%,kd%-|
00004eb0  79 25 2b 31 2c 65 25 2b  31 32 0d 15 22 2a cc 3a  |y%+1,e%+12.."*.:|
00004ec0  c8 99 38 39 32 36 31 35  2c 2c 55 25 2c 33 2c 6d  |..892615,,U%,3,m|
00004ed0  62 25 2c 78 25 2c 6b 64  25 2d 79 25 2b 31 2c 65  |b%,x%,kd%-y%+1,e|
00004ee0  25 2b 31 32 0d 15 2c 05  cd 0d 15 36 32 6c 64 25  |%+12..,....62ld%|
00004ef0  3d 52 25 2d 43 62 25 3a  6d 64 25 3d 53 25 2d 43  |=R%-Cb%:md%=S%-C|
00004f00  62 25 3a 6e 64 25 3d 52  25 2b 43 62 25 3a 6f 64  |b%:nd%=R%+Cb%:od|
00004f10  25 3d 53 25 2b 43 62 25  3a f2 45 0d 15 40 1d c9  |%=S%+Cb%:.E..@..|
00004f20  39 2c 31 30 2c 31 31 2c  31 32 2c 31 33 2c 31 34  |9,10,11,12,13,14|
00004f30  3a c8 8e 67 25 21 30 ca  0d 15 4a 48 c9 30 3a 55  |:..g%!0...JH.0:U|
00004f40  61 25 3d 32 3a 67 25 21  30 3d 32 3a 67 25 21 34  |a%=2:g%!0=2:g%!4|
00004f50  3d 30 3a 67 25 21 38 3d  52 25 3a 67 25 21 31 32  |=0:g%!8=R%:g%!12|
00004f60  3d 53 25 3a 67 25 21 31  36 3d 35 3a 67 25 21 32  |=S%:g%!16=5:g%!2|
00004f70  30 3d 52 25 3a 67 25 21  32 34 3d 53 25 3a f2 75  |0=R%:g%!24=S%:.u|
00004f80  0d 15 54 46 c9 32 3a 55  61 25 3d 33 3a 67 25 21  |..TF.2:Ua%=3:g%!|
00004f90  30 3d 33 3a 67 25 21 32  38 3d 64 25 3a 67 25 21  |0=3:g%!28=d%:g%!|
00004fa0  33 32 3d 52 25 3a 67 25  21 33 36 3d 53 25 3a f2  |32=R%:g%!36=S%:.|
00004fb0  75 3a e7 64 25 3d 31 33  84 64 25 3d 31 34 8c 67  |u:.d%=13.d%=14.g|
00004fc0  25 21 31 36 3d 30 0d 15  5e 2e c9 33 3a f2 6f 28  |%!16=0..^..3:.o(|
00004fd0  2d 31 2c 22 22 29 3a f2  42 3a f2 4c 3a f2 63 62  |-1,""):.B:.L:.cb|
00004fe0  28 30 2c 30 2c 30 29 3a  f2 6e 3a f2 45 3a 67 25  |(0,0,0):.n:.E:g%|
00004ff0  21 30 3d 30 0d 15 68 05  cb 0d 15 72 10 c9 31 35  |!0=0..h....r..15|
00005000  3a e7 67 25 21 30 3d 31  8c 0d 15 7c 56 f2 6f 28  |:.g%!0=1...|V.o(|
00005010  2d 31 2c 22 22 29 3a f2  42 3a f2 4c 3a 86 67 25  |-1,""):.B:.L:.g%|
00005020  21 38 2c 67 25 21 31 32  2c 52 25 2c 53 25 3a f2  |!8,g%!12,R%,S%:.|
00005030  52 3a f2 6e 3a 67 25 21  32 30 3d 67 25 21 38 3a  |R:.n:g%!20=g%!8:|
00005040  67 25 21 32 34 3d 67 25  21 31 32 3a 67 25 21 38  |g%!24=g%!12:g%!8|
00005050  3d 52 25 3a 67 25 21 31  32 3d 53 25 3a f2 45 0d  |=R%:g%!12=S%:.E.|
00005060  15 86 23 cc 3a 55 61 25  3d 31 3a 67 25 21 30 3d  |..#.:Ua%=1:g%!0=|
00005070  31 3a 67 25 21 38 3d 52  25 3a 67 25 21 31 32 3d  |1:g%!8=R%:g%!12=|
00005080  53 25 0d 15 90 05 cd 0d  15 9a 05 cb 0d 15 a4 0b  |S%..............|
00005090  65 62 25 3d b9 3a e1 0d  15 ae 2a dd f2 4c 3a e7  |eb%=.:....*..L:.|
000050a0  57 25 3d 30 8c f2 43 3a  f2 65 62 28 21 65 25 2c  |W%=0..C:.eb(!e%,|
000050b0  56 61 25 29 8b f2 65 62  28 6d 62 25 2c 56 61 25  |Va%)..eb(mb%,Va%|
000050c0  29 0d 15 b8 05 e1 0d 15  c2 2a dd f2 43 3a 65 25  |)........*..C:e%|
000050d0  3f 30 3d 30 3a 65 25 3f  31 3d 60 25 3a 65 25 3f  |?0=0:e%?1=`%:e%?|
000050e0  32 3d 6b 62 25 3a 65 25  3f 33 3d 6c 62 25 3a e1  |2=kb%:e%?3=lb%:.|
000050f0  0d 15 cc 18 dd f2 66 62  28 47 25 29 3a f2 65 62  |......fb(G%):.eb|
00005100  28 47 25 2c 30 29 3a e1  0d 15 d6 28 dd f2 4f 61  |(G%,0):....(..Oa|
00005110  28 70 64 25 29 3a ea 73  25 2c 77 25 3a e7 66 62  |(pd%):.s%,w%:.fb|
00005120  25 3d 6f 25 8c 77 25 3d  58 25 3a 73 25 3d 2d 31  |%=o%.w%=X%:s%=-1|
00005130  0d 15 e0 16 e7 66 62 25  3d 5f 25 8c 77 25 3d 50  |.....fb%=_%.w%=P|
00005140  25 3a 73 25 3d 30 0d 15  ea 2c f2 6f 28 73 25 2c  |%:s%=0...,.o(s%,|
00005150  22 22 29 3a f2 4c 3a c8  93 c8 90 30 2c 30 2c 63  |""):.L:....0,0,c|
00005160  63 25 2c 64 63 25 3a f2  6e 3a f2 6b 28 77 25 29  |c%,dc%:.n:.k(w%)|
00005170  3a e1 0d 15 f4 25 dd f2  65 62 28 47 25 2c 74 61  |:....%..eb(G%,ta|
00005180  25 29 3a e7 57 25 3d 30  8c c8 99 38 39 32 36 31  |%):.W%=0...89261|
00005190  31 2c 47 25 b8 47 25 0d  15 fe 29 c8 99 32 36 34  |1,G%.G%...)..264|
000051a0  30 31 33 2c 47 25 b8 47  25 3a e6 74 61 25 2c 47  |013,G%.G%:.ta%,G|
000051b0  25 81 34 c8 9c 28 47 25  83 34 29 2a 36 34 3a e1  |%.4..(G%.4)*64:.|
000051c0  0d 16 08 22 dd f2 67 61  3a ea 78 25 2c 79 25 2c  |..."..ga:.x%,y%,|
000051d0  59 63 25 2c 5a 63 25 3a  e7 67 25 21 30 3c 3d 30  |Yc%,Zc%:.g%!0<=0|
000051e0  8c e1 0d 16 12 1d c8 99  32 36 32 33 35 31 2c 2c  |........262351,,|
000051f0  62 25 3a e7 62 25 21 31  32 3c 3e 58 25 8c e1 0d  |b%:.b%!12<>X%...|
00005200  16 1c b5 78 25 3d 62 25  21 30 3a 79 25 3d 62 25  |...x%=b%!0:y%=b%|
00005210  21 34 3a 62 25 21 30 3d  58 25 3a c8 99 32 36 32  |!4:b%!0=X%:..262|
00005220  33 34 37 2c 2c 62 25 3a  78 25 2d 3d 62 25 21 34  |347,,b%:x%-=b%!4|
00005230  2d 62 25 21 32 30 3a 79  25 2d 3d 62 25 21 31 36  |-b%!20:y%-=b%!16|
00005240  2d 62 25 21 32 34 3a 78  25 3d 78 25 2a 31 30 30  |-b%!24:x%=x%*100|
00005250  2f 61 25 28 6f 25 2c 34  29 3a 79 25 3d 79 25 2a  |/a%(o%,4):y%=y%*|
00005260  31 30 30 2f 61 25 28 6f  25 2c 35 29 3a 59 63 25  |100/a%(o%,5):Yc%|
00005270  3d 31 32 2a 55 61 25 2d  34 3a 5a 63 25 3d 31 32  |=12*Ua%-4:Zc%=12|
00005280  2a 55 61 25 3a e7 78 25  3c 3e 67 25 21 59 63 25  |*Ua%:.x%<>g%!Yc%|
00005290  84 79 25 3c 3e 67 25 21  5a 63 25 f2 75 3a 67 25  |.y%<>g%!Zc%.u:g%|
000052a0  21 59 63 25 3d 78 25 3a  67 25 21 5a 63 25 3d 79  |!Yc%=x%:g%!Zc%=y|
000052b0  25 3a f2 75 0d 16 26 05  e1 0d 16 30 29 dd f2 72  |%:.u..&....0)..r|
000052c0  28 74 61 25 29 3a ea 70  24 2c 69 25 3a 70 24 3d  |(ta%):.p$,i%:p$=|
000052d0  22 22 3a 69 25 3d 2d 31  3a f2 6d 3a c8 8e 74 61  |"":i%=-1:.m:..ta|
000052e0  25 ca 0d 16 3a 0c c9 31  3a 70 24 3d 75 24 0d 16  |%...:..1:p$=u$..|
000052f0  44 11 c9 32 3a f2 76 28  30 29 3a 69 25 3d 30 0d  |D..2:.v(0):i%=0.|
00005300  16 4e 19 c9 33 3a 69 25  3d 30 3a f2 7a 28 47 63  |.N..3:i%=0:.z(Gc|
00005310  25 2c 48 63 25 2c 33 29  0d 16 58 12 c9 34 3a 69  |%,Hc%,3)..X..4:i|
00005320  25 3d 38 3a c8 8e 53 61  25 ca 0d 16 62 0e c9 30  |%=8:..Sa%...b..0|
00005330  2c 36 3a 78 61 25 3d a3  0d 16 6c 12 c9 37 3a 78  |,6:xa%=...l..7:x|
00005340  61 25 3d a3 3a 70 24 3d  77 24 0d 16 76 0b 7f 3a  |a%=.:p$=w$..v..:|
00005350  78 61 25 3d b9 0d 16 80  05 cb 0d 16 8a 0b c9 36  |xa%=...........6|
00005360  3a 69 25 3d 35 0d 16 94  19 c9 37 3a 69 25 3d 35  |:i%=5.....7:i%=5|
00005370  3a f2 7a 28 47 63 25 2c  48 63 25 2c 34 29 0d 16  |:.z(Gc%,Hc%,4)..|
00005380  9e 17 c9 38 3a 69 25 3d  39 3a 70 24 3d 78 24 3a  |...8:i%=9:p$=x$:|
00005390  49 63 25 3d b9 0d 16 a8  0e c9 31 30 31 3a 78 61  |Ic%=......101:xa|
000053a0  25 3d b9 0d 16 b2 05 cb  0d 16 bc 13 e7 70 24 3c  |%=...........p$<|
000053b0  3e 22 22 8c f2 42 61 28  70 24 29 0d 16 c6 1e e7  |>""..Ba(p$).....|
000053c0  69 25 3e 3d 30 80 69 25  3c 31 30 30 8c f2 64 28  |i%>=0.i%<100..d(|
000053d0  65 63 25 2c 69 25 2c 31  29 0d 16 d0 0d 64 62 25  |ec%,i%,1)....db%|
000053e0  3d 74 61 25 3a e1 0d 16  da 0e dd f2 6d 3a c8 8e  |=ta%:.......m:..|
000053f0  64 62 25 ca 0d 16 e4 14  c9 32 2c 33 3a f2 64 28  |db%......2,3:.d(|
00005400  65 63 25 2c 30 2c 30 29  0d 16 ee 24 c9 34 3a f2  |ec%,0,0)...$.4:.|
00005410  64 28 65 63 25 2c 38 2c  30 29 3a e7 67 25 21 30  |d(ec%,8,0):.g%!0|
00005420  3e 30 8c f2 75 3a 67 25  21 30 3d 30 0d 16 f8 14  |>0..u:g%!0=0....|
00005430  c9 36 2c 37 3a f2 64 28  65 63 25 2c 35 2c 30 29  |.6,7:.d(ec%,5,0)|
00005440  0d 17 02 12 c9 38 3a f2  64 28 65 63 25 2c 39 2c  |.....8:.d(ec%,9,|
00005450  30 29 0d 17 0c 1a c9 31  30 31 3a e7 67 25 21 30  |0).....101:.g%!0|
00005460  3e 30 8c f2 75 3a 67 25  21 30 3d 30 0d 17 16 05  |>0..u:g%!0=0....|
00005470  cb 0d 17 20 10 e7 4f 61  25 8c f2 6c 28 51 61 25  |... ..Oa%..l(Qa%|
00005480  29 0d 17 2a 0d f2 5a 61  3a f2 74 61 3a e1 0d 17  |)..*..Za:.ta:...|
00005490  34 85 dd f2 48 61 3a c8  94 61 25 28 6f 25 2c 32  |4...Ha:..a%(o%,2|
000054a0  29 2c 61 25 28 5f 25 2c  32 29 3a c8 94 61 25 28  |),a%(_%,2):..a%(|
000054b0  6f 25 2c 33 29 2c 61 25  28 5f 25 2c 33 29 3a c8  |o%,3),a%(_%,3):.|
000054c0  94 61 24 28 6f 25 2c 31  29 2c 61 24 28 5f 25 2c  |.a$(o%,1),a$(_%,|
000054d0  31 29 3a c8 94 61 24 28  6f 25 2c 32 29 2c 61 24  |1):..a$(o%,2),a$|
000054e0  28 5f 25 2c 32 29 3a c8  94 55 25 2c 6a 64 25 3a  |(_%,2):..U%,jd%:|
000054f0  f2 49 28 6f 25 29 3a f2  49 28 5f 25 29 3a f2 61  |.I(o%):.I(_%):.a|
00005500  28 50 25 29 3a f2 61 28  58 25 29 3a 65 62 25 3d  |(P%):.a(X%):eb%=|
00005510  b9 3a e1 0d 17 3e 10 dd  f2 69 3a e7 45 61 25 8c  |.:...>...i:.Ea%.|
00005520  f2 48 61 0d 17 48 05 e1  0d 17 52 25 dd f2 76 28  |.Ha..H....R%..v(|
00005530  71 64 25 29 3a ea 69 25  2c 72 64 25 2c 73 64 25  |qd%):.i%,rd%,sd%|
00005540  2c 74 64 25 3a e7 76 62  25 8c f2 67 62 0d 17 5c  |,td%:.vb%..gb..\|
00005550  0a c8 8e 71 64 25 ca 0d  17 66 26 c9 30 3a 76 62  |...qd%...f&.0:vb|
00005560  25 3d 30 3a 72 64 25 3d  61 25 28 6f 25 2c 33 29  |%=0:rd%=a%(o%,3)|
00005570  3a 73 64 25 3d 61 25 28  5f 25 2c 33 29 0d 17 70  |:sd%=a%(_%,3)..p|
00005580  0e c9 31 2c 32 3a e7 75  62 25 8c 0d 17 7a 24 72  |..1,2:.ub%...z$r|
00005590  64 25 3d 6c 61 25 3a 73  64 25 3d 6c 61 25 2b 32  |d%=la%:sd%=la%+2|
000055a0  35 36 3a e7 78 62 25 3c  30 8c 78 62 25 3d 30 0d  |56:.xb%<0.xb%=0.|
000055b0  17 84 1a e7 7a 62 25 3e  63 63 25 2f 54 25 8c 7a  |....zb%>cc%/T%.z|
000055c0  62 25 3d 63 63 25 2f 54  25 0d 17 8e 10 e7 79 62  |b%=cc%/T%.....yb|
000055d0  25 3c 30 8c 79 62 25 3d  30 0d 17 98 1a e7 41 62  |%<0.yb%=0.....Ab|
000055e0  25 3e 64 63 25 2f 4e 25  8c 41 62 25 3d 64 63 25  |%>dc%/N%.Ab%=dc%|
000055f0  2f 4e 25 0d 17 a2 db e3  69 25 3d 30 b8 32 35 32  |/N%.....i%=0.252|
00005600  88 34 3a 72 64 25 21 69  25 3d 61 25 28 6f 25 2c  |.4:rd%!i%=a%(o%,|
00005610  33 29 21 69 25 3a ed 3a  72 64 25 21 30 3d 7a 62  |3)!i%:.:rd%!0=zb|
00005620  25 2d 78 62 25 3a 72 64  25 21 34 3d 41 62 25 2d  |%-xb%:rd%!4=Ab%-|
00005630  79 62 25 3a 72 64 25 21  35 32 3d 54 25 2a 72 64  |yb%:rd%!52=T%*rd|
00005640  25 21 30 3a 72 64 25 21  35 36 3d 4e 25 2a 72 64  |%!0:rd%!56=N%*rd|
00005650  25 21 34 3a 72 64 25 21  32 30 3d 72 64 25 21 34  |%!4:rd%!20=rd%!4|
00005660  2a 72 64 25 21 31 36 2b  72 64 25 21 30 3a 74 64  |*rd%!16+rd%!0:td|
00005670  25 3d 78 62 25 2b 28 64  63 25 2f 4e 25 2d 41 62  |%=xb%+(dc%/N%-Ab|
00005680  25 29 2a 72 64 25 21 31  36 3a 72 64 25 21 32 34  |%)*rd%!16:rd%!24|
00005690  2b 3d 74 64 25 3a e3 69  25 3d 30 b8 32 35 32 88  |+=td%:.i%=0.252.|
000056a0  34 3a 73 64 25 21 69 25  3d 72 64 25 21 69 25 3a  |4:sd%!i%=rd%!i%:|
000056b0  ed 3a 73 64 25 21 32 34  3d 61 25 28 5f 25 2c 33  |.:sd%!24=a%(_%,3|
000056c0  29 21 32 34 2b 74 64 25  3a 76 62 25 3d b9 0d 17  |)!24+td%:vb%=...|
000056d0  ac 0d cc 3a 76 62 25 3d  30 3a e1 0d 17 b6 05 cd  |...:vb%=0:......|
000056e0  0d 17 c0 0e c9 33 3a 76  62 25 3d 30 3a e1 0d 17  |.....3:vb%=0:...|
000056f0  ca 05 cb 0d 17 d4 61 f2  64 28 65 63 25 2c 31 2c  |......a.d(ec%,1,|
00005700  76 62 25 29 3a 55 25 3d  72 64 25 3a 6a 64 25 3d  |vb%):U%=rd%:jd%=|
00005710  73 64 25 3a 75 64 25 3d  72 64 25 21 35 32 3a 76  |sd%:ud%=rd%!52:v|
00005720  64 25 3d 72 64 25 21 35  36 3a 77 64 25 3d 72 64  |d%=rd%!56:wd%=rd|
00005730  25 21 30 3a 6b 64 25 3d  72 64 25 21 34 3a e7 61  |%!0:kd%=rd%!4:.a|
00005740  25 28 6f 25 2c 36 29 3d  30 8c f2 61 28 58 25 29  |%(o%,6)=0..a(X%)|
00005750  8b f2 67 62 0d 17 de 0b  65 62 25 3d b9 3a e1 0d  |..gb....eb%=.:..|
00005760  17 e8 21 dd f2 5f 61 28  6e 25 29 3a ea 6f 63 25  |..!.._a(n%):.oc%|
00005770  2c 6a 63 25 3a f2 76 28  33 29 3a c8 8e 6e 25 ca  |,jc%:.v(3):..n%.|
00005780  0d 17 f2 11 c9 30 3a 41  62 25 3d 64 63 25 2f 4e  |.....0:Ab%=dc%/N|
00005790  25 0d 17 fc 0c c9 31 3a  79 62 25 3d 30 0d 18 06  |%.....1:yb%=0...|
000057a0  11 c9 32 3a 7a 62 25 3d  63 63 25 2f 54 25 0d 18  |..2:zb%=cc%/T%..|
000057b0  10 0c c9 33 3a 78 62 25  3d 30 0d 18 1a 24 c9 34  |...3:xb%=0...$.4|
000057c0  3a 6a 63 25 3d 41 62 25  2d 79 62 25 3a 41 62 25  |:jc%=Ab%-yb%:Ab%|
000057d0  2b 3d 6a 63 25 3a 79 62  25 2b 3d 6a 63 25 0d 18  |+=jc%:yb%+=jc%..|
000057e0  24 24 c9 35 3a 6a 63 25  3d 41 62 25 2d 79 62 25  |$$.5:jc%=Ab%-yb%|
000057f0  3a 41 62 25 2d 3d 6a 63  25 3a 79 62 25 2d 3d 6a  |:Ab%-=jc%:yb%-=j|
00005800  63 25 0d 18 2e 24 c9 36  3a 6f 63 25 3d 7a 62 25  |c%...$.6:oc%=zb%|
00005810  2d 78 62 25 3a 7a 62 25  2b 3d 6f 63 25 3a 78 62  |-xb%:zb%+=oc%:xb|
00005820  25 2b 3d 6f 63 25 0d 18  38 24 c9 37 3a 6f 63 25  |%+=oc%..8$.7:oc%|
00005830  3d 7a 62 25 2d 78 62 25  3a 7a 62 25 2d 3d 6f 63  |=zb%-xb%:zb%-=oc|
00005840  25 3a 78 62 25 2d 3d 6f  63 25 0d 18 42 05 cb 0d  |%:xb%-=oc%..B...|
00005850  18 4c 0b f2 76 28 32 29  3a e1 0d 18 56 4e dd f2  |.L..v(2):...VN..|
00005860  48 28 68 63 25 29 3a ea  78 64 25 2c 63 25 3a 78  |H(hc%):.xd%,c%:x|
00005870  64 25 3d bb 28 a4 73 28  59 61 25 29 29 3a e7 78  |d%=.(.s(Ya%)):.x|
00005880  64 25 3c 31 30 84 78 64  25 3e 31 39 39 39 8c 85  |d%<10.xd%>1999..|
00005890  31 2c 22 49 6c 6c 65 67  61 6c 20 73 63 61 6c 65  |1,"Illegal scale|
000058a0  20 66 61 63 74 6f 72 22  0d 18 60 62 63 25 3d 66  | factor"..`bc%=f|
000058b0  62 25 3a 61 25 28 63 25  2c 34 29 3d 78 64 25 3a  |b%:a%(c%,4)=xd%:|
000058c0  61 25 28 63 25 2c 35 29  3d 78 64 25 3a f2 50 28  |a%(c%,5)=xd%:.P(|
000058d0  61 25 28 63 25 2c 31 29  2c 63 63 25 2a 78 64 25  |a%(c%,1),cc%*xd%|
000058e0  2f 31 30 30 2c 64 63 25  2a 78 64 25 2f 31 30 30  |/100,dc%*xd%/100|
000058f0  29 3a f2 49 28 63 25 29  3a e7 68 63 25 8c f2 61  |):.I(c%):.hc%..a|
00005900  28 61 25 28 63 25 2c 31  29 29 0d 18 6a 05 e1 0d  |(a%(c%,1))..j...|
00005910  18 74 1a dd f2 56 3a f2  46 28 6f 25 2c 5f 25 29  |.t...V:.F(o%,_%)|
00005920  3a f2 61 28 50 25 29 3a  e1 0d 18 7e 3a dd f2 46  |:.a(P%):...~:..F|
00005930  28 79 64 25 2c 71 64 25  29 3a f2 6f 28 61 25 28  |(yd%,qd%):.o(a%(|
00005940  71 64 25 2c 32 29 2c 61  24 28 71 64 25 2c 31 29  |qd%,2),a$(qd%,1)|
00005950  29 3a e7 79 64 25 3d 6f  25 84 71 64 25 3d 6f 25  |):.yd%=o%.qd%=o%|
00005960  8c f2 42 0d 18 88 4f c8  99 31 33 31 31 31 38 2c  |..B...O..131118,|
00005970  32 39 30 2c 61 25 28 79  64 25 2c 32 29 2c 61 24  |290,a%(yd%,2),a$|
00005980  28 79 64 25 2c 31 29 2c  30 2c 30 2c 30 3a f2 6e  |(yd%,1),0,0,0:.n|
00005990  3a 61 24 28 71 64 25 2c  32 29 3d 61 24 28 79 64  |:a$(qd%,2)=a$(yd|
000059a0  25 2c 32 29 3a e7 71 64  25 3d 6f 25 8c 65 62 25  |%,2):.qd%=o%.eb%|
000059b0  3d b9 0d 18 92 05 e1 0d  18 9c 73 dd f2 58 61 3a  |=.........s..Xa:|
000059c0  ea 42 2c 77 25 2c 7a 64  25 2c 41 64 25 3a 77 25  |.B,w%,zd%,Ad%:w%|
000059d0  3d 61 25 28 66 62 25 2c  31 29 3a 6a 25 21 30 3d  |=a%(fb%,1):j%!0=|
000059e0  77 25 3a c8 99 32 36 32  33 34 37 2c 2c 6a 25 3a  |w%:..262347,,j%:|
000059f0  7a 64 25 3d 6a 25 21 31  32 2d 6a 25 21 34 3a 41  |zd%=j%!12-j%!4:A|
00005a00  64 25 3d 6a 25 21 31 36  2d 6a 25 21 38 3a e7 7a  |d%=j%!16-j%!8:.z|
00005a10  64 25 3e 41 64 25 8c 42  3d 7a 64 25 2f 63 63 25  |d%>Ad%.B=zd%/cc%|
00005a20  8b 42 3d 41 64 25 2f 64  63 25 0d 18 a6 20 24 59  |.B=Ad%/dc%... $Y|
00005a30  61 25 3d c3 28 a8 28 42  2a 31 30 30 29 29 3a f2  |a%=.(.(B*100)):.|
00005a40  65 28 5a 61 25 2c 30 29  3a e1 0d 18 b0 3c dd f2  |e(Za%,0):....<..|
00005a50  68 62 28 42 64 25 2c 69  25 29 3a c8 99 34 36 2c  |hb(Bd%,i%):..46,|
00005a60  32 35 36 2b 42 64 25 2c  61 25 28 69 25 2c 32 29  |256+Bd%,a%(i%,2)|
00005a70  2c 61 24 28 69 25 2c 31  29 3a e7 69 25 3d 6f 25  |,a$(i%,1):.i%=o%|
00005a80  8c 65 62 25 3d b9 0d 18  ba 15 f2 6b 28 61 25 28  |.eb%=......k(a%(|
00005a90  69 25 2c 31 29 29 3a f2  69 3a e1 0d 18 c4 da dd  |i%,1)):.i:......|
00005aa0  f2 69 62 28 76 2c 6f 2c  43 64 25 2c 44 64 25 2c  |.ib(v,o,Cd%,Dd%,|
00005ab0  45 64 25 2c 46 64 25 29  3a ea 78 25 2c 79 25 2c  |Ed%,Fd%):.x%,y%,|
00005ac0  47 64 25 2c 48 64 25 2c  6b 2c 69 25 3a 6b 3d 32  |Gd%,Hd%,k,i%:k=2|
00005ad0  35 36 2a 6f 3a 76 3d 2d  b2 28 76 29 3a 78 25 3d  |56*o:v=-.(v):x%=|
00005ae0  75 64 25 2f 32 3a 79 25  3d 76 64 25 2f 32 3a f2  |ud%/2:y%=vd%/2:.|
00005af0  6a 62 28 76 2c 78 25 2c  79 25 2c 30 2c 76 64 25  |jb(v,x%,y%,0,vd%|
00005b00  2c 47 64 25 2c 48 64 25  29 3a 65 25 21 30 3d 6b  |,Gd%,Hd%):e%!0=k|
00005b10  2a 47 64 25 3a 65 25 21  34 3d 6b 2a 48 64 25 3a  |*Gd%:e%!4=k*Hd%:|
00005b20  f2 6a 62 28 76 2c 78 25  2c 79 25 2c 75 64 25 2c  |.jb(v,x%,y%,ud%,|
00005b30  76 64 25 2c 47 64 25 2c  48 64 25 29 3a 65 25 21  |vd%,Gd%,Hd%):e%!|
00005b40  38 3d 6b 2a 47 64 25 3a  65 25 21 31 32 3d 6b 2a  |8=k*Gd%:e%!12=k*|
00005b50  48 64 25 3a 65 25 21 31  36 3d 6b 2a 75 64 25 2d  |Hd%:e%!16=k*ud%-|
00005b60  65 25 21 30 3a 65 25 21  32 30 3d 6b 2a 76 64 25  |e%!0:e%!20=k*vd%|
00005b70  2d 65 25 21 34 0d 18 ce  2c 65 25 21 32 34 3d 6b  |-e%!4...,e%!24=k|
00005b80  2a 75 64 25 2d 65 25 21  38 3a 65 25 21 32 38 3d  |*ud%-e%!8:e%!28=|
00005b90  6b 2a 76 64 25 2d 65 25  21 31 32 3a e7 76 62 25  |k*vd%-e%!12:.vb%|
00005ba0  8c 0d 18 d8 47 65 25 21  31 32 38 3d 78 62 25 3a  |....Ge%!128=xb%:|
00005bb0  65 25 21 31 33 32 3d 41  62 25 3a 65 25 21 31 33  |e%!132=Ab%:e%!13|
00005bc0  36 3d 7a 62 25 3a 65 25  21 31 34 30 3d 79 62 25  |6=zb%:e%!140=yb%|
00005bd0  3a 43 64 25 2b 3d 78 62  25 2a 54 25 3a 44 64 25  |:Cd%+=xb%*T%:Dd%|
00005be0  2b 3d 79 62 25 2a 4e 25  0d 18 e2 33 cc 3a 65 25  |+=yb%*N%...3.:e%|
00005bf0  21 31 32 38 3d 30 3a 65  25 21 31 33 32 3d 64 63  |!128=0:e%!132=dc|
00005c00  25 2f 4e 25 3a 65 25 21  31 33 36 3d 63 63 25 2f  |%/N%:e%!136=cc%/|
00005c10  54 25 3a 65 25 21 31 34  30 3d 30 0d 18 ec 05 cd  |T%:e%!140=0.....|
00005c20  0d 18 f6 15 f2 6f 28 30  2c 22 22 29 3a e7 45 64  |.....o(0,""):.Ed|
00005c30  25 8c f2 6b 62 0d 19 00  4d c8 91 43 64 25 2c 44  |%..kb...M..Cd%,D|
00005c40  64 25 3a c8 99 31 33 31  31 31 38 2c 33 31 32 2c  |d%:..131118,312,|
00005c50  61 25 28 6f 25 2c 32 29  2c 61 24 28 6f 25 2c 31  |a%(o%,2),a$(o%,1|
00005c60  29 2c 33 2c 65 25 2b 31  32 38 2c 30 2c 65 25 3a  |),3,e%+128,0,e%:|
00005c70  f2 6e 3a e7 ac 46 64 25  8c f2 61 28 50 25 29 3a  |.n:..Fd%..a(P%):|
00005c80  f2 69 0d 19 0a 05 e1 0d  19 14 62 dd f2 6a 62 28  |.i........b..jb(|
00005c90  76 2c 43 64 25 2c 44 64  25 2c 78 25 2c 79 25 2c  |v,Cd%,Dd%,x%,y%,|
00005ca0  f8 6d 63 25 2c f8 6e 63  25 29 3a 78 25 2d 3d 43  |.mc%,.nc%):x%-=C|
00005cb0  64 25 3a 79 25 2d 3d 44  64 25 3a 6d 63 25 3d 43  |d%:y%-=Dd%:mc%=C|
00005cc0  64 25 2b 28 78 25 2a 9b  76 2b 79 25 2a b5 76 29  |d%+(x%*.v+y%*.v)|
00005cd0  3a 6e 63 25 3d 44 64 25  2b 28 2d 78 25 2a b5 76  |:nc%=Dd%+(-x%*.v|
00005ce0  2b 79 25 2a 9b 76 29 3a  e1 0d 19 1e 18 dd f2 47  |+y%*.v):.......G|
00005cf0  28 74 25 29 3a ea 62 24  2c 65 24 3a c8 8e 74 25  |(t%):.b$,e$:..t%|
00005d00  ca 0d 19 28 4c c9 2d 31  3a 62 24 3d 22 4d 65 61  |...(L.-1:b$="Mea|
00005d10  6e 20 63 6f 6c 6f 75 72  20 69 6e 20 73 6f 75 72  |n colour in sour|
00005d20  63 65 20 69 6d 61 67 65  22 3a 65 24 3d 22 43 6f  |ce image":e$="Co|
00005d30  6c 6f 75 72 20 63 6f 6d  70 6f 6e 65 6e 74 73 22  |lour components"|
00005d40  3a f2 71 28 b9 29 3a 67  62 25 3d 2d 31 0d 19 32  |:.q(.):gb%=-1..2|
00005d50  32 c9 30 3a 62 24 3d 22  53 65 6c 65 63 74 20 63  |2.0:b$="Select c|
00005d60  6f 6c 6f 75 72 22 3a 65  24 3d 22 43 6f 6c 6f 75  |olour":e$="Colou|
00005d70  72 22 3a f2 71 28 b9 29  3a 67 62 25 3d 2d 31 0d  |r":.q(.):gb%=-1.|
00005d80  19 3c 46 c9 34 3a 62 24  3d 22 54 72 61 6e 73 66  |.<F.4:b$="Transf|
00005d90  6f 72 6d 20 74 6f 20 62  6c 61 63 6b 20 26 20 77  |orm to black & w|
00005da0  68 69 74 65 22 3a 65 24  3d 22 43 6f 6c 6f 75 72  |hite":e$="Colour|
00005db0  20 77 65 69 67 68 74 73  22 3a f2 71 28 b9 29 3a  | weights":.q(.):|
00005dc0  67 62 25 3d 34 0d 19 46  43 c9 35 3a 62 24 3d 22  |gb%=4..FC.5:b$="|
00005dd0  54 72 61 6e 73 66 6f 72  6d 20 74 6f 20 67 72 65  |Transform to gre|
00005de0  79 20 74 6f 6e 65 73 22  3a 65 24 3d 22 43 6f 6c  |y tones":e$="Col|
00005df0  6f 75 72 20 77 65 69 67  68 74 73 22 3a f2 71 28  |our weights":.q(|
00005e00  b9 29 3a 67 62 25 3d 35  0d 19 50 52 c9 36 3a 62  |.):gb%=5..PR.6:b|
00005e10  24 3d 22 43 6f 6e 76 65  72 74 20 74 6f 20 62 6c  |$="Convert to bl|
00005e20  61 63 6b 20 26 20 77 68  69 74 65 20 28 74 68 72  |ack & white (thr|
00005e30  65 73 68 6f 6c 64 29 22  3a 65 24 3d 22 54 68 72  |eshold)":e$="Thr|
00005e40  65 73 68 6f 6c 64 20 63  6f 6c 6f 75 72 22 3a f2  |eshold colour":.|
00005e50  71 28 b9 29 3a 67 62 25  3d 37 0d 19 5a 47 c9 37  |q(.):gb%=7..ZG.7|
00005e60  3a 62 24 3d 22 41 64 64  20 76 61 6c 75 65 20 74  |:b$="Add value t|
00005e70  6f 20 61 6c 6c 20 63 6f  6c 6f 75 72 73 22 3a 65  |o all colours":e|
00005e80  24 3d 22 43 6f 6c 6f 75  72 20 63 6f 6d 70 6f 6e  |$="Colour compon|
00005e90  65 6e 74 73 22 3a f2 71  28 b9 29 3a 67 62 25 3d  |ents":.q(.):gb%=|
00005ea0  32 0d 19 64 4e c9 38 3a  62 24 3d 22 53 75 62 74  |2..dN.8:b$="Subt|
00005eb0  72 61 63 74 20 76 61 6c  75 65 20 66 72 6f 6d 20  |ract value from |
00005ec0  61 6c 6c 20 63 6f 6c 6f  75 72 73 22 3a 65 24 3d  |all colours":e$=|
00005ed0  22 43 6f 6c 6f 75 72 20  63 6f 6d 70 6f 6e 65 6e  |"Colour componen|
00005ee0  74 73 22 3a f2 71 28 b9  29 3a 67 62 25 3d 33 0d  |ts":.q(.):gb%=3.|
00005ef0  19 6e 3b c9 39 3a 62 24  3d 22 41 70 70 6c 79 20  |.n;.9:b$="Apply |
00005f00  52 47 42 20 66 69 6c 74  65 72 22 3a 65 24 3d 22  |RGB filter":e$="|
00005f10  46 69 6c 74 65 72 20 63  6f 6c 6f 75 72 22 3a f2  |Filter colour":.|
00005f20  71 28 b9 29 3a 67 62 25  3d 36 0d 19 78 6b c9 31  |q(.):gb%=6..xk.1|
00005f30  31 3a 62 24 3d 22 4d 6f  76 65 20 61 6c 6c 20 63  |1:b$="Move all c|
00005f40  6f 6c 6f 75 72 73 20 74  6f 77 61 72 64 73 20 74  |olours towards t|
00005f50  68 65 20 73 65 6c 65 63  74 65 64 20 63 6f 6c 6f  |he selected colo|
00005f60  75 72 22 3a 65 24 3d 22  43 6f 6c 6f 75 72 22 3a  |ur":e$="Colour":|
00005f70  f2 71 28 a3 29 3a 67 62  25 3d 35 30 3a 24 50 61  |.q(.):gb%=50:$Pa|
00005f80  25 3d 22 45 66 66 65 63  74 22 3a f2 65 28 51 61  |%="Effect":.e(Qa|
00005f90  25 2c 31 34 29 0d 19 82  44 c9 31 32 3a 62 24 3d  |%,14)...D.12:b$=|
00005fa0  22 49 73 6f 6c 61 74 65  20 61 20 73 69 6e 67 6c  |"Isolate a singl|
00005fb0  65 20 63 6f 6c 6f 75 72  22 3a 65 24 3d 22 49 73  |e colour":e$="Is|
00005fc0  6f 6c 61 74 65 20 63 6f  6c 6f 75 72 22 3a f2 71  |olate colour":.q|
00005fd0  28 b9 29 3a 67 62 25 3d  38 0d 19 8c 3d c9 31 31  |(.):gb%=8...=.11|
00005fe0  32 3a 62 24 3d 22 54 72  61 63 65 20 65 64 67 65  |2:b$="Trace edge|
00005ff0  73 22 3a 65 24 3d 22 4d  69 6e 69 6d 75 6d 20 64  |s":e$="Minimum d|
00006000  69 73 74 61 6e 63 65 22  3a f2 71 28 b9 29 3a 67  |istance":.q(.):g|
00006010  62 25 3d 31 31 32 0d 19  96 43 c9 31 31 33 3a 62  |b%=112...C.113:b|
00006020  24 3d 22 44 69 66 66 65  72 65 6e 63 65 20 66 69  |$="Difference fi|
00006030  6c 74 65 72 22 3a 65 24  3d 22 4d 61 78 69 6d 75  |lter":e$="Maximu|
00006040  6d 20 64 69 73 74 61 6e  63 65 22 3a f2 71 28 b9  |m distance":.q(.|
00006050  29 3a 67 62 25 3d 31 31  33 0d 19 a0 33 c9 32 30  |):gb%=113...3.20|
00006060  30 3a 62 24 3d 22 43 6c  65 61 72 20 69 6d 61 67  |0:b$="Clear imag|
00006070  65 22 3a 65 24 3d 22 43  6f 6c 6f 75 72 22 3a f2  |e":e$="Colour":.|
00006080  71 28 b9 29 3a 67 62 25  3d 32 30 30 0d 19 aa 05  |q(.):gb%=200....|
00006090  cb 0d 19 b4 52 f2 79 28  51 61 25 2c 30 29 3a 24  |....R.y(Qa%,0):$|
000060a0  a4 69 28 51 61 25 2c 38  29 3d 62 24 3a f2 65 28  |.i(Qa%,8)=b$:.e(|
000060b0  51 61 25 2c 38 29 3a 24  a4 69 28 51 61 25 2c 39  |Qa%,8):$.i(Qa%,9|
000060c0  29 3d 65 24 3a f2 65 28  51 61 25 2c 39 29 3a f2  |)=e$:.e(Qa%,9):.|
000060d0  74 28 60 25 2c 6b 62 25  2c 6c 62 25 2c 6d 62 25  |t(`%,kb%,lb%,mb%|
000060e0  29 3a e1 0d 19 be 20 dd  f2 4d 61 28 49 64 25 2c  |):.... ..Ma(Id%,|
000060f0  48 25 2c 4a 25 2c 4b 25  2c 59 25 29 3a e7 57 25  |H%,J%,K%,Y%):.W%|
00006100  3d 30 8c 0d 19 c8 36 65  25 3f 30 3d 30 3a 65 25  |=0....6e%?0=0:e%|
00006110  3f 31 3d 48 25 3a 65 25  21 32 3d 4a 25 3a 65 25  |?1=H%:e%!2=J%:e%|
00006120  3f 33 3d 4b 25 3a c8 99  38 39 32 36 31 33 2c 49  |?3=K%:..892613,I|
00006130  64 25 2c 21 65 25 2c 4c  25 0d 19 d2 18 cc 3a c8  |d%,!e%,L%.....:.|
00006140  99 38 39 32 36 31 33 2c  49 64 25 2c 59 25 2c 4c  |.892613,Id%,Y%,L|
00006150  25 0d 19 dc 05 cd 0d 19  e6 22 c8 99 38 39 32 36  |%........"..8926|
00006160  31 32 2c 6a 64 25 2c 55  25 2c 4c 25 3a f2 69 3a  |12,jd%,U%,L%:.i:|
00006170  f2 61 28 50 25 29 3a e1  0d 19 f0 2b dd f2 64 62  |.a(P%):....+..db|
00006180  28 48 25 2c 4a 25 2c 4b  25 2c 59 25 2c 47 25 29  |(H%,J%,K%,Y%,G%)|
00006190  3a ea 4a 64 25 2c 71 25  2c 4b 64 25 3a e7 57 25  |:.Jd%,q%,Kd%:.W%|
000061a0  3d 30 8c 0d 19 fa 1d c8  99 38 39 32 36 31 31 2c  |=0.......892611,|
000061b0  47 25 b8 4a 64 25 3a e7  4a 64 25 3d 2d 31 8c e1  |G%.Jd%:.Jd%=-1..|
000061c0  0d 1a 04 33 65 25 3f 30  3d 30 3a 65 25 3f 31 3d  |...3e%?0=0:e%?1=|
000061d0  48 25 3a 65 25 3f 32 3d  4a 25 3a 65 25 3f 33 3d  |H%:e%?2=J%:e%?3=|
000061e0  4b 25 3a c8 99 38 39 32  36 31 31 2c 21 65 25 b8  |K%:..892611,!e%.|
000061f0  4b 64 25 0d 1a 0e 13 cc  3a 4a 64 25 3d 47 25 3a  |Kd%.....:Jd%=G%:|
00006200  4b 64 25 3d 59 25 0d 1a  18 05 cd 0d 1a 22 29 e3  |Kd%=Y%.......").|
00006210  71 25 3d 30 b8 32 35 35  3a e7 71 25 3c 3e 4a 64  |q%=0.255:.q%<>Jd|
00006220  25 8c 4c 25 3f 71 25 3d  71 25 8b 4c 25 3f 71 25  |%.L%?q%=q%.L%?q%|
00006230  3d 4b 64 25 0d 1a 2c 38  ed 3a c8 99 38 39 32 36  |=Kd%..,8.:..8926|
00006240  31 32 2c 55 25 2c 55 25  2c 4c 25 3a 6c 64 25 3d  |12,U%,U%,L%:ld%=|
00006250  30 3a 6d 64 25 3d 30 3a  6e 64 25 3d 63 63 25 3a  |0:md%=0:nd%=cc%:|
00006260  6f 64 25 3d 64 63 25 3a  f2 45 3a e1 0d 1a 36 33  |od%=dc%:.E:...63|
00006270  dd f2 4e 61 28 48 25 2c  4a 25 2c 4b 25 2c 4c 64  |..Na(H%,J%,K%,Ld|
00006280  25 29 3a ea 71 25 2c 4d  64 25 2c 4e 64 25 2c 4f  |%):.q%,Md%,Nd%,O|
00006290  64 25 3a f2 66 3a e7 4f  25 8c f2 63 28 b9 29 0d  |d%:.f:.O%..c(.).|
000062a0  1a 40 90 e3 71 25 3d 30  b8 32 35 35 3a c8 99 38  |.@..q%=0.255:..8|
000062b0  39 32 36 31 30 2c 71 25  b8 21 65 25 3a 4d 64 25  |92610,q%.!e%:Md%|
000062c0  3d 65 25 3f 31 3a 4e 64  25 3d 65 25 3f 32 3a 4f  |=e%?1:Nd%=e%?2:O|
000062d0  64 25 3d 65 25 3f 33 3a  4d 64 25 3d 4d 64 25 2b  |d%=e%?3:Md%=Md%+|
000062e0  28 48 25 2d 4d 64 25 29  2a 4c 64 25 2f 32 35 36  |(H%-Md%)*Ld%/256|
000062f0  3a 4e 64 25 3d 4e 64 25  2b 28 4a 25 2d 4e 64 25  |:Nd%=Nd%+(J%-Nd%|
00006300  29 2a 4c 64 25 2f 32 35  36 3a 4f 64 25 3d 4f 64  |)*Ld%/256:Od%=Od|
00006310  25 2b 28 4b 25 2d 4f 64  25 29 2a 4c 64 25 2f 32  |%+(K%-Od%)*Ld%/2|
00006320  35 36 3a e7 4d 64 25 3c  30 8c 4d 64 25 3d 30 0d  |56:.Md%<0.Md%=0.|
00006330  1a 4a 10 e7 4e 64 25 3c  30 8c 4e 64 25 3d 30 0d  |.J..Nd%<0.Nd%=0.|
00006340  1a 54 10 e7 4f 64 25 3c  30 8c 4f 64 25 3d 30 0d  |.T..Od%<0.Od%=0.|
00006350  1a 5e 14 e7 4d 64 25 3e  32 35 35 8c 4d 64 25 3d  |.^..Md%>255.Md%=|
00006360  32 35 35 0d 1a 68 14 e7  4e 64 25 3e 32 35 35 8c  |255..h..Nd%>255.|
00006370  4e 64 25 3d 32 35 35 0d  1a 72 14 e7 4f 64 25 3e  |Nd%=255..r..Od%>|
00006380  32 35 35 8c 4f 64 25 3d  32 35 35 0d 1a 7c 47 65  |255.Od%=255..|Ge|
00006390  25 21 30 3d 30 3a 65 25  3f 31 3d 4d 64 25 3a 65  |%!0=0:e%?1=Md%:e|
000063a0  25 3f 32 3d 4e 64 25 3a  65 25 3f 33 3d 4f 64 25  |%?2=Nd%:e%?3=Od%|
000063b0  3a c8 99 38 39 32 36 31  31 2c 21 65 25 b8 4c 25  |:..892611,!e%.L%|
000063c0  3f 71 25 3a ed 3a f2 67  3a e7 4f 25 8c f2 63 28  |?q%:.:.g:.O%..c(|
000063d0  a3 29 0d 1a 86 22 c8 99  38 39 32 36 31 32 2c 6a  |.)..."..892612,j|
000063e0  64 25 2c 55 25 2c 4c 25  3a f2 69 3a f2 61 28 50  |d%,U%,L%:.i:.a(P|
000063f0  25 29 3a e1 0d 1a 90 25  dd f2 57 61 3a ea 71 25  |%):....%..Wa:.q%|
00006400  2c 69 25 2c 48 25 2c 4a  25 2c 4b 25 3a f2 66 3a  |,i%,H%,J%,K%:.f:|
00006410  e7 4f 25 8c f2 63 28 b9  29 0d 1a 9a 0a e7 57 25  |.O%..c(.).....W%|
00006420  3d 30 8c 0d 1a a4 90 e3  71 25 3d 30 b8 32 35 35  |=0......q%=0.255|
00006430  3a c8 99 38 39 32 36 31  30 2c 71 25 b8 21 65 25  |:..892610,q%.!e%|
00006440  3a 48 25 3d 65 25 3f 31  3a 4a 25 3d 65 25 3f 32  |:H%=e%?1:J%=e%?2|
00006450  3a 4b 25 3d 65 25 3f 33  3a 65 25 3f 30 3d 30 3a  |:K%=e%?3:e%?0=0:|
00006460  65 25 3f 31 3d 66 25 28  31 2c 31 2b 28 48 25 81  |e%?1=f%(1,1+(H%.|
00006470  31 36 29 29 3a 65 25 3f  32 3d 66 25 28 32 2c 31  |16)):e%?2=f%(2,1|
00006480  2b 28 4a 25 81 31 36 29  29 3a 65 25 3f 33 3d 66  |+(J%.16)):e%?3=f|
00006490  25 28 33 2c 31 2b 28 4b  25 81 31 36 29 29 3a c8  |%(3,1+(K%.16)):.|
000064a0  99 38 39 32 36 31 31 2c  21 65 25 b8 4c 25 3f 71  |.892611,!e%.L%?q|
000064b0  25 3a ed 0d 1a ae 25 cc  3a e3 71 25 3d 30 b8 32  |%:....%.:.q%=0.2|
000064c0  35 35 3a 4c 25 3f 71 25  3d 66 25 28 31 2c 31 2b  |55:L%?q%=f%(1,1+|
000064d0  71 25 81 31 36 29 3a ed  0d 1a b8 05 cd 0d 1a c2  |q%.16):.........|
000064e0  23 c8 99 38 39 32 36 31  32 2c 6a 64 25 2c 55 25  |#..892612,jd%,U%|
000064f0  2c 4c 25 3a f2 67 3a e7  4f 25 8c f2 63 28 30 29  |,L%:.g:.O%..c(0)|
00006500  0d 1a cc 0f f2 69 3a f2  61 28 50 25 29 3a e1 0d  |.....i:.a(P%):..|
00006510  1a d6 35 dd f2 56 61 3a  ea 71 25 2c 48 25 2c 4a  |..5..Va:.q%,H%,J|
00006520  25 2c 4b 25 2c 4d 64 25  2c 4e 64 25 2c 4f 64 25  |%,K%,Md%,Nd%,Od%|
00006530  2c 69 25 2c 59 63 25 3a  f2 66 3a e7 4f 25 8c f2  |,i%,Yc%:.f:.O%..|
00006540  63 28 b9 29 0d 1a e0 0a  e7 57 25 3d 30 8c 0d 1a  |c(.).....W%=0...|
00006550  ea e1 e3 71 25 3d 30 b8  32 35 35 3a c8 99 38 39  |...q%=0.255:..89|
00006560  32 36 31 30 2c 71 25 b8  21 65 25 3a 48 25 3d 65  |2610,q%.!e%:H%=e|
00006570  25 3f 31 3a 4a 25 3d 65  25 3f 32 3a 4b 25 3d 65  |%?1:J%=e%?2:K%=e|
00006580  25 3f 33 3a 69 25 3d 31  2b 28 48 25 81 36 34 29  |%?3:i%=1+(H%.64)|
00006590  3a 59 63 25 3d 36 34 2a  69 25 2d 36 34 3a 4d 64  |:Yc%=64*i%-64:Md|
000065a0  25 3d 63 25 28 31 2c 69  25 29 2b 28 63 25 28 31  |%=c%(1,i%)+(c%(1|
000065b0  2c 69 25 2b 31 29 2d 63  25 28 31 2c 69 25 29 29  |,i%+1)-c%(1,i%))|
000065c0  2a 28 48 25 2d 59 63 25  29 2f 36 34 3a 69 25 3d  |*(H%-Yc%)/64:i%=|
000065d0  31 2b 28 4a 25 81 36 34  29 3a 59 63 25 3d 36 34  |1+(J%.64):Yc%=64|
000065e0  2a 69 25 2d 36 34 3a 4e  64 25 3d 63 25 28 32 2c  |*i%-64:Nd%=c%(2,|
000065f0  69 25 29 2b 28 63 25 28  32 2c 69 25 2b 31 29 2d  |i%)+(c%(2,i%+1)-|
00006600  63 25 28 32 2c 69 25 29  29 2a 28 4a 25 2d 59 63  |c%(2,i%))*(J%-Yc|
00006610  25 29 2f 36 34 3a 69 25  3d 31 2b 28 4b 25 81 36  |%)/64:i%=1+(K%.6|
00006620  34 29 3a 59 63 25 3d 36  34 2a 69 25 2d 36 34 0d  |4):Yc%=64*i%-64.|
00006630  1a f4 43 4f 64 25 3d 63  25 28 33 2c 69 25 29 2b  |..COd%=c%(3,i%)+|
00006640  28 63 25 28 33 2c 69 25  2b 31 29 2d 63 25 28 33  |(c%(3,i%+1)-c%(3|
00006650  2c 69 25 29 29 2a 28 4b  25 2d 59 63 25 29 2f 36  |,i%))*(K%-Yc%)/6|
00006660  34 3a e7 4d 64 25 3e 32  35 35 8c 4d 64 25 3d 32  |4:.Md%>255.Md%=2|
00006670  35 35 0d 1a fe 10 e7 4d  64 25 3c 30 8c 4d 64 25  |55.....Md%<0.Md%|
00006680  3d 30 0d 1b 08 14 e7 4e  64 25 3e 32 35 35 8c 4e  |=0.....Nd%>255.N|
00006690  64 25 3d 32 35 35 0d 1b  12 10 e7 4e 64 25 3c 30  |d%=255.....Nd%<0|
000066a0  8c 4e 64 25 3d 30 0d 1b  1c 14 e7 4f 64 25 3e 32  |.Nd%=0.....Od%>2|
000066b0  35 35 8c 4f 64 25 3d 32  35 35 0d 1b 26 10 e7 4f  |55.Od%=255..&..O|
000066c0  64 25 3c 30 8c 4f 64 25  3d 30 0d 1b 30 3a 65 25  |d%<0.Od%=0..0:e%|
000066d0  21 30 3d 30 3a 65 25 3f  31 3d 4d 64 25 3a 65 25  |!0=0:e%?1=Md%:e%|
000066e0  3f 32 3d 4e 64 25 3a 65  25 3f 33 3d 4f 64 25 3a  |?2=Nd%:e%?3=Od%:|
000066f0  c8 99 38 39 32 36 31 31  2c 21 65 25 b8 4c 25 3f  |..892611,!e%.L%?|
00006700  71 25 3a ed 0d 1b 3a 69  cc 3a e3 71 25 3d 30 b8  |q%:...:i.:.q%=0.|
00006710  32 35 35 3a 69 25 3d 31  2b 28 71 25 81 36 34 29  |255:i%=1+(q%.64)|
00006720  3a 59 63 25 3d 36 34 2a  69 25 2d 36 34 3a 4e 64  |:Yc%=64*i%-64:Nd|
00006730  25 3d 63 25 28 31 2c 69  25 29 2b 28 63 25 28 31  |%=c%(1,i%)+(c%(1|
00006740  2c 69 25 2b 31 29 2d 63  25 28 31 2c 69 25 29 29  |,i%+1)-c%(1,i%))|
00006750  2a 28 71 25 2d 59 63 25  29 2f 36 34 3a e7 4e 64  |*(q%-Yc%)/64:.Nd|
00006760  25 3e 32 35 35 8c 4e 64  25 3d 32 35 35 0d 1b 44  |%>255.Nd%=255..D|
00006770  10 e7 4e 64 25 3c 30 8c  4e 64 25 3d 30 0d 1b 4e  |..Nd%<0.Nd%=0..N|
00006780  0f 4c 25 3f 71 25 3d 4e  64 25 3a ed 0d 1b 58 05  |.L%?q%=Nd%:...X.|
00006790  cd 0d 1b 62 23 c8 99 38  39 32 36 31 32 2c 6a 64  |...b#..892612,jd|
000067a0  25 2c 55 25 2c 4c 25 3a  f2 67 3a e7 4f 25 8c f2  |%,U%,L%:.g:.O%..|
000067b0  63 28 30 29 0d 1b 6c 0f  f2 69 3a f2 61 28 50 25  |c(0)..l..i:.a(P%|
000067c0  29 3a e1 0d 1b 76 35 dd  f2 55 61 28 63 2c 64 2c  |):...v5..Ua(c,d,|
000067d0  65 29 3a ea 71 25 2c 48  25 2c 4a 25 2c 4b 25 2c  |e):.q%,H%,J%,K%,|
000067e0  4d 64 25 2c 4e 64 25 2c  4f 64 25 3a f2 66 3a e7  |Md%,Nd%,Od%:.f:.|
000067f0  4f 25 8c f2 63 28 b9 29  0d 1b 80 0a e7 57 25 3d  |O%..c(.).....W%=|
00006800  30 8c 0d 1b 8a 5b e3 71  25 3d 30 b8 32 35 35 3a  |0....[.q%=0.255:|
00006810  c8 99 38 39 32 36 31 30  2c 71 25 b8 21 65 25 3a  |..892610,q%.!e%:|
00006820  48 25 3d 65 25 3f 31 3a  4a 25 3d 65 25 3f 32 3a  |H%=e%?1:J%=e%?2:|
00006830  4b 25 3d 65 25 3f 33 3a  4d 64 25 3d 32 35 35 2a  |K%=e%?3:Md%=255*|
00006840  28 28 48 25 2f 32 35 35  29 5e 63 29 3a e7 4d 64  |((H%/255)^c):.Md|
00006850  25 3e 32 35 35 8c 4d 64  25 3d 32 35 35 0d 1b 94  |%>255.Md%=255...|
00006860  29 4e 64 25 3d 32 35 35  2a 28 28 4a 25 2f 32 35  |)Nd%=255*((J%/25|
00006870  35 29 5e 64 29 3a e7 4e  64 25 3e 32 35 35 8c 4e  |5)^d):.Nd%>255.N|
00006880  64 25 3d 32 35 35 0d 1b  9e 29 4f 64 25 3d 32 35  |d%=255...)Od%=25|
00006890  35 2a 28 28 4b 25 2f 32  35 35 29 5e 65 29 3a e7  |5*((K%/255)^e):.|
000068a0  4f 64 25 3e 32 35 35 8c  4f 64 25 3d 32 35 35 0d  |Od%>255.Od%=255.|
000068b0  1b a8 3a 65 25 21 30 3d  30 3a 65 25 3f 31 3d 4d  |..:e%!0=0:e%?1=M|
000068c0  64 25 3a 65 25 3f 32 3d  4e 64 25 3a 65 25 3f 33  |d%:e%?2=Nd%:e%?3|
000068d0  3d 4f 64 25 3a c8 99 38  39 32 36 31 31 2c 21 65  |=Od%:..892611,!e|
000068e0  25 b8 4c 25 3f 71 25 3a  ed 0d 1b b2 30 cc 3a e3  |%.L%?q%:....0.:.|
000068f0  71 25 3d 30 b8 32 35 35  3a e7 71 25 3e 30 8c 4d  |q%=0.255:.q%>0.M|
00006900  64 25 3d 32 35 35 2a 28  28 71 25 2f 32 35 35 29  |d%=255*((q%/255)|
00006910  5e 63 29 8b 4d 64 25 3d  30 0d 1b bc 14 e7 4d 64  |^c).Md%=0.....Md|
00006920  25 3e 32 35 35 8c 4d 64  25 3d 32 35 35 0d 1b c6  |%>255.Md%=255...|
00006930  0f 4c 25 3f 71 25 3d 4d  64 25 3a ed 0d 1b d0 05  |.L%?q%=Md%:.....|
00006940  cd 0d 1b da 23 c8 99 38  39 32 36 31 32 2c 6a 64  |....#..892612,jd|
00006950  25 2c 55 25 2c 4c 25 3a  f2 67 3a e7 4f 25 8c f2  |%,U%,L%:.g:.O%..|
00006960  63 28 30 29 0d 1b e4 0f  f2 69 3a f2 61 28 50 25  |c(0).....i:.a(P%|
00006970  29 3a e1 0d 1b ee 2e dd  f2 52 61 3a ea 71 25 2c  |):.......Ra:.q%,|
00006980  48 25 2c 4a 25 2c 4b 25  2c 4d 64 25 2c 4e 64 25  |H%,J%,K%,Md%,Nd%|
00006990  2c 4f 64 25 3a f2 66 3a  e7 4f 25 8c f2 63 28 b9  |,Od%:.f:.O%..c(.|
000069a0  29 0d 1b f8 c7 e3 71 25  3d 30 b8 32 35 35 3a c8  |).....q%=0.255:.|
000069b0  99 38 39 32 36 31 30 2c  71 25 b8 21 65 25 3a 48  |.892610,q%.!e%:H|
000069c0  25 3d 65 25 3f 31 3a 4a  25 3d 65 25 3f 32 3a 4b  |%=e%?1:J%=e%?2:K|
000069d0  25 3d 65 25 3f 33 3a 4d  64 25 3d 28 62 25 28 31  |%=e%?3:Md%=(b%(1|
000069e0  2c 31 29 2a 48 25 2b 62  25 28 31 2c 32 29 2a 4a  |,1)*H%+b%(1,2)*J|
000069f0  25 2b 62 25 28 31 2c 33  29 2a 4b 25 29 2f 32 35  |%+b%(1,3)*K%)/25|
00006a00  35 3a 4e 64 25 3d 28 62  25 28 32 2c 31 29 2a 48  |5:Nd%=(b%(2,1)*H|
00006a10  25 2b 62 25 28 32 2c 32  29 2a 4a 25 2b 62 25 28  |%+b%(2,2)*J%+b%(|
00006a20  32 2c 33 29 2a 4b 25 29  2f 32 35 35 3a 4f 64 25  |2,3)*K%)/255:Od%|
00006a30  3d 28 62 25 28 33 2c 31  29 2a 48 25 2b 62 25 28  |=(b%(3,1)*H%+b%(|
00006a40  33 2c 32 29 2a 4a 25 2b  62 25 28 33 2c 33 29 2a  |3,2)*J%+b%(3,3)*|
00006a50  4b 25 29 2f 32 35 35 3a  e7 4d 64 25 3e 32 35 35  |K%)/255:.Md%>255|
00006a60  8c 4d 64 25 3d 32 35 35  0d 1c 02 14 e7 4e 64 25  |.Md%=255.....Nd%|
00006a70  3e 32 35 35 8c 4e 64 25  3d 32 35 35 0d 1c 0c 14  |>255.Nd%=255....|
00006a80  e7 4f 64 25 3e 32 35 35  8c 4f 64 25 3d 32 35 35  |.Od%>255.Od%=255|
00006a90  0d 1c 16 47 65 25 21 30  3d 30 3a 65 25 3f 31 3d  |...Ge%!0=0:e%?1=|
00006aa0  4d 64 25 3a 65 25 3f 32  3d 4e 64 25 3a 65 25 3f  |Md%:e%?2=Nd%:e%?|
00006ab0  33 3d 4f 64 25 3a c8 99  38 39 32 36 31 31 2c 21  |3=Od%:..892611,!|
00006ac0  65 25 b8 4c 25 3f 71 25  3a ed 3a f2 67 3a e7 4f  |e%.L%?q%:.:.g:.O|
00006ad0  25 8c f2 63 28 30 29 0d  1c 20 22 c8 99 38 39 32  |%..c(0).. "..892|
00006ae0  36 31 32 2c 6a 64 25 2c  55 25 2c 4c 25 3a f2 69  |612,jd%,U%,L%:.i|
00006af0  3a f2 61 28 50 25 29 3a  e1 0d 1c 2a 40 dd f2 6c  |:.a(P%):...*@..l|
00006b00  62 28 49 64 25 29 3a ea  50 64 25 2c 47 25 2c 56  |b(Id%):.Pd%,G%,V|
00006b10  25 2c 71 25 2c 51 64 25  2c 52 64 25 2c 53 64 25  |%,q%,Qd%,Rd%,Sd%|
00006b20  2c 68 25 2c 73 25 2c 76  25 2c 6e 24 3a f2 66 3a  |,h%,s%,v%,n$:.f:|
00006b30  e7 4f 25 8c f2 63 28 b9  29 0d 1c 34 19 47 25 3d  |.O%..c(.)..4.G%=|
00006b40  30 3a e3 56 25 3d 31 b8  34 3a e7 56 25 3c 3e 6f  |0:.V%=1.4:.V%<>o|
00006b50  25 8c 0d 1c 3e 0f 47 25  2b 3d 31 3a c8 8e 47 25  |%...>.G%+=1:..G%|
00006b60  ca 0d 1c 48 0f c9 31 3a  6e 24 3d 22 48 75 65 22  |...H..1:n$="Hue"|
00006b70  0d 1c 52 16 c9 32 3a 6e  24 3d 22 53 61 74 75 72  |..R..2:n$="Satur|
00006b80  61 74 69 6f 6e 22 0d 1c  5c 11 c9 33 3a 6e 24 3d  |ation"..\..3:n$=|
00006b90  22 56 61 6c 75 65 22 0d  1c 66 05 cb 0d 1c 70 82  |"Value"..f....p.|
00006ba0  e3 71 25 3d 30 b8 32 35  35 3a c8 99 38 39 32 36  |.q%=0.255:..8926|
00006bb0  31 30 2c 71 25 b8 21 65  25 3a 51 64 25 3d 65 25  |10,q%.!e%:Qd%=e%|
00006bc0  3f 31 3a 52 64 25 3d 65  25 3f 32 3a 53 64 25 3d  |?1:Rd%=e%?2:Sd%=|
00006bd0  65 25 3f 33 3a c8 99 32  36 34 30 32 34 2c 51 64  |e%?3:..264024,Qd|
00006be0  25 2a 32 35 36 2c 52 64  25 2a 32 35 36 2c 53 64  |%*256,Rd%*256,Sd|
00006bf0  25 2a 32 35 36 b8 68 25  2c 73 25 2c 76 25 3a 73  |%*256.h%,s%,v%:s|
00006c00  25 3d 73 25 2f 32 35 36  3a 76 25 3d 76 25 2f 32  |%=s%/256:v%=v%/2|
00006c10  35 36 3a e7 73 25 3d 30  8c 68 25 3d 2d 31 0d 1c  |56:.s%=0.h%=-1..|
00006c20  7a 09 c8 8e 47 25 ca 0d  1c 84 0e c9 31 3a e7 68  |z...G%......1:.h|
00006c30  25 3d 2d 31 8c 0d 1c 8e  0a 50 64 25 3d 76 25 0d  |%=-1.....Pd%=v%.|
00006c40  1c 98 6c cc 3a c8 99 32  36 34 30 32 35 2c 68 25  |..l.:..264025,h%|
00006c50  2c 32 35 35 2a 32 35 36  2c 32 35 35 2a 32 35 36  |,255*256,255*256|
00006c60  b8 51 64 25 2c 52 64 25  2c 53 64 25 3a 65 25 3f  |.Qd%,Rd%,Sd%:e%?|
00006c70  30 3d 30 3a 65 25 3f 31  3d 51 64 25 2f 32 35 36  |0=0:e%?1=Qd%/256|
00006c80  3a 65 25 3f 32 3d 52 64  25 2f 32 35 36 3a 65 25  |:e%?2=Rd%/256:e%|
00006c90  3f 33 3d 53 64 25 2f 32  35 36 3a c8 99 38 39 32  |?3=Sd%/256:..892|
00006ca0  36 31 31 2c 21 65 25 b8  50 64 25 0d 1c a2 05 cd  |611,!e%.Pd%.....|
00006cb0  0d 1c ac 0e c9 32 3a e7  49 64 25 3d 31 8c 0d 1c  |.....2:.Id%=1...|
00006cc0  b6 0a 50 64 25 3d 73 25  0d 1c c0 35 cc 3a 65 25  |..Pd%=s%...5.:e%|
00006cd0  3f 30 3d 30 3a 65 25 3f  31 3d 73 25 3a 65 25 3f  |?0=0:e%?1=s%:e%?|
00006ce0  32 3d 73 25 3a 65 25 3f  33 3d 73 25 3a c8 99 38  |2=s%:e%?3=s%:..8|
00006cf0  39 32 36 31 31 2c 21 65  25 b8 50 64 25 0d 1c ca  |92611,!e%.Pd%...|
00006d00  05 cd 0d 1c d4 0e c9 33  3a e7 49 64 25 3d 31 8c  |.......3:.Id%=1.|
00006d10  0d 1c de 0a 50 64 25 3d  76 25 0d 1c e8 35 cc 3a  |....Pd%=v%...5.:|
00006d20  65 25 3f 30 3d 30 3a 65  25 3f 31 3d 76 25 3a 65  |e%?0=0:e%?1=v%:e|
00006d30  25 3f 32 3d 76 25 3a 65  25 3f 33 3d 76 25 3a c8  |%?2=v%:e%?3=v%:.|
00006d40  99 38 39 32 36 31 31 2c  21 65 25 b8 50 64 25 0d  |.892611,!e%.Pd%.|
00006d50  1c f2 05 cd 0d 1c fc 05  cb 0d 1d 06 44 4c 25 3f  |............DL%?|
00006d60  71 25 3d 50 64 25 3a ed  3a c8 99 38 39 32 36 31  |q%=Pd%:.:..89261|
00006d70  32 2c 61 25 28 56 25 2c  33 29 2c 61 25 28 6f 25  |2,a%(V%,3),a%(o%|
00006d80  2c 33 29 2c 4c 25 3a f2  78 28 56 25 2c 6e 24 29  |,3),L%:.x(V%,n$)|
00006d90  3a f2 6b 28 61 25 28 56  25 2c 31 29 29 0d 1d 10  |:.k(a%(V%,1))...|
00006da0  05 cd 0d 1d 1a 12 ed 3a  f2 67 3a e7 4f 25 8c f2  |.......:.g:.O%..|
00006db0  63 28 a3 29 0d 1d 24 0c  f2 61 28 50 25 29 3a e1  |c(.)..$..a(P%):.|
00006dc0  0d 1d 2e 2b dd f2 6d 62  28 49 64 25 29 3a ea 47  |...+..mb(Id%):.G|
00006dd0  25 2c 54 64 25 2c 56 25  2c 71 25 2c 6e 24 3a f2  |%,Td%,V%,q%,n$:.|
00006de0  66 3a e7 4f 25 8c f2 63  28 b9 29 0d 1d 38 19 47  |f:.O%..c(.)..8.G|
00006df0  25 3d 30 3a e3 56 25 3d  31 b8 34 3a e7 56 25 3c  |%=0:.V%=1.4:.V%<|
00006e00  3e 6f 25 8c 0d 1d 42 0f  47 25 2b 3d 31 3a c8 8e  |>o%...B.G%+=1:..|
00006e10  47 25 ca 0d 1d 4c 0f c9  31 3a 6e 24 3d 22 52 65  |G%...L..1:n$="Re|
00006e20  64 22 0d 1d 56 11 c9 32  3a 6e 24 3d 22 47 72 65  |d"..V..2:n$="Gre|
00006e30  65 6e 22 0d 1d 60 10 c9  33 3a 6e 24 3d 22 42 6c  |en"..`..3:n$="Bl|
00006e40  75 65 22 0d 1d 6a 05 cb  0d 1d 74 0c e7 49 64 25  |ue"..j....t..Id%|
00006e50  3c 3e 31 8c 0d 1d 7e 09  c8 8e 47 25 ca 0d 1d 88  |<>1...~...G%....|
00006e60  10 c9 31 3a 54 64 25 3d  36 35 32 38 30 0d 1d 92  |..1:Td%=65280...|
00006e70  12 c9 32 3a 54 64 25 3d  26 46 46 30 30 30 30 0d  |..2:Td%=&FF0000.|
00006e80  1d 9c 14 c9 33 3a 54 64  25 3d 2d 31 36 37 37 37  |....3:Td%=-16777|
00006e90  32 31 36 0d 1d a6 05 cb  0d 1d b0 15 c8 99 38 39  |216...........89|
00006ea0  32 36 31 33 2c 36 2c 54  64 25 2c 4c 25 0d 1d ba  |2613,6,Td%,L%...|
00006eb0  2d cc 3a e3 71 25 3d 30  b8 32 35 35 3a c8 99 38  |-.:.q%=0.255:..8|
00006ec0  39 32 36 31 30 2c 71 25  b8 21 65 25 3a 4c 25 3f  |92610,q%.!e%:L%?|
00006ed0  71 25 3d 65 25 3f 47 25  3a ed 0d 1d c4 05 cd 0d  |q%=e%?G%:.......|
00006ee0  1d ce 38 c8 99 38 39 32  36 31 32 2c 61 25 28 56  |..8..892612,a%(V|
00006ef0  25 2c 33 29 2c 61 25 28  6f 25 2c 33 29 2c 4c 25  |%,3),a%(o%,3),L%|
00006f00  3a f2 78 28 56 25 2c 6e  24 29 3a f2 6b 28 61 25  |:.x(V%,n$):.k(a%|
00006f10  28 56 25 2c 31 29 29 0d  1d d8 05 cd 0d 1d e2 12  |(V%,1)).........|
00006f20  ed 3a f2 67 3a e7 4f 25  8c f2 63 28 30 29 0d 1d  |.:.g:.O%..c(0)..|
00006f30  ec 0c f2 61 28 50 25 29  3a e1 0d 1d f6 3d dd f2  |...a(P%):....=..|
00006f40  6e 62 28 49 64 25 29 3a  ea 71 25 2c 63 25 2c 6d  |nb(Id%):.q%,c%,m|
00006f50  25 2c 79 25 2c 6b 25 2c  48 25 2c 4a 25 2c 4b 25  |%,y%,k%,H%,J%,K%|
00006f60  2c 47 25 2c 54 64 25 2c  6e 24 3a f2 66 3a e7 4f  |,G%,Td%,n$:.f:.O|
00006f70  25 8c f2 63 28 b9 29 0d  1e 00 20 48 25 3d 60 25  |%..c(.)... H%=`%|
00006f80  3a 4a 25 3d 6b 62 25 3a  4b 25 3d 6c 62 25 3a e7  |:J%=kb%:K%=lb%:.|
00006f90  49 64 25 3c 3e 31 8c 0d  1e 0a d1 e3 71 25 3d 30  |Id%<>1......q%=0|
00006fa0  b8 32 35 35 3a c8 99 38  39 32 36 31 30 2c 71 25  |.255:..892610,q%|
00006fb0  b8 21 65 25 3a 60 25 3d  65 25 3f 31 3a 6b 62 25  |.!e%:`%=e%?1:kb%|
00006fc0  3d 65 25 3f 32 3a 6c 62  25 3d 65 25 3f 33 3a f2  |=e%?2:lb%=e%?3:.|
00006fd0  6f 62 3a 63 25 3d 6f 62  25 3a 6d 25 3d 70 62 25  |ob:c%=ob%:m%=pb%|
00006fe0  3a 79 25 3d 71 62 25 3a  6b 25 3d 72 62 25 3a 6f  |:y%=qb%:k%=rb%:o|
00006ff0  62 25 3d 63 25 3a 70 62  25 3d 30 3a 71 62 25 3d  |b%=c%:pb%=0:qb%=|
00007000  30 3a 72 62 25 3d 30 3a  f2 57 3a f2 43 3a c8 99  |0:rb%=0:.W:.C:..|
00007010  38 39 32 36 31 31 2c 21  65 25 b8 54 64 25 3a 5a  |892611,!e%.Td%:Z|
00007020  25 3f 71 25 3d 54 64 25  3a 6f 62 25 3d 30 3a 70  |%?q%=Td%:ob%=0:p|
00007030  62 25 3d 6d 25 3a 71 62  25 3d 30 3a 72 62 25 3d  |b%=m%:qb%=0:rb%=|
00007040  30 3a f2 57 3a f2 43 3a  c8 99 38 39 32 36 31 31  |0:.W:.C:..892611|
00007050  2c 21 65 25 b8 54 64 25  3a 5a 25 3f 28 71 25 2b  |,!e%.Td%:Z%?(q%+|
00007060  32 35 36 29 3d 54 64 25  0d 1e 14 85 6f 62 25 3d  |256)=Td%....ob%=|
00007070  30 3a 70 62 25 3d 30 3a  71 62 25 3d 79 25 3a 72  |0:pb%=0:qb%=y%:r|
00007080  62 25 3d 30 3a f2 57 3a  f2 43 3a c8 99 38 39 32  |b%=0:.W:.C:..892|
00007090  36 31 31 2c 21 65 25 b8  54 64 25 3a 5a 25 3f 28  |611,!e%.Td%:Z%?(|
000070a0  71 25 2b 35 31 32 29 3d  54 64 25 3a 6f 62 25 3d  |q%+512)=Td%:ob%=|
000070b0  30 3a 70 62 25 3d 30 3a  71 62 25 3d 30 3a 72 62  |0:pb%=0:qb%=0:rb|
000070c0  25 3d 6b 25 3a f2 57 3a  f2 43 3a c8 99 38 39 32  |%=k%:.W:.C:..892|
000070d0  36 31 31 2c 21 65 25 b8  54 64 25 3a 5a 25 3f 28  |611,!e%.Td%:Z%?(|
000070e0  71 25 2b 37 36 38 29 3d  54 64 25 3a ed 0d 1e 1e  |q%+768)=Td%:....|
000070f0  79 cc 3a e3 71 25 3d 30  b8 32 35 35 3a c8 99 38  |y.:.q%=0.255:..8|
00007100  39 32 36 31 30 2c 71 25  b8 21 65 25 3a 60 25 3d  |92610,q%.!e%:`%=|
00007110  65 25 3f 31 3a 6b 62 25  3d 65 25 3f 32 3a 6c 62  |e%?1:kb%=e%?2:lb|
00007120  25 3d 65 25 3f 33 3a f2  6f 62 3a 5a 25 3f 71 25  |%=e%?3:.ob:Z%?q%|
00007130  3d 6f 62 25 3a 5a 25 3f  28 71 25 2b 32 35 36 29  |=ob%:Z%?(q%+256)|
00007140  3d 70 62 25 3a 5a 25 3f  28 71 25 2b 35 31 32 29  |=pb%:Z%?(q%+512)|
00007150  3d 71 62 25 3a 5a 25 3f  28 71 25 2b 37 36 38 29  |=qb%:Z%?(q%+768)|
00007160  3d 72 62 25 3a ed 0d 1e  28 05 cd 0d 1e 32 2d 60  |=rb%:...(....2-`|
00007170  25 3d 48 25 3a 6b 62 25  3d 4a 25 3a 6c 62 25 3d  |%=H%:kb%=J%:lb%=|
00007180  4b 25 3a 47 25 3d 30 3a  e3 56 25 3d 31 b8 35 3a  |K%:G%=0:.V%=1.5:|
00007190  e7 56 25 3c 3e 6f 25 8c  0d 1e 3c 09 c8 8e 47 25  |.V%<>o%...<...G%|
000071a0  ca 0d 1e 46 10 c9 30 3a  6e 24 3d 22 43 79 61 6e  |...F..0:n$="Cyan|
000071b0  22 0d 1e 50 13 c9 31 3a  6e 24 3d 22 4d 61 67 65  |"..P..1:n$="Mage|
000071c0  6e 74 61 22 0d 1e 5a 12  c9 32 3a 6e 24 3d 22 59  |nta"..Z..2:n$="Y|
000071d0  65 6c 6c 6f 77 22 0d 1e  64 0f c9 33 3a 6e 24 3d  |ellow"..d..3:n$=|
000071e0  22 4b 65 79 22 0d 1e 6e  05 cb 0d 1e 78 45 c8 99  |"Key"..n....xE..|
000071f0  38 39 32 36 31 32 2c 61  25 28 56 25 2c 33 29 2c  |892612,a%(V%,3),|
00007200  61 25 28 6f 25 2c 33 29  2c 5a 25 2b 32 35 36 2a  |a%(o%,3),Z%+256*|
00007210  47 25 3a f2 78 28 56 25  2c 6e 24 29 3a f2 6b 28  |G%:.x(V%,n$):.k(|
00007220  61 25 28 56 25 2c 31 29  29 3a 47 25 2b 3d 31 0d  |a%(V%,1)):G%+=1.|
00007230  1e 82 05 cd 0d 1e 8c 12  ed 3a f2 67 3a e7 4f 25  |.........:.g:.O%|
00007240  8c f2 63 28 30 29 0d 1e  96 0c f2 61 28 50 25 29  |..c(0).....a(P%)|
00007250  3a e1 0d 1e a0 16 dd f2  70 62 28 70 25 2c 55 64  |:.......pb(p%,Ud|
00007260  25 29 3a c8 8e 70 25 ca  0d 1e aa 3b c9 30 2c 31  |%):..p%....;.0,1|
00007270  2c 31 33 2c 31 34 3a c8  99 38 39 32 36 31 33 2c  |,13,14:..892613,|
00007280  70 25 2c 2c 4c 25 3a c8  99 38 39 32 36 31 32 2c  |p%,,L%:..892612,|
00007290  6a 64 25 2c 55 25 2c 4c  25 3a f2 61 28 50 25 29  |jd%,U%,L%:.a(P%)|
000072a0  3a f2 69 0d 1e b4 0f c9  32 2c 33 3a e7 57 25 3d  |:.i.....2,3:.W%=|
000072b0  30 8c 0d 1e be 1c c8 99  38 39 32 36 31 33 2c 70  |0.......892613,p|
000072c0  25 2c 32 36 39 34 38 38  31 32 38 2c 4c 25 0d 1e  |%,269488128,L%..|
000072d0  c8 17 cc 3a c8 99 38 39  32 36 31 33 2c 70 25 2c  |...:..892613,p%,|
000072e0  31 36 2c 4c 25 0d 1e d2  05 cd 0d 1e dc 20 c8 99  |16,L%........ ..|
000072f0  38 39 32 36 31 32 2c 6a  64 25 2c 55 25 2c 4c 25  |892612,jd%,U%,L%|
00007300  3a f2 61 28 50 25 29 3a  f2 69 0d 1e e6 1b c9 34  |:.a(P%):.i.....4|
00007310  2c 35 2c 36 2c 37 2c 38  2c 31 31 2c 31 32 3a f2  |,5,6,7,8,11,12:.|
00007320  47 28 70 25 29 0d 1e f0  0d c9 39 3a c8 8e 55 64  |G(p%).....9:..Ud|
00007330  25 ca 0d 1e fa 21 c9 30  3a 60 25 3d 32 35 35 3a  |%....!.0:`%=255:|
00007340  6b 62 25 3d 30 3a 6c 62  25 3d 30 3a f2 6b 28 51  |kb%=0:lb%=0:.k(Q|
00007350  61 25 29 0d 1f 04 21 c9  31 3a 60 25 3d 30 3a 6b  |a%)...!.1:`%=0:k|
00007360  62 25 3d 32 35 35 3a 6c  62 25 3d 30 3a f2 6b 28  |b%=255:lb%=0:.k(|
00007370  51 61 25 29 0d 1f 0e 21  c9 32 3a 60 25 3d 30 3a  |Qa%)...!.2:`%=0:|
00007380  6b 62 25 3d 30 3a 6c 62  25 3d 32 35 35 3a f2 6b  |kb%=0:lb%=255:.k|
00007390  28 51 61 25 29 0d 1f 18  05 cb 0d 1f 22 0a f2 47  |(Qa%)......."..G|
000073a0  28 70 25 29 0d 1f 2c 0e  c9 31 30 3a c8 8e 55 64  |(p%)..,..10:..Ud|
000073b0  25 ca 0d 1f 36 07 c9 2d  31 0d 1f 40 31 c9 30 3a  |%...6..-1..@1.0:|
000073c0  62 25 28 29 3d 30 3a 62  25 28 31 2c 32 29 3d 32  |b%()=0:b%(1,2)=2|
000073d0  35 35 3a 62 25 28 32 2c  31 29 3d 32 35 35 3a 62  |55:b%(2,1)=255:b|
000073e0  25 28 33 2c 33 29 3d 32  35 35 0d 1f 4a 31 c9 31  |%(3,3)=255..J1.1|
000073f0  3a 62 25 28 29 3d 30 3a  62 25 28 31 2c 33 29 3d  |:b%()=0:b%(1,3)=|
00007400  32 35 35 3a 62 25 28 32  2c 32 29 3d 32 35 35 3a  |255:b%(2,2)=255:|
00007410  62 25 28 33 2c 31 29 3d  32 35 35 0d 1f 54 31 c9  |b%(3,1)=255..T1.|
00007420  32 3a 62 25 28 29 3d 30  3a 62 25 28 31 2c 31 29  |2:b%()=0:b%(1,1)|
00007430  3d 32 35 35 3a 62 25 28  32 2c 33 29 3d 32 35 35  |=255:b%(2,3)=255|
00007440  3a 62 25 28 33 2c 32 29  3d 32 35 35 0d 1f 5e 05  |:b%(3,2)=255..^.|
00007450  cb 0d 1f 68 0b f2 77 28  4d 63 25 29 0d 1f 72 05  |...h..w(Mc%)..r.|
00007460  cb 0d 1f 7c 05 e1 0d 1f  86 39 dd f2 50 61 28 66  |...|.....9..Pa(f|
00007470  25 2c 70 25 29 3a e7 66  25 3c 30 84 66 25 3e 31  |%,p%):.f%<0.f%>1|
00007480  33 8c 85 31 2c 22 49 6c  6c 65 67 61 6c 20 66 69  |3..1,"Illegal fi|
00007490  6c 74 65 72 20 28 22 2b  c3 66 25 2b 22 29 22 0d  |lter ("+.f%+")".|
000074a0  1f 90 13 f2 56 3a f2 66  3a e7 4f 25 8c f2 63 28  |....V:.f:.O%..c(|
000074b0  b9 29 0d 1f 9a 26 c8 99  38 39 32 36 31 34 2c 6a  |.)...&..892614,j|
000074c0  64 25 2c 55 25 2c 66 25  2c 70 25 3a f2 67 3a e7  |d%,U%,f%,p%:.g:.|
000074d0  4f 25 8c f2 63 28 30 29  0d 1f a4 0f f2 61 28 50  |O%..c(0).....a(P|
000074e0  25 29 3a f2 69 3a e1 0d  1f ae 48 dd f2 51 61 28  |%):.i:....H..Qa(|
000074f0  63 25 2c 56 64 25 29 3a  e7 63 25 3c 30 84 63 25  |c%,Vd%):.c%<0.c%|
00007500  3e 31 34 8c 85 31 2c 22  49 6c 6c 65 67 61 6c 20  |>14..1,"Illegal |
00007510  61 72 69 74 68 6d 65 74  69 63 20 6f 70 65 72 61  |arithmetic opera|
00007520  74 69 6f 6e 20 28 22 2b  c3 63 25 2b 22 29 22 0d  |tion ("+.c%+")".|
00007530  1f b8 20 e7 63 25 3d 31  33 8c 56 64 25 3d 59 62  |.. .c%=13.Vd%=Yb|
00007540  25 2b 28 32 35 35 2d 59  62 25 29 2a 32 35 36 0d  |%+(255-Yb%)*256.|
00007550  1f c2 10 f2 66 3a e7 4f  25 8c f2 63 28 b9 29 0d  |....f:.O%..c(.).|
00007560  1f cc 27 c8 99 38 39 32  36 31 37 2c 6a 64 25 2c  |..'..892617,jd%,|
00007570  55 25 2c 63 25 2c 56 64  25 3a f2 67 3a e7 4f 25  |U%,c%,Vd%:.g:.O%|
00007580  8c f2 63 28 30 29 0d 1f  d6 0f f2 61 28 50 25 29  |..c(0).....a(P%)|
00007590  3a f2 69 3a e1 0d 1f e0  6f dd f2 61 62 28 65 64  |:.i:....o..ab(ed|
000075a0  25 2c 66 64 25 2c 72 25  2c 67 64 25 2c 68 64 25  |%,fd%,r%,gd%,hd%|
000075b0  2c 69 64 25 2c 64 64 25  29 3a ea 57 64 25 2c 58  |,id%,dd%):.Wd%,X|
000075c0  64 25 2c 59 64 25 2c 69  25 2c 61 3a e7 64 64 25  |d%,Yd%,i%,a:.dd%|
000075d0  3d 31 30 84 64 64 25 3d  31 32 8c 57 64 25 3d 30  |=10.dd%=12.Wd%=0|
000075e0  3a 58 64 25 3d 30 3a 59  64 25 3d 30 8b 57 64 25  |:Xd%=0:Yd%=0.Wd%|
000075f0  3d 32 35 35 3a 58 64 25  3d 32 35 35 3a 59 64 25  |=255:Xd%=255:Yd%|
00007600  3d 32 35 35 0d 1f ea 30  e7 64 64 25 3d 31 30 84  |=255...0.dd%=10.|
00007610  64 64 25 3d 31 31 8c c8  94 57 64 25 2c 67 64 25  |dd%=11...Wd%,gd%|
00007620  3a c8 94 58 64 25 2c 68  64 25 3a c8 94 59 64 25  |:..Xd%,hd%:..Yd%|
00007630  2c 69 64 25 0d 1f f4 36  f2 6f 28 30 2c 22 22 29  |,id%...6.o(0,"")|
00007640  3a f2 42 3a f2 4d 28 67  64 25 2c 68 64 25 2c 69  |:.B:.M(gd%,hd%,i|
00007650  64 25 29 3a c8 93 c8 90  30 2c 30 2c 63 63 25 2c  |d%):....0,0,cc%,|
00007660  64 63 25 3a e7 72 25 3e  31 8c 0d 1f fe 5d e3 69  |dc%:.r%>1....].i|
00007670  25 3d 72 25 b8 31 88 2d  31 30 3a 61 3d 69 25 2f  |%=r%.1.-10:a=i%/|
00007680  72 25 3a f2 4d 28 57 64  25 2b 28 67 64 25 2d 57  |r%:.M(Wd%+(gd%-W|
00007690  64 25 29 2a 61 2c 58 64  25 2b 28 68 64 25 2d 58  |d%)*a,Xd%+(hd%-X|
000076a0  64 25 29 2a 61 2c 59 64  25 2b 28 69 64 25 2d 59  |d%)*a,Yd%+(id%-Y|
000076b0  64 25 29 2a 61 29 3a c8  8f c8 90 65 64 25 2c 66  |d%)*a):....ed%,f|
000076c0  64 25 2c 69 25 3a ed 0d  20 08 05 cd 0d 20 12 1f  |d%,i%:.. .... ..|
000076d0  f2 6e 3a f2 61 28 50 25  29 3a f2 78 28 5f 25 2c  |.n:.a(P%):.x(_%,|
000076e0  22 53 68 61 64 65 64 22  29 3a e1 0d 20 1c 93 dd  |"Shaded"):.. ...|
000076f0  f2 62 62 28 52 63 25 2c  53 63 25 2c 75 25 2c 7a  |.bb(Rc%,Sc%,u%,z|
00007700  63 25 2c 57 64 25 2c 58  64 25 2c 59 64 25 2c 64  |c%,Wd%,Xd%,Yd%,d|
00007710  64 25 29 3a ea 5a 64 25  2c 5f 64 25 2c 61 2c 60  |d%):.Zd%,_d%,a,`|
00007720  64 25 2c 61 65 25 2c 62  65 25 2c 63 65 25 2c 64  |d%,ae%,be%,ce%,d|
00007730  25 2c 70 2c 71 2c 69 25  2c 67 64 25 2c 68 64 25  |%,p,q,i%,gd%,hd%|
00007740  2c 69 64 25 2c 64 65 25  2c 65 65 25 3a e7 64 64  |,id%,de%,ee%:.dd|
00007750  25 3d 31 34 8c 67 64 25  3d 30 3a 68 64 25 3d 30  |%=14.gd%=0:hd%=0|
00007760  3a 69 64 25 3d 30 8b 67  64 25 3d 32 35 35 3a 68  |:id%=0.gd%=255:h|
00007770  64 25 3d 32 35 35 3a 69  64 25 3d 32 35 35 0d 20  |d%=255:id%=255. |
00007780  26 31 5a 64 25 3d 53 63  25 2d 7a 63 25 3a 5f 64  |&1Zd%=Sc%-zc%:_d|
00007790  25 3d 75 25 2d 52 63 25  3a e7 94 28 5f 64 25 2f  |%=u%-Rc%:..(_d%/|
000077a0  5a 64 25 29 3c 30 2e 30  31 8c 5f 64 25 3d 30 0d  |Zd%)<0.01._d%=0.|
000077b0  20 30 17 f2 66 3a f2 6f  28 30 2c 22 22 29 3a f2  | 0..f:.o(0,""):.|
000077c0  42 3a c8 8e b9 ca 0d 20  3a 30 c9 5a 64 25 3d 30  |B:..... :0.Zd%=0|
000077d0  80 5f 64 25 3d 30 3a f2  4d 28 67 64 25 2c 68 64  |._d%=0:.M(gd%,hd|
000077e0  25 2c 69 64 25 29 3a c8  93 c8 90 30 2c 30 2c 63  |%,id%):....0,0,c|
000077f0  63 25 2c 64 63 25 0d 20  44 37 c9 5f 64 25 3d 30  |c%,dc%. D7._d%=0|
00007800  3a e3 5f 64 25 3d 30 b8  64 63 25 88 31 32 3a 61  |:._d%=0.dc%.12:a|
00007810  3d 28 5f 64 25 2d 53 63  25 29 2f 28 7a 63 25 2d  |=(_d%-Sc%)/(zc%-|
00007820  53 63 25 29 3a e7 61 3c  30 8c 61 3d 30 0d 20 4e  |Sc%):.a<0.a=0. N|
00007830  0c e7 61 3e 31 8c 61 3d  31 0d 20 58 4a f2 4d 28  |..a>1.a=1. XJ.M(|
00007840  57 64 25 2b 28 67 64 25  2d 57 64 25 29 2a 61 2c  |Wd%+(gd%-Wd%)*a,|
00007850  58 64 25 2b 28 68 64 25  2d 58 64 25 29 2a 61 2c  |Xd%+(hd%-Xd%)*a,|
00007860  59 64 25 2b 28 69 64 25  2d 59 64 25 29 2a 61 29  |Yd%+(id%-Yd%)*a)|
00007870  3a c8 93 c8 90 30 2c 5f  64 25 2c 63 63 25 2c 31  |:....0,_d%,cc%,1|
00007880  31 3a ed 0d 20 62 36 c9  5a 64 25 3d 30 3a e3 5a  |1:.. b6.Zd%=0:.Z|
00007890  64 25 3d 30 b8 63 63 25  88 31 32 3a 61 3d 28 5a  |d%=0.cc%.12:a=(Z|
000078a0  64 25 2d 52 63 25 29 2f  28 75 25 2d 52 63 25 29  |d%-Rc%)/(u%-Rc%)|
000078b0  3a e7 61 3c 30 8c 61 3d  30 0d 20 6c 0c e7 61 3e  |:.a<0.a=0. l..a>|
000078c0  31 8c 61 3d 31 0d 20 76  4a f2 4d 28 57 64 25 2b  |1.a=1. vJ.M(Wd%+|
000078d0  28 67 64 25 2d 57 64 25  29 2a 61 2c 58 64 25 2b  |(gd%-Wd%)*a,Xd%+|
000078e0  28 68 64 25 2d 58 64 25  29 2a 61 2c 59 64 25 2b  |(hd%-Xd%)*a,Yd%+|
000078f0  28 69 64 25 2d 59 64 25  29 2a 61 29 3a c8 93 c8  |(id%-Yd%)*a):...|
00007900  90 5a 64 25 2c 30 2c 31  31 2c 64 63 25 3a ed 0d  |.Zd%,0,11,dc%:..|
00007910  20 80 1e 7f 3a e7 5f 64  25 3c 30 8c 5a 64 25 3d  | ...:._d%<0.Zd%=|
00007920  2d 5a 64 25 3a 5f 64 25  3d 2d 5f 64 25 0d 20 8a  |-Zd%:_d%=-_d%. .|
00007930  26 e7 5a 64 25 3e 30 8c  61 65 25 3d 64 63 25 3a  |&.Zd%>0.ae%=dc%:|
00007940  63 65 25 3d 30 8b 61 65  25 3d 30 3a 63 65 25 3d  |ce%=0.ae%=0:ce%=|
00007950  64 63 25 0d 20 94 9e 70  3d 5a 64 25 2f b6 28 5a  |dc%. ..p=Zd%/.(Z|
00007960  64 25 2a 5a 64 25 2b 5f  64 25 2a 5f 64 25 29 3a  |d%*Zd%+_d%*_d%):|
00007970  71 3d 5f 64 25 2f b6 28  5a 64 25 2a 5a 64 25 2b  |q=_d%/.(Zd%*Zd%+|
00007980  5f 64 25 2a 5f 64 25 29  3a 60 64 25 3d 2d 61 65  |_d%*_d%):`d%=-ae|
00007990  25 2a 70 2f 71 3a 62 65  25 3d 63 63 25 2d 63 65  |%*p/q:be%=cc%-ce|
000079a0  25 2a 70 2f 71 3a 64 65  25 3d 52 63 25 2d 53 63  |%*p/q:de%=Rc%-Sc|
000079b0  25 2a 70 2f 71 3a 65 65  25 3d 75 25 2d 7a 63 25  |%*p/q:ee%=u%-zc%|
000079c0  2a 70 2f 71 3a e3 69 25  3d 60 64 25 b8 62 65 25  |*p/q:.i%=`d%.be%|
000079d0  88 32 30 3a 61 3d 28 69  25 2d 64 65 25 29 2f 28  |.20:a=(i%-de%)/(|
000079e0  65 65 25 2d 64 65 25 29  3a e7 61 3c 30 8c 61 3d  |ee%-de%):.a<0.a=|
000079f0  30 0d 20 9e 0c e7 61 3e  31 8c 61 3d 31 0d 20 a8  |0. ...a>1.a=1. .|
00007a00  59 f2 4d 28 57 64 25 2b  28 67 64 25 2d 57 64 25  |Y.M(Wd%+(gd%-Wd%|
00007a10  29 2a 61 2c 58 64 25 2b  28 68 64 25 2d 58 64 25  |)*a,Xd%+(hd%-Xd%|
00007a20  29 2a 61 2c 59 64 25 2b  28 69 64 25 2d 59 64 25  |)*a,Yd%+(id%-Yd%|
00007a30  29 2a 61 29 3a ec 69 25  2c 30 3a ec 42 59 20 32  |)*a):.i%,0:.BY 2|
00007a40  30 2c 30 3a f0 31 31 33  2c 64 63 25 2a 70 2f 71  |0,0:.113,dc%*p/q|
00007a50  2c 64 63 25 3a ed 0d 20  b2 05 cb 0d 20 bc 22 f2  |,dc%:.. .... .".|
00007a60  6e 3a f2 61 28 50 25 29  3a f2 78 28 5f 25 2c 22  |n:.a(P%):.x(_%,"|
00007a70  53 68 61 64 65 64 22 29  3a f2 67 3a e1 0d 20 c6  |Shaded"):.g:.. .|
00007a80  1a dd f2 4d 28 57 64 25  2c 58 64 25 2c 59 64 25  |...M(Wd%,Xd%,Yd%|
00007a90  29 3a e7 42 62 25 8c 0d  20 d0 18 c8 99 38 39 32  |):.Bb%.. ....892|
00007aa0  36 37 32 2c 57 64 25 2c  58 64 25 2c 59 64 25 0d  |672,Wd%,Xd%,Yd%.|
00007ab0  20 da 34 cc 3a 65 25 3f  30 3d 30 3a 65 25 3f 31  | .4.:e%?0=0:e%?1|
00007ac0  3d 57 64 25 3a 65 25 3f  32 3d 58 64 25 3a 65 25  |=Wd%:e%?2=Xd%:e%|
00007ad0  3f 33 3d 59 64 25 3a c8  99 32 36 34 30 30 33 2c  |?3=Yd%:..264003,|
00007ae0  21 65 25 0d 20 e4 05 cd  0d 20 ee 05 e1 0d 20 f8  |!e%. .... .... .|
00007af0  1a dd f2 71 62 28 73 25  2c 66 65 25 29 3a ea 63  |...qb(s%,fe%):.c|
00007b00  25 3a c8 8e 73 25 ca 0d  21 02 0d c9 30 3a c8 8e  |%:..s%..!...0:..|
00007b10  66 65 25 ca 0d 21 0c 0f  c9 30 3a f2 4e 28 30 2e  |fe%..!...0:.N(0.|
00007b20  38 35 29 0d 21 16 0f c9  31 3a f2 4e 28 30 2e 36  |85).!...1:.N(0.6|
00007b30  30 29 0d 21 20 0f c9 32  3a f2 4e 28 30 2e 33 35  |0).! ..2:.N(0.35|
00007b40  29 0d 21 2a 05 cb 0d 21  34 0d c9 31 3a c8 8e 66  |).!*...!4..1:..f|
00007b50  65 25 ca 0d 21 3e 0f c9  30 3a f2 4e 28 31 2e 32  |e%..!>..0:.N(1.2|
00007b60  30 29 0d 21 48 0f c9 31  3a f2 4e 28 31 2e 36 30  |0).!H..1:.N(1.60|
00007b70  29 0d 21 52 0f c9 32 3a  f2 4e 28 32 2e 30 30 29  |).!R..2:.N(2.00)|
00007b80  0d 21 5c 05 cb 0d 21 66  1e c9 32 3a e7 67 65 25  |.!\...!f..2:.ge%|
00007b90  3d 32 8c f2 49 61 28 55  25 29 8b f2 49 61 28 6a  |=2..Ia(U%)..Ia(j|
00007ba0  64 25 29 0d 21 70 0a c9  33 3a f2 72 62 0d 21 7a  |d%).!p..3:.rb.!z|
00007bb0  0a c9 34 3a f2 73 62 0d  21 84 24 c9 35 3a 60 25  |..4:.sb.!.$.5:`%|
00007bc0  3d 30 3a 6b 62 25 3d 30  3a 6c 62 25 3d 30 3a 6d  |=0:kb%=0:lb%=0:m|
00007bd0  62 25 3d 30 3a e7 57 25  3d 30 8c 0d 21 8e 77 e3  |b%=0:.W%=0..!.w.|
00007be0  63 25 3d 30 b8 31 35 3a  60 25 2b 3d 31 36 2a 63  |c%=0.15:`%+=16*c|
00007bf0  25 2a 21 28 6d 61 25 2b  34 2a 63 25 29 2f 28 77  |%*!(ma%+4*c%)/(w|
00007c00  64 25 2a 6b 64 25 29 3a  6b 62 25 2b 3d 31 36 2a  |d%*kd%):kb%+=16*|
00007c10  63 25 2a 21 28 6d 61 25  2b 36 34 2b 34 2a 63 25  |c%*!(ma%+64+4*c%|
00007c20  29 2f 28 77 64 25 2a 6b  64 25 29 3a 6c 62 25 2b  |)/(wd%*kd%):lb%+|
00007c30  3d 31 36 2a 63 25 2a 21  28 6d 61 25 2b 31 32 38  |=16*c%*!(ma%+128|
00007c40  2b 34 2a 63 25 29 2f 28  77 64 25 2a 6b 64 25 29  |+4*c%)/(wd%*kd%)|
00007c50  3a ed 0d 21 98 2f cc 3a  e3 63 25 3d 30 b8 32 35  |:..!./.:.c%=0.25|
00007c60  35 3a 6d 62 25 2b 3d 63  25 2a 21 28 6d 61 25 2b  |5:mb%+=c%*!(ma%+|
00007c70  34 2a 63 25 29 2f 28 77  64 25 2a 6b 64 25 29 3a  |4*c%)/(wd%*kd%):|
00007c80  ed 0d 21 a2 05 cd 0d 21  ac 12 f2 47 28 2d 31 29  |..!....!...G(-1)|
00007c90  3a f2 6b 28 4a 63 25 29  0d 21 b6 0e c9 36 3a f2  |:.k(Jc%).!...6:.|
00007ca0  77 28 51 62 25 29 0d 21  c0 05 cb 0d 21 ca 05 e1  |w(Qb%).!....!...|
00007cb0  0d 21 d4 12 dd f2 49 61  28 64 25 29 3a e7 65 62  |.!....Ia(d%):.eb|
00007cc0  25 8c 0d 21 de 1e c8 99  38 39 32 36 31 36 2c 2c  |%..!....892616,,|
00007cd0  64 25 2c 6d 61 25 3a 65  62 25 3d 30 3a f2 4a 61  |d%,ma%:eb%=0:.Ja|
00007ce0  0d 21 e8 05 cd 0d 21 f2  15 f2 77 28 4a 63 25 29  |.!....!...w(Jc%)|
00007cf0  3a f2 6b 28 4a 63 25 29  3a e1 0d 21 fc 1c dd f2  |:.k(Jc%):..!....|
00007d00  4a 61 3a ea 68 25 2c 76  25 3a 4b 63 25 3d 30 3a  |Ja:.h%,v%:Kc%=0:|
00007d10  e7 57 25 3d 30 8c 0d 22  06 3c e3 68 25 3d 30 b8  |.W%=0..".<.h%=0.|
00007d20  31 35 3a 76 25 3d 6d 61  25 21 28 36 34 2a 28 73  |15:v%=ma%!(64*(s|
00007d30  62 25 2d 31 29 2b 31 39  32 2a 74 62 25 2b 34 2a  |b%-1)+192*tb%+4*|
00007d40  68 25 29 3a e7 76 25 3e  4b 63 25 8c 4b 63 25 3d  |h%):.v%>Kc%.Kc%=|
00007d50  76 25 0d 22 10 05 ed 0d  22 1a 35 cc 3a e3 68 25  |v%."....".5.:.h%|
00007d60  3d 30 b8 32 35 35 3a 76  25 3d 6d 61 25 21 28 31  |=0.255:v%=ma%!(1|
00007d70  30 32 34 2a 74 62 25 2b  34 2a 68 25 29 3a e7 76  |024*tb%+4*h%):.v|
00007d80  25 3e 4b 63 25 8c 4b 63  25 3d 76 25 0d 22 24 05  |%>Kc%.Kc%=v%."$.|
00007d90  ed 0d 22 2e 05 cd 0d 22  38 05 e1 0d 22 42 15 dd  |.."...."8..."B..|
00007da0  f2 72 62 3a f2 66 3a e7  4f 25 8c f2 63 28 b9 29  |.rb:.f:.O%..c(.)|
00007db0  0d 22 4c 11 e7 57 25 3d  30 8c f2 74 62 8b f2 75  |."L..W%=0..tb..u|
00007dc0  62 0d 22 56 10 f2 67 3a  e7 4f 25 8c f2 63 28 a3  |b."V..g:.O%..c(.|
00007dd0  29 0d 22 60 35 c8 99 38  39 32 36 31 32 2c 6a 64  |)."`5..892612,jd|
00007de0  25 2c 55 25 2c 4c 25 3a  f2 78 28 5f 25 2c 22 53  |%,U%,L%:.x(_%,"S|
00007df0  74 72 65 74 63 68 65 64  22 29 3a f2 61 28 50 25  |tretched"):.a(P%|
00007e00  29 3a f2 69 3a e1 0d 22  6a 59 dd f2 75 62 3a ea  |):.i:.."jY..ub:.|
00007e10  71 25 2c 59 25 2c 62 2c  68 65 25 3a 68 65 25 3d  |q%,Y%,b,he%:he%=|
00007e20  73 62 25 3a e7 64 25 28  68 65 25 2c 32 29 3d 64  |sb%:.d%(he%,2)=d|
00007e30  25 28 68 65 25 2c 31 29  8c 85 31 2c 22 54 68 65  |%(he%,1)..1,"The|
00007e40  20 68 69 73 74 6f 67 72  61 6d 20 63 61 6e 6e 6f  | histogram canno|
00007e50  74 20 62 65 20 73 74 72  65 74 63 68 65 64 22 0d  |t be stretched".|
00007e60  22 74 50 e3 71 25 3d 30  b8 32 35 35 3a 62 3d b3  |"tP.q%=0.255:b=.|
00007e70  28 31 36 29 2d 38 3a 59  25 3d 62 2b 32 35 35 2a  |(16)-8:Y%=b+255*|
00007e80  28 71 25 2d 64 25 28 68  65 25 2c 31 29 29 2f 28  |(q%-d%(he%,1))/(|
00007e90  64 25 28 68 65 25 2c 32  29 2d 64 25 28 68 65 25  |d%(he%,2)-d%(he%|
00007ea0  2c 31 29 29 3a e7 59 25  3c 30 8c 59 25 3d 30 0d  |,1)):.Y%<0.Y%=0.|
00007eb0  22 7e 12 e7 59 25 3e 32  35 35 8c 59 25 3d 32 35  |"~..Y%>255.Y%=25|
00007ec0  35 0d 22 88 10 4c 25 3f  71 25 3d 59 25 3a ed 3a  |5."..L%?q%=Y%:.:|
00007ed0  e1 0d 22 92 9a dd f2 74  62 3a ea 71 25 2c 48 25  |.."....tb:.q%,H%|
00007ee0  2c 4a 25 2c 4b 25 2c 73  25 28 29 2c 6c 25 2c 62  |,J%,K%,s%(),l%,b|
00007ef0  3a de 73 25 28 33 2c 32  29 3a e3 6c 25 3d 31 b8  |:.s%(3,2):.l%=1.|
00007f00  33 3a 73 25 28 6c 25 2c  31 29 3d 64 25 28 6c 25  |3:s%(l%,1)=d%(l%|
00007f10  2c 31 29 2a 31 36 2b 31  35 3a 73 25 28 6c 25 2c  |,1)*16+15:s%(l%,|
00007f20  32 29 3d 64 25 28 6c 25  2c 32 29 2a 31 36 2b 31  |2)=d%(l%,2)*16+1|
00007f30  35 3a ed 3a e7 73 25 28  31 2c 31 29 3d 73 25 28  |5:.:.s%(1,1)=s%(|
00007f40  31 2c 32 29 8c 85 31 2c  22 52 45 44 20 68 69 73  |1,2)..1,"RED his|
00007f50  74 6f 67 72 61 6d 20 63  61 6e 6e 6f 74 20 62 65  |togram cannot be|
00007f60  20 73 74 72 65 74 63 68  65 64 22 0d 22 9c 3d e7  | stretched".".=.|
00007f70  73 25 28 32 2c 31 29 3d  73 25 28 32 2c 32 29 8c  |s%(2,1)=s%(2,2).|
00007f80  85 31 2c 22 47 52 45 45  4e 20 68 69 73 74 6f 67  |.1,"GREEN histog|
00007f90  72 61 6d 20 63 61 6e 6e  6f 74 20 62 65 20 73 74  |ram cannot be st|
00007fa0  72 65 74 63 68 65 64 22  0d 22 a6 3c e7 73 25 28  |retched".".<.s%(|
00007fb0  33 2c 31 29 3d 73 25 28  33 2c 32 29 8c 85 31 2c  |3,1)=s%(3,2)..1,|
00007fc0  22 42 4c 55 45 20 68 69  73 74 6f 67 72 61 6d 20  |"BLUE histogram |
00007fd0  63 61 6e 6e 6f 74 20 62  65 20 73 74 72 65 74 63  |cannot be stretc|
00007fe0  68 65 64 22 0d 22 b0 72  e3 71 25 3d 30 b8 32 35  |hed".".r.q%=0.25|
00007ff0  35 3a 62 3d b3 28 31 36  29 2d 38 3a c8 99 38 39  |5:b=.(16)-8:..89|
00008000  32 36 31 30 2c 71 25 b8  21 65 25 3a 48 25 3d 65  |2610,q%.!e%:H%=e|
00008010  25 3f 31 3a 4a 25 3d 65  25 3f 32 3a 4b 25 3d 65  |%?1:J%=e%?2:K%=e|
00008020  25 3f 33 3a 48 25 3d 62  2b 32 35 35 2a 28 48 25  |%?3:H%=b+255*(H%|
00008030  2d 73 25 28 31 2c 31 29  29 2f 28 73 25 28 31 2c  |-s%(1,1))/(s%(1,|
00008040  32 29 2d 73 25 28 31 2c  31 29 29 3a e7 48 25 3c  |2)-s%(1,1)):.H%<|
00008050  30 8c 48 25 3d 30 0d 22  ba 12 e7 48 25 3e 32 35  |0.H%=0."...H%>25|
00008060  35 8c 48 25 3d 32 35 35  0d 22 c4 36 4a 25 3d 62  |5.H%=255.".6J%=b|
00008070  2b 32 35 35 2a 28 4a 25  2d 73 25 28 32 2c 31 29  |+255*(J%-s%(2,1)|
00008080  29 2f 28 73 25 28 32 2c  32 29 2d 73 25 28 32 2c  |)/(s%(2,2)-s%(2,|
00008090  31 29 29 3a e7 4a 25 3c  30 8c 4a 25 3d 30 0d 22  |1)):.J%<0.J%=0."|
000080a0  ce 12 e7 4a 25 3e 32 35  35 8c 4a 25 3d 32 35 35  |...J%>255.J%=255|
000080b0  0d 22 d8 36 4b 25 3d 62  2b 32 35 35 2a 28 4b 25  |.".6K%=b+255*(K%|
000080c0  2d 73 25 28 33 2c 31 29  29 2f 28 73 25 28 33 2c  |-s%(3,1))/(s%(3,|
000080d0  32 29 2d 73 25 28 33 2c  31 29 29 3a e7 4b 25 3c  |2)-s%(3,1)):.K%<|
000080e0  30 8c 4b 25 3d 30 0d 22  e2 12 e7 4b 25 3e 32 35  |0.K%=0."...K%>25|
000080f0  35 8c 4b 25 3d 32 35 35  0d 22 ec 39 65 25 21 30  |5.K%=255.".9e%!0|
00008100  3d 30 3a 65 25 3f 31 3d  48 25 3a 65 25 3f 32 3d  |=0:e%?1=H%:e%?2=|
00008110  4a 25 3a 65 25 3f 33 3d  4b 25 3a c8 99 38 39 32  |J%:e%?3=K%:..892|
00008120  36 31 31 2c 21 65 25 b8  4c 25 3f 71 25 3a ed 3a  |611,!e%.L%?q%:.:|
00008130  e1 0d 22 f6 15 dd f2 73  62 3a f2 66 3a e7 4f 25  |.."....sb:.f:.O%|
00008140  8c f2 63 28 b9 29 0d 23  00 11 e7 57 25 3d 30 8c  |..c(.).#...W%=0.|
00008150  f2 76 62 8b f2 77 62 0d  23 0a 10 f2 67 3a e7 4f  |.vb..wb.#...g:.O|
00008160  25 8c f2 63 28 a3 29 0d  23 14 35 c8 99 38 39 32  |%..c(.).#.5..892|
00008170  36 31 32 2c 6a 64 25 2c  55 25 2c 4c 25 3a f2 78  |612,jd%,U%,L%:.x|
00008180  28 5f 25 2c 22 45 71 75  61 6c 69 7a 65 64 22 29  |(_%,"Equalized")|
00008190  3a f2 61 28 50 25 29 3a  f2 69 3a e1 0d 23 1e 7e  |:.a(P%):.i:..#.~|
000081a0  dd f2 77 62 3a ea 71 25  2c 6a 2c 68 25 2c 69 65  |..wb:.q%,j,h%,ie|
000081b0  25 2c 62 2c 6a 65 25 2c  6c 2c 68 25 2c 6b 65 25  |%,b,je%,l,h%,ke%|
000081c0  3a 68 25 3d 6d 61 25 2b  31 30 32 34 3a 69 65 25  |:h%=ma%+1024:ie%|
000081d0  3d 77 64 25 2a 6b 64 25  3a e3 71 25 3d 30 b8 32  |=wd%*kd%:.q%=0.2|
000081e0  35 35 3a 62 3d b3 28 32  29 2d 31 3a 6a 3d 71 25  |55:b=.(2)-1:j=q%|
000081f0  3a 6a 65 25 3d 6a 2b 62  3a 6b 65 25 3d 68 25 21  |:je%=j+b:ke%=h%!|
00008200  28 34 2a 6a 65 25 2b 34  29 3a e7 6a 65 25 3d 32  |(4*je%+4):.je%=2|
00008210  35 35 8c 6b 65 25 3d 69  65 25 0d 23 28 3b 6c 3d  |55.ke%=ie%.#(;l=|
00008220  68 25 21 28 34 2a 6a 65  25 29 2a 28 31 2d 6a 2b  |h%!(4*je%)*(1-j+|
00008230  6a 65 25 29 2b 6b 65 25  2a 28 6a 2d 6a 65 25 29  |je%)+ke%*(j-je%)|
00008240  3a 6a 3d 32 35 35 2a 6c  2f 69 65 25 3a e7 6a 3c  |:j=255*l/ie%:.j<|
00008250  30 8c 6a 3d 30 0d 23 32  10 e7 6a 3e 32 35 35 8c  |0.j=0.#2..j>255.|
00008260  6a 3d 32 35 35 0d 23 3c  13 4c 25 3f 71 25 3d 32  |j=255.#<.L%?q%=2|
00008270  35 35 2d 6a 3a ed 3a e1  0d 23 46 b7 dd f2 76 62  |55-j:.:..#F...vb|
00008280  3a ea 71 25 2c 63 2c 64  2c 65 2c 68 25 2c 69 65  |:.q%,c,d,e,h%,ie|
00008290  25 2c 62 2c 6a 65 25 2c  6c 2c 6c 65 25 2c 6b 65  |%,b,je%,l,le%,ke|
000082a0  25 3a 6c 65 25 3d 6d 61  25 2b 31 39 32 3a 69 65  |%:le%=ma%+192:ie|
000082b0  25 3d 77 64 25 2a 6b 64  25 3a e3 71 25 3d 30 b8  |%=wd%*kd%:.q%=0.|
000082c0  32 35 35 3a f2 44 28 31  30 30 2a 71 25 2f 32 35  |255:.D(100*q%/25|
000082d0  36 29 3a 62 3d b3 28 31  29 2d 30 2e 35 3a c8 99  |6):b=.(1)-0.5:..|
000082e0  38 39 32 36 31 30 2c 71  25 b8 21 65 25 3a 63 3d  |892610,q%.!e%:c=|
000082f0  65 25 3f 31 3a 64 3d 65  25 3f 32 3a 65 3d 65 25  |e%?1:d=e%?2:e=e%|
00008300  3f 33 3a 63 3d 28 63 2d  31 35 29 2f 31 36 3a 64  |?3:c=(c-15)/16:d|
00008310  3d 28 64 2d 31 35 29 2f  31 36 3a 65 3d 28 65 2d  |=(d-15)/16:e=(e-|
00008320  31 35 29 2f 31 36 3a e7  63 3c 30 8c 63 3d 30 0d  |15)/16:.c<0.c=0.|
00008330  23 50 0c e7 64 3c 30 8c  64 3d 30 0d 23 5a 0c e7  |#P..d<0.d=0.#Z..|
00008340  65 3c 30 8c 65 3d 30 0d  23 64 33 68 25 3d 6c 65  |e<0.e=0.#d3h%=le|
00008350  25 3a 6a 65 25 3d 63 2b  62 3a 6b 65 25 3d 68 25  |%:je%=c+b:ke%=h%|
00008360  21 28 34 2a 6a 65 25 2b  34 29 3a e7 6a 65 25 3d  |!(4*je%+4):.je%=|
00008370  31 35 8c 6b 65 25 3d 69  65 25 0d 23 6e 3b 6c 3d  |15.ke%=ie%.#n;l=|
00008380  68 25 21 28 34 2a 6a 65  25 29 2a 28 31 2d 63 2b  |h%!(4*je%)*(1-c+|
00008390  6a 65 25 29 2b 6b 65 25  2a 28 63 2d 6a 65 25 29  |je%)+ke%*(c-je%)|
000083a0  3a 63 3d 32 35 35 2a 6c  2f 69 65 25 3a e7 63 3c  |:c=255*l/ie%:.c<|
000083b0  30 8c 63 3d 30 0d 23 78  10 e7 63 3e 32 35 35 8c  |0.c=0.#x..c>255.|
000083c0  63 3d 32 35 35 0d 23 82  36 68 25 3d 6c 65 25 2b  |c=255.#.6h%=le%+|
000083d0  36 34 3a 6a 65 25 3d 64  2b 62 3a 6b 65 25 3d 68  |64:je%=d+b:ke%=h|
000083e0  25 21 28 34 2a 6a 65 25  2b 34 29 3a e7 6a 65 25  |%!(4*je%+4):.je%|
000083f0  3d 31 35 8c 6b 65 25 3d  69 65 25 0d 23 8c 3b 6c  |=15.ke%=ie%.#.;l|
00008400  3d 68 25 21 28 34 2a 6a  65 25 29 2a 28 31 2d 64  |=h%!(4*je%)*(1-d|
00008410  2b 6a 65 25 29 2b 6b 65  25 2a 28 64 2d 6a 65 25  |+je%)+ke%*(d-je%|
00008420  29 3a 64 3d 32 35 35 2a  6c 2f 69 65 25 3a e7 64  |):d=255*l/ie%:.d|
00008430  3c 30 8c 64 3d 30 0d 23  96 10 e7 64 3e 32 35 35  |<0.d=0.#...d>255|
00008440  8c 64 3d 32 35 35 0d 23  a0 37 68 25 3d 6c 65 25  |.d=255.#.7h%=le%|
00008450  2b 31 32 38 3a 6a 65 25  3d 65 2b 62 3a 6b 65 25  |+128:je%=e+b:ke%|
00008460  3d 68 25 21 28 34 2a 6a  65 25 2b 34 29 3a e7 6a  |=h%!(4*je%+4):.j|
00008470  65 25 3d 31 35 8c 6b 65  25 3d 69 65 25 0d 23 aa  |e%=15.ke%=ie%.#.|
00008480  3b 6c 3d 68 25 21 28 34  2a 6a 65 25 29 2a 28 31  |;l=h%!(4*je%)*(1|
00008490  2d 65 2b 6a 65 25 29 2b  6b 65 25 2a 28 65 2d 6a  |-e+je%)+ke%*(e-j|
000084a0  65 25 29 3a 65 3d 32 35  35 2a 6c 2f 69 65 25 3a  |e%):e=255*l/ie%:|
000084b0  e7 65 3c 30 8c 65 3d 30  0d 23 b4 10 e7 65 3e 32  |.e<0.e=0.#...e>2|
000084c0  35 35 8c 65 3d 32 35 35  0d 23 be 42 65 25 21 30  |55.e=255.#.Be%!0|
000084d0  3d 30 3a 65 25 3f 31 3d  32 35 35 2d 63 3a 65 25  |=0:e%?1=255-c:e%|
000084e0  3f 32 3d 32 35 35 2d 64  3a 65 25 3f 33 3d 32 35  |?2=255-d:e%?3=25|
000084f0  35 2d 65 3a c8 99 38 39  32 36 31 31 2c 21 65 25  |5-e:..892611,!e%|
00008500  b8 4c 25 3f 71 25 3a ed  3a e1 0d 23 c8 27 dd f2  |.L%?q%:.:..#.'..|
00008510  4e 28 73 29 3a ea 71 25  2c 48 25 2c 4a 25 2c 4b  |N(s):.q%,H%,J%,K|
00008520  25 2c 59 25 3a f2 66 3a  e7 4f 25 8c f2 63 28 b9  |%,Y%:.f:.O%..c(.|
00008530  29 0d 23 d2 0a e7 57 25  3d 30 8c 0d 23 dc 52 e3  |).#...W%=0..#.R.|
00008540  71 25 3d 30 b8 32 35 35  3a c8 99 38 39 32 36 31  |q%=0.255:..89261|
00008550  30 2c 71 25 b8 21 65 25  3a 48 25 3d 65 25 3f 31  |0,q%.!e%:H%=e%?1|
00008560  3a 4a 25 3d 65 25 3f 32  3a 4b 25 3d 65 25 3f 33  |:J%=e%?2:K%=e%?3|
00008570  3a 48 25 3d 28 48 25 2d  31 32 38 29 2a 73 2b 31  |:H%=(H%-128)*s+1|
00008580  32 38 3a e7 48 25 3c 30  8c 48 25 3d 30 0d 23 e6  |28:.H%<0.H%=0.#.|
00008590  12 e7 48 25 3e 32 35 35  8c 48 25 3d 32 35 35 0d  |..H%>255.H%=255.|
000085a0  23 f0 20 4a 25 3d 28 4a  25 2d 31 32 38 29 2a 73  |#. J%=(J%-128)*s|
000085b0  2b 31 32 38 3a e7 4a 25  3c 30 8c 4a 25 3d 30 0d  |+128:.J%<0.J%=0.|
000085c0  23 fa 12 e7 4a 25 3e 32  35 35 8c 4a 25 3d 32 35  |#...J%>255.J%=25|
000085d0  35 0d 24 04 20 4b 25 3d  28 4b 25 2d 31 32 38 29  |5.$. K%=(K%-128)|
000085e0  2a 73 2b 31 32 38 3a e7  4b 25 3c 30 8c 4b 25 3d  |*s+128:.K%<0.K%=|
000085f0  30 0d 24 0e 12 e7 4b 25  3e 32 35 35 8c 4b 25 3d  |0.$...K%>255.K%=|
00008600  32 35 35 0d 24 18 37 65  25 21 30 3d 30 3a 65 25  |255.$.7e%!0=0:e%|
00008610  3f 31 3d 48 25 3a 65 25  3f 32 3d 4a 25 3a 65 25  |?1=H%:e%?2=J%:e%|
00008620  3f 33 3d 4b 25 3a c8 99  38 39 32 36 31 31 2c 21  |?3=K%:..892611,!|
00008630  65 25 b8 4c 25 3f 71 25  3a ed 0d 24 22 2c cc 3a  |e%.L%?q%:..$",.:|
00008640  e3 71 25 3d 30 b8 32 35  35 3a 59 25 3d 28 71 25  |.q%=0.255:Y%=(q%|
00008650  2d 31 32 38 29 2a 73 2b  31 32 38 3a e7 59 25 3c  |-128)*s+128:.Y%<|
00008660  30 8c 59 25 3d 30 0d 24  2c 12 e7 59 25 3e 32 35  |0.Y%=0.$,..Y%>25|
00008670  35 8c 59 25 3d 32 35 35  0d 24 36 0e 4c 25 3f 71  |5.Y%=255.$6.L%?q|
00008680  25 3d 59 25 3a ed 0d 24  40 05 cd 0d 24 4a 10 f2  |%=Y%:..$@...$J..|
00008690  67 3a e7 4f 25 8c f2 63  28 a3 29 0d 24 54 22 c8  |g:.O%..c(.).$T".|
000086a0  99 38 39 32 36 31 32 2c  6a 64 25 2c 55 25 2c 4c  |.892612,jd%,U%,L|
000086b0  25 3a f2 61 28 50 25 29  3a f2 69 3a e1 0d 24 5e  |%:.a(P%):.i:..$^|
000086c0  3d dd f2 4b 61 3a ea 6d  65 25 2c 63 25 2c 6f 2c  |=..Ka:.me%,c%,o,|
000086d0  6e 65 25 2c 6f 65 25 2c  70 65 25 3a 6d 65 25 3d  |ne%,oe%,pe%:me%=|
000086e0  bb 28 a4 73 28 4a 62 25  29 29 3a e7 6d 65 25 3c  |.(.s(Jb%)):.me%<|
000086f0  32 84 6d 65 25 3e 32 30  8c e1 0d 24 68 26 70 65  |2.me%>20...$h&pe|
00008700  25 3d bb 28 a4 73 28 4c  62 25 29 29 3a e7 70 65  |%=.(.s(Lb%)):.pe|
00008710  25 3c 2d 33 36 30 84 70  65 25 3e 33 36 30 8c e1  |%<-360.pe%>360..|
00008720  0d 24 72 20 6f 3d bb 28  a4 73 28 4d 62 25 29 29  |.$r o=.(.s(Mb%))|
00008730  3a e7 6f 3c 30 2e 31 84  6f 3e 30 2e 39 39 8c e1  |:.o<0.1.o>0.99..|
00008740  0d 24 7c 26 6e 65 25 3d  bb 28 a4 73 28 4e 62 25  |.$|&ne%=.(.s(Nb%|
00008750  29 29 3a e7 6e 65 25 3c  2d 35 30 30 84 6e 65 25  |)):.ne%<-500.ne%|
00008760  3e 35 30 30 8c e1 0d 24  86 26 6f 65 25 3d bb 28  |>500...$.&oe%=.(|
00008770  a4 73 28 4f 62 25 29 29  3a e7 6f 65 25 3c 2d 35  |.s(Ob%)):.oe%<-5|
00008780  30 30 84 6f 65 25 3e 35  30 30 8c e1 0d 24 90 10  |00.oe%>500...$..|
00008790  f2 66 3a e7 4f 25 8c f2  63 28 b9 29 0d 24 9a 4f  |.f:.O%..c(.).$.O|
000087a0  e3 63 25 3d 30 b8 6d 65  25 2d 31 3a f2 44 28 30  |.c%=0.me%-1:.D(0|
000087b0  30 2a 63 25 2f 6d 65 25  29 3a f2 69 62 28 70 65  |0*c%/me%):.ib(pe|
000087c0  25 2a 63 25 2c 6f 5e 63  25 2c 6e 65 25 2a 63 25  |%*c%,o^c%,ne%*c%|
000087d0  2c 6f 65 25 2a 63 25 2c  30 2c b9 29 3a ed 3a f2  |,oe%*c%,0,.):.:.|
000087e0  67 3a e7 4f 25 8c f2 63  28 30 29 0d 24 a4 20 f2  |g:.O%..c(0).$. .|
000087f0  78 28 5f 25 2c 22 54 77  69 73 74 65 64 22 29 3a  |x(_%,"Twisted"):|
00008800  f2 69 3a f2 61 28 50 25  29 3a e1 0d 24 ae 5b dd  |.i:.a(P%):..$.[.|
00008810  f2 44 61 28 78 25 2c 79  25 29 3a ea 71 65 25 2c  |.Da(x%,y%):.qe%,|
00008820  72 65 25 2c 4d 25 2c 70  25 3a 78 25 3d 78 25 2a  |re%,M%,p%:x%=x%*|
00008830  31 30 30 2f 28 61 25 28  6f 25 2c 34 29 2a 54 25  |100/(a%(o%,4)*T%|
00008840  29 3a 79 25 3d 79 25 2a  31 30 30 2f 28 61 25 28  |):y%=y%*100/(a%(|
00008850  6f 25 2c 35 29 2a 4e 25  29 3a e7 78 25 3c 31 84  |o%,5)*N%):.x%<1.|
00008860  79 25 3c 31 8c e1 0d 24  b8 32 71 65 25 3d 63 63  |y%<1...$.2qe%=cc|
00008870  25 2f 28 78 25 2a 54 25  29 3a 72 65 25 3d 64 63  |%/(x%*T%):re%=dc|
00008880  25 2f 28 79 25 2a 4e 25  29 3a e7 71 65 25 3c 32  |%/(y%*N%):.qe%<2|
00008890  84 72 65 25 3c 32 8c e1  0d 24 c2 24 4d 25 3d 35  |.re%<2...$.$M%=5|
000088a0  30 30 2b 28 71 65 25 2b  34 29 2a 28 72 65 25 2b  |00+(qe%+4)*(re%+|
000088b0  34 29 3a e7 4d 25 3c 38  30 30 30 8c 0d 24 cc 09  |4):.M%<8000..$..|
000088c0  70 25 3d 5a 25 0d 24 d6  4d cc 3a 70 25 3d a4 62  |p%=Z%.$.M.:p%=.b|
000088d0  28 4d 25 29 3a e7 70 25  3c 3d 30 8c 85 31 2c 22  |(M%):.p%<=0..1,"|
000088e0  4e 6f 74 20 61 62 6c 65  20 74 6f 20 63 6c 61 69  |Not able to clai|
000088f0  6d 20 77 6f 72 6b 73 70  61 63 65 20 66 6f 72 20  |m workspace for |
00008900  74 68 65 20 6d 6f 73 61  69 63 20 65 66 66 65 63  |the mosaic effec|
00008910  74 22 0d 24 e0 05 cd 0d  24 ea e5 70 25 21 30 3d  |t".$....$..p%!0=|
00008920  4d 25 3a 70 25 21 34 3d  30 3a 70 25 21 38 3d 31  |M%:p%!4=0:p%!8=1|
00008930  36 3a 70 25 21 31 32 3d  31 36 3a c8 99 34 36 2c  |6:p%!12=16:..46,|
00008940  32 35 36 2b 31 35 2c 70  25 2c 22 54 45 4d 50 22  |256+15,p%,"TEMP"|
00008950  2c 30 2c 71 65 25 2c 72  65 25 2c 73 65 25 3a 65  |,0,qe%,re%,se%:e|
00008960  25 21 30 3d 71 65 25 3a  65 25 21 34 3d 72 65 25  |%!0=qe%:e%!4=re%|
00008970  3a 65 25 21 38 3d 63 63  25 2f 54 25 3a 65 25 21  |:e%!8=cc%/T%:e%!|
00008980  31 32 3d 64 63 25 2f 4e  25 3a f2 6f 28 70 25 2c  |12=dc%/N%:.o(p%,|
00008990  22 54 45 4d 50 22 29 3a  c8 99 31 33 31 31 31 38  |"TEMP"):..131118|
000089a0  2c 33 30 38 2c 61 25 28  6f 25 2c 32 29 2c 61 24  |,308,a%(o%,2),a$|
000089b0  28 6f 25 2c 31 29 2c 30  2c 30 2c 38 2c 65 25 2c  |(o%,1),0,0,8,e%,|
000089c0  2d 31 3a f2 6e 3a 65 25  21 30 3d 63 63 25 2f 54  |-1:.n:e%!0=cc%/T|
000089d0  25 3a 65 25 21 34 3d 64  63 25 2f 4e 25 3a 65 25  |%:e%!4=dc%/N%:e%|
000089e0  21 38 3d 71 65 25 3a 65  25 21 31 32 3d 72 65 25  |!8=qe%:e%!12=re%|
000089f0  3a f2 6f 28 30 2c 22 22  29 3a f2 42 0d 24 f4 45  |:.o(0,""):.B.$.E|
00008a00  c8 99 31 33 31 31 31 38  2c 32 35 36 2b 35 32 2c  |..131118,256+52,|
00008a10  70 25 2c 22 54 45 4d 50  22 2c 30 2c 30 2c 38 2c  |p%,"TEMP",0,0,8,|
00008a20  65 25 2c 2d 31 3a f2 6e  3a f2 61 28 50 25 29 3a  |e%,-1:.n:.a(P%):|
00008a30  f2 69 3a e7 70 25 3c 3e  5a 25 8c f2 58 28 70 25  |.i:.p%<>Z%..X(p%|
00008a40  29 0d 24 fe 05 e1 0d 25  08 32 dd f2 78 62 28 6d  |).$....%.2..xb(m|
00008a50  65 25 2c 74 65 25 2c 62  29 3a ea 47 25 2c 71 65  |e%,te%,b):.G%,qe|
00008a60  25 2c 72 65 25 2c 78 25  2c 79 25 3a f2 66 3a e7  |%,re%,x%,y%:.f:.|
00008a70  4f 25 8c f2 63 28 b9 29  0d 25 12 c5 f2 6f 28 30  |O%..c(.).%...o(0|
00008a80  2c 22 22 29 3a f2 6b 62  3a e6 36 33 c8 9c 32 35  |,""):.kb:.63..25|
00008a90  35 3a c8 93 c8 90 30 2c  30 2c 75 64 25 2c 76 64  |5:....0,0,ud%,vd|
00008aa0  25 3a e3 78 25 3d 31 b8  77 64 25 88 6d 65 25 2f  |%:.x%=1.wd%.me%/|
00008ab0  54 25 3a e3 79 25 3d 31  b8 6b 64 25 88 6d 65 25  |T%:.y%=1.kd%.me%|
00008ac0  2f 4e 25 3a c8 99 38 39  32 36 30 39 2c 2c 55 25  |/N%:..892609,,U%|
00008ad0  2c 78 25 2c 6b 64 25 2d  79 25 2b 31 b8 47 25 3a  |,x%,kd%-y%+1.G%:|
00008ae0  f2 66 62 28 47 25 29 3a  71 65 25 3d 78 25 2a 54  |.fb(G%):qe%=x%*T|
00008af0  25 2b b3 28 54 25 2a 62  29 2d 54 25 2a 62 2f 32  |%+.(T%*b)-T%*b/2|
00008b00  3a 72 65 25 3d 79 25 2a  4e 25 2b b3 28 4e 25 2a  |:re%=y%*N%+.(N%*|
00008b10  62 29 2d 4e 25 2a 62 2f  32 3a c8 8f c8 90 71 65  |b)-N%*b/2:....qe|
00008b20  25 2c 72 65 25 2c 74 65  25 3a ed 3a ed 3a f2 6e  |%,re%,te%:.:.:.n|
00008b30  3a f2 67 3a e7 4f 25 8c  f2 63 28 30 29 0d 25 1c  |:.g:.O%..c(0).%.|
00008b40  23 f2 78 28 5f 25 2c 22  50 6f 69 6e 74 69 6c 69  |#.x(_%,"Pointili|
00008b50  7a 65 22 29 3a f2 69 3a  f2 61 28 50 25 29 3a e1  |ze"):.i:.a(P%):.|
00008b60  0d 25 26 21 dd f2 79 62  28 73 25 29 3a ea 78 25  |.%&!..yb(s%):.x%|
00008b70  2c 79 25 2c 47 25 3a e7  73 25 3d 32 8c 73 25 3d  |,y%,G%:.s%=2.s%=|
00008b80  33 0d 25 30 1d 73 25 3d  73 25 2a 38 2b 36 3a f2  |3.%0.s%=s%*8+6:.|
00008b90  56 3a f2 66 3a e7 4f 25  8c f2 63 28 b9 29 0d 25  |V:.f:.O%..c(.).%|
00008ba0  3a 68 f2 6f 28 30 2c 22  22 29 3a f2 6b 62 3a e3  |:h.o(0,""):.kb:.|
00008bb0  79 25 3d 31 b8 6b 64 25  88 33 3a f2 44 28 31 30  |y%=1.kd%.3:.D(10|
00008bc0  30 2a 79 25 2f 6b 64 25  29 3a e3 78 25 3d 31 b8  |0*y%/kd%):.x%=1.|
00008bd0  77 64 25 88 33 3a c8 99  38 39 32 36 30 39 2c 2c  |wd%.3:..892609,,|
00008be0  55 25 2c 78 25 2c 6b 64  25 2d 79 25 2b 31 b8 47  |U%,x%,kd%-y%+1.G|
00008bf0  25 3a e7 57 25 3d 30 8c  c8 99 38 39 32 36 31 31  |%:.W%=0...892611|
00008c00  2c 47 25 b8 47 25 0d 25  44 27 47 25 3d 47 25 82  |,G%.G%.%D'G%=G%.|
00008c10  28 b3 28 32 29 2d 31 29  3a e7 57 25 3d 30 8c c8  |(.(2)-1):.W%=0..|
00008c20  99 38 39 32 36 31 30 2c  47 25 b8 47 25 0d 25 4e  |.892610,G%.G%.%N|
00008c30  54 f2 66 62 28 47 25 29  3a ec 28 78 25 2b 34 2d  |T.fb(G%):.(x%+4-|
00008c40  b3 28 38 29 29 2a 54 25  2c 28 79 25 2b 34 2d b3  |.(8))*T%,(y%+4-.|
00008c50  28 38 29 29 2a 4e 25 3a  df 42 59 20 b3 28 34 29  |(8))*N%:.BY .(4)|
00008c60  2d 73 25 2c b3 28 36 29  2d 73 25 2a 32 3a ed 3a  |-s%,.(6)-s%*2:.:|
00008c70  ed 3a f2 6e 3a f2 67 3a  e7 4f 25 8c f2 63 28 30  |.:.n:.g:.O%..c(0|
00008c80  29 0d 25 58 22 f2 78 28  5f 25 2c 22 53 63 72 61  |).%X".x(_%,"Scra|
00008c90  74 63 68 65 64 22 29 3a  f2 69 3a f2 61 28 50 25  |tched"):.i:.a(P%|
00008ca0  29 3a e1 0d 25 62 0e dd  f2 6b 62 3a e7 76 62 25  |):..%b...kb:.vb%|
00008cb0  8c 0d 25 6c 2a c8 91 78  62 25 2a 54 25 2c 79 62  |..%l*..xb%*T%,yb|
00008cc0  25 2a 4e 25 3a ef 32 34  2c 30 3b 30 3b 75 64 25  |%*N%:.24,0;0;ud%|
00008cd0  2d 54 25 3b 76 64 25 2d  4e 25 3b 0d 25 76 0f cc  |-T%;vd%-N%;.%v..|
00008ce0  3a c8 91 30 2c 30 3a ef  32 36 0d 25 80 05 cd 0d  |:..0,0:.26.%....|
00008cf0  25 8a 05 e1 0d 25 94 0d  dd f2 42 3a e7 76 62 25  |%....%....B:.vb%|
00008d00  8c 0d 25 9e 32 ef 32 34  2c 78 62 25 2a 54 25 3b  |..%.2.24,xb%*T%;|
00008d10  79 62 25 2a 4e 25 3b 78  62 25 2a 54 25 2b 75 64  |yb%*N%;xb%*T%+ud|
00008d20  25 2d 54 25 3b 79 62 25  2a 4e 25 2b 76 64 25 2d  |%-T%;yb%*N%+vd%-|
00008d30  4e 25 3b 0d 25 a8 0f cc  3a c8 91 30 2c 30 3a ef  |N%;.%...:..0,0:.|
00008d40  32 36 0d 25 b2 05 cd 0d  25 bc 05 e1 0d 25 c6 24  |26.%....%....%.$|
00008d50  dd f2 7a 62 28 75 65 25  2c 76 65 25 29 3a ea 47  |..zb(ue%,ve%):.G|
00008d60  25 2c 76 2c 69 25 2c 64  25 3a c8 8e 75 65 25 ca  |%,v,i%,d%:..ue%.|
00008d70  0d 25 d0 17 c9 30 3a e7  76 65 25 3e 3d 30 8c f2  |.%...0:.ve%>=0..|
00008d80  79 62 28 76 65 25 29 0d  25 da 0e c9 31 3a f2 77  |yb(ve%).%...1:.w|
00008d90  28 4e 63 25 29 0d 25 e4  0e c9 32 3a f2 47 28 31  |(Nc%).%...2:.G(1|
00008da0  31 32 29 0d 25 ee 0c c9  33 3a f2 72 28 31 29 0d  |12).%...3:.r(1).|
00008db0  25 f8 0d c9 34 3a c8 8e  76 65 25 ca 0d 26 02 15  |%...4:..ve%..&..|
00008dc0  c9 2d 31 2c 30 3a f2 78  62 28 32 30 2c 39 2c 32  |.-1,0:.xb(20,9,2|
00008dd0  29 0d 26 0c 13 c9 31 3a  f2 78 62 28 31 30 2c 32  |).&...1:.xb(10,2|
00008de0  30 2c 35 29 0d 26 16 14  c9 32 3a f2 78 62 28 31  |0,5).&...2:.xb(1|
00008df0  30 2c 31 30 2c 31 35 29  0d 26 20 05 cb 0d 26 2a  |0,10,15).& ...&*|
00008e00  0e c9 35 3a f2 77 28 4b  62 25 29 0d 26 34 1e c9  |..5:.w(Kb%).&4..|
00008e10  36 3a e7 76 65 25 3d 30  84 76 65 25 3d 31 8c f2  |6:.ve%=0.ve%=1..|
00008e20  54 61 28 76 65 25 2b 31  29 0d 26 3e 0e c9 37 3a  |Ta(ve%+1).&>..7:|
00008e30  f2 77 28 58 62 25 29 0d  26 48 0d c9 38 3a c8 8e  |.w(Xb%).&H..8:..|
00008e40  76 65 25 ca 0d 26 52 0f  c9 30 2c 31 3a c8 8e 77  |ve%..&R..0,1:..w|
00008e50  61 25 ca 0d 26 5c 14 c9  30 3a f2 70 62 28 76 65  |a%..&\..0:.pb(ve|
00008e60  25 2b 31 33 2c 30 29 0d  26 66 33 c9 31 3a e7 77  |%+13,0).&f3.1:.w|
00008e70  65 25 3c 3e 36 33 8c 85  31 2c 22 57 6f 72 6b 73  |e%<>63..1,"Works|
00008e80  20 6f 6e 6c 79 20 69 6e  20 32 35 36 20 63 6f 6c  | only in 256 col|
00008e90  6f 75 72 20 6d 6f 64 65  73 22 0d 26 70 0f f2 41  |our modes".&p..A|
00008ea0  62 28 76 65 25 2b 31 31  29 0d 26 7a 20 c9 32 3a  |b(ve%+11).&z .2:|
00008eb0  76 61 25 3d b9 3a c8 99  38 39 32 36 31 33 2c 76  |va%=.:..892613,v|
00008ec0  65 25 2b 31 31 2c 2c 4c  25 0d 26 84 05 cb 0d 26  |e%+11,,L%.&....&|
00008ed0  8e 14 c9 32 2c 33 2c 34  3a 77 61 25 3d 76 65 25  |...2,3,4:wa%=ve%|
00008ee0  2d 32 0d 26 98 05 cb 0d  26 a2 0d c9 39 3a f2 54  |-2.&....&...9:.T|
00008ef0  61 28 33 29 0d 26 ac 72  c9 31 30 3a e3 69 25 3d  |a(3).&.r.10:.i%=|
00008f00  30 b8 36 33 88 34 3a 47  25 3d 34 2a b3 28 36 34  |0.63.4:G%=4*.(64|
00008f10  29 2d 34 3a 65 25 3f 30  3d 47 25 3a 65 25 3f 31  |)-4:e%?0=G%:e%?1|
00008f20  3d 47 25 2b 31 3a 65 25  3f 32 3d 47 25 2b 32 3a  |=G%+1:e%?2=G%+2:|
00008f30  65 25 3f 33 3d 47 25 2b  33 3a 4c 25 21 28 69 25  |e%?3=G%+3:L%!(i%|
00008f40  2a 34 29 3d 21 65 25 3a  ed 3a c8 99 38 39 32 36  |*4)=!e%:.:..8926|
00008f50  31 32 2c 6a 64 25 2c 55  25 2c 4c 25 3a f2 69 3a  |12,jd%,U%,L%:.i:|
00008f60  f2 61 28 50 25 29 0d 26  b6 15 c9 31 31 3a f2 72  |.a(P%).&...11:.r|
00008f70  28 31 30 31 29 3a 54 61  25 3d 33 0d 26 c0 0e c9  |(101):Ta%=3.&...|
00008f80  31 32 3a c8 8e 76 65 25  ca 0d 26 ca 0a c9 30 3a  |12:..ve%..&...0:|
00008f90  f2 42 62 0d 26 d4 0a c9  31 3a f2 43 62 0d 26 de  |.Bb.&...1:.Cb.&.|
00008fa0  05 cb 0d 26 e8 3b c9 31  33 3a 76 3d bb 28 a4 73  |...&.;.13:v=.(.s|
00008fb0  28 63 61 25 29 29 3a 64  25 3d b6 28 28 63 63 25  |(ca%)):d%=.((cc%|
00008fc0  2f 32 29 5e 32 2b 28 64  63 25 2f 32 29 5e 32 29  |/2)^2+(dc%/2)^2)|
00008fd0  3a f2 66 3a e7 4f 25 8c  f2 63 28 b9 29 0d 26 f2  |:.f:.O%..c(.).&.|
00008fe0  72 f2 44 28 31 30 29 3a  e3 69 25 3d 30 b8 32 30  |r.D(10):.i%=0.20|
00008ff0  34 37 3a 5a 25 21 28 34  2a 69 25 29 3d 28 31 3c  |47:Z%!(4*i%)=(1<|
00009000  3c 31 36 29 2a b5 28 32  2a af 2a 69 25 2f 32 30  |<16)*.(2*.*i%/20|
00009010  34 38 29 3a ed 3a f2 44  28 32 30 29 3a e3 69 25  |48):.:.D(20):.i%|
00009020  3d 30 b8 32 30 34 37 3a  5a 25 21 28 34 2a 69 25  |=0.2047:Z%!(4*i%|
00009030  2b 38 32 30 30 29 3d 31  36 2a b6 28 69 25 29 3a  |+8200)=16*.(i%):|
00009040  ed 3a f2 44 28 33 30 29  3a c8 8e 76 65 25 ca 0d  |.:.D(30):..ve%..|
00009050  26 fc 31 c9 30 3a f2 4a  28 44 2c 6a 64 25 2c 55  |&.1.0:.J(D,jd%,U|
00009060  25 2c 5a 25 2c 76 2a 32  33 33 30 31 2e 37 2f 64  |%,Z%,v*23301.7/d|
00009070  25 2c 5a 25 2b 38 32 30  30 2c 64 25 2a 31 36 29  |%,Z%+8200,d%*16)|
00009080  0d 27 06 31 c9 31 3a f2  4a 28 45 2c 6a 64 25 2c  |.'.1.1:.J(E,jd%,|
00009090  55 25 2c 5a 25 2c 76 2a  32 33 33 30 31 2e 37 2f  |U%,Z%,v*23301.7/|
000090a0  64 25 2c 5a 25 2b 38 32  30 30 2c 64 25 2a 31 36  |d%,Z%+8200,d%*16|
000090b0  29 0d 27 10 22 c9 32 3a  f2 4a 28 46 2c 6a 64 25  |).'.".2:.J(F,jd%|
000090c0  2c 55 25 2c 5a 25 2c 76  2c 5a 25 2b 38 32 30 30  |,U%,Z%,v,Z%+8200|
000090d0  2c 30 29 0d 27 1a 05 cb  0d 27 24 10 f2 67 3a e7  |,0).'....'$..g:.|
000090e0  4f 25 8c f2 63 28 a3 29  0d 27 2e 0d f2 69 3a f2  |O%..c(.).'...i:.|
000090f0  61 28 50 25 29 0d 27 38  05 cb 0d 27 42 05 e1 0d  |a(P%).'8...'B...|
00009100  27 4c 2e dd f2 42 62 3a  ea 69 25 2c 47 64 25 2c  |'L...Bb:.i%,Gd%,|
00009110  48 64 25 2c 79 25 2c 78  65 25 2c 79 65 25 2c 74  |Hd%,y%,xe%,ye%,t|
00009120  2c 74 25 3a e7 63 63 25  3c 64 63 25 8c 0d 27 56  |,t%:.cc%<dc%..'V|
00009130  16 47 64 25 3d 77 64 25  3a 48 64 25 3d 63 63 25  |.Gd%=wd%:Hd%=cc%|
00009140  2f 4e 25 0d 27 60 1b cc  3a 47 64 25 3d 6b 64 25  |/N%.'`..:Gd%=kd%|
00009150  2a 4e 25 2f 54 25 3a 48  64 25 3d 6b 64 25 0d 27  |*N%/T%:Hd%=kd%.'|
00009160  6a 05 cd 0d 27 74 24 47  64 25 3d 47 64 25 2f 32  |j...'t$Gd%=Gd%/2|
00009170  3a 48 64 25 3d 48 64 25  2f 32 3a f2 66 3a e7 4f  |:Hd%=Hd%/2:.f:.O|
00009180  25 8c f2 63 28 b9 29 0d  27 7e 8b e3 69 25 3d 30  |%..c(.).'~..i%=0|
00009190  b8 6b 64 25 3a 5a 25 21  28 34 2a 69 25 29 3d 77  |.kd%:Z%!(4*i%)=w|
000091a0  64 25 2f 32 2d 31 3a ed  3a e3 79 25 3d 6b 64 25  |d%/2-1:.:.y%=kd%|
000091b0  2f 32 2d 48 64 25 b8 6b  64 25 2f 32 2b 48 64 25  |/2-Hd%.kd%/2+Hd%|
000091c0  3a 74 3d 28 31 2d 28 28  79 25 2d 6b 64 25 2f 32  |:t=(1-((y%-kd%/2|
000091d0  29 2f 48 64 25 29 5e 32  29 3a 78 65 25 3d 77 64  |)/Hd%)^2):xe%=wd|
000091e0  25 2f 32 2b 47 64 25 2a  b6 28 94 28 74 29 29 3a  |%/2+Gd%*.(.(t)):|
000091f0  79 65 25 3d 77 64 25 2d  78 65 25 3a e7 78 65 25  |ye%=wd%-xe%:.xe%|
00009200  3c 79 65 25 8c 74 25 3d  78 65 25 8b 74 25 3d 79  |<ye%.t%=xe%.t%=y|
00009210  65 25 0d 27 88 13 e7 74  25 3d 77 64 25 2f 32 8c  |e%.'...t%=wd%/2.|
00009220  74 25 2d 3d 31 0d 27 92  34 5a 25 21 28 34 2a 79  |t%-=1.'.4Z%!(4*y|
00009230  25 29 3d 74 25 3a ed 3a  c8 99 38 39 32 36 31 35  |%)=t%:.:..892615|
00009240  2c 6a 64 25 2c 55 25 2c  34 2c 5a 25 3a f2 67 3a  |,jd%,U%,4,Z%:.g:|
00009250  e7 4f 25 8c f2 63 28 a3  29 0d 27 9c 0f f2 69 3a  |.O%..c(.).'...i:|
00009260  f2 61 28 50 25 29 3a e1  0d 27 a6 19 dd f2 43 62  |.a(P%):..'....Cb|
00009270  3a ea 69 25 3a f2 66 3a  e7 4f 25 8c f2 63 28 b9  |:.i%:.f:.O%..c(.|
00009280  29 0d 27 b0 4a e3 69 25  3d 30 b8 6b 64 25 3a 5a  |).'.J.i%=0.kd%:Z|
00009290  25 21 28 34 2a 69 25 29  3d 30 2e 35 2a 77 64 25  |%!(4*i%)=0.5*wd%|
000092a0  2a 69 25 2f 6b 64 25 3a  ed 3a c8 99 38 39 32 36  |*i%/kd%:.:..8926|
000092b0  31 35 2c 6a 64 25 2c 55  25 2c 34 2c 5a 25 3a f2  |15,jd%,U%,4,Z%:.|
000092c0  67 3a e7 4f 25 8c f2 63  28 a3 29 0d 27 ba 0f f2  |g:.O%..c(.).'...|
000092d0  69 3a f2 61 28 50 25 29  3a e1 0d 27 c4 42 dd f2  |i:.a(P%):..'.B..|
000092e0  41 62 28 63 25 29 3a ea  78 25 2c 79 25 2c 76 63  |Ab(c%):.x%,y%,vc|
000092f0  25 3a c8 99 38 39 32 36  31 33 2c 63 25 2c 2c 4c  |%:..892613,c%,,L|
00009300  25 3a f5 3a f2 66 61 3a  c8 97 78 25 2c 79 25 2c  |%:.:.fa:..x%,y%,|
00009310  76 63 25 3a fd 76 63 25  3d 32 3a e1 0d 27 ce 44  |vc%:.vc%=2:..'.D|
00009320  dd f2 66 61 3a ea 7a 65  25 2c 41 65 25 3a e7 77  |..fa:.ze%,Ae%:.w|
00009330  65 25 3c 3e 36 33 8c 76  61 25 3d 30 3a 85 31 2c  |e%<>63.va%=0:.1,|
00009340  22 57 6f 72 6b 73 20 6f  6e 6c 79 20 69 6e 20 32  |"Works only in 2|
00009350  35 36 20 63 6f 6c 6f 75  72 20 6d 6f 64 65 73 22  |56 colour modes"|
00009360  0d 27 d8 17 e7 77 62 25  8c 41 65 25 3d 67 61 25  |.'...wb%.Ae%=ga%|
00009370  8b 41 65 25 3d 2d 31 0d  27 e2 da c8 99 38 39 32  |.Ae%=-1.'....892|
00009380  36 31 32 2c 6a 64 25 2c  6a 64 25 2c 4c 25 3a 62  |612,jd%,jd%,L%:b|
00009390  25 21 30 3d 50 25 3a 62  25 21 34 3d 30 3a 62 25  |%!0=P%:b%!4=0:b%|
000093a0  21 38 3d 30 3a 62 25 21  31 32 3d 33 32 37 30 30  |!8=0:b%!12=32700|
000093b0  3a 62 25 21 31 36 3d 33  32 37 30 30 3a 66 61 25  |:b%!16=32700:fa%|
000093c0  21 30 3d 61 25 28 5f 25  2c 34 29 2a 65 61 25 21  |!0=a%(_%,4)*ea%!|
000093d0  30 3a 66 61 25 21 34 3d  61 25 28 5f 25 2c 35 29  |0:fa%!4=a%(_%,5)|
000093e0  2a 65 61 25 21 34 3a c8  99 32 36 32 33 34 35 2c  |*ea%!4:..262345,|
000093f0  2c 62 25 b8 7a 65 25 3a  c8 95 7a 65 25 3a c8 99  |,b%.ze%:..ze%:..|
00009400  31 33 31 31 31 38 2c 33  30 38 2c 61 25 28 5f 25  |131118,308,a%(_%|
00009410  2c 32 29 2c 61 24 28 5f  25 2c 31 29 2c 62 25 21  |,2),a$(_%,1),b%!|
00009420  34 2d 62 25 21 32 30 2c  62 25 21 31 36 2d 62 25  |4-b%!20,b%!16-b%|
00009430  21 32 34 2c 2c 66 61 25  2c 41 65 25 3a c8 99 32  |!24,,fa%,Ae%:..2|
00009440  36 32 33 34 36 2c 2c 62  25 b8 7a 65 25 3a ce 3a  |62346,,b%.ze%:.:|
00009450  e1 0d 27 ec 1f dd f2 54  61 28 4c 64 25 29 3a ea  |..'....Ta(Ld%):.|
00009460  42 65 25 3a f2 66 3a e7  4f 25 8c f2 63 28 b9 29  |Be%:.f:.O%..c(.)|
00009470  0d 27 f6 0a c8 8e 4c 64  25 ca 0d 28 00 0c c9 30  |.'....Ld%..(...0|
00009480  3a e7 69 62 25 8c 0d 28  0a 48 e3 42 65 25 3d 30  |:.ib%..(.H.Be%=0|
00009490  b8 32 30 34 37 3a 5a 25  21 28 34 2a 42 65 25 29  |.2047:Z%!(4*Be%)|
000094a0  3d 68 62 25 2a 28 31 2b  b5 28 42 65 25 2a 66 2a  |=hb%*(1+.(Be%*f*|
000094b0  4e 25 29 29 2f 54 25 3a  ed 3a c8 99 38 39 32 36  |N%))/T%:.:..8926|
000094c0  31 35 2c 6a 64 25 2c 55  25 2c 34 2c 5a 25 0d 28  |15,jd%,U%,4,Z%.(|
000094d0  14 46 cc 3a e3 42 65 25  3d 30 b8 32 30 34 37 3a  |.F.:.Be%=0.2047:|
000094e0  5a 25 21 28 34 2a 42 65  25 29 3d 68 62 25 2a b5  |Z%!(4*Be%)=hb%*.|
000094f0  28 42 65 25 2a 66 2a 4e  25 29 2f 54 25 3a ed 3a  |(Be%*f*N%)/T%:.:|
00009500  c8 99 38 39 32 36 31 35  2c 6a 64 25 2c 55 25 2c  |..892615,jd%,U%,|
00009510  30 2c 5a 25 0d 28 1e 05  cd 0d 28 28 14 f2 78 28  |0,Z%.(....((..x(|
00009520  5f 25 2c 22 52 69 70 70  6c 65 64 22 29 0d 28 32  |_%,"Rippled").(2|
00009530  1c c9 31 3a c8 99 38 39  32 36 31 35 2c 6a 64 25  |..1:..892615,jd%|
00009540  2c 55 25 2c 31 2c 32 35  35 0d 28 3c 1a c9 32 3a  |,U%,1,255.(<..2:|
00009550  c8 99 38 39 32 36 31 35  2c 6a 64 25 2c 55 25 2c  |..892615,jd%,U%,|
00009560  31 2c 30 0d 28 46 18 c9  33 3a c8 99 38 39 32 36  |1,0.(F..3:..8926|
00009570  31 35 2c 6a 64 25 2c 55  25 2c 32 0d 28 50 05 cb  |15,jd%,U%,2.(P..|
00009580  0d 28 5a 10 f2 67 3a e7  4f 25 8c f2 63 28 30 29  |.(Z..g:.O%..c(0)|
00009590  0d 28 64 0f f2 69 3a f2  61 28 50 25 29 3a e1 0d  |.(d..i:.a(P%):..|
000095a0  28 6e 21 dd f2 4c 61 28  43 65 25 2c 70 25 2c 70  |(n!..La(Ce%,p%,p|
000095b0  64 25 29 3a f2 66 3a e7  4f 25 8c f2 63 28 b9 29  |d%):.f:.O%..c(.)|
000095c0  0d 28 78 0b e7 70 64 25  3d 32 8c 0d 28 82 1e c8  |.(x..pd%=2..(...|
000095d0  99 38 39 32 36 31 38 2c  6a 64 25 2c 70 25 2c 43  |.892618,jd%,p%,C|
000095e0  65 25 3a f2 6b 28 50 25  29 0d 28 8c 1f cc 3a c8  |e%:.k(P%).(...:.|
000095f0  99 38 39 32 36 31 38 2c  55 25 2c 70 25 2c 43 65  |.892618,U%,p%,Ce|
00009600  25 3a f2 6b 28 58 25 29  0d 28 96 05 cd 0d 28 a0  |%:.k(X%).(....(.|
00009610  10 f2 67 3a e7 4f 25 8c  f2 63 28 30 29 0d 28 aa  |..g:.O%..c(0).(.|
00009620  05 e1 0d 28 b4 33 dd f2  43 61 3a ea 69 25 2c 6d  |...(.3..Ca:.i%,m|
00009630  24 3a 6d 24 3d 22 54 69  64 79 20 69 6d 61 67 65  |$:m$="Tidy image|
00009640  73 7c 3d 2c 22 3a e3 69  25 3d 31 b8 44 61 25 3a  |s|=,":.i%=1.Da%:|
00009650  c8 8e 69 25 ca 0d 28 be  16 c9 6f 25 3a 6d 24 2b  |..i%..(...o%:m$+|
00009660  3d 22 53 6f 75 72 63 65  7c 2c 22 0d 28 c8 1b c9  |="Source|,".(...|
00009670  5f 25 3a 6d 24 2b 3d 22  44 65 73 74 69 6e 61 74  |_%:m$+="Destinat|
00009680  69 6f 6e 7c 2c 22 0d 28  d2 14 7f 3a 6d 24 2b 3d  |ion|,".(...:m$+=|
00009690  c3 28 69 25 29 2b 22 7c  2c 22 0d 28 dc 05 cb 0d  |.(i%)+"|,".(....|
000096a0  28 e6 75 ed 3a f2 68 28  44 61 25 2b 31 2c 2d 31  |(.u.:.h(Da%+1,-1|
000096b0  2c 22 49 6d 61 67 65 73  22 2c c0 6d 24 2c a9 6d  |,"Images",.m$,.m|
000096c0  24 2d 31 29 29 3a e3 69  25 3d 31 b8 44 61 25 3a  |$-1)):.i%=1.Da%:|
000096d0  f2 73 28 31 2c 69 25 2c  61 25 28 69 25 2c 36 29  |.s(1,i%,a%(i%,6)|
000096e0  3c 3e 30 29 3a ed 3a f2  6a 28 32 2c 31 2c ac 43  |<>0):.:.j(2,1,.C|
000096f0  61 25 29 3a f2 6a 28 32  2c 33 2c ac 43 61 25 29  |a%):.j(2,3,.Ca%)|
00009700  3a f2 6a 28 32 2c 32 2c  43 61 25 29 3a 67 65 25  |:.j(2,2,Ca%):ge%|
00009710  3d 31 3a e1 0d 28 f0 3c  dd f2 59 61 28 69 25 29  |=1:..(.<..Ya(i%)|
00009720  3a 66 62 25 3d 69 25 3a  24 59 61 25 3d c3 28 61  |:fb%=i%:$Ya%=.(a|
00009730  25 28 69 25 2c 34 29 29  3a 24 58 61 25 3d 61 24  |%(i%,4)):$Xa%=a$|
00009740  28 69 25 2c 32 29 3a 67  65 25 3d 2d 69 25 3a e1  |(i%,2):ge%=-i%:.|
00009750  0d 28 fa 23 dd f2 60 28  77 63 25 29 3a ea 69 25  |.(.#..`(wc%):.i%|
00009760  3a e7 77 63 25 3d 32 8c  69 25 3d 6f 25 8b 69 25  |:.wc%=2.i%=o%.i%|
00009770  3d 5f 25 0d 29 04 e0 f2  73 61 28 69 25 29 3a f2  |=_%.)...sa(i%):.|
00009780  73 28 31 33 2c 30 2c 45  61 25 29 3a f2 73 28 31  |s(13,0,Ea%):.s(1|
00009790  33 2c 31 2c 4f 25 29 3a  f2 73 28 31 33 2c 32 2c  |3,1,O%):.s(13,2,|
000097a0  46 61 25 29 3a f2 73 28  31 33 2c 33 2c 47 61 25  |Fa%):.s(13,3,Ga%|
000097b0  3d 31 29 3a f2 73 28 31  36 2c 35 2c ac 76 62 25  |=1):.s(16,5,.vb%|
000097c0  29 3a f2 73 28 31 36 2c  36 2c 76 62 25 29 3a f2  |):.s(16,6,vb%):.|
000097d0  6a 28 31 36 2c 36 2c ac  75 62 25 29 3a f2 6a 28  |j(16,6,.ub%):.j(|
000097e0  31 36 2c 34 2c ac 75 62  25 29 3a 66 62 25 3d 69  |16,4,.ub%):fb%=i|
000097f0  25 3a 24 59 61 25 3d c3  28 61 25 28 69 25 2c 34  |%:$Ya%=.(a%(i%,4|
00009800  29 29 3a 24 58 61 25 3d  61 24 28 69 25 2c 32 29  |)):$Xa%=a$(i%,2)|
00009810  3a f2 6a 28 31 30 2c 33  2c 65 62 25 29 3a f2 6a  |:.j(10,3,eb%):.j|
00009820  28 31 30 2c 34 2c 65 62  25 29 3a f2 6a 28 31 30  |(10,4,eb%):.j(10|
00009830  2c 35 2c 65 62 25 29 3a  f2 6a 28 31 34 2c 30 2c  |,5,eb%):.j(14,0,|
00009840  ac 75 62 25 29 3a f2 6a  28 31 34 2c 31 2c ac 75  |.ub%):.j(14,1,.u|
00009850  62 25 29 0d 29 0e b6 f2  6a 28 31 34 2c 32 2c ac  |b%).)...j(14,2,.|
00009860  75 62 25 29 3a f2 6a 28  31 34 2c 33 2c ac 75 62  |ub%):.j(14,3,.ub|
00009870  25 29 3a f2 6a 28 31 34  2c 34 2c ac 75 62 25 29  |%):.j(14,4,.ub%)|
00009880  3a f2 6a 28 31 34 2c 35  2c ac 75 62 25 29 3a f2  |:.j(14,5,.ub%):.|
00009890  6a 28 31 34 2c 36 2c ac  75 62 25 29 3a f2 6a 28  |j(14,6,.ub%):.j(|
000098a0  31 34 2c 37 2c ac 75 62  25 29 3a f2 73 28 32 31  |14,7,.ub%):.s(21|
000098b0  2c 32 2c 77 61 25 3d 30  29 3a f2 73 28 32 31 2c  |,2,wa%=0):.s(21,|
000098c0  33 2c 77 61 25 3d 31 29  3a f2 73 28 32 31 2c 34  |3,wa%=1):.s(21,4|
000098d0  2c 77 61 25 3d 32 29 3a  f2 73 28 32 36 2c 36 2c  |,wa%=2):.s(26,6,|
000098e0  42 62 25 29 3a e3 69 25  3d 30 b8 37 3a f2 73 28  |Bb%):.i%=0.7:.s(|
000098f0  32 35 2c 69 25 2c 56 61  25 3d 69 25 29 3a ed 3a  |25,i%,Va%=i%):.:|
00009900  67 65 25 3d 77 63 25 3a  e1 0d 29 18 b2 dd f2 44  |ge%=wc%:..)....D|
00009910  62 28 74 25 29 3a ea 47  25 3a 57 25 3d 74 25 3a  |b(t%):.G%:W%=t%:|
00009920  f2 6a 28 31 36 2c 31 2c  74 25 29 3a f2 73 28 31  |.j(16,1,t%):.s(1|
00009930  33 2c 34 2c 74 25 29 3a  f2 6a 28 31 38 2c 35 2c  |3,4,t%):.j(18,5,|
00009940  74 25 29 3a f2 6a 28 31  38 2c 39 2c 74 25 29 3a  |t%):.j(18,9,t%):|
00009950  f2 6a 28 31 38 2c 31 30  2c 74 25 29 3a f2 6a 28  |.j(18,10,t%):.j(|
00009960  31 38 2c 31 31 2c 74 25  29 3a f2 6a 28 31 38 2c  |18,11,t%):.j(18,|
00009970  31 33 2c 74 25 29 3a f2  6a 28 31 38 2c 31 34 2c  |13,t%):.j(18,14,|
00009980  74 25 29 3a f2 4b 28 4a  63 25 2c 31 2c 74 25 29  |t%):.K(Jc%,1,t%)|
00009990  3a f2 4b 28 4a 63 25 2c  32 2c 74 25 29 3a f2 4b  |:.K(Jc%,2,t%):.K|
000099a0  28 4a 63 25 2c 33 2c 74  25 29 3a e7 44 61 25 3c  |(Jc%,3,t%):.Da%<|
000099b0  34 8c f2 53 28 31 38 2c  31 33 29 0d 29 22 14 e7  |4..S(18,13).)"..|
000099c0  44 61 25 3c 35 8c f2 53  28 31 38 2c 31 34 29 0d  |Da%<5..S(18,14).|
000099d0  29 2c 09 c8 8e 57 25 ca  0d 29 36 30 c9 30 3a 2a  |),...W%..)60.0:*|
000099e0  52 4d 4c 6f 61 64 20 3c  50 72 6f 63 65 73 73 24  |RMLoad <Process$|
000099f0  44 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 43  |Dir>.Resources.C|
00009a00  6f 6c 6f 75 72 50 72 6f  0d 29 40 2e 4d 61 25 3d  |olourPro.)@.Ma%=|
00009a10  a3 3a f2 64 28 4e 61 25  2c 34 2c a3 29 3a 24 50  |.:.d(Na%,4,.):$P|
00009a20  61 25 3d 22 45 66 66 65  63 74 22 3a f2 71 28 31  |a%="Effect":.q(1|
00009a30  29 3a 47 25 3d 37 0d 29  4a 2e c9 31 3a 2a 52 4d  |):G%=7.)J..1:*RM|
00009a40  4c 6f 61 64 20 3c 50 72  6f 63 65 73 73 24 44 69  |Load <Process$Di|
00009a50  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 47 72 65  |r>.Resources.Gre|
00009a60  79 50 72 6f 0d 29 54 2c  4d 61 25 3d b9 3a f2 64  |yPro.)T,Ma%=.:.d|
00009a70  28 4e 61 25 2c 34 2c b9  29 3a 24 50 61 25 3d 22  |(Na%,4,.):$Pa%="|
00009a80  47 72 65 79 22 3a f2 71  28 30 29 3a 47 25 3d 33  |Grey":.q(0):G%=3|
00009a90  0d 29 5e 05 cb 0d 29 68  39 f2 54 28 51 61 25 2c  |.)^...)h9.T(Qa%,|
00009aa0  30 2c 47 25 29 3a f2 54  28 51 61 25 2c 31 2c 47  |0,G%):.T(Qa%,1,G|
00009ab0  25 29 3a f2 54 28 51 61  25 2c 32 2c 47 25 29 3a  |%):.T(Qa%,2,G%):|
00009ac0  65 62 25 3d b9 3a 64 25  28 29 3d 30 3a e1 0d 29  |eb%=.:d%()=0:..)|
00009ad0  72 18 dd f2 71 28 44 65  25 29 3a e7 44 65 25 80  |r...q(De%):.De%.|
00009ae0  57 25 3d 31 8c e1 0d 29  7c 2a 6e 62 25 3d 44 65  |W%=1...)|*nb%=De|
00009af0  25 3a e7 44 65 25 8c f2  54 28 51 61 25 2c 31 34  |%:.De%..T(Qa%,14|
00009b00  2c 33 29 8b f2 54 28 51  61 25 2c 31 34 2c 37 29  |,3)..T(Qa%,14,7)|
00009b10  0d 29 86 05 e1 0d 29 90  9b dd f2 72 61 3a ea 6d  |.)....)....ra:.m|
00009b20  24 3a 45 65 25 3d 61 61  25 2b 31 30 30 3a 46 65  |$:Ee%=aa%+100:Fe|
00009b30  25 3d 62 61 25 2b 33 30  30 3a 65 25 28 31 29 3d  |%=ba%+300:e%(1)=|
00009b40  62 61 25 3a f2 68 28 35  2c 32 2c 22 50 72 6f 63  |ba%:.h(5,2,"Proc|
00009b50  65 73 73 22 2c 22 49 6e  66 6f 7c 5b 49 6e 66 6f  |ess","Info|[Info|
00009b60  5d 3d 2c 56 69 65 77 73  7c 3e 31 3c 2c 43 72 65  |]=,Views|>1<,Cre|
00009b70  61 74 65 20 69 6d 61 67  65 20 2e 2e 2e 7c 3d 2c  |ate image ...|=,|
00009b80  44 72 6f 70 20 66 69 6c  65 7c 2c 51 75 69 74 7c  |Drop file|,Quit||
00009b90  22 29 3a f2 68 28 31 2c  34 2c 22 44 65 67 72 65  |"):.h(1,4,"Degre|
00009ba0  65 73 22 2c 22 20 7c 28  30 38 52 6f 74 29 22 29  |es"," |(08Rot)")|
00009bb0  0d 29 9a d2 6d 24 3d 22  4e 6f 69 73 65 20 28 77  |.)..m$="Noise (w|
00009bc0  65 61 6b 29 7c 2c 4e 6f  69 73 65 20 28 73 74 72  |eak)|,Noise (str|
00009bd0  6f 6e 67 29 7c 3d 2c 41  76 65 72 61 67 65 7c 2c  |ong)|=,Average|,|
00009be0  53 6d 6f 6f 74 68 65 6e  20 28 77 65 61 6b 29 7c  |Smoothen (weak)||
00009bf0  2c 53 6d 6f 6f 74 68 65  6e 20 28 73 74 72 6f 6e  |,Smoothen (stron|
00009c00  67 29 7c 2c 4d 65 64 69  61 6e 7c 2c 53 68 61 72  |g)|,Median|,Shar|
00009c10  70 65 6e 7c 3d 2c 56 65  72 74 69 63 61 6c 20 65  |pen|=,Vertical e|
00009c20  64 67 65 73 7c 2c 48 6f  72 69 7a 6f 6e 74 61 6c  |dges|,Horizontal|
00009c30  20 65 64 67 65 73 7c 2c  45 64 67 65 73 20 28 65  | edges|,Edges (e|
00009c40  6d 62 6f 73 73 29 7c 3d  2c 4d 69 6e 69 6d 75 6d  |mboss)|=,Minimum|
00009c50  7c 2c 4d 61 78 69 6d 75  6d 7c 3d 2c 44 69 66 66  ||,Maximum|=,Diff|
00009c60  65 72 65 6e 63 65 20 2e  2e 2e 7c 22 3a f2 68 28  |erence ...|":.h(|
00009c70  31 33 2c 35 2c 22 46 69  6c 74 65 72 73 22 2c 6d  |13,5,"Filters",m|
00009c80  24 29 0d 29 a4 bc f2 68  28 33 2c 36 2c 22 53 77  |$).)...h(3,6,"Sw|
00009c90  61 70 20 63 6f 6c 6f 75  72 73 22 2c 22 52 65 64  |ap colours","Red|
00009ca0  20 3c 3e 20 47 72 65 65  6e 7c 2c 52 65 64 20 3c  | <> Green|,Red <|
00009cb0  3e 20 42 6c 75 65 7c 2c  47 72 65 65 6e 20 3c 3e  |> Blue|,Green <>|
00009cc0  20 42 6c 75 65 7c 22 29  3a f2 68 28 33 2c 37 2c  | Blue|"):.h(3,7,|
00009cd0  22 43 68 61 6e 67 65 22  2c 22 53 6d 61 6c 6c 7c  |"Change","Small||
00009ce0  2c 4d 65 64 69 75 6d 7c  2c 4d 75 63 68 7c 22 29  |,Medium|,Much|")|
00009cf0  3a f2 68 28 33 2c 38 2c  22 53 63 72 61 74 63 68  |:.h(3,8,"Scratch|
00009d00  22 2c 22 53 68 6f 72 74  7c 2c 4d 65 64 69 75 6d  |","Short|,Medium|
00009d10  7c 2c 4c 6f 6e 67 7c 22  29 3a f2 68 28 33 2c 39  ||,Long|"):.h(3,9|
00009d20  2c 22 46 69 6c 74 65 72  22 2c 22 52 65 64 7c 2c  |,"Filter","Red|,|
00009d30  47 72 65 65 6e 7c 2c 42  6c 75 65 7c 22 29 0d 29  |Green|,Blue|").)|
00009d40  ae c0 6d 24 3d 22 52 65  64 75 63 65 20 72 61 6e  |..m$="Reduce ran|
00009d50  67 65 7c 3e 37 3c 2c 45  78 70 61 6e 64 20 72 61  |ge|>7<,Expand ra|
00009d60  6e 67 65 7c 3e 37 3c 3d  2c 43 61 6c 63 75 6c 61  |nge|>7<=,Calcula|
00009d70  74 65 20 68 69 73 74 6f  67 72 61 6d 20 2e 2e 2e  |te histogram ...|
00009d80  7c 2c 53 74 72 65 74 63  68 7c 2c 45 71 75 61 6c  ||,Stretch|,Equal|
00009d90  69 73 65 7c 2c 54 72 61  6e 73 66 65 72 20 6d 65  |ise|,Transfer me|
00009da0  64 69 61 6e 7c 3d 2c 43  6f 6c 6f 75 72 20 63 6f  |dian|=,Colour co|
00009db0  72 72 65 63 74 69 6f 6e  7c 5b 4e 6f 6e 4c 69 6e  |rrection|[NonLin|
00009dc0  5d 22 3a f2 68 28 37 2c  31 30 2c 22 52 61 6e 67  |]":.h(7,10,"Rang|
00009dd0  65 22 2c 6d 24 29 3a f2  68 28 33 2c 31 31 2c 22  |e",m$):.h(3,11,"|
00009de0  53 74 79 6c 65 22 2c 22  44 6f 74 73 7c 2c 4f 76  |Style","Dots|,Ov|
00009df0  65 72 6c 61 70 7c 2c 57  69 6c 64 7c 22 29 0d 29  |erlap|,Wild|").)|
00009e00  b8 f7 6d 24 3d 22 53 6f  75 72 63 65 20 2b 20 44  |..m$="Source + D|
00009e10  65 73 74 7c 2c 53 6f 75  72 63 65 20 2d 20 44 65  |est|,Source - De|
00009e20  73 74 7c 2c 44 65 73 74  20 2d 20 53 6f 75 72 63  |st|,Dest - Sourc|
00009e30  65 7c 3d 2c 53 6f 75 72  63 65 20 45 4f 52 20 44  |e|=,Source EOR D|
00009e40  65 73 74 7c 2c 53 6f 75  72 63 65 20 41 4e 44 20  |est|,Source AND |
00009e50  44 65 73 74 7c 2c 53 6f  75 72 63 65 20 4f 52 20  |Dest|,Source OR |
00009e60  44 65 73 74 7c 2c 53 6f  75 72 63 65 20 3d 20 44  |Dest|,Source = D|
00009e70  65 73 74 7c 2c 53 6f 75  72 63 65 20 3c 3e 20 44  |est|,Source <> D|
00009e80  65 73 74 7c 2c 53 6f 75  72 63 65 20 3c 20 44 65  |est|,Source < De|
00009e90  73 74 7c 2c 53 6f 75 72  63 65 20 3e 20 44 65 73  |st|,Source > Des|
00009ea0  74 7c 3d 2c 4d 41 58 28  53 6f 75 72 63 65 3b 44  |t|=,MAX(Source;D|
00009eb0  65 73 74 29 7c 2c 4d 49  4e 28 53 6f 75 72 63 65  |est)|,MIN(Source|
00009ec0  3b 44 65 73 74 29 7c 3d  2c 4f 76 65 72 6c 61 79  |;Dest)|=,Overlay|
00009ed0  7c 2c 43 6f 6d 62 69 6e  65 7c 5b 4d 61 72 6b 5d  ||,Combine|[Mark]|
00009ee0  2c 41 42 53 28 53 6f 75  72 63 65 20 2d 20 44 65  |,ABS(Source - De|
00009ef0  73 74 29 7c 22 0d 29 c2  85 f2 68 28 31 35 2c 31  |st)|".)...h(15,1|
00009f00  32 2c 22 44 65 73 74 20  3d 22 2c 6d 24 29 3a 6d  |2,"Dest =",m$):m|
00009f10  24 3d 22 41 75 74 6f 6d  61 74 69 63 20 73 77 61  |$="Automatic swa|
00009f20  70 7c 2c 44 69 73 61 62  6c 65 20 44 4d 41 7c 2c  |p|,Disable DMA|,|
00009f30  53 68 6f 77 20 74 6f 6f  6c 62 6f 78 7c 2c 4e 6f  |Show toolbox|,No|
00009f40  72 6d 61 6c 20 70 61 6e  6e 69 6e 67 7c 2c 44 69  |rmal panning|,Di|
00009f50  73 70 6c 61 79 20 69 6e  20 67 72 65 79 74 6f 6e  |splay in greyton|
00009f60  65 73 7c 22 3a f2 68 28  35 2c 31 33 2c 22 4f 70  |es|":.h(5,13,"Op|
00009f70  74 69 6f 6e 73 22 2c 6d  24 29 0d 29 cc c2 6d 24  |tions",m$).)..m$|
00009f80  3d 22 45 78 74 65 6e 64  20 74 6f 70 7c 2c 45 78  |="Extend top|,Ex|
00009f90  74 65 6e 64 20 62 6f 74  74 6f 6d 7c 2c 45 78 74  |tend bottom|,Ext|
00009fa0  65 6e 64 20 72 69 67 68  74 7c 2c 45 78 74 65 6e  |end right|,Exten|
00009fb0  64 20 6c 65 66 74 7c 3d  2c 54 6f 70 20 6e 65 69  |d left|=,Top nei|
00009fc0  67 68 62 6f 75 72 7c 2c  42 6f 74 74 6f 6d 20 6e  |ghbour|,Bottom n|
00009fd0  65 69 67 68 62 6f 75 72  7c 2c 52 69 67 68 74 20  |eighbour|,Right |
00009fe0  6e 65 69 67 68 62 6f 75  72 7c 2c 4c 65 66 74 20  |neighbour|,Left |
00009ff0  6e 65 69 67 68 62 6f 75  72 7c 22 3a f2 68 28 38  |neighbour|":.h(8|
0000a000  2c 31 34 2c 22 53 65 6c  65 63 74 20 61 72 65 61  |,14,"Select area|
0000a010  22 2c 6d 24 29 3a f2 68  28 32 2c 31 35 2c 22 45  |",m$):.h(2,15,"E|
0000a020  78 74 65 6e 64 a0 61 72  65 61 22 2c 22 57 68 69  |xtend.area","Whi|
0000a030  74 65 7c 2c 42 6c 61 63  6b 7c 22 29 0d 29 d6 98  |te|,Black|").)..|
0000a040  6d 24 3d 22 52 61 64 69  61 6c 20 74 6f 20 62 6c  |m$="Radial to bl|
0000a050  61 63 6b 7c 2c 52 61 64  69 61 6c 20 74 6f 20 77  |ack|,Radial to w|
0000a060  68 69 74 65 7c 2c 52 61  64 69 61 6c 20 66 72 6f  |hite|,Radial fro|
0000a070  6d 20 62 6c 61 63 6b 7c  2c 52 61 64 69 61 6c 20  |m black|,Radial |
0000a080  66 72 6f 6d 20 77 68 69  74 65 7c 2c 4c 69 6e 65  |from white|,Line|
0000a090  61 72 20 74 6f 20 62 6c  61 63 6b 7c 2c 4c 69 6e  |ar to black|,Lin|
0000a0a0  65 61 72 20 74 6f 20 77  68 69 74 65 7c 3d 2c 55  |ear to white|=,U|
0000a0b0  73 65 20 64 69 74 68 65  72 69 6e 67 7c 22 3a f2  |se dithering|":.|
0000a0c0  68 28 37 2c 32 36 2c 22  53 68 61 64 69 6e 67 22  |h(7,26,"Shading"|
0000a0d0  2c 6d 24 29 0d 29 e0 99  6d 24 3d 22 43 6c 65 61  |,m$).)..m$="Clea|
0000a0e0  72 2e 2e 2e 7c 2c 46 6c  69 70 20 61 62 6f 75 74  |r...|,Flip about|
0000a0f0  20 58 2d 61 78 69 73 7c  2c 46 6c 69 70 20 61 62  | X-axis|,Flip ab|
0000a100  6f 75 74 20 59 2d 61 78  69 73 7c 2c 52 6f 74 61  |out Y-axis|,Rota|
0000a110  74 65 7c 3e 34 3c 2c 53  68 61 64 69 6e 67 7c 3e  |te|>4<,Shading|>|
0000a120  32 36 3c 3d 2c 44 69 73  74 6f 72 74 20 74 72 69  |26<=,Distort tri|
0000a130  61 6e 67 6c 65 7c 2c 44  69 73 74 6f 72 74 20 71  |angle|,Distort q|
0000a140  75 61 64 72 61 6e 67 6c  65 7c 3d 2c 53 6d 75 64  |uadrangle|=,Smud|
0000a150  67 65 7c 22 3a f2 68 28  38 2c 32 34 2c 22 4d 6f  |ge|":.h(8,24,"Mo|
0000a160  72 65 20 74 6f 6f 6c 73  22 2c 6d 24 29 0d 29 ea  |re tools",m$).).|
0000a170  ea 6d 24 3d 22 49 6d 61  67 65 20 69 6e 66 6f 7c  |.m$="Image info||
0000a180  5b 49 6d 61 67 65 5d 2c  43 6f 6e 76 65 72 74 20  |[Image],Convert |
0000a190  74 6f 20 67 72 65 79 73  63 61 6c 65 7c 2c 43 6f  |to greyscale|,Co|
0000a1a0  70 79 20 73 6f 75 72 63  65 20 69 6d 61 67 65 7c  |py source image||
0000a1b0  3d 2c 53 65 6c 65 63 74  20 61 72 65 61 7c 3e 31  |=,Select area|>1|
0000a1c0  34 3c 2c 43 6c 65 61 72  20 61 72 65 61 7c 3d 2c  |4<,Clear area|=,|
0000a1d0  55 73 65 20 66 75 6c 6c  20 69 6d 61 67 65 7c 2c  |Use full image|,|
0000a1e0  55 73 65 20 73 65 6c 65  63 74 65 64 20 61 72 65  |Use selected are|
0000a1f0  61 7c 22 3a f2 68 28 37  2c 31 36 2c 22 49 6d 61  |a|":.h(7,16,"Ima|
0000a200  67 65 22 2c 6d 24 29 3a  f2 68 28 38 2c 32 35 2c  |ge",m$):.h(8,25,|
0000a210  22 50 6c 6f 74 20 74 79  70 65 22 2c 22 53 65 74  |"Plot type","Set|
0000a220  7c 3d 2c 4f 52 7c 2c 41  4e 44 7c 2c 45 4f 52 7c  ||=,OR|,AND|,EOR||
0000a230  2c 49 6e 76 65 72 74 7c  2c 44 6f 6e 27 74 20 70  |,Invert|,Don't p|
0000a240  6c 6f 74 7c 2c 41 4e 44  20 4e 4f 54 7c 2c 4f 52  |lot|,AND NOT|,OR|
0000a250  20 4e 4f 54 7c 22 29 0d  29 f4 86 f2 68 28 34 2c  | NOT|").)...h(4,|
0000a260  31 37 2c 22 4d 69 73 63  22 2c 22 4f 70 74 69 6f  |17,"Misc","Optio|
0000a270  6e 73 7c 3e 31 33 3c 2c  45 64 69 74 20 70 65 6e  |ns|>13<,Edit pen|
0000a280  63 69 6c 2f 73 70 72 61  79 63 61 6e 20 2e 2e 2e  |cil/spraycan ...|
0000a290  7c 2c 50 6c 6f 74 20 74  79 70 65 7c 3e 32 35 3c  ||,Plot type|>25<|
0000a2a0  3d 2c 52 65 6c 6f 61 64  20 6c 61 73 74 7c 22 29  |=,Reload last|")|
0000a2b0  3a f2 68 28 32 2c 32 37  2c 22 22 2c 22 54 72 75  |:.h(2,27,"","Tru|
0000a2c0  65 20 63 6f 6c 6f 75 72  73 7c 2c 38 20 62 69 74  |e colours|,8 bit|
0000a2d0  20 70 65 72 20 70 69 78  65 6c 7c 22 29 0d 29 fe  | per pixel|").).|
0000a2e0  73 6d 24 3d 22 49 6e 76  65 72 74 7c 2c 52 65 6d  |sm$="Invert|,Rem|
0000a2f0  6f 76 65 20 54 49 4e 54  7c 3d 2c 42 72 69 67 68  |ove TINT|=,Brigh|
0000a300  74 65 6e 7c 2c 44 61 72  6b 65 6e 7c 3d 2c 42 6c  |ten|,Darken|=,Bl|
0000a310  61 63 6b 20 26 20 57 68  69 74 65 20 2e 2e 2e 7c  |ack & White ...||
0000a320  2c 47 72 65 79 74 6f 6e  65 73 20 2e 2e 2e 7c 2c  |,Greytones ...|,|
0000a330  54 68 72 65 73 68 6f 6c  64 20 2e 2e 2e 7c 3d 2c  |Threshold ...|=,|
0000a340  41 64 64 20 63 6f 6c 6f  75 72 20 2e 2e 2e 7c 22  |Add colour ...|"|
0000a350  0d 2a 08 e2 6d 24 2b 3d  22 2c 53 75 62 20 63 6f  |.*..m$+=",Sub co|
0000a360  6c 6f 75 72 20 2e 2e 2e  7c 2c 52 47 42 20 66 69  |lour ...|,RGB fi|
0000a370  6c 74 65 72 20 2e 2e 2e  7c 3e 39 3c 2c 54 72 61  |lter ...|>9<,Tra|
0000a380  6e 73 6c 61 74 65 20 2e  2e 2e 7c 3e 36 3c 2c 53  |nslate ...|>6<,S|
0000a390  68 61 64 65 20 2e 2e 2e  7c 3d 2c 49 73 6f 6c 61  |hade ...|=,Isola|
0000a3a0  74 65 20 2e 2e 2e 7c 2c  52 47 42 20 73 65 70 61  |te ...|,RGB sepa|
0000a3b0  72 61 74 69 6f 6e 7c 3e  32 37 3c 2c 43 4d 59 4b  |ration|>27<,CMYK|
0000a3c0  20 73 65 70 61 72 61 74  69 6f 6e 7c 3e 32 37 3c  | separation|>27<|
0000a3d0  2c 48 53 56 20 73 65 70  61 72 61 74 69 6f 6e 7c  |,HSV separation||
0000a3e0  3e 32 37 3c 22 3a f2 68  28 31 36 2c 31 38 2c 22  |>27<":.h(16,18,"|
0000a3f0  50 72 6f 63 65 73 73 22  2c 6d 24 29 3a 6d 24 3d  |Process",m$):m$=|
0000a400  22 55 70 7c 2c 44 6f 77  6e 7c 3d 2c 4f 6e 6c 79  |"Up|,Down|=,Only|
0000a410  20 6f 6e 63 65 7c 2c 52  65 70 65 61 74 65 64 6c  | once|,Repeatedl|
0000a420  79 7c 2c 4d 75 6c 74 69  2d 74 61 73 6b 69 6e 67  |y|,Multi-tasking|
0000a430  7c 22 0d 2a 12 89 f2 68  28 35 2c 32 31 2c 22 43  ||".*...h(5,21,"C|
0000a440  79 63 6c 65 22 2c 6d 24  29 3a f2 68 28 32 2c 32  |ycle",m$):.h(2,2|
0000a450  38 2c 22 53 71 75 61 73  68 22 2c 22 43 69 72 63  |8,"Squash","Circ|
0000a460  6c 65 7c 2c 54 72 69 61  6e 67 6c 65 7c 22 29 3a  |le|,Triangle|"):|
0000a470  6d 24 3d 22 57 68 69 72  6c 7c 3e 34 3c 2c 53 6f  |m$="Whirl|>4<,So|
0000a480  6e 20 6f 66 20 57 68 69  72 6c 7c 3e 34 3c 2c 57  |n of Whirl|>4<,W|
0000a490  68 69 72 6c 20 72 65 76  69 73 74 65 64 7c 3e 34  |hirl revisted|>4|
0000a4a0  3c 22 3a f2 68 28 33 2c  32 39 2c 22 57 68 69 72  |<":.h(3,29,"Whir|
0000a4b0  6c 20 74 79 70 65 22 2c  6d 24 29 0d 2a 1c e0 6d  |l type",m$).*..m|
0000a4c0  24 3d 22 53 63 72 61 74  63 68 7c 3e 38 3c 2c 52  |$="Scratch|>8<,R|
0000a4d0  69 70 70 6c 65 20 2e 2e  2e 7c 5b 52 69 70 70 6c  |ipple ...|[Rippl|
0000a4e0  65 5d 2c 54 72 61 63 65  20 65 64 67 65 73 20 2e  |e],Trace edges .|
0000a4f0  2e 2e 7c 2c 4d 6f 73 61  69 63 20 2e 2e 2e 7c 2c  |..|,Mosaic ...|,|
0000a500  50 6f 69 6e 74 69 6c 6c  69 73 65 7c 3e 31 31 3c  |Pointillise|>11<|
0000a510  2c 54 77 69 73 74 7c 5b  54 77 69 73 74 5d 2c 45  |,Twist|[Twist],E|
0000a520  78 74 65 6e 64 20 61 72  65 61 7c 3e 31 35 3c 2c  |xtend area|>15<,|
0000a530  41 64 64 20 6e 6f 69 73  65 7c 5b 4e 6f 69 73 65  |Add noise|[Noise|
0000a540  5d 2c 43 79 63 6c 65 20  62 79 74 65 73 7c 3e 32  |],Cycle bytes|>2|
0000a550  31 3c 2c 4d 61 73 6b 7c  2c 4d 69 78 20 63 6f 6c  |1<,Mask|,Mix col|
0000a560  6f 75 72 73 7c 2c 57 68  65 65 6c 7c 2c 53 71 75  |ours|,Wheel|,Squ|
0000a570  61 73 68 7c 3e 32 38 3c  2c 57 68 69 72 6c 7c 3e  |ash|>28<,Whirl|>|
0000a580  32 39 3c 22 3a f2 68 28  31 34 2c 31 39 2c 22 45  |29<":.h(14,19,"E|
0000a590  66 66 65 63 74 73 22 2c  6d 24 29 0d 2a 26 c4 6d  |ffects",m$).*&.m|
0000a5a0  24 3d 22 49 6d 61 67 65  7c 3e 31 36 3c 2c 4d 69  |$="Image|>16<,Mi|
0000a5b0  73 63 65 6c 6c 61 6e 65  6f 75 73 7c 3e 31 37 3c  |scellaneous|>17<|
0000a5c0  2c 43 6f 6e 74 72 61 73  74 2f 72 61 6e 67 65 7c  |,Contrast/range||
0000a5d0  3e 31 30 3c 2c 50 72 6f  63 65 73 73 7c 3e 31 38  |>10<,Process|>18|
0000a5e0  3c 2c 46 69 6c 74 65 72  73 7c 3e 35 3c 2c 45 66  |<,Filters|>5<,Ef|
0000a5f0  66 65 63 74 73 7c 3e 31  39 3c 2c 41 72 69 74 68  |fects|>19<,Arith|
0000a600  6d 65 74 69 63 7c 3e 31  32 3d 3c 2c 4d 6f 72 65  |metic|>12=<,More|
0000a610  20 74 6f 6f 6c 73 7c 3e  32 34 3c 3d 2c 53 77 61  | tools|>24<=,Swa|
0000a620  70 20 69 6d 61 67 65 73  7c 2c 53 61 76 65 20 69  |p images|,Save i|
0000a630  6d 61 67 65 7c 5b 53 61  76 65 5d 2c 5a 6f 6f 6d  |mage|[Save],Zoom|
0000a640  7c 5b 5a 6f 6f 6d 5d 22  3a f2 68 28 31 31 2c 32  ||[Zoom]":.h(11,2|
0000a650  30 2c 22 50 72 6f 63 65  73 73 22 2c 6d 24 29 0d  |0,"Process",m$).|
0000a660  2a 30 de 6d 24 3d 22 43  6f 70 79 20 66 72 6f 6d  |*0.m$="Copy from|
0000a670  20 73 6f 75 72 63 65 7c  2c 43 6f 70 79 20 66 72  | source|,Copy fr|
0000a680  6f 6d 20 64 65 73 74 69  6e 61 74 69 6f 6e 7c 3d  |om destination|=|
0000a690  2c 43 6f 70 79 20 74 6f  20 73 6f 75 72 63 65 7c  |,Copy to source||
0000a6a0  2c 43 6f 70 79 20 74 6f  20 64 65 73 74 69 6e 61  |,Copy to destina|
0000a6b0  74 69 6f 6e 7c 22 3a f2  68 28 34 2c 32 32 2c 22  |tion|":.h(4,22,"|
0000a6c0  43 6f 70 79 22 2c 6d 24  29 3a 6d 24 3d 22 55 73  |Copy",m$):m$="Us|
0000a6d0  65 20 61 73 20 73 6f 75  72 63 65 7c 2c 55 73 65  |e as source|,Use|
0000a6e0  20 61 73 20 64 65 73 74  69 6e 61 74 69 6f 6e 7c  | as destination||
0000a6f0  3d 2c 43 6f 70 79 7c 3e  32 32 3c 2c 52 65 6c 6f  |=,Copy|>22<,Relo|
0000a700  61 64 20 6c 61 73 74 7c  2c 53 61 76 65 20 69 6d  |ad last|,Save im|
0000a710  61 67 65 7c 5b 53 61 76  65 5d 2c 5a 6f 6f 6d 7c  |age|[Save],Zoom||
0000a720  5b 5a 6f 6f 6d 5d 22 3a  f2 68 28 36 2c 32 33 2c  |[Zoom]":.h(6,23,|
0000a730  22 50 72 6f 63 65 73 73  22 2c 6d 24 29 0d 2a 3a  |"Process",m$).*:|
0000a740  1e e7 44 61 25 3c 34 8c  f2 53 28 31 38 2c 31 33  |..Da%<4..S(18,13|
0000a750  29 3a f2 53 28 31 38 2c  31 35 29 0d 2a 44 14 e7  |):.S(18,15).*D..|
0000a760  44 61 25 3c 35 8c f2 53  28 31 38 2c 31 34 29 0d  |Da%<5..S(18,14).|
0000a770  2a 4e 05 e1 0d 2a 58 22  dd a4 73 28 61 25 29 3a  |*N...*X"..s(a%):|
0000a780  c8 99 38 39 31 33 33 31  2c 61 25 2c 65 25 2c 31  |..891331,a%,e%,1|
0000a790  33 3a 3d 24 65 25 0d 2a  62 31 dd a4 65 28 66 24  |3:=$e%.*b1..e(f$|
0000a7a0  29 3a c8 95 a7 66 24 2c  22 2e 22 29 3e 30 3a 66  |):...f$,".")>0:f|
0000a7b0  24 3d c1 66 24 2c a7 66  24 2c 22 2e 22 29 2b 31  |$=.f$,.f$,".")+1|
0000a7c0  29 3a ce 3a 3d 66 24 0d  2a 6c 55 dd f2 61 61 3a  |):.:=f$.*lU..aa:|
0000a7d0  ea 4d 25 2c 47 65 25 2c  66 24 2c 49 64 25 3a 66  |.M%,Ge%,f$,Id%:f|
0000a7e0  24 3d 22 3c 50 72 6f 63  65 73 73 24 44 69 72 3e  |$="<Process$Dir>|
0000a7f0  2e 52 65 73 6f 75 72 63  65 73 2e 58 53 70 72 69  |.Resources.XSpri|
0000a800  74 65 73 22 3a c8 99 35  33 2c 2d 31 2c 35 b8 2c  |tes":..53,-1,5.,|
0000a810  2c 47 65 25 3a e7 47 65  25 3c 32 8c 0d 2a 76 27  |,Ge%:.Ge%<2..*v'|
0000a820  c8 99 38 2c 35 2c 66 24  2b 22 32 32 22 b8 49 64  |..8,5,f$+"22".Id|
0000a830  25 3a e7 49 64 25 3d 31  8c 66 24 3d 66 24 2b 22  |%:.Id%=1.f$=f$+"|
0000a840  32 32 22 0d 2a 80 05 cd  0d 2a 8a 5b c8 99 38 2c  |22".*....*.[..8,|
0000a850  35 2c 66 24 b8 2c 2c 2c  2c 4d 25 3a 4d 25 2b 3d  |5,f$.,,,,M%:M%+=|
0000a860  31 36 3a de 63 64 25 20  4d 25 3a 63 64 25 21 30  |16:.cd% M%:cd%!0|
0000a870  3d 4d 25 3a 63 64 25 21  34 3d 30 3a 63 64 25 21  |=M%:cd%!4=0:cd%!|
0000a880  38 3d 31 36 3a 63 64 25  21 31 32 3d 31 36 3a c8  |8=16:cd%!12=16:.|
0000a890  99 34 36 2c 32 35 36 2b  31 30 2c 63 64 25 2c 66  |.46,256+10,cd%,f|
0000a8a0  24 3a e1 0d 2a 94 e6 dd  f2 6f 61 3a ea 48 65 25  |$:..*....oa:.He%|
0000a8b0  2c 49 65 25 2c 6e 25 2c  4a 65 25 2c 69 25 2c 77  |,Ie%,n%,Je%,i%,w|
0000a8c0  25 2c 73 25 3a 48 65 25  3d 32 36 32 33 36 33 3a  |%,s%:He%=262363:|
0000a8d0  49 65 25 3d 32 36 32 33  33 37 3a 6e 25 3d 51 25  |Ie%=262337:n%=Q%|
0000a8e0  3a 4a 65 25 3d 36 30 30  30 3a 73 25 3d 63 64 25  |:Je%=6000:s%=cd%|
0000a8f0  3a c8 99 32 36 32 33 36  31 2c 2c 22 3c 50 72 6f  |:..262361,,"<Pro|
0000a900  63 65 73 73 24 44 69 72  3e 2e 52 65 73 6f 75 72  |cess$Dir>.Resour|
0000a910  63 65 73 2e 54 65 6d 70  6c 61 74 65 73 22 3a c8  |ces.Templates":.|
0000a920  99 48 65 25 2c 2c 62 25  2c 6e 25 2c 51 25 2b 4a  |.He%,,b%,n%,Q%+J|
0000a930  65 25 2c 2d 31 2c 22 49  6e 66 6f 22 b8 2c 2c 6e  |e%,-1,"Info".,,n|
0000a940  25 3a c8 99 49 65 25 2c  2c 62 25 b8 49 61 25 3a  |%:..Ie%,,b%.Ia%:|
0000a950  c8 99 48 65 25 2c 2c 62  25 2c 6e 25 2c 51 25 2b  |..He%,,b%,n%,Q%+|
0000a960  4a 65 25 2c 2d 31 2c 22  53 61 76 65 22 b8 2c 2c  |Je%,-1,"Save".,,|
0000a970  6e 25 3a 62 25 21 36 34  3d 73 25 3a c8 99 49 65  |n%:b%!64=s%:..Ie|
0000a980  25 2c 2c 62 25 b8 4e 61  25 0d 2a 9e b8 c8 99 48  |%,,b%.Na%.*....H|
0000a990  65 25 2c 2c 62 25 2c 6e  25 2c 51 25 2b 4a 65 25  |e%,,b%,n%,Q%+Je%|
0000a9a0  2c 2d 31 2c 22 5a 6f 6f  6d 22 b8 2c 2c 6e 25 3a  |,-1,"Zoom".,,n%:|
0000a9b0  62 25 21 36 34 3d 73 25  3a c8 99 49 65 25 2c 2c  |b%!64=s%:..Ie%,,|
0000a9c0  62 25 b8 5a 61 25 3a c8  99 48 65 25 2c 2c 62 25  |b%.Za%:..He%,,b%|
0000a9d0  2c 6e 25 2c 51 25 2b 4a  65 25 2c 2d 31 2c 22 53  |,n%,Q%+Je%,-1,"S|
0000a9e0  65 6c 65 63 74 22 b8 2c  2c 6e 25 3a 62 25 21 36  |elect".,,n%:b%!6|
0000a9f0  34 3d 73 25 3a c8 99 49  65 25 2c 2c 62 25 b8 51  |4=s%:..Ie%,,b%.Q|
0000aa00  61 25 3a c8 99 48 65 25  2c 2c 62 25 2c 6e 25 2c  |a%:..He%,,b%,n%,|
0000aa10  51 25 2b 4a 65 25 2c 2d  31 2c 22 48 69 73 74 6f  |Q%+Je%,-1,"Histo|
0000aa20  67 72 61 6d 22 b8 2c 2c  6e 25 3a 62 25 21 36 34  |gram".,,n%:b%!64|
0000aa30  3d 73 25 3a c8 99 49 65  25 2c 2c 62 25 b8 4a 63  |=s%:..Ie%,,b%.Jc|
0000aa40  25 0d 2a a8 dd c8 99 48  65 25 2c 2c 62 25 2c 6e  |%.*....He%,,b%,n|
0000aa50  25 2c 51 25 2b 4a 65 25  2c 2d 31 2c 22 54 72 61  |%,Q%+Je%,-1,"Tra|
0000aa60  6e 73 6c 61 74 65 22 b8  2c 2c 6e 25 3a c8 99 49  |nslate".,,n%:..I|
0000aa70  65 25 2c 2c 62 25 b8 4d  63 25 3a c8 99 48 65 25  |e%,,b%.Mc%:..He%|
0000aa80  2c 2c 62 25 2c 6e 25 2c  51 25 2b 4a 65 25 2c 2d  |,,b%,n%,Q%+Je%,-|
0000aa90  31 2c 22 57 6f 62 62 6c  65 22 b8 2c 2c 6e 25 3a  |1,"Wobble".,,n%:|
0000aaa0  62 25 21 36 34 3d 73 25  3a c8 99 49 65 25 2c 2c  |b%!64=s%:..Ie%,,|
0000aab0  62 25 b8 4e 63 25 3a c8  99 48 65 25 2c 2c 62 25  |b%.Nc%:..He%,,b%|
0000aac0  2c 6e 25 2c 51 25 2b 4a  65 25 2c 2d 31 2c 22 49  |,n%,Q%+Je%,-1,"I|
0000aad0  6d 61 67 65 49 6e 66 6f  22 b8 2c 2c 6e 25 3a c8  |mageInfo".,,n%:.|
0000aae0  99 49 65 25 2c 2c 62 25  b8 62 63 25 3a c8 99 48  |.Ie%,,b%.bc%:..H|
0000aaf0  65 25 2c 2c 62 25 2c 6e  25 2c 51 25 2b 4a 65 25  |e%,,b%,n%,Q%+Je%|
0000ab00  2c 2d 31 2c 22 54 77 69  73 74 22 b8 2c 2c 6e 25  |,-1,"Twist".,,n%|
0000ab10  3a c8 99 49 65 25 2c 2c  62 25 b8 4b 62 25 0d 2a  |:..Ie%,,b%.Kb%.*|
0000ab20  b2 b5 c8 99 48 65 25 2c  2c 62 25 2c 6e 25 2c 51  |....He%,,b%,n%,Q|
0000ab30  25 2b 4a 65 25 2c 2d 31  2c 22 4e 6f 6e 4c 69 6e  |%+Je%,-1,"NonLin|
0000ab40  22 b8 2c 2c 6e 25 3a 62  25 21 36 34 3d 73 25 3a  |".,,n%:b%!64=s%:|
0000ab50  c8 99 49 65 25 2c 2c 62  25 b8 51 62 25 3a c8 99  |..Ie%,,b%.Qb%:..|
0000ab60  48 65 25 2c 2c 62 25 2c  6e 25 2c 51 25 2b 4a 65  |He%,,b%,n%,Q%+Je|
0000ab70  25 2c 2d 31 2c 22 4e 6f  69 73 65 22 b8 2c 2c 6e  |%,-1,"Noise".,,n|
0000ab80  25 3a 62 25 21 36 34 3d  73 25 3a c8 99 49 65 25  |%:b%!64=s%:..Ie%|
0000ab90  2c 2c 62 25 b8 58 62 25  3a c8 99 48 65 25 2c 2c  |,,b%.Xb%:..He%,,|
0000aba0  62 25 2c 6e 25 2c 51 25  2b 4a 65 25 2c 2d 31 2c  |b%,n%,Q%+Je%,-1,|
0000abb0  22 54 6f 6f 6c 73 22 b8  2c 2c 6e 25 3a 62 25 21  |"Tools".,,n%:b%!|
0000abc0  36 34 3d 73 25 3a c8 99  49 65 25 2c 2c 62 25 b8  |64=s%:..Ie%,,b%.|
0000abd0  65 63 25 0d 2a bc b5 c8  99 48 65 25 2c 2c 62 25  |ec%.*....He%,,b%|
0000abe0  2c 6e 25 2c 51 25 2b 4a  65 25 2c 2d 31 2c 22 44  |,n%,Q%+Je%,-1,"D|
0000abf0  65 73 74 22 b8 2c 2c 6e  25 3a 62 25 21 36 34 3d  |est".,,n%:b%!64=|
0000ac00  73 25 3a c8 99 49 65 25  2c 2c 62 25 b8 66 63 25  |s%:..Ie%,,b%.fc%|
0000ac10  3a c8 99 48 65 25 2c 2c  62 25 2c 6e 25 2c 51 25  |:..He%,,b%,n%,Q%|
0000ac20  2b 4a 65 25 2c 2d 31 2c  22 52 61 6e 67 65 22 b8  |+Je%,-1,"Range".|
0000ac30  2c 2c 6e 25 3a 62 25 21  36 34 3d 73 25 3a c8 99  |,,n%:b%!64=s%:..|
0000ac40  49 65 25 2c 2c 62 25 b8  44 63 25 3a c8 99 48 65  |Ie%,,b%.Dc%:..He|
0000ac50  25 2c 2c 62 25 2c 6e 25  2c 51 25 2b 4a 65 25 2c  |%,,b%,n%,Q%+Je%,|
0000ac60  2d 31 2c 22 53 75 62 54  6f 6f 6c 22 b8 2c 2c 6e  |-1,"SubTool".,,n|
0000ac70  25 3a 62 25 21 36 34 3d  73 25 3a c8 99 49 65 25  |%:b%!64=s%:..Ie%|
0000ac80  2c 2c 62 25 b8 67 63 25  0d 2a c6 d0 c8 99 48 65  |,,b%.gc%.*....He|
0000ac90  25 2c 2c 62 25 2c 6e 25  2c 51 25 2b 4a 65 25 2c  |%,,b%,n%,Q%+Je%,|
0000aca0  2d 31 2c 22 43 72 65 61  74 65 22 b8 2c 2c 6e 25  |-1,"Create".,,n%|
0000acb0  3a 62 25 21 36 34 3d 73  25 3a c8 99 49 65 25 2c  |:b%!64=s%:..Ie%,|
0000acc0  2c 62 25 b8 60 61 25 3a  c8 99 48 65 25 2c 2c 62  |,b%.`a%:..He%,,b|
0000acd0  25 2c 6e 25 2c 51 25 2b  4a 65 25 2c 2d 31 2c 22  |%,n%,Q%+Je%,-1,"|
0000ace0  50 65 6e 63 69 6c 22 b8  2c 2c 6e 25 3a 62 25 21  |Pencil".,,n%:b%!|
0000acf0  36 34 3d 73 25 3a c8 99  49 65 25 2c 2c 62 25 b8  |64=s%:..Ie%,,b%.|
0000ad00  48 62 25 3a e3 69 25 3d  31 b8 44 61 25 3a c8 99  |Hb%:.i%=1.Da%:..|
0000ad10  48 65 25 2c 2c 62 25 2c  6e 25 2c 51 25 2b 4a 65  |He%,,b%,n%,Q%+Je|
0000ad20  25 2c 2d 31 2c 22 53 6f  75 72 63 65 22 b8 2c 2c  |%,-1,"Source".,,|
0000ad30  6e 25 3a c8 99 49 65 25  2c 2c 62 25 b8 77 25 3a  |n%:..Ie%,,b%.w%:|
0000ad40  61 25 28 69 25 2c 31 29  3d 77 25 3a ed 3a c8 99  |a%(i%,1)=w%:.:..|
0000ad50  32 36 32 33 36 32 3a e1  0d 2a d0 57 dd f2 68 28  |262362:..*.W..h(|
0000ad60  4b 65 25 2c 68 25 2c 6a  24 2c 74 24 29 3a ea 62  |Ke%,h%,j$,t$):.b|
0000ad70  24 2c 6b 24 2c 64 24 2c  63 24 2c 4c 65 25 2c 4d  |$,k$,d$,c$,Le%,M|
0000ad80  65 25 2c 4e 65 25 2c 49  25 2c 51 63 25 2c 4f 65  |e%,Ne%,I%,Qc%,Oe|
0000ad90  25 2c 50 65 25 3a e7 68  25 3c 30 8c 51 65 25 3d  |%,Pe%:.h%<0.Qe%=|
0000ada0  65 25 28 2d 68 25 29 8b  51 65 25 3d 46 65 25 0d  |e%(-h%).Qe%=Fe%.|
0000adb0  2a da 1e 52 65 25 3d 51  65 25 3a e7 a9 6a 24 3e  |*..Re%=Qe%:..j$>|
0000adc0  31 31 8c 6a 24 3d c0 6a  24 2c 31 31 29 0d 2a e4  |11.j$=.j$,11).*.|
0000add0  ab 24 52 65 25 3d 6a 24  3a 51 63 25 3d 31 36 2a  |.$Re%=j$:Qc%=16*|
0000ade0  a9 6a 24 2b 38 3a 52 65  25 21 31 32 3d 34 35 39  |.j$+8:Re%!12=459|
0000adf0  32 37 31 3a 52 65 25 21  32 30 3d 34 34 3a 52 65  |271:Re%!20=44:Re|
0000ae00  25 21 32 34 3d 30 3a 52  65 25 2b 3d 32 38 3a e3  |%!24=0:Re%+=28:.|
0000ae10  49 25 3d 31 b8 4b 65 25  3a 4c 65 25 3d 2d 31 3a  |I%=1.Ke%:Le%=-1:|
0000ae20  4d 65 25 3d 30 3a 4e 65  25 3d 30 3a 50 65 25 3d  |Me%=0:Ne%=0:Pe%=|
0000ae30  30 3a 62 24 3d c0 74 24  2c a7 74 24 2c 22 2c 22  |0:b$=.t$,.t$,","|
0000ae40  29 2d 31 29 3a 4f 65 25  3d a7 62 24 2c 22 7c 22  |)-1):Oe%=.b$,"|"|
0000ae50  29 3a 6b 24 3d c0 62 24  2c 4f 65 25 2d 31 29 3a  |):k$=.b$,Oe%-1):|
0000ae60  63 24 3d c1 62 24 2c 4f  65 25 2b 31 29 3a e7 a7  |c$=.b$,Oe%+1):..|
0000ae70  63 24 2c 22 3e 22 29 8c  0d 2a ee 37 64 24 3d c1  |c$,">")..*.7d$=.|
0000ae80  63 24 2c a7 63 24 2c 22  3e 22 29 2b 31 29 3a 64  |c$,.c$,">")+1):d|
0000ae90  24 3d c0 64 24 2c a7 64  24 2c 22 3c 22 29 2d 31  |$=.d$,.d$,"<")-1|
0000aea0  29 3a 4c 65 25 3d 65 25  28 bb 28 64 24 29 29 0d  |):Le%=e%(.(d$)).|
0000aeb0  2a f8 05 cd 0d 2b 02 0e  e7 a7 63 24 2c 22 5b 22  |*....+....c$,"["|
0000aec0  29 8c 0d 2b 0c 2f 64 24  3d c1 63 24 2c a7 63 24  |)..+./d$=.c$,.c$|
0000aed0  2c 22 5b 22 29 2b 31 29  3a 64 24 3d c0 64 24 2c  |,"[")+1):d$=.d$,|
0000aee0  a7 64 24 2c 22 5d 22 29  2d 31 29 3a c8 8e 64 24  |.d$,"]")-1):..d$|
0000aef0  ca 0d 2b 16 13 c9 22 49  6e 66 6f 22 3a 4c 65 25  |..+..."Info":Le%|
0000af00  3d 49 61 25 0d 2b 20 13  c9 22 53 61 76 65 22 3a  |=Ia%.+ .."Save":|
0000af10  4c 65 25 3d 4e 61 25 0d  2b 2a 13 c9 22 5a 6f 6f  |Le%=Na%.+*.."Zoo|
0000af20  6d 22 3a 4c 65 25 3d 5a  61 25 0d 2b 34 14 c9 22  |m":Le%=Za%.+4.."|
0000af30  49 6d 61 67 65 22 3a 4c  65 25 3d 62 63 25 0d 2b  |Image":Le%=bc%.+|
0000af40  3e 14 c9 22 54 77 69 73  74 22 3a 4c 65 25 3d 4b  |>.."Twist":Le%=K|
0000af50  62 25 0d 2b 48 15 c9 22  52 69 70 70 6c 65 22 3a  |b%.+H.."Ripple":|
0000af60  4c 65 25 3d 4e 63 25 0d  2b 52 15 c9 22 4e 6f 6e  |Le%=Nc%.+R.."Non|
0000af70  4c 69 6e 22 3a 4c 65 25  3d 51 62 25 0d 2b 5c 14  |Lin":Le%=Qb%.+\.|
0000af80  c9 22 4e 6f 69 73 65 22  3a 4c 65 25 3d 58 62 25  |."Noise":Le%=Xb%|
0000af90  0d 2b 66 13 c9 22 4d 61  72 6b 22 3a 4c 65 25 3d  |.+f.."Mark":Le%=|
0000afa0  44 63 25 0d 2b 70 1e 7f  3a 85 31 2c 22 55 6e 6b  |Dc%.+p..:.1,"Unk|
0000afb0  6e 6f 77 6e 20 77 69 6e  64 6f 77 20 3a 22 2b 64  |nown window :"+d|
0000afc0  24 0d 2b 7a 05 cb 0d 2b  84 05 cd 0d 2b 8e 0e e7  |$.+z...+....+...|
0000afd0  a7 63 24 2c 22 28 22 29  8c 0d 2b 98 33 64 24 3d  |.c$,"(")..+.3d$=|
0000afe0  c1 63 24 2c a7 63 24 2c  22 28 22 29 2b 31 29 3a  |.c$,.c$,"(")+1):|
0000aff0  64 24 3d c0 64 24 2c a7  64 24 2c 22 29 22 29 2d  |d$=.d$,.d$,")")-|
0000b000  31 29 3a c8 8e c1 64 24  2c 33 29 ca 0d 2b a2 15  |1):...d$,3)..+..|
0000b010  c9 22 52 6f 74 22 3a 52  65 25 21 31 32 3d 63 61  |."Rot":Re%!12=ca|
0000b020  25 0d 2b ac 05 cb 0d 2b  b6 39 52 65 25 21 31 36  |%.+....+.9Re%!16|
0000b030  3d 2d 31 3a 52 65 25 21  32 30 3d a0 c0 64 24 2c  |=-1:Re%!20=..d$,|
0000b040  32 29 3a 4d 65 25 3d 34  3a 50 65 25 3d 31 3a 51  |2):Me%=4:Pe%=1:Q|
0000b050  63 25 3d 31 36 2b 31 36  2a 52 65 25 21 32 30 0d  |c%=16+16*Re%!20.|
0000b060  2b c0 16 cc 3a 4f 65 25  3d a9 6b 24 3a e7 4f 65  |+...:Oe%=.k$:.Oe|
0000b070  25 3e 31 31 8c 0d 2b ca  3e 52 65 25 21 31 32 3d  |%>11..+.>Re%!12=|
0000b080  45 65 25 3a 52 65 25 21  31 36 3d 2d 31 3a 52 65  |Ee%:Re%!16=-1:Re|
0000b090  25 21 32 30 3d 4f 65 25  2b 31 3a 24 45 65 25 3d  |%!20=Oe%+1:$Ee%=|
0000b0a0  6b 24 3a 45 65 25 2b 3d  4f 65 25 2b 32 3a 50 65  |k$:Ee%+=Oe%+2:Pe|
0000b0b0  25 3d 31 0d 2b d4 12 cc  3a 24 28 52 65 25 2b 31  |%=1.+...:$(Re%+1|
0000b0c0  32 29 3d 6b 24 0d 2b de  05 cd 0d 2b e8 20 e7 31  |2)=k$.+....+. .1|
0000b0d0  36 2b 31 36 2a 4f 65 25  3e 51 63 25 8c 51 63 25  |6+16*Oe%>Qc%.Qc%|
0000b0e0  3d 31 36 2b 31 36 2a 4f  65 25 0d 2b f2 05 cd 0d  |=16+16*Oe%.+....|
0000b0f0  2b fc 13 e7 a7 63 24 2c  22 3d 22 29 8c 4e 65 25  |+....c$,"=").Ne%|
0000b100  3d 32 0d 2c 06 90 74 24  3d c1 74 24 2c a7 74 24  |=2.,..t$=.t$,.t$|
0000b110  2c 22 2c 22 29 2b 31 29  3a 52 65 25 21 30 3d 4e  |,",")+1):Re%!0=N|
0000b120  65 25 84 4d 65 25 3a 52  65 25 21 34 3d 4c 65 25  |e%.Me%:Re%!4=Le%|
0000b130  3a 52 65 25 21 38 3d 26  37 30 30 30 30 32 31 84  |:Re%!8=&7000021.|
0000b140  50 65 25 3c 3c 38 3a 52  65 25 2b 3d 32 34 3a ed  |Pe%<<8:Re%+=24:.|
0000b150  3a 52 65 25 21 2d 32 34  3d 28 52 65 25 21 2d 32  |:Re%!-24=(Re%!-2|
0000b160  34 84 31 32 38 29 3a 51  65 25 21 31 36 3d 51 63  |4.128):Qe%!16=Qc|
0000b170  25 3a e7 68 25 3e 3d 30  8c 46 65 25 2b 3d 32 38  |%:.h%>=0.Fe%+=28|
0000b180  2b 32 34 2a 4b 65 25 3a  65 25 28 68 25 29 3d 51  |+24*Ke%:e%(h%)=Q|
0000b190  65 25 0d 2c 10 05 e1 0d  2c 1a 14 dd f2 45 62 28  |e%.,....,....Eb(|
0000b1a0  62 25 29 3a c8 8e 62 25  21 30 ca 0d 2c 24 0e c9  |b%):..b%!0..,$..|
0000b1b0  30 3a f2 77 28 49 61 25  29 0d 2c 2e 22 c9 31 3a  |0:.w(Ia%).,.".1:|
0000b1c0  e7 62 25 21 34 3c 3d 30  8c f2 75 61 8b f2 61 28  |.b%!4<=0..ua..a(|
0000b1d0  61 25 28 62 25 21 34 2c  31 29 29 0d 2c 38 0e c9  |a%(b%!4,1)).,8..|
0000b1e0  32 3a f2 77 28 60 61 25  29 0d 2c 42 09 c9 33 3a  |2:.w(`a%).,B..3:|
0000b1f0  f2 59 0d 2c 4c 0c c9 34  3a 73 61 25 3d b9 0d 2c  |.Y.,L..4:sa%=..,|
0000b200  56 05 cb 0d 2c 60 05 e1  0d 2c 6a 14 dd f2 46 62  |V...,`...,j...Fb|
0000b210  28 62 25 29 3a c8 8e 62  25 21 30 ca 0d 2c 74 0e  |(b%):..b%!0..,t.|
0000b220  c9 30 3a c8 8e 62 25 21  34 ca 0d 2c 7e 0e c9 30  |.0:..b%!4..,~..0|
0000b230  3a f2 77 28 62 63 25 29  0d 2c 88 0a c9 31 3a f2  |:.w(bc%).,...1:.|
0000b240  47 62 0d 2c 92 09 c9 32  3a f2 56 0d 2c 9c 0e c9  |Gb.,...2:.V.,...|
0000b250  33 3a c8 8e 62 25 21 38  ca 0d 2c a6 0d c9 2d 31  |3:..b%!8..,...-1|
0000b260  3a f2 72 28 32 29 0d 2c  b0 1e c9 30 2c 31 2c 32  |:.r(2).,...0,1,2|
0000b270  2c 33 2c 34 2c 35 2c 36  2c 37 3a f2 5f 61 28 62  |,3,4,5,6,7:._a(b|
0000b280  25 21 38 29 0d 2c ba 05  cb 0d 2c c4 12 c9 34 3a  |%!8).,....,...4:|
0000b290  f2 76 28 30 29 3a 75 62  25 3d 30 0d 2c ce 13 c9  |.v(0):ub%=0.,...|
0000b2a0  35 2c 36 3a f2 76 28 62  25 21 34 2d 35 29 0d 2c  |5,6:.v(b%!4-5).,|
0000b2b0  d8 05 cb 0d 2c e2 0e c9  31 3a c8 8e 62 25 21 34  |....,...1:..b%!4|
0000b2c0  ca 0d 2c ec 0e c9 30 3a  c8 8e 62 25 21 38 ca 0d  |..,...0:..b%!8..|
0000b2d0  2c f6 0f c9 30 3a 45 61  25 3d ac 45 61 25 0d 2d  |,...0:Ea%=.Ea%.-|
0000b2e0  00 0d c9 31 3a 4f 25 3d  ac 4f 25 0d 2d 0a 15 c9  |...1:O%=.O%.-...|
0000b2f0  32 3a 46 61 25 3d ac 46  61 25 3a e7 46 61 25 8c  |2:Fa%=.Fa%:.Fa%.|
0000b300  0d 2d 14 17 e7 61 25 28  6f 25 2c 36 29 3c 3e 30  |.-...a%(o%,6)<>0|
0000b310  8c f2 61 28 58 25 29 0d  2d 1e 17 e7 61 25 28 5f  |..a(X%).-...a%(_|
0000b320  25 2c 36 29 3c 3e 30 8c  f2 61 28 50 25 29 0d 2d  |%,6)<>0..a(P%).-|
0000b330  28 15 cc 3a f2 6c 28 65  63 25 29 3a f2 6c 28 66  |(..:.l(ec%):.l(f|
0000b340  63 25 29 0d 2d 32 05 cd  0d 2d 3c 10 c9 33 3a 47  |c%).-2...-<..3:G|
0000b350  61 25 3d 31 2d 47 61 25  0d 2d 46 10 c9 34 3a f2  |a%=1-Ga%.-F..4:.|
0000b360  48 62 28 ac 77 62 25 29  0d 2d 50 05 cb 0d 2d 5a  |Hb(.wb%).-P...-Z|
0000b370  0e c9 31 3a f2 61 28 48  62 25 29 0d 2d 64 0e c9  |..1:.a(Hb%).-d..|
0000b380  32 3a c8 8e 62 25 21 38  ca 0d 2d 6e 0d c9 2d 31  |2:..b%!8..-n..-1|
0000b390  3a 56 61 25 3d 30 0d 2d  78 0e 7f 3a 56 61 25 3d  |:Va%=0.-x..:Va%=|
0000b3a0  62 25 21 38 0d 2d 82 05  cb 0d 2d 8c 1d c9 33 3a  |b%!8.-....-...3:|
0000b3b0  e7 67 65 25 3d 32 8c f2  49 62 28 6f 25 29 8b f2  |.ge%=2..Ib(o%)..|
0000b3c0  49 62 28 5f 25 29 0d 2d  96 05 cb 0d 2d a0 15 c9  |Ib(_%).-....-...|
0000b3d0  32 3a f2 71 62 28 62 25  21 34 2c 62 25 21 38 29  |2:.qb(b%!4,b%!8)|
0000b3e0  0d 2d aa 0e c9 33 3a c8  8e 62 25 21 34 ca 0d 2d  |.-...3:..b%!4..-|
0000b3f0  b4 11 c9 31 33 3a f2 6d  62 28 62 25 21 38 29 0d  |...13:.mb(b%!8).|
0000b400  2d be 11 c9 31 34 3a f2  6e 62 28 62 25 21 38 29  |-...14:.nb(b%!8)|
0000b410  0d 2d c8 11 c9 31 35 3a  f2 6c 62 28 62 25 21 38  |.-...15:.lb(b%!8|
0000b420  29 0d 2d d2 14 7f 3a f2  70 62 28 62 25 21 34 2c  |).-...:.pb(b%!4,|
0000b430  62 25 21 38 29 0d 2d dc  05 cb 0d 2d e6 0e c9 34  |b%!8).-....-...4|
0000b440  3a c8 8e 62 25 21 34 ca  0d 2d f0 2a c9 30 2c 31  |:..b%!4..-.*.0,1|
0000b450  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  |,2,3,4,5,6,7,8,9|
0000b460  2c 31 30 2c 31 31 3a f2  50 61 28 62 25 21 34 2c  |,10,11:.Pa(b%!4,|
0000b470  30 29 0d 2d fa 0f c9 31  32 3a f2 47 28 31 31 33  |0).-...12:.G(113|
0000b480  29 0d 2e 04 05 cb 0d 2e  0e 15 c9 35 3a f2 7a 62  |)..........5:.zb|
0000b490  28 62 25 21 34 2c 62 25  21 38 29 0d 2e 18 12 c9  |(b%!4,b%!8).....|
0000b4a0  36 3a f2 51 61 28 62 25  21 34 2c 30 29 0d 2e 22  |6:.Qa(b%!4,0).."|
0000b4b0  0e c9 37 3a c8 8e 62 25  21 34 ca 0d 2e 2c 0e c9  |..7:..b%!4...,..|
0000b4c0  30 3a f2 47 28 32 30 30  29 0d 2e 36 11 c9 31 3a  |0:.G(200)..6..1:|
0000b4d0  f2 68 62 28 33 33 2c 6f  25 29 0d 2e 40 11 c9 32  |.hb(33,o%)..@..2|
0000b4e0  3a f2 68 62 28 34 37 2c  6f 25 29 0d 2e 4a 20 c9  |:.hb(47,o%)..J .|
0000b4f0  33 3a f2 69 62 28 bb 28  a4 73 28 63 61 25 29 29  |3:.ib(.(.s(ca%))|
0000b500  2c 31 2c 30 2c 30 2c b9  2c 30 29 0d 2e 54 0e c9  |,1,0,0,.,0)..T..|
0000b510  34 3a c8 8e 62 25 21 38  ca 0d 2e 5e 24 c9 30 2c  |4:..b%!8...^$.0,|
0000b520  31 2c 32 2c 33 2c 34 2c  35 3a f2 72 28 31 30 31  |1,2,3,4,5:.r(101|
0000b530  29 3a 54 61 25 3d 31 30  2b 62 25 21 38 0d 2e 68  |):Ta%=10+b%!8..h|
0000b540  0f c9 36 3a 42 62 25 3d  ac 42 62 25 0d 2e 72 05  |..6:Bb%=.Bb%..r.|
0000b550  cb 0d 2e 7c 14 c9 35 3a  f2 72 28 31 30 31 29 3a  |...|..5:.r(101):|
0000b560  54 61 25 3d 31 0d 2e 86  14 c9 36 3a f2 72 28 31  |Ta%=1.....6:.r(1|
0000b570  30 31 29 3a 54 61 25 3d  32 0d 2e 90 15 c9 37 3a  |01):Ta%=2.....7:|
0000b580  f2 72 28 31 30 31 29 3a  54 61 25 3d 32 30 0d 2e  |.r(101):Ta%=20..|
0000b590  9a 05 cb 0d 2e a4 0a c9  38 3a f2 48 61 0d 2e ae  |........8:.Ha...|
0000b5a0  0e c9 39 3a f2 77 28 4e  61 25 29 0d 2e b8 0f c9  |..9:.w(Na%).....|
0000b5b0  31 30 3a f2 77 28 5a 61  25 29 0d 2e c2 05 cb 0d  |10:.w(Za%)......|
0000b5c0  2e cc 05 e1 0d 2e d6 13  dd f2 6c 61 28 62 25 29  |..........la(b%)|
0000b5d0  3a c8 8e 67 65 25 ca 0d  2e e0 0e c9 31 3a f2 45  |:..ge%......1:.E|
0000b5e0  62 28 62 25 29 0d 2e ea  10 c9 32 2c 33 3a f2 46  |b(b%).....2,3:.F|
0000b5f0  62 28 62 25 29 0d 2e f4  0d 7f 3a e7 67 65 25 3c  |b(b%).....:.ge%<|
0000b600  30 8c 0d 2e fe 0b c8 8e  62 25 21 30 ca 0d 2f 08  |0.......b%!0../.|
0000b610  16 c9 30 3a f2 4a 62 28  2d 67 65 25 29 3a 67 65  |..0:.Jb(-ge%):ge|
0000b620  25 3d 32 0d 2f 12 16 c9  31 3a f2 4b 62 28 2d 67  |%=2./...1:.Kb(-g|
0000b630  65 25 29 3a 67 65 25 3d  33 0d 2f 1c 0e c9 32 3a  |e%):ge%=3./...2:|
0000b640  c8 8e 62 25 21 34 ca 0d  2f 26 21 c9 30 3a f2 46  |..b%!4../&!.0:.F|
0000b650  28 6f 25 2c 2d 67 65 25  29 3a f2 6b 28 61 25 28  |(o%,-ge%):.k(a%(|
0000b660  2d 67 65 25 2c 31 29 29  0d 2f 30 21 c9 31 3a f2  |-ge%,1))./0!.1:.|
0000b670  46 28 5f 25 2c 2d 67 65  25 29 3a f2 6b 28 61 25  |F(_%,-ge%):.k(a%|
0000b680  28 2d 67 65 25 2c 31 29  29 0d 2f 3a 19 c9 32 3a  |(-ge%,1))./:..2:|
0000b690  f2 46 28 2d 67 65 25 2c  6f 25 29 3a f2 6b 28 58  |.F(-ge%,o%):.k(X|
0000b6a0  25 29 0d 2f 44 19 c9 33  3a f2 46 28 2d 67 65 25  |%)./D..3:.F(-ge%|
0000b6b0  2c 5f 25 29 3a f2 6b 28  50 25 29 0d 2f 4e 05 cb  |,_%):.k(P%)./N..|
0000b6c0  0d 2f 58 10 c9 33 3a f2  49 62 28 2d 67 65 25 29  |./X..3:.Ib(-ge%)|
0000b6d0  0d 2f 62 0e c9 34 3a f2  77 28 4e 61 25 29 0d 2f  |./b..4:.w(Na%)./|
0000b6e0  6c 0e c9 35 3a f2 77 28  5a 61 25 29 0d 2f 76 05  |l..5:.w(Za%)./v.|
0000b6f0  cb 0d 2f 80 05 cd 0d 2f  8a 05 cb 0d 2f 94 1b c8  |../..../..../...|
0000b700  99 32 36 32 33 35 31 2c  2c 62 25 3a e7 28 62 25  |.262351,,b%:.(b%|
0000b710  21 38 80 31 29 8c 0d 2f  9e 0a c8 8e 67 65 25 ca  |!8.1)../....ge%.|
0000b720  0d 2f a8 22 c9 31 3a f2  43 61 3a c8 99 32 36 32  |./.".1:.Ca:..262|
0000b730  33 35 36 2c 2c 65 25 28  32 29 2c 42 63 25 2c 43  |356,,e%(2),Bc%,C|
0000b740  63 25 0d 2f b2 29 c9 32  2c 33 3a f2 60 28 67 65  |c%./.).2,3:.`(ge|
0000b750  25 29 3a c8 99 32 36 32  33 35 36 2c 2c 65 25 28  |%):..262356,,e%(|
0000b760  32 30 29 2c 42 63 25 2c  43 63 25 0d 2f bc 0d 7f  |20),Bc%,Cc%./...|
0000b770  3a e7 67 65 25 3c 30 8c  0d 2f c6 26 f2 59 61 28  |:.ge%<0../.&.Ya(|
0000b780  2d 67 65 25 29 3a c8 99  32 36 32 33 35 36 2c 2c  |-ge%):..262356,,|
0000b790  65 25 28 32 33 29 2c 42  63 25 2c 43 63 25 0d 2f  |e%(23),Bc%,Cc%./|
0000b7a0  d0 05 cd 0d 2f da 05 cb  0d 2f e4 05 cd 0d 2f ee  |..../..../..../.|
0000b7b0  05 e1 0d 2f f8 2e dd f2  77 28 77 25 29 3a c8 99  |.../....w(w%):..|
0000b7c0  32 36 32 33 35 36 2c 2c  77 25 2c 7a 61 25 2f 32  |262356,,w%,za%/2|
0000b7d0  2d 32 30 30 2c 41 61 25  2f 32 2b 33 30 30 3a e1  |-200,Aa%/2+300:.|
0000b7e0  0d 30 02 35 dd f2 53 28  70 25 2c 6e 25 29 3a 70  |.0.5..S(p%,n%):p|
0000b7f0  25 3d 65 25 28 70 25 29  2b 33 36 2b 6e 25 2a 32  |%=e%(p%)+36+n%*2|
0000b800  34 3a 21 70 25 3d 28 21  70 25 84 34 31 39 34 33  |4:!p%=(!p%.41943|
0000b810  30 34 29 3a e1 0d 30 0c  4d dd f2 6a 28 70 25 2c  |04):..0.M..j(p%,|
0000b820  6e 25 2c 73 25 29 3a 70  25 3d 65 25 28 70 25 29  |n%,s%):p%=e%(p%)|
0000b830  2b 33 36 2b 6e 25 2a 32  34 3a e7 73 25 8c 21 70  |+36+n%*24:.s%.!p|
0000b840  25 3d 28 21 70 25 84 34  31 39 34 33 30 34 29 8b  |%=(!p%.4194304).|
0000b850  21 70 25 3d 28 21 70 25  80 ac 34 31 39 34 33 30  |!p%=(!p%..419430|
0000b860  34 29 0d 30 16 05 e1 0d  30 20 41 dd f2 73 28 70  |4).0....0 A..s(p|
0000b870  25 2c 6e 25 2c 74 25 29  3a 70 25 3d 65 25 28 70  |%,n%,t%):p%=e%(p|
0000b880  25 29 2b 32 38 2b 6e 25  2a 32 34 3a e7 74 25 8c  |%)+28+n%*24:.t%.|
0000b890  21 70 25 3d 28 21 70 25  84 31 29 8b 21 70 25 3d  |!p%=(!p%.1).!p%=|
0000b8a0  28 21 70 25 80 ac 31 29  0d 30 2a 05 e1 0d 30 34  |(!p%..1).0*...04|
0000b8b0  12 dd f2 66 3a c8 99 32  36 33 38 37 32 3a e1 0d  |...f:..263872:..|
0000b8c0  30 3e 12 dd f2 67 3a c8  99 32 36 33 38 37 33 3a  |0>...g:..263873:|
0000b8d0  e1 0d 30 48 19 dd f2 44  28 70 25 29 3a c8 99 32  |..0H...D(p%):..2|
0000b8e0  36 33 38 37 36 2c 70 25  3a e1 0d 30 52 45 dd f2  |63876,p%:..0RE..|
0000b8f0  48 62 28 53 65 25 29 3a  ea 69 25 3a 77 62 25 3d  |Hb(Se%):.i%:wb%=|
0000b900  53 65 25 3a f2 4c 62 3a  e3 69 25 3d 31 b8 44 61  |Se%:.Lb:.i%=1.Da|
0000b910  25 3a f2 6b 28 61 25 28  69 25 2c 31 29 29 3a ed  |%:.k(a%(i%,1)):.|
0000b920  3a f2 73 28 31 33 2c 34  2c 77 62 25 29 3a e1 0d  |:.s(13,4,wb%):..|
0000b930  30 5c 8a dd f2 4d 62 28  56 25 29 3a ea 71 25 2c  |0\...Mb(V%):.q%,|
0000b940  48 25 2c 4a 25 2c 4b 25  3a e3 71 25 3d 30 b8 32  |H%,J%,K%:.q%=0.2|
0000b950  35 35 3a c8 99 38 39 32  36 31 30 2c 71 25 b8 21  |55:..892610,q%.!|
0000b960  65 25 3a 48 25 3d 65 25  3f 31 3a 4a 25 3d 65 25  |e%:H%=e%?1:J%=e%|
0000b970  3f 32 3a 4b 25 3d 65 25  3f 33 3a 4c 25 3f 71 25  |?2:K%=e%?3:L%?q%|
0000b980  3d 48 25 2a 30 2e 33 2b  4a 25 2a 30 2e 35 35 2b  |=H%*0.3+J%*0.55+|
0000b990  4b 25 2a 30 2e 31 35 3a  ed 3a c8 99 38 39 32 36  |K%*0.15:.:..8926|
0000b9a0  31 32 2c 61 25 28 56 25  2c 33 29 2c 61 25 28 56  |12,a%(V%,3),a%(V|
0000b9b0  25 2c 33 29 2c 4c 25 3a  e1 0d 30 66 45 dd f2 47  |%,3),L%:..0fE..G|
0000b9c0  62 3a f2 66 3a f2 48 62  28 b9 29 3a e3 56 25 3d  |b:.f:.Hb(.):.V%=|
0000b9d0  31 b8 44 61 25 3a f2 44  28 31 30 30 2a 28 56 25  |1.Da%:.D(100*(V%|
0000b9e0  2d 31 29 2f 44 61 25 29  3a f2 4d 62 28 56 25 29  |-1)/Da%):.Mb(V%)|
0000b9f0  3a ed 3a f2 44 62 28 31  29 3a f2 67 3a e1 0d 30  |:.:.Db(1):.g:..0|
0000ba00  70 31 dd f2 62 28 6a 25  21 31 32 2c 6a 25 21 31  |p1..b(j%!12,j%!1|
0000ba10  36 2c 6a 25 21 38 29 3a  e7 6a 25 21 31 32 3c 3e  |6,j%!8):.j%!12<>|
0000ba20  2d 31 8c c8 99 36 36 31  31 32 30 2c 2c 6a 25 0d  |-1...661120,,j%.|
0000ba30  30 7a 26 e7 6a 25 21 38  3d 30 8c 4a 61 25 3d 2d  |0z&.j%!8=0.Ja%=-|
0000ba40  31 8b 4a 61 25 3d 6a 25  21 31 32 3a 71 63 25 3d  |1.Ja%=j%!12:qc%=|
0000ba50  6a 25 21 31 36 0d 30 84  05 e1 0d 30 8e 34 dd f2  |j%!16.0....0.4..|
0000ba60  64 28 77 25 2c 69 25 2c  66 25 29 3a 6a 25 21 30  |d(w%,i%,f%):j%!0|
0000ba70  3d 77 25 3a 6a 25 21 34  3d 69 25 3a c8 99 32 36  |=w%:j%!4=i%:..26|
0000ba80  32 33 35 30 2c 2c 6a 25  3a c8 8e 66 25 ca 0d 30  |2350,,j%:..f%..0|
0000ba90  98 1a c9 30 3a 6a 25 21  38 3d 6a 25 21 32 34 80  |...0:j%!8=j%!24.|
0000baa0  ac 28 31 3c 3c 32 31 29  0d 30 a2 1c c9 31 2c 2d  |.(1<<21).0...1,-|
0000bab0  31 3a 6a 25 21 38 3d 6a  25 21 32 34 84 28 31 3c  |1:j%!8=j%!24.(1<|
0000bac0  3c 32 31 29 0d 30 ac 19  c9 32 3a 6a 25 21 38 3d  |<21).0...2:j%!8=|
0000bad0  6a 25 21 32 34 82 28 31  3c 3c 32 31 29 0d 30 b6  |j%!24.(1<<21).0.|
0000bae0  05 cb 0d 30 c0 1b 6a 25  21 31 32 3d 2d 31 3a c8  |...0..j%!12=-1:.|
0000baf0  99 32 36 32 33 34 39 2c  2c 6a 25 3a e1 0d 30 ca  |.262349,,j%:..0.|
0000bb00  66 dd f2 54 28 77 25 2c  69 25 2c 54 65 25 29 3a  |f..T(w%,i%,Te%):|
0000bb10  6a 25 21 30 3d 77 25 3a  6a 25 21 34 3d 69 25 3a  |j%!0=w%:j%!4=i%:|
0000bb20  c8 99 32 36 32 33 35 30  2c 2c 6a 25 3a 6a 25 21  |..262350,,j%:j%!|
0000bb30  38 3d 28 6a 25 21 32 34  80 ac 28 31 35 3c 3c 32  |8=(j%!24..(15<<2|
0000bb40  34 29 29 84 54 65 25 3c  3c 32 34 3a 6a 25 21 31  |4)).Te%<<24:j%!1|
0000bb50  32 3d 2d 31 3a c8 99 32  36 32 33 34 39 2c 2c 6a  |2=-1:..262349,,j|
0000bb60  25 3a e1 0d 30 d4 59 dd  f2 4b 28 77 25 2c 69 25  |%:..0.Y..K(w%,i%|
0000bb70  2c 66 25 29 3a 6a 25 21  30 3d 77 25 3a 6a 25 21  |,f%):j%!0=w%:j%!|
0000bb80  34 3d 69 25 3a c8 99 32  36 32 33 35 30 2c 2c 6a  |4=i%:..262350,,j|
0000bb90  25 3a e7 66 25 8c 6a 25  21 38 3d 6a 25 21 32 34  |%:.f%.j%!8=j%!24|
0000bba0  84 28 31 3c 3c 32 32 29  8b 6a 25 21 38 3d 6a 25  |.(1<<22).j%!8=j%|
0000bbb0  21 32 34 80 ac 28 31 3c  3c 32 32 29 0d 30 de 1b  |!24..(1<<22).0..|
0000bbc0  6a 25 21 31 32 3d 2d 31  3a c8 99 32 36 32 33 34  |j%!12=-1:..26234|
0000bbd0  39 2c 2c 6a 25 3a e1 0d  30 e8 3c dd f2 65 28 77  |9,,j%:..0.<..e(w|
0000bbe0  25 2c 69 25 29 3a 6a 25  21 30 3d 77 25 3a 6a 25  |%,i%):j%!0=w%:j%|
0000bbf0  21 34 3d 69 25 3a 6a 25  21 38 3d 30 3a 6a 25 21  |!4=i%:j%!8=0:j%!|
0000bc00  31 32 3d 30 3a c8 99 32  36 32 33 34 39 2c 2c 6a  |12=0:..262349,,j|
0000bc10  25 3a e1 0d 30 f2 32 dd  a4 69 28 77 25 2c 69 25  |%:..0.2..i(w%,i%|
0000bc20  29 3a 62 25 21 30 3d 77  25 3a 62 25 21 34 3d 69  |):b%!0=w%:b%!4=i|
0000bc30  25 3a c8 99 32 36 32 33  35 30 2c 2c 62 25 3a 3d  |%:..262350,,b%:=|
0000bc40  62 25 21 32 38 0d 30 fc  21 dd f2 62 61 28 70 61  |b%!28.0.!..ba(pa|
0000bc50  25 2c 6c 25 29 3a c8 99  32 39 2c 30 2c 70 61 25  |%,l%):..29,0,pa%|
0000bc60  2c 2c 6c 25 3a e1 0d 31  06 38 dd a4 62 28 73 25  |,,l%:..1.8..b(s%|
0000bc70  29 3a ea 66 25 2c 70 25  2c 55 65 25 3a c8 99 31  |):.f%,p%,Ue%:..1|
0000bc80  33 31 31 30 31 2c 32 2c  70 61 25 2c 2c 73 25 b8  |31101,2,pa%,,s%.|
0000bc90  2c 2c 70 25 3b 66 25 3a  e7 66 25 80 31 8c 0d 31  |,,p%;f%:.f%.1..1|
0000bca0  10 3d c8 99 33 39 33 34  35 32 2c 70 61 25 2b 70  |.=..393452,pa%+p|
0000bcb0  61 25 21 38 2b 32 35 36  2b 73 25 2d 33 32 37 36  |a%!8+256+s%-3276|
0000bcc0  38 2c 2d 31 b8 66 25 3b  55 65 25 3a e7 28 55 65  |8,-1.f%;Ue%:.(Ue|
0000bcd0  25 80 31 29 3c 3e 30 8c  3d 2d 31 0d 31 1a 40 66  |%.1)<>0.=-1.1.@f|
0000bce0  25 2b 3d 33 32 37 36 38  3a c8 99 31 33 31 31 30  |%+=32768:..13110|
0000bcf0  31 2c 35 2c 70 61 25 2c  2c 66 25 2d 70 61 25 2d  |1,5,pa%,,f%-pa%-|
0000bd00  70 61 25 21 31 32 b8 3b  55 65 25 3a e7 28 55 65  |pa%!12.;Ue%:.(Ue|
0000bd10  25 80 31 29 3c 3e 30 8c  3d 2d 31 0d 31 24 2a c8  |%.1)<>0.=-1.1$*.|
0000bd20  99 31 33 31 31 30 31 2c  32 2c 70 61 25 2c 2c 73  |.131101,2,pa%,,s|
0000bd30  25 b8 2c 2c 70 25 3b 66  25 3a e7 66 25 80 31 8c  |%.,,p%;f%:.f%.1.|
0000bd40  70 25 3d 2d 31 0d 31 2e  05 cd 0d 31 38 07 3d 70  |p%=-1.1....18.=p|
0000bd50  25 0d 31 42 15 dd f2 58  28 f8 70 25 29 3a e7 70  |%.1B...X(.p%):.p|
0000bd60  25 3c 3d 30 8c e1 0d 31  4c 57 c8 99 31 33 31 31  |%<=0...1LW..1311|
0000bd70  30 31 2c 33 2c 70 61 25  2c 70 25 3a c8 99 31 33  |01,3,pa%,p%:..13|
0000bd80  31 31 30 31 2c 35 2c 70  61 25 2c 2c 70 61 25 21  |1101,5,pa%,,pa%!|
0000bd90  38 2d 70 61 25 21 31 32  3a c8 99 33 39 33 34 35  |8-pa%!12:..39345|
0000bda0  32 2c 70 61 25 2b 70 61  25 21 31 32 2d 33 32 37  |2,pa%+pa%!12-327|
0000bdb0  36 38 2c 2d 31 3a 70 25  3d 2d 31 3a e1 0d 31 56  |68,-1:p%=-1:..1V|
0000bdc0  d7 dd f2 70 61 3a c8 99  35 33 2c 2d 31 2c 33 b8  |...pa:..53,-1,3.|
0000bdd0  2c 2c 77 65 25 3a c8 99  35 33 2c 2d 31 2c 34 b8  |,,we%:..53,-1,4.|
0000bde0  2c 2c 56 65 25 3a 56 65  25 3d 28 31 3c 3c 56 65  |,,Ve%:Ve%=(1<<Ve|
0000bdf0  25 29 3a c8 99 35 33 2c  2d 31 2c 35 b8 2c 2c 57  |%):..53,-1,5.,,W|
0000be00  65 25 3a 57 65 25 3d 28  31 3c 3c 57 65 25 29 3a  |e%:We%=(1<<We%):|
0000be10  c8 99 35 33 2c 2d 31 2c  31 31 b8 2c 2c 7a 61 25  |..53,-1,11.,,za%|
0000be20  3a 7a 61 25 3d 7a 61 25  2a 56 65 25 3a c8 99 35  |:za%=za%*Ve%:..5|
0000be30  33 2c 2d 31 2c 31 32 b8  2c 2c 41 61 25 3a 41 61  |3,-1,12.,,Aa%:Aa|
0000be40  25 3d 41 61 25 2a 57 65  25 3a c8 99 32 36 32 33  |%=Aa%*We%:..2623|
0000be50  38 31 2c 32 39 36 2c 63  64 25 2c 22 52 41 4e 47  |81,296,cd%,"RANG|
0000be60  45 4d 41 52 4b 22 2c 2c  2c 2c 68 61 25 2c 69 61  |EMARK",,,,ha%,ia|
0000be70  25 3a f2 4c 62 3a 75 24  3d 22 70 74 72 5f 6d 6f  |%:.Lb:u$="ptr_mo|
0000be80  73 61 69 63 22 3a 77 24  3d 22 70 74 72 5f 62 72  |saic":w$="ptr_br|
0000be90  75 73 68 22 0d 31 60 22  72 24 3d 22 70 74 72 5f  |ush".1`"r$="ptr_|
0000bea0  6d 65 6e 75 77 22 3a 78  24 3d 22 70 74 72 5f 68  |menuw":x$="ptr_h|
0000beb0  61 6e 64 22 3a e1 0d 31  6a 57 dd f2 4c 62 3a ea  |and":..1jW..Lb:.|
0000bec0  62 64 25 2c 47 65 25 2c  69 25 2c 70 25 3a c8 99  |bd%,Ge%,i%,p%:..|
0000bed0  35 33 2c 2d 31 2c 34 b8  2c 2c 62 64 25 3a 62 64  |53,-1,4.,,bd%:bd|
0000bee0  25 3d 28 31 3c 3c 62 64  25 29 3a c8 99 35 33 2c  |%=(1<<bd%):..53,|
0000bef0  2d 31 2c 35 b8 2c 2c 47  65 25 3a 47 65 25 3d 28  |-1,5.,,Ge%:Ge%=(|
0000bf00  31 3c 3c 47 65 25 29 3a  e7 77 62 25 8c 0d 31 74  |1<<Ge%):.wb%..1t|
0000bf10  42 e3 69 25 3d 30 b8 32  35 35 3a 65 25 3f 30 3d  |B.i%=0.255:e%?0=|
0000bf20  30 3a 65 25 3f 31 3d 69  25 3a 65 25 3f 32 3d 69  |0:e%?1=i%:e%?2=i|
0000bf30  25 3a 65 25 3f 33 3d 69  25 3a c8 99 32 36 34 30  |%:e%?3=i%:..2640|
0000bf40  30 34 2c 21 65 25 b8 67  61 25 3f 69 25 3a ed 0d  |04,!e%.ga%?i%:..|
0000bf50  31 7e 1d cc 3a c8 99 32  36 34 30 30 30 2c 31 35  |1~..:..264000,15|
0000bf60  2c 30 2c 2d 31 2c 2d 31  2c 67 61 25 0d 31 88 05  |,0,-1,-1,ga%.1..|
0000bf70  cd 0d 31 92 09 e7 43 61  25 8c 0d 31 9c 56 65 61  |..1...Ca%..1.Vea|
0000bf80  25 21 30 3d 75 64 25 3a  65 61 25 21 34 3d 76 64  |%!0=ud%:ea%!4=vd|
0000bf90  25 3a 65 61 25 21 38 3d  77 64 25 2a 62 64 25 2a  |%:ea%!8=wd%*bd%*|
0000bfa0  31 30 30 3a 65 61 25 21  31 32 3d 6b 64 25 2a 47  |100:ea%!12=kd%*G|
0000bfb0  65 25 2a 31 30 30 3a 66  61 25 21 38 3d 65 61 25  |e%*100:fa%!8=ea%|
0000bfc0  21 38 3a 66 61 25 21 31  32 3d 65 61 25 21 31 32  |!8:fa%!12=ea%!12|
0000bfd0  0d 31 a6 05 cd 0d 31 b0  05 e1 0d 31 ba e8 dd f2  |.1....1....1....|
0000bfe0  74 28 48 25 2c 4a 25 2c  4b 25 2c 59 25 29 3a ea  |t(H%,J%,K%,Y%):.|
0000bff0  7a 65 25 2c 78 25 2c 79  25 3a 60 25 3d 48 25 3a  |ze%,x%,y%:`%=H%:|
0000c000  6b 62 25 3d 4a 25 3a 6c  62 25 3d 4b 25 3a 6d 62  |kb%=J%:lb%=K%:mb|
0000c010  25 3d 59 25 3a 48 25 3d  32 2a 48 25 3a 4a 25 3d  |%=Y%:H%=2*H%:J%=|
0000c020  32 2a 4a 25 3a 4b 25 3d  32 2a 4b 25 3a 59 25 3d  |2*J%:K%=2*K%:Y%=|
0000c030  32 2a 59 25 3a 62 25 21  30 3d 51 61 25 3a 62 25  |2*Y%:b%!0=Qa%:b%|
0000c040  21 34 3d 31 33 36 3a 62  25 21 38 3d 37 36 3a 62  |!4=136:b%!8=76:b|
0000c050  25 21 31 32 3d 37 38 30  3a 62 25 21 31 36 3d 32  |%!12=780:b%!16=2|
0000c060  36 38 3a c8 99 32 36 32  33 34 35 2c 2c 62 25 b8  |68:..262345,,b%.|
0000c070  7a 65 25 3a 78 25 3d 62  25 21 34 2d 62 25 21 32  |ze%:x%=b%!4-b%!2|
0000c080  30 2b 31 33 36 3a 79 25  3d 62 25 21 31 36 2d 62  |0+136:y%=b%!16-b|
0000c090  25 21 32 34 3a c8 95 7a  65 25 3a c8 99 32 36 32  |%!24:..ze%:..262|
0000c0a0  33 37 34 2c 31 3a c8 93  c8 90 78 25 2b 32 2b 48  |374,1:....x%+2+H|
0000c0b0  25 2c 79 25 2b 32 34 34  2c 35 31 32 2d 48 25 2c  |%,y%+244,512-H%,|
0000c0c0  32 33 0d 31 c4 60 c8 93  c8 90 78 25 2b 32 2b 4a  |23.1.`....x%+2+J|
0000c0d0  25 2c 79 25 2b 31 38 38  2c 35 31 32 2d 4a 25 2c  |%,y%+188,512-J%,|
0000c0e0  32 33 3a c8 93 c8 90 78  25 2b 32 2b 4b 25 2c 79  |23:....x%+2+K%,y|
0000c0f0  25 2b 31 33 32 2c 35 31  32 2d 4b 25 2c 32 33 3a  |%+132,512-K%,23:|
0000c100  c8 93 c8 90 78 25 2b 32  2b 59 25 2c 79 25 2b 37  |....x%+2+Y%,y%+7|
0000c110  36 2c 35 31 32 2d 59 25  2c 32 33 3a e7 57 25 3d  |6,512-Y%,23:.W%=|
0000c120  30 8c 0d 31 ce 83 c8 99  38 39 32 36 37 32 2c 60  |0..1....892672,`|
0000c130  25 3a c8 93 c8 90 78 25  2c 79 25 2b 32 34 34 2c  |%:....x%,y%+244,|
0000c140  48 25 2c 32 33 3a c8 99  38 39 32 36 37 32 2c 2c  |H%,23:..892672,,|
0000c150  6b 62 25 3a c8 93 c8 90  78 25 2c 79 25 2b 31 38  |kb%:....x%,y%+18|
0000c160  38 2c 4a 25 2c 32 33 3a  c8 99 38 39 32 36 37 32  |8,J%,23:..892672|
0000c170  2c 2c 2c 6c 62 25 3a c8  93 c8 90 78 25 2c 79 25  |,,,lb%:....x%,y%|
0000c180  2b 31 33 32 2c 4b 25 2c  32 33 3a e7 6e 62 25 8c  |+132,K%,23:.nb%.|
0000c190  c8 99 32 36 32 33 37 34  2c 32 8b c8 99 32 36 32  |..262374,2...262|
0000c1a0  33 37 34 2c 37 0d 31 d8  43 c8 93 c8 90 78 25 2c  |374,7.1.C....x%,|
0000c1b0  79 25 2b 37 36 2c 59 25  2c 32 33 3a c8 99 38 39  |y%+76,Y%,23:..89|
0000c1c0  32 36 37 32 2c 60 25 2c  6b 62 25 2c 6c 62 25 3a  |2672,`%,kb%,lb%:|
0000c1d0  c8 93 c8 90 78 25 2b 35  34 34 2c 79 25 2b 31 33  |....x%+544,y%+13|
0000c1e0  32 2c 36 38 2c 31 33 32  0d 31 e2 98 cc 3a c8 99  |2,68,132.1...:..|
0000c1f0  32 36 32 33 37 34 2c 32  3a c8 93 c8 90 78 25 2c  |262374,2:....x%,|
0000c200  79 25 2b 32 34 34 2c 48  25 2c 32 33 3a c8 93 c8  |y%+244,H%,23:...|
0000c210  90 78 25 2c 79 25 2b 31  38 38 2c 4a 25 2c 32 33  |.x%,y%+188,J%,23|
0000c220  3a c8 93 c8 90 78 25 2c  79 25 2b 31 33 32 2c 4b  |:....x%,y%+132,K|
0000c230  25 2c 32 33 3a c8 99 32  36 32 33 37 34 2c 37 3a  |%,23:..262374,7:|
0000c240  c8 93 c8 90 78 25 2c 79  25 2b 37 36 2c 59 25 2c  |....x%,y%+76,Y%,|
0000c250  32 33 3a c8 99 38 39 32  36 37 32 2c 6d 62 25 2c  |23:..892672,mb%,|
0000c260  6d 62 25 2c 6d 62 25 3a  c8 93 c8 90 78 25 2b 35  |mb%,mb%:....x%+5|
0000c270  34 34 2c 79 25 2b 31 33  32 2c 36 38 2c 31 33 32  |44,y%+132,68,132|
0000c280  0d 31 ec 05 cd 0d 31 f6  18 c8 99 32 36 32 33 34  |.1....1....26234|
0000c290  36 2c 2c 62 25 b8 7a 65  25 3a ce 3a e1 0d 32 00  |6,,b%.ze%:.:..2.|
0000c2a0  11 dd f2 67 62 3a f2 4e  62 28 31 29 3a e1 0d 32  |...gb:.Nb(1):..2|
0000c2b0  0a 10 dd f2 75 3a f2 4e  62 28 30 29 3a e1 0d 32  |....u:.Nb(0):..2|
0000c2c0  14 93 dd f2 4e 62 28 58  65 25 29 3a ea 7a 65 25  |....Nb(Xe%):.ze%|
0000c2d0  2c 78 25 2c 79 25 2c 6d  2c 6e 3a 62 25 21 30 3d  |,x%,y%,m,n:b%!0=|
0000c2e0  58 25 3a 62 25 21 34 3d  30 3a 62 25 21 38 3d 30  |X%:b%!4=0:b%!8=0|
0000c2f0  3a 62 25 21 31 32 3d 33  32 37 30 30 3a 62 25 21  |:b%!12=32700:b%!|
0000c300  31 36 3d 33 32 37 30 30  3a c8 99 32 36 32 33 34  |16=32700:..26234|
0000c310  35 2c 2c 62 25 b8 7a 65  25 3a 78 25 3d 62 25 21  |5,,b%.ze%:x%=b%!|
0000c320  34 2d 62 25 21 32 30 3a  79 25 3d 62 25 21 31 36  |4-b%!20:y%=b%!16|
0000c330  2d 62 25 21 32 34 3a c8  95 7a 65 25 3a f2 4f 62  |-b%!24:..ze%:.Ob|
0000c340  28 78 25 2c 79 25 29 3a  e7 58 65 25 80 76 62 25  |(x%,y%):.Xe%.vb%|
0000c350  8c 0d 32 1e 5f c8 99 32  36 32 33 37 34 2c 37 31  |..2._..262374,71|
0000c360  3a 6d 3d 61 25 28 6f 25  2c 34 29 2a 54 25 2f 31  |:m=a%(o%,4)*T%/1|
0000c370  30 30 3a 6e 3d 61 25 28  6f 25 2c 35 29 2a 4e 25  |00:n=a%(o%,5)*N%|
0000c380  2f 31 30 30 3a c8 93 78  25 2b 6d 2a 78 62 25 2c  |/100:..x%+m*xb%,|
0000c390  79 25 2b 6e 2a 79 62 25  2c 6d 2a 28 7a 62 25 2d  |y%+n*yb%,m*(zb%-|
0000c3a0  78 62 25 29 2c 6e 2a 28  41 62 25 2d 79 62 25 29  |xb%),n*(Ab%-yb%)|
0000c3b0  0d 32 28 05 cd 0d 32 32  18 c8 99 32 36 32 33 34  |.2(...22...26234|
0000c3c0  36 2c 2c 62 25 b8 7a 65  25 3a ce 3a e1 0d 32 3c  |6,,b%.ze%:.:..2<|
0000c3d0  6f dd f2 69 61 28 62 25  29 3a ea 7a 65 25 2c 78  |o..ia(b%):.ze%,x|
0000c3e0  25 2c 79 25 2c 75 25 2c  70 25 2c 68 25 2c 75 2c  |%,y%,u%,p%,h%,u,|
0000c3f0  41 64 25 2c 6d 2c 6e 2c  67 2c 41 65 25 2c 73 24  |Ad%,m,n,g,Ae%,s$|
0000c400  3a c8 99 32 36 32 33 34  34 2c 2c 62 25 b8 7a 65  |:..262344,,b%.ze|
0000c410  25 3a 78 25 3d 62 25 21  34 2d 62 25 21 32 30 3a  |%:x%=b%!4-b%!20:|
0000c420  79 25 3d 62 25 21 31 36  2d 62 25 21 32 34 3a c8  |y%=b%!16-b%!24:.|
0000c430  95 7a 65 25 3a c8 8e 62  25 21 30 ca 0d 32 46 1d  |.ze%:..b%!0..2F.|
0000c440  c9 4b 62 25 2c 4e 61 25  2c 5a 61 25 3a c8 99 35  |.Kb%,Na%,Za%:..5|
0000c450  33 30 30 34 39 2c 2c 62  25 0d 32 50 33 c9 49 61  |30049,,b%.2P3.Ia|
0000c460  25 3a f2 50 62 28 63 64  25 2c 22 49 6e 66 6f 22  |%:.Pb(cd%,"Info"|
0000c470  2c 78 25 2b 36 33 32 2c  79 25 2d 32 32 30 29 3a  |,x%+632,y%-220):|
0000c480  c8 99 35 33 30 30 34 39  2c 2c 62 25 0d 32 5a 1d  |..530049,,b%.2Z.|
0000c490  c9 58 62 25 2c 62 63 25  2c 60 61 25 3a c8 99 35  |.Xb%,bc%,`a%:..5|
0000c4a0  33 30 30 34 39 2c 2c 62  25 0d 32 64 49 c9 44 63  |30049,,b%.2dI.Dc|
0000c4b0  25 3a c8 99 34 36 2c 33  30 38 2c 63 64 25 2c 22  |%:..46,308,cd%,"|
0000c4c0  52 41 4e 47 45 4d 41 52  4b 22 2c 78 25 2b 38 2b  |RANGEMARK",x%+8+|
0000c4d0  32 2a 59 62 25 2c 79 25  2b 32 34 2c 30 2c 68 61  |2*Yb%,y%+24,0,ha|
0000c4e0  25 2c 69 61 25 3a c8 99  35 33 30 30 34 39 2c 2c  |%,ia%:..530049,,|
0000c4f0  62 25 0d 32 6e 26 c9 58  25 3a f2 51 62 28 78 25  |b%.2n&.X%:.Qb(x%|
0000c500  2c 79 25 2c 6f 25 29 3a  f2 4f 62 28 78 25 2c 79  |,y%,o%):.Ob(x%,y|
0000c510  25 29 3a e7 76 62 25 8c  0d 32 78 5f c8 99 32 36  |%):.vb%..2x_..26|
0000c520  32 33 37 34 2c 37 31 3a  6d 3d 61 25 28 6f 25 2c  |2374,71:m=a%(o%,|
0000c530  34 29 2a 54 25 2f 31 30  30 3a 6e 3d 61 25 28 6f  |4)*T%/100:n=a%(o|
0000c540  25 2c 35 29 2a 4e 25 2f  31 30 30 3a c8 93 78 25  |%,5)*N%/100:..x%|
0000c550  2b 6d 2a 78 62 25 2c 79  25 2b 6e 2a 79 62 25 2c  |+m*xb%,y%+n*yb%,|
0000c560  6d 2a 28 7a 62 25 2d 78  62 25 29 2c 6e 2a 28 41  |m*(zb%-xb%),n*(A|
0000c570  62 25 2d 79 62 25 29 0d  32 82 05 cd 0d 32 8c 0f  |b%-yb%).2....2..|
0000c580  c9 4a 63 25 3a e7 57 25  3d 30 8c 0d 32 96 88 70  |.Jc%:.W%=0..2..p|
0000c590  25 3d 6d 61 25 2b 36 34  2a 28 73 62 25 2d 31 29  |%=ma%+64*(sb%-1)|
0000c5a0  2b 31 39 32 2a 74 62 25  3a 75 3d 32 35 35 2f 4b  |+192*tb%:u=255/K|
0000c5b0  63 25 3a e3 68 25 3d 30  b8 31 35 3a c8 93 c8 90  |c%:.h%=0.15:....|
0000c5c0  78 25 2b 33 32 2a 68 25  2c 79 25 2b 38 30 2c 32  |x%+32*h%,y%+80,2|
0000c5d0  38 2c 75 2a 28 70 25 21  28 68 25 2a 34 29 29 3a  |8,u*(p%!(h%*4)):|
0000c5e0  ed 3a ec 78 25 2b 33 32  2a 64 25 28 73 62 25 2c  |.:.x%+32*d%(sb%,|
0000c5f0  31 29 2c 79 25 2b 33 36  3a f0 31 30 31 2c 78 25  |1),y%+36:.101,x%|
0000c600  2b 33 32 2a 64 25 28 73  62 25 2c 32 29 2c 79 25  |+32*d%(sb%,2),y%|
0000c610  2b 34 38 0d 32 a0 7d cc  3a 70 25 3d 6d 61 25 2b  |+48.2.}.:p%=ma%+|
0000c620  31 30 32 34 2a 74 62 25  3a 75 3d 32 35 35 2f 4b  |1024*tb%:u=255/K|
0000c630  63 25 3a e3 68 25 3d 30  b8 32 35 35 3a c8 93 c8  |c%:.h%=0.255:...|
0000c640  90 78 25 2b 32 2a 68 25  2c 79 25 2b 38 30 2c 32  |.x%+2*h%,y%+80,2|
0000c650  2c 75 2a 28 70 25 21 28  68 25 2a 34 29 29 3a ed  |,u*(p%!(h%*4)):.|
0000c660  3a ec 78 25 2b 32 2a 64  25 28 73 62 25 2c 31 29  |:.x%+2*d%(sb%,1)|
0000c670  2c 79 25 2b 33 36 3a f0  31 30 31 2c 78 25 2b 32  |,y%+36:.101,x%+2|
0000c680  2a 64 25 28 73 62 25 2c  32 29 2c 79 25 2b 34 38  |*d%(sb%,2),y%+48|
0000c690  0d 32 aa 05 cd 0d 32 b4  10 c8 99 35 33 30 30 34  |.2....2....53004|
0000c6a0  39 2c 2c 62 25 0d 32 be  4f c9 4e 63 25 3a e3 41  |9,,b%.2.O.Nc%:.A|
0000c6b0  64 25 3d 30 b8 34 30 30  88 35 3a 75 25 3d 32 38  |d%=0.400.5:u%=28|
0000c6c0  2b 68 62 25 2a b5 28 41  64 25 2a 66 29 3a e7 41  |+hb%*.(Ad%*f):.A|
0000c6d0  64 25 3d 30 8c ec 75 25  2b 78 25 2c 41 64 25 2b  |d%=0..u%+x%,Ad%+|
0000c6e0  79 25 2d 34 8b df 75 25  2b 78 25 2c 41 64 25 2b  |y%-4..u%+x%,Ad%+|
0000c6f0  79 25 2d 34 0d 32 c8 12  ed 3a c8 99 35 33 30 30  |y%-4.2...:..5300|
0000c700  34 39 2c 2c 62 25 0d 32  d2 10 c9 67 63 25 3a f2  |49,,b%.2...gc%:.|
0000c710  60 61 28 62 25 29 0d 32  dc a8 c9 4d 63 25 3a e3  |`a(b%).2...Mc%:.|
0000c720  68 25 3d 30 b8 33 3a 75  25 3d 78 25 2b 32 31 36  |h%=0.3:u%=x%+216|
0000c730  2a 28 68 25 2d 31 29 2b  32 34 3a c8 99 32 36 32  |*(h%-1)+24:..262|
0000c740  33 37 34 2c 31 31 3a c8  93 c8 90 75 25 2c 79 25  |374,11:....u%,y%|
0000c750  2b 38 30 2c 36 30 2c 62  25 28 68 25 2c 31 29 3a  |+80,60,b%(h%,1):|
0000c760  c8 99 32 36 32 33 37 34  2c 31 30 3a c8 93 c8 90  |..262374,10:....|
0000c770  75 25 2b 36 34 2c 79 25  2b 38 30 2c 36 30 2c 62  |u%+64,y%+80,60,b|
0000c780  25 28 68 25 2c 32 29 3a  c8 99 32 36 32 33 37 34  |%(h%,2):..262374|
0000c790  2c 38 3a c8 93 c8 90 75  25 2b 31 32 38 2c 79 25  |,8:....u%+128,y%|
0000c7a0  2b 38 30 2c 36 30 2c 62  25 28 68 25 2c 33 29 3a  |+80,60,b%(h%,3):|
0000c7b0  ed 3a c8 99 35 33 30 30  34 39 2c 2c 62 25 0d 32  |.:..530049,,b%.2|
0000c7c0  e6 1d c9 51 62 25 3a 78  25 2b 3d 32 30 3a 79 25  |...Qb%:x%+=20:y%|
0000c7d0  2b 3d 38 34 3a c8 8e 53  62 25 ca 0d 32 f0 48 c9  |+=84:..Sb%..2.H.|
0000c7e0  31 3a 67 3d 61 28 52 62  25 29 3a ec 78 25 2c 79  |1:g=a(Rb%):.x%,y|
0000c7f0  25 3a e3 75 25 3d 38 b8  32 35 36 88 38 3a 41 64  |%:.u%=8.256.8:Ad|
0000c800  25 3d 28 28 75 25 2f 32  35 36 29 5e 67 29 2a 32  |%=((u%/256)^g)*2|
0000c810  35 36 3a e7 41 64 25 3e  32 35 36 8c 41 64 25 3d  |56:.Ad%>256.Ad%=|
0000c820  32 35 36 0d 32 fa 13 df  78 25 2b 75 25 2c 79 25  |256.2...x%+u%,y%|
0000c830  2b 41 64 25 3a ed 0d 33  04 95 c9 32 3a c8 99 32  |+Ad%:..3...2:..2|
0000c840  36 32 33 37 34 2c 33 3a  e3 75 25 3d 36 34 b8 31  |62374,3:.u%=64.1|
0000c850  39 32 88 36 34 3a ec 78  25 2b 75 25 2c 79 25 3a  |92.64:.x%+u%,y%:|
0000c860  df 42 59 20 30 2c 32 35  36 3a ec 78 25 2c 79 25  |.BY 0,256:.x%,y%|
0000c870  2b 75 25 3a df 42 59 20  32 35 36 2c 30 3a ed 3a  |+u%:.BY 256,0:.:|
0000c880  c8 99 32 36 32 33 37 34  2c 37 3a e3 75 25 3d 30  |..262374,7:.u%=0|
0000c890  b8 34 3a 41 64 25 3d 63  25 28 52 62 25 2c 75 25  |.4:Ad%=c%(Rb%,u%|
0000c8a0  2b 31 29 3a e7 75 25 3d  30 8c ec 78 25 2b 36 34  |+1):.u%=0..x%+64|
0000c8b0  2a 75 25 2c 79 25 2b 41  64 25 8b df 78 25 2b 36  |*u%,y%+Ad%..x%+6|
0000c8c0  34 2a 75 25 2c 79 25 2b  41 64 25 0d 33 0e 05 ed  |4*u%,y%+Ad%.3...|
0000c8d0  0d 33 18 31 c9 34 3a e3  75 25 3d 30 b8 31 35 3a  |.3.1.4:.u%=0.15:|
0000c8e0  c8 93 c8 90 78 25 2b 31  36 2a 75 25 2c 79 25 2c  |....x%+16*u%,y%,|
0000c8f0  31 35 2c 66 25 28 52 62  25 2c 75 25 2b 31 29 3a  |15,f%(Rb%,u%+1):|
0000c900  ed 0d 33 22 05 cb 0d 33  2c 10 c8 99 35 33 30 30  |..3"...3,...5300|
0000c910  34 39 2c 2c 62 25 0d 33  36 19 c9 51 61 25 3a 75  |49,,b%.36..Qa%:u|
0000c920  25 3d 78 25 2b 31 33 36  3a e7 57 25 3d 30 8c 0d  |%=x%+136:.W%=0..|
0000c930  33 40 8b c8 99 38 39 32  36 37 32 2c 60 25 3a c8  |3@...892672,`%:.|
0000c940  93 c8 90 75 25 2c 79 25  2b 32 34 34 2c 60 25 2a  |...u%,y%+244,`%*|
0000c950  32 2c 32 33 3a c8 99 38  39 32 36 37 32 2c 2c 6b  |2,23:..892672,,k|
0000c960  62 25 3a c8 93 c8 90 75  25 2c 79 25 2b 31 38 38  |b%:....u%,y%+188|
0000c970  2c 6b 62 25 2a 32 2c 32  33 3a c8 99 38 39 32 36  |,kb%*2,23:..8926|
0000c980  37 32 2c 2c 2c 6c 62 25  3a c8 93 c8 90 75 25 2c  |72,,,lb%:....u%,|
0000c990  79 25 2b 31 33 32 2c 6c  62 25 2a 32 2c 32 33 3a  |y%+132,lb%*2,23:|
0000c9a0  e7 6e 62 25 8c c8 99 32  36 32 33 37 34 2c 32 8b  |.nb%...262374,2.|
0000c9b0  c8 99 32 36 32 33 37 34  2c 37 0d 33 4a 46 c8 93  |..262374,7.3JF..|
0000c9c0  c8 90 75 25 2c 79 25 2b  37 36 2c 6d 62 25 2a 32  |..u%,y%+76,mb%*2|
0000c9d0  2c 32 33 3a c8 99 38 39  32 36 37 32 2c 60 25 2c  |,23:..892672,`%,|
0000c9e0  6b 62 25 2c 6c 62 25 3a  c8 93 c8 90 78 25 2b 36  |kb%,lb%:....x%+6|
0000c9f0  38 30 2c 79 25 2b 31 33  32 2c 36 38 2c 31 33 32  |80,y%+132,68,132|
0000ca00  0d 33 54 a3 cc 3a c8 99  32 36 32 33 37 34 2c 32  |.3T..:..262374,2|
0000ca10  3a c8 93 c8 90 75 25 2c  79 25 2b 32 34 34 2c 60  |:....u%,y%+244,`|
0000ca20  25 2a 32 2c 32 33 3a c8  93 c8 90 75 25 2c 79 25  |%*2,23:....u%,y%|
0000ca30  2b 31 38 38 2c 6b 62 25  2a 32 2c 32 33 3a c8 93  |+188,kb%*2,23:..|
0000ca40  c8 90 75 25 2c 79 25 2b  31 33 32 2c 6c 62 25 2a  |..u%,y%+132,lb%*|
0000ca50  32 2c 32 33 3a c8 99 32  36 32 33 37 34 2c 37 3a  |2,23:..262374,7:|
0000ca60  c8 93 c8 90 75 25 2c 79  25 2b 37 36 2c 6d 62 25  |....u%,y%+76,mb%|
0000ca70  2a 32 2c 32 33 3a c8 99  38 39 32 36 37 32 2c 6d  |*2,23:..892672,m|
0000ca80  62 25 2c 6d 62 25 2c 6d  62 25 3a c8 93 c8 90 78  |b%,mb%,mb%:....x|
0000ca90  25 2b 36 38 30 2c 79 25  2b 31 33 32 2c 36 38 2c  |%+680,y%+132,68,|
0000caa0  31 33 32 0d 33 5e 05 cd  0d 33 68 0a c8 8e 77 65  |132.3^...3h...we|
0000cab0  25 ca 0d 33 72 21 c9 31  2c 33 3a 73 24 3d 22 4d  |%..3r!.1,3:s$="M|
0000cac0  4f 44 45 31 35 22 3a 41  65 25 3d 67 61 25 3a 68  |ODE15":Ae%=ga%:h|
0000cad0  25 3d 34 0d 33 7c 35 c9  31 35 3a 41 65 25 3d 2d  |%=4.3|5.15:Ae%=-|
0000cae0  31 3a 68 25 3d 31 3a 73  24 3d 22 4d 4f 44 45 31  |1:h%=1:s$="MODE1|
0000caf0  32 43 4f 4c 22 3a e7 77  62 25 8c 73 24 3d 22 4d  |2COL":.wb%.s$="M|
0000cb00  4f 44 45 31 32 42 57 22  0d 33 86 2a 7f 3a 73 24  |ODE12BW".3.*.:s$|
0000cb10  3d 22 4d 4f 44 45 31 35  22 3a 68 25 3d 34 3a e7  |="MODE15":h%=4:.|
0000cb20  77 62 25 8c 41 65 25 3d  67 61 25 8b 41 65 25 3d  |wb%.Ae%=ga%.Ae%=|
0000cb30  2d 31 0d 33 90 05 cb 0d  33 9a 6c 6a 61 25 21 30  |-1.3....3.lja%!0|
0000cb40  3d 68 25 2a 32 35 36 3a  6a 61 25 21 34 3d 68 25  |=h%*256:ja%!4=h%|
0000cb50  2a 32 35 36 3a 6a 61 25  21 38 3d 31 32 38 2a 56  |*256:ja%!8=128*V|
0000cb60  65 25 3a 6a 61 25 21 31  32 3d 36 34 2a 57 65 25  |e%:ja%!12=64*We%|
0000cb70  3a c8 99 34 36 2c 33 30  38 2c 63 64 25 2c 73 24  |:..46,308,cd%,s$|
0000cb80  2c 78 25 2b 38 30 30 2c  79 25 2b 32 30 2c 2c 6a  |,x%+800,y%+20,,j|
0000cb90  61 25 2c 41 65 25 3a c8  99 35 33 30 30 34 39 2c  |a%,Ae%:..530049,|
0000cba0  2c 62 25 0d 33 a4 24 c9  48 62 25 3a c8 8f c8 90  |,b%.3.$.Hb%:....|
0000cbb0  78 25 2b 36 35 36 2c 79  25 2b 39 36 2c 43 62 25  |x%+656,y%+96,Cb%|
0000cbc0  3a c8 8e 47 62 25 ca 0d  33 ae 2c c9 31 3a c8 93  |:..Gb%..3.,.1:..|
0000cbd0  c8 90 78 25 2b 36 35 36  2d 45 62 25 2c 79 25 2b  |..x%+656-Eb%,y%+|
0000cbe0  33 34 38 2d 46 62 25 2c  45 62 25 2a 32 2c 46 62  |348-Fb%,Eb%*2,Fb|
0000cbf0  25 2a 32 0d 33 b8 1c c9  32 3a c8 8f c8 90 78 25  |%*2.3...2:....x%|
0000cc00  2b 36 35 36 2c 79 25 2b  33 34 38 2c 45 62 25 0d  |+656,y%+348,Eb%.|
0000cc10  33 c2 20 c9 33 3a c8 9d  c8 90 78 25 2b 36 35 36  |3. .3:....x%+656|
0000cc20  2c 79 25 2b 33 34 38 2c  45 62 25 2c 46 62 25 0d  |,y%+348,Eb%,Fb%.|
0000cc30  33 cc 05 cb 0d 33 d6 d3  75 25 3d 78 25 2b 38 30  |3....3..u%=x%+80|
0000cc40  3a 7a 63 25 3d 79 25 2b  33 30 38 3a c8 93 c8 90  |:zc%=y%+308:....|
0000cc50  75 25 2d 34 2c 7a 63 25  2d 34 2c 38 3a c8 93 c8  |u%-4,zc%-4,8:...|
0000cc60  90 75 25 2b 34 38 2d 38  2c 7a 63 25 2d 38 2c 31  |.u%+48-8,zc%-8,1|
0000cc70  36 3a c8 93 c8 90 75 25  2b 39 36 2d 31 36 2c 7a  |6:....u%+96-16,z|
0000cc80  63 25 2d 31 36 2c 33 32  3a c8 8f c8 90 75 25 2b  |c%-16,32:....u%+|
0000cc90  31 34 34 2c 7a 63 25 2c  36 3a c8 8f c8 90 75 25  |144,zc%,6:....u%|
0000cca0  2b 31 39 32 2c 7a 63 25  2c 31 32 3a c8 8f c8 90  |+192,zc%,12:....|
0000ccb0  75 25 2b 32 34 30 2c 7a  63 25 2c 32 34 3a c8 9d  |u%+240,zc%,24:..|
0000ccc0  c8 90 75 25 2b 32 38 38  2c 7a 63 25 2c 34 2c 32  |..u%+288,zc%,4,2|
0000ccd0  34 3a c8 9d c8 90 75 25  2b 33 33 36 2c 7a 63 25  |4:....u%+336,zc%|
0000cce0  2c 38 2c 32 34 3a c8 9d  c8 90 75 25 2b 33 38 34  |,8,24:....u%+384|
0000ccf0  2c 7a 63 25 2c 31 36 2c  32 34 3a c8 99 35 33 30  |,zc%,16,24:..530|
0000cd00  30 34 39 2c 2c 62 25 0d  33 e0 25 7f 3a 68 25 3d  |049,,b%.3.%.:h%=|
0000cd10  a4 61 28 62 25 21 30 29  3a e7 68 25 3e 30 8c f2  |.a(b%!0):.h%>0..|
0000cd20  51 62 28 78 25 2c 79 25  2c 68 25 29 0d 33 ea 05  |Qb(x%,y%,h%).3..|
0000cd30  cb 0d 33 f4 18 c8 99 32  36 32 33 34 36 2c 2c 62  |..3....262346,,b|
0000cd40  25 b8 7a 65 25 3a ce 3a  e1 0d 33 fe 1a dd f2 4f  |%.ze%:.:..3....O|
0000cd50  62 28 78 25 2c 79 25 29  3a e7 67 25 21 30 3c 3d  |b(x%,y%):.g%!0<=|
0000cd60  30 8c e1 0d 34 08 1e c8  99 32 36 32 33 37 34 2c  |0...4....262374,|
0000cd70  37 31 3a f2 63 62 28 78  25 2c 79 25 2c 31 29 3a  |71:.cb(x%,y%,1):|
0000cd80  e1 0d 34 12 4e dd f2 63  62 28 78 25 2c 79 25 2c  |..4.N..cb(x%,y%,|
0000cd90  7a 25 29 3a ea 64 25 2c  70 25 2c 75 25 2c 7a 63  |z%):.d%,p%,u%,zc|
0000cda0  25 2c 59 65 25 2c 5a 65  25 2c 5f 65 25 2c 60 65  |%,Ye%,Ze%,_e%,`e|
0000cdb0  25 3a e3 64 25 3d 31 b8  67 25 21 30 3a 70 25 3d  |%:.d%=1.g%!0:p%=|
0000cdc0  67 25 2b 31 32 2a 64 25  2d 38 3a e7 7a 25 8c 0d  |g%+12*d%-8:.z%..|
0000cdd0  34 1c 34 75 25 3d 78 25  2b 70 25 21 34 2a 61 25  |4.4u%=x%+p%!4*a%|
0000cde0  28 6f 25 2c 34 29 2f 31  30 30 3a 7a 63 25 3d 79  |(o%,4)/100:zc%=y|
0000cdf0  25 2b 70 25 21 38 2a 61  25 28 6f 25 2c 35 29 2f  |%+p%!8*a%(o%,5)/|
0000ce00  31 30 30 0d 34 26 1c cc  3a 75 25 3d 78 25 2b 70  |100.4&..:u%=x%+p|
0000ce10  25 21 34 3a 7a 63 25 3d  79 25 2b 70 25 21 38 0d  |%!4:zc%=y%+p%!8.|
0000ce20  34 30 05 cd 0d 34 3a 0b  c8 8e 70 25 21 30 ca 0d  |40...4:...p%!0..|
0000ce30  34 44 0e c9 30 3a ec 75  25 2c 7a 63 25 0d 34 4e  |4D..0:.u%,zc%.4N|
0000ce40  12 c9 31 3a f0 31 30 31  2c 75 25 2c 7a 63 25 0d  |..1:.101,u%,zc%.|
0000ce50  34 58 28 c9 32 3a df 75  25 2c 5a 65 25 3a df 75  |4X(.2:.u%,Ze%:.u|
0000ce60  25 2c 7a 63 25 3a df 59  65 25 2c 7a 63 25 3a df  |%,zc%:.Ye%,zc%:.|
0000ce70  59 65 25 2c 5a 65 25 0d  34 62 12 c9 33 3a f0 31  |Ye%,Ze%.4b..3:.1|
0000ce80  35 37 2c 75 25 2c 7a 63  25 0d 34 6c 12 c9 34 3a  |57,u%,zc%.4l..4:|
0000ce90  f0 31 34 39 2c 75 25 2c  7a 63 25 0d 34 76 0e c9  |.149,u%,zc%.4v..|
0000cea0  35 3a df 75 25 2c 7a 63  25 0d 34 80 11 c9 39 3a  |5:.u%,zc%.4...9:|
0000ceb0  f0 38 35 2c 75 25 2c 7a  63 25 0d 34 8a 18 c9 31  |.85,u%,zc%.4...1|
0000cec0  30 3a df 75 25 2c 7a 63  25 3a df 5f 65 25 2c 60  |0:.u%,zc%:._e%,`|
0000ced0  65 25 0d 34 94 13 c9 31  31 3a f0 31 31 37 2c 75  |e%.4...11:.117,u|
0000cee0  25 2c 7a 63 25 0d 34 9e  2c c9 31 32 3a df 75 25  |%,zc%.4.,.12:.u%|
0000cef0  2c 7a 63 25 3a df 42 59  20 5f 65 25 2d 59 65 25  |,zc%:.BY _e%-Ye%|
0000cf00  2c 60 65 25 2d 5a 65 25  3a df 5f 65 25 2c 60 65  |,`e%-Ze%:._e%,`e|
0000cf10  25 0d 34 a8 13 c9 31 33  3a f0 32 30 35 2c 75 25  |%.4...13:.205,u%|
0000cf20  2c 7a 63 25 0d 34 b2 13  c9 31 34 3a f0 31 39 37  |,zc%.4...14:.197|
0000cf30  2c 75 25 2c 7a 63 25 0d  34 bc 05 cb 0d 34 c6 2d  |,u%,zc%.4....4.-|
0000cf40  5f 65 25 3d 59 65 25 3a  60 65 25 3d 5a 65 25 3a  |_e%=Ye%:`e%=Ze%:|
0000cf50  59 65 25 3d 75 25 3a 5a  65 25 3d 7a 63 25 3a ed  |Ye%=u%:Ze%=zc%:.|
0000cf60  3a e7 7a 25 3d 30 8c f2  52 0d 34 d0 05 e1 0d 34  |:.z%=0..R.4....4|
0000cf70  da 3f dd f2 52 3a 6c 64  25 3d 54 25 2a 60 62 25  |.?..R:ld%=T%*`b%|
0000cf80  21 34 3a 6d 64 25 3d 4e  25 2a 60 62 25 21 38 3a  |!4:md%=N%*`b%!8:|
0000cf90  6e 64 25 3d 54 25 2a 60  62 25 21 31 32 3a 6f 64  |nd%=T%*`b%!12:od|
0000cfa0  25 3d 4e 25 2a 60 62 25  21 31 36 3a e1 0d 34 e4  |%=N%*`b%!16:..4.|
0000cfb0  ca dd f2 45 3a ea 68 2c  69 2c 7a 65 25 2c 78 25  |...E:.h,i,ze%,x%|
0000cfc0  2c 79 25 3a 68 3d 61 25  28 6f 25 2c 34 29 2f 31  |,y%:h=a%(o%,4)/1|
0000cfd0  30 30 3a 69 3d 61 25 28  6f 25 2c 35 29 2f 31 30  |00:i=a%(o%,5)/10|
0000cfe0  30 3a 62 25 21 30 3d 58  25 3a 62 25 21 34 3d 68  |0:b%!0=X%:b%!4=h|
0000cff0  2a 6c 64 25 3a 62 25 21  38 3d 69 2a 6d 64 25 3a  |*ld%:b%!8=i*md%:|
0000d000  62 25 21 31 32 3d 68 2a  6e 64 25 2b 68 2a 54 25  |b%!12=h*nd%+h*T%|
0000d010  3a 62 25 21 31 36 3d 69  2a 6f 64 25 2b 69 2a 4e  |:b%!16=i*od%+i*N|
0000d020  25 3a c8 99 32 36 32 33  34 35 2c 2c 62 25 b8 7a  |%:..262345,,b%.z|
0000d030  65 25 3a 78 25 3d 62 25  21 34 2d 62 25 21 32 30  |e%:x%=b%!4-b%!20|
0000d040  3a 79 25 3d 62 25 21 31  36 2d 62 25 21 32 34 3a  |:y%=b%!16-b%!24:|
0000d050  68 3d 68 2a 54 25 3a 69  3d 69 2a 4e 25 3a c8 95  |h=h*T%:i=i*N%:..|
0000d060  7a 65 25 3a f2 51 62 28  78 25 2c 79 25 2c 6f 25  |ze%:.Qb(x%,y%,o%|
0000d070  29 3a e7 76 62 25 8c 0d  34 ee 3b c8 99 32 36 32  |):.vb%..4.;..262|
0000d080  33 37 34 2c 37 31 3a c8  93 78 25 2b 68 2a 78 62  |374,71:..x%+h*xb|
0000d090  25 2c 79 25 2b 69 2a 79  62 25 2c 68 2a 28 7a 62  |%,y%+i*yb%,h*(zb|
0000d0a0  25 2d 78 62 25 29 2c 69  2a 28 41 62 25 2d 79 62  |%-xb%),i*(Ab%-yb|
0000d0b0  25 29 0d 34 f8 05 cd 0d  35 02 18 c8 99 32 36 32  |%).4....5....262|
0000d0c0  33 34 36 2c 2c 62 25 b8  7a 65 25 3a ce 3a e1 0d  |346,,b%.ze%:.:..|
0000d0d0  35 0c 2c dd a4 61 28 61  66 25 29 3a ea 69 25 3a  |5.,..a(af%):.i%:|
0000d0e0  e3 69 25 3d 31 b8 44 61  25 3a e7 61 25 28 69 25  |.i%=1.Da%:.a%(i%|
0000d0f0  2c 31 29 3d 61 66 25 8c  3d 69 25 0d 35 16 08 ed  |,1)=af%.=i%.5...|
0000d100  3a 3d 30 0d 35 20 37 dd  f2 51 62 28 78 25 2c 79  |:=0.5 7..Qb(x%,y|
0000d110  25 2c 69 25 29 3a ea 41  65 25 2c 55 65 25 3a e7  |%,i%):.Ae%,Ue%:.|
0000d120  77 65 25 3e 31 35 80 ac  77 62 25 8c 41 65 25 3d  |we%>15..wb%.Ae%=|
0000d130  2d 31 8b 41 65 25 3d 67  61 25 0d 35 2a 83 66 61  |-1.Ae%=ga%.5*.fa|
0000d140  25 21 30 3d 61 25 28 69  25 2c 34 29 2a 65 61 25  |%!0=a%(i%,4)*ea%|
0000d150  21 30 3a 66 61 25 21 34  3d 61 25 28 69 25 2c 35  |!0:fa%!4=a%(i%,5|
0000d160  29 2a 65 61 25 21 34 3a  c8 99 31 33 31 31 31 38  |)*ea%!4:..131118|
0000d170  2c 33 30 38 2c 61 25 28  69 25 2c 32 29 2c 61 24  |,308,a%(i%,2),a$|
0000d180  28 69 25 2c 31 29 2c 78  25 2c 79 25 2c 30 2c 66  |(i%,1),x%,y%,0,f|
0000d190  61 25 2c 41 65 25 b8 3b  55 65 25 3a e7 28 55 65  |a%,Ae%.;Ue%:.(Ue|
0000d1a0  25 80 31 29 3c 3e 30 8c  61 24 28 69 25 2c 31 29  |%.1)<>0.a$(i%,1)|
0000d1b0  3d a4 63 28 61 25 28 69  25 2c 32 29 29 0d 35 34  |=.c(a%(i%,2)).54|
0000d1c0  05 e1 0d 35 3e 54 dd f2  50 62 28 70 25 2c 73 24  |...5>T..Pb(p%,s$|
0000d1d0  2c 78 25 2c 79 25 29 3a  c8 99 32 36 32 33 38 31  |,x%,y%):..262381|
0000d1e0  2c 32 39 36 2c 70 25 2c  73 24 2c 2c 2c 2c 6a 61  |,296,p%,s$,,,,ja|
0000d1f0  25 2c 6b 61 25 3a c8 99  34 36 2c 33 30 38 2c 70  |%,ka%:..46,308,p|
0000d200  25 2c 73 24 2c 78 25 2c  79 25 2c 30 2c 6a 61 25  |%,s$,x%,y%,0,ja%|
0000d210  2c 6b 61 25 3a e1 0d 35  48 33 dd f2 6b 28 77 25  |,ka%:..5H3..k(w%|
0000d220  29 3a c8 99 32 36 32 33  35 33 2c 77 25 2c 2d 33  |):..262353,w%,-3|
0000d230  30 30 30 30 2c 2d 33 30  30 30 30 2c 33 30 30 30  |0000,-30000,3000|
0000d240  30 2c 33 30 30 30 30 3a  e1 0d 35 52 15 dd f2 4b  |0,30000:..5R...K|
0000d250  62 28 69 25 29 3a e7 69  25 3d 5f 25 8c e1 0d 35  |b(i%):.i%=_%...5|
0000d260  5c 4b 5f 25 3d 69 25 3a  50 25 3d 61 25 28 69 25  |\K_%=i%:P%=a%(i%|
0000d270  2c 31 29 3a 6a 64 25 3d  61 25 28 69 25 2c 33 29  |,1):jd%=a%(i%,3)|
0000d280  3a f2 79 28 50 25 2c 30  29 3a f2 79 28 50 25 2c  |:.y(P%,0):.y(P%,|
0000d290  b9 29 3a e7 76 62 25 8c  f2 76 28 33 29 3a f2 76  |.):.vb%..v(3):.v|
0000d2a0  28 30 29 3a 75 62 25 3d  30 0d 35 66 05 e1 0d 35  |(0):ub%=0.5f...5|
0000d2b0  70 15 dd f2 4a 62 28 69  25 29 3a e7 69 25 3d 6f  |p...Jb(i%):.i%=o|
0000d2c0  25 8c e1 0d 35 7a 4a f2  76 28 33 29 3a 6f 25 3d  |%...5zJ.v(3):o%=|
0000d2d0  69 25 3a 58 25 3d 61 25  28 69 25 2c 31 29 3a 55  |i%:X%=a%(i%,1):U|
0000d2e0  25 3d 61 25 28 69 25 2c  33 29 3a f2 79 28 58 25  |%=a%(i%,3):.y(X%|
0000d2f0  2c 30 29 3a f2 79 28 58  25 2c b9 29 3a e7 75 62  |,0):.y(X%,.):.ub|
0000d300  25 8c f2 76 28 30 29 3a  75 62 25 3d 30 0d 35 84  |%..v(0):ub%=0.5.|
0000d310  05 e1 0d 35 8e 39 dd f2  55 3a ea 69 25 3a e3 69  |...5.9..U:.i%:.i|
0000d320  25 3d 31 b8 44 61 25 3a  e7 61 25 28 69 25 2c 32  |%=1.Da%:.a%(i%,2|
0000d330  29 3e 30 8c f2 58 28 61  25 28 69 25 2c 32 29 29  |)>0..X(a%(i%,2))|
0000d340  3a 61 25 28 69 25 2c 32  29 3d 30 0d 35 98 0d ed  |:a%(i%,2)=0.5...|
0000d350  3a 43 61 25 3d 30 3a e1  0d 35 a2 9f dd f2 52 62  |:Ca%=0:..5....Rb|
0000d360  28 69 25 29 3a ea 70 25  2c 73 25 2c 4d 25 3a 70  |(i%):.p%,s%,M%:p|
0000d370  25 3d 61 25 28 69 25 2c  33 29 3a 70 25 21 30 3d  |%=a%(i%,3):p%!0=|
0000d380  77 64 25 3a 70 25 21 34  3d 6b 64 25 3a 70 25 21  |wd%:p%!4=kd%:p%!|
0000d390  38 3d 54 25 3a 70 25 21  31 32 3d 4e 25 3a 70 25  |8=T%:p%!12=N%:p%|
0000d3a0  21 34 38 3d 73 65 25 3a  4d 25 3d 31 30 30 30 2b  |!48=se%:M%=1000+|
0000d3b0  28 77 64 25 2b 34 29 2a  28 6b 64 25 2b 34 29 3a  |(wd%+4)*(kd%+4):|
0000d3c0  73 25 3d a4 62 28 4d 25  29 3a e7 73 25 3c 3d 30  |s%=.b(M%):.s%<=0|
0000d3d0  8c f2 55 3a 85 31 2c 22  4e 6f 20 72 6f 6f 6d 20  |..U:.1,"No room |
0000d3e0  74 6f 20 63 72 65 61 74  65 20 61 6e 6f 74 68 65  |to create anothe|
0000d3f0  72 20 76 69 65 77 22 0d  35 ac 94 61 25 28 69 25  |r view".5..a%(i%|
0000d400  2c 32 29 3d 73 25 3a 61  24 28 69 25 2c 31 29 3d  |,2)=s%:a$(i%,1)=|
0000d410  22 50 52 4f 43 45 53 53  45 44 22 3a 73 25 21 30  |"PROCESSED":s%!0|
0000d420  3d 4d 25 3a 73 25 21 34  3d 30 3a 73 25 21 38 3d  |=M%:s%!4=0:s%!8=|
0000d430  31 36 3a 73 25 21 31 32  3d 31 36 3a c8 99 34 36  |16:s%!12=16:..46|
0000d440  2c 32 35 36 2b 31 35 2c  73 25 2c 61 24 28 69 25  |,256+15,s%,a$(i%|
0000d450  2c 31 29 2c 30 2c 77 64  25 2c 6b 64 25 2c 73 65  |,1),0,wd%,kd%,se|
0000d460  25 3a f2 5a 28 70 25 2c  73 25 2c 61 24 28 69 25  |%:.Z(p%,s%,a$(i%|
0000d470  2c 31 29 29 3a 61 24 28  69 25 2c 32 29 3d 22 50  |,1)):a$(i%,2)="P|
0000d480  72 6f 63 65 73 73 65 64  22 3a e1 0d 35 b6 46 dd  |rocessed":..5.F.|
0000d490  a4 63 28 70 25 29 3a ea  6e 24 2c 4d 25 3a c8 99  |.c(p%):.n$,M%:..|
0000d4a0  34 36 2c 32 35 36 2b 31  33 2c 70 25 2c 65 25 2c  |46,256+13,p%,e%,|
0000d4b0  31 36 2c 31 b8 2c 2c 2c  4d 25 3a 65 25 3f 4d 25  |16,1.,,,M%:e%?M%|
0000d4c0  3d 31 33 3a 6e 24 3d a4  73 28 65 25 29 3a 3d 6e  |=13:n$=.s(e%):=n|
0000d4d0  24 0d 35 c0 9e dd f2 5a  28 70 25 2c 58 65 25 2c  |$.5....Z(p%,Xe%,|
0000d4e0  6e 24 29 3a ea 55 64 25  3a 55 64 25 3d 58 65 25  |n$):.Ud%:Ud%=Xe%|
0000d4f0  2b 58 65 25 21 38 3a 70  25 21 31 36 3d 34 2a 28  |+Xe%!8:p%!16=4*(|
0000d500  55 64 25 21 31 36 2b 31  29 3a 70 25 21 32 30 3d  |Ud%!16+1):p%!20=|
0000d510  28 70 25 21 31 36 29 2a  28 55 64 25 21 32 30 2b  |(p%!16)*(Ud%!20+|
0000d520  31 29 3a 70 25 21 32 34  3d 55 64 25 2b 55 64 25  |1):p%!24=Ud%+Ud%|
0000d530  21 33 32 3a 70 25 21 32  38 3d 58 65 25 3a 24 28  |!32:p%!28=Xe%:$(|
0000d540  70 25 2b 33 32 29 3d 6e  24 2b bd 30 3a 70 25 21  |p%+32)=n$+.0:p%!|
0000d550  35 32 3d 70 25 21 30 2a  70 25 21 38 3a 70 25 21  |52=p%!0*p%!8:p%!|
0000d560  35 36 3d 70 25 21 34 2a  70 25 21 31 32 3a e1 0d  |56=p%!4*p%!12:..|
0000d570  35 ca 77 dd f2 49 62 28  69 25 29 3a ea 62 66 25  |5.w..Ib(i%):.bf%|
0000d580  2c 4d 25 2c 61 24 2c 63  66 25 2c 55 65 25 3a c8  |,M%,a$,cf%,Ue%:.|
0000d590  99 38 2c 35 2c 61 24 28  69 25 2c 32 29 b8 62 66  |.8,5,a$(i%,2).bf|
0000d5a0  25 2c 2c 63 66 25 2c 2c  4d 25 3a e7 28 28 63 66  |%,,cf%,,M%:.((cf|
0000d5b0  25 3e 3e 38 29 80 34 30  39 35 29 3c 3e 34 30 38  |%>>8).4095)<>408|
0000d5c0  39 8c 85 31 2c 22 59 6f  75 20 63 61 6e 20 6f 6e  |9..1,"You can on|
0000d5d0  6c 79 20 72 65 6c 6f 61  64 20 73 70 72 69 74 65  |ly reload sprite|
0000d5e0  66 69 6c 65 73 22 0d 35  d4 2e e7 62 66 25 3c 3e  |files".5...bf%<>|
0000d5f0  31 8c 85 31 2c 22 46 69  6c 65 20 27 22 2b 61 24  |1..1,"File '"+a$|
0000d600  28 69 25 2c 32 29 2b 22  27 20 6e 6f 74 20 66 6f  |(i%,2)+"' not fo|
0000d610  75 6e 64 22 0d 35 de 22  e7 4d 25 3c 3e 64 66 25  |und".5.".M%<>df%|
0000d620  8c 85 31 2c 22 46 69 6c  65 20 68 61 73 20 63 68  |..1,"File has ch|
0000d630  61 6e 67 65 64 22 0d 35  e8 54 c8 99 31 33 31 31  |anged".5.T..1311|
0000d640  31 38 2c 32 35 36 2b 31  30 2c 61 25 28 69 25 2c  |18,256+10,a%(i%,|
0000d650  32 29 2c 61 24 28 69 25  2c 32 29 b8 3b 55 65 25  |2),a$(i%,2).;Ue%|
0000d660  3a e7 ac 55 65 25 8c 85  31 2c 22 4e 6f 74 20 65  |:..Ue%..1,"Not e|
0000d670  6e 6f 75 67 68 20 72 6f  6f 6d 20 69 6e 20 73 70  |nough room in sp|
0000d680  72 69 74 65 20 61 72 65  61 22 0d 35 f2 6c 61 24  |rite area".5.la$|
0000d690  3d a4 63 28 61 25 28 69  25 2c 32 29 29 3a 61 24  |=.c(a%(i%,2)):a$|
0000d6a0  28 69 25 2c 31 29 3d 61  24 3a c8 99 34 36 2c 32  |(i%,1)=a$:..46,2|
0000d6b0  35 36 2b 35 34 2c 61 25  28 69 25 2c 32 29 2c 61  |56+54,a%(i%,2),a|
0000d6c0  24 3a f2 53 62 28 61 25  28 69 25 2c 32 29 29 3a  |$:.Sb(a%(i%,2)):|
0000d6d0  f2 5a 28 61 25 28 69 25  2c 33 29 2c 61 25 28 69  |.Z(a%(i%,3),a%(i|
0000d6e0  25 2c 32 29 2c 61 24 29  3a e7 57 25 3d 31 8c f2  |%,2),a$):.W%=1..|
0000d6f0  4d 62 28 69 25 29 0d 35  fc 12 f2 61 28 61 25 28  |Mb(i%).5...a(a%(|
0000d700  69 25 2c 31 29 29 3a e1  0d 36 06 86 dd f2 59 3a  |i%,1)):..6....Y:|
0000d710  ea 69 25 3a e3 69 25 3d  31 b8 44 61 25 3a f2 58  |.i%:.i%=1.Da%:.X|
0000d720  28 61 25 28 69 25 2c 32  29 29 3a f2 6c 28 61 25  |(a%(i%,2)):.l(a%|
0000d730  28 69 25 2c 31 29 29 3a  61 25 28 69 25 2c 32 29  |(i%,1)):a%(i%,2)|
0000d740  3d 30 3a ed 3a 76 62 25  3d 30 3a 75 62 25 3d 30  |=0:.:vb%=0:ub%=0|
0000d750  3a 43 61 25 3d 30 3a 77  62 25 3d a3 3a f2 64 28  |:Ca%=0:wb%=.:.d(|
0000d760  65 63 25 2c 30 2c 30 29  3a f2 64 28 65 63 25 2c  |ec%,0,0):.d(ec%,|
0000d770  31 2c 30 29 3a f2 64 28  65 63 25 2c 32 2c 30 29  |1,0):.d(ec%,2,0)|
0000d780  3a f2 64 28 65 63 25 2c  33 2c 30 29 3a e1 0d 36  |:.d(ec%,3,0):..6|
0000d790  10 5a dd f2 79 61 28 62  25 29 3a ea 4d 25 2c 56  |.Z..ya(b%):.M%,V|
0000d7a0  25 3a c8 99 32 36 32 33  35 31 2c 2c 6a 25 3a 56  |%:..262351,,j%:V|
0000d7b0  25 3d a4 61 28 6a 25 21  31 32 29 3a e7 56 25 3c  |%=.a(j%!12):.V%<|
0000d7c0  3d 30 8c 85 31 2c 22 59  6f 75 20 63 61 6e 27 74  |=0..1,"You can't|
0000d7d0  20 6c 6f 61 64 20 74 68  61 74 20 66 69 6c 65 20  | load that file |
0000d7e0  74 68 65 72 65 21 21 22  0d 36 1a 1e e7 ac 43 61  |there!!".6....Ca|
0000d7f0  25 8c 85 31 2c 22 4e 6f  20 69 6d 61 67 65 20 6c  |%..1,"No image l|
0000d800  6f 61 64 65 64 22 0d 36  24 33 c8 99 38 2c 35 2c  |oaded".6$3..8,5,|
0000d810  62 25 2b 34 34 b8 2c 2c  2c 2c 4d 25 3a e7 4d 25  |b%+44.,,,,M%:.M%|
0000d820  3c 3e 32 35 36 8c 85 31  2c 22 4e 6f 74 20 61 20  |<>256..1,"Not a |
0000d830  6d 61 70 2d 66 69 6c 65  22 0d 36 2e 41 c8 99 38  |map-file".6.A..8|
0000d840  2c 32 35 35 2c 62 25 2b  34 34 2c 4c 25 3a c8 99  |,255,b%+44,L%:..|
0000d850  38 39 32 36 31 32 2c 61  25 28 56 25 2c 33 29 2c  |892612,a%(V%,3),|
0000d860  61 25 28 56 25 2c 33 29  2c 4c 25 3a f2 6b 28 61  |a%(V%,3),L%:.k(a|
0000d870  25 28 56 25 2c 31 29 29  3a e1 0d 36 38 32 dd f2  |%(V%,1)):..682..|
0000d880  54 62 28 62 25 2c 4d 25  2c 66 24 2c 69 25 29 3a  |Tb(b%,M%,f$,i%):|
0000d890  ea 6e 24 2c 78 25 2c 79  25 2c 65 66 25 2c 66 66  |.n$,x%,y%,ef%,ff|
0000d8a0  25 3a e7 4d 25 3c 3e 64  66 25 8c e1 0d 36 42 7f  |%:.M%<>df%...6B.|
0000d8b0  c8 99 34 36 2c 32 35 36  2b 31 30 2c 61 25 28 69  |..46,256+10,a%(i|
0000d8c0  25 2c 32 29 2c 66 24 3a  6e 24 3d a4 63 28 61 25  |%,2),f$:n$=.c(a%|
0000d8d0  28 69 25 2c 32 29 29 3a  c8 99 34 36 2c 32 35 36  |(i%,2)):..46,256|
0000d8e0  2b 34 30 2c 61 25 28 69  25 2c 32 29 2c 6e 24 b8  |+40,a%(i%,2),n$.|
0000d8f0  2c 2c 2c 78 25 2c 79 25  2c 2c 65 66 25 3a e7 65  |,,,x%,y%,,ef%:.e|
0000d900  66 25 3c 3e 73 65 25 8c  85 31 2c 22 54 68 65 20  |f%<>se%..1,"The |
0000d910  73 70 72 69 74 65 20 69  73 20 69 6e 20 61 20 77  |sprite is in a w|
0000d920  72 6f 6e 67 20 6d 6f 64  65 22 22 0d 36 4c 2c e7  |rong mode"".6L,.|
0000d930  78 25 3c 3e 77 64 25 84  79 25 3c 3e 6b 64 25 8c  |x%<>wd%.y%<>kd%.|
0000d940  85 31 2c 22 53 69 7a 65  20 64 6f 65 73 6e 27 74  |.1,"Size doesn't|
0000d950  20 6d 61 74 63 68 22 0d  36 56 3a c8 99 35 33 2c  | match".6V:..53,|
0000d960  65 66 25 2c 33 b8 2c 2c  66 66 25 3a e7 66 66 25  |ef%,3.,,ff%:.ff%|
0000d970  3c 3e 36 33 8c 85 31 2c  22 4e 6f 74 20 61 20 32  |<>63..1,"Not a 2|
0000d980  35 36 20 63 6f 6c 6f 75  72 20 73 70 72 69 74 65  |56 colour sprite|
0000d990  22 0d 36 60 6e 61 24 28  69 25 2c 31 29 3d 6e 24  |".6`na$(i%,1)=n$|
0000d9a0  3a 61 24 28 69 25 2c 32  29 3d 66 24 3a c8 99 34  |:a$(i%,2)=f$:..4|
0000d9b0  36 2c 32 35 36 2b 35 34  2c 61 25 28 69 25 2c 32  |6,256+54,a%(i%,2|
0000d9c0  29 2c 6e 24 3a f2 53 62  28 61 25 28 69 25 2c 32  |),n$:.Sb(a%(i%,2|
0000d9d0  29 29 3a f2 5a 28 61 25  28 69 25 2c 33 29 2c 61  |)):.Z(a%(i%,3),a|
0000d9e0  25 28 69 25 2c 32 29 2c  61 24 28 69 25 2c 31 29  |%(i%,2),a$(i%,1)|
0000d9f0  29 3a e7 57 25 3d 31 8c  f2 4d 62 28 69 25 29 0d  |):.W%=1..Mb(i%).|
0000da00  36 6a 12 f2 61 28 61 25  28 69 25 2c 31 29 29 3a  |6j..a(a%(i%,1)):|
0000da10  e1 0d 36 74 58 dd f2 78  61 28 62 25 29 3a ea 62  |..6tX..xa(b%):.b|
0000da20  66 25 2c 4d 25 2c 70 25  2c 6e 24 2c 78 25 2c 79  |f%,M%,p%,n$,x%,y|
0000da30  25 2c 65 66 25 2c 66 66  25 2c 66 24 2c 56 25 3a  |%,ef%,ff%,f$,V%:|
0000da40  66 24 3d a4 73 28 62 25  2b 34 34 29 3a c8 99 38  |f$=.s(b%+44):..8|
0000da50  2c 35 2c 66 24 b8 62 66  25 2c 2c 2c 2c 4d 25 3a  |,5,f$.bf%,,,,M%:|
0000da60  e7 62 66 25 3c 3e 31 8c  e1 0d 36 7e 36 c8 99 32  |.bf%<>1...6~6..2|
0000da70  36 32 33 35 31 2c 2c 6a  25 3a 56 25 3d a4 61 28  |62351,,j%:V%=.a(|
0000da80  6a 25 21 31 32 29 3a e7  56 25 3e 30 8c f2 54 62  |j%!12):.V%>0..Tb|
0000da90  28 62 25 2c 4d 25 2c 66  24 2c 56 25 29 3a e1 0d  |(b%,M%,f$,V%):..|
0000daa0  36 88 0b e7 43 61 25 8c  f2 59 0d 36 92 35 70 25  |6...Ca%..Y.6.5p%|
0000dab0  3d a4 62 28 4d 25 2b 32  30 29 3a e7 70 25 3c 3d  |=.b(M%+20):.p%<=|
0000dac0  30 8c f2 55 3a 85 31 2c  22 4e 6f 20 72 6f 6f 6d  |0..U:.1,"No room|
0000dad0  20 74 6f 20 6c 6f 61 64  20 69 6d 61 67 65 22 0d  | to load image".|
0000dae0  36 9c a0 70 25 21 30 3d  4d 25 2b 32 30 3a 70 25  |6..p%!0=M%+20:p%|
0000daf0  21 34 3d 30 3a 70 25 21  38 3d 31 36 3a 70 25 21  |!4=0:p%!8=16:p%!|
0000db00  31 32 3d 31 36 3a c8 99  34 36 2c 32 35 36 2b 31  |12=16:..46,256+1|
0000db10  30 2c 70 25 2c 66 24 3a  6e 24 3d a4 63 28 70 25  |0,p%,f$:n$=.c(p%|
0000db20  29 3a c8 99 34 36 2c 32  35 36 2b 34 30 2c 70 25  |):..46,256+40,p%|
0000db30  2c 6e 24 b8 2c 2c 2c 78  25 2c 79 25 2c 2c 65 66  |,n$.,,,x%,y%,,ef|
0000db40  25 3a c8 99 35 33 2c 65  66 25 2c 33 b8 2c 2c 66  |%:..53,ef%,3.,,f|
0000db50  66 25 3a e7 66 66 25 3c  3e 36 33 8c f2 58 28 70  |f%:.ff%<>63..X(p|
0000db60  25 29 3a 85 31 2c 22 4e  6f 74 20 61 20 32 35 36  |%):.1,"Not a 256|
0000db70  20 63 6f 6c 6f 75 72 20  73 70 72 69 74 65 22 0d  | colour sprite".|
0000db80  36 a6 3f 64 66 25 3d 4d  25 3a f2 53 62 28 70 25  |6.?df%=M%:.Sb(p%|
0000db90  29 3a 69 24 3d 22 53 70  72 69 74 65 20 28 4d 4f  |):i$="Sprite (MO|
0000dba0  44 45 20 22 2b c3 65 66  25 2b 22 29 22 3a e7 67  |DE "+.ef%+")":.g|
0000dbb0  66 25 8c 69 24 2b 3d 22  20 47 72 65 79 22 0d 36  |f%.i$+=" Grey".6|
0000dbc0  b0 3e f2 5f 28 66 24 2c  78 25 2c 79 25 2c 65 66  |.>._(f$,x%,y%,ef|
0000dbd0  25 2c 70 25 2c 6e 24 2c  67 66 25 2c 30 29 3a e7  |%,p%,n$,gf%,0):.|
0000dbe0  67 66 25 8c c8 99 38 39  32 36 31 32 2c 55 25 2c  |gf%...892612,U%,|
0000dbf0  55 25 2c 4c 25 3a f2 48  62 28 b9 29 0d 36 ba 05  |U%,L%:.Hb(.).6..|
0000dc00  e1 0d 36 c4 72 dd f2 53  62 28 73 25 29 3a ea 68  |..6.r..Sb(s%):.h|
0000dc10  66 25 2c 69 66 25 2c 6a  66 25 2c 69 25 2c 59 25  |f%,if%,jf%,i%,Y%|
0000dc20  2c 6b 66 25 2c 51 64 25  2c 52 64 25 2c 53 64 25  |,kf%,Qd%,Rd%,Sd%|
0000dc30  3a 67 66 25 3d a3 3a 68  66 25 3d 73 25 2b 73 25  |:gf%=.:hf%=s%+s%|
0000dc40  21 38 3a 69 66 25 3d 68  66 25 2b 68 66 25 21 33  |!8:if%=hf%+hf%!3|
0000dc50  32 3a 6a 66 25 3d 68 66  25 21 33 32 3a e7 68 66  |2:jf%=hf%!32:.hf|
0000dc60  25 21 33 36 3c 6a 66 25  8c 6a 66 25 3d 68 66 25  |%!36<jf%.jf%=hf%|
0000dc70  21 33 36 0d 36 ce 08 c8  8e b9 ca 0d 36 d8 7b c9  |!36.6.......6.{.|
0000dc80  6a 66 25 3d 32 30 39 32  3a 59 25 3d b9 3a 6b 66  |jf%=2092:Y%=.:kf|
0000dc90  25 3d 68 66 25 2b 34 34  3a e3 69 25 3d 30 b8 32  |%=hf%+44:.i%=0.2|
0000dca0  35 35 3a 51 64 25 3d 6b  66 25 3f 28 38 2a 69 25  |55:Qd%=kf%?(8*i%|
0000dcb0  2b 31 29 3a 52 64 25 3d  6b 66 25 3f 28 38 2a 69  |+1):Rd%=kf%?(8*i|
0000dcc0  25 2b 32 29 3a 53 64 25  3d 6b 66 25 3f 28 38 2a  |%+2):Sd%=kf%?(8*|
0000dcd0  69 25 2b 33 29 3a e7 51  64 25 3c 3e 52 64 25 84  |i%+3):.Qd%<>Rd%.|
0000dce0  52 64 25 3c 3e 53 64 25  84 51 64 25 3c 3e 53 64  |Rd%<>Sd%.Qd%<>Sd|
0000dcf0  25 8c 59 25 3d a3 0d 36  e2 19 4c 25 3f 69 25 3d  |%.Y%=..6..L%?i%=|
0000dd00  51 64 25 3a ed 3a e7 59  25 8c 67 66 25 3d b9 0d  |Qd%:.:.Y%.gf%=..|
0000dd10  36 ec 0f f2 55 62 28 68  66 25 2c 73 25 29 0d 36  |6...Ub(hf%,s%).6|
0000dd20  f6 17 c9 6a 66 25 3e 34  34 3a f2 55 62 28 68 66  |...jf%>44:.Ub(hf|
0000dd30  25 2c 73 25 29 0d 37 00  05 cb 0d 37 0a 05 e1 0d  |%,s%).7....7....|
0000dd40  37 14 ad dd f2 55 62 28  68 66 25 2c 6c 66 25 29  |7....Ub(hf%,lf%)|
0000dd50  3a ea 69 25 2c 6d 66 25  3a 6d 66 25 3d 68 66 25  |:.i%,mf%:mf%=hf%|
0000dd60  21 33 32 2d 34 34 3a c8  99 38 39 31 33 32 38 2c  |!32-44:..891328,|
0000dd70  68 66 25 2b 6d 66 25 2b  34 34 2c 6c 66 25 21 30  |hf%+mf%+44,lf%!0|
0000dd80  2d 68 66 25 21 33 32 2d  6c 66 25 21 38 2c 68 66  |-hf%!32-lf%!8,hf|
0000dd90  25 2b 34 34 3a 68 66 25  21 30 3d 68 66 25 21 30  |%+44:hf%!0=hf%!0|
0000dda0  2d 6d 66 25 3a 68 66 25  21 33 32 3d 68 66 25 21  |-mf%:hf%!32=hf%!|
0000ddb0  33 32 2d 6d 66 25 3a 68  66 25 21 33 36 3d 68 66  |32-mf%:hf%!36=hf|
0000ddc0  25 21 33 36 2d 6d 66 25  3a 6c 66 25 21 30 3d 6c  |%!36-mf%:lf%!0=l|
0000ddd0  66 25 21 30 2d 6d 66 25  3a 6c 66 25 21 31 32 3d  |f%!0-mf%:lf%!12=|
0000dde0  6c 66 25 21 31 32 2d 6d  66 25 3a e1 0d 37 1e 44  |lf%!12-mf%:..7.D|
0000ddf0  dd f2 7a 61 28 62 25 29  3a ea 70 25 2c 66 24 2c  |..za(b%):.p%,f$,|
0000de00  62 66 25 2c 4d 25 3a 66  24 3d a4 73 28 62 25 2b  |bf%,M%:f$=.s(b%+|
0000de10  34 34 29 3a c8 99 38 2c  35 2c 66 24 b8 62 66 25  |44):..8,5,f$.bf%|
0000de20  2c 2c 2c 2c 4d 25 3a e7  62 66 25 3c 3e 31 8c e1  |,,,,M%:.bf%<>1..|
0000de30  0d 37 28 29 e7 4d 25 3c  3e 36 35 35 33 36 8c 85  |.7().M%<>65536..|
0000de40  31 2c 22 4e 6f 74 20 61  6e 20 41 49 4d 20 69 6d  |1,"Not an AIM im|
0000de50  61 67 65 20 66 69 6c 65  22 0d 37 32 4f c8 99 32  |age file".72O..2|
0000de60  36 32 33 35 31 2c 2c 6a  25 3a e7 6a 25 21 31 32  |62351,,j%:.j%!12|
0000de70  3c 3e 2d 32 8c 85 31 2c  22 59 6f 75 20 63 61 6e  |<>-2..1,"You can|
0000de80  20 6f 6e 6c 79 20 6c 6f  61 64 20 41 49 4d 20 69  | only load AIM i|
0000de90  6d 61 67 65 73 20 74 68  72 75 20 74 68 65 20 69  |mages thru the i|
0000dea0  63 6f 6e 20 62 61 72 22  0d 37 3c 0b e7 43 61 25  |con bar".7<..Ca%|
0000deb0  8c f2 59 0d 37 46 35 70  25 3d a4 62 28 36 36 30  |..Y.7F5p%=.b(660|
0000dec0  30 30 29 3a e7 70 25 3c  3d 30 8c f2 55 3a 85 31  |00):.p%<=0..U:.1|
0000ded0  2c 22 4e 6f 20 72 6f 6f  6d 20 74 6f 20 6c 6f 61  |,"No room to loa|
0000dee0  64 20 69 6d 61 67 65 22  0d 37 50 99 70 25 21 30  |d image".7P.p%!0|
0000def0  3d 36 36 30 30 30 3a 70  25 21 34 3d 30 3a 70 25  |=66000:p%!4=0:p%|
0000df00  21 38 3d 31 36 3a 70 25  21 31 32 3d 31 36 3a c8  |!8=16:p%!12=16:.|
0000df10  99 34 36 2c 32 35 36 2b  31 35 2c 70 25 2c 22 41  |.46,256+15,p%,"A|
0000df20  49 4d 5f 49 6d 61 67 65  22 2c 30 2c 32 35 36 2c  |IM_Image",0,256,|
0000df30  32 35 36 2c 32 31 3a c8  99 38 2c 32 35 35 2c 66  |256,21:..8,255,f|
0000df40  24 2c 70 25 2b 36 30 3a  64 66 25 3d 36 35 35 33  |$,p%+60:df%=6553|
0000df50  36 3a f2 5f 28 66 24 2c  32 35 36 2c 32 35 36 2c  |6:._(f$,256,256,|
0000df60  32 31 2c 70 25 2c 22 41  49 4d 5f 49 6d 61 67 65  |21,p%,"AIM_Image|
0000df70  22 2c b9 2c 32 29 3a 69  24 3d 22 41 49 4d 22 3a  |",.,2):i$="AIM":|
0000df80  e1 0d 37 5a e3 dd f2 5f  28 66 24 2c 78 25 2c 79  |..7Z..._(f$,x%,y|
0000df90  25 2c 65 66 25 2c 70 25  2c 6e 24 2c 59 25 2c 49  |%,ef%,p%,n$,Y%,I|
0000dfa0  64 25 29 3a ea 69 25 2c  62 64 25 2c 47 65 25 3a  |d%):.i%,bd%,Ge%:|
0000dfb0  f2 66 3a 61 25 28 6f 25  2c 32 29 3d 70 25 3a 61  |.f:a%(o%,2)=p%:a|
0000dfc0  24 28 6f 25 2c 31 29 3d  6e 24 3a 61 24 28 6f 25  |$(o%,1)=n$:a$(o%|
0000dfd0  2c 32 29 3d 66 24 3a c8  99 34 36 2c 32 35 36 2b  |,2)=f$:..46,256+|
0000dfe0  35 34 2c 70 25 2c 6e 24  3a c8 99 35 33 2c 65 66  |54,p%,n$:..53,ef|
0000dff0  25 2c 34 b8 2c 2c 62 64  25 3a c8 99 35 33 2c 65  |%,4.,,bd%:..53,e|
0000e000  66 25 2c 35 b8 2c 2c 47  65 25 3a 73 65 25 3d 65  |f%,5.,,Ge%:se%=e|
0000e010  66 25 3a 77 64 25 3d 78  25 3a 6b 64 25 3d 79 25  |f%:wd%=x%:kd%=y%|
0000e020  3a 75 64 25 3d 78 25 2a  28 31 3c 3c 62 64 25 29  |:ud%=x%*(1<<bd%)|
0000e030  3a 76 64 25 3d 79 25 2a  28 31 3c 3c 47 65 25 29  |:vd%=y%*(1<<Ge%)|
0000e040  3a 63 63 25 3d 75 64 25  3a 64 63 25 3d 76 64 25  |:cc%=ud%:dc%=vd%|
0000e050  3a 54 25 3d 31 3c 3c 62  64 25 3a 4e 25 3d 31 3c  |:T%=1<<bd%:N%=1<|
0000e060  3c 47 65 25 0d 37 64 7f  70 25 3d 61 25 28 6f 25  |<Ge%.7d.p%=a%(o%|
0000e070  2c 33 29 3a 70 25 21 30  3d 77 64 25 3a 70 25 21  |,3):p%!0=wd%:p%!|
0000e080  34 3d 6b 64 25 3a 70 25  21 38 3d 28 31 3c 3c 62  |4=kd%:p%!8=(1<<b|
0000e090  64 25 29 3a 70 25 21 31  32 3d 28 31 3c 3c 47 65  |d%):p%!12=(1<<Ge|
0000e0a0  25 29 3a 70 25 21 34 38  3d 73 65 25 3a f2 5a 28  |%):p%!48=se%:.Z(|
0000e0b0  70 25 2c 61 25 28 6f 25  2c 32 29 2c 6e 24 29 3a  |p%,a%(o%,2),n$):|
0000e0c0  6e 24 3d a4 65 28 66 24  29 3a e3 69 25 3d 31 b8  |n$=.e(f$):.i%=1.|
0000e0d0  44 61 25 3a e7 69 25 3c  3e 6f 25 8c f2 52 62 28  |Da%:.i%<>o%..Rb(|
0000e0e0  69 25 29 0d 37 6e 37 f2  56 62 28 69 25 2c a3 29  |i%).7n7.Vb(i%,.)|
0000e0f0  3a ed 3a 43 61 25 3d b9  3a f2 76 61 3a f2 76 28  |:.:Ca%=.:.va:.v(|
0000e100  30 29 3a e7 59 25 8c 77  62 25 3d b9 3a f2 44 62  |0):.Y%.wb%=.:.Db|
0000e110  28 31 29 8b f2 44 62 28  30 29 0d 37 78 0c f2 4c  |(1)..Db(0).7x..L|
0000e120  62 3a f2 67 3a e1 0d 37  82 47 dd f2 78 28 69 25  |b:.g:..7.G..x(i%|
0000e130  2c 6e 24 29 3a c8 99 34  36 2c 32 35 36 2b 32 36  |,n$):..46,256+26|
0000e140  2c 61 25 28 69 25 2c 32  29 2c 61 24 28 69 25 2c  |,a%(i%,2),a$(i%,|
0000e150  31 29 2c 6e 24 3a 61 24  28 69 25 2c 31 29 3d 6e  |1),n$:a$(i%,1)=n|
0000e160  24 3a f2 56 62 28 69 25  2c b9 29 3a e1 0d 37 8c  |$:.Vb(i%,.):..7.|
0000e170  17 dd f2 49 28 69 25 29  3a f2 56 62 28 69 25 2c  |...I(i%):.Vb(i%,|
0000e180  b9 29 3a e1 0d 37 96 ed  dd f2 56 62 28 69 25 2c  |.):..7....Vb(i%,|
0000e190  6e 66 25 29 3a ea 74 24  2c 66 24 2c 4d 25 3a 66  |nf%):.t$,f$,M%:f|
0000e1a0  24 3d 61 24 28 69 25 2c  32 29 3a 24 5a 25 3d 22  |$=a$(i%,2):$Z%="|
0000e1b0  50 72 6f 63 65 73 73 20  22 2b 66 24 2b 22 20 22  |Process "+f$+" "|
0000e1c0  2b a4 65 28 66 24 29 2b  22 20 22 2b 61 24 28 69  |+.e(f$)+" "+a$(i|
0000e1d0  25 2c 31 29 2b 22 20 22  2b c3 73 65 25 2b 22 20  |%,1)+" "+.se%+" |
0000e1e0  22 2b c3 77 64 25 2b 22  20 22 2b c3 6b 64 25 2b  |"+.wd%+" "+.kd%+|
0000e1f0  22 20 22 2b c3 69 25 2b  22 20 22 2b c3 28 61 25  |" "+.i%+" "+.(a%|
0000e200  28 69 25 2c 34 29 29 2b  22 20 22 2b c3 28 61 25  |(i%,4))+" "+.(a%|
0000e210  28 69 25 2c 35 29 29 3a  c8 99 36 37 2c 5a 25 84  |(i%,5)):..67,Z%.|
0000e220  28 31 3c 3c 33 31 29 2c  65 25 2c 32 35 35 2c 6f  |(1<<31),e%,255,o|
0000e230  24 2c a9 6f 24 b8 2c 2c  4d 25 3a 65 25 3f 4d 25  |$,.o$.,,M%:e%?M%|
0000e240  3d 31 33 3a 74 24 3d 24  65 25 3a 6a 25 21 30 3d  |=13:t$=$e%:j%!0=|
0000e250  61 25 28 69 25 2c 31 29  3a c8 99 32 36 32 33 34  |a%(i%,1):..26234|
0000e260  38 2c 2c 6a 25 3a 24 28  6a 25 21 37 36 29 3d 74  |8,,j%:$(j%!76)=t|
0000e270  24 0d 37 a0 36 e7 6e 66  25 c8 99 32 36 32 33 36  |$.7.6.nf%..26236|
0000e280  38 2c 2c 6a 25 3a c8 99  32 36 32 33 35 33 2c 2d  |8,,j%:..262353,-|
0000e290  31 2c 6a 25 21 34 2c 6a  25 21 38 2c 6a 25 21 31  |1,j%!4,j%!8,j%!1|
0000e2a0  32 2c 6a 25 21 31 36 0d  37 aa 05 e1 0d 37 b4 88  |2,j%!16.7....7..|
0000e2b0  dd f2 77 61 28 6f 66 25  2c 69 25 29 3a ea 67 24  |..wa(of%,i%):.g$|
0000e2c0  2c 6b 66 25 2c 68 25 2c  70 25 2c 68 66 25 2c 64  |,kf%,h%,p%,hf%,d|
0000e2d0  25 3a 67 24 3d a4 73 28  6f 66 25 29 3a e7 ac a4  |%:g$=.s(of%):...|
0000e2e0  68 28 67 24 29 8c 85 31  2c 22 54 6f 20 73 61 76  |h(g$)..1,"To sav|
0000e2f0  65 2c 20 64 72 61 67 20  74 68 65 20 69 63 6f 6e  |e, drag the icon|
0000e300  20 74 6f 20 61 20 64 69  72 65 63 74 6f 72 79 20  | to a directory |
0000e310  76 69 65 77 65 72 20 6f  72 20 74 6f 20 61 6e 6f  |viewer or to ano|
0000e320  74 68 65 72 20 50 72 6f  63 65 73 73 20 76 69 65  |ther Process vie|
0000e330  77 65 72 22 0d 37 be 0c  f2 66 3a e7 4d 61 25 8c  |wer".7...f:.Ma%.|
0000e340  0d 37 c8 a4 c8 99 31 33  2c 31 33 31 2c 67 24 b8  |.7....13,131,g$.|
0000e350  68 25 3a 70 25 3d 61 25  28 69 25 2c 32 29 3a c8  |h%:p%=a%(i%,2):.|
0000e360  99 31 32 2c 32 2c 68 25  2c 70 25 2b 34 2c 31 32  |.12,2,h%,p%+4,12|
0000e370  3a 68 66 25 3d 70 25 2b  70 25 21 38 3a f2 4f 28  |:hf%=p%+p%!8:.O(|
0000e380  68 25 2c 32 30 34 38 2b  68 66 25 21 30 29 3a c8  |h%,2048+hf%!0):.|
0000e390  99 31 32 2c 32 2c 68 25  2c 68 66 25 2b 34 2c 32  |.12,2,h%,hf%+4,2|
0000e3a0  38 3a f2 4f 28 68 25 2c  68 66 25 21 33 32 2b 32  |8:.O(h%,hf%!32+2|
0000e3b0  30 34 38 29 3a f2 4f 28  68 25 2c 68 66 25 21 33  |048):.O(h%,hf%!3|
0000e3c0  36 2b 32 30 34 38 29 3a  f2 4f 28 68 25 2c 73 65  |6+2048):.O(h%,se|
0000e3d0  25 29 3a e3 6b 66 25 3d  30 b8 32 35 35 3a e7 57  |%):.kf%=0.255:.W|
0000e3e0  25 3d 30 8c 0d 37 d2 15  c8 99 38 39 32 36 31 30  |%=0..7....892610|
0000e3f0  2c 6b 66 25 b8 65 25 21  30 0d 37 dc 27 cc 3a 65  |,kf%.e%!0.7.'.:e|
0000e400  25 3f 30 3d 30 3a 65 25  3f 31 3d 6b 66 25 3a 65  |%?0=0:e%?1=kf%:e|
0000e410  25 3f 32 3d 6b 66 25 3a  65 25 3f 33 3d 6b 66 25  |%?2=kf%:e%?3=kf%|
0000e420  0d 37 e6 05 cd 0d 37 f0  58 f2 4f 28 68 25 2c 65  |.7....7.X.O(h%,e|
0000e430  25 21 30 29 3a f2 4f 28  68 25 2c 65 25 21 30 29  |%!0):.O(h%,e%!0)|
0000e440  3a ed 3a 64 25 3d 61 25  28 69 25 2c 33 29 3a c8  |:.:d%=a%(i%,3):.|
0000e450  99 31 32 2c 32 2c 68 25  2c 64 25 21 32 34 2c 64  |.12,2,h%,d%!24,d|
0000e460  25 21 32 30 3a c8 99 31  33 2c 30 2c 68 25 3a c8  |%!20:..13,0,h%:.|
0000e470  99 38 2c 31 38 2c 67 24  2c 34 30 38 39 0d 37 fa  |.8,18,g$,4089.7.|
0000e480  1d cc 3a c8 99 34 36 2c  32 35 36 2b 31 32 2c 61  |..:..46,256+12,a|
0000e490  25 28 69 25 2c 32 29 2c  67 24 0d 38 04 05 cd 0d  |%(i%,2),g$.8....|
0000e4a0  38 0e 18 e7 67 24 3c 3e  22 3c 57 69 6d 70 24 53  |8...g$<>"<Wimp$S|
0000e4b0  63 72 61 70 3e 22 8c 0d  38 18 27 61 24 28 69 25  |crap>"..8.'a$(i%|
0000e4c0  2c 32 29 3d 67 24 3a c8  99 38 2c 35 2c 67 24 b8  |,2)=g$:..8,5,g$.|
0000e4d0  2c 2c 2c 2c 64 66 25 3a  f2 49 28 69 25 29 0d 38  |,,,,df%:.I(i%).8|
0000e4e0  22 05 cd 0d 38 2c 08 f2  67 3a e1 0d 38 36 40 dd  |"...8,..g:..86@.|
0000e4f0  f2 4f 28 68 25 2c 77 25  29 3a 65 25 21 30 3d 77  |.O(h%,w%):e%!0=w|
0000e500  25 3a d5 23 68 25 2c 65  25 3f 30 3a d5 23 68 25  |%:.#h%,e%?0:.#h%|
0000e510  2c 65 25 3f 31 3a d5 23  68 25 2c 65 25 3f 32 3a  |,e%?1:.#h%,e%?2:|
0000e520  d5 23 68 25 2c 65 25 3f  33 3a e1 0d 38 40 39 dd  |.#h%,e%?3:..8@9.|
0000e530  a4 64 28 68 25 29 3a 65  25 3f 30 3d 9a 23 68 25  |.d(h%):e%?0=.#h%|
0000e540  3a 65 25 3f 31 3d 9a 23  68 25 3a 65 25 3f 32 3d  |:e%?1=.#h%:e%?2=|
0000e550  9a 23 68 25 3a 65 25 3f  33 3d 9a 23 68 25 3a 3d  |.#h%:e%?3=.#h%:=|
0000e560  65 25 21 30 0d 38 4a 24  dd a4 68 28 66 24 29 3a  |e%!0.8J$..h(f$):|
0000e570  e7 66 24 3d 22 3c 57 69  6d 70 24 53 63 72 61 70  |.f$="<Wimp$Scrap|
0000e580  3e 22 8c 4c 61 25 3d b9  0d 38 54 32 e7 28 a7 66  |>".La%=..8T2.(.f|
0000e590  24 2c 22 2e 22 29 3c 31  80 a7 66 24 2c 22 3a 22  |$,".")<1..f$,":"|
0000e5a0  29 3c 31 29 80 66 24 3c  3e 22 3c 57 69 6d 70 24  |)<1).f$<>"<Wimp$|
0000e5b0  53 63 72 61 70 3e 22 8c  3d 30 0d 38 5e 07 3d 2d  |Scrap>".=0.8^.=-|
0000e5c0  31 0d 38 68 2c dd f2 63  28 6b 25 29 3a e7 6b 25  |1.8h,..c(k%):.k%|
0000e5d0  8c c8 99 32 36 2c 37 36  38 2c 33 38 34 30 8b c8  |...26,768,3840..|
0000e5e0  99 32 36 2c 33 33 32 38  2c 33 38 34 30 0d 38 72  |.26,3328,3840.8r|
0000e5f0  05 e1 0d 38 7c 65 dd f2  53 61 3a ea 6c 24 2c 62  |...8|e..Sa:.l$,b|
0000e600  64 25 2c 47 65 25 2c 70  25 2c 4d 25 3a 62 64 25  |d%,Ge%,p%,M%:bd%|
0000e610  3d bb 28 a4 73 28 5f 61  25 29 29 3a 47 65 25 3d  |=.(.s(_a%)):Ge%=|
0000e620  bb 28 a4 73 28 61 62 25  29 29 3a 6c 24 3d a4 73  |.(.s(ab%)):l$=.s|
0000e630  28 62 62 25 29 3a e7 6c  24 3d 22 22 8c 85 31 2c  |(bb%):.l$=""..1,|
0000e640  22 54 68 65 20 69 6d 61  67 65 20 68 61 73 20 6e  |"The image has n|
0000e650  6f 20 6e 61 6d 65 22 0d  38 86 3a e7 62 64 25 3c  |o name".8.:.bd%<|
0000e660  32 30 84 62 64 25 3e 39  39 39 84 47 65 25 3c 32  |20.bd%>999.Ge%<2|
0000e670  30 84 47 65 25 3e 39 39  39 8c 85 31 2c 22 49 6c  |0.Ge%>999..1,"Il|
0000e680  6c 65 67 61 6c 20 69 6d  61 67 65 20 73 69 7a 65  |legal image size|
0000e690  22 0d 38 90 54 4d 25 3d  28 62 64 25 2b 34 29 2a  |".8.TM%=(bd%+4)*|
0000e6a0  28 47 65 25 2b 34 29 2b  31 30 30 30 3a 70 25 3d  |(Ge%+4)+1000:p%=|
0000e6b0  a4 62 28 4d 25 29 3a e7  70 25 3c 3d 30 8c f2 55  |.b(M%):.p%<=0..U|
0000e6c0  3a 85 31 2c 22 4e 6f 20  72 6f 6f 6d 20 74 6f 20  |:.1,"No room to |
0000e6d0  63 72 65 61 74 65 20 74  68 65 20 6e 65 77 20 69  |create the new i|
0000e6e0  6d 61 67 65 22 0d 38 9a  8d 70 25 21 30 3d 4d 25  |mage".8..p%!0=M%|
0000e6f0  3a 70 25 21 34 3d 30 3a  70 25 21 38 3d 31 36 3a  |:p%!4=0:p%!8=16:|
0000e700  70 25 21 31 32 3d 31 36  3a c8 99 34 36 2c 32 35  |p%!12=16:..46,25|
0000e710  36 2b 31 35 2c 70 25 2c  6c 24 2c 30 2c 62 64 25  |6+15,p%,l$,0,bd%|
0000e720  2c 47 65 25 2c 63 62 25  3a 64 66 25 3d 4d 25 3a  |,Ge%,cb%:df%=M%:|
0000e730  69 24 3d 22 53 70 72 69  74 65 20 28 4d 4f 44 45  |i$="Sprite (MODE|
0000e740  20 22 2b c3 63 62 25 2b  22 29 22 3a f2 5f 28 22  | "+.cb%+")":._("|
0000e750  4e 65 77 49 6d 61 67 65  22 2c 62 64 25 2c 47 65  |NewImage",bd%,Ge|
0000e760  25 2c 63 62 25 2c 70 25  2c 6c 24 2c a3 2c 30 29  |%,cb%,p%,l$,.,0)|
0000e770  3a e1 0d 38 a4 44 dd f2  6f 62 3a 6f 62 25 3d 32  |:..8.D..ob:ob%=2|
0000e780  35 35 2d 60 25 3a 70 62  25 3d 32 35 35 2d 6b 62  |55-`%:pb%=255-kb|
0000e790  25 3a 71 62 25 3d 32 35  35 2d 6c 62 25 3a 72 62  |%:qb%=255-lb%:rb|
0000e7a0  25 3d 6f 62 25 3a e7 70  62 25 3c 72 62 25 8c 72  |%=ob%:.pb%<rb%.r|
0000e7b0  62 25 3d 70 62 25 0d 38  ae 14 e7 71 62 25 3c 72  |b%=pb%.8...qb%<r|
0000e7c0  62 25 8c 72 62 25 3d 71  62 25 0d 38 b8 29 6f 62  |b%.rb%=qb%.8.)ob|
0000e7d0  25 3d 6f 62 25 2d 72 62  25 3a 70 62 25 3d 70 62  |%=ob%-rb%:pb%=pb|
0000e7e0  25 2d 72 62 25 3a 71 62  25 3d 71 62 25 2d 72 62  |%-rb%:qb%=qb%-rb|
0000e7f0  25 3a e1 0d 38 c2 3e dd  f2 57 3a 60 25 3d 32 35  |%:..8.>..W:`%=25|
0000e800  35 2d 28 6f 62 25 2b 72  62 25 29 3a 6b 62 25 3d  |5-(ob%+rb%):kb%=|
0000e810  32 35 35 2d 28 70 62 25  2b 72 62 25 29 3a 6c 62  |255-(pb%+rb%):lb|
0000e820  25 3d 32 35 35 2d 28 71  62 25 2b 72 62 25 29 3a  |%=255-(qb%+rb%):|
0000e830  e1 0d 38 cc 79 dd f2 41  61 28 62 25 29 3a ea 66  |..8.y..Aa(b%):.f|
0000e840  24 2c 68 25 2c 6e 24 2c  61 25 2c 63 25 2c 78 25  |$,h%,n$,a%,c%,x%|
0000e850  2c 79 25 2c 70 66 25 2c  70 25 2c 55 64 25 2c 48  |,y%,pf%,p%,Ud%,H|
0000e860  25 2c 4a 25 2c 4b 25 2c  59 25 2c 6b 66 25 2c 6a  |%,J%,K%,Y%,kf%,j|
0000e870  63 25 2c 69 25 2c 62 66  25 2c 4d 25 2c 65 66 25  |c%,i%,bf%,M%,ef%|
0000e880  3a 66 24 3d a4 73 28 62  25 2b 34 34 29 3a c8 99  |:f$=.s(b%+44):..|
0000e890  38 2c 35 2c 66 24 b8 62  66 25 2c 2c 2c 2c 4d 25  |8,5,f$.bf%,,,,M%|
0000e8a0  3a e7 62 66 25 3c 3e 31  8c e1 0d 38 d6 54 f2 66  |:.bf%<>1...8.T.f|
0000e8b0  3a c8 99 32 36 32 33 35  31 2c 2c 6a 25 3a e7 6a  |:..262351,,j%:.j|
0000e8c0  25 21 31 32 3c 3e 2d 32  8c 85 31 2c 22 59 6f 75  |%!12<>-2..1,"You|
0000e8d0  20 63 61 6e 20 6f 6e 6c  79 20 6c 6f 61 64 20 43  | can only load C|
0000e8e0  6c 65 61 72 20 69 6d 61  67 65 73 20 74 68 72 75  |lear images thru|
0000e8f0  20 74 68 65 20 69 63 6f  6e 20 62 61 72 22 0d 38  | the icon bar".8|
0000e900  e0 0b e7 43 61 25 8c f2  59 0d 38 ea 97 c8 99 31  |...Ca%..Y.8....1|
0000e910  33 2c 36 37 2c 66 24 b8  68 25 3a 6e 24 3d 22 22  |3,67,f$.h%:n$=""|
0000e920  3a 61 25 3d 9a 23 68 25  3a c8 95 61 25 3c 3e 30  |:a%=.#h%:..a%<>0|
0000e930  3a 6e 24 2b 3d bd 61 25  3a 61 25 3d 9a 23 68 25  |:n$+=.a%:a%=.#h%|
0000e940  3a ce 3a 61 25 3d a4 64  28 68 25 29 3a 78 25 3d  |:.:a%=.d(h%):x%=|
0000e950  a4 64 28 68 25 29 3a 79  25 3d a4 64 28 68 25 29  |.d(h%):y%=.d(h%)|
0000e960  3a 70 66 25 3d a4 64 28  68 25 29 3a e7 70 66 25  |:pf%=.d(h%):.pf%|
0000e970  3c 3e 38 8c 85 31 2c 22  50 72 6f 63 65 73 73 20  |<>8..1,"Process |
0000e980  6f 6e 6c 79 20 61 63 63  65 70 74 73 20 38 20 62  |only accepts 8 b|
0000e990  70 70 20 43 6c 65 61 72  20 69 6d 61 67 65 73 22  |pp Clear images"|
0000e9a0  0d 38 f4 50 59 25 3d b9  3a e3 6b 66 25 3d 30 b8  |.8.PY%=.:.kf%=0.|
0000e9b0  32 35 35 3a 48 25 3d 9a  23 68 25 3a 4a 25 3d 9a  |255:H%=.#h%:J%=.|
0000e9c0  23 68 25 3a 4b 25 3d 9a  23 68 25 3a 4c 25 3f 6b  |#h%:K%=.#h%:L%?k|
0000e9d0  66 25 3d 48 25 3a e7 48  25 3c 3e 4a 25 84 4a 25  |f%=H%:.H%<>J%.J%|
0000e9e0  3c 3e 4b 25 84 48 25 3c  3e 4b 25 8c 59 25 3d a3  |<>K%.H%<>K%.Y%=.|
0000e9f0  0d 38 fe 42 ed 3a e7 ac  59 25 8c d9 23 68 25 3a  |.8.B.:..Y%..#h%:|
0000ea00  85 31 2c 22 50 72 6f 63  65 73 73 20 6f 6e 6c 79  |.1,"Process only|
0000ea10  20 61 63 63 65 70 74 73  20 67 72 65 79 20 73 63  | accepts grey sc|
0000ea20  61 6c 65 64 20 43 6c 65  61 72 20 69 6d 61 67 65  |aled Clear image|
0000ea30  73 22 0d 39 08 51 4d 25  3d 28 78 25 2b 34 29 2a  |s".9.QM%=(x%+4)*|
0000ea40  28 79 25 2b 34 29 2b 31  30 30 30 3a 70 25 3d a4  |(y%+4)+1000:p%=.|
0000ea50  62 28 4d 25 29 3a e7 70  25 3c 3d 30 8c d9 23 68  |b(M%):.p%<=0..#h|
0000ea60  25 3a f2 55 3a 85 31 2c  22 4e 6f 20 72 6f 6f 6d  |%:.U:.1,"No room|
0000ea70  20 74 6f 20 6c 6f 61 64  20 74 68 65 20 69 6d 61  | to load the ima|
0000ea80  67 65 22 0d 39 12 5c 64  66 25 3d 4d 25 3a 70 25  |ge".9.\df%=M%:p%|
0000ea90  21 30 3d 4d 25 3a 70 25  21 34 3d 30 3a 70 25 21  |!0=M%:p%!4=0:p%!|
0000eaa0  38 3d 31 36 3a 70 25 21  31 32 3d 31 36 3a c8 99  |8=16:p%!12=16:..|
0000eab0  34 36 2c 32 35 36 2b 31  35 2c 70 25 2c 22 43 6c  |46,256+15,p%,"Cl|
0000eac0  65 61 72 49 6d 61 67 65  22 2c 30 2c 78 25 2c 79  |earImage",0,x%,y|
0000ead0  25 2c 32 31 3a e7 28 78  25 83 34 29 3d 30 8c 0d  |%,21:.(x%.4)=0..|
0000eae0  39 1c 19 c8 99 31 32 2c  34 2c 68 25 2c 70 25 2b  |9....12,4,h%,p%+|
0000eaf0  36 30 2c 78 25 2a 79 25  0d 39 26 45 cc 3a 55 64  |60,x%*y%.9&E.:Ud|
0000eb00  25 3d 70 25 2b 36 30 3a  6a 63 25 3d 34 2a 28 28  |%=p%+60:jc%=4*((|
0000eb10  78 25 2b 34 29 81 34 29  3a e3 69 25 3d 31 b8 79  |x%+4).4):.i%=1.y|
0000eb20  25 3a c8 99 31 32 2c 34  2c 68 25 2c 55 64 25 2c  |%:..12,4,h%,Ud%,|
0000eb30  78 25 3a 55 64 25 2b 3d  6a 63 25 3a ed 0d 39 30  |x%:Ud%+=jc%:..90|
0000eb40  05 cd 0d 39 3a 65 c8 99  31 33 2c 30 2c 68 25 3a  |...9:e..13,0,h%:|
0000eb50  f2 5f 28 66 24 2c 78 25  2c 79 25 2c 32 31 2c 70  |._(f$,x%,y%,21,p|
0000eb60  25 2c 22 43 6c 65 61 72  49 6d 61 67 65 22 2c b9  |%,"ClearImage",.|
0000eb70  2c 31 29 3a c8 99 38 39  32 36 31 32 2c 55 25 2c  |,1):..892612,U%,|
0000eb80  55 25 2c 4c 25 3a 69 24  3d 22 43 6c 65 61 72 20  |U%,L%:i$="Clear |
0000eb90  28 38 62 70 70 2c 20 67  72 65 79 73 63 61 6c 65  |(8bpp, greyscale|
0000eba0  29 22 3a f2 67 3a e1 0d  ff                       |)":.g:...|
0000eba9