"� > ":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:
�b� 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 65  65 64 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 62 dc  |,Copyright:...b.|
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  41 52 43 48 49 4d 45 44  |ep-93)",ARCHIMED|
00001960  45 53 20 57 4f 52 4c 44  20 31 39 39 33 0d 08 ca  |ES WORLD 1993...|
00001970  0d de 20 74 31 25 20 31  35 30 0d 08 d4 0c e3 20  |.. t1% 150..... |
00001980  6e 25 3d 31 b8 35 0d 08  de 0d 20 20 f3 20 74 65  |n%=1.5....  . te|
00001990  78 74 24 0d 08 e8 4b 20  20 61 25 3d a4 63 72 65  |xt$...K  a%=.cre|
000019a0  61 74 65 5f 69 63 6f 6e  28 69 6e 66 6f 5f 77 69  |ate_icon(info_wi|
000019b0  6e 64 6f 77 25 2c 30 2c  2d 6e 25 2a 35 32 2d 34  |ndow%,0,-n%*52-4|
000019c0  2c 31 39 32 2c 34 38 2c  26 31 37 30 30 30 32 31  |,192,48,&1700021|
000019d0  31 2c 74 65 78 74 24 2c  30 2c 30 2c 30 29 0d 08  |1,text$,0,0,0)..|
000019e0  f2 05 ed 0d 08 fc 0c e3  20 6e 25 3d 31 b8 35 0d  |........ n%=1.5.|
000019f0  09 06 0d 20 20 f3 20 74  65 78 74 24 0d 09 10 16  |...  . text$....|
00001a00  20 20 54 25 3d 74 31 25  2b 28 6e 25 2d 31 29 2a  |  T%=t1%+(n%-1)*|
00001a10  33 30 0d 09 1a 0f 20 20  24 54 25 3d 74 65 78 74  |30....  $T%=text|
00001a20  24 0d 09 24 2f 20 20 e7  20 6e 25 3c 35 20 8c 20  |$..$/  . n%<5 . |
00001a30  66 6c 61 67 25 3d 26 37  30 30 30 31 33 44 3a 8b  |flag%=&700013D:.|
00001a40  20 66 6c 61 67 25 3d 26  37 31 30 30 30 31 33 39  | flag%=&71000139|
00001a50  0d 09 2e 49 20 20 61 25  3d a4 63 72 65 61 74 65  |...I  a%=.create|
00001a60  5f 69 63 6f 6e 28 69 6e  66 6f 5f 77 69 6e 64 6f  |_icon(info_windo|
00001a70  77 25 2c 31 39 36 2c 2d  6e 25 2a 35 32 2d 34 2c  |w%,196,-n%*52-4,|
00001a80  34 32 34 2c 34 38 2c 66  6c 61 67 25 2c 22 22 2c  |424,48,flag%,"",|
00001a90  54 25 2c 2d 31 2c 33 30  29 0d 09 38 05 ed 0d 09  |T%,-1,30)..8....|
00001aa0  42 05 3a 0d 09 4c 1c f4  20 73 65 74 20 75 70 20  |B.:..L.. set up |
00001ab0  6e 65 77 20 6e 61 6d 65  20 77 69 6e 64 6f 77 0d  |new name window.|
00001ac0  09 56 05 3a 0d 09 60 4b  6e 65 77 6e 61 6d 65 5f  |.V.:..`Knewname_|
00001ad0  77 69 6e 64 6f 77 25 3d  a4 63 72 65 61 74 65 5f  |window%=.create_|
00001ae0  77 69 6e 64 6f 77 28 30  2c 30 2c 33 32 30 2c 36  |window(0,0,320,6|
00001af0  30 2c 30 2c 30 2c 26 38  34 30 30 30 30 31 32 2c  |0,0,0,&84000012,|
00001b00  22 4e 65 77 20 4e 61 6d  65 22 2c 31 2c 30 29 0d  |"New Name",1,0).|
00001b10  09 6a 12 de 20 6e 65 77  5f 6e 61 6d 65 25 20 32  |.j.. new_name% 2|
00001b20  30 0d 09 74 11 24 6e 65  77 5f 6e 61 6d 65 25 3d  |0..t.$new_name%=|
00001b30  22 22 0d 09 7e 4e 61 25  3d a4 63 72 65 61 74 65  |""..~Na%=.create|
00001b40  5f 69 63 6f 6e 28 6e 65  77 6e 61 6d 65 5f 77 69  |_icon(newname_wi|
00001b50  6e 64 6f 77 25 2c 31 30  2c 2d 35 32 2c 33 30 30  |ndow%,10,-52,300|
00001b60  2c 34 38 2c 26 37 30 30  46 31 33 44 2c 22 22 2c  |,48,&700F13D,"",|
00001b70  6e 65 77 5f 6e 61 6d 65  25 2c 2d 31 2c 31 38 29  |new_name%,-1,18)|
00001b80  0d 09 88 05 3a 0d 09 92  18 f4 20 73 65 74 20 75  |....:..... set u|
00001b90  70 20 73 61 76 65 20 77  69 6e 64 6f 77 0d 09 9c  |p save window...|
00001ba0  05 3a 0d 09 a6 1d 70 61  74 68 24 3d 22 22 3a 74  |.:....path$="":t|
00001bb0  79 70 65 24 3d 22 22 3a  6f 62 6a 24 3d 22 22 0d  |ype$="":obj$="".|
00001bc0  09 b0 17 de 20 73 62 73  70 72 25 20 38 2c 73 62  |.... sbspr% 8,sb|
00001bd0  76 61 6c 25 20 33 0d 09  ba 36 24 73 62 73 70 72  |val% 3...6$sbspr|
00001be0  25 3d 22 66 69 6c 65 5f  61 61 61 22 3a 24 66 69  |%="file_aaa":$fi|
00001bf0  6c 65 25 3d 22 43 6f 6d  70 44 72 61 77 22 3a 24  |le%="CompDraw":$|
00001c00  73 62 76 61 6c 25 3d 22  41 7e 20 22 0d 09 c4 49  |sbval%="A~ "...I|
00001c10  73 61 76 65 5f 77 69 6e  64 6f 77 25 3d a4 63 72  |save_window%=.cr|
00001c20  65 61 74 65 5f 77 69 6e  64 6f 77 28 30 2c 30 2c  |eate_window(0,0,|
00001c30  32 36 34 2c 31 36 34 2c  30 2c 30 2c 26 38 34 30  |264,164,0,0,&840|
00001c40  30 30 30 31 32 2c 22 53  61 76 65 20 61 73 3a 22  |00012,"Save as:"|
00001c50  2c 31 2c 30 29 0d 09 ce  46 64 72 61 67 25 3d a4  |,1,0)...Fdrag%=.|
00001c60  63 72 65 61 74 65 5f 69  63 6f 6e 28 73 61 76 65  |create_icon(save|
00001c70  5f 77 69 6e 64 6f 77 25  2c 31 30 30 2c 2d 39 32  |_window%,100,-92|
00001c80  2c 36 38 2c 36 38 2c 26  36 31 30 32 2c 22 22 2c  |,68,68,&6102,"",|
00001c90  73 62 73 70 72 25 2c 31  2c 39 29 0d 09 d8 4c 61  |sbspr%,1,9)...La|
00001ca0  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 73  |%=.create_icon(s|
00001cb0  61 76 65 5f 77 69 6e 64  6f 77 25 2c 38 2c 2d 31  |ave_window%,8,-1|
00001cc0  35 36 2c 31 39 32 2c 34  38 2c 26 37 30 30 46 31  |56,192,48,&700F1|
00001cd0  32 44 2c 22 22 2c 66 69  6c 65 25 2c 73 62 76 61  |2D,"",file%,sbva|
00001ce0  6c 25 2c 32 35 36 29 0d  09 e2 46 6f 6b 25 3d a4  |l%,256)...Fok%=.|
00001cf0  63 72 65 61 74 65 5f 69  63 6f 6e 28 73 61 76 65  |create_icon(save|
00001d00  5f 77 69 6e 64 6f 77 25  2c 32 30 38 2c 2d 31 35  |_window%,208,-15|
00001d10  36 2c 34 38 2c 34 38 2c  26 43 37 30 31 39 30 33  |6,48,48,&C701903|
00001d20  44 2c 22 4f 4b 22 2c 30  2c 30 2c 30 29 0d 09 ec  |D,"OK",0,0,0)...|
00001d30  05 3a 0d 09 f6 19 de 20  73 62 73 70 72 32 25 20  |.:..... sbspr2% |
00001d40  38 2c 73 62 76 61 6c 32  25 20 33 0d 0a 00 3b 24  |8,sbval2% 3...;$|
00001d50  73 62 73 70 72 32 25 3d  22 64 69 72 65 63 74 6f  |sbspr2%="directo|
00001d60  72 79 22 3a 24 66 69 6c  65 32 25 3d 22 44 72 61  |ry":$file2%="Dra|
00001d70  77 5f 46 69 6c 65 22 3a  24 73 62 76 61 6c 32 25  |w_File":$sbval2%|
00001d80  3d 22 41 7e 20 22 0d 0a  0a 4b 73 61 76 65 5f 77  |="A~ "...Ksave_w|
00001d90  69 6e 64 6f 77 32 25 3d  a4 63 72 65 61 74 65 5f  |indow2%=.create_|
00001da0  77 69 6e 64 6f 77 28 30  2c 30 2c 32 36 34 2c 31  |window(0,0,264,1|
00001db0  36 34 2c 30 2c 30 2c 26  38 34 30 30 30 30 31 32  |64,0,0,&84000012|
00001dc0  2c 22 53 61 76 65 20 61  73 3a 22 2c 31 2c 2d 31  |,"Save as:",1,-1|
00001dd0  29 0d 0a 14 49 64 72 61  67 32 25 3d a4 63 72 65  |)...Idrag2%=.cre|
00001de0  61 74 65 5f 69 63 6f 6e  28 73 61 76 65 5f 77 69  |ate_icon(save_wi|
00001df0  6e 64 6f 77 32 25 2c 31  30 30 2c 2d 39 32 2c 36  |ndow2%,100,-92,6|
00001e00  38 2c 36 38 2c 26 36 31  30 32 2c 22 22 2c 73 62  |8,68,&6102,"",sb|
00001e10  73 70 72 32 25 2c 31 2c  39 29 0d 0a 1e 4f 61 25  |spr2%,1,9)...Oa%|
00001e20  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 28 73 61  |=.create_icon(sa|
00001e30  76 65 5f 77 69 6e 64 6f  77 32 25 2c 38 2c 2d 31  |ve_window2%,8,-1|
00001e40  35 36 2c 31 39 32 2c 34  38 2c 26 37 30 30 46 31  |56,192,48,&700F1|
00001e50  32 44 2c 22 22 2c 66 69  6c 65 32 25 2c 73 62 76  |2D,"",file2%,sbv|
00001e60  61 6c 32 25 2c 32 35 36  29 0d 0a 28 48 6f 6b 32  |al2%,256)..(Hok2|
00001e70  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 73  |%=.create_icon(s|
00001e80  61 76 65 5f 77 69 6e 64  6f 77 32 25 2c 32 30 38  |ave_window2%,208|
00001e90  2c 2d 31 35 36 2c 34 38  2c 34 38 2c 26 43 37 30  |,-156,48,48,&C70|
00001ea0  31 39 30 33 44 2c 22 4f  4b 22 2c 30 2c 30 2c 30  |1903D,"OK",0,0,0|
00001eb0  29 0d 0a 32 05 3a 0d 0a  3c 1a f4 20 73 65 74 20  |)..2.:..<.. set |
00001ec0  75 70 20 69 63 6f 6e 20  62 61 72 20 69 63 6f 6e  |up icon bar icon|
00001ed0  0d 0a 46 40 69 62 68 61  6e 64 6c 65 25 3d a4 63  |..F@ibhandle%=.c|
00001ee0  72 65 61 74 65 5f 69 63  6f 6e 28 2d 31 2c 30 2c  |reate_icon(-1,0,|
00001ef0  30 2c 36 38 2c 36 38 2c  26 33 30 30 32 2c 22 21  |0,68,68,&3002,"!|
00001f00  43 6f 6d 70 44 72 61 77  22 2c 30 2c 30 2c 30 29  |CompDraw",0,0,0)|
00001f10  0d 0a 50 05 3a 0d 0a 5a  19 f4 20 73 65 74 20 75  |..P.:..Z.. set u|
00001f20  70 20 6d 65 72 67 65 20  77 69 6e 64 6f 77 0d 0a  |p merge window..|
00001f30  64 05 3a 0d 0a 6e 4e 6d  65 72 67 65 5f 77 69 6e  |d.:..nNmerge_win|
00001f40  64 6f 77 25 3d a4 63 72  65 61 74 65 5f 77 69 6e  |dow%=.create_win|
00001f50  64 6f 77 28 33 34 30 2c  34 30 30 2c 36 30 30 2c  |dow(340,400,600,|
00001f60  32 34 30 2c 30 2c 30 2c  26 38 34 30 30 30 30 31  |240,0,0,&8400001|
00001f70  30 2c 22 43 6f 6d 70 44  72 61 77 22 2c 31 2c 30  |0,"CompDraw",1,0|
00001f80  29 0d 0a 78 4a 6c 6f 61  25 3d a4 63 72 65 61 74  |)..xJloa%=.creat|
00001f90  65 5f 69 63 6f 6e 28 6d  65 72 67 65 5f 77 69 6e  |e_icon(merge_win|
00001fa0  64 6f 77 25 2c 32 30 2c  2d 32 30 30 2c 31 36 30  |dow%,20,-200,160|
00001fb0  2c 35 36 2c 26 43 37 30  31 39 30 33 44 2c 22 4c  |,56,&C701903D,"L|
00001fc0  6f 61 64 22 2c 30 2c 30  2c 30 29 0d 0a 82 4c 6d  |oad",0,0,0)...Lm|
00001fd0  65 72 25 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  |er%=.create_icon|
00001fe0  28 6d 65 72 67 65 5f 77  69 6e 64 6f 77 25 2c 32  |(merge_window%,2|
00001ff0  32 30 2c 2d 32 30 30 2c  31 36 30 2c 35 36 2c 26  |20,-200,160,56,&|
00002000  43 37 30 31 39 30 33 44  2c 22 4d 65 72 67 65 22  |C701903D,"Merge"|
00002010  2c 30 2c 30 2c 30 29 0d  0a 8c 4d 63 61 6e 25 3d  |,0,0,0)...Mcan%=|
00002020  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 6d 65 72  |.create_icon(mer|
00002030  67 65 5f 77 69 6e 64 6f  77 25 2c 34 32 30 2c 2d  |ge_window%,420,-|
00002040  32 30 30 2c 31 36 30 2c  35 36 2c 26 43 37 30 31  |200,160,56,&C701|
00002050  39 30 33 44 2c 22 43 61  6e 63 65 6c 22 2c 30 2c  |903D,"Cancel",0,|
00002060  30 2c 30 29 0d 0a 96 0f  de 20 6d 65 72 67 65 25  |0,0)..... merge%|
00002070  20 32 30 0d 0a a0 22 24  6d 65 72 67 65 25 3d 22  | 20..."$merge%="|
00002080  46 69 6c 65 20 61 6c 72  65 61 64 79 20 6c 6f 61  |File already loa|
00002090  64 65 64 2e 22 0d 0a aa  49 61 25 3d a4 63 72 65  |ded."...Ia%=.cre|
000020a0  61 74 65 5f 69 63 6f 6e  28 6d 65 72 67 65 5f 77  |ate_icon(merge_w|
000020b0  69 6e 64 6f 77 25 2c 30  2c 2d 31 30 30 2c 36 30  |indow%,0,-100,60|
000020c0  30 2c 35 36 2c 26 37 30  30 30 31 31 39 2c 22 22  |0,56,&7000119,""|
000020d0  2c 6d 65 72 67 65 25 2c  2d 31 2c 32 30 29 0d 0a  |,merge%,-1,20)..|
000020e0  b4 05 3a 0d 0a be 19 f4  20 73 65 74 20 75 70 20  |..:..... set up |
000020f0  74 65 61 6d 73 20 77 69  6e 64 6f 77 0d 0a c8 05  |teams window....|
00002100  3a 0d 0a d2 17 de 20 70  6c 25 20 32 30 2c 70 6c  |:..... pl% 20,pl|
00002110  61 79 65 72 73 25 20 32  0d 0a dc 1b 24 70 6c 25  |ayers% 2....$pl%|
00002120  3d 22 50 6c 61 79 65 72  73 20 70 65 72 20 74 65  |="Players per te|
00002130  61 6d 22 0d 0a e6 11 24  70 6c 61 79 65 72 73 25  |am"....$players%|
00002140  3d 22 36 22 0d 0a f0 45  74 65 61 6d 5f 77 69 6e  |="6"...Eteam_win|
00002150  64 6f 77 25 3d a4 63 72  65 61 74 65 5f 77 69 6e  |dow%=.create_win|
00002160  64 6f 77 28 30 2c 30 2c  33 38 30 2c 36 34 2c 30  |dow(0,0,380,64,0|
00002170  2c 30 2c 26 38 34 30 30  30 30 31 32 2c 22 54 65  |,0,&84000012,"Te|
00002180  61 6d 73 22 2c 31 2c 30  29 0d 0a fa 46 61 25 3d  |ams",1,0)...Fa%=|
00002190  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 74 65 61  |.create_icon(tea|
000021a0  6d 5f 77 69 6e 64 6f 77  25 2c 31 36 2c 2d 35 34  |m_window%,16,-54|
000021b0  2c 33 32 30 2c 34 30 2c  26 31 37 30 30 30 31 31  |,320,40,&1700011|
000021c0  31 2c 22 22 2c 70 6c 25  2c 2d 31 2c 32 30 29 0d  |1,"",pl%,-1,20).|
000021d0  0b 04 4d 70 65 72 5f 74  25 3d a4 63 72 65 61 74  |..Mper_t%=.creat|
000021e0  65 5f 69 63 6f 6e 28 74  65 61 6d 5f 77 69 6e 64  |e_icon(team_wind|
000021f0  6f 77 25 2c 33 30 30 2c  2d 35 34 2c 36 34 2c 34  |ow%,300,-54,64,4|
00002200  38 2c 26 37 30 30 46 31  33 44 2c 22 22 2c 70 6c  |8,&700F13D,"",pl|
00002210  61 79 65 72 73 25 2c 2d  31 2c 33 29 0d 0b 0e 05  |ayers%,-1,3)....|
00002220  3a 0d 0b 18 05 e1 0d 0b  22 05 3a 0d 0b 2c 4c dd  |:.......".:..,L.|
00002230  20 a4 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  | .create_window(|
00002240  78 25 2c 79 25 2c 77 25  2c 68 25 2c 65 78 74 78  |x%,y%,w%,h%,extx|
00002250  25 2c 65 78 74 79 25 2c  66 6c 61 67 73 25 2c 74  |%,exty%,flags%,t|
00002260  69 74 6c 65 24 2c 62 67  63 6f 6c 25 2c 73 70 72  |itle$,bgcol%,spr|
00002270  5f 61 72 65 61 25 29 0d  0b 36 0d ea 20 68 61 6e  |_area%)..6.. han|
00002280  64 6c 65 25 0d 0b 40 05  3a 0d 0b 4a 17 f4 20 76  |dle%..@.:..J.. v|
00002290  69 73 69 62 6c 65 20 77  6f 72 6b 20 61 72 65 61  |isible work area|
000022a0  0d 0b 54 0e 21 62 6c 6f  63 6b 25 3d 78 25 0d 0b  |..T.!block%=x%..|
000022b0  5e 0f 62 6c 6f 63 6b 25  21 34 3d 79 25 0d 0b 68  |^.block%!4=y%..h|
000022c0  12 62 6c 6f 63 6b 25 21  38 3d 78 25 2b 77 25 0d  |.block%!8=x%+w%.|
000022d0  0b 72 13 62 6c 6f 63 6b  25 21 31 32 3d 79 25 2b  |.r.block%!12=y%+|
000022e0  68 25 0d 0b 7c 05 3a 0d  0b 86 14 f4 20 73 63 72  |h%..|.:..... scr|
000022f0  6f 6c 6c 20 6f 66 66 73  65 74 73 0d 0b 90 0f 62  |oll offsets....b|
00002300  6c 6f 63 6b 25 21 31 36  3d 30 0d 0b 9a 0f 62 6c  |lock%!16=0....bl|
00002310  6f 63 6b 25 21 32 30 3d  30 0d 0b a4 05 3a 0d 0b  |ock%!20=0....:..|
00002320  ae 24 f4 20 68 61 6e 64  6c 65 20 62 65 68 69 6e  |.$. handle behin|
00002330  64 20 61 6e 64 20 77 69  6e 64 6f 77 20 66 6c 61  |d and window fla|
00002340  67 73 0d 0b b8 10 62 6c  6f 63 6b 25 21 32 34 3d  |gs....block%!24=|
00002350  2d 31 0d 0b c2 14 62 6c  6f 63 6b 25 21 32 38 3d  |-1....block%!28=|
00002360  66 6c 61 67 73 25 0d 0b  cc 05 3a 0d 0b d6 14 f4  |flags%....:.....|
00002370  20 77 69 6e 64 6f 77 20  63 6f 6c 6f 75 72 73 0d  | window colours.|
00002380  0b e0 0f 62 6c 6f 63 6b  25 21 33 32 3d 37 0d 0b  |...block%!32=7..|
00002390  ea 23 62 6c 6f 63 6b 25  21 33 33 3d 32 3a f4 20  |.#block%!33=2:. |
000023a0  62 6f 72 64 65 72 20 62  61 63 6b 67 72 6f 75 6e  |border backgroun|
000023b0  64 0d 0b f4 0f 62 6c 6f  63 6b 25 21 33 34 3d 37  |d....block%!34=7|
000023c0  0d 0b fe 2d 62 6c 6f 63  6b 25 21 33 35 3d 62 67  |...-block%!35=bg|
000023d0  63 6f 6c 25 3a f4 20 6d  61 69 6e 20 77 69 6e 64  |col%:. main wind|
000023e0  6f 77 20 62 61 63 6b 67  72 6f 75 6e 64 0d 0c 08  |ow background...|
000023f0  0f 62 6c 6f 63 6b 25 21  33 36 3d 33 0d 0c 12 0f  |.block%!36=3....|
00002400  62 6c 6f 63 6b 25 21 33  37 3d 31 0d 0c 1c 10 62  |block%!37=1....b|
00002410  6c 6f 63 6b 25 21 33 38  3d 31 32 0d 0c 26 05 3a  |lock%!38=12..&.:|
00002420  0d 0c 30 16 f4 20 77 6f  72 6b 20 61 72 65 61 20  |..0.. work area |
00002430  65 78 74 65 6e 74 0d 0c  3a 0f 62 6c 6f 63 6b 25  |extent..:.block%|
00002440  21 34 30 3d 30 0d 0c 44  17 62 6c 6f 63 6b 25 21  |!40=0..D.block%!|
00002450  34 34 3d 2d 68 25 2d 65  78 74 79 25 0d 0c 4e 16  |44=-h%-exty%..N.|
00002460  62 6c 6f 63 6b 25 21 34  38 3d 77 25 2b 65 78 74  |block%!48=w%+ext|
00002470  78 25 0d 0c 58 0f 62 6c  6f 63 6b 25 21 35 32 3d  |x%..X.block%!52=|
00002480  30 0d 0c 62 05 3a 0d 0c  6c 23 f4 20 74 69 74 6c  |0..b.:..l#. titl|
00002490  65 20 62 61 72 20 61 6e  64 20 77 6f 72 6b 20 61  |e bar and work a|
000024a0  72 65 61 20 66 6c 61 67  73 0d 0c 76 11 62 6c 6f  |rea flags..v.blo|
000024b0  63 6b 25 21 35 36 3d 26  31 39 0d 0c 80 13 62 6c  |ck%!56=&19....bl|
000024c0  6f 63 6b 25 21 36 30 3d  33 3c 3c 31 32 0d 0c 8a  |ock%!60=3<<12...|
000024d0  05 3a 0d 0c 94 2a f4 20  73 70 72 69 74 65 20 61  |.:...*. sprite a|
000024e0  72 65 61 20 70 6f 69 6e  74 65 72 20 61 6e 64 20  |rea pointer and |
000024f0  6d 69 6e 69 6d 75 6d 20  73 69 7a 65 0d 0c 9e 17  |minimum size....|
00002500  62 6c 6f 63 6b 25 21 36  34 3d 73 70 72 5f 61 72  |block%!64=spr_ar|
00002510  65 61 25 0d 0c a8 0f 62  6c 6f 63 6b 25 21 36 38  |ea%....block%!68|
00002520  3d 30 0d 0c b2 05 3a 0d  0c bc 12 f4 20 77 69 6e  |=0....:..... win|
00002530  64 6f 77 20 74 69 74 6c  65 0d 0c c6 1b e7 20 74  |dow title..... t|
00002540  69 74 6c 65 24 3c 3e 22  50 72 6f 67 20 49 6e 66  |itle$<>"Prog Inf|
00002550  6f 22 20 8c 0d 0c d0 1e  20 20 24 28 62 6c 6f 63  |o" .....  $(bloc|
00002560  6b 25 2b 37 32 29 3d c0  74 69 74 6c 65 24 2c 31  |k%+72)=.title$,1|
00002570  31 29 0d 0c da 05 cc 0d  0c e4 26 20 20 62 6c 6f  |1)........&  blo|
00002580  63 6b 25 21 35 36 3d 26  31 31 39 3a f4 20 69 6e  |ck%!56=&119:. in|
00002590  64 69 72 65 63 74 65 64  20 64 61 74 61 0d 0c ee  |directed data...|
000025a0  1a 20 20 62 6c 6f 63 6b  25 21 37 32 3d 66 69 6c  |.  block%!72=fil|
000025b0  65 5f 69 6e 66 6f 25 0d  0c f8 12 20 20 62 6c 6f  |e_info%....  blo|
000025c0  63 6b 25 21 37 36 3d 2d  31 0d 0d 02 12 20 20 62  |ck%!76=-1....  b|
000025d0  6c 6f 63 6b 25 21 38 30  3d 32 30 0d 0d 0c 05 cd  |lock%!80=20.....|
000025e0  0d 0d 16 05 3a 0d 0d 20  15 f4 20 6e 75 6d 62 65  |....:.. .. numbe|
000025f0  72 20 6f 66 20 69 63 6f  6e 73 0d 0d 2a 0f 62 6c  |r of icons..*.bl|
00002600  6f 63 6b 25 21 38 34 3d  30 0d 0d 34 05 3a 0d 0d  |ock%!84=0..4.:..|
00002610  3e 2c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |>,.. "Wimp_Creat|
00002620  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00002630  20 b8 20 68 61 6e 64 6c  65 25 0d 0d 48 0c 3d 68  | . handle%..H.=h|
00002640  61 6e 64 6c 65 25 0d 0d  52 05 3a 0d 0d 5c 19 dd  |andle%..R.:..\..|
00002650  20 f2 72 65 70 6f 72 74  28 65 72 72 24 2c 66 6c  | .report(err$,fl|
00002660  61 67 25 29 0d 0d 66 0b  ea 20 6e 61 6d 65 24 0d  |ag%)..f.. name$.|
00002670  0d 70 0e 6e 61 6d 65 24  3d 61 70 70 24 0d 0d 7a  |.p.name$=app$..z|
00002680  2d e7 20 66 6c 61 67 25  20 80 20 31 36 20 8c 20  |-. flag% . 16 . |
00002690  6e 61 6d 65 24 3d 22 4d  65 73 73 61 67 65 20 66  |name$="Message f|
000026a0  72 6f 6d 20 22 2b 61 70  70 24 0d 0d 84 0f 21 62  |rom "+app$....!b|
000026b0  6c 6f 63 6b 25 3d 32 35  35 0d 0d 8e 17 24 28 62  |lock%=255....$(b|
000026c0  6c 6f 63 6b 25 2b 34 29  3d 65 72 72 24 2b bd 30  |lock%+4)=err$+.0|
000026d0  0d 0d 98 39 c8 99 20 22  57 69 6d 70 5f 52 65 70  |...9.. "Wimp_Rep|
000026e0  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
000026f0  2c 66 6c 61 67 25 2c 6e  61 6d 65 24 20 b8 20 2c  |,flag%,name$ . ,|
00002700  65 72 72 63 6c 69 63 6b  25 0d 0d a2 05 e1 0d 0d  |errclick%.......|
00002710  ac 05 3a 0d 0d b6 12 dd  20 f2 65 72 72 6f 72 28  |..:..... .error(|
00002720  65 72 72 24 29 0d 0d c0  33 e7 20 65 72 72 6f 72  |err$)...3. error|
00002730  25 20 8c 20 f2 72 65 70  6f 72 74 28 f6 24 2b 22  |% . .report(.$+"|
00002740  20 69 6e 20 65 72 72 6f  72 20 68 61 6e 64 6c 65  | in error handle|
00002750  72 22 2c 31 37 29 3a e0  0d 0d ca 0c 65 72 72 6f  |r",17):.....erro|
00002760  72 25 3d b9 0d 0d d4 16  c8 99 20 22 48 6f 75 72  |r%=....... "Hour|
00002770  67 6c 61 73 73 5f 4f 66  66 22 0d 0d de 16 e7 20  |glass_Off"..... |
00002780  64 72 61 77 66 69 6c 65  5f 6f 70 65 6e 25 20 8c  |drawfile_open% .|
00002790  0d 0d e8 0a 20 20 d9 23  63 25 0d 0d f2 1e 20 20  |....  .#c%....  |
000027a0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 36 2c 64  |.. "OS_File",6,d|
000027b0  72 61 77 66 69 6c 65 25  0d 0d fc 16 20 20 64 72  |rawfile%....  dr|
000027c0  61 77 66 69 6c 65 5f 6f  70 65 6e 25 3d a3 0d 0e  |awfile_open%=...|
000027d0  06 05 cd 0d 0e 10 19 f4  20 65 72 72 24 2b 3d 22  |........ err$+="|
000027e0  20 3a 20 22 2b 53 54 52  24 45 52 4c 0d 0e 1a 13  | : "+STR$ERL....|
000027f0  f2 72 65 70 6f 72 74 28  65 72 72 24 2c 31 29 0d  |.report(err$,1).|
00002800  0e 24 10 e7 20 70 72 69  6e 74 69 74 25 20 8c 0d  |.$.. printit% ..|
00002810  0e 2e 19 20 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |...  .. "Wimp_Cl|
00002820  6f 73 65 44 6f 77 6e 22  0d 0e 38 07 20 20 e0 0d  |oseDown"..8.  ..|
00002830  0e 42 05 cd 0d 0e 4c 0c  65 72 72 6f 72 25 3d a3  |.B....L.error%=.|
00002840  0d 0e 56 05 e1 0d 0e 60  05 3a 0d 0e 6a 47 dd 20  |..V....`.:..jG. |
00002850  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 77 68 61  |.create_icon(wha|
00002860  6e 25 2c 69 78 25 2c 69  79 25 2c 69 77 25 2c 69  |n%,ix%,iy%,iw%,i|
00002870  68 25 2c 66 6c 61 67 25  2c 74 65 78 74 24 2c 70  |h%,flag%,text$,p|
00002880  74 72 31 25 2c 70 74 72  32 25 2c 70 74 72 33 25  |tr1%,ptr2%,ptr3%|
00002890  29 0d 0e 74 0e ea 20 69  68 61 6e 64 6c 65 25 0d  |)..t.. ihandle%.|
000028a0  0e 7e 11 21 62 6c 6f 63  6b 25 3d 77 68 61 6e 25  |.~.!block%=whan%|
000028b0  0d 0e 88 10 62 6c 6f 63  6b 25 21 34 3d 69 78 25  |....block%!4=ix%|
000028c0  0d 0e 92 10 62 6c 6f 63  6b 25 21 38 3d 69 79 25  |....block%!8=iy%|
000028d0  0d 0e 9c 15 62 6c 6f 63  6b 25 21 31 32 3d 69 78  |....block%!12=ix|
000028e0  25 2b 69 77 25 0d 0e a6  15 62 6c 6f 63 6b 25 21  |%+iw%....block%!|
000028f0  31 36 3d 69 79 25 2b 69  68 25 0d 0e b0 0f e7 20  |16=iy%+ih%..... |
00002900  70 74 72 31 25 3d 30 20  8c 0d 0e ba 18 20 20 24  |ptr1%=0 .....  $|
00002910  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 74 65 78 74  |(block%+24)=text|
00002920  24 0d 0e c4 05 cc 0d 0e  ce 15 20 20 62 6c 6f 63  |$.........  bloc|
00002930  6b 25 21 32 34 3d 70 74  72 31 25 0d 0e d8 15 20  |k%!24=ptr1%.... |
00002940  20 62 6c 6f 63 6b 25 21  32 38 3d 70 74 72 32 25  | block%!28=ptr2%|
00002950  0d 0e e2 15 20 20 62 6c  6f 63 6b 25 21 33 32 3d  |....  block%!32=|
00002960  70 74 72 33 25 0d 0e ec  05 cd 0d 0e f6 13 62 6c  |ptr3%.........bl|
00002970  6f 63 6b 25 21 32 30 3d  66 6c 61 67 25 0d 0f 00  |ock%!20=flag%...|
00002980  2b c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |+.. "Wimp_Create|
00002990  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |Icon",,block% . |
000029a0  69 68 61 6e 64 6c 65 25  0d 0f 0a 0d 3d 69 68 61  |ihandle%....=iha|
000029b0  6e 64 6c 65 25 0d 0f 14  05 3a 0d 0f 1e 0c dd 20  |ndle%....:..... |
000029c0  f2 63 6c 69 63 6b 0d 0f  28 13 78 70 6f 69 6e 74  |.click..(.xpoint|
000029d0  25 3d 21 62 6c 6f 63 6b  25 0d 0f 32 14 79 70 6f  |%=!block%..2.ypo|
000029e0  69 6e 74 25 3d 62 6c 6f  63 6b 25 21 34 0d 0f 3c  |int%=block%!4..<|
000029f0  14 62 75 74 74 6f 6e 25  3d 62 6c 6f 63 6b 25 21  |.button%=block%!|
00002a00  38 0d 0f 46 15 77 69 6e  64 6f 77 25 3d 62 6c 6f  |8..F.window%=blo|
00002a10  63 6b 25 21 31 32 0d 0f  50 13 69 63 6f 6e 25 3d  |ck%!12..P.icon%=|
00002a20  62 6c 6f 63 6b 25 21 31  36 0d 0f 5a 10 c8 8e 20  |block%!16..Z... |
00002a30  77 69 6e 64 6f 77 25 20  ca 0d 0f 64 19 20 20 c9  |window% ...d.  .|
00002a40  20 2d 32 3a f2 69 62 61  72 28 62 75 74 74 6f 6e  | -2:.ibar(button|
00002a50  25 29 0d 0f 6e 29 20 20  c9 20 6d 61 69 6e 5f 77  |%)..n)  . main_w|
00002a60  69 6e 64 6f 77 25 3a f2  6d 61 69 6e 5f 63 6c 69  |indow%:.main_cli|
00002a70  63 6b 28 62 75 74 74 6f  6e 25 29 0d 0f 78 23 20  |ck(button%)..x# |
00002a80  20 c9 20 6d 65 72 67 65  5f 77 69 6e 64 6f 77 25  | . merge_window%|
00002a90  3a f2 6d 65 72 67 65 5f  77 69 6e 64 6f 77 0d 0f  |:.merge_window..|
00002aa0  82 2d 20 20 c9 20 73 61  76 65 5f 77 69 6e 64 6f  |.-  . save_windo|
00002ab0  77 25 3a f2 73 61 76 65  5f 66 69 6c 65 28 73 61  |w%:.save_file(sa|
00002ac0  76 65 5f 77 69 6e 64 6f  77 25 29 0d 0f 8c 2f 20  |ve_window%).../ |
00002ad0  20 c9 20 73 61 76 65 5f  77 69 6e 64 6f 77 32 25  | . save_window2%|
00002ae0  3a f2 73 61 76 65 5f 66  69 6c 65 28 73 61 76 65  |:.save_file(save|
00002af0  5f 77 69 6e 64 6f 77 32  25 29 0d 0f 96 1b 20 20  |_window2%)....  |
00002b00  c9 20 74 65 61 6d 5f 77  69 6e 64 6f 77 25 3a f2  |. team_window%:.|
00002b10  74 65 61 6d 73 0d 0f a0  15 20 20 c9 20 64 72 61  |teams....  . dra|
00002b20  77 5f 77 69 6e 64 6f 77  25 3a 0d 0f aa 25 20 20  |w_window%:...%  |
00002b30  7f 3a f2 72 65 70 6f 72  74 28 22 57 69 6e 64 6f  |.:.report("Windo|
00002b40  77 20 22 2b c3 77 69 6e  64 6f 77 25 2c 31 29 0d  |w "+.window%,1).|
00002b50  0f b4 05 cb 0d 0f be 05  e1 0d 0f c8 05 3a 0d 0f  |.............:..|
00002b60  d2 1b dd 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |... .open_window|
00002b70  28 77 69 6e 64 6f 77 25  29 0d 0f dc 13 21 62 6c  |(window%)....!bl|
00002b80  6f 63 6b 25 3d 77 69 6e  64 6f 77 25 0d 0f e6 24  |ock%=window%...$|
00002b90  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00002ba0  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
00002bb0  0d 0f f0 10 62 6c 6f 63  6b 25 21 32 38 3d 2d 31  |....block%!28=-1|
00002bc0  0d 0f fa 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |... .. "Wimp_Ope|
00002bd0  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00002be0  0d 10 04 05 e1 0d 10 0e  05 3a 0d 10 18 14 dd 20  |.........:..... |
00002bf0  f2 69 62 61 72 28 62 75  74 74 6f 6e 25 29 0d 10  |.ibar(button%)..|
00002c00  22 10 c8 8e 20 62 75 74  74 6f 6e 25 20 ca 0d 10  |"... button% ...|
00002c10  2c 0c 20 20 c9 20 31 2c  34 3a 0d 10 36 22 20 20  |,.  . 1,4:..6"  |
00002c20  20 20 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 6d  |  .open_window(m|
00002c30  61 69 6e 5f 77 69 6e 64  6f 77 25 29 0d 10 40 0a  |ain_window%)..@.|
00002c40  20 20 c9 20 32 3a 0d 10  4a 2c 20 20 20 20 f2 73  |  . 2:..J,    .s|
00002c50  68 6f 77 6d 65 6e 75 28  69 63 6f 6e 5f 6d 65 6e  |howmenu(icon_men|
00002c60  75 25 2c 21 62 6c 6f 63  6b 25 2d 36 34 2c 31 38  |u%,!block%-64,18|
00002c70  34 29 0d 10 54 05 cb 0d  10 5e 05 e1 0d 10 68 05  |4)..T....^....h.|
00002c80  3a 0d 10 72 1e dd 20 f2  73 68 6f 77 6d 65 6e 75  |:..r.. .showmenu|
00002c90  28 6d 65 6e 75 25 2c 6d  78 25 2c 6d 79 25 29 0d  |(menu%,mx%,my%).|
00002ca0  10 7c 13 6d 65 6e 75 6f  70 65 6e 25 3d 6d 65 6e  |.|.menuopen%=men|
00002cb0  75 25 0d 10 86 27 c8 99  20 22 57 69 6d 70 5f 43  |u%...'.. "Wimp_C|
00002cc0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00002cd0  25 2c 6d 78 25 2c 6d 79  25 0d 10 90 05 e1 0d 10  |%,mx%,my%.......|
00002ce0  9a 05 3a 0d 10 a4 0e dd  20 f2 72 65 63 65 69 76  |..:..... .receiv|
00002cf0  65 0d 10 ae 12 c8 8e 20  62 6c 6f 63 6b 25 21 31  |e...... block%!1|
00002d00  36 20 ca 0d 10 b8 0f 20  20 c9 20 30 3a f2 71 75  |6 .....  . 0:.qu|
00002d10  69 74 0d 10 c2 13 20 20  c9 20 32 3a f2 64 61 74  |it....  . 2:.dat|
00002d20  61 73 61 76 65 0d 10 cc  13 20 20 c9 20 33 3a f2  |asave....  . 3:.|
00002d30  64 61 74 61 6c 6f 61 64  0d 10 d6 05 cb 0d 10 e0  |dataload........|
00002d40  05 e1 0d 10 ea 05 3a 0d  10 f4 0b dd 20 f2 71 75  |......:..... .qu|
00002d50  69 74 0d 10 fe 08 ea 20  71 25 0d 11 08 13 e7 20  |it..... q%..... |
00002d60  ac 28 61 6c 74 65 72 65  64 25 29 20 8c 0d 11 12  |.(altered%) ....|
00002d70  0d 20 20 71 75 69 74 25  3d b9 0d 11 1c 07 20 20  |.  quit%=.....  |
00002d80  e1 0d 11 26 05 cd 0d 11  30 23 71 25 3d a4 79 6e  |...&....0#q%=.yn|
00002d90  28 22 57 41 52 4e 49 4e  47 3a 20 55 6e 73 61 76  |("WARNING: Unsav|
00002da0  65 64 20 64 61 74 61 22  29 0d 11 3a 12 e7 20 71  |ed data")..:.. q|
00002db0  25 20 8c 20 71 75 69 74  25 3d b9 0d 11 44 05 e1  |% . quit%=...D..|
00002dc0  0d 11 4e 05 3a 0d 11 58  0d dd 20 f2 72 65 64 72  |..N.:..X.. .redr|
00002dd0  61 77 0d 11 62 13 ea 20  6d 6f 72 65 25 2c 77 69  |aw..b.. more%,wi|
00002de0  6e 64 6f 77 25 0d 11 6c  13 77 69 6e 64 6f 77 25  |ndow%..l.window%|
00002df0  3d 21 62 6c 6f 63 6b 25  0d 11 76 2a c8 99 20 22  |=!block%..v*.. "|
00002e00  57 69 6d 70 5f 52 65 64  72 61 77 57 69 6e 64 6f  |Wimp_RedrawWindo|
00002e10  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 6d 6f 72  |w",,block% . mor|
00002e20  65 25 0d 11 80 1a 6f 78  25 3d 62 6c 6f 63 6b 25  |e%....ox%=block%|
00002e30  21 34 2d 62 6c 6f 63 6b  25 21 32 30 0d 11 8a 1b  |!4-block%!20....|
00002e40  6f 79 25 3d 62 6c 6f 63  6b 25 21 31 36 2d 62 6c  |oy%=block%!16-bl|
00002e50  6f 63 6b 25 21 32 34 0d  11 94 0c c8 95 20 6d 6f  |ock%!24...... mo|
00002e60  72 65 25 0d 11 9e 12 20  20 c8 8e 20 77 69 6e 64  |re%....  .. wind|
00002e70  6f 77 25 20 ca 0d 11 a8  17 20 20 20 20 c9 20 6d  |ow% .....    . m|
00002e80  61 69 6e 5f 77 69 6e 64  6f 77 25 3a 0d 11 b2 16  |ain_window%:....|
00002e90  20 20 20 20 c9 20 64 72  61 77 5f 77 69 6e 64 6f  |    . draw_windo|
00002ea0  77 25 0d 11 bc 19 20 20  20 20 20 20 e7 20 70 65  |w%....      . pe|
00002eb0  72 5f 74 65 61 6d 25 3d  30 20 8c 0d 11 c6 1d 20  |r_team%=0 ..... |
00002ec0  20 20 20 20 20 20 20 f2  64 72 61 77 5f 64 72 61  |       .draw_dra|
00002ed0  77 5f 77 69 6e 64 6f 77  0d 11 d0 0b 20 20 20 20  |w_window....    |
00002ee0  20 20 cc 0d 11 da 1d 20  20 20 20 20 20 20 20 f2  |  .....        .|
00002ef0  64 72 61 77 5f 74 65 61  6d 5f 77 69 6e 64 6f 77  |draw_team_window|
00002f00  0d 11 e4 0b 20 20 20 20  20 20 cd 0d 11 ee 07 20  |....      ..... |
00002f10  20 cb 0d 11 f8 2c 20 20  c8 99 20 22 57 69 6d 70  | ....,  .. "Wimp|
00002f20  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00002f30  62 6c 6f 63 6b 25 20 b8  20 6d 6f 72 65 25 0d 12  |block% . more%..|
00002f40  02 05 ce 0d 12 0c 05 e1  0d 12 16 05 3a 0d 12 20  |............:.. |
00002f50  1a dd 20 f2 6d 61 69 6e  5f 63 6c 69 63 6b 28 62  |.. .main_click(b|
00002f60  75 74 74 6f 6e 25 29 0d  12 2a 13 69 63 6f 6e 25  |utton%)..*.icon%|
00002f70  3d 62 6c 6f 63 6b 25 21  31 36 0d 12 34 10 c8 8e  |=block%!16..4...|
00002f80  20 62 75 74 74 6f 6e 25  20 ca 0d 12 3e 0c 20 20  | button% ...>.  |
00002f90  c9 20 31 2c 34 3a 0d 12  48 2c 20 20 20 20 e7 20  |. 1,4:..H,    . |
00002fa0  69 63 6f 6e 25 3e 33 20  80 20 69 63 6f 6e 25 3c  |icon%>3 . icon%<|
00002fb0  31 33 32 20 8c 20 f2 6c  69 73 74 28 69 63 6f 6e  |132 . .list(icon|
00002fc0  25 29 0d 12 52 2e 20 20  20 20 e7 20 69 63 6f 6e  |%)..R.    . icon|
00002fd0  25 3e 31 33 31 20 80 20  69 63 6f 6e 25 3c 31 36  |%>131 . icon%<16|
00002fe0  33 20 8c 20 f2 73 65 65  64 28 69 63 6f 6e 25 29  |3 . .seed(icon%)|
00002ff0  0d 12 5c 0a 20 20 c9 20  32 3a 0d 12 66 12 20 20  |..\.  . 2:..f.  |
00003000  20 20 f2 6d 61 69 6e 5f  6d 65 6e 75 0d 12 70 05  |  .main_menu..p.|
00003010  cb 0d 12 7a 05 e1 0d 12  84 05 3a 0d 12 8e 1a dd  |...z......:.....|
00003020  20 a4 69 63 6f 6e 66 72  6f 6d 73 65 65 64 28 73  | .iconfromseed(s|
00003030  65 65 64 25 29 0d 12 98  11 3d 28 73 65 65 64 25  |eed%)....=(seed%|
00003040  2b 36 35 29 2a 32 0d 12  a2 05 3a 0d 12 ac 1a dd  |+65)*2....:.....|
00003050  20 a4 73 65 65 64 66 72  6f 6d 69 63 6f 6e 28 69  | .seedfromicon(i|
00003060  63 6f 6e 25 29 0d 12 b6  13 3d 28 69 63 6f 6e 25  |con%)....=(icon%|
00003070  20 81 20 32 29 2d 36 35  0d 12 c0 05 3a 0d 12 ca  | . 2)-65....:...|
00003080  1e dd 20 f2 6e 61 6d 65  69 6e 69 63 6f 6e 28 6e  |.. .nameinicon(n|
00003090  61 6d 65 24 2c 69 63 6f  6e 25 29 0d 12 d4 11 e7  |ame$,icon%).....|
000030a0  20 69 63 6f 6e 25 3c 34  20 8c 20 e1 0d 12 de 08  | icon%<4 . .....|
000030b0  ea 20 7a 25 0d 12 e8 1a  7a 25 3d 6e 61 6d 65 73  |. z%....z%=names|
000030c0  25 2b 31 39 2a 28 69 63  6f 6e 25 2d 34 29 0d 12  |%+19*(icon%-4)..|
000030d0  f2 0d 24 7a 25 3d 6e 61  6d 65 24 0d 12 fc 05 e1  |..$z%=name$.....|
000030e0  0d 13 06 05 3a 0d 13 10  1e dd 20 f2 73 65 65 64  |....:..... .seed|
000030f0  69 6e 69 63 6f 6e 28 6e  61 6d 65 24 2c 73 65 65  |inicon(name$,see|
00003100  64 25 29 0d 13 1a 08 ea  20 7a 25 0d 13 24 1a 7a  |d%)..... z%..$.z|
00003110  25 3d 73 65 65 64 73 25  2b 31 39 2a 28 73 65 65  |%=seeds%+19*(see|
00003120  64 25 2d 31 29 0d 13 2e  0d 24 7a 25 3d 6e 61 6d  |d%-1)....$z%=nam|
00003130  65 24 0d 13 38 05 e1 0d  13 42 05 3a 0d 13 4c 12  |e$..8....B.:..L.|
00003140  dd 20 f2 6c 69 73 74 28  69 63 6f 6e 25 29 0d 13  |. .list(icon%)..|
00003150  56 0e ea 20 6e 61 6d 65  25 2c 6e 25 0d 13 60 1e  |V.. name%,n%..`.|
00003160  6e 61 6d 65 25 3d a4 6e  61 6d 65 66 72 6f 6d 69  |name%=.namefromi|
00003170  63 6f 6e 28 69 63 6f 6e  25 29 0d 13 6a 19 e7 20  |con(icon%)..j.. |
00003180  6e 61 6d 65 25 3e 74 6f  74 6e 61 6d 65 73 25 20  |name%>totnames% |
00003190  8c 20 e1 0d 13 74 15 e7  20 73 65 65 64 73 5f 73  |. ...t.. seeds_s|
000031a0  65 6c 25 3c 3e 30 20 8c  0d 13 7e 0f 20 20 e3 20  |el%<>0 ...~.  . |
000031b0  6e 25 3d 31 b8 31 36 0d  13 88 1b 20 20 20 20 e7  |n%=1.16....    .|
000031c0  20 73 65 6c 5f 73 65 65  64 73 25 3f 6e 25 3d 31  | sel_seeds%?n%=1|
000031d0  20 8c 0d 13 92 19 20 20  20 20 20 20 73 65 6c 5f  | .....      sel_|
000031e0  73 65 65 64 73 25 3f 6e  25 3d 30 0d 13 9c 26 20  |seeds%?n%=0...& |
000031f0  20 20 20 20 20 f2 63 68  6f 6f 73 65 28 a4 69 63  |     .choose(.ic|
00003200  6f 6e 66 72 6f 6d 73 65  65 64 28 6e 25 29 2c a3  |onfromseed(n%),.|
00003210  29 0d 13 a6 09 20 20 20  20 cd 0d 13 b0 07 20 20  |)....    .....  |
00003220  ed 0d 13 ba 12 20 20 73  65 65 64 73 5f 73 65 6c  |.....  seeds_sel|
00003230  25 3d 30 0d 13 c4 05 cd  0d 13 ce 19 e7 20 73 65  |%=0.......... se|
00003240  6c 65 63 74 65 64 25 3f  6e 61 6d 65 25 3d 31 20  |lected%?name%=1 |
00003250  8c 0d 13 d8 18 20 20 f4  20 61 6c 72 65 61 64 79  |.....  . already|
00003260  20 73 65 6c 65 63 74 65  64 0d 13 e2 13 20 20 6e  | selected....  n|
00003270  61 6d 65 73 5f 73 65 6c  25 2d 3d 31 0d 13 ec 17  |ames_sel%-=1....|
00003280  20 20 73 65 6c 65 63 74  65 64 25 3f 6e 61 6d 65  |  selected%?name|
00003290  25 3d 30 0d 13 f6 16 20  20 f2 63 68 6f 6f 73 65  |%=0....  .choose|
000032a0  28 69 63 6f 6e 25 2c a3  29 0d 14 00 05 cc 0d 14  |(icon%,.).......|
000032b0  0a 18 20 20 f4 20 6e 6f  74 20 79 65 74 20 73 65  |..  . not yet se|
000032c0  6c 65 63 74 65 64 0d 14  14 13 20 20 6e 61 6d 65  |lected....  name|
000032d0  73 5f 73 65 6c 25 2b 3d  31 0d 14 1e 17 20 20 73  |s_sel%+=1....  s|
000032e0  65 6c 65 63 74 65 64 25  3f 6e 61 6d 65 25 3d 31  |elected%?name%=1|
000032f0  0d 14 28 16 20 20 f2 63  68 6f 6f 73 65 28 69 63  |..(.  .choose(ic|
00003300  6f 6e 25 2c b9 29 0d 14  32 05 cd 0d 14 3c 05 e1  |on%,.)..2....<..|
00003310  0d 14 46 05 3a 0d 14 50  12 dd 20 f2 73 65 65 64  |..F.:..P.. .seed|
00003320  28 69 63 6f 6e 25 29 0d  14 5a 0e ea 20 6e 25 2c  |(icon%)..Z.. n%,|
00003330  73 65 65 64 25 0d 14 64  1e 73 65 65 64 25 3d a4  |seed%..d.seed%=.|
00003340  73 65 65 64 66 72 6f 6d  69 63 6f 6e 28 69 63 6f  |seedfromicon(ico|
00003350  6e 25 29 0d 14 6e 1e e7  20 73 65 65 64 5f 65 78  |n%)..n.. seed_ex|
00003360  69 73 74 73 25 3f 73 65  65 64 25 3d 30 20 8c 20  |ists%?seed%=0 . |
00003370  e1 0d 14 78 15 e7 20 6e  61 6d 65 73 5f 73 65 6c  |...x.. names_sel|
00003380  25 3c 3e 30 20 8c 0d 14  82 16 20 20 e3 20 6e 25  |%<>0 .....  . n%|
00003390  3d 31 b8 74 6f 74 6e 61  6d 65 73 25 0d 14 8c 1a  |=1.totnames%....|
000033a0  20 20 20 20 e7 20 73 65  6c 65 63 74 65 64 25 3f  |    . selected%?|
000033b0  6e 25 3d 31 20 8c 0d 14  96 30 20 20 20 20 20 20  |n%=1 ....0      |
000033c0  f2 63 68 6f 6f 73 65 28  a4 69 63 6f 6e 66 72 6f  |.choose(.iconfro|
000033d0  6d 6e 61 6d 65 28 74 6f  74 6e 61 6d 65 73 25 2c  |mname(totnames%,|
000033e0  6e 25 29 2c a3 29 0d 14  a0 18 20 20 20 20 20 20  |n%),.)....      |
000033f0  73 65 6c 65 63 74 65 64  25 3f 6e 25 3d 30 0d 14  |selected%?n%=0..|
00003400  aa 09 20 20 20 20 cd 0d  14 b4 07 20 20 ed 0d 14  |..    .....  ...|
00003410  be 12 20 20 6e 61 6d 65  73 5f 73 65 6c 25 3d 30  |..  names_sel%=0|
00003420  0d 14 c8 05 cd 0d 14 d2  1a e7 20 73 65 6c 5f 73  |.......... sel_s|
00003430  65 65 64 73 25 3f 73 65  65 64 25 3d 30 20 8c 0d  |eeds%?seed%=0 ..|
00003440  14 dc 18 20 20 73 65 6c  5f 73 65 65 64 73 25 3f  |...  sel_seeds%?|
00003450  73 65 65 64 25 3d 31 0d  14 e6 13 20 20 73 65 65  |seed%=1....  see|
00003460  64 73 5f 73 65 6c 25 2b  3d 31 0d 14 f0 16 20 20  |ds_sel%+=1....  |
00003470  f2 63 68 6f 6f 73 65 28  69 63 6f 6e 25 2c b9 29  |.choose(icon%,.)|
00003480  0d 14 fa 05 cc 0d 15 04  18 20 20 73 65 6c 5f 73  |.........  sel_s|
00003490  65 65 64 73 25 3f 73 65  65 64 25 3d 30 0d 15 0e  |eeds%?seed%=0...|
000034a0  13 20 20 73 65 65 64 73  5f 73 65 6c 25 2d 3d 31  |.  seeds_sel%-=1|
000034b0  0d 15 18 16 20 20 f2 63  68 6f 6f 73 65 28 69 63  |....  .choose(ic|
000034c0  6f 6e 25 2c a3 29 0d 15  22 05 cd 0d 15 2c 05 e1  |on%,.).."....,..|
000034d0  0d 15 36 05 3a 0d 15 40  1f dd 20 a4 69 63 6f 6e  |..6.:..@.. .icon|
000034e0  66 72 6f 6d 6e 61 6d 65  28 74 6f 74 25 2c 6e 61  |fromname(tot%,na|
000034f0  6d 65 25 29 0d 15 4a 11  e7 20 74 6f 74 25 3d 30  |me%)..J.. tot%=0|
00003500  20 8c 20 3d 30 0d 15 54  0c 6e 61 6d 65 25 2d 3d  | . =0..T.name%-=|
00003510  31 0d 15 5e 0e ea 20 58  25 2c 78 25 2c 79 25 0d  |1..^.. X%,x%,y%.|
00003520  15 68 14 58 25 3d 28 28  74 6f 74 25 2b 33 29 81  |.h.X%=((tot%+3).|
00003530  20 34 29 0d 15 72 11 79  25 3d 6e 61 6d 65 25 20  | 4)..r.y%=name% |
00003540  83 20 58 25 0d 15 7c 11  78 25 3d 6e 61 6d 65 25  |. X%..|.x%=name%|
00003550  20 81 20 58 25 0d 15 86  0e 3d 79 25 2a 34 2b 78  | . X%....=y%*4+x|
00003560  25 2b 34 0d 15 90 05 3a  0d 15 9a 1a dd 20 a4 6e  |%+4....:..... .n|
00003570  61 6d 65 66 72 6f 6d 69  63 6f 6e 28 69 63 6f 6e  |amefromicon(icon|
00003580  25 29 0d 15 a4 0e ea 20  58 25 2c 78 25 2c 79 25  |%)..... X%,x%,y%|
00003590  0d 15 ae 0c 69 63 6f 6e  25 2d 3d 34 0d 15 b8 19  |....icon%-=4....|
000035a0  58 25 3d 28 28 74 6f 74  6e 61 6d 65 73 25 2b 33  |X%=((totnames%+3|
000035b0  29 81 20 34 29 0d 15 c2  10 78 25 3d 69 63 6f 6e  |). 4)....x%=icon|
000035c0  25 20 83 20 34 0d 15 cc  10 79 25 3d 69 63 6f 6e  |% . 4....y%=icon|
000035d0  25 20 81 20 34 0d 15 d6  1b e7 20 79 25 3e 3d 58  |% . 4..... y%>=X|
000035e0  25 20 8c 20 3d 74 6f 74  6e 61 6d 65 73 25 2b 31  |% . =totnames%+1|
000035f0  0d 15 e0 0f 3d 78 25 2a  58 25 2b 79 25 2b 31 0d  |....=x%*X%+y%+1.|
00003600  15 ea 05 3a 0d 15 f4 1e  dd 20 f2 63 68 6f 6f 73  |...:..... .choos|
00003610  65 28 69 63 6f 6e 25 2c  73 65 6c 65 63 74 65 64  |e(icon%,selected|
00003620  25 29 0d 15 fe 17 ea 20  66 63 6f 6c 25 2c 62 63  |%)..... fcol%,bc|
00003630  6f 6c 25 2c 6d 61 73 6b  25 0d 16 08 11 e7 20 73  |ol%,mask%..... s|
00003640  65 6c 65 63 74 65 64 25  20 8c 0d 16 12 16 20 20  |elected% .....  |
00003650  66 63 6f 6c 25 3d 31 32  3a 62 63 6f 6c 25 3d 37  |fcol%=12:bcol%=7|
00003660  0d 16 1c 05 cc 0d 16 26  15 20 20 66 63 6f 6c 25  |.......&.  fcol%|
00003670  3d 37 3a 62 63 6f 6c 25  3d 30 0d 16 30 05 cd 0d  |=7:bcol%=0..0...|
00003680  16 3a 21 6d 61 73 6b 25  3d 28 66 63 6f 6c 25 3c  |.:!mask%=(fcol%<|
00003690  3c 32 34 29 2b 28 62 63  6f 6c 25 3c 3c 32 38 29  |<24)+(bcol%<<28)|
000036a0  0d 16 44 18 21 62 6c 6f  63 6b 25 3d 6d 61 69 6e  |..D.!block%=main|
000036b0  5f 77 69 6e 64 6f 77 25  0d 16 4e 12 62 6c 6f 63  |_window%..N.bloc|
000036c0  6b 25 21 34 3d 69 63 6f  6e 25 0d 16 58 12 62 6c  |k%!4=icon%..X.bl|
000036d0  6f 63 6b 25 21 38 3d 6d  61 73 6b 25 0d 16 62 15  |ock%!8=mask%..b.|
000036e0  62 6c 6f 63 6b 25 21 31  32 3d 26 46 46 3c 3c 32  |block%!12=&FF<<2|
000036f0  34 0d 16 6c 22 c8 99 20  22 57 69 6d 70 5f 53 65  |4..l".. "Wimp_Se|
00003700  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00003710  63 6b 25 0d 16 76 05 e1  0d 16 80 05 3a 0d 16 8a  |ck%..v......:...|
00003720  19 dd 20 f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |.. .create_menu(|
00003730  6d 65 6e 75 25 29 0d 16  94 2e ea 20 6e 25 2c 74  |menu%)..... n%,t|
00003740  69 74 6c 65 24 2c 65 6e  74 72 69 65 73 25 2c 65  |itle$,entries%,e|
00003750  6e 74 72 79 24 2c 73 75  62 25 2c 70 74 72 25 2c  |ntry$,sub%,ptr%,|
00003760  77 69 64 25 0d 16 9e 21  f4 20 20 20 20 20 20 20  |wid%...!.       |
00003770  20 20 20 20 20 20 20 20  20 20 73 65 74 20 75 70  |          set up|
00003780  20 6d 65 6e 75 0d 16 a8  15 f3 20 74 69 74 6c 65  | menu..... title|
00003790  24 2c 65 6e 74 72 69 65  73 25 0d 16 b2 20 24 6d  |$,entries%... $m|
000037a0  65 6e 75 25 3d 74 69 74  6c 65 24 3a f4 20 20 20  |enu%=title$:.   |
000037b0  6d 65 6e 75 20 74 69 74  6c 65 0d 16 bc 37 6d 65  |menu title...7me|
000037c0  6e 75 25 3f 31 32 3d 37  3a f4 20 20 20 20 20 20  |nu%?12=7:.      |
000037d0  74 69 74 6c 65 20 61 6e  64 20 66 72 61 6d 65 20  |title and frame |
000037e0  66 6f 72 65 67 72 6f 75  6e 64 20 63 6f 6c 6f 75  |foreground colou|
000037f0  72 0d 16 c6 2d 6d 65 6e  75 25 3f 31 33 3d 32 3a  |r...-menu%?13=2:|
00003800  f4 20 20 20 20 20 20 74  69 74 6c 65 20 62 61 63  |.      title bac|
00003810  6b 67 72 6f 75 6e 64 20  63 6f 6c 6f 75 72 0d 16  |kground colour..|
00003820  d0 31 6d 65 6e 75 25 3f  31 34 3d 37 3a f4 20 20  |.1menu%?14=7:.  |
00003830  20 20 20 20 77 6f 72 6b  20 61 72 65 61 20 66 6f  |    work area fo|
00003840  72 65 67 72 6f 75 6e 64  20 63 6f 6c 6f 75 72 0d  |reground colour.|
00003850  16 da 31 6d 65 6e 75 25  3f 31 35 3d 30 3a f4 20  |..1menu%?15=0:. |
00003860  20 20 20 20 20 77 6f 72  6b 20 61 72 65 61 20 62  |     work area b|
00003870  61 63 6b 67 72 6f 75 6e  64 20 63 6f 6c 6f 75 72  |ackground colour|
00003880  0d 16 e4 2a 6d 65 6e 75  25 21 32 30 3d 34 34 3a  |...*menu%!20=44:|
00003890  f4 20 20 20 20 20 68 65  69 67 68 74 20 6f 66 20  |.     height of |
000038a0  65 61 63 68 20 65 6e 74  72 79 0d 16 ee 2f 6d 65  |each entry.../me|
000038b0  6e 75 25 21 32 34 3d 30  3a f4 20 20 20 20 20 20  |nu%!24=0:.      |
000038c0  68 65 69 67 68 74 20 62  65 74 77 65 65 6e 20 65  |height between e|
000038d0  61 63 68 20 65 6e 74 72  79 0d 16 f8 12 77 69 64  |ach entry....wid|
000038e0  25 3d a9 28 74 69 74 6c  65 24 29 0d 17 02 13 e3  |%=.(title$).....|
000038f0  20 6e 25 3d 31 b8 65 6e  74 72 69 65 73 25 0d 17  | n%=1.entries%..|
00003900  0c 18 20 20 70 74 72 25  3d 6d 65 6e 75 25 2b 34  |..  ptr%=menu%+4|
00003910  2b 32 34 2a 6e 25 0d 17  16 13 20 20 f3 20 65 6e  |+24*n%....  . en|
00003920  74 72 79 24 2c 73 75 62  25 0d 17 20 15 20 20 e7  |try$,sub%.. .  .|
00003930  20 6e 25 3d 65 6e 74 72  69 65 73 25 20 8c 0d 17  | n%=entries% ...|
00003940  2a 11 20 20 20 20 21 70  74 72 25 3d 31 32 38 0d  |*.    !ptr%=128.|
00003950  17 34 07 20 20 cc 0d 17  3e 0f 20 20 20 20 21 70  |.4.  ...>.    !p|
00003960  74 72 25 3d 30 0d 17 48  07 20 20 cd 0d 17 52 11  |tr%=0..H.  ...R.|
00003970  20 20 70 74 72 25 21 34  3d 73 75 62 25 0d 17 5c  |  ptr%!4=sub%..\|
00003980  15 20 20 70 74 72 25 21  38 3d 26 37 30 30 30 30  |.  ptr%!8=&70000|
00003990  32 31 0d 17 66 17 20 20  24 28 70 74 72 25 2b 31  |21..f.  $(ptr%+1|
000039a0  32 29 3d 65 6e 74 72 79  24 0d 17 70 27 20 20 e7  |2)=entry$..p'  .|
000039b0  20 a9 28 65 6e 74 72 79  24 29 3e 77 69 64 25 20  | .(entry$)>wid% |
000039c0  8c 20 77 69 64 25 3d a9  28 65 6e 74 72 79 24 29  |. wid%=.(entry$)|
000039d0  0d 17 7a 05 ed 0d 17 84  28 6d 65 6e 75 25 21 31  |..z.....(menu%!1|
000039e0  36 3d 77 69 64 25 2a 31  36 2b 31 36 3a f4 20 20  |6=wid%*16+16:.  |
000039f0  20 20 20 6d 65 6e 75 20  77 69 64 74 68 0d 17 8e  |   menu width...|
00003a00  05 e1 0d 17 98 05 3a 0d  17 a2 13 dd 20 f2 73 65  |......:..... .se|
00003a10  74 5f 75 70 5f 6d 65 6e  75 73 0d 17 ac 08 f7 20  |t_up_menus..... |
00003a20  2b 30 0d 17 b6 4d dc 20  22 4d 61 6b 65 20 44 72  |+0...M. "Make Dr|
00003a30  61 77 22 2c 34 2c 57 69  74 68 20 73 65 65 64 69  |aw",4,With seedi|
00003a40  6e 67 73 2c 2d 31 2c 57  69 74 68 6f 75 74 2c 2d  |ngs,-1,Without,-|
00003a50  31 2c 44 6f 75 62 6c 65  73 2c 2d 31 2c 54 65 61  |1,Doubles,-1,Tea|
00003a60  6d 73 2c 74 65 61 6d 5f  77 69 6e 64 6f 77 25 0d  |ms,team_window%.|
00003a70  17 c0 1c f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |....create_menu(|
00003a80  6d 61 6b 65 5f 6d 65 6e  75 25 29 0d 17 ca 41 dc  |make_menu%)...A.|
00003a90  20 22 44 72 61 77 22 2c  34 2c 4d 61 6b 65 2c 6d  | "Draw",4,Make,m|
00003aa0  61 6b 65 5f 6d 65 6e 75  25 2c 53 68 6f 77 2c 2d  |ake_menu%,Show,-|
00003ab0  31 2c 43 6c 65 61 72 2c  2d 31 2c 50 72 69 6e 74  |1,Clear,-1,Print|
00003ac0  2c 70 72 69 6e 74 5f 6d  65 6e 75 25 0d 17 d4 1c  |,print_menu%....|
00003ad0  f2 63 72 65 61 74 65 5f  6d 65 6e 75 28 64 72 61  |.create_menu(dra|
00003ae0  77 5f 6d 65 6e 75 25 29  0d 17 de 48 dc 20 22 53  |w_menu%)...H. "S|
00003af0  65 65 64 22 2c 31 36 2c  31 2c 2d 31 2c 32 2c 2d  |eed",16,1,-1,2,-|
00003b00  31 2c 33 2c 2d 31 2c 34  2c 2d 31 2c 35 2c 2d 31  |1,3,-1,4,-1,5,-1|
00003b10  2c 36 2c 2d 31 2c 37 2c  2d 31 2c 38 2c 2d 31 2c  |,6,-1,7,-1,8,-1,|
00003b20  39 2c 2d 31 2c 31 30 2c  2d 31 2c 31 31 2c 2d 31  |9,-1,10,-1,11,-1|
00003b30  0d 17 e8 23 dc 20 31 32  2c 2d 31 2c 31 33 2c 2d  |...#. 12,-1,13,-|
00003b40  31 2c 31 34 2c 2d 31 2c  31 35 2c 2d 31 2c 31 36  |1,14,-1,15,-1,16|
00003b50  2c 2d 31 0d 17 f2 1c f2  63 72 65 61 74 65 5f 6d  |,-1.....create_m|
00003b60  65 6e 75 28 73 65 65 64  5f 6d 65 6e 75 25 29 0d  |enu(seed_menu%).|
00003b70  17 fc 3e dc 20 22 53 65  6c 65 63 74 22 2c 34 2c  |..>. "Select",4,|
00003b80  44 65 6c 65 74 65 2c 2d  31 2c 53 65 65 64 2c 73  |Delete,-1,Seed,s|
00003b90  65 65 64 5f 6d 65 6e 75  25 2c 55 6e 2d 73 65 65  |eed_menu%,Un-see|
00003ba0  64 2c 2d 31 2c 43 6c 65  61 72 2c 2d 31 0d 18 06  |d,-1,Clear,-1...|
00003bb0  1e f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 73 65  |..create_menu(se|
00003bc0  6c 65 63 74 5f 6d 65 6e  75 25 29 0d 18 10 33 dc  |lect_menu%)...3.|
00003bd0  20 22 53 61 76 65 22 2c  32 2c 66 69 6c 65 2c 73  | "Save",2,file,s|
00003be0  61 76 65 5f 77 69 6e 64  6f 77 25 2c 64 72 61 77  |ave_window%,draw|
00003bf0  2c 73 61 76 65 5f 77 69  6e 64 6f 77 32 25 0d 18  |,save_window2%..|
00003c00  1a 1c f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 73  |...create_menu(s|
00003c10  61 76 65 5f 6d 65 6e 75  25 29 0d 18 24 86 dc 22  |ave_menu%)..$.."|
00003c20  4d 61 69 6e 20 4d 65 6e  75 22 2c 36 2c 44 72 61  |Main Menu",6,Dra|
00003c30  77 2c 64 72 61 77 5f 6d  65 6e 75 25 2c 53 65 6c  |w,draw_menu%,Sel|
00003c40  65 63 74 69 6f 6e 2c 73  65 6c 65 63 74 5f 6d 65  |ection,select_me|
00003c50  6e 75 25 2c 53 61 76 65  2c 73 61 76 65 5f 6d 65  |nu%,Save,save_me|
00003c60  6e 75 25 2c 4e 65 77 20  6e 61 6d 65 2c 6e 65 77  |nu%,New name,new|
00003c70  6e 61 6d 65 5f 77 69 6e  64 6f 77 25 2c 46 69 6c  |name_window%,Fil|
00003c80  65 20 49 6e 66 6f 2c 66  69 6c 65 69 6e 66 6f 5f  |e Info,fileinfo_|
00003c90  77 69 6e 64 6f 77 25 2c  43 6c 65 61 72 2c 2d 31  |window%,Clear,-1|
00003ca0  0d 18 2e 1c f2 63 72 65  61 74 65 5f 6d 65 6e 75  |.....create_menu|
00003cb0  28 6d 61 69 6e 5f 6d 65  6e 75 25 29 0d 18 38 2b  |(main_menu%)..8+|
00003cc0  dc 22 43 6f 6d 70 44 72  61 77 22 2c 32 2c 49 6e  |."CompDraw",2,In|
00003cd0  66 6f 2c 69 6e 66 6f 5f  77 69 6e 64 6f 77 25 2c  |fo,info_window%,|
00003ce0  51 75 69 74 2c 2d 31 0d  18 42 1c f2 63 72 65 61  |Quit,-1..B..crea|
00003cf0  74 65 5f 6d 65 6e 75 28  69 63 6f 6e 5f 6d 65 6e  |te_menu(icon_men|
00003d00  75 25 29 0d 18 4c 4c dc  22 50 72 69 6e 74 22 2c  |u%)..LL."Print",|
00003d10  35 2c 57 68 6f 6c 65 20  64 72 61 77 2c 2d 31 2c  |5,Whole draw,-1,|
00003d20  31 73 74 20 70 61 72 74  2c 2d 31 2c 32 6e 64 20  |1st part,-1,2nd |
00003d30  70 61 72 74 2c 2d 31 2c  33 72 64 20 70 61 72 74  |part,-1,3rd part|
00003d40  2c 2d 31 2c 34 74 68 20  70 61 72 74 2c 2d 31 0d  |,-1,4th part,-1.|
00003d50  18 56 1d f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |.V..create_menu(|
00003d60  70 72 69 6e 74 5f 6d 65  6e 75 25 29 0d 18 60 05  |print_menu%)..`.|
00003d70  e1 0d 18 6a 05 3a 0d 18  74 34 dd 20 f2 6d 65 6e  |...j.:..t4. .men|
00003d80  75 5f 6f 70 74 69 6f 6e  5f 61 72 72 6f 77 28 6d  |u_option_arrow(m|
00003d90  65 6e 75 25 2c 6f 70 74  25 2c 63 6f 6e 64 69 74  |enu%,opt%,condit|
00003da0  69 6f 6e 25 2c 73 75 62  25 29 0d 18 7e 0c ea 20  |ion%,sub%)..~.. |
00003db0  70 6f 69 6e 74 25 0d 18  88 1b 70 6f 69 6e 74 25  |point%....point%|
00003dc0  3d 6d 65 6e 75 25 2b 33  32 2b 32 34 2a 6f 70 74  |=menu%+32+24*opt|
00003dd0  25 0d 18 92 12 e7 20 63  6f 6e 64 69 74 69 6f 6e  |%..... condition|
00003de0  25 20 8c 0d 18 9c 12 20  20 21 70 6f 69 6e 74 25  |% .....  !point%|
00003df0  3d 73 75 62 25 0d 18 a6  05 cc 0d 18 b0 10 20 20  |=sub%.........  |
00003e00  21 70 6f 69 6e 74 25 3d  2d 31 0d 18 ba 05 cd 0d  |!point%=-1......|
00003e10  18 c4 05 e1 0d 18 ce 05  3a 0d 18 d8 2e dd 20 f2  |........:..... .|
00003e20  6d 65 6e 75 5f 6f 70 74  69 6f 6e 5f 64 61 72 6b  |menu_option_dark|
00003e30  28 6d 65 6e 75 25 2c 6f  70 74 25 2c 63 6f 6e 64  |(menu%,opt%,cond|
00003e40  69 74 69 6f 6e 25 29 0d  18 e2 0c ea 20 70 6f 69  |ition%)..... poi|
00003e50  6e 74 25 0d 18 ec 1b 70  6f 69 6e 74 25 3d 6d 65  |nt%....point%=me|
00003e60  6e 75 25 2b 33 36 2b 32  34 2a 6f 70 74 25 0d 18  |nu%+36+24*opt%..|
00003e70  f6 12 e7 20 63 6f 6e 64  69 74 69 6f 6e 25 20 8c  |... condition% .|
00003e80  0d 19 00 21 20 20 21 70  6f 69 6e 74 25 3d 28 21  |...!  !point%=(!|
00003e90  70 6f 69 6e 74 25 20 84  20 26 34 30 30 30 30 30  |point% . &400000|
00003ea0  29 0d 19 0a 05 cc 0d 19  14 23 20 20 21 70 6f 69  |)........#  !poi|
00003eb0  6e 74 25 3d 28 21 70 6f  69 6e 74 25 20 80 20 26  |nt%=(!point% . &|
00003ec0  46 46 42 46 46 46 46 46  29 0d 19 1e 05 cd 0d 19  |FFBFFFFF).......|
00003ed0  28 05 e1 0d 19 32 05 3a  0d 19 3c 14 dd 20 f2 73  |(....2.:..<.. .s|
00003ee0  65 74 5f 64 72 61 77 5f  6d 65 6e 75 0d 19 46 2e  |et_draw_menu..F.|
00003ef0  f2 6d 65 6e 75 5f 6f 70  74 69 6f 6e 5f 64 61 72  |.menu_option_dar|
00003f00  6b 28 64 72 61 77 5f 6d  65 6e 75 25 2c 30 2c 64  |k(draw_menu%,0,d|
00003f10  72 61 77 5f 6d 61 64 65  25 29 0d 19 50 2f f2 6d  |raw_made%)..P/.m|
00003f20  65 6e 75 5f 6f 70 74 69  6f 6e 5f 64 61 72 6b 28  |enu_option_dark(|
00003f30  64 72 61 77 5f 6d 65 6e  75 25 2c 31 2c ac 64 72  |draw_menu%,1,.dr|
00003f40  61 77 5f 6d 61 64 65 25  29 0d 19 5a 2f f2 6d 65  |aw_made%)..Z/.me|
00003f50  6e 75 5f 6f 70 74 69 6f  6e 5f 64 61 72 6b 28 64  |nu_option_dark(d|
00003f60  72 61 77 5f 6d 65 6e 75  25 2c 32 2c ac 64 72 61  |raw_menu%,2,.dra|
00003f70  77 5f 6d 61 64 65 25 29  0d 19 64 2f f2 6d 65 6e  |w_made%)..d/.men|
00003f80  75 5f 6f 70 74 69 6f 6e  5f 64 61 72 6b 28 64 72  |u_option_dark(dr|
00003f90  61 77 5f 6d 65 6e 75 25  2c 33 2c ac 64 72 61 77  |aw_menu%,3,.draw|
00003fa0  5f 6d 61 64 65 25 29 0d  19 6e 05 e1 0d 19 78 05  |_made%)..n....x.|
00003fb0  3a 0d 19 82 10 dd 20 f2  6d 61 69 6e 5f 6d 65 6e  |:..... .main_men|
00003fc0  75 0d 19 8c 30 f2 6d 65  6e 75 5f 6f 70 74 69 6f  |u...0.menu_optio|
00003fd0  6e 5f 64 61 72 6b 28 70  72 69 6e 74 5f 6d 65 6e  |n_dark(print_men|
00003fe0  75 25 2c 31 2c 71 75 61  72 74 65 72 73 25 3c 32  |u%,1,quarters%<2|
00003ff0  29 0d 19 96 30 f2 6d 65  6e 75 5f 6f 70 74 69 6f  |)...0.menu_optio|
00004000  6e 5f 64 61 72 6b 28 70  72 69 6e 74 5f 6d 65 6e  |n_dark(print_men|
00004010  75 25 2c 32 2c 71 75 61  72 74 65 72 73 25 3c 32  |u%,2,quarters%<2|
00004020  29 0d 19 a0 30 f2 6d 65  6e 75 5f 6f 70 74 69 6f  |)...0.menu_optio|
00004030  6e 5f 64 61 72 6b 28 70  72 69 6e 74 5f 6d 65 6e  |n_dark(print_men|
00004040  75 25 2c 33 2c 71 75 61  72 74 65 72 73 25 3c 34  |u%,3,quarters%<4|
00004050  29 0d 19 aa 30 f2 6d 65  6e 75 5f 6f 70 74 69 6f  |)...0.menu_optio|
00004060  6e 5f 64 61 72 6b 28 70  72 69 6e 74 5f 6d 65 6e  |n_dark(print_men|
00004070  75 25 2c 34 2c 71 75 61  72 74 65 72 73 25 3c 34  |u%,4,quarters%<4|
00004080  29 0d 19 b4 39 f2 6d 65  6e 75 5f 6f 70 74 69 6f  |)...9.menu_optio|
00004090  6e 5f 64 61 72 6b 28 6d  61 69 6e 5f 6d 65 6e 75  |n_dark(main_menu|
000040a0  25 2c 30 2c 74 6f 74 6e  61 6d 65 73 25 2b 74 6f  |%,0,totnames%+to|
000040b0  74 73 65 65 64 73 25 3c  33 29 0d 19 be 3f f2 6d  |tseeds%<3)...?.m|
000040c0  65 6e 75 5f 6f 70 74 69  6f 6e 5f 64 61 72 6b 28  |enu_option_dark(|
000040d0  6d 61 69 6e 5f 6d 65 6e  75 25 2c 31 2c 6e 61 6d  |main_menu%,1,nam|
000040e0  65 73 5f 73 65 6c 25 3d  30 20 80 20 73 65 65 64  |es_sel%=0 . seed|
000040f0  73 5f 73 65 6c 25 3d 30  29 0d 19 c8 32 f2 6d 65  |s_sel%=0)...2.me|
00004100  6e 75 5f 6f 70 74 69 6f  6e 5f 64 61 72 6b 28 73  |nu_option_dark(s|
00004110  65 6c 65 63 74 5f 6d 65  6e 75 25 2c 30 2c 6e 61  |elect_menu%,0,na|
00004120  6d 65 73 5f 73 65 6c 25  3d 30 29 0d 19 d2 42 f2  |mes_sel%=0)...B.|
00004130  6d 65 6e 75 5f 6f 70 74  69 6f 6e 5f 64 61 72 6b  |menu_option_dark|
00004140  28 73 65 6c 65 63 74 5f  6d 65 6e 75 25 2c 31 2c  |(select_menu%,1,|
00004150  6e 61 6d 65 73 5f 73 65  6c 25 3c 3e 31 20 84 20  |names_sel%<>1 . |
00004160  74 6f 74 73 65 65 64 73  25 3d 31 36 29 0d 19 dc  |totseeds%=16)...|
00004170  32 f2 6d 65 6e 75 5f 6f  70 74 69 6f 6e 5f 64 61  |2.menu_option_da|
00004180  72 6b 28 73 65 6c 65 63  74 5f 6d 65 6e 75 25 2c  |rk(select_menu%,|
00004190  32 2c 73 65 65 64 73 5f  73 65 6c 25 3d 30 29 0d  |2,seeds_sel%=0).|
000041a0  19 e6 39 f2 6d 65 6e 75  5f 6f 70 74 69 6f 6e 5f  |..9.menu_option_|
000041b0  64 61 72 6b 28 6d 61 69  6e 5f 6d 65 6e 75 25 2c  |dark(main_menu%,|
000041c0  32 2c 74 6f 74 6e 61 6d  65 73 25 2b 74 6f 74 73  |2,totnames%+tots|
000041d0  65 65 64 73 25 3d 30 29  0d 19 f0 3b f2 6d 65 6e  |eeds%=0)...;.men|
000041e0  75 5f 6f 70 74 69 6f 6e  5f 64 61 72 6b 28 6d 61  |u_option_dark(ma|
000041f0  69 6e 5f 6d 65 6e 75 25  2c 33 2c 74 6f 74 6e 61  |in_menu%,3,totna|
00004200  6d 65 73 25 2b 74 6f 74  73 65 65 64 73 25 3d 31  |mes%+totseeds%=1|
00004210  32 38 29 0d 19 fa 39 f2  6d 65 6e 75 5f 6f 70 74  |28)...9.menu_opt|
00004220  69 6f 6e 5f 64 61 72 6b  28 6d 61 69 6e 5f 6d 65  |ion_dark(main_me|
00004230  6e 75 25 2c 35 2c 74 6f  74 6e 61 6d 65 73 25 2b  |nu%,5,totnames%+|
00004240  74 6f 74 73 65 65 64 73  25 3d 30 29 0d 1a 04 2f  |totseeds%=0).../|
00004250  f2 6d 65 6e 75 5f 6f 70  74 69 6f 6e 5f 64 61 72  |.menu_option_dar|
00004260  6b 28 73 61 76 65 5f 6d  65 6e 75 25 2c 31 2c ac  |k(save_menu%,1,.|
00004270  64 72 61 77 5f 6d 61 64  65 25 29 0d 1a 0e 12 f2  |draw_made%).....|
00004280  73 65 74 5f 64 72 61 77  5f 6d 65 6e 75 0d 1a 18  |set_draw_menu...|
00004290  2f f2 6d 65 6e 75 5f 6f  70 74 69 6f 6e 5f 64 61  |/.menu_option_da|
000042a0  72 6b 28 6d 61 6b 65 5f  6d 65 6e 75 25 2c 30 2c  |rk(make_menu%,0,|
000042b0  74 6f 74 73 65 65 64 73  25 3d 30 29 0d 1a 22 39  |totseeds%=0).."9|
000042c0  f2 6d 65 6e 75 5f 6f 70  74 69 6f 6e 5f 64 61 72  |.menu_option_dar|
000042d0  6b 28 6d 61 6b 65 5f 6d  65 6e 75 25 2c 31 2c 74  |k(make_menu%,1,t|
000042e0  6f 74 73 65 65 64 73 25  2b 74 6f 74 6e 61 6d 65  |otseeds%+totname|
000042f0  73 25 3c 33 29 0d 1a 2c  39 f2 6d 65 6e 75 5f 6f  |s%<3)..,9.menu_o|
00004300  70 74 69 6f 6e 5f 64 61  72 6b 28 6d 61 6b 65 5f  |ption_dark(make_|
00004310  6d 65 6e 75 25 2c 32 2c  74 6f 74 73 65 65 64 73  |menu%,2,totseeds|
00004320  25 2b 74 6f 74 6e 61 6d  65 73 25 3c 33 29 0d 1a  |%+totnames%<3)..|
00004330  36 0d e3 20 6e 25 3d 31  b8 31 36 0d 1a 40 3a 20  |6.. n%=1.16..@: |
00004340  20 f2 6d 65 6e 75 5f 6f  70 74 69 6f 6e 5f 64 61  | .menu_option_da|
00004350  72 6b 28 73 65 65 64 5f  6d 65 6e 75 25 2c 6e 25  |rk(seed_menu%,n%|
00004360  2d 31 2c 73 65 65 64 5f  65 78 69 73 74 73 25 3f  |-1,seed_exists%?|
00004370  6e 25 3d 31 29 0d 1a 4a  05 ed 0d 1a 54 16 24 69  |n%=1)..J....T.$i|
00004380  6e 66 6f 31 25 3d c3 74  6f 74 6e 61 6d 65 73 25  |nfo1%=.totnames%|
00004390  0d 1a 5e 16 24 69 6e 66  6f 32 25 3d c3 74 6f 74  |..^.$info2%=.tot|
000043a0  73 65 65 64 73 25 0d 1a  68 22 e7 20 71 75 61 72  |seeds%..h". quar|
000043b0  74 65 72 73 25 3d 31 20  84 20 70 65 72 5f 74 65  |ters%=1 . per_te|
000043c0  61 6d 25 3c 3e 30 20 8c  0d 1a 72 19 20 20 24 73  |am%<>0 ...r.  $s|
000043d0  62 73 70 72 32 25 3d 22  66 69 6c 65 5f 61 66 66  |bspr2%="file_aff|
000043e0  22 0d 1a 7c 05 cc 0d 1a  86 1a 20 20 24 73 62 73  |"..|......  $sbs|
000043f0  70 72 32 25 3d 22 64 69  72 65 63 74 6f 72 79 22  |pr2%="directory"|
00004400  0d 1a 90 05 cd 0d 1a 9a  2f e7 20 64 72 61 77 5f  |......../. draw_|
00004410  6d 61 64 65 25 20 8c 20  24 69 6e 66 6f 33 25 3d  |made% . $info3%=|
00004420  22 59 45 53 22 20 8b 20  24 69 6e 66 6f 33 25 3d  |"YES" . $info3%=|
00004430  22 4e 4f 22 0d 1a a4 3c  f2 6d 65 6e 75 5f 6f 70  |"NO"...<.menu_op|
00004440  74 69 6f 6e 5f 61 72 72  6f 77 28 64 72 61 77 5f  |tion_arrow(draw_|
00004450  6d 65 6e 75 25 2c 33 2c  70 65 72 5f 74 65 61 6d  |menu%,3,per_team|
00004460  25 3d 30 2c 70 72 69 6e  74 5f 6d 65 6e 75 25 29  |%=0,print_menu%)|
00004470  0d 1a ae 2c f2 73 68 6f  77 6d 65 6e 75 28 6d 61  |...,.showmenu(ma|
00004480  69 6e 5f 6d 65 6e 75 25  2c 78 70 6f 69 6e 74 25  |in_menu%,xpoint%|
00004490  2d 39 36 2c 79 70 6f 69  6e 74 25 29 0d 1a b8 05  |-96,ypoint%)....|
000044a0  e1 0d 1a c2 05 3a 0d 1a  cc 16 dd 20 f2 6d 61 69  |.....:..... .mai|
000044b0  6e 6d 65 6e 75 5f 6f 70  74 69 6f 6e 0d 1a d6 14  |nmenu_option....|
000044c0  c8 8e 20 6d 61 69 6e 6f  70 74 69 6f 6e 25 20 ca  |.. mainoption% .|
000044d0  0d 1a e0 2e 20 20 c9 20  30 3a f2 64 72 61 77 5f  |....  . 0:.draw_|
000044e0  6f 70 74 69 6f 6e 20 20  20 20 20 20 20 20 20 20  |option          |
000044f0  20 3a f4 20 20 64 72 61  77 20 6d 65 6e 75 0d 1a  | :.  draw menu..|
00004500  ea 30 20 20 c9 20 31 3a  f2 73 65 6c 65 63 74 20  |.0  . 1:.select |
00004510  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00004520  f4 20 20 73 65 6c 65 63  74 20 6d 65 6e 75 0d 1a  |.  select menu..|
00004530  f4 2c 20 20 c9 20 32 20  20 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 3a f4 20 20 73 61  76 65 0d 1a fe 2f 20 20  |  :.  save.../  |
00004560  c9 20 33 20 20 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 3a f4  |              :.|
00004580  20 20 6e 65 77 6e 61 6d  65 0d 1b 08 31 20 20 c9  |  newname...1  .|
00004590  20 34 20 20 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 3a f4 20  |             :. |
000045b0  20 66 69 6c 65 20 69 6e  66 6f 0d 1b 12 36 20 20  | file info...6  |
000045c0  c9 20 35 3a f2 63 6c 65  61 72 5f 61 6c 6c 20 20  |. 5:.clear_all  |
000045d0  20 20 20 20 20 20 20 20  20 20 20 3a f4 20 20 63  |           :.  c|
000045e0  6c 65 61 72 20 6c 6f 61  64 65 64 20 66 69 6c 65  |lear loaded file|
000045f0  0d 1b 1c 32 20 20 c9 20  36 3a 71 75 69 74 25 3d  |...2  . 6:quit%=|
00004600  b9 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00004610  20 3a f4 20 20 71 75 69  74 20 43 6f 6d 70 44 72  | :.  quit CompDr|
00004620  61 77 0d 1b 26 05 cb 0d  1b 30 11 e7 20 62 75 74  |aw..&....0.. but|
00004630  74 6f 6e 25 3d 31 20 8c  0d 1b 3a 10 20 20 f2 6d  |ton%=1 ...:.  .m|
00004640  61 69 6e 5f 6d 65 6e 75  0d 1b 44 1f 20 20 f2 73  |ain_menu..D.  .s|
00004650  68 6f 77 6d 65 6e 75 28  6d 61 69 6e 5f 6d 65 6e  |howmenu(main_men|
00004660  75 25 2c 30 2c 30 29 0d  1b 4e 05 cd 0d 1b 58 05  |u%,0,0)..N....X.|
00004670  e1 0d 1b 62 05 3a 0d 1b  6c 10 dd 20 f2 63 6c 65  |...b.:..l.. .cle|
00004680  61 72 5f 61 6c 6c 0d 1b  76 08 ea 20 6e 25 0d 1b  |ar_all..v.. n%..|
00004690  80 14 e3 20 6e 25 3d 31  b8 74 6f 74 6e 61 6d 65  |... n%=1.totname|
000046a0  73 25 0d 1b 8a 13 20 20  6e 61 6d 65 73 24 28 6e  |s%....  names$(n|
000046b0  25 29 3d 22 22 0d 1b 94  14 20 20 73 65 6c 65 63  |%)=""....  selec|
000046c0  74 65 64 25 3f 6e 25 3d  30 0d 1b 9e 05 ed 0d 1b  |ted%?n%=0.......|
000046d0  a8 0d e3 20 6e 25 3d 31  b8 31 36 0d 1b b2 1c 20  |... n%=1.16.... |
000046e0  20 24 28 73 65 65 64 73  25 2b 28 6e 25 2d 31 29  | $(seeds%+(n%-1)|
000046f0  2a 31 39 29 3d 22 22 0d  1b bc 17 20 20 73 65 65  |*19)=""....  see|
00004700  64 5f 65 78 69 73 74 73  25 3f 6e 25 3d 30 0d 1b  |d_exists%?n%=0..|
00004710  c6 15 20 20 73 65 6c 5f  73 65 65 64 73 25 3f 6e  |..  sel_seeds%?n|
00004720  25 3d 30 0d 1b d0 05 ed  0d 1b da 0f 74 6f 74 6e  |%=0.........totn|
00004730  61 6d 65 73 25 3d 30 0d  1b e4 0f 74 6f 74 73 65  |ames%=0....totse|
00004740  65 64 73 25 3d 30 0d 1b  ee 10 6e 61 6d 65 73 5f  |eds%=0....names_|
00004750  73 65 6c 25 3d 30 0d 1b  f8 10 73 65 65 64 73 5f  |sel%=0....seeds_|
00004760  73 65 6c 25 3d 30 0d 1c  02 0f 70 65 72 5f 74 65  |sel%=0....per_te|
00004770  61 6d 25 3d 30 0d 1c 0c  0c f2 6e 6f 5f 64 72 61  |am%=0.....no_dra|
00004780  77 0d 1c 16 2a 24 74 69  74 6c 65 25 3d 22 43 6f  |w...*$title%="Co|
00004790  6d 70 44 72 61 77 20 3a  20 43 6f 6d 70 65 74 69  |mpDraw : Competi|
000047a0  74 69 6f 6e 20 54 69 74  6c 65 22 0d 1c 20 15 24  |tion Title".. .$|
000047b0  66 69 6c 65 25 3d 22 43  6f 6d 70 44 72 61 77 22  |file%="CompDraw"|
000047c0  0d 1c 2a 17 24 66 69 6c  65 32 25 3d 22 44 72 61  |..*.$file2%="Dra|
000047d0  77 5f 46 69 6c 65 22 0d  1c 34 17 f2 70 75 74 5f  |w_File"..4..put_|
000047e0  6e 61 6d 65 73 5f 69 6e  5f 69 63 6f 6e 73 0d 1c  |names_in_icons..|
000047f0  3e 0f f2 73 68 6f 77 5f  73 65 65 64 73 0d 1c 48  |>..show_seeds..H|
00004800  1a f2 63 68 6f 6f 73 65  28 74 69 74 6c 65 5f 69  |..choose(title_i|
00004810  63 6f 6e 25 2c a3 29 0d  1c 52 0e 61 6c 74 65 72  |con%,.)..R.alter|
00004820  65 64 25 3d a3 0d 1c 5c  05 e1 0d 1c 66 05 3a 0d  |ed%=...\....f.:.|
00004830  1c 70 0d dd 20 f2 73 65  6c 65 63 74 0d 1c 7a 11  |.p.. .select..z.|
00004840  c8 8e 20 73 75 62 6f 70  74 31 25 20 ca 0d 1c 84  |.. subopt1% ....|
00004850  1b 20 20 c9 20 30 3a f2  64 65 6c 65 74 65 5f 73  |.  . 0:.delete_s|
00004860  65 6c 65 63 74 69 6f 6e  0d 1c 8e 19 20 20 c9 20  |election....  . |
00004870  31 3a f2 73 65 65 64 5f  73 65 6c 65 63 74 69 6f  |1:.seed_selectio|
00004880  6e 0d 1c 98 1b 20 20 c9  20 32 3a f2 75 6e 73 65  |n....  . 2:.unse|
00004890  65 64 5f 73 65 6c 65 63  74 69 6f 6e 0d 1c a2 1a  |ed_selection....|
000048a0  20 20 c9 20 33 3a f2 63  6c 65 61 72 5f 73 65 6c  |  . 3:.clear_sel|
000048b0  65 63 74 69 6f 6e 0d 1c  ac 05 cb 0d 1c b6 05 e1  |ection..........|
000048c0  0d 1c c0 05 3a 0d 1c ca  19 dd 20 f2 64 65 6c 65  |....:..... .dele|
000048d0  74 65 5f 6e 61 6d 65 28  6e 61 6d 65 25 29 0d 1c  |te_name(name%)..|
000048e0  d4 08 ea 20 6d 25 0d 1c  de 1c e3 20 6d 25 3d 6e  |... m%..... m%=n|
000048f0  61 6d 65 25 20 b8 20 74  6f 74 6e 61 6d 65 73 25  |ame% . totnames%|
00004900  2d 31 0d 1c e8 1d 20 20  6e 61 6d 65 73 24 28 6d  |-1....  names$(m|
00004910  25 29 3d 6e 61 6d 65 73  24 28 6d 25 2b 31 29 0d  |%)=names$(m%+1).|
00004920  1c f2 05 ed 0d 1c fc 1f  6e 61 6d 65 73 24 28 74  |........names$(t|
00004930  6f 74 6e 61 6d 65 73 25  29 3d 22 64 65 6c 65 74  |otnames%)="delet|
00004940  65 64 22 0d 1d 06 10 74  6f 74 6e 61 6d 65 73 25  |ed"....totnames%|
00004950  2d 3d 31 0d 1d 10 05 e1  0d 1d 1a 05 3a 0d 1d 24  |-=1.........:..$|
00004960  15 dd 20 a4 6e 6f 74 5f  63 6c 65 61 72 5f 64 72  |.. .not_clear_dr|
00004970  61 77 0d 1d 2e 18 e7 20  ac 28 64 72 61 77 5f 6d  |aw..... .(draw_m|
00004980  61 64 65 25 29 20 8c 20  3d a3 0d 1d 38 39 3d ac  |ade%) . =...89=.|
00004990  28 a4 79 6e 28 22 57 41  52 4e 49 4e 47 20 3a 20  |(.yn("WARNING : |
000049a0  54 68 69 73 20 77 69 6c  6c 20 63 6c 65 61 72 20  |This will clear |
000049b0  74 68 65 20 63 75 72 72  65 6e 74 20 64 72 61 77  |the current draw|
000049c0  22 29 29 0d 1d 42 05 3a  0d 1d 4c 17 dd 20 f2 64  |"))..B.:..L.. .d|
000049d0  65 6c 65 74 65 5f 73 65  6c 65 63 74 69 6f 6e 0d  |elete_selection.|
000049e0  1d 56 19 e7 20 a4 6e 6f  74 5f 63 6c 65 61 72 5f  |.V.. .not_clear_|
000049f0  64 72 61 77 20 8c 20 e1  0d 1d 60 0b ea 20 6e 61  |draw . ...`.. na|
00004a00  6d 65 25 0d 1d 6a 13 e7  20 74 6f 74 6e 61 6d 65  |me%..j.. totname|
00004a10  73 25 3d 31 20 8c 0d 1d  74 12 20 20 6e 61 6d 65  |s%=1 ...t.  name|
00004a20  73 24 28 31 29 3d 22 22  0d 1d 7e 13 20 20 73 65  |s$(1)=""..~.  se|
00004a30  6c 65 63 74 65 64 25 3f  31 3d 30 0d 1d 88 11 20  |lected%?1=0.... |
00004a40  20 74 6f 74 6e 61 6d 65  73 25 3d 30 0d 1d 92 05  | totnames%=0....|
00004a50  cc 0d 1d 9c 1d 20 20 e3  20 6e 61 6d 65 25 3d 74  |.....  . name%=t|
00004a60  6f 74 6e 61 6d 65 73 25  b8 31 20 88 2d 31 0d 1d  |otnames%.1 .-1..|
00004a70  a6 1d 20 20 20 20 e7 20  73 65 6c 65 63 74 65 64  |..    . selected|
00004a80  25 3f 6e 61 6d 65 25 3d  31 20 8c 0d 1d b0 1d 20  |%?name%=1 ..... |
00004a90  20 20 20 20 20 f2 64 65  6c 65 74 65 5f 6e 61 6d  |     .delete_nam|
00004aa0  65 28 6e 61 6d 65 25 29  0d 1d ba 1b 20 20 20 20  |e(name%)....    |
00004ab0  20 20 73 65 6c 65 63 74  65 64 25 3f 6e 61 6d 65  |  selected%?name|
00004ac0  25 3d 30 0d 1d c4 09 20  20 20 20 cd 0d 1d ce 07  |%=0....    .....|
00004ad0  20 20 ed 0d 1d d8 05 cd  0d 1d e2 10 6e 61 6d 65  |  ..........name|
00004ae0  73 5f 73 65 6c 25 3d 30  0d 1d ec 17 f2 70 75 74  |s_sel%=0.....put|
00004af0  5f 6e 61 6d 65 73 5f 69  6e 5f 69 63 6f 6e 73 0d  |_names_in_icons.|
00004b00  1d f6 0c f2 6e 6f 5f 64  72 61 77 0d 1e 00 0e 61  |....no_draw....a|
00004b10  6c 74 65 72 65 64 25 3d  b9 0d 1e 0a 05 e1 0d 1e  |ltered%=........|
00004b20  14 05 3a 0d 1e 1e 19 dd  20 f2 70 75 74 5f 6e 61  |..:..... .put_na|
00004b30  6d 65 73 5f 69 6e 5f 69  63 6f 6e 73 0d 1e 28 1a  |mes_in_icons..(.|
00004b40  ea 20 6e 25 2c 69 63 6f  6e 25 2c 6e 65 77 6d 61  |. n%,icon%,newma|
00004b50  78 69 63 6f 6e 25 0d 1e  32 12 e7 20 6d 61 78 69  |xicon%..2.. maxi|
00004b60  63 6f 6e 25 3e 33 20 8c  0d 1e 3c 16 20 20 e3 20  |con%>3 ...<.  . |
00004b70  6e 25 3d 34 b8 20 6d 61  78 69 63 6f 6e 25 0d 1e  |n%=4. maxicon%..|
00004b80  46 27 20 20 20 20 e7 20  a4 6e 61 6d 65 66 72 6f  |F'    . .namefro|
00004b90  6d 69 63 6f 6e 28 6e 25  29 3e 74 6f 74 6e 61 6d  |micon(n%)>totnam|
00004ba0  65 73 25 20 8c 0d 1e 50  1c 20 20 20 20 20 20 f2  |es% ...P.      .|
00004bb0  6e 61 6d 65 69 6e 69 63  6f 6e 28 22 22 2c 6e 25  |nameinicon("",n%|
00004bc0  29 0d 1e 5a 17 20 20 20  20 20 20 f2 63 68 6f 6f  |)..Z.      .choo|
00004bd0  73 65 28 6e 25 2c a3 29  0d 1e 64 09 20 20 20 20  |se(n%,.)..d.    |
00004be0  cd 0d 1e 6e 07 20 20 ed  0d 1e 78 05 cd 0d 1e 82  |...n.  ...x.....|
00004bf0  11 6e 65 77 6d 61 78 69  63 6f 6e 25 3d 33 0d 1e  |.newmaxicon%=3..|
00004c00  8c 14 e7 20 74 6f 74 6e  61 6d 65 73 25 3c 3e 30  |... totnames%<>0|
00004c10  20 8c 0d 1e 96 16 20 20  e3 20 6e 25 3d 31 b8 74  | .....  . n%=1.t|
00004c20  6f 74 6e 61 6d 65 73 25  0d 1e a0 29 20 20 20 20  |otnames%...)    |
00004c30  69 63 6f 6e 25 3d a4 69  63 6f 6e 66 72 6f 6d 6e  |icon%=.iconfromn|
00004c40  61 6d 65 28 74 6f 74 6e  61 6d 65 73 25 2c 6e 25  |ame(totnames%,n%|
00004c50  29 0d 1e aa 2f 20 20 20  20 e7 20 69 63 6f 6e 25  |).../    . icon%|
00004c60  3e 6e 65 77 6d 61 78 69  63 6f 6e 25 20 8c 20 6e  |>newmaxicon% . n|
00004c70  65 77 6d 61 78 69 63 6f  6e 25 3d 69 63 6f 6e 25  |ewmaxicon%=icon%|
00004c80  0d 1e b4 25 20 20 20 20  f2 6e 61 6d 65 69 6e 69  |...%    .nameini|
00004c90  63 6f 6e 28 6e 61 6d 65  73 24 28 6e 25 29 2c 69  |con(names$(n%),i|
00004ca0  63 6f 6e 25 29 0d 1e be  18 20 20 20 20 f2 63 68  |con%)....    .ch|
00004cb0  6f 6f 73 65 28 69 63 6f  6e 25 2c a3 29 0d 1e c8  |oose(icon%,.)...|
00004cc0  07 20 20 ed 0d 1e d2 05  cd 0d 1e dc 18 6d 61 78  |.  ..........max|
00004cd0  69 63 6f 6e 25 3d 6e 65  77 6d 61 78 69 63 6f 6e  |icon%=newmaxicon|
00004ce0  25 0d 1e e6 05 e1 0d 1e  f0 05 3a 0d 1e fa 11 dd  |%.........:.....|
00004cf0  20 f2 6b 65 79 70 72 65  73 73 65 64 0d 1f 04 3c  | .keypressed...<|
00004d00  f4 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00004d10  20 20 20 20 73 65 65 20  57 49 4d 50 20 50 52 4f  |    see WIMP PRO|
00004d20  47 52 41 4d 4d 49 4e 47  20 46 4f 52 20 41 4c 4c  |GRAMMING FOR ALL|
00004d30  20 70 61 67 65 20 34 38  0d 1f 0e 13 77 69 6e 64  | page 48....wind|
00004d40  6f 77 25 3d 21 62 6c 6f  63 6b 25 0d 1f 18 12 69  |ow%=!block%....i|
00004d50  63 6f 6e 25 3d 62 6c 6f  63 6b 25 21 34 0d 1f 22  |con%=block%!4.."|
00004d60  12 6b 65 79 25 3d 62 6c  6f 63 6b 25 21 32 34 0d  |.key%=block%!24.|
00004d70  1f 2c 25 e7 20 6b 65 79  25 3c 33 32 20 80 20 6b  |.,%. key%<32 . k|
00004d80  65 79 25 3c 3e 31 33 20  84 20 6b 65 79 25 3e 26  |ey%<>13 . key%>&|
00004d90  46 46 20 8c 0d 1f 36 1f  20 20 c8 99 20 22 57 69  |FF ...6.  .. "Wi|
00004da0  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 6b  |mp_ProcessKey",k|
00004db0  65 79 25 0d 1f 40 07 20  20 e1 0d 1f 4a 05 cd 0d  |ey%..@.  ...J...|
00004dc0  1f 54 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |.T... window% ..|
00004dd0  1f 5e 20 20 20 c9 20 6d  61 69 6e 5f 77 69 6e 64  |.^   . main_wind|
00004de0  6f 77 25 3a f2 6c 6f 73  65 5f 63 61 72 65 74 0d  |ow%:.lose_caret.|
00004df0  1f 68 22 20 20 c9 20 6e  65 77 6e 61 6d 65 5f 77  |.h"  . newname_w|
00004e00  69 6e 64 6f 77 25 3a f2  6e 65 77 6e 61 6d 65 69  |indow%:.newnamei|
00004e10  6e 0d 1f 72 15 20 20 c9  20 73 61 76 65 5f 77 69  |n..r.  . save_wi|
00004e20  6e 64 6f 77 25 3a 0d 1f  7c 20 20 20 20 20 f2 71  |ndow%:..|     .q|
00004e30  75 69 63 6b 73 61 76 65  28 73 61 76 65 5f 77 69  |uicksave(save_wi|
00004e40  6e 64 6f 77 25 29 0d 1f  86 14 20 20 20 20 f2 63  |ndow%)....    .c|
00004e50  6c 6f 73 65 5f 6d 65 6e  75 73 0d 1f 90 16 20 20  |lose_menus....  |
00004e60  c9 20 73 61 76 65 5f 77  69 6e 64 6f 77 32 25 3a  |. save_window2%:|
00004e70  0d 1f 9a 21 20 20 20 20  f2 71 75 69 63 6b 73 61  |...!    .quicksa|
00004e80  76 65 28 73 61 76 65 5f  77 69 6e 64 6f 77 32 25  |ve(save_window2%|
00004e90  29 0d 1f a4 14 20 20 20  20 f2 63 6c 6f 73 65 5f  |)....    .close_|
00004ea0  6d 65 6e 75 73 0d 1f ae  1b 20 20 c9 20 74 65 61  |menus....  . tea|
00004eb0  6d 5f 77 69 6e 64 6f 77  25 3a f2 74 65 61 6d 73  |m_window%:.teams|
00004ec0  0d 1f b8 05 cb 0d 1f c2  05 e1 0d 1f cc 05 3a 0d  |..............:.|
00004ed0  1f d6 11 dd 20 f2 6c 6f  73 65 5f 63 61 72 65 74  |.... .lose_caret|
00004ee0  0d 1f e0 21 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...!.. "Wimp_Set|
00004ef0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2d  |CaretPosition",-|
00004f00  31 0d 1f ea 05 e1 0d 1f  f4 05 3a 0d 1f fe 10 dd  |1.........:.....|
00004f10  20 f2 6e 65 77 6e 61 6d  65 69 6e 0d 20 08 19 e7  | .newnamein. ...|
00004f20  20 a4 6e 6f 74 5f 63 6c  65 61 72 5f 64 72 61 77  | .not_clear_draw|
00004f30  20 8c 20 e1 0d 20 12 0b  ea 20 6e 61 6d 65 24 0d  | . .. ... name$.|
00004f40  20 1c 14 6e 61 6d 65 24  3d 24 6e 65 77 5f 6e 61  | ..name$=$new_na|
00004f50  6d 65 25 0d 20 26 11 24  6e 65 77 5f 6e 61 6d 65  |me%. &.$new_name|
00004f60  25 3d 22 22 0d 20 30 12  e7 20 6e 61 6d 65 24 3d  |%="". 0.. name$=|
00004f70  22 22 20 8c 20 e1 0d 20  3a 13 f2 6e 61 6d 65 5f  |"" . .. :..name_|
00004f80  69 6e 28 6e 61 6d 65 24  29 0d 20 44 17 f2 70 75  |in(name$). D..pu|
00004f90  74 5f 6e 61 6d 65 73 5f  69 6e 5f 69 63 6f 6e 73  |t_names_in_icons|
00004fa0  0d 20 4e 0c f2 6e 6f 5f  64 72 61 77 0d 20 58 0e  |. N..no_draw. X.|
00004fb0  f2 6d 61 69 6e 5f 6d 65  6e 75 0d 20 62 0e 61 6c  |.main_menu. b.al|
00004fc0  74 65 72 65 64 25 3d b9  0d 20 6c 05 e1 0d 20 76  |tered%=.. l... v|
00004fd0  05 3a 0d 20 80 15 dd 20  f2 6e 61 6d 65 5f 69 6e  |.:. ... .name_in|
00004fe0  28 6e 61 6d 65 24 29 0d  20 8a 08 ea 20 6e 25 0d  |(name$). ... n%.|
00004ff0  20 94 08 6e 25 3d 30 0d  20 9e 05 f5 0d 20 a8 0b  | ..n%=0. .... ..|
00005000  20 20 6e 25 2b 3d 31 0d  20 b2 25 fd 20 6e 25 3e  |  n%+=1. .%. n%>|
00005010  74 6f 74 6e 61 6d 65 73  25 20 84 20 6e 61 6d 65  |totnames% . name|
00005020  73 24 28 6e 25 29 3e 6e  61 6d 65 24 0d 20 bc 19  |s$(n%)>name$. ..|
00005030  f2 69 6e 73 65 72 74 6e  61 6d 65 28 6e 25 2c 6e  |.insertname(n%,n|
00005040  61 6d 65 24 29 0d 20 c6  05 e1 0d 20 d0 05 3a 0d  |ame$). .... ..:.|
00005050  20 da 1b dd 20 f2 69 6e  73 65 72 74 6e 61 6d 65  | ... .insertname|
00005060  28 6e 25 2c 6e 61 6d 65  24 29 0d 20 e4 08 ea 20  |(n%,name$). ... |
00005070  6d 25 0d 20 ee 10 74 6f  74 6e 61 6d 65 73 25 2b  |m%. ..totnames%+|
00005080  3d 31 0d 20 f8 14 e7 20  6e 25 3d 74 6f 74 6e 61  |=1. ... n%=totna|
00005090  6d 65 73 25 20 8c 0d 21  02 1d 20 20 6e 61 6d 65  |mes% ..!..  name|
000050a0  73 24 28 74 6f 74 6e 61  6d 65 73 25 29 3d 6e 61  |s$(totnames%)=na|
000050b0  6d 65 24 0d 21 0c 05 cc  0d 21 16 1f 20 20 e3 20  |me$.!....!..  . |
000050c0  6d 25 3d 74 6f 74 6e 61  6d 65 73 25 20 b8 20 6e  |m%=totnames% . n|
000050d0  25 2b 31 20 88 2d 31 0d  21 20 1f 20 20 20 20 6e  |%+1 .-1.! .    n|
000050e0  61 6d 65 73 24 28 6d 25  29 3d 6e 61 6d 65 73 24  |ames$(m%)=names$|
000050f0  28 6d 25 2d 31 29 0d 21  2a 07 20 20 ed 0d 21 34  |(m%-1).!*.  ..!4|
00005100  16 20 20 6e 61 6d 65 73  24 28 6e 25 29 3d 6e 61  |.  names$(n%)=na|
00005110  6d 65 24 0d 21 3e 05 cd  0d 21 48 05 e1 0d 21 52  |me$.!>...!H...!R|
00005120  05 3a 0d 21 5c 15 dd 20  f2 73 65 65 64 5f 73 65  |.:.!\.. .seed_se|
00005130  6c 65 63 74 69 6f 6e 0d  21 66 14 e7 20 73 75 62  |lection.!f.. sub|
00005140  6f 70 74 32 25 3c 30 20  8c 20 e1 0d 21 70 19 e7  |opt2%<0 . ..!p..|
00005150  20 a4 6e 6f 74 5f 63 6c  65 61 72 5f 64 72 61 77  | .not_clear_draw|
00005160  20 8c 20 e1 0d 21 7a 1d  ea 20 6e 61 6d 65 25 2c  | . ..!z.. name%,|
00005170  6e 61 6d 65 24 2c 73 65  65 64 25 2c 69 63 6f 6e  |name$,seed%,icon|
00005180  25 0d 21 84 0b 6e 61 6d  65 25 3d 30 0d 21 8e 05  |%.!..name%=0.!..|
00005190  f5 0d 21 98 0e 20 20 6e  61 6d 65 25 2b 3d 31 0d  |..!..  name%+=1.|
000051a0  21 a2 18 fd 20 73 65 6c  65 63 74 65 64 25 3f 6e  |!... selected%?n|
000051b0  61 6d 65 25 3c 3e 30 0d  21 ac 17 6e 61 6d 65 24  |ame%<>0.!..name$|
000051c0  3d 6e 61 6d 65 73 24 28  6e 61 6d 65 25 29 0d 21  |=names$(name%).!|
000051d0  b6 14 73 65 65 64 25 3d  73 75 62 6f 70 74 32 25  |..seed%=subopt2%|
000051e0  2b 31 0d 21 c0 10 74 6f  74 73 65 65 64 73 25 2b  |+1.!..totseeds%+|
000051f0  3d 31 0d 21 ca 18 73 65  65 64 5f 65 78 69 73 74  |=1.!..seed_exist|
00005200  73 25 3f 73 65 65 64 25  3d 31 0d 21 d4 10 6e 61  |s%?seed%=1.!..na|
00005210  6d 65 73 5f 73 65 6c 25  3d 30 0d 21 de 15 73 65  |mes_sel%=0.!..se|
00005220  6c 65 63 74 65 64 25 3f  6e 61 6d 65 25 3d 30 0d  |lected%?name%=0.|
00005230  21 e8 1c f2 73 65 65 64  69 6e 69 63 6f 6e 28 6e  |!...seedinicon(n|
00005240  61 6d 65 24 2c 73 65 65  64 25 29 0d 21 f2 17 f2  |ame$,seed%).!...|
00005250  64 65 6c 65 74 65 5f 6e  61 6d 65 28 6e 61 6d 65  |delete_name(name|
00005260  25 29 0d 21 fc 17 f2 70  75 74 5f 6e 61 6d 65 73  |%).!...put_names|
00005270  5f 69 6e 5f 69 63 6f 6e  73 0d 22 06 1e 69 63 6f  |_in_icons."..ico|
00005280  6e 25 3d a4 69 63 6f 6e  66 72 6f 6d 73 65 65 64  |n%=.iconfromseed|
00005290  28 73 65 65 64 25 29 0d  22 10 14 f2 63 68 6f 6f  |(seed%)."...choo|
000052a0  73 65 28 69 63 6f 6e 25  2c a3 29 0d 22 1a 0c f2  |se(icon%,.)."...|
000052b0  6e 6f 5f 64 72 61 77 0d  22 24 0e 61 6c 74 65 72  |no_draw."$.alter|
000052c0  65 64 25 3d b9 0d 22 2e  05 e1 0d 22 38 05 3a 0d  |ed%=.."...."8.:.|
000052d0  22 42 17 dd 20 f2 75 6e  73 65 65 64 5f 73 65 6c  |"B.. .unseed_sel|
000052e0  65 63 74 69 6f 6e 0d 22  4c 19 e7 20 a4 6e 6f 74  |ection."L.. .not|
000052f0  5f 63 6c 65 61 72 5f 64  72 61 77 20 8c 20 e1 0d  |_clear_draw . ..|
00005300  22 56 0e ea 20 6e 25 2c  6e 61 6d 65 24 0d 22 60  |"V.. n%,name$."`|
00005310  0d e3 20 6e 25 3d 31 b8  31 36 0d 22 6a 19 20 20  |.. n%=1.16."j.  |
00005320  e7 20 73 65 6c 5f 73 65  65 64 73 25 3f 6e 25 3d  |. sel_seeds%?n%=|
00005330  31 20 8c 0d 22 74 21 20  20 20 20 6e 61 6d 65 24  |1 .."t!    name$|
00005340  3d 24 28 73 65 65 64 73  25 2b 31 39 2a 28 6e 25  |=$(seeds%+19*(n%|
00005350  2d 31 29 29 0d 22 7e 17  20 20 20 20 73 65 6c 5f  |-1))."~.    sel_|
00005360  73 65 65 64 73 25 3f 6e  25 3d 30 0d 22 88 19 20  |seeds%?n%=0.".. |
00005370  20 20 20 73 65 65 64 5f  65 78 69 73 74 73 25 3f  |   seed_exists%?|
00005380  6e 25 3d 30 0d 22 92 14  20 20 20 20 74 6f 74 73  |n%=0."..    tots|
00005390  65 65 64 73 25 2d 3d 31  0d 22 9c 1a 20 20 20 20  |eeds%-=1."..    |
000053a0  f2 73 65 65 64 69 6e 69  63 6f 6e 28 22 22 2c 6e  |.seedinicon("",n|
000053b0  25 29 0d 22 a6 17 20 20  20 20 f2 6e 61 6d 65 5f  |%)."..    .name_|
000053c0  69 6e 28 6e 61 6d 65 24  29 0d 22 b0 24 20 20 20  |in(name$).".$   |
000053d0  20 f2 63 68 6f 6f 73 65  28 a4 69 63 6f 6e 66 72  | .choose(.iconfr|
000053e0  6f 6d 73 65 65 64 28 6e  25 29 2c a3 29 0d 22 ba  |omseed(n%),.).".|
000053f0  07 20 20 cd 0d 22 c4 05  ed 0d 22 ce 10 73 65 65  |.  .."...."..see|
00005400  64 73 5f 73 65 6c 25 3d  30 0d 22 d8 17 f2 70 75  |ds_sel%=0."...pu|
00005410  74 5f 6e 61 6d 65 73 5f  69 6e 5f 69 63 6f 6e 73  |t_names_in_icons|
00005420  0d 22 e2 0c f2 6e 6f 5f  64 72 61 77 0d 22 ec 0e  |."...no_draw."..|
00005430  61 6c 74 65 72 65 64 25  3d b9 0d 22 f6 05 e1 0d  |altered%=.."....|
00005440  23 00 05 3a 0d 23 0a 16  dd 20 f2 63 6c 65 61 72  |#..:.#... .clear|
00005450  5f 73 65 6c 65 63 74 69  6f 6e 0d 23 14 08 ea 20  |_selection.#... |
00005460  6e 25 0d 23 1e 15 e7 20  73 65 65 64 73 5f 73 65  |n%.#... seeds_se|
00005470  6c 25 3c 3e 30 20 8c 0d  23 28 0f 20 20 e3 20 6e  |l%<>0 ..#(.  . n|
00005480  25 3d 31 b8 31 36 0d 23  32 1b 20 20 20 20 e7 20  |%=1.16.#2.    . |
00005490  73 65 6c 5f 73 65 65 64  73 25 3f 6e 25 3d 31 20  |sel_seeds%?n%=1 |
000054a0  8c 0d 23 3c 19 20 20 20  20 20 20 73 65 6c 5f 73  |..#<.      sel_s|
000054b0  65 65 64 73 25 3f 6e 25  3d 30 0d 23 46 26 20 20  |eeds%?n%=0.#F&  |
000054c0  20 20 20 20 f2 63 68 6f  6f 73 65 28 a4 69 63 6f  |    .choose(.ico|
000054d0  6e 66 72 6f 6d 73 65 65  64 28 6e 25 29 2c a3 29  |nfromseed(n%),.)|
000054e0  0d 23 50 09 20 20 20 20  cd 0d 23 5a 07 20 20 ed  |.#P.    ..#Z.  .|
000054f0  0d 23 64 12 20 20 73 65  65 64 73 5f 73 65 6c 25  |.#d.  seeds_sel%|
00005500  3d 30 0d 23 6e 07 20 20  e1 0d 23 78 05 cd 0d 23  |=0.#n.  ..#x...#|
00005510  82 14 e3 20 6e 25 3d 31  b8 74 6f 74 6e 61 6d 65  |... n%=1.totname|
00005520  73 25 0d 23 8c 18 20 20  e7 20 73 65 6c 65 63 74  |s%.#..  . select|
00005530  65 64 25 3f 6e 25 3d 31  20 8c 0d 23 96 16 20 20  |ed%?n%=1 ..#..  |
00005540  20 20 73 65 6c 65 63 74  65 64 25 3f 6e 25 3d 30  |  selected%?n%=0|
00005550  0d 23 a0 2e 20 20 20 20  f2 63 68 6f 6f 73 65 28  |.#..    .choose(|
00005560  a4 69 63 6f 6e 66 72 6f  6d 6e 61 6d 65 28 74 6f  |.iconfromname(to|
00005570  74 6e 61 6d 65 73 25 2c  6e 25 29 2c a3 29 0d 23  |tnames%,n%),.).#|
00005580  aa 07 20 20 cd 0d 23 b4  05 ed 0d 23 be 10 6e 61  |..  ..#....#..na|
00005590  6d 65 73 5f 73 65 6c 25  3d 30 0d 23 c8 05 e1 0d  |mes_sel%=0.#....|
000055a0  23 d2 05 3a 0d 23 dc 15  dd 20 a4 73 74 72 69 6e  |#..:.#... .strin|
000055b0  67 28 70 6f 69 6e 74 25  29 0d 23 e6 0b ea 20 61  |g(point%).#... a|
000055c0  24 2c 6e 25 0d 23 f0 09  61 24 3d 22 22 0d 23 fa  |$,n%.#..a$="".#.|
000055d0  0e 6e 25 3d 3f 70 6f 69  6e 74 25 0d 24 04 15 c8  |.n%=?point%.$...|
000055e0  95 20 6e 25 3c 3e 31 33  20 80 20 6e 25 3c 3e 30  |. n%<>13 . n%<>0|
000055f0  0d 24 0e 0f 20 20 61 24  2b 3d bd 28 6e 25 29 0d  |.$..  a$+=.(n%).|
00005600  24 18 0f 20 20 70 6f 69  6e 74 25 2b 3d 31 0d 24  |$..  point%+=1.$|
00005610  22 10 20 20 6e 25 3d 3f  70 6f 69 6e 74 25 0d 24  |".  n%=?point%.$|
00005620  2c 05 ce 0d 24 36 07 3d  61 24 0d 24 40 05 3a 0d  |,...$6.=a$.$@.:.|
00005630  24 4a 14 dd 20 f2 73 65  74 5f 76 61 72 69 61 62  |$J.. .set_variab|
00005640  6c 65 73 0d 24 54 0e ea  20 6e 25 2c 69 63 6f 6e  |les.$T.. n%,icon|
00005650  25 0d 24 5e 16 74 6f 74  6e 61 6d 65 73 25 3d 62  |%.$^.totnames%=b|
00005660  61 73 65 25 3f 34 32 0d  24 68 16 74 6f 74 73 65  |ase%?42.$h.totse|
00005670  65 64 73 25 3d 62 61 73  65 25 3f 34 33 0d 24 72  |eds%=base%?43.$r|
00005680  1b 64 6f 75 62 6c 65 73  25 3d 28 62 61 73 65 25  |.doubles%=(base%|
00005690  3f 32 39 39 39 3d 31 29  0d 24 7c 18 70 65 72 5f  |?2999=1).$|.per_|
000056a0  74 65 61 6d 25 3d 62 61  73 65 25 3f 32 39 39 38  |team%=base%?2998|
000056b0  0d 24 86 15 74 65 61 6d  73 25 3d 62 61 73 65 25  |.$..teams%=base%|
000056c0  3f 32 39 39 37 0d 24 90  11 f2 73 65 74 5f 71 75  |?2997.$...set_qu|
000056d0  61 72 74 65 72 73 0d 24  9a 14 e3 20 6e 25 3d 31  |arters.$... n%=1|
000056e0  b8 74 6f 74 6e 61 6d 65  73 25 0d 24 a4 27 20 20  |.totnames%.$.'  |
000056f0  69 63 6f 6e 25 3d a4 69  63 6f 6e 66 72 6f 6d 6e  |icon%=.iconfromn|
00005700  61 6d 65 28 74 6f 74 6e  61 6d 65 73 25 2c 6e 25  |ame(totnames%,n%|
00005710  29 0d 24 ae 27 20 20 6e  61 6d 65 73 24 28 6e 25  |).$.'  names$(n%|
00005720  29 3d 24 28 6e 61 6d 65  73 25 2b 31 39 2a 28 69  |)=$(names%+19*(i|
00005730  63 6f 6e 25 2d 34 29 29  0d 24 b8 05 ed 0d 24 c2  |con%-4)).$....$.|
00005740  14 e7 20 28 62 61 73 65  25 3f 34 34 3d 31 29 20  |.. (base%?44=1) |
00005750  8c 0d 24 cc 15 20 20 f2  73 65 74 5f 64 72 61 77  |..$..  .set_draw|
00005760  5f 6e 61 6d 65 73 0d 24  d6 15 20 20 e7 20 70 65  |_names.$..  . pe|
00005770  72 5f 74 65 61 6d 25 3d  30 20 8c 0d 24 e0 12 20  |r_team%=0 ..$.. |
00005780  20 20 20 f2 73 68 6f 77  5f 64 72 61 77 0d 24 ea  |   .show_draw.$.|
00005790  07 20 20 cc 0d 24 f4 13  20 20 20 20 f2 73 68 6f  |.  ..$..    .sho|
000057a0  77 5f 74 65 61 6d 73 0d  24 fe 07 20 20 cd 0d 25  |w_teams.$..  ..%|
000057b0  08 05 cc 0d 25 12 0e 20  20 f2 6e 6f 5f 64 72 61  |....%..  .no_dra|
000057c0  77 0d 25 1c 05 cd 0d 25  26 05 e1 0d 25 30 05 3a  |w.%....%&...%0.:|
000057d0  0d 25 3a 0f dd 20 f2 64  61 74 61 6c 6f 61 64 0d  |.%:.. .dataload.|
000057e0  25 44 13 ea 20 74 79 70  65 25 2c 61 63 74 69 6f  |%D.. type%,actio|
000057f0  6e 25 0d 25 4e 13 74 79  70 65 25 3d 62 6c 6f 63  |n%.%N.type%=bloc|
00005800  6b 25 21 34 30 0d 25 58  1c 70 61 74 68 24 3d a4  |k%!40.%X.path$=.|
00005810  73 74 72 69 6e 67 28 62  6c 6f 63 6b 25 2b 34 34  |string(block%+44|
00005820  29 0d 25 62 18 e7 20 74  79 70 65 25 3c 3e 66 69  |).%b.. type%<>fi|
00005830  6c 65 74 79 70 65 25 20  8c 0d 25 6c 10 20 20 c8  |letype% ..%l.  .|
00005840  8e 20 74 79 70 65 25 20  ca 0d 25 76 33 20 20 20  |. type% ..%v3   |
00005850  20 c9 20 26 31 30 30 30  3a f2 72 65 70 6f 72 74  | . &1000:.report|
00005860  28 22 4f 62 6a 65 63 74  20 69 73 20 61 20 64 69  |("Object is a di|
00005870  72 65 63 74 6f 72 79 22  2c 31 36 29 0d 25 80 36  |rectory",16).%.6|
00005880  20 20 20 20 c9 20 26 32  30 30 30 3a f2 72 65 70  |    . &2000:.rep|
00005890  6f 72 74 28 22 4f 62 6a  65 63 74 20 69 73 20 61  |ort("Object is a|
000058a0  6e 20 61 70 70 6c 69 63  61 74 69 6f 6e 22 2c 31  |n application",1|
000058b0  36 29 0d 25 8a 31 20 20  20 20 7f 3a f2 72 65 70  |6).%.1    .:.rep|
000058c0  6f 72 74 28 22 55 6e 6b  6e 6f 77 6e 20 66 69 6c  |ort("Unknown fil|
000058d0  65 74 79 70 65 20 22 2b  c3 7e 74 79 70 65 25 2c  |etype "+.~type%,|
000058e0  31 36 29 0d 25 94 07 20  20 cb 0d 25 9e 07 20 20  |16).%..  ..%..  |
000058f0  e1 0d 25 a8 05 cd 0d 25  b2 1d e7 20 74 6f 74 6e  |..%....%... totn|
00005900  61 6d 65 73 25 2b 74 6f  74 73 65 65 64 73 25 3d  |ames%+totseeds%=|
00005910  30 20 8c 0d 25 bc 14 20  20 f2 6c 6f 61 64 69 74  |0 ..%..  .loadit|
00005920  28 70 61 74 68 24 29 0d  25 c6 05 cc 0d 25 d0 0c  |(path$).%....%..|
00005930  20 20 f2 6d 65 72 67 65  0d 25 da 05 cd 0d 25 e4  |  .merge.%....%.|
00005940  05 e1 0d 25 ee 05 3a 0d  25 f8 14 dd 20 f2 6c 6f  |...%..:.%... .lo|
00005950  61 64 69 74 28 66 69 6c  65 24 29 0d 26 02 10 24  |adit(file$).&..$|
00005960  66 69 6c 65 25 3d 66 69  6c 65 24 0d 26 0c 24 c8  |file%=file$.&.$.|
00005970  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 32 2c 66  |. "OS_File",12,f|
00005980  69 6c 65 25 2c 62 61 73  65 25 2c 30 2c 31 33 0d  |ile%,base%,0,13.|
00005990  26 16 0c f2 6e 6f 5f 64  72 61 77 0d 26 20 12 f2  |&...no_draw.& ..|
000059a0  73 65 74 5f 76 61 72 69  61 62 6c 65 73 0d 26 2a  |set_variables.&*|
000059b0  17 f2 70 75 74 5f 6e 61  6d 65 73 5f 69 6e 5f 69  |..put_names_in_i|
000059c0  63 6f 6e 73 0d 26 34 1a  f2 63 68 6f 6f 73 65 28  |cons.&4..choose(|
000059d0  74 69 74 6c 65 5f 69 63  6f 6e 25 2c a3 29 0d 26  |title_icon%,.).&|
000059e0  3e 0f f2 73 68 6f 77 5f  73 65 65 64 73 0d 26 48  |>..show_seeds.&H|
000059f0  1e f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 6d 61  |..open_window(ma|
00005a00  69 6e 5f 77 69 6e 64 6f  77 25 29 0d 26 52 0e 61  |in_window%).&R.a|
00005a10  6c 74 65 72 65 64 25 3d  a3 0d 26 5c 17 24 66 69  |ltered%=..&\.$fi|
00005a20  6c 65 32 25 3d 22 44 72  61 77 5f 46 69 6c 65 22  |le2%="Draw_File"|
00005a30  0d 26 66 05 e1 0d 26 70  05 3a 0d 26 7a 11 dd 20  |.&f...&p.:.&z.. |
00005a40  f2 73 68 6f 77 5f 73 65  65 64 73 0d 26 84 08 ea  |.show_seeds.&...|
00005a50  20 6e 25 0d 26 8e 0d e3  20 6e 25 3d 31 b8 31 36  | n%.&... n%=1.16|
00005a60  0d 26 98 22 20 20 f2 63  68 6f 6f 73 65 28 a4 69  |.&."  .choose(.i|
00005a70  63 6f 6e 66 72 6f 6d 73  65 65 64 28 6e 25 29 2c  |confromseed(n%),|
00005a80  a3 29 0d 26 a2 05 ed 0d  26 ac 05 e1 0d 26 b6 05  |.).&....&....&..|
00005a90  3a 0d 26 c0 0c dd 20 f2  6d 65 72 67 65 0d 26 ca  |:.&... .merge.&.|
00005aa0  1f f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 6d 65  |..open_window(me|
00005ab0  72 67 65 5f 77 69 6e 64  6f 77 25 29 0d 26 d4 19  |rge_window%).&..|
00005ac0  c8 97 20 c8 93 20 33 34  30 2c 34 30 30 2c 36 30  |.. .. 340,400,60|
00005ad0  30 2c 32 34 30 0d 26 de  05 e1 0d 26 e8 05 3a 0d  |0,240.&....&..:.|
00005ae0  26 f2 19 dd 20 f2 63 6c  6f 73 65 5f 6d 65 72 67  |&... .close_merg|
00005af0  65 5f 77 69 6e 64 6f 77  0d 26 fc 19 21 62 6c 6f  |e_window.&..!blo|
00005b00  63 6b 25 3d 6d 65 72 67  65 5f 77 69 6e 64 6f 77  |ck%=merge_window|
00005b10  25 0d 27 06 21 c8 99 20  22 57 69 6d 70 5f 43 6c  |%.'.!.. "Wimp_Cl|
00005b20  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
00005b30  6b 25 0d 27 10 0c 2a 50  4f 49 4e 54 45 52 0d 27  |k%.'..*POINTER.'|
00005b40  1a 05 e1 0d 27 24 05 3a  0d 27 2e 13 dd 20 f2 6d  |....'$.:.'... .m|
00005b50  65 72 67 65 5f 77 69 6e  64 6f 77 0d 27 38 0b ea  |erge_window.'8..|
00005b60  20 69 63 6f 6e 25 0d 27  42 13 69 63 6f 6e 25 3d  | icon%.'B.icon%=|
00005b70  62 6c 6f 63 6b 25 21 31  36 0d 27 4c 0e c8 8e 20  |block%!16.'L... |
00005b80  69 63 6f 6e 25 20 ca 0d  27 56 0d 20 20 c9 20 6c  |icon% ..'V.  . l|
00005b90  6f 61 25 3a 0d 27 60 1b  20 20 20 20 f2 63 6c 6f  |oa%:.'`.    .clo|
00005ba0  73 65 5f 6d 65 72 67 65  5f 77 69 6e 64 6f 77 0d  |se_merge_window.|
00005bb0  27 6a 16 20 20 20 20 f2  6c 6f 61 64 69 74 28 70  |'j.    .loadit(p|
00005bc0  61 74 68 24 29 0d 27 74  0d 20 20 c9 20 6d 65 72  |ath$).'t.  . mer|
00005bd0  25 3a 0d 27 7e 1b 20 20  20 20 f2 63 6c 6f 73 65  |%:.'~.    .close|
00005be0  5f 6d 65 72 67 65 5f 77  69 6e 64 6f 77 0d 27 88  |_merge_window.'.|
00005bf0  11 20 20 20 20 f2 6d 65  72 67 65 5f 69 74 0d 27  |.    .merge_it.'|
00005c00  92 0d 20 20 c9 20 63 61  6e 25 3a 0d 27 9c 1b 20  |..  . can%:.'.. |
00005c10  20 20 20 f2 63 6c 6f 73  65 5f 6d 65 72 67 65 5f  |   .close_merge_|
00005c20  77 69 6e 64 6f 77 0d 27  a6 05 cb 0d 27 b0 05 e1  |window.'....'...|
00005c30  0d 27 ba 05 3a 0d 27 c4  19 dd 20 f2 73 6c 6f 61  |.'..:.'... .sloa|
00005c40  64 28 66 69 6c 65 24 2c  61 72 65 61 25 29 0d 27  |d(file$,area%).'|
00005c50  ce 48 f4 20 2a 2a 2a 2a  2a 20 6c 6f 61 64 73 20  |.H. ***** loads |
00005c60  73 70 72 69 74 65 20 66  69 6c 65 20 27 66 69 6c  |sprite file 'fil|
00005c70  65 24 27 20 74 6f 20 61  72 65 61 20 70 6f 69 6e  |e$' to area poin|
00005c80  74 65 64 20 74 6f 20 62  79 20 27 61 72 65 61 27  |ted to by 'area'|
00005c90  20 2a 2a 2a 2a 2a 0d 27  d8 10 ea 20 41 24 2c 51  | *****.'... A$,Q|
00005ca0  25 2c 6c 65 6e 25 0d 27  e2 0f 51 25 3d 8e 28 66  |%,len%.'..Q%=.(f|
00005cb0  69 6c 65 24 29 0d 27 ec  0c e7 20 51 25 3d 30 20  |ile$).'... Q%=0 |
00005cc0  8c 0d 27 f6 0a 20 20 d9  23 51 25 0d 28 00 09 20  |..'..  .#Q%.(.. |
00005cd0  20 ef 20 37 0d 28 0a 07  20 20 e1 0d 28 14 05 cd  | . 7.(..  ..(...|
00005ce0  0d 28 1e 0f 6c 65 6e 25  3d a2 23 28 51 25 29 0d  |.(..len%=.#(Q%).|
00005cf0  28 28 08 d9 23 51 25 0d  28 32 13 61 72 65 61 25  |((..#Q%.(2.area%|
00005d00  21 30 3d 6c 65 6e 25 2b  31 30 0d 28 3c 0e 61 72  |!0=len%+10.(<.ar|
00005d10  65 61 25 21 38 3d 31 36  0d 28 46 3e f4 20 20 20  |ea%!8=16.(F>.   |
00005d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00005d40  69 6e 69 74 69 61 6c 69  73 65 20 73 70 72 69 74  |initialise sprit|
00005d50  65 20 61 72 65 61 0d 28  50 1f c8 99 20 22 4f 53  |e area.(P... "OS|
00005d60  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00005d70  61 72 65 61 25 0d 28 5a  38 f4 20 20 20 20 20 20  |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 6c 6f 61  |             loa|
00005da0  64 20 73 70 72 69 74 65  20 66 69 6c 65 0d 28 64  |d sprite file.(d|
00005db0  25 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |%.. "OS_SpriteOp|
00005dc0  22 2c 26 31 30 41 2c 61  72 65 61 25 2c 66 69 6c  |",&10A,area%,fil|
00005dd0  65 24 0d 28 6e 05 e1 0d  28 78 05 3a 0d 28 82 25  |e$.(n...(x.:.(.%|
00005de0  dd 20 f2 72 65 61 64 5f  6c 6f 61 64 5f 66 69 6c  |. .read_load_fil|
00005df0  65 6e 61 6d 65 28 f8 20  70 72 69 6e 74 69 74 25  |ename(. printit%|
00005e00  29 0d 28 8c 08 ea 20 49  25 0d 28 96 1a c8 99 20  |).(... I%.(.... |
00005e10  22 4f 53 5f 47 65 74 45  6e 76 22 20 b8 20 66 69  |"OS_GetEnv" . fi|
00005e20  6c 65 24 0d 28 a0 19 e7  20 a7 66 69 6c 65 24 2c  |le$.(... .file$,|
00005e30  22 20 2d 71 75 69 74 20  22 29 20 8c 0d 28 aa 15  |" -quit ") ..(..|
00005e40  20 20 49 25 3d a7 66 69  6c 65 24 2c 22 22 22 22  |  I%=.file$,""""|
00005e50  29 0d 28 b4 1a 20 20 49  25 3d a7 66 69 6c 65 24  |).(..  I%=.file$|
00005e60  2c 22 22 22 22 2c 49 25  2b 31 29 0d 28 be 07 20  |,"""",I%+1).(.. |
00005e70  20 f5 0d 28 c8 0d 20 20  20 20 49 25 2b 3d 31 0d  | ..(..    I%+=1.|
00005e80  28 d2 19 20 20 fd 20 c1  66 69 6c 65 24 2c 49 25  |(..  . .file$,I%|
00005e90  2c 31 29 3c 3e 22 20 22  0d 28 dc 16 20 20 66 69  |,1)<>" ".(..  fi|
00005ea0  6c 65 24 3d c1 66 69 6c  65 24 2c 49 25 29 0d 28  |le$=.file$,I%).(|
00005eb0  e6 23 20 20 70 72 69 6e  74 69 74 25 3d 28 c0 66  |.#  printit%=(.f|
00005ec0  69 6c 65 24 2c 36 29 3d  22 2d 50 72 69 6e 74 22  |ile$,6)="-Print"|
00005ed0  29 0d 28 f0 22 20 20 e7  20 70 72 69 6e 74 69 74  |).(."  . printit|
00005ee0  25 20 8c 20 66 69 6c 65  24 3d c1 66 69 6c 65 24  |% . file$=.file$|
00005ef0  2c 38 29 0d 28 fa 22 20  20 e7 20 66 69 6c 65 24  |,8).(."  . file$|
00005f00  3c 3e 22 22 20 8c 20 f2  6c 6f 61 64 69 74 28 66  |<>"" . .loadit(f|
00005f10  69 6c 65 24 29 0d 29 04  05 cd 0d 29 0e 05 e1 0d  |ile$).)....)....|
00005f20  29 18 05 3a 0d 29 22 1c  dd 20 f2 73 61 76 65 69  |)..:.)".. .savei|
00005f30  74 28 77 69 6e 64 6f 77  25 2c f8 20 6f 6b 25 29  |t(window%,. ok%)|
00005f40  0d 29 2c 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |.),... window% .|
00005f50  0d 29 36 27 20 20 c9 20  73 61 76 65 5f 77 69 6e  |.)6'  . save_win|
00005f60  64 6f 77 25 3a f2 73 61  76 65 5f 69 74 5f 66 69  |dow%:.save_it_fi|
00005f70  6c 65 28 6f 6b 25 29 0d  29 40 28 20 20 c9 20 73  |le(ok%).)@(  . s|
00005f80  61 76 65 5f 77 69 6e 64  6f 77 32 25 3a f2 73 61  |ave_window2%:.sa|
00005f90  76 65 5f 69 74 5f 64 72  61 77 28 6f 6b 25 29 0d  |ve_it_draw(ok%).|
00005fa0  29 4a 05 cb 0d 29 54 05  e1 0d 29 5e 05 3a 0d 29  |)J...)T...)^.:.)|
00005fb0  68 28 dd 20 f2 66 69 6c  65 74 79 70 65 28 66 69  |h(. .filetype(fi|
00005fc0  6c 65 25 2c f8 20 74 79  70 65 25 2c f8 20 66 5f  |le%,. type%,. f_|
00005fd0  74 79 70 65 25 29 0d 29  72 29 c8 99 20 22 4f 53  |type%).)r).. "OS|
00005fe0  5f 46 69 6c 65 22 2c 35  2c 66 69 6c 65 25 20 b8  |_File",5,file% .|
00005ff0  20 74 79 70 65 25 2c 2c  66 5f 74 79 70 65 25 0d  | type%,,f_type%.|
00006000  29 7c 20 66 5f 74 79 70  65 25 3d 28 66 5f 74 79  |)| f_type%=(f_ty|
00006010  70 65 25 20 3e 3e 20 38  29 80 20 26 46 46 46 0d  |pe% >> 8). &FFF.|
00006020  29 86 05 e1 0d 29 90 05  3a 0d 29 9a 1a dd 20 f2  |)....)..:.)... .|
00006030  73 61 76 65 5f 69 74 5f  66 69 6c 65 28 f8 20 6f  |save_it_file(. o|
00006040  6b 25 29 0d 29 a4 09 6f  6b 25 3d b9 0d 29 ae 18  |k%).)..ok%=..)..|
00006050  ea 20 66 69 6c 65 24 2c  66 25 2c 74 79 70 65 25  |. file$,f%,type%|
00006060  2c 66 74 25 0d 29 b8 10  66 69 6c 65 24 3d 24 66  |,ft%.)..file$=$f|
00006070  69 6c 65 25 0d 29 c2 1e  f2 66 69 6c 65 74 79 70  |ile%.)...filetyp|
00006080  65 28 66 69 6c 65 25 2c  74 79 70 65 25 2c 66 74  |e(file%,type%,ft|
00006090  25 29 0d 29 cc 0f e7 20  74 79 70 65 25 3d 32 20  |%).)... type%=2 |
000060a0  8c 0d 29 d6 29 20 20 f2  72 65 70 6f 72 74 28 22  |..).)  .report("|
000060b0  4f 62 6a 65 63 74 20 69  73 20 61 20 64 69 72 65  |Object is a dire|
000060c0  63 74 6f 72 79 22 2c 31  37 29 0d 29 e0 0b 20 20  |ctory",17).)..  |
000060d0  6f 6b 25 3d a3 0d 29 ea  07 20 20 e1 0d 29 f4 05  |ok%=..)..  ..)..|
000060e0  cd 0d 29 fe 20 e7 20 66  74 25 3c 3e 66 69 6c 65  |..). . ft%<>file|
000060f0  74 79 70 65 25 20 80 20  74 79 70 65 25 3d 31 20  |type% . type%=1 |
00006100  8c 0d 2a 08 54 20 20 6f  6b 25 3d a4 79 6e 28 22  |..*.T  ok%=.yn("|
00006110  41 6e 20 6f 62 6a 65 63  74 20 6f 66 20 74 68 69  |An object of thi|
00006120  73 20 6e 61 6d 65 20 61  6c 72 65 61 64 79 20 65  |s name already e|
00006130  78 69 73 74 73 20 28 74  79 70 65 20 22 2b c3 7e  |xists (type "+.~|
00006140  66 74 25 2b 22 29 2e 20  20 43 6f 6e 74 69 6e 75  |ft%+").  Continu|
00006150  65 20 3f 22 29 0d 2a 12  12 20 20 e7 20 ac 28 6f  |e ?").*..  . .(o|
00006160  6b 25 29 20 8c 20 e1 0d  2a 1c 05 cd 0d 2a 26 16  |k%) . ..*....*&.|
00006170  62 61 73 65 25 3f 34 32  3d 74 6f 74 6e 61 6d 65  |base%?42=totname|
00006180  73 25 0d 2a 30 16 62 61  73 65 25 3f 34 33 3d 74  |s%.*0.base%?43=t|
00006190  6f 74 73 65 65 64 73 25  0d 2a 3a 18 62 61 73 65  |otseeds%.*:.base|
000061a0  25 3f 34 34 3d 2d 64 72  61 77 5f 6d 61 64 65 25  |%?44=-draw_made%|
000061b0  0d 2a 44 18 62 61 73 65  25 3f 32 39 39 39 3d 2d  |.*D.base%?2999=-|
000061c0  64 6f 75 62 6c 65 73 25  0d 2a 4e 18 62 61 73 65  |doubles%.*N.base|
000061d0  25 3f 32 39 39 38 3d 70  65 72 5f 74 65 61 6d 25  |%?2998=per_team%|
000061e0  0d 2a 58 15 62 61 73 65  25 3f 32 39 39 37 3d 74  |.*X.base%?2997=t|
000061f0  65 61 6d 73 25 0d 2a 62  35 c8 99 20 22 4f 53 5f  |eams%.*b5.. "OS_|
00006200  46 69 6c 65 22 2c 31 30  2c 66 69 6c 65 25 2c 66  |File",10,file%,f|
00006210  69 6c 65 74 79 70 65 25  2c 2c 62 61 73 65 25 2c  |iletype%,,base%,|
00006220  62 61 73 65 25 2b 33 30  30 30 0d 2a 6c 10 f2 63  |base%+3000.*l..c|
00006230  6c 6f 73 65 5f 6d 65 6e  75 73 0d 2a 76 0e 61 6c  |lose_menus.*v.al|
00006240  74 65 72 65 64 25 3d a3  0d 2a 80 05 e1 0d 2a 8a  |tered%=..*....*.|
00006250  05 3a 0d 2a 94 18 dd 20  f2 64 72 61 77 5f 74 69  |.:.*... .draw_ti|
00006260  74 6c 65 28 76 25 2c 79  25 29 0d 2a 9e 0c e7 20  |tle(v%,y%).*... |
00006270  76 25 3d 31 20 8c 0d 2a  a8 45 20 20 f2 74 65 78  |v%=1 ..*.E  .tex|
00006280  74 28 31 30 30 2a 78 73  63 61 6c 65 25 2c 31 39  |t(100*xscale%,19|
00006290  36 30 2a 79 73 63 61 6c  65 25 2c 24 74 69 74 6c  |60*yscale%,$titl|
000062a0  65 25 2c 31 35 2c 31 38  2c 32 2c 62 6c 61 63 6b  |e%,15,18,2,black|
000062b0  25 2c 77 68 69 74 65 25  2c 31 29 0d 2a b2 05 cc  |%,white%,1).*...|
000062c0  0d 2a bc 45 20 20 f2 74  65 78 74 28 37 30 2a 78  |.*.E  .text(70*x|
000062d0  73 63 61 6c 65 32 25 2c  31 39 36 30 2a 79 73 63  |scale2%,1960*ysc|
000062e0  61 6c 65 25 2c 24 74 69  74 6c 65 25 2c 31 35 2c  |ale%,$title%,15,|
000062f0  31 38 2c 32 2c 62 6c 61  63 6b 25 2c 77 68 69 74  |18,2,black%,whit|
00006300  65 25 2c 31 29 0d 2a c6  05 cd 0d 2a d0 05 e1 0d  |e%,1).*....*....|
00006310  2a da 05 3a 0d 2a e4 1e  dd 20 f2 73 75 62 5f 74  |*..:.*... .sub_t|
00006320  69 74 6c 65 28 6e 25 2c  71 75 61 72 74 65 72 73  |itle(n%,quarters|
00006330  25 29 0d 2a ee 08 ea 20  41 24 0d 2a f8 13 e7 20  |%).*... A$.*... |
00006340  71 75 61 72 74 65 72 73  25 3d 34 20 8c 0d 2b 02  |quarters%=4 ..+.|
00006350  0d 20 20 c8 8e 20 6e 25  20 ca 0d 2b 0c 1c 20 20  |.  .. n% ..+..  |
00006360  20 20 c9 20 31 3a 41 24  3d 22 31 73 74 20 51 55  |  . 1:A$="1st QU|
00006370  41 52 54 45 52 22 0d 2b  16 1c 20 20 20 20 c9 20  |ARTER".+..    . |
00006380  32 3a 41 24 3d 22 32 6e  64 20 51 55 41 52 54 45  |2:A$="2nd QUARTE|
00006390  52 22 0d 2b 20 1c 20 20  20 20 c9 20 33 3a 41 24  |R".+ .    . 3:A$|
000063a0  3d 22 33 72 64 20 51 55  41 52 54 45 52 22 0d 2b  |="3rd QUARTER".+|
000063b0  2a 1c 20 20 20 20 c9 20  34 3a 41 24 3d 22 34 74  |*.    . 4:A$="4t|
000063c0  68 20 51 55 41 52 54 45  52 22 0d 2b 34 07 20 20  |h QUARTER".+4.  |
000063d0  cb 0d 2b 3e 05 cc 0d 2b  48 0d 20 20 c8 8e 20 6e  |..+>...+H.  .. n|
000063e0  25 20 ca 0d 2b 52 19 20  20 20 20 c9 20 31 3a 41  |% ..+R.    . 1:A|
000063f0  24 3d 22 54 4f 50 20 48  41 4c 46 22 0d 2b 5c 1c  |$="TOP HALF".+\.|
00006400  20 20 20 20 c9 20 32 3a  41 24 3d 22 42 4f 54 54  |    . 2:A$="BOTT|
00006410  4f 4d 20 48 41 4c 46 22  0d 2b 66 07 20 20 cb 0d  |OM HALF".+f.  ..|
00006420  2b 70 05 cd 0d 2b 7a 3e  f2 74 65 78 74 28 31 30  |+p...+z>.text(10|
00006430  30 2a 78 73 63 61 6c 65  25 2c 31 38 38 30 2a 79  |0*xscale%,1880*y|
00006440  73 63 61 6c 65 25 2c 41  24 2c 31 32 2c 31 32 2c  |scale%,A$,12,12,|
00006450  32 2c 62 6c 61 63 6b 25  2c 77 68 69 74 65 25 2c  |2,black%,white%,|
00006460  30 29 0d 2b 84 05 e1 0d  2b 8e 05 3a 0d 2b 98 1b  |0).+....+..:.+..|
00006470  dd 20 f2 73 61 76 65 5f  69 74 5f 74 65 61 6d 73  |. .save_it_teams|
00006480  28 f8 20 6f 6b 25 29 0d  2b a2 09 f4 20 5a 5a 5a  |(. ok%).+... ZZZ|
00006490  0d 2b ac 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.+.... "Hourglas|
000064a0  73 5f 4f 6e 22 0d 2b b6  1c ea 20 6e 25 2c 62 6f  |s_On".+... n%,bo|
000064b0  74 5f 79 25 2c 66 24 2c  74 79 70 65 25 2c 66 74  |t_y%,f$,type%,ft|
000064c0  25 0d 2b c0 1f f2 66 69  6c 65 74 79 70 65 28 66  |%.+...filetype(f|
000064d0  69 6c 65 32 25 2c 74 79  70 65 25 2c 66 74 25 29  |ile2%,type%,ft%)|
000064e0  0d 2b ca 0f e7 20 74 79  70 65 25 3d 32 20 8c 0d  |.+... type%=2 ..|
000064f0  2b d4 29 20 20 f2 72 65  70 6f 72 74 28 22 4f 62  |+.)  .report("Ob|
00006500  6a 65 63 74 20 69 73 20  61 20 64 69 72 65 63 74  |ject is a direct|
00006510  6f 72 79 22 2c 31 37 29  0d 2b de 0b 20 20 6f 6b  |ory",17).+..  ok|
00006520  25 3d a3 0d 2b e8 07 20  20 e1 0d 2b f2 05 cd 0d  |%=..+..  ..+....|
00006530  2b fc 1b e7 20 74 79 70  65 25 3d 31 20 80 20 66  |+... type%=1 . f|
00006540  74 25 3c 3e 26 41 46 46  20 8c 0d 2c 06 53 20 20  |t%<>&AFF ..,.S  |
00006550  6f 6b 25 3d a4 79 6e 28  22 41 6e 20 6f 62 6a 65  |ok%=.yn("An obje|
00006560  63 74 20 6f 66 20 74 68  69 73 20 6e 61 6d 65 20  |ct of this name |
00006570  61 6c 72 65 61 64 79 20  65 78 69 73 74 73 20 28  |already exists (|
00006580  74 79 70 65 20 22 2b c3  7e 66 74 25 2b 22 29 2e  |type "+.~ft%+").|
00006590  20 43 6f 6e 74 69 6e 75  65 20 3f 22 29 0d 2c 10  | Continue ?").,.|
000065a0  12 20 20 e7 20 ac 28 6f  6b 25 29 20 8c 20 e1 0d  |.  . .(ok%) . ..|
000065b0  2c 1a 05 cd 0d 2c 24 0e  66 24 3d 24 66 69 6c 65  |,....,$.f$=$file|
000065c0  32 25 0d 2c 2e 17 f2 64  72 61 77 66 69 6c 65 5f  |2%.,...drawfile_|
000065d0  73 74 61 72 74 28 66 24  29 0d 2c 38 0e f2 66 6f  |start(f$).,8..fo|
000065e0  6e 74 74 61 62 6c 65 0d  2c 42 12 e3 20 6e 25 3d  |nttable.,B.. n%=|
000065f0  31 b8 20 74 65 61 6d 73  25 0d 2c 4c 20 20 20 f2  |1. teams%.,L   .|
00006600  64 72 61 77 66 69 6c 65  5f 74 65 61 6d 73 28 6e  |drawfile_teams(n|
00006610  25 2c 62 6f 74 5f 79 25  29 0d 2c 56 05 ed 0d 2c  |%,bot_y%).,V...,|
00006620  60 27 f2 64 72 61 77 5f  74 69 74 6c 65 28 31 2c  |`'.draw_title(1,|
00006630  28 62 6f 74 5f 79 25 2d  31 36 30 29 2a 79 73 63  |(bot_y%-160)*ysc|
00006640  61 6c 65 25 29 0d 2c 6a  11 f2 64 72 61 77 66 69  |ale%).,j..drawfi|
00006650  6c 65 5f 65 6e 64 0d 2c  74 16 c8 99 20 22 48 6f  |le_end.,t... "Ho|
00006660  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 2c 7e 09  |urglass_Off".,~.|
00006670  6f 6b 25 3d b9 0d 2c 88  05 e1 0d 2c 92 05 3a 0d  |ok%=..,....,..:.|
00006680  2c 9c 22 dd 20 f2 64 72  61 77 66 69 6c 65 5f 74  |,.". .drawfile_t|
00006690  65 61 6d 73 28 74 25 2c  f8 20 62 6f 74 5f 79 25  |eams(t%,. bot_y%|
000066a0  29 0d 2c a6 0b ea 20 78  25 2c 79 25 0d 2c b0 09  |).,... x%,y%.,..|
000066b0  74 25 2d 3d 31 0d 2c ba  17 78 25 3d 28 74 25 20  |t%-=1.,..x%=(t% |
000066c0  83 20 34 29 2a 34 30 30  2b 31 30 30 0d 2c c4 27  |. 4)*400+100.,.'|
000066d0  79 25 3d 31 38 36 30 2d  33 36 2a 28 70 65 72 5f  |y%=1860-36*(per_|
000066e0  74 65 61 6d 25 2b 33 2e  35 29 2a 28 74 25 20 81  |team%+3.5)*(t% .|
000066f0  20 34 29 0d 2c ce 09 74  25 2b 3d 31 0d 2c d8 12  | 4).,..t%+=1.,..|
00006700  61 24 3d 22 54 45 41 4d  20 22 2b c3 74 25 0d 2c  |a$="TEAM "+.t%.,|
00006710  e2 3b f2 74 65 78 74 28  78 25 2a 78 73 63 61 6c  |.;.text(x%*xscal|
00006720  65 25 2c 79 25 2a 79 73  63 61 6c 65 25 2c 61 24  |e%,y%*yscale%,a$|
00006730  2c 31 32 2c 31 32 2c 31  2c 62 6c 61 63 6b 25 2c  |,12,12,1,black%,|
00006740  62 6c 61 63 6b 25 2c 31  29 0d 2c ec 15 e3 20 70  |black%,1).,... p|
00006750  25 3d 31 b8 20 70 65 72  5f 74 65 61 6d 25 0d 2c  |%=1. per_team%.,|
00006760  f6 17 20 20 61 24 3d a4  70 6c 61 79 65 72 28 74  |..  a$=.player(t|
00006770  25 2c 70 25 29 0d 2d 00  47 20 20 f2 74 65 78 74  |%,p%).-.G  .text|
00006780  28 78 25 2a 78 73 63 61  6c 65 25 2c 28 79 25 2d  |(x%*xscale%,(y%-|
00006790  33 36 2a 70 25 2d 31 36  29 2a 79 73 63 61 6c 65  |36*p%-16)*yscale|
000067a0  25 2c 61 24 2c 38 2c 31  32 2c 31 2c 62 6c 61 63  |%,a$,8,12,1,blac|
000067b0  6b 25 2c 62 6c 61 63 6b  25 2c 30 29 0d 2d 0a 1a  |k%,black%,0).-..|
000067c0  20 20 62 6f 74 5f 79 25  3d 28 79 25 2d 33 36 2a  |  bot_y%=(y%-36*|
000067d0  70 25 2d 31 36 29 0d 2d  14 05 ed 0d 2d 1e 05 e1  |p%-16).-....-...|
000067e0  0d 2d 28 05 3a 0d 2d 32  13 dd 20 a4 73 70 61 63  |.-(.:.-2.. .spac|
000067f0  65 28 41 24 2c 6c 25 29  0d 2d 3c 0f c8 95 20 a9  |e(A$,l%).-<... .|
00006800  28 41 24 29 3c 6c 25 0d  2d 46 0d 20 20 41 24 2b  |(A$)<l%.-F.  A$+|
00006810  3d 22 20 22 0d 2d 50 05  ce 0d 2d 5a 0c 3d c0 41  |=" ".-P...-Z.=.A|
00006820  24 2c 6c 25 29 0d 2d 64  05 3a 0d 2d 6e 19 dd 20  |$,l%).-d.:.-n.. |
00006830  f2 71 75 69 63 6b 73 61  76 65 28 77 69 6e 64 6f  |.quicksave(windo|
00006840  77 25 29 0d 2d 78 0f ea  20 66 69 6c 65 24 2c 6f  |w%).-x.. file$,o|
00006850  6b 25 0d 2d 82 10 c8 8e  20 77 69 6e 64 6f 77 25  |k%.-.... window%|
00006860  20 ca 0d 2d 8c 21 20 20  c9 20 73 61 76 65 5f 77  | ..-.!  . save_w|
00006870  69 6e 64 6f 77 25 3a 66  69 6c 65 24 3d 24 66 69  |indow%:file$=$fi|
00006880  6c 65 25 0d 2d 96 23 20  20 c9 20 73 61 76 65 5f  |le%.-.#  . save_|
00006890  77 69 6e 64 6f 77 32 25  3a 66 69 6c 65 24 3d 24  |window2%:file$=$|
000068a0  66 69 6c 65 32 25 0d 2d  a0 05 cb 0d 2d aa 13 e7  |file2%.-....-...|
000068b0  20 a7 66 69 6c 65 24 2c  22 2e 22 29 20 8c 0d 2d  | .file$,".") ..-|
000068c0  b4 1a 20 20 f2 73 61 76  65 69 74 28 77 69 6e 64  |..  .saveit(wind|
000068d0  6f 77 25 2c 6f 6b 25 29  0d 2d be 05 cc 0d 2d c8  |ow%,ok%).-....-.|
000068e0  3f 20 20 f2 72 65 70 6f  72 74 28 22 54 6f 20 73  |?  .report("To s|
000068f0  61 76 65 2c 20 64 72 61  67 20 74 68 65 20 69 63  |ave, drag the ic|
00006900  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
00006910  79 20 76 69 65 77 65 72  22 2c 31 29 0d 2d d2 05  |y viewer",1).-..|
00006920  cd 0d 2d dc 05 e1 0d 2d  e6 05 3a 0d 2d f0 19 dd  |..-....-..:.-...|
00006930  20 f2 73 61 76 65 5f 66  69 6c 65 28 77 69 6e 64  | .save_file(wind|
00006940  6f 77 25 29 0d 2d fa 0e  c8 8e 20 69 63 6f 6e 25  |ow%).-.... icon%|
00006950  20 ca 0d 2e 04 11 20 20  c9 20 6f 6b 25 2c 6f 6b  | .....  . ok%,ok|
00006960  32 25 3a 0d 2e 0e 2a 20  20 20 20 e7 20 62 6c 6f  |2%:...*    . blo|
00006970  63 6b 25 21 38 20 80 20  35 20 f2 71 75 69 63 6b  |ck%!8 . 5 .quick|
00006980  73 61 76 65 28 77 69 6e  64 6f 77 25 29 0d 2e 18  |save(window%)...|
00006990  22 20 20 20 20 e7 20 62  75 74 74 6f 6e 25 3d 34  |"    . button%=4|
000069a0  20 8c 20 f2 63 6c 6f 73  65 5f 6d 65 6e 75 73 0d  | . .close_menus.|
000069b0  2e 22 15 20 20 c9 20 64  72 61 67 25 2c 64 72 61  |.".  . drag%,dra|
000069c0  67 32 25 3a 0d 2e 2c 2f  20 20 20 20 e7 20 62 6c  |g2%:..,/    . bl|
000069d0  6f 63 6b 25 21 38 20 80  20 36 34 20 f2 64 72 61  |ock%!8 . 64 .dra|
000069e0  67 62 6f 78 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |gbox(window%,ico|
000069f0  6e 25 29 0d 2e 36 05 cb  0d 2e 40 05 e1 0d 2e 4a  |n%)..6....@....J|
00006a00  05 3a 0d 2e 54 19 dd 20  f2 73 74 61 72 74 73 61  |.:..T.. .startsa|
00006a10  76 65 28 77 69 6e 64 6f  77 25 29 0d 2e 5e 24 c8  |ve(window%)..^$.|
00006a20  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00006a30  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 25 0d  |erInfo",,block%.|
00006a40  2e 68 4b 62 6c 6f 63 6b  25 21 32 30 3d 62 6c 6f  |.hKblock%!20=blo|
00006a50  63 6b 25 21 31 32 20 3a  f4 20 77 69 6e 64 6f 77  |ck%!12 :. window|
00006a60  20 68 61 6e 64 6c 65 20  2d 20 6d 65 73 73 61 67  | handle - messag|
00006a70  65 20 73 65 6e 74 20 74  6f 20 77 69 6e 64 6f 77  |e sent to window|
00006a80  27 73 20 63 72 65 61 74  6f 72 0d 2e 72 47 62 6c  |'s creator..rGbl|
00006a90  6f 63 6b 25 21 32 34 3d  62 6c 6f 63 6b 25 21 31  |ock%!24=block%!1|
00006aa0  36 20 3a f4 20 69 63 6f  6e 20 68 61 6e 64 6c 65  |6 :. icon handle|
00006ab0  20 2d 20 6d 65 73 73 61  67 65 20 73 65 6e 74 20  | - message sent |
00006ac0  74 6f 20 69 63 6f 6e 27  73 20 63 72 65 61 74 6f  |to icon's creato|
00006ad0  72 0d 2e 7c 22 62 6c 6f  63 6b 25 21 32 38 3d 21  |r..|"block%!28=!|
00006ae0  62 6c 6f 63 6b 25 20 20  20 3a f4 20 6d 6f 75 73  |block%   :. mous|
00006af0  65 20 78 0d 2e 86 22 62  6c 6f 63 6b 25 21 33 32  |e x..."block%!32|
00006b00  3d 62 6c 6f 63 6b 25 21  34 20 20 3a f4 20 6d 6f  |=block%!4  :. mo|
00006b10  75 73 65 20 79 0d 2e 90  04 0d 2e 9a 25 62 6c 6f  |use y.......%blo|
00006b20  63 6b 25 21 33 36 3d a9  6f 62 6a 24 2b a9 70 61  |ck%!36=.obj$+.pa|
00006b30  74 68 24 2b a9 74 79 70  65 24 2b 33 3a f4 0d 2e  |th$+.type$+3:...|
00006b40  a4 04 0d 2e ae 2a 21 62  6c 6f 63 6b 25 3d 36 34  |.....*!block%=64|
00006b50  20 20 20 20 20 20 20 20  20 20 3a f4 20 6c 65 6e  |          :. len|
00006b60  67 74 68 20 6f 66 20 62  6c 6f 63 6b 0d 2e b8 36  |gth of block...6|
00006b70  62 6c 6f 63 6b 25 21 31  32 3d 30 20 20 20 20 20  |block%!12=0     |
00006b80  20 20 20 20 3a f4 20 6d  79 20 72 65 66 20 28 30  |    :. my ref (0|
00006b90  3d 6f 72 69 67 69 6e 61  6c 20 6d 65 73 73 61 67  |=original messag|
00006ba0  65 29 0d 2e c2 35 62 6c  6f 63 6b 25 21 31 36 3d  |e)...5block%!16=|
00006bb0  31 20 20 20 20 20 20 20  20 20 3a f4 20 6d 65 73  |1         :. mes|
00006bc0  73 61 67 65 20 61 63 74  69 6f 6e 20 2d 20 64 61  |sage action - da|
00006bd0  74 61 20 73 61 76 65 0d  2e cc 29 62 6c 6f 63 6b  |ta save...)block|
00006be0  25 21 34 30 3d 66 69 6c  65 74 79 70 65 25 20 20  |%!40=filetype%  |
00006bf0  20 20 20 20 3a f4 20 66  69 6c 65 20 74 79 70 65  |    :. file type|
00006c00  0d 2e d6 04 0d 2e e0 10  c8 8e 20 77 69 6e 64 6f  |.......... windo|
00006c10  77 25 20 ca 0d 2e ea 32  20 20 c9 20 73 61 76 65  |w% ....2  . save|
00006c20  5f 77 69 6e 64 6f 77 25  3a 24 28 62 6c 6f 63 6b  |_window%:$(block|
00006c30  25 2b 34 34 29 3d a4 67  65 74 6c 65 61 66 28 24  |%+44)=.getleaf($|
00006c40  66 69 6c 65 25 29 0d 2e  f4 34 20 20 c9 20 73 61  |file%)...4  . sa|
00006c50  76 65 5f 77 69 6e 64 6f  77 32 25 3a 24 28 62 6c  |ve_window2%:$(bl|
00006c60  6f 63 6b 25 2b 34 34 29  3d a4 67 65 74 6c 65 61  |ock%+44)=.getlea|
00006c70  66 28 24 66 69 6c 65 32  25 29 0d 2e fe 05 cb 0d  |f($file2%)......|
00006c80  2f 08 37 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |/.7.. "Wimp_Send|
00006c90  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 6c 6f 63  |Message",18,bloc|
00006ca0  6b 25 2c 62 6c 6f 63 6b  25 21 32 30 2c 62 6c 6f  |k%,block%!20,blo|
00006cb0  63 6b 25 21 32 34 0d 2f  12 05 e1 0d 2f 1c 05 3a  |ck%!24./..../..:|
00006cc0  0d 2f 26 12 dd 20 a4 67  65 74 6c 65 61 66 28 61  |./&.. .getleaf(a|
00006cd0  24 29 0d 2f 30 0f c8 95  20 a7 61 24 2c 22 2e 22  |$)./0... .a$,"."|
00006ce0  29 0d 2f 3a 18 20 20 61  24 3d c1 61 24 2c a7 61  |)./:.  a$=.a$,.a|
00006cf0  24 2c 22 2e 22 29 2b 31  29 0d 2f 44 05 ce 0d 2f  |$,".")+1)./D.../|
00006d00  4e 0a 3d 61 24 2b bd 30  0d 2f 58 05 3a 0d 2f 62  |N.=a$+.0./X.:./b|
00006d10  1d dd 20 f2 64 72 61 67  62 6f 78 28 77 69 6e 64  |.. .dragbox(wind|
00006d20  6f 77 25 2c 69 63 6f 6e  25 29 0d 2f 6c 16 64 72  |ow%,icon%)./l.dr|
00006d30  61 67 5f 66 72 6f 6d 25  3d 77 69 6e 64 6f 77 25  |ag_from%=window%|
00006d40  0d 2f 76 13 21 62 6c 6f  63 6b 25 3d 77 69 6e 64  |./v.!block%=wind|
00006d50  6f 77 25 0d 2f 80 24 c8  99 20 22 57 69 6d 70 5f  |ow%./.$.. "Wimp_|
00006d60  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00006d70  2c 62 6c 6f 63 6b 25 0d  2f 8a 1a 6f 78 25 3d 62  |,block%./..ox%=b|
00006d80  6c 6f 63 6b 25 21 34 2d  62 6c 6f 63 6b 25 21 32  |lock%!4-block%!2|
00006d90  30 0d 2f 94 1b 6f 79 25  3d 62 6c 6f 63 6b 25 21  |0./..oy%=block%!|
00006da0  31 36 2d 62 6c 6f 63 6b  25 21 32 34 0d 2f 9e 2e  |16-block%!24./..|
00006db0  62 6c 6f 63 6b 25 21 34  3d 69 63 6f 6e 25 20 20  |block%!4=icon%  |
00006dc0  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 69  |            :. i|
00006dd0  63 6f 6e 20 6e 75 6d 62  65 72 0d 2f a8 22 c8 99  |con number./."..|
00006de0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00006df0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 2f b2 46  |ate",,block%./.F|
00006e00  62 6c 6f 63 6b 25 21 34  3d 35 20 20 20 20 20 20  |block%!4=5      |
00006e10  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 64  |            :. d|
00006e20  72 61 67 20 74 79 70 65  20 2d 20 72 6f 74 61 74  |rag type - rotat|
00006e30  69 6e 67 20 66 69 78 65  64 20 73 69 7a 65 20 62  |ing fixed size b|
00006e40  6f 78 0d 2f bc 35 62 6c  6f 63 6b 25 21 38 3d 6f  |ox./.5block%!8=o|
00006e50  78 25 2b 62 6c 6f 63 6b  25 21 38 20 20 20 20 20  |x%+block%!8     |
00006e60  20 20 3a f4 20 6d 69 6e  69 6d 75 6d 20 78 20 61  |  :. minimum x a|
00006e70  74 20 73 74 61 72 74 0d  2f c6 35 62 6c 6f 63 6b  |t start./.5block|
00006e80  25 21 31 32 3d 6f 79 25  2b 62 6c 6f 63 6b 25 21  |%!12=oy%+block%!|
00006e90  31 32 20 20 20 20 20 3a  f4 20 6d 69 6e 69 6d 75  |12     :. minimu|
00006ea0  6d 20 79 20 61 74 20 73  74 61 72 74 0d 2f d0 35  |m y at start./.5|
00006eb0  62 6c 6f 63 6b 25 21 31  36 3d 6f 78 25 2b 62 6c  |block%!16=ox%+bl|
00006ec0  6f 63 6b 25 21 31 36 20  20 20 20 20 3a f4 20 6d  |ock%!16     :. m|
00006ed0  61 78 69 6d 75 6d 20 78  20 61 74 20 73 74 61 72  |aximum x at star|
00006ee0  74 0d 2f da 35 62 6c 6f  63 6b 25 21 32 30 3d 6f  |t./.5block%!20=o|
00006ef0  79 25 2b 62 6c 6f 63 6b  25 21 32 30 20 20 20 20  |y%+block%!20    |
00006f00  20 3a f4 20 6d 61 78 69  6d 75 6d 20 79 20 61 74  | :. maximum y at|
00006f10  20 73 74 61 72 74 0d 2f  e4 3a 62 6c 6f 63 6b 25  | start./.:block%|
00006f20  21 32 34 3d 30 20 20 20  20 20 20 20 20 20 20 20  |!24=0           |
00006f30  20 20 20 20 20 20 3a f4  20 6d 69 6e 69 6d 75 6d  |      :. minimum|
00006f40  20 78 20 6f 66 20 70 61  72 65 6e 74 20 62 6f 78  | x of parent box|
00006f50  0d 2f ee 3a 62 6c 6f 63  6b 25 21 32 38 3d 30 20  |./.:block%!28=0 |
00006f60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006f70  3a f4 20 6d 69 6e 69 6d  75 6d 20 79 20 6f 66 20  |:. minimum y of |
00006f80  70 61 72 65 6e 74 20 62  6f 78 0d 2f f8 3a 62 6c  |parent box./.:bl|
00006f90  6f 63 6b 25 21 33 32 3d  26 37 46 46 46 46 46 46  |ock%!32=&7FFFFFF|
00006fa0  46 20 20 20 20 20 20 20  20 20 3a f4 20 6d 61 78  |F         :. max|
00006fb0  69 6d 75 6d 20 78 20 6f  66 20 70 61 72 65 6e 74  |imum x of parent|
00006fc0  20 62 6f 78 0d 30 02 3a  62 6c 6f 63 6b 25 21 33  | box.0.:block%!3|
00006fd0  36 3d 26 37 46 46 46 46  46 46 46 20 20 20 20 20  |6=&7FFFFFFF     |
00006fe0  20 20 20 20 3a f4 20 6d  61 78 69 6d 75 6d 20 79  |    :. maximum y|
00006ff0  20 6f 66 20 70 61 72 65  6e 74 20 62 6f 78 0d 30  | of parent box.0|
00007000  0c 1d c8 99 20 22 57 69  6d 70 5f 44 72 61 67 42  |.... "Wimp_DragB|
00007010  6f 78 22 2c 2c 62 6c 6f  63 6b 25 0d 30 16 05 e1  |ox",,block%.0...|
00007020  0d 30 20 05 3a 0d 30 2a  0f dd 20 f2 64 61 74 61  |.0 .:.0*.. .data|
00007030  73 61 76 65 0d 30 34 12  ea 20 6f 6b 25 2c 61 25  |save.04.. ok%,a%|
00007040  2c 62 25 2c 63 25 0d 30  3e 13 c8 8e 20 64 72 61  |,b%,c%.0>... dra|
00007050  67 5f 66 72 6f 6d 25 20  ca 0d 30 48 2e 20 20 c9  |g_from% ..0H.  .|
00007060  20 73 61 76 65 5f 77 69  6e 64 6f 77 25 3a 24 66  | save_window%:$f|
00007070  69 6c 65 25 3d a4 73 74  72 69 6e 67 28 62 6c 6f  |ile%=.string(blo|
00007080  63 6b 25 2b 34 34 29 0d  30 52 30 20 20 c9 20 73  |ck%+44).0R0  . s|
00007090  61 76 65 5f 77 69 6e 64  6f 77 32 25 3a 24 66 69  |ave_window2%:$fi|
000070a0  6c 65 32 25 3d a4 73 74  72 69 6e 67 28 62 6c 6f  |le2%=.string(blo|
000070b0  63 6b 25 2b 34 34 29 0d  30 5c 05 cb 0d 30 66 0f  |ck%+44).0\...0f.|
000070c0  61 25 3d 62 6c 6f 63 6b  25 21 38 0d 30 70 10 62  |a%=block%!8.0p.b|
000070d0  25 3d 62 6c 6f 63 6b 25  21 32 30 0d 30 7a 10 63  |%=block%!20.0z.c|
000070e0  25 3d 62 6c 6f 63 6b 25  21 32 34 0d 30 84 1b f2  |%=block%!24.0...|
000070f0  73 61 76 65 69 74 28 64  72 61 67 5f 66 72 6f 6d  |saveit(drag_from|
00007100  25 2c 6f 6b 25 29 0d 30  8e 10 e7 20 ac 28 6f 6b  |%,ok%).0... .(ok|
00007110  25 29 20 8c 20 e1 0d 30  98 10 62 6c 6f 63 6b 25  |%) . ..0..block%|
00007120  21 31 32 3d 61 25 0d 30  a2 0f 62 6c 6f 63 6b 25  |!12=a%.0..block%|
00007130  21 31 36 3d 33 0d 30 ac  10 62 6c 6f 63 6b 25 21  |!16=3.0..block%!|
00007140  32 30 3d 62 25 0d 30 b6  10 62 6c 6f 63 6b 25 21  |20=b%.0..block%!|
00007150  32 34 3d 63 25 0d 30 c0  0f 21 62 6c 6f 63 6b 25  |24=c%.0..!block%|
00007160  3d 32 35 36 0d 30 ca 37  c8 99 20 22 57 69 6d 70  |=256.0.7.. "Wimp|
00007170  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 38  |_SendMessage",18|
00007180  2c 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 32  |,block%,block%!2|
00007190  30 2c 62 6c 6f 63 6b 25  21 32 34 0d 30 d4 05 e1  |0,block%!24.0...|
000071a0  0d 30 de 05 3a 0d 30 e8  0f dd 20 a4 67 65 74 5f  |.0..:.0... .get_|
000071b0  6e 61 6d 65 0d 30 f2 0b  ea 20 6e 24 2c 6e 25 0d  |name.0... n$,n%.|
000071c0  30 fc 09 6e 24 3d 22 22  0d 31 06 0b 6e 25 3d 9a  |0..n$="".1..n%=.|
000071d0  23 51 25 0d 31 10 20 c8  95 20 6e 25 3c 3e 31 33  |#Q%.1. .. n%<>13|
000071e0  20 80 20 6e 25 3c 3e 30  20 80 20 a9 28 6e 24 29  | . n%<>0 . .(n$)|
000071f0  3c 32 30 0d 31 1a 0f 20  20 6e 24 2b 3d bd 28 6e  |<20.1..  n$+=.(n|
00007200  25 29 0d 31 24 0d 20 20  6e 25 3d 9a 23 51 25 0d  |%).1$.  n%=.#Q%.|
00007210  31 2e 05 ce 0d 31 38 07  3d 6e 24 0d 31 42 05 3a  |1....18.=n$.1B.:|
00007220  0d 31 4c 0f dd 20 f2 6d  65 72 67 65 5f 69 74 0d  |.1L.. .merge_it.|
00007230  31 56 20 ea 20 74 6f 74  6e 25 2c 74 6f 74 73 25  |1V . totn%,tots%|
00007240  2c 6e 25 2c 51 25 2c 69  63 6f 6e 25 2c 6e 24 0d  |,n%,Q%,icon%,n$.|
00007250  31 60 0f 51 25 3d 8e 28  70 61 74 68 24 29 0d 31  |1`.Q%=.(path$).1|
00007260  6a 0b cf 23 51 25 3d 34  32 0d 31 74 0e 74 6f 74  |j..#Q%=42.1t.tot|
00007270  6e 25 3d 9a 23 51 25 0d  31 7e 0e 74 6f 74 73 25  |n%=.#Q%.1~.tots%|
00007280  3d 9a 23 51 25 0d 31 88  2b e7 20 74 6f 74 6e 61  |=.#Q%.1.+. totna|
00007290  6d 65 73 25 2b 74 6f 74  73 65 65 64 73 25 2b 74  |mes%+totseeds%+t|
000072a0  6f 74 6e 25 2b 74 6f 74  73 25 3e 31 32 38 20 8c  |otn%+tots%>128 .|
000072b0  0d 31 92 22 20 20 f2 72  65 70 6f 72 74 28 22 54  |.1."  .report("T|
000072c0  6f 6f 20 6d 61 6e 79 20  6e 61 6d 65 73 2e 22 2c  |oo many names.",|
000072d0  31 29 0d 31 9c 07 20 20  e1 0d 31 a6 05 cd 0d 31  |1).1..  ..1....1|
000072e0  b0 10 e7 20 74 6f 74 6e  25 3c 3e 30 20 8c 0d 31  |... totn%<>0 ..1|
000072f0  ba 12 20 20 e3 20 6e 25  3d 31 b8 74 6f 74 6e 25  |..  . n%=1.totn%|
00007300  0d 31 c4 25 20 20 20 20  69 63 6f 6e 25 3d a4 69  |.1.%    icon%=.i|
00007310  63 6f 6e 66 72 6f 6d 6e  61 6d 65 28 74 6f 74 6e  |confromname(totn|
00007320  25 2c 6e 25 29 0d 31 ce  1c 20 20 20 20 cf 23 51  |%,n%).1..    .#Q|
00007330  25 3d 34 35 2b 28 69 63  6f 6e 25 2d 34 29 2a 31  |%=45+(icon%-4)*1|
00007340  39 0d 31 d8 14 20 20 20  20 6e 24 3d a4 67 65 74  |9.1..    n$=.get|
00007350  5f 6e 61 6d 65 0d 31 e2  14 20 20 20 20 f2 6e 61  |_name.1..    .na|
00007360  6d 65 5f 69 6e 28 6e 24  29 0d 31 ec 07 20 20 ed  |me_in(n$).1..  .|
00007370  0d 31 f6 05 cd 0d 32 00  0d e3 20 6e 25 3d 31 b8  |.1....2... n%=1.|
00007380  31 36 0d 32 0a 12 20 20  cf 23 51 25 3d 32 39 36  |16.2..  .#Q%=296|
00007390  32 2b 6e 25 0d 32 14 10  20 20 e7 20 9a 23 51 25  |2+n%.2..  . .#Q%|
000073a0  3d 31 20 8c 0d 32 1e 1b  20 20 20 20 cf 23 51 25  |=1 ..2..    .#Q%|
000073b0  3d 32 35 30 30 2b 28 6e  25 2d 31 29 2a 31 39 0d  |=2500+(n%-1)*19.|
000073c0  32 28 14 20 20 20 20 6e  24 3d a4 67 65 74 5f 6e  |2(.    n$=.get_n|
000073d0  61 6d 65 0d 32 32 14 20  20 20 20 f2 6e 61 6d 65  |ame.22.    .name|
000073e0  5f 69 6e 28 6e 24 29 0d  32 3c 07 20 20 cd 0d 32  |_in(n$).2<.  ..2|
000073f0  46 05 ed 0d 32 50 17 f2  70 75 74 5f 6e 61 6d 65  |F...2P..put_name|
00007400  73 5f 69 6e 5f 69 63 6f  6e 73 0d 32 5a 0f f2 73  |s_in_icons.2Z..s|
00007410  68 6f 77 5f 73 65 65 64  73 0d 32 64 0c f2 6e 6f  |how_seeds.2d..no|
00007420  5f 64 72 61 77 0d 32 6e  11 f2 73 65 74 5f 71 75  |_draw.2n..set_qu|
00007430  61 72 74 65 72 73 0d 32  78 1e f2 6f 70 65 6e 5f  |arters.2x..open_|
00007440  77 69 6e 64 6f 77 28 6d  61 69 6e 5f 77 69 6e 64  |window(main_wind|
00007450  6f 77 25 29 0d 32 82 0e  61 6c 74 65 72 65 64 25  |ow%).2..altered%|
00007460  3d b9 0d 32 8c 05 e1 0d  32 96 05 3a 0d 32 a0 11  |=..2....2..:.2..|
00007470  dd 20 f2 61 64 64 5f 65  78 74 72 61 73 0d 32 aa  |. .add_extras.2.|
00007480  0b ea 20 6e 25 2c 6d 25  0d 32 b4 15 65 78 74 72  |.. n%,m%.2..extr|
00007490  61 73 25 3d 74 6f 74 73  65 65 64 73 25 0d 32 be  |as%=totseeds%.2.|
000074a0  20 e7 20 28 74 6f 74 6e  61 6d 65 73 25 2b 74 6f  | . (totnames%+to|
000074b0  74 73 65 65 64 73 25 29  80 20 31 20 8c 0d 32 c8  |tseeds%). 1 ..2.|
000074c0  2f 20 20 6e 61 6d 65 73  24 28 74 6f 74 6e 61 6d  |/  names$(totnam|
000074d0  65 73 25 2b 74 6f 74 73  65 65 64 73 25 2b 31 29  |es%+totseeds%+1)|
000074e0  3d 22 41 2e 4e 2e 4f 74  68 65 72 22 0d 32 d2 05  |="A.N.Other".2..|
000074f0  cd 0d 32 dc 15 e7 20 74  6f 74 73 65 65 64 73 25  |..2... totseeds%|
00007500  3d 30 20 8c 20 e1 0d 32  e6 08 6d 25 3d 30 0d 32  |=0 . ..2..m%=0.2|
00007510  f0 0d e3 20 6e 25 3d 31  b8 31 36 0d 32 fa 1b 20  |... n%=1.16.2.. |
00007520  20 e7 20 73 65 65 64 5f  65 78 69 73 74 73 25 3f  | . seed_exists%?|
00007530  6e 25 3d 31 20 8c 0d 33  04 0d 20 20 20 20 6d 25  |n%=1 ..3..    m%|
00007540  2b 3d 31 0d 33 0e 30 20  20 20 20 6e 61 6d 65 73  |+=1.3.0    names|
00007550  24 28 74 6f 74 6e 61 6d  65 73 25 2b 6d 25 29 3d  |$(totnames%+m%)=|
00007560  24 28 73 65 65 64 73 25  2b 31 39 2a 28 6e 25 2d  |$(seeds%+19*(n%-|
00007570  31 29 29 0d 33 18 07 20  20 cd 0d 33 22 05 ed 0d  |1)).3..  ..3"...|
00007580  33 2c 05 e1 0d 33 36 05  3a 0d 33 40 13 dd 20 f2  |3,...36.:.3@.. .|
00007590  73 65 74 5f 71 75 61 72  74 65 72 73 0d 33 4a 08  |set_quarters.3J.|
000075a0  ea 20 6e 25 0d 33 54 08  6e 25 3d 31 0d 33 5e 1d  |. n%.3T.n%=1.3^.|
000075b0  c8 95 20 6e 25 3c 74 6f  74 6e 61 6d 65 73 25 2b  |.. n%<totnames%+|
000075c0  74 6f 74 73 65 65 64 73  25 0d 33 68 0d 20 20 6e  |totseeds%.3h.  n|
000075d0  25 3d 6e 25 2a 32 0d 33  72 05 ce 0d 33 7c 0b c8  |%=n%*2.3r...3|..|
000075e0  8e 20 6e 25 20 ca 0d 33  86 0c 20 20 c9 20 31 32  |. n% ..3..  . 12|
000075f0  38 3a 0d 33 90 13 20 20  20 20 71 75 61 72 74 65  |8:.3..    quarte|
00007600  72 73 25 3d 34 0d 33 9a  15 20 20 20 20 70 65 72  |rs%=4.3..    per|
00007610  5f 71 75 61 72 74 25 3d  33 32 0d 33 a4 0b 20 20  |_quart%=32.3..  |
00007620  c9 20 36 34 3a 0d 33 ae  13 20 20 20 20 71 75 61  |. 64:.3..    qua|
00007630  72 74 65 72 73 25 3d 32  0d 33 b8 15 20 20 20 20  |rters%=2.3..    |
00007640  70 65 72 5f 71 75 61 72  74 25 3d 33 32 0d 33 c2  |per_quart%=32.3.|
00007650  07 20 20 7f 0d 33 cc 13  20 20 20 20 71 75 61 72  |.  ..3..    quar|
00007660  74 65 72 73 25 3d 31 0d  33 d6 15 20 20 20 20 70  |ters%=1.3..    p|
00007670  65 72 5f 71 75 61 72 74  25 3d 6e 25 0d 33 e0 05  |er_quart%=n%.3..|
00007680  cb 0d 33 ea 10 74 6f 74  5f 64 72 61 77 25 3d 6e  |..3..tot_draw%=n|
00007690  25 0d 33 f4 10 e7 20 64  6f 75 62 6c 65 73 25 20  |%.3... doubles% |
000076a0  8c 0d 33 fe 14 20 20 c8  8e 20 71 75 61 72 74 65  |..3..  .. quarte|
000076b0  72 73 25 20 ca 0d 34 08  23 20 20 20 20 c9 20 32  |rs% ..4.#    . 2|
000076c0  2c 34 3a 71 75 61 72 74  65 72 73 25 3d 71 75 61  |,4:quarters%=qua|
000076d0  72 74 65 72 73 25 2f 32  0d 34 12 23 20 20 20 20  |rters%/2.4.#    |
000076e0  c9 20 31 3a 70 65 72 5f  71 75 61 72 74 25 3d 70  |. 1:per_quart%=p|
000076f0  65 72 5f 71 75 61 72 74  25 2f 32 0d 34 1c 07 20  |er_quart%/2.4.. |
00007700  20 cb 0d 34 26 05 cd 0d  34 30 05 e1 0d 34 3a 05  | ..4&...40...4:.|
00007710  3a 0d 34 44 10 dd 20 f2  73 68 6f 77 5f 64 72 61  |:.4D.. .show_dra|
00007720  77 0d 34 4e 1a ea 20 77  69 64 74 68 25 2c 68 65  |w.4N.. width%,he|
00007730  69 67 68 74 25 2c 6e 25  2c 6d 25 0d 34 58 1b 77  |ight%,n%,m%.4X.w|
00007740  69 64 74 68 25 3d 71 75  61 72 74 65 72 73 25 2a  |idth%=quarters%*|
00007750  32 38 38 2b 36 34 0d 34  62 28 e7 20 64 6f 75 62  |288+64.4b(. doub|
00007760  6c 65 73 25 20 8c 20 77  69 64 74 68 25 3d 71 75  |les% . width%=qu|
00007770  61 72 74 65 72 73 25 2a  35 37 36 2b 36 34 0d 34  |arters%*576+64.4|
00007780  6c 1c 68 65 69 67 68 74  25 3d 70 65 72 5f 71 75  |l.height%=per_qu|
00007790  61 72 74 25 2a 34 34 2b  36 34 0d 34 76 1c 6d 25  |art%*44+64.4v.m%|
000077a0  3d 64 6f 75 62 6c 65 73  25 3a 6e 25 3d 70 65 72  |=doubles%:n%=per|
000077b0  5f 74 65 61 6d 25 0d 34  80 0c f2 6e 6f 5f 64 72  |_team%.4...no_dr|
000077c0  61 77 0d 34 8a 1c 64 6f  75 62 6c 65 73 25 3d 6d  |aw.4..doubles%=m|
000077d0  25 3a 70 65 72 5f 74 65  61 6d 25 3d 6e 25 0d 34  |%:per_team%=n%.4|
000077e0  94 10 64 72 61 77 5f 6d  61 64 65 25 3d b9 0d 34  |..draw_made%=..4|
000077f0  9e 5c 64 72 61 77 5f 77  69 6e 64 6f 77 25 3d a4  |.\draw_window%=.|
00007800  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 28 39 36  |create_window(96|
00007810  30 2c 37 30 34 2c 33 32  30 2c 33 32 30 2c 77 69  |0,704,320,320,wi|
00007820  64 74 68 25 2d 33 32 30  2c 68 65 69 67 68 74 25  |dth%-320,height%|
00007830  2d 33 32 30 2c 26 42 46  30 30 30 30 30 32 2c 22  |-320,&BF000002,"|
00007840  44 72 61 77 22 2c 30 2c  30 29 0d 34 a8 1e f2 6f  |Draw",0,0).4...o|
00007850  70 65 6e 5f 77 69 6e 64  6f 77 28 64 72 61 77 5f  |pen_window(draw_|
00007860  77 69 6e 64 6f 77 25 29  0d 34 b2 05 e1 0d 34 bc  |window%).4....4.|
00007870  05 3a 0d 34 c6 11 dd 20  f2 73 68 6f 77 5f 74 65  |.:.4... .show_te|
00007880  61 6d 73 0d 34 d0 10 e7  20 74 65 61 6d 73 25 3e  |ams.4... teams%>|
00007890  33 20 8c 0d 34 da 12 20  20 77 69 64 74 68 25 3d  |3 ..4..  width%=|
000078a0  37 38 2a 31 36 0d 34 e4  05 cc 0d 34 ee 19 20 20  |78*16.4....4..  |
000078b0  77 69 64 74 68 25 3d 74  65 61 6d 73 25 2a 31 39  |width%=teams%*19|
000078c0  2a 31 36 0d 34 f8 05 cd  0d 35 02 32 68 65 69 67  |*16.4....5.2heig|
000078d0  68 74 25 3d 28 28 74 65  61 6d 73 25 2d 31 29 20  |ht%=((teams%-1) |
000078e0  81 20 34 2b 31 29 2a 33  32 2a 28 70 65 72 5f 74  |. 4+1)*32*(per_t|
000078f0  65 61 6d 25 2b 33 29 2b  33 32 0d 35 0c 5d 64 72  |eam%+3)+32.5.]dr|
00007900  61 77 5f 77 69 6e 64 6f  77 25 3d a4 63 72 65 61  |aw_window%=.crea|
00007910  74 65 5f 77 69 6e 64 6f  77 28 39 36 30 2c 37 30  |te_window(960,70|
00007920  34 2c 33 32 30 2c 33 32  30 2c 77 69 64 74 68 25  |4,320,320,width%|
00007930  2d 33 32 30 2c 68 65 69  67 68 74 25 2d 33 32 30  |-320,height%-320|
00007940  2c 26 42 46 30 30 30 30  30 32 2c 22 54 65 61 6d  |,&BF000002,"Team|
00007950  73 22 2c 30 2c 30 29 0d  35 16 1e f2 6f 70 65 6e  |s",0,0).5...open|
00007960  5f 77 69 6e 64 6f 77 28  64 72 61 77 5f 77 69 6e  |_window(draw_win|
00007970  64 6f 77 25 29 0d 35 20  10 64 72 61 77 5f 6d 61  |dow%).5 .draw_ma|
00007980  64 65 25 3d b9 0d 35 2a  05 e1 0d 35 34 05 3a 0d  |de%=..5*...54.:.|
00007990  35 3e 17 dd 20 f2 64 72  61 77 5f 64 72 61 77 5f  |5>.. .draw_draw_|
000079a0  77 69 6e 64 6f 77 0d 35  48 13 ea 20 6e 25 2c 6d  |window.5H.. n%,m|
000079b0  25 2c 6e 75 6d 25 2c 77  25 0d 35 52 20 e7 20 64  |%,num%,w%.5R . d|
000079c0  6f 75 62 6c 65 73 25 20  8c 20 77 25 3d 35 37 36  |oubles% . w%=576|
000079d0  3a 8b 20 77 25 3d 32 38  38 0d 35 5c 15 e3 20 6e  |:. w%=288.5\.. n|
000079e0  25 3d 31 b8 20 71 75 61  72 74 65 72 73 25 0d 35  |%=1. quarters%.5|
000079f0  66 18 20 20 e3 20 6d 25  3d 31 b8 20 70 65 72 5f  |f.  . m%=1. per_|
00007a00  71 75 61 72 74 25 0d 35  70 21 20 20 20 20 6e 75  |quart%.5p!    nu|
00007a10  6d 25 3d 28 6e 25 2d 31  29 2a 70 65 72 5f 71 75  |m%=(n%-1)*per_qu|
00007a20  61 72 74 25 2b 6d 25 0d  35 7a 1d 20 20 20 20 e7  |art%+m%.5z.    .|
00007a30  20 97 28 64 72 61 77 24  28 6e 75 6d 25 29 29 3c  | .(draw$(num%))<|
00007a40  31 37 20 8c 0d 35 84 20  20 20 20 20 20 20 c8 99  |17 ..5.       ..|
00007a50  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00007a60  22 2c 31 31 0d 35 8e 09  20 20 20 20 cc 0d 35 98  |",11.5..    ..5.|
00007a70  1f 20 20 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |.      .. "Wimp_|
00007a80  53 65 74 43 6f 6c 6f 75  72 22 2c 37 0d 35 a2 09  |SetColour",7.5..|
00007a90  20 20 20 20 cd 0d 35 ac  2f 20 20 20 20 ec 20 6f  |    ..5./    . o|
00007aa0  78 25 2b 28 6e 25 2d 31  29 2a 77 25 2b 33 32 2c  |x%+(n%-1)*w%+32,|
00007ab0  6f 79 25 2d 34 34 2a 6d  25 2d 38 2a 28 6d 25 20  |oy%-44*m%-8*(m% |
00007ac0  80 20 31 29 0d 35 b6 29  20 20 20 20 f1 20 c1 64  |. 1).5.)    . .d|
00007ad0  72 61 77 24 28 28 6e 25  2d 31 29 2a 70 65 72 5f  |raw$((n%-1)*per_|
00007ae0  71 75 61 72 74 25 2b 6d  25 29 2c 32 29 0d 35 c0  |quart%+m%),2).5.|
00007af0  27 20 20 20 20 e7 20 28  6d 25 20 80 20 31 29 3d  |'    . (m% . 1)=|
00007b00  30 20 80 20 6d 25 3c 3e  70 65 72 5f 71 75 61 72  |0 . m%<>per_quar|
00007b10  74 25 20 8c 0d 35 ca 1f  20 20 20 20 20 20 c8 99  |t% ..5..      ..|
00007b20  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00007b30  22 2c 38 0d 35 d4 29 20  20 20 20 20 20 ec 20 6f  |",8.5.)      . o|
00007b40  78 25 2b 28 6e 25 2d 31  29 2a 77 25 2b 33 32 2c  |x%+(n%-1)*w%+32,|
00007b50  6f 79 25 2d 34 34 2a 6d  25 2d 33 36 0d 35 de 15  |oy%-44*m%-36.5..|
00007b60  20 20 20 20 20 20 f0 20  31 2c 77 25 2d 31 36 2c  |      . 1,w%-16,|
00007b70  30 0d 35 e8 09 20 20 20  20 cd 0d 35 f2 07 20 20  |0.5..    ..5..  |
00007b80  ed 0d 35 fc 05 ed 0d 36  06 05 e1 0d 36 10 05 3a  |..5....6....6..:|
00007b90  0d 36 1a 12 dd 20 f2 64  72 61 77 5f 6f 70 74 69  |.6... .draw_opti|
00007ba0  6f 6e 0d 36 24 10 c8 8e  73 75 62 6f 70 74 31 25  |on.6$...subopt1%|
00007bb0  20 ca 0d 36 2e 14 20 20  c9 20 30 3a f2 6d 61 6b  | ..6..  . 0:.mak|
00007bc0  65 5f 64 72 61 77 0d 36  38 24 20 20 c9 20 31 3a  |e_draw.68$  . 1:|
00007bd0  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 28 64 72 61  |.open_window(dra|
00007be0  77 5f 77 69 6e 64 6f 77  25 29 0d 36 42 0a 20 20  |w_window%).6B.  |
00007bf0  c9 20 32 3a 0d 36 4c 10  20 20 20 20 f2 6e 6f 5f  |. 2:.6L.    .no_|
00007c00  64 72 61 77 0d 36 56 12  20 20 20 20 61 6c 74 65  |draw.6V.    alte|
00007c10  72 65 64 25 3d b9 0d 36  60 15 20 20 c9 20 33 3a  |red%=..6`.  . 3:|
00007c20  f2 70 72 69 6e 74 5f 64  72 61 77 0d 36 6a 05 cb  |.print_draw.6j..|
00007c30  0d 36 74 05 e1 0d 36 7e  05 3a 0d 36 88 0e dd 20  |.6t...6~.:.6... |
00007c40  f2 6e 6f 5f 64 72 61 77  0d 36 92 12 e7 20 64 72  |.no_draw.6... dr|
00007c50  61 77 5f 6d 61 64 65 25  20 8c 0d 36 9c 1a 20 20  |aw_made% ..6..  |
00007c60  21 62 6c 6f 63 6b 25 3d  64 72 61 77 5f 77 69 6e  |!block%=draw_win|
00007c70  64 6f 77 25 0d 36 a6 24  20 20 c8 99 20 22 57 69  |dow%.6.$  .. "Wi|
00007c80  6d 70 5f 44 65 6c 65 74  65 57 69 6e 64 6f 77 22  |mp_DeleteWindow"|
00007c90  2c 2c 62 6c 6f 63 6b 25  0d 36 b0 05 cd 0d 36 ba  |,,block%.6....6.|
00007ca0  10 64 72 61 77 5f 6d 61  64 65 25 3d a3 0d 36 c4  |.draw_made%=..6.|
00007cb0  0e 64 6f 75 62 6c 65 73  25 3d a3 0d 36 ce 0f 70  |.doubles%=..6..p|
00007cc0  65 72 5f 74 65 61 6d 25  3d 30 0d 36 d8 05 e1 0d  |er_team%=0.6....|
00007cd0  36 e2 05 3a 0d 36 ec 11  dd 20 a4 63 6c 65 61 72  |6..:.6... .clear|
00007ce0  5f 64 72 61 77 0d 36 f6  21 3d a4 79 6e 28 22 43  |_draw.6.!=.yn("C|
00007cf0  6c 65 61 72 20 45 78 69  73 74 69 6e 67 20 44 72  |lear Existing Dr|
00007d00  61 77 20 3f 22 29 0d 37  00 05 3a 0d 37 0a 0d dd  |aw ?").7..:.7...|
00007d10  20 a4 79 6e 28 61 24 29  0d 37 14 12 f2 72 65 70  | .yn(a$).7...rep|
00007d20  6f 72 74 28 61 24 2c 31  39 29 0d 37 1e 12 3d 28  |ort(a$,19).7..=(|
00007d30  65 72 72 63 6c 69 63 6b  25 3d 31 29 0d 37 28 05  |errclick%=1).7(.|
00007d40  3a 0d 37 32 10 dd 20 f2  6d 61 6b 65 5f 64 72 61  |:.72.. .make_dra|
00007d50  77 0d 37 3c 08 ea 20 6e  25 0d 37 46 15 e7 20 73  |w.7<.. n%.7F.. s|
00007d60  75 62 6f 70 74 32 25 3d  2d 31 20 8c 20 e1 0d 37  |ubopt2%=-1 . ..7|
00007d70  50 12 e7 20 73 75 62 6f  70 74 32 25 3d 33 20 8c  |P.. subopt2%=3 .|
00007d80  0d 37 5a 0c 20 20 f2 74  65 61 6d 73 0d 37 64 07  |.7Z.  .teams.7d.|
00007d90  20 20 e1 0d 37 6e 05 cd  0d 37 78 0e e3 20 6e 25  |  ..7n...7x.. n%|
00007da0  3d 31 b8 31 32 38 0d 37  82 16 20 20 64 72 61 77  |=1.128.7..  draw|
00007db0  24 28 6e 25 29 3d 22 20  62 79 65 22 0d 37 8c 10  |$(n%)=" bye".7..|
00007dc0  20 20 64 72 61 77 6e 3f  6e 25 3d 30 0d 37 96 05  |  drawn?n%=0.7..|
00007dd0  ed 0d 37 a0 12 e7 20 73  75 62 6f 70 74 32 25 3d  |..7... subopt2%=|
00007de0  32 20 8c 0d 37 aa 0e 20  20 f2 64 6f 75 62 6c 65  |2 ..7..  .double|
00007df0  73 0d 37 b4 07 20 20 e1  0d 37 be 05 cd 0d 37 c8  |s.7..  ..7....7.|
00007e00  0e 64 6f 75 62 6c 65 73  25 3d a3 0d 37 d2 0f 70  |.doubles%=..7..p|
00007e10  65 72 5f 74 65 61 6d 25  3d 30 0d 37 dc 0c 74 65  |er_team%=0.7..te|
00007e20  61 6d 73 25 3d 30 0d 37  e6 11 f2 73 65 74 5f 71  |ams%=0.7...set_q|
00007e30  75 61 72 74 65 72 73 0d  37 f0 10 ea 20 77 69 74  |uarters.7... wit|
00007e40  68 73 65 65 64 73 25 0d  37 fa 1b 77 69 74 68 73  |hseeds%.7..withs|
00007e50  65 65 64 73 25 3d 28 73  75 62 6f 70 74 32 25 3d  |eeds%=(subopt2%=|
00007e60  30 29 0d 38 04 12 e7 20  77 69 74 68 73 65 65 64  |0).8... withseed|
00007e70  73 25 20 8c 0d 38 0e 13  20 20 f2 70 75 74 5f 73  |s% ..8..  .put_s|
00007e80  65 65 64 73 5f 69 6e 0d  38 18 05 cc 0d 38 22 11  |eeds_in.8....8".|
00007e90  20 20 f2 61 64 64 5f 65  78 74 72 61 73 0d 38 2c  |  .add_extras.8,|
00007ea0  05 cd 0d 38 36 18 e3 20  6e 25 3d 31 b8 74 6f 74  |...86.. n%=1.tot|
00007eb0  5f 64 72 61 77 25 20 88  20 32 0d 38 40 2e 20 20  |_draw% . 2.8@.  |
00007ec0  e7 20 64 72 61 77 24 28  6e 25 29 3d 22 20 62 79  |. draw$(n%)=" by|
00007ed0  65 22 20 8c 20 64 72 61  77 24 28 6e 25 29 3d a4  |e" . draw$(n%)=.|
00007ee0  6e 61 6d 65 28 6e 25 29  0d 38 4a 05 ed 0d 38 54  |name(n%).8J...8T|
00007ef0  14 e7 20 74 6f 74 6e 61  6d 65 73 25 3c 3e 30 20  |.. totnames%<>0 |
00007f00  8c 0d 38 5e 1e 20 20 e3  20 6e 25 3d 31 b8 74 6f  |..8^.  . n%=1.to|
00007f10  74 6e 61 6d 65 73 25 2b  65 78 74 72 61 73 25 0d  |tnames%+extras%.|
00007f20  38 68 27 20 20 20 20 e7  20 64 72 61 77 6e 3f 6e  |8h'    . drawn?n|
00007f30  25 3d 30 20 8c 20 f2 70  75 74 5f 6e 61 6d 65 5f  |%=0 . .put_name_|
00007f40  69 6e 28 6e 25 29 0d 38  72 07 20 20 ed 0d 38 7c  |in(n%).8r.  ..8||
00007f50  05 cd 0d 38 86 0e e3 20  6e 25 3d 31 b8 31 32 38  |...8... n%=1.128|
00007f60  0d 38 90 2b 20 20 e7 20  64 72 61 77 24 28 6e 25  |.8.+  . draw$(n%|
00007f70  29 3d 22 20 42 59 45 22  20 8c 20 64 72 61 77 24  |)=" BYE" . draw$|
00007f80  28 6e 25 29 3d 22 20 62  79 65 22 0d 38 9a 05 ed  |(n%)=" bye".8...|
00007f90  0d 38 a4 0e f2 73 68 6f  77 5f 64 72 61 77 0d 38  |.8...show_draw.8|
00007fa0  ae 0e 61 6c 74 65 72 65  64 25 3d b9 0d 38 b8 05  |..altered%=..8..|
00007fb0  e1 0d 38 c2 05 3a 0d 38  cc 11 dd 20 a4 6e 61 6d  |..8..:.8... .nam|
00007fc0  65 28 70 6f 73 25 29 0d  38 d6 0b ea 20 6e 25 2c  |e(pos%).8... n%,|
00007fd0  61 24 0d 38 e0 05 f5 0d  38 ea 1d 20 20 6e 25 3d  |a$.8....8..  n%=|
00007fe0  b3 28 74 6f 74 6e 61 6d  65 73 25 2b 65 78 74 72  |.(totnames%+extr|
00007ff0  61 73 25 29 0d 38 f4 10  fd 20 64 72 61 77 6e 3f  |as%).8... drawn?|
00008000  6e 25 3d 30 0d 38 fe 0e  64 72 61 77 6e 3f 6e 25  |n%=0.8..drawn?n%|
00008010  3d 31 0d 39 08 14 64 72  61 77 70 6f 73 25 3f 6e  |=1.9..drawpos%?n|
00008020  25 3d 70 6f 73 25 0d 39  12 14 e7 20 6e 25 3e 74  |%=pos%.9... n%>t|
00008030  6f 74 6e 61 6d 65 73 25  20 8c 0d 39 1c 18 20 20  |otnames% ..9..  |
00008040  61 24 3d bd 28 6e 25 2d  74 6f 74 6e 61 6d 65 73  |a$=.(n%-totnames|
00008050  25 29 0d 39 26 05 cc 0d  39 30 0c 20 20 61 24 3d  |%).9&...90.  a$=|
00008060  22 20 22 0d 39 3a 05 cd  0d 39 44 12 3d 61 24 2b  |" ".9:...9D.=a$+|
00008070  6e 61 6d 65 73 24 28 6e  25 29 0d 39 4e 05 3a 0d  |names$(n%).9N.:.|
00008080  39 58 19 dd 20 f2 70 75  74 5f 6e 61 6d 65 5f 69  |9X.. .put_name_i|
00008090  6e 28 6e 61 6d 65 25 29  0d 39 62 0b ea 20 6e 25  |n(name%).9b.. n%|
000080a0  2c 61 24 0d 39 6c 05 f5  0d 39 76 21 20 20 6e 25  |,a$.9l...9v!  n%|
000080b0  3d b3 28 74 6f 74 5f 64  72 61 77 25 29 20 80 20  |=.(tot_draw%) . |
000080c0  25 31 31 31 31 31 31 31  30 0d 39 80 16 fd 20 64  |%11111110.9... d|
000080d0  72 61 77 24 28 6e 25 29  3d 22 20 62 79 65 22 0d  |raw$(n%)=" bye".|
000080e0  39 8a 15 64 72 61 77 70  6f 73 25 3f 6e 61 6d 65  |9..drawpos%?name|
000080f0  25 3d 6e 25 0d 39 94 17  e7 20 6e 61 6d 65 25 3e  |%=n%.9... name%>|
00008100  74 6f 74 6e 61 6d 65 73  25 20 8c 0d 39 9e 1b 20  |totnames% ..9.. |
00008110  20 61 24 3d bd 28 6e 61  6d 65 25 2d 74 6f 74 6e  | a$=.(name%-totn|
00008120  61 6d 65 73 25 29 0d 39  a8 05 cc 0d 39 b2 0c 20  |ames%).9....9.. |
00008130  20 61 24 3d 22 20 22 0d  39 bc 05 cd 0d 39 c6 1e  | a$=" ".9....9..|
00008140  64 72 61 77 24 28 6e 25  29 3d 61 24 2b 6e 61 6d  |draw$(n%)=a$+nam|
00008150  65 73 24 28 6e 61 6d 65  25 29 0d 39 d0 05 e1 0d  |es$(name%).9....|
00008160  39 da 05 3a 0d 39 e4 15  dd 20 f2 73 65 74 5f 64  |9..:.9... .set_d|
00008170  72 61 77 5f 6e 61 6d 65  73 0d 39 ee 10 e7 20 64  |raw_names.9... d|
00008180  6f 75 62 6c 65 73 25 20  8c 0d 39 f8 1d 20 20 f2  |oubles% ..9..  .|
00008190  73 65 74 5f 64 72 61 77  5f 6e 61 6d 65 73 5f 64  |set_draw_names_d|
000081a0  6f 75 62 6c 65 73 0d 3a  02 05 cc 0d 3a 0c 1d 20  |oubles.:....:.. |
000081b0  20 f2 73 65 74 5f 64 72  61 77 5f 6e 61 6d 65 73  | .set_draw_names|
000081c0  5f 73 69 6e 67 6c 65 73  0d 3a 16 05 cd 0d 3a 20  |_singles.:....: |
000081d0  05 e1 0d 3a 2a 05 3a 0d  3a 34 1d dd 20 f2 73 65  |...:*.:.:4.. .se|
000081e0  74 5f 64 72 61 77 5f 6e  61 6d 65 73 5f 64 6f 75  |t_draw_names_dou|
000081f0  62 6c 65 73 0d 3a 3e 08  ea 20 6e 25 0d 3a 48 0d  |bles.:>.. n%.:H.|
00008200  e3 20 6e 25 3d 31 b8 36  34 0d 3a 52 16 20 20 64  |. n%=1.64.:R.  d|
00008210  72 61 77 24 28 6e 25 29  3d 22 20 62 79 65 22 0d  |raw$(n%)=" bye".|
00008220  3a 5c 05 ed 0d 3a 66 0f  f2 61 64 64 5f 65 78 74  |:\...:f..add_ext|
00008230  72 61 73 0d 3a 70 0d e3  20 6e 25 3d 31 b8 36 34  |ras.:p.. n%=1.64|
00008240  0d 3a 7a 1a 20 20 6d 25  3d 64 72 61 77 70 6f 73  |.:z.  m%=drawpos|
00008250  25 3f 28 6e 25 2a 32 2d  31 29 0d 3a 84 0f 20 20  |%?(n%*2-1).:..  |
00008260  e7 20 6d 25 3c 3e 30 20  8c 0d 3a 8e 4d 20 20 20  |. m%<>0 ..:.M   |
00008270  20 64 72 61 77 24 28 6e  25 29 3d 22 20 22 2b 6e  | draw$(n%)=" "+n|
00008280  61 6d 65 73 24 28 64 72  61 77 70 6f 73 25 3f 28  |ames$(drawpos%?(|
00008290  6e 25 2a 32 2d 31 29 29  2b 22 20 26 20 22 2b 6e  |n%*2-1))+" & "+n|
000082a0  61 6d 65 73 24 28 64 72  61 77 70 6f 73 25 3f 28  |ames$(drawpos%?(|
000082b0  6e 25 2a 32 29 29 0d 3a  98 07 20 20 cd 0d 3a a2  |n%*2)).:..  ..:.|
000082c0  05 ed 0d 3a ac 05 e1 0d  3a b6 05 3a 0d 3a c0 1d  |...:....:..:.:..|
000082d0  dd 20 f2 73 65 74 5f 64  72 61 77 5f 6e 61 6d 65  |. .set_draw_name|
000082e0  73 5f 73 69 6e 67 6c 65  73 0d 3a ca 08 ea 20 6e  |s_singles.:... n|
000082f0  25 0d 3a d4 0e e3 20 6e  25 3d 31 b8 31 32 38 0d  |%.:... n%=1.128.|
00008300  3a de 15 20 20 e7 20 70  65 72 5f 74 65 61 6d 25  |:..  . per_team%|
00008310  3d 30 20 8c 0d 3a e8 18  20 20 20 20 64 72 61 77  |=0 ..:..    draw|
00008320  24 28 6e 25 29 3d 22 20  62 79 65 22 0d 3a f2 07  |$(n%)=" bye".:..|
00008330  20 20 cc 0d 3a fc 1a 20  20 20 20 64 72 61 77 24  |  ..:..    draw$|
00008340  28 6e 25 29 3d 22 20 2d  2d 2d 2d 2d 22 0d 3b 06  |(n%)=" -----".;.|
00008350  07 20 20 cd 0d 3b 10 05  ed 0d 3b 1a 0f f2 61 64  |.  ..;....;...ad|
00008360  64 5f 65 78 74 72 61 73  0d 3b 24 14 e7 20 74 6f  |d_extras.;$.. to|
00008370  74 6e 61 6d 65 73 25 3c  3e 30 20 8c 0d 3b 2e 17  |tnames%<>0 ..;..|
00008380  20 20 e3 20 6e 25 3d 31  b8 20 74 6f 74 6e 61 6d  |  . n%=1. totnam|
00008390  65 73 25 0d 3b 38 29 20  20 20 20 64 72 61 77 24  |es%.;8)    draw$|
000083a0  28 64 72 61 77 70 6f 73  25 3f 6e 25 29 3d 22 20  |(drawpos%?n%)=" |
000083b0  22 2b 6e 61 6d 65 73 24  28 6e 25 29 0d 3b 42 07  |"+names$(n%).;B.|
000083c0  20 20 ed 0d 3b 4c 05 cd  0d 3b 56 14 e7 20 74 6f  |  ..;L...;V.. to|
000083d0  74 73 65 65 64 73 25 3c  3e 30 20 8c 0d 3b 60 16  |tseeds%<>0 ..;`.|
000083e0  20 20 e3 20 6e 25 3d 31  b8 74 6f 74 73 65 65 64  |  . n%=1.totseed|
000083f0  73 25 0d 3b 6a 41 20 20  20 20 64 72 61 77 24 28  |s%.;jA    draw$(|
00008400  64 72 61 77 70 6f 73 25  3f 28 6e 25 2b 74 6f 74  |drawpos%?(n%+tot|
00008410  6e 61 6d 65 73 25 29 29  3d bd 28 6e 25 29 2b 6e  |names%))=.(n%)+n|
00008420  61 6d 65 73 24 28 6e 25  2b 74 6f 74 6e 61 6d 65  |ames$(n%+totname|
00008430  73 25 29 0d 3b 74 07 20  20 ed 0d 3b 7e 05 cd 0d  |s%).;t.  ..;~...|
00008440  3b 88 05 e1 0d 3b 92 05  3a 0d 3b 9c 13 dd 20 f2  |;....;..:.;... .|
00008450  70 75 74 5f 73 65 65 64  73 5f 69 6e 0d 3b a6 11  |put_seeds_in.;..|
00008460  ea 20 6e 25 2c 6d 25 2c  62 79 65 73 25 0d 3b b0  |. n%,m%,byes%.;.|
00008470  27 62 79 65 73 25 3d 74  6f 74 5f 64 72 61 77 25  |'byes%=tot_draw%|
00008480  2d 74 6f 74 6e 61 6d 65  73 25 2d 74 6f 74 73 65  |-totnames%-totse|
00008490  65 64 73 25 0d 3b ba 17  f2 73 65 74 5f 73 65 65  |eds%.;...set_see|
000084a0  64 5f 70 6f 73 69 74 69  6f 6e 73 0d 3b c4 0d 65  |d_positions.;..e|
000084b0  78 74 72 61 73 25 3d 30  0d 3b ce 08 6d 25 3d 30  |xtras%=0.;..m%=0|
000084c0  0d 3b d8 0d e3 20 6e 25  3d 31 b8 31 36 0d 3b e2  |.;... n%=1.16.;.|
000084d0  1b 20 20 e7 20 73 65 65  64 5f 65 78 69 73 74 73  |.  . seed_exists|
000084e0  25 3f 6e 25 3d 31 20 8c  0d 3b ec 31 20 20 20 20  |%?n%=1 ..;.1    |
000084f0  6d 25 2b 3d 31 3a f4 20  6d 25 20 69 6e 20 56 20  |m%+=1:. m% in V |
00008500  69 66 20 73 65 65 64 73  20 74 6f 20 62 65 20 63  |if seeds to be c|
00008510  6f 6d 70 72 65 73 73 65  64 0d 3b f6 2c 20 20 20  |ompressed.;.,   |
00008520  20 f2 70 75 74 5f 73 65  65 64 5f 69 6e 28 6e 25  | .put_seed_in(n%|
00008530  2c 24 28 73 65 65 64 73  25 2b 31 39 2a 28 6e 25  |,$(seeds%+19*(n%|
00008540  2d 31 29 29 29 0d 3c 00  07 20 20 cd 0d 3c 0a 05  |-1))).<..  ..<..|
00008550  ed 0d 3c 14 05 e1 0d 3c  1e 05 3a 0d 3c 28 19 dd  |..<....<..:.<(..|
00008560  20 f2 73 65 74 5f 73 65  65 64 5f 70 6f 73 69 74  | .set_seed_posit|
00008570  69 6f 6e 73 0d 3c 32 0b  ea 20 52 25 2c 6e 25 0d  |ions.<2.. R%,n%.|
00008580  3c 3c 11 73 65 65 64 70  6f 73 25 28 31 29 3d 30  |<<.seedpos%(1)=0|
00008590  0d 3c 46 11 73 65 65 64  70 6f 73 25 28 32 29 3d  |.<F.seedpos%(2)=|
000085a0  38 0d 3c 50 0b 52 25 3d  b3 28 32 29 0d 3c 5a 0c  |8.<P.R%=.(2).<Z.|
000085b0  e7 20 52 25 3d 31 20 8c  0d 3c 64 13 20 20 73 65  |. R%=1 ..<d.  se|
000085c0  65 64 70 6f 73 25 28 33  29 3d 34 0d 3c 6e 14 20  |edpos%(3)=4.<n. |
000085d0  20 73 65 65 64 70 6f 73  25 28 34 29 3d 31 32 0d  | seedpos%(4)=12.|
000085e0  3c 78 05 cc 0d 3c 82 13  20 20 73 65 65 64 70 6f  |<x...<..  seedpo|
000085f0  73 25 28 34 29 3d 34 0d  3c 8c 14 20 20 73 65 65  |s%(4)=4.<..  see|
00008600  64 70 6f 73 25 28 33 29  3d 31 32 0d 3c 96 05 cd  |dpos%(3)=12.<...|
00008610  0d 3c a0 11 73 65 65 64  70 6f 73 25 28 35 29 3d  |.<..seedpos%(5)=|
00008620  32 0d 3c aa 11 73 65 65  64 70 6f 73 25 28 36 29  |2.<..seedpos%(6)|
00008630  3d 36 0d 3c b4 12 73 65  65 64 70 6f 73 25 28 37  |=6.<..seedpos%(7|
00008640  29 3d 31 30 0d 3c be 12  73 65 65 64 70 6f 73 25  |)=10.<..seedpos%|
00008650  28 38 29 3d 31 34 0d 3c  c8 0c e3 20 6e 25 3d 35  |(8)=14.<... n%=5|
00008660  b8 38 0d 3c d2 0f 20 20  52 25 3d b3 28 34 29 2b  |.8.<..  R%=.(4)+|
00008670  34 0d 3c dc 22 20 20 c8  94 20 73 65 65 64 70 6f  |4.<."  .. seedpo|
00008680  73 25 28 6e 25 29 2c 73  65 65 64 70 6f 73 25 28  |s%(n%),seedpos%(|
00008690  52 25 29 0d 3c e6 05 ed  0d 3c f0 11 73 65 65 64  |R%).<....<..seed|
000086a0  70 6f 73 25 28 39 29 3d  31 0d 3c fa 12 73 65 65  |pos%(9)=1.<..see|
000086b0  64 70 6f 73 25 28 31 30  29 3d 33 0d 3d 04 12 73  |dpos%(10)=3.=..s|
000086c0  65 65 64 70 6f 73 25 28  31 31 29 3d 35 0d 3d 0e  |eedpos%(11)=5.=.|
000086d0  12 73 65 65 64 70 6f 73  25 28 31 32 29 3d 37 0d  |.seedpos%(12)=7.|
000086e0  3d 18 12 73 65 65 64 70  6f 73 25 28 31 33 29 3d  |=..seedpos%(13)=|
000086f0  39 0d 3d 22 13 73 65 65  64 70 6f 73 25 28 31 34  |9.=".seedpos%(14|
00008700  29 3d 31 31 0d 3d 2c 13  73 65 65 64 70 6f 73 25  |)=11.=,.seedpos%|
00008710  28 31 35 29 3d 31 33 0d  3d 36 13 73 65 65 64 70  |(15)=13.=6.seedp|
00008720  6f 73 25 28 31 36 29 3d  31 35 0d 3d 40 0d e3 20  |os%(16)=15.=@.. |
00008730  6e 25 3d 39 b8 31 36 0d  3d 4a 0f 20 20 52 25 3d  |n%=9.16.=J.  R%=|
00008740  b3 28 38 29 2b 38 0d 3d  54 22 20 20 c8 94 20 73  |.(8)+8.=T"  .. s|
00008750  65 65 64 70 6f 73 25 28  6e 25 29 2c 73 65 65 64  |eedpos%(n%),seed|
00008760  70 6f 73 25 28 52 25 29  0d 3d 5e 05 ed 0d 3d 68  |pos%(R%).=^...=h|
00008770  12 c8 8e 20 74 6f 74 5f  64 72 61 77 25 20 ca 0d  |... tot_draw% ..|
00008780  3d 72 0a 20 20 c9 20 34  3a 0d 3d 7c 10 20 20 20  |=r.  . 4:.=|.   |
00008790  20 e3 20 6e 25 3d 31 b8  34 0d 3d 86 25 20 20 20  | . n%=1.4.=.%   |
000087a0  20 20 20 73 65 65 64 70  6f 73 25 28 6e 25 29 3d  |   seedpos%(n%)=|
000087b0  73 65 65 64 70 6f 73 25  28 6e 25 29 2f 34 0d 3d  |seedpos%(n%)/4.=|
000087c0  90 09 20 20 20 20 ed 0d  3d 9a 0a 20 20 c9 20 38  |..    ..=..  . 8|
000087d0  3a 0d 3d a4 10 20 20 20  20 e3 20 6e 25 3d 31 b8  |:.=..    . n%=1.|
000087e0  38 0d 3d ae 25 20 20 20  20 20 20 73 65 65 64 70  |8.=.%      seedp|
000087f0  6f 73 25 28 6e 25 29 3d  73 65 65 64 70 6f 73 25  |os%(n%)=seedpos%|
00008800  28 6e 25 29 2f 32 0d 3d  b8 09 20 20 20 20 ed 0d  |(n%)/2.=..    ..|
00008810  3d c2 05 cb 0d 3d cc 05  e1 0d 3d d6 05 3a 0d 3d  |=....=....=..:.=|
00008820  e0 1f dd 20 f2 70 75 74  5f 73 65 65 64 5f 69 6e  |... .put_seed_in|
00008830  28 73 65 65 64 25 2c 6e  61 6d 65 24 29 0d 3d ea  |(seed%,name$).=.|
00008840  1e 70 6f 73 25 3d a4 70  6f 73 5f 66 72 6f 6d 5f  |.pos%=.pos_from_|
00008850  73 65 65 64 28 73 65 65  64 25 29 0d 3d f4 23 64  |seed(seed%).=.#d|
00008860  72 61 77 70 6f 73 25 3f  28 73 65 65 64 25 2b 74  |rawpos%?(seed%+t|
00008870  6f 74 6e 61 6d 65 73 25  29 3d 70 6f 73 25 0d 3d  |otnames%)=pos%.=|
00008880  fe 1e 64 72 61 77 24 28  70 6f 73 25 29 3d bd 28  |..draw$(pos%)=.(|
00008890  73 65 65 64 25 29 2b 6e  61 6d 65 24 0d 3e 08 29  |seed%)+name$.>.)|
000088a0  e7 20 73 65 65 64 25 3c  3d 62 79 65 73 25 20 8c  |. seed%<=byes% .|
000088b0  20 64 72 61 77 24 28 70  6f 73 25 2b 31 29 3d 22  | draw$(pos%+1)="|
000088c0  20 42 59 45 22 0d 3e 12  05 e1 0d 3e 1c 05 3a 0d  | BYE".>....>..:.|
000088d0  3e 26 1b dd 20 a4 70 6f  73 5f 66 72 6f 6d 5f 73  |>&.. .pos_from_s|
000088e0  65 65 64 28 73 65 65 64  25 29 0d 3e 30 08 ea 20  |eed(seed%).>0.. |
000088f0  73 25 0d 3e 3a 15 73 25  3d 74 6f 74 5f 64 72 61  |s%.>:.s%=tot_dra|
00008900  77 25 20 81 20 31 36 0d  3e 44 11 e7 20 73 25 3d  |w% . 16.>D.. s%=|
00008910  30 20 8c 20 73 25 3d 31  0d 3e 4e 19 3d 73 25 2a  |0 . s%=1.>N.=s%*|
00008920  73 65 65 64 70 6f 73 25  28 73 65 65 64 25 29 2b  |seedpos%(seed%)+|
00008930  31 0d 3e 58 05 3a 0d 3e  62 11 dd 20 a4 66 69 6e  |1.>X.:.>b.. .fin|
00008940  64 5f 66 6f 6e 74 73 0d  3e 6c 07 ea 20 85 0d 3e  |d_fonts.>l.. ..>|
00008950  76 47 ee 20 85 20 ea 3a  f2 72 65 70 6f 72 74 28  |vG. . .:.report(|
00008960  22 55 6e 61 62 6c 65 20  74 6f 20 66 69 6e 64 20  |"Unable to find |
00008970  66 6f 6e 74 20 27 54 72  69 6e 69 74 79 27 20 46  |font 'Trinity' F|
00008980  49 4c 45 20 4e 4f 54 20  53 41 56 45 44 22 2c 31  |ILE NOT SAVED",1|
00008990  36 29 3a 3d a3 0d 3e 80  36 c8 99 20 22 46 6f 6e  |6):=..>.6.. "Fon|
000089a0  74 5f 46 69 6e 64 46 6f  6e 74 22 2c 2c 22 54 72  |t_FindFont",,"Tr|
000089b0  69 6e 69 74 79 2e 4d 65  64 69 75 6d 22 2c 31 35  |inity.Medium",15|
000089c0  30 2c 31 38 30 20 b8 20  66 31 25 0d 3e 8a 34 c8  |0,180 . f1%.>.4.|
000089d0  99 20 22 46 6f 6e 74 5f  46 69 6e 64 46 6f 6e 74  |. "Font_FindFont|
000089e0  22 2c 2c 22 54 72 69 6e  69 74 79 2e 42 6f 6c 64  |",,"Trinity.Bold|
000089f0  22 2c 32 34 30 2c 32 34  30 20 b8 20 66 32 25 0d  |",240,240 . f2%.|
00008a00  3e 94 35 c8 99 20 22 46  6f 6e 74 5f 46 69 6e 64  |>.5.. "Font_Find|
00008a10  46 6f 6e 74 22 2c 2c 22  54 72 69 6e 69 74 79 2e  |Font",,"Trinity.|
00008a20  4d 65 64 69 75 6d 22 2c  39 36 2c 31 32 30 20 b8  |Medium",96,120 .|
00008a30  20 66 33 25 0d 3e 9e 06  3d b9 0d 3e a8 05 3a 0d  | f3%.>..=..>..:.|
00008a40  3e b2 11 dd 20 f2 70 72  69 6e 74 5f 64 72 61 77  |>... .print_draw|
00008a50  0d 3e bc 0c ea 20 66 6f  6e 74 73 25 0d 3e c6 23  |.>... fonts%.>.#|
00008a60  e7 20 73 75 62 6f 70 74  32 25 3d 2d 31 20 80 20  |. subopt2%=-1 . |
00008a70  70 65 72 5f 74 65 61 6d  25 3d 30 20 8c 20 e1 0d  |per_team%=0 . ..|
00008a80  3e d0 2a ea 20 77 25 2c  68 25 2c 6c 25 2c 62 25  |>.*. w%,h%,l%,b%|
00008a90  2c 72 25 2c 74 25 2c 66  72 6f 6d 25 2c 74 6f 25  |,r%,t%,from%,to%|
00008aa0  2c 6d 61 78 5f 6c 65 6e  25 0d 3e da 42 ff 20 28  |,max_len%.>.B. (|
00008ab0  22 52 4d 45 6e 73 75 72  65 20 50 44 72 69 76 65  |"RMEnsure PDrive|
00008ac0  72 20 30 20 45 52 52 4f  52 20 32 35 35 20 4e 6f  |r 0 ERROR 255 No|
00008ad0  20 70 72 69 6e 74 65 72  20 64 72 69 76 65 72 20  | printer driver |
00008ae0  69 6e 73 74 61 6c 6c 65  64 22 29 0d 3e e4 16 66  |installed").>..f|
00008af0  6f 6e 74 73 25 3d a4 66  69 6e 64 5f 66 6f 6e 74  |onts%=.find_font|
00008b00  73 0d 3e ee 13 e7 20 ac  28 66 6f 6e 74 73 25 29  |s.>... .(fonts%)|
00008b10  20 8c 20 e1 0d 3e f8 0f  f2 6c 6f 6e 67 65 73 74  | . ..>...longest|
00008b20  28 b9 29 0d 3f 02 21 e7  20 6d 61 78 5f 6c 65 6e  |(.).?.!. max_len|
00008b30  25 3c 32 30 30 20 8c 20  6d 61 78 5f 6c 65 6e 25  |%<200 . max_len%|
00008b40  3d 32 30 30 0d 3f 0c 21  e7 20 6d 61 78 5f 6c 65  |=200.?.!. max_le|
00008b50  6e 25 3e 34 30 30 20 8c  20 6d 61 78 5f 6c 65 6e  |n%>400 . max_len|
00008b60  25 3d 34 30 30 0d 3f 16  15 c8 99 20 22 48 6f 75  |%=400.?.... "Hou|
00008b70  72 67 6c 61 73 73 5f 4f  6e 22 0d 3f 20 04 0d 3f  |rglass_On".? ..?|
00008b80  2a 15 70 66 25 3d ae 28  22 50 52 49 4e 54 45 52  |*.pf%=.("PRINTER|
00008b90  3a 22 29 0d 3f 34 04 0d  3f 3e 0d e7 20 70 66 25  |:").?4..?>.. pf%|
00008ba0  3d 30 20 8c 0d 3f 48 26  20 20 f2 72 65 70 6f 72  |=0 ..?H&  .repor|
00008bb0  74 28 22 50 44 72 69 76  65 72 20 6a 6f 62 3d 20  |t("PDriver job= |
00008bc0  22 2b c3 70 66 25 2c 31  37 29 0d 3f 52 07 20 20  |"+.pf%,17).?R.  |
00008bd0  e1 0d 3f 5c 05 cd 0d 3f  66 28 c8 99 20 22 50 44  |..?\...?f(.. "PD|
00008be0  72 69 76 65 72 5f 53 65  6c 65 63 74 4a 6f 62 22  |river_SelectJob"|
00008bf0  2c 70 66 25 2c 22 43 6f  6d 70 4a 6f 62 22 0d 3f  |,pf%,"CompJob".?|
00008c00  70 07 ea 20 85 0d 3f 7a  4d ee 20 85 20 ea 3a f7  |p.. ..?zM. . .:.|
00008c10  20 85 3a c8 99 20 22 50  44 72 69 76 65 72 5f 41  | .:.. "PDriver_A|
00008c20  62 6f 72 74 4a 6f 62 22  2c 70 66 25 3a d9 23 70  |bortJob",pf%:.#p|
00008c30  66 25 3a c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |f%:.. "Hourglass|
00008c40  5f 4f 66 66 22 3a f2 65  72 72 6f 72 28 f6 24 29  |_Off":.error(.$)|
00008c50  3a e1 0d 3f 84 2e c8 99  20 22 50 44 72 69 76 65  |:..?.... "PDrive|
00008c60  72 5f 50 61 67 65 53 69  7a 65 22 20 b8 20 2c 77  |r_PageSize" . ,w|
00008c70  25 2c 68 25 2c 6c 25 2c  62 25 2c 72 25 2c 74 25  |%,h%,l%,b%,r%,t%|
00008c80  0d 3f 8e 0c 78 25 3d 37  32 30 30 30 0d 3f 98 04  |.?..x%=72000.?..|
00008c90  0d 3f a2 45 21 72 65 63  74 25 3d 30 20 20 20 20  |.?.E!rect%=0    |
00008ca0  20 20 20 3a f4 20 34 20  77 6f 72 64 20 62 6c 6f  |   :. 4 word blo|
00008cb0  63 6b 20 63 6f 6e 74 61  69 6e 69 6e 67 20 72 65  |ck containing re|
00008cc0  63 74 61 6e 67 6c 65 20  74 6f 20 62 65 20 70 6c  |ctangle to be pl|
00008cd0  6f 74 74 65 64 0d 3f ac  0d 72 65 63 74 25 21 34  |otted.?..rect%!4|
00008ce0  3d 30 0d 3f b6 1b 72 65  63 74 25 21 38 3d 31 34  |=0.?..rect%!8=14|
00008cf0  35 30 20 20 20 3a f4 20  6d 61 78 20 78 0d 3f c0  |50   :. max x.?.|
00008d00  1b 72 65 63 74 25 21 31  32 3d 31 39 30 30 20 20  |.rect%!12=1900  |
00008d10  3a f4 20 6d 61 78 20 79  0d 3f ca 04 0d 3f d4 42  |:. max y.?...?.B|
00008d20  21 74 72 61 6e 73 25 3d  31 3c 3c 31 36 20 20 3a  |!trans%=1<<16  :|
00008d30  f4 20 34 20 77 6f 72 64  20 62 6c 6f 63 6b 20 63  |. 4 word block c|
00008d40  6f 6e 74 61 69 6e 69 6e  67 20 74 72 61 6e 73 66  |ontaining transf|
00008d50  6f 72 6d 61 74 69 6f 6e  20 74 61 62 6c 65 0d 3f  |ormation table.?|
00008d60  de 0e 74 72 61 6e 73 25  21 34 3d 30 0d 3f e8 0e  |..trans%!4=0.?..|
00008d70  74 72 61 6e 73 25 21 38  3d 30 0d 3f f2 13 74 72  |trans%!8=0.?..tr|
00008d80  61 6e 73 25 21 31 32 3d  31 3c 3c 31 36 0d 3f fc  |ans%!12=1<<16.?.|
00008d90  04 0d 40 06 3d 21 70 6c  6f 74 61 74 25 3d 6c 25  |..@.=!plotat%=l%|
00008da0  3a 70 6c 6f 74 61 74 25  21 34 3d 62 25 3a f4 20  |:plotat%!4=b%:. |
00008db0  70 6c 6f 74 20 70 6f 73  69 74 69 6f 6e 20 2d 20  |plot position - |
00008dc0  73 74 61 72 74 20 61 74  20 28 30 2c 30 29 0d 40  |start at (0,0).@|
00008dd0  10 04 0d 40 1a 34 f4 20  26 46 46 46 46 46 46 30  |...@.4. &FFFFFF0|
00008de0  30 20 2d 20 62 61 63 6b  67 72 6f 75 6e 64 20 63  |0 - background c|
00008df0  6f 6c 6f 75 72 20 69 6e  20 66 6f 72 6d 20 42 42  |olour in form BB|
00008e00  47 47 52 52 58 58 0d 40  24 14 e7 20 70 65 72 5f  |GGRRXX.@$.. per_|
00008e10  74 65 61 6d 25 3c 3e 30  20 8c 0d 40 2e 0d 20 20  |team%<>0 ..@..  |
00008e20  66 72 6f 6d 25 3d 31 0d  40 38 0b 20 20 74 6f 25  |from%=1.@8.  to%|
00008e30  3d 31 0d 40 42 05 cc 0d  40 4c 14 20 20 e7 20 73  |=1.@B...@L.  . s|
00008e40  75 62 6f 70 74 32 25 3d  30 20 8c 0d 40 56 0f 20  |ubopt2%=0 ..@V. |
00008e50  20 20 20 66 72 6f 6d 25  3d 31 0d 40 60 15 20 20  |   from%=1.@`.  |
00008e60  20 20 74 6f 25 3d 71 75  61 72 74 65 72 73 25 0d  |  to%=quarters%.|
00008e70  40 6a 07 20 20 cc 0d 40  74 16 20 20 20 20 66 72  |@j.  ..@t.    fr|
00008e80  6f 6d 25 3d 73 75 62 6f  70 74 32 25 0d 40 7e 14  |om%=subopt2%.@~.|
00008e90  20 20 20 20 74 6f 25 3d  73 75 62 6f 70 74 32 25  |    to%=subopt2%|
00008ea0  0d 40 88 07 20 20 cd 0d  40 92 05 cd 0d 40 9c 0a  |.@..  ..@....@..|
00008eb0  62 78 25 3d 32 35 0d 40  a6 17 e3 20 71 75 61 72  |bx%=25.@... quar|
00008ec0  74 73 25 3d 66 72 6f 6d  25 b8 74 6f 25 0d 40 b0  |ts%=from%.to%.@.|
00008ed0  41 20 20 c8 99 20 22 50  44 72 69 76 65 72 5f 47  |A  .. "PDriver_G|
00008ee0  69 76 65 52 65 63 74 61  6e 67 6c 65 22 2c 30 2c  |iveRectangle",0,|
00008ef0  72 65 63 74 25 2c 74 72  61 6e 73 25 2c 70 6c 6f  |rect%,trans%,plo|
00008f00  74 61 74 25 2c 26 46 46  46 46 46 46 30 30 0d 40  |tat%,&FFFFFF00.@|
00008f10  ba 30 20 20 c8 99 20 22  50 44 72 69 76 65 72 5f  |.0  .. "PDriver_|
00008f20  44 72 61 77 50 61 67 65  22 2c 31 2c 62 6c 6f 63  |DrawPage",1,bloc|
00008f30  6b 25 2c 30 2c 30 20 b8  20 6d 6f 72 65 25 0d 40  |k%,0,0 . more%.@|
00008f40  c4 0e 20 20 c8 95 20 6d  6f 72 65 25 0d 40 ce 17  |..  .. more%.@..|
00008f50  20 20 20 20 e7 20 70 65  72 5f 74 65 61 6d 25 3d  |    . per_team%=|
00008f60  30 20 8c 0d 40 d8 21 20  20 20 20 20 20 f2 70 72  |0 ..@.!      .pr|
00008f70  69 6e 74 5f 71 75 61 72  74 65 72 28 71 75 61 72  |int_quarter(quar|
00008f80  74 73 25 29 0d 40 e2 09  20 20 20 20 cc 0d 40 ec  |ts%).@..    ..@.|
00008f90  16 20 20 20 20 20 20 f2  70 72 69 6e 74 5f 74 65  |.      .print_te|
00008fa0  61 6d 73 0d 40 f6 09 20  20 20 20 cd 0d 41 00 31  |ams.@..    ..A.1|
00008fb0  20 20 20 20 c8 99 20 22  50 44 72 69 76 65 72 5f  |    .. "PDriver_|
00008fc0  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 62  |GetRectangle",,b|
00008fd0  6c 6f 63 6b 25 20 b8 20  6d 6f 72 65 25 0d 41 0a  |lock% . more%.A.|
00008fe0  07 20 20 ce 0d 41 14 0d  ed 20 71 75 61 72 74 73  |.  ..A... quarts|
00008ff0  25 0d 41 1e 1b c8 99 20  22 50 44 72 69 76 65 72  |%.A.... "PDriver|
00009000  5f 45 6e 64 4a 6f 62 22  2c 70 66 25 0d 41 28 16  |_EndJob",pf%.A(.|
00009010  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00009020  66 22 0d 41 32 07 f7 20  85 0d 41 3c 09 d9 23 70  |f".A2.. ..A<..#p|
00009030  66 25 0d 41 46 1a c8 99  20 22 46 6f 6e 74 5f 4c  |f%.AF... "Font_L|
00009040  6f 73 65 46 6f 6e 74 22  2c 66 31 25 0d 41 50 1a  |oseFont",f1%.AP.|
00009050  c8 99 20 22 46 6f 6e 74  5f 4c 6f 73 65 46 6f 6e  |.. "Font_LoseFon|
00009060  74 22 2c 66 32 25 0d 41  5a 1a c8 99 20 22 46 6f  |t",f2%.AZ... "Fo|
00009070  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 66 33 25  |nt_LoseFont",f3%|
00009080  0d 41 64 05 e1 0d 41 6e  05 3a 0d 41 78 13 dd 20  |.Ad...An.:.Ax.. |
00009090  f2 6c 6f 6e 67 65 73 74  28 4f 53 25 29 0d 41 82  |.longest(OS%).A.|
000090a0  38 f4 20 72 65 74 75 72  6e 73 20 74 68 65 20 6c  |8. returns the l|
000090b0  65 6e 67 74 68 20 6f 66  20 74 68 65 20 6c 6f 6e  |ength of the lon|
000090c0  67 65 73 74 20 27 6e 61  6d 65 27 20 69 6e 20 70  |gest 'name' in p|
000090d0  6f 69 6e 74 73 0d 41 8c  16 6d 61 78 5f 6c 65 6e  |oints.A..max_len|
000090e0  25 3d 30 3a 6d 61 78 24  3d 22 22 0d 41 96 0e e3  |%=0:max$="".A...|
000090f0  20 6e 25 3d 31 b8 31 32  38 0d 41 a0 1c 20 20 61  | n%=1.128.A..  a|
00009100  25 3d a4 6c 65 6e 28 a4  73 65 65 64 28 6e 25 29  |%=.len(.seed(n%)|
00009110  2c 66 33 25 29 0d 41 aa  30 20 20 e7 20 61 25 3e  |,f3%).A.0  . a%>|
00009120  6d 61 78 5f 6c 65 6e 25  20 8c 20 6d 61 78 5f 6c  |max_len% . max_l|
00009130  65 6e 25 3d 61 25 3a 6d  61 78 24 3d 64 72 61 77  |en%=a%:max$=draw|
00009140  24 28 6e 25 29 0d 41 b4  08 ed 20 6e 25 0d 41 be  |$(n%).A... n%.A.|
00009150  0b e7 20 4f 53 25 20 8c  0d 41 c8 3f 20 20 6d 61  |.. OS% ..A.?  ma|
00009160  78 5f 6c 65 6e 25 3d 28  28 6d 61 78 5f 6c 65 6e  |x_len%=((max_len|
00009170  25 2a 31 38 30 29 20 81  20 37 32 30 30 30 29 2b  |%*180) . 72000)+|
00009180  31 30 3a 20 f4 20 6d 69  6c 6c 69 70 6f 69 6e 74  |10: . millipoint|
00009190  73 20 74 6f 20 4f 53 0d  41 d2 05 cc 0d 41 dc 45  |s to OS.A....A.E|
000091a0  20 20 6d 61 78 5f 6c 65  6e 25 3d 28 6d 61 78 5f  |  max_len%=(max_|
000091b0  6c 65 6e 25 2f 31 2e 35  35 29 2b 32 30 30 3a 20  |len%/1.55)+200: |
000091c0  20 20 20 20 20 20 20 20  20 20 f4 20 73 65 74 20  |          . set |
000091d0  75 70 20 66 6f 72 20 64  72 61 77 20 66 69 6c 65  |up for draw file|
000091e0  73 0d 41 e6 05 cd 0d 41  f0 05 e1 0d 41 fa 05 3a  |s.A....A....A..:|
000091f0  0d 42 04 14 dd 20 a4 6c  65 6e 28 61 24 2c 66 6f  |.B... .len(a$,fo|
00009200  6e 74 25 29 0d 42 0e 10  ea 20 6c 65 6e 2c 73 70  |nt%).B... len,sp|
00009210  6c 69 74 25 0d 42 18 0d  24 6c 65 6e 73 25 3d 61  |lit%.B..$lens%=a|
00009220  24 0d 42 22 1b c8 99 20  22 46 6f 6e 74 5f 53 65  |$.B"... "Font_Se|
00009230  74 46 6f 6e 74 22 2c 66  6f 6e 74 25 0d 42 2c 43  |tFont",font%.B,C|
00009240  c8 99 20 22 46 6f 6e 74  5f 53 74 72 69 6e 67 57  |.. "Font_StringW|
00009250  69 64 74 68 22 2c 2c 6c  65 6e 73 25 2c 33 3c 3c  |idth",,lens%,3<<|
00009260  32 34 2c 33 3c 3c 32 34  2c 2d 31 2c 32 35 35 20  |24,3<<24,-1,255 |
00009270  b8 20 2c 2c 6c 65 6e 2c  2c 73 70 6c 69 74 25 0d  |. ,,len,,split%.|
00009280  42 36 30 e7 20 73 70 6c  69 74 25 3c 3e a9 28 61  |B60. split%<>.(a|
00009290  24 29 20 8c 20 f2 72 65  70 6f 72 74 28 61 24 2b  |$) . .report(a$+|
000092a0  22 3a 22 2b c3 73 70 6c  69 74 25 2c 31 37 29 0d  |":"+.split%,17).|
000092b0  42 40 08 3d 6c 65 6e 0d  42 4a 05 3a 0d 42 54 11  |B@.=len.BJ.:.BT.|
000092c0  dd 20 f2 63 6f 6c 6f 75  72 28 78 25 29 0d 42 5e  |. .colour(x%).B^|
000092d0  1f c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |... "ColourTrans|
000092e0  5f 53 65 74 47 43 4f 4c  22 2c 78 25 0d 42 68 05  |_SetGCOL",x%.Bh.|
000092f0  e1 0d 42 72 05 3a 0d 42  7c 10 dd 20 f2 74 69 74  |..Br.:.B|.. .tit|
00009300  6c 65 28 78 25 29 0d 42  86 08 ea 20 61 24 0d 42  |le(x%).B... a$.B|
00009310  90 33 61 24 3d bd 28 32  35 29 2b bd 28 31 33 30  |.3a$=.(25)+.(130|
00009320  29 2b bd 28 32 30 29 2b  24 74 69 74 6c 65 25 2b  |)+.(20)+$title%+|
00009330  bd 28 32 35 29 2b bd 28  31 33 30 29 2b bd 28 30  |.(25)+.(130)+.(0|
00009340  29 0d 42 9a 19 c8 99 20  22 46 6f 6e 74 5f 53 65  |).B.... "Font_Se|
00009350  74 46 6f 6e 74 22 2c 66  32 25 0d 42 a4 22 c8 99  |tFont",f2%.B."..|
00009360  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 61  | "Font_Paint",,a|
00009370  24 2c 31 36 2c 78 25 2c  31 38 35 30 0d 42 ae 05  |$,16,x%,1850.B..|
00009380  e1 0d 42 b8 05 3a 0d 42  c2 1c dd 20 f2 70 72 69  |..B..:.B... .pri|
00009390  6e 74 5f 71 75 61 72 74  65 72 28 71 75 61 72 74  |nt_quarter(quart|
000093a0  25 29 0d 42 cc 11 ea 20  6e 25 2c 62 61 73 65 25  |%).B... n%,base%|
000093b0  2c 6d 25 0d 42 d6 1f 62  61 73 65 25 3d 28 71 75  |,m%.B..base%=(qu|
000093c0  61 72 74 25 2d 31 29 2a  70 65 72 5f 71 75 61 72  |art%-1)*per_quar|
000093d0  74 25 0d 42 e0 0e f2 63  6f 6c 6f 75 72 28 30 29  |t%.B...colour(0)|
000093e0  0d 42 ea 32 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |.B.2.. "ColourTr|
000093f0  61 6e 73 5f 53 65 74 46  6f 6e 74 43 6f 6c 6f 75  |ans_SetFontColou|
00009400  72 73 22 2c 2c 26 46 46  46 46 46 46 30 30 2c 30  |rs",,&FFFFFF00,0|
00009410  2c 37 0d 42 f4 0f f2 74  69 74 6c 65 28 62 78 25  |,7.B...title(bx%|
00009420  29 0d 42 fe 1d f2 68 65  61 64 65 72 28 71 75 61  |).B...header(qua|
00009430  72 74 25 2c 71 75 61 72  74 65 72 73 25 29 0d 43  |rt%,quarters%).C|
00009440  08 19 c8 99 20 22 46 6f  6e 74 5f 53 65 74 46 6f  |.... "Font_SetFo|
00009450  6e 74 22 2c 66 33 25 0d  43 12 25 e3 20 6e 25 3d  |nt",f3%.C.%. n%=|
00009460  62 61 73 65 25 2b 31 b8  62 61 73 65 25 2b 70 65  |base%+1.base%+pe|
00009470  72 5f 71 75 61 72 74 25  20 88 20 32 0d 43 1c 1d  |r_quart% . 2.C..|
00009480  20 20 e7 20 64 72 61 77  24 28 6e 25 2b 31 29 3c  |  . draw$(n%+1)<|
00009490  3e 22 20 62 79 65 22 20  8c 0d 43 26 10 20 20 20  |>" bye" ..C&.   |
000094a0  20 e3 20 6d 25 3d 30 b8  31 0d 43 30 4a 20 20 20  | . m%=0.1.C0J   |
000094b0  20 20 20 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |   .. "Font_Pain|
000094c0  74 22 2c 2c a4 73 65 65  64 28 6e 25 2b 6d 25 29  |t",,.seed(n%+m%)|
000094d0  2c 31 36 2c 62 78 25 2c  31 37 30 30 2d 28 6e 25  |,16,bx%,1700-(n%|
000094e0  2b 6d 25 2d 62 61 73 65  25 29 2a 35 30 2b 73 79  |+m%-base%)*50+sy|
000094f0  25 2b 34 0d 43 3a 29 20  20 20 20 20 20 ec 20 62  |%+4.C:)      . b|
00009500  78 25 2c 31 36 39 35 2d  28 6e 25 2b 6d 25 2d 62  |x%,1695-(n%+m%-b|
00009510  61 73 65 25 29 2a 35 30  2b 73 79 25 0d 43 44 18  |ase%)*50+sy%.CD.|
00009520  20 20 20 20 20 20 f0 20  31 2c 6d 61 78 5f 6c 65  |      . 1,max_le|
00009530  6e 25 2c 30 0d 43 4e 09  20 20 20 20 ed 0d 43 58  |n%,0.CN.    ..CX|
00009540  10 20 20 20 20 f0 20 31  2c 30 2c 35 30 0d 43 62  |.    . 1,0,50.Cb|
00009550  2d 20 20 20 20 ec 20 6d  61 78 5f 6c 65 6e 25 2b  |-    . max_len%+|
00009560  62 78 25 2c 31 36 37 30  2d 28 6e 25 2d 62 61 73  |bx%,1670-(n%-bas|
00009570  65 25 29 2a 35 30 2b 73  79 25 0d 43 6c 11 20 20  |e%)*50+sy%.Cl.  |
00009580  20 20 f0 20 31 2c 32 30  30 2c 30 0d 43 76 07 20  |  . 1,200,0.Cv. |
00009590  20 cc 0d 43 80 46 20 20  20 20 c8 99 20 22 46 6f  | ..C.F    .. "Fo|
000095a0  6e 74 5f 50 61 69 6e 74  22 2c 2c a4 73 65 65 64  |nt_Paint",,.seed|
000095b0  28 6e 25 29 2c 31 36 2c  32 30 30 2b 62 78 25 2c  |(n%),16,200+bx%,|
000095c0  31 36 37 35 2d 28 6e 25  2d 62 61 73 65 25 29 2a  |1675-(n%-base%)*|
000095d0  35 30 2b 73 79 25 2b 34  0d 43 8a 28 20 20 20 20  |50+sy%+4.C.(    |
000095e0  ec 20 32 30 30 2b 62 78  25 2c 31 36 37 30 2d 28  |. 200+bx%,1670-(|
000095f0  6e 25 2d 62 61 73 65 25  29 2a 35 30 2b 73 79 25  |n%-base%)*50+sy%|
00009600  0d 43 94 16 20 20 20 20  f0 20 31 2c 6d 61 78 5f  |.C..    . 1,max_|
00009610  6c 65 6e 25 2c 30 0d 43  9e 07 20 20 cd 0d 43 a8  |len%,0.C..  ..C.|
00009620  05 ed 0d 43 b2 0d 6d 25  3d 31 3a 6e 25 3d 31 0d  |...C..m%=1:n%=1.|
00009630  43 bc 14 c8 95 20 6d 25  3c 70 65 72 5f 71 75 61  |C.... m%<per_qua|
00009640  72 74 25 0d 43 c6 0d 20  20 6d 25 3d 6d 25 2a 32  |rt%.C..  m%=m%*2|
00009650  0d 43 d0 0b 20 20 6e 25  2b 3d 31 0d 43 da 05 ce  |.C..  n%+=1.C...|
00009660  0d 43 e4 0c e7 20 6e 25  3e 31 20 8c 0d 43 ee 47  |.C... n%>1 ..C.G|
00009670  20 20 f2 6c 69 6e 65 73  28 6e 25 2a 32 30 30 2b  |  .lines(n%*200+|
00009680  6d 61 78 5f 6c 65 6e 25  2b 62 78 25 2d 32 30 30  |max_len%+bx%-200|
00009690  2c 31 36 37 30 2d 32 35  2a 70 65 72 5f 71 75 61  |,1670-25*per_qua|
000096a0  72 74 25 2b 73 79 25 2c  70 65 72 5f 71 75 61 72  |rt%+sy%,per_quar|
000096b0  74 25 29 0d 43 f8 05 cd  0d 44 02 05 e1 0d 44 0c  |t%).C....D....D.|
000096c0  05 3a 0d 44 16 0f dd 20  a4 73 65 65 64 28 78 25  |.:.D... .seed(x%|
000096d0  29 0d 44 20 1c 3d a4 73  65 65 64 5f 73 74 72 69  |).D .=.seed_stri|
000096e0  6e 67 28 64 72 61 77 24  28 78 25 29 29 0d 44 2a  |ng(draw$(x%)).D*|
000096f0  05 3a 0d 44 34 16 dd 20  a4 73 65 65 64 5f 73 74  |.:.D4.. .seed_st|
00009700  72 69 6e 67 28 73 24 29  0d 44 3e 0b ea 20 73 65  |ring(s$).D>.. se|
00009710  65 64 25 0d 44 48 0f 73  65 65 64 25 3d 97 28 73  |ed%.DH.seed%=.(s|
00009720  24 29 0d 44 52 0d 73 24  3d c1 73 24 2c 32 29 0d  |$).DR.s$=.s$,2).|
00009730  44 5c 24 e7 20 73 65 65  64 25 3c 31 37 20 8c 20  |D\$. seed%<17 . |
00009740  73 24 2b 3d 22 20 28 22  2b c3 73 65 65 64 25 2b  |s$+=" ("+.seed%+|
00009750  22 29 22 0d 44 66 07 3d  73 24 0d 44 70 05 3a 0d  |")".Df.=s$.Dp.:.|
00009760  44 7a 16 dd 20 f2 6c 69  6e 65 73 28 78 25 2c 79  |Dz.. .lines(x%,y|
00009770  25 2c 7a 25 29 0d 44 84  16 ec 20 78 25 2c 79 25  |%,z%).D... x%,y%|
00009780  3a f0 20 31 2c 2d 32 30  30 2c 30 0d 44 8e 0b 78  |:. 1,-200,0.D..x|
00009790  25 2d 3d 32 30 30 0d 44  98 13 ec 20 78 25 2c 79  |%-=200.D... x%,y|
000097a0  25 2d 7a 25 2f 32 2a 32  35 0d 44 a2 0f f0 20 31  |%-z%/2*25.D... 1|
000097b0  2c 30 2c 7a 25 2a 32 35  0d 44 ac 0c e7 20 7a 25  |,0,z%*25.D... z%|
000097c0  3e 34 20 8c 0d 44 b6 20  20 20 f2 6c 69 6e 65 73  |>4 ..D.   .lines|
000097d0  28 78 25 2c 79 25 2d 7a  25 2f 32 2a 32 35 2c 7a  |(x%,y%-z%/2*25,z|
000097e0  25 2f 32 29 0d 44 c0 20  20 20 f2 6c 69 6e 65 73  |%/2).D.   .lines|
000097f0  28 78 25 2c 79 25 2b 7a  25 2f 32 2a 32 35 2c 7a  |(x%,y%+z%/2*25,z|
00009800  25 2f 32 29 0d 44 ca 05  cd 0d 44 d4 05 e1 0d 44  |%/2).D....D....D|
00009810  de 05 3a 0d 44 e8 13 dd  20 a4 77 6f 72 64 28 70  |..:.D... .word(p|
00009820  6f 69 6e 74 25 29 0d 44  f2 11 e7 20 70 6f 69 6e  |oint%).D... poin|
00009830  74 25 3c 3e 30 20 8c 0d  44 fc 19 20 20 3d 61 72  |t%<>0 ..D..  =ar|
00009840  65 61 25 21 28 70 6f 69  6e 74 25 2a 34 2d 34 29  |ea%!(point%*4-4)|
00009850  0d 45 06 05 cc 0d 45 10  0c 20 20 76 25 3d 21 69  |.E....E..  v%=!i|
00009860  25 0d 45 1a 0b 20 20 69  25 2b 3d 34 0d 45 24 09  |%.E..  i%+=4.E$.|
00009870  20 20 3d 76 25 0d 45 2e  05 cd 0d 45 38 06 20 3a  |  =v%.E....E8. :|
00009880  0d 45 42 1f dd 20 f2 68  65 61 64 65 72 28 71 75  |.EB.. .header(qu|
00009890  61 72 74 25 2c 71 75 61  72 74 65 72 73 25 29 0d  |art%,quarters%).|
000098a0  45 4c 08 ea 20 61 24 0d  45 56 13 e7 20 71 75 61  |EL.. a$.EV.. qua|
000098b0  72 74 65 72 73 25 3d 31  20 8c 0d 45 60 0d 20 20  |rters%=1 ..E`.  |
000098c0  73 79 25 3d 31 30 30 0d  45 6a 07 20 20 e1 0d 45  |sy%=100.Ej.  ..E|
000098d0  74 05 cd 0d 45 7e 09 73  79 25 3d 30 0d 45 88 12  |t...E~.sy%=0.E..|
000098e0  c8 8e 20 71 75 61 72 74  65 72 73 25 20 ca 0d 45  |.. quarters% ..E|
000098f0  92 0a 20 20 c9 20 32 3a  0d 45 9c 35 20 20 20 20  |..  . 2:.E.5    |
00009900  e7 20 71 75 61 72 74 25  3d 31 20 8c 20 61 24 3d  |. quart%=1 . a$=|
00009910  22 54 4f 50 20 48 41 4c  46 22 20 8b 20 61 24 3d  |"TOP HALF" . a$=|
00009920  22 42 4f 54 54 4f 4d 20  48 41 4c 46 22 0d 45 a6  |"BOTTOM HALF".E.|
00009930  0a 20 20 c9 20 34 3a 0d  45 b0 13 20 20 20 20 c8  |.  . 4:.E..    .|
00009940  8e 20 71 75 61 72 74 25  20 ca 0d 45 ba 16 20 20  |. quart% ..E..  |
00009950  20 20 20 20 c9 20 31 3a  61 24 3d 22 31 73 74 22  |    . 1:a$="1st"|
00009960  0d 45 c4 16 20 20 20 20  20 20 c9 20 32 3a 61 24  |.E..      . 2:a$|
00009970  3d 22 32 6e 64 22 0d 45  ce 16 20 20 20 20 20 20  |="2nd".E..      |
00009980  c9 20 33 3a 61 24 3d 22  33 72 64 22 0d 45 d8 16  |. 3:a$="3rd".E..|
00009990  20 20 20 20 20 20 c9 20  34 3a 61 24 3d 22 34 74  |      . 4:a$="4t|
000099a0  68 22 0d 45 e2 09 20 20  20 20 cb 0d 45 ec 16 20  |h".E..    ..E.. |
000099b0  20 20 20 61 24 2b 3d 22  20 51 55 41 52 54 45 52  |   a$+=" QUARTER|
000099c0  22 0d 45 f6 05 cb 0d 46  00 19 c8 99 20 22 46 6f  |".E....F.... "Fo|
000099d0  6e 74 5f 53 65 74 46 6f  6e 74 22 2c 66 32 25 0d  |nt_SetFont",f2%.|
000099e0  46 0a 23 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |F.#.. "Font_Pain|
000099f0  74 22 2c 2c 61 24 2c 31  36 2c 62 78 25 2c 31 37  |t",,a$,16,bx%,17|
00009a00  35 30 0d 46 14 05 e1 0d  46 1e 05 3a 0d 46 28 0e  |50.F....F..:.F(.|
00009a10  dd 20 f2 64 6f 75 62 6c  65 73 0d 46 32 10 ea 20  |. .doubles.F2.. |
00009a20  6e 25 2c 6d 25 2c 74 6f  74 25 0d 46 3c 0e e3 20  |n%,m%,tot%.F<.. |
00009a30  6e 25 3d 31 b8 31 32 38  0d 46 46 13 20 20 64 72  |n%=1.128.FF.  dr|
00009a40  61 77 70 6f 73 25 3f 6e  25 3d 30 0d 46 50 05 ed  |awpos%?n%=0.FP..|
00009a50  0d 46 5a 0f f2 61 64 64  5f 65 78 74 72 61 73 0d  |.FZ..add_extras.|
00009a60  46 64 1e e3 20 6e 25 3d  31 b8 74 6f 74 6e 61 6d  |Fd.. n%=1.totnam|
00009a70  65 73 25 2b 74 6f 74 73  65 65 64 73 25 0d 46 6e  |es%+totseeds%.Fn|
00009a80  1c 20 20 64 6f 75 62 6c  65 24 28 6e 25 29 3d 6e  |.  double$(n%)=n|
00009a90  61 6d 65 73 24 28 6e 25  29 0d 46 78 14 20 20 64  |ames$(n%).Fx.  d|
00009aa0  6f 75 62 6c 65 25 28 6e  25 29 3d 6e 25 0d 46 82  |ouble%(n%)=n%.F.|
00009ab0  05 ed 0d 46 8c 1c 74 6f  74 25 3d 74 6f 74 6e 61  |...F..tot%=totna|
00009ac0  6d 65 73 25 2b 74 6f 74  73 65 65 64 73 25 0d 46  |mes%+totseeds%.F|
00009ad0  96 14 e7 20 28 74 6f 74  25 20 80 20 31 29 3d 31  |... (tot% . 1)=1|
00009ae0  20 8c 0d 46 a0 21 20 20  64 6f 75 62 6c 65 24 28  | ..F.!  double$(|
00009af0  74 6f 74 25 2b 31 29 3d  22 41 2e 4e 2e 4f 74 68  |tot%+1)="A.N.Oth|
00009b00  65 72 22 0d 46 aa 1c 20  20 64 6f 75 62 6c 65 25  |er".F..  double%|
00009b10  28 74 6f 74 25 2b 31 29  3d 74 6f 74 25 2b 31 0d  |(tot%+1)=tot%+1.|
00009b20  46 b4 0d 20 20 74 6f 74  25 2b 3d 31 0d 46 be 05  |F..  tot%+=1.F..|
00009b30  cd 0d 46 c8 0f e3 20 6e  25 3d 31 b8 74 6f 74 25  |..F... n%=1.tot%|
00009b40  0d 46 d2 10 20 20 6d 25  3d b3 28 74 6f 74 25 29  |.F..  m%=.(tot%)|
00009b50  0d 46 dc 20 20 20 c8 94  20 64 6f 75 62 6c 65 24  |.F.   .. double$|
00009b60  28 6e 25 29 2c 64 6f 75  62 6c 65 24 28 6d 25 29  |(n%),double$(m%)|
00009b70  0d 46 e6 20 20 20 c8 94  20 64 6f 75 62 6c 65 25  |.F.   .. double%|
00009b80  28 6e 25 29 2c 64 6f 75  62 6c 65 25 28 6d 25 29  |(n%),double%(m%)|
00009b90  0d 46 f0 05 ed 0d 46 fa  11 e3 20 6e 25 3d 31 b8  |.F....F... n%=1.|
00009ba0  74 6f 74 25 2f 32 0d 47  04 39 20 20 64 6f 75 62  |tot%/2.G.9  doub|
00009bb0  6c 65 24 28 6e 25 29 3d  22 20 22 2b 64 6f 75 62  |le$(n%)=" "+doub|
00009bc0  6c 65 24 28 6e 25 2a 32  2d 31 29 2b 22 20 26 20  |le$(n%*2-1)+" & |
00009bd0  22 2b 64 6f 75 62 6c 65  24 28 6e 25 2a 32 29 0d  |"+double$(n%*2).|
00009be0  47 0e 33 20 20 64 6f 75  62 6c 65 25 28 6e 25 29  |G.3  double%(n%)|
00009bf0  3d 64 6f 75 62 6c 65 25  28 6e 25 2a 32 2d 31 29  |=double%(n%*2-1)|
00009c00  2a 32 35 36 2b 64 6f 75  62 6c 65 25 28 6e 25 2a  |*256+double%(n%*|
00009c10  32 29 0d 47 18 05 ed 0d  47 22 0e 64 6f 75 62 6c  |2).G....G".doubl|
00009c20  65 73 25 3d b9 0d 47 2c  0f 70 65 72 5f 74 65 61  |es%=..G,.per_tea|
00009c30  6d 25 3d 30 0d 47 36 0c  74 65 61 6d 73 25 3d 30  |m%=0.G6.teams%=0|
00009c40  0d 47 40 11 f2 73 65 74  5f 71 75 61 72 74 65 72  |.G@..set_quarter|
00009c50  73 0d 47 4a 22 74 6f 74  5f 64 72 61 77 25 3d 71  |s.GJ"tot_draw%=q|
00009c60  75 61 72 74 65 72 73 25  2a 70 65 72 5f 71 75 61  |uarters%*per_qua|
00009c70  72 74 25 0d 47 54 0f 74  6f 74 25 3d 74 6f 74 25  |rt%.GT.tot%=tot%|
00009c80  2f 32 0d 47 5e 17 e3 20  6e 25 3d 31 b8 74 6f 74  |/2.G^.. n%=1.tot|
00009c90  5f 64 72 61 77 25 88 20  32 0d 47 68 07 20 20 f5  |_draw%. 2.Gh.  .|
00009ca0  0d 47 72 12 20 20 20 20  6d 25 3d b3 28 74 6f 74  |.Gr.    m%=.(tot|
00009cb0  25 29 0d 47 7c 17 20 20  fd 20 64 6f 75 62 6c 65  |%).G|.  . double|
00009cc0  24 28 6d 25 29 3c 3e 22  22 0d 47 86 1b 20 20 64  |$(m%)<>"".G..  d|
00009cd0  72 61 77 24 28 6e 25 29  3d 64 6f 75 62 6c 65 24  |raw$(n%)=double$|
00009ce0  28 6d 25 29 0d 47 90 28  20 20 64 72 61 77 70 6f  |(m%).G.(  drawpo|
00009cf0  73 25 3f 28 6e 25 2a 32  2d 31 29 3d 64 6f 75 62  |s%?(n%*2-1)=doub|
00009d00  6c 65 25 28 6d 25 29 81  20 32 35 36 0d 47 9a 26  |le%(m%). 256.G.&|
00009d10  20 20 64 72 61 77 70 6f  73 25 3f 28 6e 25 2a 32  |  drawpos%?(n%*2|
00009d20  29 3d 64 6f 75 62 6c 65  25 28 6d 25 29 83 20 32  |)=double%(m%). 2|
00009d30  35 36 0d 47 a4 14 20 20  64 6f 75 62 6c 65 24 28  |56.G..  double$(|
00009d40  6d 25 29 3d 22 22 0d 47  ae 05 ed 0d 47 b8 0f e3  |m%)="".G....G...|
00009d50  20 6e 25 3d 31 b8 74 6f  74 25 0d 47 c2 19 20 20  | n%=1.tot%.G..  |
00009d60  e7 20 64 6f 75 62 6c 65  24 28 6e 25 29 3c 3e 22  |. double$(n%)<>"|
00009d70  22 20 8c 0d 47 cc 09 20  20 20 20 f5 0d 47 d6 25  |" ..G..    ..G.%|
00009d80  20 20 20 20 20 20 6d 25  3d b3 28 74 6f 74 5f 64  |      m%=.(tot_d|
00009d90  72 61 77 25 29 20 80 20  25 31 31 31 31 31 31 31  |raw%) . %1111111|
00009da0  30 0d 47 e0 1a 20 20 20  20 fd 20 64 72 61 77 24  |0.G..    . draw$|
00009db0  28 6d 25 29 3d 22 20 62  79 65 22 0d 47 ea 1d 20  |(m%)=" bye".G.. |
00009dc0  20 20 20 64 72 61 77 24  28 6d 25 29 3d 64 6f 75  |   draw$(m%)=dou|
00009dd0  62 6c 65 24 28 6e 25 29  0d 47 f4 2a 20 20 20 20  |ble$(n%).G.*    |
00009de0  64 72 61 77 70 6f 73 25  3f 28 6d 25 2a 32 2d 31  |drawpos%?(m%*2-1|
00009df0  29 3d 64 6f 75 62 6c 65  25 28 6e 25 29 81 20 32  |)=double%(n%). 2|
00009e00  35 36 0d 47 fe 28 20 20  20 20 64 72 61 77 70 6f  |56.G.(    drawpo|
00009e10  73 25 3f 28 6d 25 2a 32  29 3d 64 6f 75 62 6c 65  |s%?(m%*2)=double|
00009e20  25 28 6e 25 29 83 20 32  35 36 0d 48 08 16 20 20  |%(n%). 256.H..  |
00009e30  20 20 64 6f 75 62 6c 65  24 28 6e 25 29 3d 22 22  |  double$(n%)=""|
00009e40  0d 48 12 07 20 20 cd 0d  48 1c 05 ed 0d 48 26 0e  |.H..  ..H....H&.|
00009e50  f2 73 68 6f 77 5f 64 72  61 77 0d 48 30 0e 61 6c  |.show_draw.H0.al|
00009e60  74 65 72 65 64 25 3d b9  0d 48 3a 05 e1 0d 48 44  |tered%=..H:...HD|
00009e70  05 3a 0d 48 4e 17 dd 20  f2 64 72 61 77 5f 74 65  |.:.HN.. .draw_te|
00009e80  61 6d 5f 77 69 6e 64 6f  77 0d 48 58 08 ea 20 6e  |am_window.HX.. n|
00009e90  25 0d 48 62 12 e3 20 6e  25 3d 31 b8 20 74 65 61  |%.Hb.. n%=1. tea|
00009ea0  6d 73 25 0d 48 6c 14 20  20 f2 64 72 61 77 5f 74  |ms%.Hl.  .draw_t|
00009eb0  65 61 6d 28 6e 25 29 0d  48 76 05 ed 0d 48 80 05  |eam(n%).Hv...H..|
00009ec0  e1 0d 48 8a 05 3a 0d 48  94 14 dd 20 f2 64 72 61  |..H..:.H... .dra|
00009ed0  77 5f 74 65 61 6d 28 74  25 29 0d 48 9e 0e ea 20  |w_team(t%).H... |
00009ee0  78 25 2c 79 25 2c 70 25  0d 48 a8 1f 78 25 3d 6f  |x%,y%,p%.H..x%=o|
00009ef0  78 25 2b 31 39 2a 31 36  2a 28 28 74 25 2d 31 29  |x%+19*16*((t%-1)|
00009f00  83 20 34 29 2b 31 36 0d  48 b2 2a 79 25 3d 6f 79  |. 4)+16.H.*y%=oy|
00009f10  25 2d 33 32 2a 28 28 74  25 2d 31 29 81 20 34 29  |%-32*((t%-1). 4)|
00009f20  2a 28 70 65 72 5f 74 65  61 6d 25 2b 33 29 2d 33  |*(per_team%+3)-3|
00009f30  32 0d 48 bc 19 c8 99 20  22 57 69 6d 70 5f 53 65  |2.H.... "Wimp_Se|
00009f40  74 43 6f 6c 6f 75 72 22  2c 37 0d 48 c6 18 ec 20  |tColour",7.H... |
00009f50  78 25 2c 79 25 3a f1 20  22 54 45 41 4d 20 22 c3  |x%,y%:. "TEAM ".|
00009f60  6e 25 0d 48 d0 24 ec 20  78 25 2c 79 25 2d 33 32  |n%.H.$. x%,y%-32|
00009f70  3a f0 20 31 2c 31 36 2a  28 35 2b a9 28 c3 28 6e  |:. 1,16*(5+.(.(n|
00009f80  25 29 29 29 2c 30 0d 48  da 14 e3 20 70 25 3d 31  |%))),0.H... p%=1|
00009f90  b8 70 65 72 5f 74 65 61  6d 25 0d 48 e4 17 20 20  |.per_team%.H..  |
00009fa0  ec 20 78 25 2c 79 25 2d  33 32 2a 28 70 25 2b 31  |. x%,y%-32*(p%+1|
00009fb0  29 0d 48 ee 16 20 20 f1  20 a4 70 6c 61 79 65 72  |).H..  . .player|
00009fc0  28 74 25 2c 70 25 29 0d  48 f8 05 ed 0d 49 02 05  |(t%,p%).H....I..|
00009fd0  e1 0d 49 0c 05 3a 0d 49  16 1c dd 20 a4 70 6c 61  |..I..:.I... .pla|
00009fe0  79 65 72 28 74 65 61 6d  25 2c 70 6c 61 79 65 72  |yer(team%,player|
00009ff0  25 29 0d 49 20 08 ea 20  6e 25 0d 49 2a 22 6e 25  |%).I .. n%.I*"n%|
0000a000  3d 28 74 65 61 6d 25 2d  31 29 2a 70 65 72 5f 74  |=(team%-1)*per_t|
0000a010  65 61 6d 25 2b 70 6c 61  79 65 72 25 0d 49 34 1e  |eam%+player%.I4.|
0000a020  e7 20 6e 25 3c 3d 28 74  65 61 6d 73 25 2a 70 65  |. n%<=(teams%*pe|
0000a030  72 5f 74 65 61 6d 25 29  20 8c 0d 49 3e 19 20 20  |r_team%) ..I>.  |
0000a040  e7 20 97 28 64 72 61 77  24 28 6e 25 29 29 3c 33  |. .(draw$(n%))<3|
0000a050  32 20 8c 0d 49 48 1e 20  20 20 20 c8 99 20 22 57  |2 ..IH.    .. "W|
0000a060  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 31  |imp_SetColour",1|
0000a070  31 0d 49 52 07 20 20 cc  0d 49 5c 1d 20 20 20 20  |1.IR.  ..I\.    |
0000a080  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
0000a090  75 72 22 2c 37 0d 49 66  07 20 20 cd 0d 49 70 14  |ur",7.If.  ..Ip.|
0000a0a0  20 20 3d c1 64 72 61 77  24 28 6e 25 29 2c 32 29  |  =.draw$(n%),2)|
0000a0b0  0d 49 7a 05 cc 0d 49 84  09 20 20 3d 22 22 0d 49  |.Iz...I..  ="".I|
0000a0c0  8e 05 cd 0d 49 98 05 3a  0d 49 a2 0c dd 20 f2 74  |....I..:.I... .t|
0000a0d0  65 61 6d 73 0d 49 ac 0b  ea 20 70 25 2c 74 25 0d  |eams.I... p%,t%.|
0000a0e0  49 b6 13 70 25 3d bb 28  24 70 6c 61 79 65 72 73  |I..p%=.($players|
0000a0f0  25 29 0d 49 c0 0e e7 20  70 25 3d 30 20 8c 20 e1  |%).I... p%=0 . .|
0000a100  0d 49 ca 27 74 25 3d 28  28 74 6f 74 6e 61 6d 65  |.I.'t%=((totname|
0000a110  73 25 2b 74 6f 74 73 65  65 64 73 25 2d 31 29 20  |s%+totseeds%-1) |
0000a120  81 20 70 25 29 2b 31 0d  49 d4 39 e7 20 70 25 3e  |. p%)+1.I.9. p%>|
0000a130  28 74 6f 74 6e 61 6d 65  73 25 2b 74 6f 74 73 65  |(totnames%+totse|
0000a140  65 64 73 25 29 20 8c 20  70 25 3d 28 74 6f 74 6e  |eds%) . p%=(totn|
0000a150  61 6d 65 73 25 2b 74 6f  74 73 65 65 64 73 25 29  |ames%+totseeds%)|
0000a160  0d 49 de 0d e7 20 74 25  3e 31 36 20 8c 0d 49 e8  |.I... t%>16 ..I.|
0000a170  2f 20 20 f2 72 65 70 6f  72 74 28 22 54 6f 6f 20  |/  .report("Too |
0000a180  6d 61 6e 79 20 74 65 61  6d 73 20 28 6d 61 78 69  |many teams (maxi|
0000a190  6d 75 6d 20 31 36 29 22  2c 31 36 29 0d 49 f2 07  |mum 16)",16).I..|
0000a1a0  20 20 e1 0d 49 fc 05 cd  0d 4a 06 0d e7 20 70 25  |  ..I....J... p%|
0000a1b0  3e 33 32 20 8c 0d 4a 10  3a 20 20 f2 72 65 70 6f  |>32 ..J.:  .repo|
0000a1c0  72 74 28 22 54 6f 6f 20  6d 61 6e 79 20 70 6c 61  |rt("Too many pla|
0000a1d0  79 65 72 73 20 70 65 72  20 74 65 61 6d 20 28 6d  |yers per team (m|
0000a1e0  61 78 69 6d 75 6d 20 33  32 29 22 2c 31 36 29 0d  |aximum 32)",16).|
0000a1f0  4a 1a 07 20 20 e1 0d 4a  24 05 cd 0d 4a 2e 0e e7  |J..  ..J$...J...|
0000a200  20 70 25 3d 30 20 8c 20  e1 0d 4a 38 10 f2 63 6c  | p%=0 . ..J8..cl|
0000a210  6f 73 65 5f 6d 65 6e 75  73 0d 4a 42 10 70 65 72  |ose_menus.JB.per|
0000a220  5f 74 65 61 6d 25 3d 70  25 0d 4a 4c 0d 74 65 61  |_team%=p%.JL.tea|
0000a230  6d 73 25 3d 74 25 0d 4a  56 0e 64 6f 75 62 6c 65  |ms%=t%.JV.double|
0000a240  73 25 3d a3 0d 4a 60 14  f2 6d 61 6b 65 5f 74 65  |s%=..J`..make_te|
0000a250  61 6d 73 5f 64 72 61 77  0d 4a 6a 10 64 72 61 77  |ams_draw.Jj.draw|
0000a260  5f 6d 61 64 65 25 3d b9  0d 4a 74 0f f2 73 68 6f  |_made%=..Jt..sho|
0000a270  77 5f 74 65 61 6d 73 0d  4a 7e 05 e1 0d 4a 88 05  |w_teams.J~...J..|
0000a280  3a 0d 4a 92 19 dd 20 f2  70 75 74 5f 73 65 65 64  |:.J... .put_seed|
0000a290  73 5f 69 6e 5f 74 65 61  6d 73 0d 4a 9c 15 e7 20  |s_in_teams.J... |
0000a2a0  74 6f 74 73 65 65 64 73  25 3d 30 20 8c 20 e1 0d  |totseeds%=0 . ..|
0000a2b0  4a a6 14 f4 20 50 52 4f  43 61 64 64 5f 65 78 74  |J... PROCadd_ext|
0000a2c0  72 61 73 0d 4a b0 13 ea  20 6e 25 2c 6d 25 2c 64  |ras.J... n%,m%,d|
0000a2d0  69 72 25 2c 70 25 0d 4a  ba 08 6d 25 3d 31 0d 4a  |ir%,p%.J..m%=1.J|
0000a2e0  c4 0a 64 69 72 25 3d 31  0d 4a ce 08 70 25 3d 30  |..dir%=1.J..p%=0|
0000a2f0  0d 4a d8 0e e3 20 6e 25  3d 31 b8 20 31 36 0d 4a  |.J... n%=1. 16.J|
0000a300  e2 1b 20 20 e7 20 73 65  65 64 5f 65 78 69 73 74  |..  . seed_exist|
0000a310  73 25 3f 6e 25 3d 31 20  8c 0d 4a ec 0c 20 20 20  |s%?n%=1 ..J..   |
0000a320  70 25 2b 3d 31 0d 4a f6  23 20 20 20 20 f2 70 75  |p%+=1.J.#    .pu|
0000a330  74 5f 73 65 65 64 5f 69  6e 5f 74 65 61 6d 28 6e  |t_seed_in_team(n|
0000a340  25 2c 6d 25 2c 70 25 29  0d 4b 00 1a 20 20 20 20  |%,m%,p%).K..    |
0000a350  6d 25 2b 3d 70 65 72 5f  74 65 61 6d 25 2a 64 69  |m%+=per_team%*di|
0000a360  72 25 0d 4b 0a 2a 20 20  20 20 e7 20 28 6d 25 3e  |r%.K.*    . (m%>|
0000a370  74 65 61 6d 73 25 2a 70  65 72 5f 74 65 61 6d 25  |teams%*per_team%|
0000a380  29 20 84 20 28 6d 25 3c  30 29 20 8c 0d 4b 14 14  |) . (m%<0) ..K..|
0000a390  20 20 20 20 20 20 64 69  72 25 3d 2d 64 69 72 25  |      dir%=-dir%|
0000a3a0  0d 4b 1e 1e 20 20 20 20  20 20 6d 25 2b 3d 70 65  |.K..      m%+=pe|
0000a3b0  72 5f 74 65 61 6d 25 2a  64 69 72 25 2b 31 0d 4b  |r_team%*dir%+1.K|
0000a3c0  28 09 20 20 20 20 cd 0d  4b 32 07 20 20 cd 0d 4b  |(.    ..K2.  ..K|
0000a3d0  3c 05 ed 0d 4b 46 05 e1  0d 4b 50 05 3a 0d 4b 5a  |<...KF...KP.:.KZ|
0000a3e0  21 dd 20 f2 70 75 74 5f  73 65 65 64 5f 69 6e 5f  |!. .put_seed_in_|
0000a3f0  74 65 61 6d 28 6e 25 2c  6d 25 2c 70 25 29 0d 4b  |team(n%,m%,p%).K|
0000a400  64 1e 64 72 61 77 70 6f  73 25 3f 28 70 25 2b 74  |d.drawpos%?(p%+t|
0000a410  6f 74 6e 61 6d 65 73 25  29 3d 6d 25 0d 4b 6e 30  |otnames%)=m%.Kn0|
0000a420  64 72 61 77 24 28 6d 25  29 3d bd 28 31 29 2b a4  |draw$(m%)=.(1)+.|
0000a430  6e 6f 73 70 61 63 65 28  24 28 73 65 65 64 73 25  |nospace($(seeds%|
0000a440  2b 31 39 2a 28 6e 25 2d  31 29 29 29 0d 4b 78 05  |+19*(n%-1))).Kx.|
0000a450  e1 0d 4b 82 05 3a 0d 4b  8c 16 dd 20 f2 6d 61 6b  |..K..:.K... .mak|
0000a460  65 5f 74 65 61 6d 73 5f  64 72 61 77 0d 4b 96 37  |e_teams_draw.K.7|
0000a470  ea 20 6e 25 2c 74 6f 74  25 2c 74 25 2c 70 25 2c  |. n%,tot%,t%,p%,|
0000a480  70 6f 73 25 2c 73 6f 70  25 2c 6d 69 6e 5f 70 65  |pos%,sop%,min_pe|
0000a490  72 5f 74 65 61 6d 25 2c  66 75 6c 6c 5f 74 65 61  |r_team%,full_tea|
0000a4a0  6d 73 25 0d 4b a0 0e e3  20 6e 25 3d 31 b8 31 32  |ms%.K... n%=1.12|
0000a4b0  38 0d 4b aa 17 20 20 64  72 61 77 24 28 6e 25 29  |8.K..  draw$(n%)|
0000a4c0  3d 22 2d 2d 2d 2d 2d 22  0d 4b b4 1b 20 20 64 72  |="-----".K..  dr|
0000a4d0  61 77 24 28 6e 25 2b 31  32 38 29 3d 22 2d 2d 2d  |aw$(n%+128)="---|
0000a4e0  2d 2d 22 0d 4b be 13 20  20 64 72 61 77 70 6f 73  |--".K..  drawpos|
0000a4f0  25 3f 6e 25 3d 30 0d 4b  c8 05 ed 0d 4b d2 1c 74  |%?n%=0.K....K..t|
0000a500  6f 74 25 3d 74 6f 74 6e  61 6d 65 73 25 2b 74 6f  |ot%=totnames%+to|
0000a510  74 73 65 65 64 73 25 0d  4b dc 1f 6d 69 6e 5f 70  |tseeds%.K..min_p|
0000a520  65 72 5f 74 65 61 6d 25  3d 74 6f 74 25 20 81 20  |er_team%=tot% . |
0000a530  74 65 61 6d 73 25 0d 4b  e6 2b 66 75 6c 6c 5f 74  |teams%.K.+full_t|
0000a540  65 61 6d 73 25 3d 28 74  6f 74 25 2d 6d 69 6e 5f  |eams%=(tot%-min_|
0000a550  70 65 72 5f 74 65 61 6d  25 2a 74 65 61 6d 73 25  |per_team%*teams%|
0000a560  29 0d 4b f0 17 f2 70 75  74 5f 73 65 65 64 73 5f  |).K...put_seeds_|
0000a570  69 6e 5f 74 65 61 6d 73  0d 4b fa 14 e3 20 70 25  |in_teams.K... p%|
0000a580  3d 31 b8 70 65 72 5f 74  65 61 6d 25 0d 4c 04 13  |=1.per_team%.L..|
0000a590  20 20 e3 20 74 25 3d 31  b8 74 65 61 6d 73 25 0d  |  . t%=1.teams%.|
0000a5a0  4c 0e 20 20 20 20 20 70  6f 73 25 3d 28 74 25 2d  |L.     pos%=(t%-|
0000a5b0  31 29 2a 70 65 72 5f 74  65 61 6d 25 2b 70 25 0d  |1)*per_team%+p%.|
0000a5c0  4c 18 5d 20 20 20 20 e7  20 28 70 25 3c 3d 6d 69  |L.]    . (p%<=mi|
0000a5d0  6e 5f 70 65 72 5f 74 65  61 6d 25 20 84 20 74 25  |n_per_team% . t%|
0000a5e0  3c 3d 66 75 6c 6c 5f 74  65 61 6d 73 25 20 80 20  |<=full_teams% . |
0000a5f0  70 25 3c 3d 6d 69 6e 5f  70 65 72 5f 74 65 61 6d  |p%<=min_per_team|
0000a600  25 2b 31 29 20 80 20 64  72 61 77 24 28 70 6f 73  |%+1) . draw$(pos|
0000a610  25 29 3d 22 2d 2d 2d 2d  2d 22 20 8c 0d 4c 22 19  |%)="-----" ..L".|
0000a620  20 20 20 20 20 20 6e 25  3d a4 72 61 6e 64 6f 6d  |      n%=.random|
0000a630  5f 64 72 61 77 0d 4c 2c  1a 20 20 20 20 20 20 64  |_draw.L,.      d|
0000a640  72 61 77 70 6f 73 25 3f  6e 25 3d 70 6f 73 25 0d  |rawpos%?n%=pos%.|
0000a650  4c 36 2e 20 20 20 20 20  20 64 72 61 77 24 28 70  |L6.      draw$(p|
0000a660  6f 73 25 29 3d 22 20 22  2b a4 6e 6f 73 70 61 63  |os%)=" "+.nospac|
0000a670  65 28 6e 61 6d 65 73 24  28 6e 25 29 29 0d 4c 40  |e(names$(n%)).L@|
0000a680  09 20 20 20 20 cd 0d 4c  4a 07 20 20 ed 0d 4c 54  |.    ..LJ.  ..LT|
0000a690  05 ed 0d 4c 5e 0e 61 6c  74 65 72 65 64 25 3d b9  |...L^.altered%=.|
0000a6a0  0d 4c 68 05 e1 0d 4c 72  05 3a 0d 4c 7c 12 dd 20  |.Lh...Lr.:.L|.. |
0000a6b0  a4 72 61 6e 64 6f 6d 5f  64 72 61 77 0d 4c 86 0b  |.random_draw.L..|
0000a6c0  ea 20 6e 25 2c 6d 25 0d  4c 90 13 6e 25 3d b3 28  |. n%,m%.L..n%=.(|
0000a6d0  74 6f 74 6e 61 6d 65 73  25 29 0d 4c 9a 09 6d 25  |totnames%).L..m%|
0000a6e0  3d 6e 25 0d 4c a4 05 f5  0d 4c ae 0b 20 20 6d 25  |=n%.L....L..  m%|
0000a6f0  2b 3d 31 0d 4c b8 16 20  20 e7 20 6d 25 3e 74 6f  |+=1.L..  . m%>to|
0000a700  74 25 20 8c 20 6d 25 3d  31 0d 4c c2 1c fd 20 64  |t% . m%=1.L... d|
0000a710  72 61 77 70 6f 73 25 3f  6d 25 3d 30 20 20 84 20  |rawpos%?m%=0  . |
0000a720  6d 25 3d 6e 25 0d 4c cc  26 e7 20 6d 25 3d 6e 25  |m%=n%.L.&. m%=n%|
0000a730  20 8c 20 85 20 31 32 33  34 20 43 61 6e 27 74 20  | . . 1234 Can't |
0000a740  46 69 6e 64 20 41 20 4e  61 6d 65 0d 4c d6 07 3d  |Find A Name.L..=|
0000a750  6d 25 0d 4c e0 05 3a 0d  4c ea 12 dd 20 a4 6e 6f  |m%.L..:.L... .no|
0000a760  73 70 61 63 65 28 61 24  29 0d 4c f4 18 c8 95 20  |space(a$).L.... |
0000a770  97 28 61 24 29 3c 33 33  20 80 20 61 24 3c 3e 22  |.(a$)<33 . a$<>"|
0000a780  22 0d 4c fe 0f 20 20 61  24 3d c1 61 24 2c 32 29  |".L..  a$=.a$,2)|
0000a790  0d 4d 08 05 ce 0d 4d 12  1c c8 95 20 97 28 c2 61  |.M....M.... .(.a|
0000a7a0  24 2c 31 29 29 3c 33 33  20 80 20 61 24 3c 3e 22  |$,1))<33 . a$<>"|
0000a7b0  22 0d 4d 1c 0d 20 20 61  24 3d c0 61 24 29 0d 4d  |".M..  a$=.a$).M|
0000a7c0  26 05 ce 0d 4d 30 07 3d  61 24 0d 4d 3a 05 3a 0d  |&...M0.=a$.M:.:.|
0000a7d0  4d 44 12 dd 20 f2 70 72  69 6e 74 5f 74 65 61 6d  |MD.. .print_team|
0000a7e0  73 0d 4d 4e 0b ea 20 74  25 2c 70 25 0d 4d 58 1e  |s.MN.. t%,p%.MX.|
0000a7f0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
0000a800  53 65 74 47 43 4f 4c 22  2c 30 0d 4d 62 32 c8 99  |SetGCOL",0.Mb2..|
0000a810  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
0000a820  74 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 2c 26  |tFontColours",,&|
0000a830  46 46 46 46 46 46 30 30  2c 30 2c 37 0d 4d 6c 0f  |FFFFFF00,0,7.Ml.|
0000a840  f2 74 69 74 6c 65 28 31  30 30 29 0d 4d 76 11 e3  |.title(100).Mv..|
0000a850  20 74 25 3d 31 b8 74 65  61 6d 73 25 0d 4d 80 1b  | t%=1.teams%.M..|
0000a860  20 20 f2 70 72 69 6e 74  5f 74 65 61 6d 28 74 25  |  .print_team(t%|
0000a870  2c 6c 6f 67 79 25 29 0d  4d 8a 05 ed 0d 4d 94 05  |,logy%).M....M..|
0000a880  e1 0d 4d 9e 05 3a 0d 4d  a8 1d dd 20 f2 70 72 69  |..M..:.M... .pri|
0000a890  6e 74 5f 74 65 61 6d 28  74 25 2c f8 20 6c 6f 67  |nt_team(t%,. log|
0000a8a0  79 25 29 0d 4d b2 11 ea  20 78 25 2c 79 25 2c 61  |y%).M... x%,y%,a|
0000a8b0  24 2c 70 25 0d 4d bc 09  74 25 2d 3d 31 0d 4d c6  |$,p%.M..t%-=1.M.|
0000a8c0  17 78 25 3d 28 74 25 20  83 20 34 29 2a 33 30 30  |.x%=(t% . 4)*300|
0000a8d0  2b 31 30 30 0d 4d d0 25  79 25 3d 31 37 33 30 2d  |+100.M.%y%=1730-|
0000a8e0  33 32 2a 28 70 65 72 5f  74 65 61 6d 25 2b 33 29  |32*(per_team%+3)|
0000a8f0  2a 28 74 25 20 81 20 34  29 0d 4d da 09 74 25 2b  |*(t% . 4).M..t%+|
0000a900  3d 31 0d 4d e4 12 61 24  3d 22 54 45 41 4d 20 22  |=1.M..a$="TEAM "|
0000a910  2b c3 74 25 0d 4d ee 19  c8 99 20 22 46 6f 6e 74  |+.t%.M.... "Font|
0000a920  5f 53 65 74 46 6f 6e 74  22 2c 66 32 25 0d 4d f8  |_SetFont",f2%.M.|
0000a930  20 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  | .. "Font_Paint"|
0000a940  2c 2c 61 24 2c 31 36 2c  78 25 2c 79 25 0d 4e 02  |,,a$,16,x%,y%.N.|
0000a950  19 c8 99 20 22 46 6f 6e  74 5f 53 65 74 46 6f 6e  |... "Font_SetFon|
0000a960  74 22 2c 66 31 25 0d 4e  0c 15 e3 20 70 25 3d 31  |t",f1%.N... p%=1|
0000a970  b8 20 70 65 72 5f 74 65  61 6d 25 0d 4e 16 17 20  |. per_team%.N.. |
0000a980  20 61 24 3d a4 70 6c 61  79 65 72 28 74 25 2c 70  | a$=.player(t%,p|
0000a990  25 29 0d 4e 20 2b 20 20  c8 99 20 22 46 6f 6e 74  |%).N +  .. "Font|
0000a9a0  5f 50 61 69 6e 74 22 2c  2c 61 24 2c 31 36 2c 78  |_Paint",,a$,16,x|
0000a9b0  25 2c 79 25 2d 33 32 2a  70 25 2d 31 36 0d 4e 2a  |%,y%-32*p%-16.N*|
0000a9c0  17 20 20 6c 6f 67 79 25  3d 79 25 2d 33 36 2a 70  |.  logy%=y%-36*p|
0000a9d0  25 2d 31 36 0d 4e 34 05  ed 0d 4e 3e 05 e1 0d 4e  |%-16.N4...N>...N|
0000a9e0  48 05 3a 0d 4e 52 13 dd  20 f2 70 72 69 6e 74 5f  |H.:.NR.. .print_|
0000a9f0  64 69 72 65 63 74 0d 4e  5c 14 e7 20 64 72 61 77  |direct.N\.. draw|
0000aa00  5f 6d 61 64 65 25 3d a3  20 8c 0d 4e 66 24 20 20  |_made%=. ..Nf$  |
0000aa10  f2 72 65 70 6f 72 74 28  22 4e 6f 20 64 72 61 77  |.report("No draw|
0000aa20  20 74 6f 20 70 72 69 6e  74 22 2c 31 36 29 0d 4e  | to print",16).N|
0000aa30  70 07 20 20 e1 0d 4e 7a  05 cd 0d 4e 84 14 e7 20  |p.  ..Nz...N... |
0000aa40  70 65 72 5f 74 65 61 6d  25 3c 3e 30 20 8c 0d 4e  |per_team%<>0 ..N|
0000aa50  8e 10 20 20 73 75 62 6f  70 74 32 25 3d 30 0d 4e  |..  subopt2%=0.N|
0000aa60  98 11 20 20 f2 70 72 69  6e 74 5f 64 72 61 77 0d  |..  .print_draw.|
0000aa70  4e a2 07 20 20 e1 0d 4e  ac 05 cd 0d 4e b6 0e 73  |N..  ..N....N..s|
0000aa80  75 62 6f 70 74 32 25 3d  30 0d 4e c0 0f f2 70 72  |ubopt2%=0.N...pr|
0000aa90  69 6e 74 5f 64 72 61 77  0d 4e ca 05 e1 0d 4e d4  |int_draw.N....N.|
0000aaa0  05 3a 0d 4e de 1a 20 dd  20 f2 64 72 61 77 66 69  |.:.N.. . .drawfi|
0000aab0  6c 65 5f 73 74 61 72 74  28 44 24 29 0d 4e e8 0d  |le_start(D$).N..|
0000aac0  20 63 25 3d ae 28 44 24  29 0d 4e f2 12 20 24 64  | c%=.(D$).N.. $d|
0000aad0  72 61 77 66 69 6c 65 25  3d 44 24 0d 4e fc 15 20  |rawfile%=D$.N.. |
0000aae0  64 72 61 77 66 69 6c 65  5f 6f 70 65 6e 25 3d b9  |drawfile_open%=.|
0000aaf0  0d 4f 06 2d 20 e7 20 63  25 3d 30 20 8c 20 85 20  |.O.- . c%=0 . . |
0000ab00  31 32 33 34 2c 22 43 61  6e 27 74 20 6f 70 65 6e  |1234,"Can't open|
0000ab10  20 6f 75 74 70 75 74 20  66 69 6c 65 22 0d 4f 10  | output file".O.|
0000ab20  11 20 64 72 61 77 66 69  6c 65 24 3d 44 24 0d 4f  |. drawfile$=D$.O|
0000ab30  1a 29 20 f2 70 75 74 77  28 26 37 37 36 31 37 32  |.) .putw(&776172|
0000ab40  34 34 29 3a f2 70 75 74  77 28 32 30 31 29 3a f2  |44):.putw(201):.|
0000ab50  70 75 74 77 28 30 29 0d  4f 24 18 20 f2 70 75 74  |putw(0).O$. .put|
0000ab60  73 31 32 28 22 43 6f 6d  70 44 72 61 77 22 29 0d  |s12("CompDraw").|
0000ab70  4f 2e 0c 20 6c 65 76 25  3d 2d 31 0d 4f 38 12 20  |O.. lev%=-1.O8. |
0000ab80  f2 68 65 61 64 5f 68 65  72 65 28 b9 29 0d 4f 42  |.head_here(.).OB|
0000ab90  06 20 e1 0d 4f 4c 06 20  3a 0d 4f 56 14 20 dd 20  |. ..OL. :.OV. . |
0000aba0  f2 64 72 61 77 66 69 6c  65 5f 65 6e 64 0d 4f 60  |.drawfile_end.O`|
0000abb0  0e 20 f2 68 65 61 64 5f  6e 6f 77 0d 4f 6a 0e 20  |. .head_now.Oj. |
0000abc0  d9 23 63 25 3a 63 25 3d  30 0d 4f 74 15 20 64 72  |.#c%:c%=0.Ot. dr|
0000abd0  61 77 66 69 6c 65 5f 6f  70 65 6e 25 3d a3 0d 4f  |awfile_open%=..O|
0000abe0  7e 23 20 ff 28 22 53 65  74 54 79 70 65 20 22 2b  |~# .("SetType "+|
0000abf0  64 72 61 77 66 69 6c 65  24 2b 22 20 41 46 46 22  |drawfile$+" AFF"|
0000ac00  29 0d 4f 88 06 20 e1 0d  4f 92 06 20 3a 0d 4f 9c  |).O.. ..O.. :.O.|
0000ac10  2c 20 dd 20 f2 70 61 74  68 5f 73 74 61 72 74 28  |, . .path_start(|
0000ac20  78 25 2c 79 25 2c 77 69  64 74 68 25 2c 6c 63 6f  |x%,y%,width%,lco|
0000ac30  6c 25 2c 66 63 6f 6c 25  29 0d 4f a6 0d 20 f2 70  |l%,fcol%).O.. .p|
0000ac40  75 74 77 28 32 29 0d 4f  b0 12 20 f2 68 65 61 64  |utw(2).O.. .head|
0000ac50  5f 68 65 72 65 28 b9 29  0d 4f ba 18 20 f2 70 75  |_here(.).O.. .pu|
0000ac60  74 77 28 66 63 6f 6c 25  29 3a f4 20 66 69 6c 6c  |tw(fcol%):. fill|
0000ac70  0d 4f c4 1f 20 f2 70 75  74 77 28 6c 63 6f 6c 25  |.O.. .putw(lcol%|
0000ac80  29 3a f4 20 6c 69 6e 65  20 63 6f 6c 6f 75 72 0d  |):. line colour.|
0000ac90  4f ce 1f 20 f2 70 75 74  77 28 77 69 64 74 68 25  |O.. .putw(width%|
0000aca0  29 3a f4 20 6c 69 6e 65  20 77 69 64 74 68 0d 4f  |):. line width.O|
0000acb0  d8 1a 20 f2 70 75 74 77  28 30 29 3a f4 20 70 61  |.. .putw(0):. pa|
0000acc0  74 68 20 73 74 79 6c 65  0d 4f e2 16 20 f2 70 61  |th style.O.. .pa|
0000acd0  74 68 5f 6d 6f 76 65 28  78 25 2c 79 25 29 0d 4f  |th_move(x%,y%).O|
0000ace0  ec 06 20 e1 0d 4f f6 06  20 3a 0d 50 00 18 20 dd  |.. ..O.. :.P.. .|
0000acf0  20 f2 70 61 74 68 5f 6d  6f 76 65 28 78 25 2c 79  | .path_move(x%,y|
0000ad00  25 29 0d 50 0a 0d 20 f2  70 75 74 77 28 32 29 0d  |%).P.. .putw(2).|
0000ad10  50 14 12 20 f2 70 75 74  78 79 28 78 25 2c 79 25  |P.. .putxy(x%,y%|
0000ad20  29 0d 50 1e 06 20 e1 0d  50 28 06 20 3a 0d 50 32  |).P.. ..P(. :.P2|
0000ad30  18 20 dd 20 f2 70 61 74  68 5f 64 72 61 77 28 78  |. . .path_draw(x|
0000ad40  25 2c 79 25 29 0d 50 3c  0d 20 f2 70 75 74 77 28  |%,y%).P<. .putw(|
0000ad50  38 29 0d 50 46 12 20 f2  70 75 74 78 79 28 78 25  |8).PF. .putxy(x%|
0000ad60  2c 79 25 29 0d 50 50 06  20 e1 0d 50 5a 06 20 3a  |,y%).PP. ..PZ. :|
0000ad70  0d 50 64 06 20 3a 0d 50  6e 10 20 dd 20 f2 70 61  |.Pd. :.Pn. . .pa|
0000ad80  74 68 5f 65 6e 64 0d 50  78 0d 20 f2 70 75 74 77  |th_end.Px. .putw|
0000ad90  28 30 29 0d 50 82 0e 20  f2 68 65 61 64 5f 6e 6f  |(0).P.. .head_no|
0000ada0  77 0d 50 8c 06 20 e1 0d  50 96 06 20 3a 0d 50 a0  |w.P.. ..P.. :.P.|
0000adb0  13 20 dd 20 f2 67 72 6f  75 70 5f 73 74 61 72 74  |. . .group_start|
0000adc0  0d 50 aa 2e 20 f4 20 67  72 6f 75 70 73 20 63 61  |.P.. . groups ca|
0000add0  6e 6e 6f 74 20 62 65 20  6e 65 73 74 65 64 20 69  |nnot be nested i|
0000ade0  6e 20 74 68 69 73 20 76  65 72 73 69 6f 6e 0d 50  |n this version.P|
0000adf0  b4 0d 20 f2 70 75 74 77  28 36 29 0d 50 be 12 20  |.. .putw(6).P.. |
0000ae00  f2 68 65 61 64 5f 68 65  72 65 28 b9 29 0d 50 c8  |.head_here(.).P.|
0000ae10  15 20 f2 70 75 74 73 31  32 28 22 67 72 6f 75 70  |. .puts12("group|
0000ae20  22 29 0d 50 d2 06 20 e1  0d 50 dc 06 20 3a 0d 50  |").P.. ..P.. :.P|
0000ae30  e6 11 20 dd 20 f2 67 72  6f 75 70 5f 65 6e 64 0d  |.. . .group_end.|
0000ae40  50 f0 0e 20 f2 68 65 61  64 5f 6e 6f 77 0d 50 fa  |P.. .head_now.P.|
0000ae50  06 20 e1 0d 51 04 06 20  3a 0d 51 0e 11 20 dd 20  |. ..Q.. :.Q.. . |
0000ae60  f2 66 6f 6e 74 74 61 62  6c 65 0d 51 18 12 20 ea  |.fonttable.Q.. .|
0000ae70  20 66 6f 6e 74 25 2c 66  6f 6e 74 24 0d 51 22 09  | font%,font$.Q".|
0000ae80  20 f7 20 2b 30 0d 51 2c  17 20 dc 20 31 2c 54 72  | . +0.Q,. . 1,Tr|
0000ae90  69 6e 69 74 79 2e 4d 65  64 69 75 6d 0d 51 36 15  |inity.Medium.Q6.|
0000aea0  20 dc 20 32 2c 54 72 69  6e 69 74 79 2e 42 6f 6c  | . 2,Trinity.Bol|
0000aeb0  64 0d 51 40 0c 20 dc 20  30 2c 45 4e 44 0d 51 4a  |d.Q@. . 0,END.QJ|
0000aec0  12 20 f3 20 66 6f 6e 74  25 2c 66 6f 6e 74 24 0d  |. . font%,font$.|
0000aed0  51 54 16 20 e7 20 66 6f  6e 74 24 3d 22 45 4e 44  |QT. . font$="END|
0000aee0  22 20 8c 20 e1 0d 51 5e  0d 20 f2 70 75 74 77 28  |" . ..Q^. .putw(|
0000aef0  30 29 0d 51 68 12 20 f2  68 65 61 64 5f 68 65 72  |0).Qh. .head_her|
0000af00  65 28 a3 29 0d 51 72 06  20 f5 0d 51 7c 1c 20 20  |e(.).Qr. ..Q|.  |
0000af10  20 f2 70 75 74 73 28 bd  28 66 6f 6e 74 25 29 2b  | .puts(.(font%)+|
0000af20  66 6f 6e 74 24 29 0d 51  86 14 20 20 20 f3 20 66  |font$).Q..   . f|
0000af30  6f 6e 74 25 2c 66 6f 6e  74 24 0d 51 90 12 20 fd  |ont%,font$.Q.. .|
0000af40  20 66 6f 6e 74 24 3d 22  45 4e 44 22 0d 51 9a 0b  | font$="END".Q..|
0000af50  20 f2 61 6c 69 67 6e 0d  51 a4 0e 20 f2 68 65 61  | .align.Q.. .hea|
0000af60  64 5f 6e 6f 77 0d 51 ae  06 20 e1 0d 51 b8 06 20  |d_now.Q.. ..Q.. |
0000af70  3a 0d 51 c2 3d 20 dd 20  f2 74 65 78 74 28 78 25  |:.Q.= . .text(x%|
0000af80  2c 79 25 2c 74 65 78 74  24 2c 78 73 69 7a 65 2c  |,y%,text$,xsize,|
0000af90  79 73 69 7a 65 2c 66 6f  6e 74 25 2c 63 6f 6c 25  |ysize,font%,col%|
0000afa0  2c 62 63 6f 6c 25 2c 75  6c 69 6e 65 25 29 0d 51  |,bcol%,uline%).Q|
0000afb0  cc 1a 20 74 65 78 74 24  3d a4 6e 6f 73 70 61 63  |.. text$=.nospac|
0000afc0  65 28 74 65 78 74 24 29  0d 51 d6 13 20 e7 20 74  |e(text$).Q.. . t|
0000afd0  65 78 74 24 3d 22 22 20  8c 20 e1 0d 51 e0 0e 20  |ext$="" . ..Q.. |
0000afe0  ea 20 6c 65 6e 2c 73 63  78 0d 51 ea 0d 20 f2 70  |. len,scx.Q.. .p|
0000aff0  75 74 77 28 31 29 0d 51  f4 12 20 f2 68 65 61 64  |utw(1).Q.. .head|
0000b000  5f 68 65 72 65 28 a3 29  0d 51 fe 1b 20 f2 70 75  |_here(.).Q.. .pu|
0000b010  74 78 79 28 78 25 2c 79  25 2d 79 73 69 7a 65 2a  |txy(x%,y%-ysize*|
0000b020  2e 35 29 0d 52 08 27 20  f2 70 75 74 78 79 28 78  |.5).R.' .putxy(x|
0000b030  25 2b a9 28 74 65 78 74  24 29 2a 78 73 69 7a 65  |%+.(text$)*xsize|
0000b040  2c 79 25 2b 79 73 69 7a  65 29 0d 52 12 10 20 f2  |,y%+ysize).R.. .|
0000b050  70 75 74 77 28 63 6f 6c  25 29 0d 52 1c 11 20 f2  |putw(col%).R.. .|
0000b060  70 75 74 77 28 62 63 6f  6c 25 29 0d 52 26 11 20  |putw(bcol%).R&. |
0000b070  f2 70 75 74 77 28 66 6f  6e 74 25 29 0d 52 30 26  |.putw(font%).R0&|
0000b080  20 f2 70 75 74 77 28 78  73 69 7a 65 2a 36 34 30  | .putw(xsize*640|
0000b090  29 3a f2 70 75 74 77 28  79 73 69 7a 65 2a 36 34  |):.putw(ysize*64|
0000b0a0  30 29 0d 52 3a 12 20 f2  70 75 74 78 79 28 78 25  |0).R:. .putxy(x%|
0000b0b0  2c 79 25 29 0d 52 44 18  20 f2 70 75 74 73 28 74  |,y%).RD. .puts(t|
0000b0c0  65 78 74 24 29 3a f2 61  6c 69 67 6e 0d 52 4e 0e  |ext$):.align.RN.|
0000b0d0  20 f2 68 65 61 64 5f 6e  6f 77 0d 52 58 12 20 e7  | .head_now.RX. .|
0000b0e0  20 75 6c 69 6e 65 25 3c  3e 30 20 8c 0d 52 62 11  | uline%<>0 ..Rb.|
0000b0f0  20 20 20 c8 8e 20 66 6f  6e 74 25 20 ca 0d 52 6c  |   .. font% ..Rl|
0000b100  0d 20 20 20 20 20 c9 20  31 3a 0d 52 76 20 20 20  |.     . 1:.Rv   |
0000b110  20 20 20 20 20 c8 99 20  22 46 6f 6e 74 5f 53 65  |     .. "Font_Se|
0000b120  74 46 6f 6e 74 22 2c 66  31 25 0d 52 80 1d 20 20  |tFont",f1%.R..  |
0000b130  20 20 20 20 20 73 63 78  3d 78 73 69 7a 65 2f 31  |     scx=xsize/1|
0000b140  35 2a 31 2e 30 32 35 0d  52 8a 22 20 20 20 20 20  |5*1.025.R."     |
0000b150  20 20 6c 65 6e 3d a4 6c  65 6e 28 74 65 78 74 24  |  len=.len(text$|
0000b160  2c 66 31 25 29 2a 73 63  78 0d 52 94 0d 20 20 20  |,f1%)*scx.R..   |
0000b170  20 20 c9 20 32 3a 0d 52  9e 20 20 20 20 20 20 20  |  . 2:.R.       |
0000b180  20 c8 99 20 22 46 6f 6e  74 5f 53 65 74 46 6f 6e  | .. "Font_SetFon|
0000b190  74 22 2c 66 32 25 0d 52  a8 1d 20 20 20 20 20 20  |t",f2%.R..      |
0000b1a0  20 73 63 78 3d 78 73 69  7a 65 2f 32 34 2a 31 2e  | scx=xsize/24*1.|
0000b1b0  30 32 35 0d 52 b2 22 20  20 20 20 20 20 20 6c 65  |025.R."       le|
0000b1c0  6e 3d a4 6c 65 6e 28 74  65 78 74 24 2c 66 32 25  |n=.len(text$,f2%|
0000b1d0  29 2a 73 63 78 0d 52 bc  33 20 20 20 20 20 7f 3a  |)*scx.R.3     .:|
0000b1e0  f2 72 65 70 6f 72 74 28  22 55 6e 6b 6e 6f 77 6e  |.report("Unknown|
0000b1f0  20 46 6f 6e 74 20 49 6e  20 50 52 4f 43 74 65 78  | Font In PROCtex|
0000b200  74 22 2c 31 37 29 3a e1  0d 52 c6 08 20 20 20 cb  |t",17):..R..   .|
0000b210  0d 52 d0 14 20 20 20 79  25 2d 3d 79 73 69 7a 65  |.R..   y%-=ysize|
0000b220  2a 31 36 30 0d 52 da 32  20 20 20 f2 70 61 74 68  |*160.R.2   .path|
0000b230  5f 73 74 61 72 74 28 78  25 2c 79 25 2c 75 6c 69  |_start(x%,y%,uli|
0000b240  6e 65 25 2a 36 34 30 2c  62 6c 61 63 6b 25 2c 62  |ne%*640,black%,b|
0000b250  6c 61 63 6b 25 29 0d 52  e4 1c 20 20 20 f2 70 61  |lack%).R..   .pa|
0000b260  74 68 5f 64 72 61 77 28  78 25 2b 6c 65 6e 2c 79  |th_draw(x%+len,y|
0000b270  25 29 0d 52 ee 10 20 20  20 f2 70 61 74 68 5f 65  |%).R..   .path_e|
0000b280  6e 64 0d 52 f8 06 20 cd  0d 53 02 06 20 e1 0d 53  |nd.R.. ..S.. ..S|
0000b290  0c 06 20 3a 0d 53 16 15  20 dd 20 a4 63 6f 6c 28  |.. :.S.. . .col(|
0000b2a0  52 25 2c 47 25 2c 42 25  29 0d 53 20 1f 20 3d 28  |R%,G%,B%).S . =(|
0000b2b0  52 25 3c 3c 38 29 2b 28  47 25 3c 3c 31 36 29 2b  |R%<<8)+(G%<<16)+|
0000b2c0  28 42 25 3c 3c 32 34 29  0d 53 2a 06 20 3a 0d 53  |(B%<<24).S*. :.S|
0000b2d0  34 10 20 dd 20 f2 70 75  74 77 28 41 25 29 0d 53  |4. . .putw(A%).S|
0000b2e0  3e 12 20 d5 23 63 25 2c  41 25 20 80 20 26 46 46  |>. .#c%,A% . &FF|
0000b2f0  0d 53 48 17 20 d5 23 63  25 2c 28 41 25 3e 3e 38  |.SH. .#c%,(A%>>8|
0000b300  29 20 80 20 26 46 46 0d  53 52 18 20 d5 23 63 25  |) . &FF.SR. .#c%|
0000b310  2c 28 41 25 3e 3e 31 36  29 20 80 20 26 46 46 0d  |,(A%>>16) . &FF.|
0000b320  53 5c 18 20 d5 23 63 25  2c 28 41 25 3e 3e 32 34  |S\. .#c%,(A%>>24|
0000b330  29 20 80 20 26 46 46 0d  53 66 06 20 e1 0d 53 70  |) . &FF.Sf. ..Sp|
0000b340  06 20 3a 0d 53 7a 12 20  dd 20 f2 70 75 74 73 31  |. :.Sz. . .puts1|
0000b350  32 28 41 24 29 0d 53 84  09 20 ea 20 41 25 0d 53  |2(A$).S.. . A%.S|
0000b360  8e 13 20 41 24 3d 41 24  2b c4 31 32 2c 22 20 22  |.. A$=A$+.12," "|
0000b370  29 0d 53 98 22 20 e3 20  41 25 3d 31 b8 31 32 3a  |).S." . A%=1.12:|
0000b380  d5 23 63 25 2c 97 28 c1  41 24 2c 41 25 2c 31 29  |.#c%,.(.A$,A%,1)|
0000b390  29 3a ed 0d 53 a2 06 20  e1 0d 53 ac 06 20 3a 0d  |):..S.. ..S.. :.|
0000b3a0  53 b6 10 20 dd 20 f2 70  75 74 73 28 41 24 29 0d  |S.. . .puts(A$).|
0000b3b0  53 c0 09 20 ea 20 41 25  0d 53 ca 25 20 e3 20 41  |S.. . A%.S.% . A|
0000b3c0  25 3d 31 b8 a9 28 41 24  29 3a d5 23 63 25 2c 97  |%=1..(A$):.#c%,.|
0000b3d0  28 c1 41 24 2c 41 25 2c  31 29 29 3a ed 0d 53 d4  |(.A$,A%,1)):..S.|
0000b3e0  0b 20 d5 23 63 25 2c 30  0d 53 de 06 20 e1 0d 53  |. .#c%,0.S.. ..S|
0000b3f0  e8 06 20 3a 0d 53 f2 17  20 dd 20 f2 68 65 61 64  |.. :.S.. . .head|
0000b400  5f 68 65 72 65 28 62 6f  78 25 29 0d 53 fc 56 20  |_here(box%).S.V |
0000b410  e7 20 6c 65 76 25 3d 6d  61 78 6c 65 76 25 20 8c  |. lev%=maxlev% .|
0000b420  20 85 20 31 32 33 34 2c  22 54 6f 6f 20 6d 61 6e  | . 1234,"Too man|
0000b430  79 20 6e 65 73 74 65 64  20 67 72 6f 75 70 73 2e  |y nested groups.|
0000b440  20 45 64 69 74 20 70 72  6f 67 72 61 6d 20 74 6f  | Edit program to|
0000b450  20 69 6e 63 72 65 61 73  65 20 6c 69 6d 69 74 2e  | increase limit.|
0000b460  22 0d 54 06 0c 20 6c 65  76 25 2b 3d 31 0d 54 10  |".T.. lev%+=1.T.|
0000b470  14 20 62 6f 78 25 28 6c  65 76 25 29 3d 62 6f 78  |. box%(lev%)=box|
0000b480  25 0d 54 1a 16 20 73 74  61 72 74 25 28 6c 65 76  |%.T.. start%(lev|
0000b490  25 29 3d 8f 23 63 25 0d  54 24 18 20 e7 20 6c 65  |%)=.#c%.T$. . le|
0000b4a0  76 25 3e 30 20 8c 20 f2  70 75 74 77 28 30 29 0d  |v%>0 . .putw(0).|
0000b4b0  54 2e 0d 20 e7 20 62 6f  78 25 20 8c 0d 54 38 18  |T.. . box% ..T8.|
0000b4c0  20 20 20 f2 70 75 74 77  28 30 29 3a f2 70 75 74  |   .putw(0):.put|
0000b4d0  77 28 30 29 0d 54 42 18  20 20 20 f2 70 75 74 77  |w(0).TB.   .putw|
0000b4e0  28 30 29 3a f2 70 75 74  77 28 30 29 0d 54 4c 06  |(0):.putw(0).TL.|
0000b4f0  20 cd 0d 54 56 22 20 6c  25 28 6c 65 76 25 29 3d  | ..TV" l%(lev%)=|
0000b500  62 69 67 78 25 3a 62 25  28 6c 65 76 25 29 3d 62  |bigx%:b%(lev%)=b|
0000b510  69 67 79 25 0d 54 60 22  20 72 25 28 6c 65 76 25  |igy%.T`" r%(lev%|
0000b520  29 3d 62 69 67 78 25 3a  74 25 28 6c 65 76 25 29  |)=bigx%:t%(lev%)|
0000b530  3d 62 69 67 79 25 0d 54  6a 06 20 e1 0d 54 74 06  |=bigy%.Tj. ..Tt.|
0000b540  20 3a 0d 54 7e 10 20 dd  20 f2 68 65 61 64 5f 6e  | :.T~. . .head_n|
0000b550  6f 77 0d 54 88 0b 20 ea  20 65 6e 64 25 0d 54 92  |ow.T.. . end%.T.|
0000b560  4c 20 e7 20 6c 65 76 25  3c 30 20 8c 20 f1 22 57  |L . lev%<0 . ."W|
0000b570  61 72 6e 69 6e 67 3a 20  61 74 74 65 6d 70 74 20  |arning: attempt |
0000b580  74 6f 20 65 6e 64 20 6d  6f 72 65 20 6f 62 6a 65  |to end more obje|
0000b590  63 74 73 20 74 68 61 6e  20 77 65 72 65 20 73 74  |cts than were st|
0000b5a0  61 72 74 65 64 2e 22 3a  e1 0d 54 9c 0e 20 65 6e  |arted.":..T.. en|
0000b5b0  64 25 3d 8f 23 63 25 0d  54 a6 16 20 cf 23 63 25  |d%=.#c%.T.. .#c%|
0000b5c0  3d 73 74 61 72 74 25 28  6c 65 76 25 29 0d 54 b0  |=start%(lev%).T.|
0000b5d0  2a 20 e7 20 6c 65 76 25  3e 30 20 8c 20 f2 70 75  |* . lev%>0 . .pu|
0000b5e0  74 77 28 65 6e 64 25 2d  73 74 61 72 74 25 28 6c  |tw(end%-start%(l|
0000b5f0  65 76 25 29 2b 34 29 0d  54 ba 13 20 e7 20 62 6f  |ev%)+4).T.. . bo|
0000b600  78 25 28 6c 65 76 25 29  20 8c 0d 54 c4 26 20 20  |x%(lev%) ..T.&  |
0000b610  20 f2 70 75 74 77 28 6c  25 28 6c 65 76 25 29 29  | .putw(l%(lev%))|
0000b620  3a f2 70 75 74 77 28 62  25 28 6c 65 76 25 29 29  |:.putw(b%(lev%))|
0000b630  0d 54 ce 26 20 20 20 f2  70 75 74 77 28 72 25 28  |.T.&   .putw(r%(|
0000b640  6c 65 76 25 29 29 3a f2  70 75 74 77 28 74 25 28  |lev%)):.putw(t%(|
0000b650  6c 65 76 25 29 29 0d 54  d8 06 20 cd 0d 54 e2 0f  |lev%)).T.. ..T..|
0000b660  20 e7 20 6c 65 76 25 3e  30 20 8c 0d 54 ec 0e 20  | . lev%>0 ..T.. |
0000b670  20 20 6c 65 76 25 2d 3d  31 0d 54 f6 32 20 20 20  |  lev%-=1.T.2   |
0000b680  e7 20 6c 25 28 6c 65 76  25 2b 31 29 3c 6c 25 28  |. l%(lev%+1)<l%(|
0000b690  6c 65 76 25 29 20 8c 20  6c 25 28 6c 65 76 25 29  |lev%) . l%(lev%)|
0000b6a0  3d 6c 25 28 6c 65 76 25  2b 31 29 0d 55 00 32 20  |=l%(lev%+1).U.2 |
0000b6b0  20 20 e7 20 62 25 28 6c  65 76 25 2b 31 29 3c 62  |  . b%(lev%+1)<b|
0000b6c0  25 28 6c 65 76 25 29 20  8c 20 62 25 28 6c 65 76  |%(lev%) . b%(lev|
0000b6d0  25 29 3d 62 25 28 6c 65  76 25 2b 31 29 0d 55 0a  |%)=b%(lev%+1).U.|
0000b6e0  32 20 20 20 e7 20 72 25  28 6c 65 76 25 2b 31 29  |2   . r%(lev%+1)|
0000b6f0  3c 72 25 28 6c 65 76 25  29 20 8c 20 72 25 28 6c  |<r%(lev%) . r%(l|
0000b700  65 76 25 29 3d 72 25 28  6c 65 76 25 2b 31 29 0d  |ev%)=r%(lev%+1).|
0000b710  55 14 32 20 20 20 e7 20  74 25 28 6c 65 76 25 2b  |U.2   . t%(lev%+|
0000b720  31 29 3c 74 25 28 6c 65  76 25 29 20 8c 20 74 25  |1)<t%(lev%) . t%|
0000b730  28 6c 65 76 25 29 3d 74  25 28 6c 65 76 25 2b 31  |(lev%)=t%(lev%+1|
0000b740  29 0d 55 1e 06 20 cd 0d  55 28 0e 20 cf 23 63 25  |).U.. ..U(. .#c%|
0000b750  3d 65 6e 64 25 0d 55 32  06 20 e1 0d 55 3c 06 20  |=end%.U2. ..U<. |
0000b760  3a 0d 55 46 14 20 dd 20  f2 70 75 74 78 79 28 78  |:.UF. . .putxy(x|
0000b770  25 2c 79 25 29 0d 55 50  18 20 f2 70 75 74 77 28  |%,y%).UP. .putw(|
0000b780  78 25 29 3a f2 70 75 74  77 28 79 25 29 0d 55 5a  |x%):.putw(y%).UZ|
0000b790  20 20 e7 20 78 25 3c 6c  25 28 6c 65 76 25 29 20  |  . x%<l%(lev%) |
0000b7a0  8c 20 6c 25 28 6c 65 76  25 29 3d 78 25 0d 55 64  |. l%(lev%)=x%.Ud|
0000b7b0  20 20 e7 20 79 25 3c 62  25 28 6c 65 76 25 29 20  |  . y%<b%(lev%) |
0000b7c0  8c 20 62 25 28 6c 65 76  25 29 3d 79 25 0d 55 6e  |. b%(lev%)=y%.Un|
0000b7d0  20 20 e7 20 78 25 3e 72  25 28 6c 65 76 25 29 20  |  . x%>r%(lev%) |
0000b7e0  8c 20 72 25 28 6c 65 76  25 29 3d 78 25 0d 55 78  |. r%(lev%)=x%.Ux|
0000b7f0  20 20 e7 20 79 25 3e 74  25 28 6c 65 76 25 29 20  |  . y%>t%(lev%) |
0000b800  8c 20 74 25 28 6c 65 76  25 29 3d 79 25 0d 55 82  |. t%(lev%)=y%.U.|
0000b810  06 20 e1 0d 55 8c 06 20  3a 0d 55 96 0d 20 dd 20  |. ..U.. :.U.. . |
0000b820  f2 61 6c 69 67 6e 0d 55  a0 19 20 c8 95 20 8f 23  |.align.U.. .. .#|
0000b830  63 25 20 80 20 33 3a d5  23 63 25 2c 30 3a ce 0d  |c% . 3:.#c%,0:..|
0000b840  55 aa 06 20 e1 0d 55 b4  06 20 3a 0d 55 be 1b 20  |U.. ..U.. :.U.. |
0000b850  dd 20 f2 73 61 76 65 5f  69 74 5f 64 72 61 77 28  |. .save_it_draw(|
0000b860  f8 20 6f 6b 25 29 0d 55  c8 1d 20 ea 20 66 6f 6e  |. ok%).U.. . fon|
0000b870  74 73 25 2c 66 74 25 2c  74 79 70 65 25 2c 63 6f  |ts%,ft%,type%,co|
0000b880  6e 74 25 0d 55 d2 17 20  66 6f 6e 74 73 25 3d a4  |nt%.U.. fonts%=.|
0000b890  66 69 6e 64 5f 66 6f 6e  74 73 0d 55 dc 14 20 e7  |find_fonts.U.. .|
0000b8a0  20 ac 28 66 6f 6e 74 73  25 29 20 8c 20 e1 0d 55  | .(fonts%) . ..U|
0000b8b0  e6 08 20 ea 20 85 0d 55  f0 0a 20 6f 6b 25 3d b9  |.. . ..U.. ok%=.|
0000b8c0  0d 55 fa 23 20 e7 20 71  75 61 72 74 65 72 73 25  |.U.# . quarters%|
0000b8d0  3c 3e 31 20 80 20 70 65  72 5f 74 65 61 6d 25 3d  |<>1 . per_team%=|
0000b8e0  30 20 8c 0d 56 04 22 20  20 20 f2 66 69 6c 65 74  |0 ..V."   .filet|
0000b8f0  79 70 65 28 66 69 6c 65  32 25 2c 74 79 70 65 25  |ype(file2%,type%|
0000b900  2c 66 74 25 29 0d 56 0e  11 20 20 20 c8 8e 20 74  |,ft%).V..   .. t|
0000b910  79 70 65 25 20 ca 0d 56  18 0d 20 20 20 20 20 c9  |ype% ..V..     .|
0000b920  20 31 3a 0d 56 22 59 20  20 20 20 20 20 20 f2 72  | 1:.V"Y       .r|
0000b930  65 70 6f 72 74 28 22 41  6e 20 6f 62 6a 65 63 74  |eport("An object|
0000b940  20 6f 66 20 74 68 69 73  20 6e 61 6d 65 20 61 6c  | of this name al|
0000b950  72 65 61 64 79 20 65 78  69 73 74 73 2e 20 55 6e  |ready exists. Un|
0000b960  61 62 6c 65 20 74 6f 20  6f 70 65 6e 20 64 69 72  |able to open dir|
0000b970  65 63 74 6f 72 79 2e 22  2c 31 36 29 0d 56 2c 10  |ectory.",16).V,.|
0000b980  20 20 20 20 20 20 20 6f  6b 25 3d a3 0d 56 36 0c  |       ok%=..V6.|
0000b990  20 20 20 20 20 20 20 e1  0d 56 40 0d 20 20 20 20  |       ..V@.    |
0000b9a0  20 c9 20 32 3a 0d 56 4a  4b 20 20 20 20 20 20 20  | . 2:.VJK       |
0000b9b0  63 6f 6e 74 25 3d a4 79  6e 28 22 41 20 64 69 72  |cont%=.yn("A dir|
0000b9c0  65 63 74 6f 72 79 20 6f  66 20 74 68 69 73 20 6e  |ectory of this n|
0000b9d0  61 6d 65 20 61 6c 72 65  61 64 79 20 65 78 69 73  |ame already exis|
0000b9e0  74 73 2e 20 43 6f 6e 74  69 6e 75 65 20 3f 22 29  |ts. Continue ?")|
0000b9f0  0d 56 54 17 20 20 20 20  20 20 20 e7 20 ac 28 63  |.VT.       . .(c|
0000ba00  6f 6e 74 25 29 20 8c 0d  56 5e 12 20 20 20 20 20  |ont%) ..V^.     |
0000ba10  20 20 20 20 6f 6b 25 3d  a3 0d 56 68 0e 20 20 20  |    ok%=..Vh.   |
0000ba20  20 20 20 20 20 20 e1 0d  56 72 0c 20 20 20 20 20  |      ..Vr.     |
0000ba30  20 20 cd 0d 56 7c 0a 20  20 20 20 20 cb 0d 56 86  |  ..V|.     ..V.|
0000ba40  50 20 20 20 ee 20 85 20  ea 3a f7 20 85 3a f2 72  |P   . . .:. .:.r|
0000ba50  65 70 6f 72 74 28 22 55  6e 61 62 6c 65 20 74 6f  |eport("Unable to|
0000ba60  20 6f 70 65 6e 20 64 69  72 65 63 74 6f 72 79 2e  | open directory.|
0000ba70  20 46 49 4c 45 53 a0 4e  4f 54 a0 53 41 56 45 44  | FILES.NOT.SAVED|
0000ba80  22 2c 31 37 29 3a 6f 6b  25 3d a3 3a e1 0d 56 90  |",17):ok%=.:..V.|
0000ba90  1c 20 20 20 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |.   .. "OS_File"|
0000baa0  2c 38 2c 66 69 6c 65 32  25 0d 56 9a 0a 20 20 20  |,8,file2%.V..   |
0000bab0  f7 20 85 0d 56 a4 06 20  cd 0d 56 ae 15 20 e7 20  |. ..V.. ..V.. . |
0000bac0  70 65 72 5f 74 65 61 6d  25 3c 3e 30 20 8c 0d 56  |per_team%<>0 ..V|
0000bad0  b8 1a 20 20 20 f2 73 61  76 65 5f 69 74 5f 74 65  |..   .save_it_te|
0000bae0  61 6d 73 28 6f 6b 25 29  0d 56 c2 13 20 20 20 f2  |ams(ok%).V..   .|
0000baf0  63 6c 6f 73 65 5f 6d 65  6e 75 73 0d 56 cc 08 20  |close_menus.V.. |
0000bb00  20 20 e1 0d 56 d6 06 20  cd 0d 56 e0 14 20 e7 20  |  ..V.. ..V.. . |
0000bb10  71 75 61 72 74 65 72 73  25 3d 31 20 8c 0d 56 ea  |quarters%=1 ..V.|
0000bb20  10 20 20 20 6f 6b 25 3d  a4 63 6f 6e 74 0d 56 f4  |.   ok%=.cont.V.|
0000bb30  13 20 20 20 e7 20 ac 28  6f 6b 25 29 20 8c 20 e1  |.   . .(ok%) . .|
0000bb40  0d 56 fe 06 20 cd 0d 57  08 16 20 c8 99 20 22 48  |.V.. ..W.. .. "H|
0000bb50  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 57 12 16  |ourglass_On".W..|
0000bb60  20 e3 20 6e 25 3d 31 b8  20 71 75 61 72 74 65 72  | . n%=1. quarter|
0000bb70  73 25 0d 57 1c 2a 20 20  20 f2 64 72 61 77 66 69  |s%.W.*   .drawfi|
0000bb80  6c 65 5f 71 75 61 72 74  65 72 28 6e 25 2c 71 75  |le_quarter(n%,qu|
0000bb90  61 72 74 65 72 73 25 2c  6f 6b 25 29 0d 57 26 06  |arters%,ok%).W&.|
0000bba0  20 ed 0d 57 30 17 20 c8  99 20 22 48 6f 75 72 67  | ..W0. .. "Hourg|
0000bbb0  6c 61 73 73 5f 4f 66 66  22 0d 57 3a 11 20 f2 63  |lass_Off".W:. .c|
0000bbc0  6c 6f 73 65 5f 6d 65 6e  75 73 0d 57 44 0a 20 6f  |lose_menus.WD. o|
0000bbd0  6b 25 3d b9 0d 57 4e 06  20 e1 0d 57 58 06 20 3a  |k%=..WN. ..WX. :|
0000bbe0  0d 57 62 0c 20 dd 20 a4  63 6f 6e 74 0d 57 6c 14  |.Wb. . .cont.Wl.|
0000bbf0  20 ea 20 74 79 70 65 25  2c 66 74 25 2c 6f 6b 25  | . type%,ft%,ok%|
0000bc00  0d 57 76 20 20 f2 66 69  6c 65 74 79 70 65 28 66  |.Wv  .filetype(f|
0000bc10  69 6c 65 32 25 2c 74 79  70 65 25 2c 66 74 25 29  |ile2%,type%,ft%)|
0000bc20  0d 57 80 0f 20 c8 8e 20  74 79 70 65 25 20 ca 0d  |.W.. .. type% ..|
0000bc30  57 8a 0b 20 20 20 c9 20  32 3a 0d 57 94 2c 20 20  |W..   . 2:.W.,  |
0000bc40  20 20 20 f2 72 65 70 6f  72 74 28 22 4f 62 6a 65  |   .report("Obje|
0000bc50  63 74 20 69 73 20 61 20  64 69 72 65 63 74 6f 72  |ct is a director|
0000bc60  79 22 2c 31 37 29 0d 57  9e 0b 20 20 20 20 20 3d  |y",17).W..     =|
0000bc70  a3 0d 57 a8 0b 20 20 20  c9 20 31 3a 0d 57 b2 15  |..W..   . 1:.W..|
0000bc80  20 20 20 20 20 e7 20 66  74 25 3d 26 41 46 46 20  |     . ft%=&AFF |
0000bc90  8c 0d 57 bc 0d 20 20 20  20 20 20 20 3d b9 0d 57  |..W..       =..W|
0000bca0  c6 0a 20 20 20 20 20 cc  0d 57 d0 55 20 20 20 20  |..     ..W.U    |
0000bcb0  20 20 20 3d a4 79 6e 28  22 41 6e 20 6f 62 6a 65  |   =.yn("An obje|
0000bcc0  63 74 20 6f 66 20 74 68  69 73 20 6e 61 6d 65 20  |ct of this name |
0000bcd0  61 6c 72 65 61 64 79 20  65 78 69 73 74 73 20 28  |already exists (|
0000bce0  74 79 70 65 20 22 2b c3  7e 66 74 25 2b 22 29 2e  |type "+.~ft%+").|
0000bcf0  20 43 6f 6e 74 69 6e 75  65 20 3f 22 29 0d 57 da  | Continue ?").W.|
0000bd00  0a 20 20 20 20 20 cd 0d  57 e4 0b 20 20 20 c9 20  |.     ..W..   . |
0000bd10  30 3a 0d 57 ee 0b 20 20  20 20 20 3d b9 0d 57 f8  |0:.W..     =..W.|
0000bd20  09 20 20 20 7f 3a 0d 58  02 31 20 20 20 20 20 f2  |.   .:.X.1     .|
0000bd30  72 65 70 6f 72 74 28 22  74 79 70 65 25 3d 20 22  |report("type%= "|
0000bd40  2b c3 74 79 70 65 25 22  20 69 6e 20 46 4e 63 6f  |+.type%" in FNco|
0000bd50  6e 74 22 2c 31 36 29 0d  58 0c 0b 20 20 20 20 20  |nt",16).X..     |
0000bd60  3d a3 0d 58 16 06 20 cb  0d 58 20 06 20 3a 0d 58  |=..X.. ..X . :.X|
0000bd70  2a 15 20 dd 20 a4 63 6f  6c 28 52 25 2c 47 25 2c  |*. . .col(R%,G%,|
0000bd80  42 25 29 0d 58 34 1f 20  3d 28 52 25 3c 3c 38 29  |B%).X4. =(R%<<8)|
0000bd90  2b 28 47 25 3c 3c 31 36  29 2b 28 42 25 3c 3c 32  |+(G%<<16)+(B%<<2|
0000bda0  34 29 0d 58 3e 06 20 3a  0d 58 48 11 20 dd 20 a4  |4).X>. :.XH. . .|
0000bdb0  63 6f 6c 6f 75 72 28 58  29 0d 58 52 08 20 ea 20  |colour(X).XR. . |
0000bdc0  63 0d 58 5c 0f 20 e7 20  58 3d 37 20 8c 20 3d 30  |c.X\. . X=7 . =0|
0000bdd0  0d 58 66 0c 20 e7 20 58  3c 37 20 8c 0d 58 70 11  |.Xf. . X<7 ..Xp.|
0000bde0  20 20 20 63 3d 32 35 35  2d 32 34 2a 58 0d 58 7a  |   c=255-24*X.Xz|
0000bdf0  13 20 20 20 3d a4 63 6f  6c 28 63 2c 63 2c 63 29  |.   =.col(c,c,c)|
0000be00  0d 58 84 06 20 cd 0d 58  8e 20 20 3d a4 63 6f 6c  |.X.. ..X.  =.col|
0000be10  28 b3 28 32 35 35 29 2c  b3 28 32 35 35 29 2c b3  |(.(255),.(255),.|
0000be20  28 32 35 35 29 29 0d 58  98 06 20 3a 0d 58 a2 2c  |(255)).X.. :.X.,|
0000be30  20 dd 20 f2 64 72 61 77  66 69 6c 65 5f 71 75 61  | . .drawfile_qua|
0000be40  72 74 65 72 28 6e 25 2c  71 75 61 72 74 65 72 73  |rter(n%,quarters|
0000be50  25 2c f8 20 6f 6b 25 29  0d 58 ac 0c 20 ea 20 66  |%,. ok%).X.. . f|
0000be60  24 2c 79 25 0d 58 b6 0f  20 66 24 3d 24 66 69 6c  |$,y%.X.. f$=$fil|
0000be70  65 32 25 0d 58 c0 23 20  e7 20 71 75 61 72 74 65  |e2%.X.# . quarte|
0000be80  72 73 25 3c 3e 31 20 8c  20 66 24 2b 3d 22 2e 22  |rs%<>1 . f$+="."|
0000be90  2b c3 28 6e 25 29 0d 58  ca 18 20 f2 64 72 61 77  |+.(n%).X.. .draw|
0000bea0  66 69 6c 65 5f 73 74 61  72 74 28 66 24 29 0d 58  |file_start(f$).X|
0000beb0  d4 0f 20 f2 66 6f 6e 74  74 61 62 6c 65 0d 58 de  |.. .fonttable.X.|
0000bec0  15 20 f2 64 72 61 77 5f  74 69 74 6c 65 28 32 2c  |. .draw_title(2,|
0000bed0  30 29 0d 58 e8 15 20 e7  20 71 75 61 72 74 65 72  |0).X.. . quarter|
0000bee0  73 25 3c 3e 31 20 8c 0d  58 f2 1f 20 20 20 f2 73  |s%<>1 ..X..   .s|
0000bef0  75 62 5f 74 69 74 6c 65  28 6e 25 2c 71 75 61 72  |ub_title(n%,quar|
0000bf00  74 65 72 73 25 29 0d 58  fc 0e 20 20 20 79 25 3d  |ters%).X..   y%=|
0000bf10  31 38 30 30 0d 59 06 06  20 cc 0d 59 10 0e 20 20  |1800.Y.. ..Y..  |
0000bf20  20 79 25 3d 31 38 38 30  0d 59 1a 06 20 cd 0d 59  | y%=1880.Y.. ..Y|
0000bf30  24 19 20 f2 64 72 61 77  5f 71 75 61 72 74 65 72  |$. .draw_quarter|
0000bf40  28 6e 25 2c 79 25 29 0d  59 2e 12 20 f2 64 72 61  |(n%,y%).Y.. .dra|
0000bf50  77 66 69 6c 65 5f 65 6e  64 0d 59 38 06 20 e1 0d  |wfile_end.Y8. ..|
0000bf60  59 42 06 20 3a 0d 59 4c  1e dd 20 f2 64 72 61 77  |YB. :.YL.. .draw|
0000bf70  5f 71 75 61 72 74 65 72  28 71 75 61 72 74 25 2c  |_quarter(quart%,|
0000bf80  79 25 29 0d 59 56 24 ea  20 6e 25 2c 6d 25 2c 79  |y%).YV$. n%,m%,y|
0000bf90  79 25 2c 62 78 25 2c 62  61 73 65 25 2c 74 68 69  |y%,bx%,base%,thi|
0000bfa0  63 6b 25 2c 74 68 25 0d  59 60 0f f2 6c 6f 6e 67  |ck%,th%.Y`..long|
0000bfb0  65 73 74 28 a3 29 0d 59  6a 33 e7 20 6d 61 78 5f  |est(.).Yj3. max_|
0000bfc0  6c 65 6e 25 3c 32 30 30  2a 78 73 63 61 6c 65 32  |len%<200*xscale2|
0000bfd0  25 20 8c 20 6d 61 78 5f  6c 65 6e 25 3d 32 30 30  |% . max_len%=200|
0000bfe0  2a 78 73 63 61 6c 65 32  25 0d 59 74 39 f4 20 49  |*xscale2%.Yt9. I|
0000bff0  46 20 6d 61 78 5f 6c 65  6e 25 3e 34 30 30 2a 78  |F max_len%>400*x|
0000c000  73 63 61 6c 65 32 25 20  54 48 45 4e 20 6d 61 78  |scale2% THEN max|
0000c010  5f 6c 65 6e 25 3d 34 30  30 2a 78 73 63 61 6c 65  |_len%=400*xscale|
0000c020  32 25 0d 59 7e 1f 62 61  73 65 25 3d 28 71 75 61  |2%.Y~.base%=(qua|
0000c030  72 74 25 2d 31 29 2a 70  65 72 5f 71 75 61 72 74  |rt%-1)*per_quart|
0000c040  25 0d 59 88 0a 62 78 25  3d 37 30 0d 59 92 0e 74  |%.Y..bx%=70.Y..t|
0000c050  68 69 63 6b 25 3d 33 32  30 0d 59 9c 10 74 68 25  |hick%=320.Y..th%|
0000c060  3d 74 68 69 63 6b 25 2f  32 0d 59 a6 0e f2 63 6f  |=thick%/2.Y...co|
0000c070  6c 6f 75 72 28 30 29 0d  59 b0 25 e3 20 6e 25 3d  |lour(0).Y.%. n%=|
0000c080  62 61 73 65 25 2b 31 b8  62 61 73 65 25 2b 70 65  |base%+1.base%+pe|
0000c090  72 5f 71 75 61 72 74 25  20 88 20 32 0d 59 ba 1d  |r_quart% . 2.Y..|
0000c0a0  20 20 e7 20 64 72 61 77  24 28 6e 25 2b 31 29 3c  |  . draw$(n%+1)<|
0000c0b0  3e 22 20 62 79 65 22 20  8c 0d 59 c4 10 20 20 20  |>" bye" ..Y..   |
0000c0c0  20 e3 20 6d 25 3d 30 b8  31 0d 59 ce 21 20 20 20  | . m%=0.1.Y.!   |
0000c0d0  20 20 20 79 79 25 3d 79  25 2d 28 6e 25 2b 6d 25  |   yy%=y%-(n%+m%|
0000c0e0  2d 62 61 73 65 25 29 2a  35 30 0d 59 d8 50 20 20  |-base%)*50.Y.P  |
0000c0f0  20 20 20 20 f2 74 65 78  74 28 62 78 25 2a 78 73  |    .text(bx%*xs|
0000c100  63 61 6c 65 32 25 2c 28  79 79 25 2b 35 29 2a 79  |cale2%,(yy%+5)*y|
0000c110  73 63 61 6c 65 25 2c a4  73 65 65 64 28 6e 25 2b  |scale%,.seed(n%+|
0000c120  6d 25 29 2c 36 2c 38 2c  31 2c 62 6c 61 63 6b 25  |m%),6,8,1,black%|
0000c130  2c 62 6c 61 63 6b 25 2c  30 29 0d 59 e2 44 20 20  |,black%,0).Y.D  |
0000c140  20 20 20 20 f2 70 61 74  68 5f 73 74 61 72 74 28  |    .path_start(|
0000c150  62 78 25 2a 78 73 63 61  6c 65 32 25 2c 79 79 25  |bx%*xscale2%,yy%|
0000c160  2a 79 73 63 61 6c 65 25  2c 74 68 69 63 6b 25 2c  |*yscale%,thick%,|
0000c170  62 6c 61 63 6b 25 2c 77  68 69 74 65 25 29 0d 59  |black%,white%).Y|
0000c180  ec 3b 20 20 20 20 20 20  f2 70 61 74 68 5f 64 72  |.;      .path_dr|
0000c190  61 77 28 62 78 25 2a 78  73 63 61 6c 65 32 25 2b  |aw(bx%*xscale2%+|
0000c1a0  6d 61 78 5f 6c 65 6e 25  2b 74 68 25 2c 79 79 25  |max_len%+th%,yy%|
0000c1b0  2a 79 73 63 61 6c 65 25  29 0d 59 f6 13 20 20 20  |*yscale%).Y..   |
0000c1c0  20 20 20 f2 70 61 74 68  5f 65 6e 64 0d 5a 00 09  |   .path_end.Z..|
0000c1d0  20 20 20 20 ed 0d 5a 0a  4b 20 20 20 20 f2 70 61  |    ..Z.K    .pa|
0000c1e0  74 68 5f 73 74 61 72 74  28 62 78 25 2a 78 73 63  |th_start(bx%*xsc|
0000c1f0  61 6c 65 32 25 2b 6d 61  78 5f 6c 65 6e 25 2c 79  |ale2%+max_len%,y|
0000c200  79 25 2a 79 73 63 61 6c  65 25 2c 74 68 69 63 6b  |y%*yscale%,thick|
0000c210  25 2c 62 6c 61 63 6b 25  2c 77 68 69 74 65 25 29  |%,black%,white%)|
0000c220  0d 5a 14 3a 20 20 20 20  f2 70 61 74 68 5f 64 72  |.Z.:    .path_dr|
0000c230  61 77 28 62 78 25 2a 78  73 63 61 6c 65 32 25 2b  |aw(bx%*xscale2%+|
0000c240  6d 61 78 5f 6c 65 6e 25  2c 28 79 79 25 2b 35 30  |max_len%,(yy%+50|
0000c250  29 2a 79 73 63 61 6c 65  25 29 0d 5a 1e 11 20 20  |)*yscale%).Z..  |
0000c260  20 20 f2 70 61 74 68 5f  65 6e 64 0d 5a 28 50 20  |  .path_end.Z(P |
0000c270  20 20 20 f2 70 61 74 68  5f 73 74 61 72 74 28 62  |   .path_start(b|
0000c280  78 25 2a 78 73 63 61 6c  65 32 25 2b 6d 61 78 5f  |x%*xscale2%+max_|
0000c290  6c 65 6e 25 2c 28 79 79  25 2b 32 35 29 2a 79 73  |len%,(yy%+25)*ys|
0000c2a0  63 61 6c 65 25 2c 74 68  69 63 6b 25 2c 62 6c 61  |cale%,thick%,bla|
0000c2b0  63 6b 25 2c 77 68 69 74  65 25 29 0d 5a 32 44 20  |ck%,white%).Z2D |
0000c2c0  20 20 20 f2 70 61 74 68  5f 64 72 61 77 28 28 62  |   .path_draw((b|
0000c2d0  78 25 2b 32 30 30 29 2a  78 73 63 61 6c 65 32 25  |x%+200)*xscale2%|
0000c2e0  2b 6d 61 78 5f 6c 65 6e  25 2b 74 68 25 2c 28 79  |+max_len%+th%,(y|
0000c2f0  79 25 2b 32 35 29 2a 79  73 63 61 6c 65 25 29 0d  |y%+25)*yscale%).|
0000c300  5a 3c 11 20 20 20 20 f2  70 61 74 68 5f 65 6e 64  |Z<.    .path_end|
0000c310  0d 5a 46 07 20 20 cc 0d  5a 50 1f 20 20 20 20 79  |.ZF.  ..ZP.    y|
0000c320  79 25 3d 79 25 2d 28 6e  25 2d 62 61 73 65 25 29  |y%=y%-(n%-base%)|
0000c330  2a 35 30 2d 32 35 0d 5a  5a 51 20 20 20 20 f2 74  |*50-25.ZZQ    .t|
0000c340  65 78 74 28 28 32 30 30  2b 62 78 25 29 2a 78 73  |ext((200+bx%)*xs|
0000c350  63 61 6c 65 32 25 2c 28  79 79 25 2b 35 29 2a 79  |cale2%,(yy%+5)*y|
0000c360  73 63 61 6c 65 25 2c a4  73 65 65 64 28 6e 25 29  |scale%,.seed(n%)|
0000c370  2c 36 2c 38 2c 31 2c 62  6c 61 63 6b 25 2c 62 6c  |,6,8,1,black%,bl|
0000c380  61 63 6b 25 2c 30 29 0d  5a 64 0f 20 20 20 20 79  |ack%,0).Zd.    y|
0000c390  79 25 2d 3d 32 35 0d 5a  6e 4d 20 20 20 20 f2 70  |y%-=25.ZnM    .p|
0000c3a0  61 74 68 5f 73 74 61 72  74 28 28 62 78 25 2b 32  |ath_start((bx%+2|
0000c3b0  30 30 29 2a 78 73 63 61  6c 65 32 25 2c 28 79 79  |00)*xscale2%,(yy|
0000c3c0  25 2b 32 35 29 2a 79 73  63 61 6c 65 25 2c 74 68  |%+25)*yscale%,th|
0000c3d0  69 63 6b 25 2c 62 6c 61  63 6b 25 2c 77 68 69 74  |ick%,black%,whit|
0000c3e0  65 25 29 0d 5a 78 44 20  20 20 20 f2 70 61 74 68  |e%).ZxD    .path|
0000c3f0  5f 64 72 61 77 28 28 62  78 25 2b 32 30 30 29 2a  |_draw((bx%+200)*|
0000c400  78 73 63 61 6c 65 32 25  2b 6d 61 78 5f 6c 65 6e  |xscale2%+max_len|
0000c410  25 2b 74 68 25 2c 28 79  79 25 2b 32 35 29 2a 79  |%+th%,(yy%+25)*y|
0000c420  73 63 61 6c 65 25 29 0d  5a 82 11 20 20 20 20 f2  |scale%).Z..    .|
0000c430  70 61 74 68 5f 65 6e 64  0d 5a 8c 07 20 20 cd 0d  |path_end.Z..  ..|
0000c440  5a 96 05 ed 0d 5a a0 0d  6d 25 3d 31 3a 6e 25 3d  |Z....Z..m%=1:n%=|
0000c450  31 0d 5a aa 14 c8 95 20  6d 25 3c 70 65 72 5f 71  |1.Z.... m%<per_q|
0000c460  75 61 72 74 25 0d 5a b4  0d 20 20 6d 25 3d 6d 25  |uart%.Z..  m%=m%|
0000c470  2a 32 0d 5a be 0b 20 20  6e 25 2b 3d 31 0d 5a c8  |*2.Z..  n%+=1.Z.|
0000c480  05 ce 0d 5a d2 3e f2 64  72 61 77 5f 6c 69 6e 65  |...Z.>.draw_line|
0000c490  73 28 6e 25 2a 32 30 30  2b 62 78 25 2d 32 30 30  |s(n%*200+bx%-200|
0000c4a0  2c 79 25 2d 32 35 2a 70  65 72 5f 71 75 61 72 74  |,y%-25*per_quart|
0000c4b0  25 2d 32 35 2c 70 65 72  5f 71 75 61 72 74 25 29  |%-25,per_quart%)|
0000c4c0  0d 5a dc 05 e1 0d 5a e6  05 3a 0d 5a f0 1b dd 20  |.Z....Z..:.Z... |
0000c4d0  f2 64 72 61 77 5f 6c 69  6e 65 73 28 78 25 2c 79  |.draw_lines(x%,y|
0000c4e0  25 2c 7a 25 29 0d 5a fa  49 f2 70 61 74 68 5f 73  |%,z%).Z.I.path_s|
0000c4f0  74 61 72 74 28 78 25 2a  78 73 63 61 6c 65 32 25  |tart(x%*xscale2%|
0000c500  2b 6d 61 78 5f 6c 65 6e  25 2b 74 68 25 2c 79 25  |+max_len%+th%,y%|
0000c510  2a 79 73 63 61 6c 65 25  2c 74 68 69 63 6b 25 2c  |*yscale%,thick%,|
0000c520  62 6c 61 63 6b 25 2c 77  68 69 74 65 25 29 0d 5b  |black%,white%).[|
0000c530  04 39 f2 70 61 74 68 5f  64 72 61 77 28 28 78 25  |.9.path_draw((x%|
0000c540  2d 32 30 30 29 2a 78 73  63 61 6c 65 32 25 2b 6d  |-200)*xscale2%+m|
0000c550  61 78 5f 6c 65 6e 25 2b  74 68 25 2c 79 25 2a 79  |ax_len%+th%,y%*y|
0000c560  73 63 61 6c 65 25 29 0d  5b 0e 0d f2 70 61 74 68  |scale%).[...path|
0000c570  5f 65 6e 64 0d 5b 18 0b  78 25 2d 3d 32 30 30 0d  |_end.[..x%-=200.|
0000c580  5b 22 4f f2 70 61 74 68  5f 73 74 61 72 74 28 78  |["O.path_start(x|
0000c590  25 2a 78 73 63 61 6c 65  32 25 2b 6d 61 78 5f 6c  |%*xscale2%+max_l|
0000c5a0  65 6e 25 2c 28 79 25 2d  7a 25 2f 32 2a 32 35 29  |en%,(y%-z%/2*25)|
0000c5b0  2a 79 73 63 61 6c 65 25  2c 74 68 69 63 6b 25 2c  |*yscale%,thick%,|
0000c5c0  62 6c 61 63 6b 25 2c 77  68 69 74 65 25 29 0d 5b  |black%,white%).[|
0000c5d0  2c 39 f2 70 61 74 68 5f  64 72 61 77 28 78 25 2a  |,9.path_draw(x%*|
0000c5e0  78 73 63 61 6c 65 32 25  2b 6d 61 78 5f 6c 65 6e  |xscale2%+max_len|
0000c5f0  25 2c 28 79 25 2b 7a 25  2f 32 2a 32 35 29 2a 79  |%,(y%+z%/2*25)*y|
0000c600  73 63 61 6c 65 25 29 0d  5b 36 0d f2 70 61 74 68  |scale%).[6..path|
0000c610  5f 65 6e 64 0d 5b 40 0c  e7 20 7a 25 3e 34 20 8c  |_end.[@.. z%>4 .|
0000c620  0d 5b 4a 25 20 20 f2 64  72 61 77 5f 6c 69 6e 65  |.[J%  .draw_line|
0000c630  73 28 78 25 2c 79 25 2d  7a 25 2f 32 2a 32 35 2c  |s(x%,y%-z%/2*25,|
0000c640  7a 25 2f 32 29 0d 5b 54  25 20 20 f2 64 72 61 77  |z%/2).[T%  .draw|
0000c650  5f 6c 69 6e 65 73 28 78  25 2c 79 25 2b 7a 25 2f  |_lines(x%,y%+z%/|
0000c660  32 2a 32 35 2c 7a 25 2f  32 29 0d 5b 5e 05 cd 0d  |2*25,z%/2).[^...|
0000c670  5b 68 05 e1 0d 5b 72 05  3a 0d 5b 7c 0b dd 20 f2  |[h...[r.:.[|.. .|
0000c680  70 28 58 29 0d 5b 86 0b  f1 8a 30 2c 30 29 58 0d  |p(X).[....0,0)X.|
0000c690  5b 90 10 ef 20 37 3a f5  20 fd 20 a5 3d 33 32 0d  |[... 7:. . .=32.|
0000c6a0  5b 9a 05 e1 0d ff                                 |[.....|
0000c6a6