Placed in the Club 100 (7)Uploads area on 7-Dec-92.  This program has been laying around the lab for over 3 years.  It requires a data input file but I've long forgot the structure of this file.  Perhaps you can discover the missing format and let us know?  -Rick-

0 'YACHT.BA v1.0 -D.Blanchar July 89
10 CLEARFRE(A)/2:MAXFILES=2:DEFSTRB-H:DEFSNGL-Z:ONERRORGOTO199
12 DIMF(12):DIMG(12):DIMH(12):DIMQ(13):DIMS(12):DIMT(12):DIMU(12)
20 CLS:PRINT@82,"Yacht Race Results Computation":PRINT
22 INPUT"Yacht Data File (??????.DO)";E:PRINT
25 OPENEFORINPUTAS1
30 LINEINPUT#1,D:LINEINPUT#1,C:FORM=1TOLEN(C):IFMID$(C,M,1)=","THENC=RIGHT$(C,LEN(C)-M)ELSENEXTM
32 LINEINPUT#1,B:B=RIGHT$(B,6):L=VAL(B):GOSUB200:V=Z
35 PRINT"BEGIN TIME (sec)";V;" LENGTH:";C:PRINT:PRINT" -=< YACHT DATA >=-"
37 LINEINPUT#1,B:PRINT"SAIL BOAT NAME	      HDCP"
40 FORX=1TO15
42 N=0:O=0:P=0:Q=0:LINEINPUT#1,B:S(X)=VAL(B):
44 PRINTUSING"###";S(X);:PRINT"  ";:FORM=2TOLEN(B):IFN=0ANDMID$(B$,M,1)=","THENN=M:M=M+1
46 IFO=0ANDMID$(B,M,1)=","THENO=M-1:M=M+1:G(X)=MID$(B,N+1,O-N)
48 IFP=0ANDMID$(B,M,1)=","THENP=M-2:M=M+1:H(X)=MID$(B,O+2,P-O):PRINTUSING"\              \";G(X);:PRINTUSING"#####";VAL(H(X));
50 IFQ=0ANDMID$(B,M,1)=","THENQ=M-1:M=M+4:F(X)=MID$(B,P+3,6):IFVAL(F(X))=0THENU(X)=999999:PRINT" NO RUN":NEXTX
52 IFQ>0THENB=F(X):GOSUB200:W(X)=Z:T(X)=W(X)-V:U(X)=T(X)-(VAL(H(X))*VAL(C)):PRINT" "
58 NEXTM:NEXTX
60 R=M:CLOSE#1:FORX=1TO13:Q(X)=X:NEXTX
62 PRINT:PRINT" -=< SORTED RACE RESULTS >=-":FORX=1TOR-1:FORY=X+1TOR
64 IFU(Q(X))<=U(Q(Y))THENNEXTY:NEXTX:GOTO68
66 Z=Q(X):Q(X)=Q(Y):Q(Y)=Z:NEXTY:NEXTX
68 FORX=1TOR:PRINTUSING"##";S(Q(X));:PRINT" ";:PRINTUSING"\       \";G(Q(X));:PRINT" ";:PRINTUSING"####";VAL(H(Q(X)));
70 IFU(Q(X))>100000THENPRINT" NO RUN":GOTO74
72 PRINTUSING"#######";VAL(F(Q(X)));:PRINTUSING"#####";T(Q(X));:PRINTUSING"#####.##";U(Q(X))
74 NEXTX
80 OPEN"YT"+LEFT$(DATE$,2)+MID$(DATE$,4,2)+".DO"FORAPPENDAS#1
82 PRINT#1,"-=< YACHT RESULTS (sorted) ";DATE$;" >=-":PRINT#1,"(data from file ";E;")"
84 PRINT#1,"RACE START TIME ";L:PRINT#1,D;"	COURSE LENGTH:";C:PRINT#1,""
86 PRINT#1,"SAIL YACHT NAME      HDCP DIV FINISH COURSE   NET":PRINT#1,"  #                            TIME   TIME   TIME"
88 PRINT"STORING":FORX=1TOR:PRINTX;:PRINT#1,USING"##";S(Q(X));:PRINT#1,"   ";:PRINT#1,USING"\              \";G(Q(X));:PRINT#1,USING"####";VAL(H(Q(X)));:PRINT#1,"  ";RIGHT$(D,1);" ";
91 IFU(Q(X))>100000THENPRINT#1," NO RUN":GOTO94
92 PRINT#1,USING"#######";VAL(F(Q(X)));:PRINT#1,USING"#######";T(Q(X));:PRINT#1,USING"######.##";U(Q(X))
94 NEXTX
96 PRINT#1," ":CLOSE:PRINT
98 PRINT:PRINT"Sorted results stored in file":PRINT"		-=< YT";LEFT$(DATE$,2);MID$(DATE$,4,2);".DO >=-":PRINT"			< hit any key >"
100 IFINKEY$=""GOTO100
104 MENU:END
199 IFERR=54THENM=X-1:GOTO60
200 Z=VAL(RIGHT$(B,2))+VAL(MID$(B,3,2))*60+VAL(LEFT$(B,2))*3600:RETURN