Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » Engine/Engine2

Engine/Engine2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo
Filename: Engine/Engine2
Read OK: ✔
File size: 1244 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM     >Engine2
   20REM By  JE Tarrant
   30REM For 32-bit machines
   40REM (c) BAU August 1993
   50:
   60MODE12
   70*FX112,1
   80*FX113,1
   90ONERRORPROCe
  100VOICE1,"Percussion-Medium":PROCf:COLOURk%+128:CLS
  110*FX112,2
  120COLOURk%+128:CLS:PROCg:PROCh:aa%=20:u%=0:H%=aa%*2:g%=u%+720-H%:ba%=300:ca%=210:Y%=2:REPEAT:O%=ba%:P%=ca%:FORl%=u%TOg%STEPH%:SYS"OS_Byte",112,Y%
  130*SChoose casing
  140ORIGIN0,0:PLOT237,b%-c%*1.25,f%-c%*1.25:da%=p%*SINRAD(l%):ea%=p%*COSRAD(l%):h=-DEG(ASN(da%/I%)):fa%=ABS(I%*COSRAD(h)):ga%=b%+da%:ha%=f%+ea%:ia%=b%:ja%=ha%+fa%:PROCi(p%,ka%,c%,la%,ma%,l%,b%,f%)
  150PROCj(I%,Q%,na%,oa%,pa%,h,ga%,ha%)
  160*SChoose piston
  170ORIGINia%,ja%:PLOT237,-d%DIV2,-m%*0.55:PROCb(n%,q%,O%,J%,i%):PROCb(n%,q%,P%,K%,i%):IFO%>=qa%ANDO%<=ra%THEN
  180PROCc(J%,i%,C%,sa%,R%,q%,n%,b,Z%,_%):Z%=Z%+J%:_%=i%-_%
  190ELSEZ%=L%:_%=`%
  200ENDIF
  210PROCd(j%,ta%,ua%,w%,S%,C%-90,Z%,_%):IFP%>=va%ANDP%<=wa%THEN
  220PROCc(K%,i%,T%,xa%,R%,q%,n%,b,ya%,za%):ya%=K%+ya%:za%=i%-za%
  230ELSEya%=Aa%:za%=Ba%
  240ENDIF
  250PROCd(j%,ta%,ua%,w%,S%,T%-90,ya%,za%):WAIT:SYS"OS_Byte",113,Y%:IFl%>30ANDl%<350THENCOLOURCa%,224,224,0:COLOURDa%,224,224,0:COLOUREa%,0,0,0
  260IFl%>180THENCOLOURDa%,0,0,0
  270IFl%>350THENCOLOURCa%,224,192,0
  280IFl%>350ANDl%<350+H%THENSOUND1,-15,69,50
  290IFl%>560THENCOLOUREa%,224,192,0
  300Y%=Y%EOR3:O%=(O%+aa%)MOD360:P%=(P%+aa%)MOD360:NEXT:UNTILFALSE:END
  310DEFPROCi(Fa%,Ga%,c%,Ha%,Ia%,e%,x%,y%):LOCALJa%,D%,Ka%,E%,g%,H%,a%:Ja%=c%*1.1:D%=Ia%DIV2:Ka%=Ga%DIV2:E%=e%+20:g%=E%+240:H%=120:ORIGINx%,y%:GCOLa:CIRCLEFILL0,0,c%DIV2:PROCa(c%*0.6,Ja%*1.05,Ja%*0.55,e%,k%):PROCa(Fa%,Ia%,Ha%,e%,a):CIRCLEFILL0,0,D%:GCOLz%:CIRCLEFILL0,0,Ka%
  320FORa%=E%TOg%STEPH%:PROCa(Ka%,0,15,a%,f):NEXT:ENDPROC
  330DEFPROCj(La%,Q%,Ma%,Na%,Oa%,e,x%,y%):LOCALPa%,g,i:ORIGINx%,y%:Pa%=Q%DIV2:g=0.65:i=0.75:PROCa(La%,Na%,Oa%,e,b):PROCa(La%,Na%*g,Oa%*g,e,a):GCOLb:CIRCLEFILL0,0,Pa%:GCOLa:CIRCLEFILL0,0,Pa%*i:GCOLz%:CIRCLEFILL0,0,Ma%DIV2:GCOLk%:CIRCLE0,0,Ma%DIV2:ENDPROC
  340DEFPROCk(U%,A%,Qa%,x%,y%):LOCALRa%,M%,Sa%,Ta%,Ua%,Va%:LOCALWa%,E%,g%,s%,Xa%,B%,h%:Ra%=U%DIV2:M%=A%*0.55:Sa%=Qa%DIV2:Ta%=Sa%*0.75:Ua%=(A%-M%)DIV5:Va%=Ua%*0.15:ORIGINx%,y%:GCOLf:RECTANGLEFILL-Ra%,-M%,U%,A%:GCOLa:FORWa%=1TO3
  350RECTANGLEFILL-Ra%,(A%-M%)-Ua%*Wa%,U%,Va%:NEXT:GCOLa:E%=5:g%=65:s%=10:FORXa%=1TO2:FORB%=E%TOg%STEPs%:h%=Ra%*COSRAD(B%):LINE-h%,-M%,-h%,A%-M%:NEXT:E%=115:g%=175:NEXT:GCOLz%:CIRCLEFILL0,0,Sa%:GCOLk%:CIRCLEFILL0,0,Ta%:ENDPROC
  360DEFPROCd(U%,Ya%,Za%,_a%,S%,e%,x%,y%):ORIGINx%,y%:PROCa(Za%,U%,Ya%,e%,a):PROCa(_a%,S%,S%,e%,a):ENDPROC
  370DEFPROCl(RETURN`a%,RETURNab%,RETURNy%,RETURNe%,RETURNr%,bb%,j%,cb%,db%,eb%,fb%,gb%,p%,hb%,m%):LOCALV%,ib%,jb%,a%,kb%,lb%:V%=bb%-2.5*j%:r%=(bb%^2+(4*cb%^2))/(8*cb%):ib%=r%-0.5*SQR(4*r%^2-(V%*2)^2):jb%=cb%-ib%:a%=DEG(ASN(V%/r%)):e%=90-a%
  380kb%=(db%+q%)*COSRAD(e%):lb%=(db%+q%)*SINRAD(e%):`a%=fb%-kb%-V%:ab%=fb%+kb%+V%:y%=gb%+p%+hb%+m%*0.45+jb%+lb%:ENDPROC
  390DEFPROCb(mb%,D%,e%,x%,y%):LOCALnb%:nb%=D%*2+10:ORIGINx%,y%:GCOLb:ELLIPSEFILL0,0,mb%,D%,-RAD(e%):PROCa(mb%+4,nb%,nb%,e%+90,k%):GCOLb:CIRCLEFILL0,0,D%:GCOLz%:CIRCLEFILL0,0,D%*0.5:ENDPROC
  400DEFPROCc(x%,y%,e%,ob%,R%,pb%,mb%,qb%,RETURNh%,RETURNv%):LOCALc,d,u%,g%,B%,rb%:ORIGINx%,y%:c=SINRAD(e%):d=COSRAD(e%):u%=pb%-5:g%=mb%+5:REPEAT:B%=(g%-u%)DIV2+u%:h%=B%*d:v%=B%*c:rb%=POINT(h%,-v%):IFrb%=qb%THENu%=B%ELSEg%=B%
  410UNTILg%-u%<2:h%+=ob%:v%+=R%:ENDPROC
  420DEFPROCe:ONERROROFF
  430MODE12:IFERR=17THEN
  440PRINT"Escape pressed"
  450ELSEREPORT:PRINT" at line ";ERL
  460ENDIF
  470END
  480ENDPROC
  490DEFPROCm(W%,N%,sb%,tb%,x%,y%):ORIGINx%,y%:PROCa(W%,W%,W%,0,b):ORIGINx%,y%+W%:PROCa(100,N%*1.1,N%*1.35,0,k%):PROCa(N%*0.4,N%,N%,0,b):ORIGINx%,y%+W%+(N%*0.4):PROCa(sb%*2,sb%,tb%,0,a):ENDPROC
  500DEFPROCf:VDU19,1,24,0,0,0
  510k%=0:j=1:COLOURj,64,64,64:k=2:COLOURk,112,112,112:b=3:COLOURb,192,192,192:a=4:COLOURa,208,208,208:f=5:COLOURf,224,224,224:z%=6:COLOURz%,255,0,0:ub%=7:Ca%=8:COLOUR8,0,0,0:Ea%=9:COLOUR9,0,0,0:Da%=10:COLOUR10,0,0,0:ENDPROC
  520DEFPROCg:b%=640:f%=255:d%=185:vb%=190:wb%=d%*0.19:m%=d%*1.1:xb%=d%*0.25:p%=vb%DIV2:c%=d%*1.6:ka%=c%DIV3:la%=c%DIV5:ma%=c%DIV2:I%=p%+c%DIV2+c%DIV50+m%*0.6:na%=ka%*0.6:Q%=ka%*1.5:oa%=Q%*0.9:pa%=Q%*0.5:j%=d%*0.3:ua%=j%*0.15
  530ta%=j%-2*ua%:w%=j%*1.9:S%=j%*0.2:yb%=80:zb%=110:n%=d%*0.17:q%=n%DIV2
  540PROCl(J%,K%,i%,F%,Ab%,d%,j%,wb%,w%,q%,b%,f%,p%,I%,m%):C%=F%:T%=180-F%:qa%=C%+90:ra%=qa%+180:va%=T%+90:wa%=va%+180:t%=j%*0.7:Bb%=w%*0.4:l=Bb%*COSRAD(F%):m=Bb%*SINRAD(F%):n=(t%DIV2)*SINRAD(F%):o=(t%DIV2)*COSRAD(F%):Cb%=l-n:Db%=m+o
  550sa%=w%*COSRAD(C%):xa%=w%*COSRAD(T%):R%=w%*SINRAD(F%):Eb%=q%*COSRAD(C%):Fb%=q%*SINRAD(C%):L%=J%+Eb%+sa%:`%=i%-Fb%-R%:Aa%=K%-Eb%+xa%:Ba%=`%:o%=d%*1.6:G%=p%+I%+0.45*m%:Gb%=i%-(G%+f%):Hb%=c%*1.75:Ib%=c%*1.35:ENDPROC
  560DEFPROCh:PROCk(d%,m%,xb%,d%DIV2,m%*0.55):ORIGIN0,0:MOVE0,0:MOVEd%,m%
  570*SGet piston
  580ORIGINb%,f%:GCOLz%:RECTANGLEFILL-(o%DIV2),G%,o%,Gb%:ORIGIN0,0:CIRCLEFILLJ%,i%,n%*2:CIRCLEFILLK%,i%,n%*2:GCOLk%:CIRCLEFILLJ%,i%,n%*1.5:CIRCLEFILLK%,i%,n%*1.5:GCOLCa%:CIRCLEFILLb%,(f%+G%+wb%)-Ab%,Ab%*1.05:PROCm(20,25,18,10,b%,G%+wb%+f%):ORIGINL%,`%
  590PROCa(Bb%,t%,t%,C%-90,Ea%):RECTANGLEFILL-((o%DIV2)-(b%-L%)),Db%-t%,((o%DIV2)-(b%-L%)-Cb%),t%:ORIGINb%-(o%DIV2),(`%+Db%)-t%DIV2:ORIGINAa%,Ba%:PROCa(w%*0.4,j%*0.8,j%*0.6,T%-90,Da%)
  600RECTANGLEFILL((o%DIV2)-(b%-L%)),Db%-t%,-((o%DIV2)-(b%-L%)-Cb%),t%:ORIGIN0,0:GCOLz%:RECTANGLEFILLb%-(o%DIV2),f%,o%,G%*1.01:GCOLz%:CIRCLEFILLb%,f%,Hb%DIV2:GCOLk%:CIRCLEFILLb%,f%,Ib%DIV2:ORIGINb%,f%:PROCa(G%*1.01,d%,d%,0,Ca%):PROCa(-p%+I%+m%*0.42,d%,d%,0,k%)
  610PROCa(Ib%*0.75,c%*1.15,o%DIV2,0,k%):ORIGIN0,0:MOVEb%-c%*1.25,f%-c%*1.25:MOVEb%+c%*1.25,f%+G%+Gb%+n%*2
  620*SGET casing
  630CLS:ENDPROC
  640DEFPROCa(A%,Na%,Oa%,e,qb%):LOCALJb%,Kb%,v%,h%,Lb%,Mb%,Nb%,Ob%:GCOLqb%:c=SINRAD(e):d=COSRAD(e):X%=Na%DIV2:v%=A%*d:h%=A%*c:Lb%=X%*d:Mb%=X%*c:X%=Oa%DIV2:Nb%=X%*d:Ob%=X%*c:MOVE-Lb%,Mb%:MOVELb%,-Mb%:PLOT85,h%-Nb%,v%+Ob%:PLOT85,h%+Nb%,v%-Ob%:ENDPROC


�     >Engine2
� By  JE Tarrant
� For 32-bit machines
(� (c) BAU August 1993
2:
<�12
F*FX112,1
P*FX113,1
Z��e
d(ȡ1,"Percussion-Medium":�f:�k%+128:�
n*FX112,2
xz�k%+128:�:�g:�h:aa%=20:u%=0:H%=aa%*2:g%=u%+720-H%:ba%=300:ca%=210:Y%=2:�:O%=ba%:P%=ca%:�l%=u%�g%�H%:ș"OS_Byte",112,Y%
�*SChoose casing
��ȑ0,0:�237,b%-c%*1.25,f%-c%*1.25:da%=p%*��(l%):ea%=p%*��(l%):h=-�(�(da%/I%)):fa%=�(I%*��(h)):ga%=b%+da%:ha%=f%+ea%:ia%=b%:ja%=ha%+fa%:�i(p%,ka%,c%,la%,ma%,l%,b%,f%)
�#�j(I%,Q%,na%,oa%,pa%,h,ga%,ha%)
�*SChoose piston
�Yȑia%,ja%:�237,-d%�2,-m%*0.55:�b(n%,q%,O%,J%,i%):�b(n%,q%,P%,K%,i%):�O%>=qa%�O%<=ra%�
�7�c(J%,i%,C%,sa%,R%,q%,n%,b,Z%,_%):Z%=Z%+J%:_%=i%-_%
��Z%=L%:_%=`%
��
�6�d(j%,ta%,ua%,w%,S%,C%-90,Z%,_%):�P%>=va%�P%<=wa%�
�=�c(K%,i%,T%,xa%,R%,q%,n%,b,ya%,za%):ya%=K%+ya%:za%=i%-za%
��ya%=Aa%:za%=Ba%
��
�s�d(j%,ta%,ua%,w%,S%,T%-90,ya%,za%):Ȗ:ș"OS_Byte",113,Y%:�l%>30�l%<350��Ca%,224,224,0:�Da%,224,224,0:�Ea%,0,0,0
�l%>180��Da%,0,0,0
�l%>350��Ca%,224,192,0
"�l%>350�l%<350+H%��1,-15,69,50
"�l%>560��Ea%,224,192,0
,2Y%=Y%�3:O%=(O%+aa%)�360:P%=(P%+aa%)�360:�:��:�
6���i(Fa%,Ga%,c%,Ha%,Ia%,e%,x%,y%):�Ja%,D%,Ka%,E%,g%,H%,a%:Ja%=c%*1.1:D%=Ia%�2:Ka%=Ga%�2:E%=e%+20:g%=E%+240:H%=120:ȑx%,y%:�a:ȏȐ0,0,c%�2:�a(c%*0.6,Ja%*1.05,Ja%*0.55,e%,k%):�a(Fa%,Ia%,Ha%,e%,a):ȏȐ0,0,D%:�z%:ȏȐ0,0,Ka%
@&�a%=E%�g%�H%:�a(Ka%,0,15,a%,f):�:�
J���j(La%,Q%,Ma%,Na%,Oa%,e,x%,y%):�Pa%,g,i:ȑx%,y%:Pa%=Q%�2:g=0.65:i=0.75:�a(La%,Na%,Oa%,e,b):�a(La%,Na%*g,Oa%*g,e,a):�b:ȏȐ0,0,Pa%:�a:ȏȐ0,0,Pa%*i:�z%:ȏȐ0,0,Ma%�2:�k%:ȏ0,0,Ma%�2:�
T���k(U%,A%,Qa%,x%,y%):�Ra%,M%,Sa%,Ta%,Ua%,Va%:�Wa%,E%,g%,s%,Xa%,B%,h%:Ra%=U%�2:M%=A%*0.55:Sa%=Qa%�2:Ta%=Sa%*0.75:Ua%=(A%-M%)�5:Va%=Ua%*0.15:ȑx%,y%:�f:ȓȐ-Ra%,-M%,U%,A%:�a:�Wa%=1�3
^�ȓȐ-Ra%,(A%-M%)-Ua%*Wa%,U%,Va%:�:�a:E%=5:g%=65:s%=10:�Xa%=1�2:�B%=E%�g%�s%:h%=Ra%*��(B%):�-h%,-M%,-h%,A%-M%:�:E%=115:g%=175:�:�z%:ȏȐ0,0,Sa%:�k%:ȏȐ0,0,Ta%:�
hT��d(U%,Ya%,Za%,_a%,S%,e%,x%,y%):ȑx%,y%:�a(Za%,U%,Ya%,e%,a):�a(_a%,S%,S%,e%,a):�
r���l(�`a%,�ab%,�y%,�e%,�r%,bb%,j%,cb%,db%,eb%,fb%,gb%,p%,hb%,m%):�V%,ib%,jb%,a%,kb%,lb%:V%=bb%-2.5*j%:r%=(bb%^2+(4*cb%^2))/(8*cb%):ib%=r%-0.5*�(4*r%^2-(V%*2)^2):jb%=cb%-ib%:a%=�(�(V%/r%)):e%=90-a%
|ikb%=(db%+q%)*��(e%):lb%=(db%+q%)*��(e%):`a%=fb%-kb%-V%:ab%=fb%+kb%+V%:y%=gb%+p%+hb%+m%*0.45+jb%+lb%:�
����b(mb%,D%,e%,x%,y%):�nb%:nb%=D%*2+10:ȑx%,y%:�b:ȝȐ0,0,mb%,D%,-�(e%):�a(mb%+4,nb%,nb%,e%+90,k%):�b:ȏȐ0,0,D%:�z%:ȏȐ0,0,D%*0.5:�
����c(x%,y%,e%,ob%,R%,pb%,mb%,qb%,�h%,�v%):�c,d,u%,g%,B%,rb%:ȑx%,y%:c=��(e%):d=��(e%):u%=pb%-5:g%=mb%+5:�:B%=(g%-u%)�2+u%:h%=B%*d:v%=B%*c:rb%=�h%,-v%):�rb%=qb%�u%=B%�g%=B%
��g%-u%<2:h%+=ob%:v%+=R%:�
���e:
��12:�=17�
��"Escape pressed"
��:�" at line ";�
��
��
��
���m(W%,N%,sb%,tb%,x%,y%):ȑx%,y%:�a(W%,W%,W%,0,b):ȑx%,y%+W%:�a(100,N%*1.1,N%*1.35,0,k%):�a(N%*0.4,N%,N%,0,b):ȑx%,y%+W%+(N%*0.4):�a(sb%*2,sb%,tb%,0,a):�
���f:�19,1,24,0,0,0
��k%=0:j=1:�j,64,64,64:k=2:�k,112,112,112:b=3:�b,192,192,192:a=4:�a,208,208,208:f=5:�f,224,224,224:z%=6:�z%,255,0,0:ub%=7:Ca%=8:�8,0,0,0:Ea%=9:�9,0,0,0:Da%=10:�10,0,0,0:�
���g:b%=640:f%=255:d%=185:vb%=190:wb%=d%*0.19:m%=d%*1.1:xb%=d%*0.25:p%=vb%�2:c%=d%*1.6:ka%=c%�3:la%=c%�5:ma%=c%�2:I%=p%+c%�2+c%�50+m%*0.6:na%=ka%*0.6:Q%=ka%*1.5:oa%=Q%*0.9:pa%=Q%*0.5:j%=d%*0.3:ua%=j%*0.15
Fta%=j%-2*ua%:w%=j%*1.9:S%=j%*0.2:yb%=80:zb%=110:n%=d%*0.17:q%=n%�2
��l(J%,K%,i%,F%,Ab%,d%,j%,wb%,w%,q%,b%,f%,p%,I%,m%):C%=F%:T%=180-F%:qa%=C%+90:ra%=qa%+180:va%=T%+90:wa%=va%+180:t%=j%*0.7:Bb%=w%*0.4:l=Bb%*��(F%):m=Bb%*��(F%):n=(t%�2)*��(F%):o=(t%�2)*��(F%):Cb%=l-n:Db%=m+o
&�sa%=w%*��(C%):xa%=w%*��(T%):R%=w%*��(F%):Eb%=q%*��(C%):Fb%=q%*��(C%):L%=J%+Eb%+sa%:`%=i%-Fb%-R%:Aa%=K%-Eb%+xa%:Ba%=`%:o%=d%*1.6:G%=p%+I%+0.45*m%:Gb%=i%-(G%+f%):Hb%=c%*1.75:Ib%=c%*1.35:�
04��h:�k(d%,m%,xb%,d%�2,m%*0.55):ȑ0,0:�0,0:�d%,m%
:*SGet piston
D�ȑb%,f%:�z%:ȓȐ-(o%�2),G%,o%,Gb%:ȑ0,0:ȏȐJ%,i%,n%*2:ȏȐK%,i%,n%*2:�k%:ȏȐJ%,i%,n%*1.5:ȏȐK%,i%,n%*1.5:�Ca%:ȏȐb%,(f%+G%+wb%)-Ab%,Ab%*1.05:�m(20,25,18,10,b%,G%+wb%+f%):ȑL%,`%
N��a(Bb%,t%,t%,C%-90,Ea%):ȓȐ-((o%�2)-(b%-L%)),Db%-t%,((o%�2)-(b%-L%)-Cb%),t%:ȑb%-(o%�2),(`%+Db%)-t%�2:ȑAa%,Ba%:�a(w%*0.4,j%*0.8,j%*0.6,T%-90,Da%)
X�ȓȐ((o%�2)-(b%-L%)),Db%-t%,-((o%�2)-(b%-L%)-Cb%),t%:ȑ0,0:�z%:ȓȐb%-(o%�2),f%,o%,G%*1.01:�z%:ȏȐb%,f%,Hb%�2:�k%:ȏȐb%,f%,Ib%�2:ȑb%,f%:�a(G%*1.01,d%,d%,0,Ca%):�a(-p%+I%+m%*0.42,d%,d%,0,k%)
bZ�a(Ib%*0.75,c%*1.15,o%�2,0,k%):ȑ0,0:�b%-c%*1.25,f%-c%*1.25:�b%+c%*1.25,f%+G%+Gb%+n%*2
l*SGET casing
v�:�
����a(A%,Na%,Oa%,e,qb%):�Jb%,Kb%,v%,h%,Lb%,Mb%,Nb%,Ob%:�qb%:c=��(e):d=��(e):X%=Na%�2:v%=A%*d:h%=A%*c:Lb%=X%*d:Mb%=X%*c:X%=Oa%�2:Nb%=X%*d:Ob%=X%*c:�-Lb%,Mb%:�Lb%,-Mb%:�85,h%-Nb%,v%+Ob%:�85,h%+Nb%,v%-Ob%:�
�
00000000  0d 00 0a 12 f4 20 20 20  20 20 3e 45 6e 67 69 6e  |.....     >Engin|
00000010  65 32 0d 00 14 14 f4 20  42 79 20 20 4a 45 20 54  |e2..... By  JE T|
00000020  61 72 72 61 6e 74 0d 00  1e 19 f4 20 46 6f 72 20  |arrant..... For |
00000030  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000040  00 28 19 f4 20 28 63 29  20 42 41 55 20 41 75 67  |.(.. (c) BAU Aug|
00000050  75 73 74 20 31 39 39 33  0d 00 32 05 3a 0d 00 3c  |ust 1993..2.:..<|
00000060  07 eb 31 32 0d 00 46 0c  2a 46 58 31 31 32 2c 31  |..12..F.*FX112,1|
00000070  0d 00 50 0c 2a 46 58 31  31 33 2c 31 0d 00 5a 08  |..P.*FX113,1..Z.|
00000080  ee 85 f2 65 0d 00 64 28  c8 a1 31 2c 22 50 65 72  |...e..d(..1,"Per|
00000090  63 75 73 73 69 6f 6e 2d  4d 65 64 69 75 6d 22 3a  |cussion-Medium":|
000000a0  f2 66 3a fb 6b 25 2b 31  32 38 3a db 0d 00 6e 0c  |.f:.k%+128:...n.|
000000b0  2a 46 58 31 31 32 2c 32  0d 00 78 7a fb 6b 25 2b  |*FX112,2..xz.k%+|
000000c0  31 32 38 3a db 3a f2 67  3a f2 68 3a 61 61 25 3d  |128:.:.g:.h:aa%=|
000000d0  32 30 3a 75 25 3d 30 3a  48 25 3d 61 61 25 2a 32  |20:u%=0:H%=aa%*2|
000000e0  3a 67 25 3d 75 25 2b 37  32 30 2d 48 25 3a 62 61  |:g%=u%+720-H%:ba|
000000f0  25 3d 33 30 30 3a 63 61  25 3d 32 31 30 3a 59 25  |%=300:ca%=210:Y%|
00000100  3d 32 3a f5 3a 4f 25 3d  62 61 25 3a 50 25 3d 63  |=2:.:O%=ba%:P%=c|
00000110  61 25 3a e3 6c 25 3d 75  25 b8 67 25 88 48 25 3a  |a%:.l%=u%.g%.H%:|
00000120  c8 99 22 4f 53 5f 42 79  74 65 22 2c 31 31 32 2c  |.."OS_Byte",112,|
00000130  59 25 0d 00 82 13 2a 53  43 68 6f 6f 73 65 20 63  |Y%....*SChoose c|
00000140  61 73 69 6e 67 0d 00 8c  a8 c8 91 30 2c 30 3a f0  |asing......0,0:.|
00000150  32 33 37 2c 62 25 2d 63  25 2a 31 2e 32 35 2c 66  |237,b%-c%*1.25,f|
00000160  25 2d 63 25 2a 31 2e 32  35 3a 64 61 25 3d 70 25  |%-c%*1.25:da%=p%|
00000170  2a b5 b2 28 6c 25 29 3a  65 61 25 3d 70 25 2a 9b  |*..(l%):ea%=p%*.|
00000180  b2 28 6c 25 29 3a 68 3d  2d 9d 28 98 28 64 61 25  |.(l%):h=-.(.(da%|
00000190  2f 49 25 29 29 3a 66 61  25 3d 94 28 49 25 2a 9b  |/I%)):fa%=.(I%*.|
000001a0  b2 28 68 29 29 3a 67 61  25 3d 62 25 2b 64 61 25  |.(h)):ga%=b%+da%|
000001b0  3a 68 61 25 3d 66 25 2b  65 61 25 3a 69 61 25 3d  |:ha%=f%+ea%:ia%=|
000001c0  62 25 3a 6a 61 25 3d 68  61 25 2b 66 61 25 3a f2  |b%:ja%=ha%+fa%:.|
000001d0  69 28 70 25 2c 6b 61 25  2c 63 25 2c 6c 61 25 2c  |i(p%,ka%,c%,la%,|
000001e0  6d 61 25 2c 6c 25 2c 62  25 2c 66 25 29 0d 00 96  |ma%,l%,b%,f%)...|
000001f0  23 f2 6a 28 49 25 2c 51  25 2c 6e 61 25 2c 6f 61  |#.j(I%,Q%,na%,oa|
00000200  25 2c 70 61 25 2c 68 2c  67 61 25 2c 68 61 25 29  |%,pa%,h,ga%,ha%)|
00000210  0d 00 a0 13 2a 53 43 68  6f 6f 73 65 20 70 69 73  |....*SChoose pis|
00000220  74 6f 6e 0d 00 aa 59 c8  91 69 61 25 2c 6a 61 25  |ton...Y..ia%,ja%|
00000230  3a f0 32 33 37 2c 2d 64  25 81 32 2c 2d 6d 25 2a  |:.237,-d%.2,-m%*|
00000240  30 2e 35 35 3a f2 62 28  6e 25 2c 71 25 2c 4f 25  |0.55:.b(n%,q%,O%|
00000250  2c 4a 25 2c 69 25 29 3a  f2 62 28 6e 25 2c 71 25  |,J%,i%):.b(n%,q%|
00000260  2c 50 25 2c 4b 25 2c 69  25 29 3a e7 4f 25 3e 3d  |,P%,K%,i%):.O%>=|
00000270  71 61 25 80 4f 25 3c 3d  72 61 25 8c 0d 00 b4 37  |qa%.O%<=ra%....7|
00000280  f2 63 28 4a 25 2c 69 25  2c 43 25 2c 73 61 25 2c  |.c(J%,i%,C%,sa%,|
00000290  52 25 2c 71 25 2c 6e 25  2c 62 2c 5a 25 2c 5f 25  |R%,q%,n%,b,Z%,_%|
000002a0  29 3a 5a 25 3d 5a 25 2b  4a 25 3a 5f 25 3d 69 25  |):Z%=Z%+J%:_%=i%|
000002b0  2d 5f 25 0d 00 be 10 cc  5a 25 3d 4c 25 3a 5f 25  |-_%.....Z%=L%:_%|
000002c0  3d 60 25 0d 00 c8 05 cd  0d 00 d2 36 f2 64 28 6a  |=`%........6.d(j|
000002d0  25 2c 74 61 25 2c 75 61  25 2c 77 25 2c 53 25 2c  |%,ta%,ua%,w%,S%,|
000002e0  43 25 2d 39 30 2c 5a 25  2c 5f 25 29 3a e7 50 25  |C%-90,Z%,_%):.P%|
000002f0  3e 3d 76 61 25 80 50 25  3c 3d 77 61 25 8c 0d 00  |>=va%.P%<=wa%...|
00000300  dc 3d f2 63 28 4b 25 2c  69 25 2c 54 25 2c 78 61  |.=.c(K%,i%,T%,xa|
00000310  25 2c 52 25 2c 71 25 2c  6e 25 2c 62 2c 79 61 25  |%,R%,q%,n%,b,ya%|
00000320  2c 7a 61 25 29 3a 79 61  25 3d 4b 25 2b 79 61 25  |,za%):ya%=K%+ya%|
00000330  3a 7a 61 25 3d 69 25 2d  7a 61 25 0d 00 e6 14 cc  |:za%=i%-za%.....|
00000340  79 61 25 3d 41 61 25 3a  7a 61 25 3d 42 61 25 0d  |ya%=Aa%:za%=Ba%.|
00000350  00 f0 05 cd 0d 00 fa 73  f2 64 28 6a 25 2c 74 61  |.......s.d(j%,ta|
00000360  25 2c 75 61 25 2c 77 25  2c 53 25 2c 54 25 2d 39  |%,ua%,w%,S%,T%-9|
00000370  30 2c 79 61 25 2c 7a 61  25 29 3a c8 96 3a c8 99  |0,ya%,za%):..:..|
00000380  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 59 25  |"OS_Byte",113,Y%|
00000390  3a e7 6c 25 3e 33 30 80  6c 25 3c 33 35 30 8c fb  |:.l%>30.l%<350..|
000003a0  43 61 25 2c 32 32 34 2c  32 32 34 2c 30 3a fb 44  |Ca%,224,224,0:.D|
000003b0  61 25 2c 32 32 34 2c 32  32 34 2c 30 3a fb 45 61  |a%,224,224,0:.Ea|
000003c0  25 2c 30 2c 30 2c 30 0d  01 04 16 e7 6c 25 3e 31  |%,0,0,0.....l%>1|
000003d0  38 30 8c fb 44 61 25 2c  30 2c 30 2c 30 0d 01 0e  |80..Da%,0,0,0...|
000003e0  1a e7 6c 25 3e 33 35 30  8c fb 43 61 25 2c 32 32  |..l%>350..Ca%,22|
000003f0  34 2c 31 39 32 2c 30 0d  01 18 22 e7 6c 25 3e 33  |4,192,0...".l%>3|
00000400  35 30 80 6c 25 3c 33 35  30 2b 48 25 8c d4 31 2c  |50.l%<350+H%..1,|
00000410  2d 31 35 2c 36 39 2c 35  30 0d 01 22 1a e7 6c 25  |-15,69,50.."..l%|
00000420  3e 35 36 30 8c fb 45 61  25 2c 32 32 34 2c 31 39  |>560..Ea%,224,19|
00000430  32 2c 30 0d 01 2c 32 59  25 3d 59 25 82 33 3a 4f  |2,0..,2Y%=Y%.3:O|
00000440  25 3d 28 4f 25 2b 61 61  25 29 83 33 36 30 3a 50  |%=(O%+aa%).360:P|
00000450  25 3d 28 50 25 2b 61 61  25 29 83 33 36 30 3a ed  |%=(P%+aa%).360:.|
00000460  3a fd a3 3a e0 0d 01 36  df dd f2 69 28 46 61 25  |:..:...6...i(Fa%|
00000470  2c 47 61 25 2c 63 25 2c  48 61 25 2c 49 61 25 2c  |,Ga%,c%,Ha%,Ia%,|
00000480  65 25 2c 78 25 2c 79 25  29 3a ea 4a 61 25 2c 44  |e%,x%,y%):.Ja%,D|
00000490  25 2c 4b 61 25 2c 45 25  2c 67 25 2c 48 25 2c 61  |%,Ka%,E%,g%,H%,a|
000004a0  25 3a 4a 61 25 3d 63 25  2a 31 2e 31 3a 44 25 3d  |%:Ja%=c%*1.1:D%=|
000004b0  49 61 25 81 32 3a 4b 61  25 3d 47 61 25 81 32 3a  |Ia%.2:Ka%=Ga%.2:|
000004c0  45 25 3d 65 25 2b 32 30  3a 67 25 3d 45 25 2b 32  |E%=e%+20:g%=E%+2|
000004d0  34 30 3a 48 25 3d 31 32  30 3a c8 91 78 25 2c 79  |40:H%=120:..x%,y|
000004e0  25 3a e6 61 3a c8 8f c8  90 30 2c 30 2c 63 25 81  |%:.a:....0,0,c%.|
000004f0  32 3a f2 61 28 63 25 2a  30 2e 36 2c 4a 61 25 2a  |2:.a(c%*0.6,Ja%*|
00000500  31 2e 30 35 2c 4a 61 25  2a 30 2e 35 35 2c 65 25  |1.05,Ja%*0.55,e%|
00000510  2c 6b 25 29 3a f2 61 28  46 61 25 2c 49 61 25 2c  |,k%):.a(Fa%,Ia%,|
00000520  48 61 25 2c 65 25 2c 61  29 3a c8 8f c8 90 30 2c  |Ha%,e%,a):....0,|
00000530  30 2c 44 25 3a e6 7a 25  3a c8 8f c8 90 30 2c 30  |0,D%:.z%:....0,0|
00000540  2c 4b 61 25 0d 01 40 26  e3 61 25 3d 45 25 b8 67  |,Ka%..@&.a%=E%.g|
00000550  25 88 48 25 3a f2 61 28  4b 61 25 2c 30 2c 31 35  |%.H%:.a(Ka%,0,15|
00000560  2c 61 25 2c 66 29 3a ed  3a e1 0d 01 4a bb dd f2  |,a%,f):.:...J...|
00000570  6a 28 4c 61 25 2c 51 25  2c 4d 61 25 2c 4e 61 25  |j(La%,Q%,Ma%,Na%|
00000580  2c 4f 61 25 2c 65 2c 78  25 2c 79 25 29 3a ea 50  |,Oa%,e,x%,y%):.P|
00000590  61 25 2c 67 2c 69 3a c8  91 78 25 2c 79 25 3a 50  |a%,g,i:..x%,y%:P|
000005a0  61 25 3d 51 25 81 32 3a  67 3d 30 2e 36 35 3a 69  |a%=Q%.2:g=0.65:i|
000005b0  3d 30 2e 37 35 3a f2 61  28 4c 61 25 2c 4e 61 25  |=0.75:.a(La%,Na%|
000005c0  2c 4f 61 25 2c 65 2c 62  29 3a f2 61 28 4c 61 25  |,Oa%,e,b):.a(La%|
000005d0  2c 4e 61 25 2a 67 2c 4f  61 25 2a 67 2c 65 2c 61  |,Na%*g,Oa%*g,e,a|
000005e0  29 3a e6 62 3a c8 8f c8  90 30 2c 30 2c 50 61 25  |):.b:....0,0,Pa%|
000005f0  3a e6 61 3a c8 8f c8 90  30 2c 30 2c 50 61 25 2a  |:.a:....0,0,Pa%*|
00000600  69 3a e6 7a 25 3a c8 8f  c8 90 30 2c 30 2c 4d 61  |i:.z%:....0,0,Ma|
00000610  25 81 32 3a e6 6b 25 3a  c8 8f 30 2c 30 2c 4d 61  |%.2:.k%:..0,0,Ma|
00000620  25 81 32 3a e1 0d 01 54  b8 dd f2 6b 28 55 25 2c  |%.2:...T...k(U%,|
00000630  41 25 2c 51 61 25 2c 78  25 2c 79 25 29 3a ea 52  |A%,Qa%,x%,y%):.R|
00000640  61 25 2c 4d 25 2c 53 61  25 2c 54 61 25 2c 55 61  |a%,M%,Sa%,Ta%,Ua|
00000650  25 2c 56 61 25 3a ea 57  61 25 2c 45 25 2c 67 25  |%,Va%:.Wa%,E%,g%|
00000660  2c 73 25 2c 58 61 25 2c  42 25 2c 68 25 3a 52 61  |,s%,Xa%,B%,h%:Ra|
00000670  25 3d 55 25 81 32 3a 4d  25 3d 41 25 2a 30 2e 35  |%=U%.2:M%=A%*0.5|
00000680  35 3a 53 61 25 3d 51 61  25 81 32 3a 54 61 25 3d  |5:Sa%=Qa%.2:Ta%=|
00000690  53 61 25 2a 30 2e 37 35  3a 55 61 25 3d 28 41 25  |Sa%*0.75:Ua%=(A%|
000006a0  2d 4d 25 29 81 35 3a 56  61 25 3d 55 61 25 2a 30  |-M%).5:Va%=Ua%*0|
000006b0  2e 31 35 3a c8 91 78 25  2c 79 25 3a e6 66 3a c8  |.15:..x%,y%:.f:.|
000006c0  93 c8 90 2d 52 61 25 2c  2d 4d 25 2c 55 25 2c 41  |...-Ra%,-M%,U%,A|
000006d0  25 3a e6 61 3a e3 57 61  25 3d 31 b8 33 0d 01 5e  |%:.a:.Wa%=1.3..^|
000006e0  a4 c8 93 c8 90 2d 52 61  25 2c 28 41 25 2d 4d 25  |.....-Ra%,(A%-M%|
000006f0  29 2d 55 61 25 2a 57 61  25 2c 55 25 2c 56 61 25  |)-Ua%*Wa%,U%,Va%|
00000700  3a ed 3a e6 61 3a 45 25  3d 35 3a 67 25 3d 36 35  |:.:.a:E%=5:g%=65|
00000710  3a 73 25 3d 31 30 3a e3  58 61 25 3d 31 b8 32 3a  |:s%=10:.Xa%=1.2:|
00000720  e3 42 25 3d 45 25 b8 67  25 88 73 25 3a 68 25 3d  |.B%=E%.g%.s%:h%=|
00000730  52 61 25 2a 9b b2 28 42  25 29 3a 86 2d 68 25 2c  |Ra%*..(B%):.-h%,|
00000740  2d 4d 25 2c 2d 68 25 2c  41 25 2d 4d 25 3a ed 3a  |-M%,-h%,A%-M%:.:|
00000750  45 25 3d 31 31 35 3a 67  25 3d 31 37 35 3a ed 3a  |E%=115:g%=175:.:|
00000760  e6 7a 25 3a c8 8f c8 90  30 2c 30 2c 53 61 25 3a  |.z%:....0,0,Sa%:|
00000770  e6 6b 25 3a c8 8f c8 90  30 2c 30 2c 54 61 25 3a  |.k%:....0,0,Ta%:|
00000780  e1 0d 01 68 54 dd f2 64  28 55 25 2c 59 61 25 2c  |...hT..d(U%,Ya%,|
00000790  5a 61 25 2c 5f 61 25 2c  53 25 2c 65 25 2c 78 25  |Za%,_a%,S%,e%,x%|
000007a0  2c 79 25 29 3a c8 91 78  25 2c 79 25 3a f2 61 28  |,y%):..x%,y%:.a(|
000007b0  5a 61 25 2c 55 25 2c 59  61 25 2c 65 25 2c 61 29  |Za%,U%,Ya%,e%,a)|
000007c0  3a f2 61 28 5f 61 25 2c  53 25 2c 53 25 2c 65 25  |:.a(_a%,S%,S%,e%|
000007d0  2c 61 29 3a e1 0d 01 72  c7 dd f2 6c 28 f8 60 61  |,a):...r...l(.`a|
000007e0  25 2c f8 61 62 25 2c f8  79 25 2c f8 65 25 2c f8  |%,.ab%,.y%,.e%,.|
000007f0  72 25 2c 62 62 25 2c 6a  25 2c 63 62 25 2c 64 62  |r%,bb%,j%,cb%,db|
00000800  25 2c 65 62 25 2c 66 62  25 2c 67 62 25 2c 70 25  |%,eb%,fb%,gb%,p%|
00000810  2c 68 62 25 2c 6d 25 29  3a ea 56 25 2c 69 62 25  |,hb%,m%):.V%,ib%|
00000820  2c 6a 62 25 2c 61 25 2c  6b 62 25 2c 6c 62 25 3a  |,jb%,a%,kb%,lb%:|
00000830  56 25 3d 62 62 25 2d 32  2e 35 2a 6a 25 3a 72 25  |V%=bb%-2.5*j%:r%|
00000840  3d 28 62 62 25 5e 32 2b  28 34 2a 63 62 25 5e 32  |=(bb%^2+(4*cb%^2|
00000850  29 29 2f 28 38 2a 63 62  25 29 3a 69 62 25 3d 72  |))/(8*cb%):ib%=r|
00000860  25 2d 30 2e 35 2a b6 28  34 2a 72 25 5e 32 2d 28  |%-0.5*.(4*r%^2-(|
00000870  56 25 2a 32 29 5e 32 29  3a 6a 62 25 3d 63 62 25  |V%*2)^2):jb%=cb%|
00000880  2d 69 62 25 3a 61 25 3d  9d 28 98 28 56 25 2f 72  |-ib%:a%=.(.(V%/r|
00000890  25 29 29 3a 65 25 3d 39  30 2d 61 25 0d 01 7c 69  |%)):e%=90-a%..|i|
000008a0  6b 62 25 3d 28 64 62 25  2b 71 25 29 2a 9b b2 28  |kb%=(db%+q%)*..(|
000008b0  65 25 29 3a 6c 62 25 3d  28 64 62 25 2b 71 25 29  |e%):lb%=(db%+q%)|
000008c0  2a b5 b2 28 65 25 29 3a  60 61 25 3d 66 62 25 2d  |*..(e%):`a%=fb%-|
000008d0  6b 62 25 2d 56 25 3a 61  62 25 3d 66 62 25 2b 6b  |kb%-V%:ab%=fb%+k|
000008e0  62 25 2b 56 25 3a 79 25  3d 67 62 25 2b 70 25 2b  |b%+V%:y%=gb%+p%+|
000008f0  68 62 25 2b 6d 25 2a 30  2e 34 35 2b 6a 62 25 2b  |hb%+m%*0.45+jb%+|
00000900  6c 62 25 3a e1 0d 01 86  88 dd f2 62 28 6d 62 25  |lb%:.......b(mb%|
00000910  2c 44 25 2c 65 25 2c 78  25 2c 79 25 29 3a ea 6e  |,D%,e%,x%,y%):.n|
00000920  62 25 3a 6e 62 25 3d 44  25 2a 32 2b 31 30 3a c8  |b%:nb%=D%*2+10:.|
00000930  91 78 25 2c 79 25 3a e6  62 3a c8 9d c8 90 30 2c  |.x%,y%:.b:....0,|
00000940  30 2c 6d 62 25 2c 44 25  2c 2d b2 28 65 25 29 3a  |0,mb%,D%,-.(e%):|
00000950  f2 61 28 6d 62 25 2b 34  2c 6e 62 25 2c 6e 62 25  |.a(mb%+4,nb%,nb%|
00000960  2c 65 25 2b 39 30 2c 6b  25 29 3a e6 62 3a c8 8f  |,e%+90,k%):.b:..|
00000970  c8 90 30 2c 30 2c 44 25  3a e6 7a 25 3a c8 8f c8  |..0,0,D%:.z%:...|
00000980  90 30 2c 30 2c 44 25 2a  30 2e 35 3a e1 0d 01 90  |.0,0,D%*0.5:....|
00000990  ae dd f2 63 28 78 25 2c  79 25 2c 65 25 2c 6f 62  |...c(x%,y%,e%,ob|
000009a0  25 2c 52 25 2c 70 62 25  2c 6d 62 25 2c 71 62 25  |%,R%,pb%,mb%,qb%|
000009b0  2c f8 68 25 2c f8 76 25  29 3a ea 63 2c 64 2c 75  |,.h%,.v%):.c,d,u|
000009c0  25 2c 67 25 2c 42 25 2c  72 62 25 3a c8 91 78 25  |%,g%,B%,rb%:..x%|
000009d0  2c 79 25 3a 63 3d b5 b2  28 65 25 29 3a 64 3d 9b  |,y%:c=..(e%):d=.|
000009e0  b2 28 65 25 29 3a 75 25  3d 70 62 25 2d 35 3a 67  |.(e%):u%=pb%-5:g|
000009f0  25 3d 6d 62 25 2b 35 3a  f5 3a 42 25 3d 28 67 25  |%=mb%+5:.:B%=(g%|
00000a00  2d 75 25 29 81 32 2b 75  25 3a 68 25 3d 42 25 2a  |-u%).2+u%:h%=B%*|
00000a10  64 3a 76 25 3d 42 25 2a  63 3a 72 62 25 3d b0 68  |d:v%=B%*c:rb%=.h|
00000a20  25 2c 2d 76 25 29 3a e7  72 62 25 3d 71 62 25 8c  |%,-v%):.rb%=qb%.|
00000a30  75 25 3d 42 25 8b 67 25  3d 42 25 0d 01 9a 1d fd  |u%=B%.g%=B%.....|
00000a40  67 25 2d 75 25 3c 32 3a  68 25 2b 3d 6f 62 25 3a  |g%-u%<2:h%+=ob%:|
00000a50  76 25 2b 3d 52 25 3a e1  0d 01 a4 0b dd f2 65 3a  |v%+=R%:.......e:|
00000a60  ee 85 87 0d 01 ae 0e eb  31 32 3a e7 9f 3d 31 37  |........12:..=17|
00000a70  8c 0d 01 b8 15 f1 22 45  73 63 61 70 65 20 70 72  |......"Escape pr|
00000a80  65 73 73 65 64 22 0d 01  c2 15 cc f6 3a f1 22 20  |essed"......:." |
00000a90  61 74 20 6c 69 6e 65 20  22 3b 9e 0d 01 cc 05 cd  |at line ";......|
00000aa0  0d 01 d6 05 e0 0d 01 e0  05 e1 0d 01 ea 9d dd f2  |................|
00000ab0  6d 28 57 25 2c 4e 25 2c  73 62 25 2c 74 62 25 2c  |m(W%,N%,sb%,tb%,|
00000ac0  78 25 2c 79 25 29 3a c8  91 78 25 2c 79 25 3a f2  |x%,y%):..x%,y%:.|
00000ad0  61 28 57 25 2c 57 25 2c  57 25 2c 30 2c 62 29 3a  |a(W%,W%,W%,0,b):|
00000ae0  c8 91 78 25 2c 79 25 2b  57 25 3a f2 61 28 31 30  |..x%,y%+W%:.a(10|
00000af0  30 2c 4e 25 2a 31 2e 31  2c 4e 25 2a 31 2e 33 35  |0,N%*1.1,N%*1.35|
00000b00  2c 30 2c 6b 25 29 3a f2  61 28 4e 25 2a 30 2e 34  |,0,k%):.a(N%*0.4|
00000b10  2c 4e 25 2c 4e 25 2c 30  2c 62 29 3a c8 91 78 25  |,N%,N%,0,b):..x%|
00000b20  2c 79 25 2b 57 25 2b 28  4e 25 2a 30 2e 34 29 3a  |,y%+W%+(N%*0.4):|
00000b30  f2 61 28 73 62 25 2a 32  2c 73 62 25 2c 74 62 25  |.a(sb%*2,sb%,tb%|
00000b40  2c 30 2c 61 29 3a e1 0d  01 f4 16 dd f2 66 3a ef  |,0,a):.......f:.|
00000b50  31 39 2c 31 2c 32 34 2c  30 2c 30 2c 30 0d 01 fe  |19,1,24,0,0,0...|
00000b60  ac 6b 25 3d 30 3a 6a 3d  31 3a fb 6a 2c 36 34 2c  |.k%=0:j=1:.j,64,|
00000b70  36 34 2c 36 34 3a 6b 3d  32 3a fb 6b 2c 31 31 32  |64,64:k=2:.k,112|
00000b80  2c 31 31 32 2c 31 31 32  3a 62 3d 33 3a fb 62 2c  |,112,112:b=3:.b,|
00000b90  31 39 32 2c 31 39 32 2c  31 39 32 3a 61 3d 34 3a  |192,192,192:a=4:|
00000ba0  fb 61 2c 32 30 38 2c 32  30 38 2c 32 30 38 3a 66  |.a,208,208,208:f|
00000bb0  3d 35 3a fb 66 2c 32 32  34 2c 32 32 34 2c 32 32  |=5:.f,224,224,22|
00000bc0  34 3a 7a 25 3d 36 3a fb  7a 25 2c 32 35 35 2c 30  |4:z%=6:.z%,255,0|
00000bd0  2c 30 3a 75 62 25 3d 37  3a 43 61 25 3d 38 3a fb  |,0:ub%=7:Ca%=8:.|
00000be0  38 2c 30 2c 30 2c 30 3a  45 61 25 3d 39 3a fb 39  |8,0,0,0:Ea%=9:.9|
00000bf0  2c 30 2c 30 2c 30 3a 44  61 25 3d 31 30 3a fb 31  |,0,0,0:Da%=10:.1|
00000c00  30 2c 30 2c 30 2c 30 3a  e1 0d 02 08 cf dd f2 67  |0,0,0,0:.......g|
00000c10  3a 62 25 3d 36 34 30 3a  66 25 3d 32 35 35 3a 64  |:b%=640:f%=255:d|
00000c20  25 3d 31 38 35 3a 76 62  25 3d 31 39 30 3a 77 62  |%=185:vb%=190:wb|
00000c30  25 3d 64 25 2a 30 2e 31  39 3a 6d 25 3d 64 25 2a  |%=d%*0.19:m%=d%*|
00000c40  31 2e 31 3a 78 62 25 3d  64 25 2a 30 2e 32 35 3a  |1.1:xb%=d%*0.25:|
00000c50  70 25 3d 76 62 25 81 32  3a 63 25 3d 64 25 2a 31  |p%=vb%.2:c%=d%*1|
00000c60  2e 36 3a 6b 61 25 3d 63  25 81 33 3a 6c 61 25 3d  |.6:ka%=c%.3:la%=|
00000c70  63 25 81 35 3a 6d 61 25  3d 63 25 81 32 3a 49 25  |c%.5:ma%=c%.2:I%|
00000c80  3d 70 25 2b 63 25 81 32  2b 63 25 81 35 30 2b 6d  |=p%+c%.2+c%.50+m|
00000c90  25 2a 30 2e 36 3a 6e 61  25 3d 6b 61 25 2a 30 2e  |%*0.6:na%=ka%*0.|
00000ca0  36 3a 51 25 3d 6b 61 25  2a 31 2e 35 3a 6f 61 25  |6:Q%=ka%*1.5:oa%|
00000cb0  3d 51 25 2a 30 2e 39 3a  70 61 25 3d 51 25 2a 30  |=Q%*0.9:pa%=Q%*0|
00000cc0  2e 35 3a 6a 25 3d 64 25  2a 30 2e 33 3a 75 61 25  |.5:j%=d%*0.3:ua%|
00000cd0  3d 6a 25 2a 30 2e 31 35  0d 02 12 46 74 61 25 3d  |=j%*0.15...Fta%=|
00000ce0  6a 25 2d 32 2a 75 61 25  3a 77 25 3d 6a 25 2a 31  |j%-2*ua%:w%=j%*1|
00000cf0  2e 39 3a 53 25 3d 6a 25  2a 30 2e 32 3a 79 62 25  |.9:S%=j%*0.2:yb%|
00000d00  3d 38 30 3a 7a 62 25 3d  31 31 30 3a 6e 25 3d 64  |=80:zb%=110:n%=d|
00000d10  25 2a 30 2e 31 37 3a 71  25 3d 6e 25 81 32 0d 02  |%*0.17:q%=n%.2..|
00000d20  1c d1 f2 6c 28 4a 25 2c  4b 25 2c 69 25 2c 46 25  |...l(J%,K%,i%,F%|
00000d30  2c 41 62 25 2c 64 25 2c  6a 25 2c 77 62 25 2c 77  |,Ab%,d%,j%,wb%,w|
00000d40  25 2c 71 25 2c 62 25 2c  66 25 2c 70 25 2c 49 25  |%,q%,b%,f%,p%,I%|
00000d50  2c 6d 25 29 3a 43 25 3d  46 25 3a 54 25 3d 31 38  |,m%):C%=F%:T%=18|
00000d60  30 2d 46 25 3a 71 61 25  3d 43 25 2b 39 30 3a 72  |0-F%:qa%=C%+90:r|
00000d70  61 25 3d 71 61 25 2b 31  38 30 3a 76 61 25 3d 54  |a%=qa%+180:va%=T|
00000d80  25 2b 39 30 3a 77 61 25  3d 76 61 25 2b 31 38 30  |%+90:wa%=va%+180|
00000d90  3a 74 25 3d 6a 25 2a 30  2e 37 3a 42 62 25 3d 77  |:t%=j%*0.7:Bb%=w|
00000da0  25 2a 30 2e 34 3a 6c 3d  42 62 25 2a 9b b2 28 46  |%*0.4:l=Bb%*..(F|
00000db0  25 29 3a 6d 3d 42 62 25  2a b5 b2 28 46 25 29 3a  |%):m=Bb%*..(F%):|
00000dc0  6e 3d 28 74 25 81 32 29  2a b5 b2 28 46 25 29 3a  |n=(t%.2)*..(F%):|
00000dd0  6f 3d 28 74 25 81 32 29  2a 9b b2 28 46 25 29 3a  |o=(t%.2)*..(F%):|
00000de0  43 62 25 3d 6c 2d 6e 3a  44 62 25 3d 6d 2b 6f 0d  |Cb%=l-n:Db%=m+o.|
00000df0  02 26 bd 73 61 25 3d 77  25 2a 9b b2 28 43 25 29  |.&.sa%=w%*..(C%)|
00000e00  3a 78 61 25 3d 77 25 2a  9b b2 28 54 25 29 3a 52  |:xa%=w%*..(T%):R|
00000e10  25 3d 77 25 2a b5 b2 28  46 25 29 3a 45 62 25 3d  |%=w%*..(F%):Eb%=|
00000e20  71 25 2a 9b b2 28 43 25  29 3a 46 62 25 3d 71 25  |q%*..(C%):Fb%=q%|
00000e30  2a b5 b2 28 43 25 29 3a  4c 25 3d 4a 25 2b 45 62  |*..(C%):L%=J%+Eb|
00000e40  25 2b 73 61 25 3a 60 25  3d 69 25 2d 46 62 25 2d  |%+sa%:`%=i%-Fb%-|
00000e50  52 25 3a 41 61 25 3d 4b  25 2d 45 62 25 2b 78 61  |R%:Aa%=K%-Eb%+xa|
00000e60  25 3a 42 61 25 3d 60 25  3a 6f 25 3d 64 25 2a 31  |%:Ba%=`%:o%=d%*1|
00000e70  2e 36 3a 47 25 3d 70 25  2b 49 25 2b 30 2e 34 35  |.6:G%=p%+I%+0.45|
00000e80  2a 6d 25 3a 47 62 25 3d  69 25 2d 28 47 25 2b 66  |*m%:Gb%=i%-(G%+f|
00000e90  25 29 3a 48 62 25 3d 63  25 2a 31 2e 37 35 3a 49  |%):Hb%=c%*1.75:I|
00000ea0  62 25 3d 63 25 2a 31 2e  33 35 3a e1 0d 02 30 34  |b%=c%*1.35:...04|
00000eb0  dd f2 68 3a f2 6b 28 64  25 2c 6d 25 2c 78 62 25  |..h:.k(d%,m%,xb%|
00000ec0  2c 64 25 81 32 2c 6d 25  2a 30 2e 35 35 29 3a c8  |,d%.2,m%*0.55):.|
00000ed0  91 30 2c 30 3a ec 30 2c  30 3a ec 64 25 2c 6d 25  |.0,0:.0,0:.d%,m%|
00000ee0  0d 02 3a 10 2a 53 47 65  74 20 70 69 73 74 6f 6e  |..:.*SGet piston|
00000ef0  0d 02 44 b9 c8 91 62 25  2c 66 25 3a e6 7a 25 3a  |..D...b%,f%:.z%:|
00000f00  c8 93 c8 90 2d 28 6f 25  81 32 29 2c 47 25 2c 6f  |....-(o%.2),G%,o|
00000f10  25 2c 47 62 25 3a c8 91  30 2c 30 3a c8 8f c8 90  |%,Gb%:..0,0:....|
00000f20  4a 25 2c 69 25 2c 6e 25  2a 32 3a c8 8f c8 90 4b  |J%,i%,n%*2:....K|
00000f30  25 2c 69 25 2c 6e 25 2a  32 3a e6 6b 25 3a c8 8f  |%,i%,n%*2:.k%:..|
00000f40  c8 90 4a 25 2c 69 25 2c  6e 25 2a 31 2e 35 3a c8  |..J%,i%,n%*1.5:.|
00000f50  8f c8 90 4b 25 2c 69 25  2c 6e 25 2a 31 2e 35 3a  |...K%,i%,n%*1.5:|
00000f60  e6 43 61 25 3a c8 8f c8  90 62 25 2c 28 66 25 2b  |.Ca%:....b%,(f%+|
00000f70  47 25 2b 77 62 25 29 2d  41 62 25 2c 41 62 25 2a  |G%+wb%)-Ab%,Ab%*|
00000f80  31 2e 30 35 3a f2 6d 28  32 30 2c 32 35 2c 31 38  |1.05:.m(20,25,18|
00000f90  2c 31 30 2c 62 25 2c 47  25 2b 77 62 25 2b 66 25  |,10,b%,G%+wb%+f%|
00000fa0  29 3a c8 91 4c 25 2c 60  25 0d 02 4e 97 f2 61 28  |):..L%,`%..N..a(|
00000fb0  42 62 25 2c 74 25 2c 74  25 2c 43 25 2d 39 30 2c  |Bb%,t%,t%,C%-90,|
00000fc0  45 61 25 29 3a c8 93 c8  90 2d 28 28 6f 25 81 32  |Ea%):....-((o%.2|
00000fd0  29 2d 28 62 25 2d 4c 25  29 29 2c 44 62 25 2d 74  |)-(b%-L%)),Db%-t|
00000fe0  25 2c 28 28 6f 25 81 32  29 2d 28 62 25 2d 4c 25  |%,((o%.2)-(b%-L%|
00000ff0  29 2d 43 62 25 29 2c 74  25 3a c8 91 62 25 2d 28  |)-Cb%),t%:..b%-(|
00001000  6f 25 81 32 29 2c 28 60  25 2b 44 62 25 29 2d 74  |o%.2),(`%+Db%)-t|
00001010  25 81 32 3a c8 91 41 61  25 2c 42 61 25 3a f2 61  |%.2:..Aa%,Ba%:.a|
00001020  28 77 25 2a 30 2e 34 2c  6a 25 2a 30 2e 38 2c 6a  |(w%*0.4,j%*0.8,j|
00001030  25 2a 30 2e 36 2c 54 25  2d 39 30 2c 44 61 25 29  |%*0.6,T%-90,Da%)|
00001040  0d 02 58 c4 c8 93 c8 90  28 28 6f 25 81 32 29 2d  |..X.....((o%.2)-|
00001050  28 62 25 2d 4c 25 29 29  2c 44 62 25 2d 74 25 2c  |(b%-L%)),Db%-t%,|
00001060  2d 28 28 6f 25 81 32 29  2d 28 62 25 2d 4c 25 29  |-((o%.2)-(b%-L%)|
00001070  2d 43 62 25 29 2c 74 25  3a c8 91 30 2c 30 3a e6  |-Cb%),t%:..0,0:.|
00001080  7a 25 3a c8 93 c8 90 62  25 2d 28 6f 25 81 32 29  |z%:....b%-(o%.2)|
00001090  2c 66 25 2c 6f 25 2c 47  25 2a 31 2e 30 31 3a e6  |,f%,o%,G%*1.01:.|
000010a0  7a 25 3a c8 8f c8 90 62  25 2c 66 25 2c 48 62 25  |z%:....b%,f%,Hb%|
000010b0  81 32 3a e6 6b 25 3a c8  8f c8 90 62 25 2c 66 25  |.2:.k%:....b%,f%|
000010c0  2c 49 62 25 81 32 3a c8  91 62 25 2c 66 25 3a f2  |,Ib%.2:..b%,f%:.|
000010d0  61 28 47 25 2a 31 2e 30  31 2c 64 25 2c 64 25 2c  |a(G%*1.01,d%,d%,|
000010e0  30 2c 43 61 25 29 3a f2  61 28 2d 70 25 2b 49 25  |0,Ca%):.a(-p%+I%|
000010f0  2b 6d 25 2a 30 2e 34 32  2c 64 25 2c 64 25 2c 30  |+m%*0.42,d%,d%,0|
00001100  2c 6b 25 29 0d 02 62 5a  f2 61 28 49 62 25 2a 30  |,k%)..bZ.a(Ib%*0|
00001110  2e 37 35 2c 63 25 2a 31  2e 31 35 2c 6f 25 81 32  |.75,c%*1.15,o%.2|
00001120  2c 30 2c 6b 25 29 3a c8  91 30 2c 30 3a ec 62 25  |,0,k%):..0,0:.b%|
00001130  2d 63 25 2a 31 2e 32 35  2c 66 25 2d 63 25 2a 31  |-c%*1.25,f%-c%*1|
00001140  2e 32 35 3a ec 62 25 2b  63 25 2a 31 2e 32 35 2c  |.25:.b%+c%*1.25,|
00001150  66 25 2b 47 25 2b 47 62  25 2b 6e 25 2a 32 0d 02  |f%+G%+Gb%+n%*2..|
00001160  6c 10 2a 53 47 45 54 20  63 61 73 69 6e 67 0d 02  |l.*SGET casing..|
00001170  76 07 db 3a e1 0d 02 80  cd dd f2 61 28 41 25 2c  |v..:.......a(A%,|
00001180  4e 61 25 2c 4f 61 25 2c  65 2c 71 62 25 29 3a ea  |Na%,Oa%,e,qb%):.|
00001190  4a 62 25 2c 4b 62 25 2c  76 25 2c 68 25 2c 4c 62  |Jb%,Kb%,v%,h%,Lb|
000011a0  25 2c 4d 62 25 2c 4e 62  25 2c 4f 62 25 3a e6 71  |%,Mb%,Nb%,Ob%:.q|
000011b0  62 25 3a 63 3d b5 b2 28  65 29 3a 64 3d 9b b2 28  |b%:c=..(e):d=..(|
000011c0  65 29 3a 58 25 3d 4e 61  25 81 32 3a 76 25 3d 41  |e):X%=Na%.2:v%=A|
000011d0  25 2a 64 3a 68 25 3d 41  25 2a 63 3a 4c 62 25 3d  |%*d:h%=A%*c:Lb%=|
000011e0  58 25 2a 64 3a 4d 62 25  3d 58 25 2a 63 3a 58 25  |X%*d:Mb%=X%*c:X%|
000011f0  3d 4f 61 25 81 32 3a 4e  62 25 3d 58 25 2a 64 3a  |=Oa%.2:Nb%=X%*d:|
00001200  4f 62 25 3d 58 25 2a 63  3a ec 2d 4c 62 25 2c 4d  |Ob%=X%*c:.-Lb%,M|
00001210  62 25 3a ec 4c 62 25 2c  2d 4d 62 25 3a f0 38 35  |b%:.Lb%,-Mb%:.85|
00001220  2c 68 25 2d 4e 62 25 2c  76 25 2b 4f 62 25 3a f0  |,h%-Nb%,v%+Ob%:.|
00001230  38 35 2c 68 25 2b 4e 62  25 2c 76 25 2d 4f 62 25  |85,h%+Nb%,v%-Ob%|
00001240  3a e1 0d ff                                       |:...|
00001244

© Dominic Ford 2021–2025.

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