a a N$(x),C$(x),T$(x),Z(x)aSUBROUT a( v'b2X:HN: (): "SELECT TYPE OF SEEDING :"Xb< "1 > FINALS 2 > PRELIMINARIES"^bFbP "SELECTION NUMBER -----> ";bZKK(): KK KK Zbd KK TS$"( FINALS )" : TS$"( PRELIM )"bn (): "EVENT NUMBER ";EEcx #)"( USE NO PUNCTUATION )"Gc "AGE GROUP-SEX-DINTANCE-STROKE ";E$c (E$) :"--PLEASE ABBREVIATE THIS EVENT NAME--(MAXIMUM 28 CHARACTERS)--":: c "MEET RECORD ";MR$ d (MR$) C4$"" : (MR$) C4$"0" : (MR$) C4$"00"dMR$C4$MR$JdC1$(MR$,):C2$(MR$,,):C3$(MR$,)sd (C1$) M$" " : M$C1$":"d (C2$) S$"00." : S$C2$"."dMR$M$S$C3$d ():d " EVENT NUMBER ";EEe " SEX, DISTANCE, STROKE ";E$+e " SPONSORED BY: ";MR$Me: "IS THE ABOVE CORRECT ?";veY$: Y$""  : Y$"N" ne ()e"XX:Z(X)Xe, X;)"SWIMMER ";: N$(X)e6 N$(X)"END" N$(X)" ":XX: H"f@ (N$(X)) (): "PLEASE ABBREVIATE THIS NAME": , =fJ ) "CLUB ";: C$(X)tfT ) "TIME ";: T$(X): T$(X)"" T$(X)"595999"~f^ "fhQX:Z:WfrQQQf|QQ: Q  QQQ: fWW: rf (): "NOW SORTING"f Pf SUBROUTgPP 7g CC X:Z(CC)(PP): Z(CC):PPPP: CCgg (): "NOW COMPUTING LANE ASSIGNMENTS"g KK  : KK gg ():HNHN: CC% d: CC%g gK$(," ")g N$(Z(A))"" N$(Z(A))K$(h "1 ";N$(Z(A));" ";C$(Z(A));" ";T$(Z(A));".....";bh *)"1 ";N$(Z(A));" ";C$(Z(A));" ";T$(Z(A));"....."h N$(Z(B))"" N$(Z(B))K$h& "2 ";N$(Z(B));" ";C$(Z(B));" ";T$(Z(B));".....";h0 *)"2 ";N$(Z(B));" ";C$(Z(B));" ";T$(Z(B));"....."i: N$(Z(C))"" N$(Z(C))K$JiD "3 ";N$(Z(C));" ";C$(Z(C));" ";T$(Z(C));".....";iN *)"3 ";N$(Z(C));" ";C$(Z(C));" ";T$(Z(C));"....."iX N$(Z(D))"" N$(Z(D))K$ib "4 ";N$(Z(D));" ";C$(Z(D));" ";T$(Z(D));".....";jl *)"4 ";N$(Z(D));" ";C$(Z(D));" ";T$(Z(D));"....."5jv N$(Z(E))"" N$(Z(E))K$lj "5 ";N$(Z(E));" ";C$(Z(E));" ";T$(Z(E));".....";j *)"5 ";N$(Z(E));" ";C$(Z(E));" ";T$(Z(E));"....."j N$(Z(F))"" N$(Z(F))K$j "6 ";N$(Z(F));" ";C$(Z(F));" ";T$(Z(F));".....";7k *)"6 ";N$(Z(F));" ";C$(Z(F));" ";T$(Z(F));"....."Wk N$(Z(G))"" N$(Z(G))K$k "7 ";N$(Z(G));" ";C$(Z(G));" ";T$(Z(G));".....";k *)"7 ";N$(Z(G));" ";C$(Z(G));" ";T$(Z(G));"....."k (&,"=");" ";: (&,"=")l HNW  : =l (): "IS THERE AN ERROR IN THE PRINTOUT ";: Y$cl (Y$,)"Y" HN: : Hl (): "DO YOU WISH TO ENTER ANOTHER EVENT ";: Y$l (Y$,)"Y" :  : l HNHN: "EVENT NUMBER ";EE;: ()"HEAT ";HNm: E$m  (2,"=")Gm* "LANE NAME CLUB TIME"Wm4 (2,"=")]m>jmHL:MMwmR ()m\ "SWIMMER CLUB TIME"mf ZL MM: N$(Z);)C$(Z);#);: T$(Z)"595999" "NO TIME" : T$(Z): Z+np "IS THERE AN ERROR IN THIS PRINT-OUT";Y$Dnz (Y$,)"Y" Yn MM X hqnLL:MMMM: Rn "ENTER THE NUMBER OF THE DESIRED CORRECTION"n:"1 -- NAME 2 -- CLUB 3 -- TIME"o "4 -- ADD SWIMMERS 5 -- DELETE SWIMMER" oEo "SELECTION NUMBER --> ";: LL: LL LL do LL ,,$,,o "SWIMMER'S NAME AS IT APPEARS IN ERROR ";R$o Lo "CORRECTED SWIMMER'S NAME ";N$(T)o Ro "SWIMMER'S NAME ";R$o Lp "CORRECTED CLUB ";C$(T)p R:p$ "SWIMMER'S NAME ";R$Dp. Lbp8 "CORRECTED TIME ";T$(T)lpB RzpL T XpVFR(R$):Z$(N$(T),FR)p` R$Z$ pj Tpt "SWIMMER NOT FOUND": GG : GGp~ Rp " "(q HN "EVENT NUMBER ";EE;*)"EVENT NUMBER ";EEvq HN EE;)"HEAT";HN;)TS$;*)EE;8)"HEAT";HN;?)" ";TS$q HN E$;*)E$q HN "MEET RECORD :";MR$;*)"MEET RECORD :";MR$q HN " "!r HN )"HEAT";HN;)TS$;8)"HEAT";HN;?)" ";TS$Ar (&,"=");" ";(&,"=")r "LANE NAME CLUB TIME LANE NAME CLUB TIME"r (&,"=");" ";(&,"=")rr "SWIMMER'S NAME ";R$r Lr  TTT X#sN$(TT)N$(TT):C$(TT)C$(TT):T$(TT)T$(TT)KsN$(TT)"":C$(TT)"":T$(TT)""Ts( TT^s2XXjs<MMMMtsF RsPFX sZ U Xsd (T$(U)) C4$"" : (T$(U)) C4$"0" : (T$(U)) C4$"00"snT$(U)C4$T$(U))txC1$(T$(U),):C2$(T$(U),,):C3$(T$(U),)KtM(C1$):S(C2$):H(C3$)yt FX,M: FX,S: FX,H: FX,U:FXFXt M M$" " : M$C1$":"t S S$"00." : S$C2$"."tH$C3$:T$(U)M$S$H$uP(N$(U)):P$(P," "):N$(U)N$(U)P$4uP(C$(U)):P$(P," "):C$(U)C$(U)P$^u T$(U)"59:59:99" T$(U)" NO TIME"fu Uzu FX,: FX,uuZZW: W KK: u ZZ u W JuAX :BX:CX:DX:EX:FX:GX u : -v"AX :BX:CX:DX:EX:FX:GX =v, : av6A:B:C:D:E:F:G:Hkv@ 2vvJYYXvTAYY:BYY :CYY:DYY:EYY:FYY:GYYv^ vh W A Avr v| ZZ 2 : YYYY: T&wAY:BY:CY:DY:EY:FY:GY0w >wYY:HNQwY(XYY)(W)aw : zw KK ZZ JwYY: YX 2 : w A Aw B Bw C Cw D Dw E Ew F F x G GxZZZZ:Tx 221,33,224,160,6,0,14,0,221,126,0,221,190,4,202,23,160x& 218,57,160,195,115,160,14,0,221,126,1,221,190,5,202x0 40,160,218,57,160,195,115,160,14,0,221,126,2,221,190,6 y: 202,115,160,218,57,160,195,115,160,221,126,0,8,221,126,4HyD 221,119,0,8,221,119,4,221,126,1,8,221,126,5,221,119,1,8yN 221,119,5,221,126,6,8,221,126,2,221,119,6,8,221,119,2yX 221,126,3,8,221,126,7,221,119,3,8,221,119,7,14,1,203,65yb 194,0,160,62,0,221,190,4,202,131,160,195,139,160,62,0Dzl 221,190,5,202,150,160,221,35,221,35,221,35,221,35,195,6,160,201gzv FX : A: FX,A: FXmz{z J Xz Q z (T$(J),Q,)":" z Q:LE: z Q LE : LE:T$(J)(T$(J),Q)(T$(J),(T$(J))Q) { Q ){ (T$(J),Q,)"." 7{ Q: [{T$(J)(T$(J),Q)(T$(J),)r{T$(J)(T$(J),LE)z{ J{ ){ (T$(J),Q,)"." 7{