� >CircleFit
� By Andrew Bower
� 24th August 1994
(� Version 0.51 (4 Mar 1995)
2:
<8� MODE 128+18:GOTO 200:REM If you a are colourblind.
F:
P1ș "OS_ReadModeVariable",-1,7 � ,,screensize%
Z4ș "OS_ReadDynamicArea",128+2 � ,scrmem%,scrmax%
d� scrmem%<2*screensize% �
n  � scrmax%<2*screensize% �
x4    � 0,"Please switch to a smaller screen mode"
�  �
�8  ș "XOS_ChangeDynamicArea",2,2*screensize%-scrmem%
��
�2ș "OS_ReadDynamicArea",130 � ,scrmem%,scrmax%
�� scrmem%<2*screensize% �
�2  � 0,"Please switch to a smaller screen mode"
��
�:
�ȗ �
�7� MODE MODE :REM If you wish to gain a black border
�:
�
*FX4,1
�fh%=0:sym%=0:black%=�

path%=0:buff%=0:object%=0

� � �error

�

"�bank(1)

,�

6b%=0:f%=&FFFFFF00

@2modevar%=&35:� "OS_ReadModeVariable" .........

J!ș modevar%,-1,9 � ,,log2bpp%

Tș modevar%,-1,4 � ,,xeig%

^ș modevar%,-1,5 � ,,yeig%

h9ș modevar%,-1,11 �,,xpix%:xpix%+=1:xos%=xpix%<<xeig%

r9ș modevar%,-1,12 �,,ypix%:ypix%+=1:yos%=ypix%<<yeig%

|Ȏ log2bpp% �

�� 2

�?ș "Font_SetPalette",,0, 1,2,b%,&FFFFFF00,&65757254:� white

�>ș "Font_SetPalette",,0, 4,2,b%,&FFFF0000,&65757254:� cyan

�@ș "Font_SetPalette",,0, 7,3,b%,&00FFFF00,&65757254:� yellow

�@ș "Font_SetPalette",,0,11,2,b%,&00AAFF00,&65757254:� orange

�?ș "Font_SetPalette",,0,14,1,b%,&00FF1100,&65757254:� green

�� 1

�� 0,&00,&00,&00

�� 1,&FF,&FF,&FF

�� 2,&FF,&FF,&00

�� 3,&00,&FF,&FF

��

�$ș "ColourTrans_InvalidateCache"
z=&7FFFFFFF
*ș "ColourTrans_SetGCOL",b%,,,%01<<7:�
ș "ColourTrans_SetGCOL",f%
&%ș "ColourTrans_SetTextColour",f%
0�setupmenu
:edit%=�
Dquit%=�
N�:row%=yos%
X� ans% 256
b� coord% 16*4
l&� T% 6*4,tempbuff% 256,capjoin% 32
v<� _font% 128,_size% 32,_text% 256,_angle% 32,_radius% 32
�$_font%="Trinity.Medium"+�0
�$_size%="48"+�0
�%$_text%="The quick brown fox!"+�0
�$_angle%="180�"+�0
�$_radius%="1.8"""+�0
�
�ȕ � quit%
�ȕ edit%
�
row%=yos%
�?ș "Font_FindFont",,"Homerton.Medium",18*16,18*16,0,0 � fh%
�0ș "ColourTrans_SetFontColours",fh%,b%,f%,14
�goodfont%=�
�ȕ � goodfont%
%  font$=�get("Font: ",_font%,128)
7  ș "XFont_FindFont",,font$,1,1,0,0 � temp%;flags%
  � flags% � 1 �
 ;    ș "ColourTrans_SetFontColours",fh%,b%,&FFFF0000,14
*A    �write("                         *** Font not found ***")
4    � �
>    �:row%=yos%
H4    ș "ColourTrans_SetFontColours",fh%,b%,f%,14
R  �
\     ș "Font_LoseFont",temp%
f    goodfont%=�
p  �
z�
�'size$=�get("Font size: ",_size%,31)
�colon%=�size$,":")
�comma%=�size$,",")
�size%=16*�(size$)
�height%=size%
�-� comma% � height%=16*�(�size$,comma%+1))
�-� colon% � height%=16*�(�size$,colon%+1))
�#text$=�get("Text: ",_text%,256)
�%r=�(�get("Radius: ",_radius%,31))
�#a=�(�get("Start: ",_angle%,31))
�,$_size%=�(size%�16)+":"+�(height%�16)+�0
�($_radius%=�(�(�0(_radius%)))+""""+�0
�%$_angle%=�(�(�0(_angle%)))+"�"+�0
ș "Font_LoseFont",fh%

r=r*72000
edit%=�
$�
.�bank(2)
8:
B
� path% �
L  screen%=�:title%=�:�go
V  screen%=�
`  title%=�
j.  ș "Font_SwitchOutputToBuffer",%10001,32
t	  �go
~,  ș "Font_SwitchOutputToBuffer" � ,inc%
�2  inc%+=1024 :� reserve space for circle paths
�  � buff% �
�    optr%=buffptr%-buff%
�7    ș "XOS_Module",13,,buff%,inc% � ,,buff% ;flags
�^    � flags � 1 � buff%=0:ș "XFont_SwitchOutputToBuffer",0,0:� 7:tick%(sel%)=�:path%=�:=0
�G    buffptr%=optr%+buff%:buffsize%+=inc%:buffend%=buff%+buffsize%-4
�  �
�1    ș "XOS_Module",6,,,inc% � ,,buff% ;flags
�^    � flags � 1 � buff%=0:ș "XFont_SwitchOutputToBuffer",0,0:� 7:tick%(sel%)=�:path%=�:=0
�V    buffptr%=�header(buff%):buffsize%=inc%+buff%-buffptr%:buffend%=buff%+buffsize%
�  �
�+  screen%=�:black%=�:draw%=�:circles%=�
	  �go

  !buffptr%=0
  buffptr%!4=buffsize%-16
3  ș "Font_SwitchOutputToBuffer",%1<<4,buffptr%
(+  screen%=�:black%=�:draw%=�:circles%=�
2	  �go
<  screen%=�:black%=�
F  �bank(1)
P4  ș "Font_SwitchOutputToBuffer",0,0 � ,buffptr%
Z'  ș "ColourTrans_SetTextColour",f%
d�
n7� object%=0 � screen%=�:title%=�:draw%=�:circles%=�
x�go
��
�� object% �
�  inc%=131072
�  � buff% �
�    optr%=buffptr%-buff%
�7    ș "XOS_Module",13,,buff%,inc% � ,,buff% ;flags
�<    � flags � 1 � buff%=0:� 7:tick%(sel%)=�:object%=�:=0
�G    buffptr%=optr%+buff%:buffsize%+=inc%:buffend%=buff%+buffsize%-4
�  �
�1    ș "XOS_Module",6,,,inc% � ,,buff% ;flags
�;    � flags � 1 � buff%=0:� 7:tick(sel%)=�:object%=�:=0
�U    buffptr%=�header(buff%):buffsize%=inc%+buff-buffptr%:buffend%=buff%+buffsize%
�  �
*screen%=�:title%=�:black%=�:circles%=�
#�go:screen%=�:title%=�:black%=�
�
"�bank(1)
,?ș "Font_FindFont",,"Homerton.Medium",18*16,18*16,0,0 � fh%
60ș "ColourTrans_SetFontColours",fh%,b%,f%,14
@	�menu
Jș "Font_LoseFont",fh%
T�
^ș "Font_LoseFont",sym%
h
*FX4,0
r�finishpath
|
*SHADOW 1
��
�:
�	� �go
�b%=0:f%=&FFFFFF00
�'� path% � buff% � f%=0:b%=&FFFFFF00
�a=�(�0(_angle%))
�!ș "Font_ConverttoOS",,r � ,R
�
OX=xos%�2
�OY=yos%�2-48
�text%=_text%
�T%!16=0
�T%!20=0
�-ș "Font_Converttopoints",,OX,OY � ,ox,oy
� screen% � overlay%=0 � �
$� circles% � �circle(ox,oy,r,f%)
� title% � overlay%=0 �
&5  ș "Font_FindFont",,font$,24*16,24*16,0,0 � fh%
09  ș "ColourTrans_SetFontColours",fh%,b%,&FFFF0000,14
:A  ș "Font_Paint",fh%,�25+�-16+�16+text$,%110001<<4,0,yos%-96
D  ș "Font_LoseFont",fh%
N�
X
b5ș "Font_FindFont",,font$,size%,height%,0,0 � fh%
l7ș "ColourTrans_SetFontColours",fh%,b%,&00FFFF00,14
v
�
!coord%=0
�coord%!4=0
�coord%!8=0
�coord%!12=0
�coord%!16=-1
�<ș "Font_ScanString",fh%,text%,(1<<18)+(1<<5),z,z,coord%
�hy=coord%!32
�&ș "Font_ConverttoOS",,,hy � ,,hy%
�� circles% �
�  � move �
�5    �circle(ox,oy,r+hy*move+�(move)*hy,&66666600)
�  �
�%    �circle(ox,oy,r+hy,&AAAAAA00)
  �
�
rr=r+move*hy
 � ptr%=0 � �(text$)-1
*ș "Hourglass_On"
4_ș "Font_ScanString",fh%,text%+ptr%,(reverse%<<10)+(1<<20)+(%11100<<5),z,z,,T%,1 � ,,,W%,H%
>	B%=W%
H'� ptr%=0 � a-=�(�(clock%*B%/(2*r)))
Rb=(a+�(�(clock%*B%/(2*r))))
\T=rot+�(90-b):� *****
f$!T% =&10000*�T :T%!4 =&10000*-�T
p#T%!8=&10000*�T :T%!12=&10000*�T
zb=�(a+�(�(clock%*B%/(r))))
�X%=rr*�b+ox
�Y%=rr*�b+oy
�� � draw% �
�G  � black% � ș "ColourTrans_SetFontColours",&FFFFFF00,&00000000,14
�K  ș "Font_Paint",fh%,text%+ptr%,(reverse%<<10)+(%11110<<5),X%,Y%,,T%,1
��
�a+=�(�(clock%*B%/r))
�ș "Hourglass_Off"
�
� ptr%
�ș "Font_LoseFont",fh%
�� path%=0 � �:G=�
�b%=0:f%=&FFFFFF00
��
	:
	� �write(str$)
	'ș "Font_ReadInfo",fh% � ,,ly%,,hy%
	$8gap%=(1.1*(hy%-ly%)+(1<<yeig%)-1) � � ((1<<yeig%)-1)
	.row%-=gap%
	83ș "Font_Paint",fh%,str$,(%11<<8)+(1<<4),0,row%
	B�
	L:
	V� �get(dis$,ans%,max%)
	`� done%
	j�write(dis$)
	tKș "Font_ScanString",fh%,dis$,(1<<20)+%1110000000,z,z,,,�(dis$) � ,,,x%
	~7ș "ColourTrans_SetFontColours",fh%,b%,&00AAFF00,14
	�;ș "ColourTrans_ReturnColourNumber",&00FFFF00 � colour%
	�'ș "Font_ReadInfo",fh% � ,,ly%,,hy%
	�ch%=hy%-ly%
	�1ș "Font_Converttopoints",,hy%,ly% � ,hy%,ly%
	�ptr%=�(�0(ans%))
	�+ș "Font_Converttopoints",,,row% � ,,y%
	�ddone%=�
	�
!coord%=0
	�coord%!4=0
	�coord%!8=0
	�coord%!12=0
	�coord%!16=0
coord%!20=0

coord%!24=0
coord%!28=0
ȕ � done%
(8Ȗ:ș "Font_Paint",fh%,ans%,%1100100010,x%,y%,coord%
26ș "Font_ScanString",fh%,ans%,(%11<<8),z,z � ,,,w%
<coord%!16=x%-6000
Fcoord%!20=y%+ly%-6000
Pcoord%!24=x%+w%+6000
Zcoord%!28=y%+hy%+3000
dKș "Font_ScanString",fh%,ans%,(1<<20)+(%111<<7),z,z,,,ptr% � ,,,cx%,cy%
n/ș "Font_Caret",colour%,ch%,0,x%+cx%,y%+ly%
xk%=�
�Ȏ k% �
�� 21:?ans%=0:ptr%=0
�� 13
�9  ș "ColourTrans_SetFontColours",fh%,b%,&00FFFF00,14
�7  ș "Font_Paint",fh%,ans%,%1100100010,x%,y%,coord%
�
  done%=�
�� 136:ptr%-=1
�� 137:ptr%+=1
�� 138:ptr%=�(�0(ans%))
�� 139:ptr%=0
�� 127,8:� ptr%>0 � �delchar
�/� 135:� ptr%<�(�0(ans%)) � ptr%+=1:�delchar
�
!� k%>=32 � k%<>127 � �inschar
�
� ptr%<0 � ptr%=0
")� ptr%>�(�0(ans%)) � ptr%=�(�0(ans%))
,;� � done% � ș "Font_Caret",colour%,ch%,0,x%+cx%,y%+ly%
6�
@0ș "ColourTrans_SetFontColours",fh%,b%,f%,14
J
=�0(ans%)
T:
^� �delchar
h� n%
r6� n%=ans%+ptr% � ans%+�(�0(ans%)):?(n%-1)=?n%:� n%
|ptr%-=1
��
�:
�� �inschar
�� �(�0(ans%))>=max% � �7:�
�� n%
�;� n%=ans%+�(�0(ans%)) � ans%+ptr% � -1:?(n%+1)=?n%:� n%
�?(ans%+ptr%)=k%
�ptr%+=1
��
�:
�� �0(s%)
�� s$
�	s$=""

ȕ ?s%<>0
s$+=�(?s%)
	s%+=1
&�
0=s$
::
D� �bank(bank)
Nș "OS_Byte",112,bank
Xș "OS_Byte",113,bank
b�
l:
v� �error
�� path% � �finishpath
�� object% � �finishobj
�&� buff% � ș "XOS_Module",7,,buff%
�ș "Hourglass_Smash"
�� �$+" at line "+Þ
�#� fh% � ș "XFont_LoseFont",fh%
�%� sym% � ș "XFont_LoseFont",sym%
�ș6,4,0
�
*SHADOW 1
��
�:
�� �menu
�grow%=row%

edit%=�

'ș "Font_ReadInfo",fh% � ,,ly%,,hy%

6gap%=(1*(hy%-ly%)+(1<<yeig%)-1) � � ((1<<yeig%)-1)

 row%-=gap%

*7ș "Font_Converttopoints",,gap%,row% � ,gapp%,rowp%

4-ș "Font_Converttopoints",,xos% � ,scr_w%

>/ș "Font_Converttopoints",,ly%,hy% � ,ly,hy

H:ș "Font_ScanString",fh%,"Menu",%11<<8,z,z � ,,,str_w%

RAș "Font_Paint",fh%,�25+�-16+�16+" Menu ",%11<<8,150000,rowp%

\#� row%-=.5*gap%:rowp%-=.5*gapp%

f
sel%=1

p� n=1 � items%

z�menuitem(n)

�� n

�menudone%=�

�ȕ menudone%=�

�osel%=sel%

�k%=�

�Ȏ k% �

�� 13:� �(fns$(sel%))

�� 138:sel%+=1

�� 139:sel%-=1

��

�� sel%<1 � sel%=1

�� sel%>items% � sel%=items%

��menuitem(osel%)
�menuitem(sel%)
�
row%=grow%
$�
.:
8� �menuitem(n)
B
!coord%=0
Lcoord%!4=0
Vcoord%!8=0
`coord%!12=0
jcoord%!16=0
tcoord%!20=rowp%-n*gapp%+ly
~coord%!24=scr_w%
�coord%!28=rowp%-n*gapp%+hy
�1ș "ColourTrans_SetFontColours",sym%,b%,f%,14
�
Ȏ sel% �
�~  � n   :� log2bpp%<1 � ș "ColourTrans_SetFontColours",fh%,&00FFFF00,b%,14:� ș "ColourTrans_SetFontColours",fh%,b%,f%,14
�4  :ș "ColourTrans_SetFontColours",fh%,b%,f%,14
��
�Tș "Font_Paint",sym%,"b",%1110100010,110000,rowp%-n*gapp%,coord%,,�(�(tick%(n)))
�
Ȏ sel% �
؅  � n   :� log2bpp%<1 � ș "ColourTrans_SetFontColours",fh%,&00FFFF00,b%,14:� ș "ColourTrans_SetFontColours",fh%,b%,&00FFFF00,14
�;  :ș "ColourTrans_SetFontColours",fh%,b%,&00FF0000,14
��
�<ș "Font_Paint",fh%,menu$(n),%11<<8,136000,rowp%-n*gapp%
�

:
� �setupmenu
� n
(
� �dzO
2� items%
<.� menu$(items%),fns$(items%),tick%(items%)
F� n=1 � items%
P� menu$(n),fns$(n),tick%(n)
Z� n
d7ș "Font_FindFont",,"Selwyn",18*16,18*16,0,0 � sym%
nreverse%=1
xoverlay%=�
�clock%=1
�path%=�
�buff%=0
�	rot=0
�
move=0
�def_move=0
�
shot=1
�
path=1
�
objn=1
�
object%=�
��
�:
�� 9
� "Draw","FNdraw",0
� "Edit & Draw","FNedit",0
!� "Make Draw path","FNpath",0
"C�  "Make Draw object","FNobject",0 :REM ******** Not working **
,� "Overlay","FNoverlay",0
6%� "Reverse writing","FNreverse",0
@&� "Anti-clockwise","FNanticlock",0
J� "Move","FNmove",0
T$� "Screen shot","FNscreenshot",0
^� "Quit","FNquit",0
h:
r� �draw
|menudone%=�
�=0
�� �edit
�edit%=�
�menudone%=�
�=0
�� �path
�tick%(sel%)=� tick%(sel%)
�� tick%(sel%) �
�
  path%=�
�  pn$="@.Path"
�2  menu$(sel%)="Make Draw path ("+pn$+�path+")"
�  �menuitem(sel%)
��
  �finishpath

  path+=1

  buff%=0
&"  menu$(sel%)="Make Draw path"
0�
:=0
D
� �object
Ntick%(sel%)=� tick%(sel%)
X� tick%(sel%) �
b  object%=�
l  on$="@.Draw"
v4  menu$(sel%)="Make Draw object ("+on$+�objn+")"
�  �menuitem(sel%)
��
�  �finishobj
�
  objn+=1
�
  buff%=0
�$  menu$(sel%)="Make Draw object"
��
�=0
�� �anticlock
�tick%(sel%)=� tick%(sel%)
�reverse%=1-reverse%
�=0
�� �reverse
tick%(sel%)=� tick%(sel%)
clock%=-clock%
5� tick%(sel%) � move=def_move+0.9:� move=def_move
 #� tick%(sel%) � rot=�  :� rot=0
*=0
4� �move
>	A%=@%
H@%="+F10.2"
R� k%
\tick%(sel%)=� tick%(sel%)
f� tick%(sel%) �
p  move=def_move
z  movedone%=�
�  ȕ movedone%=0
�m  menu$(sel%)="Move (Height � "+�19+�0+�0+�0+�&FF+�&FF+�&FF+�14+�(move)+�19+�0+�0+�0+�&11+�255+�0+�14+")"
�  �menuitem(sel%)
�
  k%=�
�
  Ȏ k% �
�$  � 13:tick%(sel%)=�:movedone%=�
�  � 32:movedone%=�
�  � 139:move+=0.05
�  � 138:move-=0.05
�  � 136:move-=0.5
�  � 137:move+=0.5
�  �
�  def_move=move
  �
/  menu$(sel%)="Move (Height � "+�(move)+")"
  �menuitem(sel%)
$�
./� tick%(sel%)=0 � move=0:menu$(sel%)="Move"
8	@%=A%
B=0
L� �overlay
Vtick%(sel%)=� tick%(sel%)
`overlay%=� overlay%
j=0
t� �screenshot
~tick%(sel%)=�
�fn$="@.Screen"+�shot
�'menu$(sel%)="Screen shot ("+fn$+")"
��menuitem(sel%)
��G=�:�G=32 � G=13
��G=32 �
�  �bank(2)
�  � "ScreenSave "+fn$
�  �bank(1)
��
�shot+=1
�tick%(sel%)=�
�menu$(sel%)="Screen shot"
=0

� �quit
menudone%=�
quit%=�
(=0
2:
<� �header(buff%)
F$buff%="Draw"
Pbuff%!4=201
Z
buff%!8=0
d$(buff%+12)="AU FitC "
nbuff%!20=0
xbuff%!24=&7FFFFFFF
�buff%!28=&7FFFFFFF
�buff%!32=0
�buff%!36=0
�
=buff%+40
�:
�� �finishpath
�  � path% �
�(  ș "Font_SwitchOutputToBuffer",0,0
�
  path%=�
�'  � buff% � �calcBB(buff%,buffptr%)
�\  � buff% � � "Save "+pn$+�path+" "+�~buff%+" "+�~buffptr%:� "SetType "+pn$+�path+" AFF"
�(  � buff% � ș "XOS_Module",7,,buff%
�
  buff%=0
�
�
:
"� �finishobj
,  � object% � buff% �
6  �calcBB(buff%,buffptr%)
@W  OSLI "Save "+on$+�objn%+" "+�~buff%+" "+�~buffptr%:� "SetType "+on$+�objn%+" AFF"
J&  ș "XOS_Module",7,,buff%:buff%=0
T�
^
h:
r� �calcBB(base%,end%)
|� ptr%,done%
�ptr%=base%+40
�done%=�
�ȕ � done%
�� !ptr%=2 �
�)  � ptr%!8<base%!24 � base%!24=ptr%!8
�+  � ptr%!12<base%!28 � base%!28=ptr%!12
�+  � ptr%!16>base%!32 � base%!32=ptr%!16
�+  � ptr%!20>base%!36 � base%!36=ptr%!20
��
�ptr%+=ptr%!4
�� ptr%>=end% � done%=�
��
��
:
� �add(val%)
!buffptr%=val%
&buffptr%+=4
0�
::
D� �xy(x%,y%)
N!buffptr%=x%
Xbuffptr%!4=y%
bbuffptr%+=8
l�
v:
�*� �circle_object(buffptr%,ox,oy,r,col)
�� _buff%,path%
�_buff%=buffptr%
��add(2) :� path
�buffptr%+=5*4
�)�add(-1) :�add(col) :�add(0) :�add(0)
�path%=buffptr%
�4buffptr%=�circle_path(buffptr%,ox,oy,r,buffend%)
�<ș "Draw_ProcessPath",path%,3<<28,,,0,,,(1<<31)+_buff%+8
�buffptr%-=4
�_buff%!4=buffptr%-_buff%
�
=buffptr%
�:
-� �circle_path(buffptr%,ox,oy,r,buffend%)
� f,n:f=1.5625
ox=ox/f :oy=oy/f :r=r/f
 n=r/1.8
*�add(2):�xy(ox,oy+r)
46�add(6):�xy(ox+n,oy+r):�xy(ox+r,oy+n):�xy(ox+r,oy)
>6�add(6):�xy(ox+r,oy-n):�xy(ox+n,oy-r):�xy(ox,oy-r)
H6�add(6):�xy(ox-n,oy-r):�xy(ox-r,oy-n):�xy(ox-r,oy)
R6�add(6):�xy(ox-r,oy+n):�xy(ox-n,oy+r):�xy(ox,oy+r)
\�add(5):�add(0)
f5� buffend% � �add(buffend%-buffptr%-16):� �add(0)
p
=buffptr%
z:
�� �circle(ox,oy,r,col)
��� path% � buff% � buffptr%=�circle_object(buffptr%,ox,oy,r,col):!buffptr%=0:buffsize%=buffend%-buffptr%-8:buffptr%!4=buffsize%:�
�� screen%=0 � �
� ș "ColourTrans_SetGCOL",col
�'� �circle_path(tempbuff%,ox,oy,r,0)
�7!capjoin%=2:capjoin%!4=0:capjoin%!8=0:capjoin%!12=0
�1ș "Draw_Stroke",tempbuff%,,,,1024,capjoin%,0
��
�

00000000  0d 00 0a 10 f4 20 3e 43  69 72 63 6c 65 46 69 74  |..... >CircleFit|
00000010  0d 00 14 15 f4 20 42 79  20 41 6e 64 72 65 77 20  |..... By Andrew |
00000020  42 6f 77 65 72 0d 00 1e  16 f4 20 32 34 74 68 20  |Bower..... 24th |
00000030  41 75 67 75 73 74 20 31  39 39 34 0d 00 28 1f f4  |August 1994..(..|
00000040  20 56 65 72 73 69 6f 6e  20 30 2e 35 31 20 28 34  | Version 0.51 (4|
00000050  20 4d 61 72 20 31 39 39  35 29 0d 00 32 05 3a 0d  | Mar 1995)..2.:.|
00000060  00 3c 38 f4 20 4d 4f 44  45 20 31 32 38 2b 31 38  |.<8. MODE 128+18|
00000070  3a 47 4f 54 4f 20 32 30  30 3a 52 45 4d 20 49 66  |:GOTO 200:REM If|
00000080  20 79 6f 75 20 61 20 61  72 65 20 63 6f 6c 6f 75  | you a are colou|
00000090  72 62 6c 69 6e 64 2e 0d  00 46 05 3a 0d 00 50 31  |rblind...F.:..P1|
000000a0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
000000b0  61 72 69 61 62 6c 65 22  2c 2d 31 2c 37 20 b8 20  |ariable",-1,7 . |
000000c0  2c 2c 73 63 72 65 65 6e  73 69 7a 65 25 0d 00 5a  |,,screensize%..Z|
000000d0  34 c8 99 20 22 4f 53 5f  52 65 61 64 44 79 6e 61  |4.. "OS_ReadDyna|
000000e0  6d 69 63 41 72 65 61 22  2c 31 32 38 2b 32 20 b8  |micArea",128+2 .|
000000f0  20 2c 73 63 72 6d 65 6d  25 2c 73 63 72 6d 61 78  | ,scrmem%,scrmax|
00000100  25 0d 00 64 1d e7 20 73  63 72 6d 65 6d 25 3c 32  |%..d.. scrmem%<2|
00000110  2a 73 63 72 65 65 6e 73  69 7a 65 25 20 8c 0d 00  |*screensize% ...|
00000120  6e 1f 20 20 e7 20 73 63  72 6d 61 78 25 3c 32 2a  |n.  . scrmax%<2*|
00000130  73 63 72 65 65 6e 73 69  7a 65 25 20 8c 0d 00 78  |screensize% ...x|
00000140  34 20 20 20 20 85 20 30  2c 22 50 6c 65 61 73 65  |4    . 0,"Please|
00000150  20 73 77 69 74 63 68 20  74 6f 20 61 20 73 6d 61  | switch to a sma|
00000160  6c 6c 65 72 20 73 63 72  65 65 6e 20 6d 6f 64 65  |ller screen mode|
00000170  22 0d 00 82 07 20 20 cd  0d 00 8c 38 20 20 c8 99  |"....  ....8  ..|
00000180  20 22 58 4f 53 5f 43 68  61 6e 67 65 44 79 6e 61  | "XOS_ChangeDyna|
00000190  6d 69 63 41 72 65 61 22  2c 32 2c 32 2a 73 63 72  |micArea",2,2*scr|
000001a0  65 65 6e 73 69 7a 65 25  2d 73 63 72 6d 65 6d 25  |eensize%-scrmem%|
000001b0  0d 00 96 05 cd 0d 00 a0  32 c8 99 20 22 4f 53 5f  |........2.. "OS_|
000001c0  52 65 61 64 44 79 6e 61  6d 69 63 41 72 65 61 22  |ReadDynamicArea"|
000001d0  2c 31 33 30 20 b8 20 2c  73 63 72 6d 65 6d 25 2c  |,130 . ,scrmem%,|
000001e0  73 63 72 6d 61 78 25 0d  00 aa 1d e7 20 73 63 72  |scrmax%..... scr|
000001f0  6d 65 6d 25 3c 32 2a 73  63 72 65 65 6e 73 69 7a  |mem%<2*screensiz|
00000200  65 25 20 8c 0d 00 b4 32  20 20 85 20 30 2c 22 50  |e% ....2  . 0,"P|
00000210  6c 65 61 73 65 20 73 77  69 74 63 68 20 74 6f 20  |lease switch to |
00000220  61 20 73 6d 61 6c 6c 65  72 20 73 63 72 65 65 6e  |a smaller screen|
00000230  20 6d 6f 64 65 22 0d 00  be 05 cd 0d 00 c8 05 3a  | mode".........:|
00000240  0d 00 d2 08 c8 97 20 87  0d 00 dc 37 f4 20 4d 4f  |...... ....7. MO|
00000250  44 45 20 4d 4f 44 45 20  3a 52 45 4d 20 49 66 20  |DE MODE :REM If |
00000260  79 6f 75 20 77 69 73 68  20 74 6f 20 67 61 69 6e  |you wish to gain|
00000270  20 61 20 62 6c 61 63 6b  20 62 6f 72 64 65 72 0d  | a black border.|
00000280  00 e6 05 3a 0d 00 f0 0a  2a 46 58 34 2c 31 0d 00  |...:....*FX4,1..|
00000290  fa 19 66 68 25 3d 30 3a  73 79 6d 25 3d 30 3a 62  |..fh%=0:sym%=0:b|
000002a0  6c 61 63 6b 25 3d a3 0d  01 04 1d 70 61 74 68 25  |lack%=.....path%|
000002b0  3d 30 3a 62 75 66 66 25  3d 30 3a 6f 62 6a 65 63  |=0:buff%=0:objec|
000002c0  74 25 3d 30 0d 01 0e 0e  ee 20 85 20 f2 65 72 72  |t%=0..... . .err|
000002d0  6f 72 0d 01 18 05 87 0d  01 22 0c f2 62 61 6e 6b  |or......."..bank|
000002e0  28 31 29 0d 01 2c 05 db  0d 01 36 15 62 25 3d 30  |(1)..,....6.b%=0|
000002f0  3a 66 25 3d 26 46 46 46  46 46 46 30 30 0d 01 40  |:f%=&FFFFFF00..@|
00000300  32 6d 6f 64 65 76 61 72  25 3d 26 33 35 3a f4 20  |2modevar%=&35:. |
00000310  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00000320  61 62 6c 65 22 20 2e 2e  2e 2e 2e 2e 2e 2e 2e 0d  |able" ..........|
00000330  01 4a 21 c8 99 20 6d 6f  64 65 76 61 72 25 2c 2d  |.J!.. modevar%,-|
00000340  31 2c 39 20 b8 20 2c 2c  6c 6f 67 32 62 70 70 25  |1,9 . ,,log2bpp%|
00000350  0d 01 54 1e c8 99 20 6d  6f 64 65 76 61 72 25 2c  |..T... modevar%,|
00000360  2d 31 2c 34 20 b8 20 2c  2c 78 65 69 67 25 0d 01  |-1,4 . ,,xeig%..|
00000370  5e 1e c8 99 20 6d 6f 64  65 76 61 72 25 2c 2d 31  |^... modevar%,-1|
00000380  2c 35 20 b8 20 2c 2c 79  65 69 67 25 0d 01 68 39  |,5 . ,,yeig%..h9|
00000390  c8 99 20 6d 6f 64 65 76  61 72 25 2c 2d 31 2c 31  |.. modevar%,-1,1|
000003a0  31 20 b8 2c 2c 78 70 69  78 25 3a 78 70 69 78 25  |1 .,,xpix%:xpix%|
000003b0  2b 3d 31 3a 78 6f 73 25  3d 78 70 69 78 25 3c 3c  |+=1:xos%=xpix%<<|
000003c0  78 65 69 67 25 0d 01 72  39 c8 99 20 6d 6f 64 65  |xeig%..r9.. mode|
000003d0  76 61 72 25 2c 2d 31 2c  31 32 20 b8 2c 2c 79 70  |var%,-1,12 .,,yp|
000003e0  69 78 25 3a 79 70 69 78  25 2b 3d 31 3a 79 6f 73  |ix%:ypix%+=1:yos|
000003f0  25 3d 79 70 69 78 25 3c  3c 79 65 69 67 25 0d 01  |%=ypix%<<yeig%..|
00000400  7c 11 c8 8e 20 6c 6f 67  32 62 70 70 25 20 ca 0d  ||... log2bpp% ..|
00000410  01 86 07 c9 20 32 0d 01  90 3f c8 99 20 22 46 6f  |.... 2...?.. "Fo|
00000420  6e 74 5f 53 65 74 50 61  6c 65 74 74 65 22 2c 2c  |nt_SetPalette",,|
00000430  30 2c 20 31 2c 32 2c 62  25 2c 26 46 46 46 46 46  |0, 1,2,b%,&FFFFF|
00000440  46 30 30 2c 26 36 35 37  35 37 32 35 34 3a f4 20  |F00,&65757254:. |
00000450  77 68 69 74 65 0d 01 9a  3e c8 99 20 22 46 6f 6e  |white...>.. "Fon|
00000460  74 5f 53 65 74 50 61 6c  65 74 74 65 22 2c 2c 30  |t_SetPalette",,0|
00000470  2c 20 34 2c 32 2c 62 25  2c 26 46 46 46 46 30 30  |, 4,2,b%,&FFFF00|
00000480  30 30 2c 26 36 35 37 35  37 32 35 34 3a f4 20 63  |00,&65757254:. c|
00000490  79 61 6e 0d 01 a4 40 c8  99 20 22 46 6f 6e 74 5f  |yan...@.. "Font_|
000004a0  53 65 74 50 61 6c 65 74  74 65 22 2c 2c 30 2c 20  |SetPalette",,0, |
000004b0  37 2c 33 2c 62 25 2c 26  30 30 46 46 46 46 30 30  |7,3,b%,&00FFFF00|
000004c0  2c 26 36 35 37 35 37 32  35 34 3a f4 20 79 65 6c  |,&65757254:. yel|
000004d0  6c 6f 77 0d 01 ae 40 c8  99 20 22 46 6f 6e 74 5f  |low...@.. "Font_|
000004e0  53 65 74 50 61 6c 65 74  74 65 22 2c 2c 30 2c 31  |SetPalette",,0,1|
000004f0  31 2c 32 2c 62 25 2c 26  30 30 41 41 46 46 30 30  |1,2,b%,&00AAFF00|
00000500  2c 26 36 35 37 35 37 32  35 34 3a f4 20 6f 72 61  |,&65757254:. ora|
00000510  6e 67 65 0d 01 b8 3f c8  99 20 22 46 6f 6e 74 5f  |nge...?.. "Font_|
00000520  53 65 74 50 61 6c 65 74  74 65 22 2c 2c 30 2c 31  |SetPalette",,0,1|
00000530  34 2c 31 2c 62 25 2c 26  30 30 46 46 31 31 30 30  |4,1,b%,&00FF1100|
00000540  2c 26 36 35 37 35 37 32  35 34 3a f4 20 67 72 65  |,&65757254:. gre|
00000550  65 6e 0d 01 c2 07 c9 20  31 0d 01 cc 13 fb 20 30  |en..... 1..... 0|
00000560  2c 26 30 30 2c 26 30 30  2c 26 30 30 0d 01 d6 13  |,&00,&00,&00....|
00000570  fb 20 31 2c 26 46 46 2c  26 46 46 2c 26 46 46 0d  |. 1,&FF,&FF,&FF.|
00000580  01 e0 13 fb 20 32 2c 26  46 46 2c 26 46 46 2c 26  |.... 2,&FF,&FF,&|
00000590  30 30 0d 01 ea 13 fb 20  33 2c 26 30 30 2c 26 46  |00..... 3,&00,&F|
000005a0  46 2c 26 46 46 0d 01 f4  05 cb 0d 01 fe 24 c8 99  |F,&FF........$..|
000005b0  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 49 6e  | "ColourTrans_In|
000005c0  76 61 6c 69 64 61 74 65  43 61 63 68 65 22 0d 02  |validateCache"..|
000005d0  08 0f 7a 3d 26 37 46 46  46 46 46 46 46 0d 02 12  |..z=&7FFFFFFF...|
000005e0  2a c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |*.. "ColourTrans|
000005f0  5f 53 65 74 47 43 4f 4c  22 2c 62 25 2c 2c 2c 25  |_SetGCOL",b%,,,%|
00000600  30 31 3c 3c 37 3a da 0d  02 1c 1f c8 99 20 22 43  |01<<7:....... "C|
00000610  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00000620  4f 4c 22 2c 66 25 0d 02  26 25 c8 99 20 22 43 6f  |OL",f%..&%.. "Co|
00000630  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 54 65 78  |lourTrans_SetTex|
00000640  74 43 6f 6c 6f 75 72 22  2c 66 25 0d 02 30 0e f2  |tColour",f%..0..|
00000650  73 65 74 75 70 6d 65 6e  75 0d 02 3a 0b 65 64 69  |setupmenu..:.edi|
00000660  74 25 3d b9 0d 02 44 0b  71 75 69 74 25 3d a3 0d  |t%=...D.quit%=..|
00000670  02 4e 0f da 3a 72 6f 77  25 3d 79 6f 73 25 0d 02  |.N..:row%=yos%..|
00000680  58 0e de 20 61 6e 73 25  20 32 35 36 0d 02 62 11  |X.. ans% 256..b.|
00000690  de 20 63 6f 6f 72 64 25  20 31 36 2a 34 0d 02 6c  |. coord% 16*4..l|
000006a0  26 de 20 54 25 20 36 2a  34 2c 74 65 6d 70 62 75  |&. T% 6*4,tempbu|
000006b0  66 66 25 20 32 35 36 2c  63 61 70 6a 6f 69 6e 25  |ff% 256,capjoin%|
000006c0  20 33 32 0d 02 76 3c de  20 5f 66 6f 6e 74 25 20  | 32..v<. _font% |
000006d0  31 32 38 2c 5f 73 69 7a  65 25 20 33 32 2c 5f 74  |128,_size% 32,_t|
000006e0  65 78 74 25 20 32 35 36  2c 5f 61 6e 67 6c 65 25  |ext% 256,_angle%|
000006f0  20 33 32 2c 5f 72 61 64  69 75 73 25 20 33 32 0d  | 32,_radius% 32.|
00000700  02 80 1f 24 5f 66 6f 6e  74 25 3d 22 54 72 69 6e  |...$_font%="Trin|
00000710  69 74 79 2e 4d 65 64 69  75 6d 22 2b bd 30 0d 02  |ity.Medium"+.0..|
00000720  8a 13 24 5f 73 69 7a 65  25 3d 22 34 38 22 2b bd  |..$_size%="48"+.|
00000730  30 0d 02 94 25 24 5f 74  65 78 74 25 3d 22 54 68  |0...%$_text%="Th|
00000740  65 20 71 75 69 63 6b 20  62 72 6f 77 6e 20 66 6f  |e quick brown fo|
00000750  78 21 22 2b bd 30 0d 02  9e 16 24 5f 61 6e 67 6c  |x!"+.0....$_angl|
00000760  65 25 3d 22 31 38 30 b0  22 2b bd 30 0d 02 a8 18  |e%="180."+.0....|
00000770  24 5f 72 61 64 69 75 73  25 3d 22 31 2e 38 22 22  |$_radius%="1.8""|
00000780  22 2b bd 30 0d 02 b2 04  0d 02 bc 0e c8 95 20 ac  |"+.0.......... .|
00000790  20 71 75 69 74 25 0d 02  c6 0c c8 95 20 65 64 69  | quit%...... edi|
000007a0  74 25 0d 02 d0 0d 72 6f  77 25 3d 79 6f 73 25 0d  |t%....row%=yos%.|
000007b0  02 da 3f c8 99 20 22 46  6f 6e 74 5f 46 69 6e 64  |..?.. "Font_Find|
000007c0  46 6f 6e 74 22 2c 2c 22  48 6f 6d 65 72 74 6f 6e  |Font",,"Homerton|
000007d0  2e 4d 65 64 69 75 6d 22  2c 31 38 2a 31 36 2c 31  |.Medium",18*16,1|
000007e0  38 2a 31 36 2c 30 2c 30  20 b8 20 66 68 25 0d 02  |8*16,0,0 . fh%..|
000007f0  e4 30 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.0.. "ColourTran|
00000800  73 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |s_SetFontColours|
00000810  22 2c 66 68 25 2c 62 25  2c 66 25 2c 31 34 0d 02  |",fh%,b%,f%,14..|
00000820  ee 0f 67 6f 6f 64 66 6f  6e 74 25 3d a3 0d 02 f8  |..goodfont%=....|
00000830  12 c8 95 20 ac 20 67 6f  6f 64 66 6f 6e 74 25 0d  |... . goodfont%.|
00000840  03 02 25 20 20 66 6f 6e  74 24 3d a4 67 65 74 28  |..%  font$=.get(|
00000850  22 46 6f 6e 74 3a 20 22  2c 5f 66 6f 6e 74 25 2c  |"Font: ",_font%,|
00000860  31 32 38 29 0d 03 0c 37  20 20 c8 99 20 22 58 46  |128)...7  .. "XF|
00000870  6f 6e 74 5f 46 69 6e 64  46 6f 6e 74 22 2c 2c 66  |ont_FindFont",,f|
00000880  6f 6e 74 24 2c 31 2c 31  2c 30 2c 30 20 b8 20 74  |ont$,1,1,0,0 . t|
00000890  65 6d 70 25 3b 66 6c 61  67 73 25 0d 03 16 14 20  |emp%;flags%.... |
000008a0  20 e7 20 66 6c 61 67 73  25 20 80 20 31 20 8c 0d  | . flags% . 1 ..|
000008b0  03 20 3b 20 20 20 20 c8  99 20 22 43 6f 6c 6f 75  |. ;    .. "Colou|
000008c0  72 54 72 61 6e 73 5f 53  65 74 46 6f 6e 74 43 6f  |rTrans_SetFontCo|
000008d0  6c 6f 75 72 73 22 2c 66  68 25 2c 62 25 2c 26 46  |lours",fh%,b%,&F|
000008e0  46 46 46 30 30 30 30 2c  31 34 0d 03 2a 41 20 20  |FFF0000,14..*A  |
000008f0  20 20 f2 77 72 69 74 65  28 22 20 20 20 20 20 20  |  .write("      |
00000900  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000910  20 20 20 2a 2a 2a 20 46  6f 6e 74 20 6e 6f 74 20  |   *** Font not |
00000920  66 6f 75 6e 64 20 2a 2a  2a 22 29 0d 03 34 0b 20  |found ***")..4. |
00000930  20 20 20 e7 20 a5 0d 03  3e 13 20 20 20 20 da 3a  |   . ...>.    .:|
00000940  72 6f 77 25 3d 79 6f 73  25 0d 03 48 34 20 20 20  |row%=yos%..H4   |
00000950  20 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  | .. "ColourTrans|
00000960  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
00000970  2c 66 68 25 2c 62 25 2c  66 25 2c 31 34 0d 03 52  |,fh%,b%,f%,14..R|
00000980  07 20 20 cc 0d 03 5c 20  20 20 20 20 c8 99 20 22  |.  ...\     .. "|
00000990  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 74  |Font_LoseFont",t|
000009a0  65 6d 70 25 0d 03 66 13  20 20 20 20 67 6f 6f 64  |emp%..f.    good|
000009b0  66 6f 6e 74 25 3d b9 0d  03 70 07 20 20 cd 0d 03  |font%=...p.  ...|
000009c0  7a 05 ce 0d 03 84 27 73  69 7a 65 24 3d a4 67 65  |z.....'size$=.ge|
000009d0  74 28 22 46 6f 6e 74 20  73 69 7a 65 3a 20 22 2c  |t("Font size: ",|
000009e0  5f 73 69 7a 65 25 2c 33  31 29 0d 03 8e 16 63 6f  |_size%,31)....co|
000009f0  6c 6f 6e 25 3d a7 73 69  7a 65 24 2c 22 3a 22 29  |lon%=.size$,":")|
00000a00  0d 03 98 16 63 6f 6d 6d  61 25 3d a7 73 69 7a 65  |....comma%=.size|
00000a10  24 2c 22 2c 22 29 0d 03  a2 15 73 69 7a 65 25 3d  |$,",")....size%=|
00000a20  31 36 2a bb 28 73 69 7a  65 24 29 0d 03 ac 11 68  |16*.(size$)....h|
00000a30  65 69 67 68 74 25 3d 73  69 7a 65 25 0d 03 b6 2d  |eight%=size%...-|
00000a40  e7 20 63 6f 6d 6d 61 25  20 8c 20 68 65 69 67 68  |. comma% . heigh|
00000a50  74 25 3d 31 36 2a bb 28  c1 73 69 7a 65 24 2c 63  |t%=16*.(.size$,c|
00000a60  6f 6d 6d 61 25 2b 31 29  29 0d 03 c0 2d e7 20 63  |omma%+1))...-. c|
00000a70  6f 6c 6f 6e 25 20 8c 20  68 65 69 67 68 74 25 3d  |olon% . height%=|
00000a80  31 36 2a bb 28 c1 73 69  7a 65 24 2c 63 6f 6c 6f  |16*.(.size$,colo|
00000a90  6e 25 2b 31 29 29 0d 03  ca 23 74 65 78 74 24 3d  |n%+1))...#text$=|
00000aa0  a4 67 65 74 28 22 54 65  78 74 3a 20 22 2c 5f 74  |.get("Text: ",_t|
00000ab0  65 78 74 25 2c 32 35 36  29 0d 03 d4 25 72 3d bb  |ext%,256)...%r=.|
00000ac0  28 a4 67 65 74 28 22 52  61 64 69 75 73 3a 20 22  |(.get("Radius: "|
00000ad0  2c 5f 72 61 64 69 75 73  25 2c 33 31 29 29 0d 03  |,_radius%,31))..|
00000ae0  de 23 61 3d bb 28 a4 67  65 74 28 22 53 74 61 72  |.#a=.(.get("Star|
00000af0  74 3a 20 22 2c 5f 61 6e  67 6c 65 25 2c 33 31 29  |t: ",_angle%,31)|
00000b00  29 0d 03 e8 2c 24 5f 73  69 7a 65 25 3d c3 28 73  |)...,$_size%=.(s|
00000b10  69 7a 65 25 81 31 36 29  2b 22 3a 22 2b c3 28 68  |ize%.16)+":"+.(h|
00000b20  65 69 67 68 74 25 81 31  36 29 2b bd 30 0d 03 f2  |eight%.16)+.0...|
00000b30  28 24 5f 72 61 64 69 75  73 25 3d c3 28 bb 28 a4  |($_radius%=.(.(.|
00000b40  30 28 5f 72 61 64 69 75  73 25 29 29 29 2b 22 22  |0(_radius%)))+""|
00000b50  22 22 2b bd 30 0d 03 fc  25 24 5f 61 6e 67 6c 65  |""+.0...%$_angle|
00000b60  25 3d c3 28 bb 28 a4 30  28 5f 61 6e 67 6c 65 25  |%=.(.(.0(_angle%|
00000b70  29 29 29 2b 22 b0 22 2b  bd 30 0d 04 06 1a c8 99  |)))+"."+.0......|
00000b80  20 22 46 6f 6e 74 5f 4c  6f 73 65 46 6f 6e 74 22  | "Font_LoseFont"|
00000b90  2c 66 68 25 0d 04 10 0d  72 3d 72 2a 37 32 30 30  |,fh%....r=r*7200|
00000ba0  30 0d 04 1a 0b 65 64 69  74 25 3d a3 0d 04 24 05  |0....edit%=...$.|
00000bb0  ce 0d 04 2e 0c f2 62 61  6e 6b 28 32 29 0d 04 38  |......bank(2)..8|
00000bc0  05 3a 0d 04 42 0d e7 20  70 61 74 68 25 20 8c 0d  |.:..B.. path% ..|
00000bd0  04 4c 1c 20 20 73 63 72  65 65 6e 25 3d b9 3a 74  |.L.  screen%=.:t|
00000be0  69 74 6c 65 25 3d b9 3a  f2 67 6f 0d 04 56 0f 20  |itle%=.:.go..V. |
00000bf0  20 73 63 72 65 65 6e 25  3d a3 0d 04 60 0e 20 20  | screen%=...`.  |
00000c00  74 69 74 6c 65 25 3d a3  0d 04 6a 2e 20 20 c8 99  |title%=...j.  ..|
00000c10  20 22 46 6f 6e 74 5f 53  77 69 74 63 68 4f 75 74  | "Font_SwitchOut|
00000c20  70 75 74 54 6f 42 75 66  66 65 72 22 2c 25 31 30  |putToBuffer",%10|
00000c30  30 30 31 2c 33 32 0d 04  74 09 20 20 f2 67 6f 0d  |001,32..t.  .go.|
00000c40  04 7e 2c 20 20 c8 99 20  22 46 6f 6e 74 5f 53 77  |.~,  .. "Font_Sw|
00000c50  69 74 63 68 4f 75 74 70  75 74 54 6f 42 75 66 66  |itchOutputToBuff|
00000c60  65 72 22 20 b8 20 2c 69  6e 63 25 0d 04 88 32 20  |er" . ,inc%...2 |
00000c70  20 69 6e 63 25 2b 3d 31  30 32 34 20 3a f4 20 72  | inc%+=1024 :. r|
00000c80  65 73 65 72 76 65 20 73  70 61 63 65 20 66 6f 72  |eserve space for|
00000c90  20 63 69 72 63 6c 65 20  70 61 74 68 73 0d 04 92  | circle paths...|
00000ca0  0f 20 20 e7 20 62 75 66  66 25 20 8c 0d 04 9c 1c  |.  . buff% .....|
00000cb0  20 20 20 20 6f 70 74 72  25 3d 62 75 66 66 70 74  |    optr%=buffpt|
00000cc0  72 25 2d 62 75 66 66 25  0d 04 a6 37 20 20 20 20  |r%-buff%...7    |
00000cd0  c8 99 20 22 58 4f 53 5f  4d 6f 64 75 6c 65 22 2c  |.. "XOS_Module",|
00000ce0  31 33 2c 2c 62 75 66 66  25 2c 69 6e 63 25 20 b8  |13,,buff%,inc% .|
00000cf0  20 2c 2c 62 75 66 66 25  20 3b 66 6c 61 67 73 0d  | ,,buff% ;flags.|
00000d00  04 b0 5e 20 20 20 20 e7  20 66 6c 61 67 73 20 80  |..^    . flags .|
00000d10  20 31 20 8c 20 62 75 66  66 25 3d 30 3a c8 99 20  | 1 . buff%=0:.. |
00000d20  22 58 46 6f 6e 74 5f 53  77 69 74 63 68 4f 75 74  |"XFont_SwitchOut|
00000d30  70 75 74 54 6f 42 75 66  66 65 72 22 2c 30 2c 30  |putToBuffer",0,0|
00000d40  3a ef 20 37 3a 74 69 63  6b 25 28 73 65 6c 25 29  |:. 7:tick%(sel%)|
00000d50  3d a3 3a 70 61 74 68 25  3d a3 3a 3d 30 0d 04 ba  |=.:path%=.:=0...|
00000d60  47 20 20 20 20 62 75 66  66 70 74 72 25 3d 6f 70  |G    buffptr%=op|
00000d70  74 72 25 2b 62 75 66 66  25 3a 62 75 66 66 73 69  |tr%+buff%:buffsi|
00000d80  7a 65 25 2b 3d 69 6e 63  25 3a 62 75 66 66 65 6e  |ze%+=inc%:buffen|
00000d90  64 25 3d 62 75 66 66 25  2b 62 75 66 66 73 69 7a  |d%=buff%+buffsiz|
00000da0  65 25 2d 34 0d 04 c4 07  20 20 cc 0d 04 ce 31 20  |e%-4....  ....1 |
00000db0  20 20 20 c8 99 20 22 58  4f 53 5f 4d 6f 64 75 6c  |   .. "XOS_Modul|
00000dc0  65 22 2c 36 2c 2c 2c 69  6e 63 25 20 b8 20 2c 2c  |e",6,,,inc% . ,,|
00000dd0  62 75 66 66 25 20 3b 66  6c 61 67 73 0d 04 d8 5e  |buff% ;flags...^|
00000de0  20 20 20 20 e7 20 66 6c  61 67 73 20 80 20 31 20  |    . flags . 1 |
00000df0  8c 20 62 75 66 66 25 3d  30 3a c8 99 20 22 58 46  |. buff%=0:.. "XF|
00000e00  6f 6e 74 5f 53 77 69 74  63 68 4f 75 74 70 75 74  |ont_SwitchOutput|
00000e10  54 6f 42 75 66 66 65 72  22 2c 30 2c 30 3a ef 20  |ToBuffer",0,0:. |
00000e20  37 3a 74 69 63 6b 25 28  73 65 6c 25 29 3d a3 3a  |7:tick%(sel%)=.:|
00000e30  70 61 74 68 25 3d a3 3a  3d 30 0d 04 e2 56 20 20  |path%=.:=0...V  |
00000e40  20 20 62 75 66 66 70 74  72 25 3d a4 68 65 61 64  |  buffptr%=.head|
00000e50  65 72 28 62 75 66 66 25  29 3a 62 75 66 66 73 69  |er(buff%):buffsi|
00000e60  7a 65 25 3d 69 6e 63 25  2b 62 75 66 66 25 2d 62  |ze%=inc%+buff%-b|
00000e70  75 66 66 70 74 72 25 3a  62 75 66 66 65 6e 64 25  |uffptr%:buffend%|
00000e80  3d 62 75 66 66 25 2b 62  75 66 66 73 69 7a 65 25  |=buff%+buffsize%|
00000e90  0d 04 ec 07 20 20 cd 0d  04 f6 2b 20 20 73 63 72  |....  ....+  scr|
00000ea0  65 65 6e 25 3d a3 3a 62  6c 61 63 6b 25 3d b9 3a  |een%=.:black%=.:|
00000eb0  64 72 61 77 25 3d b9 3a  63 69 72 63 6c 65 73 25  |draw%=.:circles%|
00000ec0  3d b9 0d 05 00 09 20 20  f2 67 6f 0d 05 0a 11 20  |=.....  .go.... |
00000ed0  20 21 62 75 66 66 70 74  72 25 3d 30 0d 05 14 1d  | !buffptr%=0....|
00000ee0  20 20 62 75 66 66 70 74  72 25 21 34 3d 62 75 66  |  buffptr%!4=buf|
00000ef0  66 73 69 7a 65 25 2d 31  36 0d 05 1e 33 20 20 c8  |fsize%-16...3  .|
00000f00  99 20 22 46 6f 6e 74 5f  53 77 69 74 63 68 4f 75  |. "Font_SwitchOu|
00000f10  74 70 75 74 54 6f 42 75  66 66 65 72 22 2c 25 31  |tputToBuffer",%1|
00000f20  3c 3c 34 2c 62 75 66 66  70 74 72 25 0d 05 28 2b  |<<4,buffptr%..(+|
00000f30  20 20 73 63 72 65 65 6e  25 3d a3 3a 62 6c 61 63  |  screen%=.:blac|
00000f40  6b 25 3d b9 3a 64 72 61  77 25 3d a3 3a 63 69 72  |k%=.:draw%=.:cir|
00000f50  63 6c 65 73 25 3d a3 0d  05 32 09 20 20 f2 67 6f  |cles%=...2.  .go|
00000f60  0d 05 3c 18 20 20 73 63  72 65 65 6e 25 3d b9 3a  |..<.  screen%=.:|
00000f70  62 6c 61 63 6b 25 3d a3  0d 05 46 0e 20 20 f2 62  |black%=...F.  .b|
00000f80  61 6e 6b 28 31 29 0d 05  50 34 20 20 c8 99 20 22  |ank(1)..P4  .. "|
00000f90  46 6f 6e 74 5f 53 77 69  74 63 68 4f 75 74 70 75  |Font_SwitchOutpu|
00000fa0  74 54 6f 42 75 66 66 65  72 22 2c 30 2c 30 20 b8  |tToBuffer",0,0 .|
00000fb0  20 2c 62 75 66 66 70 74  72 25 0d 05 5a 27 20 20  | ,buffptr%..Z'  |
00000fc0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
00000fd0  53 65 74 54 65 78 74 43  6f 6c 6f 75 72 22 2c 66  |SetTextColour",f|
00000fe0  25 0d 05 64 05 cc 0d 05  6e 37 e7 20 6f 62 6a 65  |%..d....n7. obje|
00000ff0  63 74 25 3d 30 20 8c 20  73 63 72 65 65 6e 25 3d  |ct%=0 . screen%=|
00001000  b9 3a 74 69 74 6c 65 25  3d b9 3a 64 72 61 77 25  |.:title%=.:draw%|
00001010  3d a3 3a 63 69 72 63 6c  65 73 25 3d b9 0d 05 78  |=.:circles%=...x|
00001020  07 f2 67 6f 0d 05 82 05  cd 0d 05 8c 0f e7 20 6f  |..go.......... o|
00001030  62 6a 65 63 74 25 20 8c  0d 05 96 11 20 20 69 6e  |bject% .....  in|
00001040  63 25 3d 31 33 31 30 37  32 0d 05 a0 0f 20 20 e7  |c%=131072....  .|
00001050  20 62 75 66 66 25 20 8c  0d 05 aa 1c 20 20 20 20  | buff% .....    |
00001060  6f 70 74 72 25 3d 62 75  66 66 70 74 72 25 2d 62  |optr%=buffptr%-b|
00001070  75 66 66 25 0d 05 b4 37  20 20 20 20 c8 99 20 22  |uff%...7    .. "|
00001080  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 31 33 2c 2c  |XOS_Module",13,,|
00001090  62 75 66 66 25 2c 69 6e  63 25 20 b8 20 2c 2c 62  |buff%,inc% . ,,b|
000010a0  75 66 66 25 20 3b 66 6c  61 67 73 0d 05 be 3c 20  |uff% ;flags...< |
000010b0  20 20 20 e7 20 66 6c 61  67 73 20 80 20 31 20 8c  |   . flags . 1 .|
000010c0  20 62 75 66 66 25 3d 30  3a ef 20 37 3a 74 69 63  | buff%=0:. 7:tic|
000010d0  6b 25 28 73 65 6c 25 29  3d a3 3a 6f 62 6a 65 63  |k%(sel%)=.:objec|
000010e0  74 25 3d a3 3a 3d 30 0d  05 c8 47 20 20 20 20 62  |t%=.:=0...G    b|
000010f0  75 66 66 70 74 72 25 3d  6f 70 74 72 25 2b 62 75  |uffptr%=optr%+bu|
00001100  66 66 25 3a 62 75 66 66  73 69 7a 65 25 2b 3d 69  |ff%:buffsize%+=i|
00001110  6e 63 25 3a 62 75 66 66  65 6e 64 25 3d 62 75 66  |nc%:buffend%=buf|
00001120  66 25 2b 62 75 66 66 73  69 7a 65 25 2d 34 0d 05  |f%+buffsize%-4..|
00001130  d2 07 20 20 cc 0d 05 dc  31 20 20 20 20 c8 99 20  |..  ....1    .. |
00001140  22 58 4f 53 5f 4d 6f 64  75 6c 65 22 2c 36 2c 2c  |"XOS_Module",6,,|
00001150  2c 69 6e 63 25 20 b8 20  2c 2c 62 75 66 66 25 20  |,inc% . ,,buff% |
00001160  3b 66 6c 61 67 73 0d 05  e6 3b 20 20 20 20 e7 20  |;flags...;    . |
00001170  66 6c 61 67 73 20 80 20  31 20 8c 20 62 75 66 66  |flags . 1 . buff|
00001180  25 3d 30 3a ef 20 37 3a  74 69 63 6b 28 73 65 6c  |%=0:. 7:tick(sel|
00001190  25 29 3d a3 3a 6f 62 6a  65 63 74 25 3d a3 3a 3d  |%)=.:object%=.:=|
000011a0  30 0d 05 f0 55 20 20 20  20 62 75 66 66 70 74 72  |0...U    buffptr|
000011b0  25 3d a4 68 65 61 64 65  72 28 62 75 66 66 25 29  |%=.header(buff%)|
000011c0  3a 62 75 66 66 73 69 7a  65 25 3d 69 6e 63 25 2b  |:buffsize%=inc%+|
000011d0  62 75 66 66 2d 62 75 66  66 70 74 72 25 3a 62 75  |buff-buffptr%:bu|
000011e0  66 66 65 6e 64 25 3d 62  75 66 66 25 2b 62 75 66  |ffend%=buff%+buf|
000011f0  66 73 69 7a 65 25 0d 05  fa 07 20 20 cd 0d 06 04  |fsize%....  ....|
00001200  2a 73 63 72 65 65 6e 25  3d a3 3a 74 69 74 6c 65  |*screen%=.:title|
00001210  25 3d a3 3a 62 6c 61 63  6b 25 3d b9 3a 63 69 72  |%=.:black%=.:cir|
00001220  63 6c 65 73 25 3d b9 0d  06 0e 23 f2 67 6f 3a 73  |cles%=....#.go:s|
00001230  63 72 65 65 6e 25 3d b9  3a 74 69 74 6c 65 25 3d  |creen%=.:title%=|
00001240  b9 3a 62 6c 61 63 6b 25  3d a3 0d 06 18 05 cd 0d  |.:black%=.......|
00001250  06 22 0c f2 62 61 6e 6b  28 31 29 0d 06 2c 3f c8  |."..bank(1)..,?.|
00001260  99 20 22 46 6f 6e 74 5f  46 69 6e 64 46 6f 6e 74  |. "Font_FindFont|
00001270  22 2c 2c 22 48 6f 6d 65  72 74 6f 6e 2e 4d 65 64  |",,"Homerton.Med|
00001280  69 75 6d 22 2c 31 38 2a  31 36 2c 31 38 2a 31 36  |ium",18*16,18*16|
00001290  2c 30 2c 30 20 b8 20 66  68 25 0d 06 36 30 c8 99  |,0,0 . fh%..60..|
000012a0  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
000012b0  74 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 66 68  |tFontColours",fh|
000012c0  25 2c 62 25 2c 66 25 2c  31 34 0d 06 40 09 f2 6d  |%,b%,f%,14..@..m|
000012d0  65 6e 75 0d 06 4a 1a c8  99 20 22 46 6f 6e 74 5f  |enu..J... "Font_|
000012e0  4c 6f 73 65 46 6f 6e 74  22 2c 66 68 25 0d 06 54  |LoseFont",fh%..T|
000012f0  05 ce 0d 06 5e 1b c8 99  20 22 46 6f 6e 74 5f 4c  |....^... "Font_L|
00001300  6f 73 65 46 6f 6e 74 22  2c 73 79 6d 25 0d 06 68  |oseFont",sym%..h|
00001310  0a 2a 46 58 34 2c 30 0d  06 72 0f f2 66 69 6e 69  |.*FX4,0..r..fini|
00001320  73 68 70 61 74 68 0d 06  7c 0d 2a 53 48 41 44 4f  |shpath..|.*SHADO|
00001330  57 20 31 0d 06 86 05 e0  0d 06 90 05 3a 0d 06 9a  |W 1.........:...|
00001340  09 dd 20 f2 67 6f 0d 06  a4 15 62 25 3d 30 3a 66  |.. .go....b%=0:f|
00001350  25 3d 26 46 46 46 46 46  46 30 30 0d 06 ae 27 e7  |%=&FFFFFF00...'.|
00001360  20 70 61 74 68 25 20 80  20 62 75 66 66 25 20 8c  | path% . buff% .|
00001370  20 66 25 3d 30 3a 62 25  3d 26 46 46 46 46 46 46  | f%=0:b%=&FFFFFF|
00001380  30 30 0d 06 b8 14 61 3d  bb 28 a4 30 28 5f 61 6e  |00....a=.(.0(_an|
00001390  67 6c 65 25 29 29 0d 06  c2 21 c8 99 20 22 46 6f  |gle%))...!.. "Fo|
000013a0  6e 74 5f 43 6f 6e 76 65  72 74 74 6f 4f 53 22 2c  |nt_ConverttoOS",|
000013b0  2c 72 20 b8 20 2c 52 0d  06 cc 0d 4f 58 3d 78 6f  |,r . ,R....OX=xo|
000013c0  73 25 81 32 0d 06 d6 10  4f 59 3d 79 6f 73 25 81  |s%.2....OY=yos%.|
000013d0  32 2d 34 38 0d 06 e0 10  74 65 78 74 25 3d 5f 74  |2-48....text%=_t|
000013e0  65 78 74 25 0d 06 ea 0b  54 25 21 31 36 3d 30 0d  |ext%....T%!16=0.|
000013f0  06 f4 0b 54 25 21 32 30  3d 30 0d 06 fe 2d c8 99  |...T%!20=0...-..|
00001400  20 22 46 6f 6e 74 5f 43  6f 6e 76 65 72 74 74 6f  | "Font_Convertto|
00001410  70 6f 69 6e 74 73 22 2c  2c 4f 58 2c 4f 59 20 b8  |points",,OX,OY .|
00001420  20 2c 6f 78 2c 6f 79 0d  07 08 1e e7 20 73 63 72  | ,ox,oy..... scr|
00001430  65 65 6e 25 20 80 20 6f  76 65 72 6c 61 79 25 3d  |een% . overlay%=|
00001440  30 20 8c 20 da 0d 07 12  24 e7 20 63 69 72 63 6c  |0 . ....$. circl|
00001450  65 73 25 20 8c 20 f2 63  69 72 63 6c 65 28 6f 78  |es% . .circle(ox|
00001460  2c 6f 79 2c 72 2c 66 25  29 0d 07 1c 1b e7 20 74  |,oy,r,f%)..... t|
00001470  69 74 6c 65 25 20 80 20  6f 76 65 72 6c 61 79 25  |itle% . overlay%|
00001480  3d 30 20 8c 0d 07 26 35  20 20 c8 99 20 22 46 6f  |=0 ...&5  .. "Fo|
00001490  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 66 6f  |nt_FindFont",,fo|
000014a0  6e 74 24 2c 32 34 2a 31  36 2c 32 34 2a 31 36 2c  |nt$,24*16,24*16,|
000014b0  30 2c 30 20 b8 20 66 68  25 0d 07 30 39 20 20 c8  |0,0 . fh%..09  .|
000014c0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
000014d0  65 74 46 6f 6e 74 43 6f  6c 6f 75 72 73 22 2c 66  |etFontColours",f|
000014e0  68 25 2c 62 25 2c 26 46  46 46 46 30 30 30 30 2c  |h%,b%,&FFFF0000,|
000014f0  31 34 0d 07 3a 41 20 20  c8 99 20 22 46 6f 6e 74  |14..:A  .. "Font|
00001500  5f 50 61 69 6e 74 22 2c  66 68 25 2c bd 32 35 2b  |_Paint",fh%,.25+|
00001510  bd 2d 31 36 2b bd 31 36  2b 74 65 78 74 24 2c 25  |.-16+.16+text$,%|
00001520  31 31 30 30 30 31 3c 3c  34 2c 30 2c 79 6f 73 25  |110001<<4,0,yos%|
00001530  2d 39 36 0d 07 44 1c 20  20 c8 99 20 22 46 6f 6e  |-96..D.  .. "Fon|
00001540  74 5f 4c 6f 73 65 46 6f  6e 74 22 2c 66 68 25 0d  |t_LoseFont",fh%.|
00001550  07 4e 05 cd 0d 07 58 04  0d 07 62 35 c8 99 20 22  |.N....X...b5.. "|
00001560  46 6f 6e 74 5f 46 69 6e  64 46 6f 6e 74 22 2c 2c  |Font_FindFont",,|
00001570  66 6f 6e 74 24 2c 73 69  7a 65 25 2c 68 65 69 67  |font$,size%,heig|
00001580  68 74 25 2c 30 2c 30 20  b8 20 66 68 25 0d 07 6c  |ht%,0,0 . fh%..l|
00001590  37 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |7.. "ColourTrans|
000015a0  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
000015b0  2c 66 68 25 2c 62 25 2c  26 30 30 46 46 46 46 30  |,fh%,b%,&00FFFF0|
000015c0  30 2c 31 34 0d 07 76 04  0d 07 80 0d 21 63 6f 6f  |0,14..v.....!coo|
000015d0  72 64 25 3d 30 0d 07 8a  0e 63 6f 6f 72 64 25 21  |rd%=0....coord%!|
000015e0  34 3d 30 0d 07 94 0e 63  6f 6f 72 64 25 21 38 3d  |4=0....coord%!8=|
000015f0  30 0d 07 9e 0f 63 6f 6f  72 64 25 21 31 32 3d 30  |0....coord%!12=0|
00001600  0d 07 a8 10 63 6f 6f 72  64 25 21 31 36 3d 2d 31  |....coord%!16=-1|
00001610  0d 07 b2 3c c8 99 20 22  46 6f 6e 74 5f 53 63 61  |...<.. "Font_Sca|
00001620  6e 53 74 72 69 6e 67 22  2c 66 68 25 2c 74 65 78  |nString",fh%,tex|
00001630  74 25 2c 28 31 3c 3c 31  38 29 2b 28 31 3c 3c 35  |t%,(1<<18)+(1<<5|
00001640  29 2c 7a 2c 7a 2c 63 6f  6f 72 64 25 0d 07 bc 10  |),z,z,coord%....|
00001650  68 79 3d 63 6f 6f 72 64  25 21 33 32 0d 07 c6 26  |hy=coord%!32...&|
00001660  c8 99 20 22 46 6f 6e 74  5f 43 6f 6e 76 65 72 74  |.. "Font_Convert|
00001670  74 6f 4f 53 22 2c 2c 2c  68 79 20 b8 20 2c 2c 68  |toOS",,,hy . ,,h|
00001680  79 25 0d 07 d0 10 e7 20  63 69 72 63 6c 65 73 25  |y%..... circles%|
00001690  20 8c 0d 07 da 0e 20 20  e7 20 6d 6f 76 65 20 8c  | .....  . move .|
000016a0  0d 07 e4 35 20 20 20 20  f2 63 69 72 63 6c 65 28  |...5    .circle(|
000016b0  6f 78 2c 6f 79 2c 72 2b  68 79 2a 6d 6f 76 65 2b  |ox,oy,r+hy*move+|
000016c0  b4 28 6d 6f 76 65 29 2a  68 79 2c 26 36 36 36 36  |.(move)*hy,&6666|
000016d0  36 36 30 30 29 0d 07 ee  07 20 20 cc 0d 07 f8 25  |6600)....  ....%|
000016e0  20 20 20 20 f2 63 69 72  63 6c 65 28 6f 78 2c 6f  |    .circle(ox,o|
000016f0  79 2c 72 2b 68 79 2c 26  41 41 41 41 41 41 30 30  |y,r+hy,&AAAAAA00|
00001700  29 0d 08 02 07 20 20 cd  0d 08 0c 05 cd 0d 08 16  |)....  .........|
00001710  10 72 72 3d 72 2b 6d 6f  76 65 2a 68 79 0d 08 20  |.rr=r+move*hy.. |
00001720  19 e3 20 70 74 72 25 3d  30 20 b8 20 a9 28 74 65  |.. ptr%=0 . .(te|
00001730  78 74 24 29 2d 31 0d 08  2a 15 c8 99 20 22 48 6f  |xt$)-1..*... "Ho|
00001740  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 08 34 5f c8  |urglass_On"..4_.|
00001750  99 20 22 46 6f 6e 74 5f  53 63 61 6e 53 74 72 69  |. "Font_ScanStri|
00001760  6e 67 22 2c 66 68 25 2c  74 65 78 74 25 2b 70 74  |ng",fh%,text%+pt|
00001770  72 25 2c 28 72 65 76 65  72 73 65 25 3c 3c 31 30  |r%,(reverse%<<10|
00001780  29 2b 28 31 3c 3c 32 30  29 2b 28 25 31 31 31 30  |)+(1<<20)+(%1110|
00001790  30 3c 3c 35 29 2c 7a 2c  7a 2c 2c 54 25 2c 31 20  |0<<5),z,z,,T%,1 |
000017a0  b8 20 2c 2c 2c 57 25 2c  48 25 0d 08 3e 09 42 25  |. ,,,W%,H%..>.B%|
000017b0  3d 57 25 0d 08 48 27 e7  20 70 74 72 25 3d 30 20  |=W%..H'. ptr%=0 |
000017c0  8c 20 61 2d 3d 9d 28 99  28 63 6c 6f 63 6b 25 2a  |. a-=.(.(clock%*|
000017d0  42 25 2f 28 32 2a 72 29  29 29 0d 08 52 1f 62 3d  |B%/(2*r)))..R.b=|
000017e0  28 61 2b 9d 28 99 28 63  6c 6f 63 6b 25 2a 42 25  |(a+.(.(clock%*B%|
000017f0  2f 28 32 2a 72 29 29 29  29 0d 08 5c 19 54 3d 72  |/(2*r))))..\.T=r|
00001800  6f 74 2b b2 28 39 30 2d  62 29 3a f4 20 2a 2a 2a  |ot+.(90-b):. ***|
00001810  2a 2a 0d 08 66 24 21 54  25 20 3d 26 31 30 30 30  |**..f$!T% =&1000|
00001820  30 2a 9b 54 20 3a 54 25  21 34 20 3d 26 31 30 30  |0*.T :T%!4 =&100|
00001830  30 30 2a 2d b5 54 0d 08  70 23 54 25 21 38 3d 26  |00*-.T..p#T%!8=&|
00001840  31 30 30 30 30 2a b5 54  20 3a 54 25 21 31 32 3d  |10000*.T :T%!12=|
00001850  26 31 30 30 30 30 2a 9b  54 0d 08 7a 1e 62 3d b2  |&10000*.T..z.b=.|
00001860  28 61 2b 9d 28 99 28 63  6c 6f 63 6b 25 2a 42 25  |(a+.(.(clock%*B%|
00001870  2f 28 72 29 29 29 29 0d  08 84 0f 58 25 3d 72 72  |/(r))))....X%=rr|
00001880  2a 9b 62 2b 6f 78 0d 08  8e 0f 59 25 3d 72 72 2a  |*.b+ox....Y%=rr*|
00001890  b5 62 2b 6f 79 0d 08 98  0f e7 20 ac 20 64 72 61  |.b+oy..... . dra|
000018a0  77 25 20 8c 0d 08 a2 47  20 20 e7 20 62 6c 61 63  |w% ....G  . blac|
000018b0  6b 25 20 8c 20 c8 99 20  22 43 6f 6c 6f 75 72 54  |k% . .. "ColourT|
000018c0  72 61 6e 73 5f 53 65 74  46 6f 6e 74 43 6f 6c 6f  |rans_SetFontColo|
000018d0  75 72 73 22 2c 26 46 46  46 46 46 46 30 30 2c 26  |urs",&FFFFFF00,&|
000018e0  30 30 30 30 30 30 30 30  2c 31 34 0d 08 ac 4b 20  |00000000,14...K |
000018f0  20 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  | .. "Font_Paint"|
00001900  2c 66 68 25 2c 74 65 78  74 25 2b 70 74 72 25 2c  |,fh%,text%+ptr%,|
00001910  28 72 65 76 65 72 73 65  25 3c 3c 31 30 29 2b 28  |(reverse%<<10)+(|
00001920  25 31 31 31 31 30 3c 3c  35 29 2c 58 25 2c 59 25  |%11110<<5),X%,Y%|
00001930  2c 2c 54 25 2c 31 0d 08  b6 05 cd 0d 08 c0 18 61  |,,T%,1.........a|
00001940  2b 3d 9d 28 99 28 63 6c  6f 63 6b 25 2a 42 25 2f  |+=.(.(clock%*B%/|
00001950  72 29 29 0d 08 ca 16 c8  99 20 22 48 6f 75 72 67  |r))...... "Hourg|
00001960  6c 61 73 73 5f 4f 66 66  22 0d 08 d4 0a ed 20 70  |lass_Off"..... p|
00001970  74 72 25 0d 08 de 1a c8  99 20 22 46 6f 6e 74 5f  |tr%...... "Font_|
00001980  4c 6f 73 65 46 6f 6e 74  22 2c 66 68 25 0d 08 e8  |LoseFont",fh%...|
00001990  15 e7 20 70 61 74 68 25  3d 30 20 8c 20 87 3a 47  |.. path%=0 . .:G|
000019a0  3d a5 0d 08 f2 15 62 25  3d 30 3a 66 25 3d 26 46  |=.....b%=0:f%=&F|
000019b0  46 46 46 46 46 30 30 0d  08 fc 05 e1 0d 09 06 05  |FFFFF00.........|
000019c0  3a 0d 09 10 12 dd 20 f2  77 72 69 74 65 28 73 74  |:..... .write(st|
000019d0  72 24 29 0d 09 1a 27 c8  99 20 22 46 6f 6e 74 5f  |r$)...'.. "Font_|
000019e0  52 65 61 64 49 6e 66 6f  22 2c 66 68 25 20 b8 20  |ReadInfo",fh% . |
000019f0  2c 2c 6c 79 25 2c 2c 68  79 25 0d 09 24 38 67 61  |,,ly%,,hy%..$8ga|
00001a00  70 25 3d 28 31 2e 31 2a  28 68 79 25 2d 6c 79 25  |p%=(1.1*(hy%-ly%|
00001a10  29 2b 28 31 3c 3c 79 65  69 67 25 29 2d 31 29 20  |)+(1<<yeig%)-1) |
00001a20  80 20 ac 20 28 28 31 3c  3c 79 65 69 67 25 29 2d  |. . ((1<<yeig%)-|
00001a30  31 29 0d 09 2e 0e 72 6f  77 25 2d 3d 67 61 70 25  |1)....row%-=gap%|
00001a40  0d 09 38 33 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |..83.. "Font_Pai|
00001a50  6e 74 22 2c 66 68 25 2c  73 74 72 24 2c 28 25 31  |nt",fh%,str$,(%1|
00001a60  31 3c 3c 38 29 2b 28 31  3c 3c 34 29 2c 30 2c 72  |1<<8)+(1<<4),0,r|
00001a70  6f 77 25 0d 09 42 05 e1  0d 09 4c 05 3a 0d 09 56  |ow%..B....L.:..V|
00001a80  1a dd 20 a4 67 65 74 28  64 69 73 24 2c 61 6e 73  |.. .get(dis$,ans|
00001a90  25 2c 6d 61 78 25 29 0d  09 60 0b ea 20 64 6f 6e  |%,max%)..`.. don|
00001aa0  65 25 0d 09 6a 10 f2 77  72 69 74 65 28 64 69 73  |e%..j..write(dis|
00001ab0  24 29 0d 09 74 4b c8 99  20 22 46 6f 6e 74 5f 53  |$)..tK.. "Font_S|
00001ac0  63 61 6e 53 74 72 69 6e  67 22 2c 66 68 25 2c 64  |canString",fh%,d|
00001ad0  69 73 24 2c 28 31 3c 3c  32 30 29 2b 25 31 31 31  |is$,(1<<20)+%111|
00001ae0  30 30 30 30 30 30 30 2c  7a 2c 7a 2c 2c 2c a9 28  |0000000,z,z,,,.(|
00001af0  64 69 73 24 29 20 b8 20  2c 2c 2c 78 25 0d 09 7e  |dis$) . ,,,x%..~|
00001b00  37 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |7.. "ColourTrans|
00001b10  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
00001b20  2c 66 68 25 2c 62 25 2c  26 30 30 41 41 46 46 30  |,fh%,b%,&00AAFF0|
00001b30  30 2c 31 34 0d 09 88 3b  c8 99 20 22 43 6f 6c 6f  |0,14...;.. "Colo|
00001b40  75 72 54 72 61 6e 73 5f  52 65 74 75 72 6e 43 6f  |urTrans_ReturnCo|
00001b50  6c 6f 75 72 4e 75 6d 62  65 72 22 2c 26 30 30 46  |lourNumber",&00F|
00001b60  46 46 46 30 30 20 b8 20  63 6f 6c 6f 75 72 25 0d  |FFF00 . colour%.|
00001b70  09 92 27 c8 99 20 22 46  6f 6e 74 5f 52 65 61 64  |..'.. "Font_Read|
00001b80  49 6e 66 6f 22 2c 66 68  25 20 b8 20 2c 2c 6c 79  |Info",fh% . ,,ly|
00001b90  25 2c 2c 68 79 25 0d 09  9c 0f 63 68 25 3d 68 79  |%,,hy%....ch%=hy|
00001ba0  25 2d 6c 79 25 0d 09 a6  31 c8 99 20 22 46 6f 6e  |%-ly%...1.. "Fon|
00001bb0  74 5f 43 6f 6e 76 65 72  74 74 6f 70 6f 69 6e 74  |t_Converttopoint|
00001bc0  73 22 2c 2c 68 79 25 2c  6c 79 25 20 b8 20 2c 68  |s",,hy%,ly% . ,h|
00001bd0  79 25 2c 6c 79 25 0d 09  b0 14 70 74 72 25 3d a9  |y%,ly%....ptr%=.|
00001be0  28 a4 30 28 61 6e 73 25  29 29 0d 09 ba 2b c8 99  |(.0(ans%))...+..|
00001bf0  20 22 46 6f 6e 74 5f 43  6f 6e 76 65 72 74 74 6f  | "Font_Convertto|
00001c00  70 6f 69 6e 74 73 22 2c  2c 2c 72 6f 77 25 20 b8  |points",,,row% .|
00001c10  20 2c 2c 79 25 0d 09 c4  0c 64 64 6f 6e 65 25 3d  | ,,y%....ddone%=|
00001c20  a3 0d 09 ce 0d 21 63 6f  6f 72 64 25 3d 30 0d 09  |.....!coord%=0..|
00001c30  d8 0e 63 6f 6f 72 64 25  21 34 3d 30 0d 09 e2 0e  |..coord%!4=0....|
00001c40  63 6f 6f 72 64 25 21 38  3d 30 0d 09 ec 0f 63 6f  |coord%!8=0....co|
00001c50  6f 72 64 25 21 31 32 3d  30 0d 09 f6 0f 63 6f 6f  |ord%!12=0....coo|
00001c60  72 64 25 21 31 36 3d 30  0d 0a 00 0f 63 6f 6f 72  |rd%!16=0....coor|
00001c70  64 25 21 32 30 3d 30 0d  0a 0a 0f 63 6f 6f 72 64  |d%!20=0....coord|
00001c80  25 21 32 34 3d 30 0d 0a  14 0f 63 6f 6f 72 64 25  |%!24=0....coord%|
00001c90  21 32 38 3d 30 0d 0a 1e  0e c8 95 20 ac 20 64 6f  |!28=0...... . do|
00001ca0  6e 65 25 0d 0a 28 38 c8  96 3a c8 99 20 22 46 6f  |ne%..(8..:.. "Fo|
00001cb0  6e 74 5f 50 61 69 6e 74  22 2c 66 68 25 2c 61 6e  |nt_Paint",fh%,an|
00001cc0  73 25 2c 25 31 31 30 30  31 30 30 30 31 30 2c 78  |s%,%1100100010,x|
00001cd0  25 2c 79 25 2c 63 6f 6f  72 64 25 0d 0a 32 36 c8  |%,y%,coord%..26.|
00001ce0  99 20 22 46 6f 6e 74 5f  53 63 61 6e 53 74 72 69  |. "Font_ScanStri|
00001cf0  6e 67 22 2c 66 68 25 2c  61 6e 73 25 2c 28 25 31  |ng",fh%,ans%,(%1|
00001d00  31 3c 3c 38 29 2c 7a 2c  7a 20 b8 20 2c 2c 2c 77  |1<<8),z,z . ,,,w|
00001d10  25 0d 0a 3c 15 63 6f 6f  72 64 25 21 31 36 3d 78  |%..<.coord%!16=x|
00001d20  25 2d 36 30 30 30 0d 0a  46 19 63 6f 6f 72 64 25  |%-6000..F.coord%|
00001d30  21 32 30 3d 79 25 2b 6c  79 25 2d 36 30 30 30 0d  |!20=y%+ly%-6000.|
00001d40  0a 50 18 63 6f 6f 72 64  25 21 32 34 3d 78 25 2b  |.P.coord%!24=x%+|
00001d50  77 25 2b 36 30 30 30 0d  0a 5a 19 63 6f 6f 72 64  |w%+6000..Z.coord|
00001d60  25 21 32 38 3d 79 25 2b  68 79 25 2b 33 30 30 30  |%!28=y%+hy%+3000|
00001d70  0d 0a 64 4b c8 99 20 22  46 6f 6e 74 5f 53 63 61  |..dK.. "Font_Sca|
00001d80  6e 53 74 72 69 6e 67 22  2c 66 68 25 2c 61 6e 73  |nString",fh%,ans|
00001d90  25 2c 28 31 3c 3c 32 30  29 2b 28 25 31 31 31 3c  |%,(1<<20)+(%111<|
00001da0  3c 37 29 2c 7a 2c 7a 2c  2c 2c 70 74 72 25 20 b8  |<7),z,z,,,ptr% .|
00001db0  20 2c 2c 2c 63 78 25 2c  63 79 25 0d 0a 6e 2f c8  | ,,,cx%,cy%..n/.|
00001dc0  99 20 22 46 6f 6e 74 5f  43 61 72 65 74 22 2c 63  |. "Font_Caret",c|
00001dd0  6f 6c 6f 75 72 25 2c 63  68 25 2c 30 2c 78 25 2b  |olour%,ch%,0,x%+|
00001de0  63 78 25 2c 79 25 2b 6c  79 25 0d 0a 78 08 6b 25  |cx%,y%+ly%..x.k%|
00001df0  3d a5 0d 0a 82 0b c8 8e  20 6b 25 20 ca 0d 0a 8c  |=....... k% ....|
00001e00  17 c9 20 32 31 3a 3f 61  6e 73 25 3d 30 3a 70 74  |.. 21:?ans%=0:pt|
00001e10  72 25 3d 30 0d 0a 96 08  c9 20 31 33 0d 0a a0 39  |r%=0..... 13...9|
00001e20  20 20 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |  .. "ColourTran|
00001e30  73 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |s_SetFontColours|
00001e40  22 2c 66 68 25 2c 62 25  2c 26 30 30 46 46 46 46  |",fh%,b%,&00FFFF|
00001e50  30 30 2c 31 34 0d 0a aa  37 20 20 c8 99 20 22 46  |00,14...7  .. "F|
00001e60  6f 6e 74 5f 50 61 69 6e  74 22 2c 66 68 25 2c 61  |ont_Paint",fh%,a|
00001e70  6e 73 25 2c 25 31 31 30  30 31 30 30 30 31 30 2c  |ns%,%1100100010,|
00001e80  78 25 2c 79 25 2c 63 6f  6f 72 64 25 0d 0a b4 0d  |x%,y%,coord%....|
00001e90  20 20 64 6f 6e 65 25 3d  b9 0d 0a be 11 c9 20 31  |  done%=...... 1|
00001ea0  33 36 3a 70 74 72 25 2d  3d 31 0d 0a c8 11 c9 20  |36:ptr%-=1..... |
00001eb0  31 33 37 3a 70 74 72 25  2b 3d 31 0d 0a d2 1a c9  |137:ptr%+=1.....|
00001ec0  20 31 33 38 3a 70 74 72  25 3d a9 28 a4 30 28 61  | 138:ptr%=.(.0(a|
00001ed0  6e 73 25 29 29 0d 0a dc  10 c9 20 31 33 39 3a 70  |ns%))..... 139:p|
00001ee0  74 72 25 3d 30 0d 0a e6  1f c9 20 31 32 37 2c 38  |tr%=0..... 127,8|
00001ef0  3a e7 20 70 74 72 25 3e  30 20 8c 20 f2 64 65 6c  |:. ptr%>0 . .del|
00001f00  63 68 61 72 0d 0a f0 2f  c9 20 31 33 35 3a e7 20  |char.../. 135:. |
00001f10  70 74 72 25 3c a9 28 a4  30 28 61 6e 73 25 29 29  |ptr%<.(.0(ans%))|
00001f20  20 8c 20 70 74 72 25 2b  3d 31 3a f2 64 65 6c 63  | . ptr%+=1:.delc|
00001f30  68 61 72 0d 0a fa 05 7f  0d 0b 04 21 e7 20 6b 25  |har........!. k%|
00001f40  3e 3d 33 32 20 80 20 6b  25 3c 3e 31 32 37 20 8c  |>=32 . k%<>127 .|
00001f50  20 f2 69 6e 73 63 68 61  72 0d 0b 0e 05 cb 0d 0b  | .inschar.......|
00001f60  18 15 e7 20 70 74 72 25  3c 30 20 8c 20 70 74 72  |... ptr%<0 . ptr|
00001f70  25 3d 30 0d 0b 22 29 e7  20 70 74 72 25 3e a9 28  |%=0.."). ptr%>.(|
00001f80  a4 30 28 61 6e 73 25 29  29 20 8c 20 70 74 72 25  |.0(ans%)) . ptr%|
00001f90  3d a9 28 a4 30 28 61 6e  73 25 29 29 0d 0b 2c 3b  |=.(.0(ans%))..,;|
00001fa0  e7 20 ac 20 64 6f 6e 65  25 20 8c 20 c8 99 20 22  |. . done% . .. "|
00001fb0  46 6f 6e 74 5f 43 61 72  65 74 22 2c 63 6f 6c 6f  |Font_Caret",colo|
00001fc0  75 72 25 2c 63 68 25 2c  30 2c 78 25 2b 63 78 25  |ur%,ch%,0,x%+cx%|
00001fd0  2c 79 25 2b 6c 79 25 0d  0b 36 05 ce 0d 0b 40 30  |,y%+ly%..6....@0|
00001fe0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
00001ff0  53 65 74 46 6f 6e 74 43  6f 6c 6f 75 72 73 22 2c  |SetFontColours",|
00002000  66 68 25 2c 62 25 2c 66  25 2c 31 34 0d 0b 4a 0d  |fh%,b%,f%,14..J.|
00002010  3d a4 30 28 61 6e 73 25  29 0d 0b 54 05 3a 0d 0b  |=.0(ans%)..T.:..|
00002020  5e 0e dd 20 f2 64 65 6c  63 68 61 72 0d 0b 68 08  |^.. .delchar..h.|
00002030  ea 20 6e 25 0d 0b 72 36  e3 20 6e 25 3d 61 6e 73  |. n%..r6. n%=ans|
00002040  25 2b 70 74 72 25 20 b8  20 61 6e 73 25 2b a9 28  |%+ptr% . ans%+.(|
00002050  a4 30 28 61 6e 73 25 29  29 3a 3f 28 6e 25 2d 31  |.0(ans%)):?(n%-1|
00002060  29 3d 3f 6e 25 3a ed 20  6e 25 0d 0b 7c 0b 70 74  |)=?n%:. n%..|.pt|
00002070  72 25 2d 3d 31 0d 0b 86  05 e1 0d 0b 90 05 3a 0d  |r%-=1.........:.|
00002080  0b 9a 0e dd 20 f2 69 6e  73 63 68 61 72 0d 0b a4  |.... .inschar...|
00002090  1e e7 20 a9 28 a4 30 28  61 6e 73 25 29 29 3e 3d  |.. .(.0(ans%))>=|
000020a0  6d 61 78 25 20 8c 20 ef  37 3a e1 0d 0b ae 08 ea  |max% . .7:......|
000020b0  20 6e 25 0d 0b b8 3b e3  20 6e 25 3d 61 6e 73 25  | n%...;. n%=ans%|
000020c0  2b a9 28 a4 30 28 61 6e  73 25 29 29 20 b8 20 61  |+.(.0(ans%)) . a|
000020d0  6e 73 25 2b 70 74 72 25  20 88 20 2d 31 3a 3f 28  |ns%+ptr% . -1:?(|
000020e0  6e 25 2b 31 29 3d 3f 6e  25 3a ed 20 6e 25 0d 0b  |n%+1)=?n%:. n%..|
000020f0  c2 13 3f 28 61 6e 73 25  2b 70 74 72 25 29 3d 6b  |..?(ans%+ptr%)=k|
00002100  25 0d 0b cc 0b 70 74 72  25 2b 3d 31 0d 0b d6 05  |%....ptr%+=1....|
00002110  e1 0d 0b e0 05 3a 0d 0b  ea 0c dd 20 a4 30 28 73  |.....:..... .0(s|
00002120  25 29 0d 0b f4 08 ea 20  73 24 0d 0b fe 09 73 24  |%)..... s$....s$|
00002130  3d 22 22 0d 0c 08 0d c8  95 20 3f 73 25 3c 3e 30  |=""...... ?s%<>0|
00002140  0d 0c 12 0e 73 24 2b 3d  bd 28 3f 73 25 29 0d 0c  |....s$+=.(?s%)..|
00002150  1c 09 73 25 2b 3d 31 0d  0c 26 05 ce 0d 0c 30 07  |..s%+=1..&....0.|
00002160  3d 73 24 0d 0c 3a 05 3a  0d 0c 44 11 dd 20 f2 62  |=s$..:.:..D.. .b|
00002170  61 6e 6b 28 62 61 6e 6b  29 0d 0c 4e 19 c8 99 20  |ank(bank)..N... |
00002180  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 62 61  |"OS_Byte",112,ba|
00002190  6e 6b 0d 0c 58 19 c8 99  20 22 4f 53 5f 42 79 74  |nk..X... "OS_Byt|
000021a0  65 22 2c 31 31 33 2c 62  61 6e 6b 0d 0c 62 05 e1  |e",113,bank..b..|
000021b0  0d 0c 6c 05 3a 0d 0c 76  0c dd 20 f2 65 72 72 6f  |..l.:..v.. .erro|
000021c0  72 0d 0c 80 19 e7 20 70  61 74 68 25 20 8c 20 f2  |r..... path% . .|
000021d0  66 69 6e 69 73 68 70 61  74 68 0d 0c 8a 1a e7 20  |finishpath..... |
000021e0  6f 62 6a 65 63 74 25 20  8c 20 f2 66 69 6e 69 73  |object% . .finis|
000021f0  68 6f 62 6a 0d 0c 94 26  e7 20 62 75 66 66 25 20  |hobj...&. buff% |
00002200  8c 20 c8 99 20 22 58 4f  53 5f 4d 6f 64 75 6c 65  |. .. "XOS_Module|
00002210  22 2c 37 2c 2c 62 75 66  66 25 0d 0c 9e 18 c8 99  |",7,,buff%......|
00002220  20 22 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  | "Hourglass_Smas|
00002230  68 22 0d 0c a8 17 f1 20  f6 24 2b 22 20 61 74 20  |h"..... .$+" at |
00002240  6c 69 6e 65 20 22 2b c3  9e 0d 0c b2 23 e7 20 66  |line "+.....#. f|
00002250  68 25 20 8c 20 c8 99 20  22 58 46 6f 6e 74 5f 4c  |h% . .. "XFont_L|
00002260  6f 73 65 46 6f 6e 74 22  2c 66 68 25 0d 0c bc 25  |oseFont",fh%...%|
00002270  e7 20 73 79 6d 25 20 8c  20 c8 99 20 22 58 46 6f  |. sym% . .. "XFo|
00002280  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 73 79 6d  |nt_LoseFont",sym|
00002290  25 0d 0c c6 0b c8 99 36  2c 34 2c 30 0d 0c d0 0d  |%......6,4,0....|
000022a0  2a 53 48 41 44 4f 57 20  31 0d 0c da 05 e0 0d 0c  |*SHADOW 1.......|
000022b0  e4 05 3a 0d 0c ee 0b dd  20 f2 6d 65 6e 75 0d 0c  |..:..... .menu..|
000022c0  f8 0e 67 72 6f 77 25 3d  72 6f 77 25 0d 0d 02 0b  |..grow%=row%....|
000022d0  65 64 69 74 25 3d a3 0d  0d 0c 27 c8 99 20 22 46  |edit%=....'.. "F|
000022e0  6f 6e 74 5f 52 65 61 64  49 6e 66 6f 22 2c 66 68  |ont_ReadInfo",fh|
000022f0  25 20 b8 20 2c 2c 6c 79  25 2c 2c 68 79 25 0d 0d  |% . ,,ly%,,hy%..|
00002300  16 36 67 61 70 25 3d 28  31 2a 28 68 79 25 2d 6c  |.6gap%=(1*(hy%-l|
00002310  79 25 29 2b 28 31 3c 3c  79 65 69 67 25 29 2d 31  |y%)+(1<<yeig%)-1|
00002320  29 20 80 20 ac 20 28 28  31 3c 3c 79 65 69 67 25  |) . . ((1<<yeig%|
00002330  29 2d 31 29 0d 0d 20 0e  72 6f 77 25 2d 3d 67 61  |)-1).. .row%-=ga|
00002340  70 25 0d 0d 2a 37 c8 99  20 22 46 6f 6e 74 5f 43  |p%..*7.. "Font_C|
00002350  6f 6e 76 65 72 74 74 6f  70 6f 69 6e 74 73 22 2c  |onverttopoints",|
00002360  2c 67 61 70 25 2c 72 6f  77 25 20 b8 20 2c 67 61  |,gap%,row% . ,ga|
00002370  70 70 25 2c 72 6f 77 70  25 0d 0d 34 2d c8 99 20  |pp%,rowp%..4-.. |
00002380  22 46 6f 6e 74 5f 43 6f  6e 76 65 72 74 74 6f 70  |"Font_Converttop|
00002390  6f 69 6e 74 73 22 2c 2c  78 6f 73 25 20 b8 20 2c  |oints",,xos% . ,|
000023a0  73 63 72 5f 77 25 0d 0d  3e 2f c8 99 20 22 46 6f  |scr_w%..>/.. "Fo|
000023b0  6e 74 5f 43 6f 6e 76 65  72 74 74 6f 70 6f 69 6e  |nt_Converttopoin|
000023c0  74 73 22 2c 2c 6c 79 25  2c 68 79 25 20 b8 20 2c  |ts",,ly%,hy% . ,|
000023d0  6c 79 2c 68 79 0d 0d 48  3a c8 99 20 22 46 6f 6e  |ly,hy..H:.. "Fon|
000023e0  74 5f 53 63 61 6e 53 74  72 69 6e 67 22 2c 66 68  |t_ScanString",fh|
000023f0  25 2c 22 4d 65 6e 75 22  2c 25 31 31 3c 3c 38 2c  |%,"Menu",%11<<8,|
00002400  7a 2c 7a 20 b8 20 2c 2c  2c 73 74 72 5f 77 25 0d  |z,z . ,,,str_w%.|
00002410  0d 52 41 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |.RA.. "Font_Pain|
00002420  74 22 2c 66 68 25 2c bd  32 35 2b bd 2d 31 36 2b  |t",fh%,.25+.-16+|
00002430  bd 31 36 2b 22 20 4d 65  6e 75 20 22 2c 25 31 31  |.16+" Menu ",%11|
00002440  3c 3c 38 2c 31 35 30 30  30 30 2c 72 6f 77 70 25  |<<8,150000,rowp%|
00002450  0d 0d 5c 23 f4 20 72 6f  77 25 2d 3d 2e 35 2a 67  |..\#. row%-=.5*g|
00002460  61 70 25 3a 72 6f 77 70  25 2d 3d 2e 35 2a 67 61  |ap%:rowp%-=.5*ga|
00002470  70 70 25 0d 0d 66 0a 73  65 6c 25 3d 31 0d 0d 70  |pp%..f.sel%=1..p|
00002480  12 e3 20 6e 3d 31 20 b8  20 69 74 65 6d 73 25 0d  |.. n=1 . items%.|
00002490  0d 7a 10 f2 6d 65 6e 75  69 74 65 6d 28 6e 29 0d  |.z..menuitem(n).|
000024a0  0d 84 07 ed 20 6e 0d 0d  8e 0f 6d 65 6e 75 64 6f  |.... n....menudo|
000024b0  6e 65 25 3d a3 0d 0d 98  12 c8 95 20 6d 65 6e 75  |ne%=....... menu|
000024c0  64 6f 6e 65 25 3d a3 0d  0d a2 0e 6f 73 65 6c 25  |done%=.....osel%|
000024d0  3d 73 65 6c 25 0d 0d ac  08 6b 25 3d a5 0d 0d b6  |=sel%....k%=....|
000024e0  0b c8 8e 20 6b 25 20 ca  0d 0d c0 18 c9 20 31 33  |... k% ...... 13|
000024f0  3a e7 20 a0 28 66 6e 73  24 28 73 65 6c 25 29 29  |:. .(fns$(sel%))|
00002500  0d 0d ca 11 c9 20 31 33  38 3a 73 65 6c 25 2b 3d  |..... 138:sel%+=|
00002510  31 0d 0d d4 11 c9 20 31  33 39 3a 73 65 6c 25 2d  |1..... 139:sel%-|
00002520  3d 31 0d 0d de 05 cb 0d  0d e8 15 e7 20 73 65 6c  |=1.......... sel|
00002530  25 3c 31 20 8c 20 73 65  6c 25 3d 31 0d 0d f2 1f  |%<1 . sel%=1....|
00002540  e7 20 73 65 6c 25 3e 69  74 65 6d 73 25 20 8c 20  |. sel%>items% . |
00002550  73 65 6c 25 3d 69 74 65  6d 73 25 0d 0d fc 14 f2  |sel%=items%.....|
00002560  6d 65 6e 75 69 74 65 6d  28 6f 73 65 6c 25 29 0d  |menuitem(osel%).|
00002570  0e 06 13 f2 6d 65 6e 75  69 74 65 6d 28 73 65 6c  |....menuitem(sel|
00002580  25 29 0d 0e 10 05 ce 0d  0e 1a 0e 72 6f 77 25 3d  |%).........row%=|
00002590  67 72 6f 77 25 0d 0e 24  05 e1 0d 0e 2e 05 3a 0d  |grow%..$......:.|
000025a0  0e 38 12 dd 20 f2 6d 65  6e 75 69 74 65 6d 28 6e  |.8.. .menuitem(n|
000025b0  29 0d 0e 42 0d 21 63 6f  6f 72 64 25 3d 30 0d 0e  |)..B.!coord%=0..|
000025c0  4c 0e 63 6f 6f 72 64 25  21 34 3d 30 0d 0e 56 0e  |L.coord%!4=0..V.|
000025d0  63 6f 6f 72 64 25 21 38  3d 30 0d 0e 60 0f 63 6f  |coord%!8=0..`.co|
000025e0  6f 72 64 25 21 31 32 3d  30 0d 0e 6a 0f 63 6f 6f  |ord%!12=0..j.coo|
000025f0  72 64 25 21 31 36 3d 30  0d 0e 74 1e 63 6f 6f 72  |rd%!16=0..t.coor|
00002600  64 25 21 32 30 3d 72 6f  77 70 25 2d 6e 2a 67 61  |d%!20=rowp%-n*ga|
00002610  70 70 25 2b 6c 79 0d 0e  7e 14 63 6f 6f 72 64 25  |pp%+ly..~.coord%|
00002620  21 32 34 3d 73 63 72 5f  77 25 0d 0e 88 1e 63 6f  |!24=scr_w%....co|
00002630  6f 72 64 25 21 32 38 3d  72 6f 77 70 25 2d 6e 2a  |ord%!28=rowp%-n*|
00002640  67 61 70 70 25 2b 68 79  0d 0e 92 31 c8 99 20 22  |gapp%+hy...1.. "|
00002650  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
00002660  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 73 79 6d 25  |ontColours",sym%|
00002670  2c 62 25 2c 66 25 2c 31  34 0d 0e 9c 0d c8 8e 20  |,b%,f%,14...... |
00002680  73 65 6c 25 20 ca 0d 0e  a6 7e 20 20 c9 20 6e 20  |sel% ....~  . n |
00002690  20 20 3a e7 20 6c 6f 67  32 62 70 70 25 3c 31 20  |  :. log2bpp%<1 |
000026a0  8c 20 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |. .. "ColourTran|
000026b0  73 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |s_SetFontColours|
000026c0  22 2c 66 68 25 2c 26 30  30 46 46 46 46 30 30 2c  |",fh%,&00FFFF00,|
000026d0  62 25 2c 31 34 3a 8b 20  c8 99 20 22 43 6f 6c 6f  |b%,14:. .. "Colo|
000026e0  75 72 54 72 61 6e 73 5f  53 65 74 46 6f 6e 74 43  |urTrans_SetFontC|
000026f0  6f 6c 6f 75 72 73 22 2c  66 68 25 2c 62 25 2c 66  |olours",fh%,b%,f|
00002700  25 2c 31 34 0d 0e b0 34  20 20 7f 3a c8 99 20 22  |%,14...4  .:.. "|
00002710  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
00002720  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 66 68 25 2c  |ontColours",fh%,|
00002730  62 25 2c 66 25 2c 31 34  0d 0e ba 05 cb 0d 0e c4  |b%,f%,14........|
00002740  54 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  |T.. "Font_Paint"|
00002750  2c 73 79 6d 25 2c 22 62  22 2c 25 31 31 31 30 31  |,sym%,"b",%11101|
00002760  30 30 30 31 30 2c 31 31  30 30 30 30 2c 72 6f 77  |00010,110000,row|
00002770  70 25 2d 6e 2a 67 61 70  70 25 2c 63 6f 6f 72 64  |p%-n*gapp%,coord|
00002780  25 2c 2c 94 28 b4 28 74  69 63 6b 25 28 6e 29 29  |%,,.(.(tick%(n))|
00002790  29 0d 0e ce 0d c8 8e 20  73 65 6c 25 20 ca 0d 0e  |)...... sel% ...|
000027a0  d8 85 20 20 c9 20 6e 20  20 20 3a e7 20 6c 6f 67  |..  . n   :. log|
000027b0  32 62 70 70 25 3c 31 20  8c 20 c8 99 20 22 43 6f  |2bpp%<1 . .. "Co|
000027c0  6c 6f 75 72 54 72 61 6e  73 5f 53 65 74 46 6f 6e  |lourTrans_SetFon|
000027d0  74 43 6f 6c 6f 75 72 73  22 2c 66 68 25 2c 26 30  |tColours",fh%,&0|
000027e0  30 46 46 46 46 30 30 2c  62 25 2c 31 34 3a 8b 20  |0FFFF00,b%,14:. |
000027f0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
00002800  53 65 74 46 6f 6e 74 43  6f 6c 6f 75 72 73 22 2c  |SetFontColours",|
00002810  66 68 25 2c 62 25 2c 26  30 30 46 46 46 46 30 30  |fh%,b%,&00FFFF00|
00002820  2c 31 34 0d 0e e2 3b 20  20 7f 3a c8 99 20 22 43  |,14...;  .:.. "C|
00002830  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 46 6f  |olourTrans_SetFo|
00002840  6e 74 43 6f 6c 6f 75 72  73 22 2c 66 68 25 2c 62  |ntColours",fh%,b|
00002850  25 2c 26 30 30 46 46 30  30 30 30 2c 31 34 0d 0e  |%,&00FF0000,14..|
00002860  ec 05 cb 0d 0e f6 3c c8  99 20 22 46 6f 6e 74 5f  |......<.. "Font_|
00002870  50 61 69 6e 74 22 2c 66  68 25 2c 6d 65 6e 75 24  |Paint",fh%,menu$|
00002880  28 6e 29 2c 25 31 31 3c  3c 38 2c 31 33 36 30 30  |(n),%11<<8,13600|
00002890  30 2c 72 6f 77 70 25 2d  6e 2a 67 61 70 70 25 0d  |0,rowp%-n*gapp%.|
000028a0  0f 00 05 e1 0d 0f 0a 05  3a 0d 0f 14 10 dd 20 f2  |........:..... .|
000028b0  73 65 74 75 70 6d 65 6e  75 0d 0f 1e 07 ea 20 6e  |setupmenu..... n|
000028c0  0d 0f 28 0a f7 20 8d 64  7a 4f 0d 0f 32 0c f3 20  |..(.. .dzO..2.. |
000028d0  69 74 65 6d 73 25 0d 0f  3c 2e de 20 6d 65 6e 75  |items%..<.. menu|
000028e0  24 28 69 74 65 6d 73 25  29 2c 66 6e 73 24 28 69  |$(items%),fns$(i|
000028f0  74 65 6d 73 25 29 2c 74  69 63 6b 25 28 69 74 65  |tems%),tick%(ite|
00002900  6d 73 25 29 0d 0f 46 12  e3 20 6e 3d 31 20 b8 20  |ms%)..F.. n=1 . |
00002910  69 74 65 6d 73 25 0d 0f  50 1f f3 20 6d 65 6e 75  |items%..P.. menu|
00002920  24 28 6e 29 2c 66 6e 73  24 28 6e 29 2c 74 69 63  |$(n),fns$(n),tic|
00002930  6b 25 28 6e 29 0d 0f 5a  07 ed 20 6e 0d 0f 64 37  |k%(n)..Z.. n..d7|
00002940  c8 99 20 22 46 6f 6e 74  5f 46 69 6e 64 46 6f 6e  |.. "Font_FindFon|
00002950  74 22 2c 2c 22 53 65 6c  77 79 6e 22 2c 31 38 2a  |t",,"Selwyn",18*|
00002960  31 36 2c 31 38 2a 31 36  2c 30 2c 30 20 b8 20 73  |16,18*16,0,0 . s|
00002970  79 6d 25 0d 0f 6e 0e 72  65 76 65 72 73 65 25 3d  |ym%..n.reverse%=|
00002980  31 0d 0f 78 0e 6f 76 65  72 6c 61 79 25 3d a3 0d  |1..x.overlay%=..|
00002990  0f 82 0c 63 6c 6f 63 6b  25 3d 31 0d 0f 8c 0b 70  |...clock%=1....p|
000029a0  61 74 68 25 3d a3 0d 0f  96 0b 62 75 66 66 25 3d  |ath%=.....buff%=|
000029b0  30 0d 0f a0 09 72 6f 74  3d 30 0d 0f aa 0a 6d 6f  |0....rot=0....mo|
000029c0  76 65 3d 30 0d 0f b4 0e  64 65 66 5f 6d 6f 76 65  |ve=0....def_move|
000029d0  3d 30 0d 0f be 0a 73 68  6f 74 3d 31 0d 0f c8 0a  |=0....shot=1....|
000029e0  70 61 74 68 3d 31 0d 0f  d2 0a 6f 62 6a 6e 3d 31  |path=1....objn=1|
000029f0  0d 0f dc 0d 6f 62 6a 65  63 74 25 3d a3 0d 0f e6  |....object%=....|
00002a00  05 e1 0d 0f f0 05 3a 0d  0f fa 07 dc 20 39 0d 10  |......:..... 9..|
00002a10  04 17 dc 20 22 44 72 61  77 22 2c 22 46 4e 64 72  |... "Draw","FNdr|
00002a20  61 77 22 2c 30 0d 10 0e  1e dc 20 22 45 64 69 74  |aw",0..... "Edit|
00002a30  20 26 20 44 72 61 77 22  2c 22 46 4e 65 64 69 74  | & Draw","FNedit|
00002a40  22 2c 30 0d 10 18 21 dc  20 22 4d 61 6b 65 20 44  |",0...!. "Make D|
00002a50  72 61 77 20 70 61 74 68  22 2c 22 46 4e 70 61 74  |raw path","FNpat|
00002a60  68 22 2c 30 0d 10 22 43  f4 20 20 22 4d 61 6b 65  |h",0.."C.  "Make|
00002a70  20 44 72 61 77 20 6f 62  6a 65 63 74 22 2c 22 46  | Draw object","F|
00002a80  4e 6f 62 6a 65 63 74 22  2c 30 20 3a 52 45 4d 20  |Nobject",0 :REM |
00002a90  2a 2a 2a 2a 2a 2a 2a 2a  20 4e 6f 74 20 77 6f 72  |******** Not wor|
00002aa0  6b 69 6e 67 20 2a 2a 0d  10 2c 1d dc 20 22 4f 76  |king **..,.. "Ov|
00002ab0  65 72 6c 61 79 22 2c 22  46 4e 6f 76 65 72 6c 61  |erlay","FNoverla|
00002ac0  79 22 2c 30 0d 10 36 25  dc 20 22 52 65 76 65 72  |y",0..6%. "Rever|
00002ad0  73 65 20 77 72 69 74 69  6e 67 22 2c 22 46 4e 72  |se writing","FNr|
00002ae0  65 76 65 72 73 65 22 2c  30 0d 10 40 26 dc 20 22  |everse",0..@&. "|
00002af0  41 6e 74 69 2d 63 6c 6f  63 6b 77 69 73 65 22 2c  |Anti-clockwise",|
00002b00  22 46 4e 61 6e 74 69 63  6c 6f 63 6b 22 2c 30 0d  |"FNanticlock",0.|
00002b10  10 4a 17 dc 20 22 4d 6f  76 65 22 2c 22 46 4e 6d  |.J.. "Move","FNm|
00002b20  6f 76 65 22 2c 30 0d 10  54 24 dc 20 22 53 63 72  |ove",0..T$. "Scr|
00002b30  65 65 6e 20 73 68 6f 74  22 2c 22 46 4e 73 63 72  |een shot","FNscr|
00002b40  65 65 6e 73 68 6f 74 22  2c 30 0d 10 5e 17 dc 20  |eenshot",0..^.. |
00002b50  22 51 75 69 74 22 2c 22  46 4e 71 75 69 74 22 2c  |"Quit","FNquit",|
00002b60  30 0d 10 68 05 3a 0d 10  72 0b dd 20 a4 64 72 61  |0..h.:..r.. .dra|
00002b70  77 0d 10 7c 0f 6d 65 6e  75 64 6f 6e 65 25 3d b9  |w..|.menudone%=.|
00002b80  0d 10 86 06 3d 30 0d 10  90 0b dd 20 a4 65 64 69  |....=0..... .edi|
00002b90  74 0d 10 9a 0b 65 64 69  74 25 3d b9 0d 10 a4 0f  |t....edit%=.....|
00002ba0  6d 65 6e 75 64 6f 6e 65  25 3d b9 0d 10 ae 06 3d  |menudone%=.....=|
00002bb0  30 0d 10 b8 0b dd 20 a4  70 61 74 68 0d 10 c2 1d  |0..... .path....|
00002bc0  74 69 63 6b 25 28 73 65  6c 25 29 3d ac 20 74 69  |tick%(sel%)=. ti|
00002bd0  63 6b 25 28 73 65 6c 25  29 0d 10 cc 13 e7 20 74  |ck%(sel%)..... t|
00002be0  69 63 6b 25 28 73 65 6c  25 29 20 8c 0d 10 d6 0d  |ick%(sel%) .....|
00002bf0  20 20 70 61 74 68 25 3d  b9 0d 10 e0 12 20 20 70  |  path%=.....  p|
00002c00  6e 24 3d 22 40 2e 50 61  74 68 22 0d 10 ea 32 20  |n$="@.Path"...2 |
00002c10  20 6d 65 6e 75 24 28 73  65 6c 25 29 3d 22 4d 61  | menu$(sel%)="Ma|
00002c20  6b 65 20 44 72 61 77 20  70 61 74 68 20 28 22 2b  |ke Draw path ("+|
00002c30  70 6e 24 2b c3 70 61 74  68 2b 22 29 22 0d 10 f4  |pn$+.path+")"...|
00002c40  15 20 20 f2 6d 65 6e 75  69 74 65 6d 28 73 65 6c  |.  .menuitem(sel|
00002c50  25 29 0d 10 fe 05 cc 0d  11 08 11 20 20 f2 66 69  |%).........  .fi|
00002c60  6e 69 73 68 70 61 74 68  0d 11 12 0d 20 20 70 61  |nishpath....  pa|
00002c70  74 68 2b 3d 31 0d 11 1c  0d 20 20 62 75 66 66 25  |th+=1....  buff%|
00002c80  3d 30 0d 11 26 22 20 20  6d 65 6e 75 24 28 73 65  |=0..&"  menu$(se|
00002c90  6c 25 29 3d 22 4d 61 6b  65 20 44 72 61 77 20 70  |l%)="Make Draw p|
00002ca0  61 74 68 22 0d 11 30 05  cd 0d 11 3a 06 3d 30 0d  |ath"..0....:.=0.|
00002cb0  11 44 0d dd 20 a4 6f 62  6a 65 63 74 0d 11 4e 1d  |.D.. .object..N.|
00002cc0  74 69 63 6b 25 28 73 65  6c 25 29 3d ac 20 74 69  |tick%(sel%)=. ti|
00002cd0  63 6b 25 28 73 65 6c 25  29 0d 11 58 13 e7 20 74  |ck%(sel%)..X.. t|
00002ce0  69 63 6b 25 28 73 65 6c  25 29 20 8c 0d 11 62 0f  |ick%(sel%) ...b.|
00002cf0  20 20 6f 62 6a 65 63 74  25 3d b9 0d 11 6c 12 20  |  object%=...l. |
00002d00  20 6f 6e 24 3d 22 40 2e  44 72 61 77 22 0d 11 76  | on$="@.Draw"..v|
00002d10  34 20 20 6d 65 6e 75 24  28 73 65 6c 25 29 3d 22  |4  menu$(sel%)="|
00002d20  4d 61 6b 65 20 44 72 61  77 20 6f 62 6a 65 63 74  |Make Draw object|
00002d30  20 28 22 2b 6f 6e 24 2b  c3 6f 62 6a 6e 2b 22 29  | ("+on$+.objn+")|
00002d40  22 0d 11 80 15 20 20 f2  6d 65 6e 75 69 74 65 6d  |"....  .menuitem|
00002d50  28 73 65 6c 25 29 0d 11  8a 05 cc 0d 11 94 10 20  |(sel%)......... |
00002d60  20 f2 66 69 6e 69 73 68  6f 62 6a 0d 11 9e 0d 20  | .finishobj.... |
00002d70  20 6f 62 6a 6e 2b 3d 31  0d 11 a8 0d 20 20 62 75  | objn+=1....  bu|
00002d80  66 66 25 3d 30 0d 11 b2  24 20 20 6d 65 6e 75 24  |ff%=0...$  menu$|
00002d90  28 73 65 6c 25 29 3d 22  4d 61 6b 65 20 44 72 61  |(sel%)="Make Dra|
00002da0  77 20 6f 62 6a 65 63 74  22 0d 11 bc 05 cd 0d 11  |w object".......|
00002db0  c6 06 3d 30 0d 11 d0 10  dd 20 a4 61 6e 74 69 63  |..=0..... .antic|
00002dc0  6c 6f 63 6b 0d 11 da 1d  74 69 63 6b 25 28 73 65  |lock....tick%(se|
00002dd0  6c 25 29 3d ac 20 74 69  63 6b 25 28 73 65 6c 25  |l%)=. tick%(sel%|
00002de0  29 0d 11 e4 17 72 65 76  65 72 73 65 25 3d 31 2d  |)....reverse%=1-|
00002df0  72 65 76 65 72 73 65 25  0d 11 ee 06 3d 30 0d 11  |reverse%....=0..|
00002e00  f8 0e dd 20 a4 72 65 76  65 72 73 65 0d 12 02 1d  |... .reverse....|
00002e10  74 69 63 6b 25 28 73 65  6c 25 29 3d ac 20 74 69  |tick%(sel%)=. ti|
00002e20  63 6b 25 28 73 65 6c 25  29 0d 12 0c 12 63 6c 6f  |ck%(sel%)....clo|
00002e30  63 6b 25 3d 2d 63 6c 6f  63 6b 25 0d 12 16 35 e7  |ck%=-clock%...5.|
00002e40  20 74 69 63 6b 25 28 73  65 6c 25 29 20 8c 20 6d  | tick%(sel%) . m|
00002e50  6f 76 65 3d 64 65 66 5f  6d 6f 76 65 2b 30 2e 39  |ove=def_move+0.9|
00002e60  3a 8b 20 6d 6f 76 65 3d  64 65 66 5f 6d 6f 76 65  |:. move=def_move|
00002e70  0d 12 20 23 e7 20 74 69  63 6b 25 28 73 65 6c 25  |.. #. tick%(sel%|
00002e80  29 20 8c 20 72 6f 74 3d  af 20 20 3a 8b 20 72 6f  |) . rot=.  :. ro|
00002e90  74 3d 30 0d 12 2a 06 3d  30 0d 12 34 0b dd 20 a4  |t=0..*.=0..4.. .|
00002ea0  6d 6f 76 65 0d 12 3e 09  41 25 3d 40 25 0d 12 48  |move..>.A%=@%..H|
00002eb0  0f 40 25 3d 22 2b 46 31  30 2e 32 22 0d 12 52 08  |.@%="+F10.2"..R.|
00002ec0  ea 20 6b 25 0d 12 5c 1d  74 69 63 6b 25 28 73 65  |. k%..\.tick%(se|
00002ed0  6c 25 29 3d ac 20 74 69  63 6b 25 28 73 65 6c 25  |l%)=. tick%(sel%|
00002ee0  29 0d 12 66 13 e7 20 74  69 63 6b 25 28 73 65 6c  |)..f.. tick%(sel|
00002ef0  25 29 20 8c 0d 12 70 13  20 20 6d 6f 76 65 3d 64  |%) ...p.  move=d|
00002f00  65 66 5f 6d 6f 76 65 0d  12 7a 11 20 20 6d 6f 76  |ef_move..z.  mov|
00002f10  65 64 6f 6e 65 25 3d a3  0d 12 84 14 20 20 c8 95  |edone%=.....  ..|
00002f20  20 6d 6f 76 65 64 6f 6e  65 25 3d 30 0d 12 8e 6d  | movedone%=0...m|
00002f30  20 20 6d 65 6e 75 24 28  73 65 6c 25 29 3d 22 4d  |  menu$(sel%)="M|
00002f40  6f 76 65 20 28 48 65 69  67 68 74 20 d7 20 22 2b  |ove (Height . "+|
00002f50  bd 31 39 2b bd 30 2b bd  30 2b bd 30 2b bd 26 46  |.19+.0+.0+.0+.&F|
00002f60  46 2b bd 26 46 46 2b bd  26 46 46 2b bd 31 34 2b  |F+.&FF+.&FF+.14+|
00002f70  c3 28 6d 6f 76 65 29 2b  bd 31 39 2b bd 30 2b bd  |.(move)+.19+.0+.|
00002f80  30 2b bd 30 2b bd 26 31  31 2b bd 32 35 35 2b bd  |0+.0+.&11+.255+.|
00002f90  30 2b bd 31 34 2b 22 29  22 0d 12 98 15 20 20 f2  |0+.14+")"....  .|
00002fa0  6d 65 6e 75 69 74 65 6d  28 73 65 6c 25 29 0d 12  |menuitem(sel%)..|
00002fb0  a2 0a 20 20 6b 25 3d a5  0d 12 ac 0d 20 20 c8 8e  |..  k%=.....  ..|
00002fc0  20 6b 25 20 ca 0d 12 b6  24 20 20 c9 20 31 33 3a  | k% ....$  . 13:|
00002fd0  74 69 63 6b 25 28 73 65  6c 25 29 3d a3 3a 6d 6f  |tick%(sel%)=.:mo|
00002fe0  76 65 64 6f 6e 65 25 3d  b9 0d 12 c0 16 20 20 c9  |vedone%=.....  .|
00002ff0  20 33 32 3a 6d 6f 76 65  64 6f 6e 65 25 3d b9 0d  | 32:movedone%=..|
00003000  12 ca 16 20 20 c9 20 31  33 39 3a 6d 6f 76 65 2b  |...  . 139:move+|
00003010  3d 30 2e 30 35 0d 12 d4  16 20 20 c9 20 31 33 38  |=0.05....  . 138|
00003020  3a 6d 6f 76 65 2d 3d 30  2e 30 35 0d 12 de 15 20  |:move-=0.05.... |
00003030  20 c9 20 31 33 36 3a 6d  6f 76 65 2d 3d 30 2e 35  | . 136:move-=0.5|
00003040  0d 12 e8 15 20 20 c9 20  31 33 37 3a 6d 6f 76 65  |....  . 137:move|
00003050  2b 3d 30 2e 35 0d 12 f2  07 20 20 cb 0d 12 fc 13  |+=0.5....  .....|
00003060  20 20 64 65 66 5f 6d 6f  76 65 3d 6d 6f 76 65 0d  |  def_move=move.|
00003070  13 06 07 20 20 ce 0d 13  10 2f 20 20 6d 65 6e 75  |...  ..../  menu|
00003080  24 28 73 65 6c 25 29 3d  22 4d 6f 76 65 20 28 48  |$(sel%)="Move (H|
00003090  65 69 67 68 74 20 d7 20  22 2b c3 28 6d 6f 76 65  |eight . "+.(move|
000030a0  29 2b 22 29 22 0d 13 1a  15 20 20 f2 6d 65 6e 75  |)+")"....  .menu|
000030b0  69 74 65 6d 28 73 65 6c  25 29 0d 13 24 05 cd 0d  |item(sel%)..$...|
000030c0  13 2e 2f e7 20 74 69 63  6b 25 28 73 65 6c 25 29  |../. tick%(sel%)|
000030d0  3d 30 20 8c 20 6d 6f 76  65 3d 30 3a 6d 65 6e 75  |=0 . move=0:menu|
000030e0  24 28 73 65 6c 25 29 3d  22 4d 6f 76 65 22 0d 13  |$(sel%)="Move"..|
000030f0  38 09 40 25 3d 41 25 0d  13 42 06 3d 30 0d 13 4c  |8.@%=A%..B.=0..L|
00003100  0e dd 20 a4 6f 76 65 72  6c 61 79 0d 13 56 1d 74  |.. .overlay..V.t|
00003110  69 63 6b 25 28 73 65 6c  25 29 3d ac 20 74 69 63  |ick%(sel%)=. tic|
00003120  6b 25 28 73 65 6c 25 29  0d 13 60 17 6f 76 65 72  |k%(sel%)..`.over|
00003130  6c 61 79 25 3d ac 20 6f  76 65 72 6c 61 79 25 0d  |lay%=. overlay%.|
00003140  13 6a 06 3d 30 0d 13 74  11 dd 20 a4 73 63 72 65  |.j.=0..t.. .scre|
00003150  65 6e 73 68 6f 74 0d 13  7e 11 74 69 63 6b 25 28  |enshot..~.tick%(|
00003160  73 65 6c 25 29 3d b9 0d  13 88 18 66 6e 24 3d 22  |sel%)=.....fn$="|
00003170  40 2e 53 63 72 65 65 6e  22 2b c3 73 68 6f 74 0d  |@.Screen"+.shot.|
00003180  13 92 27 6d 65 6e 75 24  28 73 65 6c 25 29 3d 22  |..'menu$(sel%)="|
00003190  53 63 72 65 65 6e 20 73  68 6f 74 20 28 22 2b 66  |Screen shot ("+f|
000031a0  6e 24 2b 22 29 22 0d 13  9c 13 f2 6d 65 6e 75 69  |n$+")".....menui|
000031b0  74 65 6d 28 73 65 6c 25  29 0d 13 a6 15 f5 47 3d  |tem(sel%).....G=|
000031c0  a5 3a fd 47 3d 33 32 20  84 20 47 3d 31 33 0d 13  |.:.G=32 . G=13..|
000031d0  b0 0b e7 47 3d 33 32 20  8c 0d 13 ba 0e 20 20 f2  |...G=32 .....  .|
000031e0  62 61 6e 6b 28 32 29 0d  13 c4 19 20 20 ff 20 22  |bank(2)....  . "|
000031f0  53 63 72 65 65 6e 53 61  76 65 20 22 2b 66 6e 24  |ScreenSave "+fn$|
00003200  0d 13 ce 0e 20 20 f2 62  61 6e 6b 28 31 29 0d 13  |....  .bank(1)..|
00003210  d8 05 cd 0d 13 e2 0b 73  68 6f 74 2b 3d 31 0d 13  |.......shot+=1..|
00003220  ec 11 74 69 63 6b 25 28  73 65 6c 25 29 3d a3 0d  |..tick%(sel%)=..|
00003230  13 f6 1d 6d 65 6e 75 24  28 73 65 6c 25 29 3d 22  |...menu$(sel%)="|
00003240  53 63 72 65 65 6e 20 73  68 6f 74 22 0d 14 00 06  |Screen shot"....|
00003250  3d 30 0d 14 0a 0b dd 20  a4 71 75 69 74 0d 14 14  |=0..... .quit...|
00003260  0f 6d 65 6e 75 64 6f 6e  65 25 3d b9 0d 14 1e 0b  |.menudone%=.....|
00003270  71 75 69 74 25 3d b9 0d  14 28 06 3d 30 0d 14 32  |quit%=...(.=0..2|
00003280  05 3a 0d 14 3c 14 dd 20  a4 68 65 61 64 65 72 28  |.:..<.. .header(|
00003290  62 75 66 66 25 29 0d 14  46 11 24 62 75 66 66 25  |buff%)..F.$buff%|
000032a0  3d 22 44 72 61 77 22 0d  14 50 0f 62 75 66 66 25  |="Draw"..P.buff%|
000032b0  21 34 3d 32 30 31 0d 14  5a 0d 62 75 66 66 25 21  |!4=201..Z.buff%!|
000032c0  38 3d 30 0d 14 64 1a 24  28 62 75 66 66 25 2b 31  |8=0..d.$(buff%+1|
000032d0  32 29 3d 22 41 55 20 46  69 74 43 20 22 0d 14 6e  |2)="AU FitC "..n|
000032e0  0e 62 75 66 66 25 21 32  30 3d 30 0d 14 78 16 62  |.buff%!20=0..x.b|
000032f0  75 66 66 25 21 32 34 3d  26 37 46 46 46 46 46 46  |uff%!24=&7FFFFFF|
00003300  46 0d 14 82 16 62 75 66  66 25 21 32 38 3d 26 37  |F....buff%!28=&7|
00003310  46 46 46 46 46 46 46 0d  14 8c 0e 62 75 66 66 25  |FFFFFFF....buff%|
00003320  21 33 32 3d 30 0d 14 96  0e 62 75 66 66 25 21 33  |!32=0....buff%!3|
00003330  36 3d 30 0d 14 a0 0d 3d  62 75 66 66 25 2b 34 30  |6=0....=buff%+40|
00003340  0d 14 aa 05 3a 0d 14 b4  11 dd 20 f2 66 69 6e 69  |....:..... .fini|
00003350  73 68 70 61 74 68 0d 14  be 0f 20 20 e7 20 70 61  |shpath....  . pa|
00003360  74 68 25 20 8c 0d 14 c8  28 20 20 c8 99 20 22 46  |th% ....(  .. "F|
00003370  6f 6e 74 5f 53 77 69 74  63 68 4f 75 74 70 75 74  |ont_SwitchOutput|
00003380  54 6f 42 75 66 66 65 72  22 2c 30 2c 30 0d 14 d2  |ToBuffer",0,0...|
00003390  0d 20 20 70 61 74 68 25  3d a3 0d 14 dc 27 20 20  |.  path%=....'  |
000033a0  e7 20 62 75 66 66 25 20  8c 20 f2 63 61 6c 63 42  |. buff% . .calcB|
000033b0  42 28 62 75 66 66 25 2c  62 75 66 66 70 74 72 25  |B(buff%,buffptr%|
000033c0  29 0d 14 e6 5c 20 20 e7  20 62 75 66 66 25 20 8c  |)...\  . buff% .|
000033d0  20 ff 20 22 53 61 76 65  20 22 2b 70 6e 24 2b c3  | . "Save "+pn$+.|
000033e0  70 61 74 68 2b 22 20 22  2b c3 7e 62 75 66 66 25  |path+" "+.~buff%|
000033f0  2b 22 20 22 2b c3 7e 62  75 66 66 70 74 72 25 3a  |+" "+.~buffptr%:|
00003400  ff 20 22 53 65 74 54 79  70 65 20 22 2b 70 6e 24  |. "SetType "+pn$|
00003410  2b c3 70 61 74 68 2b 22  20 41 46 46 22 0d 14 f0  |+.path+" AFF"...|
00003420  28 20 20 e7 20 62 75 66  66 25 20 8c 20 c8 99 20  |(  . buff% . .. |
00003430  22 58 4f 53 5f 4d 6f 64  75 6c 65 22 2c 37 2c 2c  |"XOS_Module",7,,|
00003440  62 75 66 66 25 0d 14 fa  0d 20 20 62 75 66 66 25  |buff%....  buff%|
00003450  3d 30 0d 15 04 05 cd 0d  15 0e 05 e1 0d 15 18 05  |=0..............|
00003460  3a 0d 15 22 10 dd 20 f2  66 69 6e 69 73 68 6f 62  |:..".. .finishob|
00003470  6a 0d 15 2c 19 20 20 e7  20 6f 62 6a 65 63 74 25  |j..,.  . object%|
00003480  20 80 20 62 75 66 66 25  20 8c 0d 15 36 1d 20 20  | . buff% ...6.  |
00003490  f2 63 61 6c 63 42 42 28  62 75 66 66 25 2c 62 75  |.calcBB(buff%,bu|
000034a0  66 66 70 74 72 25 29 0d  15 40 57 20 20 4f 53 4c  |ffptr%)..@W  OSL|
000034b0  49 20 22 53 61 76 65 20  22 2b 6f 6e 24 2b c3 6f  |I "Save "+on$+.o|
000034c0  62 6a 6e 25 2b 22 20 22  2b c3 7e 62 75 66 66 25  |bjn%+" "+.~buff%|
000034d0  2b 22 20 22 2b c3 7e 62  75 66 66 70 74 72 25 3a  |+" "+.~buffptr%:|
000034e0  ff 20 22 53 65 74 54 79  70 65 20 22 2b 6f 6e 24  |. "SetType "+on$|
000034f0  2b c3 6f 62 6a 6e 25 2b  22 20 41 46 46 22 0d 15  |+.objn%+" AFF"..|
00003500  4a 26 20 20 c8 99 20 22  58 4f 53 5f 4d 6f 64 75  |J&  .. "XOS_Modu|
00003510  6c 65 22 2c 37 2c 2c 62  75 66 66 25 3a 62 75 66  |le",7,,buff%:buf|
00003520  66 25 3d 30 0d 15 54 05  cd 0d 15 5e 04 0d 15 68  |f%=0..T....^...h|
00003530  05 3a 0d 15 72 19 dd 20  f2 63 61 6c 63 42 42 28  |.:..r.. .calcBB(|
00003540  62 61 73 65 25 2c 65 6e  64 25 29 0d 15 7c 10 ea  |base%,end%)..|..|
00003550  20 70 74 72 25 2c 64 6f  6e 65 25 0d 15 86 11 70  | ptr%,done%....p|
00003560  74 72 25 3d 62 61 73 65  25 2b 34 30 0d 15 90 0b  |tr%=base%+40....|
00003570  64 6f 6e 65 25 3d a3 0d  15 9a 0e c8 95 20 ac 20  |done%=....... . |
00003580  64 6f 6e 65 25 0d 15 a4  0f e7 20 21 70 74 72 25  |done%..... !ptr%|
00003590  3d 32 20 8c 0d 15 ae 29  20 20 e7 20 70 74 72 25  |=2 ....)  . ptr%|
000035a0  21 38 3c 62 61 73 65 25  21 32 34 20 8c 20 62 61  |!8<base%!24 . ba|
000035b0  73 65 25 21 32 34 3d 70  74 72 25 21 38 0d 15 b8  |se%!24=ptr%!8...|
000035c0  2b 20 20 e7 20 70 74 72  25 21 31 32 3c 62 61 73  |+  . ptr%!12<bas|
000035d0  65 25 21 32 38 20 8c 20  62 61 73 65 25 21 32 38  |e%!28 . base%!28|
000035e0  3d 70 74 72 25 21 31 32  0d 15 c2 2b 20 20 e7 20  |=ptr%!12...+  . |
000035f0  70 74 72 25 21 31 36 3e  62 61 73 65 25 21 33 32  |ptr%!16>base%!32|
00003600  20 8c 20 62 61 73 65 25  21 33 32 3d 70 74 72 25  | . base%!32=ptr%|
00003610  21 31 36 0d 15 cc 2b 20  20 e7 20 70 74 72 25 21  |!16...+  . ptr%!|
00003620  32 30 3e 62 61 73 65 25  21 33 36 20 8c 20 62 61  |20>base%!36 . ba|
00003630  73 65 25 21 33 36 3d 70  74 72 25 21 32 30 0d 15  |se%!36=ptr%!20..|
00003640  d6 05 cd 0d 15 e0 10 70  74 72 25 2b 3d 70 74 72  |.......ptr%+=ptr|
00003650  25 21 34 0d 15 ea 1a e7  20 70 74 72 25 3e 3d 65  |%!4..... ptr%>=e|
00003660  6e 64 25 20 8c 20 64 6f  6e 65 25 3d b9 0d 15 f4  |nd% . done%=....|
00003670  05 ce 0d 15 fe 05 e1 0d  16 08 05 3a 0d 16 12 10  |...........:....|
00003680  dd 20 f2 61 64 64 28 76  61 6c 25 29 0d 16 1c 12  |. .add(val%)....|
00003690  21 62 75 66 66 70 74 72  25 3d 76 61 6c 25 0d 16  |!buffptr%=val%..|
000036a0  26 0f 62 75 66 66 70 74  72 25 2b 3d 34 0d 16 30  |&.buffptr%+=4..0|
000036b0  05 e1 0d 16 3a 05 3a 0d  16 44 10 dd 20 f2 78 79  |....:.:..D.. .xy|
000036c0  28 78 25 2c 79 25 29 0d  16 4e 10 21 62 75 66 66  |(x%,y%)..N.!buff|
000036d0  70 74 72 25 3d 78 25 0d  16 58 11 62 75 66 66 70  |ptr%=x%..X.buffp|
000036e0  74 72 25 21 34 3d 79 25  0d 16 62 0f 62 75 66 66  |tr%!4=y%..b.buff|
000036f0  70 74 72 25 2b 3d 38 0d  16 6c 05 e1 0d 16 76 05  |ptr%+=8..l....v.|
00003700  3a 0d 16 80 2a dd 20 a4  63 69 72 63 6c 65 5f 6f  |:...*. .circle_o|
00003710  62 6a 65 63 74 28 62 75  66 66 70 74 72 25 2c 6f  |bject(buffptr%,o|
00003720  78 2c 6f 79 2c 72 2c 63  6f 6c 29 0d 16 8a 12 ea  |x,oy,r,col).....|
00003730  20 5f 62 75 66 66 25 2c  70 61 74 68 25 0d 16 94  | _buff%,path%...|
00003740  13 5f 62 75 66 66 25 3d  62 75 66 66 70 74 72 25  |._buff%=buffptr%|
00003750  0d 16 9e 13 f2 61 64 64  28 32 29 20 3a f4 20 70  |.....add(2) :. p|
00003760  61 74 68 0d 16 a8 11 62  75 66 66 70 74 72 25 2b  |ath....buffptr%+|
00003770  3d 35 2a 34 0d 16 b2 29  f2 61 64 64 28 2d 31 29  |=5*4...).add(-1)|
00003780  20 3a f2 61 64 64 28 63  6f 6c 29 20 3a f2 61 64  | :.add(col) :.ad|
00003790  64 28 30 29 20 3a f2 61  64 64 28 30 29 0d 16 bc  |d(0) :.add(0)...|
000037a0  12 70 61 74 68 25 3d 62  75 66 66 70 74 72 25 0d  |.path%=buffptr%.|
000037b0  16 c6 34 62 75 66 66 70  74 72 25 3d a4 63 69 72  |..4buffptr%=.cir|
000037c0  63 6c 65 5f 70 61 74 68  28 62 75 66 66 70 74 72  |cle_path(buffptr|
000037d0  25 2c 6f 78 2c 6f 79 2c  72 2c 62 75 66 66 65 6e  |%,ox,oy,r,buffen|
000037e0  64 25 29 0d 16 d0 3c c8  99 20 22 44 72 61 77 5f  |d%)...<.. "Draw_|
000037f0  50 72 6f 63 65 73 73 50  61 74 68 22 2c 70 61 74  |ProcessPath",pat|
00003800  68 25 2c 33 3c 3c 32 38  2c 2c 2c 30 2c 2c 2c 28  |h%,3<<28,,,0,,,(|
00003810  31 3c 3c 33 31 29 2b 5f  62 75 66 66 25 2b 38 0d  |1<<31)+_buff%+8.|
00003820  16 da 0f 62 75 66 66 70  74 72 25 2d 3d 34 0d 16  |...buffptr%-=4..|
00003830  e4 1c 5f 62 75 66 66 25  21 34 3d 62 75 66 66 70  |.._buff%!4=buffp|
00003840  74 72 25 2d 5f 62 75 66  66 25 0d 16 ee 0d 3d 62  |tr%-_buff%....=b|
00003850  75 66 66 70 74 72 25 0d  16 f8 05 3a 0d 17 02 2d  |uffptr%....:...-|
00003860  dd 20 a4 63 69 72 63 6c  65 5f 70 61 74 68 28 62  |. .circle_path(b|
00003870  75 66 66 70 74 72 25 2c  6f 78 2c 6f 79 2c 72 2c  |uffptr%,ox,oy,r,|
00003880  62 75 66 66 65 6e 64 25  29 0d 17 0c 12 ea 20 66  |buffend%)..... f|
00003890  2c 6e 3a 66 3d 31 2e 35  36 32 35 0d 17 16 1b 6f  |,n:f=1.5625....o|
000038a0  78 3d 6f 78 2f 66 20 3a  6f 79 3d 6f 79 2f 66 20  |x=ox/f :oy=oy/f |
000038b0  3a 72 3d 72 2f 66 0d 17  20 0b 6e 3d 72 2f 31 2e  |:r=r/f.. .n=r/1.|
000038c0  38 0d 17 2a 18 f2 61 64  64 28 32 29 3a f2 78 79  |8..*..add(2):.xy|
000038d0  28 6f 78 2c 6f 79 2b 72  29 0d 17 34 36 f2 61 64  |(ox,oy+r)..46.ad|
000038e0  64 28 36 29 3a f2 78 79  28 6f 78 2b 6e 2c 6f 79  |d(6):.xy(ox+n,oy|
000038f0  2b 72 29 3a f2 78 79 28  6f 78 2b 72 2c 6f 79 2b  |+r):.xy(ox+r,oy+|
00003900  6e 29 3a f2 78 79 28 6f  78 2b 72 2c 6f 79 29 0d  |n):.xy(ox+r,oy).|
00003910  17 3e 36 f2 61 64 64 28  36 29 3a f2 78 79 28 6f  |.>6.add(6):.xy(o|
00003920  78 2b 72 2c 6f 79 2d 6e  29 3a f2 78 79 28 6f 78  |x+r,oy-n):.xy(ox|
00003930  2b 6e 2c 6f 79 2d 72 29  3a f2 78 79 28 6f 78 2c  |+n,oy-r):.xy(ox,|
00003940  6f 79 2d 72 29 0d 17 48  36 f2 61 64 64 28 36 29  |oy-r)..H6.add(6)|
00003950  3a f2 78 79 28 6f 78 2d  6e 2c 6f 79 2d 72 29 3a  |:.xy(ox-n,oy-r):|
00003960  f2 78 79 28 6f 78 2d 72  2c 6f 79 2d 6e 29 3a f2  |.xy(ox-r,oy-n):.|
00003970  78 79 28 6f 78 2d 72 2c  6f 79 29 0d 17 52 36 f2  |xy(ox-r,oy)..R6.|
00003980  61 64 64 28 36 29 3a f2  78 79 28 6f 78 2d 72 2c  |add(6):.xy(ox-r,|
00003990  6f 79 2b 6e 29 3a f2 78  79 28 6f 78 2d 6e 2c 6f  |oy+n):.xy(ox-n,o|
000039a0  79 2b 72 29 3a f2 78 79  28 6f 78 2c 6f 79 2b 72  |y+r):.xy(ox,oy+r|
000039b0  29 0d 17 5c 13 f2 61 64  64 28 35 29 3a f2 61 64  |)..\..add(5):.ad|
000039c0  64 28 30 29 0d 17 66 35  e7 20 62 75 66 66 65 6e  |d(0)..f5. buffen|
000039d0  64 25 20 8c 20 f2 61 64  64 28 62 75 66 66 65 6e  |d% . .add(buffen|
000039e0  64 25 2d 62 75 66 66 70  74 72 25 2d 31 36 29 3a  |d%-buffptr%-16):|
000039f0  8b 20 f2 61 64 64 28 30  29 0d 17 70 0d 3d 62 75  |. .add(0)..p.=bu|
00003a00  66 66 70 74 72 25 0d 17  7a 05 3a 0d 17 84 1a dd  |ffptr%..z.:.....|
00003a10  20 f2 63 69 72 63 6c 65  28 6f 78 2c 6f 79 2c 72  | .circle(ox,oy,r|
00003a20  2c 63 6f 6c 29 0d 17 8e  84 e7 20 70 61 74 68 25  |,col)..... path%|
00003a30  20 80 20 62 75 66 66 25  20 8c 20 62 75 66 66 70  | . buff% . buffp|
00003a40  74 72 25 3d a4 63 69 72  63 6c 65 5f 6f 62 6a 65  |tr%=.circle_obje|
00003a50  63 74 28 62 75 66 66 70  74 72 25 2c 6f 78 2c 6f  |ct(buffptr%,ox,o|
00003a60  79 2c 72 2c 63 6f 6c 29  3a 21 62 75 66 66 70 74  |y,r,col):!buffpt|
00003a70  72 25 3d 30 3a 62 75 66  66 73 69 7a 65 25 3d 62  |r%=0:buffsize%=b|
00003a80  75 66 66 65 6e 64 25 2d  62 75 66 66 70 74 72 25  |uffend%-buffptr%|
00003a90  2d 38 3a 62 75 66 66 70  74 72 25 21 34 3d 62 75  |-8:buffptr%!4=bu|
00003aa0  66 66 73 69 7a 65 25 3a  e1 0d 17 98 13 e7 20 73  |ffsize%:...... s|
00003ab0  63 72 65 65 6e 25 3d 30  20 8c 20 e1 0d 17 a2 20  |creen%=0 . .... |
00003ac0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
00003ad0  53 65 74 47 43 4f 4c 22  2c 63 6f 6c 0d 17 ac 27  |SetGCOL",col...'|
00003ae0  e7 20 a4 63 69 72 63 6c  65 5f 70 61 74 68 28 74  |. .circle_path(t|
00003af0  65 6d 70 62 75 66 66 25  2c 6f 78 2c 6f 79 2c 72  |empbuff%,ox,oy,r|
00003b00  2c 30 29 0d 17 b6 37 21  63 61 70 6a 6f 69 6e 25  |,0)...7!capjoin%|
00003b10  3d 32 3a 63 61 70 6a 6f  69 6e 25 21 34 3d 30 3a  |=2:capjoin%!4=0:|
00003b20  63 61 70 6a 6f 69 6e 25  21 38 3d 30 3a 63 61 70  |capjoin%!8=0:cap|
00003b30  6a 6f 69 6e 25 21 31 32  3d 30 0d 17 c0 31 c8 99  |join%!12=0...1..|
00003b40  20 22 44 72 61 77 5f 53  74 72 6f 6b 65 22 2c 74  | "Draw_Stroke",t|
00003b50  65 6d 70 62 75 66 66 25  2c 2c 2c 2c 31 30 32 34  |empbuff%,,,,1024|
00003b60  2c 63 61 70 6a 6f 69 6e  25 2c 30 0d 17 ca 05 e1  |,capjoin%,0.....|
00003b70  0d ff                                             |..|
00003b72