' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`ԠǍԍEAM"," (OR NONE)")H& "AMOUNT PAID","."=H& "RECEIPT","."NH& "CITY","."fH& "STATE & ZIP","."H& "RESIDENT ZONE","."H& "INSURE"," (Y/N)"H'HBDC$"0"(C$)2ī7470D٠ԍ΍ƍӍōٍ٠ōŠԍٍƍӍōٍٍ΍ٍ΍Ӡōʠԍٍ͍Ӎ΍ٍӍŠ΍٠ԍٍ͍Ӎōٍ΍ٍ΍͍ōύH& "YEAR"," (YY)"*H& "LEAGUE AGE","."EH& "TEAM"," (OR NONE)"]H& "AMOUNT PAID","."qH& "RECEIPT","."H& "CITY","."H& "STATE & ZIP","."H& "RESIDENT ZONE","."H& "INSURE"," (Y/N)"H'HBDC$"0"(C$)2ī7470D  (768)0Āg ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."m , 769 (768)1250" F --IF THERE, LOAD INTG AND PA#1M } 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN'T RELOAD4,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96:4:T _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:K n80 (4);"RUN FUZZY"1:+(V2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,10  MONTH","."(G& "DAY"," (1-31)" =G& "YEAR"," (YY)"TG& "LEAGUE AGE","."oG& "TEAM"," (OR NONE)"G& "AMOUNT PAID","."G& "RECEIPT","."G& "CITY","."G& "STATE & ZIP","."G& "RESIDENT ZONE","."G& "INSURE"," (Y/N)"G'Dˠč٠ԍ΍͍Ӎ΍΍&G& "CUT-OFF YEAR FOR FEMALES (YY)"GG& "HEADING FOR ROSTER :"ZG& "@ADD NAMES"qG& "NAME"," (FULL)"G& "ADDRESS","." G& "PHONE","." G& "RESIDENT"," (Y/N)" G& "SEX"," (M/F)"G& "BIRTH MONTH","."G& "DAY"," (1-31)" Y)"$F& "REGISTRATION FEE AMOUNT"BF& "INSURANCE FEE AMOUNT"hF& "CUT-OFF MONTH FOR MALES (MM)"F& "CUT-OFF DAY FOR MALES (DD)"F& "CUT-OFF YEAR FOR MALES (YY)"F& "CUT-OFF MONTH FOR FEMALES (MM)"F& "CUT-OFF DAY FOR FEMALES (DD)"E& "REVIEW LEAGUE ROSTER"AE& "ASSIGN NAME TO TEAM ROSTER"TE& "AGE CHECK"hE& "FEE ROSTER"E& "RESIDENT CHECK"E& "PRINT LABELS"E& "EXIT PROGRAM (A MUST)"E& INITIALIZING DATAE& "INITIALIZING"F& "THE PRESENT YEAR (YI D/&D$D4&%DH& CLOSE R-A FILE2#HR$#>7#20((H$)2));H$,><#HR$C>=#H$"ADD NAMES"ĺI>A#T>Z# BOXZ>_#g>d#8);BR$|>i#8);"*WORKING";>n#I1(15(F$)):".";>s#I>x#F$;" *">}#8);BR$:>#12);"OPTIONS (1-12)";>#># SET READ POINTER>#?#T#=j""PRESS RETURN TO CONTINUE";T$)=o"A=" EDIT LEAUGE NAMESp=":"TO CORRECT, ENTER NUMBER (0=EXIT) :";N{="N0ı=""NEW NAME :";TM$(N)="9000=":="I1COUNT1="" # ";I;" LEAGUE NAME..";TM$(I)="I="8900=(# HEADER>-5);R$(3);31);R$(9)!Z1ĺ10(R$(11)));R$(9);@!Z09& (I1I6I9)X998200!9+ 99l EMPTY FILE NOTICE?9q b9v :"SORRY BUT ";F$;" IS EMPTY"9{ :"PRESS RETURN TO CONTINUE";Z$9 9 BUILD NUMLINE9! EMBED COMMA IN FILENAME9!D719!(F$)4((F$,1))0ı9 !Z529 !Z5(F$)ı:ME :";Z4$$8"COACH'S PHONE :";Z5$48D$;"PR# 1":8[8 INITAILIZATION INPUT CHECKe8 5);8 T$;:I$:X((I$)):X082208 I$"0"82208 82008 I3X082008 (I4I7)X1282008 (I2I3)X082008! (I5I8)X318200 7CHD$;7EZ960*7O60(HD$));D0$:7T60);T9$:C7UT0$V7VFLAGT1ī8025h7WZ4$;" ";Z5$t7XFLAGT1z7Y7 IO SELECT AND COACH'S HEADING7"PRINT ON (S) SCREEN"7" (P) PRINTER :";IO$7IO$"S"8150 8"COACH'S NA:I0I016C$;606 PRINT INVERSE MASK?6:I01IWM6" ";:I0V6I00f6VTI:19:y6, NORMAL VIDEO6.:VTI:1960CC$;62(CC$)IW799564I11(20IW(0))66" ";:I16;:6@ REPORT HEADING 6A:7BIO$"S"W12:79505C$:7850(5I0IW7704.5B5 RESIDENT ZONEQ5 IW2:7950_5"C$:7850o5$I0IW7714u5%5 BUILD LINE5C$(13)I0IW:78965C$(8)78805(CC$)78965CC$(CC$,1,(CC$)1)5I0I01:78956CC$CC$C$747850: BUILD LINE)4I0IW7637/4C4 RECEIPT INPUTR4IW4:7950`4C$:7850p4I0IW7657v44 CITY INPUT4IW12:79504C$4(C$)65(C$)90767447850: BUILD LINE4I0IW767444 STATE & ZIP 5I7554!3CC$CC$C$:C$;:I0I0113I0IW755473H3 ENTER TEAM]3IW12:7950:I00e3C$|37850: BUILD LINE3I0IW761033 AMOUNT PAID3IW6:79503C$:Z9(C$)3Z98Z913Z946Z94876413(C$)076414763C$:(C$)8CC$"":C$;:750002c(C$)07538A2dC$"0"7538T2eC$(13)7540^2f7522r2rCC$CC$C$:C$;x2t2~ INPUT YEAR2IW2:7950:I002C$:I01(C$)8CC$"":C$;:75502C$(13)75902(C$)075602C$"0"75603IW2:79501RC$11S(C$)3CC$C$:C$:7540K1T(C$)0(C$)37520\1UC$"3"7512o1VC$(13)7540y1W75061XCC$C$:C$;1YC$:(C$)8CC$"":C$;:75001ZC$"1"75381[C$"0"75381\C$(13)75401]75131`CC$C$:C$;2b74550$C$;:CC$C$90&C$:(C$)8CC$"":C$;:7450L0)C$(13)7495V0*7462f0.C$;:CC$C$00C$:(C$)8CC$"":C$;:745001C$(13)749502(C$)0(C$)3ī749403C$"0"74940874720FC$;:CC$CC$C$0G0L INPUT DAY 1Q7412/7404/CC$C$ /0/ INPUT SEX?/IW1:7950G/ C$X/ C$"M"7440i/ C$"F"7440|/C$(13)7442/7434/CC$C$// BIRTH MONTH INPUT/IW2:7950/C$/ C$"1"7470/!(C$)17460/"C$(13)74950#. PHONE INPUT .IW12:79506.C$:(C$)07382R.(C$)45(C$)487382m.(C$)13(C$)87382w.7375.7850: BUILD LINE.I0IW7375.. RESIDENT INPUT.IW1:7950.C$.C$"Y"7410.C$"N"7410/C$(13):VT6: SCREEN CONSTANTS(-CC$"":I00-I7350,7350,7370,7400,7430,7450,7500,7550,9999,7600,7630,7650,7670,7700,7710,7400-7980: NORMAL VIDEO-- NAME & ADDRESS INPUT-IW19:7950-C$-7850: BUILD LINE-I0IW7356-(1):R$(2)%,R$(13);15(R$(13)))7,R$(14):::?,RPR, CLEAR OUTPUT\,8800b,v,X CLEAN UP SHOP,] CLOSE R-A FILE,b(F$)0İ9800,d LIGHTS OUT,eD$;"OPEN INFO,D1",fD$;"CLOSE",g:, ADD INPUT ROUTINE-HT19 PRINT LABELS$+iH$"LABELS":9000C+n:"PRINT LABELS (Y/N)";T$Q+sT$"N"ım+x:"ALIGN YOUR PRINTER"+}"HIT RETURN WHEN READY :";T$+(T$)0ı+IO$"P"+D$;"PR# 1":+RP1RC+ READ RECORD+9750+R$(1)""6570 ,R$CENT OUT**X$;24(X$));X;6((X)));9*X0ī6320S*X(100((X100)RC))i*X1(X100):6350v*X1;".";*XX100(X100)*X10ĺ"0";*X;"%"**" 0.00%":* PERCENT FORMAT*X110ĺ1);*X1100ĺ1);*+d)XRM:6300()X$"RESIDENT FEMALES"7)XRF:6300=)L)X$"MALES"^)XRMNM:6300o)X$"FEMALES")XRFNF:6300))X$"NON-RESIDENT")XNFNM:6300)X$"RESIDENT")XRMRF:6300) CLEAR OUTPUT)8800)* PERR$(4)"Y"R$(5)"M"RMRM1=(R$(4)"N"R$(5)"M"NMNM1^(R$(4)"Y"R$(5)"F"RFRF1(R$(4)"N"R$(5)"F"NFNF1(RP(:(X$"NON-RESIDENT MALES"(XNM:6300(X$"NON-RESIDENT FEMALES"(XNF:6300(X$"RESIDENT MALES"8800 '!'p RESIDENT CHECK?'rH$"RESIDENT CHECK":9000P' SET OUTPUTZ'8700o' REPORT HEADINGy'8000'"LEAGUE :";F$;16(F$));"TOTAL";4);"%"'RM0:RF0:NM0:NF0'RP1RC' READ RECORD'9750'R$(1)""6080(0&RP;5((RP)));R$(1);26(R$(1)));R$(11);J&8(R$(11)));R$(16)R&RPX&&"TOTAL INSURANCE FEES $";INS;&INS(INS)ĺ".00";&&"TOTAL ALL FEES $";TL;&TL(TL)ĺ".00";&& RESET OUTPUT'E";22);"AM'T";2);"INS" %:-%RP1RC?% READ RECORDI%9750q%R$(1)""5590: SKIP IF EMPTY NAME%X(R$(11))%TLTLX% SKIP IF NO INSURANCE%R$(16)"N"5570%L(3)XINSINSX%L(3)XINSINSL(3)%D9$"N"5590(3) $5200$8500$PRP3$U CLEAR OUTPUT =$Z8800C$_T$| FEE ROSTERc$~TL0:INS0}$H$"FEE ROSTER":9000$"DO YOU WANT DETAIL (Y/N) :";D9$$ SET OUTPUT$8700$ REPORT HEADING$8000$:%D9$"Y"ĺ"#";4);"NAM"WHAT TEAM :";T1$)# SET OUTPUT DEVICE3#8700H# REPORT HEADINGR#8000_#RP1RCq# READ RECORD{#9750#R$(1)""5200#R$(10)T1$T2$"Y"ī5200#R$(9)T3$5200#T0$"Y"5100$RP;5((RP)));R$(1);22(R$(1)));R$EAM ASSIGNED...";R$(10)*" WRITE RECORD4"9700:"B"RPH"X" AGE CHECKw"T$"":T0$"":T1$"":T2$"""T3$"""H$"AGE CHECK":9000""DETAIL (Y/N) :";T0$""WHAT AGE GROUP :";T3$""LIST BY TEAM (Y/N) :";T2$#T2$"Y"Ą"N"ĺRP;5((RP)));R$(1);22(R$(1)));R$(10)7!RPK!  CLEAR OUTPUT U!8800[!m! ASSIGN NAME!H$"ASSIGN NAME":9000!RP1RC! READ RECORD!9750!R$(10)"NONE"R$(1)""4540!R$(1);25(R$(1)));R$(9)!""TE ?8800 B%  REVIEW ROSTERI H$"REVIEW LEAGUE ROSTER":9000c "DETAIL (Y/N) :";D9$t  SET OUTPUT~ 8700  REPORT HEADING 8000 :Z1 RP1RC  READ RECORD 9750 R$(1)""4100 D9$"Y"İ8500/!D9$GT0 IO$"P"İ8000:):Z06RP1RCH$ READ RECORDR)9750q+R$(10)T0$R$(1)""3640.D9$"Y"İ8500:36403RP;5((RP)));R$(1);21(R$(1)));R$(3);9(R$(3)));R$(9);3(R$(9)));R$(5)8RP = RESET OUTPUT DEVIC80!h ELSE REPEAT MAINTAINENCE+j 3000Cl CLOSE PLAYER FILEUn D$;"CLOSE"F$lq D$;"OPEN"F$",L"RLrv { LOOP INFO PRINT PRINT TEAM ROSTER H$"REVIEW TEAM ROSTER":9000 "DETAIL (Y/N) :";D9$ "TEAM :";T0$ 8100 FLA$"@ADD NAMES":9100%0 "ID# ";RP:15 I116=: T$,T0$L? I;4);T$;`D J1(15(T$))jI ".";qN J|S R$(I)X IZ EDIT PLAYER MAINTAINENCE] 9600b WRITE RECORDc 9700d :"CHANGE MORE PLAYERS (Y/N) :";T$f T$"N"31CONTINUE";T$  3100, ID# FETCH< RP((T$))S RP0RPRCī3090f "NO SUCH ID#" "PRESS RETURN TO CONTINUE";T$  READ RECORD 9750 PRINT PLAYER INFO! H$"ROSTER MAINTENANCE":9000& SET READ HEAD+ RD"ı  2600 0 MAINTAIN LEAGUE ROSTER6 < Z "ENTER NAME OR ID# :";T$q T$((T$))ī3060 SEARCH FOR NAME A$T$:FL1:9500 IF NAME FOUND THEN SKIP RPRCī3100 "NAME NOT FOUND IN FILE"  "PRESS ENTER TO GUE AGEx 94005} PRINT LEAGUE AGE & SKIP INPUTB A:2700\ 7300: INPUT ROUTINEv I1CC$""RCRC1: R$(I)CC$ I EDIT RECORD AND REPEAT 9600 WRITE RECORD 9700 : "MORE NAMES (Y/N) :";T$ T$"NEADER2 H$"ADD NAMES":900067 SET READ POINTERQ< RD$"@ADD NAMES":9100dA :"ID# ";RP:pF I116|P T$,T0$R I;4);T$;T0$;X X15(T$T0$)Z J1X_ ".";d Ji IF NOT LEAGUE AGE THEN SKIP n I9ī2695s CALC LEACLOSE"F$:D$;"DELETE"F$  ER1* 2444:( ADD NAMESj) :RC0Ą"SEARCH FOR UNUSED ID# (Y/N) :";T$|* T$"Y"2608+ SEARCH FOR EMPTY RECORD, FL1:A$""- 9500. RCRC1:2609/ ELSE SET RP TO EOF0 RPRC1:RCRP1 PRINT HBE USED..";F$ F$""ī2444) 2475A INIT RECORD COUNTK 8450h D$;"OPEN"F$",L"RL",D"D7~ D$;"READ"F$",R0" T$:RC(T$) D$ 216,0 ER1ER0:1500 1500 FILE CLOSED AND DELETED  "NO SUCH FILENAME":D$;"P) RESET ERROR HANDLER.D$;"CLOSE"F$>II1:2175[` OPEN NEW LEAGUE FILE ye H$"FILENAMES OF LEAGUES"j PRINT HEADERo 9000t y I1COUNT~ TM$(I) I  CLOSE OLD FILE (F$)0İ9800  "FILENAME TO {| JUMP IF FILE EMPTY1COUNTI2400EF$TM$(I):8450P2207mD$;"OPEN"F$",L"RL",D"D7D$;"READ"F$",R0"T$ FILE EXITS THEN SKIP INIT FILE (ERROR JUMP)D$D$;"WRITE"F$",R0""0" END (ERROR JUM" ";HD$; EDIT LEAGUE INFO)<9300F> WRITE OUT LEAGUE INFO]CD$;"OPEN INFO,D"1rHD$;"WRITE INFO"}JCOUNTMI19RL(I)WIYHD$aI1COUNTfTM$(I)kIpD$;"CLOSE INFO"u INIT LEAGUE FILES IF NEWzI1)TM$(COUNT)"END"2080.COUNTCOUNT182055i:"ENTER NUM TO CORRECT NAME (0=EXIT) :";N  EDIT LEAGUE NAMES!8900"COUNTCOUNT1#H$"INITIALIZING":9000%I19*T$:I;+8200,L(I)X/I4T$:T$:4);:00h END DRIVER, INITIALIZE OPTIONJRD$"INITIALIZING":H$RD$b SET READ POINTERl9100 PRINT HEADER9000"ENTER LEAGUE NAMES.""TO END, TYPE (END)":COUNT1" # ";COUNT;" LEAGUE NAME.."; TM$(COUNT :H$ PRINT HEADER'90003I112;T$W7(I10));I;" = ";T$^"Ip, PRINT BOX z19050ENFN3N12RC0İ8300:1500GN2000,2400,2600,3000,3500,4000,4500,5000,5500,6000,6500,7000JN0N121605O:15EAD INFO"COUNT$I19))L(I)0.I95HD$H8I1COUNTT=TM$(I)[BIoGD$"CLOSE INFO"L OPEN PLAYER FILEV SKIP TO DRIVER[2400 INIT MASTER FILE20001500xT$:T$: DRIVER ROUTINE216,0---------"HRL150RVT68 ENTER DATE AND TIMEY"ENTER DATE (MM-DD-YY)";D0$x"ENTER TIME (HH.MM) ";T9$ SET LEAGUE CONSTANTSD$;"OPEN INFO" TRAP FOR EMPTY FILE IF NO MASTER FILE THAN BUILD ONE1200 D$;"RRA FILE: F$* RECORD LENGTH = 150E DATASET FORMAT :\ R$(1...16)s ARRAY DIMENSION R$(16)L$(10)  SET PROGRAM CONSTANTS*D$(4)4HR$"=======================================" >BR$"---------------- = KEY SEARCH STRING3  FL = FIELD POINTERS  RP = RECORD POINTERq  RC = RECORD COUNT  A$ = SEARCH PATTERN X FILES USED b SEQ FILE: INFO l DATASET FORMAT : v COUNT,L(1..9),HD$  ARRAY!  T$ = SCRATCH PAD>  N = INPUT VARIABLE`  HR$ = HEADING CONSTANT}  D$ = DOS CONSTANT  H$ = HEADING  BR$ = BOX BORDER  RD$ = READ VARIABLE  I$ = INPUT STRING  A$E CUT-OFF MONTH1 6 L(4) = MALE CUT-OFF DAYU @ L(5) = MALE CUT-OFF YEAR z J L(6) = FEMALE CUT-OFF YEAR T L(8) = FEMALE CUT-OFF DAY ^ L(9) = FEMALE CUT-OFF YEAR h HD$ = ROSTER HEADING  TM$ = TEAM NAMEE & ZIP8  R$(15) = RESIDENT ZO NE : 2[  R$(16) = INSURANCE FLAG}  COUNT = NUMBER OF TEAMS  L(1) = PRESENT YEAR " L(2) = REGISTRATION FEE ' L(3) = INSURANCE FEE , L(3) = MAL(6) = BIRTH MONTH : 2/ R$(7) = DAY : 2J R$(8) = YEAR : 2k R$(9) = LEAGUE AGE : 2 R$(10) = TEAM : 12 R$(11) = FEES PAID R$(12) = RECEIPT NUM : 4 R$(13) = CITY : 10 R$(14) = STAT@ CLEAR SCREEN AFTER LOGO' :Bd LEAGUE REGISTRATIONIn _x VARIABLES USED| R$(1) = PLAYER NAME R$(2) = ADDRESS : 20 R$(3) = PHONE : 8 R$(4) = RESIDENCE CAT : 1 R$(5) = SEX : 1 R$                                "INITIALIZING"-E& "THE PRESENT YEAR (YY)"NE& "REGISTRATION FEE AMOUNT"lE& "INSURANCE FEE AMOUNT"E& "CUT-OFF MONTH FOR MALES (MM)"E& "CUT-OFF DAY FOR MALES (DD)"E& "CUT-OFF YEAR FOR MALES (YY)"F& "CUT-OFF MONTH FOR FEMALES (MAGUE ROSTER")D& "REVIEW TEAM ROSTER"GD& "REVIEW LEAGUE ROSTER"kD& "ASSIGN NAME TO TEAM ROSTER"~D& "AGE CHECK"D& "FEE ROSTER"D& "RESIDENT CHECK"D& "PRINT LABELS"D& "EXIT PROGRAM (A MUST)"D& INITIALIZING DATAE& ;"READ"F$",R"RPC%&I116&C'&R$(I)-C*&I5C/&D$;C4&PCH& CLOSE R-A FILEgCM&D$;"WRITE"F$",R0"rCR&(RC)CW&D$;"CLOSE"F$C\&C& "LEAGUE REGISTRATION MENU"C& "TO INITIALIZE"C& "OPEN NEW LEAGUE FILE","ADD NAMES" D& "MAINTAIN LE00,7630,7650,7670,7700,7710,7400.B%R$(I)CC$GB%7980: NORMAL VIDEO\B%23:H91:" ";gB%23:1qB%9605wB%B% WRITE RECORDB%D$;"OPEN"F$;",L"RLB%D$;"WRITE"F$",R"RPB%I116B%R$(I)B%IB%D$B%B& READ RECORDC &D$%R$(FL)A$ī9570AX%RPRP1'A]%9530-Ab%FA% EDIT PLAYER RECORDrA%CC$"":"FIELD CHANGE (1-16) 0=EXIT :";A%H9(0)1:Z5$A%I(Z5$)A%I0I16Ģ23:1:9605A%I09695A%VTI:19 B%I7350,7350,7370,7400,7430,7450,7500,7550,7550,76((R$(6))):PML(4)#@$PMBMAA14@$PMBM9440O@$BD((R$(7))):PDL(5)`@$ TRANS DAYSr@$PDBDAA1@$R$(9)(A):@% R-A SEARCH ROUTINE@5% INIT REC POINTER@8%RP1@:% SEARCH LOOP@=%RPRCī9570@?% READ RECORD@B%9750AIZING":9000(?v$RD$"INITIALIZING":91003?x$I19O?z$T$:I;5);T$;" :";L(I)V?|$Ib?~$T$:T$o?$5);HD$y?$9300?$ END EDIT LOOP?$ CALC LEAGUE AGE?$ TRANS YEARS?$BY((R$(8))):PYL(6)?$A(PY)(BY)1?$ TRANS MONTHS@$BM>#># SET READ POINTER$>#:>#T$:T$RD$9110@>#X>T$ EDIT LEAGUE INFO~>Y$"FIELD CHANGE (1-10) 0=EXIT :";N>^$N0N109305>c$N0ı>h$N10Ą"ENTER DATA :";HD$>m$N10Ą"ENTER DATA :";L(N)>r$ REFRESH SCREEN ?t$H$"INITIALI";TM$(I)="I="8900'=(# HEADER-=-#6=2#HR$N=7#20((H$)2));H$W=<#HR$n==#H$"ADD NAMES"ĺt=A#=Z# BOX=_#=d#8);BR$=i#8);"*WORKING";=n#I1(15(F$)):".";=s#I=x#F$;" *"=}#8);BR$:>#12);"OPTIONS (1-12)";ICE!Z1ĺ10(R$(11)));R$(9)-:@!Z0ĺc:D!5);R$(13);25(R$(13)));R$(14);25(R$(14)));:E!R$(5);10(R$(5)));R$(12):H!5);R$(3):J!:M!:! OUTPUT FORMATTER:!RP;5);R$(1);31);R$(10):!5);R$(2);31);R$(11) ;!5);R$(13); FILE NOTICE9q 59v :"SORRY BUT ";F$;" IS EMPTY"Z9{ :"PRESS RETURN TO CONTINUE";Z$`9 t9 BUILD NUMLINE94! OUTPUT FORMATTER96!IO$"S"ī860097! FORMATTER (PRINTER)9:!RP;5((RP)));:;!R$(1);25(R$(1)));R$(2);25(R$(2)));R$(1"PR# 1" 8.8 INITAILIZATION INPUT CHECK88 5);Z8 T$;:I$:X((I$)):X08220k8 I$"0"8220u8 82008 I3X082008 (I4I7)X1282008 (I2I3)X082008! (I5I8)X3182008& (I1I6I9)X9982008+ 9l EMPTYT60);T9$:7UT0$)7VFLAGT1ī8025;7WZ4$;" ";Z5$G7XFLAGT1M7Ys7 IO SELECT AND COACH'S HEADING7"PRINT ON (S) SCREEN"7" (P) PRINTER :";IO$7IO$"S"81507"COACH'S NAME :";Z4$7"COACH'S PHONE :";Z5$8D$; z#     "Ԡ" ٠Ӡ4 Ϡ٠ŠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nō΍͍ (ERROR JUMP)' RESET ERROR HANDLER=D$;"CLOSE"TM$(I)MII1:2175j` OPEN NEW LEAGUE FILE e H$"FILENAMES OF LEAGUES"j PRINT HEADERo 9000t y I1COUNT~ TM$(I) I  CLOSE OLD FILE (F$)0İ9800AGUE FILES IF NEWzI1{8| JUMP IF FILE EMPTYC}2207UCOUNTI2400pD$;"OPEN"TM$(I)",L"RLD$;"READ"TM$(I)",R0"T$ FILE EXITS THEN SKIP INIT FILE (ERROR JUMP)D$D$;"WRITE"TM$(I)",R0""0"  ENDX/I#4T$:T$:4);:" ";HD$;; EDIT LEAGUE INFOE<9300b> WRITE OUT LEAGUE INFOvCD$;"OPEN INFO"HD$;"WRITE INFO"JCOUNTMI19RL(I)WIYHD$aI1COUNTfTM$(I)kIpD$;"CLOSE INFO"u INIT LEAGUE NAME.."; TM$(COUNT)8TM$(COUNT)"END"2080JCOUNTCOUNT1T2055:"ENTER NUM TO CORRECT NAME (0=EXIT) :";N  EDIT LEAGUE NAMES!8900"COUNTCOUNT1#H$"INITIALIZING":9000%I19*T$:I;+8200,L(I)JN0N121605O:1500/h END DRIVERH INITIALIZE OPTIONfRD$"INITIALIZING":H$RD$~ SET READ POINTER9100 PRINT HEADER9000"ENTER LEAGUE NAMES.""TO END, TYPE (END)":COUNT1 " # ";COUNT;" LE DRIVER ROUTINE216,0%:H$9 PRINT HEADERC9000OI112WT$s7(I10));I;" = ";T$z"I, PRINT BOX 19050ENFN3N12RC0İ8300:1500GN2000,2400,2600,3000,3500,4000,4500,5000,5500,6000,6500,7000AD INFO"COUNT:1400%$I19/)L(I)6.I?5HD$N8I1COUNTZ=TM$(I)aBIuGD$"CLOSE INFO"L OPEN PLAYER FILEN216,0V SKIP TO DRIVER[2400 INIT MASTER FILE216,020001500xT$:T$:--"HRL150RVT61 ENTER DATE AND TIME7X"ENTER DATE (MM-DD-YY)";D0$w"ENTER TIME (HH.MM) ";T9$ SET LEAGUE CONSTANTSD$;"OPEN INFO" TRAP FOR EMPTY FILE IF NO MASTER FILE THAN BUILD ONE1200D$;"REA FILE: F$$ RECORD LENGTH =? DATASET FORMAT :U R$(1...15)l ARRAY DIMENSION xR$(16)L$(10)  SET PROGRAM CONSTANTS*D$(4)4HR$"=======================================">BR$"-----------------------  RP = RECORD POINTER>  RC = RECORD COUNT_  A$ = SEARCH PATTERNw 0INS(INS)ĺ".00"; X FILES USED b SEQ FILE: INFO:0 l DATASET FORMAT : v NT,PY,RG,IN,MM,MD,MY,FM,FD,FY  VF,HD$  RUT VARIABLE-  HR$ = HEADING CONSTANTJ  D$ = DOS CONSTANTd  H$ = HEADING  BR$ = BOX BORDER  RD$ = READ VARIABLE  I$ = INPUT STRING  A$ = KEY SEARCH STRING  FL = FIELD POINTER @ L(5) = MALE CUT-OFF YEAR G J L(6) = FEMALE CUT-OFF YEARm T L(8) = FEMALE CUT-OFF DAY ^ L(9) = FEMALE CUT-OFF YEAR h HD$ = ROSTER HEADING  TM$ = TEAM NAME ARRAY  T$ = SCRATCH PAD  N = INP NE : 25  R$(16) = INSURANCE FLAGJ COUNTNUMOFTEAMSh  L(1) = PRESENT YEAR " L(2) = REGISTRATION FEE ' L(3) = INSURANCE FEE , L(3) = MALE CUT-OFF MONTH 6 L(4) = MALE CUT-OFF DAY"= DAY : 2$ R$(8) = YEAR : 2E R$(9) = LEAGUE AGE : 2c R$(10) = TEAM : 12 R$(11) = FEES PAID R$(12) = RECEIPT NUM : 10 R$(13) = CITY : 10 R$(14) = STATE & ZIP  R$(15) = RESIDENT ZOŲנ΍ƍԍٍ)II1:2175.` OPEN NEW LEAGUE FILE Le H$"FILENAMES OF LEAGUES"`j PRINT HEADERjo 9000pt y I1COUNT~ TM$(I) I  CLOSE OLD FILE (F$)0İ9800 "FILENAME TO BE USED..";F$ F$""ī2444 24752207COUNTI24004D$;"OPEN"TM$(I)",L"RLND$;"READ"TM$(I)",R0"VT$q FILE EXITS THEN SKIP INIT FILE (ERROR JUMP)D$D$;"WRITE"TM$(I)",R0""0" END (ERROR JUMP) RESET ERROR HANDLERD$;"CLOSE"TM$(I <9300&> WRITE OUT LEAGUE INFO:CD$;"OPEN INFO"OHD$;"WRITE INFO"ZJCOUNTeMI19oRL(I)vWIYHD$aI1COUNTfTM$(I)kIpD$;"CLOSE INFO"u INIT LEAGUE FILES IF NEWzI1{| JUMP IF FILE EMPTY}COUNTCOUNT12055I:"ENTER NUM TO CORRECT NAME (0=EXIT) :";Na  EDIT LEAGUE NAMESk!8900}"COUNTCOUNT1#H$"INITIALIZING":9000%I19*T$:I;+8200,L(I)X/I4T$:T$:4);:" ";HD$; EDIT LEAGUE INFOALIZE OPTION*RD$"INITIALIZING":H$RD$B SET READ POINTERL9100` PRINT HEADERj9000"ENTER LEAGUE NAMES.""TO END, TYPE (END)":COUNT1" # ";COUNT;" LEAGUE NAME.."; TM$(COUNT)TM$(COUNT)"END"20809000I112T$77(I10));I;" = ";T$>"IP, PRINT BOX Z19050aENFN3N12RC0İ8300:1500GN2000,2400,2600,3000,3500,4000,4500,5000,5500,6000,6500,7000JN0N121605O:1500h END DRIVER  INITI )L(I).I5HD$(8I1COUNT4=TM$(I);BIOGD$"CLOSE INFO"fL OPEN PLAYER FILE{V SKIP TO DRIVER[2400 INIT MASTER FILE20001500xT$:T$: DRIVER ROUTINE216,0:H$ PRINT HEADERNTER DATE AND TIME9"ENTER DATE (MM-DD-YY)";D0$X"ENTER TIME (HH.MM) ";T9$t SET LEAGUE CONSTANTSD$;"OPEN INFO" TRAP FOR EMPTY FILE IF NO MASTER FILE THAN BUILD ONE1200D$;"READ INFO"COUNT$I19 150 DATASET FORMAT :6 R$(1...16)M ARRAY DIMENSION YR$(16)eL$(10)  SET PROGRAM CONSTANTS*D$(4)4HR$"=======================================">BR$"-------------------------"HRL150RVT6 EFIELD POINTER-  RP = RECORD POINTERK  RC = RECORD COUNTl  A$ = SEARCH PATTERN~ X FILES USED b SEQ FILE: INFO l DATASET FORMAT : v COUNT,L(1..9),HD$  RA FILE: F$ RECORD LENGTH = N = INPUT VARIABLE:  HR$ = HEADING CONSTANTW  D$ = DOS CONSTANTq  H$ = HEADING  BR$ = BOX BORDER  RD$ = READ VARIABLE  I$ = INPUT STRING  A$ = KEY SEARCH STRING  FL = CUT-OFF DAY/ @ L(5) = MALE CUT-OFF YEAR T J L(6) = FEMALE CUT-OFF YEARz T L(8) = FEMALE CUT-OFF DAY ^ L(9) = FEMALE CUT-OFF YEAR h HD$ = ROSTER HEADING  TM$ = TEAM NAME ARRAY  T$ = SCRATCH PAD  NE : 25  R$(16) = INSURANCE FLAGW  COUNT = NUMBER OF TEAMSu  L(1) = PRESENT YEAR " L(2) = REGISTRATION FEE ' L(3) = INSURANCE FEE , L(3) = MALE CUT-OFF MONTH 6 L(4) = MALE = DAY : 2$ R$(8) = YEAR : 2E R$(9) = LEAGUE AGE : 2c R$(10) = TEAM : 12 R$(11) = FEES PAID R$(12) = RECEIPT NUM : 10 R$(13) = CITY : 10 R$(14) = STATE & ZIP  R$(15) = RESIDENT ZO?d LEAGUE REGISTRATION#n 9x VARIABLES USEDV R$(1) = PLAYER NAMEt R$(2) = ADDRESS : 20 R$(3) = PHONE : 8 R$(4) = RESIDENCE CAT : 1 R$(5) = SEX : 1 R$(6) = BIRTH MONTH : 2 R$(7) (R$(11)));R$(16)&RP&K&"TOTAL INSURANCE FEES $";INS;c&INS(INS)ĺ".00";i&&"TOTAL ALL FEES $";TL;&TL(TL)ĺ".00";&& RESET OUTPUT&8800&&p RESIDENT CHECK'rH$"RESIDENT CHECK"RECORD%97508%R$(1)""5590: SKIP IF EMPTY NAMEH%X(R$(11))T%TLTLXo% SKIP IF NO INSURANCE%R$(16)"N"5570%L(3)XINSINSX%L(3)XINSINSL(3)%D9$"N"5590%RP;5((RP)));R$(1);26(R$(1)));R$(11);&88800 $_$| FEE ROSTER*$~TL0:INS0D$H$"FEE ROSTER":9000j$"DO YOU WANT DETAIL (Y/N) :";D9${$ SET OUTPUT$8700$ REPORT HEADING$8000$:$D9$"Y"ĺ"#";4);"NAME";22);"AMNT";2);"INS"$:$RP1RC% READ P1RC# READ RECORD"#97505#R$(1)""5200T#R$(10)T1$T2$"Y"ī5200i#R$(9)T3$5200{#T0$"Y"5100#RP;5((RP)));R$(1);22(R$(1)));#T2$"Y"ĺR$(10)#T2$"Y"ĺ#5200#8500#PRP#U CLEAR OUTPUT $Z"T$"":T0$"":T1$"":T2$"")"T3$""B"H$"AGE CHECK":9000\""DETAIL (Y/N) :";T0$x""WHAT AGE GROUP :";T3$""LIST BY TEAM (Y/N) :";T2$"T2$"Y"Ą"WHAT TEAM :";T1$" SET OUTPUT DEVICE"8700" REPORT HEADING"8000#R! ASSIGN NAME/!H$"ASSIGN NAME":90005C$(13)I0IW:7896Q5C$(8)7880c5(CC$)7896}5CC$(CC$,1,(CC$)1)5I0I01:78955CC$CC$C$:I0I015C$;55 PRINT INVERSE MASK5:I01IW5" ";:I05I006VTI:4I0IW76574&4 CITY INPUT64IW12:7950>4C$Z4(C$)65(C$)907674q47850: BUILD LINE4I0IW767444 STATE & ZIP4IW8:79504C$:78504I0IW770444 RESIDENT ZONE4 IW2:79504"C$:7850 5C$37850: BUILD LINE*3I0IW761003B3 AMOUNT PAIDQ3IW6:7950b3C$:Z9(C$)3Z98Z913Z946Z94876413(C$)076413763737850: BUILD LINE3I0IW763733 RECEIPT INPUT3IW10:79503C$:7850CC$CC$C$:C$;2t'2~ INPUT YEAR;2IW2:7950:I00c2C$:I01(C$)8CC$"":C$;:7550v2C$(13)75902(C$)075602C$"0"7560275542CC$CC$C$:C$;:I0I012I0IW755422 ENTER TEAM2IW12:7950:I003C$(13)75401W7507'1XCC$C$:C$;J1YC$:(C$)8CC$"":C$;:7500[1ZC$"1"7538l1[C$"0"75381\C$(13)75401]75131`CC$C$:C$;1bC$:(C$)8CC$"":C$;:75001c(C$)075381dC$"0"75381eC$(13)75401f75222r9403C$(13)7495047472/08C$;:CC$C$R0:C$:(C$)8CC$"":C$;:7450d0<(C$)07494w0=C$(13)74950>74820FC$;:CC$CC$C$0G0L INPUT DAY0QIW2:79500SC$:C$"0"75200T(C$)0(C$)375200UC$"3"7512 1V"F"7440/C$(13)7442%/74340/CC$C$6/N/ BIRTH MONTH INPUT]/IW2:7950e/C$v/ C$"1"7470/!C$"0"7480/"C$(13)7495/#7455/.C$;:CC$C$/0C$:(C$)8CC$"":C$;:7450/1C$"0"749402(C$)0(C$)374(C$)87382.7375-.7850: BUILD LINE=.I0IW7375C.X. RESIDENT INPUTg.IW1:7950o.C$.C$"Y"7410.C$"N"7410.C$(13)7412.7404.CC$C$.. INPUT SEX.IW1:7950. C$. C$"M"7440/ C$0,7630,7650,7670,7700,7710,74008-7980: NORMAL VIDEO>-Y- NAME & ADDRESS INPUTi-IW19:7950q-C$-7850: BUILD LINE-I0IW7356-- PHONE INPUT-IW8:7950-C$:(C$)07382-(C$)45(C$)487382 .(C$)13,RP, CLEAR OUTPUT#,8800),=,X CLEAN UP SHOPR,] CLOSE R-A FILEe,b(F$)0İ9800v,d LIGHTS OUT~,g:, ADD INPUT ROUTINE,HT19:VT6: SCREEN CONSTANTS,CC$"":I00-I7350,7350,7370,7400,7430,7450,7500,7550,9999,760 (Y/N)";T$+sT$"N"ı4+x:"ALIGN YOUR PRINTER"V+}"HIT RETURN WHEN READY :";T$e+(T$)0ıq+IO$"P"+D$;"PR# 1":+RP1RC+ READ RECORD+9750+R$(1)""6570+R$(1):R$(2)+R$(13);15(R$(13)))+R$(14):::*X(100((X100)RC))0*X1(X100):6350=*X1;".";R*XX100(X100)b*X10ĺ"0";m*X;"%"s**" 0.00%":* PERCENT FORMAT*X110ĺ1);*X1100ĺ1);**d PRINT LABELS*iH$"LABELS":9000 +n:"PRINT LABELS))X$"MALES"%)XRMNM:63006)X$"FEMALES"H)XRFNF:6300N)d)X$"NON-RESIDENT"v)XNFNM:6300)X$"RESIDENT")XRMRF:6300) CLEAR OUTPUT)8800)) PERCENT OUT)X$;24(X$));X;6((X)));*X0ī6320NM1%(R$(4)"Y"R$(5)"F"RFRF1F(R$(4)"N"R$(5)"F"NFNF1N(RPV(:r(X$"NON-RESIDENT MALES"(XNM:6300(X$"NON-RESIDENT FEMALES"(XNF:6300(X$"RESIDENT MALES"(XRM:6300(X$"RESIDENT FEMALES"(XRF:6300ALES (YY)"+F& "HEADING FOR ROSTER :">F& "@ADD NAMES"UF& "NAME"," (FULL)"jF& "ADDRESS","." }F& "PHONE","." F& "RESIDENT"," (Y/N)" F& "SEX"," (M/F)"F& "BIRTH MONTH","."F& "DAY"," (1-31)" F& "YEAR"," (YY)"G& "L AMOUNT"&E& "INSURANCE FEE AMOUNT"LE& "CUT-OFF MONTH FOR MALES (MM)"pE& "CUT-OFF DAY FOR MALES (DD)"E& "CUT-OFF YEAR FOR MALES (YY)"E& "CUT-OFF MONTH FOR FEMALES (MM)"E& "CUT-OFF DAY FOR FEMALES (DD)" F& "CUT-OFF YEAR FOR FEM"%D& "ASSIGN NAME TO TEAM ROSTER"8D& "AGE CHECK"LD& "FEE ROSTER"dD& "RESIDENT CHECK"zD& "PRINT LABELS"D& "EXIT PROGRAM (A MUST)"D& INITIALIZING DATAD& "INITIALIZING"D& "THE PRESENT YEAR (YY)"E& "REGISTRATION FEEE R-A FILE!CM&D$;"WRITE"F$",R0",CR&(RC)>CW&D$;"CLOSE"F$DC\&eC& "LEAGUE REGISTRATION MENU"|C& "TO INITIALIZE"C& "OPEN NEW LEAGUE FILE","ADD NAMES"C& "MAINTAIN LEAGUE ROSTER"C& "REVIEW TEAM ROSTER"D& "REVIEW LEAGUE ROSTEROB%23:H91:" ";!B%23:1+B%96051B%DB% WRITE RECORD\B%D$;"OPEN"F$;",L"RLtB%D$;"WRITE"F$",R"RPB%I116B%R$(I)B%IB%D$B%B& READ RECORDB &D$;"READ"F$",R"RPB%&I116B'&R$(I)B*&IB/&D$B4& CH& CLOS,A%CC$"":"FIELD CHANGE (1-16) 0=EXIT :";?A%H9(0)1:Z5$LA%I(Z5$)gA%I0I16Ģ23:1:9605uA%I09695A%VTI:19A%I7350,7350,7370,7400,7430,7450,7500,7550,7550,7600,7630,7650,7670,7700,7710,7400A%R$(I)CC$B%7980: NORMAL VIDE):PDL(5)@$ TRANS DAYS,@$PDBDAA1=@$R$(9)(A):V@% R-A SEARCH ROUTINEm@5% INIT REC POINTERv@8%RP1@:% SEARCH LOOP@=%RPRCī9570@?% READ RECORD@B%9750@I%R$(FL)A$ī9570@X%RPRP1@]%9530@b%A% EDIT PLAYER RECORD :";L$(I)?|$I?~$T$:T$)?$5);HD$3?$9300G?$ END EDIT LOOP]?$ CALC LEAGUE AGEo?$ TRANS YEARS?$BY((R$(8))):PYL(6)?$A(PY)(BY)1?$ TRANS MONTHS?$BM((R$(6))):PML(4)?$PMBMAA1?$PMBM9440 @$BD((R$(7))EDIT LEAGUE INFO6>Y$"FIELD CHANGE (1-10) 0=EXIT :";NI>^$N0N109305T>c$N0ır>h$N10Ą"ENTER DATA :";HD$>m$N10Ą"ENTER DATA :";L$(N)>r$ REFRESH SCREEN>t$H$"INITIALIZING":9000>v$RD$"INITIALIZING":9100>x$I19 ?z$T$:I;5);T$;"2));H$=<#HR$&==#H$"ADD NAMES"ĺ,=A#7=Z# BOX==_#J=d#8);BR$_=i#8);"*WORKING";y=n#I1(15(F$)):".";=s#I=x#F$;" *"=}#8);BR$:=#12);"OPTIONS (1-12)";=#=# SET READ POINTER=#=#T$:T$RD$9110=#>T$ UE";T$ !Z1ĺ10(R$(11)));R$(9)9@!Z0ĺ:D!5);R$(13);25(R$(1((I$)):X08220#8 I$"0"8220-8 8200?8 I3X08200X8 (I4I7)X128200p8 (I2I3)X082008! (I5I8)X3182008& (I1I6I9)X9982008+ 8l EMPTY FILE NOTICE8q 8v :"SORRY BUT ";F$;" IS EMPTY"9{ :"PRESS RETU137,90:139,89138,89:139,88]131,62131,63:132,64133,64:134,64137,68:138,69138,70139,71139,73:140,74140,77:141,85141,77:142,74142,820112,63112,64:110,65:109,66108,66:107,67104,70:103,70103,71#b102,72102,73:101,74,45H42,4642,47:41,4841,49:40,5040,51:39,5139,52:38,5338,55Y37,5637,60wJ **** MOUTH (RIGHT) ****T127,95127,96:133,97129,97:135,96128,96:136,95132,95:137,94133,94:137,93135,93138,92136,92:139,91136,91:139,906,29:105,28100,28:99,2794,27:93,2688,26:87,2782,27:81,2876,2875,2971,29:70,3068,30:64,3167,31:62,3263,32:60,3361,33258,3459,34:56,3557,35:55,36:54,3753,37:52,3851,39d49,4050,40:48,4147,42:45,4346,43:44,44432107,99:106,98105,98:104,97103,97N_102,96101,95:100,9499,94:98,93c97,9296,92:95,9194,91:93,9092,90:91,8990,89:89,8885,88122,35121,35:120,34119,34:118,33117,33:116,32115,32:114,31112,31:111,30109,30G108,2910104,116105,116:105,115106,114:104,118110,118:106,117107,116>108,117110,115:111,117112,117:113,116115,114:116,115120,119J121,120122,120K123,119L124,118124,116:123,115123,114:122,113113,104:112,103111,103&Y110,1045,85:144,84143,84:143,85143,86:142,86140,86r(84,10386,103:87,10488,104:89,10590,105:91,10693,106,94,10795,107:95,108:96,10996,110:97,11197,112:98,113199,114100,115:101,116101,114:102,114104,112B7102,117103,117:112,127:112,128110,128:109,128109,131:109,13172,131r142,71142,72:143,73143,74:144,74:145,74145,75146,76147,77:148,78148,79:149,80149,81:150,82150,84151,85151,86:150,87150,88:149,89148,89:147,88146,872#145,8610,110130,113:129,112129,114w128,114128,115:127,115127,116:126,116126,118:125,118125,119:124,119124,120 123,120123,121:122,121122,122:121,122121,123:120,123120,124:119,124119,1259118,125118,126:117,126117,127:116,1272,73130,73K124,68128,68:123,69129,69:124,74128,74:123,73129,73}140,87140,94:139,94139,99:138,99138,101137,101137,102:136,102136,104:135,104135,106:134,106134,107133,107133,108:132,108132,109:131,109131,110:13***R 132,55129,55:133,56128,56:133,57132,57:133,58132,58:133,59132,59 129,57127,57:129,58126,58:129,59126,59:132,60126,60 132,61127,61:121,60123,60:124,61125,61:126,62 122,70130,70:122,71130,71:122,72130,72:1279,136:77,13575,135:74,13473,134:72,13371,133:71,132 4118,55114,55:119,56112,56:119,57117,57:114,57111,57:119,58117,58:114,58111,58 p119,59117,59:114,59111,59:111,60118,60:120,61112,61:114,62112,62  **** RIGHT EYE *33:109,132109,131\ b113,140110,140:109,139:108,138107,138:107,137:106,136106,132 108,140104,140:103,13998,139:101,138101,135:102,135102,133:103,132 97,13883,138:96,13796,135:97,13497,133:98,132< 82,13780,137:78,136113,95:114,91114,97:115,94115,97U 116,95116,97:117,95117,97:118,95118,97 119,95119,97:120,95120,97:121,95121,96 122,95122,96 123,95123,95 115,139114,139:114,138:113,137112,137:112,136 D111,135111,134:110,1140:117,140117,130:117,130152,122\ ,122,127137,111:126,126140,110:129,126143,109 J133,125147,108:137,124150,107:141,123153,106:145,122157,105 |125,78125,95:126,78126,96:110,88110,91:111,88111,93$ 112,88112,94:113,88G ::6:14,0258,0:14,014,159:258,159258,0:14,159258,159:3{206,37245,37:245,37245,114:245,114228,140228,140228,49:228,49180,49:206,37180,49:180,49152,122:228,49245,37% 158,104135,110:135,110117,130:117,140228,           pAA  @1x@  ! ժժժժժժժժժժժժժժժժժժժժRAUSE:3:7020:0:7020:I:7030zlPAUSE1100:PAUSE:"":115,57115,59:130,57130,59:116,57116,59:131,57131,59:v22:" WELCOME TO OUR WARM FUZZY SOFTWARE"(4);"RUN LEAGUE REG"ժժժժժժժժժ@0@ 33,77W34,7734,82:35,8335,85:36,8536,88:37,8937,93:38,9438,96:39,9739,9940,9940,100:41,10141,102:42,10342,104:43,10543,106:44,10744,108X45,10946,109:47,10947,110:48,11149,112:49,11355,118aI12:PAUSE1400:P52:76,7374,71:73,7073,68:72,6772,66{73,6573,63:74,6274,61:75,6075,59:76,5878,56:79,5580,55:81,5482,5483,5385,53:86,5487,55:88,5688,58:87,5979,67:78,6878,69:77,7077,7236,5836,60:35,6135,63:34,6434,69:33,6973,7474,74:71,7372,73:70,7268,70:67,6967,68:66,6766,6565,6465,63:66,6266,60:67,5967,58:68,5768,56:69,5569,54:70,5374,4975,4876,48:77,4779,47:79,4681,46:82,4585,45:87,4688,46:89,4790,47)91,4892,49:93,5093,133,35132,35:131,36130,36:130,37129,37n72,13070,130:69,12967,129:66,12865,128:65,12764,12764,12663,126:63,12561,125:61,12460,124:60,12359,12359,12258,122:58,12157,121:57,12056,120:56,11955,119@z76,7575,75:6:150,45150,39:149,38149,36n148,35148,34:147,33144,33:146,32144,30:143,29141,29:142,28135,28137,29131,29:131,30130,30:129,31128,31:128,32127,32:127,33126,33126,34125,35:143,32141,32:140,33137,33:136,34134,34.34,49134,48:133,47133,46:132,45132,44y*131,43131,42:130,41130,40:129,40128,40:128,39127,39:129,38126,38 125,37124,37:124,36123,36:143,57140,57:145,56144,56:146,55145,55 147,54146,54:147,53:148,52148,50:149,49149,4101,75:100,76100,78:99,7999,80r100,81100,83:101,84101,85:102,86102,87:103,88103,89:104,90104,91 **** RIGHT EAR ****141,70141,67:140,66140,63:139,62139,58:138,57138,56:137,55137,54*136,53136,52:135,51135,50:1٠̠Ӎٍٍ2207COUNTI24004D$;"OPEN"TM$(I)",L"RLND$;"READ"TM$(I)",R0"VT$q FILE EXITS THEN SKIP INIT FILE (ERROR JUMP)D$D$;"WRITE"TM$(I)",R0""0" END (ERROR JUMP) RESET ERROR HANDLERD$;"CLOSE"TM$(I <9300&> WRITE OUT LEAGUE INFO:CD$;"OPEN INFO"OHD$;"WRITE INFO"ZJCOUNTeMI19oRL(I)vWIYHD$aI1COUNTfTM$(I)kIpD$;"CLOSE INFO"u INIT LEAGUE FILES IF NEWzI1{| JUMP IF FILE EMPTY}COUNTCOUNT12055I:"ENTER NUM TO CORRECT NAME (0=EXIT) :";Na  EDIT LEAGUE NAMESk!8900}"COUNTCOUNT1#H$"INITIALIZING":9000%I19*T$:I;+8200,L(I)X/I4T$:T$:4);:" ";HD$; EDIT LEAGUE INFOALIZE OPTION*RD$"INITIALIZING":H$RD$B SET READ POINTERL9100` PRINT HEADERj9000"ENTER LEAGUE NAMES.""TO END, TYPE (END)":COUNT1" # ";COUNT;" LEAGUE NAME.."; TM$(COUNT)TM$(COUNT)"END"20809000I112T$77(I10));I;" = ";T$>"IP, PRINT BOX Z19050aENFN3N12RC0İ8300:1500GN2000,2400,2600,3000,3500,4000,4500,5000,5500,6000,6500,7000JN0N121605O:1500h END DRIVER  INITI )L(I).I5HD$(8I1COUNT4=TM$(I);BIOGD$"CLOSE INFO"fL OPEN PLAYER FILE{V SKIP TO DRIVER[2400 INIT MASTER FILE20001500xT$:T$: DRIVER ROUTINE216,0:H$ PRINT HEADERNTER DATE AND TIME9"ENTER DATE (MM-DD-YY)";D0$X"ENTER TIME (HH.MM) ";T9$t SET LEAGUE CONSTANTSD$;"OPEN INFO" TRAP FOR EMPTY FILE IF NO MASTER FILE THAN BUILD ONE1200D$;"READ INFO"COUNT$I19 150 DATASET FORMAT :6 R$(1...16)M ARRAY DIMENSION YR$(16)eL$(10)  SET PROGRAM CONSTANTS*D$(4)4HR$"=======================================">BR$"-------------------------"HRL150RVT6 EFIELD POINTER-  RP = RECORD POINTERK  RC = RECORD COUNTl  A$ = SEARCH PATTERN~ X FILES USED b SEQ FILE: INFO l DATASET FORMAT : v COUNT,L(1..9),HD$  RA FILE: F$ RECORD LENGTH = N = INPUT VARIABLE:  HR$ = HEADING CONSTANTW  D$ = DOS CONSTANTq  H$ = HEADING  BR$ = BOX BORDER  RD$ = READ VARIABLE  I$ = INPUT STRING  A$ = KEY SEARCH STRING  FL = CUT-OFF DAY/ @ L(5) = MALE CUT-OFF YEAR T J L(6) = FEMALE CUT-OFF YEARz T L(8) = FEMALE CUT-OFF DAY ^ L(9) = FEMALE CUT-OFF YEAR h HD$ = ROSTER HEADING  TM$ = TEAM NAME ARRAY  T$ = SCRATCH PAD  NE : 25  R$(16) = INSURANCE FLAGW  COUNT = NUMBER OF TEAMSu  L(1) = PRESENT YEAR " L(2) = REGISTRATION FEE ' L(3) = INSURANCE FEE , L(3) = MALE CUT-OFF MONTH 6 L(4) = MALE = DAY : 2$ R$(8) = YEAR : 2E R$(9) = LEAGUE AGE : 2c R$(10) = TEAM : 12 R$(11) = FEES PAID R$(12) = RECEIPT NUM : 10 R$(13) = CITY : 10 R$(14) = STATE & ZIP  R$(15) = RESIDENT ZO?d LEAGUE REGISTRATION#n 9x VARIABLES USEDV R$(1) = PLAYER NAMEt R$(2) = ADDRESS : 20 R$(3) = PHONE : 8 R$(4) = RESIDENCE CAT : 1 R$(5) = SEX : 1 R$(6) = BIRTH MONTH : 2 R$(7)                       8800 $_$| FEE ROSTER*$~TL0:INS0D$H$"FEE ROSTER":9000j$"DO YOU WANT DETAIL (Y/N) :";D9${$ SET OUTPUT$8700$ REPORT HEADING$8000$:$D9$"Y"ĺ"#";4);"NAME";22);"AMNT";2);"INS"$:$RP1RC% READ P1RC# READ RECORD"#97505#R$(1)""5200T#R$(10)T1$T2$"Y"ī5200i#R$(9)T3$5200{#T0$"Y"5100#RP;5((RP)));R$(1);22(R$(1)));#T2$"Y"ĺR$(10)#T2$"Y"ĺ#5200#8500#PRP#U CLEAR OUTPUT $Z"T$"":T0$"":T1$"":T2$"")"T3$""B"H$"AGE CHECK":9000\""DETAIL (Y/N) :";T0$x""WHAT AGE GROUP :";T3$""LIST BY TEAM (Y/N) :";T2$"T2$"Y"Ą"WHAT TEAM :";T1$" SET OUTPUT DEVICE"8700" REPORT HEADING"8000#R! ASSIGN NAME/!H$"ASSIGN NAME":9000Y(I)HDN(I)MJ112RT$(J)WID$(J)\NAME$(J)aPHN$(J)fJp L DELETE FACILIT CHARACTER OF SD$+II1:A$(SD$,I,1)1gQ999::"INCORRECT DATE FORMAT. PLEASE RE-ENTER""USING FORMAT M/D/YR (E.G. 2/17/81 FOR""FEBRUARY 17, 1981).": SUBROUTINE TO WRITE TO FILERIM(R)D(R)Y(R)9995980!RA$"0"A$"9"İ6140'\Af CHECK MONTH AND DAYKp6100dzA$"0"A$"9"İ6100tQ9996090~6100A$"/"6090A$"0"A$"9"İ6140Q99960906100A$"/"İ6140 INCREMENTS I AND GETS NEXT! CHECK FOR LEGAL DATE-Q0:I0A(SD$)8İ6140QQ9995980n5990: CHECK FOR 1 OR 2 DIGITS FOR MONTH Q99959805990 CHECK DAY Q9995980* CHECK FOR LEGAL YEAR46100>A$"8"A$"9"İ6140HQNOF XNF$FA$(I)INOF:5830'bI1lQ999Sv:"NO SUCH FACILITY LISTED."NOF0ĺ:"NO FACILITY FILES ARE CURRENTLY ACTIVE."::5830"EXISTING FACILITY FILES ARE:":I1NOF2FA$(I);20)FA$(I1)I$ SUBROUTINE TO CHECK FOR> LEGAL FACILITY NAMEFQ0m(NF$,1)"A"(NF$,1)"Z"ī5680s:"FACILITY NAME MUST BEGIN WITH A LETTER."&Q9990: SUBROUTINE TO CHECK; FOR EXISTING FACILITY FILEDQ0NI1Q9995370,(YR$)100YR$"19"B$9Y(YR$)_Y1984Y1988ML(2)29:ML(14)29u FIND DAY NUMBERM2ī5340MM12YY1ND2M(.6(M1))Y(Y4)(Y100)(Y400)2N((N7(N7))7.5)M12MM12:YY1************** SL(SD$)&B$""2I1SLD(A$(SD$,I,1)`2A$"/"B$B$A$:5200~<I3M(B$):B$"":5200FI6D(B$):B$""PIZM125240dDML(M)5240n5270x:"ILLEGAL DATE. PLEASE CHECK AND RE-ENTER.": 'N'.":2 CHECK FOR NUMERIC INPUTMQ0:(IN$,1)"N"5080s(IN$,1)"0"(IN$,1)"9"5080:"PLEASE ENTER A NUMBER.":Q999 ****************** CALCULATE DAY, MONTH, YEAR AND DAY NUMBER. ****  LK$;NF$0%:"FILE FOR ";NF$;" UPDATED."?*Q$"Y"ĂLk4:"PRESS RETURN TO RETURN TO MENU.";A$>D$;"RUN FACILITY RESERVATIONS, D1" CHECK FOR Y/N INPUTQ$(Q$,1)Q$"Y"5060Q$"N"5060:"PLEASE ENTER 'Y' OR TEMP ,R";IK1b7100 lI7 CREATE NEW DATESLILASTK2LASTW10100mWR$;" TEMP, R";Iw7100~ICL$;NF$CL$;" TEMP" DELETE NF$;RENAME TEMP;LOCK NF$UN$;NF$ D$;"DELETE ";NF$D$;"RENAME TEMP,";NF$ART TEMP FILELK$;NF$/WR$;" TEMP, R1"97100GI2LASTR 10100h"WR$;" TEMP, R";Ir$7100y&I(45500 TRANSFER DATA5OP$;NF$;", L720, D2"6OP$;" TEMP, L720":IKLASTDRD$;NF$;", R";IN7200XWR$;"12TIME$(I,J)J:I2WR$;" TEMP, R0";NF$FI06RJ112bTIME$(I,J)iJpI FIND DATE IN FILEI1LASTRD$;NF$;", R";IM(I),D(I),Y(I),DN(I)D(I)DM(I)MKI:ILAST:4400I 10000: STFA$(L) 4170. :"FACILITY NAME: ";NF$B NF$"HELP"200L "5600\ ,Q9994110f 65690w @Q999ī4110 J OPEN TEMP FILE AND READ IN REC 0 TOP$;NF$;", L720, D2" ^OP$;" TEMP, L720" cRD$;NF$;", R0" hN1$ |I06J1Q$ Q$"HELP"200 50009 Q$"Y"Q$"N"4020i :"FIRST DATE IN NEW RESERVATION PERIOD: " " (M/D/YR) ";SD$ 5840: CHECK FORMAT Q9994040 5090: GET M,D,Y,DN  UPDATE FILES Q$"N"4110 L1NOF NF$OD 3LAST210 nD$;"OPEN FACILITY NAMES, D2"N xD$;"READ FACILITY NAMES"[ }FA$(17)d NOFq I1NOF} FA$(I) I D$;"CLOSE FACILITY NAMES"  WEEKLY MAINTENANCE ::"MOVE UP:":: "UPDATE ALL FACILITIES (Y/N)? ";:Q$:ER,OCTOBER,NOVEMBER,DECEMBER,JANUARY,FEBRUARY9 '10220M (OP$D$" OPEN "b )CL$D$" CLOSE "v *RD$D$" READ " +WR$D$" WRITE " ,UN$D$" UNLOCK " -LK$D$" LOCK " /DL$D$" DELETE " 2 LAST IS THE NUMBER OF DAYS IN RESERVATION PERI MO$(15)$ I06:DAY$(I):Ic  SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAYy !I114:ML(I):I " 31,28,31,30,31,30,31,31,30,31,30,31,31,28 #I114:MO$(I):I- $ JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBx WEEKLY MAINTENANCE, WRITTEN BY:A CAROL HAMLETT[ ALL RIGHTS RESERVEDp COPYRIGHT 1981|D$(4)G$(8)TIME$(6,13)T$(100)ML(15)ID$(100)NAME$(100)M(25):D(25):Y(25):DN(25) PHN$(100)            pAA  @1x@  ! ժժժժժժժժժժժժժժժժժժժժժUAUSE:3:7020:0:7020:I:7030zlPAUSE1100:PAUSE:"":115,57115,59:130,57130,59:116,57116,59:131,57131,59:v22:" WELCOME TO OUR WARM FUZZY SOFTWARE"D$(4):D$;"RUN COPYRIGHT,D1"ժժժժժժժժժ@0@33,77W34,7734,82:35,8335,85:36,8536,88:37,8937,93:38,9438,96:39,9739,9940,9940,100:41,10141,102:42,10342,104:43,10543,106:44,10744,108X45,10946,109:47,10947,110:48,11149,112:49,11355,118aI12:PAUSE1400:P52:76,7374,71:73,7073,68:72,6772,66{73,6573,63:74,6274,61:75,6075,59:76,5878,56:79,5580,55:81,5482,5483,5385,53:86,5487,55:88,5688,58:87,5979,67:78,6878,69:77,7077,7236,5836,60:35,6135,63:34,6434,69:33,6973,7474,74:71,7372,73:70,7268,70:67,6967,68:66,6766,6565,6465,63:66,6266,60:67,5967,58:68,5768,56:69,5569,54:70,5374,4975,4876,48:77,4779,47:79,4681,46:82,4585,45:87,4688,46:89,4790,47)91,4892,49:93,5093,133,35132,35:131,36130,36:130,37129,37n72,13070,130:69,12967,129:66,12865,128:65,12764,12764,12663,126:63,12561,125:61,12460,124:60,12359,12359,12258,122:58,12157,121:57,12056,120:56,11955,119@z76,7575,75:6:150,45150,39:149,38149,36n148,35148,34:147,33144,33:146,32144,30:143,29141,29:142,28135,28137,29131,29:131,30130,30:129,31128,31:128,32127,32:127,33126,33126,34125,35:143,32141,32:140,33137,33:136,34134,34.34,49134,48:133,47133,46:132,45132,44y*131,43131,42:130,41130,40:129,40128,40:128,39127,39:129,38126,38 125,37124,37:124,36123,36:143,57140,57:145,56144,56:146,55145,55 147,54146,54:147,53:148,52148,50:149,49149,4101,75:100,76100,78:99,7999,80r100,81100,83:101,84101,85:102,86102,87:103,88103,89:104,90104,91 **** RIGHT EAR ****141,70141,67:140,66140,63:139,62139,58:138,57138,56:137,55137,54*136,53136,52:135,51135,50:1137,90:139,89138,89:139,88]131,62131,63:132,64133,64:134,64137,68:138,69138,70139,71139,73:140,74140,77:141,85141,77:142,74142,820112,63112,64:110,65:109,66108,66:107,67104,70:103,70103,71#b102,72102,73:101,74,45H42,4642,47:41,4841,49:40,5040,51:39,5139,52:38,5338,55Y37,5637,60wJ **** MOUTH (RIGHT) ****T127,95127,96:133,97129,97:135,96128,96:136,95132,95:137,94133,94:137,93135,93138,92136,92:139,91136,91:139,906,29:105,28100,28:99,2794,27:93,2688,26:87,2782,27:81,2876,2875,2971,29:70,3068,30:64,3167,31:62,3263,32:60,3361,33258,3459,34:56,3557,35:55,36:54,3753,37:52,3851,39d49,4050,40:48,4147,42:45,4346,43:44,44432107,99:106,98105,98:104,97103,97N_102,96101,95:100,9499,94:98,93c97,9296,92:95,9194,91:93,9092,90:91,8990,89:89,8885,88122,35121,35:120,34119,34:118,33117,33:116,32115,32:114,31112,31:111,30109,30G108,2910104,116105,116:105,115106,114:104,118110,118:106,117107,116>108,117110,115:111,117112,117:113,116115,114:116,115120,119J121,120122,120K123,119L124,118124,116:123,115123,114:122,113113,104:112,103111,103&Y110,1045,85:144,84143,84:143,85143,86:142,86140,86r(84,10386,103:87,10488,104:89,10590,105:91,10693,106,94,10795,107:95,108:96,10996,110:97,11197,112:98,113199,114100,115:101,116101,114:102,114104,112B7102,117103,117:112,127:112,128110,128:109,128109,131:109,13172,131r142,71142,72:143,73143,74:144,74:145,74145,75146,76147,77:148,78148,79:149,80149,81:150,82150,84151,85151,86:150,87150,88:149,89148,89:147,88146,872#145,8610,110130,113:129,112129,114w128,114128,115:127,115127,116:126,116126,118:125,118125,119:124,119124,120 123,120123,121:122,121122,122:121,122121,123:120,123120,124:119,124119,1259118,125118,126:117,126117,127:116,1272,73130,73K124,68128,68:123,69129,69:124,74128,74:123,73129,73}140,87140,94:139,94139,99:138,99138,101137,101137,102:136,102136,104:135,104135,106:134,106134,107133,107133,108:132,108132,109:131,109131,110:13***R 132,55129,55:133,56128,56:133,57132,57:133,58132,58:133,59132,59 129,57127,57:129,58126,58:129,59126,59:132,60126,60 132,61127,61:121,60123,60:124,61125,61:126,62 122,70130,70:122,71130,71:122,72130,72:1279,136:77,13575,135:74,13473,134:72,13371,133:71,132 4118,55114,55:119,56112,56:119,57117,57:114,57111,57:119,58117,58:114,58111,58 p119,59117,59:114,59111,59:111,60118,60:120,61112,61:114,62112,62  **** RIGHT EYE *33:109,132109,131\ b113,140110,140:109,139:108,138107,138:107,137:106,136106,132 108,140104,140:103,13998,139:101,138101,135:102,135102,133:103,132 97,13883,138:96,13796,135:97,13497,133:98,132< 82,13780,137:78,136113,95:114,91114,97:115,94115,97U 116,95116,97:117,95117,97:118,95118,97 119,95119,97:120,95120,97:121,95121,96 122,95122,96 123,95123,95 115,139114,139:114,138:113,137112,137:112,136 D111,135111,134:110,1140:117,140117,130:117,130152,122\ ,122,127137,111:126,126140,110:129,126143,109 J133,125147,108:137,124150,107:141,123153,106:145,122157,105 |125,78125,95:126,78126,96:110,88110,91:111,88111,93$ 112,88112,94:113,88G ::6:14,0258,0:14,014,159:258,159258,0:14,159258,159:3{206,37245,37:245,37245,114:245,114228,140228,140228,49:228,49180,49:206,37180,49:180,49152,122:228,49245,37% 158,104135,110:135,110117,130:117,140228,      MAIN MENU.";A$:N410D(219)256(218) 9+NER254ĦO9,NER5LI360ĺWR$;"FACILITY NAMES":0:400g9-NER6LI2130ī2150p94N:89HN5:"*** SYSTEM ERROR ***"::4)"ERROR=";ER;" LINE=";LI9\N249pN"PRESS 'RETURN' TO RETURN TO MAIN MENU.";A$9N410O RETURN TO (J)S$,10);V8 ID$(J)"N"ĺ(ID$(J)S$,24);(NAME$(J)S$,24);(PHN$(J)S$,13):LL18 (T$(J)"N"J3)(T$(J)"N"ID$(J)"N")ĺ:LL18 L60ĺ(12)8 J8& I8+ :CL$;NF$:(4)"PR#0"80 8 N ERROR HANDLING8%N(4):7689*NER(222):LI: ";NF$:p7L6L60L6:"DATE";5);"TIME";6);"NAME";20);"CONTACT PERSON";10);"PHONE":I1179:"-";::7J1ĺ:LL1:((M(I))"/"(D(I))"/"((Y(I)),2)S$,9);7J2ĺ(DAY$(DN(I)),3);6);7 J2T$(J)"N"ĺ9); 8 T$(J)"N"ĺ(T$0:S$" ";6T"FACILITY NAME: ";NF$Q6^5230:Q9998020g6h5320:Q9998020|6|OP$;NF$;",L720"6PR16(4);"PR#";PR:PR1ĺ(9);80;"N"6I1146(4):RD$;NF$;",R";I660206J112 7L6L60ĺ"FACILITYL$;NF$5NK03790*5XY1$((Y(1)),2)?5bY2$((Y(2)),2)^5l::"RESERVATION DATES":5v:5:"BEGINNING DATE: ";23)M(1);"/";D(1);"/";Y1$;" THRU"55:"ENDING DATE: ";23)M(14);"/";D(14);"/";Y2$555@ PRINT FACILITY 6J5410:LN(I),J):ID$(J)"N":NAME$(J)"N":PHN$(J)"N":J44P4 LIST RESERVATION DATEX4K0a4DNN{4OP$;NF$;", L720, D2"4I1144RD$;NF$;", R";I4&M(I),D(I),Y(I),DN(I)40 IF D = D(I) AND M = M(I) THEN K = I:I = 14: GOTO 36704:I5DCDATES93D(I1)1ML(M(I1))D(I)D(I1)1:M(I)M(I1)g3D(I1)1ML(M(I1))M(I)M(I1)1:D(I)1{3M(I)13M(I)13D(I)1M(I)1Y(I)Y(I1)13D(I)1M(I)1Y(I)Y(I1)3DN(I)DN(I1)13DN(I)7DN(I)0.4J112:T$(J)TIME$(D$;"PR#0"K26"DO YOU WANT ANOTHER COPY OF":"THIS PERMIT (Y/N)? ";:Q$:Q$]2@Q$"Y"ī6440c2Jx2T GENERATE DATES2^I12hD(I)D:M(I)M:Y(I)Y:DN(I)N2rJ112:T$(J)TIME$(N,J):ID$(J)"N":NAME$(J)"N":PHN$(J)"N":J2|3 GENERATE MORE ;", ";Y(I)1$1"TIME: ";T$(T)*1G1"ORGANIZATION: ";ID$(T)M1n1"CONTACT PERSON: ";NAME$(T)t11"PHONE: ";PHN$(T)1:1" REMEMBER TO BRING THIS SLIP WITH YOU!"1:1""****************************************"2,DW, P FOR PRINT ";:Q$:Q$:Q$"V"PR080FQ$"V"PR1>0Zb0dD$;"PR#";PR:PR1ĺ(9);80;"N"n0n:::0x"***************************************"0:11)"RESERVATION PERMIT"00"FACILITY: ";NF$0 1"DATE: ";MO$(M(I));" ";D(I)ATI /t/~NF$8/DAY$(DN(K));" ";M;"/";D;"/";Y>/J/J112^/T$(J)"N"6340h/6380/J;")";5)TL$;":";TR$;20)ID$(J)/T$(J)"N"B1B11/J///( PRINT PERMIT SLIP/2:"PRINT PERMIT SLIP...":&0<"V FOR VIENAME$(J).PHN$(J).J#.C. DELETE FACILITY NAME FROMW. LIST OF NAMESd.I1NOFz.NF$FA$(I)6220.$JINOF1..FA$(J)FA$(J1).8J.BINOF:NOFNOF1:6230.LI.V.` SUBROUTINE TO DISPLAY/j RESERVATION INFORM TO WRITE TO FILE- RI#-M(R)-- D(R)7-*Y(R)B-4DN(R)N->J112Y-HT$(J)e-RID$(J)s-\NAME$(J)-fPHN$(J)-pJ-z- SUBROUTINE TO READ A RECORD-M(I)-D(I)-Y(I)-DN(I)-J112-T$(J)-ID$(J) .A$"/"İ5800,v4, INCREMENTS I AND GETS NEXTK, CHARACTER OF SD$c,II1:A$(SD$,I,1)i,,Q999::"INCORRECT DATE FORMAT. PLEASE RE-ENTER","USING FORMAT M/D/YR (E.G. 2/17/81 FOR","FEBRUARY 17, 1981).":,- SUBROUTINEOR LEGAL YEAR+57600+A$"8"A$"9"İ5800@+Q9995640Y+A$"0"A$"9"İ5800_+y+ CHECK MONTH AND DAY+5760+&A$"0"A$"9"İ5760+0Q9995750+:5760+DA$"/"5750+NA$"0"A$"9"İ5800+XQ9995750+b5760 ,lFA$(I);*J20)+*TI1NOFĺFA$(I1)2*^I8*h>*rY*| CHECK FOR LEGAL DATEe*Q0:I0y*(SD$)8İ5800*Q9995640*5650: CHECK FOR 1 OR 2* DIGITS FOR MONTH*Q9995640*5650 CHECK DAY*Q9995640 + CHECK FECK$) FOR EXISTING FACILITY FILE,)Q09)I1NOFU)NF$FA$(I)INOF:5490\)If)Q999):"NO SUCH FACILITY LISTED.")NOF0ĺ:"NO FACILITY FILES ARE CURRENTLY ACTIVE."::5490)""ACTIVE FACILITIES ARE: "),)6I1NOF2 *@MM12:YY1(d1(n SUBROUTINE TO CHECK FORK(x LEGAL FACILITY NAMES(Q0z((NF$,1)"A"(NF$,1)"Z"ī5310((:"FACILITY NAME MUST BEGIN WITH A LETTER."("PLEASE RE-ENTER FACILITY NAME.":(Q999() SUBROUTINE TO CHL DATE":'Q999'52209'(YR$)100YR$"19"B$F' Y(YR$)l'Y1984Y1988ML(2)29:ML(14)29' FIND DAY NUMBER'(M2ī5190'2MM12'<YY1'FND2M(.6(M1))Y(Y4)(Y100)(Y400)2'PN((N7(N7))7.5) (ZM12TH,&` YEAR AND DAY NUMBER.7&j ******************E&tSL(SD$)O&~B$""[&I1SLm&A$(SD$,I,1)&A$"/"B$B$A$:5050&I3M(B$):B$"":5050&I6D(B$):B$""&I&M125090&DML(M)5090&5120 ':"ILLEGA410)%D$;"RUN WEEKLY MAINTENANCE,D1"/%I% CHECK FOR Y/N INPUTX%Q$(Q$,1)i%Q$"Y"4870z%Q$"N"4870%:"PLEASE ENTER 'Y' OR 'N'.":%%% CHECK FOR NUMERIC INPUT%B%L ******************&V CALCULATE DAY, MON$(J):45103$4:"CONTACT PERSON: ";NAME$(J):4510R$>:"PHONE: ";PHN$(J):4510f$H WRITE TO FILEr$RRK:TJ$\UN$;NF$;", D2"$fOP$;NF$;", L720"$pWR$;NF$;", R";R$z5890$CL$;NF$$LK$;NF$$::"RESERVATION MADE:"$6440%Q$"N"4680#4520#<#:"LINE # (1-3): ";:Q$:Q$M#IN$Q$:4880]#Q9994580i#Q(Q$)# Q1Q3ĺ:"TYPE A NUMBER BETWEEN 1 AND 3."::4580#Q4650,4660,4670# :"TYPE A NUMBER BETWEEN 1 AND 3."::4580 $*:"NAME : ";ID "T$(J)"b@"l"1) NAME : ";ID$(J):(ID$(J))234460F"v""2) CONTACT PERSON: ";NAME$(J):(NAME$(J))234480"""3) PHONE: ";PHN$(J):(PHN$(J))134500"":"ANY CHANGES (Y/N)? ";:Q$:Q$"4810"Q$"Y"4580 #10 !42907!B10ĺ:"NO TIMES AVAILABLE...":4240T!:"TIME PERIOD # : ";Q$s!B2(Q$):B21B2B1ī4350!(Q$)2ĺ"TYPE THE NUMBER, NOT THE TIME.":4340!IN$Q$:4880!&Q9994340!0J(Q$)!::!N:NF$ "XM;"/";D;"/";YR$;" $(J)( h8)"CONTACT PERSON: ";NAME$(J)B r8)"PHONE: ";PHN$(J)H |R 4030x :"ANOTHER DAY (Y/N)? ";:Q$:Q$ 4810 Q$"N"4290 Q$"Y"3540 4240 :"ANOTHER FACILITY (Y/N)? ";:Q$: 4810 Q$"Y"3440!Q$"N"41B10ĺ:"NO TIMES AVAILABLE...":4240N:"TIME PERIOD # : ";Q$mB2(Q$):B20B2B1ī4110"(Q$)2ĺ"TYPE NUMBER OF THE LINE, NOT THE TIME."::4100,IN$Q$:48806Q9994100@J(Q$)JT5230 ^TL$;":";TR$;8)ID$(J);20)ID$(J)'nT$(J)"N"B1B11.xJ4_"MAKE A RESERVATION (Y/N)? ";:Q$:Q$i4810zQ$"Y"4340Q$"N"40303970:"MORE INFORMATION (Y/N)? ";:Q$:Q$4810Q$"Y"4110Q$"N"424040306240OP$;NF$;", L720, D2"*RD$;NF$;", R";I46020ACL$;NF$G aYR$(Y):YR$(YR$,2)jNF$(DAY$(DN);" ";M;"/";D;"/";YR$2<J112FT$(J)"N"3950ZID$(J)"N"ĺJ;")";5);T$(J);20)"----"dID$(J)"N"ĺJ;")";5);T$((Y(2)),2)~(7)N:"THIS FILE BEGINS WITH ";M(1);"/";D(1);"/";Y1$~"AND ENDS ON ";M(14);"/";D(14);"/";Y2$;".":"RE-ENTER DATE (Y/N)?";:Q$:Q$4810Q$"Y"3540Q$"N"4103740 READ IN DAY RECORDIK: CHECK FOR LEGAL DATE' Q99935409 4950: D,M,YAK0JDNNdOP$;NF$;", L720, D2"p$I114.RD$;NF$;", R";I8M(I),D(I),Y(I),DN(I)BDD(I)MM(I)KI:I14:3670LIVCL$;NF$`K03790jY1$((Y(1)),2)tY2 \ 590"f RESERVE A FACILITY(p .z 4 > 5410[ :"FACILITY NAME: ";NF$o NF$"HELP"410y 5230 Q9993465 5320 Q9993470 6890: LIST RESERVATION DATE :"DATE (M/D/YR): ";SD$ SD$"HELP"410 5500 :13 10)"... ";5 :"SETTING UP FACILITY";C :" ..."V CREATE DATESi UN$;NF$;",D2" OP$;NF$;", L720" 6740 WR$;NF$;", R";I 5890 I2LAST 6790 WR$;NF$;", R";I* 58904 I> CL$;NF$H LK$;NF$OF: I1NOFD FA$(I)"N IAX D$;"CLOSE FACILITY NAMES"_b D$;"LOCK FACILITY NAMES"el v 8:"BEGINNING RESERVATION DATE:" " (M/D/YR) ";SD$ 5500: CHECK FOR FORMAT Q9993190 4940: GET M,D,YR,DN Q99931900 OP$;NF$;", L720, D2"/ WR$;NF$;", R0"8 NF$C I06O J112_ TIME$(I,J)f Jm Iz CL$;NF$ NOFNOF1 FA$(NOF)NF$ D$;"OPEN FACILITY NAMES,D2" D$;"UNLOCK FACILITY NAMES"& D$;"WRITE FACILITY NAMES"0 N JJ1TIME$(I,J1)TIME$(I,J):TIME$(I,J)"N":J1J11] :"MORE CHANGES (Y/N)? ";:Q$:Q$g 4810x Q$"Y"2640 Q$"N"2920 2710h Ir :8:"INFORMATION BEING ENTERED..."| OP$;NF$;", L720, D2" UN$;NF$ DL$;NF$ 614)? ";:Q$:2 4810&< Q$"Y"26407F Q$"N"2920ZP :"TIME PERIOD # (1-12): ";Q$kZ IN$Q$:4880{d Q9992600n J(Q$)x J12J1ĺ:"ENTER A NUMBER BETWEEN 1 AND 12."::2640 :"TIME PERIOD ";J;" BEGINS AT: "; "";TIME$(I,J)6 PERIOD ";J;" BEGINS AT: ";. "";TIME$(I,J)d TIME$(I,J)"END"āKJ12:TIME$(I,K)"N":K:2595w IN$TIME$(I,J) (TIME$(I,J),1)"N"2590 (TIME$(I,J))82590 :"ONLY 8 CHARACTERS": 2500 J# J1J ( :"ANY CHANGES (Y/NQ$"Y"2410V Q$"N"2300&` 23601j I069t :g~ "*** DO NOT INCLUDE COLONS IN TIMES ***" "*** 'END' WILL END THAT DAY ***" "*** EXAMPLE: 11.00 AM"  :"ENTER TIMES FOR: "; DAY$(I):  J112 "TIMEHIS DISK IS FULL":::"PLEASE USE ANOTHER DISK"::"PRESS ANY KEY TO CONTINUE":Q$:410y :5410:: LIST FACILITIES "NEW FACILITY NAME: ";NF$ NF$"HELP"590$ 5230. Q99923008 :"IS THIS CORRECT (Y/N)? ";:Q$:Q$B 4810 L Y NAMES"NOFI1NOF*FA$(I)1IKCL$;"FACILITY NAMES"eLK$;"FACILITY NAMES"m:"FILE FOR ";NF$;" HAS BEEN DELETED.":"PRESS RETURN TO RETURN TO MENU";A$590: CREATE FACILITY FILEX NOF14ė:"TQ999ĺ:"PLEASE RE-ENTER FACILITY NAME.":204084:W>"DELETE (Y/N)? ";:Q$:Q$nH4810:Q$"Y"2130~MQ$"N"590RD$;"UNLOCK ";NF$;",D2"\D$;"DELETE ";NF$f6140pUN$;"FACILITY NAMES"zOP$;"FACILITY NAMES"WR$;"FACILIT780,410!  PRINT/VIEW FACILITY+80004590D:::5400r:"PRESS 'RETURN' TO RETURN TO MENU.";A${410 DELETE FACILITY FILE5410:"FACILITY NAME: ";NF$NF$"HELP"590 5230Q9992035 53200* *** MAINTAIN FACILITY ***",b:::@l" 1) ADD"Fv]" 2) DELETE"cy" 3) PRINT"" 4) RETURN"22:"ENTER OPTION (1-4): ";:Q$:Q$IN$Q$:4880Q(Q$)Q1Q4ī590Q2300,2030,VE UP" * " 5) CHANGE DISK":? " 6) QUIT"E n 22:"ENTER OPTION (1-6): ";:Q$:Q$ &IN$Q$:4880 0Q(Q$) :Q1Q6ī410 DQ590,3430,2000,4790,581,2290 E:"CHANGE DATA DISK AND PRESS RETURN";Q$:340 N X" |FA$(I) I1 D$;"CLOSE FACILITY NAMES"_ :" *** SHORT-TERM RESERVATIONS ***"g :o : " 1) MAINTAIN FACILITY INFO"  " 2) RESERVE/VIEW FACILITY"  " 3) LIST FACILITIES"  " 4) MOREAD " WR$D$" WRITE "1 UN$D$" UNLOCK "E "LK$D$" LOCK "[ ,DL$D$" DELETE " 6 LAST IS THE NUMBER OF DAYS IN RESERVATION PERIOD @LAST21 J20000 TD$;"OPEN FACILITY NAMES,D2" ^D$;"READ FACILITY NAMES" hNOF rI1NOFL(I):I7 31,28,31,30,31,30,31,31,30,31,30,31,31,28N I114:MO$(I):I JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER,JANUARY,FEBRUARY B10:B20 OP$D$" OPEN " CL$D$" CLOSE " RD$D$" ) PG$(8) ZTIME$(6,13)4 dT$(100):FA$(50)@ nML(15)N xID$(100)^ NAME$(100) M(25):D(25):Y(25):DN(25) PHN$(100) MO$(15) I06:DAY$(I):I SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY I114:M1, FACILITY RESERVATIONS (SHORT-TERM)> WRITTEN BY:e CAROL HAMLETT AND RICK GIFFORD( ALL RIGHTS RESERVED2 COPYRIGHT 19817<768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 FD$(4" " " " " """""""""!!! ! ! ! ! !!!!!!!!!               E 24:" *** SHORT-TERM RESERVATIONS ***":PAUSE11000:PAUSE24:" COPYRIGHT 1981 - MARKET COMPUTING":PAUSE11000:PAUSE24:" AND CAROL HAMLETT":PAUSE11000:PAUSE(D$(4):D$;"RUN FACILITY RESERVATIONS,D1"dd1""