"� > ":0.$.!CompDraw.!RunImage"
3� > ":4.$.Usefuls.CompDraw.!CompDraw.!RunImage"
:
(k*KEY12 MODE 12|M|NFOR N=1TOtotnames%:P.N" : "FNname(FNiconfromname(totnames%,N)-4)" : "names$(N):NEXT|M
2C*KEY11 MODE 12|M|NFOR N=1TOtotnames%:P.N" : "selected%?N:NEXT|M
<*KEY4 SAVE|MRUN|M
F*FX12,3
P:
Z1MainX%=1232:          �  width of main window
d2MainY%=1612:          �  height of main window
n4totnames%=0:          �  number of names in list
x:maxicon%=0:           �  highest no. icon used in list
�4totseeds%=0:          �  number of seeds in list
�5names_sel%=0:         �  number of names selected
�5seeds_sel%=0:         �  number of seeds selected
�5draw_made%=�:     �  TRUE if a draw has been made
�4doubles%=�:       �  TRUE if draw is for doubles
�,teams%=0:             �  number of teams
�8per_team%=0:          �  players per team: 0 => draw
�1quarters%=0:          �  quarters in the draw
�6filetype%=&AAA:       �  file type for saved files
�,printit%=�:       �  flag for print/load
�=altered%=�:       �  flag for altered - used when exiting
�Idrawfile_open%=�: �  flag for error handler indicating draw file open
�@error%=�:         �  flag for error occured in error handler

:

	�init

:

"!�read_load_filename(printit%)

,� printit% �

6  �print_direct

@  ș "Wimp_CloseDown"

J�

T�set_up_menus

^:

hȕ � quit%

r  �poll

|�

�ș "Wimp_CloseDown"

��

�:

��

�:

�>� **************** procs start here **********************

�:

�� �poll

�+ș "Wimp_Poll",%110001,block% � reason%

�Ȏ reason% �

�  � 0:v%+=1:�0,0)v%

�  � 1:�redraw

�&  � 2:ș "Wimp_OpenWindow",,block%
'  � 3:ș "Wimp_CloseWindow",,block%
C  � 4:                                :� pointer leaving window
D  � 5:                                :� pointer entering window
&5  � 6:�click                       :� mouse click
07  � 7:�startsave(drag_from%)       :� user drag box
:5  � 8:�keypressed                  :� key pressed
D<  � 9:�menu_option                 :� menu item selected
NC  � 10:�force_redraw               :� request to re-draw window
X7  � 11                                :� lose caret
b7  � 12                                :� gain caret
l  � 17,18:�receive
v<  � 19:� PROCreport("Transfer failed - receiver died",1)
�'  :�report("reason%= "+�reason%,1)
��
��
�:
�� �menu_option
�mainoption%=!block%
�subopt1%=block%!4
�subopt2%=block%!8
�$ș "Wimp_GetPointerInfo",,block%
�button%=block%!8
�Ȏ menuopen% �
�&  � icon_menu%:�iconbarmenu_option
�#  � main_menu%:�mainmenu_option
�
�
:
 � �force_redraw
*
� window%
4window%=!block%
>Ȏ window% �
H  � draw_window%
R9    ș "Wimp_ForceRedraw",window%,0,-height%,width%,0
\�
f�
p:
z� �iconbarmenu_option
�Ȏ mainoption% �
�  � 1:� button%<>2 � �quit
��
�+� button%=1 � �showmenu(icon_menu%,0,0)
��
�:
�� �close_menus
�ș "Wimp_CreateMenu",,-1
��
�:
�� �init
�:
�� � �error(�$):� �DhA
:
� flag%
� scale% 16
$
?scale%=1
.scale%?4=1
8scale%?8=2
Bscale%?12=2
L� area% 6500
V&�sload("<Obey$Dir>.sprites",area%)
`� drawfile% 255
j� base% 3000
t� lens% 40
~title%=base%
�names%=base%+45
�seeds%=base%+2500
�drawpos%=base%+2810
�,� drawn 128,rect% 16,trans% 16,plotat% 8
�seed_exists%=base%+2962
�� block% 255
�A� names$(128),seeds$(16),draw$(256),seedpos%(16),double$(128)
�� double%(128)
�!� selected% 128,sel_seeds% 16
�4� seed_menu% 412,select_menu% 124,main_menu% 196
�A� icon_menu% 76,make_menu% 148,draw_menu% 148,print_menu% 148
�)� save_menu% 100,file% 256,file2% 256
� variables for draw files

maxlev%=32
bigx%=&00040000
bigy%=&00080000
(S� l%(maxlev%),r%(maxlev%),t%(maxlev%),b%(maxlev%),box%(maxlev%),start%(maxlev%)
2inch%=&B400
<black%=�colour(7)
Fwhite%=�colour(0)
P2xscale%=200:�  x scale for draw files of teams
ZBxscale2%=280:� x scale for draw files of knockout competitions
d#yscale%=260:�  y scale for both
n
� buf% 20
x:
�$� sprite pixel translation table
�� trans_table% 16
�:
�� n%,text$,a%,t%
�
� n%=0�16
�  seed_exists%?n%=0
�  sel_seeds%?n%=0
��
�� n%=0�128
�  drawpos%?n%=0
�  selected%?n%=0
��
�app$="CompDraw"
quit%=�
+ș "Wimp_Initialise",200,&4B534154,app$
:
"� set up main window
,:
6$mainx%=800:� initial window size
@mainy%=600
Jnmain_window%=�create_window(640-mainx%/2,260,mainx%,mainy%,MainX%-mainx%,MainY%-mainy%,&FF000012,app$,2,0)
Tddraw_window%=�create_window(0,1024,mainx%,mainy%,MainX%-mainx%,MainY%-mainy%,&FF000012,app$,2,0)
^:
hEa%=�create_icon(main_window%,0,-64,100,48,&8000211,"TITLE",0,0,0)
r*$title%="CompDraw : Competition Title"
|Rtitle_icon%=�create_icon(main_window%,108,-64,656,48,&700F13D,"",title%,-1,40)
�:
�Ea%=�create_icon(main_window%,8,-1608,1216,1188,&700003D,"",0,0,0)
�:
�Ca%=�create_icon(main_window%,8,-400,1216,324,&700003D,"",0,0,0)
�:
�
� m%=0�31
�  � n%=0�3
�    num%=m%*4+n%
�    point%=names%+num%*19
�    $point%=""
�    x%=(n%*18+n%+2)*16-8
�    y%=-m%*36-472
�K    a%=�create_icon(main_window%,x%,y%,280,36,&7003131,"",point%,-1,18)
  �
�
:
&� n%=0�1
0  � m%=0�7
:    num%=n%*8+m%
D    point%=seeds%+num%*19
N    $point%=""
X    x%=n%*18*32+240
b    y%=-m%*36-124
lK    a%=�create_icon(main_window%,x%,y%,280,36,&7003131,"",point%,-1,18)
v    Ȏ num% �
�      � 0,8:seed$="SEED "
�      :seed$=""
�	    �
�    seed$+=�(num%+1)
�O    a%=�create_icon(main_window%,x%-320,y%,18*16+8,36,&8000211,seed$,0,0,0)
�  �
��
�:
�� set up file info window
�:
�� file_info% 20
�$$file_info%="About this program"
�Nfileinfo_window%=�create_window(0,0,400,200,0,0,&84000012,"File Info",1,0)
� +0
"� Non seeds:,Seeds:,Draw made:
� n%=1�3
 
  � text$
*P  a%=�create_icon(fileinfo_window%,0,-n%*56-12,220,52,&17000211,text$,0,0,0)
4�
> � info1% 4,info2% 4,info3% 4
HKa%=�create_icon(fileinfo_window%,240,-68,80,52,&700013D,"",info1%,-1,3)
RLa%=�create_icon(fileinfo_window%,240,-124,80,52,&700013D,"",info2%,-1,3)
\La%=�create_icon(fileinfo_window%,240,-180,80,52,&700013D,"",info3%,-1,3)
f:
p� cd% 10
z$cd%="compdraw"
�Ea%=�create_icon(main_window%,932,-72,288,64,&11A,"",cd%,area%,10)
�� set up info window
�:
�Jinfo_window%=�create_window(0,0,640,272,0,0,&84000012,"Prog Info",1,0)
�� +0
�0� Name:,Purpose:,Author:,Version:,Copyright:
�d� CompDraw,Makes Competition Draw,"Peter R.Kingsbury","2.00 (20-Sep-93)",� ARCHIMEDES WORLD 1993
�
� t1% 150
�� n%=1�5
�
  � text$
�K  a%=�create_icon(info_window%,0,-n%*52-4,192,48,&17000211,text$,0,0,0)
��
�� n%=1�5
	
  � text$
	  T%=t1%+(n%-1)*30
	  $T%=text$
	$/  � n%<5 � flag%=&700013D:� flag%=&71000139
	.I  a%=�create_icon(info_window%,196,-n%*52-4,424,48,flag%,"",T%,-1,30)
	8�
	B:
	L� set up new name window
	V:
	`Knewname_window%=�create_window(0,0,320,60,0,0,&84000012,"New Name",1,0)
	j� new_name% 20
	t$new_name%=""
	~Na%=�create_icon(newname_window%,10,-52,300,48,&700F13D,"",new_name%,-1,18)
	�:
	�� set up save window
	�:
	�path$="":type$="":obj$=""
	�� sbspr% 8,sbval% 3
	�6$sbspr%="file_aaa":$file%="CompDraw":$sbval%="A~ "
	�Isave_window%=�create_window(0,0,264,164,0,0,&84000012,"Save as:",1,0)
	�Fdrag%=�create_icon(save_window%,100,-92,68,68,&6102,"",sbspr%,1,9)
	�La%=�create_icon(save_window%,8,-156,192,48,&700F12D,"",file%,sbval%,256)
	�Fok%=�create_icon(save_window%,208,-156,48,48,&C701903D,"OK",0,0,0)
	�:
	�� sbspr2% 8,sbval2% 3
;$sbspr2%="directory":$file2%="Draw_File":$sbval2%="A~ "

Ksave_window2%=�create_window(0,0,264,164,0,0,&84000012,"Save as:",1,-1)
Idrag2%=�create_icon(save_window2%,100,-92,68,68,&6102,"",sbspr2%,1,9)
Oa%=�create_icon(save_window2%,8,-156,192,48,&700F12D,"",file2%,sbval2%,256)
(Hok2%=�create_icon(save_window2%,208,-156,48,48,&C701903D,"OK",0,0,0)
2:
<� set up icon bar icon
F@ibhandle%=�create_icon(-1,0,0,68,68,&3002,"!CompDraw",0,0,0)
P:
Z� set up merge window
d:
nNmerge_window%=�create_window(340,400,600,240,0,0,&84000010,"CompDraw",1,0)
xJloa%=�create_icon(merge_window%,20,-200,160,56,&C701903D,"load",0,0,0)
�Lmer%=�create_icon(merge_window%,220,-200,160,56,&C701903D,"merge",0,0,0)
�Mcan%=�create_icon(merge_window%,420,-200,160,56,&C701903D,"cancel",0,0,0)
�� merge% 20
�"$merge%="File already loaded."
�Ia%=�create_icon(merge_window%,0,-100,600,56,&7000119,"",merge%,-1,20)
�:
�� set up teams window
�:
�� pl% 20,players% 2
�$pl%="Players per team"
�$players%="6"
�Eteam_window%=�create_window(0,0,380,64,0,0,&84000012,"Teams",1,0)
�Fa%=�create_icon(team_window%,16,-54,320,40,&17000111,"",pl%,-1,20)
Mper_t%=�create_icon(team_window%,300,-54,64,48,&700F13D,"",players%,-1,3)
:
�
":
,L� �create_window(x%,y%,w%,h%,extx%,exty%,flags%,title$,bgcol%,spr_area%)
6
� handle%
@:
J� visible work area
T!block%=x%
^block%!4=y%
hblock%!8=x%+w%
rblock%!12=y%+h%
|:
�� scroll offsets
�block%!16=0
�block%!20=0
�:
�$� handle behind and window flags
�block%!24=-1
�block%!28=flags%
�:
�� window colours
�block%!32=7
�#block%!33=2:� border background
�block%!34=7
�-block%!35=bgcol%:� main window background
block%!36=3
block%!37=1
block%!38=12
&:
0� work area extent
:block%!40=0
Dblock%!44=-h%-exty%
Nblock%!48=w%+extx%
Xblock%!52=0
b:
l#� title bar and work area flags
vblock%!56=&19
�block%!60=3<<12
�:
�*� sprite area pointer and minimum size
�block%!64=spr_area%
�block%!68=0
�:
�� window title
�� title$<>"Prog Info" �
�  $(block%+72)=�title$,11)
��
�&  block%!56=&119:� indirected data
�  block%!72=file_info%
�  block%!76=-1

  block%!80=20

�

:

 � number of icons

*block%!84=0

4:

>,ș "Wimp_CreateWindow",,block% � handle%

H=handle%

R:

\� �report(err$,flag%)

f� name$

pname$=app$

z-� flag% � 16 � name$="Message from "+app$

�!block%=255

�$(block%+4)=err$+�0

�9ș "Wimp_ReportError",block%,flag%,name$ � ,errclick%

��

�:

�� �error(err$)

�3� error% � �report(�$+" in error handler",17):�

�error%=�

�ș "Hourglass_Off"

�� drawfile_open% �

�
  �#c%

�  ș "OS_File",6,drawfile%

�  drawfile_open%=�
�
� err$+=" : "+STR$ERL
�report(err$,1)
$� printit% �
.  ș "Wimp_CloseDown"
8  �
B�
Lerror%=�
V�
`:
jG� �create_icon(whan%,ix%,iy%,iw%,ih%,flag%,text$,ptr1%,ptr2%,ptr3%)
t� ihandle%
~!block%=whan%
�block%!4=ix%
�block%!8=iy%
�block%!12=ix%+iw%
�block%!16=iy%+ih%
�� ptr1%=0 �
�  $(block%+24)=text$
��
�  block%!24=ptr1%
�  block%!28=ptr2%
�  block%!32=ptr3%
��
�block%!20=flag%
+ș "Wimp_CreateIcon",,block% � ihandle%


=ihandle%
:
� �click
(xpoint%=!block%
2ypoint%=block%!4
<button%=block%!8
Fwindow%=block%!12
Picon%=block%!16
ZȎ window% �
d  � -2:�ibar(button%)
n)  � main_window%:�main_click(button%)
x#  � merge_window%:�merge_window
�-  � save_window%:�save_file(save_window%)
�/  � save_window2%:�save_file(save_window2%)
�  � team_window%:�teams
�  � draw_window%:
�%  :�report("Window "+�window%,1)
��
��
�:
�� �open_window(window%)
�!block%=window%
�$ș "Wimp_GetWindowState",,block%
�block%!28=-1
� ș "Wimp_OpenWindow",,block%
�
:
� �ibar(button%)
"Ȏ button% �
,  � 1,4:
6"    �open_window(main_window%)
@
  � 2:
J,    �showmenu(icon_menu%,!block%-64,184)
T�
^�
h:
r� �showmenu(menu%,mx%,my%)
|menuopen%=menu%
�'ș "Wimp_CreateMenu",,menu%,mx%,my%
��
�:
�� �receive
�Ȏ block%!16 �
�  � 0:�quit
�  � 2:�datasave
�  � 3:�dataload
��
��
�:
�� �quit
�� q%
� �(altered%) �

  quit%=�
  �
&�
0#q%=�yn("WARNING: Unsaved data")
:� q% � quit%=�
D�
N:
X
� �redraw
b� more%,window%
lwindow%=!block%
v*ș "Wimp_RedrawWindow",,block% � more%
�ox%=block%!4-block%!20
�oy%=block%!16-block%!24
�ȕ more%
�  Ȏ window% �
�    � main_window%:
�    � draw_window%
�      � per_team%=0 �
�        �draw_draw_window
�      �
�        �draw_team_window
�      �
�  �
�,  ș "Wimp_GetRectangle",,block% � more%
�
�
:
 � �main_click(button%)
*icon%=block%!16
4Ȏ button% �
>  � 1,4:
H,    � icon%>3 � icon%<132 � �list(icon%)
R.    � icon%>131 � icon%<163 � �seed(icon%)
\
  � 2:
f    �main_menu
p�
z�
�:
�� �iconfromseed(seed%)
�=(seed%+65)*2
�:
�� �seedfromicon(icon%)
�=(icon% � 2)-65
�:
�� �nameinicon(name$,icon%)
�� icon%<4 � �
�� z%
�z%=names%+19*(icon%-4)
�
$z%=name$
��
:
� �seedinicon(name$,seed%)
� z%
$z%=seeds%+19*(seed%-1)
.
$z%=name$
8�
B:
L� �list(icon%)
V� name%,n%
`name%=�namefromicon(icon%)
j� name%>totnames% � �
t� seeds_sel%<>0 �
~  � n%=1�16
�    � sel_seeds%?n%=1 �
�      sel_seeds%?n%=0
�&      �choose(�iconfromseed(n%),�)
�	    �
�  �
�  seeds_sel%=0
��
�� selected%?name%=1 �
�  � already selected
�  names_sel%-=1
�  selected%?name%=0
�  �choose(icon%,�)
�

  � not yet selected
  names_sel%+=1
  selected%?name%=1
(  �choose(icon%,�)
2�
<�
F:
P� �seed(icon%)
Z� n%,seed%
dseed%=�seedfromicon(icon%)
n� seed_exists%?seed%=0 � �
x� names_sel%<>0 �
�  � n%=1�totnames%
�    � selected%?n%=1 �
�0      �choose(�iconfromname(totnames%,n%),�)
�      selected%?n%=0
�	    �
�  �
�  names_sel%=0
��
�� sel_seeds%?seed%=0 �
�  sel_seeds%?seed%=1
�  seeds_sel%+=1
�  �choose(icon%,�)
��
  sel_seeds%?seed%=0
  seeds_sel%-=1
  �choose(icon%,�)
"�
,�
6:
@� �iconfromname(tot%,name%)
J� tot%=0 � =0
Tname%-=1
^� X%,x%,y%
hX%=((tot%+3)� 4)
ry%=name% � X%
|x%=name% � X%
�=y%*4+x%+4
�:
�� �namefromicon(icon%)
�� X%,x%,y%
�icon%-=4
�X%=((totnames%+3)� 4)
�x%=icon% � 4
�y%=icon% � 4
�� y%>=X% � =totnames%+1
�=x%*X%+y%+1
�:
�� �choose(icon%,selected%)
�� fcol%,bcol%,mask%
� selected% �
  fcol%=12:bcol%=7
�
&  fcol%=7:bcol%=0
0�
:!mask%=(fcol%<<24)+(bcol%<<28)
D!block%=main_window%
Nblock%!4=icon%
Xblock%!8=mask%
bblock%!12=&FF<<24
l"ș "Wimp_SetIconState",,block%
v�
�:
�� �create_menu(menu%)
�.� n%,title$,entries%,entry$,sub%,ptr%,wid%
�!�                 set up menu
�� title$,entries%
� $menu%=title$:�   menu title
�7menu%?12=7:�      title and frame foreground colour
�-menu%?13=2:�      title background colour
�1menu%?14=7:�      work area foreground colour
�1menu%?15=0:�      work area background colour
�*menu%!20=44:�     height of each entry
�/menu%!24=0:�      height between each entry
�wid%=�(title$)
� n%=1�entries%
  ptr%=menu%+4+24*n%
  � entry$,sub%
   � n%=entries% �
*    !ptr%=128
4  �
>    !ptr%=0
H  �
R  ptr%!4=sub%
\  ptr%!8=&7000021
f  $(ptr%+12)=entry$
p'  � �(entry$)>wid% � wid%=�(entry$)
z�
�(menu%!16=wid%*16+16:�     menu width
��
�:
�� �set_up_menus
�� +0
�M� "Make Draw",4,with seedings,-1,without,-1,doubles,-1,teams,team_window%
��create_menu(make_menu%)
�A� "Draw",4,make,make_menu%,show,-1,clear,-1,print,print_menu%
��create_menu(draw_menu%)
�H� "Seed",16,1,-1,2,-1,3,-1,4,-1,5,-1,6,-1,7,-1,8,-1,9,-1,10,-1,11,-1
�#� 12,-1,13,-1,14,-1,15,-1,16,-1
��create_menu(seed_menu%)
�>� "Select",4,delete,-1,seed,seed_menu%,un-seed,-1,clear,-1
�create_menu(select_menu%)
3� "Save",2,file,save_window%,draw,save_window2%
�create_menu(save_menu%)
$��"Main Menu",6,draw,draw_menu%,selection,select_menu%,save,save_menu%,new name,newname_window%,file info,fileinfo_window%,clear,-1
.�create_menu(main_menu%)
8+�"CompDraw",2,Info,info_window%,Quit,-1
B�create_menu(icon_menu%)
LL�"Print",5,Whole draw,-1,1st part,-1,2nd part,-1,3rd part,-1,4th part,-1
V�create_menu(print_menu%)
`�
j:
t4� �menu_option_arrow(menu%,opt%,condition%,sub%)
~� point%
�point%=menu%+32+24*opt%
�� condition% �
�  !point%=sub%
��
�  !point%=-1
��
��
�:
�.� �menu_option_dark(menu%,opt%,condition%)
�� point%
�point%=menu%+36+24*opt%
�� condition% �
!  !point%=(!point% � &400000)

�
#  !point%=(!point% � &FFBFFFFF)
�
(�
2:
<� �set_draw_menu
F.�menu_option_dark(draw_menu%,0,draw_made%)
P/�menu_option_dark(draw_menu%,1,�draw_made%)
Z/�menu_option_dark(draw_menu%,2,�draw_made%)
d/�menu_option_dark(draw_menu%,3,�draw_made%)
n�
x:
�� �main_menu
�0�menu_option_dark(print_menu%,1,quarters%<2)
�0�menu_option_dark(print_menu%,2,quarters%<2)
�0�menu_option_dark(print_menu%,3,quarters%<4)
�0�menu_option_dark(print_menu%,4,quarters%<4)
�9�menu_option_dark(main_menu%,0,totnames%+totseeds%<3)
�?�menu_option_dark(main_menu%,1,names_sel%=0 � seeds_sel%=0)
�2�menu_option_dark(select_menu%,0,names_sel%=0)
�B�menu_option_dark(select_menu%,1,names_sel%<>1 � totseeds%=16)
�2�menu_option_dark(select_menu%,2,seeds_sel%=0)
�9�menu_option_dark(main_menu%,2,totnames%+totseeds%=0)
�;�menu_option_dark(main_menu%,3,totnames%+totseeds%=128)
�9�menu_option_dark(main_menu%,5,totnames%+totseeds%=0)
/�menu_option_dark(save_menu%,1,�draw_made%)
�set_draw_menu
/�menu_option_dark(make_menu%,0,totseeds%=0)
"9�menu_option_dark(make_menu%,1,totseeds%+totnames%<3)
,9�menu_option_dark(make_menu%,2,totseeds%+totnames%<3)
6
� n%=1�16
@:  �menu_option_dark(seed_menu%,n%-1,seed_exists%?n%=1)
J�
T$info1%=�totnames%
^$info2%=�totseeds%
h"� quarters%=1 � per_team%<>0 �
r  $sbspr2%="file_aff"
|�
�  $sbspr2%="directory"
��
�/� draw_made% � $info3%="YES" � $info3%="NO"
�<�menu_option_arrow(draw_menu%,3,per_team%=0,print_menu%)
�,�showmenu(main_menu%,xpoint%-96,ypoint%)
��
�:
�� �mainmenu_option
�Ȏ mainoption% �
�.  � 0:�draw_option           :�  draw menu
�0  � 1:�select                :�  select menu
�,  � 2                           :�  save
�/  � 3                           :�  newname
1  � 4                           :�  file info
6  � 5:�clear_all             :�  clear loaded file
2  � 6:quit%=�                :�  quit CompDraw
&�
0� button%=1 �
:  �main_menu
D  �showmenu(main_menu%,0,0)
N�
X�
b:
l� �clear_all
v� n%
�� n%=1�totnames%
�  names$(n%)=""
�  selected%?n%=0
��
�
� n%=1�16
�  $(seeds%+(n%-1)*19)=""
�  seed_exists%?n%=0
�  sel_seeds%?n%=0
��
�totnames%=0
�totseeds%=0
�names_sel%=0
�seeds_sel%=0
per_team%=0
�no_draw
*$title%="CompDraw : Competition Title"
 $file%="CompDraw"
*$file2%="Draw_File"
4�put_names_in_icons
>�show_seeds
H�choose(title_icon%,�)
Raltered%=�
\�
f:
p
� �select
zȎ subopt1% �
�  � 0:�delete_selection
�  � 1:�seed_selection
�  � 2:�unseed_selection
�  � 3:�clear_selection
��
��
�:
�� �delete_name(name%)
�� m%
�� m%=name% � totnames%-1
�  names$(m%)=names$(m%+1)
��
�names$(totnames%)="deleted"
totnames%-=1
�
:
$� �not_clear_draw
.� �(draw_made%) � =�
89=�(�yn("WARNING : This will clear the current draw"))
B:
L� �delete_selection
V� �not_clear_draw � �
`� name%
j� totnames%=1 �
t  names$(1)=""
~  selected%?1=0
�  totnames%=0
��
�  � name%=totnames%�1 �-1
�    � selected%?name%=1 �
�      �delete_name(name%)
�      selected%?name%=0
�	    �
�  �
��
�names_sel%=0
��put_names_in_icons
��no_draw
altered%=�

�
:
� �put_names_in_icons
(� n%,icon%,newmaxicon%
2� maxicon%>3 �
<  � n%=4� maxicon%
F'    � �namefromicon(n%)>totnames% �
P      �nameinicon("",n%)
Z      �choose(n%,�)
d	    �
n  �
x�
�newmaxicon%=3
�� totnames%<>0 �
�  � n%=1�totnames%
�)    icon%=�iconfromname(totnames%,n%)
�/    � icon%>newmaxicon% � newmaxicon%=icon%
�%    �nameinicon(names$(n%),icon%)
�    �choose(icon%,�)
�  �
��
�maxicon%=newmaxicon%
��
�:
�� �keypressed
<�                   see WIMP PROGRAMMING FOR ALL page 48
window%=!block%
icon%=block%!4
"key%=block%!24
,%� key%<32 � key%<>13 � key%>&FF �
6  ș "Wimp_ProcessKey",key%
@  �
J�
TȎ window% �
^   � main_window%:�lose_caret
h"  � newname_window%:�newnamein
r  � save_window%:
|     �quicksave(save_window%)
�    �close_menus
�  � save_window2%:
�!    �quicksave(save_window2%)
�    �close_menus
�  � team_window%:�teams
��
��
�:
�� �lose_caret
�!ș "Wimp_SetCaretPosition",-1
��
�:
�� �newnamein
 � �not_clear_draw � �
 � name$
 name$=$new_name%
 &$new_name%=""
 0� name$="" � �
 :�name_in(name$)
 D�put_names_in_icons
 N�no_draw
 X�main_menu
 baltered%=�
 l�
 v:
 �� �name_in(name$)
 �� n%
 �n%=0
 ��
 �  n%+=1
 �%� n%>totnames% � names$(n%)>name$
 ��insertname(n%,name$)
 ��
 �:
 �� �insertname(n%,name$)
 �� m%
 �totnames%+=1
 �� n%=totnames% �
!  names$(totnames%)=name$
!�
!  � m%=totnames% � n%+1 �-1
!     names$(m%)=names$(m%-1)
!*  �
!4  names$(n%)=name$
!>�
!H�
!R:
!\� �seed_selection
!f� subopt2%<0 � �
!p� �not_clear_draw � �
!z� name%,name$,seed%,icon%
!�name%=0
!��
!�  name%+=1
!�� selected%?name%<>0
!�name$=names$(name%)
!�seed%=subopt2%+1
!�totseeds%+=1
!�seed_exists%?seed%=1
!�names_sel%=0
!�selected%?name%=0
!��seedinicon(name$,seed%)
!��delete_name(name%)
!��put_names_in_icons
"icon%=�iconfromseed(seed%)
"�choose(icon%,�)
"�no_draw
"$altered%=�
".�
"8:
"B� �unseed_selection
"L� �not_clear_draw � �
"V� n%,name$
"`
� n%=1�16
"j  � sel_seeds%?n%=1 �
"t!    name$=$(seeds%+19*(n%-1))
"~    sel_seeds%?n%=0
"�    seed_exists%?n%=0
"�    totseeds%-=1
"�    �seedinicon("",n%)
"�    �name_in(name$)
"�$    �choose(�iconfromseed(n%),�)
"�  �
"��
"�seeds_sel%=0
"��put_names_in_icons
"��no_draw
"�altered%=�
"��
#:
#
� �clear_selection
#� n%
#� seeds_sel%<>0 �
#(  � n%=1�16
#2    � sel_seeds%?n%=1 �
#<      sel_seeds%?n%=0
#F&      �choose(�iconfromseed(n%),�)
#P	    �
#Z  �
#d  seeds_sel%=0
#n  �
#x�
#�� n%=1�totnames%
#�  � selected%?n%=1 �
#�    selected%?n%=0
#�.    �choose(�iconfromname(totnames%,n%),�)
#�  �
#��
#�names_sel%=0
#��
#�:
#�� �string(point%)
#�� a$,n%
#�	a$=""
#�n%=?point%
$ȕ n%<>13 � n%<>0
$  a$+=�(n%)
$  point%+=1
$"  n%=?point%
$,�
$6=a$
$@:
$J� �set_variables
$T� n%,icon%
$^totnames%=base%?42
$htotseeds%=base%?43
$rdoubles%=(base%?2999=1)
$|per_team%=base%?2998
$�teams%=base%?2997
$��set_quarters
$�� n%=1�totnames%
$�'  icon%=�iconfromname(totnames%,n%)
$�'  names$(n%)=$(names%+19*(icon%-4))
$��
$�� (base%?44=1) �
$�  �set_draw_names
$�  � per_team%=0 �
$�    �show_draw
$�  �
$�    �show_teams
$�  �
%�
%  �no_draw
%�
%&�
%0:
%:� �dataload
%D� type%,action%
%Ntype%=block%!40
%Xpath$=�string(block%+44)
%b� type%<>filetype% �
%l  Ȏ type% �
%v3    � &1000:�report("Object is a directory",16)
%�6    � &2000:�report("Object is an application",16)
%�1    :�report("Unknown filetype "+�~type%,16)
%�  �
%�  �
%��
%�� totnames%+totseeds%=0 �
%�  �loadit(path$)
%��
%�  �merge
%��
%��
%�:
%�� �loadit(file$)
&$file%=file$
&$ș "OS_File",12,file%,base%,0,13
&�no_draw
& �set_variables
&*�put_names_in_icons
&4�choose(title_icon%,�)
&>�show_seeds
&H�open_window(main_window%)
&Raltered%=�
&\$file2%="Draw_File"
&f�
&p:
&z� �show_seeds
&�� n%
&�
� n%=1�16
&�"  �choose(�iconfromseed(n%),�)
&��
&��
&�:
&�� �merge
&��open_window(merge_window%)
&�ȗ ȓ 340,400,600,240
&��
&�:
&�� �close_merge_window
&�!block%=merge_window%
'!ș "Wimp_CloseWindow",,block%
'*POINTER
'�
'$:
'.� �merge_window
'8� icon%
'Bicon%=block%!16
'LȎ icon% �
'V
  � loa%:
'`    �close_merge_window
'j    �loadit(path$)
't
  � mer%:
'~    �close_merge_window
'�    �merge_it
'�
  � can%:
'�    �close_merge_window
'��
'��
'�:
'�� �sload(file$,area%)
'�H� ***** loads sprite file 'file$' to area pointed to by 'area' *****
'�� A$,Q%,len%
'�Q%=�(file$)
'�� Q%=0 �
'�
  �#Q%
(	  � 7
(
  �
(�
(len%=�#(Q%)
((�#Q%
(2area%!0=len%+10
(<area%!8=16
(F>�                                   initialise sprite area
(Pș "OS_SpriteOp",&109,area%
(Z8�                                   load sprite file
(d%ș "OS_SpriteOp",&10A,area%,file$
(n�
(x:
(�%� �read_load_filename(� printit%)
(�� I%
(�ș "OS_GetEnv" � file$
(�� �file$," -quit ") �
(�  I%=�file$,"""")
(�  I%=�file$,"""",I%+1)
(�  �
(�
    I%+=1
(�  � �file$,I%,1)<>" "
(�  file$=�file$,I%)
(�#  printit%=(�file$,6)="-Print")
(�"  � printit% � file$=�file$,8)
(�"  � file$<>"" � �loadit(file$)
)�
)�
):
)"� �saveit(window%,� ok%)
),Ȏ window% �
)6'  � save_window%:�save_it_file(ok%)
)@(  � save_window2%:�save_it_draw(ok%)
)J�
)T�
)^:
)h(� �filetype(file%,� type%,� f_type%)
)r)ș "OS_File",5,file% � type%,,f_type%
)| f_type%=(f_type% >> 8)� &FFF
)��
)�:
)�� �save_it_file(� ok%)
)�	ok%=�
)�� file$,f%,type%,ft%
)�file$=$file%
)��filetype(file%,type%,ft%)
)�� type%=2 �
)�)  �report("Object is a directory",17)
)�  ok%=�
)�  �
)��
)� � ft%<>filetype% � type%=1 �
*T  ok%=�yn("An object of this name already exists (type "+�~ft%+").  Continue ?")
*  � �(ok%) � �
*�
*&base%?42=totnames%
*0base%?43=totseeds%
*:base%?44=-draw_made%
*Dbase%?2999=-doubles%
*Nbase%?2998=per_team%
*Xbase%?2997=teams%
*b5ș "OS_File",10,file%,filetype%,,base%,base%+3000
*l�close_menus
*valtered%=�
*��
*�:
*�� �draw_title(v%,y%)
*�� v%=1 �
*�E  �text(100*xscale%,1960*yscale%,$title%,15,18,2,black%,white%,1)
*��
*�E  �text(70*xscale2%,1960*yscale%,$title%,15,18,2,black%,white%,1)
*��
*��
*�:
*�� �sub_title(n%,quarters%)
*�� A$
*�� quarters%=4 �
+
  Ȏ n% �
+    � 1:A$="1st QUARTER"
+    � 2:A$="2nd QUARTER"
+     � 3:A$="3rd QUARTER"
+*    � 4:A$="4th QUARTER"
+4  �
+>�
+H
  Ȏ n% �
+R    � 1:A$="TOP HALF"
+\    � 2:A$="BOTTOM HALF"
+f  �
+p�
+z>�text(100*xscale%,1880*yscale%,A$,12,12,2,black%,white%,0)
+��
+�:
+�� �save_it_teams(� ok%)
+�	� ZZZ
+�ș "Hourglass_On"
+�� n%,bot_y%,f$,type%,ft%
+��filetype(file2%,type%,ft%)
+�� type%=2 �
+�)  �report("Object is a directory",17)
+�  ok%=�
+�  �
+��
+�� type%=1 � ft%<>&AFF �
,S  ok%=�yn("An object of this name already exists (type "+�~ft%+"). Continue ?")
,  � �(ok%) � �
,�
,$f$=$file2%
,.�drawfile_start(f$)
,8�fonttable
,B� n%=1� teams%
,L   �drawfile_teams(n%,bot_y%)
,V�
,`'�draw_title(1,(bot_y%-160)*yscale%)
,j�drawfile_end
,tș "Hourglass_Off"
,~	ok%=�
,��
,�:
,�"� �drawfile_teams(t%,� bot_y%)
,�� x%,y%
,�	t%-=1
,�x%=(t% � 4)*400+100
,�'y%=1860-36*(per_team%+3.5)*(t% � 4)
,�	t%+=1
,�a$="TEAM "+�t%
,�;�text(x%*xscale%,y%*yscale%,a$,12,12,1,black%,black%,1)
,�� p%=1� per_team%
,�  a$=�player(t%,p%)
-G  �text(x%*xscale%,(y%-36*p%-16)*yscale%,a$,8,12,1,black%,black%,0)
-
  bot_y%=(y%-36*p%-16)
-�
-�
-(:
-2� �space(A$,l%)
-<ȕ �(A$)<l%
-F
  A$+=" "
-P�
-Z=�A$,l%)
-d:
-n� �quicksave(window%)
-x� file$,ok%
-�Ȏ window% �
-�!  � save_window%:file$=$file%
-�#  � save_window2%:file$=$file2%
-��
-�� �file$,".") �
-�  �saveit(window%,ok%)
-��
-�?  �report("To save, drag the icon to a directory viewer",1)
-��
-��
-�:
-�� �save_file(window%)
-�Ȏ icon% �
.  � ok%,ok2%:
.*    � block%!8 � 5 �quicksave(window%)
."    � button%=4 � �close_menus
."  � drag%,drag2%:
.,/    � block%!8 � 64 �dragbox(window%,icon%)
.6�
.@�
.J:
.T� �startsave(window%)
.^$ș "Wimp_GetPointerInfo",,block%
.hKblock%!20=block%!12 :� window handle - message sent to window's creator
.rGblock%!24=block%!16 :� icon handle - message sent to icon's creator
.|"block%!28=!block%   :� mouse x
.�"block%!32=block%!4  :� mouse y
.�
.�%block%!36=�obj$+�path$+�type$+3:�
.�
.�*!block%=64          :� length of block
.�6block%!12=0         :� my ref (0=original message)
.�5block%!16=1         :� message action - data save
.�)block%!40=filetype%      :� file type
.�
.�Ȏ window% �
.�2  � save_window%:$(block%+44)=�getleaf($file%)
.�4  � save_window2%:$(block%+44)=�getleaf($file2%)
.��
/7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
/�
/:
/&� �getleaf(a$)
/0ȕ �a$,".")
/:  a$=�a$,�a$,".")+1)
/D�
/N
=a$+�0
/X:
/b� �dragbox(window%,icon%)
/ldrag_from%=window%
/v!block%=window%
/�$ș "Wimp_GetWindowState",,block%
/�ox%=block%!4-block%!20
/�oy%=block%!16-block%!24
/�.block%!4=icon%              :� icon number
/�"ș "Wimp_GetIconState",,block%
/�Fblock%!4=5                  :� drag type - rotating fixed size box
/�5block%!8=ox%+block%!8       :� minimum x at start
/�5block%!12=oy%+block%!12     :� minimum y at start
/�5block%!16=ox%+block%!16     :� maximum x at start
/�5block%!20=oy%+block%!20     :� maximum y at start
/�:block%!24=0                 :� minimum x of parent box
/�:block%!28=0                 :� minimum y of parent box
/�:block%!32=&7FFFFFFF         :� maximum x of parent box
0:block%!36=&7FFFFFFF         :� maximum y of parent box
0ș "Wimp_DragBox",,block%
0�
0 :
0*� �datasave
04� ok%,a%,b%,c%
0>Ȏ drag_from% �
0H.  � save_window%:$file%=�string(block%+44)
0R0  � save_window2%:$file2%=�string(block%+44)
0\�
0fa%=block%!8
0pb%=block%!20
0zc%=block%!24
0��saveit(drag_from%,ok%)
0�� �(ok%) � �
0�block%!12=a%
0�block%!16=3
0�block%!20=b%
0�block%!24=c%
0�!block%=256
0�7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
0��
0�:
0�� �get_name
0�� n$,n%
0�	n$=""
1n%=�#Q%
1 ȕ n%<>13 � n%<>0 � �(n$)<20
1  n$+=�(n%)
1$
  n%=�#Q%
1.�
18=n$
1B:
1L� �merge_it
1V � totn%,tots%,n%,Q%,icon%,n$
1`Q%=�(path$)
1j�#Q%=42
1ttotn%=�#Q%
1~tots%=�#Q%
1�+� totnames%+totseeds%+totn%+tots%>128 �
1�"  �report("Too many names.",1)
1�  �
1��
1�� totn%<>0 �
1�  � n%=1�totn%
1�%    icon%=�iconfromname(totn%,n%)
1�    �#Q%=45+(icon%-4)*19
1�    n$=�get_name
1�    �name_in(n$)
1�  �
1��
2
� n%=1�16
2
  �#Q%=2962+n%
2  � �#Q%=1 �
2    �#Q%=2500+(n%-1)*19
2(    n$=�get_name
22    �name_in(n$)
2<  �
2F�
2P�put_names_in_icons
2Z�show_seeds
2d�no_draw
2n�set_quarters
2x�open_window(main_window%)
2�altered%=�
2��
2�:
2�� �add_extras
2�� n%,m%
2�extras%=totseeds%
2� � (totnames%+totseeds%)� 1 �
2�/  names$(totnames%+totseeds%+1)="A.N.Other"
2��
2�� totseeds%=0 � �
2�m%=0
2�
� n%=1�16
2�  � seed_exists%?n%=1 �
3
    m%+=1
30    names$(totnames%+m%)=$(seeds%+19*(n%-1))
3  �
3"�
3,�
36:
3@� �set_quarters
3J� n%
3Tn%=1
3^ȕ n%<totnames%+totseeds%
3h
  n%=n%*2
3r�
3|Ȏ n% �
3�  � 128:
3�    quarters%=4
3�    per_quart%=32
3�  � 64:
3�    quarters%=2
3�    per_quart%=32
3�  
3�    quarters%=1
3�    per_quart%=n%
3��
3�tot_draw%=n%
3�� doubles% �
3�  Ȏ quarters% �
4#    � 2,4:quarters%=quarters%/2
4#    � 1:per_quart%=per_quart%/2
4  �
4&�
40�
4::
4D� �show_draw
4N� width%,height%,n%,m%
4Xwidth%=quarters%*288+64
4b(� doubles% � width%=quarters%*576+64
4lheight%=per_quart%*44+64
4vm%=doubles%:n%=per_team%
4��no_draw
4�doubles%=m%:per_team%=n%
4�draw_made%=�
4�\draw_window%=�create_window(960,704,320,320,width%-320,height%-320,&BF000002,"Draw",0,0)
4��open_window(draw_window%)
4��
4�:
4�� �show_teams
4�� teams%>3 �
4�  width%=78*16
4��
4�  width%=teams%*19*16
4��
52height%=((teams%-1) � 4+1)*32*(per_team%+3)+32
5]draw_window%=�create_window(960,704,320,320,width%-320,height%-320,&BF000002,"Teams",0,0)
5�open_window(draw_window%)
5 draw_made%=�
5*�
54:
5>� �draw_draw_window
5H� n%,m%,num%,w%
5R � doubles% � w%=576:� w%=288
5\� n%=1� quarters%
5f  � m%=1� per_quart%
5p!    num%=(n%-1)*per_quart%+m%
5z    � �(draw$(num%))<17 �
5�       ș "Wimp_SetColour",11
5�	    �
5�      ș "Wimp_SetColour",7
5�	    �
5�/    � ox%+(n%-1)*w%+32,oy%-44*m%-8*(m% � 1)
5�)    � �draw$((n%-1)*per_quart%+m%),2)
5�'    � (m% � 1)=0 � m%<>per_quart% �
5�      ș "Wimp_SetColour",8
5�)      � ox%+(n%-1)*w%+32,oy%-44*m%-36
5�      � 1,w%-16,0
5�	    �
5�  �
5��
6�
6:
6� �draw_option
6$Ȏsubopt1% �
6.  � 0:�make_draw
68$  � 1:�open_window(draw_window%)
6B
  � 2:
6L    �no_draw
6V    altered%=�
6`  � 3:�print_draw
6j�
6t�
6~:
6�� �no_draw
6�� draw_made% �
6�  !block%=draw_window%
6�$  ș "Wimp_DeleteWindow",,block%
6��
6�draw_made%=�
6�doubles%=�
6�per_team%=0
6��
6�:
6�� �clear_draw
6�!=�yn("Clear Existing Draw ?")
7:
7

� �yn(a$)
7�report(a$,19)
7=(errclick%=1)
7(:
72� �make_draw
7<� n%
7F� subopt2%=-1 � �
7P� subopt2%=3 �
7Z  �teams
7d  �
7n�
7x� n%=1�128
7�  draw$(n%)=" bye"
7�  drawn?n%=0
7��
7�� subopt2%=2 �
7�  �doubles
7�  �
7��
7�doubles%=�
7�per_team%=0
7�teams%=0
7��set_quarters
7�� withseeds%
7�withseeds%=(subopt2%=0)
8� withseeds% �
8  �put_seeds_in
8�
8"  �add_extras
8,�
86� n%=1�tot_draw% � 2
8@.  � draw$(n%)=" bye" � draw$(n%)=�name(n%)
8J�
8T� totnames%<>0 �
8^  � n%=1�totnames%+extras%
8h'    � drawn?n%=0 � �put_name_in(n%)
8r  �
8|�
8�� n%=1�128
8�+  � draw$(n%)=" BYE" � draw$(n%)=" bye"
8��
8��show_draw
8�altered%=�
8��
8�:
8�� �name(pos%)
8�� n%,a$
8��
8�  n%=�(totnames%+extras%)
8�� drawn?n%=0
8�drawn?n%=1
9drawpos%?n%=pos%
9� n%>totnames% �
9  a$=�(n%-totnames%)
9&�
90  a$=" "
9:�
9D=a$+names$(n%)
9N:
9X� �put_name_in(name%)
9b� n%,a$
9l�
9v!  n%=�(tot_draw%) � %11111110
9�� draw$(n%)=" bye"
9�drawpos%?name%=n%
9�� name%>totnames% �
9�  a$=�(name%-totnames%)
9��
9�  a$=" "
9��
9�draw$(n%)=a$+names$(name%)
9��
9�:
9�� �set_draw_names
9�� doubles% �
9�  �set_draw_names_doubles
:�
:  �set_draw_names_singles
:�
: �
:*:
:4� �set_draw_names_doubles
:>� n%
:H
� n%=1�64
:R  draw$(n%)=" bye"
:\�
:f�add_extras
:p
� n%=1�64
:z  m%=drawpos%?(n%*2-1)
:�  � m%<>0 �
:�M    draw$(n%)=" "+names$(drawpos%?(n%*2-1))+" & "+names$(drawpos%?(n%*2))
:�  �
:��
:��
:�:
:�� �set_draw_names_singles
:�� n%
:�� n%=1�128
:�  � per_team%=0 �
:�    draw$(n%)=" bye"
:�  �
:�    draw$(n%)=" -----"
;  �
;�
;�add_extras
;$� totnames%<>0 �
;.  � n%=1� totnames%
;8)    draw$(drawpos%?n%)=" "+names$(n%)
;B  �
;L�
;V� totseeds%<>0 �
;`  � n%=1�totseeds%
;jA    draw$(drawpos%?(n%+totnames%))=�(n%)+names$(n%+totnames%)
;t  �
;~�
;��
;�:
;�� �put_seeds_in
;�� n%,m%,byes%
;�'byes%=tot_draw%-totnames%-totseeds%
;��set_seed_positions
;�
extras%=0
;�m%=0
;�
� n%=1�16
;�  � seed_exists%?n%=1 �
;�1    m%+=1:� m% in V if seeds to be compressed
;�,    �put_seed_in(n%,$(seeds%+19*(n%-1)))
<  �
<
�
<�
<:
<(� �set_seed_positions
<2� R%,n%
<<seedpos%(1)=0
<Fseedpos%(2)=8
<PR%=�(2)
<Z� R%=1 �
<d  seedpos%(3)=4
<n  seedpos%(4)=12
<x�
<�  seedpos%(4)=4
<�  seedpos%(3)=12
<��
<�seedpos%(5)=2
<�seedpos%(6)=6
<�seedpos%(7)=10
<�seedpos%(8)=14
<�� n%=5�8
<�  R%=�(4)+4
<�"  Ȕ seedpos%(n%),seedpos%(R%)
<��
<�seedpos%(9)=1
<�seedpos%(10)=3
=seedpos%(11)=5
=seedpos%(12)=7
=seedpos%(13)=9
="seedpos%(14)=11
=,seedpos%(15)=13
=6seedpos%(16)=15
=@
� n%=9�16
=J  R%=�(8)+8
=T"  Ȕ seedpos%(n%),seedpos%(R%)
=^�
=hȎ tot_draw% �
=r
  � 4:
=|    � n%=1�4
=�%      seedpos%(n%)=seedpos%(n%)/4
=�	    �
=�
  � 8:
=�    � n%=1�8
=�%      seedpos%(n%)=seedpos%(n%)/2
=�	    �
=��
=��
=�:
=�� �put_seed_in(seed%,name$)
=�pos%=�pos_from_seed(seed%)
=�#drawpos%?(seed%+totnames%)=pos%
=�draw$(pos%)=�(seed%)+name$
>)� seed%<=byes% � draw$(pos%+1)=" BYE"
>�
>:
>&� �pos_from_seed(seed%)
>0� s%
>:s%=tot_draw% � 16
>D� s%=0 � s%=1
>N=s%*seedpos%(seed%)+1
>X:
>b� �find_fonts
>l� �
>vG� � �:�report("Unable to find font 'Trinity' FILE NOT SAVED",16):=�
>�6ș "Font_FindFont",,"Trinity.Medium",150,180 � f1%
>�4ș "Font_FindFont",,"Trinity.Bold",240,240 � f2%
>�5ș "Font_FindFont",,"Trinity.Medium",96,120 � f3%
>�=�
>�:
>�� �print_draw
>�� fonts%
>�#� subopt2%=-1 � per_team%=0 � �
>�*� w%,h%,l%,b%,r%,t%,from%,to%,max_len%
>�B� ("RMEnsure PDriver 0 ERROR 255 No printer driver installed")
>�fonts%=�find_fonts
>�� �(fonts%) � �
>��longest(�)
?!� max_len%<200 � max_len%=200
?!� max_len%>400 � max_len%=400
?ș "Hourglass_On"
? 
?*pf%=�("PRINTER:")
?4
?>
� pf%=0 �
?H&  �report("PDriver job= "+�pf%,17)
?R  �
?\�
?f(ș "PDriver_SelectJob",pf%,"CompJob"
?p� �
?zM� � �:� �:ș "PDriver_AbortJob",pf%:�#pf%:ș "Hourglass_Off":�error(�$):�
?�.ș "PDriver_PageSize" � ,w%,h%,l%,b%,r%,t%
?�x%=72000
?�
?�E!rect%=0       :� 4 word block containing rectangle to be plotted
?�
rect%!4=0
?�rect%!8=1450   :� max x
?�rect%!12=1900  :� max y
?�
?�B!trans%=1<<16  :� 4 word block containing transformation table
?�trans%!4=0
?�trans%!8=0
?�trans%!12=1<<16
?�
@=!plotat%=l%:plotat%!4=b%:� plot position - start at (0,0)
@
@4� &FFFFFF00 - background colour in form BBGGRRXX
@$� per_team%<>0 �
@.
  from%=1
@8  to%=1
@B�
@L  � subopt2%=0 �
@V    from%=1
@`    to%=quarters%
@j  �
@t    from%=subopt2%
@~    to%=subopt2%
@�  �
@��
@�
bx%=25
@�� quarts%=from%�to%
@�A  ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,&FFFFFF00
@�0  ș "PDriver_DrawPage",1,block%,0,0 � more%
@�  ȕ more%
@�    � per_team%=0 �
@�!      �print_quarter(quarts%)
@�	    �
@�      �print_teams
@�	    �
A1    ș "PDriver_GetRectangle",,block% � more%
A
  �
A
� quarts%
Aș "PDriver_EndJob",pf%
A(ș "Hourglass_Off"
A2� �
A<	�#pf%
AFș "Font_LoseFont",f1%
APș "Font_LoseFont",f2%
AZș "Font_LoseFont",f3%
Ad�
An:
Ax� �longest(OS%)
A�8� returns the length of the longest 'name' in points
A�max_len%=0:max$=""
A�� n%=1�128
A�  a%=�len(�seed(n%),f3%)
A�0  � a%>max_len% � max_len%=a%:max$=draw$(n%)
A�� n%
A�� OS% �
A�?  max_len%=((max_len%*180) � 72000)+10: � millipoints to OS
A��
A�E  max_len%=(max_len%/1.55)+200:           � set up for draw files
A��
A��
A�:
B� �len(a$,font%)
B� len,split%
B
$lens%=a$
B"ș "Font_SetFont",font%
B,Cș "Font_StringWidth",,lens%,3<<24,3<<24,-1,255 � ,,len,,split%
B60� split%<>�(a$) � �report(a$+":"+�split%,17)
B@=len
BJ:
BT� �colour(x%)
B^ș "ColourTrans_SetGCOL",x%
Bh�
Br:
B|� �title(x%)
B�� a$
B�3a$=�(25)+�(130)+�(20)+$title%+�(25)+�(130)+�(0)
B�ș "Font_SetFont",f2%
B�"ș "Font_Paint",,a$,16,x%,1850
B��
B�:
B�� �print_quarter(quart%)
B�� n%,base%,m%
B�base%=(quart%-1)*per_quart%
B��colour(0)
B�2ș "ColourTrans_SetFontColours",,&FFFFFF00,0,7
B��title(bx%)
B��header(quart%,quarters%)
Cș "Font_SetFont",f3%
C%� n%=base%+1�base%+per_quart% � 2
C  � draw$(n%+1)<>" bye" �
C&    � m%=0�1
C0J      ș "Font_Paint",,�seed(n%+m%),16,bx%,1700-(n%+m%-base%)*50+sy%+4
C:)      � bx%,1695-(n%+m%-base%)*50+sy%
CD      � 1,max_len%,0
CN	    �
CX    � 1,0,50
Cb-    � max_len%+bx%,1670-(n%-base%)*50+sy%
Cl    � 1,200,0
Cv  �
C�F    ș "Font_Paint",,�seed(n%),16,200+bx%,1675-(n%-base%)*50+sy%+4
C�(    � 200+bx%,1670-(n%-base%)*50+sy%
C�    � 1,max_len%,0
C�  �
C��
C�
m%=1:n%=1
C�ȕ m%<per_quart%
C�
  m%=m%*2
C�  n%+=1
C��
C�� n%>1 �
C�G  �lines(n%*200+max_len%+bx%-200,1670-25*per_quart%+sy%,per_quart%)
C��
D�
D:
D� �seed(x%)
D =�seed_string(draw$(x%))
D*:
D4� �seed_string(s$)
D>� seed%
DHseed%=�(s$)
DR
s$=�s$,2)
D\$� seed%<17 � s$+=" ("+�seed%+")"
Df=s$
Dp:
Dz� �lines(x%,y%,z%)
D�� x%,y%:� 1,-200,0
D�x%-=200
D�� x%,y%-z%/2*25
D�� 1,0,z%*25
D�� z%>4 �
D�   �lines(x%,y%-z%/2*25,z%/2)
D�   �lines(x%,y%+z%/2*25,z%/2)
D��
D��
D�:
D�� �word(point%)
D�� point%<>0 �
D�  =area%!(point%*4-4)
E�
E  v%=!i%
E  i%+=4
E$	  =v%
E.�
E8 :
EB� �header(quart%,quarters%)
EL� a$
EV� quarters%=1 �
E`
  sy%=100
Ej  �
Et�
E~	sy%=0
E�Ȏ quarters% �
E�
  � 2:
E�5    � quart%=1 � a$="TOP HALF" � a$="BOTTOM HALF"
E�
  � 4:
E�    Ȏ quart% �
E�      � 1:a$="1st"
E�      � 2:a$="2nd"
E�      � 3:a$="3rd"
E�      � 4:a$="4th"
E�	    �
E�    a$+=" QUARTER"
E��
Fș "Font_SetFont",f2%
F
#ș "Font_Paint",,a$,16,bx%,1750
F�
F:
F(� �doubles
F2� n%,m%,tot%
F<� n%=1�128
FF  drawpos%?n%=0
FP�
FZ�add_extras
Fd� n%=1�totnames%+totseeds%
Fn  double$(n%)=names$(n%)
Fx  double%(n%)=n%
F��
F�tot%=totnames%+totseeds%
F�� (tot% � 1)=1 �
F�!  double$(tot%+1)="A.N.Other"
F�  double%(tot%+1)=tot%+1
F�
  tot%+=1
F��
F�� n%=1�tot%
F�  m%=�(tot%)
F�   Ȕ double$(n%),double$(m%)
F�   Ȕ double%(n%),double%(m%)
F��
F�� n%=1�tot%/2
G9  double$(n%)=" "+double$(n%*2-1)+" & "+double$(n%*2)
G3  double%(n%)=double%(n%*2-1)*256+double%(n%*2)
G�
G"doubles%=�
G,per_team%=0
G6teams%=0
G@�set_quarters
GJ"tot_draw%=quarters%*per_quart%
GTtot%=tot%/2
G^� n%=1�tot_draw%� 2
Gh  �
Gr    m%=�(tot%)
G|  � double$(m%)<>""
G�  draw$(n%)=double$(m%)
G�(  drawpos%?(n%*2-1)=double%(m%)� 256
G�&  drawpos%?(n%*2)=double%(m%)� 256
G�  double$(m%)=""
G��
G�� n%=1�tot%
G�  � double$(n%)<>"" �
G�	    �
G�%      m%=�(tot_draw%) � %11111110
G�    � draw$(m%)=" bye"
G�    draw$(m%)=double$(n%)
G�*    drawpos%?(m%*2-1)=double%(n%)� 256
G�(    drawpos%?(m%*2)=double%(n%)� 256
H    double$(n%)=""
H  �
H�
H&�show_draw
H0altered%=�
H:�
HD:
HN� �draw_team_window
HX� n%
Hb� n%=1� teams%
Hl  �draw_team(n%)
Hv�
H��
H�:
H�� �draw_team(t%)
H�� x%,y%,p%
H�x%=ox%+19*16*((t%-1)� 4)+16
H�*y%=oy%-32*((t%-1)� 4)*(per_team%+3)-32
H�ș "Wimp_SetColour",7
H�� x%,y%:� "TEAM "�n%
H�$� x%,y%-32:� 1,16*(5+�(�(n%))),0
H�� p%=1�per_team%
H�  � x%,y%-32*(p%+1)
H�  � �player(t%,p%)
H��
I�
I:
I� �player(team%,player%)
I � n%
I*"n%=(team%-1)*per_team%+player%
I4� n%<=(teams%*per_team%) �
I>  � �(draw$(n%))<32 �
IH    ș "Wimp_SetColour",11
IR  �
I\    ș "Wimp_SetColour",7
If  �
Ip  =�draw$(n%),2)
Iz�
I�	  =""
I��
I�:
I�� �teams
I�� p%,t%
I�p%=�($players%)
I�� p%=0 � �
I�'t%=((totnames%+totseeds%-1) � p%)+1
I�9� p%>(totnames%+totseeds%) � p%=(totnames%+totseeds%)
I�
� t%>16 �
I�/  �report("Too many teams (maximum 16)",16)
I�  �
I��
J
� p%>32 �
J:  �report("Too many players per team (maximum 32)",16)
J  �
J$�
J.� p%=0 � �
J8�close_menus
JBper_team%=p%
JL
teams%=t%
JVdoubles%=�
J`�make_teams_draw
Jjdraw_made%=�
Jt�show_teams
J~�
J�:
J�� �put_seeds_in_teams
J�� totseeds%=0 � �
J�� PROCadd_extras
J�� n%,m%,dir%,p%
J�m%=1
J�
dir%=1
J�p%=0
J�� n%=1� 16
J�  � seed_exists%?n%=1 �
J�   p%+=1
J�#    �put_seed_in_team(n%,m%,p%)
K    m%+=per_team%*dir%
K
*    � (m%>teams%*per_team%) � (m%<0) �
K      dir%=-dir%
K      m%+=per_team%*dir%+1
K(	    �
K2  �
K<�
KF�
KP:
KZ!� �put_seed_in_team(n%,m%,p%)
Kddrawpos%?(p%+totnames%)=m%
Kn0draw$(m%)=�(1)+�nospace($(seeds%+19*(n%-1)))
Kx�
K�:
K�� �make_teams_draw
K�7� n%,tot%,t%,p%,pos%,sop%,min_per_team%,full_teams%
K�� n%=1�128
K�  draw$(n%)="-----"
K�  draw$(n%+128)="-----"
K�  drawpos%?n%=0
K��
K�tot%=totnames%+totseeds%
K�min_per_team%=tot% � teams%
K�+full_teams%=(tot%-min_per_team%*teams%)
K��put_seeds_in_teams
K�� p%=1�per_team%
L  � t%=1�teams%
L     pos%=(t%-1)*per_team%+p%
L]    � (p%<=min_per_team% � t%<=full_teams% � p%<=min_per_team%+1) � draw$(pos%)="-----" �
L"      n%=�random_draw
L,      drawpos%?n%=pos%
L6.      draw$(pos%)=" "+�nospace(names$(n%))
L@	    �
LJ  �
LT�
L^altered%=�
Lh�
Lr:
L|� �random_draw
L�� n%,m%
L�n%=�(totnames%)
L�	m%=n%
L��
L�  m%+=1
L�  � m%>tot% � m%=1
L�� drawpos%?m%=0  � m%=n%
L�&� m%=n% � � 1234 Can't Find A Name
L�=m%
L�:
L�� �nospace(a$)
L�ȕ �(a$)<33 � a$<>""
L�  a$=�a$,2)
M�
Mȕ �(�a$,1))<33 � a$<>""
M
  a$=�a$)
M&�
M0=a$
M::
MD� �print_teams
MN� t%,p%
MXș "ColourTrans_SetGCOL",0
Mb2ș "ColourTrans_SetFontColours",,&FFFFFF00,0,7
Ml�title(100)
Mv� t%=1�teams%
M�  �print_team(t%,logy%)
M��
M��
M�:
M�� �print_team(t%,� logy%)
M�� x%,y%,a$,p%
M�	t%-=1
M�x%=(t% � 4)*300+100
M�%y%=1730-32*(per_team%+3)*(t% � 4)
M�	t%+=1
M�a$="TEAM "+�t%
M�ș "Font_SetFont",f2%
M� ș "Font_Paint",,a$,16,x%,y%
Nș "Font_SetFont",f1%
N� p%=1� per_team%
N  a$=�player(t%,p%)
N +  ș "Font_Paint",,a$,16,x%,y%-32*p%-16
N*  logy%=y%-36*p%-16
N4�
N>�
NH:
NR� �print_direct
N\� draw_made%=� �
Nf$  �report("No draw to print",16)
Np  �
Nz�
N�� per_team%<>0 �
N�  subopt2%=0
N�  �print_draw
N�  �
N��
N�subopt2%=0
N��print_draw
N��
N�:
N� � �drawfile_start(D$)
N�
 c%=�(D$)
N� $drawfile%=D$
N� drawfile_open%=�
O- � c%=0 � � 1234,"Can't open output file"
O drawfile$=D$
O) �putw(&77617244):�putw(201):�putw(0)
O$ �puts12("CompDraw")
O. lev%=-1
O8 �head_here(�)
OB �
OL :
OV � �drawfile_end
O` �head_now
Oj �#c%:c%=0
Ot drawfile_open%=�
O~# �("SetType "+drawfile$+" AFF")
O� �
O� :
O�, � �path_start(x%,y%,width%,lcol%,fcol%)
O�
 �putw(2)
O� �head_here(�)
O� �putw(fcol%):� fill
O� �putw(lcol%):� line colour
O� �putw(width%):� line width
O� �putw(0):� path style
O� �path_move(x%,y%)
O� �
O� :
P � �path_move(x%,y%)
P

 �putw(2)
P �putxy(x%,y%)
P �
P( :
P2 � �path_draw(x%,y%)
P<
 �putw(8)
PF �putxy(x%,y%)
PP �
PZ :
Pd :
Pn � �path_end
Px
 �putw(0)
P� �head_now
P� �
P� :
P� � �group_start
P�. � groups cannot be nested in this version
P�
 �putw(6)
P� �head_here(�)
P� �puts12("group")
P� �
P� :
P� � �group_end
P� �head_now
P� �
Q :
Q � �fonttable
Q � font%,font$
Q"	 � +0
Q, � 1,Trinity.Medium
Q6 � 2,Trinity.Bold
Q@ � 0,END
QJ � font%,font$
QT � font$="END" � �
Q^
 �putw(0)
Qh �head_here(�)
Qr �
Q|   �puts(�(font%)+font$)
Q�   � font%,font$
Q� � font$="END"
Q� �align
Q� �head_now
Q� �
Q� :
Q�= � �text(x%,y%,text$,xsize,ysize,font%,col%,bcol%,uline%)
Q� text$=�nospace(text$)
Q� � text$="" � �
Q� � len,scx
Q�
 �putw(1)
Q� �head_here(�)
Q� �putxy(x%,y%-ysize*.5)
R' �putxy(x%+�(text$)*xsize,y%+ysize)
R �putw(col%)
R �putw(bcol%)
R& �putw(font%)
R0& �putw(xsize*640):�putw(ysize*640)
R: �putxy(x%,y%)
RD �puts(text$):�align
RN �head_now
RX � uline%<>0 �
Rb   Ȏ font% �
Rl
     � 1:
Rv        ș "Font_SetFont",f1%
R�       scx=xsize/15*1.025
R�"       len=�len(text$,f1%)*scx
R�
     � 2:
R�        ș "Font_SetFont",f2%
R�       scx=xsize/24*1.025
R�"       len=�len(text$,f2%)*scx
R�3     :�report("Unknown Font In PROCtext",17):�
R�   �
R�   y%-=ysize*160
R�2   �path_start(x%,y%,uline%*640,black%,black%)
R�   �path_draw(x%+len,y%)
R�   �path_end
R� �
S �
S :
S � �col(R%,G%,B%)
S  =(R%<<8)+(G%<<16)+(B%<<24)
S* :
S4 � �putw(A%)
S> �#c%,A% � &FF
SH �#c%,(A%>>8) � &FF
SR �#c%,(A%>>16) � &FF
S\ �#c%,(A%>>24) � &FF
Sf �
Sp :
Sz � �puts12(A$)
S�	 � A%
S� A$=A$+�12," ")
S�" � A%=1�12:�#c%,�(�A$,A%,1)):�
S� �
S� :
S� � �puts(A$)
S�	 � A%
S�% � A%=1��(A$):�#c%,�(�A$,A%,1)):�
S� �#c%,0
S� �
S� :
S� � �head_here(box%)
S�V � lev%=maxlev% � � 1234,"Too many nested groups. Edit program to increase limit."
T lev%+=1
T box%(lev%)=box%
T start%(lev%)=�#c%
T$ � lev%>0 � �putw(0)
T.
 � box% �
T8   �putw(0):�putw(0)
TB   �putw(0):�putw(0)
TL �
TV" l%(lev%)=bigx%:b%(lev%)=bigy%
T`" r%(lev%)=bigx%:t%(lev%)=bigy%
Tj �
Tt :
T~ � �head_now
T� � end%
T�L � lev%<0 � �"Warning: attempt to end more objects than were started.":�
T� end%=�#c%
T� �#c%=start%(lev%)
T�* � lev%>0 � �putw(end%-start%(lev%)+4)
T� � box%(lev%) �
T�&   �putw(l%(lev%)):�putw(b%(lev%))
T�&   �putw(r%(lev%)):�putw(t%(lev%))
T� �
T� � lev%>0 �
T�   lev%-=1
T�2   � l%(lev%+1)<l%(lev%) � l%(lev%)=l%(lev%+1)
U2   � b%(lev%+1)<b%(lev%) � b%(lev%)=b%(lev%+1)
U
2   � r%(lev%+1)<r%(lev%) � r%(lev%)=r%(lev%+1)
U2   � t%(lev%+1)<t%(lev%) � t%(lev%)=t%(lev%+1)
U �
U( �#c%=end%
U2 �
U< :
UF � �putxy(x%,y%)
UP �putw(x%):�putw(y%)
UZ  � x%<l%(lev%) � l%(lev%)=x%
Ud  � y%<b%(lev%) � b%(lev%)=y%
Un  � x%>r%(lev%) � r%(lev%)=x%
Ux  � y%>t%(lev%) � t%(lev%)=y%
U� �
U� :
U�
 � �align
U� ȕ �#c% � 3:�#c%,0:�
U� �
U� :
U� � �save_it_draw(� ok%)
U� � fonts%,ft%,type%,cont%
U� fonts%=�find_fonts
U� � �(fonts%) � �
U� � �
U�
 ok%=�
U�# � quarters%<>1 � per_team%=0 �
V"   �filetype(file2%,type%,ft%)
V   Ȏ type% �
V
     � 1:
V"Y       �report("An object of this name already exists. Unable to open directory.",16)
V,       ok%=�
V6       �
V@
     � 2:
VJK       cont%=�yn("A directory of this name already exists. Continue ?")
VT       � �(cont%) �
V^         ok%=�
Vh         �
Vr       �
V|
     �
V�P   � � �:� �:�report("Unable to open directory. FILES�NOT�SAVED",17):ok%=�:�
V�   ș "OS_File",8,file2%
V�
   � �
V� �
V� � per_team%<>0 �
V�   �save_it_teams(ok%)
V�   �close_menus
V�   �
V� �
V� � quarters%=1 �
V�   ok%=�cont
V�   � �(ok%) � �
V� �
W ș "Hourglass_On"
W � n%=1� quarters%
W*   �drawfile_quarter(n%,quarters%,ok%)
W& �
W0 ș "Hourglass_Off"
W: �close_menus
WD
 ok%=�
WN �
WX :
Wb � �cont
Wl � type%,ft%,ok%
Wv  �filetype(file2%,type%,ft%)
W� Ȏ type% �
W�   � 2:
W�,     �report("Object is a directory",17)
W�     =�
W�   � 1:
W�     � ft%=&AFF �
W�
       =�
W�
     �
W�U       =�yn("An object of this name already exists (type "+�~ft%+"). Continue ?")
W�
     �
W�   � 0:
W�     =�
W�	   :
X1     �report("type%= "+�type%" in FNcont",16)
X     =�
X �
X  :
X* � �col(R%,G%,B%)
X4 =(R%<<8)+(G%<<16)+(B%<<24)
X> :
XH � �colour(X)
XR � c
X\ � X=7 � =0
Xf � X<7 �
Xp   c=255-24*X
Xz   =�col(c,c,c)
X� �
X�  =�col(�(255),�(255),�(255))
X� :
X�, � �drawfile_quarter(n%,quarters%,� ok%)
X� � f$,y%
X� f$=$file2%
X�# � quarters%<>1 � f$+="."+�(n%)
X� �drawfile_start(f$)
X� �fonttable
X� �draw_title(2,0)
X� � quarters%<>1 �
X�   �sub_title(n%,quarters%)
X�   y%=1800
Y �
Y   y%=1880
Y �
Y$ �draw_quarter(n%,y%)
Y. �drawfile_end
Y8 �
YB :
YL� �draw_quarter(quart%,y%)
YV$� n%,m%,yy%,bx%,base%,thick%,th%
Y`�longest(�)
Yj3� max_len%<200*xscale2% � max_len%=200*xscale2%
Yt9� IF max_len%>400*xscale2% THEN max_len%=400*xscale2%
Y~base%=(quart%-1)*per_quart%
Y�
bx%=70
Y�thick%=320
Y�th%=thick%/2
Y��colour(0)
Y�%� n%=base%+1�base%+per_quart% � 2
Y�  � draw$(n%+1)<>" bye" �
Y�    � m%=0�1
Y�!      yy%=y%-(n%+m%-base%)*50
Y�P      �text(bx%*xscale2%,(yy%+5)*yscale%,�seed(n%+m%),6,8,1,black%,black%,0)
Y�D      �path_start(bx%*xscale2%,yy%*yscale%,thick%,black%,white%)
Y�;      �path_draw(bx%*xscale2%+max_len%+th%,yy%*yscale%)
Y�      �path_end
Z	    �
Z
K    �path_start(bx%*xscale2%+max_len%,yy%*yscale%,thick%,black%,white%)
Z:    �path_draw(bx%*xscale2%+max_len%,(yy%+50)*yscale%)
Z    �path_end
Z(P    �path_start(bx%*xscale2%+max_len%,(yy%+25)*yscale%,thick%,black%,white%)
Z2D    �path_draw((bx%+200)*xscale2%+max_len%+th%,(yy%+25)*yscale%)
Z<    �path_end
ZF  �
ZP    yy%=y%-(n%-base%)*50-25
ZZQ    �text((200+bx%)*xscale2%,(yy%+5)*yscale%,�seed(n%),6,8,1,black%,black%,0)
Zd    yy%-=25
ZnM    �path_start((bx%+200)*xscale2%,(yy%+25)*yscale%,thick%,black%,white%)
ZxD    �path_draw((bx%+200)*xscale2%+max_len%+th%,(yy%+25)*yscale%)
Z�    �path_end
Z�  �
Z��
Z�
m%=1:n%=1
Z�ȕ m%<per_quart%
Z�
  m%=m%*2
Z�  n%+=1
Z��
Z�>�draw_lines(n%*200+bx%-200,y%-25*per_quart%-25,per_quart%)
Z��
Z�:
Z�� �draw_lines(x%,y%,z%)
Z�I�path_start(x%*xscale2%+max_len%+th%,y%*yscale%,thick%,black%,white%)
[9�path_draw((x%-200)*xscale2%+max_len%+th%,y%*yscale%)
[
�path_end
[x%-=200
["O�path_start(x%*xscale2%+max_len%,(y%-z%/2*25)*yscale%,thick%,black%,white%)
[,9�path_draw(x%*xscale2%+max_len%,(y%+z%/2*25)*yscale%)
[6
�path_end
[@� z%>4 �
[J%  �draw_lines(x%,y%-z%/2*25,z%/2)
[T%  �draw_lines(x%,y%+z%/2*25,z%/2)
[^�
[h�
[r:
[|� �p(X)
[��0,0)X
[�� 7:� � �=32
[��
�

00000000  0d 00 0a 22 f4 20 3e 20  22 3a 30 2e 24 2e 21 43  |...". > ":0.$.!C|
00000010  6f 6d 70 44 72 61 77 2e  21 52 75 6e 49 6d 61 67  |ompDraw.!RunImag|
00000020  65 22 0d 00 14 33 f4 20  3e 20 22 3a 34 2e 24 2e  |e"...3. > ":4.$.|
00000030  55 73 65 66 75 6c 73 2e  43 6f 6d 70 44 72 61 77  |Usefuls.CompDraw|
00000040  2e 21 43 6f 6d 70 44 72  61 77 2e 21 52 75 6e 49  |.!CompDraw.!RunI|
00000050  6d 61 67 65 22 0d 00 1e  05 3a 0d 00 28 6b 2a 4b  |mage"....:..(k*K|
00000060  45 59 31 32 20 4d 4f 44  45 20 31 32 7c 4d 7c 4e  |EY12 MODE 12|M|N|
00000070  46 4f 52 20 4e 3d 31 54  4f 74 6f 74 6e 61 6d 65  |FOR N=1TOtotname|
00000080  73 25 3a 50 2e 4e 22 20  3a 20 22 46 4e 6e 61 6d  |s%:P.N" : "FNnam|
00000090  65 28 46 4e 69 63 6f 6e  66 72 6f 6d 6e 61 6d 65  |e(FNiconfromname|
000000a0  28 74 6f 74 6e 61 6d 65  73 25 2c 4e 29 2d 34 29  |(totnames%,N)-4)|
000000b0  22 20 3a 20 22 6e 61 6d  65 73 24 28 4e 29 3a 4e  |" : "names$(N):N|
000000c0  45 58 54 7c 4d 0d 00 32  43 2a 4b 45 59 31 31 20  |EXT|M..2C*KEY11 |
000000d0  4d 4f 44 45 20 31 32 7c  4d 7c 4e 46 4f 52 20 4e  |MODE 12|M|NFOR N|
000000e0  3d 31 54 4f 74 6f 74 6e  61 6d 65 73 25 3a 50 2e  |=1TOtotnames%:P.|
000000f0  4e 22 20 3a 20 22 73 65  6c 65 63 74 65 64 25 3f  |N" : "selected%?|
00000100  4e 3a 4e 45 58 54 7c 4d  0d 00 3c 15 2a 4b 45 59  |N:NEXT|M..<.*KEY|
00000110  34 20 53 41 56 45 7c 4d  52 55 4e 7c 4d 0d 00 46  |4 SAVE|MRUN|M..F|
00000120  0b 2a 46 58 31 32 2c 33  0d 00 50 05 3a 0d 00 5a  |.*FX12,3..P.:..Z|
00000130  31 4d 61 69 6e 58 25 3d  31 32 33 32 3a 20 20 20  |1MainX%=1232:   |
00000140  20 20 20 20 20 20 20 f4  20 20 77 69 64 74 68 20  |       .  width |
00000150  6f 66 20 6d 61 69 6e 20  77 69 6e 64 6f 77 0d 00  |of main window..|
00000160  64 32 4d 61 69 6e 59 25  3d 31 36 31 32 3a 20 20  |d2MainY%=1612:  |
00000170  20 20 20 20 20 20 20 20  f4 20 20 68 65 69 67 68  |        .  heigh|
00000180  74 20 6f 66 20 6d 61 69  6e 20 77 69 6e 64 6f 77  |t of main window|
00000190  0d 00 6e 34 74 6f 74 6e  61 6d 65 73 25 3d 30 3a  |..n4totnames%=0:|
000001a0  20 20 20 20 20 20 20 20  20 20 f4 20 20 6e 75 6d  |          .  num|
000001b0  62 65 72 20 6f 66 20 6e  61 6d 65 73 20 69 6e 20  |ber of names in |
000001c0  6c 69 73 74 0d 00 78 3a  6d 61 78 69 63 6f 6e 25  |list..x:maxicon%|
000001d0  3d 30 3a 20 20 20 20 20  20 20 20 20 20 20 f4 20  |=0:           . |
000001e0  20 68 69 67 68 65 73 74  20 6e 6f 2e 20 69 63 6f  | highest no. ico|
000001f0  6e 20 75 73 65 64 20 69  6e 20 6c 69 73 74 0d 00  |n used in list..|
00000200  82 34 74 6f 74 73 65 65  64 73 25 3d 30 3a 20 20  |.4totseeds%=0:  |
00000210  20 20 20 20 20 20 20 20  f4 20 20 6e 75 6d 62 65  |        .  numbe|
00000220  72 20 6f 66 20 73 65 65  64 73 20 69 6e 20 6c 69  |r of seeds in li|
00000230  73 74 0d 00 8c 35 6e 61  6d 65 73 5f 73 65 6c 25  |st...5names_sel%|
00000240  3d 30 3a 20 20 20 20 20  20 20 20 20 f4 20 20 6e  |=0:         .  n|
00000250  75 6d 62 65 72 20 6f 66  20 6e 61 6d 65 73 20 73  |umber of names s|
00000260  65 6c 65 63 74 65 64 0d  00 96 35 73 65 65 64 73  |elected...5seeds|
00000270  5f 73 65 6c 25 3d 30 3a  20 20 20 20 20 20 20 20  |_sel%=0:        |
00000280  20 f4 20 20 6e 75 6d 62  65 72 20 6f 66 20 73 65  | .  number of se|
00000290  65 64 73 20 73 65 6c 65  63 74 65 64 0d 00 a0 35  |eds selected...5|
000002a0  64 72 61 77 5f 6d 61 64  65 25 3d a3 3a 20 20 20  |draw_made%=.:   |
000002b0  20 20 f4 20 20 54 52 55  45 20 69 66 20 61 20 64  |  .  TRUE if a d|
000002c0  72 61 77 20 68 61 73 20  62 65 65 6e 20 6d 61 64  |raw has been mad|
000002d0  65 0d 00 aa 34 64 6f 75  62 6c 65 73 25 3d a3 3a  |e...4doubles%=.:|
000002e0  20 20 20 20 20 20 20 f4  20 20 54 52 55 45 20 69  |       .  TRUE i|
000002f0  66 20 64 72 61 77 20 69  73 20 66 6f 72 20 64 6f  |f draw is for do|
00000300  75 62 6c 65 73 0d 00 b4  2c 74 65 61 6d 73 25 3d  |ubles...,teams%=|
00000310  30 3a 20 20 20 20 20 20  20 20 20 20 20 20 20 f4  |0:             .|
00000320  20 20 6e 75 6d 62 65 72  20 6f 66 20 74 65 61 6d  |  number of team|
00000330  73 0d 00 be 38 70 65 72  5f 74 65 61 6d 25 3d 30  |s...8per_team%=0|
00000340  3a 20 20 20 20 20 20 20  20 20 20 f4 20 20 70 6c  |:          .  pl|
00000350  61 79 65 72 73 20 70 65  72 20 74 65 61 6d 3a 20  |ayers per team: |
00000360  30 20 3d 3e 20 64 72 61  77 0d 00 c8 31 71 75 61  |0 => draw...1qua|
00000370  72 74 65 72 73 25 3d 30  3a 20 20 20 20 20 20 20  |rters%=0:       |
00000380  20 20 20 f4 20 20 71 75  61 72 74 65 72 73 20 69  |   .  quarters i|
00000390  6e 20 74 68 65 20 64 72  61 77 0d 00 d2 36 66 69  |n the draw...6fi|
000003a0  6c 65 74 79 70 65 25 3d  26 41 41 41 3a 20 20 20  |letype%=&AAA:   |
000003b0  20 20 20 20 f4 20 20 66  69 6c 65 20 74 79 70 65  |    .  file type|
000003c0  20 66 6f 72 20 73 61 76  65 64 20 66 69 6c 65 73  | for saved files|
000003d0  0d 00 dc 2c 70 72 69 6e  74 69 74 25 3d a3 3a 20  |...,printit%=.: |
000003e0  20 20 20 20 20 20 f4 20  20 66 6c 61 67 20 66 6f  |      .  flag fo|
000003f0  72 20 70 72 69 6e 74 2f  6c 6f 61 64 0d 00 e6 3d  |r print/load...=|
00000400  61 6c 74 65 72 65 64 25  3d a3 3a 20 20 20 20 20  |altered%=.:     |
00000410  20 20 f4 20 20 66 6c 61  67 20 66 6f 72 20 61 6c  |  .  flag for al|
00000420  74 65 72 65 64 20 2d 20  75 73 65 64 20 77 68 65  |tered - used whe|
00000430  6e 20 65 78 69 74 69 6e  67 0d 00 f0 49 64 72 61  |n exiting...Idra|
00000440  77 66 69 6c 65 5f 6f 70  65 6e 25 3d a3 3a 20 f4  |wfile_open%=.: .|
00000450  20 20 66 6c 61 67 20 66  6f 72 20 65 72 72 6f 72  |  flag for error|
00000460  20 68 61 6e 64 6c 65 72  20 69 6e 64 69 63 61 74  | handler indicat|
00000470  69 6e 67 20 64 72 61 77  20 66 69 6c 65 20 6f 70  |ing draw file op|
00000480  65 6e 0d 00 fa 40 65 72  72 6f 72 25 3d a3 3a 20  |en...@error%=.: |
00000490  20 20 20 20 20 20 20 20  f4 20 20 66 6c 61 67 20  |        .  flag |
000004a0  66 6f 72 20 65 72 72 6f  72 20 6f 63 63 75 72 65  |for error occure|
000004b0  64 20 69 6e 20 65 72 72  6f 72 20 68 61 6e 64 6c  |d in error handl|
000004c0  65 72 0d 01 04 05 3a 0d  01 0e 09 f2 69 6e 69 74  |er....:.....init|
000004d0  0d 01 18 05 3a 0d 01 22  21 f2 72 65 61 64 5f 6c  |....:.."!.read_l|
000004e0  6f 61 64 5f 66 69 6c 65  6e 61 6d 65 28 70 72 69  |oad_filename(pri|
000004f0  6e 74 69 74 25 29 0d 01  2c 10 e7 20 70 72 69 6e  |ntit%)..,.. prin|
00000500  74 69 74 25 20 8c 0d 01  36 13 20 20 f2 70 72 69  |tit% ...6.  .pri|
00000510  6e 74 5f 64 69 72 65 63  74 0d 01 40 19 20 20 c8  |nt_direct..@.  .|
00000520  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000530  6e 22 0d 01 4a 05 cd 0d  01 54 11 f2 73 65 74 5f  |n"..J....T..set_|
00000540  75 70 5f 6d 65 6e 75 73  0d 01 5e 05 3a 0d 01 68  |up_menus..^.:..h|
00000550  0e c8 95 20 ac 20 71 75  69 74 25 0d 01 72 0b 20  |... . quit%..r. |
00000560  20 f2 70 6f 6c 6c 0d 01  7c 05 ce 0d 01 86 17 c8  | .poll..|.......|
00000570  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000580  6e 22 0d 01 90 05 e0 0d  01 9a 05 3a 0d 01 a4 05  |n".........:....|
00000590  e0 0d 01 ae 05 3a 0d 01  b8 3e f4 20 2a 2a 2a 2a  |.....:...>. ****|
000005a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 20 70 72 6f  |************ pro|
000005b0  63 73 20 73 74 61 72 74  20 68 65 72 65 20 2a 2a  |cs start here **|
000005c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000005d0  2a 2a 2a 2a 0d 01 c2 05  3a 0d 01 cc 0b dd 20 f2  |****....:..... .|
000005e0  70 6f 6c 6c 0d 01 d6 2b  c8 99 20 22 57 69 6d 70  |poll...+.. "Wimp|
000005f0  5f 50 6f 6c 6c 22 2c 25  31 31 30 30 30 31 2c 62  |_Poll",%110001,b|
00000600  6c 6f 63 6b 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |lock% . reason%.|
00000610  01 e0 10 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |..... reason% ..|
00000620  01 ea 18 20 20 c9 20 30  3a 76 25 2b 3d 31 3a f1  |...  . 0:v%+=1:.|
00000630  8a 30 2c 30 29 76 25 0d  01 f4 11 20 20 c9 20 31  |.0,0)v%....  . 1|
00000640  3a f2 72 65 64 72 61 77  0d 01 fe 26 20 20 c9 20  |:.redraw...&  . |
00000650  32 3a c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |2:.. "Wimp_OpenW|
00000660  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 02  |indow",,block%..|
00000670  08 27 20 20 c9 20 33 3a  c8 99 20 22 57 69 6d 70  |.'  . 3:.. "Wimp|
00000680  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00000690  6c 6f 63 6b 25 0d 02 12  43 20 20 c9 20 34 3a 20  |lock%...C  . 4: |
000006a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000006b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
000006c0  f4 20 70 6f 69 6e 74 65  72 20 6c 65 61 76 69 6e  |. pointer leavin|
000006d0  67 20 77 69 6e 64 6f 77  0d 02 1c 44 20 20 c9 20  |g window...D  . |
000006e0  35 3a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5:              |
000006f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000700  20 20 3a f4 20 70 6f 69  6e 74 65 72 20 65 6e 74  |  :. pointer ent|
00000710  65 72 69 6e 67 20 77 69  6e 64 6f 77 0d 02 26 35  |ering window..&5|
00000720  20 20 c9 20 36 3a f2 63  6c 69 63 6b 20 20 20 20  |  . 6:.click    |
00000730  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000740  20 20 20 3a f4 20 6d 6f  75 73 65 20 63 6c 69 63  |   :. mouse clic|
00000750  6b 0d 02 30 37 20 20 c9  20 37 3a f2 73 74 61 72  |k..07  . 7:.star|
00000760  74 73 61 76 65 28 64 72  61 67 5f 66 72 6f 6d 25  |tsave(drag_from%|
00000770  29 20 20 20 20 20 20 20  3a f4 20 75 73 65 72 20  |)       :. user |
00000780  64 72 61 67 20 62 6f 78  0d 02 3a 35 20 20 c9 20  |drag box..:5  . |
00000790  38 3a f2 6b 65 79 70 72  65 73 73 65 64 20 20 20  |8:.keypressed   |
000007a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
000007b0  f4 20 6b 65 79 20 70 72  65 73 73 65 64 0d 02 44  |. key pressed..D|
000007c0  3c 20 20 c9 20 39 3a f2  6d 65 6e 75 5f 6f 70 74  |<  . 9:.menu_opt|
000007d0  69 6f 6e 20 20 20 20 20  20 20 20 20 20 20 20 20  |ion             |
000007e0  20 20 20 20 3a f4 20 6d  65 6e 75 20 69 74 65 6d  |    :. menu item|
000007f0  20 73 65 6c 65 63 74 65  64 0d 02 4e 43 20 20 c9  | selected..NC  .|
00000800  20 31 30 3a f2 66 6f 72  63 65 5f 72 65 64 72 61  | 10:.force_redra|
00000810  77 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |w               |
00000820  3a f4 20 72 65 71 75 65  73 74 20 74 6f 20 72 65  |:. request to re|
00000830  2d 64 72 61 77 20 77 69  6e 64 6f 77 0d 02 58 37  |-draw window..X7|
00000840  20 20 c9 20 31 31 20 20  20 20 20 20 20 20 20 20  |  . 11          |
00000850  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000860  20 20 20 20 20 20 3a f4  20 6c 6f 73 65 20 63 61  |      :. lose ca|
00000870  72 65 74 0d 02 62 37 20  20 c9 20 31 32 20 20 20  |ret..b7  . 12   |
00000880  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000890  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
000008a0  67 61 69 6e 20 63 61 72  65 74 0d 02 6c 16 20 20  |gain caret..l.  |
000008b0  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
000008c0  0d 02 76 3c 20 20 c9 20  31 39 3a f4 20 50 52 4f  |..v<  . 19:. PRO|
000008d0  43 72 65 70 6f 72 74 28  22 54 72 61 6e 73 66 65  |Creport("Transfe|
000008e0  72 20 66 61 69 6c 65 64  20 2d 20 72 65 63 65 69  |r failed - recei|
000008f0  76 65 72 20 64 69 65 64  22 2c 31 29 0d 02 80 27  |ver died",1)...'|
00000900  20 20 7f 3a f2 72 65 70  6f 72 74 28 22 72 65 61  |  .:.report("rea|
00000910  73 6f 6e 25 3d 20 22 2b  c3 72 65 61 73 6f 6e 25  |son%= "+.reason%|
00000920  2c 31 29 0d 02 8a 05 cb  0d 02 94 05 e1 0d 02 9e  |,1).............|
00000930  05 3a 0d 02 a8 12 dd 20  f2 6d 65 6e 75 5f 6f 70  |.:..... .menu_op|
00000940  74 69 6f 6e 0d 02 b2 17  6d 61 69 6e 6f 70 74 69  |tion....mainopti|
00000950  6f 6e 25 3d 21 62 6c 6f  63 6b 25 0d 02 bc 15 73  |on%=!block%....s|
00000960  75 62 6f 70 74 31 25 3d  62 6c 6f 63 6b 25 21 34  |ubopt1%=block%!4|
00000970  0d 02 c6 15 73 75 62 6f  70 74 32 25 3d 62 6c 6f  |....subopt2%=blo|
00000980  63 6b 25 21 38 0d 02 d0  24 c8 99 20 22 57 69 6d  |ck%!8...$.. "Wim|
00000990  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000009a0  22 2c 2c 62 6c 6f 63 6b  25 0d 02 da 14 62 75 74  |",,block%....but|
000009b0  74 6f 6e 25 3d 62 6c 6f  63 6b 25 21 38 0d 02 e4  |ton%=block%!8...|
000009c0  12 c8 8e 20 6d 65 6e 75  6f 70 65 6e 25 20 ca 0d  |... menuopen% ..|
000009d0  02 ee 26 20 20 c9 20 69  63 6f 6e 5f 6d 65 6e 75  |..&  . icon_menu|
000009e0  25 3a f2 69 63 6f 6e 62  61 72 6d 65 6e 75 5f 6f  |%:.iconbarmenu_o|
000009f0  70 74 69 6f 6e 0d 02 f8  23 20 20 c9 20 6d 61 69  |ption...#  . mai|
00000a00  6e 5f 6d 65 6e 75 25 3a  f2 6d 61 69 6e 6d 65 6e  |n_menu%:.mainmen|
00000a10  75 5f 6f 70 74 69 6f 6e  0d 03 02 05 cb 0d 03 0c  |u_option........|
00000a20  05 e1 0d 03 16 05 3a 0d  03 20 13 dd 20 f2 66 6f  |......:.. .. .fo|
00000a30  72 63 65 5f 72 65 64 72  61 77 0d 03 2a 0d ea 20  |rce_redraw..*.. |
00000a40  77 69 6e 64 6f 77 25 0d  03 34 13 77 69 6e 64 6f  |window%..4.windo|
00000a50  77 25 3d 21 62 6c 6f 63  6b 25 0d 03 3e 10 c8 8e  |w%=!block%..>...|
00000a60  20 77 69 6e 64 6f 77 25  20 ca 0d 03 48 14 20 20  | window% ...H.  |
00000a70  c9 20 64 72 61 77 5f 77  69 6e 64 6f 77 25 0d 03  |. draw_window%..|
00000a80  52 39 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 46  |R9    .. "Wimp_F|
00000a90  6f 72 63 65 52 65 64 72  61 77 22 2c 77 69 6e 64  |orceRedraw",wind|
00000aa0  6f 77 25 2c 30 2c 2d 68  65 69 67 68 74 25 2c 77  |ow%,0,-height%,w|
00000ab0  69 64 74 68 25 2c 30 0d  03 5c 05 cb 0d 03 66 05  |idth%,0..\....f.|
00000ac0  e1 0d 03 70 05 3a 0d 03  7a 19 dd 20 f2 69 63 6f  |...p.:..z.. .ico|
00000ad0  6e 62 61 72 6d 65 6e 75  5f 6f 70 74 69 6f 6e 0d  |nbarmenu_option.|
00000ae0  03 84 14 c8 8e 20 6d 61  69 6e 6f 70 74 69 6f 6e  |..... mainoption|
00000af0  25 20 ca 0d 03 8e 1e 20  20 c9 20 31 3a e7 20 62  |% .....  . 1:. b|
00000b00  75 74 74 6f 6e 25 3c 3e  32 20 8c 20 f2 71 75 69  |utton%<>2 . .qui|
00000b10  74 0d 03 98 05 cb 0d 03  a2 2b e7 20 62 75 74 74  |t........+. butt|
00000b20  6f 6e 25 3d 31 20 8c 20  f2 73 68 6f 77 6d 65 6e  |on%=1 . .showmen|
00000b30  75 28 69 63 6f 6e 5f 6d  65 6e 75 25 2c 30 2c 30  |u(icon_menu%,0,0|
00000b40  29 0d 03 ac 05 e1 0d 03  b6 05 3a 0d 03 c0 12 dd  |).........:.....|
00000b50  20 f2 63 6c 6f 73 65 5f  6d 65 6e 75 73 0d 03 ca  | .close_menus...|
00000b60  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00000b70  4d 65 6e 75 22 2c 2c 2d  31 0d 03 d4 05 e1 0d 03  |Menu",,-1.......|
00000b80  de 05 3a 0d 03 e8 0b dd  20 f2 69 6e 69 74 0d 03  |..:..... .init..|
00000b90  f2 05 3a 0d 03 fc 19 ee  20 85 20 f2 65 72 72 6f  |..:..... . .erro|
00000ba0  72 28 f6 24 29 3a e5 20  8d 44 68 41 0d 04 06 05  |r(.$):. .DhA....|
00000bb0  3a 0d 04 10 0b ea 20 66  6c 61 67 25 0d 04 1a 0f  |:..... flag%....|
00000bc0  de 20 73 63 61 6c 65 25  20 31 36 0d 04 24 0d 3f  |. scale% 16..$.?|
00000bd0  73 63 61 6c 65 25 3d 31  0d 04 2e 0e 73 63 61 6c  |scale%=1....scal|
00000be0  65 25 3f 34 3d 31 0d 04  38 0e 73 63 61 6c 65 25  |e%?4=1..8.scale%|
00000bf0  3f 38 3d 32 0d 04 42 0f  73 63 61 6c 65 25 3f 31  |?8=2..B.scale%?1|
00000c00  32 3d 32 0d 04 4c 10 de  20 61 72 65 61 25 20 36  |2=2..L.. area% 6|
00000c10  35 30 30 0d 04 56 26 f2  73 6c 6f 61 64 28 22 3c  |500..V&.sload("<|
00000c20  4f 62 65 79 24 44 69 72  3e 2e 73 70 72 69 74 65  |Obey$Dir>.sprite|
00000c30  73 22 2c 61 72 65 61 25  29 0d 04 60 13 de 20 64  |s",area%)..`.. d|
00000c40  72 61 77 66 69 6c 65 25  20 32 35 35 0d 04 6a 10  |rawfile% 255..j.|
00000c50  de 20 62 61 73 65 25 20  33 30 30 30 0d 04 74 0e  |. base% 3000..t.|
00000c60  de 20 6c 65 6e 73 25 20  34 30 0d 04 7e 10 74 69  |. lens% 40..~.ti|
00000c70  74 6c 65 25 3d 62 61 73  65 25 0d 04 88 13 6e 61  |tle%=base%....na|
00000c80  6d 65 73 25 3d 62 61 73  65 25 2b 34 35 0d 04 92  |mes%=base%+45...|
00000c90  15 73 65 65 64 73 25 3d  62 61 73 65 25 2b 32 35  |.seeds%=base%+25|
00000ca0  30 30 0d 04 9c 17 64 72  61 77 70 6f 73 25 3d 62  |00....drawpos%=b|
00000cb0  61 73 65 25 2b 32 38 31  30 0d 04 a6 2c de 20 64  |ase%+2810...,. d|
00000cc0  72 61 77 6e 20 31 32 38  2c 72 65 63 74 25 20 31  |rawn 128,rect% 1|
00000cd0  36 2c 74 72 61 6e 73 25  20 31 36 2c 70 6c 6f 74  |6,trans% 16,plot|
00000ce0  61 74 25 20 38 0d 04 b0  1b 73 65 65 64 5f 65 78  |at% 8....seed_ex|
00000cf0  69 73 74 73 25 3d 62 61  73 65 25 2b 32 39 36 32  |ists%=base%+2962|
00000d00  0d 04 ba 10 de 20 62 6c  6f 63 6b 25 20 32 35 35  |..... block% 255|
00000d10  0d 04 c4 41 de 20 6e 61  6d 65 73 24 28 31 32 38  |...A. names$(128|
00000d20  29 2c 73 65 65 64 73 24  28 31 36 29 2c 64 72 61  |),seeds$(16),dra|
00000d30  77 24 28 32 35 36 29 2c  73 65 65 64 70 6f 73 25  |w$(256),seedpos%|
00000d40  28 31 36 29 2c 64 6f 75  62 6c 65 24 28 31 32 38  |(16),double$(128|
00000d50  29 0d 04 ce 12 de 20 64  6f 75 62 6c 65 25 28 31  |)..... double%(1|
00000d60  32 38 29 0d 04 d8 21 de  20 73 65 6c 65 63 74 65  |28)...!. selecte|
00000d70  64 25 20 31 32 38 2c 73  65 6c 5f 73 65 65 64 73  |d% 128,sel_seeds|
00000d80  25 20 31 36 0d 04 e2 34  de 20 73 65 65 64 5f 6d  |% 16...4. seed_m|
00000d90  65 6e 75 25 20 34 31 32  2c 73 65 6c 65 63 74 5f  |enu% 412,select_|
00000da0  6d 65 6e 75 25 20 31 32  34 2c 6d 61 69 6e 5f 6d  |menu% 124,main_m|
00000db0  65 6e 75 25 20 31 39 36  0d 04 ec 41 de 20 69 63  |enu% 196...A. ic|
00000dc0  6f 6e 5f 6d 65 6e 75 25  20 37 36 2c 6d 61 6b 65  |on_menu% 76,make|
00000dd0  5f 6d 65 6e 75 25 20 31  34 38 2c 64 72 61 77 5f  |_menu% 148,draw_|
00000de0  6d 65 6e 75 25 20 31 34  38 2c 70 72 69 6e 74 5f  |menu% 148,print_|
00000df0  6d 65 6e 75 25 20 31 34  38 0d 04 f6 29 de 20 73  |menu% 148...). s|
00000e00  61 76 65 5f 6d 65 6e 75  25 20 31 30 30 2c 66 69  |ave_menu% 100,fi|
00000e10  6c 65 25 20 32 35 36 2c  66 69 6c 65 32 25 20 32  |le% 256,file2% 2|
00000e20  35 36 0d 05 00 1e f4 20  76 61 72 69 61 62 6c 65  |56..... variable|
00000e30  73 20 66 6f 72 20 64 72  61 77 20 66 69 6c 65 73  |s for draw files|
00000e40  0d 05 0a 0e 6d 61 78 6c  65 76 25 3d 33 32 0d 05  |....maxlev%=32..|
00000e50  14 13 62 69 67 78 25 3d  26 30 30 30 34 30 30 30  |..bigx%=&0004000|
00000e60  30 0d 05 1e 13 62 69 67  79 25 3d 26 30 30 30 38  |0....bigy%=&0008|
00000e70  30 30 30 30 0d 05 28 53  de 20 6c 25 28 6d 61 78  |0000..(S. l%(max|
00000e80  6c 65 76 25 29 2c 72 25  28 6d 61 78 6c 65 76 25  |lev%),r%(maxlev%|
00000e90  29 2c 74 25 28 6d 61 78  6c 65 76 25 29 2c 62 25  |),t%(maxlev%),b%|
00000ea0  28 6d 61 78 6c 65 76 25  29 2c 62 6f 78 25 28 6d  |(maxlev%),box%(m|
00000eb0  61 78 6c 65 76 25 29 2c  73 74 61 72 74 25 28 6d  |axlev%),start%(m|
00000ec0  61 78 6c 65 76 25 29 0d  05 32 0f 69 6e 63 68 25  |axlev%)..2.inch%|
00000ed0  3d 26 42 34 30 30 0d 05  3c 15 62 6c 61 63 6b 25  |=&B400..<.black%|
00000ee0  3d a4 63 6f 6c 6f 75 72  28 37 29 0d 05 46 15 77  |=.colour(7)..F.w|
00000ef0  68 69 74 65 25 3d a4 63  6f 6c 6f 75 72 28 30 29  |hite%=.colour(0)|
00000f00  0d 05 50 32 78 73 63 61  6c 65 25 3d 32 30 30 3a  |..P2xscale%=200:|
00000f10  f4 20 20 78 20 73 63 61  6c 65 20 66 6f 72 20 64  |.  x scale for d|
00000f20  72 61 77 20 66 69 6c 65  73 20 6f 66 20 74 65 61  |raw files of tea|
00000f30  6d 73 0d 05 5a 42 78 73  63 61 6c 65 32 25 3d 32  |ms..ZBxscale2%=2|
00000f40  38 30 3a f4 20 78 20 73  63 61 6c 65 20 66 6f 72  |80:. x scale for|
00000f50  20 64 72 61 77 20 66 69  6c 65 73 20 6f 66 20 6b  | draw files of k|
00000f60  6e 6f 63 6b 6f 75 74 20  63 6f 6d 70 65 74 69 74  |nockout competit|
00000f70  69 6f 6e 73 0d 05 64 23  79 73 63 61 6c 65 25 3d  |ions..d#yscale%=|
00000f80  32 36 30 3a f4 20 20 79  20 73 63 61 6c 65 20 66  |260:.  y scale f|
00000f90  6f 72 20 62 6f 74 68 0d  05 6e 0d de 20 62 75 66  |or both..n.. buf|
00000fa0  25 20 32 30 0d 05 78 05  3a 0d 05 82 24 f4 20 73  |% 20..x.:...$. s|
00000fb0  70 72 69 74 65 20 70 69  78 65 6c 20 74 72 61 6e  |prite pixel tran|
00000fc0  73 6c 61 74 69 6f 6e 20  74 61 62 6c 65 0d 05 8c  |slation table...|
00000fd0  15 de 20 74 72 61 6e 73  5f 74 61 62 6c 65 25 20  |.. trans_table% |
00000fe0  31 36 0d 05 96 05 3a 0d  05 a0 14 ea 20 6e 25 2c  |16....:..... n%,|
00000ff0  74 65 78 74 24 2c 61 25  2c 74 25 0d 05 aa 0d e3  |text$,a%,t%.....|
00001000  20 6e 25 3d 30 b8 31 36  0d 05 b4 17 20 20 73 65  | n%=0.16....  se|
00001010  65 64 5f 65 78 69 73 74  73 25 3f 6e 25 3d 30 0d  |ed_exists%?n%=0.|
00001020  05 be 15 20 20 73 65 6c  5f 73 65 65 64 73 25 3f  |...  sel_seeds%?|
00001030  6e 25 3d 30 0d 05 c8 05  ed 0d 05 d2 0e e3 20 6e  |n%=0.......... n|
00001040  25 3d 30 b8 31 32 38 0d  05 dc 13 20 20 64 72 61  |%=0.128....  dra|
00001050  77 70 6f 73 25 3f 6e 25  3d 30 0d 05 e6 14 20 20  |wpos%?n%=0....  |
00001060  73 65 6c 65 63 74 65 64  25 3f 6e 25 3d 30 0d 05  |selected%?n%=0..|
00001070  f0 05 ed 0d 05 fa 13 61  70 70 24 3d 22 43 6f 6d  |.......app$="Com|
00001080  70 44 72 61 77 22 0d 06  04 0b 71 75 69 74 25 3d  |pDraw"....quit%=|
00001090  a3 0d 06 0e 2b c8 99 20  22 57 69 6d 70 5f 49 6e  |....+.. "Wimp_In|
000010a0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
000010b0  42 35 33 34 31 35 34 2c  61 70 70 24 0d 06 18 05  |B534154,app$....|
000010c0  3a 0d 06 22 18 f4 20 73  65 74 20 75 70 20 6d 61  |:..".. set up ma|
000010d0  69 6e 20 77 69 6e 64 6f  77 0d 06 2c 05 3a 0d 06  |in window..,.:..|
000010e0  36 24 6d 61 69 6e 78 25  3d 38 30 30 3a f4 20 69  |6$mainx%=800:. i|
000010f0  6e 69 74 69 61 6c 20 77  69 6e 64 6f 77 20 73 69  |nitial window si|
00001100  7a 65 0d 06 40 0e 6d 61  69 6e 79 25 3d 36 30 30  |ze..@.mainy%=600|
00001110  0d 06 4a 6e 6d 61 69 6e  5f 77 69 6e 64 6f 77 25  |..Jnmain_window%|
00001120  3d a4 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  |=.create_window(|
00001130  36 34 30 2d 6d 61 69 6e  78 25 2f 32 2c 32 36 30  |640-mainx%/2,260|
00001140  2c 6d 61 69 6e 78 25 2c  6d 61 69 6e 79 25 2c 4d  |,mainx%,mainy%,M|
00001150  61 69 6e 58 25 2d 6d 61  69 6e 78 25 2c 4d 61 69  |ainX%-mainx%,Mai|
00001160  6e 59 25 2d 6d 61 69 6e  79 25 2c 26 46 46 30 30  |nY%-mainy%,&FF00|
00001170  30 30 31 32 2c 61 70 70  24 2c 32 2c 30 29 0d 06  |0012,app$,2,0)..|
00001180  54 64 64 72 61 77 5f 77  69 6e 64 6f 77 25 3d a4  |Tddraw_window%=.|
00001190  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 28 30 2c  |create_window(0,|
000011a0  31 30 32 34 2c 6d 61 69  6e 78 25 2c 6d 61 69 6e  |1024,mainx%,main|
000011b0  79 25 2c 4d 61 69 6e 58  25 2d 6d 61 69 6e 78 25  |y%,MainX%-mainx%|
000011c0  2c 4d 61 69 6e 59 25 2d  6d 61 69 6e 79 25 2c 26  |,MainY%-mainy%,&|
000011d0  46 46 30 30 30 30 31 32  2c 61 70 70 24 2c 32 2c  |FF000012,app$,2,|
000011e0  30 29 0d 06 5e 05 3a 0d  06 68 45 61 25 3d a4 63  |0)..^.:..hEa%=.c|
000011f0  72 65 61 74 65 5f 69 63  6f 6e 28 6d 61 69 6e 5f  |reate_icon(main_|
00001200  77 69 6e 64 6f 77 25 2c  30 2c 2d 36 34 2c 31 30  |window%,0,-64,10|
00001210  30 2c 34 38 2c 26 38 30  30 30 32 31 31 2c 22 54  |0,48,&8000211,"T|
00001220  49 54 4c 45 22 2c 30 2c  30 2c 30 29 0d 06 72 2a  |ITLE",0,0,0)..r*|
00001230  24 74 69 74 6c 65 25 3d  22 43 6f 6d 70 44 72 61  |$title%="CompDra|
00001240  77 20 3a 20 43 6f 6d 70  65 74 69 74 69 6f 6e 20  |w : Competition |
00001250  54 69 74 6c 65 22 0d 06  7c 52 74 69 74 6c 65 5f  |Title"..|Rtitle_|
00001260  69 63 6f 6e 25 3d a4 63  72 65 61 74 65 5f 69 63  |icon%=.create_ic|
00001270  6f 6e 28 6d 61 69 6e 5f  77 69 6e 64 6f 77 25 2c  |on(main_window%,|
00001280  31 30 38 2c 2d 36 34 2c  36 35 36 2c 34 38 2c 26  |108,-64,656,48,&|
00001290  37 30 30 46 31 33 44 2c  22 22 2c 74 69 74 6c 65  |700F13D,"",title|
000012a0  25 2c 2d 31 2c 34 30 29  0d 06 86 05 3a 0d 06 90  |%,-1,40)....:...|
000012b0  45 61 25 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  |Ea%=.create_icon|
000012c0  28 6d 61 69 6e 5f 77 69  6e 64 6f 77 25 2c 38 2c  |(main_window%,8,|
000012d0  2d 31 36 30 38 2c 31 32  31 36 2c 31 31 38 38 2c  |-1608,1216,1188,|
000012e0  26 37 30 30 30 30 33 44  2c 22 22 2c 30 2c 30 2c  |&700003D,"",0,0,|
000012f0  30 29 0d 06 9a 05 3a 0d  06 a4 43 61 25 3d a4 63  |0)....:...Ca%=.c|
00001300  72 65 61 74 65 5f 69 63  6f 6e 28 6d 61 69 6e 5f  |reate_icon(main_|
00001310  77 69 6e 64 6f 77 25 2c  38 2c 2d 34 30 30 2c 31  |window%,8,-400,1|
00001320  32 31 36 2c 33 32 34 2c  26 37 30 30 30 30 33 44  |216,324,&700003D|
00001330  2c 22 22 2c 30 2c 30 2c  30 29 0d 06 ae 05 3a 0d  |,"",0,0,0)....:.|
00001340  06 b8 0d e3 20 6d 25 3d  30 b8 33 31 0d 06 c2 0e  |.... m%=0.31....|
00001350  20 20 e3 20 6e 25 3d 30  b8 33 0d 06 cc 14 20 20  |  . n%=0.3....  |
00001360  20 20 6e 75 6d 25 3d 6d  25 2a 34 2b 6e 25 0d 06  |  num%=m%*4+n%..|
00001370  d6 1d 20 20 20 20 70 6f  69 6e 74 25 3d 6e 61 6d  |..    point%=nam|
00001380  65 73 25 2b 6e 75 6d 25  2a 31 39 0d 06 e0 12 20  |es%+num%*19.... |
00001390  20 20 20 24 70 6f 69 6e  74 25 3d 22 22 0d 06 ea  |   $point%=""...|
000013a0  1c 20 20 20 20 78 25 3d  28 6e 25 2a 31 38 2b 6e  |.    x%=(n%*18+n|
000013b0  25 2b 32 29 2a 31 36 2d  38 0d 06 f4 15 20 20 20  |%+2)*16-8....   |
000013c0  20 79 25 3d 2d 6d 25 2a  33 36 2d 34 37 32 0d 06  | y%=-m%*36-472..|
000013d0  fe 4b 20 20 20 20 61 25  3d a4 63 72 65 61 74 65  |.K    a%=.create|
000013e0  5f 69 63 6f 6e 28 6d 61  69 6e 5f 77 69 6e 64 6f  |_icon(main_windo|
000013f0  77 25 2c 78 25 2c 79 25  2c 32 38 30 2c 33 36 2c  |w%,x%,y%,280,36,|
00001400  26 37 30 30 33 31 33 31  2c 22 22 2c 70 6f 69 6e  |&7003131,"",poin|
00001410  74 25 2c 2d 31 2c 31 38  29 0d 07 08 07 20 20 ed  |t%,-1,18)....  .|
00001420  0d 07 12 05 ed 0d 07 1c  05 3a 0d 07 26 0c e3 20  |.........:..&.. |
00001430  6e 25 3d 30 b8 31 0d 07  30 0e 20 20 e3 20 6d 25  |n%=0.1..0.  . m%|
00001440  3d 30 b8 37 0d 07 3a 14  20 20 20 20 6e 75 6d 25  |=0.7..:.    num%|
00001450  3d 6e 25 2a 38 2b 6d 25  0d 07 44 1d 20 20 20 20  |=n%*8+m%..D.    |
00001460  70 6f 69 6e 74 25 3d 73  65 65 64 73 25 2b 6e 75  |point%=seeds%+nu|
00001470  6d 25 2a 31 39 0d 07 4e  12 20 20 20 20 24 70 6f  |m%*19..N.    $po|
00001480  69 6e 74 25 3d 22 22 0d  07 58 17 20 20 20 20 78  |int%=""..X.    x|
00001490  25 3d 6e 25 2a 31 38 2a  33 32 2b 32 34 30 0d 07  |%=n%*18*32+240..|
000014a0  62 15 20 20 20 20 79 25  3d 2d 6d 25 2a 33 36 2d  |b.    y%=-m%*36-|
000014b0  31 32 34 0d 07 6c 4b 20  20 20 20 61 25 3d a4 63  |124..lK    a%=.c|
000014c0  72 65 61 74 65 5f 69 63  6f 6e 28 6d 61 69 6e 5f  |reate_icon(main_|
000014d0  77 69 6e 64 6f 77 25 2c  78 25 2c 79 25 2c 32 38  |window%,x%,y%,28|
000014e0  30 2c 33 36 2c 26 37 30  30 33 31 33 31 2c 22 22  |0,36,&7003131,""|
000014f0  2c 70 6f 69 6e 74 25 2c  2d 31 2c 31 38 29 0d 07  |,point%,-1,18)..|
00001500  76 11 20 20 20 20 c8 8e  20 6e 75 6d 25 20 ca 0d  |v.    .. num% ..|
00001510  07 80 1d 20 20 20 20 20  20 c9 20 30 2c 38 3a 73  |...      . 0,8:s|
00001520  65 65 64 24 3d 22 53 45  45 44 20 22 0d 07 8a 14  |eed$="SEED "....|
00001530  20 20 20 20 20 20 7f 3a  73 65 65 64 24 3d 22 22  |      .:seed$=""|
00001540  0d 07 94 09 20 20 20 20  cb 0d 07 9e 18 20 20 20  |....    .....   |
00001550  20 73 65 65 64 24 2b 3d  c3 28 6e 75 6d 25 2b 31  | seed$+=.(num%+1|
00001560  29 0d 07 a8 4f 20 20 20  20 61 25 3d a4 63 72 65  |)...O    a%=.cre|
00001570  61 74 65 5f 69 63 6f 6e  28 6d 61 69 6e 5f 77 69  |ate_icon(main_wi|
00001580  6e 64 6f 77 25 2c 78 25  2d 33 32 30 2c 79 25 2c  |ndow%,x%-320,y%,|
00001590  31 38 2a 31 36 2b 38 2c  33 36 2c 26 38 30 30 30  |18*16+8,36,&8000|
000015a0  32 31 31 2c 73 65 65 64  24 2c 30 2c 30 2c 30 29  |211,seed$,0,0,0)|
000015b0  0d 07 b2 07 20 20 ed 0d  07 bc 05 ed 0d 07 c6 05  |....  ..........|
000015c0  3a 0d 07 d0 1d f4 20 73  65 74 20 75 70 20 66 69  |:..... set up fi|
000015d0  6c 65 20 69 6e 66 6f 20  77 69 6e 64 6f 77 0d 07  |le info window..|
000015e0  da 05 3a 0d 07 e4 13 de  20 66 69 6c 65 5f 69 6e  |..:..... file_in|
000015f0  66 6f 25 20 32 30 0d 07  ee 24 24 66 69 6c 65 5f  |fo% 20...$$file_|
00001600  69 6e 66 6f 25 3d 22 41  62 6f 75 74 20 74 68 69  |info%="About thi|
00001610  73 20 70 72 6f 67 72 61  6d 22 0d 07 f8 4e 66 69  |s program"...Nfi|
00001620  6c 65 69 6e 66 6f 5f 77  69 6e 64 6f 77 25 3d a4  |leinfo_window%=.|
00001630  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 28 30 2c  |create_window(0,|
00001640  30 2c 34 30 30 2c 32 30  30 2c 30 2c 30 2c 26 38  |0,400,200,0,0,&8|
00001650  34 30 30 30 30 31 32 2c  22 46 69 6c 65 20 49 6e  |4000012,"File In|
00001660  66 6f 22 2c 31 2c 30 29  0d 08 02 08 f7 20 2b 30  |fo",1,0)..... +0|
00001670  0d 08 0c 22 dc 20 4e 6f  6e 20 73 65 65 64 73 3a  |...". Non seeds:|
00001680  2c 53 65 65 64 73 3a 2c  44 72 61 77 20 6d 61 64  |,Seeds:,Draw mad|
00001690  65 3a 0d 08 16 0c e3 20  6e 25 3d 31 b8 33 0d 08  |e:..... n%=1.3..|
000016a0  20 0d 20 20 f3 20 74 65  78 74 24 0d 08 2a 50 20  | .  . text$..*P |
000016b0  20 61 25 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  | a%=.create_icon|
000016c0  28 66 69 6c 65 69 6e 66  6f 5f 77 69 6e 64 6f 77  |(fileinfo_window|
000016d0  25 2c 30 2c 2d 6e 25 2a  35 36 2d 31 32 2c 32 32  |%,0,-n%*56-12,22|
000016e0  30 2c 35 32 2c 26 31 37  30 30 30 32 31 31 2c 74  |0,52,&17000211,t|
000016f0  65 78 74 24 2c 30 2c 30  2c 30 29 0d 08 34 05 ed  |ext$,0,0,0)..4..|
00001700  0d 08 3e 20 de 20 69 6e  66 6f 31 25 20 34 2c 69  |..> . info1% 4,i|
00001710  6e 66 6f 32 25 20 34 2c  69 6e 66 6f 33 25 20 34  |nfo2% 4,info3% 4|
00001720  0d 08 48 4b 61 25 3d a4  63 72 65 61 74 65 5f 69  |..HKa%=.create_i|
00001730  63 6f 6e 28 66 69 6c 65  69 6e 66 6f 5f 77 69 6e  |con(fileinfo_win|
00001740  64 6f 77 25 2c 32 34 30  2c 2d 36 38 2c 38 30 2c  |dow%,240,-68,80,|
00001750  35 32 2c 26 37 30 30 30  31 33 44 2c 22 22 2c 69  |52,&700013D,"",i|
00001760  6e 66 6f 31 25 2c 2d 31  2c 33 29 0d 08 52 4c 61  |nfo1%,-1,3)..RLa|
00001770  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 66  |%=.create_icon(f|
00001780  69 6c 65 69 6e 66 6f 5f  77 69 6e 64 6f 77 25 2c  |ileinfo_window%,|
00001790  32 34 30 2c 2d 31 32 34  2c 38 30 2c 35 32 2c 26  |240,-124,80,52,&|
000017a0  37 30 30 30 31 33 44 2c  22 22 2c 69 6e 66 6f 32  |700013D,"",info2|
000017b0  25 2c 2d 31 2c 33 29 0d  08 5c 4c 61 25 3d a4 63  |%,-1,3)..\La%=.c|
000017c0  72 65 61 74 65 5f 69 63  6f 6e 28 66 69 6c 65 69  |reate_icon(filei|
000017d0  6e 66 6f 5f 77 69 6e 64  6f 77 25 2c 32 34 30 2c  |nfo_window%,240,|
000017e0  2d 31 38 30 2c 38 30 2c  35 32 2c 26 37 30 30 30  |-180,80,52,&7000|
000017f0  31 33 44 2c 22 22 2c 69  6e 66 6f 33 25 2c 2d 31  |13D,"",info3%,-1|
00001800  2c 33 29 0d 08 66 05 3a  0d 08 70 0c de 20 63 64  |,3)..f.:..p.. cd|
00001810  25 20 31 30 0d 08 7a 13  24 63 64 25 3d 22 63 6f  |% 10..z.$cd%="co|
00001820  6d 70 64 72 61 77 22 0d  08 84 45 61 25 3d a4 63  |mpdraw"...Ea%=.c|
00001830  72 65 61 74 65 5f 69 63  6f 6e 28 6d 61 69 6e 5f  |reate_icon(main_|
00001840  77 69 6e 64 6f 77 25 2c  39 33 32 2c 2d 37 32 2c  |window%,932,-72,|
00001850  32 38 38 2c 36 34 2c 26  31 31 41 2c 22 22 2c 63  |288,64,&11A,"",c|
00001860  64 25 2c 61 72 65 61 25  2c 31 30 29 0d 08 8e 18  |d%,area%,10)....|
00001870  f4 20 73 65 74 20 75 70  20 69 6e 66 6f 20 77 69  |. set up info wi|
00001880  6e 64 6f 77 0d 08 98 05  3a 0d 08 a2 4a 69 6e 66  |ndow....:...Jinf|
00001890  6f 5f 77 69 6e 64 6f 77  25 3d a4 63 72 65 61 74  |o_window%=.creat|
000018a0  65 5f 77 69 6e 64 6f 77  28 30 2c 30 2c 36 34 30  |e_window(0,0,640|
000018b0  2c 32 37 32 2c 30 2c 30  2c 26 38 34 30 30 30 30  |,272,0,0,&840000|
000018c0  31 32 2c 22 50 72 6f 67  20 49 6e 66 6f 22 2c 31  |12,"Prog Info",1|
000018d0  2c 30 29 0d 08 ac 08 f7  20 2b 30 0d 08 b6 30 dc  |,0)..... +0...0.|
000018e0  20 4e 61 6d 65 3a 2c 50  75 72 70 6f 73 65 3a 2c  | Name:,Purpose:,|
000018f0  41 75 74 68 6f 72 3a 2c  56 65 72 73 69 6f 6e 3a  |Author:,Version:|
00001900  2c 43 6f 70 79 72 69 67  68 74 3a 0d 08 c0 64 dc  |,Copyright:...d.|
00001910  20 43 6f 6d 70 44 72 61  77 2c 4d 61 6b 65 73 20  | CompDraw,Makes |
00001920  43 6f 6d 70 65 74 69 74  69 6f 6e 20 44 72 61 77  |Competition Draw|
00001930  2c 22 50 65 74 65 72 20  52 2e 4b 69 6e 67 73 62  |,"Peter R.Kingsb|
00001940  75 72 79 22 2c 22 32 2e  30 30 20 28 32 30 2d 53  |ury","2.00 (20-S|
00001950  65 70 2d 39 33 29 22 2c  a9 20 41 52 43 48 49 4d  |ep-93)",. ARCHIM|
00001960  45 44 45 53 20 57 4f 52  4c 44 20 31 39 39 33 0d  |EDES WORLD 1993.|
00001970  08 ca 0d de 20 74 31 25  20 31 35 30 0d 08 d4 0c  |.... t1% 150....|
00001980  e3 20 6e 25 3d 31 b8 35  0d 08 de 0d 20 20 f3 20  |. n%=1.5....  . |
00001990  74 65 78 74 24 0d 08 e8  4b 20 20 61 25 3d a4 63  |text$...K  a%=.c|
000019a0  72 65 61 74 65 5f 69 63  6f 6e 28 69 6e 66 6f 5f  |reate_icon(info_|
000019b0  77 69 6e 64 6f 77 25 2c  30 2c 2d 6e 25 2a 35 32  |window%,0,-n%*52|
000019c0  2d 34 2c 31 39 32 2c 34  38 2c 26 31 37 30 30 30  |-4,192,48,&17000|
000019d0  32 31 31 2c 74 65 78 74  24 2c 30 2c 30 2c 30 29  |211,text$,0,0,0)|
000019e0  0d 08 f2 05 ed 0d 08 fc  0c e3 20 6e 25 3d 31 b8  |.......... n%=1.|
000019f0  35 0d 09 06 0d 20 20 f3  20 74 65 78 74 24 0d 09  |5....  . text$..|
00001a00  10 16 20 20 54 25 3d 74  31 25 2b 28 6e 25 2d 31  |..  T%=t1%+(n%-1|
00001a10  29 2a 33 30 0d 09 1a 0f  20 20 24 54 25 3d 74 65  |)*30....  $T%=te|
00001a20  78 74 24 0d 09 24 2f 20  20 e7 20 6e 25 3c 35 20  |xt$..$/  . n%<5 |
00001a30  8c 20 66 6c 61 67 25 3d  26 37 30 30 30 31 33 44  |. flag%=&700013D|
00001a40  3a 8b 20 66 6c 61 67 25  3d 26 37 31 30 30 30 31  |:. flag%=&710001|
00001a50  33 39 0d 09 2e 49 20 20  61 25 3d a4 63 72 65 61  |39...I  a%=.crea|
00001a60  74 65 5f 69 63 6f 6e 28  69 6e 66 6f 5f 77 69 6e  |te_icon(info_win|
00001a70  64 6f 77 25 2c 31 39 36  2c 2d 6e 25 2a 35 32 2d  |dow%,196,-n%*52-|
00001a80  34 2c 34 32 34 2c 34 38  2c 66 6c 61 67 25 2c 22  |4,424,48,flag%,"|
00001a90  22 2c 54 25 2c 2d 31 2c  33 30 29 0d 09 38 05 ed  |",T%,-1,30)..8..|
00001aa0  0d 09 42 05 3a 0d 09 4c  1c f4 20 73 65 74 20 75  |..B.:..L.. set u|
00001ab0  70 20 6e 65 77 20 6e 61  6d 65 20 77 69 6e 64 6f  |p new name windo|
00001ac0  77 0d 09 56 05 3a 0d 09  60 4b 6e 65 77 6e 61 6d  |w..V.:..`Knewnam|
00001ad0  65 5f 77 69 6e 64 6f 77  25 3d a4 63 72 65 61 74  |e_window%=.creat|
00001ae0  65 5f 77 69 6e 64 6f 77  28 30 2c 30 2c 33 32 30  |e_window(0,0,320|
00001af0  2c 36 30 2c 30 2c 30 2c  26 38 34 30 30 30 30 31  |,60,0,0,&8400001|
00001b00  32 2c 22 4e 65 77 20 4e  61 6d 65 22 2c 31 2c 30  |2,"New Name",1,0|
00001b10  29 0d 09 6a 12 de 20 6e  65 77 5f 6e 61 6d 65 25  |)..j.. new_name%|
00001b20  20 32 30 0d 09 74 11 24  6e 65 77 5f 6e 61 6d 65  | 20..t.$new_name|
00001b30  25 3d 22 22 0d 09 7e 4e  61 25 3d a4 63 72 65 61  |%=""..~Na%=.crea|
00001b40  74 65 5f 69 63 6f 6e 28  6e 65 77 6e 61 6d 65 5f  |te_icon(newname_|
00001b50  77 69 6e 64 6f 77 25 2c  31 30 2c 2d 35 32 2c 33  |window%,10,-52,3|
00001b60  30 30 2c 34 38 2c 26 37  30 30 46 31 33 44 2c 22  |00,48,&700F13D,"|
00001b70  22 2c 6e 65 77 5f 6e 61  6d 65 25 2c 2d 31 2c 31  |",new_name%,-1,1|
00001b80  38 29 0d 09 88 05 3a 0d  09 92 18 f4 20 73 65 74  |8)....:..... set|
00001b90  20 75 70 20 73 61 76 65  20 77 69 6e 64 6f 77 0d  | up save window.|
00001ba0  09 9c 05 3a 0d 09 a6 1d  70 61 74 68 24 3d 22 22  |...:....path$=""|
00001bb0  3a 74 79 70 65 24 3d 22  22 3a 6f 62 6a 24 3d 22  |:type$="":obj$="|
00001bc0  22 0d 09 b0 17 de 20 73  62 73 70 72 25 20 38 2c  |"..... sbspr% 8,|
00001bd0  73 62 76 61 6c 25 20 33  0d 09 ba 36 24 73 62 73  |sbval% 3...6$sbs|
00001be0  70 72 25 3d 22 66 69 6c  65 5f 61 61 61 22 3a 24  |pr%="file_aaa":$|
00001bf0  66 69 6c 65 25 3d 22 43  6f 6d 70 44 72 61 77 22  |file%="CompDraw"|
00001c00  3a 24 73 62 76 61 6c 25  3d 22 41 7e 20 22 0d 09  |:$sbval%="A~ "..|
00001c10  c4 49 73 61 76 65 5f 77  69 6e 64 6f 77 25 3d a4  |.Isave_window%=.|
00001c20  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 28 30 2c  |create_window(0,|
00001c30  30 2c 32 36 34 2c 31 36  34 2c 30 2c 30 2c 26 38  |0,264,164,0,0,&8|
00001c40  34 30 30 30 30 31 32 2c  22 53 61 76 65 20 61 73  |4000012,"Save as|
00001c50  3a 22 2c 31 2c 30 29 0d  09 ce 46 64 72 61 67 25  |:",1,0)...Fdrag%|
00001c60  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 28 73 61  |=.create_icon(sa|
00001c70  76 65 5f 77 69 6e 64 6f  77 25 2c 31 30 30 2c 2d  |ve_window%,100,-|
00001c80  39 32 2c 36 38 2c 36 38  2c 26 36 31 30 32 2c 22  |92,68,68,&6102,"|
00001c90  22 2c 73 62 73 70 72 25  2c 31 2c 39 29 0d 09 d8  |",sbspr%,1,9)...|
00001ca0  4c 61 25 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  |La%=.create_icon|
00001cb0  28 73 61 76 65 5f 77 69  6e 64 6f 77 25 2c 38 2c  |(save_window%,8,|
00001cc0  2d 31 35 36 2c 31 39 32  2c 34 38 2c 26 37 30 30  |-156,192,48,&700|
00001cd0  46 31 32 44 2c 22 22 2c  66 69 6c 65 25 2c 73 62  |F12D,"",file%,sb|
00001ce0  76 61 6c 25 2c 32 35 36  29 0d 09 e2 46 6f 6b 25  |val%,256)...Fok%|
00001cf0  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 28 73 61  |=.create_icon(sa|
00001d00  76 65 5f 77 69 6e 64 6f  77 25 2c 32 30 38 2c 2d  |ve_window%,208,-|
00001d10  31 35 36 2c 34 38 2c 34  38 2c 26 43 37 30 31 39  |156,48,48,&C7019|
00001d20  30 33 44 2c 22 4f 4b 22  2c 30 2c 30 2c 30 29 0d  |03D,"OK",0,0,0).|
00001d30  09 ec 05 3a 0d 09 f6 19  de 20 73 62 73 70 72 32  |...:..... sbspr2|
00001d40  25 20 38 2c 73 62 76 61  6c 32 25 20 33 0d 0a 00  |% 8,sbval2% 3...|
00001d50  3b 24 73 62 73 70 72 32  25 3d 22 64 69 72 65 63  |;$sbspr2%="direc|
00001d60  74 6f 72 79 22 3a 24 66  69 6c 65 32 25 3d 22 44  |tory":$file2%="D|
00001d70  72 61 77 5f 46 69 6c 65  22 3a 24 73 62 76 61 6c  |raw_File":$sbval|
00001d80  32 25 3d 22 41 7e 20 22  0d 0a 0a 4b 73 61 76 65  |2%="A~ "...Ksave|
00001d90  5f 77 69 6e 64 6f 77 32  25 3d a4 63 72 65 61 74  |_window2%=.creat|
00001da0  65 5f 77 69 6e 64 6f 77  28 30 2c 30 2c 32 36 34  |e_window(0,0,264|
00001db0  2c 31 36 34 2c 30 2c 30  2c 26 38 34 30 30 30 30  |,164,0,0,&840000|
00001dc0  31 32 2c 22 53 61 76 65  20 61 73 3a 22 2c 31 2c  |12,"Save as:",1,|
00001dd0  2d 31 29 0d 0a 14 49 64  72 61 67 32 25 3d a4 63  |-1)...Idrag2%=.c|
00001de0  72 65 61 74 65 5f 69 63  6f 6e 28 73 61 76 65 5f  |reate_icon(save_|
00001df0  77 69 6e 64 6f 77 32 25  2c 31 30 30 2c 2d 39 32  |window2%,100,-92|
00001e00  2c 36 38 2c 36 38 2c 26  36 31 30 32 2c 22 22 2c  |,68,68,&6102,"",|
00001e10  73 62 73 70 72 32 25 2c  31 2c 39 29 0d 0a 1e 4f  |sbspr2%,1,9)...O|
00001e20  61 25 3d a4 63 72 65 61  74 65 5f 69 63 6f 6e 28  |a%=.create_icon(|
00001e30  73 61 76 65 5f 77 69 6e  64 6f 77 32 25 2c 38 2c  |save_window2%,8,|
00001e40  2d 31 35 36 2c 31 39 32  2c 34 38 2c 26 37 30 30  |-156,192,48,&700|
00001e50  46 31 32 44 2c 22 22 2c  66 69 6c 65 32 25 2c 73  |F12D,"",file2%,s|
00001e60  62 76 61 6c 32 25 2c 32  35 36 29 0d 0a 28 48 6f  |bval2%,256)..(Ho|
00001e70  6b 32 25 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  |k2%=.create_icon|
00001e80  28 73 61 76 65 5f 77 69  6e 64 6f 77 32 25 2c 32  |(save_window2%,2|
00001e90  30 38 2c 2d 31 35 36 2c  34 38 2c 34 38 2c 26 43  |08,-156,48,48,&C|
00001ea0  37 30 31 39 30 33 44 2c  22 4f 4b 22 2c 30 2c 30  |701903D,"OK",0,0|
00001eb0  2c 30 29 0d 0a 32 05 3a  0d 0a 3c 1a f4 20 73 65  |,0)..2.:..<.. se|
00001ec0  74 20 75 70 20 69 63 6f  6e 20 62 61 72 20 69 63  |t up icon bar ic|
00001ed0  6f 6e 0d 0a 46 40 69 62  68 61 6e 64 6c 65 25 3d  |on..F@ibhandle%=|
00001ee0  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 2d 31 2c  |.create_icon(-1,|
00001ef0  30 2c 30 2c 36 38 2c 36  38 2c 26 33 30 30 32 2c  |0,0,68,68,&3002,|
00001f00  22 21 43 6f 6d 70 44 72  61 77 22 2c 30 2c 30 2c  |"!CompDraw",0,0,|
00001f10  30 29 0d 0a 50 05 3a 0d  0a 5a 19 f4 20 73 65 74  |0)..P.:..Z.. set|
00001f20  20 75 70 20 6d 65 72 67  65 20 77 69 6e 64 6f 77  | up merge window|
00001f30  0d 0a 64 05 3a 0d 0a 6e  4e 6d 65 72 67 65 5f 77  |..d.:..nNmerge_w|
00001f40  69 6e 64 6f 77 25 3d a4  63 72 65 61 74 65 5f 77  |indow%=.create_w|
00001f50  69 6e 64 6f 77 28 33 34  30 2c 34 30 30 2c 36 30  |indow(340,400,60|
00001f60  30 2c 32 34 30 2c 30 2c  30 2c 26 38 34 30 30 30  |0,240,0,0,&84000|
00001f70  30 31 30 2c 22 43 6f 6d  70 44 72 61 77 22 2c 31  |010,"CompDraw",1|
00001f80  2c 30 29 0d 0a 78 4a 6c  6f 61 25 3d a4 63 72 65  |,0)..xJloa%=.cre|
00001f90  61 74 65 5f 69 63 6f 6e  28 6d 65 72 67 65 5f 77  |ate_icon(merge_w|
00001fa0  69 6e 64 6f 77 25 2c 32  30 2c 2d 32 30 30 2c 31  |indow%,20,-200,1|
00001fb0  36 30 2c 35 36 2c 26 43  37 30 31 39 30 33 44 2c  |60,56,&C701903D,|
00001fc0  22 6c 6f 61 64 22 2c 30  2c 30 2c 30 29 0d 0a 82  |"load",0,0,0)...|
00001fd0  4c 6d 65 72 25 3d a4 63  72 65 61 74 65 5f 69 63  |Lmer%=.create_ic|
00001fe0  6f 6e 28 6d 65 72 67 65  5f 77 69 6e 64 6f 77 25  |on(merge_window%|
00001ff0  2c 32 32 30 2c 2d 32 30  30 2c 31 36 30 2c 35 36  |,220,-200,160,56|
00002000  2c 26 43 37 30 31 39 30  33 44 2c 22 6d 65 72 67  |,&C701903D,"merg|
00002010  65 22 2c 30 2c 30 2c 30  29 0d 0a 8c 4d 63 61 6e  |e",0,0,0)...Mcan|
00002020  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 6d  |%=.create_icon(m|
00002030  65 72 67 65 5f 77 69 6e  64 6f 77 25 2c 34 32 30  |erge_window%,420|
00002040  2c 2d 32 30 30 2c 31 36  30 2c 35 36 2c 26 43 37  |,-200,160,56,&C7|
00002050  30 31 39 30 33 44 2c 22  63 61 6e 63 65 6c 22 2c  |01903D,"cancel",|
00002060  30 2c 30 2c 30 29 0d 0a  96 0f de 20 6d 65 72 67  |0,0,0)..... merg|
00002070  65 25 20 32 30 0d 0a a0  22 24 6d 65 72 67 65 25  |e% 20..."$merge%|
00002080  3d 22 46 69 6c 65 20 61  6c 72 65 61 64 79 20 6c  |="File already l|
00002090  6f 61 64 65 64 2e 22 0d  0a aa 49 61 25 3d a4 63  |oaded."...Ia%=.c|
000020a0  72 65 61 74 65 5f 69 63  6f 6e 28 6d 65 72 67 65  |reate_icon(merge|
000020b0  5f 77 69 6e 64 6f 77 25  2c 30 2c 2d 31 30 30 2c  |_window%,0,-100,|
000020c0  36 30 30 2c 35 36 2c 26  37 30 30 30 31 31 39 2c  |600,56,&7000119,|
000020d0  22 22 2c 6d 65 72 67 65  25 2c 2d 31 2c 32 30 29  |"",merge%,-1,20)|
000020e0  0d 0a b4 05 3a 0d 0a be  19 f4 20 73 65 74 20 75  |....:..... set u|
000020f0  70 20 74 65 61 6d 73 20  77 69 6e 64 6f 77 0d 0a  |p teams window..|
00002100  c8 05 3a 0d 0a d2 17 de  20 70 6c 25 20 32 30 2c  |..:..... pl% 20,|
00002110  70 6c 61 79 65 72 73 25  20 32 0d 0a dc 1b 24 70  |players% 2....$p|
00002120  6c 25 3d 22 50 6c 61 79  65 72 73 20 70 65 72 20  |l%="Players per |
00002130  74 65 61 6d 22 0d 0a e6  11 24 70 6c 61 79 65 72  |team"....$player|
00002140  73 25 3d 22 36 22 0d 0a  f0 45 74 65 61 6d 5f 77  |s%="6"...Eteam_w|
00002150  69 6e 64 6f 77 25 3d a4  63 72 65 61 74 65 5f 77  |indow%=.create_w|
00002160  69 6e 64 6f 77 28 30 2c  30 2c 33 38 30 2c 36 34  |indow(0,0,380,64|
00002170  2c 30 2c 30 2c 26 38 34  30 30 30 30 31 32 2c 22  |,0,0,&84000012,"|
00002180  54 65 61 6d 73 22 2c 31  2c 30 29 0d 0a fa 46 61  |Teams",1,0)...Fa|
00002190  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 74  |%=.create_icon(t|
000021a0  65 61 6d 5f 77 69 6e 64  6f 77 25 2c 31 36 2c 2d  |eam_window%,16,-|
000021b0  35 34 2c 33 32 30 2c 34  30 2c 26 31 37 30 30 30  |54,320,40,&17000|
000021c0  31 31 31 2c 22 22 2c 70  6c 25 2c 2d 31 2c 32 30  |111,"",pl%,-1,20|
000021d0  29 0d 0b 04 4d 70 65 72  5f 74 25 3d a4 63 72 65  |)...Mper_t%=.cre|
000021e0  61 74 65 5f 69 63 6f 6e  28 74 65 61 6d 5f 77 69  |ate_icon(team_wi|
000021f0  6e 64 6f 77 25 2c 33 30  30 2c 2d 35 34 2c 36 34  |ndow%,300,-54,64|
00002200  2c 34 38 2c 26 37 30 30  46 31 33 44 2c 22 22 2c  |,48,&700F13D,"",|
00002210  70 6c 61 79 65 72 73 25  2c 2d 31 2c 33 29 0d 0b  |players%,-1,3)..|
00002220  0e 05 3a 0d 0b 18 05 e1  0d 0b 22 05 3a 0d 0b 2c  |..:.......".:..,|
00002230  4c dd 20 a4 63 72 65 61  74 65 5f 77 69 6e 64 6f  |L. .create_windo|
00002240  77 28 78 25 2c 79 25 2c  77 25 2c 68 25 2c 65 78  |w(x%,y%,w%,h%,ex|
00002250  74 78 25 2c 65 78 74 79  25 2c 66 6c 61 67 73 25  |tx%,exty%,flags%|
00002260  2c 74 69 74 6c 65 24 2c  62 67 63 6f 6c 25 2c 73  |,title$,bgcol%,s|
00002270  70 72 5f 61 72 65 61 25  29 0d 0b 36 0d ea 20 68  |pr_area%)..6.. h|
00002280  61 6e 64 6c 65 25 0d 0b  40 05 3a 0d 0b 4a 17 f4  |andle%..@.:..J..|
00002290  20 76 69 73 69 62 6c 65  20 77 6f 72 6b 20 61 72  | visible work ar|
000022a0  65 61 0d 0b 54 0e 21 62  6c 6f 63 6b 25 3d 78 25  |ea..T.!block%=x%|
000022b0  0d 0b 5e 0f 62 6c 6f 63  6b 25 21 34 3d 79 25 0d  |..^.block%!4=y%.|
000022c0  0b 68 12 62 6c 6f 63 6b  25 21 38 3d 78 25 2b 77  |.h.block%!8=x%+w|
000022d0  25 0d 0b 72 13 62 6c 6f  63 6b 25 21 31 32 3d 79  |%..r.block%!12=y|
000022e0  25 2b 68 25 0d 0b 7c 05  3a 0d 0b 86 14 f4 20 73  |%+h%..|.:..... s|
000022f0  63 72 6f 6c 6c 20 6f 66  66 73 65 74 73 0d 0b 90  |croll offsets...|
00002300  0f 62 6c 6f 63 6b 25 21  31 36 3d 30 0d 0b 9a 0f  |.block%!16=0....|
00002310  62 6c 6f 63 6b 25 21 32  30 3d 30 0d 0b a4 05 3a  |block%!20=0....:|
00002320  0d 0b ae 24 f4 20 68 61  6e 64 6c 65 20 62 65 68  |...$. handle beh|
00002330  69 6e 64 20 61 6e 64 20  77 69 6e 64 6f 77 20 66  |ind and window f|
00002340  6c 61 67 73 0d 0b b8 10  62 6c 6f 63 6b 25 21 32  |lags....block%!2|
00002350  34 3d 2d 31 0d 0b c2 14  62 6c 6f 63 6b 25 21 32  |4=-1....block%!2|
00002360  38 3d 66 6c 61 67 73 25  0d 0b cc 05 3a 0d 0b d6  |8=flags%....:...|
00002370  14 f4 20 77 69 6e 64 6f  77 20 63 6f 6c 6f 75 72  |.. window colour|
00002380  73 0d 0b e0 0f 62 6c 6f  63 6b 25 21 33 32 3d 37  |s....block%!32=7|
00002390  0d 0b ea 23 62 6c 6f 63  6b 25 21 33 33 3d 32 3a  |...#block%!33=2:|
000023a0  f4 20 62 6f 72 64 65 72  20 62 61 63 6b 67 72 6f  |. border backgro|
000023b0  75 6e 64 0d 0b f4 0f 62  6c 6f 63 6b 25 21 33 34  |und....block%!34|
000023c0  3d 37 0d 0b fe 2d 62 6c  6f 63 6b 25 21 33 35 3d  |=7...-block%!35=|
000023d0  62 67 63 6f 6c 25 3a f4  20 6d 61 69 6e 20 77 69  |bgcol%:. main wi|
000023e0  6e 64 6f 77 20 62 61 63  6b 67 72 6f 75 6e 64 0d  |ndow background.|
000023f0  0c 08 0f 62 6c 6f 63 6b  25 21 33 36 3d 33 0d 0c  |...block%!36=3..|
00002400  12 0f 62 6c 6f 63 6b 25  21 33 37 3d 31 0d 0c 1c  |..block%!37=1...|
00002410  10 62 6c 6f 63 6b 25 21  33 38 3d 31 32 0d 0c 26  |.block%!38=12..&|
00002420  05 3a 0d 0c 30 16 f4 20  77 6f 72 6b 20 61 72 65  |.:..0.. work are|
00002430  61 20 65 78 74 65 6e 74  0d 0c 3a 0f 62 6c 6f 63  |a extent..:.bloc|
00002440  6b 25 21 34 30 3d 30 0d  0c 44 17 62 6c 6f 63 6b  |k%!40=0..D.block|
00002450  25 21 34 34 3d 2d 68 25  2d 65 78 74 79 25 0d 0c  |%!44=-h%-exty%..|
00002460  4e 16 62 6c 6f 63 6b 25  21 34 38 3d 77 25 2b 65  |N.block%!48=w%+e|
00002470  78 74 78 25 0d 0c 58 0f  62 6c 6f 63 6b 25 21 35  |xtx%..X.block%!5|
00002480  32 3d 30 0d 0c 62 05 3a  0d 0c 6c 23 f4 20 74 69  |2=0..b.:..l#. ti|
00002490  74 6c 65 20 62 61 72 20  61 6e 64 20 77 6f 72 6b  |tle bar and work|
000024a0  20 61 72 65 61 20 66 6c  61 67 73 0d 0c 76 11 62  | area flags..v.b|
000024b0  6c 6f 63 6b 25 21 35 36  3d 26 31 39 0d 0c 80 13  |lock%!56=&19....|
000024c0  62 6c 6f 63 6b 25 21 36  30 3d 33 3c 3c 31 32 0d  |block%!60=3<<12.|
000024d0  0c 8a 05 3a 0d 0c 94 2a  f4 20 73 70 72 69 74 65  |...:...*. sprite|
000024e0  20 61 72 65 61 20 70 6f  69 6e 74 65 72 20 61 6e  | area pointer an|
000024f0  64 20 6d 69 6e 69 6d 75  6d 20 73 69 7a 65 0d 0c  |d minimum size..|
00002500  9e 17 62 6c 6f 63 6b 25  21 36 34 3d 73 70 72 5f  |..block%!64=spr_|
00002510  61 72 65 61 25 0d 0c a8  0f 62 6c 6f 63 6b 25 21  |area%....block%!|
00002520  36 38 3d 30 0d 0c b2 05  3a 0d 0c bc 12 f4 20 77  |68=0....:..... w|
00002530  69 6e 64 6f 77 20 74 69  74 6c 65 0d 0c c6 1b e7  |indow title.....|
00002540  20 74 69 74 6c 65 24 3c  3e 22 50 72 6f 67 20 49  | title$<>"Prog I|
00002550  6e 66 6f 22 20 8c 0d 0c  d0 1e 20 20 24 28 62 6c  |nfo" .....  $(bl|
00002560  6f 63 6b 25 2b 37 32 29  3d c0 74 69 74 6c 65 24  |ock%+72)=.title$|
00002570  2c 31 31 29 0d 0c da 05  cc 0d 0c e4 26 20 20 62  |,11)........&  b|
00002580  6c 6f 63 6b 25 21 35 36  3d 26 31 31 39 3a f4 20  |lock%!56=&119:. |
00002590  69 6e 64 69 72 65 63 74  65 64 20 64 61 74 61 0d  |indirected data.|
000025a0  0c ee 1a 20 20 62 6c 6f  63 6b 25 21 37 32 3d 66  |...  block%!72=f|
000025b0  69 6c 65 5f 69 6e 66 6f  25 0d 0c f8 12 20 20 62  |ile_info%....  b|
000025c0  6c 6f 63 6b 25 21 37 36  3d 2d 31 0d 0d 02 12 20  |lock%!76=-1.... |
000025d0  20 62 6c 6f 63 6b 25 21  38 30 3d 32 30 0d 0d 0c  | block%!80=20...|
000025e0  05 cd 0d 0d 16 05 3a 0d  0d 20 15 f4 20 6e 75 6d  |......:.. .. num|
000025f0  62 65 72 20 6f 66 20 69  63 6f 6e 73 0d 0d 2a 0f  |ber of icons..*.|
00002600  62 6c 6f 63 6b 25 21 38  34 3d 30 0d 0d 34 05 3a  |block%!84=0..4.:|
00002610  0d 0d 3e 2c c8 99 20 22  57 69 6d 70 5f 43 72 65  |..>,.. "Wimp_Cre|
00002620  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
00002630  6b 25 20 b8 20 68 61 6e  64 6c 65 25 0d 0d 48 0c  |k% . handle%..H.|
00002640  3d 68 61 6e 64 6c 65 25  0d 0d 52 05 3a 0d 0d 5c  |=handle%..R.:..\|
00002650  19 dd 20 f2 72 65 70 6f  72 74 28 65 72 72 24 2c  |.. .report(err$,|
00002660  66 6c 61 67 25 29 0d 0d  66 0b ea 20 6e 61 6d 65  |flag%)..f.. name|
00002670  24 0d 0d 70 0e 6e 61 6d  65 24 3d 61 70 70 24 0d  |$..p.name$=app$.|
00002680  0d 7a 2d e7 20 66 6c 61  67 25 20 80 20 31 36 20  |.z-. flag% . 16 |
00002690  8c 20 6e 61 6d 65 24 3d  22 4d 65 73 73 61 67 65  |. name$="Message|
000026a0  20 66 72 6f 6d 20 22 2b  61 70 70 24 0d 0d 84 0f  | from "+app$....|
000026b0  21 62 6c 6f 63 6b 25 3d  32 35 35 0d 0d 8e 17 24  |!block%=255....$|
000026c0  28 62 6c 6f 63 6b 25 2b  34 29 3d 65 72 72 24 2b  |(block%+4)=err$+|
000026d0  bd 30 0d 0d 98 39 c8 99  20 22 57 69 6d 70 5f 52  |.0...9.. "Wimp_R|
000026e0  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
000026f0  6b 25 2c 66 6c 61 67 25  2c 6e 61 6d 65 24 20 b8  |k%,flag%,name$ .|
00002700  20 2c 65 72 72 63 6c 69  63 6b 25 0d 0d a2 05 e1  | ,errclick%.....|
00002710  0d 0d ac 05 3a 0d 0d b6  12 dd 20 f2 65 72 72 6f  |....:..... .erro|
00002720  72 28 65 72 72 24 29 0d  0d c0 33 e7 20 65 72 72  |r(err$)...3. err|
00002730  6f 72 25 20 8c 20 f2 72  65 70 6f 72 74 28 f6 24  |or% . .report(.$|
00002740  2b 22 20 69 6e 20 65 72  72 6f 72 20 68 61 6e 64  |+" in error hand|
00002750  6c 65 72 22 2c 31 37 29  3a e0 0d 0d ca 0c 65 72  |ler",17):.....er|
00002760  72 6f 72 25 3d b9 0d 0d  d4 16 c8 99 20 22 48 6f  |ror%=....... "Ho|
00002770  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 0d de 16  |urglass_Off"....|
00002780  e7 20 64 72 61 77 66 69  6c 65 5f 6f 70 65 6e 25  |. drawfile_open%|
00002790  20 8c 0d 0d e8 0a 20 20  d9 23 63 25 0d 0d f2 1e  | .....  .#c%....|
000027a0  20 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 36  |  .. "OS_File",6|
000027b0  2c 64 72 61 77 66 69 6c  65 25 0d 0d fc 16 20 20  |,drawfile%....  |
000027c0  64 72 61 77 66 69 6c 65  5f 6f 70 65 6e 25 3d a3  |drawfile_open%=.|
000027d0  0d 0e 06 05 cd 0d 0e 10  19 f4 20 65 72 72 24 2b  |.......... err$+|
000027e0  3d 22 20 3a 20 22 2b 53  54 52 24 45 52 4c 0d 0e  |=" : "+STR$ERL..|
000027f0  1a 13 f2 72 65 70 6f 72  74 28 65 72 72 24 2c 31  |...report(err$,1|
00002800  29 0d 0e 24 10 e7 20 70  72 69 6e 74 69 74 25 20  |)..$.. printit% |
00002810  8c 0d 0e 2e 19 20 20 c8  99 20 22 57 69 6d 70 5f  |.....  .. "Wimp_|
00002820  43 6c 6f 73 65 44 6f 77  6e 22 0d 0e 38 07 20 20  |CloseDown"..8.  |
00002830  e0 0d 0e 42 05 cd 0d 0e  4c 0c 65 72 72 6f 72 25  |...B....L.error%|
00002840  3d a3 0d 0e 56 05 e1 0d  0e 60 05 3a 0d 0e 6a 47  |=...V....`.:..jG|
00002850  dd 20 a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 77  |. .create_icon(w|
00002860  68 61 6e 25 2c 69 78 25  2c 69 79 25 2c 69 77 25  |han%,ix%,iy%,iw%|
00002870  2c 69 68 25 2c 66 6c 61  67 25 2c 74 65 78 74 24  |,ih%,flag%,text$|
00002880  2c 70 74 72 31 25 2c 70  74 72 32 25 2c 70 74 72  |,ptr1%,ptr2%,ptr|
00002890  33 25 29 0d 0e 74 0e ea  20 69 68 61 6e 64 6c 65  |3%)..t.. ihandle|
000028a0  25 0d 0e 7e 11 21 62 6c  6f 63 6b 25 3d 77 68 61  |%..~.!block%=wha|
000028b0  6e 25 0d 0e 88 10 62 6c  6f 63 6b 25 21 34 3d 69  |n%....block%!4=i|
000028c0  78 25 0d 0e 92 10 62 6c  6f 63 6b 25 21 38 3d 69  |x%....block%!8=i|
000028d0  79 25 0d 0e 9c 15 62 6c  6f 63 6b 25 21 31 32 3d  |y%....block%!12=|
000028e0  69 78 25 2b 69 77 25 0d  0e a6 15 62 6c 6f 63 6b  |ix%+iw%....block|
000028f0  25 21 31 36 3d 69 79 25  2b 69 68 25 0d 0e b0 0f  |%!16=iy%+ih%....|
00002900  e7 20 70 74 72 31 25 3d  30 20 8c 0d 0e ba 18 20  |. ptr1%=0 ..... |
00002910  20 24 28 62 6c 6f 63 6b  25 2b 32 34 29 3d 74 65  | $(block%+24)=te|
00002920  78 74 24 0d 0e c4 05 cc  0d 0e ce 15 20 20 62 6c  |xt$.........  bl|
00002930  6f 63 6b 25 21 32 34 3d  70 74 72 31 25 0d 0e d8  |ock%!24=ptr1%...|
00002940  15 20 20 62 6c 6f 63 6b  25 21 32 38 3d 70 74 72  |.  block%!28=ptr|
00002950  32 25 0d 0e e2 15 20 20  62 6c 6f 63 6b 25 21 33  |2%....  block%!3|
00002960  32 3d 70 74 72 33 25 0d  0e ec 05 cd 0d 0e f6 13  |2=ptr3%.........|
00002970  62 6c 6f 63 6b 25 21 32  30 3d 66 6c 61 67 25 0d  |block%!20=flag%.|
00002980  0f 00 2b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..+.. "Wimp_Crea|
00002990  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 20  |teIcon",,block% |
000029a0  b8 20 69 68 61 6e 64 6c  65 25 0d 0f 0a 0d 3d 69  |. ihandle%....=i|
000029b0  68 61 6e 64 6c 65 25 0d  0f 14 05 3a 0d 0f 1e 0c  |handle%....:....|
000029c0  dd 20 f2 63 6c 69 63 6b  0d 0f 28 13 78 70 6f 69  |. .click..(.xpoi|
000029d0  6e 74 25 3d 21 62 6c 6f  63 6b 25 0d 0f 32 14 79  |nt%=!block%..2.y|
000029e0  70 6f 69 6e 74 25 3d 62  6c 6f 63 6b 25 21 34 0d  |point%=block%!4.|
000029f0  0f 3c 14 62 75 74 74 6f  6e 25 3d 62 6c 6f 63 6b  |.<.button%=block|
00002a00  25 21 38 0d 0f 46 15 77  69 6e 64 6f 77 25 3d 62  |%!8..F.window%=b|
00002a10  6c 6f 63 6b 25 21 31 32  0d 0f 50 13 69 63 6f 6e  |lock%!12..P.icon|
00002a20  25 3d 62 6c 6f 63 6b 25  21 31 36 0d 0f 5a 10 c8  |%=block%!16..Z..|
00002a30  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 0f 64 19 20  |. window% ...d. |
00002a40  20 c9 20 2d 32 3a f2 69  62 61 72 28 62 75 74 74  | . -2:.ibar(butt|
00002a50  6f 6e 25 29 0d 0f 6e 29  20 20 c9 20 6d 61 69 6e  |on%)..n)  . main|
00002a60  5f 77 69 6e 64 6f 77 25  3a f2 6d 61 69 6e 5f 63  |_window%:.main_c|
00002a70  6c 69 63 6b 28 62 75 74  74 6f 6e 25 29 0d 0f 78  |lick(button%)..x|
00002a80  23 20 20 c9 20 6d 65 72  67 65 5f 77 69 6e 64 6f  |#  . merge_windo|
00002a90  77 25 3a f2 6d 65 72 67  65 5f 77 69 6e 64 6f 77  |w%:.merge_window|
00002aa0  0d 0f 82 2d 20 20 c9 20  73 61 76 65 5f 77 69 6e  |...-  . save_win|
00002ab0  64 6f 77 25 3a f2 73 61  76 65 5f 66 69 6c 65 28  |dow%:.save_file(|
00002ac0  73 61 76 65 5f 77 69 6e  64 6f 77 25 29 0d 0f 8c  |save_window%)...|
00002ad0  2f 20 20 c9 20 73 61 76  65 5f 77 69 6e 64 6f 77  |/  . save_window|
00002ae0  32 25 3a f2 73 61 76 65  5f 66 69 6c 65 28 73 61  |2%:.save_file(sa|
00002af0  76 65 5f 77 69 6e 64 6f  77 32 25 29 0d 0f 96 1b  |ve_window2%)....|
00002b00  20 20 c9 20 74 65 61 6d  5f 77 69 6e 64 6f 77 25  |  . team_window%|
00002b10  3a f2 74 65 61 6d 73 0d  0f a0 15 20 20 c9 20 64  |:.teams....  . d|
00002b20  72 61 77 5f 77 69 6e 64  6f 77 25 3a 0d 0f aa 25  |raw_window%:...%|
00002b30  20 20 7f 3a f2 72 65 70  6f 72 74 28 22 57 69 6e  |  .:.report("Win|
00002b40  64 6f 77 20 22 2b c3 77  69 6e 64 6f 77 25 2c 31  |dow "+.window%,1|
00002b50  29 0d 0f b4 05 cb 0d 0f  be 05 e1 0d 0f c8 05 3a  |)..............:|
00002b60  0d 0f d2 1b dd 20 f2 6f  70 65 6e 5f 77 69 6e 64  |..... .open_wind|
00002b70  6f 77 28 77 69 6e 64 6f  77 25 29 0d 0f dc 13 21  |ow(window%)....!|
00002b80  62 6c 6f 63 6b 25 3d 77  69 6e 64 6f 77 25 0d 0f  |block%=window%..|
00002b90  e6 24 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.$.. "Wimp_GetWi|
00002ba0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00002bb0  6b 25 0d 0f f0 10 62 6c  6f 63 6b 25 21 32 38 3d  |k%....block%!28=|
00002bc0  2d 31 0d 0f fa 20 c8 99  20 22 57 69 6d 70 5f 4f  |-1... .. "Wimp_O|
00002bd0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00002be0  6b 25 0d 10 04 05 e1 0d  10 0e 05 3a 0d 10 18 14  |k%.........:....|
00002bf0  dd 20 f2 69 62 61 72 28  62 75 74 74 6f 6e 25 29  |. .ibar(button%)|
00002c00  0d 10 22 10 c8 8e 20 62  75 74 74 6f 6e 25 20 ca  |.."... button% .|
00002c10  0d 10 2c 0c 20 20 c9 20  31 2c 34 3a 0d 10 36 22  |..,.  . 1,4:..6"|
00002c20  20 20 20 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |    .open_window|
00002c30  28 6d 61 69 6e 5f 77 69  6e 64 6f 77 25 29 0d 10  |(main_window%)..|
00002c40  40 0a 20 20 c9 20 32 3a  0d 10 4a 2c 20 20 20 20  |@.  . 2:..J,    |
00002c50  f2 73 68 6f 77 6d 65 6e  75 28 69 63 6f 6e 5f 6d  |.showmenu(icon_m|
00002c60  65 6e 75 25 2c 21 62 6c  6f 63 6b 25 2d 36 34 2c  |enu%,!block%-64,|
00002c70  31 38 34 29 0d 10 54 05  cb 0d 10 5e 05 e1 0d 10  |184)..T....^....|
00002c80  68 05 3a 0d 10 72 1e dd  20 f2 73 68 6f 77 6d 65  |h.:..r.. .showme|
00002c90  6e 75 28 6d 65 6e 75 25  2c 6d 78 25 2c 6d 79 25  |nu(menu%,mx%,my%|
00002ca0  29 0d 10 7c 13 6d 65 6e  75 6f 70 65 6e 25 3d 6d  |)..|.menuopen%=m|
00002cb0  65 6e 75 25 0d 10 86 27  c8 99 20 22 57 69 6d 70  |enu%...'.. "Wimp|
00002cc0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
00002cd0  6e 75 25 2c 6d 78 25 2c  6d 79 25 0d 10 90 05 e1  |nu%,mx%,my%.....|
00002ce0  0d 10 9a 05 3a 0d 10 a4  0e dd 20 f2 72 65 63 65  |....:..... .rece|
00002cf0  69 76 65 0d 10 ae 12 c8  8e 20 62 6c 6f 63 6b 25  |ive...... block%|
00002d00  21 31 36 20 ca 0d 10 b8  0f 20 20 c9 20 30 3a f2  |!16 .....  . 0:.|
00002d10  71 75 69 74 0d 10 c2 13  20 20 c9 20 32 3a f2 64  |quit....  . 2:.d|
00002d20  61 74 61 73 61 76 65 0d  10 cc 13 20 20 c9 20 33  |atasave....  . 3|
00002d30  3a f2 64 61 74 61 6c 6f  61 64 0d 10 d6 05 cb 0d  |:.dataload......|
00002d40  10 e0 05 e1 0d 10 ea 05  3a 0d 10 f4 0b dd 20 f2  |........:..... .|
00002d50  71 75 69 74 0d 10 fe 08  ea 20 71 25 0d 11 08 13  |quit..... q%....|
00002d60  e7 20 ac 28 61 6c 74 65  72 65 64 25 29 20 8c 0d  |. .(altered%) ..|
00002d70  11 12 0d 20 20 71 75 69  74 25 3d b9 0d 11 1c 07  |...  quit%=.....|
00002d80  20 20 e1 0d 11 26 05 cd  0d 11 30 23 71 25 3d a4  |  ...&....0#q%=.|
00002d90  79 6e 28 22 57 41 52 4e  49 4e 47 3a 20 55 6e 73  |yn("WARNING: Uns|
00002da0  61 76 65 64 20 64 61 74  61 22 29 0d 11 3a 12 e7  |aved data")..:..|
00002db0  20 71 25 20 8c 20 71 75  69 74 25 3d b9 0d 11 44  | q% . quit%=...D|
00002dc0  05 e1 0d 11 4e 05 3a 0d  11 58 0d dd 20 f2 72 65  |....N.:..X.. .re|
00002dd0  64 72 61 77 0d 11 62 13  ea 20 6d 6f 72 65 25 2c  |draw..b.. more%,|
00002de0  77 69 6e 64 6f 77 25 0d  11 6c 13 77 69 6e 64 6f  |window%..l.windo|
00002df0  77 25 3d 21 62 6c 6f 63  6b 25 0d 11 76 2a c8 99  |w%=!block%..v*..|
00002e00  20 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  | "Wimp_RedrawWin|
00002e10  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 6d  |dow",,block% . m|
00002e20  6f 72 65 25 0d 11 80 1a  6f 78 25 3d 62 6c 6f 63  |ore%....ox%=bloc|
00002e30  6b 25 21 34 2d 62 6c 6f  63 6b 25 21 32 30 0d 11  |k%!4-block%!20..|
00002e40  8a 1b 6f 79 25 3d 62 6c  6f 63 6b 25 21 31 36 2d  |..oy%=block%!16-|
00002e50  62 6c 6f 63 6b 25 21 32  34 0d 11 94 0c c8 95 20  |block%!24...... |
00002e60  6d 6f 72 65 25 0d 11 9e  12 20 20 c8 8e 20 77 69  |more%....  .. wi|
00002e70  6e 64 6f 77 25 20 ca 0d  11 a8 17 20 20 20 20 c9  |ndow% .....    .|
00002e80  20 6d 61 69 6e 5f 77 69  6e 64 6f 77 25 3a 0d 11  | main_window%:..|
00002e90  b2 16 20 20 20 20 c9 20  64 72 61 77 5f 77 69 6e  |..    . draw_win|
00002ea0  64 6f 77 25 0d 11 bc 19  20 20 20 20 20 20 e7 20  |dow%....      . |
00002eb0  70 65 72 5f 74 65 61 6d  25 3d 30 20 8c 0d 11 c6  |per_team%=0 ....|
00002ec0  1d 20 20 20 20 20 20 20  20 f2 64 72 61 77 5f 64  |.        .draw_d|
00002ed0  72 61 77 5f 77 69 6e 64  6f 77 0d 11 d0 0b 20 20  |raw_window....  |
00002ee0  20 20 20 20 cc 0d 11 da  1d 20 20 20 20 20 20 20  |    .....       |
00002ef0  20 f2 64 72 61 77 5f 74  65 61 6d 5f 77 69 6e 64  | .draw_team_wind|
00002f00  6f 77 0d 11 e4 0b 20 20  20 20 20 20 cd 0d 11 ee  |ow....      ....|
00002f10  07 20 20 cb 0d 11 f8 2c  20 20 c8 99 20 22 57 69  |.  ....,  .. "Wi|
00002f20  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00002f30  2c 2c 62 6c 6f 63 6b 25  20 b8 20 6d 6f 72 65 25  |,,block% . more%|
00002f40  0d 12 02 05 ce 0d 12 0c  05 e1 0d 12 16 05 3a 0d  |..............:.|
00002f50  12 20 1a dd 20 f2 6d 61  69 6e 5f 63 6c 69 63 6b  |. .. .main_click|
00002f60  28 62 75 74 74 6f 6e 25  29 0d 12 2a 13 69 63 6f  |(button%)..*.ico|
00002f70  6e 25 3d 62 6c 6f 63 6b  25 21 31 36 0d 12 34 10  |n%=block%!16..4.|
00002f80  c8 8e 20 62 75 74 74 6f  6e 25 20 ca 0d 12 3e 0c  |.. button% ...>.|
00002f90  20 20 c9 20 31 2c 34 3a  0d 12 48 2c 20 20 20 20  |  . 1,4:..H,    |
00002fa0  e7 20 69 63 6f 6e 25 3e  33 20 80 20 69 63 6f 6e  |. icon%>3 . icon|
00002fb0  25 3c 31 33 32 20 8c 20  f2 6c 69 73 74 28 69 63  |%<132 . .list(ic|
00002fc0  6f 6e 25 29 0d 12 52 2e  20 20 20 20 e7 20 69 63  |on%)..R.    . ic|
00002fd0  6f 6e 25 3e 31 33 31 20  80 20 69 63 6f 6e 25 3c  |on%>131 . icon%<|
00002fe0  31 36 33 20 8c 20 f2 73  65 65 64 28 69 63 6f 6e  |163 . .seed(icon|
00002ff0  25 29 0d 12 5c 0a 20 20  c9 20 32 3a 0d 12 66 12  |%)..\.  . 2:..f.|
00003000  20 20 20 20 f2 6d 61 69  6e 5f 6d 65 6e 75 0d 12  |    .main_menu..|
00003010  70 05 cb 0d 12 7a 05 e1  0d 12 84 05 3a 0d 12 8e  |p....z......:...|
00003020  1a dd 20 a4 69 63 6f 6e  66 72 6f 6d 73 65 65 64  |.. .iconfromseed|
00003030  28 73 65 65 64 25 29 0d  12 98 11 3d 28 73 65 65  |(seed%)....=(see|
00003040  64 25 2b 36 35 29 2a 32  0d 12 a2 05 3a 0d 12 ac  |d%+65)*2....:...|
00003050  1a dd 20 a4 73 65 65 64  66 72 6f 6d 69 63 6f 6e  |.. .seedfromicon|
00003060  28 69 63 6f 6e 25 29 0d  12 b6 13 3d 28 69 63 6f  |(icon%)....=(ico|
00003070  6e 25 20 81 20 32 29 2d  36 35 0d 12 c0 05 3a 0d  |n% . 2)-65....:.|
00003080  12 ca 1e dd 20 f2 6e 61  6d 65 69 6e 69 63 6f 6e  |.... .nameinicon|
00003090  28 6e 61 6d 65 24 2c 69  63 6f 6e 25 29 0d 12 d4  |(name$,icon%)...|
000030a0  11 e7 20 69 63 6f 6e 25  3c 34 20 8c 20 e1 0d 12  |.. icon%<4 . ...|
000030b0  de 08 ea 20 7a 25 0d 12  e8 1a 7a 25 3d 6e 61 6d  |... z%....z%=nam|
000030c0  65 73 25 2b 31 39 2a 28  69 63 6f 6e 25 2d 34 29  |es%+19*(icon%-4)|
000030d0  0d 12 f2 0d 24 7a 25 3d  6e 61 6d 65 24 0d 12 fc  |....$z%=name$...|
000030e0  05 e1 0d 13 06 05 3a 0d  13 10 1e dd 20 f2 73 65  |......:..... .se|
000030f0  65 64 69 6e 69 63 6f 6e  28 6e 61 6d 65 24 2c 73  |edinicon(name$,s|
00003100  65 65 64 25 29 0d 13 1a  08 ea 20 7a 25 0d 13 24  |eed%)..... z%..$|
00003110  1a 7a 25 3d 73 65 65 64  73 25 2b 31 39 2a 28 73  |.z%=seeds%+19*(s|
00003120  65 65 64 25 2d 31 29 0d  13 2e 0d 24 7a 25 3d 6e  |eed%-1)....$z%=n|
00003130  61 6d 65 24 0d 13 38 05  e1 0d 13 42 05 3a 0d 13  |ame$..8....B.:..|
00003140  4c 12 dd 20 f2 6c 69 73  74 28 69 63 6f 6e 25 29  |L.. .list(icon%)|
00003150  0d 13 56 0e ea 20 6e 61  6d 65 25 2c 6e 25 0d 13  |..V.. name%,n%..|
00003160  60 1e 6e 61 6d 65 25 3d  a4 6e 61 6d 65 66 72 6f  |`.name%=.namefro|
00003170  6d 69 63 6f 6e 28 69 63  6f 6e 25 29 0d 13 6a 19  |micon(icon%)..j.|
00003180  e7 20 6e 61 6d 65 25 3e  74 6f 74 6e 61 6d 65 73  |. name%>totnames|
00003190  25 20 8c 20 e1 0d 13 74  15 e7 20 73 65 65 64 73  |% . ...t.. seeds|
000031a0  5f 73 65 6c 25 3c 3e 30  20 8c 0d 13 7e 0f 20 20  |_sel%<>0 ...~.  |
000031b0  e3 20 6e 25 3d 31 b8 31  36 0d 13 88 1b 20 20 20  |. n%=1.16....   |
000031c0  20 e7 20 73 65 6c 5f 73  65 65 64 73 25 3f 6e 25  | . sel_seeds%?n%|
000031d0  3d 31 20 8c 0d 13 92 19  20 20 20 20 20 20 73 65  |=1 .....      se|
000031e0  6c 5f 73 65 65 64 73 25  3f 6e 25 3d 30 0d 13 9c  |l_seeds%?n%=0...|
000031f0  26 20 20 20 20 20 20 f2  63 68 6f 6f 73 65 28 a4  |&      .choose(.|
00003200  69 63 6f 6e 66 72 6f 6d  73 65 65 64 28 6e 25 29  |iconfromseed(n%)|
00003210  2c a3 29 0d 13 a6 09 20  20 20 20 cd 0d 13 b0 07  |,.)....    .....|
00003220  20 20 ed 0d 13 ba 12 20  20 73 65 65 64 73 5f 73  |  .....  seeds_s|
00003230  65 6c 25 3d 30 0d 13 c4  05 cd 0d 13 ce 19 e7 20  |el%=0.......... |
00003240  73 65 6c 65 63 74 65 64  25 3f 6e 61 6d 65 25 3d  |selected%?name%=|
00003250  31 20 8c 0d 13 d8 18 20  20 f4 20 61 6c 72 65 61  |1 .....  . alrea|
00003260  64 79 20 73 65 6c 65 63  74 65 64 0d 13 e2 13 20  |dy selected.... |
00003270  20 6e 61 6d 65 73 5f 73  65 6c 25 2d 3d 31 0d 13  | names_sel%-=1..|
00003280  ec 17 20 20 73 65 6c 65  63 74 65 64 25 3f 6e 61  |..  selected%?na|
00003290  6d 65 25 3d 30 0d 13 f6  16 20 20 f2 63 68 6f 6f  |me%=0....  .choo|
000032a0  73 65 28 69 63 6f 6e 25  2c a3 29 0d 14 00 05 cc  |se(icon%,.).....|
000032b0  0d 14 0a 18 20 20 f4 20  6e 6f 74 20 79 65 74 20  |....  . not yet |
000032c0  73 65 6c 65 63 74 65 64  0d 14 14 13 20 20 6e 61  |selected....  na|
000032d0  6d 65 73 5f 73 65 6c 25  2b 3d 31 0d 14 1e 17 20  |mes_sel%+=1.... |
000032e0  20 73 65 6c 65 63 74 65  64 25 3f 6e 61 6d 65 25  | selected%?name%|
000032f0  3d 31 0d 14 28 16 20 20  f2 63 68 6f 6f 73 65 28  |=1..(.  .choose(|
00003300  69 63 6f 6e 25 2c b9 29  0d 14 32 05 cd 0d 14 3c  |icon%,.)..2....<|
00003310  05 e1 0d 14 46 05 3a 0d  14 50 12 dd 20 f2 73 65  |....F.:..P.. .se|
00003320  65 64 28 69 63 6f 6e 25  29 0d 14 5a 0e ea 20 6e  |ed(icon%)..Z.. n|
00003330  25 2c 73 65 65 64 25 0d  14 64 1e 73 65 65 64 25  |%,seed%..d.seed%|
00003340  3d a4 73 65 65 64 66 72  6f 6d 69 63 6f 6e 28 69  |=.seedfromicon(i|
00003350  63 6f 6e 25 29 0d 14 6e  1e e7 20 73 65 65 64 5f  |con%)..n.. seed_|
00003360  65 78 69 73 74 73 25 3f  73 65 65 64 25 3d 30 20  |exists%?seed%=0 |
00003370  8c 20 e1 0d 14 78 15 e7  20 6e 61 6d 65 73 5f 73  |. ...x.. names_s|
00003380  65 6c 25 3c 3e 30 20 8c  0d 14 82 16 20 20 e3 20  |el%<>0 .....  . |
00003390  6e 25 3d 31 b8 74 6f 74  6e 61 6d 65 73 25 0d 14  |n%=1.totnames%..|
000033a0  8c 1a 20 20 20 20 e7 20  73 65 6c 65 63 74 65 64  |..    . selected|
000033b0  25 3f 6e 25 3d 31 20 8c  0d 14 96 30 20 20 20 20  |%?n%=1 ....0    |
000033c0  20 20 f2 63 68 6f 6f 73  65 28 a4 69 63 6f 6e 66  |  .choose(.iconf|
000033d0  72 6f 6d 6e 61 6d 65 28  74 6f 74 6e 61 6d 65 73  |romname(totnames|
000033e0  25 2c 6e 25 29 2c a3 29  0d 14 a0 18 20 20 20 20  |%,n%),.)....    |
000033f0  20 20 73 65 6c 65 63 74  65 64 25 3f 6e 25 3d 30  |  selected%?n%=0|
00003400  0d 14 aa 09 20 20 20 20  cd 0d 14 b4 07 20 20 ed  |....    .....  .|
00003410  0d 14 be 12 20 20 6e 61  6d 65 73 5f 73 65 6c 25  |....  names_sel%|
00003420  3d 30 0d 14 c8 05 cd 0d  14 d2 1a e7 20 73 65 6c  |=0.......... sel|
00003430  5f 73 65 65 64 73 25 3f  73 65 65 64 25 3d 30 20  |_seeds%?seed%=0 |
00003440  8c 0d 14 dc 18 20 20 73  65 6c 5f 73 65 65 64 73  |.....  sel_seeds|
00003450  25 3f 73 65 65 64 25 3d  31 0d 14 e6 13 20 20 73  |%?seed%=1....  s|
00003460  65 65 64 73 5f 73 65 6c  25 2b 3d 31 0d 14 f0 16  |eeds_sel%+=1....|
00003470  20 20 f2 63 68 6f 6f 73  65 28 69 63 6f 6e 25 2c  |  .choose(icon%,|
00003480  b9 29 0d 14 fa 05 cc 0d  15 04 18 20 20 73 65 6c  |.).........  sel|
00003490  5f 73 65 65 64 73 25 3f  73 65 65 64 25 3d 30 0d  |_seeds%?seed%=0.|
000034a0  15 0e 13 20 20 73 65 65  64 73 5f 73 65 6c 25 2d  |...  seeds_sel%-|
000034b0  3d 31 0d 15 18 16 20 20  f2 63 68 6f 6f 73 65 28  |=1....  .choose(|
000034c0  69 63 6f 6e 25 2c a3 29  0d 15 22 05 cd 0d 15 2c  |icon%,.).."....,|
000034d0  05 e1 0d 15 36 05 3a 0d  15 40 1f dd 20 a4 69 63  |....6.:..@.. .ic|
000034e0  6f 6e 66 72 6f 6d 6e 61  6d 65 28 74 6f 74 25 2c  |onfromname(tot%,|
000034f0  6e 61 6d 65 25 29 0d 15  4a 11 e7 20 74 6f 74 25  |name%)..J.. tot%|
00003500  3d 30 20 8c 20 3d 30 0d  15 54 0c 6e 61 6d 65 25  |=0 . =0..T.name%|
00003510  2d 3d 31 0d 15 5e 0e ea  20 58 25 2c 78 25 2c 79  |-=1..^.. X%,x%,y|
00003520  25 0d 15 68 14 58 25 3d  28 28 74 6f 74 25 2b 33  |%..h.X%=((tot%+3|
00003530  29 81 20 34 29 0d 15 72  11 79 25 3d 6e 61 6d 65  |). 4)..r.y%=name|
00003540  25 20 83 20 58 25 0d 15  7c 11 78 25 3d 6e 61 6d  |% . X%..|.x%=nam|
00003550  65 25 20 81 20 58 25 0d  15 86 0e 3d 79 25 2a 34  |e% . X%....=y%*4|
00003560  2b 78 25 2b 34 0d 15 90  05 3a 0d 15 9a 1a dd 20  |+x%+4....:..... |
00003570  a4 6e 61 6d 65 66 72 6f  6d 69 63 6f 6e 28 69 63  |.namefromicon(ic|
00003580  6f 6e 25 29 0d 15 a4 0e  ea 20 58 25 2c 78 25 2c  |on%)..... X%,x%,|
00003590  79 25 0d 15 ae 0c 69 63  6f 6e 25 2d 3d 34 0d 15  |y%....icon%-=4..|
000035a0  b8 19 58 25 3d 28 28 74  6f 74 6e 61 6d 65 73 25  |..X%=((totnames%|
000035b0  2b 33 29 81 20 34 29 0d  15 c2 10 78 25 3d 69 63  |+3). 4)....x%=ic|
000035c0  6f 6e 25 20 83 20 34 0d  15 cc 10 79 25 3d 69 63  |on% . 4....y%=ic|
000035d0  6f 6e 25 20 81 20 34 0d  15 d6 1b e7 20 79 25 3e  |on% . 4..... y%>|
000035e0  3d 58 25 20 8c 20 3d 74  6f 74 6e 61 6d 65 73 25  |=X% . =totnames%|
000035f0  2b 31 0d 15 e0 0f 3d 78  25 2a 58 25 2b 79 25 2b  |+1....=x%*X%+y%+|
00003600  31 0d 15 ea 05 3a 0d 15  f4 1e dd 20 f2 63 68 6f  |1....:..... .cho|
00003610  6f 73 65 28 69 63 6f 6e  25 2c 73 65 6c 65 63 74  |ose(icon%,select|
00003620  65 64 25 29 0d 15 fe 17  ea 20 66 63 6f 6c 25 2c  |ed%)..... fcol%,|
00003630  62 63 6f 6c 25 2c 6d 61  73 6b 25 0d 16 08 11 e7  |bcol%,mask%.....|
00003640  20 73 65 6c 65 63 74 65  64 25 20 8c 0d 16 12 16  | selected% .....|
00003650  20 20 66 63 6f 6c 25 3d  31 32 3a 62 63 6f 6c 25  |  fcol%=12:bcol%|
00003660  3d 37 0d 16 1c 05 cc 0d  16 26 15 20 20 66 63 6f  |=7.......&.  fco|
00003670  6c 25 3d 37 3a 62 63 6f  6c 25 3d 30 0d 16 30 05  |l%=7:bcol%=0..0.|
00003680  cd 0d 16 3a 21 6d 61 73  6b 25 3d 28 66 63 6f 6c  |...:!mask%=(fcol|
00003690  25 3c 3c 32 34 29 2b 28  62 63 6f 6c 25 3c 3c 32  |%<<24)+(bcol%<<2|
000036a0  38 29 0d 16 44 18 21 62  6c 6f 63 6b 25 3d 6d 61  |8)..D.!block%=ma|
000036b0  69 6e 5f 77 69 6e 64 6f  77 25 0d 16 4e 12 62 6c  |in_window%..N.bl|
000036c0  6f 63 6b 25 21 34 3d 69  63 6f 6e 25 0d 16 58 12  |ock%!4=icon%..X.|
000036d0  62 6c 6f 63 6b 25 21 38  3d 6d 61 73 6b 25 0d 16  |block%!8=mask%..|
000036e0  62 15 62 6c 6f 63 6b 25  21 31 32 3d 26 46 46 3c  |b.block%!12=&FF<|
000036f0  3c 32 34 0d 16 6c 22 c8  99 20 22 57 69 6d 70 5f  |<24..l".. "Wimp_|
00003700  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00003710  6c 6f 63 6b 25 0d 16 76  05 e1 0d 16 80 05 3a 0d  |lock%..v......:.|
00003720  16 8a 19 dd 20 f2 63 72  65 61 74 65 5f 6d 65 6e  |.... .create_men|
00003730  75 28 6d 65 6e 75 25 29  0d 16 94 2e ea 20 6e 25  |u(menu%)..... n%|
00003740  2c 74 69 74 6c 65 24 2c  65 6e 74 72 69 65 73 25  |,title$,entries%|
00003750  2c 65 6e 74 72 79 24 2c  73 75 62 25 2c 70 74 72  |,entry$,sub%,ptr|
00003760  25 2c 77 69 64 25 0d 16  9e 21 f4 20 20 20 20 20  |%,wid%...!.     |
00003770  20 20 20 20 20 20 20 20  20 20 20 20 73 65 74 20  |            set |
00003780  75 70 20 6d 65 6e 75 0d  16 a8 15 f3 20 74 69 74  |up menu..... tit|
00003790  6c 65 24 2c 65 6e 74 72  69 65 73 25 0d 16 b2 20  |le$,entries%... |
000037a0  24 6d 65 6e 75 25 3d 74  69 74 6c 65 24 3a f4 20  |$menu%=title$:. |
000037b0  20 20 6d 65 6e 75 20 74  69 74 6c 65 0d 16 bc 37  |  menu title...7|
000037c0  6d 65 6e 75 25 3f 31 32  3d 37 3a f4 20 20 20 20  |menu%?12=7:.    |
000037d0  20 20 74 69 74 6c 65 20  61 6e 64 20 66 72 61 6d  |  title and fram|
000037e0  65 20 66 6f 72 65 67 72  6f 75 6e 64 20 63 6f 6c  |e foreground col|
000037f0  6f 75 72 0d 16 c6 2d 6d  65 6e 75 25 3f 31 33 3d  |our...-menu%?13=|
00003800  32 3a f4 20 20 20 20 20  20 74 69 74 6c 65 20 62  |2:.      title b|
00003810  61 63 6b 67 72 6f 75 6e  64 20 63 6f 6c 6f 75 72  |ackground colour|
00003820  0d 16 d0 31 6d 65 6e 75  25 3f 31 34 3d 37 3a f4  |...1menu%?14=7:.|
00003830  20 20 20 20 20 20 77 6f  72 6b 20 61 72 65 61 20  |      work area |
00003840  66 6f 72 65 67 72 6f 75  6e 64 20 63 6f 6c 6f 75  |foreground colou|
00003850  72 0d 16 da 31 6d 65 6e  75 25 3f 31 35 3d 30 3a  |r...1menu%?15=0:|
00003860  f4 20 20 20 20 20 20 77  6f 72 6b 20 61 72 65 61  |.      work area|
00003870  20 62 61 63 6b 67 72 6f  75 6e 64 20 63 6f 6c 6f  | background colo|
00003880  75 72 0d 16 e4 2a 6d 65  6e 75 25 21 32 30 3d 34  |ur...*menu%!20=4|
00003890  34 3a f4 20 20 20 20 20  68 65 69 67 68 74 20 6f  |4:.     height o|
000038a0  66 20 65 61 63 68 20 65  6e 74 72 79 0d 16 ee 2f  |f each entry.../|
000038b0  6d 65 6e 75 25 21 32 34  3d 30 3a f4 20 20 20 20  |menu%!24=0:.    |
000038c0  20 20 68 65 69 67 68 74  20 62 65 74 77 65 65 6e  |  height between|
000038d0  20 65 61 63 68 20 65 6e  74 72 79 0d 16 f8 12 77  | each entry....w|
000038e0  69 64 25 3d a9 28 74 69  74 6c 65 24 29 0d 17 02  |id%=.(title$)...|
000038f0  13 e3 20 6e 25 3d 31 b8  65 6e 74 72 69 65 73 25  |.. n%=1.entries%|
00003900  0d 17 0c 18 20 20 70 74  72 25 3d 6d 65 6e 75 25  |....  ptr%=menu%|
00003910  2b 34 2b 32 34 2a 6e 25  0d 17 16 13 20 20 f3 20  |+4+24*n%....  . |
00003920  65 6e 74 72 79 24 2c 73  75 62 25 0d 17 20 15 20  |entry$,sub%.. . |
00003930  20 e7 20 6e 25 3d 65 6e  74 72 69 65 73 25 20 8c  | . n%=entries% .|
00003940  0d 17 2a 11 20 20 20 20  21 70 74 72 25 3d 31 32  |..*.    !ptr%=12|
00003950  38 0d 17 34 07 20 20 cc  0d 17 3e 0f 20 20 20 20  |8..4.  ...>.    |
00003960  21 70 74 72 25 3d 30 0d  17 48 07 20 20 cd 0d 17  |!ptr%=0..H.  ...|
00003970  52 11 20 20 70 74 72 25  21 34 3d 73 75 62 25 0d  |R.  ptr%!4=sub%.|
00003980  17 5c 15 20 20 70 74 72  25 21 38 3d 26 37 30 30  |.\.  ptr%!8=&700|
00003990  30 30 32 31 0d 17 66 17  20 20 24 28 70 74 72 25  |0021..f.  $(ptr%|
000039a0  2b 31 32 29 3d 65 6e 74  72 79 24 0d 17 70 27 20  |+12)=entry$..p' |
000039b0  20 e7 20 a9 28 65 6e 74  72 79 24 29 3e 77 69 64  | . .(entry$)>wid|
000039c0  25 20 8c 20 77 69 64 25  3d a9 28 65 6e 74 72 79  |% . wid%=.(entry|
000039d0  24 29 0d 17 7a 05 ed 0d  17 84 28 6d 65 6e 75 25  |$)..z.....(menu%|
000039e0  21 31 36 3d 77 69 64 25  2a 31 36 2b 31 36 3a f4  |!16=wid%*16+16:.|
000039f0  20 20 20 20 20 6d 65 6e  75 20 77 69 64 74 68 0d  |     menu width.|
00003a00  17 8e 05 e1 0d 17 98 05  3a 0d 17 a2 13 dd 20 f2  |........:..... .|
00003a10  73 65 74 5f 75 70 5f 6d  65 6e 75 73 0d 17 ac 08  |set_up_menus....|
00003a20  f7 20 2b 30 0d 17 b6 4d  dc 20 22 4d 61 6b 65 20  |. +0...M. "Make |
00003a30  44 72 61 77 22 2c 34 2c  77 69 74 68 20 73 65 65  |Draw",4,with see|
00003a40  64 69 6e 67 73 2c 2d 31  2c 77 69 74 68 6f 75 74  |dings,-1,without|
00003a50  2c 2d 31 2c 64 6f 75 62  6c 65 73 2c 2d 31 2c 74  |,-1,doubles,-1,t|
00003a60  65 61 6d 73 2c 74 65 61  6d 5f 77 69 6e 64 6f 77  |eams,team_window|
00003a70  25 0d 17 c0 1c f2 63 72  65 61 74 65 5f 6d 65 6e  |%.....create_men|
00003a80  75 28 6d 61 6b 65 5f 6d  65 6e 75 25 29 0d 17 ca  |u(make_menu%)...|
00003a90  41 dc 20 22 44 72 61 77  22 2c 34 2c 6d 61 6b 65  |A. "Draw",4,make|
00003aa0  2c 6d 61 6b 65 5f 6d 65  6e 75 25 2c 73 68 6f 77  |,make_menu%,show|
00003ab0  2c 2d 31 2c 63 6c 65 61  72 2c 2d 31 2c 70 72 69  |,-1,clear,-1,pri|
00003ac0  6e 74 2c 70 72 69 6e 74  5f 6d 65 6e 75 25 0d 17  |nt,print_menu%..|
00003ad0  d4 1c f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 64  |...create_menu(d|
00003ae0  72 61 77 5f 6d 65 6e 75  25 29 0d 17 de 48 dc 20  |raw_menu%)...H. |
00003af0  22 53 65 65 64 22 2c 31  36 2c 31 2c 2d 31 2c 32  |"Seed",16,1,-1,2|
00003b00  2c 2d 31 2c 33 2c 2d 31  2c 34 2c 2d 31 2c 35 2c  |,-1,3,-1,4,-1,5,|
00003b10  2d 31 2c 36 2c 2d 31 2c  37 2c 2d 31 2c 38 2c 2d  |-1,6,-1,7,-1,8,-|
00003b20  31 2c 39 2c 2d 31 2c 31  30 2c 2d 31 2c 31 31 2c  |1,9,-1,10,-1,11,|
00003b30  2d 31 0d 17 e8 23 dc 20  31 32 2c 2d 31 2c 31 33  |-1...#. 12,-1,13|
00003b40  2c 2d 31 2c 31 34 2c 2d  31 2c 31 35 2c 2d 31 2c  |,-1,14,-1,15,-1,|
00003b50  31 36 2c 2d 31 0d 17 f2  1c f2 63 72 65 61 74 65  |16,-1.....create|
00003b60  5f 6d 65 6e 75 28 73 65  65 64 5f 6d 65 6e 75 25  |_menu(seed_menu%|
00003b70  29 0d 17 fc 3e dc 20 22  53 65 6c 65 63 74 22 2c  |)...>. "Select",|
00003b80  34 2c 64 65 6c 65 74 65  2c 2d 31 2c 73 65 65 64  |4,delete,-1,seed|
00003b90  2c 73 65 65 64 5f 6d 65  6e 75 25 2c 75 6e 2d 73  |,seed_menu%,un-s|
00003ba0  65 65 64 2c 2d 31 2c 63  6c 65 61 72 2c 2d 31 0d  |eed,-1,clear,-1.|
00003bb0  18 06 1e f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |....create_menu(|
00003bc0  73 65 6c 65 63 74 5f 6d  65 6e 75 25 29 0d 18 10  |select_menu%)...|
00003bd0  33 dc 20 22 53 61 76 65  22 2c 32 2c 66 69 6c 65  |3. "Save",2,file|
00003be0  2c 73 61 76 65 5f 77 69  6e 64 6f 77 25 2c 64 72  |,save_window%,dr|
00003bf0  61 77 2c 73 61 76 65 5f  77 69 6e 64 6f 77 32 25  |aw,save_window2%|
00003c00  0d 18 1a 1c f2 63 72 65  61 74 65 5f 6d 65 6e 75  |.....create_menu|
00003c10  28 73 61 76 65 5f 6d 65  6e 75 25 29 0d 18 24 86  |(save_menu%)..$.|
00003c20  dc 22 4d 61 69 6e 20 4d  65 6e 75 22 2c 36 2c 64  |."Main Menu",6,d|
00003c30  72 61 77 2c 64 72 61 77  5f 6d 65 6e 75 25 2c 73  |raw,draw_menu%,s|
00003c40  65 6c 65 63 74 69 6f 6e  2c 73 65 6c 65 63 74 5f  |election,select_|
00003c50  6d 65 6e 75 25 2c 73 61  76 65 2c 73 61 76 65 5f  |menu%,save,save_|
00003c60  6d 65 6e 75 25 2c 6e 65  77 20 6e 61 6d 65 2c 6e  |menu%,new name,n|
00003c70  65 77 6e 61 6d 65 5f 77  69 6e 64 6f 77 25 2c 66  |ewname_window%,f|
00003c80  69 6c 65 20 69 6e 66 6f  2c 66 69 6c 65 69 6e 66  |ile info,fileinf|
00003c90  6f 5f 77 69 6e 64 6f 77  25 2c 63 6c 65 61 72 2c  |o_window%,clear,|
00003ca0  2d 31 0d 18 2e 1c f2 63  72 65 61 74 65 5f 6d 65  |-1.....create_me|
00003cb0  6e 75 28 6d 61 69 6e 5f  6d 65 6e 75 25 29 0d 18  |nu(main_menu%)..|
00003cc0  38 2b dc 22 43 6f 6d 70  44 72 61 77 22 2c 32 2c  |8+."CompDraw",2,|
00003cd0  49 6e 66 6f 2c 69 6e 66  6f 5f 77 69 6e 64 6f 77  |Info,info_window|
00003ce0  25 2c 51 75 69 74 2c 2d  31 0d 18 42 1c f2 63 72  |%,Quit,-1..B..cr|
00003cf0  65 61 74 65 5f 6d 65 6e  75 28 69 63 6f 6e 5f 6d  |eate_menu(icon_m|
00003d00  65 6e 75 25 29 0d 18 4c  4c dc 22 50 72 69 6e 74  |enu%)..LL."Print|
00003d10  22 2c 35 2c 57 68 6f 6c  65 20 64 72 61 77 2c 2d  |",5,Whole draw,-|
00003d20  31 2c 31 73 74 20 70 61  72 74 2c 2d 31 2c 32 6e  |1,1st part,-1,2n|
00003d30  64 20 70 61 72 74 2c 2d  31 2c 33 72 64 20 70 61  |d part,-1,3rd pa|
00003d40  72 74 2c 2d 31 2c 34 74  68 20 70 61 72 74 2c 2d  |rt,-1,4th part,-|
00003d50  31 0d 18 56 1d f2 63 72  65 61 74 65 5f 6d 65 6e  |1..V..create_men|
00003d60  75 28 70 72 69 6e 74 5f  6d 65 6e 75 25 29 0d 18  |u(print_menu%)..|
00003d70  60 05 e1 0d 18 6a 05 3a  0d 18 74 34 dd 20 f2 6d  |`....j.:..t4. .m|
00003d80  65 6e 75 5f 6f 70 74 69  6f 6e 5f 61 72 72 6f 77  |enu_option_arrow|
00003d90  28 6d 65 6e 75 25 2c 6f  70 74 25 2c 63 6f 6e 64  |(menu%,opt%,cond|
00003da0  69 74 69 6f 6e 25 2c 73  75 62 25 29 0d 18 7e 0c  |ition%,sub%)..~.|
00003db0  ea 20 70 6f 69 6e 74 25  0d 18 88 1b 70 6f 69 6e  |. point%....poin|
00003dc0  74 25 3d 6d 65 6e 75 25  2b 33 32 2b 32 34 2a 6f  |t%=menu%+32+24*o|
00003dd0  70 74 25 0d 18 92 12 e7  20 63 6f 6e 64 69 74 69  |pt%..... conditi|
00003de0  6f 6e 25 20 8c 0d 18 9c  12 20 20 21 70 6f 69 6e  |on% .....  !poin|
00003df0  74 25 3d 73 75 62 25 0d  18 a6 05 cc 0d 18 b0 10  |t%=sub%.........|
00003e00  20 20 21 70 6f 69 6e 74  25 3d 2d 31 0d 18 ba 05  |  !point%=-1....|
00003e10  cd 0d 18 c4 05 e1 0d 18  ce 05 3a 0d 18 d8 2e dd  |..........:.....|
00003e20  20 f2 6d 65 6e 75 5f 6f  70 74 69 6f 6e 5f 64 61  | .menu_option_da|
00003e30  72 6b 28 6d 65 6e 75 25  2c 6f 70 74 25 2c 63 6f  |rk(menu%,opt%,co|
00003e40  6e 64 69 74 69 6f 6e 25  29 0d 18 e2 0c ea 20 70  |ndition%)..... p|
00003e50  6f 69 6e 74 25 0d 18 ec  1b 70 6f 69 6e 74 25 3d  |oint%....point%=|
00003e60  6d 65 6e 75 25 2b 33 36  2b 32 34 2a 6f 70 74 25  |menu%+36+24*opt%|
00003e70  0d 18 f6 12 e7 20 63 6f  6e 64 69 74 69 6f 6e 25  |..... condition%|
00003e80  20 8c 0d 19 00 21 20 20  21 70 6f 69 6e 74 25 3d  | ....!  !point%=|
00003e90  28 21 70 6f 69 6e 74 25  20 84 20 26 34 30 30 30  |(!point% . &4000|
00003ea0  30 30 29 0d 19 0a 05 cc  0d 19 14 23 20 20 21 70  |00)........#  !p|
00003eb0  6f 69 6e 74 25 3d 28 21  70 6f 69 6e 74 25 20 80  |oint%=(!point% .|
00003ec0  20 26 46 46 42 46 46 46  46 46 29 0d 19 1e 05 cd  | &FFBFFFFF).....|
00003ed0  0d 19 28 05 e1 0d 19 32  05 3a 0d 19 3c 14 dd 20  |..(....2.:..<.. |
00003ee0  f2 73 65 74 5f 64 72 61  77 5f 6d 65 6e 75 0d 19  |.set_draw_menu..|
00003ef0  46 2e f2 6d 65 6e 75 5f  6f 70 74 69 6f 6e 5f 64  |F..menu_option_d|
00003f00  61 72 6b 28 64 72 61 77  5f 6d 65 6e 75 25 2c 30  |ark(draw_menu%,0|
00003f10  2c 64 72 61 77 5f 6d 61  64 65 25 29 0d 19 50 2f  |,draw_made%)..P/|
00003f20  f2 6d 65 6e 75 5f 6f 70  74 69 6f 6e 5f 64 61 72  |.menu_option_dar|
00003f30  6b 28 64 72 61 77 5f 6d  65 6e 75 25 2c 31 2c ac  |k(draw_menu%,1,.|
00003f40  64 72 61 77 5f 6d 61 64  65 25 29 0d 19 5a 2f f2  |draw_made%)..Z/.|
00003f50  6d 65 6e 75 5f 6f 70 74  69 6f 6e 5f 64 61 72 6b  |menu_option_dark|
00003f60  28 64 72 61 77 5f 6d 65  6e 75 25 2c 32 2c ac 64  |(draw_menu%,2,.d|
00003f70  72 61 77 5f 6d 61 64 65  25 29 0d 19 64 2f f2 6d  |raw_made%)..d/.m|
00003f80  65 6e 75 5f 6f 70 74 69  6f 6e 5f 64 61 72 6b 28  |enu_option_dark(|
00003f90  64 72 61 77 5f 6d 65 6e  75 25 2c 33 2c ac 64 72  |draw_menu%,3,.dr|
00003fa0  61 77 5f 6d 61 64 65 25  29 0d 19 6e 05 e1 0d 19  |aw_made%)..n....|
00003fb0  78 05 3a 0d 19 82 10 dd  20 f2 6d 61 69 6e 5f 6d  |x.:..... .main_m|
00003fc0  65 6e 75 0d 19 8c 30 f2  6d 65 6e 75 5f 6f 70 74  |enu...0.menu_opt|
00003fd0  69 6f 6e 5f 64 61 72 6b  28 70 72 69 6e 74 5f 6d  |ion_dark(print_m|
00003fe0  65 6e 75 25 2c 31 2c 71  75 61 72 74 65 72 73 25  |enu%,1,quarters%|
00003ff0  3c 32 29 0d 19 96 30 f2  6d 65 6e 75 5f 6f 70 74  |<2)...0.menu_opt|
00004000  69 6f 6e 5f 64 61 72 6b  28 70 72 69 6e 74 5f 6d  |ion_dark(print_m|
00004010  65 6e 75 25 2c 32 2c 71  75 61 72 74 65 72 73 25  |enu%,2,quarters%|
00004020  3c 32 29 0d 19 a0 30 f2  6d 65 6e 75 5f 6f 70 74  |<2)...0.menu_opt|
00004030  69 6f 6e 5f 64 61 72 6b  28 70 72 69 6e 74 5f 6d  |ion_dark(print_m|
00004040  65 6e 75 25 2c 33 2c 71  75 61 72 74 65 72 73 25  |enu%,3,quarters%|
00004050  3c 34 29 0d 19 aa 30 f2  6d 65 6e 75 5f 6f 70 74  |<4)...0.menu_opt|
00004060  69 6f 6e 5f 64 61 72 6b  28 70 72 69 6e 74 5f 6d  |ion_dark(print_m|
00004070  65 6e 75 25 2c 34 2c 71  75 61 72 74 65 72 73 25  |enu%,4,quarters%|
00004080  3c 34 29 0d 19 b4 39 f2  6d 65 6e 75 5f 6f 70 74  |<4)...9.menu_opt|
00004090  69 6f 6e 5f 64 61 72 6b  28 6d 61 69 6e 5f 6d 65  |ion_dark(main_me|
000040a0  6e 75 25 2c 30 2c 74 6f  74 6e 61 6d 65 73 25 2b  |nu%,0,totnames%+|
000040b0  74 6f 74 73 65 65 64 73  25 3c 33 29 0d 19 be 3f  |totseeds%<3)...?|
000040c0  f2 6d 65 6e 75 5f 6f 70  74 69 6f 6e 5f 64 61 72  |.menu_option_dar|
000040d0  6b 28 6d 61 69 6e 5f 6d  65 6e 75 25 2c 31 2c 6e  |k(main_menu%,1,n|
000040e0  61 6d 65 73 5f 73 65 6c  25 3d 30 20 80 20 73 65  |ames_sel%=0 . se|
000040f0  65 64 73 5f 73 65 6c 25  3d 30 29 0d 19 c8 32 f2  |eds_sel%=0)...2.|
00004100  6d 65 6e 75 5f 6f 70 74  69 6f 6e 5f 64 61 72 6b  |menu_option_dark|
00004110  28 73 65 6c 65 63 74 5f  6d 65 6e 75 25 2c 30 2c  |(select_menu%,0,|
00004120  6e 61 6d 65 73 5f 73 65  6c 25 3d 30 29 0d 19 d2  |names_sel%=0)...|
00004130  42 f2 6d 65 6e 75 5f 6f  70 74 69 6f 6e 5f 64 61  |B.menu_option_da|
00004140  72 6b 28 73 65 6c 65 63  74 5f 6d 65 6e 75 25 2c  |rk(select_menu%,|
00004150  31 2c 6e 61 6d 65 73 5f  73 65 6c 25 3c 3e 31 20  |1,names_sel%<>1 |
00004160  84 20 74 6f 74 73 65 65  64 73 25 3d 31 36 29 0d  |. totseeds%=16).|
00004170  19 dc 32 f2 6d 65 6e 75  5f 6f 70 74 69 6f 6e 5f  |..2.menu_option_|
00004180  64 61 72 6b 28 73 65 6c  65 63 74 5f 6d 65 6e 75  |dark(select_menu|
00004190  25 2c 32 2c 73 65 65 64  73 5f 73 65 6c 25 3d 30  |%,2,seeds_sel%=0|
000041a0  29 0d 19 e6 39 f2 6d 65  6e 75 5f 6f 70 74 69 6f  |)...9.menu_optio|
000041b0  6e 5f 64 61 72 6b 28 6d  61 69 6e 5f 6d 65 6e 75  |n_dark(main_menu|
000041c0  25 2c 32 2c 74 6f 74 6e  61 6d 65 73 25 2b 74 6f  |%,2,totnames%+to|
000041d0  74 73 65 65 64 73 25 3d  30 29 0d 19 f0 3b f2 6d  |tseeds%=0)...;.m|
000041e0  65 6e 75 5f 6f 70 74 69  6f 6e 5f 64 61 72 6b 28  |enu_option_dark(|
000041f0  6d 61 69 6e 5f 6d 65 6e  75 25 2c 33 2c 74 6f 74  |main_menu%,3,tot|
00004200  6e 61 6d 65 73 25 2b 74  6f 74 73 65 65 64 73 25  |names%+totseeds%|
00004210  3d 31 32 38 29 0d 19 fa  39 f2 6d 65 6e 75 5f 6f  |=128)...9.menu_o|
00004220  70 74 69 6f 6e 5f 64 61  72 6b 28 6d 61 69 6e 5f  |ption_dark(main_|
00004230  6d 65 6e 75 25 2c 35 2c  74 6f 74 6e 61 6d 65 73  |menu%,5,totnames|
00004240  25 2b 74 6f 74 73 65 65  64 73 25 3d 30 29 0d 1a  |%+totseeds%=0)..|
00004250  04 2f f2 6d 65 6e 75 5f  6f 70 74 69 6f 6e 5f 64  |./.menu_option_d|
00004260  61 72 6b 28 73 61 76 65  5f 6d 65 6e 75 25 2c 31  |ark(save_menu%,1|
00004270  2c ac 64 72 61 77 5f 6d  61 64 65 25 29 0d 1a 0e  |,.draw_made%)...|
00004280  12 f2 73 65 74 5f 64 72  61 77 5f 6d 65 6e 75 0d  |..set_draw_menu.|
00004290  1a 18 2f f2 6d 65 6e 75  5f 6f 70 74 69 6f 6e 5f  |../.menu_option_|
000042a0  64 61 72 6b 28 6d 61 6b  65 5f 6d 65 6e 75 25 2c  |dark(make_menu%,|
000042b0  30 2c 74 6f 74 73 65 65  64 73 25 3d 30 29 0d 1a  |0,totseeds%=0)..|
000042c0  22 39 f2 6d 65 6e 75 5f  6f 70 74 69 6f 6e 5f 64  |"9.menu_option_d|
000042d0  61 72 6b 28 6d 61 6b 65  5f 6d 65 6e 75 25 2c 31  |ark(make_menu%,1|
000042e0  2c 74 6f 74 73 65 65 64  73 25 2b 74 6f 74 6e 61  |,totseeds%+totna|
000042f0  6d 65 73 25 3c 33 29 0d  1a 2c 39 f2 6d 65 6e 75  |mes%<3)..,9.menu|
00004300  5f 6f 70 74 69 6f 6e 5f  64 61 72 6b 28 6d 61 6b  |_option_dark(mak|
00004310  65 5f 6d 65 6e 75 25 2c  32 2c 74 6f 74 73 65 65  |e_menu%,2,totsee|
00004320  64 73 25 2b 74 6f 74 6e  61 6d 65 73 25 3c 33 29  |ds%+totnames%<3)|
00004330  0d 1a 36 0d e3 20 6e 25  3d 31 b8 31 36 0d 1a 40  |..6.. n%=1.16..@|
00004340  3a 20 20 f2 6d 65 6e 75  5f 6f 70 74 69 6f 6e 5f  |:  .menu_option_|
00004350  64 61 72 6b 28 73 65 65  64 5f 6d 65 6e 75 25 2c  |dark(seed_menu%,|
00004360  6e 25 2d 31 2c 73 65 65  64 5f 65 78 69 73 74 73  |n%-1,seed_exists|
00004370  25 3f 6e 25 3d 31 29 0d  1a 4a 05 ed 0d 1a 54 16  |%?n%=1)..J....T.|
00004380  24 69 6e 66 6f 31 25 3d  c3 74 6f 74 6e 61 6d 65  |$info1%=.totname|
00004390  73 25 0d 1a 5e 16 24 69  6e 66 6f 32 25 3d c3 74  |s%..^.$info2%=.t|
000043a0  6f 74 73 65 65 64 73 25  0d 1a 68 22 e7 20 71 75  |otseeds%..h". qu|
000043b0  61 72 74 65 72 73 25 3d  31 20 84 20 70 65 72 5f  |arters%=1 . per_|
000043c0  74 65 61 6d 25 3c 3e 30  20 8c 0d 1a 72 19 20 20  |team%<>0 ...r.  |
000043d0  24 73 62 73 70 72 32 25  3d 22 66 69 6c 65 5f 61  |$sbspr2%="file_a|
000043e0  66 66 22 0d 1a 7c 05 cc  0d 1a 86 1a 20 20 24 73  |ff"..|......  $s|
000043f0  62 73 70 72 32 25 3d 22  64 69 72 65 63 74 6f 72  |bspr2%="director|
00004400  79 22 0d 1a 90 05 cd 0d  1a 9a 2f e7 20 64 72 61  |y"......../. dra|
00004410  77 5f 6d 61 64 65 25 20  8c 20 24 69 6e 66 6f 33  |w_made% . $info3|
00004420  25 3d 22 59 45 53 22 20  8b 20 24 69 6e 66 6f 33  |%="YES" . $info3|
00004430  25 3d 22 4e 4f 22 0d 1a  a4 3c f2 6d 65 6e 75 5f  |%="NO"...<.menu_|
00004440  6f 70 74 69 6f 6e 5f 61  72 72 6f 77 28 64 72 61  |option_arrow(dra|
00004450  77 5f 6d 65 6e 75 25 2c  33 2c 70 65 72 5f 74 65  |w_menu%,3,per_te|
00004460  61 6d 25 3d 30 2c 70 72  69 6e 74 5f 6d 65 6e 75  |am%=0,print_menu|
00004470  25 29 0d 1a ae 2c f2 73  68 6f 77 6d 65 6e 75 28  |%)...,.showmenu(|
00004480  6d 61 69 6e 5f 6d 65 6e  75 25 2c 78 70 6f 69 6e  |main_menu%,xpoin|
00004490  74 25 2d 39 36 2c 79 70  6f 69 6e 74 25 29 0d 1a  |t%-96,ypoint%)..|
000044a0  b8 05 e1 0d 1a c2 05 3a  0d 1a cc 16 dd 20 f2 6d  |.......:..... .m|
000044b0  61 69 6e 6d 65 6e 75 5f  6f 70 74 69 6f 6e 0d 1a  |ainmenu_option..|
000044c0  d6 14 c8 8e 20 6d 61 69  6e 6f 70 74 69 6f 6e 25  |.... mainoption%|
000044d0  20 ca 0d 1a e0 2e 20 20  c9 20 30 3a f2 64 72 61  | .....  . 0:.dra|
000044e0  77 5f 6f 70 74 69 6f 6e  20 20 20 20 20 20 20 20  |w_option        |
000044f0  20 20 20 3a f4 20 20 64  72 61 77 20 6d 65 6e 75  |   :.  draw menu|
00004500  0d 1a ea 30 20 20 c9 20  31 3a f2 73 65 6c 65 63  |...0  . 1:.selec|
00004510  74 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |t               |
00004520  20 3a f4 20 20 73 65 6c  65 63 74 20 6d 65 6e 75  | :.  select menu|
00004530  0d 1a f4 2c 20 20 c9 20  32 20 20 20 20 20 20 20  |...,  . 2       |
00004540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004550  20 20 20 20 3a f4 20 20  73 61 76 65 0d 1a fe 2f  |    :.  save.../|
00004560  20 20 c9 20 33 20 20 20  20 20 20 20 20 20 20 20  |  . 3           |
00004570  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004580  3a f4 20 20 6e 65 77 6e  61 6d 65 0d 1b 08 31 20  |:.  newname...1 |
00004590  20 c9 20 34 20 20 20 20  20 20 20 20 20 20 20 20  | . 4            |
000045a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
000045b0  f4 20 20 66 69 6c 65 20  69 6e 66 6f 0d 1b 12 36  |.  file info...6|
000045c0  20 20 c9 20 35 3a f2 63  6c 65 61 72 5f 61 6c 6c  |  . 5:.clear_all|
000045d0  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
000045e0  20 63 6c 65 61 72 20 6c  6f 61 64 65 64 20 66 69  | clear loaded fi|
000045f0  6c 65 0d 1b 1c 32 20 20  c9 20 36 3a 71 75 69 74  |le...2  . 6:quit|
00004600  25 3d b9 20 20 20 20 20  20 20 20 20 20 20 20 20  |%=.             |
00004610  20 20 20 3a f4 20 20 71  75 69 74 20 43 6f 6d 70  |   :.  quit Comp|
00004620  44 72 61 77 0d 1b 26 05  cb 0d 1b 30 11 e7 20 62  |Draw..&....0.. b|
00004630  75 74 74 6f 6e 25 3d 31  20 8c 0d 1b 3a 10 20 20  |utton%=1 ...:.  |
00004640  f2 6d 61 69 6e 5f 6d 65  6e 75 0d 1b 44 1f 20 20  |.main_menu..D.  |
00004650  f2 73 68 6f 77 6d 65 6e  75 28 6d 61 69 6e 5f 6d  |.showmenu(main_m|
00004660  65 6e 75 25 2c 30 2c 30  29 0d 1b 4e 05 cd 0d 1b  |enu%,0,0)..N....|
00004670  58 05 e1 0d 1b 62 05 3a  0d 1b 6c 10 dd 20 f2 63  |X....b.:..l.. .c|
00004680  6c 65 61 72 5f 61 6c 6c  0d 1b 76 08 ea 20 6e 25  |lear_all..v.. n%|
00004690  0d 1b 80 14 e3 20 6e 25  3d 31 b8 74 6f 74 6e 61  |..... n%=1.totna|
000046a0  6d 65 73 25 0d 1b 8a 13  20 20 6e 61 6d 65 73 24  |mes%....  names$|
000046b0  28 6e 25 29 3d 22 22 0d  1b 94 14 20 20 73 65 6c  |(n%)=""....  sel|
000046c0  65 63 74 65 64 25 3f 6e  25 3d 30 0d 1b 9e 05 ed  |ected%?n%=0.....|
000046d0  0d 1b a8 0d e3 20 6e 25  3d 31 b8 31 36 0d 1b b2  |..... n%=1.16...|
000046e0  1c 20 20 24 28 73 65 65  64 73 25 2b 28 6e 25 2d  |.  $(seeds%+(n%-|
000046f0  31 29 2a 31 39 29 3d 22  22 0d 1b bc 17 20 20 73  |1)*19)=""....  s|
00004700  65 65 64 5f 65 78 69 73  74 73 25 3f 6e 25 3d 30  |eed_exists%?n%=0|
00004710  0d 1b c6 15 20 20 73 65  6c 5f 73 65 65 64 73 25  |....  sel_seeds%|
00004720  3f 6e 25 3d 30 0d 1b d0  05 ed 0d 1b da 0f 74 6f  |?n%=0.........to|
00004730  74 6e 61 6d 65 73 25 3d  30 0d 1b e4 0f 74 6f 74  |tnames%=0....tot|
00004740  73 65 65 64 73 25 3d 30  0d 1b ee 10 6e 61 6d 65  |seeds%=0....name|
00004750  73 5f 73 65 6c 25 3d 30  0d 1b f8 10 73 65 65 64  |s_sel%=0....seed|
00004760  73 5f 73 65 6c 25 3d 30  0d 1c 02 0f 70 65 72 5f  |s_sel%=0....per_|
00004770  74 65 61 6d 25 3d 30 0d  1c 0c 0c f2 6e 6f 5f 64  |team%=0.....no_d|
00004780  72 61 77 0d 1c 16 2a 24  74 69 74 6c 65 25 3d 22  |raw...*$title%="|
00004790  43 6f 6d 70 44 72 61 77  20 3a 20 43 6f 6d 70 65  |CompDraw : Compe|
000047a0  74 69 74 69 6f 6e 20 54  69 74 6c 65 22 0d 1c 20  |tition Title".. |
000047b0  15 24 66 69 6c 65 25 3d  22 43 6f 6d 70 44 72 61  |.$file%="CompDra|
000047c0  77 22 0d 1c 2a 17 24 66  69 6c 65 32 25 3d 22 44  |w"..*.$file2%="D|
000047d0  72 61 77 5f 46 69 6c 65  22 0d 1c 34 17 f2 70 75  |raw_File"..4..pu|
000047e0  74 5f 6e 61 6d 65 73 5f  69 6e 5f 69 63 6f 6e 73  |t_names_in_icons|
000047f0  0d 1c 3e 0f f2 73 68 6f  77 5f 73 65 65 64 73 0d  |..>..show_seeds.|
00004800  1c 48 1a f2 63 68 6f 6f  73 65 28 74 69 74 6c 65  |.H..choose(title|
00004810  5f 69 63 6f 6e 25 2c a3  29 0d 1c 52 0e 61 6c 74  |_icon%,.)..R.alt|
00004820  65 72 65 64 25 3d a3 0d  1c 5c 05 e1 0d 1c 66 05  |ered%=...\....f.|
00004830  3a 0d 1c 70 0d dd 20 f2  73 65 6c 65 63 74 0d 1c  |:..p.. .select..|
00004840  7a 11 c8 8e 20 73 75 62  6f 70 74 31 25 20 ca 0d  |z... subopt1% ..|
00004850  1c 84 1b 20 20 c9 20 30  3a f2 64 65 6c 65 74 65  |...  . 0:.delete|
00004860  5f 73 65 6c 65 63 74 69  6f 6e 0d 1c 8e 19 20 20  |_selection....  |
00004870  c9 20 31 3a f2 73 65 65  64 5f 73 65 6c 65 63 74  |. 1:.seed_select|
00004880  69 6f 6e 0d 1c 98 1b 20  20 c9 20 32 3a f2 75 6e  |ion....  . 2:.un|
00004890  73 65 65 64 5f 73 65 6c  65 63 74 69 6f 6e 0d 1c  |seed_selection..|
000048a0  a2 1a 20 20 c9 20 33 3a  f2 63 6c 65 61 72 5f 73  |..  . 3:.clear_s|
000048b0  65 6c 65 63 74 69 6f 6e  0d 1c ac 05 cb 0d 1c b6  |election........|
000048c0  05 e1 0d 1c c0 05 3a 0d  1c ca 19 dd 20 f2 64 65  |......:..... .de|
000048d0  6c 65 74 65 5f 6e 61 6d  65 28 6e 61 6d 65 25 29  |lete_name(name%)|
000048e0  0d 1c d4 08 ea 20 6d 25  0d 1c de 1c e3 20 6d 25  |..... m%..... m%|
000048f0  3d 6e 61 6d 65 25 20 b8  20 74 6f 74 6e 61 6d 65  |=name% . totname|
00004900  73 25 2d 31 0d 1c e8 1d  20 20 6e 61 6d 65 73 24  |s%-1....  names$|
00004910  28 6d 25 29 3d 6e 61 6d  65 73 24 28 6d 25 2b 31  |(m%)=names$(m%+1|
00004920  29 0d 1c f2 05 ed 0d 1c  fc 1f 6e 61 6d 65 73 24  |).........names$|
00004930  28 74 6f 74 6e 61 6d 65  73 25 29 3d 22 64 65 6c  |(totnames%)="del|
00004940  65 74 65 64 22 0d 1d 06  10 74 6f 74 6e 61 6d 65  |eted"....totname|
00004950  73 25 2d 3d 31 0d 1d 10  05 e1 0d 1d 1a 05 3a 0d  |s%-=1.........:.|
00004960  1d 24 15 dd 20 a4 6e 6f  74 5f 63 6c 65 61 72 5f  |.$.. .not_clear_|
00004970  64 72 61 77 0d 1d 2e 18  e7 20 ac 28 64 72 61 77  |draw..... .(draw|
00004980  5f 6d 61 64 65 25 29 20  8c 20 3d a3 0d 1d 38 39  |_made%) . =...89|
00004990  3d ac 28 a4 79 6e 28 22  57 41 52 4e 49 4e 47 20  |=.(.yn("WARNING |
000049a0  3a 20 54 68 69 73 20 77  69 6c 6c 20 63 6c 65 61  |: This will clea|
000049b0  72 20 74 68 65 20 63 75  72 72 65 6e 74 20 64 72  |r the current dr|
000049c0  61 77 22 29 29 0d 1d 42  05 3a 0d 1d 4c 17 dd 20  |aw"))..B.:..L.. |
000049d0  f2 64 65 6c 65 74 65 5f  73 65 6c 65 63 74 69 6f  |.delete_selectio|
000049e0  6e 0d 1d 56 19 e7 20 a4  6e 6f 74 5f 63 6c 65 61  |n..V.. .not_clea|
000049f0  72 5f 64 72 61 77 20 8c  20 e1 0d 1d 60 0b ea 20  |r_draw . ...`.. |
00004a00  6e 61 6d 65 25 0d 1d 6a  13 e7 20 74 6f 74 6e 61  |name%..j.. totna|
00004a10  6d 65 73 25 3d 31 20 8c  0d 1d 74 12 20 20 6e 61  |mes%=1 ...t.  na|
00004a20  6d 65 73 24 28 31 29 3d  22 22 0d 1d 7e 13 20 20  |mes$(1)=""..~.  |
00004a30  73 65 6c 65 63 74 65 64  25 3f 31 3d 30 0d 1d 88  |selected%?1=0...|
00004a40  11 20 20 74 6f 74 6e 61  6d 65 73 25 3d 30 0d 1d  |.  totnames%=0..|
00004a50  92 05 cc 0d 1d 9c 1d 20  20 e3 20 6e 61 6d 65 25  |.......  . name%|
00004a60  3d 74 6f 74 6e 61 6d 65  73 25 b8 31 20 88 2d 31  |=totnames%.1 .-1|
00004a70  0d 1d a6 1d 20 20 20 20  e7 20 73 65 6c 65 63 74  |....    . select|
00004a80  65 64 25 3f 6e 61 6d 65  25 3d 31 20 8c 0d 1d b0  |ed%?name%=1 ....|
00004a90  1d 20 20 20 20 20 20 f2  64 65 6c 65 74 65 5f 6e  |.      .delete_n|
00004aa0  61 6d 65 28 6e 61 6d 65  25 29 0d 1d ba 1b 20 20  |ame(name%)....  |
00004ab0  20 20 20 20 73 65 6c 65  63 74 65 64 25 3f 6e 61  |    selected%?na|
00004ac0  6d 65 25 3d 30 0d 1d c4  09 20 20 20 20 cd 0d 1d  |me%=0....    ...|
00004ad0  ce 07 20 20 ed 0d 1d d8  05 cd 0d 1d e2 10 6e 61  |..  ..........na|
00004ae0  6d 65 73 5f 73 65 6c 25  3d 30 0d 1d ec 17 f2 70  |mes_sel%=0.....p|
00004af0  75 74 5f 6e 61 6d 65 73  5f 69 6e 5f 69 63 6f 6e  |ut_names_in_icon|
00004b00  73 0d 1d f6 0c f2 6e 6f  5f 64 72 61 77 0d 1e 00  |s.....no_draw...|
00004b10  0e 61 6c 74 65 72 65 64  25 3d b9 0d 1e 0a 05 e1  |.altered%=......|
00004b20  0d 1e 14 05 3a 0d 1e 1e  19 dd 20 f2 70 75 74 5f  |....:..... .put_|
00004b30  6e 61 6d 65 73 5f 69 6e  5f 69 63 6f 6e 73 0d 1e  |names_in_icons..|
00004b40  28 1a ea 20 6e 25 2c 69  63 6f 6e 25 2c 6e 65 77  |(.. n%,icon%,new|
00004b50  6d 61 78 69 63 6f 6e 25  0d 1e 32 12 e7 20 6d 61  |maxicon%..2.. ma|
00004b60  78 69 63 6f 6e 25 3e 33  20 8c 0d 1e 3c 16 20 20  |xicon%>3 ...<.  |
00004b70  e3 20 6e 25 3d 34 b8 20  6d 61 78 69 63 6f 6e 25  |. n%=4. maxicon%|
00004b80  0d 1e 46 27 20 20 20 20  e7 20 a4 6e 61 6d 65 66  |..F'    . .namef|
00004b90  72 6f 6d 69 63 6f 6e 28  6e 25 29 3e 74 6f 74 6e  |romicon(n%)>totn|
00004ba0  61 6d 65 73 25 20 8c 0d  1e 50 1c 20 20 20 20 20  |ames% ...P.     |
00004bb0  20 f2 6e 61 6d 65 69 6e  69 63 6f 6e 28 22 22 2c  | .nameinicon("",|
00004bc0  6e 25 29 0d 1e 5a 17 20  20 20 20 20 20 f2 63 68  |n%)..Z.      .ch|
00004bd0  6f 6f 73 65 28 6e 25 2c  a3 29 0d 1e 64 09 20 20  |oose(n%,.)..d.  |
00004be0  20 20 cd 0d 1e 6e 07 20  20 ed 0d 1e 78 05 cd 0d  |  ...n.  ...x...|
00004bf0  1e 82 11 6e 65 77 6d 61  78 69 63 6f 6e 25 3d 33  |...newmaxicon%=3|
00004c00  0d 1e 8c 14 e7 20 74 6f  74 6e 61 6d 65 73 25 3c  |..... totnames%<|
00004c10  3e 30 20 8c 0d 1e 96 16  20 20 e3 20 6e 25 3d 31  |>0 .....  . n%=1|
00004c20  b8 74 6f 74 6e 61 6d 65  73 25 0d 1e a0 29 20 20  |.totnames%...)  |
00004c30  20 20 69 63 6f 6e 25 3d  a4 69 63 6f 6e 66 72 6f  |  icon%=.iconfro|
00004c40  6d 6e 61 6d 65 28 74 6f  74 6e 61 6d 65 73 25 2c  |mname(totnames%,|
00004c50  6e 25 29 0d 1e aa 2f 20  20 20 20 e7 20 69 63 6f  |n%).../    . ico|
00004c60  6e 25 3e 6e 65 77 6d 61  78 69 63 6f 6e 25 20 8c  |n%>newmaxicon% .|
00004c70  20 6e 65 77 6d 61 78 69  63 6f 6e 25 3d 69 63 6f  | newmaxicon%=ico|
00004c80  6e 25 0d 1e b4 25 20 20  20 20 f2 6e 61 6d 65 69  |n%...%    .namei|
00004c90  6e 69 63 6f 6e 28 6e 61  6d 65 73 24 28 6e 25 29  |nicon(names$(n%)|
00004ca0  2c 69 63 6f 6e 25 29 0d  1e be 18 20 20 20 20 f2  |,icon%)....    .|
00004cb0  63 68 6f 6f 73 65 28 69  63 6f 6e 25 2c a3 29 0d  |choose(icon%,.).|
00004cc0  1e c8 07 20 20 ed 0d 1e  d2 05 cd 0d 1e dc 18 6d  |...  ..........m|
00004cd0  61 78 69 63 6f 6e 25 3d  6e 65 77 6d 61 78 69 63  |axicon%=newmaxic|
00004ce0  6f 6e 25 0d 1e e6 05 e1  0d 1e f0 05 3a 0d 1e fa  |on%.........:...|
00004cf0  11 dd 20 f2 6b 65 79 70  72 65 73 73 65 64 0d 1f  |.. .keypressed..|
00004d00  04 3c f4 20 20 20 20 20  20 20 20 20 20 20 20 20  |.<.             |
00004d10  20 20 20 20 20 20 73 65  65 20 57 49 4d 50 20 50  |      see WIMP P|
00004d20  52 4f 47 52 41 4d 4d 49  4e 47 20 46 4f 52 20 41  |ROGRAMMING FOR A|
00004d30  4c 4c 20 70 61 67 65 20  34 38 0d 1f 0e 13 77 69  |LL page 48....wi|
00004d40  6e 64 6f 77 25 3d 21 62  6c 6f 63 6b 25 0d 1f 18  |ndow%=!block%...|
00004d50  12 69 63 6f 6e 25 3d 62  6c 6f 63 6b 25 21 34 0d  |.icon%=block%!4.|
00004d60  1f 22 12 6b 65 79 25 3d  62 6c 6f 63 6b 25 21 32  |.".key%=block%!2|
00004d70  34 0d 1f 2c 25 e7 20 6b  65 79 25 3c 33 32 20 80  |4..,%. key%<32 .|
00004d80  20 6b 65 79 25 3c 3e 31  33 20 84 20 6b 65 79 25  | key%<>13 . key%|
00004d90  3e 26 46 46 20 8c 0d 1f  36 1f 20 20 c8 99 20 22  |>&FF ...6.  .. "|
00004da0  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00004db0  2c 6b 65 79 25 0d 1f 40  07 20 20 e1 0d 1f 4a 05  |,key%..@.  ...J.|
00004dc0  cd 0d 1f 54 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |...T... window% |
00004dd0  ca 0d 1f 5e 20 20 20 c9  20 6d 61 69 6e 5f 77 69  |...^   . main_wi|
00004de0  6e 64 6f 77 25 3a f2 6c  6f 73 65 5f 63 61 72 65  |ndow%:.lose_care|
00004df0  74 0d 1f 68 22 20 20 c9  20 6e 65 77 6e 61 6d 65  |t..h"  . newname|
00004e00  5f 77 69 6e 64 6f 77 25  3a f2 6e 65 77 6e 61 6d  |_window%:.newnam|
00004e10  65 69 6e 0d 1f 72 15 20  20 c9 20 73 61 76 65 5f  |ein..r.  . save_|
00004e20  77 69 6e 64 6f 77 25 3a  0d 1f 7c 20 20 20 20 20  |window%:..|     |
00004e30  f2 71 75 69 63 6b 73 61  76 65 28 73 61 76 65 5f  |.quicksave(save_|
00004e40  77 69 6e 64 6f 77 25 29  0d 1f 86 14 20 20 20 20  |window%)....    |
00004e50  f2 63 6c 6f 73 65 5f 6d  65 6e 75 73 0d 1f 90 16  |.close_menus....|
00004e60  20 20 c9 20 73 61 76 65  5f 77 69 6e 64 6f 77 32  |  . save_window2|
00004e70  25 3a 0d 1f 9a 21 20 20  20 20 f2 71 75 69 63 6b  |%:...!    .quick|
00004e80  73 61 76 65 28 73 61 76  65 5f 77 69 6e 64 6f 77  |save(save_window|
00004e90  32 25 29 0d 1f a4 14 20  20 20 20 f2 63 6c 6f 73  |2%)....    .clos|
00004ea0  65 5f 6d 65 6e 75 73 0d  1f ae 1b 20 20 c9 20 74  |e_menus....  . t|
00004eb0  65 61 6d 5f 77 69 6e 64  6f 77 25 3a f2 74 65 61  |eam_window%:.tea|
00004ec0  6d 73 0d 1f b8 05 cb 0d  1f c2 05 e1 0d 1f cc 05  |ms..............|
00004ed0  3a 0d 1f d6 11 dd 20 f2  6c 6f 73 65 5f 63 61 72  |:..... .lose_car|
00004ee0  65 74 0d 1f e0 21 c8 99  20 22 57 69 6d 70 5f 53  |et...!.. "Wimp_S|
00004ef0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00004f00  2c 2d 31 0d 1f ea 05 e1  0d 1f f4 05 3a 0d 1f fe  |,-1.........:...|
00004f10  10 dd 20 f2 6e 65 77 6e  61 6d 65 69 6e 0d 20 08  |.. .newnamein. .|
00004f20  19 e7 20 a4 6e 6f 74 5f  63 6c 65 61 72 5f 64 72  |.. .not_clear_dr|
00004f30  61 77 20 8c 20 e1 0d 20  12 0b ea 20 6e 61 6d 65  |aw . .. ... name|
00004f40  24 0d 20 1c 14 6e 61 6d  65 24 3d 24 6e 65 77 5f  |$. ..name$=$new_|
00004f50  6e 61 6d 65 25 0d 20 26  11 24 6e 65 77 5f 6e 61  |name%. &.$new_na|
00004f60  6d 65 25 3d 22 22 0d 20  30 12 e7 20 6e 61 6d 65  |me%="". 0.. name|
00004f70  24 3d 22 22 20 8c 20 e1  0d 20 3a 13 f2 6e 61 6d  |$="" . .. :..nam|
00004f80  65 5f 69 6e 28 6e 61 6d  65 24 29 0d 20 44 17 f2  |e_in(name$). D..|
00004f90  70 75 74 5f 6e 61 6d 65  73 5f 69 6e 5f 69 63 6f  |put_names_in_ico|
00004fa0  6e 73 0d 20 4e 0c f2 6e  6f 5f 64 72 61 77 0d 20  |ns. N..no_draw. |
00004fb0  58 0e f2 6d 61 69 6e 5f  6d 65 6e 75 0d 20 62 0e  |X..main_menu. b.|
00004fc0  61 6c 74 65 72 65 64 25  3d b9 0d 20 6c 05 e1 0d  |altered%=.. l...|
00004fd0  20 76 05 3a 0d 20 80 15  dd 20 f2 6e 61 6d 65 5f  | v.:. ... .name_|
00004fe0  69 6e 28 6e 61 6d 65 24  29 0d 20 8a 08 ea 20 6e  |in(name$). ... n|
00004ff0  25 0d 20 94 08 6e 25 3d  30 0d 20 9e 05 f5 0d 20  |%. ..n%=0. .... |
00005000  a8 0b 20 20 6e 25 2b 3d  31 0d 20 b2 25 fd 20 6e  |..  n%+=1. .%. n|
00005010  25 3e 74 6f 74 6e 61 6d  65 73 25 20 84 20 6e 61  |%>totnames% . na|
00005020  6d 65 73 24 28 6e 25 29  3e 6e 61 6d 65 24 0d 20  |mes$(n%)>name$. |
00005030  bc 19 f2 69 6e 73 65 72  74 6e 61 6d 65 28 6e 25  |...insertname(n%|
00005040  2c 6e 61 6d 65 24 29 0d  20 c6 05 e1 0d 20 d0 05  |,name$). .... ..|
00005050  3a 0d 20 da 1b dd 20 f2  69 6e 73 65 72 74 6e 61  |:. ... .insertna|
00005060  6d 65 28 6e 25 2c 6e 61  6d 65 24 29 0d 20 e4 08  |me(n%,name$). ..|
00005070  ea 20 6d 25 0d 20 ee 10  74 6f 74 6e 61 6d 65 73  |. m%. ..totnames|
00005080  25 2b 3d 31 0d 20 f8 14  e7 20 6e 25 3d 74 6f 74  |%+=1. ... n%=tot|
00005090  6e 61 6d 65 73 25 20 8c  0d 21 02 1d 20 20 6e 61  |names% ..!..  na|
000050a0  6d 65 73 24 28 74 6f 74  6e 61 6d 65 73 25 29 3d  |mes$(totnames%)=|
000050b0  6e 61 6d 65 24 0d 21 0c  05 cc 0d 21 16 1f 20 20  |name$.!....!..  |
000050c0  e3 20 6d 25 3d 74 6f 74  6e 61 6d 65 73 25 20 b8  |. m%=totnames% .|
000050d0  20 6e 25 2b 31 20 88 2d  31 0d 21 20 1f 20 20 20  | n%+1 .-1.! .   |
000050e0  20 6e 61 6d 65 73 24 28  6d 25 29 3d 6e 61 6d 65  | names$(m%)=name|
000050f0  73 24 28 6d 25 2d 31 29  0d 21 2a 07 20 20 ed 0d  |s$(m%-1).!*.  ..|
00005100  21 34 16 20 20 6e 61 6d  65 73 24 28 6e 25 29 3d  |!4.  names$(n%)=|
00005110  6e 61 6d 65 24 0d 21 3e  05 cd 0d 21 48 05 e1 0d  |name$.!>...!H...|
00005120  21 52 05 3a 0d 21 5c 15  dd 20 f2 73 65 65 64 5f  |!R.:.!\.. .seed_|
00005130  73 65 6c 65 63 74 69 6f  6e 0d 21 66 14 e7 20 73  |selection.!f.. s|
00005140  75 62 6f 70 74 32 25 3c  30 20 8c 20 e1 0d 21 70  |ubopt2%<0 . ..!p|
00005150  19 e7 20 a4 6e 6f 74 5f  63 6c 65 61 72 5f 64 72  |.. .not_clear_dr|
00005160  61 77 20 8c 20 e1 0d 21  7a 1d ea 20 6e 61 6d 65  |aw . ..!z.. name|
00005170  25 2c 6e 61 6d 65 24 2c  73 65 65 64 25 2c 69 63  |%,name$,seed%,ic|
00005180  6f 6e 25 0d 21 84 0b 6e  61 6d 65 25 3d 30 0d 21  |on%.!..name%=0.!|
00005190  8e 05 f5 0d 21 98 0e 20  20 6e 61 6d 65 25 2b 3d  |....!..  name%+=|
000051a0  31 0d 21 a2 18 fd 20 73  65 6c 65 63 74 65 64 25  |1.!... selected%|
000051b0  3f 6e 61 6d 65 25 3c 3e  30 0d 21 ac 17 6e 61 6d  |?name%<>0.!..nam|
000051c0  65 24 3d 6e 61 6d 65 73  24 28 6e 61 6d 65 25 29  |e$=names$(name%)|
000051d0  0d 21 b6 14 73 65 65 64  25 3d 73 75 62 6f 70 74  |.!..seed%=subopt|
000051e0  32 25 2b 31 0d 21 c0 10  74 6f 74 73 65 65 64 73  |2%+1.!..totseeds|
000051f0  25 2b 3d 31 0d 21 ca 18  73 65 65 64 5f 65 78 69  |%+=1.!..seed_exi|
00005200  73 74 73 25 3f 73 65 65  64 25 3d 31 0d 21 d4 10  |sts%?seed%=1.!..|
00005210  6e 61 6d 65 73 5f 73 65  6c 25 3d 30 0d 21 de 15  |names_sel%=0.!..|
00005220  73 65 6c 65 63 74 65 64  25 3f 6e 61 6d 65 25 3d  |selected%?name%=|
00005230  30 0d 21 e8 1c f2 73 65  65 64 69 6e 69 63 6f 6e  |0.!...seedinicon|
00005240  28 6e 61 6d 65 24 2c 73  65 65 64 25 29 0d 21 f2  |(name$,seed%).!.|
00005250  17 f2 64 65 6c 65 74 65  5f 6e 61 6d 65 28 6e 61  |..delete_name(na|
00005260  6d 65 25 29 0d 21 fc 17  f2 70 75 74 5f 6e 61 6d  |me%).!...put_nam|
00005270  65 73 5f 69 6e 5f 69 63  6f 6e 73 0d 22 06 1e 69  |es_in_icons."..i|
00005280  63 6f 6e 25 3d a4 69 63  6f 6e 66 72 6f 6d 73 65  |con%=.iconfromse|
00005290  65 64 28 73 65 65 64 25  29 0d 22 10 14 f2 63 68  |ed(seed%)."...ch|
000052a0  6f 6f 73 65 28 69 63 6f  6e 25 2c a3 29 0d 22 1a  |oose(icon%,.).".|
000052b0  0c f2 6e 6f 5f 64 72 61  77 0d 22 24 0e 61 6c 74  |..no_draw."$.alt|
000052c0  65 72 65 64 25 3d b9 0d  22 2e 05 e1 0d 22 38 05  |ered%=.."...."8.|
000052d0  3a 0d 22 42 17 dd 20 f2  75 6e 73 65 65 64 5f 73  |:."B.. .unseed_s|
000052e0  65 6c 65 63 74 69 6f 6e  0d 22 4c 19 e7 20 a4 6e  |election."L.. .n|
000052f0  6f 74 5f 63 6c 65 61 72  5f 64 72 61 77 20 8c 20  |ot_clear_draw . |
00005300  e1 0d 22 56 0e ea 20 6e  25 2c 6e 61 6d 65 24 0d  |.."V.. n%,name$.|
00005310  22 60 0d e3 20 6e 25 3d  31 b8 31 36 0d 22 6a 19  |"`.. n%=1.16."j.|
00005320  20 20 e7 20 73 65 6c 5f  73 65 65 64 73 25 3f 6e  |  . sel_seeds%?n|
00005330  25 3d 31 20 8c 0d 22 74  21 20 20 20 20 6e 61 6d  |%=1 .."t!    nam|
00005340  65 24 3d 24 28 73 65 65  64 73 25 2b 31 39 2a 28  |e$=$(seeds%+19*(|
00005350  6e 25 2d 31 29 29 0d 22  7e 17 20 20 20 20 73 65  |n%-1))."~.    se|
00005360  6c 5f 73 65 65 64 73 25  3f 6e 25 3d 30 0d 22 88  |l_seeds%?n%=0.".|
00005370  19 20 20 20 20 73 65 65  64 5f 65 78 69 73 74 73  |.    seed_exists|
00005380  25 3f 6e 25 3d 30 0d 22  92 14 20 20 20 20 74 6f  |%?n%=0."..    to|
00005390  74 73 65 65 64 73 25 2d  3d 31 0d 22 9c 1a 20 20  |tseeds%-=1."..  |
000053a0  20 20 f2 73 65 65 64 69  6e 69 63 6f 6e 28 22 22  |  .seedinicon(""|
000053b0  2c 6e 25 29 0d 22 a6 17  20 20 20 20 f2 6e 61 6d  |,n%)."..    .nam|
000053c0  65 5f 69 6e 28 6e 61 6d  65 24 29 0d 22 b0 24 20  |e_in(name$).".$ |
000053d0  20 20 20 f2 63 68 6f 6f  73 65 28 a4 69 63 6f 6e  |   .choose(.icon|
000053e0  66 72 6f 6d 73 65 65 64  28 6e 25 29 2c a3 29 0d  |fromseed(n%),.).|
000053f0  22 ba 07 20 20 cd 0d 22  c4 05 ed 0d 22 ce 10 73  |"..  .."...."..s|
00005400  65 65 64 73 5f 73 65 6c  25 3d 30 0d 22 d8 17 f2  |eeds_sel%=0."...|
00005410  70 75 74 5f 6e 61 6d 65  73 5f 69 6e 5f 69 63 6f  |put_names_in_ico|
00005420  6e 73 0d 22 e2 0c f2 6e  6f 5f 64 72 61 77 0d 22  |ns."...no_draw."|
00005430  ec 0e 61 6c 74 65 72 65  64 25 3d b9 0d 22 f6 05  |..altered%=.."..|
00005440  e1 0d 23 00 05 3a 0d 23  0a 16 dd 20 f2 63 6c 65  |..#..:.#... .cle|
00005450  61 72 5f 73 65 6c 65 63  74 69 6f 6e 0d 23 14 08  |ar_selection.#..|
00005460  ea 20 6e 25 0d 23 1e 15  e7 20 73 65 65 64 73 5f  |. n%.#... seeds_|
00005470  73 65 6c 25 3c 3e 30 20  8c 0d 23 28 0f 20 20 e3  |sel%<>0 ..#(.  .|
00005480  20 6e 25 3d 31 b8 31 36  0d 23 32 1b 20 20 20 20  | n%=1.16.#2.    |
00005490  e7 20 73 65 6c 5f 73 65  65 64 73 25 3f 6e 25 3d  |. sel_seeds%?n%=|
000054a0  31 20 8c 0d 23 3c 19 20  20 20 20 20 20 73 65 6c  |1 ..#<.      sel|
000054b0  5f 73 65 65 64 73 25 3f  6e 25 3d 30 0d 23 46 26  |_seeds%?n%=0.#F&|
000054c0  20 20 20 20 20 20 f2 63  68 6f 6f 73 65 28 a4 69  |      .choose(.i|
000054d0  63 6f 6e 66 72 6f 6d 73  65 65 64 28 6e 25 29 2c  |confromseed(n%),|
000054e0  a3 29 0d 23 50 09 20 20  20 20 cd 0d 23 5a 07 20  |.).#P.    ..#Z. |
000054f0  20 ed 0d 23 64 12 20 20  73 65 65 64 73 5f 73 65  | ..#d.  seeds_se|
00005500  6c 25 3d 30 0d 23 6e 07  20 20 e1 0d 23 78 05 cd  |l%=0.#n.  ..#x..|
00005510  0d 23 82 14 e3 20 6e 25  3d 31 b8 74 6f 74 6e 61  |.#... n%=1.totna|
00005520  6d 65 73 25 0d 23 8c 18  20 20 e7 20 73 65 6c 65  |mes%.#..  . sele|
00005530  63 74 65 64 25 3f 6e 25  3d 31 20 8c 0d 23 96 16  |cted%?n%=1 ..#..|
00005540  20 20 20 20 73 65 6c 65  63 74 65 64 25 3f 6e 25  |    selected%?n%|
00005550  3d 30 0d 23 a0 2e 20 20  20 20 f2 63 68 6f 6f 73  |=0.#..    .choos|
00005560  65 28 a4 69 63 6f 6e 66  72 6f 6d 6e 61 6d 65 28  |e(.iconfromname(|
00005570  74 6f 74 6e 61 6d 65 73  25 2c 6e 25 29 2c a3 29  |totnames%,n%),.)|
00005580  0d 23 aa 07 20 20 cd 0d  23 b4 05 ed 0d 23 be 10  |.#..  ..#....#..|
00005590  6e 61 6d 65 73 5f 73 65  6c 25 3d 30 0d 23 c8 05  |names_sel%=0.#..|
000055a0  e1 0d 23 d2 05 3a 0d 23  dc 15 dd 20 a4 73 74 72  |..#..:.#... .str|
000055b0  69 6e 67 28 70 6f 69 6e  74 25 29 0d 23 e6 0b ea  |ing(point%).#...|
000055c0  20 61 24 2c 6e 25 0d 23  f0 09 61 24 3d 22 22 0d  | a$,n%.#..a$="".|
000055d0  23 fa 0e 6e 25 3d 3f 70  6f 69 6e 74 25 0d 24 04  |#..n%=?point%.$.|
000055e0  15 c8 95 20 6e 25 3c 3e  31 33 20 80 20 6e 25 3c  |... n%<>13 . n%<|
000055f0  3e 30 0d 24 0e 0f 20 20  61 24 2b 3d bd 28 6e 25  |>0.$..  a$+=.(n%|
00005600  29 0d 24 18 0f 20 20 70  6f 69 6e 74 25 2b 3d 31  |).$..  point%+=1|
00005610  0d 24 22 10 20 20 6e 25  3d 3f 70 6f 69 6e 74 25  |.$".  n%=?point%|
00005620  0d 24 2c 05 ce 0d 24 36  07 3d 61 24 0d 24 40 05  |.$,...$6.=a$.$@.|
00005630  3a 0d 24 4a 14 dd 20 f2  73 65 74 5f 76 61 72 69  |:.$J.. .set_vari|
00005640  61 62 6c 65 73 0d 24 54  0e ea 20 6e 25 2c 69 63  |ables.$T.. n%,ic|
00005650  6f 6e 25 0d 24 5e 16 74  6f 74 6e 61 6d 65 73 25  |on%.$^.totnames%|
00005660  3d 62 61 73 65 25 3f 34  32 0d 24 68 16 74 6f 74  |=base%?42.$h.tot|
00005670  73 65 65 64 73 25 3d 62  61 73 65 25 3f 34 33 0d  |seeds%=base%?43.|
00005680  24 72 1b 64 6f 75 62 6c  65 73 25 3d 28 62 61 73  |$r.doubles%=(bas|
00005690  65 25 3f 32 39 39 39 3d  31 29 0d 24 7c 18 70 65  |e%?2999=1).$|.pe|
000056a0  72 5f 74 65 61 6d 25 3d  62 61 73 65 25 3f 32 39  |r_team%=base%?29|
000056b0  39 38 0d 24 86 15 74 65  61 6d 73 25 3d 62 61 73  |98.$..teams%=bas|
000056c0  65 25 3f 32 39 39 37 0d  24 90 11 f2 73 65 74 5f  |e%?2997.$...set_|
000056d0  71 75 61 72 74 65 72 73  0d 24 9a 14 e3 20 6e 25  |quarters.$... n%|
000056e0  3d 31 b8 74 6f 74 6e 61  6d 65 73 25 0d 24 a4 27  |=1.totnames%.$.'|
000056f0  20 20 69 63 6f 6e 25 3d  a4 69 63 6f 6e 66 72 6f  |  icon%=.iconfro|
00005700  6d 6e 61 6d 65 28 74 6f  74 6e 61 6d 65 73 25 2c  |mname(totnames%,|
00005710  6e 25 29 0d 24 ae 27 20  20 6e 61 6d 65 73 24 28  |n%).$.'  names$(|
00005720  6e 25 29 3d 24 28 6e 61  6d 65 73 25 2b 31 39 2a  |n%)=$(names%+19*|
00005730  28 69 63 6f 6e 25 2d 34  29 29 0d 24 b8 05 ed 0d  |(icon%-4)).$....|
00005740  24 c2 14 e7 20 28 62 61  73 65 25 3f 34 34 3d 31  |$... (base%?44=1|
00005750  29 20 8c 0d 24 cc 15 20  20 f2 73 65 74 5f 64 72  |) ..$..  .set_dr|
00005760  61 77 5f 6e 61 6d 65 73  0d 24 d6 15 20 20 e7 20  |aw_names.$..  . |
00005770  70 65 72 5f 74 65 61 6d  25 3d 30 20 8c 0d 24 e0  |per_team%=0 ..$.|
00005780  12 20 20 20 20 f2 73 68  6f 77 5f 64 72 61 77 0d  |.    .show_draw.|
00005790  24 ea 07 20 20 cc 0d 24  f4 13 20 20 20 20 f2 73  |$..  ..$..    .s|
000057a0  68 6f 77 5f 74 65 61 6d  73 0d 24 fe 07 20 20 cd  |how_teams.$..  .|
000057b0  0d 25 08 05 cc 0d 25 12  0e 20 20 f2 6e 6f 5f 64  |.%....%..  .no_d|
000057c0  72 61 77 0d 25 1c 05 cd  0d 25 26 05 e1 0d 25 30  |raw.%....%&...%0|
000057d0  05 3a 0d 25 3a 0f dd 20  f2 64 61 74 61 6c 6f 61  |.:.%:.. .dataloa|
000057e0  64 0d 25 44 13 ea 20 74  79 70 65 25 2c 61 63 74  |d.%D.. type%,act|
000057f0  69 6f 6e 25 0d 25 4e 13  74 79 70 65 25 3d 62 6c  |ion%.%N.type%=bl|
00005800  6f 63 6b 25 21 34 30 0d  25 58 1c 70 61 74 68 24  |ock%!40.%X.path$|
00005810  3d a4 73 74 72 69 6e 67  28 62 6c 6f 63 6b 25 2b  |=.string(block%+|
00005820  34 34 29 0d 25 62 18 e7  20 74 79 70 65 25 3c 3e  |44).%b.. type%<>|
00005830  66 69 6c 65 74 79 70 65  25 20 8c 0d 25 6c 10 20  |filetype% ..%l. |
00005840  20 c8 8e 20 74 79 70 65  25 20 ca 0d 25 76 33 20  | .. type% ..%v3 |
00005850  20 20 20 c9 20 26 31 30  30 30 3a f2 72 65 70 6f  |   . &1000:.repo|
00005860  72 74 28 22 4f 62 6a 65  63 74 20 69 73 20 61 20  |rt("Object is a |
00005870  64 69 72 65 63 74 6f 72  79 22 2c 31 36 29 0d 25  |directory",16).%|
00005880  80 36 20 20 20 20 c9 20  26 32 30 30 30 3a f2 72  |.6    . &2000:.r|
00005890  65 70 6f 72 74 28 22 4f  62 6a 65 63 74 20 69 73  |eport("Object is|
000058a0  20 61 6e 20 61 70 70 6c  69 63 61 74 69 6f 6e 22  | an application"|
000058b0  2c 31 36 29 0d 25 8a 31  20 20 20 20 7f 3a f2 72  |,16).%.1    .:.r|
000058c0  65 70 6f 72 74 28 22 55  6e 6b 6e 6f 77 6e 20 66  |eport("Unknown f|
000058d0  69 6c 65 74 79 70 65 20  22 2b c3 7e 74 79 70 65  |iletype "+.~type|
000058e0  25 2c 31 36 29 0d 25 94  07 20 20 cb 0d 25 9e 07  |%,16).%..  ..%..|
000058f0  20 20 e1 0d 25 a8 05 cd  0d 25 b2 1d e7 20 74 6f  |  ..%....%... to|
00005900  74 6e 61 6d 65 73 25 2b  74 6f 74 73 65 65 64 73  |tnames%+totseeds|
00005910  25 3d 30 20 8c 0d 25 bc  14 20 20 f2 6c 6f 61 64  |%=0 ..%..  .load|
00005920  69 74 28 70 61 74 68 24  29 0d 25 c6 05 cc 0d 25  |it(path$).%....%|
00005930  d0 0c 20 20 f2 6d 65 72  67 65 0d 25 da 05 cd 0d  |..  .merge.%....|
00005940  25 e4 05 e1 0d 25 ee 05  3a 0d 25 f8 14 dd 20 f2  |%....%..:.%... .|
00005950  6c 6f 61 64 69 74 28 66  69 6c 65 24 29 0d 26 02  |loadit(file$).&.|
00005960  10 24 66 69 6c 65 25 3d  66 69 6c 65 24 0d 26 0c  |.$file%=file$.&.|
00005970  24 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 32  |$.. "OS_File",12|
00005980  2c 66 69 6c 65 25 2c 62  61 73 65 25 2c 30 2c 31  |,file%,base%,0,1|
00005990  33 0d 26 16 0c f2 6e 6f  5f 64 72 61 77 0d 26 20  |3.&...no_draw.& |
000059a0  12 f2 73 65 74 5f 76 61  72 69 61 62 6c 65 73 0d  |..set_variables.|
000059b0  26 2a 17 f2 70 75 74 5f  6e 61 6d 65 73 5f 69 6e  |&*..put_names_in|
000059c0  5f 69 63 6f 6e 73 0d 26  34 1a f2 63 68 6f 6f 73  |_icons.&4..choos|
000059d0  65 28 74 69 74 6c 65 5f  69 63 6f 6e 25 2c a3 29  |e(title_icon%,.)|
000059e0  0d 26 3e 0f f2 73 68 6f  77 5f 73 65 65 64 73 0d  |.&>..show_seeds.|
000059f0  26 48 1e f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |&H..open_window(|
00005a00  6d 61 69 6e 5f 77 69 6e  64 6f 77 25 29 0d 26 52  |main_window%).&R|
00005a10  0e 61 6c 74 65 72 65 64  25 3d a3 0d 26 5c 17 24  |.altered%=..&\.$|
00005a20  66 69 6c 65 32 25 3d 22  44 72 61 77 5f 46 69 6c  |file2%="Draw_Fil|
00005a30  65 22 0d 26 66 05 e1 0d  26 70 05 3a 0d 26 7a 11  |e".&f...&p.:.&z.|
00005a40  dd 20 f2 73 68 6f 77 5f  73 65 65 64 73 0d 26 84  |. .show_seeds.&.|
00005a50  08 ea 20 6e 25 0d 26 8e  0d e3 20 6e 25 3d 31 b8  |.. n%.&... n%=1.|
00005a60  31 36 0d 26 98 22 20 20  f2 63 68 6f 6f 73 65 28  |16.&."  .choose(|
00005a70  a4 69 63 6f 6e 66 72 6f  6d 73 65 65 64 28 6e 25  |.iconfromseed(n%|
00005a80  29 2c a3 29 0d 26 a2 05  ed 0d 26 ac 05 e1 0d 26  |),.).&....&....&|
00005a90  b6 05 3a 0d 26 c0 0c dd  20 f2 6d 65 72 67 65 0d  |..:.&... .merge.|
00005aa0  26 ca 1f f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |&...open_window(|
00005ab0  6d 65 72 67 65 5f 77 69  6e 64 6f 77 25 29 0d 26  |merge_window%).&|
00005ac0  d4 19 c8 97 20 c8 93 20  33 34 30 2c 34 30 30 2c  |.... .. 340,400,|
00005ad0  36 30 30 2c 32 34 30 0d  26 de 05 e1 0d 26 e8 05  |600,240.&....&..|
00005ae0  3a 0d 26 f2 19 dd 20 f2  63 6c 6f 73 65 5f 6d 65  |:.&... .close_me|
00005af0  72 67 65 5f 77 69 6e 64  6f 77 0d 26 fc 19 21 62  |rge_window.&..!b|
00005b00  6c 6f 63 6b 25 3d 6d 65  72 67 65 5f 77 69 6e 64  |lock%=merge_wind|
00005b10  6f 77 25 0d 27 06 21 c8  99 20 22 57 69 6d 70 5f  |ow%.'.!.. "Wimp_|
00005b20  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00005b30  6f 63 6b 25 0d 27 10 0c  2a 50 4f 49 4e 54 45 52  |ock%.'..*POINTER|
00005b40  0d 27 1a 05 e1 0d 27 24  05 3a 0d 27 2e 13 dd 20  |.'....'$.:.'... |
00005b50  f2 6d 65 72 67 65 5f 77  69 6e 64 6f 77 0d 27 38  |.merge_window.'8|
00005b60  0b ea 20 69 63 6f 6e 25  0d 27 42 13 69 63 6f 6e  |.. icon%.'B.icon|
00005b70  25 3d 62 6c 6f 63 6b 25  21 31 36 0d 27 4c 0e c8  |%=block%!16.'L..|
00005b80  8e 20 69 63 6f 6e 25 20  ca 0d 27 56 0d 20 20 c9  |. icon% ..'V.  .|
00005b90  20 6c 6f 61 25 3a 0d 27  60 1b 20 20 20 20 f2 63  | loa%:.'`.    .c|
00005ba0  6c 6f 73 65 5f 6d 65 72  67 65 5f 77 69 6e 64 6f  |lose_merge_windo|
00005bb0  77 0d 27 6a 16 20 20 20  20 f2 6c 6f 61 64 69 74  |w.'j.    .loadit|
00005bc0  28 70 61 74 68 24 29 0d  27 74 0d 20 20 c9 20 6d  |(path$).'t.  . m|
00005bd0  65 72 25 3a 0d 27 7e 1b  20 20 20 20 f2 63 6c 6f  |er%:.'~.    .clo|
00005be0  73 65 5f 6d 65 72 67 65  5f 77 69 6e 64 6f 77 0d  |se_merge_window.|
00005bf0  27 88 11 20 20 20 20 f2  6d 65 72 67 65 5f 69 74  |'..    .merge_it|
00005c00  0d 27 92 0d 20 20 c9 20  63 61 6e 25 3a 0d 27 9c  |.'..  . can%:.'.|
00005c10  1b 20 20 20 20 f2 63 6c  6f 73 65 5f 6d 65 72 67  |.    .close_merg|
00005c20  65 5f 77 69 6e 64 6f 77  0d 27 a6 05 cb 0d 27 b0  |e_window.'....'.|
00005c30  05 e1 0d 27 ba 05 3a 0d  27 c4 19 dd 20 f2 73 6c  |...'..:.'... .sl|
00005c40  6f 61 64 28 66 69 6c 65  24 2c 61 72 65 61 25 29  |oad(file$,area%)|
00005c50  0d 27 ce 48 f4 20 2a 2a  2a 2a 2a 20 6c 6f 61 64  |.'.H. ***** load|
00005c60  73 20 73 70 72 69 74 65  20 66 69 6c 65 20 27 66  |s sprite file 'f|
00005c70  69 6c 65 24 27 20 74 6f  20 61 72 65 61 20 70 6f  |ile$' to area po|
00005c80  69 6e 74 65 64 20 74 6f  20 62 79 20 27 61 72 65  |inted to by 'are|
00005c90  61 27 20 2a 2a 2a 2a 2a  0d 27 d8 10 ea 20 41 24  |a' *****.'... A$|
00005ca0  2c 51 25 2c 6c 65 6e 25  0d 27 e2 0f 51 25 3d 8e  |,Q%,len%.'..Q%=.|
00005cb0  28 66 69 6c 65 24 29 0d  27 ec 0c e7 20 51 25 3d  |(file$).'... Q%=|
00005cc0  30 20 8c 0d 27 f6 0a 20  20 d9 23 51 25 0d 28 00  |0 ..'..  .#Q%.(.|
00005cd0  09 20 20 ef 20 37 0d 28  0a 07 20 20 e1 0d 28 14  |.  . 7.(..  ..(.|
00005ce0  05 cd 0d 28 1e 0f 6c 65  6e 25 3d a2 23 28 51 25  |...(..len%=.#(Q%|
00005cf0  29 0d 28 28 08 d9 23 51  25 0d 28 32 13 61 72 65  |).((..#Q%.(2.are|
00005d00  61 25 21 30 3d 6c 65 6e  25 2b 31 30 0d 28 3c 0e  |a%!0=len%+10.(<.|
00005d10  61 72 65 61 25 21 38 3d  31 36 0d 28 46 3e f4 20  |area%!8=16.(F>. |
00005d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00005d40  20 20 69 6e 69 74 69 61  6c 69 73 65 20 73 70 72  |  initialise spr|
00005d50  69 74 65 20 61 72 65 61  0d 28 50 1f c8 99 20 22  |ite area.(P... "|
00005d60  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00005d70  39 2c 61 72 65 61 25 0d  28 5a 38 f4 20 20 20 20  |9,area%.(Z8.    |
00005d80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005d90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6c  |               l|
00005da0  6f 61 64 20 73 70 72 69  74 65 20 66 69 6c 65 0d  |oad sprite file.|
00005db0  28 64 25 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |(d%.. "OS_Sprite|
00005dc0  4f 70 22 2c 26 31 30 41  2c 61 72 65 61 25 2c 66  |Op",&10A,area%,f|
00005dd0  69 6c 65 24 0d 28 6e 05  e1 0d 28 78 05 3a 0d 28  |ile$.(n...(x.:.(|
00005de0  82 25 dd 20 f2 72 65 61  64 5f 6c 6f 61 64 5f 66  |.%. .read_load_f|
00005df0  69 6c 65 6e 61 6d 65 28  f8 20 70 72 69 6e 74 69  |ilename(. printi|
00005e00  74 25 29 0d 28 8c 08 ea  20 49 25 0d 28 96 1a c8  |t%).(... I%.(...|
00005e10  99 20 22 4f 53 5f 47 65  74 45 6e 76 22 20 b8 20  |. "OS_GetEnv" . |
00005e20  66 69 6c 65 24 0d 28 a0  19 e7 20 a7 66 69 6c 65  |file$.(... .file|
00005e30  24 2c 22 20 2d 71 75 69  74 20 22 29 20 8c 0d 28  |$," -quit ") ..(|
00005e40  aa 15 20 20 49 25 3d a7  66 69 6c 65 24 2c 22 22  |..  I%=.file$,""|
00005e50  22 22 29 0d 28 b4 1a 20  20 49 25 3d a7 66 69 6c  |"").(..  I%=.fil|
00005e60  65 24 2c 22 22 22 22 2c  49 25 2b 31 29 0d 28 be  |e$,"""",I%+1).(.|
00005e70  07 20 20 f5 0d 28 c8 0d  20 20 20 20 49 25 2b 3d  |.  ..(..    I%+=|
00005e80  31 0d 28 d2 19 20 20 fd  20 c1 66 69 6c 65 24 2c  |1.(..  . .file$,|
00005e90  49 25 2c 31 29 3c 3e 22  20 22 0d 28 dc 16 20 20  |I%,1)<>" ".(..  |
00005ea0  66 69 6c 65 24 3d c1 66  69 6c 65 24 2c 49 25 29  |file$=.file$,I%)|
00005eb0  0d 28 e6 23 20 20 70 72  69 6e 74 69 74 25 3d 28  |.(.#  printit%=(|
00005ec0  c0 66 69 6c 65 24 2c 36  29 3d 22 2d 50 72 69 6e  |.file$,6)="-Prin|
00005ed0  74 22 29 0d 28 f0 22 20  20 e7 20 70 72 69 6e 74  |t").(."  . print|
00005ee0  69 74 25 20 8c 20 66 69  6c 65 24 3d c1 66 69 6c  |it% . file$=.fil|
00005ef0  65 24 2c 38 29 0d 28 fa  22 20 20 e7 20 66 69 6c  |e$,8).(."  . fil|
00005f00  65 24 3c 3e 22 22 20 8c  20 f2 6c 6f 61 64 69 74  |e$<>"" . .loadit|
00005f10  28 66 69 6c 65 24 29 0d  29 04 05 cd 0d 29 0e 05  |(file$).)....)..|
00005f20  e1 0d 29 18 05 3a 0d 29  22 1c dd 20 f2 73 61 76  |..)..:.)".. .sav|
00005f30  65 69 74 28 77 69 6e 64  6f 77 25 2c f8 20 6f 6b  |eit(window%,. ok|
00005f40  25 29 0d 29 2c 10 c8 8e  20 77 69 6e 64 6f 77 25  |%).),... window%|
00005f50  20 ca 0d 29 36 27 20 20  c9 20 73 61 76 65 5f 77  | ..)6'  . save_w|
00005f60  69 6e 64 6f 77 25 3a f2  73 61 76 65 5f 69 74 5f  |indow%:.save_it_|
00005f70  66 69 6c 65 28 6f 6b 25  29 0d 29 40 28 20 20 c9  |file(ok%).)@(  .|
00005f80  20 73 61 76 65 5f 77 69  6e 64 6f 77 32 25 3a f2  | save_window2%:.|
00005f90  73 61 76 65 5f 69 74 5f  64 72 61 77 28 6f 6b 25  |save_it_draw(ok%|
00005fa0  29 0d 29 4a 05 cb 0d 29  54 05 e1 0d 29 5e 05 3a  |).)J...)T...)^.:|
00005fb0  0d 29 68 28 dd 20 f2 66  69 6c 65 74 79 70 65 28  |.)h(. .filetype(|
00005fc0  66 69 6c 65 25 2c f8 20  74 79 70 65 25 2c f8 20  |file%,. type%,. |
00005fd0  66 5f 74 79 70 65 25 29  0d 29 72 29 c8 99 20 22  |f_type%).)r).. "|
00005fe0  4f 53 5f 46 69 6c 65 22  2c 35 2c 66 69 6c 65 25  |OS_File",5,file%|
00005ff0  20 b8 20 74 79 70 65 25  2c 2c 66 5f 74 79 70 65  | . type%,,f_type|
00006000  25 0d 29 7c 20 66 5f 74  79 70 65 25 3d 28 66 5f  |%.)| f_type%=(f_|
00006010  74 79 70 65 25 20 3e 3e  20 38 29 80 20 26 46 46  |type% >> 8). &FF|
00006020  46 0d 29 86 05 e1 0d 29  90 05 3a 0d 29 9a 1a dd  |F.)....)..:.)...|
00006030  20 f2 73 61 76 65 5f 69  74 5f 66 69 6c 65 28 f8  | .save_it_file(.|
00006040  20 6f 6b 25 29 0d 29 a4  09 6f 6b 25 3d b9 0d 29  | ok%).)..ok%=..)|
00006050  ae 18 ea 20 66 69 6c 65  24 2c 66 25 2c 74 79 70  |... file$,f%,typ|
00006060  65 25 2c 66 74 25 0d 29  b8 10 66 69 6c 65 24 3d  |e%,ft%.)..file$=|
00006070  24 66 69 6c 65 25 0d 29  c2 1e f2 66 69 6c 65 74  |$file%.)...filet|
00006080  79 70 65 28 66 69 6c 65  25 2c 74 79 70 65 25 2c  |ype(file%,type%,|
00006090  66 74 25 29 0d 29 cc 0f  e7 20 74 79 70 65 25 3d  |ft%).)... type%=|
000060a0  32 20 8c 0d 29 d6 29 20  20 f2 72 65 70 6f 72 74  |2 ..).)  .report|
000060b0  28 22 4f 62 6a 65 63 74  20 69 73 20 61 20 64 69  |("Object is a di|
000060c0  72 65 63 74 6f 72 79 22  2c 31 37 29 0d 29 e0 0b  |rectory",17).)..|
000060d0  20 20 6f 6b 25 3d a3 0d  29 ea 07 20 20 e1 0d 29  |  ok%=..)..  ..)|
000060e0  f4 05 cd 0d 29 fe 20 e7  20 66 74 25 3c 3e 66 69  |....). . ft%<>fi|
000060f0  6c 65 74 79 70 65 25 20  80 20 74 79 70 65 25 3d  |letype% . type%=|
00006100  31 20 8c 0d 2a 08 54 20  20 6f 6b 25 3d a4 79 6e  |1 ..*.T  ok%=.yn|
00006110  28 22 41 6e 20 6f 62 6a  65 63 74 20 6f 66 20 74  |("An object of t|
00006120  68 69 73 20 6e 61 6d 65  20 61 6c 72 65 61 64 79  |his name already|
00006130  20 65 78 69 73 74 73 20  28 74 79 70 65 20 22 2b  | exists (type "+|
00006140  c3 7e 66 74 25 2b 22 29  2e 20 20 43 6f 6e 74 69  |.~ft%+").  Conti|
00006150  6e 75 65 20 3f 22 29 0d  2a 12 12 20 20 e7 20 ac  |nue ?").*..  . .|
00006160  28 6f 6b 25 29 20 8c 20  e1 0d 2a 1c 05 cd 0d 2a  |(ok%) . ..*....*|
00006170  26 16 62 61 73 65 25 3f  34 32 3d 74 6f 74 6e 61  |&.base%?42=totna|
00006180  6d 65 73 25 0d 2a 30 16  62 61 73 65 25 3f 34 33  |mes%.*0.base%?43|
00006190  3d 74 6f 74 73 65 65 64  73 25 0d 2a 3a 18 62 61  |=totseeds%.*:.ba|
000061a0  73 65 25 3f 34 34 3d 2d  64 72 61 77 5f 6d 61 64  |se%?44=-draw_mad|
000061b0  65 25 0d 2a 44 18 62 61  73 65 25 3f 32 39 39 39  |e%.*D.base%?2999|
000061c0  3d 2d 64 6f 75 62 6c 65  73 25 0d 2a 4e 18 62 61  |=-doubles%.*N.ba|
000061d0  73 65 25 3f 32 39 39 38  3d 70 65 72 5f 74 65 61  |se%?2998=per_tea|
000061e0  6d 25 0d 2a 58 15 62 61  73 65 25 3f 32 39 39 37  |m%.*X.base%?2997|
000061f0  3d 74 65 61 6d 73 25 0d  2a 62 35 c8 99 20 22 4f  |=teams%.*b5.. "O|
00006200  53 5f 46 69 6c 65 22 2c  31 30 2c 66 69 6c 65 25  |S_File",10,file%|
00006210  2c 66 69 6c 65 74 79 70  65 25 2c 2c 62 61 73 65  |,filetype%,,base|
00006220  25 2c 62 61 73 65 25 2b  33 30 30 30 0d 2a 6c 10  |%,base%+3000.*l.|
00006230  f2 63 6c 6f 73 65 5f 6d  65 6e 75 73 0d 2a 76 0e  |.close_menus.*v.|
00006240  61 6c 74 65 72 65 64 25  3d a3 0d 2a 80 05 e1 0d  |altered%=..*....|
00006250  2a 8a 05 3a 0d 2a 94 18  dd 20 f2 64 72 61 77 5f  |*..:.*... .draw_|
00006260  74 69 74 6c 65 28 76 25  2c 79 25 29 0d 2a 9e 0c  |title(v%,y%).*..|
00006270  e7 20 76 25 3d 31 20 8c  0d 2a a8 45 20 20 f2 74  |. v%=1 ..*.E  .t|
00006280  65 78 74 28 31 30 30 2a  78 73 63 61 6c 65 25 2c  |ext(100*xscale%,|
00006290  31 39 36 30 2a 79 73 63  61 6c 65 25 2c 24 74 69  |1960*yscale%,$ti|
000062a0  74 6c 65 25 2c 31 35 2c  31 38 2c 32 2c 62 6c 61  |tle%,15,18,2,bla|
000062b0  63 6b 25 2c 77 68 69 74  65 25 2c 31 29 0d 2a b2  |ck%,white%,1).*.|
000062c0  05 cc 0d 2a bc 45 20 20  f2 74 65 78 74 28 37 30  |...*.E  .text(70|
000062d0  2a 78 73 63 61 6c 65 32  25 2c 31 39 36 30 2a 79  |*xscale2%,1960*y|
000062e0  73 63 61 6c 65 25 2c 24  74 69 74 6c 65 25 2c 31  |scale%,$title%,1|
000062f0  35 2c 31 38 2c 32 2c 62  6c 61 63 6b 25 2c 77 68  |5,18,2,black%,wh|
00006300  69 74 65 25 2c 31 29 0d  2a c6 05 cd 0d 2a d0 05  |ite%,1).*....*..|
00006310  e1 0d 2a da 05 3a 0d 2a  e4 1e dd 20 f2 73 75 62  |..*..:.*... .sub|
00006320  5f 74 69 74 6c 65 28 6e  25 2c 71 75 61 72 74 65  |_title(n%,quarte|
00006330  72 73 25 29 0d 2a ee 08  ea 20 41 24 0d 2a f8 13  |rs%).*... A$.*..|
00006340  e7 20 71 75 61 72 74 65  72 73 25 3d 34 20 8c 0d  |. quarters%=4 ..|
00006350  2b 02 0d 20 20 c8 8e 20  6e 25 20 ca 0d 2b 0c 1c  |+..  .. n% ..+..|
00006360  20 20 20 20 c9 20 31 3a  41 24 3d 22 31 73 74 20  |    . 1:A$="1st |
00006370  51 55 41 52 54 45 52 22  0d 2b 16 1c 20 20 20 20  |QUARTER".+..    |
00006380  c9 20 32 3a 41 24 3d 22  32 6e 64 20 51 55 41 52  |. 2:A$="2nd QUAR|
00006390  54 45 52 22 0d 2b 20 1c  20 20 20 20 c9 20 33 3a  |TER".+ .    . 3:|
000063a0  41 24 3d 22 33 72 64 20  51 55 41 52 54 45 52 22  |A$="3rd QUARTER"|
000063b0  0d 2b 2a 1c 20 20 20 20  c9 20 34 3a 41 24 3d 22  |.+*.    . 4:A$="|
000063c0  34 74 68 20 51 55 41 52  54 45 52 22 0d 2b 34 07  |4th QUARTER".+4.|
000063d0  20 20 cb 0d 2b 3e 05 cc  0d 2b 48 0d 20 20 c8 8e  |  ..+>...+H.  ..|
000063e0  20 6e 25 20 ca 0d 2b 52  19 20 20 20 20 c9 20 31  | n% ..+R.    . 1|
000063f0  3a 41 24 3d 22 54 4f 50  20 48 41 4c 46 22 0d 2b  |:A$="TOP HALF".+|
00006400  5c 1c 20 20 20 20 c9 20  32 3a 41 24 3d 22 42 4f  |\.    . 2:A$="BO|
00006410  54 54 4f 4d 20 48 41 4c  46 22 0d 2b 66 07 20 20  |TTOM HALF".+f.  |
00006420  cb 0d 2b 70 05 cd 0d 2b  7a 3e f2 74 65 78 74 28  |..+p...+z>.text(|
00006430  31 30 30 2a 78 73 63 61  6c 65 25 2c 31 38 38 30  |100*xscale%,1880|
00006440  2a 79 73 63 61 6c 65 25  2c 41 24 2c 31 32 2c 31  |*yscale%,A$,12,1|
00006450  32 2c 32 2c 62 6c 61 63  6b 25 2c 77 68 69 74 65  |2,2,black%,white|
00006460  25 2c 30 29 0d 2b 84 05  e1 0d 2b 8e 05 3a 0d 2b  |%,0).+....+..:.+|
00006470  98 1b dd 20 f2 73 61 76  65 5f 69 74 5f 74 65 61  |... .save_it_tea|
00006480  6d 73 28 f8 20 6f 6b 25  29 0d 2b a2 09 f4 20 5a  |ms(. ok%).+... Z|
00006490  5a 5a 0d 2b ac 15 c8 99  20 22 48 6f 75 72 67 6c  |ZZ.+.... "Hourgl|
000064a0  61 73 73 5f 4f 6e 22 0d  2b b6 1c ea 20 6e 25 2c  |ass_On".+... n%,|
000064b0  62 6f 74 5f 79 25 2c 66  24 2c 74 79 70 65 25 2c  |bot_y%,f$,type%,|
000064c0  66 74 25 0d 2b c0 1f f2  66 69 6c 65 74 79 70 65  |ft%.+...filetype|
000064d0  28 66 69 6c 65 32 25 2c  74 79 70 65 25 2c 66 74  |(file2%,type%,ft|
000064e0  25 29 0d 2b ca 0f e7 20  74 79 70 65 25 3d 32 20  |%).+... type%=2 |
000064f0  8c 0d 2b d4 29 20 20 f2  72 65 70 6f 72 74 28 22  |..+.)  .report("|
00006500  4f 62 6a 65 63 74 20 69  73 20 61 20 64 69 72 65  |Object is a dire|
00006510  63 74 6f 72 79 22 2c 31  37 29 0d 2b de 0b 20 20  |ctory",17).+..  |
00006520  6f 6b 25 3d a3 0d 2b e8  07 20 20 e1 0d 2b f2 05  |ok%=..+..  ..+..|
00006530  cd 0d 2b fc 1b e7 20 74  79 70 65 25 3d 31 20 80  |..+... type%=1 .|
00006540  20 66 74 25 3c 3e 26 41  46 46 20 8c 0d 2c 06 53  | ft%<>&AFF ..,.S|
00006550  20 20 6f 6b 25 3d a4 79  6e 28 22 41 6e 20 6f 62  |  ok%=.yn("An ob|
00006560  6a 65 63 74 20 6f 66 20  74 68 69 73 20 6e 61 6d  |ject of this nam|
00006570  65 20 61 6c 72 65 61 64  79 20 65 78 69 73 74 73  |e already exists|
00006580  20 28 74 79 70 65 20 22  2b c3 7e 66 74 25 2b 22  | (type "+.~ft%+"|
00006590  29 2e 20 43 6f 6e 74 69  6e 75 65 20 3f 22 29 0d  |). Continue ?").|
000065a0  2c 10 12 20 20 e7 20 ac  28 6f 6b 25 29 20 8c 20  |,..  . .(ok%) . |
000065b0  e1 0d 2c 1a 05 cd 0d 2c  24 0e 66 24 3d 24 66 69  |..,....,$.f$=$fi|
000065c0  6c 65 32 25 0d 2c 2e 17  f2 64 72 61 77 66 69 6c  |le2%.,...drawfil|
000065d0  65 5f 73 74 61 72 74 28  66 24 29 0d 2c 38 0e f2  |e_start(f$).,8..|
000065e0  66 6f 6e 74 74 61 62 6c  65 0d 2c 42 12 e3 20 6e  |fonttable.,B.. n|
000065f0  25 3d 31 b8 20 74 65 61  6d 73 25 0d 2c 4c 20 20  |%=1. teams%.,L  |
00006600  20 f2 64 72 61 77 66 69  6c 65 5f 74 65 61 6d 73  | .drawfile_teams|
00006610  28 6e 25 2c 62 6f 74 5f  79 25 29 0d 2c 56 05 ed  |(n%,bot_y%).,V..|
00006620  0d 2c 60 27 f2 64 72 61  77 5f 74 69 74 6c 65 28  |.,`'.draw_title(|
00006630  31 2c 28 62 6f 74 5f 79  25 2d 31 36 30 29 2a 79  |1,(bot_y%-160)*y|
00006640  73 63 61 6c 65 25 29 0d  2c 6a 11 f2 64 72 61 77  |scale%).,j..draw|
00006650  66 69 6c 65 5f 65 6e 64  0d 2c 74 16 c8 99 20 22  |file_end.,t... "|
00006660  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 2c  |Hourglass_Off".,|
00006670  7e 09 6f 6b 25 3d b9 0d  2c 88 05 e1 0d 2c 92 05  |~.ok%=..,....,..|
00006680  3a 0d 2c 9c 22 dd 20 f2  64 72 61 77 66 69 6c 65  |:.,.". .drawfile|
00006690  5f 74 65 61 6d 73 28 74  25 2c f8 20 62 6f 74 5f  |_teams(t%,. bot_|
000066a0  79 25 29 0d 2c a6 0b ea  20 78 25 2c 79 25 0d 2c  |y%).,... x%,y%.,|
000066b0  b0 09 74 25 2d 3d 31 0d  2c ba 17 78 25 3d 28 74  |..t%-=1.,..x%=(t|
000066c0  25 20 83 20 34 29 2a 34  30 30 2b 31 30 30 0d 2c  |% . 4)*400+100.,|
000066d0  c4 27 79 25 3d 31 38 36  30 2d 33 36 2a 28 70 65  |.'y%=1860-36*(pe|
000066e0  72 5f 74 65 61 6d 25 2b  33 2e 35 29 2a 28 74 25  |r_team%+3.5)*(t%|
000066f0  20 81 20 34 29 0d 2c ce  09 74 25 2b 3d 31 0d 2c  | . 4).,..t%+=1.,|
00006700  d8 12 61 24 3d 22 54 45  41 4d 20 22 2b c3 74 25  |..a$="TEAM "+.t%|
00006710  0d 2c e2 3b f2 74 65 78  74 28 78 25 2a 78 73 63  |.,.;.text(x%*xsc|
00006720  61 6c 65 25 2c 79 25 2a  79 73 63 61 6c 65 25 2c  |ale%,y%*yscale%,|
00006730  61 24 2c 31 32 2c 31 32  2c 31 2c 62 6c 61 63 6b  |a$,12,12,1,black|
00006740  25 2c 62 6c 61 63 6b 25  2c 31 29 0d 2c ec 15 e3  |%,black%,1).,...|
00006750  20 70 25 3d 31 b8 20 70  65 72 5f 74 65 61 6d 25  | p%=1. per_team%|
00006760  0d 2c f6 17 20 20 61 24  3d a4 70 6c 61 79 65 72  |.,..  a$=.player|
00006770  28 74 25 2c 70 25 29 0d  2d 00 47 20 20 f2 74 65  |(t%,p%).-.G  .te|
00006780  78 74 28 78 25 2a 78 73  63 61 6c 65 25 2c 28 79  |xt(x%*xscale%,(y|
00006790  25 2d 33 36 2a 70 25 2d  31 36 29 2a 79 73 63 61  |%-36*p%-16)*ysca|
000067a0  6c 65 25 2c 61 24 2c 38  2c 31 32 2c 31 2c 62 6c  |le%,a$,8,12,1,bl|
000067b0  61 63 6b 25 2c 62 6c 61  63 6b 25 2c 30 29 0d 2d  |ack%,black%,0).-|
000067c0  0a 1a 20 20 62 6f 74 5f  79 25 3d 28 79 25 2d 33  |..  bot_y%=(y%-3|
000067d0  36 2a 70 25 2d 31 36 29  0d 2d 14 05 ed 0d 2d 1e  |6*p%-16).-....-.|
000067e0  05 e1 0d 2d 28 05 3a 0d  2d 32 13 dd 20 a4 73 70  |...-(.:.-2.. .sp|
000067f0  61 63 65 28 41 24 2c 6c  25 29 0d 2d 3c 0f c8 95  |ace(A$,l%).-<...|
00006800  20 a9 28 41 24 29 3c 6c  25 0d 2d 46 0d 20 20 41  | .(A$)<l%.-F.  A|
00006810  24 2b 3d 22 20 22 0d 2d  50 05 ce 0d 2d 5a 0c 3d  |$+=" ".-P...-Z.=|
00006820  c0 41 24 2c 6c 25 29 0d  2d 64 05 3a 0d 2d 6e 19  |.A$,l%).-d.:.-n.|
00006830  dd 20 f2 71 75 69 63 6b  73 61 76 65 28 77 69 6e  |. .quicksave(win|
00006840  64 6f 77 25 29 0d 2d 78  0f ea 20 66 69 6c 65 24  |dow%).-x.. file$|
00006850  2c 6f 6b 25 0d 2d 82 10  c8 8e 20 77 69 6e 64 6f  |,ok%.-.... windo|
00006860  77 25 20 ca 0d 2d 8c 21  20 20 c9 20 73 61 76 65  |w% ..-.!  . save|
00006870  5f 77 69 6e 64 6f 77 25  3a 66 69 6c 65 24 3d 24  |_window%:file$=$|
00006880  66 69 6c 65 25 0d 2d 96  23 20 20 c9 20 73 61 76  |file%.-.#  . sav|
00006890  65 5f 77 69 6e 64 6f 77  32 25 3a 66 69 6c 65 24  |e_window2%:file$|
000068a0  3d 24 66 69 6c 65 32 25  0d 2d a0 05 cb 0d 2d aa  |=$file2%.-....-.|
000068b0  13 e7 20 a7 66 69 6c 65  24 2c 22 2e 22 29 20 8c  |.. .file$,".") .|
000068c0  0d 2d b4 1a 20 20 f2 73  61 76 65 69 74 28 77 69  |.-..  .saveit(wi|
000068d0  6e 64 6f 77 25 2c 6f 6b  25 29 0d 2d be 05 cc 0d  |ndow%,ok%).-....|
000068e0  2d c8 3f 20 20 f2 72 65  70 6f 72 74 28 22 54 6f  |-.?  .report("To|
000068f0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
00006900  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00006910  6f 72 79 20 76 69 65 77  65 72 22 2c 31 29 0d 2d  |ory viewer",1).-|
00006920  d2 05 cd 0d 2d dc 05 e1  0d 2d e6 05 3a 0d 2d f0  |....-....-..:.-.|
00006930  19 dd 20 f2 73 61 76 65  5f 66 69 6c 65 28 77 69  |.. .save_file(wi|
00006940  6e 64 6f 77 25 29 0d 2d  fa 0e c8 8e 20 69 63 6f  |ndow%).-.... ico|
00006950  6e 25 20 ca 0d 2e 04 11  20 20 c9 20 6f 6b 25 2c  |n% .....  . ok%,|
00006960  6f 6b 32 25 3a 0d 2e 0e  2a 20 20 20 20 e7 20 62  |ok2%:...*    . b|
00006970  6c 6f 63 6b 25 21 38 20  80 20 35 20 f2 71 75 69  |lock%!8 . 5 .qui|
00006980  63 6b 73 61 76 65 28 77  69 6e 64 6f 77 25 29 0d  |cksave(window%).|
00006990  2e 18 22 20 20 20 20 e7  20 62 75 74 74 6f 6e 25  |.."    . button%|
000069a0  3d 34 20 8c 20 f2 63 6c  6f 73 65 5f 6d 65 6e 75  |=4 . .close_menu|
000069b0  73 0d 2e 22 15 20 20 c9  20 64 72 61 67 25 2c 64  |s..".  . drag%,d|
000069c0  72 61 67 32 25 3a 0d 2e  2c 2f 20 20 20 20 e7 20  |rag2%:..,/    . |
000069d0  62 6c 6f 63 6b 25 21 38  20 80 20 36 34 20 f2 64  |block%!8 . 64 .d|
000069e0  72 61 67 62 6f 78 28 77  69 6e 64 6f 77 25 2c 69  |ragbox(window%,i|
000069f0  63 6f 6e 25 29 0d 2e 36  05 cb 0d 2e 40 05 e1 0d  |con%)..6....@...|
00006a00  2e 4a 05 3a 0d 2e 54 19  dd 20 f2 73 74 61 72 74  |.J.:..T.. .start|
00006a10  73 61 76 65 28 77 69 6e  64 6f 77 25 29 0d 2e 5e  |save(window%)..^|
00006a20  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$.. "Wimp_GetPoi|
00006a30  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00006a40  25 0d 2e 68 4b 62 6c 6f  63 6b 25 21 32 30 3d 62  |%..hKblock%!20=b|
00006a50  6c 6f 63 6b 25 21 31 32  20 3a f4 20 77 69 6e 64  |lock%!12 :. wind|
00006a60  6f 77 20 68 61 6e 64 6c  65 20 2d 20 6d 65 73 73  |ow handle - mess|
00006a70  61 67 65 20 73 65 6e 74  20 74 6f 20 77 69 6e 64  |age sent to wind|
00006a80  6f 77 27 73 20 63 72 65  61 74 6f 72 0d 2e 72 47  |ow's creator..rG|
00006a90  62 6c 6f 63 6b 25 21 32  34 3d 62 6c 6f 63 6b 25  |block%!24=block%|
00006aa0  21 31 36 20 3a f4 20 69  63 6f 6e 20 68 61 6e 64  |!16 :. icon hand|
00006ab0  6c 65 20 2d 20 6d 65 73  73 61 67 65 20 73 65 6e  |le - message sen|
00006ac0  74 20 74 6f 20 69 63 6f  6e 27 73 20 63 72 65 61  |t to icon's crea|
00006ad0  74 6f 72 0d 2e 7c 22 62  6c 6f 63 6b 25 21 32 38  |tor..|"block%!28|
00006ae0  3d 21 62 6c 6f 63 6b 25  20 20 20 3a f4 20 6d 6f  |=!block%   :. mo|
00006af0  75 73 65 20 78 0d 2e 86  22 62 6c 6f 63 6b 25 21  |use x..."block%!|
00006b00  33 32 3d 62 6c 6f 63 6b  25 21 34 20 20 3a f4 20  |32=block%!4  :. |
00006b10  6d 6f 75 73 65 20 79 0d  2e 90 04 0d 2e 9a 25 62  |mouse y.......%b|
00006b20  6c 6f 63 6b 25 21 33 36  3d a9 6f 62 6a 24 2b a9  |lock%!36=.obj$+.|
00006b30  70 61 74 68 24 2b a9 74  79 70 65 24 2b 33 3a f4  |path$+.type$+3:.|
00006b40  0d 2e a4 04 0d 2e ae 2a  21 62 6c 6f 63 6b 25 3d  |.......*!block%=|
00006b50  36 34 20 20 20 20 20 20  20 20 20 20 3a f4 20 6c  |64          :. l|
00006b60  65 6e 67 74 68 20 6f 66  20 62 6c 6f 63 6b 0d 2e  |ength of block..|
00006b70  b8 36 62 6c 6f 63 6b 25  21 31 32 3d 30 20 20 20  |.6block%!12=0   |
00006b80  20 20 20 20 20 20 3a f4  20 6d 79 20 72 65 66 20  |      :. my ref |
00006b90  28 30 3d 6f 72 69 67 69  6e 61 6c 20 6d 65 73 73  |(0=original mess|
00006ba0  61 67 65 29 0d 2e c2 35  62 6c 6f 63 6b 25 21 31  |age)...5block%!1|
00006bb0  36 3d 31 20 20 20 20 20  20 20 20 20 3a f4 20 6d  |6=1         :. m|
00006bc0  65 73 73 61 67 65 20 61  63 74 69 6f 6e 20 2d 20  |essage action - |
00006bd0  64 61 74 61 20 73 61 76  65 0d 2e cc 29 62 6c 6f  |data save...)blo|
00006be0  63 6b 25 21 34 30 3d 66  69 6c 65 74 79 70 65 25  |ck%!40=filetype%|
00006bf0  20 20 20 20 20 20 3a f4  20 66 69 6c 65 20 74 79  |      :. file ty|
00006c00  70 65 0d 2e d6 04 0d 2e  e0 10 c8 8e 20 77 69 6e  |pe.......... win|
00006c10  64 6f 77 25 20 ca 0d 2e  ea 32 20 20 c9 20 73 61  |dow% ....2  . sa|
00006c20  76 65 5f 77 69 6e 64 6f  77 25 3a 24 28 62 6c 6f  |ve_window%:$(blo|
00006c30  63 6b 25 2b 34 34 29 3d  a4 67 65 74 6c 65 61 66  |ck%+44)=.getleaf|
00006c40  28 24 66 69 6c 65 25 29  0d 2e f4 34 20 20 c9 20  |($file%)...4  . |
00006c50  73 61 76 65 5f 77 69 6e  64 6f 77 32 25 3a 24 28  |save_window2%:$(|
00006c60  62 6c 6f 63 6b 25 2b 34  34 29 3d a4 67 65 74 6c  |block%+44)=.getl|
00006c70  65 61 66 28 24 66 69 6c  65 32 25 29 0d 2e fe 05  |eaf($file2%)....|
00006c80  cb 0d 2f 08 37 c8 99 20  22 57 69 6d 70 5f 53 65  |../.7.. "Wimp_Se|
00006c90  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 62 6c  |ndMessage",18,bl|
00006ca0  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 32 30 2c 62  |ock%,block%!20,b|
00006cb0  6c 6f 63 6b 25 21 32 34  0d 2f 12 05 e1 0d 2f 1c  |lock%!24./..../.|
00006cc0  05 3a 0d 2f 26 12 dd 20  a4 67 65 74 6c 65 61 66  |.:./&.. .getleaf|
00006cd0  28 61 24 29 0d 2f 30 0f  c8 95 20 a7 61 24 2c 22  |(a$)./0... .a$,"|
00006ce0  2e 22 29 0d 2f 3a 18 20  20 61 24 3d c1 61 24 2c  |.")./:.  a$=.a$,|
00006cf0  a7 61 24 2c 22 2e 22 29  2b 31 29 0d 2f 44 05 ce  |.a$,".")+1)./D..|
00006d00  0d 2f 4e 0a 3d 61 24 2b  bd 30 0d 2f 58 05 3a 0d  |./N.=a$+.0./X.:.|
00006d10  2f 62 1d dd 20 f2 64 72  61 67 62 6f 78 28 77 69  |/b.. .dragbox(wi|
00006d20  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 2f 6c 16  |ndow%,icon%)./l.|
00006d30  64 72 61 67 5f 66 72 6f  6d 25 3d 77 69 6e 64 6f  |drag_from%=windo|
00006d40  77 25 0d 2f 76 13 21 62  6c 6f 63 6b 25 3d 77 69  |w%./v.!block%=wi|
00006d50  6e 64 6f 77 25 0d 2f 80  24 c8 99 20 22 57 69 6d  |ndow%./.$.. "Wim|
00006d60  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00006d70  22 2c 2c 62 6c 6f 63 6b  25 0d 2f 8a 1a 6f 78 25  |",,block%./..ox%|
00006d80  3d 62 6c 6f 63 6b 25 21  34 2d 62 6c 6f 63 6b 25  |=block%!4-block%|
00006d90  21 32 30 0d 2f 94 1b 6f  79 25 3d 62 6c 6f 63 6b  |!20./..oy%=block|
00006da0  25 21 31 36 2d 62 6c 6f  63 6b 25 21 32 34 0d 2f  |%!16-block%!24./|
00006db0  9e 2e 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |..block%!4=icon%|
00006dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00006dd0  20 69 63 6f 6e 20 6e 75  6d 62 65 72 0d 2f a8 22  | icon number./."|
00006de0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00006df0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 2f  |State",,block%./|
00006e00  b2 46 62 6c 6f 63 6b 25  21 34 3d 35 20 20 20 20  |.Fblock%!4=5    |
00006e10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00006e20  20 64 72 61 67 20 74 79  70 65 20 2d 20 72 6f 74  | drag type - rot|
00006e30  61 74 69 6e 67 20 66 69  78 65 64 20 73 69 7a 65  |ating fixed size|
00006e40  20 62 6f 78 0d 2f bc 35  62 6c 6f 63 6b 25 21 38  | box./.5block%!8|
00006e50  3d 6f 78 25 2b 62 6c 6f  63 6b 25 21 38 20 20 20  |=ox%+block%!8   |
00006e60  20 20 20 20 3a f4 20 6d  69 6e 69 6d 75 6d 20 78  |    :. minimum x|
00006e70  20 61 74 20 73 74 61 72  74 0d 2f c6 35 62 6c 6f  | at start./.5blo|
00006e80  63 6b 25 21 31 32 3d 6f  79 25 2b 62 6c 6f 63 6b  |ck%!12=oy%+block|
00006e90  25 21 31 32 20 20 20 20  20 3a f4 20 6d 69 6e 69  |%!12     :. mini|
00006ea0  6d 75 6d 20 79 20 61 74  20 73 74 61 72 74 0d 2f  |mum y at start./|
00006eb0  d0 35 62 6c 6f 63 6b 25  21 31 36 3d 6f 78 25 2b  |.5block%!16=ox%+|
00006ec0  62 6c 6f 63 6b 25 21 31  36 20 20 20 20 20 3a f4  |block%!16     :.|
00006ed0  20 6d 61 78 69 6d 75 6d  20 78 20 61 74 20 73 74  | maximum x at st|
00006ee0  61 72 74 0d 2f da 35 62  6c 6f 63 6b 25 21 32 30  |art./.5block%!20|
00006ef0  3d 6f 79 25 2b 62 6c 6f  63 6b 25 21 32 30 20 20  |=oy%+block%!20  |
00006f00  20 20 20 3a f4 20 6d 61  78 69 6d 75 6d 20 79 20  |   :. maximum y |
00006f10  61 74 20 73 74 61 72 74  0d 2f e4 3a 62 6c 6f 63  |at start./.:bloc|
00006f20  6b 25 21 32 34 3d 30 20  20 20 20 20 20 20 20 20  |k%!24=0         |
00006f30  20 20 20 20 20 20 20 20  3a f4 20 6d 69 6e 69 6d  |        :. minim|
00006f40  75 6d 20 78 20 6f 66 20  70 61 72 65 6e 74 20 62  |um x of parent b|
00006f50  6f 78 0d 2f ee 3a 62 6c  6f 63 6b 25 21 32 38 3d  |ox./.:block%!28=|
00006f60  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00006f70  20 20 3a f4 20 6d 69 6e  69 6d 75 6d 20 79 20 6f  |  :. minimum y o|
00006f80  66 20 70 61 72 65 6e 74  20 62 6f 78 0d 2f f8 3a  |f parent box./.:|
00006f90  62 6c 6f 63 6b 25 21 33  32 3d 26 37 46 46 46 46  |block%!32=&7FFFF|
00006fa0  46 46 46 20 20 20 20 20  20 20 20 20 3a f4 20 6d  |FFF         :. m|
00006fb0  61 78 69 6d 75 6d 20 78  20 6f 66 20 70 61 72 65  |aximum x of pare|
00006fc0  6e 74 20 62 6f 78 0d 30  02 3a 62 6c 6f 63 6b 25  |nt box.0.:block%|
00006fd0  21 33 36 3d 26 37 46 46  46 46 46 46 46 20 20 20  |!36=&7FFFFFFF   |
00006fe0  20 20 20 20 20 20 3a f4  20 6d 61 78 69 6d 75 6d  |      :. maximum|
00006ff0  20 79 20 6f 66 20 70 61  72 65 6e 74 20 62 6f 78  | y of parent box|
00007000  0d 30 0c 1d c8 99 20 22  57 69 6d 70 5f 44 72 61  |.0.... "Wimp_Dra|
00007010  67 42 6f 78 22 2c 2c 62  6c 6f 63 6b 25 0d 30 16  |gBox",,block%.0.|
00007020  05 e1 0d 30 20 05 3a 0d  30 2a 0f dd 20 f2 64 61  |...0 .:.0*.. .da|
00007030  74 61 73 61 76 65 0d 30  34 12 ea 20 6f 6b 25 2c  |tasave.04.. ok%,|
00007040  61 25 2c 62 25 2c 63 25  0d 30 3e 13 c8 8e 20 64  |a%,b%,c%.0>... d|
00007050  72 61 67 5f 66 72 6f 6d  25 20 ca 0d 30 48 2e 20  |rag_from% ..0H. |
00007060  20 c9 20 73 61 76 65 5f  77 69 6e 64 6f 77 25 3a  | . save_window%:|
00007070  24 66 69 6c 65 25 3d a4  73 74 72 69 6e 67 28 62  |$file%=.string(b|
00007080  6c 6f 63 6b 25 2b 34 34  29 0d 30 52 30 20 20 c9  |lock%+44).0R0  .|
00007090  20 73 61 76 65 5f 77 69  6e 64 6f 77 32 25 3a 24  | save_window2%:$|
000070a0  66 69 6c 65 32 25 3d a4  73 74 72 69 6e 67 28 62  |file2%=.string(b|
000070b0  6c 6f 63 6b 25 2b 34 34  29 0d 30 5c 05 cb 0d 30  |lock%+44).0\...0|
000070c0  66 0f 61 25 3d 62 6c 6f  63 6b 25 21 38 0d 30 70  |f.a%=block%!8.0p|
000070d0  10 62 25 3d 62 6c 6f 63  6b 25 21 32 30 0d 30 7a  |.b%=block%!20.0z|
000070e0  10 63 25 3d 62 6c 6f 63  6b 25 21 32 34 0d 30 84  |.c%=block%!24.0.|
000070f0  1b f2 73 61 76 65 69 74  28 64 72 61 67 5f 66 72  |..saveit(drag_fr|
00007100  6f 6d 25 2c 6f 6b 25 29  0d 30 8e 10 e7 20 ac 28  |om%,ok%).0... .(|
00007110  6f 6b 25 29 20 8c 20 e1  0d 30 98 10 62 6c 6f 63  |ok%) . ..0..bloc|
00007120  6b 25 21 31 32 3d 61 25  0d 30 a2 0f 62 6c 6f 63  |k%!12=a%.0..bloc|
00007130  6b 25 21 31 36 3d 33 0d  30 ac 10 62 6c 6f 63 6b  |k%!16=3.0..block|
00007140  25 21 32 30 3d 62 25 0d  30 b6 10 62 6c 6f 63 6b  |%!20=b%.0..block|
00007150  25 21 32 34 3d 63 25 0d  30 c0 0f 21 62 6c 6f 63  |%!24=c%.0..!bloc|
00007160  6b 25 3d 32 35 36 0d 30  ca 37 c8 99 20 22 57 69  |k%=256.0.7.. "Wi|
00007170  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00007180  31 38 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |18,block%,block%|
00007190  21 32 30 2c 62 6c 6f 63  6b 25 21 32 34 0d 30 d4  |!20,block%!24.0.|
000071a0  05 e1 0d 30 de 05 3a 0d  30 e8 0f dd 20 a4 67 65  |...0..:.0... .ge|
000071b0  74 5f 6e 61 6d 65 0d 30  f2 0b ea 20 6e 24 2c 6e  |t_name.0... n$,n|
000071c0  25 0d 30 fc 09 6e 24 3d  22 22 0d 31 06 0b 6e 25  |%.0..n$="".1..n%|
000071d0  3d 9a 23 51 25 0d 31 10  20 c8 95 20 6e 25 3c 3e  |=.#Q%.1. .. n%<>|
000071e0  31 33 20 80 20 6e 25 3c  3e 30 20 80 20 a9 28 6e  |13 . n%<>0 . .(n|
000071f0  24 29 3c 32 30 0d 31 1a  0f 20 20 6e 24 2b 3d bd  |$)<20.1..  n$+=.|
00007200  28 6e 25 29 0d 31 24 0d  20 20 6e 25 3d 9a 23 51  |(n%).1$.  n%=.#Q|
00007210  25 0d 31 2e 05 ce 0d 31  38 07 3d 6e 24 0d 31 42  |%.1....18.=n$.1B|
00007220  05 3a 0d 31 4c 0f dd 20  f2 6d 65 72 67 65 5f 69  |.:.1L.. .merge_i|
00007230  74 0d 31 56 20 ea 20 74  6f 74 6e 25 2c 74 6f 74  |t.1V . totn%,tot|
00007240  73 25 2c 6e 25 2c 51 25  2c 69 63 6f 6e 25 2c 6e  |s%,n%,Q%,icon%,n|
00007250  24 0d 31 60 0f 51 25 3d  8e 28 70 61 74 68 24 29  |$.1`.Q%=.(path$)|
00007260  0d 31 6a 0b cf 23 51 25  3d 34 32 0d 31 74 0e 74  |.1j..#Q%=42.1t.t|
00007270  6f 74 6e 25 3d 9a 23 51  25 0d 31 7e 0e 74 6f 74  |otn%=.#Q%.1~.tot|
00007280  73 25 3d 9a 23 51 25 0d  31 88 2b e7 20 74 6f 74  |s%=.#Q%.1.+. tot|
00007290  6e 61 6d 65 73 25 2b 74  6f 74 73 65 65 64 73 25  |names%+totseeds%|
000072a0  2b 74 6f 74 6e 25 2b 74  6f 74 73 25 3e 31 32 38  |+totn%+tots%>128|
000072b0  20 8c 0d 31 92 22 20 20  f2 72 65 70 6f 72 74 28  | ..1."  .report(|
000072c0  22 54 6f 6f 20 6d 61 6e  79 20 6e 61 6d 65 73 2e  |"Too many names.|
000072d0  22 2c 31 29 0d 31 9c 07  20 20 e1 0d 31 a6 05 cd  |",1).1..  ..1...|
000072e0  0d 31 b0 10 e7 20 74 6f  74 6e 25 3c 3e 30 20 8c  |.1... totn%<>0 .|
000072f0  0d 31 ba 12 20 20 e3 20  6e 25 3d 31 b8 74 6f 74  |.1..  . n%=1.tot|
00007300  6e 25 0d 31 c4 25 20 20  20 20 69 63 6f 6e 25 3d  |n%.1.%    icon%=|
00007310  a4 69 63 6f 6e 66 72 6f  6d 6e 61 6d 65 28 74 6f  |.iconfromname(to|
00007320  74 6e 25 2c 6e 25 29 0d  31 ce 1c 20 20 20 20 cf  |tn%,n%).1..    .|
00007330  23 51 25 3d 34 35 2b 28  69 63 6f 6e 25 2d 34 29  |#Q%=45+(icon%-4)|
00007340  2a 31 39 0d 31 d8 14 20  20 20 20 6e 24 3d a4 67  |*19.1..    n$=.g|
00007350  65 74 5f 6e 61 6d 65 0d  31 e2 14 20 20 20 20 f2  |et_name.1..    .|
00007360  6e 61 6d 65 5f 69 6e 28  6e 24 29 0d 31 ec 07 20  |name_in(n$).1.. |
00007370  20 ed 0d 31 f6 05 cd 0d  32 00 0d e3 20 6e 25 3d  | ..1....2... n%=|
00007380  31 b8 31 36 0d 32 0a 12  20 20 cf 23 51 25 3d 32  |1.16.2..  .#Q%=2|
00007390  39 36 32 2b 6e 25 0d 32  14 10 20 20 e7 20 9a 23  |962+n%.2..  . .#|
000073a0  51 25 3d 31 20 8c 0d 32  1e 1b 20 20 20 20 cf 23  |Q%=1 ..2..    .#|
000073b0  51 25 3d 32 35 30 30 2b  28 6e 25 2d 31 29 2a 31  |Q%=2500+(n%-1)*1|
000073c0  39 0d 32 28 14 20 20 20  20 6e 24 3d a4 67 65 74  |9.2(.    n$=.get|
000073d0  5f 6e 61 6d 65 0d 32 32  14 20 20 20 20 f2 6e 61  |_name.22.    .na|
000073e0  6d 65 5f 69 6e 28 6e 24  29 0d 32 3c 07 20 20 cd  |me_in(n$).2<.  .|
000073f0  0d 32 46 05 ed 0d 32 50  17 f2 70 75 74 5f 6e 61  |.2F...2P..put_na|
00007400  6d 65 73 5f 69 6e 5f 69  63 6f 6e 73 0d 32 5a 0f  |mes_in_icons.2Z.|
00007410  f2 73 68 6f 77 5f 73 65  65 64 73 0d 32 64 0c f2  |.show_seeds.2d..|
00007420  6e 6f 5f 64 72 61 77 0d  32 6e 11 f2 73 65 74 5f  |no_draw.2n..set_|
00007430  71 75 61 72 74 65 72 73  0d 32 78 1e f2 6f 70 65  |quarters.2x..ope|
00007440  6e 5f 77 69 6e 64 6f 77  28 6d 61 69 6e 5f 77 69  |n_window(main_wi|
00007450  6e 64 6f 77 25 29 0d 32  82 0e 61 6c 74 65 72 65  |ndow%).2..altere|
00007460  64 25 3d b9 0d 32 8c 05  e1 0d 32 96 05 3a 0d 32  |d%=..2....2..:.2|
00007470  a0 11 dd 20 f2 61 64 64  5f 65 78 74 72 61 73 0d  |... .add_extras.|
00007480  32 aa 0b ea 20 6e 25 2c  6d 25 0d 32 b4 15 65 78  |2... n%,m%.2..ex|
00007490  74 72 61 73 25 3d 74 6f  74 73 65 65 64 73 25 0d  |tras%=totseeds%.|
000074a0  32 be 20 e7 20 28 74 6f  74 6e 61 6d 65 73 25 2b  |2. . (totnames%+|
000074b0  74 6f 74 73 65 65 64 73  25 29 80 20 31 20 8c 0d  |totseeds%). 1 ..|
000074c0  32 c8 2f 20 20 6e 61 6d  65 73 24 28 74 6f 74 6e  |2./  names$(totn|
000074d0  61 6d 65 73 25 2b 74 6f  74 73 65 65 64 73 25 2b  |ames%+totseeds%+|
000074e0  31 29 3d 22 41 2e 4e 2e  4f 74 68 65 72 22 0d 32  |1)="A.N.Other".2|
000074f0  d2 05 cd 0d 32 dc 15 e7  20 74 6f 74 73 65 65 64  |....2... totseed|
00007500  73 25 3d 30 20 8c 20 e1  0d 32 e6 08 6d 25 3d 30  |s%=0 . ..2..m%=0|
00007510  0d 32 f0 0d e3 20 6e 25  3d 31 b8 31 36 0d 32 fa  |.2... n%=1.16.2.|
00007520  1b 20 20 e7 20 73 65 65  64 5f 65 78 69 73 74 73  |.  . seed_exists|
00007530  25 3f 6e 25 3d 31 20 8c  0d 33 04 0d 20 20 20 20  |%?n%=1 ..3..    |
00007540  6d 25 2b 3d 31 0d 33 0e  30 20 20 20 20 6e 61 6d  |m%+=1.3.0    nam|
00007550  65 73 24 28 74 6f 74 6e  61 6d 65 73 25 2b 6d 25  |es$(totnames%+m%|
00007560  29 3d 24 28 73 65 65 64  73 25 2b 31 39 2a 28 6e  |)=$(seeds%+19*(n|
00007570  25 2d 31 29 29 0d 33 18  07 20 20 cd 0d 33 22 05  |%-1)).3..  ..3".|
00007580  ed 0d 33 2c 05 e1 0d 33  36 05 3a 0d 33 40 13 dd  |..3,...36.:.3@..|
00007590  20 f2 73 65 74 5f 71 75  61 72 74 65 72 73 0d 33  | .set_quarters.3|
000075a0  4a 08 ea 20 6e 25 0d 33  54 08 6e 25 3d 31 0d 33  |J.. n%.3T.n%=1.3|
000075b0  5e 1d c8 95 20 6e 25 3c  74 6f 74 6e 61 6d 65 73  |^... n%<totnames|
000075c0  25 2b 74 6f 74 73 65 65  64 73 25 0d 33 68 0d 20  |%+totseeds%.3h. |
000075d0  20 6e 25 3d 6e 25 2a 32  0d 33 72 05 ce 0d 33 7c  | n%=n%*2.3r...3||
000075e0  0b c8 8e 20 6e 25 20 ca  0d 33 86 0c 20 20 c9 20  |... n% ..3..  . |
000075f0  31 32 38 3a 0d 33 90 13  20 20 20 20 71 75 61 72  |128:.3..    quar|
00007600  74 65 72 73 25 3d 34 0d  33 9a 15 20 20 20 20 70  |ters%=4.3..    p|
00007610  65 72 5f 71 75 61 72 74  25 3d 33 32 0d 33 a4 0b  |er_quart%=32.3..|
00007620  20 20 c9 20 36 34 3a 0d  33 ae 13 20 20 20 20 71  |  . 64:.3..    q|
00007630  75 61 72 74 65 72 73 25  3d 32 0d 33 b8 15 20 20  |uarters%=2.3..  |
00007640  20 20 70 65 72 5f 71 75  61 72 74 25 3d 33 32 0d  |  per_quart%=32.|
00007650  33 c2 07 20 20 7f 0d 33  cc 13 20 20 20 20 71 75  |3..  ..3..    qu|
00007660  61 72 74 65 72 73 25 3d  31 0d 33 d6 15 20 20 20  |arters%=1.3..   |
00007670  20 70 65 72 5f 71 75 61  72 74 25 3d 6e 25 0d 33  | per_quart%=n%.3|
00007680  e0 05 cb 0d 33 ea 10 74  6f 74 5f 64 72 61 77 25  |....3..tot_draw%|
00007690  3d 6e 25 0d 33 f4 10 e7  20 64 6f 75 62 6c 65 73  |=n%.3... doubles|
000076a0  25 20 8c 0d 33 fe 14 20  20 c8 8e 20 71 75 61 72  |% ..3..  .. quar|
000076b0  74 65 72 73 25 20 ca 0d  34 08 23 20 20 20 20 c9  |ters% ..4.#    .|
000076c0  20 32 2c 34 3a 71 75 61  72 74 65 72 73 25 3d 71  | 2,4:quarters%=q|
000076d0  75 61 72 74 65 72 73 25  2f 32 0d 34 12 23 20 20  |uarters%/2.4.#  |
000076e0  20 20 c9 20 31 3a 70 65  72 5f 71 75 61 72 74 25  |  . 1:per_quart%|
000076f0  3d 70 65 72 5f 71 75 61  72 74 25 2f 32 0d 34 1c  |=per_quart%/2.4.|
00007700  07 20 20 cb 0d 34 26 05  cd 0d 34 30 05 e1 0d 34  |.  ..4&...40...4|
00007710  3a 05 3a 0d 34 44 10 dd  20 f2 73 68 6f 77 5f 64  |:.:.4D.. .show_d|
00007720  72 61 77 0d 34 4e 1a ea  20 77 69 64 74 68 25 2c  |raw.4N.. width%,|
00007730  68 65 69 67 68 74 25 2c  6e 25 2c 6d 25 0d 34 58  |height%,n%,m%.4X|
00007740  1b 77 69 64 74 68 25 3d  71 75 61 72 74 65 72 73  |.width%=quarters|
00007750  25 2a 32 38 38 2b 36 34  0d 34 62 28 e7 20 64 6f  |%*288+64.4b(. do|
00007760  75 62 6c 65 73 25 20 8c  20 77 69 64 74 68 25 3d  |ubles% . width%=|
00007770  71 75 61 72 74 65 72 73  25 2a 35 37 36 2b 36 34  |quarters%*576+64|
00007780  0d 34 6c 1c 68 65 69 67  68 74 25 3d 70 65 72 5f  |.4l.height%=per_|
00007790  71 75 61 72 74 25 2a 34  34 2b 36 34 0d 34 76 1c  |quart%*44+64.4v.|
000077a0  6d 25 3d 64 6f 75 62 6c  65 73 25 3a 6e 25 3d 70  |m%=doubles%:n%=p|
000077b0  65 72 5f 74 65 61 6d 25  0d 34 80 0c f2 6e 6f 5f  |er_team%.4...no_|
000077c0  64 72 61 77 0d 34 8a 1c  64 6f 75 62 6c 65 73 25  |draw.4..doubles%|
000077d0  3d 6d 25 3a 70 65 72 5f  74 65 61 6d 25 3d 6e 25  |=m%:per_team%=n%|
000077e0  0d 34 94 10 64 72 61 77  5f 6d 61 64 65 25 3d b9  |.4..draw_made%=.|
000077f0  0d 34 9e 5c 64 72 61 77  5f 77 69 6e 64 6f 77 25  |.4.\draw_window%|
00007800  3d a4 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  |=.create_window(|
00007810  39 36 30 2c 37 30 34 2c  33 32 30 2c 33 32 30 2c  |960,704,320,320,|
00007820  77 69 64 74 68 25 2d 33  32 30 2c 68 65 69 67 68  |width%-320,heigh|
00007830  74 25 2d 33 32 30 2c 26  42 46 30 30 30 30 30 32  |t%-320,&BF000002|
00007840  2c 22 44 72 61 77 22 2c  30 2c 30 29 0d 34 a8 1e  |,"Draw",0,0).4..|
00007850  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 28 64 72 61  |.open_window(dra|
00007860  77 5f 77 69 6e 64 6f 77  25 29 0d 34 b2 05 e1 0d  |w_window%).4....|
00007870  34 bc 05 3a 0d 34 c6 11  dd 20 f2 73 68 6f 77 5f  |4..:.4... .show_|
00007880  74 65 61 6d 73 0d 34 d0  10 e7 20 74 65 61 6d 73  |teams.4... teams|
00007890  25 3e 33 20 8c 0d 34 da  12 20 20 77 69 64 74 68  |%>3 ..4..  width|
000078a0  25 3d 37 38 2a 31 36 0d  34 e4 05 cc 0d 34 ee 19  |%=78*16.4....4..|
000078b0  20 20 77 69 64 74 68 25  3d 74 65 61 6d 73 25 2a  |  width%=teams%*|
000078c0  31 39 2a 31 36 0d 34 f8  05 cd 0d 35 02 32 68 65  |19*16.4....5.2he|
000078d0  69 67 68 74 25 3d 28 28  74 65 61 6d 73 25 2d 31  |ight%=((teams%-1|
000078e0  29 20 81 20 34 2b 31 29  2a 33 32 2a 28 70 65 72  |) . 4+1)*32*(per|
000078f0  5f 74 65 61 6d 25 2b 33  29 2b 33 32 0d 35 0c 5d  |_team%+3)+32.5.]|
00007900  64 72 61 77 5f 77 69 6e  64 6f 77 25 3d a4 63 72  |draw_window%=.cr|
00007910  65 61 74 65 5f 77 69 6e  64 6f 77 28 39 36 30 2c  |eate_window(960,|
00007920  37 30 34 2c 33 32 30 2c  33 32 30 2c 77 69 64 74  |704,320,320,widt|
00007930  68 25 2d 33 32 30 2c 68  65 69 67 68 74 25 2d 33  |h%-320,height%-3|
00007940  32 30 2c 26 42 46 30 30  30 30 30 32 2c 22 54 65  |20,&BF000002,"Te|
00007950  61 6d 73 22 2c 30 2c 30  29 0d 35 16 1e f2 6f 70  |ams",0,0).5...op|
00007960  65 6e 5f 77 69 6e 64 6f  77 28 64 72 61 77 5f 77  |en_window(draw_w|
00007970  69 6e 64 6f 77 25 29 0d  35 20 10 64 72 61 77 5f  |indow%).5 .draw_|
00007980  6d 61 64 65 25 3d b9 0d  35 2a 05 e1 0d 35 34 05  |made%=..5*...54.|
00007990  3a 0d 35 3e 17 dd 20 f2  64 72 61 77 5f 64 72 61  |:.5>.. .draw_dra|
000079a0  77 5f 77 69 6e 64 6f 77  0d 35 48 13 ea 20 6e 25  |w_window.5H.. n%|
000079b0  2c 6d 25 2c 6e 75 6d 25  2c 77 25 0d 35 52 20 e7  |,m%,num%,w%.5R .|
000079c0  20 64 6f 75 62 6c 65 73  25 20 8c 20 77 25 3d 35  | doubles% . w%=5|
000079d0  37 36 3a 8b 20 77 25 3d  32 38 38 0d 35 5c 15 e3  |76:. w%=288.5\..|
000079e0  20 6e 25 3d 31 b8 20 71  75 61 72 74 65 72 73 25  | n%=1. quarters%|
000079f0  0d 35 66 18 20 20 e3 20  6d 25 3d 31 b8 20 70 65  |.5f.  . m%=1. pe|
00007a00  72 5f 71 75 61 72 74 25  0d 35 70 21 20 20 20 20  |r_quart%.5p!    |
00007a10  6e 75 6d 25 3d 28 6e 25  2d 31 29 2a 70 65 72 5f  |num%=(n%-1)*per_|
00007a20  71 75 61 72 74 25 2b 6d  25 0d 35 7a 1d 20 20 20  |quart%+m%.5z.   |
00007a30  20 e7 20 97 28 64 72 61  77 24 28 6e 75 6d 25 29  | . .(draw$(num%)|
00007a40  29 3c 31 37 20 8c 0d 35  84 20 20 20 20 20 20 20  |)<17 ..5.       |
00007a50  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00007a60  75 72 22 2c 31 31 0d 35  8e 09 20 20 20 20 cc 0d  |ur",11.5..    ..|
00007a70  35 98 1f 20 20 20 20 20  20 c8 99 20 22 57 69 6d  |5..      .. "Wim|
00007a80  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 35  |p_SetColour",7.5|
00007a90  a2 09 20 20 20 20 cd 0d  35 ac 2f 20 20 20 20 ec  |..    ..5./    .|
00007aa0  20 6f 78 25 2b 28 6e 25  2d 31 29 2a 77 25 2b 33  | ox%+(n%-1)*w%+3|
00007ab0  32 2c 6f 79 25 2d 34 34  2a 6d 25 2d 38 2a 28 6d  |2,oy%-44*m%-8*(m|
00007ac0  25 20 80 20 31 29 0d 35  b6 29 20 20 20 20 f1 20  |% . 1).5.)    . |
00007ad0  c1 64 72 61 77 24 28 28  6e 25 2d 31 29 2a 70 65  |.draw$((n%-1)*pe|
00007ae0  72 5f 71 75 61 72 74 25  2b 6d 25 29 2c 32 29 0d  |r_quart%+m%),2).|
00007af0  35 c0 27 20 20 20 20 e7  20 28 6d 25 20 80 20 31  |5.'    . (m% . 1|
00007b00  29 3d 30 20 80 20 6d 25  3c 3e 70 65 72 5f 71 75  |)=0 . m%<>per_qu|
00007b10  61 72 74 25 20 8c 0d 35  ca 1f 20 20 20 20 20 20  |art% ..5..      |
00007b20  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00007b30  75 72 22 2c 38 0d 35 d4  29 20 20 20 20 20 20 ec  |ur",8.5.)      .|
00007b40  20 6f 78 25 2b 28 6e 25  2d 31 29 2a 77 25 2b 33  | ox%+(n%-1)*w%+3|
00007b50  32 2c 6f 79 25 2d 34 34  2a 6d 25 2d 33 36 0d 35  |2,oy%-44*m%-36.5|
00007b60  de 15 20 20 20 20 20 20  f0 20 31 2c 77 25 2d 31  |..      . 1,w%-1|
00007b70  36 2c 30 0d 35 e8 09 20  20 20 20 cd 0d 35 f2 07  |6,0.5..    ..5..|
00007b80  20 20 ed 0d 35 fc 05 ed  0d 36 06 05 e1 0d 36 10  |  ..5....6....6.|
00007b90  05 3a 0d 36 1a 12 dd 20  f2 64 72 61 77 5f 6f 70  |.:.6... .draw_op|
00007ba0  74 69 6f 6e 0d 36 24 10  c8 8e 73 75 62 6f 70 74  |tion.6$...subopt|
00007bb0  31 25 20 ca 0d 36 2e 14  20 20 c9 20 30 3a f2 6d  |1% ..6..  . 0:.m|
00007bc0  61 6b 65 5f 64 72 61 77  0d 36 38 24 20 20 c9 20  |ake_draw.68$  . |
00007bd0  31 3a f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 64  |1:.open_window(d|
00007be0  72 61 77 5f 77 69 6e 64  6f 77 25 29 0d 36 42 0a  |raw_window%).6B.|
00007bf0  20 20 c9 20 32 3a 0d 36  4c 10 20 20 20 20 f2 6e  |  . 2:.6L.    .n|
00007c00  6f 5f 64 72 61 77 0d 36  56 12 20 20 20 20 61 6c  |o_draw.6V.    al|
00007c10  74 65 72 65 64 25 3d b9  0d 36 60 15 20 20 c9 20  |tered%=..6`.  . |
00007c20  33 3a f2 70 72 69 6e 74  5f 64 72 61 77 0d 36 6a  |3:.print_draw.6j|
00007c30  05 cb 0d 36 74 05 e1 0d  36 7e 05 3a 0d 36 88 0e  |...6t...6~.:.6..|
00007c40  dd 20 f2 6e 6f 5f 64 72  61 77 0d 36 92 12 e7 20  |. .no_draw.6... |
00007c50  64 72 61 77 5f 6d 61 64  65 25 20 8c 0d 36 9c 1a  |draw_made% ..6..|
00007c60  20 20 21 62 6c 6f 63 6b  25 3d 64 72 61 77 5f 77  |  !block%=draw_w|
00007c70  69 6e 64 6f 77 25 0d 36  a6 24 20 20 c8 99 20 22  |indow%.6.$  .. "|
00007c80  57 69 6d 70 5f 44 65 6c  65 74 65 57 69 6e 64 6f  |Wimp_DeleteWindo|
00007c90  77 22 2c 2c 62 6c 6f 63  6b 25 0d 36 b0 05 cd 0d  |w",,block%.6....|
00007ca0  36 ba 10 64 72 61 77 5f  6d 61 64 65 25 3d a3 0d  |6..draw_made%=..|
00007cb0  36 c4 0e 64 6f 75 62 6c  65 73 25 3d a3 0d 36 ce  |6..doubles%=..6.|
00007cc0  0f 70 65 72 5f 74 65 61  6d 25 3d 30 0d 36 d8 05  |.per_team%=0.6..|
00007cd0  e1 0d 36 e2 05 3a 0d 36  ec 11 dd 20 a4 63 6c 65  |..6..:.6... .cle|
00007ce0  61 72 5f 64 72 61 77 0d  36 f6 21 3d a4 79 6e 28  |ar_draw.6.!=.yn(|
00007cf0  22 43 6c 65 61 72 20 45  78 69 73 74 69 6e 67 20  |"Clear Existing |
00007d00  44 72 61 77 20 3f 22 29  0d 37 00 05 3a 0d 37 0a  |Draw ?").7..:.7.|
00007d10  0d dd 20 a4 79 6e 28 61  24 29 0d 37 14 12 f2 72  |.. .yn(a$).7...r|
00007d20  65 70 6f 72 74 28 61 24  2c 31 39 29 0d 37 1e 12  |eport(a$,19).7..|
00007d30  3d 28 65 72 72 63 6c 69  63 6b 25 3d 31 29 0d 37  |=(errclick%=1).7|
00007d40  28 05 3a 0d 37 32 10 dd  20 f2 6d 61 6b 65 5f 64  |(.:.72.. .make_d|
00007d50  72 61 77 0d 37 3c 08 ea  20 6e 25 0d 37 46 15 e7  |raw.7<.. n%.7F..|
00007d60  20 73 75 62 6f 70 74 32  25 3d 2d 31 20 8c 20 e1  | subopt2%=-1 . .|
00007d70  0d 37 50 12 e7 20 73 75  62 6f 70 74 32 25 3d 33  |.7P.. subopt2%=3|
00007d80  20 8c 0d 37 5a 0c 20 20  f2 74 65 61 6d 73 0d 37  | ..7Z.  .teams.7|
00007d90  64 07 20 20 e1 0d 37 6e  05 cd 0d 37 78 0e e3 20  |d.  ..7n...7x.. |
00007da0  6e 25 3d 31 b8 31 32 38  0d 37 82 16 20 20 64 72  |n%=1.128.7..  dr|
00007db0  61 77 24 28 6e 25 29 3d  22 20 62 79 65 22 0d 37  |aw$(n%)=" bye".7|
00007dc0  8c 10 20 20 64 72 61 77  6e 3f 6e 25 3d 30 0d 37  |..  drawn?n%=0.7|
00007dd0  96 05 ed 0d 37 a0 12 e7  20 73 75 62 6f 70 74 32  |....7... subopt2|
00007de0  25 3d 32 20 8c 0d 37 aa  0e 20 20 f2 64 6f 75 62  |%=2 ..7..  .doub|
00007df0  6c 65 73 0d 37 b4 07 20  20 e1 0d 37 be 05 cd 0d  |les.7..  ..7....|
00007e00  37 c8 0e 64 6f 75 62 6c  65 73 25 3d a3 0d 37 d2  |7..doubles%=..7.|
00007e10  0f 70 65 72 5f 74 65 61  6d 25 3d 30 0d 37 dc 0c  |.per_team%=0.7..|
00007e20  74 65 61 6d 73 25 3d 30  0d 37 e6 11 f2 73 65 74  |teams%=0.7...set|
00007e30  5f 71 75 61 72 74 65 72  73 0d 37 f0 10 ea 20 77  |_quarters.7... w|
00007e40  69 74 68 73 65 65 64 73  25 0d 37 fa 1b 77 69 74  |ithseeds%.7..wit|
00007e50  68 73 65 65 64 73 25 3d  28 73 75 62 6f 70 74 32  |hseeds%=(subopt2|
00007e60  25 3d 30 29 0d 38 04 12  e7 20 77 69 74 68 73 65  |%=0).8... withse|
00007e70  65 64 73 25 20 8c 0d 38  0e 13 20 20 f2 70 75 74  |eds% ..8..  .put|
00007e80  5f 73 65 65 64 73 5f 69  6e 0d 38 18 05 cc 0d 38  |_seeds_in.8....8|
00007e90  22 11 20 20 f2 61 64 64  5f 65 78 74 72 61 73 0d  |".  .add_extras.|
00007ea0  38 2c 05 cd 0d 38 36 18  e3 20 6e 25 3d 31 b8 74  |8,...86.. n%=1.t|
00007eb0  6f 74 5f 64 72 61 77 25  20 88 20 32 0d 38 40 2e  |ot_draw% . 2.8@.|
00007ec0  20 20 e7 20 64 72 61 77  24 28 6e 25 29 3d 22 20  |  . draw$(n%)=" |
00007ed0  62 79 65 22 20 8c 20 64  72 61 77 24 28 6e 25 29  |bye" . draw$(n%)|
00007ee0  3d a4 6e 61 6d 65 28 6e  25 29 0d 38 4a 05 ed 0d  |=.name(n%).8J...|
00007ef0  38 54 14 e7 20 74 6f 74  6e 61 6d 65 73 25 3c 3e  |8T.. totnames%<>|
00007f00  30 20 8c 0d 38 5e 1e 20  20 e3 20 6e 25 3d 31 b8  |0 ..8^.  . n%=1.|
00007f10  74 6f 74 6e 61 6d 65 73  25 2b 65 78 74 72 61 73  |totnames%+extras|
00007f20  25 0d 38 68 27 20 20 20  20 e7 20 64 72 61 77 6e  |%.8h'    . drawn|
00007f30  3f 6e 25 3d 30 20 8c 20  f2 70 75 74 5f 6e 61 6d  |?n%=0 . .put_nam|
00007f40  65 5f 69 6e 28 6e 25 29  0d 38 72 07 20 20 ed 0d  |e_in(n%).8r.  ..|
00007f50  38 7c 05 cd 0d 38 86 0e  e3 20 6e 25 3d 31 b8 31  |8|...8... n%=1.1|
00007f60  32 38 0d 38 90 2b 20 20  e7 20 64 72 61 77 24 28  |28.8.+  . draw$(|
00007f70  6e 25 29 3d 22 20 42 59  45 22 20 8c 20 64 72 61  |n%)=" BYE" . dra|
00007f80  77 24 28 6e 25 29 3d 22  20 62 79 65 22 0d 38 9a  |w$(n%)=" bye".8.|
00007f90  05 ed 0d 38 a4 0e f2 73  68 6f 77 5f 64 72 61 77  |...8...show_draw|
00007fa0  0d 38 ae 0e 61 6c 74 65  72 65 64 25 3d b9 0d 38  |.8..altered%=..8|
00007fb0  b8 05 e1 0d 38 c2 05 3a  0d 38 cc 11 dd 20 a4 6e  |....8..:.8... .n|
00007fc0  61 6d 65 28 70 6f 73 25  29 0d 38 d6 0b ea 20 6e  |ame(pos%).8... n|
00007fd0  25 2c 61 24 0d 38 e0 05  f5 0d 38 ea 1d 20 20 6e  |%,a$.8....8..  n|
00007fe0  25 3d b3 28 74 6f 74 6e  61 6d 65 73 25 2b 65 78  |%=.(totnames%+ex|
00007ff0  74 72 61 73 25 29 0d 38  f4 10 fd 20 64 72 61 77  |tras%).8... draw|
00008000  6e 3f 6e 25 3d 30 0d 38  fe 0e 64 72 61 77 6e 3f  |n?n%=0.8..drawn?|
00008010  6e 25 3d 31 0d 39 08 14  64 72 61 77 70 6f 73 25  |n%=1.9..drawpos%|
00008020  3f 6e 25 3d 70 6f 73 25  0d 39 12 14 e7 20 6e 25  |?n%=pos%.9... n%|
00008030  3e 74 6f 74 6e 61 6d 65  73 25 20 8c 0d 39 1c 18  |>totnames% ..9..|
00008040  20 20 61 24 3d bd 28 6e  25 2d 74 6f 74 6e 61 6d  |  a$=.(n%-totnam|
00008050  65 73 25 29 0d 39 26 05  cc 0d 39 30 0c 20 20 61  |es%).9&...90.  a|
00008060  24 3d 22 20 22 0d 39 3a  05 cd 0d 39 44 12 3d 61  |$=" ".9:...9D.=a|
00008070  24 2b 6e 61 6d 65 73 24  28 6e 25 29 0d 39 4e 05  |$+names$(n%).9N.|
00008080  3a 0d 39 58 19 dd 20 f2  70 75 74 5f 6e 61 6d 65  |:.9X.. .put_name|
00008090  5f 69 6e 28 6e 61 6d 65  25 29 0d 39 62 0b ea 20  |_in(name%).9b.. |
000080a0  6e 25 2c 61 24 0d 39 6c  05 f5 0d 39 76 21 20 20  |n%,a$.9l...9v!  |
000080b0  6e 25 3d b3 28 74 6f 74  5f 64 72 61 77 25 29 20  |n%=.(tot_draw%) |
000080c0  80 20 25 31 31 31 31 31  31 31 30 0d 39 80 16 fd  |. %11111110.9...|
000080d0  20 64 72 61 77 24 28 6e  25 29 3d 22 20 62 79 65  | draw$(n%)=" bye|
000080e0  22 0d 39 8a 15 64 72 61  77 70 6f 73 25 3f 6e 61  |".9..drawpos%?na|
000080f0  6d 65 25 3d 6e 25 0d 39  94 17 e7 20 6e 61 6d 65  |me%=n%.9... name|
00008100  25 3e 74 6f 74 6e 61 6d  65 73 25 20 8c 0d 39 9e  |%>totnames% ..9.|
00008110  1b 20 20 61 24 3d bd 28  6e 61 6d 65 25 2d 74 6f  |.  a$=.(name%-to|
00008120  74 6e 61 6d 65 73 25 29  0d 39 a8 05 cc 0d 39 b2  |tnames%).9....9.|
00008130  0c 20 20 61 24 3d 22 20  22 0d 39 bc 05 cd 0d 39  |.  a$=" ".9....9|
00008140  c6 1e 64 72 61 77 24 28  6e 25 29 3d 61 24 2b 6e  |..draw$(n%)=a$+n|
00008150  61 6d 65 73 24 28 6e 61  6d 65 25 29 0d 39 d0 05  |ames$(name%).9..|
00008160  e1 0d 39 da 05 3a 0d 39  e4 15 dd 20 f2 73 65 74  |..9..:.9... .set|
00008170  5f 64 72 61 77 5f 6e 61  6d 65 73 0d 39 ee 10 e7  |_draw_names.9...|
00008180  20 64 6f 75 62 6c 65 73  25 20 8c 0d 39 f8 1d 20  | doubles% ..9.. |
00008190  20 f2 73 65 74 5f 64 72  61 77 5f 6e 61 6d 65 73  | .set_draw_names|
000081a0  5f 64 6f 75 62 6c 65 73  0d 3a 02 05 cc 0d 3a 0c  |_doubles.:....:.|
000081b0  1d 20 20 f2 73 65 74 5f  64 72 61 77 5f 6e 61 6d  |.  .set_draw_nam|
000081c0  65 73 5f 73 69 6e 67 6c  65 73 0d 3a 16 05 cd 0d  |es_singles.:....|
000081d0  3a 20 05 e1 0d 3a 2a 05  3a 0d 3a 34 1d dd 20 f2  |: ...:*.:.:4.. .|
000081e0  73 65 74 5f 64 72 61 77  5f 6e 61 6d 65 73 5f 64  |set_draw_names_d|
000081f0  6f 75 62 6c 65 73 0d 3a  3e 08 ea 20 6e 25 0d 3a  |oubles.:>.. n%.:|
00008200  48 0d e3 20 6e 25 3d 31  b8 36 34 0d 3a 52 16 20  |H.. n%=1.64.:R. |
00008210  20 64 72 61 77 24 28 6e  25 29 3d 22 20 62 79 65  | draw$(n%)=" bye|
00008220  22 0d 3a 5c 05 ed 0d 3a  66 0f f2 61 64 64 5f 65  |".:\...:f..add_e|
00008230  78 74 72 61 73 0d 3a 70  0d e3 20 6e 25 3d 31 b8  |xtras.:p.. n%=1.|
00008240  36 34 0d 3a 7a 1a 20 20  6d 25 3d 64 72 61 77 70  |64.:z.  m%=drawp|
00008250  6f 73 25 3f 28 6e 25 2a  32 2d 31 29 0d 3a 84 0f  |os%?(n%*2-1).:..|
00008260  20 20 e7 20 6d 25 3c 3e  30 20 8c 0d 3a 8e 4d 20  |  . m%<>0 ..:.M |
00008270  20 20 20 64 72 61 77 24  28 6e 25 29 3d 22 20 22  |   draw$(n%)=" "|
00008280  2b 6e 61 6d 65 73 24 28  64 72 61 77 70 6f 73 25  |+names$(drawpos%|
00008290  3f 28 6e 25 2a 32 2d 31  29 29 2b 22 20 26 20 22  |?(n%*2-1))+" & "|
000082a0  2b 6e 61 6d 65 73 24 28  64 72 61 77 70 6f 73 25  |+names$(drawpos%|
000082b0  3f 28 6e 25 2a 32 29 29  0d 3a 98 07 20 20 cd 0d  |?(n%*2)).:..  ..|
000082c0  3a a2 05 ed 0d 3a ac 05  e1 0d 3a b6 05 3a 0d 3a  |:....:....:..:.:|
000082d0  c0 1d dd 20 f2 73 65 74  5f 64 72 61 77 5f 6e 61  |... .set_draw_na|
000082e0  6d 65 73 5f 73 69 6e 67  6c 65 73 0d 3a ca 08 ea  |mes_singles.:...|
000082f0  20 6e 25 0d 3a d4 0e e3  20 6e 25 3d 31 b8 31 32  | n%.:... n%=1.12|
00008300  38 0d 3a de 15 20 20 e7  20 70 65 72 5f 74 65 61  |8.:..  . per_tea|
00008310  6d 25 3d 30 20 8c 0d 3a  e8 18 20 20 20 20 64 72  |m%=0 ..:..    dr|
00008320  61 77 24 28 6e 25 29 3d  22 20 62 79 65 22 0d 3a  |aw$(n%)=" bye".:|
00008330  f2 07 20 20 cc 0d 3a fc  1a 20 20 20 20 64 72 61  |..  ..:..    dra|
00008340  77 24 28 6e 25 29 3d 22  20 2d 2d 2d 2d 2d 22 0d  |w$(n%)=" -----".|
00008350  3b 06 07 20 20 cd 0d 3b  10 05 ed 0d 3b 1a 0f f2  |;..  ..;....;...|
00008360  61 64 64 5f 65 78 74 72  61 73 0d 3b 24 14 e7 20  |add_extras.;$.. |
00008370  74 6f 74 6e 61 6d 65 73  25 3c 3e 30 20 8c 0d 3b  |totnames%<>0 ..;|
00008380  2e 17 20 20 e3 20 6e 25  3d 31 b8 20 74 6f 74 6e  |..  . n%=1. totn|
00008390  61 6d 65 73 25 0d 3b 38  29 20 20 20 20 64 72 61  |ames%.;8)    dra|
000083a0  77 24 28 64 72 61 77 70  6f 73 25 3f 6e 25 29 3d  |w$(drawpos%?n%)=|
000083b0  22 20 22 2b 6e 61 6d 65  73 24 28 6e 25 29 0d 3b  |" "+names$(n%).;|
000083c0  42 07 20 20 ed 0d 3b 4c  05 cd 0d 3b 56 14 e7 20  |B.  ..;L...;V.. |
000083d0  74 6f 74 73 65 65 64 73  25 3c 3e 30 20 8c 0d 3b  |totseeds%<>0 ..;|
000083e0  60 16 20 20 e3 20 6e 25  3d 31 b8 74 6f 74 73 65  |`.  . n%=1.totse|
000083f0  65 64 73 25 0d 3b 6a 41  20 20 20 20 64 72 61 77  |eds%.;jA    draw|
00008400  24 28 64 72 61 77 70 6f  73 25 3f 28 6e 25 2b 74  |$(drawpos%?(n%+t|
00008410  6f 74 6e 61 6d 65 73 25  29 29 3d bd 28 6e 25 29  |otnames%))=.(n%)|
00008420  2b 6e 61 6d 65 73 24 28  6e 25 2b 74 6f 74 6e 61  |+names$(n%+totna|
00008430  6d 65 73 25 29 0d 3b 74  07 20 20 ed 0d 3b 7e 05  |mes%).;t.  ..;~.|
00008440  cd 0d 3b 88 05 e1 0d 3b  92 05 3a 0d 3b 9c 13 dd  |..;....;..:.;...|
00008450  20 f2 70 75 74 5f 73 65  65 64 73 5f 69 6e 0d 3b  | .put_seeds_in.;|
00008460  a6 11 ea 20 6e 25 2c 6d  25 2c 62 79 65 73 25 0d  |... n%,m%,byes%.|
00008470  3b b0 27 62 79 65 73 25  3d 74 6f 74 5f 64 72 61  |;.'byes%=tot_dra|
00008480  77 25 2d 74 6f 74 6e 61  6d 65 73 25 2d 74 6f 74  |w%-totnames%-tot|
00008490  73 65 65 64 73 25 0d 3b  ba 17 f2 73 65 74 5f 73  |seeds%.;...set_s|
000084a0  65 65 64 5f 70 6f 73 69  74 69 6f 6e 73 0d 3b c4  |eed_positions.;.|
000084b0  0d 65 78 74 72 61 73 25  3d 30 0d 3b ce 08 6d 25  |.extras%=0.;..m%|
000084c0  3d 30 0d 3b d8 0d e3 20  6e 25 3d 31 b8 31 36 0d  |=0.;... n%=1.16.|
000084d0  3b e2 1b 20 20 e7 20 73  65 65 64 5f 65 78 69 73  |;..  . seed_exis|
000084e0  74 73 25 3f 6e 25 3d 31  20 8c 0d 3b ec 31 20 20  |ts%?n%=1 ..;.1  |
000084f0  20 20 6d 25 2b 3d 31 3a  f4 20 6d 25 20 69 6e 20  |  m%+=1:. m% in |
00008500  56 20 69 66 20 73 65 65  64 73 20 74 6f 20 62 65  |V if seeds to be|
00008510  20 63 6f 6d 70 72 65 73  73 65 64 0d 3b f6 2c 20  | compressed.;., |
00008520  20 20 20 f2 70 75 74 5f  73 65 65 64 5f 69 6e 28  |   .put_seed_in(|
00008530  6e 25 2c 24 28 73 65 65  64 73 25 2b 31 39 2a 28  |n%,$(seeds%+19*(|
00008540  6e 25 2d 31 29 29 29 0d  3c 00 07 20 20 cd 0d 3c  |n%-1))).<..  ..<|
00008550  0a 05 ed 0d 3c 14 05 e1  0d 3c 1e 05 3a 0d 3c 28  |....<....<..:.<(|
00008560  19 dd 20 f2 73 65 74 5f  73 65 65 64 5f 70 6f 73  |.. .set_seed_pos|
00008570  69 74 69 6f 6e 73 0d 3c  32 0b ea 20 52 25 2c 6e  |itions.<2.. R%,n|
00008580  25 0d 3c 3c 11 73 65 65  64 70 6f 73 25 28 31 29  |%.<<.seedpos%(1)|
00008590  3d 30 0d 3c 46 11 73 65  65 64 70 6f 73 25 28 32  |=0.<F.seedpos%(2|
000085a0  29 3d 38 0d 3c 50 0b 52  25 3d b3 28 32 29 0d 3c  |)=8.<P.R%=.(2).<|
000085b0  5a 0c e7 20 52 25 3d 31  20 8c 0d 3c 64 13 20 20  |Z.. R%=1 ..<d.  |
000085c0  73 65 65 64 70 6f 73 25  28 33 29 3d 34 0d 3c 6e  |seedpos%(3)=4.<n|
000085d0  14 20 20 73 65 65 64 70  6f 73 25 28 34 29 3d 31  |.  seedpos%(4)=1|
000085e0  32 0d 3c 78 05 cc 0d 3c  82 13 20 20 73 65 65 64  |2.<x...<..  seed|
000085f0  70 6f 73 25 28 34 29 3d  34 0d 3c 8c 14 20 20 73  |pos%(4)=4.<..  s|
00008600  65 65 64 70 6f 73 25 28  33 29 3d 31 32 0d 3c 96  |eedpos%(3)=12.<.|
00008610  05 cd 0d 3c a0 11 73 65  65 64 70 6f 73 25 28 35  |...<..seedpos%(5|
00008620  29 3d 32 0d 3c aa 11 73  65 65 64 70 6f 73 25 28  |)=2.<..seedpos%(|
00008630  36 29 3d 36 0d 3c b4 12  73 65 65 64 70 6f 73 25  |6)=6.<..seedpos%|
00008640  28 37 29 3d 31 30 0d 3c  be 12 73 65 65 64 70 6f  |(7)=10.<..seedpo|
00008650  73 25 28 38 29 3d 31 34  0d 3c c8 0c e3 20 6e 25  |s%(8)=14.<... n%|
00008660  3d 35 b8 38 0d 3c d2 0f  20 20 52 25 3d b3 28 34  |=5.8.<..  R%=.(4|
00008670  29 2b 34 0d 3c dc 22 20  20 c8 94 20 73 65 65 64  |)+4.<."  .. seed|
00008680  70 6f 73 25 28 6e 25 29  2c 73 65 65 64 70 6f 73  |pos%(n%),seedpos|
00008690  25 28 52 25 29 0d 3c e6  05 ed 0d 3c f0 11 73 65  |%(R%).<....<..se|
000086a0  65 64 70 6f 73 25 28 39  29 3d 31 0d 3c fa 12 73  |edpos%(9)=1.<..s|
000086b0  65 65 64 70 6f 73 25 28  31 30 29 3d 33 0d 3d 04  |eedpos%(10)=3.=.|
000086c0  12 73 65 65 64 70 6f 73  25 28 31 31 29 3d 35 0d  |.seedpos%(11)=5.|
000086d0  3d 0e 12 73 65 65 64 70  6f 73 25 28 31 32 29 3d  |=..seedpos%(12)=|
000086e0  37 0d 3d 18 12 73 65 65  64 70 6f 73 25 28 31 33  |7.=..seedpos%(13|
000086f0  29 3d 39 0d 3d 22 13 73  65 65 64 70 6f 73 25 28  |)=9.=".seedpos%(|
00008700  31 34 29 3d 31 31 0d 3d  2c 13 73 65 65 64 70 6f  |14)=11.=,.seedpo|
00008710  73 25 28 31 35 29 3d 31  33 0d 3d 36 13 73 65 65  |s%(15)=13.=6.see|
00008720  64 70 6f 73 25 28 31 36  29 3d 31 35 0d 3d 40 0d  |dpos%(16)=15.=@.|
00008730  e3 20 6e 25 3d 39 b8 31  36 0d 3d 4a 0f 20 20 52  |. n%=9.16.=J.  R|
00008740  25 3d b3 28 38 29 2b 38  0d 3d 54 22 20 20 c8 94  |%=.(8)+8.=T"  ..|
00008750  20 73 65 65 64 70 6f 73  25 28 6e 25 29 2c 73 65  | seedpos%(n%),se|
00008760  65 64 70 6f 73 25 28 52  25 29 0d 3d 5e 05 ed 0d  |edpos%(R%).=^...|
00008770  3d 68 12 c8 8e 20 74 6f  74 5f 64 72 61 77 25 20  |=h... tot_draw% |
00008780  ca 0d 3d 72 0a 20 20 c9  20 34 3a 0d 3d 7c 10 20  |..=r.  . 4:.=|. |
00008790  20 20 20 e3 20 6e 25 3d  31 b8 34 0d 3d 86 25 20  |   . n%=1.4.=.% |
000087a0  20 20 20 20 20 73 65 65  64 70 6f 73 25 28 6e 25  |     seedpos%(n%|
000087b0  29 3d 73 65 65 64 70 6f  73 25 28 6e 25 29 2f 34  |)=seedpos%(n%)/4|
000087c0  0d 3d 90 09 20 20 20 20  ed 0d 3d 9a 0a 20 20 c9  |.=..    ..=..  .|
000087d0  20 38 3a 0d 3d a4 10 20  20 20 20 e3 20 6e 25 3d  | 8:.=..    . n%=|
000087e0  31 b8 38 0d 3d ae 25 20  20 20 20 20 20 73 65 65  |1.8.=.%      see|
000087f0  64 70 6f 73 25 28 6e 25  29 3d 73 65 65 64 70 6f  |dpos%(n%)=seedpo|
00008800  73 25 28 6e 25 29 2f 32  0d 3d b8 09 20 20 20 20  |s%(n%)/2.=..    |
00008810  ed 0d 3d c2 05 cb 0d 3d  cc 05 e1 0d 3d d6 05 3a  |..=....=....=..:|
00008820  0d 3d e0 1f dd 20 f2 70  75 74 5f 73 65 65 64 5f  |.=... .put_seed_|
00008830  69 6e 28 73 65 65 64 25  2c 6e 61 6d 65 24 29 0d  |in(seed%,name$).|
00008840  3d ea 1e 70 6f 73 25 3d  a4 70 6f 73 5f 66 72 6f  |=..pos%=.pos_fro|
00008850  6d 5f 73 65 65 64 28 73  65 65 64 25 29 0d 3d f4  |m_seed(seed%).=.|
00008860  23 64 72 61 77 70 6f 73  25 3f 28 73 65 65 64 25  |#drawpos%?(seed%|
00008870  2b 74 6f 74 6e 61 6d 65  73 25 29 3d 70 6f 73 25  |+totnames%)=pos%|
00008880  0d 3d fe 1e 64 72 61 77  24 28 70 6f 73 25 29 3d  |.=..draw$(pos%)=|
00008890  bd 28 73 65 65 64 25 29  2b 6e 61 6d 65 24 0d 3e  |.(seed%)+name$.>|
000088a0  08 29 e7 20 73 65 65 64  25 3c 3d 62 79 65 73 25  |.). seed%<=byes%|
000088b0  20 8c 20 64 72 61 77 24  28 70 6f 73 25 2b 31 29  | . draw$(pos%+1)|
000088c0  3d 22 20 42 59 45 22 0d  3e 12 05 e1 0d 3e 1c 05  |=" BYE".>....>..|
000088d0  3a 0d 3e 26 1b dd 20 a4  70 6f 73 5f 66 72 6f 6d  |:.>&.. .pos_from|
000088e0  5f 73 65 65 64 28 73 65  65 64 25 29 0d 3e 30 08  |_seed(seed%).>0.|
000088f0  ea 20 73 25 0d 3e 3a 15  73 25 3d 74 6f 74 5f 64  |. s%.>:.s%=tot_d|
00008900  72 61 77 25 20 81 20 31  36 0d 3e 44 11 e7 20 73  |raw% . 16.>D.. s|
00008910  25 3d 30 20 8c 20 73 25  3d 31 0d 3e 4e 19 3d 73  |%=0 . s%=1.>N.=s|
00008920  25 2a 73 65 65 64 70 6f  73 25 28 73 65 65 64 25  |%*seedpos%(seed%|
00008930  29 2b 31 0d 3e 58 05 3a  0d 3e 62 11 dd 20 a4 66  |)+1.>X.:.>b.. .f|
00008940  69 6e 64 5f 66 6f 6e 74  73 0d 3e 6c 07 ea 20 85  |ind_fonts.>l.. .|
00008950  0d 3e 76 47 ee 20 85 20  ea 3a f2 72 65 70 6f 72  |.>vG. . .:.repor|
00008960  74 28 22 55 6e 61 62 6c  65 20 74 6f 20 66 69 6e  |t("Unable to fin|
00008970  64 20 66 6f 6e 74 20 27  54 72 69 6e 69 74 79 27  |d font 'Trinity'|
00008980  20 46 49 4c 45 20 4e 4f  54 20 53 41 56 45 44 22  | FILE NOT SAVED"|
00008990  2c 31 36 29 3a 3d a3 0d  3e 80 36 c8 99 20 22 46  |,16):=..>.6.. "F|
000089a0  6f 6e 74 5f 46 69 6e 64  46 6f 6e 74 22 2c 2c 22  |ont_FindFont",,"|
000089b0  54 72 69 6e 69 74 79 2e  4d 65 64 69 75 6d 22 2c  |Trinity.Medium",|
000089c0  31 35 30 2c 31 38 30 20  b8 20 66 31 25 0d 3e 8a  |150,180 . f1%.>.|
000089d0  34 c8 99 20 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |4.. "Font_FindFo|
000089e0  6e 74 22 2c 2c 22 54 72  69 6e 69 74 79 2e 42 6f  |nt",,"Trinity.Bo|
000089f0  6c 64 22 2c 32 34 30 2c  32 34 30 20 b8 20 66 32  |ld",240,240 . f2|
00008a00  25 0d 3e 94 35 c8 99 20  22 46 6f 6e 74 5f 46 69  |%.>.5.. "Font_Fi|
00008a10  6e 64 46 6f 6e 74 22 2c  2c 22 54 72 69 6e 69 74  |ndFont",,"Trinit|
00008a20  79 2e 4d 65 64 69 75 6d  22 2c 39 36 2c 31 32 30  |y.Medium",96,120|
00008a30  20 b8 20 66 33 25 0d 3e  9e 06 3d b9 0d 3e a8 05  | . f3%.>..=..>..|
00008a40  3a 0d 3e b2 11 dd 20 f2  70 72 69 6e 74 5f 64 72  |:.>... .print_dr|
00008a50  61 77 0d 3e bc 0c ea 20  66 6f 6e 74 73 25 0d 3e  |aw.>... fonts%.>|
00008a60  c6 23 e7 20 73 75 62 6f  70 74 32 25 3d 2d 31 20  |.#. subopt2%=-1 |
00008a70  80 20 70 65 72 5f 74 65  61 6d 25 3d 30 20 8c 20  |. per_team%=0 . |
00008a80  e1 0d 3e d0 2a ea 20 77  25 2c 68 25 2c 6c 25 2c  |..>.*. w%,h%,l%,|
00008a90  62 25 2c 72 25 2c 74 25  2c 66 72 6f 6d 25 2c 74  |b%,r%,t%,from%,t|
00008aa0  6f 25 2c 6d 61 78 5f 6c  65 6e 25 0d 3e da 42 ff  |o%,max_len%.>.B.|
00008ab0  20 28 22 52 4d 45 6e 73  75 72 65 20 50 44 72 69  | ("RMEnsure PDri|
00008ac0  76 65 72 20 30 20 45 52  52 4f 52 20 32 35 35 20  |ver 0 ERROR 255 |
00008ad0  4e 6f 20 70 72 69 6e 74  65 72 20 64 72 69 76 65  |No printer drive|
00008ae0  72 20 69 6e 73 74 61 6c  6c 65 64 22 29 0d 3e e4  |r installed").>.|
00008af0  16 66 6f 6e 74 73 25 3d  a4 66 69 6e 64 5f 66 6f  |.fonts%=.find_fo|
00008b00  6e 74 73 0d 3e ee 13 e7  20 ac 28 66 6f 6e 74 73  |nts.>... .(fonts|
00008b10  25 29 20 8c 20 e1 0d 3e  f8 0f f2 6c 6f 6e 67 65  |%) . ..>...longe|
00008b20  73 74 28 b9 29 0d 3f 02  21 e7 20 6d 61 78 5f 6c  |st(.).?.!. max_l|
00008b30  65 6e 25 3c 32 30 30 20  8c 20 6d 61 78 5f 6c 65  |en%<200 . max_le|
00008b40  6e 25 3d 32 30 30 0d 3f  0c 21 e7 20 6d 61 78 5f  |n%=200.?.!. max_|
00008b50  6c 65 6e 25 3e 34 30 30  20 8c 20 6d 61 78 5f 6c  |len%>400 . max_l|
00008b60  65 6e 25 3d 34 30 30 0d  3f 16 15 c8 99 20 22 48  |en%=400.?.... "H|
00008b70  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 3f 20 04  |ourglass_On".? .|
00008b80  0d 3f 2a 15 70 66 25 3d  ae 28 22 50 52 49 4e 54  |.?*.pf%=.("PRINT|
00008b90  45 52 3a 22 29 0d 3f 34  04 0d 3f 3e 0d e7 20 70  |ER:").?4..?>.. p|
00008ba0  66 25 3d 30 20 8c 0d 3f  48 26 20 20 f2 72 65 70  |f%=0 ..?H&  .rep|
00008bb0  6f 72 74 28 22 50 44 72  69 76 65 72 20 6a 6f 62  |ort("PDriver job|
00008bc0  3d 20 22 2b c3 70 66 25  2c 31 37 29 0d 3f 52 07  |= "+.pf%,17).?R.|
00008bd0  20 20 e1 0d 3f 5c 05 cd  0d 3f 66 28 c8 99 20 22  |  ..?\...?f(.. "|
00008be0  50 44 72 69 76 65 72 5f  53 65 6c 65 63 74 4a 6f  |PDriver_SelectJo|
00008bf0  62 22 2c 70 66 25 2c 22  43 6f 6d 70 4a 6f 62 22  |b",pf%,"CompJob"|
00008c00  0d 3f 70 07 ea 20 85 0d  3f 7a 4d ee 20 85 20 ea  |.?p.. ..?zM. . .|
00008c10  3a f7 20 85 3a c8 99 20  22 50 44 72 69 76 65 72  |:. .:.. "PDriver|
00008c20  5f 41 62 6f 72 74 4a 6f  62 22 2c 70 66 25 3a d9  |_AbortJob",pf%:.|
00008c30  23 70 66 25 3a c8 99 20  22 48 6f 75 72 67 6c 61  |#pf%:.. "Hourgla|
00008c40  73 73 5f 4f 66 66 22 3a  f2 65 72 72 6f 72 28 f6  |ss_Off":.error(.|
00008c50  24 29 3a e1 0d 3f 84 2e  c8 99 20 22 50 44 72 69  |$):..?.... "PDri|
00008c60  76 65 72 5f 50 61 67 65  53 69 7a 65 22 20 b8 20  |ver_PageSize" . |
00008c70  2c 77 25 2c 68 25 2c 6c  25 2c 62 25 2c 72 25 2c  |,w%,h%,l%,b%,r%,|
00008c80  74 25 0d 3f 8e 0c 78 25  3d 37 32 30 30 30 0d 3f  |t%.?..x%=72000.?|
00008c90  98 04 0d 3f a2 45 21 72  65 63 74 25 3d 30 20 20  |...?.E!rect%=0  |
00008ca0  20 20 20 20 20 3a f4 20  34 20 77 6f 72 64 20 62  |     :. 4 word b|
00008cb0  6c 6f 63 6b 20 63 6f 6e  74 61 69 6e 69 6e 67 20  |lock containing |
00008cc0  72 65 63 74 61 6e 67 6c  65 20 74 6f 20 62 65 20  |rectangle to be |
00008cd0  70 6c 6f 74 74 65 64 0d  3f ac 0d 72 65 63 74 25  |plotted.?..rect%|
00008ce0  21 34 3d 30 0d 3f b6 1b  72 65 63 74 25 21 38 3d  |!4=0.?..rect%!8=|
00008cf0  31 34 35 30 20 20 20 3a  f4 20 6d 61 78 20 78 0d  |1450   :. max x.|
00008d00  3f c0 1b 72 65 63 74 25  21 31 32 3d 31 39 30 30  |?..rect%!12=1900|
00008d10  20 20 3a f4 20 6d 61 78  20 79 0d 3f ca 04 0d 3f  |  :. max y.?...?|
00008d20  d4 42 21 74 72 61 6e 73  25 3d 31 3c 3c 31 36 20  |.B!trans%=1<<16 |
00008d30  20 3a f4 20 34 20 77 6f  72 64 20 62 6c 6f 63 6b  | :. 4 word block|
00008d40  20 63 6f 6e 74 61 69 6e  69 6e 67 20 74 72 61 6e  | containing tran|
00008d50  73 66 6f 72 6d 61 74 69  6f 6e 20 74 61 62 6c 65  |sformation table|
00008d60  0d 3f de 0e 74 72 61 6e  73 25 21 34 3d 30 0d 3f  |.?..trans%!4=0.?|
00008d70  e8 0e 74 72 61 6e 73 25  21 38 3d 30 0d 3f f2 13  |..trans%!8=0.?..|
00008d80  74 72 61 6e 73 25 21 31  32 3d 31 3c 3c 31 36 0d  |trans%!12=1<<16.|
00008d90  3f fc 04 0d 40 06 3d 21  70 6c 6f 74 61 74 25 3d  |?...@.=!plotat%=|
00008da0  6c 25 3a 70 6c 6f 74 61  74 25 21 34 3d 62 25 3a  |l%:plotat%!4=b%:|
00008db0  f4 20 70 6c 6f 74 20 70  6f 73 69 74 69 6f 6e 20  |. plot position |
00008dc0  2d 20 73 74 61 72 74 20  61 74 20 28 30 2c 30 29  |- start at (0,0)|
00008dd0  0d 40 10 04 0d 40 1a 34  f4 20 26 46 46 46 46 46  |.@...@.4. &FFFFF|
00008de0  46 30 30 20 2d 20 62 61  63 6b 67 72 6f 75 6e 64  |F00 - background|
00008df0  20 63 6f 6c 6f 75 72 20  69 6e 20 66 6f 72 6d 20  | colour in form |
00008e00  42 42 47 47 52 52 58 58  0d 40 24 14 e7 20 70 65  |BBGGRRXX.@$.. pe|
00008e10  72 5f 74 65 61 6d 25 3c  3e 30 20 8c 0d 40 2e 0d  |r_team%<>0 ..@..|
00008e20  20 20 66 72 6f 6d 25 3d  31 0d 40 38 0b 20 20 74  |  from%=1.@8.  t|
00008e30  6f 25 3d 31 0d 40 42 05  cc 0d 40 4c 14 20 20 e7  |o%=1.@B...@L.  .|
00008e40  20 73 75 62 6f 70 74 32  25 3d 30 20 8c 0d 40 56  | subopt2%=0 ..@V|
00008e50  0f 20 20 20 20 66 72 6f  6d 25 3d 31 0d 40 60 15  |.    from%=1.@`.|
00008e60  20 20 20 20 74 6f 25 3d  71 75 61 72 74 65 72 73  |    to%=quarters|
00008e70  25 0d 40 6a 07 20 20 cc  0d 40 74 16 20 20 20 20  |%.@j.  ..@t.    |
00008e80  66 72 6f 6d 25 3d 73 75  62 6f 70 74 32 25 0d 40  |from%=subopt2%.@|
00008e90  7e 14 20 20 20 20 74 6f  25 3d 73 75 62 6f 70 74  |~.    to%=subopt|
00008ea0  32 25 0d 40 88 07 20 20  cd 0d 40 92 05 cd 0d 40  |2%.@..  ..@....@|
00008eb0  9c 0a 62 78 25 3d 32 35  0d 40 a6 17 e3 20 71 75  |..bx%=25.@... qu|
00008ec0  61 72 74 73 25 3d 66 72  6f 6d 25 b8 74 6f 25 0d  |arts%=from%.to%.|
00008ed0  40 b0 41 20 20 c8 99 20  22 50 44 72 69 76 65 72  |@.A  .. "PDriver|
00008ee0  5f 47 69 76 65 52 65 63  74 61 6e 67 6c 65 22 2c  |_GiveRectangle",|
00008ef0  30 2c 72 65 63 74 25 2c  74 72 61 6e 73 25 2c 70  |0,rect%,trans%,p|
00008f00  6c 6f 74 61 74 25 2c 26  46 46 46 46 46 46 30 30  |lotat%,&FFFFFF00|
00008f10  0d 40 ba 30 20 20 c8 99  20 22 50 44 72 69 76 65  |.@.0  .. "PDrive|
00008f20  72 5f 44 72 61 77 50 61  67 65 22 2c 31 2c 62 6c  |r_DrawPage",1,bl|
00008f30  6f 63 6b 25 2c 30 2c 30  20 b8 20 6d 6f 72 65 25  |ock%,0,0 . more%|
00008f40  0d 40 c4 0e 20 20 c8 95  20 6d 6f 72 65 25 0d 40  |.@..  .. more%.@|
00008f50  ce 17 20 20 20 20 e7 20  70 65 72 5f 74 65 61 6d  |..    . per_team|
00008f60  25 3d 30 20 8c 0d 40 d8  21 20 20 20 20 20 20 f2  |%=0 ..@.!      .|
00008f70  70 72 69 6e 74 5f 71 75  61 72 74 65 72 28 71 75  |print_quarter(qu|
00008f80  61 72 74 73 25 29 0d 40  e2 09 20 20 20 20 cc 0d  |arts%).@..    ..|
00008f90  40 ec 16 20 20 20 20 20  20 f2 70 72 69 6e 74 5f  |@..      .print_|
00008fa0  74 65 61 6d 73 0d 40 f6  09 20 20 20 20 cd 0d 41  |teams.@..    ..A|
00008fb0  00 31 20 20 20 20 c8 99  20 22 50 44 72 69 76 65  |.1    .. "PDrive|
00008fc0  72 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |r_GetRectangle",|
00008fd0  2c 62 6c 6f 63 6b 25 20  b8 20 6d 6f 72 65 25 0d  |,block% . more%.|
00008fe0  41 0a 07 20 20 ce 0d 41  14 0d ed 20 71 75 61 72  |A..  ..A... quar|
00008ff0  74 73 25 0d 41 1e 1b c8  99 20 22 50 44 72 69 76  |ts%.A.... "PDriv|
00009000  65 72 5f 45 6e 64 4a 6f  62 22 2c 70 66 25 0d 41  |er_EndJob",pf%.A|
00009010  28 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |(... "Hourglass_|
00009020  4f 66 66 22 0d 41 32 07  f7 20 85 0d 41 3c 09 d9  |Off".A2.. ..A<..|
00009030  23 70 66 25 0d 41 46 1a  c8 99 20 22 46 6f 6e 74  |#pf%.AF... "Font|
00009040  5f 4c 6f 73 65 46 6f 6e  74 22 2c 66 31 25 0d 41  |_LoseFont",f1%.A|
00009050  50 1a c8 99 20 22 46 6f  6e 74 5f 4c 6f 73 65 46  |P... "Font_LoseF|
00009060  6f 6e 74 22 2c 66 32 25  0d 41 5a 1a c8 99 20 22  |ont",f2%.AZ... "|
00009070  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 66  |Font_LoseFont",f|
00009080  33 25 0d 41 64 05 e1 0d  41 6e 05 3a 0d 41 78 13  |3%.Ad...An.:.Ax.|
00009090  dd 20 f2 6c 6f 6e 67 65  73 74 28 4f 53 25 29 0d  |. .longest(OS%).|
000090a0  41 82 38 f4 20 72 65 74  75 72 6e 73 20 74 68 65  |A.8. returns the|
000090b0  20 6c 65 6e 67 74 68 20  6f 66 20 74 68 65 20 6c  | length of the l|
000090c0  6f 6e 67 65 73 74 20 27  6e 61 6d 65 27 20 69 6e  |ongest 'name' in|
000090d0  20 70 6f 69 6e 74 73 0d  41 8c 16 6d 61 78 5f 6c  | points.A..max_l|
000090e0  65 6e 25 3d 30 3a 6d 61  78 24 3d 22 22 0d 41 96  |en%=0:max$="".A.|
000090f0  0e e3 20 6e 25 3d 31 b8  31 32 38 0d 41 a0 1c 20  |.. n%=1.128.A.. |
00009100  20 61 25 3d a4 6c 65 6e  28 a4 73 65 65 64 28 6e  | a%=.len(.seed(n|
00009110  25 29 2c 66 33 25 29 0d  41 aa 30 20 20 e7 20 61  |%),f3%).A.0  . a|
00009120  25 3e 6d 61 78 5f 6c 65  6e 25 20 8c 20 6d 61 78  |%>max_len% . max|
00009130  5f 6c 65 6e 25 3d 61 25  3a 6d 61 78 24 3d 64 72  |_len%=a%:max$=dr|
00009140  61 77 24 28 6e 25 29 0d  41 b4 08 ed 20 6e 25 0d  |aw$(n%).A... n%.|
00009150  41 be 0b e7 20 4f 53 25  20 8c 0d 41 c8 3f 20 20  |A... OS% ..A.?  |
00009160  6d 61 78 5f 6c 65 6e 25  3d 28 28 6d 61 78 5f 6c  |max_len%=((max_l|
00009170  65 6e 25 2a 31 38 30 29  20 81 20 37 32 30 30 30  |en%*180) . 72000|
00009180  29 2b 31 30 3a 20 f4 20  6d 69 6c 6c 69 70 6f 69  |)+10: . millipoi|
00009190  6e 74 73 20 74 6f 20 4f  53 0d 41 d2 05 cc 0d 41  |nts to OS.A....A|
000091a0  dc 45 20 20 6d 61 78 5f  6c 65 6e 25 3d 28 6d 61  |.E  max_len%=(ma|
000091b0  78 5f 6c 65 6e 25 2f 31  2e 35 35 29 2b 32 30 30  |x_len%/1.55)+200|
000091c0  3a 20 20 20 20 20 20 20  20 20 20 20 f4 20 73 65  |:           . se|
000091d0  74 20 75 70 20 66 6f 72  20 64 72 61 77 20 66 69  |t up for draw fi|
000091e0  6c 65 73 0d 41 e6 05 cd  0d 41 f0 05 e1 0d 41 fa  |les.A....A....A.|
000091f0  05 3a 0d 42 04 14 dd 20  a4 6c 65 6e 28 61 24 2c  |.:.B... .len(a$,|
00009200  66 6f 6e 74 25 29 0d 42  0e 10 ea 20 6c 65 6e 2c  |font%).B... len,|
00009210  73 70 6c 69 74 25 0d 42  18 0d 24 6c 65 6e 73 25  |split%.B..$lens%|
00009220  3d 61 24 0d 42 22 1b c8  99 20 22 46 6f 6e 74 5f  |=a$.B"... "Font_|
00009230  53 65 74 46 6f 6e 74 22  2c 66 6f 6e 74 25 0d 42  |SetFont",font%.B|
00009240  2c 43 c8 99 20 22 46 6f  6e 74 5f 53 74 72 69 6e  |,C.. "Font_Strin|
00009250  67 57 69 64 74 68 22 2c  2c 6c 65 6e 73 25 2c 33  |gWidth",,lens%,3|
00009260  3c 3c 32 34 2c 33 3c 3c  32 34 2c 2d 31 2c 32 35  |<<24,3<<24,-1,25|
00009270  35 20 b8 20 2c 2c 6c 65  6e 2c 2c 73 70 6c 69 74  |5 . ,,len,,split|
00009280  25 0d 42 36 30 e7 20 73  70 6c 69 74 25 3c 3e a9  |%.B60. split%<>.|
00009290  28 61 24 29 20 8c 20 f2  72 65 70 6f 72 74 28 61  |(a$) . .report(a|
000092a0  24 2b 22 3a 22 2b c3 73  70 6c 69 74 25 2c 31 37  |$+":"+.split%,17|
000092b0  29 0d 42 40 08 3d 6c 65  6e 0d 42 4a 05 3a 0d 42  |).B@.=len.BJ.:.B|
000092c0  54 11 dd 20 f2 63 6f 6c  6f 75 72 28 78 25 29 0d  |T.. .colour(x%).|
000092d0  42 5e 1f c8 99 20 22 43  6f 6c 6f 75 72 54 72 61  |B^... "ColourTra|
000092e0  6e 73 5f 53 65 74 47 43  4f 4c 22 2c 78 25 0d 42  |ns_SetGCOL",x%.B|
000092f0  68 05 e1 0d 42 72 05 3a  0d 42 7c 10 dd 20 f2 74  |h...Br.:.B|.. .t|
00009300  69 74 6c 65 28 78 25 29  0d 42 86 08 ea 20 61 24  |itle(x%).B... a$|
00009310  0d 42 90 33 61 24 3d bd  28 32 35 29 2b bd 28 31  |.B.3a$=.(25)+.(1|
00009320  33 30 29 2b bd 28 32 30  29 2b 24 74 69 74 6c 65  |30)+.(20)+$title|
00009330  25 2b bd 28 32 35 29 2b  bd 28 31 33 30 29 2b bd  |%+.(25)+.(130)+.|
00009340  28 30 29 0d 42 9a 19 c8  99 20 22 46 6f 6e 74 5f  |(0).B.... "Font_|
00009350  53 65 74 46 6f 6e 74 22  2c 66 32 25 0d 42 a4 22  |SetFont",f2%.B."|
00009360  c8 99 20 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |.. "Font_Paint",|
00009370  2c 61 24 2c 31 36 2c 78  25 2c 31 38 35 30 0d 42  |,a$,16,x%,1850.B|
00009380  ae 05 e1 0d 42 b8 05 3a  0d 42 c2 1c dd 20 f2 70  |....B..:.B... .p|
00009390  72 69 6e 74 5f 71 75 61  72 74 65 72 28 71 75 61  |rint_quarter(qua|
000093a0  72 74 25 29 0d 42 cc 11  ea 20 6e 25 2c 62 61 73  |rt%).B... n%,bas|
000093b0  65 25 2c 6d 25 0d 42 d6  1f 62 61 73 65 25 3d 28  |e%,m%.B..base%=(|
000093c0  71 75 61 72 74 25 2d 31  29 2a 70 65 72 5f 71 75  |quart%-1)*per_qu|
000093d0  61 72 74 25 0d 42 e0 0e  f2 63 6f 6c 6f 75 72 28  |art%.B...colour(|
000093e0  30 29 0d 42 ea 32 c8 99  20 22 43 6f 6c 6f 75 72  |0).B.2.. "Colour|
000093f0  54 72 61 6e 73 5f 53 65  74 46 6f 6e 74 43 6f 6c  |Trans_SetFontCol|
00009400  6f 75 72 73 22 2c 2c 26  46 46 46 46 46 46 30 30  |ours",,&FFFFFF00|
00009410  2c 30 2c 37 0d 42 f4 0f  f2 74 69 74 6c 65 28 62  |,0,7.B...title(b|
00009420  78 25 29 0d 42 fe 1d f2  68 65 61 64 65 72 28 71  |x%).B...header(q|
00009430  75 61 72 74 25 2c 71 75  61 72 74 65 72 73 25 29  |uart%,quarters%)|
00009440  0d 43 08 19 c8 99 20 22  46 6f 6e 74 5f 53 65 74  |.C.... "Font_Set|
00009450  46 6f 6e 74 22 2c 66 33  25 0d 43 12 25 e3 20 6e  |Font",f3%.C.%. n|
00009460  25 3d 62 61 73 65 25 2b  31 b8 62 61 73 65 25 2b  |%=base%+1.base%+|
00009470  70 65 72 5f 71 75 61 72  74 25 20 88 20 32 0d 43  |per_quart% . 2.C|
00009480  1c 1d 20 20 e7 20 64 72  61 77 24 28 6e 25 2b 31  |..  . draw$(n%+1|
00009490  29 3c 3e 22 20 62 79 65  22 20 8c 0d 43 26 10 20  |)<>" bye" ..C&. |
000094a0  20 20 20 e3 20 6d 25 3d  30 b8 31 0d 43 30 4a 20  |   . m%=0.1.C0J |
000094b0  20 20 20 20 20 c8 99 20  22 46 6f 6e 74 5f 50 61  |     .. "Font_Pa|
000094c0  69 6e 74 22 2c 2c a4 73  65 65 64 28 6e 25 2b 6d  |int",,.seed(n%+m|
000094d0  25 29 2c 31 36 2c 62 78  25 2c 31 37 30 30 2d 28  |%),16,bx%,1700-(|
000094e0  6e 25 2b 6d 25 2d 62 61  73 65 25 29 2a 35 30 2b  |n%+m%-base%)*50+|
000094f0  73 79 25 2b 34 0d 43 3a  29 20 20 20 20 20 20 ec  |sy%+4.C:)      .|
00009500  20 62 78 25 2c 31 36 39  35 2d 28 6e 25 2b 6d 25  | bx%,1695-(n%+m%|
00009510  2d 62 61 73 65 25 29 2a  35 30 2b 73 79 25 0d 43  |-base%)*50+sy%.C|
00009520  44 18 20 20 20 20 20 20  f0 20 31 2c 6d 61 78 5f  |D.      . 1,max_|
00009530  6c 65 6e 25 2c 30 0d 43  4e 09 20 20 20 20 ed 0d  |len%,0.CN.    ..|
00009540  43 58 10 20 20 20 20 f0  20 31 2c 30 2c 35 30 0d  |CX.    . 1,0,50.|
00009550  43 62 2d 20 20 20 20 ec  20 6d 61 78 5f 6c 65 6e  |Cb-    . max_len|
00009560  25 2b 62 78 25 2c 31 36  37 30 2d 28 6e 25 2d 62  |%+bx%,1670-(n%-b|
00009570  61 73 65 25 29 2a 35 30  2b 73 79 25 0d 43 6c 11  |ase%)*50+sy%.Cl.|
00009580  20 20 20 20 f0 20 31 2c  32 30 30 2c 30 0d 43 76  |    . 1,200,0.Cv|
00009590  07 20 20 cc 0d 43 80 46  20 20 20 20 c8 99 20 22  |.  ..C.F    .. "|
000095a0  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 2c a4 73 65  |Font_Paint",,.se|
000095b0  65 64 28 6e 25 29 2c 31  36 2c 32 30 30 2b 62 78  |ed(n%),16,200+bx|
000095c0  25 2c 31 36 37 35 2d 28  6e 25 2d 62 61 73 65 25  |%,1675-(n%-base%|
000095d0  29 2a 35 30 2b 73 79 25  2b 34 0d 43 8a 28 20 20  |)*50+sy%+4.C.(  |
000095e0  20 20 ec 20 32 30 30 2b  62 78 25 2c 31 36 37 30  |  . 200+bx%,1670|
000095f0  2d 28 6e 25 2d 62 61 73  65 25 29 2a 35 30 2b 73  |-(n%-base%)*50+s|
00009600  79 25 0d 43 94 16 20 20  20 20 f0 20 31 2c 6d 61  |y%.C..    . 1,ma|
00009610  78 5f 6c 65 6e 25 2c 30  0d 43 9e 07 20 20 cd 0d  |x_len%,0.C..  ..|
00009620  43 a8 05 ed 0d 43 b2 0d  6d 25 3d 31 3a 6e 25 3d  |C....C..m%=1:n%=|
00009630  31 0d 43 bc 14 c8 95 20  6d 25 3c 70 65 72 5f 71  |1.C.... m%<per_q|
00009640  75 61 72 74 25 0d 43 c6  0d 20 20 6d 25 3d 6d 25  |uart%.C..  m%=m%|
00009650  2a 32 0d 43 d0 0b 20 20  6e 25 2b 3d 31 0d 43 da  |*2.C..  n%+=1.C.|
00009660  05 ce 0d 43 e4 0c e7 20  6e 25 3e 31 20 8c 0d 43  |...C... n%>1 ..C|
00009670  ee 47 20 20 f2 6c 69 6e  65 73 28 6e 25 2a 32 30  |.G  .lines(n%*20|
00009680  30 2b 6d 61 78 5f 6c 65  6e 25 2b 62 78 25 2d 32  |0+max_len%+bx%-2|
00009690  30 30 2c 31 36 37 30 2d  32 35 2a 70 65 72 5f 71  |00,1670-25*per_q|
000096a0  75 61 72 74 25 2b 73 79  25 2c 70 65 72 5f 71 75  |uart%+sy%,per_qu|
000096b0  61 72 74 25 29 0d 43 f8  05 cd 0d 44 02 05 e1 0d  |art%).C....D....|
000096c0  44 0c 05 3a 0d 44 16 0f  dd 20 a4 73 65 65 64 28  |D..:.D... .seed(|
000096d0  78 25 29 0d 44 20 1c 3d  a4 73 65 65 64 5f 73 74  |x%).D .=.seed_st|
000096e0  72 69 6e 67 28 64 72 61  77 24 28 78 25 29 29 0d  |ring(draw$(x%)).|
000096f0  44 2a 05 3a 0d 44 34 16  dd 20 a4 73 65 65 64 5f  |D*.:.D4.. .seed_|
00009700  73 74 72 69 6e 67 28 73  24 29 0d 44 3e 0b ea 20  |string(s$).D>.. |
00009710  73 65 65 64 25 0d 44 48  0f 73 65 65 64 25 3d 97  |seed%.DH.seed%=.|
00009720  28 73 24 29 0d 44 52 0d  73 24 3d c1 73 24 2c 32  |(s$).DR.s$=.s$,2|
00009730  29 0d 44 5c 24 e7 20 73  65 65 64 25 3c 31 37 20  |).D\$. seed%<17 |
00009740  8c 20 73 24 2b 3d 22 20  28 22 2b c3 73 65 65 64  |. s$+=" ("+.seed|
00009750  25 2b 22 29 22 0d 44 66  07 3d 73 24 0d 44 70 05  |%+")".Df.=s$.Dp.|
00009760  3a 0d 44 7a 16 dd 20 f2  6c 69 6e 65 73 28 78 25  |:.Dz.. .lines(x%|
00009770  2c 79 25 2c 7a 25 29 0d  44 84 16 ec 20 78 25 2c  |,y%,z%).D... x%,|
00009780  79 25 3a f0 20 31 2c 2d  32 30 30 2c 30 0d 44 8e  |y%:. 1,-200,0.D.|
00009790  0b 78 25 2d 3d 32 30 30  0d 44 98 13 ec 20 78 25  |.x%-=200.D... x%|
000097a0  2c 79 25 2d 7a 25 2f 32  2a 32 35 0d 44 a2 0f f0  |,y%-z%/2*25.D...|
000097b0  20 31 2c 30 2c 7a 25 2a  32 35 0d 44 ac 0c e7 20  | 1,0,z%*25.D... |
000097c0  7a 25 3e 34 20 8c 0d 44  b6 20 20 20 f2 6c 69 6e  |z%>4 ..D.   .lin|
000097d0  65 73 28 78 25 2c 79 25  2d 7a 25 2f 32 2a 32 35  |es(x%,y%-z%/2*25|
000097e0  2c 7a 25 2f 32 29 0d 44  c0 20 20 20 f2 6c 69 6e  |,z%/2).D.   .lin|
000097f0  65 73 28 78 25 2c 79 25  2b 7a 25 2f 32 2a 32 35  |es(x%,y%+z%/2*25|
00009800  2c 7a 25 2f 32 29 0d 44  ca 05 cd 0d 44 d4 05 e1  |,z%/2).D....D...|
00009810  0d 44 de 05 3a 0d 44 e8  13 dd 20 a4 77 6f 72 64  |.D..:.D... .word|
00009820  28 70 6f 69 6e 74 25 29  0d 44 f2 11 e7 20 70 6f  |(point%).D... po|
00009830  69 6e 74 25 3c 3e 30 20  8c 0d 44 fc 19 20 20 3d  |int%<>0 ..D..  =|
00009840  61 72 65 61 25 21 28 70  6f 69 6e 74 25 2a 34 2d  |area%!(point%*4-|
00009850  34 29 0d 45 06 05 cc 0d  45 10 0c 20 20 76 25 3d  |4).E....E..  v%=|
00009860  21 69 25 0d 45 1a 0b 20  20 69 25 2b 3d 34 0d 45  |!i%.E..  i%+=4.E|
00009870  24 09 20 20 3d 76 25 0d  45 2e 05 cd 0d 45 38 06  |$.  =v%.E....E8.|
00009880  20 3a 0d 45 42 1f dd 20  f2 68 65 61 64 65 72 28  | :.EB.. .header(|
00009890  71 75 61 72 74 25 2c 71  75 61 72 74 65 72 73 25  |quart%,quarters%|
000098a0  29 0d 45 4c 08 ea 20 61  24 0d 45 56 13 e7 20 71  |).EL.. a$.EV.. q|
000098b0  75 61 72 74 65 72 73 25  3d 31 20 8c 0d 45 60 0d  |uarters%=1 ..E`.|
000098c0  20 20 73 79 25 3d 31 30  30 0d 45 6a 07 20 20 e1  |  sy%=100.Ej.  .|
000098d0  0d 45 74 05 cd 0d 45 7e  09 73 79 25 3d 30 0d 45  |.Et...E~.sy%=0.E|
000098e0  88 12 c8 8e 20 71 75 61  72 74 65 72 73 25 20 ca  |.... quarters% .|
000098f0  0d 45 92 0a 20 20 c9 20  32 3a 0d 45 9c 35 20 20  |.E..  . 2:.E.5  |
00009900  20 20 e7 20 71 75 61 72  74 25 3d 31 20 8c 20 61  |  . quart%=1 . a|
00009910  24 3d 22 54 4f 50 20 48  41 4c 46 22 20 8b 20 61  |$="TOP HALF" . a|
00009920  24 3d 22 42 4f 54 54 4f  4d 20 48 41 4c 46 22 0d  |$="BOTTOM HALF".|
00009930  45 a6 0a 20 20 c9 20 34  3a 0d 45 b0 13 20 20 20  |E..  . 4:.E..   |
00009940  20 c8 8e 20 71 75 61 72  74 25 20 ca 0d 45 ba 16  | .. quart% ..E..|
00009950  20 20 20 20 20 20 c9 20  31 3a 61 24 3d 22 31 73  |      . 1:a$="1s|
00009960  74 22 0d 45 c4 16 20 20  20 20 20 20 c9 20 32 3a  |t".E..      . 2:|
00009970  61 24 3d 22 32 6e 64 22  0d 45 ce 16 20 20 20 20  |a$="2nd".E..    |
00009980  20 20 c9 20 33 3a 61 24  3d 22 33 72 64 22 0d 45  |  . 3:a$="3rd".E|
00009990  d8 16 20 20 20 20 20 20  c9 20 34 3a 61 24 3d 22  |..      . 4:a$="|
000099a0  34 74 68 22 0d 45 e2 09  20 20 20 20 cb 0d 45 ec  |4th".E..    ..E.|
000099b0  16 20 20 20 20 61 24 2b  3d 22 20 51 55 41 52 54  |.    a$+=" QUART|
000099c0  45 52 22 0d 45 f6 05 cb  0d 46 00 19 c8 99 20 22  |ER".E....F.... "|
000099d0  46 6f 6e 74 5f 53 65 74  46 6f 6e 74 22 2c 66 32  |Font_SetFont",f2|
000099e0  25 0d 46 0a 23 c8 99 20  22 46 6f 6e 74 5f 50 61  |%.F.#.. "Font_Pa|
000099f0  69 6e 74 22 2c 2c 61 24  2c 31 36 2c 62 78 25 2c  |int",,a$,16,bx%,|
00009a00  31 37 35 30 0d 46 14 05  e1 0d 46 1e 05 3a 0d 46  |1750.F....F..:.F|
00009a10  28 0e dd 20 f2 64 6f 75  62 6c 65 73 0d 46 32 10  |(.. .doubles.F2.|
00009a20  ea 20 6e 25 2c 6d 25 2c  74 6f 74 25 0d 46 3c 0e  |. n%,m%,tot%.F<.|
00009a30  e3 20 6e 25 3d 31 b8 31  32 38 0d 46 46 13 20 20  |. n%=1.128.FF.  |
00009a40  64 72 61 77 70 6f 73 25  3f 6e 25 3d 30 0d 46 50  |drawpos%?n%=0.FP|
00009a50  05 ed 0d 46 5a 0f f2 61  64 64 5f 65 78 74 72 61  |...FZ..add_extra|
00009a60  73 0d 46 64 1e e3 20 6e  25 3d 31 b8 74 6f 74 6e  |s.Fd.. n%=1.totn|
00009a70  61 6d 65 73 25 2b 74 6f  74 73 65 65 64 73 25 0d  |ames%+totseeds%.|
00009a80  46 6e 1c 20 20 64 6f 75  62 6c 65 24 28 6e 25 29  |Fn.  double$(n%)|
00009a90  3d 6e 61 6d 65 73 24 28  6e 25 29 0d 46 78 14 20  |=names$(n%).Fx. |
00009aa0  20 64 6f 75 62 6c 65 25  28 6e 25 29 3d 6e 25 0d  | double%(n%)=n%.|
00009ab0  46 82 05 ed 0d 46 8c 1c  74 6f 74 25 3d 74 6f 74  |F....F..tot%=tot|
00009ac0  6e 61 6d 65 73 25 2b 74  6f 74 73 65 65 64 73 25  |names%+totseeds%|
00009ad0  0d 46 96 14 e7 20 28 74  6f 74 25 20 80 20 31 29  |.F... (tot% . 1)|
00009ae0  3d 31 20 8c 0d 46 a0 21  20 20 64 6f 75 62 6c 65  |=1 ..F.!  double|
00009af0  24 28 74 6f 74 25 2b 31  29 3d 22 41 2e 4e 2e 4f  |$(tot%+1)="A.N.O|
00009b00  74 68 65 72 22 0d 46 aa  1c 20 20 64 6f 75 62 6c  |ther".F..  doubl|
00009b10  65 25 28 74 6f 74 25 2b  31 29 3d 74 6f 74 25 2b  |e%(tot%+1)=tot%+|
00009b20  31 0d 46 b4 0d 20 20 74  6f 74 25 2b 3d 31 0d 46  |1.F..  tot%+=1.F|
00009b30  be 05 cd 0d 46 c8 0f e3  20 6e 25 3d 31 b8 74 6f  |....F... n%=1.to|
00009b40  74 25 0d 46 d2 10 20 20  6d 25 3d b3 28 74 6f 74  |t%.F..  m%=.(tot|
00009b50  25 29 0d 46 dc 20 20 20  c8 94 20 64 6f 75 62 6c  |%).F.   .. doubl|
00009b60  65 24 28 6e 25 29 2c 64  6f 75 62 6c 65 24 28 6d  |e$(n%),double$(m|
00009b70  25 29 0d 46 e6 20 20 20  c8 94 20 64 6f 75 62 6c  |%).F.   .. doubl|
00009b80  65 25 28 6e 25 29 2c 64  6f 75 62 6c 65 25 28 6d  |e%(n%),double%(m|
00009b90  25 29 0d 46 f0 05 ed 0d  46 fa 11 e3 20 6e 25 3d  |%).F....F... n%=|
00009ba0  31 b8 74 6f 74 25 2f 32  0d 47 04 39 20 20 64 6f  |1.tot%/2.G.9  do|
00009bb0  75 62 6c 65 24 28 6e 25  29 3d 22 20 22 2b 64 6f  |uble$(n%)=" "+do|
00009bc0  75 62 6c 65 24 28 6e 25  2a 32 2d 31 29 2b 22 20  |uble$(n%*2-1)+" |
00009bd0  26 20 22 2b 64 6f 75 62  6c 65 24 28 6e 25 2a 32  |& "+double$(n%*2|
00009be0  29 0d 47 0e 33 20 20 64  6f 75 62 6c 65 25 28 6e  |).G.3  double%(n|
00009bf0  25 29 3d 64 6f 75 62 6c  65 25 28 6e 25 2a 32 2d  |%)=double%(n%*2-|
00009c00  31 29 2a 32 35 36 2b 64  6f 75 62 6c 65 25 28 6e  |1)*256+double%(n|
00009c10  25 2a 32 29 0d 47 18 05  ed 0d 47 22 0e 64 6f 75  |%*2).G....G".dou|
00009c20  62 6c 65 73 25 3d b9 0d  47 2c 0f 70 65 72 5f 74  |bles%=..G,.per_t|
00009c30  65 61 6d 25 3d 30 0d 47  36 0c 74 65 61 6d 73 25  |eam%=0.G6.teams%|
00009c40  3d 30 0d 47 40 11 f2 73  65 74 5f 71 75 61 72 74  |=0.G@..set_quart|
00009c50  65 72 73 0d 47 4a 22 74  6f 74 5f 64 72 61 77 25  |ers.GJ"tot_draw%|
00009c60  3d 71 75 61 72 74 65 72  73 25 2a 70 65 72 5f 71  |=quarters%*per_q|
00009c70  75 61 72 74 25 0d 47 54  0f 74 6f 74 25 3d 74 6f  |uart%.GT.tot%=to|
00009c80  74 25 2f 32 0d 47 5e 17  e3 20 6e 25 3d 31 b8 74  |t%/2.G^.. n%=1.t|
00009c90  6f 74 5f 64 72 61 77 25  88 20 32 0d 47 68 07 20  |ot_draw%. 2.Gh. |
00009ca0  20 f5 0d 47 72 12 20 20  20 20 6d 25 3d b3 28 74  | ..Gr.    m%=.(t|
00009cb0  6f 74 25 29 0d 47 7c 17  20 20 fd 20 64 6f 75 62  |ot%).G|.  . doub|
00009cc0  6c 65 24 28 6d 25 29 3c  3e 22 22 0d 47 86 1b 20  |le$(m%)<>"".G.. |
00009cd0  20 64 72 61 77 24 28 6e  25 29 3d 64 6f 75 62 6c  | draw$(n%)=doubl|
00009ce0  65 24 28 6d 25 29 0d 47  90 28 20 20 64 72 61 77  |e$(m%).G.(  draw|
00009cf0  70 6f 73 25 3f 28 6e 25  2a 32 2d 31 29 3d 64 6f  |pos%?(n%*2-1)=do|
00009d00  75 62 6c 65 25 28 6d 25  29 81 20 32 35 36 0d 47  |uble%(m%). 256.G|
00009d10  9a 26 20 20 64 72 61 77  70 6f 73 25 3f 28 6e 25  |.&  drawpos%?(n%|
00009d20  2a 32 29 3d 64 6f 75 62  6c 65 25 28 6d 25 29 83  |*2)=double%(m%).|
00009d30  20 32 35 36 0d 47 a4 14  20 20 64 6f 75 62 6c 65  | 256.G..  double|
00009d40  24 28 6d 25 29 3d 22 22  0d 47 ae 05 ed 0d 47 b8  |$(m%)="".G....G.|
00009d50  0f e3 20 6e 25 3d 31 b8  74 6f 74 25 0d 47 c2 19  |.. n%=1.tot%.G..|
00009d60  20 20 e7 20 64 6f 75 62  6c 65 24 28 6e 25 29 3c  |  . double$(n%)<|
00009d70  3e 22 22 20 8c 0d 47 cc  09 20 20 20 20 f5 0d 47  |>"" ..G..    ..G|
00009d80  d6 25 20 20 20 20 20 20  6d 25 3d b3 28 74 6f 74  |.%      m%=.(tot|
00009d90  5f 64 72 61 77 25 29 20  80 20 25 31 31 31 31 31  |_draw%) . %11111|
00009da0  31 31 30 0d 47 e0 1a 20  20 20 20 fd 20 64 72 61  |110.G..    . dra|
00009db0  77 24 28 6d 25 29 3d 22  20 62 79 65 22 0d 47 ea  |w$(m%)=" bye".G.|
00009dc0  1d 20 20 20 20 64 72 61  77 24 28 6d 25 29 3d 64  |.    draw$(m%)=d|
00009dd0  6f 75 62 6c 65 24 28 6e  25 29 0d 47 f4 2a 20 20  |ouble$(n%).G.*  |
00009de0  20 20 64 72 61 77 70 6f  73 25 3f 28 6d 25 2a 32  |  drawpos%?(m%*2|
00009df0  2d 31 29 3d 64 6f 75 62  6c 65 25 28 6e 25 29 81  |-1)=double%(n%).|
00009e00  20 32 35 36 0d 47 fe 28  20 20 20 20 64 72 61 77  | 256.G.(    draw|
00009e10  70 6f 73 25 3f 28 6d 25  2a 32 29 3d 64 6f 75 62  |pos%?(m%*2)=doub|
00009e20  6c 65 25 28 6e 25 29 83  20 32 35 36 0d 48 08 16  |le%(n%). 256.H..|
00009e30  20 20 20 20 64 6f 75 62  6c 65 24 28 6e 25 29 3d  |    double$(n%)=|
00009e40  22 22 0d 48 12 07 20 20  cd 0d 48 1c 05 ed 0d 48  |"".H..  ..H....H|
00009e50  26 0e f2 73 68 6f 77 5f  64 72 61 77 0d 48 30 0e  |&..show_draw.H0.|
00009e60  61 6c 74 65 72 65 64 25  3d b9 0d 48 3a 05 e1 0d  |altered%=..H:...|
00009e70  48 44 05 3a 0d 48 4e 17  dd 20 f2 64 72 61 77 5f  |HD.:.HN.. .draw_|
00009e80  74 65 61 6d 5f 77 69 6e  64 6f 77 0d 48 58 08 ea  |team_window.HX..|
00009e90  20 6e 25 0d 48 62 12 e3  20 6e 25 3d 31 b8 20 74  | n%.Hb.. n%=1. t|
00009ea0  65 61 6d 73 25 0d 48 6c  14 20 20 f2 64 72 61 77  |eams%.Hl.  .draw|
00009eb0  5f 74 65 61 6d 28 6e 25  29 0d 48 76 05 ed 0d 48  |_team(n%).Hv...H|
00009ec0  80 05 e1 0d 48 8a 05 3a  0d 48 94 14 dd 20 f2 64  |....H..:.H... .d|
00009ed0  72 61 77 5f 74 65 61 6d  28 74 25 29 0d 48 9e 0e  |raw_team(t%).H..|
00009ee0  ea 20 78 25 2c 79 25 2c  70 25 0d 48 a8 1f 78 25  |. x%,y%,p%.H..x%|
00009ef0  3d 6f 78 25 2b 31 39 2a  31 36 2a 28 28 74 25 2d  |=ox%+19*16*((t%-|
00009f00  31 29 83 20 34 29 2b 31  36 0d 48 b2 2a 79 25 3d  |1). 4)+16.H.*y%=|
00009f10  6f 79 25 2d 33 32 2a 28  28 74 25 2d 31 29 81 20  |oy%-32*((t%-1). |
00009f20  34 29 2a 28 70 65 72 5f  74 65 61 6d 25 2b 33 29  |4)*(per_team%+3)|
00009f30  2d 33 32 0d 48 bc 19 c8  99 20 22 57 69 6d 70 5f  |-32.H.... "Wimp_|
00009f40  53 65 74 43 6f 6c 6f 75  72 22 2c 37 0d 48 c6 18  |SetColour",7.H..|
00009f50  ec 20 78 25 2c 79 25 3a  f1 20 22 54 45 41 4d 20  |. x%,y%:. "TEAM |
00009f60  22 c3 6e 25 0d 48 d0 24  ec 20 78 25 2c 79 25 2d  |".n%.H.$. x%,y%-|
00009f70  33 32 3a f0 20 31 2c 31  36 2a 28 35 2b a9 28 c3  |32:. 1,16*(5+.(.|
00009f80  28 6e 25 29 29 29 2c 30  0d 48 da 14 e3 20 70 25  |(n%))),0.H... p%|
00009f90  3d 31 b8 70 65 72 5f 74  65 61 6d 25 0d 48 e4 17  |=1.per_team%.H..|
00009fa0  20 20 ec 20 78 25 2c 79  25 2d 33 32 2a 28 70 25  |  . x%,y%-32*(p%|
00009fb0  2b 31 29 0d 48 ee 16 20  20 f1 20 a4 70 6c 61 79  |+1).H..  . .play|
00009fc0  65 72 28 74 25 2c 70 25  29 0d 48 f8 05 ed 0d 49  |er(t%,p%).H....I|
00009fd0  02 05 e1 0d 49 0c 05 3a  0d 49 16 1c dd 20 a4 70  |....I..:.I... .p|
00009fe0  6c 61 79 65 72 28 74 65  61 6d 25 2c 70 6c 61 79  |layer(team%,play|
00009ff0  65 72 25 29 0d 49 20 08  ea 20 6e 25 0d 49 2a 22  |er%).I .. n%.I*"|
0000a000  6e 25 3d 28 74 65 61 6d  25 2d 31 29 2a 70 65 72  |n%=(team%-1)*per|
0000a010  5f 74 65 61 6d 25 2b 70  6c 61 79 65 72 25 0d 49  |_team%+player%.I|
0000a020  34 1e e7 20 6e 25 3c 3d  28 74 65 61 6d 73 25 2a  |4.. n%<=(teams%*|
0000a030  70 65 72 5f 74 65 61 6d  25 29 20 8c 0d 49 3e 19  |per_team%) ..I>.|
0000a040  20 20 e7 20 97 28 64 72  61 77 24 28 6e 25 29 29  |  . .(draw$(n%))|
0000a050  3c 33 32 20 8c 0d 49 48  1e 20 20 20 20 c8 99 20  |<32 ..IH.    .. |
0000a060  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
0000a070  2c 31 31 0d 49 52 07 20  20 cc 0d 49 5c 1d 20 20  |,11.IR.  ..I\.  |
0000a080  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |  .. "Wimp_SetCo|
0000a090  6c 6f 75 72 22 2c 37 0d  49 66 07 20 20 cd 0d 49  |lour",7.If.  ..I|
0000a0a0  70 14 20 20 3d c1 64 72  61 77 24 28 6e 25 29 2c  |p.  =.draw$(n%),|
0000a0b0  32 29 0d 49 7a 05 cc 0d  49 84 09 20 20 3d 22 22  |2).Iz...I..  =""|
0000a0c0  0d 49 8e 05 cd 0d 49 98  05 3a 0d 49 a2 0c dd 20  |.I....I..:.I... |
0000a0d0  f2 74 65 61 6d 73 0d 49  ac 0b ea 20 70 25 2c 74  |.teams.I... p%,t|
0000a0e0  25 0d 49 b6 13 70 25 3d  bb 28 24 70 6c 61 79 65  |%.I..p%=.($playe|
0000a0f0  72 73 25 29 0d 49 c0 0e  e7 20 70 25 3d 30 20 8c  |rs%).I... p%=0 .|
0000a100  20 e1 0d 49 ca 27 74 25  3d 28 28 74 6f 74 6e 61  | ..I.'t%=((totna|
0000a110  6d 65 73 25 2b 74 6f 74  73 65 65 64 73 25 2d 31  |mes%+totseeds%-1|
0000a120  29 20 81 20 70 25 29 2b  31 0d 49 d4 39 e7 20 70  |) . p%)+1.I.9. p|
0000a130  25 3e 28 74 6f 74 6e 61  6d 65 73 25 2b 74 6f 74  |%>(totnames%+tot|
0000a140  73 65 65 64 73 25 29 20  8c 20 70 25 3d 28 74 6f  |seeds%) . p%=(to|
0000a150  74 6e 61 6d 65 73 25 2b  74 6f 74 73 65 65 64 73  |tnames%+totseeds|
0000a160  25 29 0d 49 de 0d e7 20  74 25 3e 31 36 20 8c 0d  |%).I... t%>16 ..|
0000a170  49 e8 2f 20 20 f2 72 65  70 6f 72 74 28 22 54 6f  |I./  .report("To|
0000a180  6f 20 6d 61 6e 79 20 74  65 61 6d 73 20 28 6d 61  |o many teams (ma|
0000a190  78 69 6d 75 6d 20 31 36  29 22 2c 31 36 29 0d 49  |ximum 16)",16).I|
0000a1a0  f2 07 20 20 e1 0d 49 fc  05 cd 0d 4a 06 0d e7 20  |..  ..I....J... |
0000a1b0  70 25 3e 33 32 20 8c 0d  4a 10 3a 20 20 f2 72 65  |p%>32 ..J.:  .re|
0000a1c0  70 6f 72 74 28 22 54 6f  6f 20 6d 61 6e 79 20 70  |port("Too many p|
0000a1d0  6c 61 79 65 72 73 20 70  65 72 20 74 65 61 6d 20  |layers per team |
0000a1e0  28 6d 61 78 69 6d 75 6d  20 33 32 29 22 2c 31 36  |(maximum 32)",16|
0000a1f0  29 0d 4a 1a 07 20 20 e1  0d 4a 24 05 cd 0d 4a 2e  |).J..  ..J$...J.|
0000a200  0e e7 20 70 25 3d 30 20  8c 20 e1 0d 4a 38 10 f2  |.. p%=0 . ..J8..|
0000a210  63 6c 6f 73 65 5f 6d 65  6e 75 73 0d 4a 42 10 70  |close_menus.JB.p|
0000a220  65 72 5f 74 65 61 6d 25  3d 70 25 0d 4a 4c 0d 74  |er_team%=p%.JL.t|
0000a230  65 61 6d 73 25 3d 74 25  0d 4a 56 0e 64 6f 75 62  |eams%=t%.JV.doub|
0000a240  6c 65 73 25 3d a3 0d 4a  60 14 f2 6d 61 6b 65 5f  |les%=..J`..make_|
0000a250  74 65 61 6d 73 5f 64 72  61 77 0d 4a 6a 10 64 72  |teams_draw.Jj.dr|
0000a260  61 77 5f 6d 61 64 65 25  3d b9 0d 4a 74 0f f2 73  |aw_made%=..Jt..s|
0000a270  68 6f 77 5f 74 65 61 6d  73 0d 4a 7e 05 e1 0d 4a  |how_teams.J~...J|
0000a280  88 05 3a 0d 4a 92 19 dd  20 f2 70 75 74 5f 73 65  |..:.J... .put_se|
0000a290  65 64 73 5f 69 6e 5f 74  65 61 6d 73 0d 4a 9c 15  |eds_in_teams.J..|
0000a2a0  e7 20 74 6f 74 73 65 65  64 73 25 3d 30 20 8c 20  |. totseeds%=0 . |
0000a2b0  e1 0d 4a a6 14 f4 20 50  52 4f 43 61 64 64 5f 65  |..J... PROCadd_e|
0000a2c0  78 74 72 61 73 0d 4a b0  13 ea 20 6e 25 2c 6d 25  |xtras.J... n%,m%|
0000a2d0  2c 64 69 72 25 2c 70 25  0d 4a ba 08 6d 25 3d 31  |,dir%,p%.J..m%=1|
0000a2e0  0d 4a c4 0a 64 69 72 25  3d 31 0d 4a ce 08 70 25  |.J..dir%=1.J..p%|
0000a2f0  3d 30 0d 4a d8 0e e3 20  6e 25 3d 31 b8 20 31 36  |=0.J... n%=1. 16|
0000a300  0d 4a e2 1b 20 20 e7 20  73 65 65 64 5f 65 78 69  |.J..  . seed_exi|
0000a310  73 74 73 25 3f 6e 25 3d  31 20 8c 0d 4a ec 0c 20  |sts%?n%=1 ..J.. |
0000a320  20 20 70 25 2b 3d 31 0d  4a f6 23 20 20 20 20 f2  |  p%+=1.J.#    .|
0000a330  70 75 74 5f 73 65 65 64  5f 69 6e 5f 74 65 61 6d  |put_seed_in_team|
0000a340  28 6e 25 2c 6d 25 2c 70  25 29 0d 4b 00 1a 20 20  |(n%,m%,p%).K..  |
0000a350  20 20 6d 25 2b 3d 70 65  72 5f 74 65 61 6d 25 2a  |  m%+=per_team%*|
0000a360  64 69 72 25 0d 4b 0a 2a  20 20 20 20 e7 20 28 6d  |dir%.K.*    . (m|
0000a370  25 3e 74 65 61 6d 73 25  2a 70 65 72 5f 74 65 61  |%>teams%*per_tea|
0000a380  6d 25 29 20 84 20 28 6d  25 3c 30 29 20 8c 0d 4b  |m%) . (m%<0) ..K|
0000a390  14 14 20 20 20 20 20 20  64 69 72 25 3d 2d 64 69  |..      dir%=-di|
0000a3a0  72 25 0d 4b 1e 1e 20 20  20 20 20 20 6d 25 2b 3d  |r%.K..      m%+=|
0000a3b0  70 65 72 5f 74 65 61 6d  25 2a 64 69 72 25 2b 31  |per_team%*dir%+1|
0000a3c0  0d 4b 28 09 20 20 20 20  cd 0d 4b 32 07 20 20 cd  |.K(.    ..K2.  .|
0000a3d0  0d 4b 3c 05 ed 0d 4b 46  05 e1 0d 4b 50 05 3a 0d  |.K<...KF...KP.:.|
0000a3e0  4b 5a 21 dd 20 f2 70 75  74 5f 73 65 65 64 5f 69  |KZ!. .put_seed_i|
0000a3f0  6e 5f 74 65 61 6d 28 6e  25 2c 6d 25 2c 70 25 29  |n_team(n%,m%,p%)|
0000a400  0d 4b 64 1e 64 72 61 77  70 6f 73 25 3f 28 70 25  |.Kd.drawpos%?(p%|
0000a410  2b 74 6f 74 6e 61 6d 65  73 25 29 3d 6d 25 0d 4b  |+totnames%)=m%.K|
0000a420  6e 30 64 72 61 77 24 28  6d 25 29 3d bd 28 31 29  |n0draw$(m%)=.(1)|
0000a430  2b a4 6e 6f 73 70 61 63  65 28 24 28 73 65 65 64  |+.nospace($(seed|
0000a440  73 25 2b 31 39 2a 28 6e  25 2d 31 29 29 29 0d 4b  |s%+19*(n%-1))).K|
0000a450  78 05 e1 0d 4b 82 05 3a  0d 4b 8c 16 dd 20 f2 6d  |x...K..:.K... .m|
0000a460  61 6b 65 5f 74 65 61 6d  73 5f 64 72 61 77 0d 4b  |ake_teams_draw.K|
0000a470  96 37 ea 20 6e 25 2c 74  6f 74 25 2c 74 25 2c 70  |.7. n%,tot%,t%,p|
0000a480  25 2c 70 6f 73 25 2c 73  6f 70 25 2c 6d 69 6e 5f  |%,pos%,sop%,min_|
0000a490  70 65 72 5f 74 65 61 6d  25 2c 66 75 6c 6c 5f 74  |per_team%,full_t|
0000a4a0  65 61 6d 73 25 0d 4b a0  0e e3 20 6e 25 3d 31 b8  |eams%.K... n%=1.|
0000a4b0  31 32 38 0d 4b aa 17 20  20 64 72 61 77 24 28 6e  |128.K..  draw$(n|
0000a4c0  25 29 3d 22 2d 2d 2d 2d  2d 22 0d 4b b4 1b 20 20  |%)="-----".K..  |
0000a4d0  64 72 61 77 24 28 6e 25  2b 31 32 38 29 3d 22 2d  |draw$(n%+128)="-|
0000a4e0  2d 2d 2d 2d 22 0d 4b be  13 20 20 64 72 61 77 70  |----".K..  drawp|
0000a4f0  6f 73 25 3f 6e 25 3d 30  0d 4b c8 05 ed 0d 4b d2  |os%?n%=0.K....K.|
0000a500  1c 74 6f 74 25 3d 74 6f  74 6e 61 6d 65 73 25 2b  |.tot%=totnames%+|
0000a510  74 6f 74 73 65 65 64 73  25 0d 4b dc 1f 6d 69 6e  |totseeds%.K..min|
0000a520  5f 70 65 72 5f 74 65 61  6d 25 3d 74 6f 74 25 20  |_per_team%=tot% |
0000a530  81 20 74 65 61 6d 73 25  0d 4b e6 2b 66 75 6c 6c  |. teams%.K.+full|
0000a540  5f 74 65 61 6d 73 25 3d  28 74 6f 74 25 2d 6d 69  |_teams%=(tot%-mi|
0000a550  6e 5f 70 65 72 5f 74 65  61 6d 25 2a 74 65 61 6d  |n_per_team%*team|
0000a560  73 25 29 0d 4b f0 17 f2  70 75 74 5f 73 65 65 64  |s%).K...put_seed|
0000a570  73 5f 69 6e 5f 74 65 61  6d 73 0d 4b fa 14 e3 20  |s_in_teams.K... |
0000a580  70 25 3d 31 b8 70 65 72  5f 74 65 61 6d 25 0d 4c  |p%=1.per_team%.L|
0000a590  04 13 20 20 e3 20 74 25  3d 31 b8 74 65 61 6d 73  |..  . t%=1.teams|
0000a5a0  25 0d 4c 0e 20 20 20 20  20 70 6f 73 25 3d 28 74  |%.L.     pos%=(t|
0000a5b0  25 2d 31 29 2a 70 65 72  5f 74 65 61 6d 25 2b 70  |%-1)*per_team%+p|
0000a5c0  25 0d 4c 18 5d 20 20 20  20 e7 20 28 70 25 3c 3d  |%.L.]    . (p%<=|
0000a5d0  6d 69 6e 5f 70 65 72 5f  74 65 61 6d 25 20 84 20  |min_per_team% . |
0000a5e0  74 25 3c 3d 66 75 6c 6c  5f 74 65 61 6d 73 25 20  |t%<=full_teams% |
0000a5f0  80 20 70 25 3c 3d 6d 69  6e 5f 70 65 72 5f 74 65  |. p%<=min_per_te|
0000a600  61 6d 25 2b 31 29 20 80  20 64 72 61 77 24 28 70  |am%+1) . draw$(p|
0000a610  6f 73 25 29 3d 22 2d 2d  2d 2d 2d 22 20 8c 0d 4c  |os%)="-----" ..L|
0000a620  22 19 20 20 20 20 20 20  6e 25 3d a4 72 61 6e 64  |".      n%=.rand|
0000a630  6f 6d 5f 64 72 61 77 0d  4c 2c 1a 20 20 20 20 20  |om_draw.L,.     |
0000a640  20 64 72 61 77 70 6f 73  25 3f 6e 25 3d 70 6f 73  | drawpos%?n%=pos|
0000a650  25 0d 4c 36 2e 20 20 20  20 20 20 64 72 61 77 24  |%.L6.      draw$|
0000a660  28 70 6f 73 25 29 3d 22  20 22 2b a4 6e 6f 73 70  |(pos%)=" "+.nosp|
0000a670  61 63 65 28 6e 61 6d 65  73 24 28 6e 25 29 29 0d  |ace(names$(n%)).|
0000a680  4c 40 09 20 20 20 20 cd  0d 4c 4a 07 20 20 ed 0d  |L@.    ..LJ.  ..|
0000a690  4c 54 05 ed 0d 4c 5e 0e  61 6c 74 65 72 65 64 25  |LT...L^.altered%|
0000a6a0  3d b9 0d 4c 68 05 e1 0d  4c 72 05 3a 0d 4c 7c 12  |=..Lh...Lr.:.L|.|
0000a6b0  dd 20 a4 72 61 6e 64 6f  6d 5f 64 72 61 77 0d 4c  |. .random_draw.L|
0000a6c0  86 0b ea 20 6e 25 2c 6d  25 0d 4c 90 13 6e 25 3d  |... n%,m%.L..n%=|
0000a6d0  b3 28 74 6f 74 6e 61 6d  65 73 25 29 0d 4c 9a 09  |.(totnames%).L..|
0000a6e0  6d 25 3d 6e 25 0d 4c a4  05 f5 0d 4c ae 0b 20 20  |m%=n%.L....L..  |
0000a6f0  6d 25 2b 3d 31 0d 4c b8  16 20 20 e7 20 6d 25 3e  |m%+=1.L..  . m%>|
0000a700  74 6f 74 25 20 8c 20 6d  25 3d 31 0d 4c c2 1c fd  |tot% . m%=1.L...|
0000a710  20 64 72 61 77 70 6f 73  25 3f 6d 25 3d 30 20 20  | drawpos%?m%=0  |
0000a720  84 20 6d 25 3d 6e 25 0d  4c cc 26 e7 20 6d 25 3d  |. m%=n%.L.&. m%=|
0000a730  6e 25 20 8c 20 85 20 31  32 33 34 20 43 61 6e 27  |n% . . 1234 Can'|
0000a740  74 20 46 69 6e 64 20 41  20 4e 61 6d 65 0d 4c d6  |t Find A Name.L.|
0000a750  07 3d 6d 25 0d 4c e0 05  3a 0d 4c ea 12 dd 20 a4  |.=m%.L..:.L... .|
0000a760  6e 6f 73 70 61 63 65 28  61 24 29 0d 4c f4 18 c8  |nospace(a$).L...|
0000a770  95 20 97 28 61 24 29 3c  33 33 20 80 20 61 24 3c  |. .(a$)<33 . a$<|
0000a780  3e 22 22 0d 4c fe 0f 20  20 61 24 3d c1 61 24 2c  |>"".L..  a$=.a$,|
0000a790  32 29 0d 4d 08 05 ce 0d  4d 12 1c c8 95 20 97 28  |2).M....M.... .(|
0000a7a0  c2 61 24 2c 31 29 29 3c  33 33 20 80 20 61 24 3c  |.a$,1))<33 . a$<|
0000a7b0  3e 22 22 0d 4d 1c 0d 20  20 61 24 3d c0 61 24 29  |>"".M..  a$=.a$)|
0000a7c0  0d 4d 26 05 ce 0d 4d 30  07 3d 61 24 0d 4d 3a 05  |.M&...M0.=a$.M:.|
0000a7d0  3a 0d 4d 44 12 dd 20 f2  70 72 69 6e 74 5f 74 65  |:.MD.. .print_te|
0000a7e0  61 6d 73 0d 4d 4e 0b ea  20 74 25 2c 70 25 0d 4d  |ams.MN.. t%,p%.M|
0000a7f0  58 1e c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |X... "ColourTran|
0000a800  73 5f 53 65 74 47 43 4f  4c 22 2c 30 0d 4d 62 32  |s_SetGCOL",0.Mb2|
0000a810  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
0000a820  53 65 74 46 6f 6e 74 43  6f 6c 6f 75 72 73 22 2c  |SetFontColours",|
0000a830  2c 26 46 46 46 46 46 46  30 30 2c 30 2c 37 0d 4d  |,&FFFFFF00,0,7.M|
0000a840  6c 0f f2 74 69 74 6c 65  28 31 30 30 29 0d 4d 76  |l..title(100).Mv|
0000a850  11 e3 20 74 25 3d 31 b8  74 65 61 6d 73 25 0d 4d  |.. t%=1.teams%.M|
0000a860  80 1b 20 20 f2 70 72 69  6e 74 5f 74 65 61 6d 28  |..  .print_team(|
0000a870  74 25 2c 6c 6f 67 79 25  29 0d 4d 8a 05 ed 0d 4d  |t%,logy%).M....M|
0000a880  94 05 e1 0d 4d 9e 05 3a  0d 4d a8 1d dd 20 f2 70  |....M..:.M... .p|
0000a890  72 69 6e 74 5f 74 65 61  6d 28 74 25 2c f8 20 6c  |rint_team(t%,. l|
0000a8a0  6f 67 79 25 29 0d 4d b2  11 ea 20 78 25 2c 79 25  |ogy%).M... x%,y%|
0000a8b0  2c 61 24 2c 70 25 0d 4d  bc 09 74 25 2d 3d 31 0d  |,a$,p%.M..t%-=1.|
0000a8c0  4d c6 17 78 25 3d 28 74  25 20 83 20 34 29 2a 33  |M..x%=(t% . 4)*3|
0000a8d0  30 30 2b 31 30 30 0d 4d  d0 25 79 25 3d 31 37 33  |00+100.M.%y%=173|
0000a8e0  30 2d 33 32 2a 28 70 65  72 5f 74 65 61 6d 25 2b  |0-32*(per_team%+|
0000a8f0  33 29 2a 28 74 25 20 81  20 34 29 0d 4d da 09 74  |3)*(t% . 4).M..t|
0000a900  25 2b 3d 31 0d 4d e4 12  61 24 3d 22 54 45 41 4d  |%+=1.M..a$="TEAM|
0000a910  20 22 2b c3 74 25 0d 4d  ee 19 c8 99 20 22 46 6f  | "+.t%.M.... "Fo|
0000a920  6e 74 5f 53 65 74 46 6f  6e 74 22 2c 66 32 25 0d  |nt_SetFont",f2%.|
0000a930  4d f8 20 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |M. .. "Font_Pain|
0000a940  74 22 2c 2c 61 24 2c 31  36 2c 78 25 2c 79 25 0d  |t",,a$,16,x%,y%.|
0000a950  4e 02 19 c8 99 20 22 46  6f 6e 74 5f 53 65 74 46  |N.... "Font_SetF|
0000a960  6f 6e 74 22 2c 66 31 25  0d 4e 0c 15 e3 20 70 25  |ont",f1%.N... p%|
0000a970  3d 31 b8 20 70 65 72 5f  74 65 61 6d 25 0d 4e 16  |=1. per_team%.N.|
0000a980  17 20 20 61 24 3d a4 70  6c 61 79 65 72 28 74 25  |.  a$=.player(t%|
0000a990  2c 70 25 29 0d 4e 20 2b  20 20 c8 99 20 22 46 6f  |,p%).N +  .. "Fo|
0000a9a0  6e 74 5f 50 61 69 6e 74  22 2c 2c 61 24 2c 31 36  |nt_Paint",,a$,16|
0000a9b0  2c 78 25 2c 79 25 2d 33  32 2a 70 25 2d 31 36 0d  |,x%,y%-32*p%-16.|
0000a9c0  4e 2a 17 20 20 6c 6f 67  79 25 3d 79 25 2d 33 36  |N*.  logy%=y%-36|
0000a9d0  2a 70 25 2d 31 36 0d 4e  34 05 ed 0d 4e 3e 05 e1  |*p%-16.N4...N>..|
0000a9e0  0d 4e 48 05 3a 0d 4e 52  13 dd 20 f2 70 72 69 6e  |.NH.:.NR.. .prin|
0000a9f0  74 5f 64 69 72 65 63 74  0d 4e 5c 14 e7 20 64 72  |t_direct.N\.. dr|
0000aa00  61 77 5f 6d 61 64 65 25  3d a3 20 8c 0d 4e 66 24  |aw_made%=. ..Nf$|
0000aa10  20 20 f2 72 65 70 6f 72  74 28 22 4e 6f 20 64 72  |  .report("No dr|
0000aa20  61 77 20 74 6f 20 70 72  69 6e 74 22 2c 31 36 29  |aw to print",16)|
0000aa30  0d 4e 70 07 20 20 e1 0d  4e 7a 05 cd 0d 4e 84 14  |.Np.  ..Nz...N..|
0000aa40  e7 20 70 65 72 5f 74 65  61 6d 25 3c 3e 30 20 8c  |. per_team%<>0 .|
0000aa50  0d 4e 8e 10 20 20 73 75  62 6f 70 74 32 25 3d 30  |.N..  subopt2%=0|
0000aa60  0d 4e 98 11 20 20 f2 70  72 69 6e 74 5f 64 72 61  |.N..  .print_dra|
0000aa70  77 0d 4e a2 07 20 20 e1  0d 4e ac 05 cd 0d 4e b6  |w.N..  ..N....N.|
0000aa80  0e 73 75 62 6f 70 74 32  25 3d 30 0d 4e c0 0f f2  |.subopt2%=0.N...|
0000aa90  70 72 69 6e 74 5f 64 72  61 77 0d 4e ca 05 e1 0d  |print_draw.N....|
0000aaa0  4e d4 05 3a 0d 4e de 1a  20 dd 20 f2 64 72 61 77  |N..:.N.. . .draw|
0000aab0  66 69 6c 65 5f 73 74 61  72 74 28 44 24 29 0d 4e  |file_start(D$).N|
0000aac0  e8 0d 20 63 25 3d ae 28  44 24 29 0d 4e f2 12 20  |.. c%=.(D$).N.. |
0000aad0  24 64 72 61 77 66 69 6c  65 25 3d 44 24 0d 4e fc  |$drawfile%=D$.N.|
0000aae0  15 20 64 72 61 77 66 69  6c 65 5f 6f 70 65 6e 25  |. drawfile_open%|
0000aaf0  3d b9 0d 4f 06 2d 20 e7  20 63 25 3d 30 20 8c 20  |=..O.- . c%=0 . |
0000ab00  85 20 31 32 33 34 2c 22  43 61 6e 27 74 20 6f 70  |. 1234,"Can't op|
0000ab10  65 6e 20 6f 75 74 70 75  74 20 66 69 6c 65 22 0d  |en output file".|
0000ab20  4f 10 11 20 64 72 61 77  66 69 6c 65 24 3d 44 24  |O.. drawfile$=D$|
0000ab30  0d 4f 1a 29 20 f2 70 75  74 77 28 26 37 37 36 31  |.O.) .putw(&7761|
0000ab40  37 32 34 34 29 3a f2 70  75 74 77 28 32 30 31 29  |7244):.putw(201)|
0000ab50  3a f2 70 75 74 77 28 30  29 0d 4f 24 18 20 f2 70  |:.putw(0).O$. .p|
0000ab60  75 74 73 31 32 28 22 43  6f 6d 70 44 72 61 77 22  |uts12("CompDraw"|
0000ab70  29 0d 4f 2e 0c 20 6c 65  76 25 3d 2d 31 0d 4f 38  |).O.. lev%=-1.O8|
0000ab80  12 20 f2 68 65 61 64 5f  68 65 72 65 28 b9 29 0d  |. .head_here(.).|
0000ab90  4f 42 06 20 e1 0d 4f 4c  06 20 3a 0d 4f 56 14 20  |OB. ..OL. :.OV. |
0000aba0  dd 20 f2 64 72 61 77 66  69 6c 65 5f 65 6e 64 0d  |. .drawfile_end.|
0000abb0  4f 60 0e 20 f2 68 65 61  64 5f 6e 6f 77 0d 4f 6a  |O`. .head_now.Oj|
0000abc0  0e 20 d9 23 63 25 3a 63  25 3d 30 0d 4f 74 15 20  |. .#c%:c%=0.Ot. |
0000abd0  64 72 61 77 66 69 6c 65  5f 6f 70 65 6e 25 3d a3  |drawfile_open%=.|
0000abe0  0d 4f 7e 23 20 ff 28 22  53 65 74 54 79 70 65 20  |.O~# .("SetType |
0000abf0  22 2b 64 72 61 77 66 69  6c 65 24 2b 22 20 41 46  |"+drawfile$+" AF|
0000ac00  46 22 29 0d 4f 88 06 20  e1 0d 4f 92 06 20 3a 0d  |F").O.. ..O.. :.|
0000ac10  4f 9c 2c 20 dd 20 f2 70  61 74 68 5f 73 74 61 72  |O., . .path_star|
0000ac20  74 28 78 25 2c 79 25 2c  77 69 64 74 68 25 2c 6c  |t(x%,y%,width%,l|
0000ac30  63 6f 6c 25 2c 66 63 6f  6c 25 29 0d 4f a6 0d 20  |col%,fcol%).O.. |
0000ac40  f2 70 75 74 77 28 32 29  0d 4f b0 12 20 f2 68 65  |.putw(2).O.. .he|
0000ac50  61 64 5f 68 65 72 65 28  b9 29 0d 4f ba 18 20 f2  |ad_here(.).O.. .|
0000ac60  70 75 74 77 28 66 63 6f  6c 25 29 3a f4 20 66 69  |putw(fcol%):. fi|
0000ac70  6c 6c 0d 4f c4 1f 20 f2  70 75 74 77 28 6c 63 6f  |ll.O.. .putw(lco|
0000ac80  6c 25 29 3a f4 20 6c 69  6e 65 20 63 6f 6c 6f 75  |l%):. line colou|
0000ac90  72 0d 4f ce 1f 20 f2 70  75 74 77 28 77 69 64 74  |r.O.. .putw(widt|
0000aca0  68 25 29 3a f4 20 6c 69  6e 65 20 77 69 64 74 68  |h%):. line width|
0000acb0  0d 4f d8 1a 20 f2 70 75  74 77 28 30 29 3a f4 20  |.O.. .putw(0):. |
0000acc0  70 61 74 68 20 73 74 79  6c 65 0d 4f e2 16 20 f2  |path style.O.. .|
0000acd0  70 61 74 68 5f 6d 6f 76  65 28 78 25 2c 79 25 29  |path_move(x%,y%)|
0000ace0  0d 4f ec 06 20 e1 0d 4f  f6 06 20 3a 0d 50 00 18  |.O.. ..O.. :.P..|
0000acf0  20 dd 20 f2 70 61 74 68  5f 6d 6f 76 65 28 78 25  | . .path_move(x%|
0000ad00  2c 79 25 29 0d 50 0a 0d  20 f2 70 75 74 77 28 32  |,y%).P.. .putw(2|
0000ad10  29 0d 50 14 12 20 f2 70  75 74 78 79 28 78 25 2c  |).P.. .putxy(x%,|
0000ad20  79 25 29 0d 50 1e 06 20  e1 0d 50 28 06 20 3a 0d  |y%).P.. ..P(. :.|
0000ad30  50 32 18 20 dd 20 f2 70  61 74 68 5f 64 72 61 77  |P2. . .path_draw|
0000ad40  28 78 25 2c 79 25 29 0d  50 3c 0d 20 f2 70 75 74  |(x%,y%).P<. .put|
0000ad50  77 28 38 29 0d 50 46 12  20 f2 70 75 74 78 79 28  |w(8).PF. .putxy(|
0000ad60  78 25 2c 79 25 29 0d 50  50 06 20 e1 0d 50 5a 06  |x%,y%).PP. ..PZ.|
0000ad70  20 3a 0d 50 64 06 20 3a  0d 50 6e 10 20 dd 20 f2  | :.Pd. :.Pn. . .|
0000ad80  70 61 74 68 5f 65 6e 64  0d 50 78 0d 20 f2 70 75  |path_end.Px. .pu|
0000ad90  74 77 28 30 29 0d 50 82  0e 20 f2 68 65 61 64 5f  |tw(0).P.. .head_|
0000ada0  6e 6f 77 0d 50 8c 06 20  e1 0d 50 96 06 20 3a 0d  |now.P.. ..P.. :.|
0000adb0  50 a0 13 20 dd 20 f2 67  72 6f 75 70 5f 73 74 61  |P.. . .group_sta|
0000adc0  72 74 0d 50 aa 2e 20 f4  20 67 72 6f 75 70 73 20  |rt.P.. . groups |
0000add0  63 61 6e 6e 6f 74 20 62  65 20 6e 65 73 74 65 64  |cannot be nested|
0000ade0  20 69 6e 20 74 68 69 73  20 76 65 72 73 69 6f 6e  | in this version|
0000adf0  0d 50 b4 0d 20 f2 70 75  74 77 28 36 29 0d 50 be  |.P.. .putw(6).P.|
0000ae00  12 20 f2 68 65 61 64 5f  68 65 72 65 28 b9 29 0d  |. .head_here(.).|
0000ae10  50 c8 15 20 f2 70 75 74  73 31 32 28 22 67 72 6f  |P.. .puts12("gro|
0000ae20  75 70 22 29 0d 50 d2 06  20 e1 0d 50 dc 06 20 3a  |up").P.. ..P.. :|
0000ae30  0d 50 e6 11 20 dd 20 f2  67 72 6f 75 70 5f 65 6e  |.P.. . .group_en|
0000ae40  64 0d 50 f0 0e 20 f2 68  65 61 64 5f 6e 6f 77 0d  |d.P.. .head_now.|
0000ae50  50 fa 06 20 e1 0d 51 04  06 20 3a 0d 51 0e 11 20  |P.. ..Q.. :.Q.. |
0000ae60  dd 20 f2 66 6f 6e 74 74  61 62 6c 65 0d 51 18 12  |. .fonttable.Q..|
0000ae70  20 ea 20 66 6f 6e 74 25  2c 66 6f 6e 74 24 0d 51  | . font%,font$.Q|
0000ae80  22 09 20 f7 20 2b 30 0d  51 2c 17 20 dc 20 31 2c  |". . +0.Q,. . 1,|
0000ae90  54 72 69 6e 69 74 79 2e  4d 65 64 69 75 6d 0d 51  |Trinity.Medium.Q|
0000aea0  36 15 20 dc 20 32 2c 54  72 69 6e 69 74 79 2e 42  |6. . 2,Trinity.B|
0000aeb0  6f 6c 64 0d 51 40 0c 20  dc 20 30 2c 45 4e 44 0d  |old.Q@. . 0,END.|
0000aec0  51 4a 12 20 f3 20 66 6f  6e 74 25 2c 66 6f 6e 74  |QJ. . font%,font|
0000aed0  24 0d 51 54 16 20 e7 20  66 6f 6e 74 24 3d 22 45  |$.QT. . font$="E|
0000aee0  4e 44 22 20 8c 20 e1 0d  51 5e 0d 20 f2 70 75 74  |ND" . ..Q^. .put|
0000aef0  77 28 30 29 0d 51 68 12  20 f2 68 65 61 64 5f 68  |w(0).Qh. .head_h|
0000af00  65 72 65 28 a3 29 0d 51  72 06 20 f5 0d 51 7c 1c  |ere(.).Qr. ..Q|.|
0000af10  20 20 20 f2 70 75 74 73  28 bd 28 66 6f 6e 74 25  |   .puts(.(font%|
0000af20  29 2b 66 6f 6e 74 24 29  0d 51 86 14 20 20 20 f3  |)+font$).Q..   .|
0000af30  20 66 6f 6e 74 25 2c 66  6f 6e 74 24 0d 51 90 12  | font%,font$.Q..|
0000af40  20 fd 20 66 6f 6e 74 24  3d 22 45 4e 44 22 0d 51  | . font$="END".Q|
0000af50  9a 0b 20 f2 61 6c 69 67  6e 0d 51 a4 0e 20 f2 68  |.. .align.Q.. .h|
0000af60  65 61 64 5f 6e 6f 77 0d  51 ae 06 20 e1 0d 51 b8  |ead_now.Q.. ..Q.|
0000af70  06 20 3a 0d 51 c2 3d 20  dd 20 f2 74 65 78 74 28  |. :.Q.= . .text(|
0000af80  78 25 2c 79 25 2c 74 65  78 74 24 2c 78 73 69 7a  |x%,y%,text$,xsiz|
0000af90  65 2c 79 73 69 7a 65 2c  66 6f 6e 74 25 2c 63 6f  |e,ysize,font%,co|
0000afa0  6c 25 2c 62 63 6f 6c 25  2c 75 6c 69 6e 65 25 29  |l%,bcol%,uline%)|
0000afb0  0d 51 cc 1a 20 74 65 78  74 24 3d a4 6e 6f 73 70  |.Q.. text$=.nosp|
0000afc0  61 63 65 28 74 65 78 74  24 29 0d 51 d6 13 20 e7  |ace(text$).Q.. .|
0000afd0  20 74 65 78 74 24 3d 22  22 20 8c 20 e1 0d 51 e0  | text$="" . ..Q.|
0000afe0  0e 20 ea 20 6c 65 6e 2c  73 63 78 0d 51 ea 0d 20  |. . len,scx.Q.. |
0000aff0  f2 70 75 74 77 28 31 29  0d 51 f4 12 20 f2 68 65  |.putw(1).Q.. .he|
0000b000  61 64 5f 68 65 72 65 28  a3 29 0d 51 fe 1b 20 f2  |ad_here(.).Q.. .|
0000b010  70 75 74 78 79 28 78 25  2c 79 25 2d 79 73 69 7a  |putxy(x%,y%-ysiz|
0000b020  65 2a 2e 35 29 0d 52 08  27 20 f2 70 75 74 78 79  |e*.5).R.' .putxy|
0000b030  28 78 25 2b a9 28 74 65  78 74 24 29 2a 78 73 69  |(x%+.(text$)*xsi|
0000b040  7a 65 2c 79 25 2b 79 73  69 7a 65 29 0d 52 12 10  |ze,y%+ysize).R..|
0000b050  20 f2 70 75 74 77 28 63  6f 6c 25 29 0d 52 1c 11  | .putw(col%).R..|
0000b060  20 f2 70 75 74 77 28 62  63 6f 6c 25 29 0d 52 26  | .putw(bcol%).R&|
0000b070  11 20 f2 70 75 74 77 28  66 6f 6e 74 25 29 0d 52  |. .putw(font%).R|
0000b080  30 26 20 f2 70 75 74 77  28 78 73 69 7a 65 2a 36  |0& .putw(xsize*6|
0000b090  34 30 29 3a f2 70 75 74  77 28 79 73 69 7a 65 2a  |40):.putw(ysize*|
0000b0a0  36 34 30 29 0d 52 3a 12  20 f2 70 75 74 78 79 28  |640).R:. .putxy(|
0000b0b0  78 25 2c 79 25 29 0d 52  44 18 20 f2 70 75 74 73  |x%,y%).RD. .puts|
0000b0c0  28 74 65 78 74 24 29 3a  f2 61 6c 69 67 6e 0d 52  |(text$):.align.R|
0000b0d0  4e 0e 20 f2 68 65 61 64  5f 6e 6f 77 0d 52 58 12  |N. .head_now.RX.|
0000b0e0  20 e7 20 75 6c 69 6e 65  25 3c 3e 30 20 8c 0d 52  | . uline%<>0 ..R|
0000b0f0  62 11 20 20 20 c8 8e 20  66 6f 6e 74 25 20 ca 0d  |b.   .. font% ..|
0000b100  52 6c 0d 20 20 20 20 20  c9 20 31 3a 0d 52 76 20  |Rl.     . 1:.Rv |
0000b110  20 20 20 20 20 20 20 c8  99 20 22 46 6f 6e 74 5f  |       .. "Font_|
0000b120  53 65 74 46 6f 6e 74 22  2c 66 31 25 0d 52 80 1d  |SetFont",f1%.R..|
0000b130  20 20 20 20 20 20 20 73  63 78 3d 78 73 69 7a 65  |       scx=xsize|
0000b140  2f 31 35 2a 31 2e 30 32  35 0d 52 8a 22 20 20 20  |/15*1.025.R."   |
0000b150  20 20 20 20 6c 65 6e 3d  a4 6c 65 6e 28 74 65 78  |    len=.len(tex|
0000b160  74 24 2c 66 31 25 29 2a  73 63 78 0d 52 94 0d 20  |t$,f1%)*scx.R.. |
0000b170  20 20 20 20 c9 20 32 3a  0d 52 9e 20 20 20 20 20  |    . 2:.R.     |
0000b180  20 20 20 c8 99 20 22 46  6f 6e 74 5f 53 65 74 46  |   .. "Font_SetF|
0000b190  6f 6e 74 22 2c 66 32 25  0d 52 a8 1d 20 20 20 20  |ont",f2%.R..    |
0000b1a0  20 20 20 73 63 78 3d 78  73 69 7a 65 2f 32 34 2a  |   scx=xsize/24*|
0000b1b0  31 2e 30 32 35 0d 52 b2  22 20 20 20 20 20 20 20  |1.025.R."       |
0000b1c0  6c 65 6e 3d a4 6c 65 6e  28 74 65 78 74 24 2c 66  |len=.len(text$,f|
0000b1d0  32 25 29 2a 73 63 78 0d  52 bc 33 20 20 20 20 20  |2%)*scx.R.3     |
0000b1e0  7f 3a f2 72 65 70 6f 72  74 28 22 55 6e 6b 6e 6f  |.:.report("Unkno|
0000b1f0  77 6e 20 46 6f 6e 74 20  49 6e 20 50 52 4f 43 74  |wn Font In PROCt|
0000b200  65 78 74 22 2c 31 37 29  3a e1 0d 52 c6 08 20 20  |ext",17):..R..  |
0000b210  20 cb 0d 52 d0 14 20 20  20 79 25 2d 3d 79 73 69  | ..R..   y%-=ysi|
0000b220  7a 65 2a 31 36 30 0d 52  da 32 20 20 20 f2 70 61  |ze*160.R.2   .pa|
0000b230  74 68 5f 73 74 61 72 74  28 78 25 2c 79 25 2c 75  |th_start(x%,y%,u|
0000b240  6c 69 6e 65 25 2a 36 34  30 2c 62 6c 61 63 6b 25  |line%*640,black%|
0000b250  2c 62 6c 61 63 6b 25 29  0d 52 e4 1c 20 20 20 f2  |,black%).R..   .|
0000b260  70 61 74 68 5f 64 72 61  77 28 78 25 2b 6c 65 6e  |path_draw(x%+len|
0000b270  2c 79 25 29 0d 52 ee 10  20 20 20 f2 70 61 74 68  |,y%).R..   .path|
0000b280  5f 65 6e 64 0d 52 f8 06  20 cd 0d 53 02 06 20 e1  |_end.R.. ..S.. .|
0000b290  0d 53 0c 06 20 3a 0d 53  16 15 20 dd 20 a4 63 6f  |.S.. :.S.. . .co|
0000b2a0  6c 28 52 25 2c 47 25 2c  42 25 29 0d 53 20 1f 20  |l(R%,G%,B%).S . |
0000b2b0  3d 28 52 25 3c 3c 38 29  2b 28 47 25 3c 3c 31 36  |=(R%<<8)+(G%<<16|
0000b2c0  29 2b 28 42 25 3c 3c 32  34 29 0d 53 2a 06 20 3a  |)+(B%<<24).S*. :|
0000b2d0  0d 53 34 10 20 dd 20 f2  70 75 74 77 28 41 25 29  |.S4. . .putw(A%)|
0000b2e0  0d 53 3e 12 20 d5 23 63  25 2c 41 25 20 80 20 26  |.S>. .#c%,A% . &|
0000b2f0  46 46 0d 53 48 17 20 d5  23 63 25 2c 28 41 25 3e  |FF.SH. .#c%,(A%>|
0000b300  3e 38 29 20 80 20 26 46  46 0d 53 52 18 20 d5 23  |>8) . &FF.SR. .#|
0000b310  63 25 2c 28 41 25 3e 3e  31 36 29 20 80 20 26 46  |c%,(A%>>16) . &F|
0000b320  46 0d 53 5c 18 20 d5 23  63 25 2c 28 41 25 3e 3e  |F.S\. .#c%,(A%>>|
0000b330  32 34 29 20 80 20 26 46  46 0d 53 66 06 20 e1 0d  |24) . &FF.Sf. ..|
0000b340  53 70 06 20 3a 0d 53 7a  12 20 dd 20 f2 70 75 74  |Sp. :.Sz. . .put|
0000b350  73 31 32 28 41 24 29 0d  53 84 09 20 ea 20 41 25  |s12(A$).S.. . A%|
0000b360  0d 53 8e 13 20 41 24 3d  41 24 2b c4 31 32 2c 22  |.S.. A$=A$+.12,"|
0000b370  20 22 29 0d 53 98 22 20  e3 20 41 25 3d 31 b8 31  | ").S." . A%=1.1|
0000b380  32 3a d5 23 63 25 2c 97  28 c1 41 24 2c 41 25 2c  |2:.#c%,.(.A$,A%,|
0000b390  31 29 29 3a ed 0d 53 a2  06 20 e1 0d 53 ac 06 20  |1)):..S.. ..S.. |
0000b3a0  3a 0d 53 b6 10 20 dd 20  f2 70 75 74 73 28 41 24  |:.S.. . .puts(A$|
0000b3b0  29 0d 53 c0 09 20 ea 20  41 25 0d 53 ca 25 20 e3  |).S.. . A%.S.% .|
0000b3c0  20 41 25 3d 31 b8 a9 28  41 24 29 3a d5 23 63 25  | A%=1..(A$):.#c%|
0000b3d0  2c 97 28 c1 41 24 2c 41  25 2c 31 29 29 3a ed 0d  |,.(.A$,A%,1)):..|
0000b3e0  53 d4 0b 20 d5 23 63 25  2c 30 0d 53 de 06 20 e1  |S.. .#c%,0.S.. .|
0000b3f0  0d 53 e8 06 20 3a 0d 53  f2 17 20 dd 20 f2 68 65  |.S.. :.S.. . .he|
0000b400  61 64 5f 68 65 72 65 28  62 6f 78 25 29 0d 53 fc  |ad_here(box%).S.|
0000b410  56 20 e7 20 6c 65 76 25  3d 6d 61 78 6c 65 76 25  |V . lev%=maxlev%|
0000b420  20 8c 20 85 20 31 32 33  34 2c 22 54 6f 6f 20 6d  | . . 1234,"Too m|
0000b430  61 6e 79 20 6e 65 73 74  65 64 20 67 72 6f 75 70  |any nested group|
0000b440  73 2e 20 45 64 69 74 20  70 72 6f 67 72 61 6d 20  |s. Edit program |
0000b450  74 6f 20 69 6e 63 72 65  61 73 65 20 6c 69 6d 69  |to increase limi|
0000b460  74 2e 22 0d 54 06 0c 20  6c 65 76 25 2b 3d 31 0d  |t.".T.. lev%+=1.|
0000b470  54 10 14 20 62 6f 78 25  28 6c 65 76 25 29 3d 62  |T.. box%(lev%)=b|
0000b480  6f 78 25 0d 54 1a 16 20  73 74 61 72 74 25 28 6c  |ox%.T.. start%(l|
0000b490  65 76 25 29 3d 8f 23 63  25 0d 54 24 18 20 e7 20  |ev%)=.#c%.T$. . |
0000b4a0  6c 65 76 25 3e 30 20 8c  20 f2 70 75 74 77 28 30  |lev%>0 . .putw(0|
0000b4b0  29 0d 54 2e 0d 20 e7 20  62 6f 78 25 20 8c 0d 54  |).T.. . box% ..T|
0000b4c0  38 18 20 20 20 f2 70 75  74 77 28 30 29 3a f2 70  |8.   .putw(0):.p|
0000b4d0  75 74 77 28 30 29 0d 54  42 18 20 20 20 f2 70 75  |utw(0).TB.   .pu|
0000b4e0  74 77 28 30 29 3a f2 70  75 74 77 28 30 29 0d 54  |tw(0):.putw(0).T|
0000b4f0  4c 06 20 cd 0d 54 56 22  20 6c 25 28 6c 65 76 25  |L. ..TV" l%(lev%|
0000b500  29 3d 62 69 67 78 25 3a  62 25 28 6c 65 76 25 29  |)=bigx%:b%(lev%)|
0000b510  3d 62 69 67 79 25 0d 54  60 22 20 72 25 28 6c 65  |=bigy%.T`" r%(le|
0000b520  76 25 29 3d 62 69 67 78  25 3a 74 25 28 6c 65 76  |v%)=bigx%:t%(lev|
0000b530  25 29 3d 62 69 67 79 25  0d 54 6a 06 20 e1 0d 54  |%)=bigy%.Tj. ..T|
0000b540  74 06 20 3a 0d 54 7e 10  20 dd 20 f2 68 65 61 64  |t. :.T~. . .head|
0000b550  5f 6e 6f 77 0d 54 88 0b  20 ea 20 65 6e 64 25 0d  |_now.T.. . end%.|
0000b560  54 92 4c 20 e7 20 6c 65  76 25 3c 30 20 8c 20 f1  |T.L . lev%<0 . .|
0000b570  22 57 61 72 6e 69 6e 67  3a 20 61 74 74 65 6d 70  |"Warning: attemp|
0000b580  74 20 74 6f 20 65 6e 64  20 6d 6f 72 65 20 6f 62  |t to end more ob|
0000b590  6a 65 63 74 73 20 74 68  61 6e 20 77 65 72 65 20  |jects than were |
0000b5a0  73 74 61 72 74 65 64 2e  22 3a e1 0d 54 9c 0e 20  |started.":..T.. |
0000b5b0  65 6e 64 25 3d 8f 23 63  25 0d 54 a6 16 20 cf 23  |end%=.#c%.T.. .#|
0000b5c0  63 25 3d 73 74 61 72 74  25 28 6c 65 76 25 29 0d  |c%=start%(lev%).|
0000b5d0  54 b0 2a 20 e7 20 6c 65  76 25 3e 30 20 8c 20 f2  |T.* . lev%>0 . .|
0000b5e0  70 75 74 77 28 65 6e 64  25 2d 73 74 61 72 74 25  |putw(end%-start%|
0000b5f0  28 6c 65 76 25 29 2b 34  29 0d 54 ba 13 20 e7 20  |(lev%)+4).T.. . |
0000b600  62 6f 78 25 28 6c 65 76  25 29 20 8c 0d 54 c4 26  |box%(lev%) ..T.&|
0000b610  20 20 20 f2 70 75 74 77  28 6c 25 28 6c 65 76 25  |   .putw(l%(lev%|
0000b620  29 29 3a f2 70 75 74 77  28 62 25 28 6c 65 76 25  |)):.putw(b%(lev%|
0000b630  29 29 0d 54 ce 26 20 20  20 f2 70 75 74 77 28 72  |)).T.&   .putw(r|
0000b640  25 28 6c 65 76 25 29 29  3a f2 70 75 74 77 28 74  |%(lev%)):.putw(t|
0000b650  25 28 6c 65 76 25 29 29  0d 54 d8 06 20 cd 0d 54  |%(lev%)).T.. ..T|
0000b660  e2 0f 20 e7 20 6c 65 76  25 3e 30 20 8c 0d 54 ec  |.. . lev%>0 ..T.|
0000b670  0e 20 20 20 6c 65 76 25  2d 3d 31 0d 54 f6 32 20  |.   lev%-=1.T.2 |
0000b680  20 20 e7 20 6c 25 28 6c  65 76 25 2b 31 29 3c 6c  |  . l%(lev%+1)<l|
0000b690  25 28 6c 65 76 25 29 20  8c 20 6c 25 28 6c 65 76  |%(lev%) . l%(lev|
0000b6a0  25 29 3d 6c 25 28 6c 65  76 25 2b 31 29 0d 55 00  |%)=l%(lev%+1).U.|
0000b6b0  32 20 20 20 e7 20 62 25  28 6c 65 76 25 2b 31 29  |2   . b%(lev%+1)|
0000b6c0  3c 62 25 28 6c 65 76 25  29 20 8c 20 62 25 28 6c  |<b%(lev%) . b%(l|
0000b6d0  65 76 25 29 3d 62 25 28  6c 65 76 25 2b 31 29 0d  |ev%)=b%(lev%+1).|
0000b6e0  55 0a 32 20 20 20 e7 20  72 25 28 6c 65 76 25 2b  |U.2   . r%(lev%+|
0000b6f0  31 29 3c 72 25 28 6c 65  76 25 29 20 8c 20 72 25  |1)<r%(lev%) . r%|
0000b700  28 6c 65 76 25 29 3d 72  25 28 6c 65 76 25 2b 31  |(lev%)=r%(lev%+1|
0000b710  29 0d 55 14 32 20 20 20  e7 20 74 25 28 6c 65 76  |).U.2   . t%(lev|
0000b720  25 2b 31 29 3c 74 25 28  6c 65 76 25 29 20 8c 20  |%+1)<t%(lev%) . |
0000b730  74 25 28 6c 65 76 25 29  3d 74 25 28 6c 65 76 25  |t%(lev%)=t%(lev%|
0000b740  2b 31 29 0d 55 1e 06 20  cd 0d 55 28 0e 20 cf 23  |+1).U.. ..U(. .#|
0000b750  63 25 3d 65 6e 64 25 0d  55 32 06 20 e1 0d 55 3c  |c%=end%.U2. ..U<|
0000b760  06 20 3a 0d 55 46 14 20  dd 20 f2 70 75 74 78 79  |. :.UF. . .putxy|
0000b770  28 78 25 2c 79 25 29 0d  55 50 18 20 f2 70 75 74  |(x%,y%).UP. .put|
0000b780  77 28 78 25 29 3a f2 70  75 74 77 28 79 25 29 0d  |w(x%):.putw(y%).|
0000b790  55 5a 20 20 e7 20 78 25  3c 6c 25 28 6c 65 76 25  |UZ  . x%<l%(lev%|
0000b7a0  29 20 8c 20 6c 25 28 6c  65 76 25 29 3d 78 25 0d  |) . l%(lev%)=x%.|
0000b7b0  55 64 20 20 e7 20 79 25  3c 62 25 28 6c 65 76 25  |Ud  . y%<b%(lev%|
0000b7c0  29 20 8c 20 62 25 28 6c  65 76 25 29 3d 79 25 0d  |) . b%(lev%)=y%.|
0000b7d0  55 6e 20 20 e7 20 78 25  3e 72 25 28 6c 65 76 25  |Un  . x%>r%(lev%|
0000b7e0  29 20 8c 20 72 25 28 6c  65 76 25 29 3d 78 25 0d  |) . r%(lev%)=x%.|
0000b7f0  55 78 20 20 e7 20 79 25  3e 74 25 28 6c 65 76 25  |Ux  . y%>t%(lev%|
0000b800  29 20 8c 20 74 25 28 6c  65 76 25 29 3d 79 25 0d  |) . t%(lev%)=y%.|
0000b810  55 82 06 20 e1 0d 55 8c  06 20 3a 0d 55 96 0d 20  |U.. ..U.. :.U.. |
0000b820  dd 20 f2 61 6c 69 67 6e  0d 55 a0 19 20 c8 95 20  |. .align.U.. .. |
0000b830  8f 23 63 25 20 80 20 33  3a d5 23 63 25 2c 30 3a  |.#c% . 3:.#c%,0:|
0000b840  ce 0d 55 aa 06 20 e1 0d  55 b4 06 20 3a 0d 55 be  |..U.. ..U.. :.U.|
0000b850  1b 20 dd 20 f2 73 61 76  65 5f 69 74 5f 64 72 61  |. . .save_it_dra|
0000b860  77 28 f8 20 6f 6b 25 29  0d 55 c8 1d 20 ea 20 66  |w(. ok%).U.. . f|
0000b870  6f 6e 74 73 25 2c 66 74  25 2c 74 79 70 65 25 2c  |onts%,ft%,type%,|
0000b880  63 6f 6e 74 25 0d 55 d2  17 20 66 6f 6e 74 73 25  |cont%.U.. fonts%|
0000b890  3d a4 66 69 6e 64 5f 66  6f 6e 74 73 0d 55 dc 14  |=.find_fonts.U..|
0000b8a0  20 e7 20 ac 28 66 6f 6e  74 73 25 29 20 8c 20 e1  | . .(fonts%) . .|
0000b8b0  0d 55 e6 08 20 ea 20 85  0d 55 f0 0a 20 6f 6b 25  |.U.. . ..U.. ok%|
0000b8c0  3d b9 0d 55 fa 23 20 e7  20 71 75 61 72 74 65 72  |=..U.# . quarter|
0000b8d0  73 25 3c 3e 31 20 80 20  70 65 72 5f 74 65 61 6d  |s%<>1 . per_team|
0000b8e0  25 3d 30 20 8c 0d 56 04  22 20 20 20 f2 66 69 6c  |%=0 ..V."   .fil|
0000b8f0  65 74 79 70 65 28 66 69  6c 65 32 25 2c 74 79 70  |etype(file2%,typ|
0000b900  65 25 2c 66 74 25 29 0d  56 0e 11 20 20 20 c8 8e  |e%,ft%).V..   ..|
0000b910  20 74 79 70 65 25 20 ca  0d 56 18 0d 20 20 20 20  | type% ..V..    |
0000b920  20 c9 20 31 3a 0d 56 22  59 20 20 20 20 20 20 20  | . 1:.V"Y       |
0000b930  f2 72 65 70 6f 72 74 28  22 41 6e 20 6f 62 6a 65  |.report("An obje|
0000b940  63 74 20 6f 66 20 74 68  69 73 20 6e 61 6d 65 20  |ct of this name |
0000b950  61 6c 72 65 61 64 79 20  65 78 69 73 74 73 2e 20  |already exists. |
0000b960  55 6e 61 62 6c 65 20 74  6f 20 6f 70 65 6e 20 64  |Unable to open d|
0000b970  69 72 65 63 74 6f 72 79  2e 22 2c 31 36 29 0d 56  |irectory.",16).V|
0000b980  2c 10 20 20 20 20 20 20  20 6f 6b 25 3d a3 0d 56  |,.       ok%=..V|
0000b990  36 0c 20 20 20 20 20 20  20 e1 0d 56 40 0d 20 20  |6.       ..V@.  |
0000b9a0  20 20 20 c9 20 32 3a 0d  56 4a 4b 20 20 20 20 20  |   . 2:.VJK     |
0000b9b0  20 20 63 6f 6e 74 25 3d  a4 79 6e 28 22 41 20 64  |  cont%=.yn("A d|
0000b9c0  69 72 65 63 74 6f 72 79  20 6f 66 20 74 68 69 73  |irectory of this|
0000b9d0  20 6e 61 6d 65 20 61 6c  72 65 61 64 79 20 65 78  | name already ex|
0000b9e0  69 73 74 73 2e 20 43 6f  6e 74 69 6e 75 65 20 3f  |ists. Continue ?|
0000b9f0  22 29 0d 56 54 17 20 20  20 20 20 20 20 e7 20 ac  |").VT.       . .|
0000ba00  28 63 6f 6e 74 25 29 20  8c 0d 56 5e 12 20 20 20  |(cont%) ..V^.   |
0000ba10  20 20 20 20 20 20 6f 6b  25 3d a3 0d 56 68 0e 20  |      ok%=..Vh. |
0000ba20  20 20 20 20 20 20 20 20  e1 0d 56 72 0c 20 20 20  |        ..Vr.   |
0000ba30  20 20 20 20 cd 0d 56 7c  0a 20 20 20 20 20 cb 0d  |    ..V|.     ..|
0000ba40  56 86 50 20 20 20 ee 20  85 20 ea 3a f7 20 85 3a  |V.P   . . .:. .:|
0000ba50  f2 72 65 70 6f 72 74 28  22 55 6e 61 62 6c 65 20  |.report("Unable |
0000ba60  74 6f 20 6f 70 65 6e 20  64 69 72 65 63 74 6f 72  |to open director|
0000ba70  79 2e 20 46 49 4c 45 53  a0 4e 4f 54 a0 53 41 56  |y. FILES.NOT.SAV|
0000ba80  45 44 22 2c 31 37 29 3a  6f 6b 25 3d a3 3a e1 0d  |ED",17):ok%=.:..|
0000ba90  56 90 1c 20 20 20 c8 99  20 22 4f 53 5f 46 69 6c  |V..   .. "OS_Fil|
0000baa0  65 22 2c 38 2c 66 69 6c  65 32 25 0d 56 9a 0a 20  |e",8,file2%.V.. |
0000bab0  20 20 f7 20 85 0d 56 a4  06 20 cd 0d 56 ae 15 20  |  . ..V.. ..V.. |
0000bac0  e7 20 70 65 72 5f 74 65  61 6d 25 3c 3e 30 20 8c  |. per_team%<>0 .|
0000bad0  0d 56 b8 1a 20 20 20 f2  73 61 76 65 5f 69 74 5f  |.V..   .save_it_|
0000bae0  74 65 61 6d 73 28 6f 6b  25 29 0d 56 c2 13 20 20  |teams(ok%).V..  |
0000baf0  20 f2 63 6c 6f 73 65 5f  6d 65 6e 75 73 0d 56 cc  | .close_menus.V.|
0000bb00  08 20 20 20 e1 0d 56 d6  06 20 cd 0d 56 e0 14 20  |.   ..V.. ..V.. |
0000bb10  e7 20 71 75 61 72 74 65  72 73 25 3d 31 20 8c 0d  |. quarters%=1 ..|
0000bb20  56 ea 10 20 20 20 6f 6b  25 3d a4 63 6f 6e 74 0d  |V..   ok%=.cont.|
0000bb30  56 f4 13 20 20 20 e7 20  ac 28 6f 6b 25 29 20 8c  |V..   . .(ok%) .|
0000bb40  20 e1 0d 56 fe 06 20 cd  0d 57 08 16 20 c8 99 20  | ..V.. ..W.. .. |
0000bb50  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 57  |"Hourglass_On".W|
0000bb60  12 16 20 e3 20 6e 25 3d  31 b8 20 71 75 61 72 74  |.. . n%=1. quart|
0000bb70  65 72 73 25 0d 57 1c 2a  20 20 20 f2 64 72 61 77  |ers%.W.*   .draw|
0000bb80  66 69 6c 65 5f 71 75 61  72 74 65 72 28 6e 25 2c  |file_quarter(n%,|
0000bb90  71 75 61 72 74 65 72 73  25 2c 6f 6b 25 29 0d 57  |quarters%,ok%).W|
0000bba0  26 06 20 ed 0d 57 30 17  20 c8 99 20 22 48 6f 75  |&. ..W0. .. "Hou|
0000bbb0  72 67 6c 61 73 73 5f 4f  66 66 22 0d 57 3a 11 20  |rglass_Off".W:. |
0000bbc0  f2 63 6c 6f 73 65 5f 6d  65 6e 75 73 0d 57 44 0a  |.close_menus.WD.|
0000bbd0  20 6f 6b 25 3d b9 0d 57  4e 06 20 e1 0d 57 58 06  | ok%=..WN. ..WX.|
0000bbe0  20 3a 0d 57 62 0c 20 dd  20 a4 63 6f 6e 74 0d 57  | :.Wb. . .cont.W|
0000bbf0  6c 14 20 ea 20 74 79 70  65 25 2c 66 74 25 2c 6f  |l. . type%,ft%,o|
0000bc00  6b 25 0d 57 76 20 20 f2  66 69 6c 65 74 79 70 65  |k%.Wv  .filetype|
0000bc10  28 66 69 6c 65 32 25 2c  74 79 70 65 25 2c 66 74  |(file2%,type%,ft|
0000bc20  25 29 0d 57 80 0f 20 c8  8e 20 74 79 70 65 25 20  |%).W.. .. type% |
0000bc30  ca 0d 57 8a 0b 20 20 20  c9 20 32 3a 0d 57 94 2c  |..W..   . 2:.W.,|
0000bc40  20 20 20 20 20 f2 72 65  70 6f 72 74 28 22 4f 62  |     .report("Ob|
0000bc50  6a 65 63 74 20 69 73 20  61 20 64 69 72 65 63 74  |ject is a direct|
0000bc60  6f 72 79 22 2c 31 37 29  0d 57 9e 0b 20 20 20 20  |ory",17).W..    |
0000bc70  20 3d a3 0d 57 a8 0b 20  20 20 c9 20 31 3a 0d 57  | =..W..   . 1:.W|
0000bc80  b2 15 20 20 20 20 20 e7  20 66 74 25 3d 26 41 46  |..     . ft%=&AF|
0000bc90  46 20 8c 0d 57 bc 0d 20  20 20 20 20 20 20 3d b9  |F ..W..       =.|
0000bca0  0d 57 c6 0a 20 20 20 20  20 cc 0d 57 d0 55 20 20  |.W..     ..W.U  |
0000bcb0  20 20 20 20 20 3d a4 79  6e 28 22 41 6e 20 6f 62  |     =.yn("An ob|
0000bcc0  6a 65 63 74 20 6f 66 20  74 68 69 73 20 6e 61 6d  |ject of this nam|
0000bcd0  65 20 61 6c 72 65 61 64  79 20 65 78 69 73 74 73  |e already exists|
0000bce0  20 28 74 79 70 65 20 22  2b c3 7e 66 74 25 2b 22  | (type "+.~ft%+"|
0000bcf0  29 2e 20 43 6f 6e 74 69  6e 75 65 20 3f 22 29 0d  |). Continue ?").|
0000bd00  57 da 0a 20 20 20 20 20  cd 0d 57 e4 0b 20 20 20  |W..     ..W..   |
0000bd10  c9 20 30 3a 0d 57 ee 0b  20 20 20 20 20 3d b9 0d  |. 0:.W..     =..|
0000bd20  57 f8 09 20 20 20 7f 3a  0d 58 02 31 20 20 20 20  |W..   .:.X.1    |
0000bd30  20 f2 72 65 70 6f 72 74  28 22 74 79 70 65 25 3d  | .report("type%=|
0000bd40  20 22 2b c3 74 79 70 65  25 22 20 69 6e 20 46 4e  | "+.type%" in FN|
0000bd50  63 6f 6e 74 22 2c 31 36  29 0d 58 0c 0b 20 20 20  |cont",16).X..   |
0000bd60  20 20 3d a3 0d 58 16 06  20 cb 0d 58 20 06 20 3a  |  =..X.. ..X . :|
0000bd70  0d 58 2a 15 20 dd 20 a4  63 6f 6c 28 52 25 2c 47  |.X*. . .col(R%,G|
0000bd80  25 2c 42 25 29 0d 58 34  1f 20 3d 28 52 25 3c 3c  |%,B%).X4. =(R%<<|
0000bd90  38 29 2b 28 47 25 3c 3c  31 36 29 2b 28 42 25 3c  |8)+(G%<<16)+(B%<|
0000bda0  3c 32 34 29 0d 58 3e 06  20 3a 0d 58 48 11 20 dd  |<24).X>. :.XH. .|
0000bdb0  20 a4 63 6f 6c 6f 75 72  28 58 29 0d 58 52 08 20  | .colour(X).XR. |
0000bdc0  ea 20 63 0d 58 5c 0f 20  e7 20 58 3d 37 20 8c 20  |. c.X\. . X=7 . |
0000bdd0  3d 30 0d 58 66 0c 20 e7  20 58 3c 37 20 8c 0d 58  |=0.Xf. . X<7 ..X|
0000bde0  70 11 20 20 20 63 3d 32  35 35 2d 32 34 2a 58 0d  |p.   c=255-24*X.|
0000bdf0  58 7a 13 20 20 20 3d a4  63 6f 6c 28 63 2c 63 2c  |Xz.   =.col(c,c,|
0000be00  63 29 0d 58 84 06 20 cd  0d 58 8e 20 20 3d a4 63  |c).X.. ..X.  =.c|
0000be10  6f 6c 28 b3 28 32 35 35  29 2c b3 28 32 35 35 29  |ol(.(255),.(255)|
0000be20  2c b3 28 32 35 35 29 29  0d 58 98 06 20 3a 0d 58  |,.(255)).X.. :.X|
0000be30  a2 2c 20 dd 20 f2 64 72  61 77 66 69 6c 65 5f 71  |., . .drawfile_q|
0000be40  75 61 72 74 65 72 28 6e  25 2c 71 75 61 72 74 65  |uarter(n%,quarte|
0000be50  72 73 25 2c f8 20 6f 6b  25 29 0d 58 ac 0c 20 ea  |rs%,. ok%).X.. .|
0000be60  20 66 24 2c 79 25 0d 58  b6 0f 20 66 24 3d 24 66  | f$,y%.X.. f$=$f|
0000be70  69 6c 65 32 25 0d 58 c0  23 20 e7 20 71 75 61 72  |ile2%.X.# . quar|
0000be80  74 65 72 73 25 3c 3e 31  20 8c 20 66 24 2b 3d 22  |ters%<>1 . f$+="|
0000be90  2e 22 2b c3 28 6e 25 29  0d 58 ca 18 20 f2 64 72  |."+.(n%).X.. .dr|
0000bea0  61 77 66 69 6c 65 5f 73  74 61 72 74 28 66 24 29  |awfile_start(f$)|
0000beb0  0d 58 d4 0f 20 f2 66 6f  6e 74 74 61 62 6c 65 0d  |.X.. .fonttable.|
0000bec0  58 de 15 20 f2 64 72 61  77 5f 74 69 74 6c 65 28  |X.. .draw_title(|
0000bed0  32 2c 30 29 0d 58 e8 15  20 e7 20 71 75 61 72 74  |2,0).X.. . quart|
0000bee0  65 72 73 25 3c 3e 31 20  8c 0d 58 f2 1f 20 20 20  |ers%<>1 ..X..   |
0000bef0  f2 73 75 62 5f 74 69 74  6c 65 28 6e 25 2c 71 75  |.sub_title(n%,qu|
0000bf00  61 72 74 65 72 73 25 29  0d 58 fc 0e 20 20 20 79  |arters%).X..   y|
0000bf10  25 3d 31 38 30 30 0d 59  06 06 20 cc 0d 59 10 0e  |%=1800.Y.. ..Y..|
0000bf20  20 20 20 79 25 3d 31 38  38 30 0d 59 1a 06 20 cd  |   y%=1880.Y.. .|
0000bf30  0d 59 24 19 20 f2 64 72  61 77 5f 71 75 61 72 74  |.Y$. .draw_quart|
0000bf40  65 72 28 6e 25 2c 79 25  29 0d 59 2e 12 20 f2 64  |er(n%,y%).Y.. .d|
0000bf50  72 61 77 66 69 6c 65 5f  65 6e 64 0d 59 38 06 20  |rawfile_end.Y8. |
0000bf60  e1 0d 59 42 06 20 3a 0d  59 4c 1e dd 20 f2 64 72  |..YB. :.YL.. .dr|
0000bf70  61 77 5f 71 75 61 72 74  65 72 28 71 75 61 72 74  |aw_quarter(quart|
0000bf80  25 2c 79 25 29 0d 59 56  24 ea 20 6e 25 2c 6d 25  |%,y%).YV$. n%,m%|
0000bf90  2c 79 79 25 2c 62 78 25  2c 62 61 73 65 25 2c 74  |,yy%,bx%,base%,t|
0000bfa0  68 69 63 6b 25 2c 74 68  25 0d 59 60 0f f2 6c 6f  |hick%,th%.Y`..lo|
0000bfb0  6e 67 65 73 74 28 a3 29  0d 59 6a 33 e7 20 6d 61  |ngest(.).Yj3. ma|
0000bfc0  78 5f 6c 65 6e 25 3c 32  30 30 2a 78 73 63 61 6c  |x_len%<200*xscal|
0000bfd0  65 32 25 20 8c 20 6d 61  78 5f 6c 65 6e 25 3d 32  |e2% . max_len%=2|
0000bfe0  30 30 2a 78 73 63 61 6c  65 32 25 0d 59 74 39 f4  |00*xscale2%.Yt9.|
0000bff0  20 49 46 20 6d 61 78 5f  6c 65 6e 25 3e 34 30 30  | IF max_len%>400|
0000c000  2a 78 73 63 61 6c 65 32  25 20 54 48 45 4e 20 6d  |*xscale2% THEN m|
0000c010  61 78 5f 6c 65 6e 25 3d  34 30 30 2a 78 73 63 61  |ax_len%=400*xsca|
0000c020  6c 65 32 25 0d 59 7e 1f  62 61 73 65 25 3d 28 71  |le2%.Y~.base%=(q|
0000c030  75 61 72 74 25 2d 31 29  2a 70 65 72 5f 71 75 61  |uart%-1)*per_qua|
0000c040  72 74 25 0d 59 88 0a 62  78 25 3d 37 30 0d 59 92  |rt%.Y..bx%=70.Y.|
0000c050  0e 74 68 69 63 6b 25 3d  33 32 30 0d 59 9c 10 74  |.thick%=320.Y..t|
0000c060  68 25 3d 74 68 69 63 6b  25 2f 32 0d 59 a6 0e f2  |h%=thick%/2.Y...|
0000c070  63 6f 6c 6f 75 72 28 30  29 0d 59 b0 25 e3 20 6e  |colour(0).Y.%. n|
0000c080  25 3d 62 61 73 65 25 2b  31 b8 62 61 73 65 25 2b  |%=base%+1.base%+|
0000c090  70 65 72 5f 71 75 61 72  74 25 20 88 20 32 0d 59  |per_quart% . 2.Y|
0000c0a0  ba 1d 20 20 e7 20 64 72  61 77 24 28 6e 25 2b 31  |..  . draw$(n%+1|
0000c0b0  29 3c 3e 22 20 62 79 65  22 20 8c 0d 59 c4 10 20  |)<>" bye" ..Y.. |
0000c0c0  20 20 20 e3 20 6d 25 3d  30 b8 31 0d 59 ce 21 20  |   . m%=0.1.Y.! |
0000c0d0  20 20 20 20 20 79 79 25  3d 79 25 2d 28 6e 25 2b  |     yy%=y%-(n%+|
0000c0e0  6d 25 2d 62 61 73 65 25  29 2a 35 30 0d 59 d8 50  |m%-base%)*50.Y.P|
0000c0f0  20 20 20 20 20 20 f2 74  65 78 74 28 62 78 25 2a  |      .text(bx%*|
0000c100  78 73 63 61 6c 65 32 25  2c 28 79 79 25 2b 35 29  |xscale2%,(yy%+5)|
0000c110  2a 79 73 63 61 6c 65 25  2c a4 73 65 65 64 28 6e  |*yscale%,.seed(n|
0000c120  25 2b 6d 25 29 2c 36 2c  38 2c 31 2c 62 6c 61 63  |%+m%),6,8,1,blac|
0000c130  6b 25 2c 62 6c 61 63 6b  25 2c 30 29 0d 59 e2 44  |k%,black%,0).Y.D|
0000c140  20 20 20 20 20 20 f2 70  61 74 68 5f 73 74 61 72  |      .path_star|
0000c150  74 28 62 78 25 2a 78 73  63 61 6c 65 32 25 2c 79  |t(bx%*xscale2%,y|
0000c160  79 25 2a 79 73 63 61 6c  65 25 2c 74 68 69 63 6b  |y%*yscale%,thick|
0000c170  25 2c 62 6c 61 63 6b 25  2c 77 68 69 74 65 25 29  |%,black%,white%)|
0000c180  0d 59 ec 3b 20 20 20 20  20 20 f2 70 61 74 68 5f  |.Y.;      .path_|
0000c190  64 72 61 77 28 62 78 25  2a 78 73 63 61 6c 65 32  |draw(bx%*xscale2|
0000c1a0  25 2b 6d 61 78 5f 6c 65  6e 25 2b 74 68 25 2c 79  |%+max_len%+th%,y|
0000c1b0  79 25 2a 79 73 63 61 6c  65 25 29 0d 59 f6 13 20  |y%*yscale%).Y.. |
0000c1c0  20 20 20 20 20 f2 70 61  74 68 5f 65 6e 64 0d 5a  |     .path_end.Z|
0000c1d0  00 09 20 20 20 20 ed 0d  5a 0a 4b 20 20 20 20 f2  |..    ..Z.K    .|
0000c1e0  70 61 74 68 5f 73 74 61  72 74 28 62 78 25 2a 78  |path_start(bx%*x|
0000c1f0  73 63 61 6c 65 32 25 2b  6d 61 78 5f 6c 65 6e 25  |scale2%+max_len%|
0000c200  2c 79 79 25 2a 79 73 63  61 6c 65 25 2c 74 68 69  |,yy%*yscale%,thi|
0000c210  63 6b 25 2c 62 6c 61 63  6b 25 2c 77 68 69 74 65  |ck%,black%,white|
0000c220  25 29 0d 5a 14 3a 20 20  20 20 f2 70 61 74 68 5f  |%).Z.:    .path_|
0000c230  64 72 61 77 28 62 78 25  2a 78 73 63 61 6c 65 32  |draw(bx%*xscale2|
0000c240  25 2b 6d 61 78 5f 6c 65  6e 25 2c 28 79 79 25 2b  |%+max_len%,(yy%+|
0000c250  35 30 29 2a 79 73 63 61  6c 65 25 29 0d 5a 1e 11  |50)*yscale%).Z..|
0000c260  20 20 20 20 f2 70 61 74  68 5f 65 6e 64 0d 5a 28  |    .path_end.Z(|
0000c270  50 20 20 20 20 f2 70 61  74 68 5f 73 74 61 72 74  |P    .path_start|
0000c280  28 62 78 25 2a 78 73 63  61 6c 65 32 25 2b 6d 61  |(bx%*xscale2%+ma|
0000c290  78 5f 6c 65 6e 25 2c 28  79 79 25 2b 32 35 29 2a  |x_len%,(yy%+25)*|
0000c2a0  79 73 63 61 6c 65 25 2c  74 68 69 63 6b 25 2c 62  |yscale%,thick%,b|
0000c2b0  6c 61 63 6b 25 2c 77 68  69 74 65 25 29 0d 5a 32  |lack%,white%).Z2|
0000c2c0  44 20 20 20 20 f2 70 61  74 68 5f 64 72 61 77 28  |D    .path_draw(|
0000c2d0  28 62 78 25 2b 32 30 30  29 2a 78 73 63 61 6c 65  |(bx%+200)*xscale|
0000c2e0  32 25 2b 6d 61 78 5f 6c  65 6e 25 2b 74 68 25 2c  |2%+max_len%+th%,|
0000c2f0  28 79 79 25 2b 32 35 29  2a 79 73 63 61 6c 65 25  |(yy%+25)*yscale%|
0000c300  29 0d 5a 3c 11 20 20 20  20 f2 70 61 74 68 5f 65  |).Z<.    .path_e|
0000c310  6e 64 0d 5a 46 07 20 20  cc 0d 5a 50 1f 20 20 20  |nd.ZF.  ..ZP.   |
0000c320  20 79 79 25 3d 79 25 2d  28 6e 25 2d 62 61 73 65  | yy%=y%-(n%-base|
0000c330  25 29 2a 35 30 2d 32 35  0d 5a 5a 51 20 20 20 20  |%)*50-25.ZZQ    |
0000c340  f2 74 65 78 74 28 28 32  30 30 2b 62 78 25 29 2a  |.text((200+bx%)*|
0000c350  78 73 63 61 6c 65 32 25  2c 28 79 79 25 2b 35 29  |xscale2%,(yy%+5)|
0000c360  2a 79 73 63 61 6c 65 25  2c a4 73 65 65 64 28 6e  |*yscale%,.seed(n|
0000c370  25 29 2c 36 2c 38 2c 31  2c 62 6c 61 63 6b 25 2c  |%),6,8,1,black%,|
0000c380  62 6c 61 63 6b 25 2c 30  29 0d 5a 64 0f 20 20 20  |black%,0).Zd.   |
0000c390  20 79 79 25 2d 3d 32 35  0d 5a 6e 4d 20 20 20 20  | yy%-=25.ZnM    |
0000c3a0  f2 70 61 74 68 5f 73 74  61 72 74 28 28 62 78 25  |.path_start((bx%|
0000c3b0  2b 32 30 30 29 2a 78 73  63 61 6c 65 32 25 2c 28  |+200)*xscale2%,(|
0000c3c0  79 79 25 2b 32 35 29 2a  79 73 63 61 6c 65 25 2c  |yy%+25)*yscale%,|
0000c3d0  74 68 69 63 6b 25 2c 62  6c 61 63 6b 25 2c 77 68  |thick%,black%,wh|
0000c3e0  69 74 65 25 29 0d 5a 78  44 20 20 20 20 f2 70 61  |ite%).ZxD    .pa|
0000c3f0  74 68 5f 64 72 61 77 28  28 62 78 25 2b 32 30 30  |th_draw((bx%+200|
0000c400  29 2a 78 73 63 61 6c 65  32 25 2b 6d 61 78 5f 6c  |)*xscale2%+max_l|
0000c410  65 6e 25 2b 74 68 25 2c  28 79 79 25 2b 32 35 29  |en%+th%,(yy%+25)|
0000c420  2a 79 73 63 61 6c 65 25  29 0d 5a 82 11 20 20 20  |*yscale%).Z..   |
0000c430  20 f2 70 61 74 68 5f 65  6e 64 0d 5a 8c 07 20 20  | .path_end.Z..  |
0000c440  cd 0d 5a 96 05 ed 0d 5a  a0 0d 6d 25 3d 31 3a 6e  |..Z....Z..m%=1:n|
0000c450  25 3d 31 0d 5a aa 14 c8  95 20 6d 25 3c 70 65 72  |%=1.Z.... m%<per|
0000c460  5f 71 75 61 72 74 25 0d  5a b4 0d 20 20 6d 25 3d  |_quart%.Z..  m%=|
0000c470  6d 25 2a 32 0d 5a be 0b  20 20 6e 25 2b 3d 31 0d  |m%*2.Z..  n%+=1.|
0000c480  5a c8 05 ce 0d 5a d2 3e  f2 64 72 61 77 5f 6c 69  |Z....Z.>.draw_li|
0000c490  6e 65 73 28 6e 25 2a 32  30 30 2b 62 78 25 2d 32  |nes(n%*200+bx%-2|
0000c4a0  30 30 2c 79 25 2d 32 35  2a 70 65 72 5f 71 75 61  |00,y%-25*per_qua|
0000c4b0  72 74 25 2d 32 35 2c 70  65 72 5f 71 75 61 72 74  |rt%-25,per_quart|
0000c4c0  25 29 0d 5a dc 05 e1 0d  5a e6 05 3a 0d 5a f0 1b  |%).Z....Z..:.Z..|
0000c4d0  dd 20 f2 64 72 61 77 5f  6c 69 6e 65 73 28 78 25  |. .draw_lines(x%|
0000c4e0  2c 79 25 2c 7a 25 29 0d  5a fa 49 f2 70 61 74 68  |,y%,z%).Z.I.path|
0000c4f0  5f 73 74 61 72 74 28 78  25 2a 78 73 63 61 6c 65  |_start(x%*xscale|
0000c500  32 25 2b 6d 61 78 5f 6c  65 6e 25 2b 74 68 25 2c  |2%+max_len%+th%,|
0000c510  79 25 2a 79 73 63 61 6c  65 25 2c 74 68 69 63 6b  |y%*yscale%,thick|
0000c520  25 2c 62 6c 61 63 6b 25  2c 77 68 69 74 65 25 29  |%,black%,white%)|
0000c530  0d 5b 04 39 f2 70 61 74  68 5f 64 72 61 77 28 28  |.[.9.path_draw((|
0000c540  78 25 2d 32 30 30 29 2a  78 73 63 61 6c 65 32 25  |x%-200)*xscale2%|
0000c550  2b 6d 61 78 5f 6c 65 6e  25 2b 74 68 25 2c 79 25  |+max_len%+th%,y%|
0000c560  2a 79 73 63 61 6c 65 25  29 0d 5b 0e 0d f2 70 61  |*yscale%).[...pa|
0000c570  74 68 5f 65 6e 64 0d 5b  18 0b 78 25 2d 3d 32 30  |th_end.[..x%-=20|
0000c580  30 0d 5b 22 4f f2 70 61  74 68 5f 73 74 61 72 74  |0.["O.path_start|
0000c590  28 78 25 2a 78 73 63 61  6c 65 32 25 2b 6d 61 78  |(x%*xscale2%+max|
0000c5a0  5f 6c 65 6e 25 2c 28 79  25 2d 7a 25 2f 32 2a 32  |_len%,(y%-z%/2*2|
0000c5b0  35 29 2a 79 73 63 61 6c  65 25 2c 74 68 69 63 6b  |5)*yscale%,thick|
0000c5c0  25 2c 62 6c 61 63 6b 25  2c 77 68 69 74 65 25 29  |%,black%,white%)|
0000c5d0  0d 5b 2c 39 f2 70 61 74  68 5f 64 72 61 77 28 78  |.[,9.path_draw(x|
0000c5e0  25 2a 78 73 63 61 6c 65  32 25 2b 6d 61 78 5f 6c  |%*xscale2%+max_l|
0000c5f0  65 6e 25 2c 28 79 25 2b  7a 25 2f 32 2a 32 35 29  |en%,(y%+z%/2*25)|
0000c600  2a 79 73 63 61 6c 65 25  29 0d 5b 36 0d f2 70 61  |*yscale%).[6..pa|
0000c610  74 68 5f 65 6e 64 0d 5b  40 0c e7 20 7a 25 3e 34  |th_end.[@.. z%>4|
0000c620  20 8c 0d 5b 4a 25 20 20  f2 64 72 61 77 5f 6c 69  | ..[J%  .draw_li|
0000c630  6e 65 73 28 78 25 2c 79  25 2d 7a 25 2f 32 2a 32  |nes(x%,y%-z%/2*2|
0000c640  35 2c 7a 25 2f 32 29 0d  5b 54 25 20 20 f2 64 72  |5,z%/2).[T%  .dr|
0000c650  61 77 5f 6c 69 6e 65 73  28 78 25 2c 79 25 2b 7a  |aw_lines(x%,y%+z|
0000c660  25 2f 32 2a 32 35 2c 7a  25 2f 32 29 0d 5b 5e 05  |%/2*25,z%/2).[^.|
0000c670  cd 0d 5b 68 05 e1 0d 5b  72 05 3a 0d 5b 7c 0b dd  |..[h...[r.:.[|..|
0000c680  20 f2 70 28 58 29 0d 5b  86 0b f1 8a 30 2c 30 29  | .p(X).[....0,0)|
0000c690  58 0d 5b 90 10 ef 20 37  3a f5 20 fd 20 a5 3d 33  |X.[... 7:. . .=3|
0000c6a0  32 0d 5b 9a 05 e1 0d ff                           |2.[.....|
0000c6a8