8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L FILE: MENU.DM,FI$"MENU.DM 1.O"3 B( 2/12/89H2g< BOWLKEEPER III MAIN MENUmFPSP$" ": 50 SPACESZA%(60),B5%(60)dD$(4)n60000 x963,0: SET STANDING SHEE2n`74OPTIONS.SYS74CONFIG.SYS74&PRODOS }<74! ,BASIC.SYSTEM(74!+STANDSHEET7479BOWLING174' 'MENU.DM574M(NAMES.DM$#C74E+ )BOWLER.DMG2`74 : 'STARTUPyV74-;'TEAM.DM|1D^74  )CONFIG.DM? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RT TEAM RECAP! (956)1ī1509 1580: GET PREFIXP 2040: GET CONFIG (957)1İ50020:TP$PX$:50030:PP$PX$:210: GET PATHS ONLY A%(59)1FL$"OPTIONS FILE":190 FL$"PROGRAM1":FK$FL$ 2190: GET OPTIONS 2330:2720:9  !"ETURN...";:L$-L$(27)ġ:1000: MENUBL$(13)ī1510HN_ GET PREFIXe"v,D$;"PREFIX"6BP$: BOOT PATH@JT HEADINGS^h1:1:I140:"_";::r::HT%(41(HT$))2:1640:1:HT%1:HT$:34,2:4 CONFIGURE AND OPTIONSI1400:D$;"-CONFIG.DM": RUN CONFIG.DMOHT$"PROGRAM 2": THIS SUBROUTINE NOT CALLEDHD%1ı:10:11:"Please insert your"12:15::HT$:14:11:"disk in any drive"19:11:"Then press R.DM"&2D$;"RUN";BP$;"BUILD.TEAMS"K<963,1: STAND ALONE TEAM RECAPiFD$;"RUN";BP$;"TEAM.STND"P963,1: NEED FOR BOWLER.STNDZD$;"RUN";BP$;"BOWLER.RCP"dD$;"RUN";BP$;"XTRAS"n::x:12:11:"Loading Program...": BP$"/PROGRAM2/":FL$BP$:FK$FL$,1400eL1280,1290,1300,1320,1330,1340,1360,1740,1440,1380D$;"RUN";BP$;"BOWLER.DM" D$;"RUN";BP$;"TEAM.DM"963,0: SET STANDING SHEET TEAM RECAPD$;"RUN";BP$;"MENU.STND"(D$;"RUN";BP$;"NAMES.";:KY,0:L$L(L$)?L$"Q"L$"q"ī1390: QUITeL$"X"L$"x"L10:1230: XTRASL$"R"L$"r"ī2840: REVIEWL1L9ī1050HD%1FL$BP$:FK$BP$:1260L1L2L4L8L9BP$"/PROGRAM1/":FL$BP$:FK$FL$:1260"ration":1040=yVV2:V:10::"R";::" Review Options"X{15:"& Configuration"s~22:1:I139:"_";:24:13::"Q";::"uit ";::"X";::"tras "; V = V + 1:H = 10:N% = 9:N$ = " Quit": GOSUB 540V3:11:"Make a selection..V1:H10:N%4:N$" Name Manager":1040ULVV1:H10:N%5:N$" Team Manager":1040VVV1:H10:N%6:N$" Team Recap":1040`VV1:H10:N%7:N$" Bowler Recap":1040jVV1:H10:N%8:N$" New Paths":1040tVV1:H10:N%9:N$" Options & ConfiguER III"34,3+963,0:943,0:1050DV:H::N%;::N$:aV5:V:14:" MAIN MENU"$VV2:H10:N%1:N$" Bowler Data Manager":1040.VV1:H10:N%2:N$" Team Data Manager":10408VV1:H10:N%3:N$" Standing Sheet Menu":1040(BVv ADD "/"'s IF NECESSARYJ(B5$(H1),1)"/"B5$(H1)"/"B5$(H1)u(B5$(H1),1)"/"B5$(H1)B5$(H1)"/"(B5$(H1))50ĺ(7):B5$(H1)""::340B1%(H1):B2%(H1):B5$(H1);: #1000: I180:"_";::1:13:"BOWLKEEP DELETE TO LAST "/"( X%(B5$(H1)): X%0ĺ(7):J I4X%01d &I40B5$(H1)"":590{ 0L$(B5$(H1),I4,1) :I4(B5$(H1))L$"/"I4I41:590 DL$"/"X%I4:I40:600 NX%0 XI4 bX%0B5$(H1)"":lB5$(H1)(B5$(H1),X%):350 L57L65ī350C  GOOD ENTRY: a-z, A-Z, 0-9, . OR /a (B5$(H1))50ĺ(7):340} B5$(H1)B5$(H1)L$:350  DELETE CHARACTER (B5$(H1))0ĺ(7):350 (B5$(H1))1B5$(H1)"":340 B5$(H1)(B5$(H1),(B5$(H1))1):340  TB1%(H1):B2%(H1):SP$;= ^B1%(H1):B2%(H1):B5$(H1);M hL$:L(L$)h rL27ġ:1000: MENU |L8ī480: LEFT ARROW L127İ520:340: DELETE TO LAST "/" L13İ640:: TO CALLER L46L122ī350: < . AND > z L90L9757,1: POKE DATA AND PATHS? HD%(939): HARD DISK = 1O HD%1ī260] HD% = 0 BP$"/PROGRAM1/"ī1000: MENU 939,1:HD%1:1000 BP$"/PROGRAM1/"ī1000 939,0:HD%0 KY16368 "1000 , 6 ALPHA KEYIN @ J|:HT%(41(HT$))2:1710:22:HT%:HT$:34,2::N SET NEW PATHSTyHT$"SET NEW DATA PATHS":1650:22:1:I140:"_";::1730:23:6:"Enter PATH";7);::"RTN";::" to accept";:34,22::34,2:: CLEAR PROMPT AREA1700:2000/6:2:"PATH To Team Data"G7:1:"(":12:")"i10:2:"PATH To Bowler Data"11:1:"(":12:")"1710:1720: BOTTOM LINE7:2:TP$:11:2:PP$B5$(1)TP$:B5$(2)PP$:H11:340: GET NEW TEAM PATHH12:3820,3900,4030,4150: 900 WILL BE MAIN MENU[& H10:I4JK:H1H11:B5%(H1)A%(I4)::b& i& & SET TEAM B5$() FROM B5%() VALUES& & J1:K5:3030: FILL B5%()& A%(47)0B5$(1)" N/A":I424:B5$(I4)"N/A"::31503' B5%(12:H10:N%4:N$" Bowler Options":2910`% VV2:H10:N%5:N$" Standing Sheet Options":2910% VV2:H10:N%6:N$" System Configuration":2910% V3:11:"Select a number...";:L$% L$(27)ī1000% L(L$)% L1L6ī2920/& L1000,3760,0:1:HT%1:HT$:34,2:6$T 1:1:I140:"_";::O$^ V:H::N%;::N$:t$h :HT$"REVIEW OPTIONS":2890:V5$r VV2:H10:N%1:N$" Main Menu":2910$| VV2:H10:N%2:N$" League Options":2910$ VV2:H10:N%3:N$" Team Options":2910)% VV34833X%0# H1H11:L$(PP$,H1,1):I4,(L$):# I4:@# ^# REVIEW OPTIONS & CONFIGd# # A%(59)0HD%0BP$"/PROGRAM1/"# HD%1FK$BP$# FL$"OPTIONS FILE":2190: GET OPTIONS# 2920#" #, $J ::HT%(41(HT$))2:290939,A%(58): HARD DISKE"n 954,A%(59): OPTIONS TO BOWLER DISK?e"x 958,A%(60): # OF BOWLERSk" q" " POKE PATHS" H10:X%(TP$):768,X%" I4769768X%" H1H11:L$(TP$,H1,1):I4,(L$)" I4" H10:X%(PP$):833,X% # I48): BLANK BETWEEN TEAM LINES?I!( 942,A%(35): WK TO START TEAM SORTt!2 941,A%(36): WK TO START BOWLER SORT!< 924,A%(37): SKIP HCP PRINT!F 953,A%(38): SORT ON HCP OR SCRATCH?!P CONFIGURATION POKES!Z 925,A%(57): PRINTER SLOT"d CH& 946,A%(22): WOMEN ALLOWANCEF 952,A%(23): INCLUDE SUBS?k 960,A%(24): STND SORT BY WK/YR STAND SHEET POKES 933,A%(31): PAPER LENGTH 934,A%(32): STOP END OF PAGE?  923,A%(33): SPACE BETWEEN SECTIONS? ! 940,A%(34 961,A%(47): HCP/SCRATCH LEAGUE6 BOWLER POKES[ 928,A%(16): BOWLER AUTO/MANUALy 955,A%(17): MEN MAX HCP 926,A%(18): MEN HCP SCRATCH FIG 927,A%(19): MEN HCP ALLOWANCE 944,A%(20): WOMEN MAX HCP 945,A%(21): WOMEN SCRAT2)(X%256):947,X%: LOW BYTEYL X%A%(3)256:951,X%: HI BYTE OF TEAM SCRATCH FIGV X%A%(3)(X%256):948,X%: LOW BYTE` 949,A%(4): TEAM HCP ALLOWANCEj 959,A%(5): STND SORT BY WK/YRt LEAGUE POKES~ 932,A%(46): MIXED LEAGUE#PP$;"OPTIONS.SYS"4D$;"READ";PP$;"OPTIONS.SYS"AI4156MA%(I4)ScD$;"CLOSE"iq w  POKE OPTIONS AND CONFIGURATION $ TEAM POKES. 929,A%(1)8 X%A%(2)256:950,X%: HI BYTE OF TEAM MAX HCP!B X%A%(I457604A%(I4)>'HTP$0RPP$@\D$;"CLOSE"FfNp lz READ OPTIONS.SYS FILEt A%(59)1FK$"BOWLER DATA":2230FK$BP$D$;"OPEN";BP$;"OPTIONS.SYS"D$;"READ";BP$;"OPTIONS.SYS"2250D$;"OPEN";"n"ī1960: MENU1920#)B PATH PRINT INDEXESH_B1%(1)7:B1%(2)11uB2%(1)2:B2%(2)2B3%(1)50:B3%(2)50  READ CONFIG.SYS FILE  D$;"OPEN";BP$;"CONFIG.SYS" D$;"READ";BP$;"CONFIG.SYS" *AVE NEW PATHSlGvTP$B5$(1):PP$B5$(2):2720: POKE NEW PATHS1730:24:4:"Load New OPTIONS? ";::"Y";::"es or ";::"N";::"o ";:L$L$"Y"L$"y"FL$"OPTIONS FILE":2190:2350:1960: GET,POKE OPTIONS THEN MENUL$"N"L$340: NEW BOWLER PATHo&1730:24:3:"ACCEPT these settings? ";::"Y";::"es or ";::"N";::"o ";:L$0L$"Y"L$"y"İ1910:1000: SAVE THEN MENU:L$"N"L$"n"ī1740: TRY AGAINDL$(27)ī1000: MENUN1830Xb S)1B5$(1)"MANUAL":I424:B5$(I4)"N/A"::3150j'& B5$(1)" AUTO":B5$(2)"N/A"āI424:B$(I4)"0":'0 B5%(2)999B5$(2)"UNLIMITED":3140': B5$(2)(B5%(2))'D I434:B5$(I4)(B5%(I4)):'N B5%(5)1B5$(5)"Week":3170'X B5$(5)"Year"(b (l 7(v SET LEAGUE OPTIONS IN B5$() FROM B5%()K( J46:K47:3030l( B5%(1)1B5$(1)" No":3230}( B5$(1)"Yes"( B5%(2)0B5$(2)"Scratch":3250( B5$(2)" HCP"( ( ( SET BOWLER OPTIONS IN B5$() FROM B5%()( ) J16:KB2%(5)9:B2%(6)7:B2%(7)8:B2%(8)9:B2%(9)16W6XB3%(1)6:B3%(2)9:B3%(3)4:B3%(4)46bB3%(5)9:B3%(6)4:B3%(7)4:B3%(8)3:B3%(9)4:6l STAND SHEET INDEXES6vB2%(1)20:B2%(2)18:B2%(3)156B2%(4)4:B2%(5)15:B2%(6)13:B2%(7)3:B2%(8)67B3 LEAGUE INDEXES)5B2%(1)25:B2%(2)7A5B3%(1)3:B3%(2)7:U5 TEAM INDEXES5&B2%(1)6:B2%(2)15:B2%(3)13:B2%(4)14:B2%(5)1650B3%(1)6:B3%(2)9:B3%(3)4:B3%(4)4:B3%(5)4:5: BOWLER INDEXES5DB2%(1)6:B2%(2)11:B2%(3)9:B2%(4)10/6N(170/200)";:43004|24"PATH To Team Data";4TP$A4\4"PATH To Bowler Data"e4PP$o44550u44(B5$(H1))B3%(H1)ĺB2%(H1));B5$(H1):4B2%(H1));:(SP$,B3%(H1)(B5$(H1)))B5$(H1):44 PRINT SPACE INDEXES45"Sort On Handicap Or Scratch";:430003,4550W36:HT$"SYSTEM CONFIGURATION":2890g3@3670:4520n3J43TH11:"Printer Slot Number";:43003^H12:"Hard Disk";:43003hH13:"Save OPTIONS To Bowler Data Path";:43004rH14:"Maximum Bowlers ge";:430062H13:"Space Between Sections";:4300k2H14:"Blank Line Between Teams In Recap";:43002H15:"Week To Start Team Sorts";:43002H16:"Week To Start Bowler Sorts";:43002H17:"In Standings Print Scratch/HCP";:4300&3"H18:en Handicap Allowance (%)";:4300S1H18:"Include Substitutes In Sorts";:4300{1H19:"Sort Standings By...";:4300145501:HT$"STANDING SHEET OPTIONS":289013470:4470141H11:"Paper Length";:4300 2H12:"Stop At End Of Pa Handicap";:4300;0dH12:"Men Maximum Handicap";:4300j0nH13:"Men Handicap Scratch Figure";:43000xH14:"Men Handicap Allowance (%)";:43000H15:"Women Maximum Handicap";:43000H16:"Women Handicap Scratch Figure";:4300#1H17:"Wom/ H12:"Maximum Handicap";:4300O/H13:"Handicap Scratch Figure";:4300y/H14:"Handicap Allowance (%)";:4300/(H15:"Sort Standings By...";:4300/24550/<:HT$"BOWLER OPTIONS":2890/F3290:4420/P40ZH11:"Automatic or Manual: .+.:HT$"LEAGUE OPTIONS":2890;.3200:4360B.4b.H11:"Mixed League";:4300.H12:"Scratch or Handicap League";:4300.4550.:HT$"TEAM OPTIONS":2890.3080:4390.4/H11:"Automatic or Manual Handicap";:4300$ HCP":-8 ?-B SET CONFIGURATION IN B5$() FROM B5%()F-L Z-VJ57:K60:3030o-`B5$(1)(B5%(1))-jB5%(2)1B5$(2)"Yes":3710-tB5$(2)" No"-~B5%(3)1B5$(3)"Yes":3730-B5$(3)" No"-B5$(4)(B5%(4)).B5$(5)TP$:B5$(6)PP$(4)" No",, I456:B5$(I4)(B5%(I4)):Q, A%(47)0B5$(7)"Scratch":3610v, B5%(7)0B5$(7)" Both":3610,B5%(7)1B5$(7)"Scratch":3610,B5$(7)" HCP",A%(47)0B5$(8)"Scratch":,$B5%(8)0B5$(8)"Scratch": -.B5$(8)" OPTIONS IN B5$() FROM B5%()%+ 9+ J31:K38:3030_+ B5%(1)0B5$(1)"STANDARD":3500u+ B5$(1)" LEGAL"+ B5%(2)1B5$(2)"Yes":3520+ B5$(2)" No"+ B5%(3)1B5$(3)"Yes":3540+ B5$(3)" No"+ B5%(4)1B5$(4)"Yes":3560 , B5$34:B5$(I4)(B5%(I4)):C* B5%(5)254B5$(5)"UNLIMITED":3380X** B5$(5)(B5%(5))y*4 I467:B5$(I4)(B5%(I4)):*> B5%(8)1B5$(8)"Yes":3410*H B5$(8)" No"*R B5%(9)1B5$(9)"Week":3430*\ B5$(9)"Year"*f *p +z SET STAND SHEET24:3030G) A%(47)0B5$(1)" N/A":I427:B5$(I4)"N/A"::3390) B5%(1)1B5$(1)"MANUAL":I427:B5$(I4)"N/A"::3390) B5$(1)" AUTO":B5$(2)"N/A"āI427:B5$(I4)"0":) B5%(2)254B5$(2)"UNLIMITED":3350) B5$(2)(B5%(2))* I4%(1)8:B3%(2)3:B3%(3)3M7B3%(4)3:B3%(5)1:B3%(6)1:B3%(7)7:B3%(8)7:c7 CONFIG INDEXES7B2%(1)20:B2%(2)28:B2%(3)5:B2%(4)127B3%(1)1:B3%(2)3:B3%(3)3:B3%(4)3:7723:3:"Press RETURN For Menu...";:L$7L$(13)ī2920845508Oò #50000.8Pò FILE: ERROR.TRAPN8Zò GET TNAME AND PNAME PATHSz8dK768(768):J769:50040: TNAME PATH8nK833(833):J834: PNAME PATH8xíK0İ50090::1000: NO PATHS8PX$""8ÁIJK8PX$PX$((I))8ÂI:99âTEAMS (SN% = 2)#PT$"":I12.J13DA$:PT$PT$A$:JzI1SN%1PT%(PT$): TOTAL NAMES IN PNAMEI1SN%2TT%(PT$): TOTAL NAMES IN TNAMEI2SN%1PN%(PT$): NUMBER OF VALID PNAME'S!I2SN%2TN%(PT$)DELETE NAME":250:2 rHT$"CHANGE NAME":250:N |HT$"LIST NAMES":250:t :12:10:"Loading Main Menu..." HD%1FL$BP$:FJ$FL$:400 BP$"/PROGRAM1/":FL$BP$:FJ$FL$ D$;"RUN";BP$;"MENU.DM" READ NUMBER OF BOWLERS (SN% = 1)/LER NAMES":250:7 "HT$"CHANGE BOWLER NAME":250:Z ,HT$"LIST BOWLER NAMES":250:y 6HT$"ADD TEAM NAME":250: @HT$"DELETE TEAM NAME":250: JHT$"CHANGE TEAM NAME":250: THT$"LIST TEAM NAMES":250: ^HT$"ADD NAME":250: hHT$"1%:: WRITE TEAM RECORD6 22:1:I139:"_";:d 23:14::"ESC";::" to Exit";:35,21: 1:1:I139:"_";:: :HT%(41(HT$))2:240:HT%:HT$:34,2: HT$"NAME MANAGER":250: HT$"ADD BOWLER NAME":250: HT$"DELETE BOWD$;"OPEN";TP$;"TNAME,L20":: OPEN TEAM NAMEn D$;"READ";PP$;"PNAME,R";R1%:: READ BOWLER RECORD D$;"READ";TP$;"TNAME,R";R1%:: READ TEAM RECORD D$;"WRITE";PP$;"PNAME,R";R1%:: WRITE BOWLER RECORD D$;"WRITE";TP$;"TNAME,R";R#%&'()*+,-./0123456789:;<=>?@ABCDEMN%(958): PRINTER SLOT, MAX BOWLERS< (956)1ī150P 10350: PREFIX| 50020:TP$PX$:50030:PP$PX$: PATHS PF%0:TF%0: PF% = FLAG FOR PNAMES, TF% = FLAG FOR TNAMES 630 D$;"OPEN";PP$;"PNAME,L22":: OPEN BOWLER NAME1 ! FILE: NAMES.DM8FI$"NAMES.DM 1.0">N( 2/04/89T2Z<FPN$(200),TN$(50),PN%(200),TN%(50)P60000ZSP$" ": 40 SPACESdD$(4)nHD%(939): HARD DISK) xPR(925):14:5:"Please remove WRITE PROTECT tab."T=P17:5:"Then press RETURN...";:L$j=ZL$(13)ī60240p=d=n:12:5:"There is a disk access problem."=x60140: RESUME OR MENUL$<L$(13)ĦR< L$(27)Č3288:1000: POP STACK AND START OVER]<60150<:12:5:"The file ";FL$;" is Empty."<(15:5:"Press RETURN for menu...";:L$<23288:1000: MENU<<:12:5:"The disk is WRITE PROTECTED.",=F"Press RETURN to END, then reboot...";:L$7;::h;:9:2:"The ";FL$;" PATH cannot be found.";:2:"Place ";FK$;" disk in a drive or";2:"set ";FK$;" path.";15:2:"Press RETURN to continue"<17:2:"Or press ESC for MENU...";:&:~(222)4ī60220: WRITE PROTECTG:(222)8ī60270: I/O ERRORa: UNANTICIPATED ERRORz:EL(219)256(218)::EC(222):9:2:"Unanticipated Error...":11:5:"FILE: ";FI$::5:"ERROR CODE: ";EC::5:"ERROR IN LINE: ";EL-;::5:12:2:"ProDOS PATHS not set for BOWLER and TEAM data."o9â14:5:"Press RETURN to go to Main Menu...";:L$u9ñ9_ #600009`D$;"CLOSE": ANY FILES9j(222)6(222)7ī60110: PATH NOT FOUND:t(222)5(222)254ī60190: OUT OF DATA: NUMBER OF VALID TNAME'S1PT$"":I:CD$;"CLOSE":j WRITE NUMBER OF BOWLERS/TEAMSSN%1PT$(PT%)SN%2PT$(TT%)X%(PT$):X%3ī560&PT$(SP$,3X%)PT$0SN%1PN$(PN%):SN%2PN$(TN%) DX%(PN$):X%3ī600$NPN$(SP$,3X%)PN$4XPT$PT$PN$>bPT$;DlXv: ENTRY POINTs260: PRINT "NAMES"D$;"CLOSE": CLOSE ALL FILES:34,2::7:18:"MENU"9:14::"1";::" Main Menu"14::"2";::" Add Name" PRINTLE IN MEMORY 6 READ A TNAME NAME RECORD= K190:210\L$"":PX$""hI120pL$L$"*"I20:2050PX$PX$L$I 500 #5000 UNDELETE GOES HERER1%PN%(K%)1680: GO GET DELETE190:JTT%:K%0!&R11J80K%K%1:TN%(K%)R1E:R1%2R1ND210XNL$""dXI120lbL$lL$"@"TN$(K%)" INACTIVE":I20:1930vL$"*"I20:1930TN$(K%)TN$(K%)L$IR1:500: CLOSETF%1:: SET FLAG FOR FIX$""I122L$2L$"*"I22:1740APX$PX$L$HIQ500W^  THIS FILE READS NAMES IN TEAM NAME FILE TF%1ı: TEAM NAMES IN MEMORY R1150:TN$(R1)""::R1(0):12:9:"Reading Team Names..."0 L$"""I122!,L$M6L$"@"PN$(K%)" INACTIVE":I22:1620d@L$"*"I22:1620{JPN$(K%)PN$(K%)L$TI^R1:500: CLOSEhPF%1:: SET FLAG FOR FILE IN MEMORYr| READ A PNAME RECORD180:200L$"":P; @ THIS FILE READS NAMES IN BOWLER NAME FILEFmPF%1ı: BOWLER NAMES IN MEMORYR11200:PN$(R1)""::R1(0):12:8:"Reading Bowler Names..."180:JPT%:K%0R11JR1%R1K%K%1:PN%(K%)R120P$,X%)!-PY$PX$: COPY NAME12PX$PX$AD$;<PX$;AFGP`Z WRITE A TEAM NAMEfdn190:TN%TN%1:TT%TT%1:R1%2TT%x230:X%(PX$)X%20ī1440X%20(PX$):AD$(SP$,X%)PY$PX$: COPY NAMEPX$PX$AD$PX$ BE CUT FROM END OF INPUT1X%(PX$):X%0ı=I%I%1QVT%:5I%:" "dX%1PX$"":xPX$(PX$,I%):  WRITE A BOWLER NAME 180:PN%PN%1:PT%PT%1:R1%PT%220:X%(PX$)X%22ī1340(X%22(PX$):AD$(SI%1:1080#X%(PX$):X%20ı?X%0ī1070: TRY AGAINOL$(PX$,1)bL$" "ī1180X%X%1:X%0ī1070: TRY AGAINPX$(PX$,X%):1172PX$PX$"*":: PUT "*" ON STRING IF NOT 20 CHARACTERS  SEE IF CHARACTER SHOULDA NAME.I%0:PX$"")8VT%:5:PX$<BVT%:5I%:L$QLL$(27)ġ:640tVL$(127)L$(8)İ1210:1090`L$(21)L$(10)L$(11)L$"*"L$"@"ī1090jL$(13)ī1160: TEST LENGTH OF NAME BEFORE EXITtI%20ī1080 ~PX$PX$L$:I%0:30010: CHANGE BOWLER NAMEgSM%3SN%2SX%0:35010: CHANGE TEAM NAMESM%4SN%1SX%0:46000: LIST BOWLERSSM%4SN%2SX%0:46000: LIST TEAMS830: TRY AGAIN$ TYPE IN NAME REC = 0FSM%1SN%1SX%0:10010: ADD BOWLERzSM%1SN%2SX%0:15010: ADD TEAMSM%2SN%1SX%0:25020: DELETE BOWLERSM%2SN%2SX%0:20020: DELTE TEAM+SM%3SN%1SX%OWLER DATA":960: FOR ERROR MESSAGEYSN%2FL$"TEAM NAME":FJ$"TEAM DATA"l OPEN TNAMESX%2:190:R1%0:210:420:500:970: READ TNAME REC = 0 OPEN PNAMESX%1:180:R1%0:200:420:500: READ P*SM%2CD$"delete"24SM%3CD$"change"T>:9:14::"1";::" Bowler"aH PRINT |R14::"2";::" Team"\:f:14:"Select Number ";:L$pL$(27)ī640zL$"1"L$"2"ī830SN%(L$).SN%1FL$"BOWLER NAME":FJ$"B %14::"3";::" Delete Name"3 PRINT U14::"4";::" Change Name"v14::"5";::" List Names"|:14:"Select Number ";:L$L$"1"L$"5"ī660 L$"1"ī390: MAIN MENUSM%(L$)1 SM%350,360,370,380D NAME:9:11:(PX$,3)o12:2:"Is this bowler ";::"M";::"ale or ";::"F";::"emale ? ";:L$L$"M"L$"m"L$"F"L$"f"ī50805050(L$)96L$((L$)32)12:34:L$;PN$(K%)L$(PX$,2)180: OPEN PNAME PX$PN$(K%)! (PX$)22ī51301 PX$PX$"*"K PN%PN%1:R1%PN%(K%)c 1300: WRITE PNAMEm R1%0 (220:520: WRITE ZERO RECORD PNAME 2500: CLOSE < o #6000 p UNDELETE TEAMS GOES HERE z R1%2TN%(K%)!1990: G.aK%1..a(PN$(K%),1)" "CD$"undelete"L.a25520: DISPLAY PROMPTSW.a25130n.b25380: GO DELETEt. b.b SUBROUTINE TO SELECT PNAME. b.*b9:11:(PN$(K%),3).4bL$"".>b6:2:"Bowler ";:" ";:9:K%; /Hb6:28:" ";:20406-OX$X$L$:K%(X$)(-O204061-O F-OK%TT%K%TT%:U-OK%1K%1[-Op-O(X$)0ĺ(7):-O(X$)1X$"":-OX$(X$,(X$)1):-O -a #25000-a DELETE BOWLER NAME-a-a280: TITLE-a1490: READ PNAMES.a :"When entry complete, press RETURN."N,O9:11:SP$:X$L$: FIRST NUMBERU,O ~,O6:7:" ":6:7:X$;:L$:L(L$),OL13L27K%(X$):20424,OL$"D"L$"d"L127L8İ20428:20406: DELETE,OL$"0"L$"9"ī20406-O(X$)2ĺ(7):1:K%1K%TT%+O7+O9:11:SP$: 22 SPACESK+O9:11:TN$(K%)]+OSM%3ī20140+$O(TN$(K%),1)" "CD$"undelete":20280+.OCD$"delete"+8O25520: PROMPTS+BO20140+LO END OF SUB+O NUMERIC HANDELER(,OI51417:I5:1:SP$::16) *NL$""2*N6:2:"Team ";:" ";:7:K%;:*NL$O*NL$(27)ġ:640o*NL$(13)ı: GO DELETE*NL$(21)İ20210:20230*NL$(8)İ20220:20230*NL$"1"L$"9"ī20140*N20400:25520:20230*NK%K%1:K%TT%K%1*N+NK%K% DELETE TEAM NAME)*N 1)4N320: TITLEL)>N1800: READ TNAMESR)HN[)RNK%1)\N(TN$(K%),1)" "CD$"undelete")fN25520: DISPLAY PROMPTS)pN20130)zN25570: GO DELETE)N )N SUBROUTINE TO SELECT TNAME)N*N9:11:TN$(K%"*(:VT%12:1070: GET TYPED INPUTc(:19:2:"Press RETURN to accept, ESC to abort ";:L$x(;L$(27)ī15080(;L$(13)ī15100(;1390:R1%0:230:520:500: WRITE ZERO RECORD(;TN$(TT%)PY$($;15020: GET NEXT NAME(N #20000) N(': #15000':/':310: TITLE?':45020:232':TT%50ė:12:3:(TT%);" Teams: The Database Is Full!":15050':15080':17:5:"Press RETURN for Menu...";:L$':L$(13)ī15050':640: MENU(::9:2:"Enter a TEAM name ESC to abort ";:L$+&((L$(27)ī10080A&2(L$(13)ī10270t&<(1290:R1%0:220:520:500: WRITE ZERO RECORD&>((PY$,1)"*"PY$(PY$,(PY$)1)&A(PN$(PT%)PY$&F(10020: GET NEXT NAME&P(&Z( PREFIX&d(&n(D$;"PREFIX"&x(BP$&('5:"Is bowler a Subsititute? ";::"Y";::"es/";::"N";::"o ";:M$[%'M$(27)ī640%'M$"N"M$"n"M$"Y"M$"y"ī10230%'10190%'(M$)96M$((M$)32)%(PX$L$M$PX$:% ( END SUB%(16:37:M$&(19:2:"Press RETURN to accept,10130:10260$~';$' SUBROUTINE TO ASK FOR M/F OR SUB$'14:5:"Is bowler ";::"M";::"ale or ";::"F";::"emale? ";:L$$'(L$)96L$((L$)32)$'14:31:L$$'L$(27)ī640$'L$"M"L$"m"L$"F"L$"f"ī10190$'10130H%'16: # OF BOWLERSV#.'PT%MN%ė:12:3:(PT%);" Bowlers: The Database Is Full!":10050a#8'10080#B'17:5:"Press RETURN for Menu...";:L$#L'L$(13)ī10050#V'640: MENU#`':9:2:"Enter a BOWLER name"#j'VT%12:1070: GET TYPED INPUT$t'ME"PX$TN$(K%))"(PX$)20ī61309"PX$PX$"*"U"TN%TN%1:R1%2TN%(K%)n"1400: WRITE TNAMEx"R1%0"230:520: WRITE ZERO RECORD TNAME"500: CLOSE"$"."' #10000"' "'270: TITLE#$'45010:232: PRINTO GET DELETED NAME/!:9:11:"?"(PX$,2)c!12:2:"Enter first letter of Team Name ";:L$!((L$)64(L$)91)((L$)96(L$)123)ī6080!6050!(L$)96L$((L$)32)!9:11:L$;:9:31!TN$(K%)L$(PX$,2)"190: OPEN TNA 12 SP5/Rb(PN$(K%),1)" "SX$"Deleted":25200\/\bSM%3CD$"delete":25520:25220/fbSM%3ī25220: IF NAME NOT DELETED/pbSM%3ī25250/zbCD$"undelete":25520:25250/b(PN$(K%),1)"M"SX$"Male":25240/bSX$"Female"0b(PN$(K%),2,1)"Y"SX$SX$" Sub")0b6:28:SX$;10bL$F0bL$(27)ġ:640d0bL$(13)ı: GO DELETE0bL$(21)İ25310:253300bL$(8)İ25320:253300bL$"1"L$"9"ĺ(7):251400b25353:25520:253300bK%K%1:K%PT%K%10b 1bK%K%1:K)+>B$(PN%(JI%))". "(PN$(JI%),3)?>갭J10C$" "C$l>LL(C$):TT(B$):RR40LL:TX$(SP$,RR)>" "C$TX$B$>111,A:112,B>>MM%0ī45370>&PW%2İ45420:45370: PRINT LAST TNAME?0" "(I%)". "(PN$(I%),3)EADY?=|45570:34,20*=D$;"PR#";PR4=::k=" ";P$;" NAME LIST"u=::=A(111):B(112)=J1AB%=°J51NN110ĺ:I113::=̰PW%2İ45390:45290 PRINT TNAMES>ְC$(PN%(J))". "(PN$(J),3N2)0MM%0:45100: EVEN/<"MM%1: ODDU<,PW%1:45130:630: GO PRINTm<6X%1:NN0:MM0:WW0<@ SETUP AND PRINT T/PNAMES8u19:5:"Press ESC to abort."`8uVT%14:1070: TYPE IN NAME8u34,13::10130: ASK IF M/F AND SUB8uR1%PN%(K%)8u180:1300:200:1690: OPEN, WRITE, READ, CLOSE PNAME8uPN$(K%)PX$9u34,2::30050: Bontinue...";:L$"7 or number keys to":"scan names."5c19:1:"Press ESC to exit."5c5c DELETE A TNAME6cTN$(K%)" INACTIVE"CD$"undelete":25520:6000:CD$"delete":2007IVE"4BcR1%PN%(K%)/4Lc180:1300:PN%PN%194VcR1%0L4`c220:520:500t4jc:9:11::" INACTIVE ":4tc14:6:"Press RETURN to continue...";:L$4~c9:11:SP$4cCD$"undelete":250704c4c DISPLAY DELETE PROMPTS4c:5c34,10:3c3c(X$)0ĺ(7):03c(X$)1X$"":G3cX$(X$,(X$)1):M3cb3#c DELETE A PNAME3$cPN$(K%)" INACTIVE"İ5000:CD$"delete":25070: GO UNDELETE NAME3.cPX$"@"(PN$(K%),2)30c(PX$)22ī2540032cPX$PX$"*"48cPN$(K%)" INACTER 2 c 42 c6:9:" ":6:9:X$;:L$:L(L$)S2 cL13L27K%(X$):253642cL$"D"L$"d"L127L8İ25367:25356: DELETE2cL$"0"L$"9"ī253562c(X$)3ĺ(7):253562cX$X$L$:K%(X$)2c253562cK%PT%K%PT%:3cK%1K%1%1K%PT%1b11b9:11:SP$: 22 SPACESJ1b9:11:(PN$(K%),3)U1c25140f1c END OF SUB1c NUMERIC ENTRY HANDLER1 c6:28:" ":I51417:I5:1:SP$::16:"When entry complete, press RETURN."2 c9:11:SP$:X$L$: FIRST NUMB!?:D$;"PR#0":PW%0:34,2::=?D SETUP TO PRINT TNAMESZ?NC$(TN%(J))". "TN$(J)}?XB$(TN%(JI%))". "TN$(JI%)?b?l" "(I%)". "TN$(I%):?v? SETUP TO PRINT TNAMES??340:1800: GET TNAMES)@X%TT%1:NNTT%:(NN2)(NN2)0MM%0:45490: EVEN9@MM%1: 0DDb@PW%2:P$"TEAM":45150:630: MENUh@}@Ʊ PRINTER READY?@б:12:1:"Make sure that PRINTER is ready."@ڱ:"Then press RETURN to continue...";:KY,0:L$A䱭L$(27)ġ::630: MENUFHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwY=200( dT1%0: =K% IF PDATA IN MEMg nSP$" ": 40 SPACESu sKY16368 xD$(4) (956)1ī150 15260: PREFIX 50030:PP$PX$: PATH 50020:TP$PX$ GF%0:GH%0: 1ST WK FLG, USED IN EDIT FILE: BOWLER.DM1FI$"BOWLER.DM 1.0"F a( 3/23/89j2 v<60000FA(670),B9(13),B1(13),T(13),B2%(13),B3%(13),B4%(14),B5%(14)PB5$(14),T%(50,10),PC%(50) ZPN$(200),PN%(200),B(20): MAX PL3288::940." J60150: RESUME OR MENUDJ INIT PNAME AND TNAME RECORD 0VJSX%0ī60200tJSX%2ī60360: TNAMEJ HERE TO INIT PNAME 0 RECORDJ180:R1%0:220:PT%0:PN%0:520:500J3288::960J190:R1%0:230:TT%0:TN%0:520:500KETURN for Menu...";:L$4I<3288::660: MENUaIF:12:5:"The disk is WRITE PROTECTED."IP14:5:"Please remove WRITE PROTECT tab."IZ17:5:"Then press RETURN...";:L$IdL$(13)ī60250InJx:12:5:"There is a disk access problem2:"set ";FJ$;" path."@H15:2:"Press RETURN to continue"lH17:2:"Or press ESC for MENU...";:L$|H L$(13)ĦHL$(27)Č3288:660: POP STACK AND START OVERH60160H(:12:5:"The file ";FL$;" is Empty."I215:5:"Press R11:5:"FILE: ";FI$::5:"ERROR CODE: ";EC::5:"ERROR IN LINE: ";ELG::5:"Press RETURN to END, then reboot...";:L$GL$(13)ī60080G::G:9:2:"The ";FL$;" PATH cannot be found."G:2:"Place ";FJ$;" disk in a drive or"H(222)7ī60120: PATH NOT FOUNDSFt(222)5(222)2ī60310: OUT OF DATAxF~(222)4ī60230: WRITE PROTECTF(222)8ī60280: I/O ERRORF UNANTICIPATED ERRORFEL(219)256(218)F:EC(222):9:2:"Unanticipated Error..."HG0090::660: NO PATHS&EPX$""1EÁIJKEEPX$PX$((I))NEÂI:Eâ12:2:"ProDOS PATHS not set for BOWLER and TEAM data."Eâ14:5:"Press RETURN to go to Main Menu...";:L$EñE_ #60000E`D$;"CLOSE": ANY FILES$Fj(222)60: PRINT TNAMES-Dܴ23:1:I139:"_";:XD洢24:11::"P";::" List To PRINTER";^DmDOò #50000DPò FILE: ERROR.TRAPDZò GET TNAME AND PNAME PATHSDdK768(768):J769:50040: TNAME PATHDnK833(833):J834: PNAME PATHExíK0İ5..";:L$:L(L$).CFL13L27ī630: MENUHCPL$"P"L$"p"ī46260SCZ46140Cx21:1:"Press RETURN for more...";:L$:L(L$)CL27ġ:630CL13Ģ21:1:SP$:CL$"P"L$"p"ġ:46260C46200CSN%1ī45070: PRINT PNAMESD4546BⳁJ1JJ%BI5J5BI19I19:912: SCROLL?BI:1NB K1((J))`BSN%2ī46110B(SP$,6K1);:(J);:" "(PN$(J),3):46120B(SP$,6K1);:(J);:" "TN$(J)B(KK1:K14K0:46200B2JC<21:1:"Press RETURN for Menu.AL$(13)ī45520ACA:12:10:"Printing names...":IA OAdA LIST TO SCREENjAASN%1İ300:1490:JJ%PT%:46020A340:1800:JJ%TT%: TNAMESAij:I0:K0Aɳ46300: PROMPTAγ5:1:"RECORD NAME"Bس34,5:35,22  HD%(939): HARD DISK8 MH%(928): MANUAL HCPW SW%(941): START SORT WKo 920: OPTIONS SET? 15030: FILL SCREEN PRINT INDEX 8720: GO TO START D$;"OPEN";PP$;"PDATA,L21":: OPEN PDATA D$;"OPEN";PP$;"PNAT ,^ READ BOWLER DATA RECORD6h _rB1%(1)((FL$,1,3)): GM 1|B1%(2)((FL$,4,3)): GM 2B1%(3)((FL$,7,3)): GM 3B1%(4)((FL$,10,3)): WEEK AVEB1%(5)((FL$,13,3)): HCPB1%(6)R1%FL$""I115.B%(I1)B9(I1)?A$(B%(I1))XX%(A$):X%3ī1520nA$(SP$,3X%)A$}FL$FL$A$I1A$(B9(6))A$(A$,1,6)X%(A$):X%6ī1580"A$(SP$,6X%)A$,FL$FL$A$6FL$;@I4(0)JX%3ī1320"A$(SP$,3X%)A$1(FL$FL$A$92I1I<A$(B1(6))ZFA$(A$,1,6)sPX%(A$):X%6ī1380ZA$(SP$,6X%)A$dFL$FL$A$nFL$;xI4(0) WRITE A BOWLER HI RECORDD$;"WRITE";PP$;"PDATA,R",B%(5)((FL$,13,3)): HI SERIES+HCP[B%(6)((FL$,16,6)): TOTAL GAMES TO WKai  WRITE A BOWLER DATA RECORD D$;"WRITE";PP$;"PDATA,R"R1%FL$""I115B1%(I1)B1(I1) A$(B1%(I1)) X%(A$):BOWLER INDEX_j ANY WEEKS RECORD: R1% = I2 * 37 - 33 + M : I2 = BOWLER INDEX, M = WEEKht ~B%(1)((FL$,1,3)): WEEKS BOWLEDB%(2)((FL$,4,3)): HI GAMEB%(3)((FL$,7,3)): HI GM+HCPB%(4)((FL$,10,3)): HI SERIESNU  - READ ONE PDATA RECORD4 ?FL$""LI4121TA$cFL$FL$A$k$I4. GOSUB 360, CLOSE AFTER CALL8B L READ BOWLER HI DATA RECORDV ` HI DATA RECORD: R1% = I * 37 - 33 : I = 6:10:"Automatic Handicap Options Are Not Set!"\12:"These must be set for BOTH"v14:"Men and Women."17:"To Set Options Select 9 In Main Menu."21:"Press RETURN to continue...";:L$L$(13)ī960:::360:8870: METEDR11J K%K%1(R1%R11 280;*L$""G4I122O>L$eHL$"*"I22:860|RPN$(K%)PN$(K%)L$\IfR1:650: CLOSEpTF%1:I4(0):z  OPTIONS NOT SET MH%1(961)0ı(926)0(945)0ıES":FJ$"BOWLER DATA";SN%1:260:R1%0:280:570:650c:12:9:"Reading Bowler Names..."w260:JPT%:K%0X%(PT%100)53:X%10ī76016:4:"This will take about ";:X%;:" seconds"R11J:PN%(R1)0:: SET ALL PNAMES TO UNDELE TOTAL NAMES IN TNAMEOlI2SN%1PN%(PT$): NUMBER OF VALID PNAME'SvI2SN%2TN%(PT$): NUMBER OF VALID TNAME'SPT$"":I:D$;"CLOSE": READ ALL PNAMESTF%1ı: PNAMES IN MEMFK$"BOWLER NAMHCP SERS SERS AVERAGE";#34,6)/q& READ NUMBER OF BOWLERS (SN% = 1)/TEAMS (SN% = 2)w0:PT$"":I12DJ13NA$:PT$PT$A$:JXI1SN%1PT%(PT$): TOTAL NAMES IN PNAMEbI1SN%2TT%(PT$): :' HT$"PRINT BOWLER DATA":320:Q :12:11:"Getting bowler data...":X  i : TITLE 3:"Bowler ";:K%;:": ";:N$ AU2Ģ4:1:"Team No. ";:I8;:" " 5:23:"WEEK";:28:"HCP";:33:"TOTAL"6:1:"WK GM1 GM2 GM3 15:"Enter 0-9";:KEY1ıu ^24:4::"S";::" to SAVE ";::"E";::" to EDIT ";::"A";::" for ABSENT";: hHT$"BOWLER DATA MANAGER":320: rHT$"WEEKLY DATA ENTRY":320: |HT$"EDIT WEEKLY DATA":320: HT$"DISPLAY BOWLER DATA":320ME,L22":: OPEN PNAME$  X D$;"READ";PP$;"PNAME,R";R1%:: READ PNAME "D$;"READ";PP$;"PDATA,R";R1%:: READ PDATA , 61:1:I139:"_";:: @:HT%(41(HT$))2:310:HT%:HT$:34,2: J22:1:I139:"_";: T23:((FL$,16,6)): TOTAL PINS%+L DATA ENTRY A() ASSIGNMENTSRd CALC SERIESA(I65)A(I61)A(I62)A(I63) CALC GMS BOWLED1980: GET WK GAMES TOTAL GAMESW1A(I69)H3%:1830A(I69)A(I79)H3%  TOTAL PINS,&W1A(I68)A(I65):1870H0A(I68)A(I78)A(I65)U:MH%0ıxD SERIES+HCP (FOR MANUAL HCP)NH3%0A(I66)0:1900XA(I66)(A(I65)(H3%A(I74)))b WK AVElH3%0A(I610)0:1930vA(I610)(A(I65)H3%): " ";:(H ,(R 6:B3%(H1)::B$(H1)::F(\ 6:B3%(H1):B$(H1):V(f SET ABSt(p (B5$(1))0B5$(1)"ABS"(z (B5$(2))0B5$(2)"ABS"( (B5$(3))0B5$(3)"ABS":( SET I6, I7( I6W1312:W1I7I6:: THIS WK) I7I613:: LST EN' A(I69)0HC%0:F' VT%A(I68)A(I69): TPINS/TGAMESm' HC%(MGVT%)(MC100):HC%0HC%0' HC%HM%HC%HM%: MAX SET' '* '4 (B5$(H1))B4%(H1)ĢV:B5%(H1):B5$(H1)" ";:(> V:B5%(H1):(SP$,B4%(H1)(B5$(H1)))B5$(H1) H13ĺ(7):2640I& B5$(H1)"ABS":A(I6H1)0:3380:3420:H13ī2850a& H1H11:3410:2640& B5$(H1)B5$(H1)".":3380:2640& GOOD NM 0 - 9& (B5$(H1))B4%(H1)ĺ(7):2640& B5$(H1)B5$(H1)L$:3380:2640& ' AUTO HCP FOR MEN/WOM1:VV1+%: W1WW1:VV1:(7):2640L%D V7WW1:VV1:(7):2640n%N WWWWW1:VV1:(7):2640%X KEY2:3:35::"EDIT":%b V1:1:SP$%l 3480: I6,I7%v H117:B5$(H1)(A(I6H1)):% H11:2640% 3440: ABS?% "A" &26400$ (B5$(H1))1B5$(H1)"":3380:2640`$ B5$(H1)(B5$(H1),(B5$(H1))1):3380:2640l$ SAVE$ WWWĉ:34,2:: TO DATA ENTRY CONTROLLER:NO DATA ENTERED$ H11ĺ(7):2640$ 3530: SAVE$& KEY = 2 EDIT DURING WKLY ENTRY %0 WW:9:"36 is maximum weeks"e# 24:5::"S";::" to SAVE data ";::"ESC";::" for Menu ";:L$~# L$"S"L$"s"ī3080# L$(27):::8870# 2950# LFT ARW# H11ĺ(7):2640# 3420:H1H11# 3410:2640# DEL$ B5$(H1)""IS AUTO I.E. MH%=0;"@ 1760: GET SERS & H3% TPIN TGAMEq"J (961)0İ3320:A(I64)HC%:2910: HCP-LEAGUE=1"T A(I64)0: SCRATCH LEAGUE"^ 1870: CALC REST OF A() "h 2790: GO DISPLAY AND TO NEXT LINE"r WK > 36#| 34,22:35,24::34,2:23LINE! KEY1ı2! V20V20:912: SCROLLA(I65)T(5)ī4770: SERS 6HA(I66)T(6)ī4770: SERS+HCP6RA(I610)T(10)ī4770: WK AVE6\A(I69)T(9)ī4770: GMS BOWLED&7fHontinue...";:L$:15(B5$(0))1ĺ(7):4400P5 NOW DO EDIT OF SELECT WKo5W(B5$(0)):W1V7:4590w5V853480:I4110:T(I4)A(I6I4)::2520: KEYIN5 HERE I6, I7 SET FOR EDIT WK + 16WW1:3480: RESET I6,I7 SO I6=EDIT WK INDE4vL48L57ī4430'4 GOOD NUMBERD4(B5$(0))2ĺ(7):4430Y4B5$(0)B5$(0)L$4(B5$(0))B%(1)ĺ(7):4530:4400: BAD NUMBER TRY AGAIN44430: GOOD NUMBER4:12:4:"The maximum week number is ";B%(1)515:4:"Press RETURN to c0 343203)3 ASK FOR EDIT WK/3&D30:380:B5$(0)""x3::8:2:"Enter the number of the week to EDIT"3D14:6:"The maximum week number is ";B%(1)3N11:18:" ";:18:B5$(0);:L$3XL(L$)3bL13ī45504lL27ī8870: MENU8:4:"Do you wish to review the data for"O210:4:"Bowler ";:N$;:"?";213:14::"Y";::"es or ";::"N";::"o ";:L$2L$"Y"L$"y"İ10030: DISPLAY2L$"N"L$"n"ī4400: ASK FOR WK334,2::8:5:"Review the data again?":432%91250:290:1020:1150: OPEN,READ,FILL HI DATAS1WB%(1): SET MAX WK1W0İ650::9:5:"Bowler ";K%;" ";N$::5:"Has no data.":::5:"Press RETURN to continue...";:L$:8870: MENU1J31:10680:650: FILL A(),CLOSE-2:80:650: FILL A(),CLOSE60,PS0ī5070: PRINTERL0610030: DISPLAY^0@8870: MENUe0J x0T EDIT ANY WK0^ 0h::380: TITLE0r8030: SCAN PNAMES0|410: PRT OBTAIN DAT0KEY1:R1%K%37330T1%K%WB%(1):43001T1%K%/R1%K%3733Y/250:EI%1:290:EI%0:1020:1150: OPEN,READ,FILL HI DATAu/WB%(1): SET MAX WK/W0İ650::9:5:"Bowler ";K%;" ";N$::5:"Has no data.":::5:"Press RETURN to continue...";:L$:8870: MENU0"J31:106650: CLOSE*.: TO ENTRY CONTROLLER0.Y. DISPLAY OR PRINT A BOWLERS DATA_..:PS0İ400:4050: TITLE.:390: TITLE.8030: SCAN PNAME.T1%K%WB%(1):4140: PDATA IN MEM.410: PRT OBT DATA/T1%K): -#-  SAVE DATA TO DISK)-W-KEY1IKKī3900: SKIP SAVE TIL EDIT WKj-(R1%K%3733W-21250: GO WRITE DATA RECORD-<I: INDEX ALL WKS-FGH%1ı-P-Z WRITE HI DATA-d-nB9(1)W: WK-xR1%K%3733-1450.3)B8(2)B9(3)B8(2)3,B9(3)B8(3)B9(3)B8(3)B, HI SERSi,B%(4)A(I65)B9(4)A(I65):3800y,B9(4)B%(4), HI SERS+HCP,B%(5)A(I66)B9(5)A(I66):3810,B9(5)B%(5),B9(6)A(I69): GMS BOWLED,-I416:B%(I4)B9(I4I GM#+`B9(2)B1(1)B9(2)B1(1)@+jB9(2)B1(2)B9(2)B1(2)]+tB9(2)B1(3)B9(2)B1(3)+~ HI GM+HCP SET B8() TO THE 3 GMS+HCP+J113:B8(J1)B1(J1)A(I74):: IF W=1, I7=I6+B9(3)B%(3): HI GM+HCP+B9(3)B8(1)B9(3)B8(1),B9( CALC TPINS, TGAMESY9W1A(I68)A(I65):A(I69)H3%:4890: TPINS, TGAMES9A(I68)A(I78)A(I65):A(I69)A(I79)H3%: TPINS, TGAMES9 AUTO HCP CALC9MH%1ī4960: SKIP AUTO HCP9$(961)0A(I64)0:4960:.A(I69)0HC%0:4950A:8VT%A(I68)A(I69): TPINS/GAMESh:BHC%(MGVT%)(MC100):HC%0HC%0:LHC%HM%HC%HM%: MAX SET:VA(I64)HC%: SET HCP:`H3%0A(I610)0:4980:jA(I610)(A(I65)H3%): WK AVE ;tA(I69)0A(I67)s ESC for MENU."H!SH!(PN$(K%),1)"M"MC(927):MG(926):HM%(955):8670H!MC(946):MG(945):HM%(944): MUST BE WOMEN HCPH!HM%255HM%10000H!H!H! ENTRY TO BOWLER.DMH"H"::360: TITLEH"I$" LOAD BOWLER NAM:I91PT%IG\!(PN$(I9),1)"@"(PN$(I9),2,1)"Y"SF%1:K%I9:I9PT%QGf!I9WGp!]G!qG! SCAN PROMPTSxG! G!:14:1:"Press RETURN to select displayed name."G!16:1:"Use ARROW <-- --> or number keys to":"scan names."H!19:1:"Pres$"0"L$"9"ī8360-F (X$)3ĺ(7):8360CF X$X$L$:K%(X$)MF 8360dF K%2K%0:8240:F!K%PT%K%PT%1:8240:F !K%K%1:8240:F!(X$)0ĺ(7):F !(X$)1X$"":F*!X$(X$,(X$)1):F4!F>! SEE IF ANY SUBSFH! GR!SF%0 ":I51417:I5:1:SP$::16:"When entry complete, press RETURN."sE 9:11:SP$:X$L$: FIRST NUMBERzE E 6:9:" ":6:9:X$;:L$E L$(13)L$(27)K%(X$):8440E L$"D"L$"d"L$(127)L$(8)İ8470:8360: DELETEF LFOR DELETED PNAMES-D0 K%K%1:K%PT%K%1QD: AU3(PN$(K%),2,1)"Y"ī8240mDD (PN$(K%),1)"@"ī8240sDN DX K%K%1:K%1K%PT%Db AU3(PN$(K%),2,1)"Y"ī8280Dl (PN$(K%),1)"@"ī8280Dv D NUMERIC ENTRY HANDLERLE 6:28:" L$(13)İ8650:: SEE IF M OR F@CL$(21)İ8240:8190YCL$(8)İ8280:8190xCL$"1"L$"9"ĺ(7):8100C8330:8610: NUMERIC DATAC9:11:SP$: 22 SPACESC 9:11:(PN$(K%),3)C 8100C END OF SUBD& TEST B|: GO EXECUTE B BAU1AU3Ģ4:1:"Select Bowler to automatic index from":AU3İ8530:SF%0ġ:8870: SEE IF ANY SUBSB9:11:(PN$(K%),3)BL$""B6:2:"Bowler ";:" ";:9:K%;BL$BL$(27)ġ:8870: MENU&C));:B5$(H1);:GAB5%(H1));:(SP$,B4%(H1)(B5$(H1)))B5$(H1);:VA? #8000^A@ AJ SUBROUTINE TO SELECT PNAMEAT A^K%0:8240:FK$"BOWLER DATA":FJ$FK$Ah8610: DISPLAY PROMPTSBr8080:N$(PN$(K%),3): SELECTED PNAME);"HIGH HCP GAME = ";:5390:B5$(12)(B%(5)):H112:15);"HIGH HCP SERIES = ";:5390\@k@D$;"PR#0"@15030:8870: RESTORE SCREEN INDEXES THEN MENU@PS0:15030: RECOVER SCREEN PRINT INDEX@8870: MENUA(B5$(H1))B4%(H1)ĺB5%(H1" " ?1:W10ĺ" ";W;:5290(?W;=?H1110:5390:V?111,AA:112,BB::W?::B5$(11)(B%(2)):H111:9);" HIGH GAME = ";:5390:B5$(12)(B%(4)):H112:15);" HIGH SERIES = ";:5390?(961)0ī5340V@:B5$(11)(B%(3)):H111:9FJ3179:"=";::+>PW1B%(1):3480C>ZAA(111):BB(112)>dI416:B5$(I4)(A(I6I4))::B5$(7)(A(I610)):B5$(8)(A(I67)):B5$(9)(A(I68)):B5$(10)(A(I69))>nI413>x(B5$(I4))0B5$(I4)"ABS">?(961)0B5$(4)" ":B5$(6) TOTAL TOTAL TOTAL":"WEEK GAME1 GAME2 GAME3 HCP SERIES SERIES AVERAGE AVERAGE PINS GAMES"v=25190=<30:"WEEK WEEK TOTAL TOTAL TOTAL":"WEEK GAME1 GAME2 GAME3 SERIES AVERAGE AVERAGE PINS GAMES">ure printer is ready"?<14:7:"Then press RETURN...";:L$a<L(L$):L27ī5370: EXITr<L13ī5070<15160: SET INDEXS<D$;"PR#";PS< ::N$;:" SCORES"::<J3179:"=";::<(961)0ī5180l=(30:"WEEK HCP WEEK0:50003;~A(I67)(A(I68)A(I69)): TAVE:;W`;WJ31:KKW: RECOVER EDIT WEEK;WW1:WB%(1)1: SET WW AND W FOR SAVE LOOP ;I425:B%(I4)0::3530:8870: SAVE THEN MENU;; PRINT TO PRINTER;<:12:7:"Make sESI."690: GET PNAMES,I8"8870: MENU2IB"FIL" RUN MAIN MENULIV"VI`"8840gIj"HD%1ī8830It"BP$"/PROGRAM1/":FK$BP$:FJ$FK$I~"D$;"RUN";BP$;"MENU.DM"I":12:11:"Loading Program...":I" I" J"AU0:34,2:35,24::360:KEY0: ENTRY TO MENU'J"5:18:"MENU"JJ"8:12::"1";::" Main Menu"rJ"12::"2";::" Enter Weekly Data"J"12::"3";::" Edit Bowler Data"J"12::"4";::" Display Bowler Data"J"12::"5";::" Print Bowler Data"K"16:12:"Select a(K%),1)"@"ī10420: NEXT I5AX(N$(PN$(K%),3):GF%1bX(8650: GET MEN OR WOMEN HCPX(:12:10:"Reading bowler data...":R1%K%3733:250:290:1020:1150: HI DATAX(B%(1)0WB%(1):10510X)W1:10570: DO 1ST WKY)W1ī10TX%ī10620: DONE9W(I5I51:I5PC%(I8)I50:10360JW(K%T%(I8,I5)uW((PN$(K%),1)"@"ī10370: NEXT BOWLERW(10460W(I5K1%1W(I5I51:I5PT%ī10620: DONE WITH AUTO LOOPW(K%I5:AU3ī10450W((PN$(K%),2,1)"Y"10420'X((PN$: TO CALLERV<(2VF( DATA ENTRY CONTROLLER8VP(VZ(FK$"BOWLER DATA":FJ$FK$:KEY0:AU0İ8030:10460: MANUALVd(AU1AU3İ8030:K1%K%:10410: AUTO BY BOWLER/SUBVn(I8I81:I50: I8 INDEX TEAMS, I5 INDEX BOWLERSWx(I8I81:I8V20:912: SCROLLfU (WB%(1)Ĺ35,24:24:8:"Press RETURN for Menu...";:L$:10290: ANY KEYU((49152)160Ĺ49168,00:24:28:L$U(L(L$):L27WB%(1):10290: RTN TO CALLERU(( RETURN TO EDIT OR TO MAIN MENU DEPENDING ON CALLERV2(W:ntinue...";:L$:1T'(B5$(0))1ĺ(7):10030ET' START DISPLAY]T'470: COLUMN HEADyT'22:1:I4139:"_";:T'24:12::"SB";::" Pause/Resume ";T'35,21T'I4(B5$(0)):V7T'WI4B%(1)T'I6W1312:2040: DISPLAYU(VV1:V20NUSt'L48L57ī10060.S~' GOOD NUMBERLS'(B5$(0))2ĺ(7):10060aS'B5$(0)B5$(0)L$S'(B5$(0))B%(1)ĺ(7):10160:10030: BAD NUMBER TRY AGAINS'10060S':12:4:"The maximum week number is ";B%(1)T'15:4:"Press RETURN to coR' #10000R'0R' DISPLAY BOWLER DATA6R$'DR.'B5$(0)""uR8':8:4:"Start the display at week number?"RB'14:6:"The maximum week number is ";B%(1)RL'11:18:" ";:18:B5$(0);:L$RV'L(L$)R`'L13ī10180Sj'L27ġ:8870: MEQ%9410: GOOD NUMBERLQ&%:12:4:"The maximum TEAM NUMBER is ";TX%}Q0%15:4:"Press RETURN to continue...";:L$:Q:%B5%(B5$(0)):B5%1ĺ(7):9380QD%PC%(B5%)1ĺ(7):9380: DELETEDQN% GO SEQUENCE FROM SELECTED TEAMRX%I8(B5$(0)):s ";TX%-P$11:18:" ";:18:B5$(0);:L$9P$L(L$)IP$L13ī9530gP$L27ġ:8870: MENU|P$L48L57ī9410P$ GOOD NUMBERP$(B5$(0))2ĺ(7):9410P%B5$(0)B5$(0)L$Q%(B5$(0))TX%ĺ(7):9510:9380: BAD NUMBER TRY AGAIN"O@$D$;"READ";TP$;"TEAMS".OJ$TX%,BB,MX% 1"Y) HERE IF W = 1TY")GF%2:J31:10680:10570: FILL A() FOR W=1`Y,) W > 1vY6)J3W1:J31J31Y@)GF%3:10680:GF%0: FILL A() FOR W - 1 TO WYJ)650:W1V7:10590YT)WW1:V8Y^)2520:AU0ī10330: MANUALZh)AU2ī10370: AUTO BY TEAMFZr)AU1AU3ī10420: AUTO LOOP BY BOWLER/SUBgZ|)AU0:8870: DONE WITH AUTOmZ)Z) FILL A() ARRAYZ)Z) ENTER HERE TO FILL A() ARRAYZ) H3% COUNTS GMS BOWLEDZ)I3W:WJ3B%(1):I6W1312Z)W1I7I6:10710 ["+gP17:5:"Then press RETURN...";:L$AgZL$(13)ī60240Ggdwgn:12:5:"There is a disk access problem."gx60140: RESUME OR MENUg NO DATAgGF%1ī60190gI416:B%(I4)0:gGF%0:3288::10490: ENTER FIRST WK DATA0:B%(1)0: DISP DATA NO PDATA4f"3288::4120_f&:12:5:"The file ";FK$;" is Empty."f(15:5:"Press RETURN for Menu...";:L$f23288::8870: MENUf<:12:5:"The disk is WRITE PROTECTED."gF14:5:"Please remove WRITE PROTECT tab." disk in a drive or"4e2:"set ";FJ$;" path."[e15:2:"Press RETURN to continue"e17:2:"Or press ESC for MENU...";:L$eL$(13)Ħe L$(27)Č3288:8870: POP STACK AND START OVERe60150eEI%0ī60198!f EI%0:W0:T1%:EC(222):9:2:"Unanticipated Error..."xd11:5:"FILE: ";FI$::5:"ERROR CODE: ";EC::5:"ERROR IN LINE: ";ELd::5:"Press RETURN to END, then reboot...";:L$d::d:9:2:"The ";FK$;" PATH cannot be found."e:2:"Place ";FJ$;#60000%c`D$;"CLOSE": ANY FILESVcj(222)6(222)7ī60110: PATH NOT FOUNDct(222)5(222)2ī60300: OUT OF DATAc~(222)4ī60220: WRITE PROTECTc(222)8ī60270: I/O ERRORc UNANTICIPATED ERRORcEL(219)256(218),d'bnK833(833):J834: PNAME PATHMbxíK0İ50090::8870: NO PATHSXbPX$""cbÁIJKwbPX$PX$((I))bÂI:bâ12:2:"ProDOS PATHS not set for BOWLER and TEAM data."bâ14:5:"Press RETURN to go to Main Menu...";:L$bñc_ A B4%()Laj; 3,3,3,4,2,4,4,6,6,4: DATA PRINT SPC B5%()Rat;Xa~;ia; GET PREFIXoa;a;D$;"PREFIX"a;BP$a;aOò #50000aPò FILE: ERROR.TRAPaZò GET TNAME AND PNAME PATHSbdK768(768):J769:50040: TNAME PATH"GM2","GM3","HCP": B$()!`;)`; J`$; PRINT TO PRINTER INDEXESR`.; X`8;z`B;I122:I%:: THROW AWAY`L;I14:L$:: THROW AWAY`V;I112:B4%(I)::I110:B5%(I): a`; 3,3,3,3,4,4,3,3,5,3,3,4: MAX LEN OF PRINTED DATI14:B$(I):<_: 8,13,18,22: CUR HTAB B2%()u_: 5,10,15,19: DATA ENTRY HEADING HTAB B3%()_: 3,3,3,3,4,4,3: MAX LEN OF INPUT DATA B4%()_: 5,10,15,19,23,28,33: DATA PRINT HTAB B5%()`; "GM1",^*WI3A(I69)B%(6)H3%:10950: W - 1 TGAMESc^*A(I69)B%(6): LAST ENTERED WKS TGAMESi^*|^: #15000^: ^: PRINT TO SCREEN INDEXES^: ^:^:I14:B2%(I)::I14:B3%(I):^:I17:B4%(I)::I17:B5%(I):_:H3%A(I64)):108708]l*A(I66)(A(I65)H3%A(I74))U]v*H3%0A(I610)0:10890]*A(I610)(A(I65)H3%): WK AVE=SERS/WK GMS]*W: LOOP THROUGH ALL WKS]* NEXT W: REM LOOP THROUGH ALL WKS]*WI3:: RECOVER W^* TGAMES FOR W-15H3%1\&*I4?\0*W1A(I69)H3%:10830: WK1 DATA ONLYp\:*GF%3İ10930:10830: DO TGAMES FOR W-1 & W\D*A(I69)A(I79)H3%: TGAMES\N*A(I69)0A(I67)0:10850\X*A(I67)(A(I68)A(I69)): TAVE=TPIN/TGAMES]b*W1A(I66)(A(I65))I7I6131[)R1%K%3733W: INDEXING ON WT[)290:1020:1650: GET RECORD{[)I413:A(I6I4)B1%(I4):: GMS[)A(I64)B1%(5): HCP[)A(I65)A(I61)A(I62)A(I63): SERS[*A(I68)B1%(6): TPINS[*H3%0:I413\*A(I6I4)0H3% FILE: STARTUP 1.05 FOR BOWLKEEPER IIIF 1/12/89N( h2 ONERR FIX: CALL 966n<FI09:A:966I,A:IP 104,168,104,166,223,154,72,152,72,96Z d768,0:833,0:954,0:956,0: SET PATH LENGTHS TO ZERO, OPTIONS ON WK GM1 GM2 GM3 HCP SERS SERS WON LOSS";634,6<B~ READ NUMBER OF PLAYERS (SN% = 1)/TEAMS (SN% = 2)PT$"":I12J13&A$:PT$PT$A$:J0I1SN%1PT%(PT$): TOTAL NAMES IN PNAME":I1SN%2TT%( ENTRY":330:2 HT$"EDIT WEEKLY DATA":330:U HT$"DISPLAY TEAM DATA":330:v HT$"PRINT TEAM DATA":330: :12:11:"Getting team data...":  : TITLE 3:"Team ";:K%;:": ";:N$ 5:23:"SCR";:28:"HCP",6:1:":3 J:HT%(41(HT$))2:320:HT%:HT$:34,2:N T22:1:I139:"_";:q ^23:15:"Enter 0-9";:KEY1ı h24:4::"S";::" to SAVE ";::"E";::" to EDIT ";::"A";::" for ABSENT";: rHT$"TEAM DATA MANAGER":330: |HT$"WEEKLY DATATO START A D$;"OPEN";TP$;"TDATA,L60":: OPEN TDATAr D$;"OPEN";TP$;"TNAME,L20":: OPEN TNAMEy  "D$;"READ";TP$;"TNAME,R";R1%:: READ TNAME ,D$;"READ";TP$;"TDATA,R";R1%:: READ TDATA 6 @1:1:I139:"_";:(950))(947): MAX HCPM MG(256(951))(948): SCRATCH FIGUREh MC(949): ALLOWANCE SW%(942): START SORT WK (956)1ī220 10280: PREFIX 50020:TP$PX$: PATH 10050: FILL SCREEN PRINT INDEXS 8520: GO {}~0: =K% IF TDATA IN MEMW nSP$" ": 40 SPACESe sKY16368 xD$(4):GF%0:GH%0: FIRST WK FLG, USED IN EDIT MH%(929): AUTO HCP=0 HD%(939): HARD DISK =1 880: OPTIONS SET? HM%(256* FILE: TEAM.DM@FI$"TEAM.DM 1.1"Q c( 3/12/89k2 w<60000FA(560),B9(13),B1(13),T(13),B2%(13),B3%(13),B4%(15),B5%(15)PB5$(15),B2(13)ZTN$(50),TN%(50),B(20): MAX TEAMS=50 dT1%"BY"- :8:"CLAYTON & ASSOCIATES, INC."< I1800:T (4);"RUN MENU.DM"xzBOOT DISK, NO DEBUGB n957,0: NEW BOOT NO DATA HAS BEEN POKEDo s962,0: RECAP/ALPHASORT FLAG 0=NO RECAP u963,0: =1 FOR TEAM-OR-BOWLER-RECAP x:9:13:"BOWLKEEPER III" 12:14:"VERSION 1.0" 14::11:"COPYRIGHT (C) 1989" :19:PT$): TOTAL NAMES IN TNAMEXDI2SN%1PN%(PT$): NUMBER OF VALID PNAME'SNI2SN%2TN%(PT$): NUMBER OF VALID TNAME'SXPT$"":I:bD$;"CLOSE":lv  READ ALL TNAMESTF%1ı: TNAMES IN MEMFK$"TEAM NAME":FJ$"TEAM DATA"ASN%2:270:R1%0:290:530:610g:12:9:"Reading Team Names..."{270:JTT%:K%0R11J:TN%(R1)0:: SET ALL TNAMES TO UNDELETEDR11JK%K%1R1%2R1290L$""I120 L$5H1):L$:L(L$): KEYIN1d L13L21ī2830fn L27ĉ:34,22::34,2:2780: SAVE? THEN MENUx L8ī2980: LFT ARW L127L68L100ī3020: DEL L83L115ī3060: SAVE L69L101ī3120: EDIT L65L97ī3230: ABS=A:3730:VV1: DISPLAY 1ST WK DATA@ H116:B5$(H1)"":U( W36H11:2770c2 V:1:W;< KEY1İ4460: DISPLAY EDIT LINEF H11:3550: INVERSE HEADINGP KEY3KEY0:3:35:" ":2590: DONE WITH ENTRY EDITZ V:L$"":B2%(,2:35,24::440:340: TOP AND BOT TITLEi 34,6:35,21:KEY0ī2560: TOP/BOT OF WINDOW W1GF%2WW2:2560 WWW: FIRST WK SAVED 3730: SET I6, I7 V8V7:WW1:3730:4460:V8:WW1:3730' GF%2GF%0:4460:WW1 WEEK WINS=:B1(3)((FL$,37,6)): WEEK LOSShDB1(4)((FL$,43,6)): TOT WINSNB1(5)((FL$,49,6)): TOT LOSSXB1(6)((FL$,55,6)): TOT PINS + HCPbl #2500 KEYIN HANDLER 2 34 GM 2.B1%(3)((FL$,9,4)): GM 3UB1%(4)((FL$,13,4)): HCPB1%(5)((FL$,17,4)): WEEK SERIESB1%(6)((FL$,21,4)): WEEK SERIES + HCP&B1(1)((FL$,25,6)): TOT PINS0B1(2)((FL$,31,6)): 5rA$(B9(I16))'|A$(A$,1,6)@X%(A$):X%6ī1690VA$(SP$,6X%)A$eFL$FL$A$mI1wFL$;I4(0) READ TEAM DATA RECORD B1%(1)((FL$,1,4)): GM 1B1%(2)((FL$,5,4)): TE";TP$;"TDATA,R"R1%!FL$""-I116?B%(I1)B9(I1)PA$(B%(I1))i"X%(A$):X%4ī1590,A$(SP$,4X%)A$6FL$FL$A$@I1JI116TI13I14ī1650^XB9(I16):B9(I16)(B9(I16))hXB9(I16).4B9(I16)B9(I16).I16):B2(I16)(B2(I16))DnXB2(I16).4B2(I16)B2(I16).5WxA$(B2(I16))hA$(A$,1,6)X%(A$):X%6ī1440A$(SP$,6X%)A$FL$FL$A$I1FL$;I4(0) WRITE A TEAM HI RECORDD$;"WRI . WRITE A TEAM DATA RECORD4UD$;"WRITE";TP$;"TDATA,R"R1%`FL$""l I116B1%(I1)B2(I1)A$(B1%(I1))(X%(A$):X%4ī13402A$(SP$,4X%)A$<FL$FL$A$FI1PI116ZI11I16ī1400dXB2(+B(1)((FL$,25,6)): TOTAL PINSZB(2)((FL$,31,6)): TOTAL PINS + HCPB(3)((FL$,37,6)): TOTAL WINSB(4)((FL$,43,6)): TOTAL LOSSB(5)((FL$,49,6)): EXTRAB(6)((FL$,55,6)): DELETED YES=111, NO=0$,1,4)): WEEKS BOWLEDM`B%(2)((FL$,5,4)): TOTAL GAMES BOWLEDyjB%(3)((FL$,9,4)): HI GM SCRATCHtB%(4)((FL$,13,4)): HI GM HCP~B%(5)((FL$,17,4)): HI SERIES SCRATCHB%(6)((FL$,21,4)): HI SERIES + HCP I4- GOSUB 360, CLOSE AFTER CALL3: \$ READ TEAM HI DATA RECORDb.8 HI DATA RECORD: R1% = I * 37 - 33 : I = TEAM INDEXB ANY WEEKS RECORD: R1% = I2 * 37 - 33 + M : I2 = TEAM INDEX, M = WEEKL VB%(1)((FLdicap Options Are Not Set!"N12:"To Set Options Select 9 In Main Menu."z17:"Press RETURN to continue...";:L$L$(13)ī920:::370:8670: MENU READ ONE TDATA RECORDFL$""I4160A$FL$FL$A$I1L$"*"TN$(K%)" DELETED":TN%(K%)1:I20:820K L$"*"I20:820b*TN$(K%)TN$(K%)L$i4I>R1:610: CLOSEHTF%1:I4(0):R \ OPTIONS NOT SET?f pMH%1(961)0ız(948)0(951)0ı:10:"Automatic Han L46ī3270: "."3 L48L57ī2640: NO NUMC 3310: 0-9Q WK > 36 34,22:35,24::34,2:23:9:"36 is maximum weeks" 24:5::"S";::" to SAVE data ";::"ESC";::" for Menu ";:L$ L$"S"L$"s"ī3060 L$(27)ė::8670: MENU 2780*  RTN OR LFT ARWS  B5$(H1)""ī2640: CANT BE EMPTYc  H16ī2890 " H29:3755:A(I6)W:3660:3560:WW1:VV1:3730:KEY2KEY3: 3460 CALC TWIN TLOSS , KEY1ı 6 V20V20:912: SCROLL @ 2590'!J H1H3)X$:(.B5$(H3)(X$,2)(X$,1):/. ?. SAVE DATAE._.34,2:35,24::12:9. KEY0ĺ"Saving weekly data...".KEY1ĺ"Saving edited data...".FK$"TEAM DATA":FJ$FK$.(260: OPEN TDATA.2JW1:J1J1/<IWWJ: 1S TST FOR "." ENTER WITH H2 & H3 SET@-B5$(H1)((B5$(H1)))h-(B5$(H1))3A(I6H2)(B5$(H1)):-(B5$(H1))3X$(B5$(H1),2,1):X$"."A(I6H2)(B5$(H1)):-X$(B5$(H1),2)"."(B5$(H1),1):A(I6H2)(X$): .X$(A(I6H2)):(X$)3B5$(A(I610)A(I710)A(I68):A(I611)A(I711)A(I69):H,` SET ABSf,j(B5$(1))0B5$(1)"ABS",t(B5$(2))0B5$(2)"ABS",~(B5$(3))0B5$(3)"ABS":, SET I6, I7,I6W1514:W1I7I6:: THIS WK,I7I615:: LST WK&- SERS1+H3%0:H213:(B5$(H2))0H3%H3%17+q+$W1A(I67)H1%:A(I613)H3%:: TPINS, TGAMES+.A(I67)A(I77)H1%:A(I613)A(I713)H3%: TPINS, TGAMES+8+B TWIN & TLOST+LW1A(I610)A(I68):A(I611)A(I69):8,VH1)ĢV:B5%(H1):B5$(H1)" ";:[* V:B5%(H1):(SP$,B4%(H1)(B5$(H1)))B5$(H1)" ";:b* * 6:B3%(H1)::B$(H1)::* 6:B3%(H1):B$(H1):* CAC TPINS AND TGAMES* H1%(B5$(1))(B5$(2))(B5$(3)): SCRT SERS+A(I65)H1%: WKCP CALC!)p A(I613)0HC%0:M)z VT%A(I67)A(I613): TPINS/GAMESt) HC%(MGVT%)(MC100):HC%0HC%0) HC%HM%HC%HM%: MAX SET) ) TPINS+HCP) W1A(I612)A(I66):) A(I612)A(I712)A(I66)) !* (B5$(H1))B4%())):3405: MANUAL-SERS + HCP, W = 1 I6 = I7u(H A(I66)(A(I65)(H3%A(I74))): AUTO-SERS + HCP, W = 1 I6 = I7(M 3490: TPINS+HCP(O (961)0B5$(8)"-":3420(R B5$(8)((A(I66))): SERS + HCP(\ H17:3520:H18:3520:H15: )f AUTO H705' MH%0İ3440:B5$(4)(HC%): DO AUTO HCPg' A(I64)(B5$(4)):3560:H14:3520: DISP HCP'* B5$(7)((A(I65))): SCRT SERS'4 H3%0:H213:(B5$(H2))0H3%H3%1'> 'B (929)0ī3400: AUTO HCP/(D A(I66)(A(I65)(H3%A(I6426400& B5$(H1)""(B5$(H1))1ĺ(7):2640T& B5$(H1)B5$(H1)".":3520:2640h& GOOD NM 0 - 9& (B5$(H1))B4%(H1)ĺ(7):2640& B5$(H1)B5$(H1)L$:3520:2640& & MAN AND AUTO HCP HND' (961)0B5$(4)"-":A(I64)0:H14:3520:33H114:B5$(H1)(A(I6H1))::3690:H28:H35:3790:H29:H36:3790:B5$(8)(A(I66)):B5$(7)(A(I65))x% H11:2640% "A" % H13ĺ(7):2640% B5$(H1)"ABS":A(I6H1)0:3520:3560:H13ī2930% H1H11:3550:2640% "."& H15ĺ(7):1ĺ(7):2640"$ 3840: SAVEG$& KEY = 2 EDIT DURING WKLY ENTRYW$0 WW1:VV1x$: W1WW1:VV1:(7):2640$D V7WW1:VV1:(7):2640$N WWWWW1:VV1:(7):2640$X KEY2:3:35::"EDIT":$b V1:1:SP$$l 3730: I6,I7i%v :2640# DEL(# B5$(H1)""ī2640Q# (B5$(H1))1B5$(H1)"":3520:2640# B5$(H1)(B5$(H1),(B5$(H1))1):3520:2640# SAVE# WWWĉ:34,2:: TO DATA ENTRY CONTROLLER# H11ĺ(7):2640# H1%0:H316:(B5$(H3))0H1%1:$ H1%w MH%1H1H11:3550:2640: GO GET MN HCP]"| CAL SERS, SERS + HCP AND HCP IF AUTO" 3350:3550:2640: DO CALCS SER TPIN HCP" MAN HCP" LFT ARW" H11ĺ(7):2640" 3560:H1H11:H14MH%0H13" H14(961)0H13# 35504İ3350:3550:2640: DO MAN HCP^!T H15H28:3755:3560:H1H11:3550:2640: WON!^ H13A(I63)(B5$(3)):3520:3560:2930: TST MAN HCP!h H13İ3520:3560:A(I6H1)(B5$(H1)):H1H11:3550:2640!r 3580:(961)0ī2950: H1 = 31"T TO LAST WK ENTERED3/FWI:3730: SET I6,I7F/P FILL B2()z/ZJ1112:B2(J1)A(I6J1):: COPY WKS DATA/dGH%1ī4270: SAVE EDIT WK ONLY/n HI DATA COMPARE/xISW%āI436:B%(I4)0:/B9(3)B%(3): HI GM 0B9(3)B2(1)B9(3)B2(1)'0B9(3)B2(2)B9(3)B2(2)D0B9(3)B2(3)B9(3)B2(3)p0 HI GM+HCP SET B8() TO THE 3 GMS+HCP0(929)0ī4020: AUTO-HCP0J113:B8(J1)B2(J1)A(I64)::4030: MANUAL-HCP1J113:B8(J1)B2(J1)A(I74):: AUTO-IF W=1, I7=I6)ī5280: SERS 8>FA(I66)T(6)ī5280: SERS+HCPX>PA(I68)T(8)ī5280: WONy>ZA(I69)T(9)ī5280: LOSS>dH3%0:H2112:A(I6H2)T(H2)H3%1>n>xH3%0ī8670: MENU NO DATA CHANGED? HERE ONLY EDITED WEEK NEEDS TO BE SAVED3730:I4112:T(I4)A(I6I4)::2520: KEYINX= HERE I6, I7 SET FOR EDIT WK + 1=WW1:3730: RESET I6,I7 SO I6=EDIT WK INDEX= = DO RECALC==( SEE IF RECALC NECESSARY=2A(I64)T(4)ī5280: HCP DO RECAL><A(I65)T(50:4910: BAD NUMBER TRY AGAIN9<4940: GOOD NUMBERk<:12:4:"The maximum week number is ";B%(1)<15:4:"Press RETURN to continue...";:L$:<(B5$(0))1ĺ(7):4910< NOW DO EDIT OF SELECT WK<W(B5$(0)):W1V7:5100<V82=1;B14:6:"The maximum week number is ";B%(1)U;L11:18:" ";:18:B5$(0);:L$a;VL(L$)q;`L13ī5060;jL27ī8670: MENU;tL48L57ī4940;~ GOOD NUMBER;(B5$(0))2ĺ(7):4940;B5$(0)B5$(0)L$!<(B5$(0))B%(1)ĺ(7):504::"o ";:L$4:L$"Y"L$"y"İ8940: DISPLAYZ:L$"N"L$"n"ī4910: ASK FOR WK:34,2::8:5:"Review the data again?":4830:4830:: ASK FOR EDIT WK:$:.:390:B5$(0)"";8:8:2:"Enter the number of the week to EDIT"Has no data.":::5:"Press RETURN to continue...";:L$:8670: MENU9I3%0:9590:610: FILL A(),CLOSE, I3% COUNTS TGAMES9:8:4:"Do you wish to review the data for"910:4:"Team ";:N$;:"?";:13:14::"Y";::"es or ";::"N";f::390: TITLE,8p8030: SCAN TNAMESF8z420: PRT OBTAIN DAT]8KEY1:R1%K%3733w8T1%K%WB%(1):48108T1%K%8260:300:980:1110: OPEN,READ,FILL HI DATA8WB%(1): SET MAX WKK9W0İ610::9:5:"Team ";K%;" ";N$::5:"";N$::5:"Has no data.":::5:"Press RETURN to continue...";:L$:8670: MENU7 I3%0:KEY1:9590:KEY0:610: FILL A(),CLOSE, I3% COUNTS TGAMES7*PS0ī5560: PRINTER748940: DISPLAY7>8670: MENU7H7R EDIT ANY WK7\8ITLE68030: SCAN TNAMEK6T1%K%WB%(1):4650: TDATA IN MEMc6420: PRT OBT DATAn6T1%K%6R1%K%37336260:EI%1:300:EI%0:980:1110: OPEN,READ,FILL HI DATA6 WB%(1): SET MAX WKX7W0İ610::9:5:"Team ";K%;" J313*5(B5$(J3))0B5$(J3)"ABS"05T5(961)0B5$(4)"-":B5$(8)"-"5V:1:W;:H114:3520::H17:3520:H18:3520:H15:3520:H16:3520:55 DISPLAY OR PRINT A TEAMS DATA55:PS0İ410:4560: TITLE6:400: T)W:B9(2)A(I613): WK & TGAMES74&R1%K%3733A401520T4:610: CLOSEp4D: TO ENTRY CONTROLLERv4N4X DISPLAY LINE OF DATA4b 4lJ314:B5$(J3)(A(I6J3))::H35:H28:3790:H36:H29:3790:B5$(7)(A(I65)):B5$(8)(A(I66)) 5v1):3 SAVE DATA TO DISK&3 93R1%K%3733WU3FK$"TEAM DATA":FJ$FK$[33KEY1IKKī4330: SKIP SAVE TIL EDIT WK331270: GO WRITE DATA RECORD3I: INDEX ALL WKS3GH%1ı3 3 WRITE HI DATA3&4B9(12"B%(6)B2(6)B9(6)B2(6):416032,B9(6)B%(6)@26 TPINSP2@B9(7)B2(7)`2J TPIN+HCPq2TB9(8)B2(12)2^ TWIN/TLOSS2hB9(9)B2(10):B9(10)B2(11)2r EXTRA/DELETED2|B9(11)0:B9(12)B(6)2 3I116:B%(I1)B9(I1):B(6I1)B9(6I1B9(4)B%(4): HI GM+HCP<1B9(4)B8(1)B9(4)B8(1)Y1B9(4)B8(2)B9(4)B8(2)v1B9(4)B8(3)B9(4)B8(3)1 HI SERS1W1B9(5)B2(5):41201B%(5)B2(5)B9(5)B2(5):41201B9(5)B%(5)1 HI SERS+HCP2W1B9(6)B2(6):4160#9?WWW:WW1: SAVE LOOP WILL BE WW TO J WHERE J=W-1i?GH%1:3840:GH%0:8670: SAVE THEN MENU?:34,2::12:8:"Updating weekly data..."?J3W1:WJ3B%(1): RECALC LOOP?3730: I6,I7?A(I65)A(I61)A(I62)A(I63): SERS%@H3%0:H213:A(I6H2)0H3%H3%1+@K@(929)0ī5340: AUTO-HCP@A(I66)(A(I65)(H3%A(I64))):5360: MANUAL-HCP SERS+HCP@A(I66)(A(I65)(H3%A(I74))): AUTO-SERS+HCP@ CALC TPINS, TGAMESAW1A(I67)A(I65):A(I613)H3%:$,(X$)1):N N .N SCAN PROMPTS4N kN!:14:1:"Press RETURN to select displayed name."N !16:1:"Use ARROW <-- --> or number keys to":"scan names."N!19:1:"Press ESC for MENU."N !N*!N4! ENTRY TO BOWL.TEAMN>!OH!:$):83903M L$"D"L$"d"L127L8İ8412:8340LM L$"0"L$"9"ī8340eM (X$)2ĺ(7):8340{M X$X$L$:K%(X$)M 8340M K%2K%0:8240:M K%TT%K%TT%1:8240:M K%K%1:8240:M (X$)0ĺ(7):M (X$)1X$"":N X$(X%K%1:K%1K%TT%1LX (TN$(K%),1)"@"ī82707Lb SLl NUMERIC ENTRY HANDLERLv I51417:I5:1:SP$::16:"When entry complete, press RETURN."L 9:11:SP$:X$L$: FIRST NUMBERL L 6:7:" ":6:7:X$;:L$:L(L$) M L13L27K%(X(8)İ8270:81901KL$"1"L$"9"ĺ(7):8100SK8310:8450: NUMERIC DATAtK9:11:SP$: 22 SPACESK 9:11:TN$(K%)K 8100K END OF SUBK& TEST FOR DELETED TNAMESK0 K%K%1:K%TT%K%1K: (TN$(K%),1)"@"8240KD LN KJ|: GO EXECUTEJ UJAU1Ģ4:1:"Select team to automatic index from"iJ9:11:TN$(K%)sJL$""J6:2:"Team ";:" ";:7:K%;JL$JL$(27)ġ:8670: MENUJL$(13)ı: GO DELETEJL$(21)İ8240:8190KL$%(H1)ĺB5%(H1));:B5$(H1);:UIB5%(H1));:(SP$,B4%(H1)(B5$(H1)))B5$(H1);:dI? #8000lI@ IJ SUBROUTINE TO SELECT TNAMEITI^K%0:8240:FK$"TEAM DATA":FJ$FK$Ih8450: DISPLAY PROMPTSJr8080:N$TN$(K%): SELECTED TNAMEB%(4)):H114:9);"HIGH HCP GAME = ";:5830:B5$(15)(B%(6)):H115:15);"HIGH HCP SERIES = ";:5830lH{HD$;"PR#0"H10050:8670: RESTORE SCREEN INDEXES THEN MENUHPS0:10050: RECOVER SCREEN PRINT INDEXH8670: MENUI(B5$(H1))B4(6)" ":B5$(12)" "0GX1:W10ĺ" ";W;:57408GbW;MGlH1113:5830:fGv111,AA:112,BB::WG::B5$(14)(B%(3)):H114:9);" HIGH GAME = ";:5830:B5$(15)(B%(5)):H115:15);" HIGH SERIES = ";:5830G(961)0ī5780fH:B5$(14)(";::FW1B%(1):37305F&AA(111):BB(112)F0I416:B5$(I4)(A(I6I4))::I4811:B5$(I41)(A(I6I4))::B5$(11)(A(I67)):B5$(12)(A(I612)):B5$(13)(A(I613))F:I413FD(B5$(I4))0B5$(I4)"ABS"FNGS(961)0B5$(4)" ":B5$46E24:"WEEK";:31:"HCP";:34);:"TOTAL":"WK GM1 GM2 GM3 HCP SERIES SERIES WON LOST TWIN TLOST TPIN PIN+HCP TGMS"E 5650E24:"WEEK":"WK GM1 GM2 GM3 SERIES WON LOST TWIN TLOST TPIN TGMS"FJ3179:"= PRINTERD;D:12:7:"Make sure printer is ready"cD14:7:"Then press RETURN...";:L$DL(L$):L27ī5810: EXITDL13ī5560D10180: SET INDEXSDD$;"PR#";PSD::N$;:" SCORES"::DJ3179:"=";::E(961)0ī56:5490: TWIN,TLOSSQChA(I610)A(I710)A(I68):A(I611)A(I711)A(I69)XCrW~C|WJ31:KKW: RECOVER EDIT WEEKCWW1:WB%(1)1: SET WW AND W FOR SAVE LOOP ON EDITCI436:B%(I4)0::3840:8670: SAVE THEN MENUC D PRINT TOTPINS/GAMES4B,HC%(MGVT%)(MC100):HC%0HC%0XB6HC%HM%HC%HM%: MAX SETvB@A(I64)HC%: SET HCPBJW1A(I612)A(I66):5470: WK1 TPINS + HCPBTA(I612)A(I712)A(I66): TPINS + HCPC^W1A(I610)A(I68):A(I611)A(I69)5390: TPINS, TGAMESiAA(I67)A(I77)A(I65):A(I613)A(I713)H3%: TPINS, TGAMESA AUTO HCP CALCA(961)0HC%0:5440AMH%1ī5450: SKIP AUTO HCPAA(I613)0HC%0:5440 B"VT%A(I67)A(I613): :370: TITLEOR!,O\! LOAD TEAM NAMESBOf!660: GET TNAMESTOp!8670: MENUZOz!nO! RUN MAIN MENUtO!O!HD%1ī8620O!BP$"/PROGRAM1/":FK$BP$:FJ$FK$O!8640O!D$;"RUN";BP$;"MENU.DM"O!:12:11:"Loading Program...":O! P!.P!:34,2::370:KEY0: ENTRY TO MENUAP!5:18:"MENU"dP!8:12::"1";::" Main Menu"P!12::"2";::" Enter Weekly Data"P"12::"3";::" Edit Team Data"P"12::"4";::" Display Team Data"P"12::"5";::" Print Team Data",Q","GM2","GM3","HCP","WON","LOSS": B$()0^'7^' W^' PRINT TO PRINTER INDEXES^^' d^'^'I128:I%:: THROW AWAY^'I16:L$:: THROW AWAY^'I115:B4%(I)::I115:B5%(I):_' 4,4,4,3,4,4,4,4,5,5,6,6,3,4,4: MAX]`'I16:B$(I):B]j' 8,13,18,22,36,40: CUR HTAB B2%()}]t' 5,10,15,19,33,37: DATA ENTRY HEADING HTAB B3%()]~' 4,4,4,3,3,3,4,4: MAX LEN OF INPUT DATA B4%()]' 4,9,14,19,33,37,23,28: DATA PRINT HTAB B5%()*^' "GM1: COUNT GMS BOWLEDV\%A(I613)I3%:A(I6)I3:I3:: GMS BOWLED TO WKh\' #10000q\' \' ERROR.TRAPS\$'\.' PRINT TO SCREEN INDEXES\8'\B'\L'I16:B2%(I)::I16:B3%(I):]V'I18:B4%(I)::I18:B5%(I):ARRAY%[l% I3% COUNTS GMS BOWLED=[v%I31W:I6I31514d[%R1%K%3733I3: INDEXING ON I3[%300:980:1770: GET RECORD[%I416:A(I6I4)B1%(I4):A(I66I4)B1(I4):[%KEY0ı: NOT EDITING[%I413[%A(I6I4)0I3%I3%1\%I4610:W1V7:9500"Z%WW1:V8BZ%2520:AU0ī9240: MANUALYZ&%9270: AUTO LOOPcZ0%8670Z:%300:980:1770:3730:9620:: GET LAST 2 WK DATA PUT IN A() 1ST SET I6,I7ZD% ZN% FILL A() ARRAYZX% [b% ENTER HERE TO FILL A() Y$R1%K%3733W9Y$9530: FILL A() FOR W AND W-1fY$WW%I3%0:9430: SET PREV. WK TGAMExY$9470: NEXTY$I413Y$A(I6I4)0I3%I3%1Y$I4:A(I713)B%(2)I3%:A(I713)0A(I713)0Y$A(I613)B%(2)Y$W:WJ3: RECOVER WZ%10: HI DATA-X^$B%(1)0WB%(1):9330IXh$W1:9480: DO 1ST WKaXr$W1ī9380: W > 1uX|$ HERE IF W = 1X$GF%2:R1%K%3733W:9530: FILL A() FOR W = 1X$A(I613)B%(2):9480: TGAMES IF W = 1X$ W > 1Y$W%W1:J3W:WW%J30İ8030:9290: MANUAL?W"$8030:K1%K%: AUTO INDEX STARTLW,$I5K1%1{W6$I5I51:I5TT%ī9520: AUTO LOOP TIL DONEW@$K%I5:(TN$(K%),1)"@"ī9510: NEXT I5WJ$N$TN$(K%):GF%1XT$:12:10:"Reading team data...":R1%K%3733:260:300:980:11or Menu...";:L$:9200: ANY KEYKV#(49152)160Ĺ49168,00:24:28:L$|V#L(L$):L27WB%(1):9200: RTN TO CALLERV# RETURN TO EDIT OR TO MAIN MENU DEPENDING ON CALLERV#W:: TO CALLERV#V$ DATA ENTRY CONTROLLERV$W$KEY0:AU940U# START DISPLAY1U#440: COLUMN HEADMU#22:1:I4139:"_";:~U#24:12::"SB";::" Pause/Resume ";:35,21U#I4(B5$(0)):V7U#WI4B%(1)U#I6W1514:4460U#VV1:V20V20:912: SCROLL#V#WB%(1)Ģ24:8:"Press RETURN fUMBER$TF#(B5$(0))2ĺ(7):89709TP#B5$(0)B5$(0)L${TZ#(B5$(0))B%(1)ĺ(7):9070:8940: BAD NUMBER TRY AGAINTd#8970Tn#:12:4:"The maximum week number is ";B%(1)Tx#15:4:"Press RETURN to continue...";:L$:U#(B5$(0))1ĺ(7):8TEAM DATAS" S"B5$(0)""QS":8:4:"Start the display at week number?"S#14:6:"The maximum week number is ";B%(1)S #11:18:" ";:18:B5$(0);:L$S#L(L$)S#L13ī9090S(#L27ġ:8670: MENUS2#L48L57ī8970T<# GOOD N you want AUTOMATIC or MANUAL team":R":"sequencing?"R"14:15::"A";::"utomatic":16:15::"M";::"anual":19:15:"Select A or M ";:L$R"L$"A"L$"a"AU1:R"L$"M"L$"m"AU0:R"L$(27)ġ:8670R"8840R" S" DISPLAY ."16:12:"Select a number...";:KY,0:L$8Q8"L(L$)GQB"L1ī8600QL"L2İ660:380:8840:T1%0:9240: NO DATA IN MEMQV"L3İ660:4710Q`"L4İ660:PS0:4540Qj"L5İ660:PS(925):4540: PS = PRINTER SLOTQ~"8750%R"::8:1:"Do LEN OF PRINTED DATA B4%()f_' 1,1,1,2,2,3,2,2,1,1,1,1,2,1,1: DATA PRINT HTAB B5%()l_(r_ (_( GET PREFIX_(_((D$;"PREFIX"_2(BP$_<(_Oò #50000_Pò FILE: ERROR.TRAP_Zò GET TNAME AND PNAME PATHS`dK768(768):J769:50040: TNAME PATHE`nK833(833):J834: PNAME PATHk`xíK0İ50090::8670: NO PATHSv`PX$""`ÁIJK`PX$PX$((I))`ÂI:`â12:2:"ProDOS PATHS not set for BOWLER and TEAM data."aâ14:5:"Press RETURN to go to Mai$(H1)B5$(H1)L$:240/ h DELETE CHARACTERL r(B5$(H1))0ĺ(7):240n |(B5$(H1))1B5$(H1)"":230 B5$(H1)(B5$(H1),(B5$(H1))1):230  DELETE TO LAST "/" X%(B5$(H1)) X%0ĺ(7): I4X%01 I40B5$(H1)"":480  L8ī370: LEFT ARROWI L127İ410:230: DELETE TO LAST "/"g "L13İ530:: TO CALLER ,L46L122ī240: < . AND > z 6L90L97ī240 @L57L65ī240 J GOOD ENTRY: a-z, A-Z, 0-9, . OR / T(B5$(H1))50ĺ(7):230 ^B5NS,&POKE OPTIONS AND PATHES` I4160:B%(I4)A%(I4):: SAVE EXISTING CONFIG AND OPTIONSt TE$TP$:PE$PP$~ 1130 ALPHA KEYIN B1%(H1):B2%(H1):SP$; B1%(H1):B2%(H1):B5$(H1); L$:L(L$) L27ġ:1130: MENUES. D$(4):GG%0:GF%0: FOR DISPLAY HCPW (956)1ī160: DEBUG SKIP PREFIXp 1480: GET PREFIX 1380: CHECK PREFIX AGAINST A%(58) FL$"CONFIGURATION":FK$BP$:10130:FL$"OPTIONS FILE":10250:10410:10780: GET CONFIG,OPTIO FILE: CONFIG.DM 8FI$"CONFIG.DM 1.0">#P( 2/04/89Y< F SET OPTIONS AND SYS CONFIGURATIONP Z:dA%(60),B%(60),C%(60)n60000 xSP$" ": 50 SPACB1(I4)0:B%(I4)0:B(I4)0:BfGF%0:3288::9310: FIRST WKOTECTED.":eF14:5:"Please remove WRITE PROTECT tab."beP17:5:"Then press RETURN...";:L$xeZL$(13)ī60240~eden:12:5:"There is a disk access problem."ex60140: RESUME OR MENUe NO DATAeGF%1ī60190fI416:B1%(I4)0:TART OVERd60150(dEI%0ī60198Xd EI%0:W0:B%(1)0:T1%0: PDATA HAS NO DATAkd"3288::4630d&:12:5:"The file ";FK$;" is Empty."d(15:5:"Press RETURN for Menu...";:L$d23288::8670: MENU e<:12:5:"The disk is WRITE PRhe ";FK$;" PATH cannot be found."Pc:2:"Place ";FJ$;" disk in a drive or"lc2:"set ";FJ$;" path."c15:2:"Press RETURN to continue"c17:2:"Or press ESC for MENU...";:L$cL$(13)Ħ d L$(27)Č3288:8670: POP STACK AND SD ERROR"bEL(219)256(218)Tb::EC(222):9:2:"Unanticipated Error..."b11:5:"FILE: ";FI$::5:"ERROR CODE: ";EC::5:"ERROR IN LINE: ";ELb::5:"Press RETURN to END, then reboot...";:L$b: TEXT : HOME : NEW #c:9:2:"Tn Menu...";:L$añ&a_ #60000Ca`D$;"CLOSE": ANY FILESvaj(222)6(222)7ī60110: PATH NOT FOUNDat(222)5(222)2ī60300: OUT OF DATAa~(222)4ī60220: WRITE PROTECTa(222)8ī60270: I/O ERROR b UNANTICIPATEL$(B5$(H1),I4,1)< I4(B5$(H1))L$"/"I4I41:480X L$"/"X%I4:I40:490a X%0i I4 X%0B5$(H1)"": B5$(H1)(B5$(H1),X%):  ADD "/"'s IF NECESSARY (B5$(H1),1)"/"B5$(H1)"/"B5$(H1)(B5$(H1),1)"/"B5$(H1)B5$(H1)"/":&(B5$(H1))50ĺ(7):B5$(H1)""::230\0B1%(H1):B2%(H1):B5$(H1);:i #10001:1:I140:"_";:::HT%(41(HT$))2:1000:1:HT%1:HT$:34,2::HT%(41(HT$))2:1040:22:HT%:HT$:34,2:HT$"OPTIONS &  #3000 - ENTER LEAGUE OPTIONS3 c 3200:9200: GET DEFAULTS DEBUG :HT$"LEAGUE OPTIONS":1010 V6:H1:N$"Mixed League":1060 VV2:H1:N$"Scratch or Handicap League":1060 1040: BOTTOM LINE 550E HANDLER 5 B1%(H1):B2%(H1):B5$(H1);:L$A L(L$)Y L27ġ:GF%0:1130t L32ī2560: TOGGLE L13ı: TO CALLER 2500 B5$(H1)HL$B5$(H1)HM$:2500 B5$(H1)HM$B5$(H1)HN$:2500 B5$(H1)HL$:2500 ( t :5:"HCP = (200 - 130) x 80% = 56"U~ 20:5:"Press RETURN to return...";:L$j L$(13)ī2430 GF%1GG%1:5030:5510:GG%0:H1H4:: BACK TO TEAM OPTIONS GG%1:6020:5510:GG%0:H1H4:: TO BOWLER OPTIONS  3 WAY TOGGL=G FX%1ĺ"AVE = Total Average: Example 630":2390lL "AVE = Total Average: Example 130"V :3:"EQUATION"` :5:"HCP = (SF - AVE) x PC"j :3:"Using The Above Values:"o FX%1ĺ:5:"HCP = (1000 - 630) x 80% = 296":2430(EQUATION # GF%0ĺ(7):K$ :H4H1:3:12:"HANDICAP EQUATION"g. 5:1:"HCP = Handicap"3 FX%1ĺ" SF = Scratch Figure: Example 1000":23708 " SF = Scratch Figure: Example 200"B " PC = Allowance (In %): Example 80" #22004B1%(H1):B2%(H1):B5$(H1);:L$@L(L$)XL27ġ:GF%0:1130qL32ī2260: TOGGLEL13ı: TO CALLER2200B5$(H1)HL$B5$(H1)HM$:2200B5$(H1)HL$:2200 SET TEAM OPTIONS  DISPLAY HCP 0: DELETE'*L48L57ĺ(7):2000K4(B5$(H1))B3%(H1)ĺ(7):2000b>B5$(H1)B5$(H1)L$lH2000R DELETE HANDLER\B5$(H1)""ıfB5$(H1)"":p B5$(H1) = LEFT$ (B5$(H1), LEN (B5$(H1)) - 1): RETURN z TOGGLE ENTRY HANDLER(H1))B3%(H1)ĢB1%(H1):B2%(H1):B5$(H1);:2020kB1%(H1):B2%(H1):(SP$,B3%(H1)(B5$(H1)))B5$(H1);FG%1ı: DISPLAY FLAGL$L(L$)L32İ2330:2000 L13ıL27ġ:GF%0:1130: MENU  L100L68L127L8İ2140:200ZdA%(58)1ī13952iBP$"/PROGRAM1/"ıHnA%(58)1:939,1:asBP$"/PROGRAM1/"ıuxA%(58)0:939,0{} GET PREFIX D$;"PREFIX"BP$: BOOT PATH NUMERIC ENTRY HANDLER #20001(B5$ PRINT OPTIONS8 A%(59)0FL$"OPTIONS FILE":1310OFL$"OPTIONS FILE"q9980:1130: SAVE OPTIONS(A%(59)0FL$"OPTIONS FILE":13402FL$"OPTIONS FILE"<10250:1130: RETRIEVE OPTIONSFP TEST IF A%(58) CORRECTLY SETions":1050:VV1:H10:N%8:N$" SAVE Options":1050kVV1:H10:N%9:N$" Configure System":1050V3:11:"Select a number...";:L$L(L$)L1L9ī1130L1070,3030,5020,6010,7010,1280,1320,1290,8010 12000:1130: ptions":1050@VV1:H10:N%3:N$" Set Team Options":1050sVV1:H10:N%4:N$" Set Bowler Options":1050VV1:H10:N%5:N$" Set Standing Sheet Options":1050VV1:H10:N%6:N$" PRINT Options":1050 VV1:H10:N%7:N$" RETRIEVE Optn Menu":FK$BP$S=D$;"RUN";BP$;"MENU.DM": SAVE CONFIG,THEN MAIN MENUyB:12:11:"Loading Program...":L V MENU` j1030::V4:V:18:"MENU"tVV3:H10:N%1:N$" Main Menu":1050~VV1:H10:N%2:N$" Set League OCONFIGURATION":1010:522:1:I140:"_";::NV:H::N%;::N$:^$V:H:N$:.1380:A%(58)1FL$"CONFIGURATION":FK$BP$:10803BP$"/PROGRAM1/":FL$"CONFIGURATION":FK$BP$89740:FL$"OPTIONS FILE":9930:1090:10410:FL$"Mai0: PROMPT< 3270: DISPLAY EXISTING OPTIONSn HL$"Yes":HM$" No":H11:2200: TOGGLE& HL$"Scratch":HM$" HCP":H12:22000 3270: 5570:24:3:"ACCEPT these settings? ";::"Y";::"es or ";::"N";::"o ";:L$2D L$"Y"L$"y"İ8570:1130: SAVE THEN MENUaN L$"N"L$"n"ī3030: TRY AGAINkX 3130wb l SET LEAGUE OPTIONS INDEXESv  I50:I4682:I5I51:B1%(I5)I4: B2%(1)37:B2%(2)33 B3%(1)3:B3%(2)7 TED",6580,H16:2000;,B5$(H1)""B5$(H1)"0"],(B5$(H1))254B5$(H1)"254"g,6580v,H17:2000,B5$(H1)""B5$(H1)"0",(B5$(H1))100B5$(H1)"100",6580,5500: PROMPT-HL$" No":HM$"Yes":H18:2200: TOGGLE 0+LH13:2000.+VB5$(H1)""B5$(H1)"0"P+[(B5$(H1))254B5$(H1)"254"Z+`6580i+jH14:2000+tB5$(H1)""B5$(H1)"0"+y(B5$(H1))100B5$(H1)"100"+~6580+H15:5510:2000: MAX HCP,(B5$(H1))254B5$(H1)""B5$(H1)"UNLIMI SCRATCH LEAGUEE*HL$"MANUAL":HM$" AUTO":H11:2200: TOGGLEx*B5$(1)"MANUAL"āI427:B5$(I4)"N/A"::6360*$B5$(2)"N/A"āI427:B5$(I4)"0"::6580*.H12:5510:2000: MAX HCP*8(B5$(H1))254B5$(H1)""B5$(H1)"UNLIMITED"+B658llowance (%)":1060K)VV2:H1:N$"Include Substitutes In Sorts":1060y)VV2:H1:N$"Sort Standings By...":1060)1040: BOTTOM LINE)6580: DISPLAY EXISTING OPTIONS)GG%1ı: TO HCP DISPLAY)5500: PROMPT* A%(47)0ī6370:ndicap":1060D(VV2:H1:N$"Men Handicap Scratch Figure":1060x(VV2:H1:N$"Men Handicap Allowance (%)":1060(VV2:H1:N$"Women Maximum Handicap":1060(VV2:H1:N$"Women Handicap Scratch Figure":1060)VV2:H1:N$"Women Handicap A ' ' ASK FOR DISK%'>' SET BOWLER OPTIONSK'o #6000R'p 'zFX%0:6490:9290:GF%2: GET DEFAULTS DEBUG':HT$"BOWLER OPTIONS":1010'V4:H1:N$"Automatic or Manual Handicap":1060(VV2:H1:N$"Men Maximum HaN";::" to accept";:X&5570:23:6:"Enter 1-9";7);::"RTN";::" to accept";:&5570:23:6:"Enter 1-7";7);::"RTN";::" to accept";:&5570:23:6:"Enter PATH";7);::"RTN";::" to accept";:'34,22::34,2:: CLEAR PROMPT AREA, PROMPT LINES%{ #5500i%|5570:23:6::"SB";::" to toggle";5);::"RTN";::" to accept":%5570:23:16:"Enter 0-9":24:2::"SB";%:" to see hcp equation";3);::"RTN";::" to accept";:&5570:23:6:"Enter 0-9";7);::"RTOPTIONS INDEXES$@$I50:I46142:I5I51:B1%(I5)I4:v$B2%(1)34:B2%(2)31:B2%(3)36:B2%(4)36:B2%(5)36$B3%(1)6:B3%(2)9:B3%(3)4:B3%(4)4:B3%(5)4$$ $ DISPLAY TEAM OPTIONS$ $FG%1:H115:2000::FG%0:$"%eek":HM$"Year":2200: TOGGLE*#5400#5570:24:3:"ACCEPT these settings? ";::"Y";::"es or ";::"N";::"o ";:L$#L$"Y"L$"y"GF%0:8450:1130: PUT IN A%()#L$"N"L$"n"ī5020: TRY AGAIN#5260# $ SET TEAM 00#"(H12:5510:2000: MAX HCPV"2(B5$(H1))999B5$(H1)""B5$(H1)"UNLIMITED"`"<5400o"FH13:2000"PB5$(H1)""B5$(H1)"0""U5400"ZH14:2000"dB5$(H1)""B5$(H1)"0""i(B5$(H1))100B5$(H1)"100""n5400 #x5500:H15:HL$"WISPLAY EXISTING OPTIONS7!GG%1ı: TO HCP DISPLAYK!5500: PROMPTp!A%(47)0ī5240: SCRATCH LEAGUE! HL$"MANUAL":HM$" AUTO":H11:2200: TOGGLE!B5$(1)"MANUAL"āI424:B5$(I4)"N/A"::5230"B5$(2)"N/A"āI424:B5$(I4)"0"::54tomatic or Manual Handicap":1060M VV2:H1:N$"Maximum Handicap":1060~ VV2:H1:N$"Handicap Scratch Figure":1060 VV2:H1:N$"Handicap Allowance (%)":1060 VV2:H1:N$"Sort Standings By...":1060 1040: BOTTOM LINE!5400: D 3 DISPLAY LEAGUE OPTIONS> ` FG%1:H112:2000::FG%0:k x #5000 HERE GET TEAM OPTIONS FX%1:5330:9090:GF%1: GET DEFAULTS DEBUG:HT$"TEAM OPTIONS":1010# V6:H1:N$"Au-6580;-H19:HL$"Week":HM$"Year":2200: TOGGLEE- 6580-5570:24:3:"ACCEPT these settings? ";::"Y";::"es or ";::"N";::"o ";:L$-L$"Y"L$"y"GF%0:8660:1130: PUT IN A%()-(L$"N"L$"n"ī6010: TRY AGAIN.26420.< 9.F SET BOWLER OPTIONS INDEXESC.P l.ZI50:I44202:I5I51:B1%(I5)I4:.dB2%(1)34:B2%(2)31:B2%(3)36:B2%(4)36.nB2%(5)31:B2%(6)36:B2%(7)36:B2%(8)37:B2%(9)36.xB3%(1)6:B3%(2)9:B3%(3)4:B3%(4)4'/B3%(5)I4)::< << CONVERT TEAM OPTIONS TO B5%() VALUESB< f<!B5$(1)"MANUAL"B5%(1)1:8470{< !B5%(1)0: AUTO<!B5$(2)"UNLIMITED"B5%(2)20000:8490< !B5%(2)(B5$(2))<*!I434:B5%(I4)(B5$(I4)):<4!B5$(5)"Week"B5%(5)1:8520 =>4)37:B2%(5)2:B2%(6)2U; B3%(1)1:B3%(2)3:B3%(3)3:B3%(4)3:B3%(5)50:B3%(6)50[; a; ; ASSIGN DATA TO A%() ARRAY; ; H10:I4JK:H1H11:A%(I4)B5%(H1)::; ; EXTRACT DATA FROM A%(); < H10:I4JK:H1H11:B5%(H1)A%( TRY AGAIN:0 8210#:: C:D FG%1:H114:2000::FG%0o:N H156:B1%(H1):B2%(H1):B5$(H1);:::X SET CONFIGURATION INDEXES:b :l B1%(1)4:B1%(2)6:B1%(3)8:B1%(4)10:B1%(5)14:B1%(6)19;v B2%(1)39:B2%(2)37:B2%(3)37:B2%(E/9H14:HL$"170":HM$"200":2200: TOGGLEC95560:H15:230W9 5560:H16:2309 5570:24:3:"ACCEPT these settings? ";::"Y";::"es or ";::"N";::"o ";:L$9 L$"Y"L$"y"İ8990:1130: SAVE THEN MENU:& L$"N"L$"n"ī8010: ata":1060*8VV2:V:1:"(":12:")"C81040: BOTTOM LINEM88260p8H11:5550:2000: PRINT SLOT8(B5$(1))1(B5$(1))7ĺ(7):B5$(1)"1":813085500: PROMPT8HL$" No":HM$"Yes":H12:2200: TOGGLE9H13:2200: TOGGL1060)7hVV2:H1:N$"Hard Disk":1060c7rVV2:H1:N$"Save OPTIONS To Bowler Data Path":10607|VV2:H1:N$"Maximum Bowlers (170/200)":10607VV2:H1:N$"PATH To Team Data":10607VV2:V:1:"(":12:")" 8VV3:H1:N$"PATH To Bowler D DISPLAY STANDING SHEET OPTIONS+6. M68FG%1:H118:2000::FG%0:V6B ]6L |6V CONFIGURATION OF SYSTEM6? #80006@6J8300:9630: GET DEFAULTS DEBUG6T:HT$"CONFIGURE SYSTEM":10107^V4:H1:N$"Printer Slot Number":NS INDEXES5 @5I50:I44182:I5I51:B1%(I5)I4:b5B2%(1)32:B2%(2)37:B2%(3)375B2%(4)37:B2%(5)39:B2%(6)39:B2%(7)33:B2%(8)335B3%(1)8:B3%(2)3:B3%(3)35B3%(4)3:B3%(5)1:B3%(6)1:B3%(7)7:B3%(8)755 "6$ 47480a45570:24:3:"ACCEPT these settings? ";::"Y";::"es or ";::"N";::"o ";:L$4L$"Y"L$"y"İ8820:1130: SAVE THEN MENU4L$"N"L$"n"ī7010: TRY AGAIN473204 5 SET STANDING SHEET OPTIOf7480#3p5500: PROMPTH3uA%(47)0B5$(7)"Scratch":72953zHL$"Scratch":HM$" HCP":HN$" Both":H17:2500: 3 TOGGLE3A%(47)0B5$(8)"Scratch":7310: SCRATCH LEAGUE4HL$" HCP":HM$"Scratch":H18:2200: TOGGLE S02HL$"STANDARD":HM$" LEGAL":H11:2200:27480]2HL$"Yes":HM$" No":H12:2200g27480v2 H13:2200274802 H14:22002*748024H15:5540:20002>B5$(H1)""B5$(H1)"1"2H74802RH16:20002\B5$(H1)""B5$(H1)"1" 3:1060<1VV2:H1:N$"Week To Start Bowler Sorts":1060t1VV2:H1:N$"In Standings Print Scratch/HCP":10601VV2:H1:N$"Sort On Handicap Or Scratch":106011040: BOTTOM LINE15500: PROMPT27480: DISPLAY EXISTING OPTIONING SHEET OPTIONS":1010>0vV4:H1:N$"Paper Length":1060k0VV2:H1:N$"Stop At End Of Page":10600VV2:H1:N$"Space Between Sections":10600VV2:H1:N$"Blank Line Between Teams In Recap":10601VV2:H1:N$"Week To Start Team Sorts"9:B3%(6)4:B3%(7)4:B3%(8)3:B3%(9)4-/5/ U/ DISPLAY BOWLER OPTIONS]/ /FG%1:H119:2000::FG%0:/ / / SET STANDING SHEET OPTIONS/W #7000/X /b7390:9460: GET DEFAULTS DEBUG0l:HT$"STAND!B5%(5)0=H!J1:K5:8370#=R!)=\!V=f! CONVERT LEAGUE OPTIONS TO B5%() VALUES\=p!}=z!B5$(1)"Yes"B5%(1)0:8590=!B5%(1)1: NOT MIXED=!B5$(2)"Scratch"B5%(2)0:A%(37)0:8610=!B5%(2)1: HCP LEAGUE=!J46:K47:8370=!>! 2>! CONVERT BOWLER OPTIONS TO B5%() VALUES9>! ]>!B5$(1)"MANUAL"B5%(1)1:8680r>!B5%(1)0: AUTO>!B5$(2)"UNLIMITED"B5%(2)255:8700>!B5%(2)(B5$(2))>!I434:B5%(I4)(B5$(I4)):>"B5$(5)"UNLIMITED"B5%(5)255:8730?"B5%RITE OPTIONS.SYS FILEL& 4L&A%(59)0FK$BP$TL&A%(59)1FK$"BOWLER DATA"fL&H10:I4156L&B%(I4)A%(I4)H11L&L&A%(59)B%(59)H11L&H10ı: NO CHANGEL&:12:11:"Saving Options..."L'A%(59)1ī10030M'D$;"OPEN";BP$K*&TE$TP$H11)K4&PE$PP$H11AK>&H10ı: NO CHANGEiKH&:12:8:"Saving Configuration..."KR&D$;"OPEN";BP$;"CONFIG.SYS"K\&D$;"WRITE";BP$;"CONFIG.SYS"Kf&I45760Kp&A%(I4)Kz&K&TP$K&PP$K&D$;"CLOSE"K&K& L& W5$(2)"Yes":9670$J%B5$(2)" No"EJ%B5%(3)1B5$(3)"Yes":9690VJ%B5$(3)" No"kJ%B5$(4)(B5%(4))J%B5$(5)TP$:B5$(6)PP$:J%J% WRITE CONFIG.SYS FILEJ& J &FL$"CONFIGURATION":FK$BP$J&H10:I45760J&B%(I4)A%(I4)H11K &%(7)1B5$(7)"Scratch":95754Ib%B5$(7)" HCP"UIg%A%(47)0B5$(8)"Scratch":vIl%B5%(8)0B5$(8)"Scratch":Iv%B5$(8)" HCP":I% I% SET CONFIGURATION IN B5$() FROM B5%()I% I%J57:K60:8410I%B5$(1)(B5%(1))J%B5%(2)1B(2)1B5$(2)"Yes":9510+H%B5$(2)" No"LH&%B5%(3)1B5$(3)"Yes":9530]H0%B5$(3)" No"~H:%B5%(4)1B5$(4)"Yes":9550HD%B5$(4)" No"HN%I456:B5$(I4)(B5%(I4)):HS%A%(47)0B5$(7)"Scratch":9575HX%B5%(7)0B5$(7)" Both":9575I]%B5B5%(8)1B5$(8)"Yes":9400/G$B5$(8)" No"QG$B5%(9)1B5$(9)"Week":9420cG$B5$(9)"Year"iG$oG$G$ SET STAND SHEET OPTIONS IN B5$() FROM B5%()G$ G$J31:K38:8410G$B5%(1)0B5$(1)"STANDARD":9490G%B5$(1)" LEGAL"H%B5%9380?F^$B5$(1)" AUTO":B5$(2)"N/A"āI427:B5$(I4)"0":hFh$B5%(2)254B5$(2)"UNLIMITED":9340}Fr$B5$(2)(B5%(2))F|$I434:B5$(I4)(B5%(I4)):F$B5%(5)254B5$(5)"UNLIMITED":9370F$B5$(5)(B5%(5))F$I467:B5$(I4)(B5%(I4)):G$&E$B5%(2)0B5$(2)"Scratch":9250;E$B5$(2)" HCP"AE"$GE,$uE6$ SET BOWLER OPTIONS IN B5$() FROM B5%(){E@$EJ$J16:K24:8410EO$A%(47)0B5$(1)" N/A":I427:B5$(I4)"N/A"::9380FT$B5%(1)1B5$(1)"MANUAL":I427:B5$(I4)"N/A"::(2)"UNLIMITED":9140,D#B5$(2)(B5%(2))MD#I434:B5$(I4)(B5%(I4)):oD#B5%(5)1B5$(5)"Week":9170D#B5$(5)"Year"D#D#D# SET LEAGUE OPTIONS IN B5$() FROM B5%()D#J46:K47:8410D#B5%(1)1B5$(1)" No":9230E$B5$(1)"Yes"$() FROM B5%() VALUESCx# ?C#J1:K5:8410: FILL B5%(){C#A%(47)0B5$(1)" N/A":I424:B5$(I4)"N/A"::9150C#B5%(1)1B5$(1)"MANUAL":I424:B5$(I4)"N/A"::9150C#B5$(1)" AUTO":B5$(2)"N/A"āI424:B$(I4)"0":D#B5%(2)999B5$es"B5%(2)1:90201B2#B5%(2)0: NO HARD DISKrB<#B5$(3)"Yes"B5%(3)1:9040: OPTION FILE TO BOWLER PATHBF#B5%(3)0: OPTION FILE TO PROGRAM DISKBP#B5%(4)(B5$(4))BZ#TP$B5$(5):PP$B5$(6):J57:K60:8370:10780:Bd# Cn# SET TEAM B5A"B5$(7)" Both"B5%(7)0:8930>A"B5%(7)2: PRINT HCP[A"A%(47)0B5%(8)0:8950A"B5$(8)"Scratch"B5%(8)0:8950A"B5%(8)1A"J31:K38:8370:A# A # CONVERT CONFIGURE DATA TO A%() VALUESA# A#B5%(1)(B5$(1))B(#B5$(2)"Y8840@~"B5%(1)14@"B5$(2)"Yes"B5%(2)1:8860A@"B5%(2)0b@"B5$(3)"Yes"B5%(3)1:8880o@"B5%(3)0@"B5$(4)"Yes"B5%(4)1:8900@"B5%(4)0@"I456:B5%(I4)(B5$(I4)):@"A%(47)0B5%(7)1:8925A"B5$(7)"Scratch"B5%(7)1:8930%(5)(B5$(5))0?"I467:B5%(I4)(B5$(I4)):Q?$"B5$(8)"Yes"B5%(8)1:8760^?."B5%(8)0?8"B5$(9)"Week"B5%(9)1:8780?B"B5%(9)0?L"J16:K24:8370:?V"?`" CONVERT STAND SHEET OPTIONS TO A%() VALUES?j"@t"B5$(1)"STANDARD"B5%(1)0:;"OPTIONS.SYS"2M'D$;"WRITE";BP$;"OPTIONS.SYS"=M$'10050^M.'D$;"OPEN";PP$;"OPTIONS.SYS"M8'D$;"WRITE";PP$;"OPTIONS.SYS"MB'I4156ML'A%(I4)MV'M`'D$;"CLOSE"Me'I4156:B%(I4)A%(I4):Mj'Mt' M~' READ CONFIG.SYS FILEM' N'D$;"OPEN";BP$;"CONFIG.SYS"0H14:"Blank Line Between Teams In Recap";:12510\H0H15:"Week To Start Team Sorts";:12510]R0H16:"Week To St"Women Maximum Handicap";:12510U[/H16:"Women Handicap Scratch Figure";:12510[/H17:"Women Handicap Allowance (%)";:12510[/H18:"Include Substitutes In Sorts";:12510[0H19:"Sort Standings By...";:12510\ 0::"STANDING SHEET OPTIONS"s By...";:12510.Z/::"BOWLER OPTIONS":?Z/9290:12630pZ/H11:"Automatic or Manual Handicap";:12510Z/H12:"Men Maximum Handicap";:12510Z/H13:"Men Handicap Scratch Figure";:12510Z/H14:"Men Handicap Allowance (%)";:12510#[/H15:League";:12510+YX/::"TEAM OPTIONS":+TP$"/TEAM/":PP$"/BOWLER/"aWH+gWR+{W\+ PRINT OPTIONSW. #12000W.PS(925): PRINT SLTW.:12:4:"Make sure that printer is ready."W.17:4:"Then press RETURN...";:L$ X.4V+C%(16)0:C%(17)100:C%(18)200:C%(19)80: MENrV +C%(20)150:C%(21)200:C%(22)80:C%(23)0: WOMEN, NO SUBSV+C%(31)0:C%(32)0:C%(33)1:C%(34)1: STND SHEETV +C%(35)1:C%(36)1:C%(37)1:C%(38)0W*+C%(57)1:C%(58)0:C%(59)0: CONFIG DEFAULTX%U&*I4769768X%T) CONFIGURATION POKES^T)925,A%(57): PRINTER SLOT}T)939,A%(58): HARD DISKT)954,A%(59): OPTIONS TO BOWLER DISK?T)958,A%(60): # OF BOWLERST)T*T* POKE PATHSU*H10:X%(TP$):768,(S)934,A%(32): STOP END OF PAGE?US)923,A%(33): SPACE BETWEEN SECTIONS?S)940,A%(34): BLANK BETWEEN TEAM LINES?S)942,A%(35): WK TO START TEAM SORTS)941,A%(36): WK TO START BOWLER SORTS)924,A%(37): SKIP HCP PRINT#T)953,G'R6)927,A%(19): MEN HCP ALLOWANCEGR@)944,A%(20): WOMEN MAX HCPgRJ)945,A%(21): WOMEN SCRATCHRT)946,A%(22): WOMEN ALLOWANCER^)952,A%(23): INCLUDE SUBS?Rh)960,A%(24): STND BY WK/YRRr) STAND SHEET POKESS|)933,A%(31): PAPER LENGTHALLOWANCE,Q(959,A%(5): STND BY WK/YR?Q( LEAGUE POKES_Q(932,A%(46): MIXED LEAGUEQ)961,A%(47): SCRATCH/HCP LEAGUEQ) BOWLER POKESQ)928,A%(16): BOWLER AUTO/MANUALQ")955,A%(17): MEN MAX HCPR,)926,A%(18): MEN HCP SCRATCH FI(929,A%(1): TEAM AUTO/MANUAL HCPXP(X%A%(2)256:950,X%: HI BYTE OF TEAM MAX HCPP(X%A%(2)(X%256):947,X%: LOW BYTEP(X%A%(3)256:951,X%: HI BYTE OF TEAM SCRATCH FIGP(X%A%(3)(X%256):948,X%: LOW BYTE Q(949,A%(4): TEAM HCP ;"OPTIONS.SYS"1O(D$;"READ";BP$;"OPTIONS.SYS"b::10:11:"Please insert your"Sb:12:14::DK$:tb:14:11:"disk in any drive"b:17:11:"Then press RETURN...";:L$b:L$(13)ī15030b: ON ERRORbOò #50000bPò FILE: ERROR.TRAPcZò GET TNAME AND PNAMEa1B2%(4)4:B2%(5)15:B2%(6)13:B2%(7)3:B2%(8)6Ra1B3%(1)8:B3%(2)3:B3%(3)3a1B3%(4)3:B3%(5)1:B3%(6)1:B3%(7)7:B3%(8)7:a1 CONFIG INDEXESa1B2%(1)20:B2%(2)28:B2%(3)5:B2%(4)12a1B3%(1)1:B3%(2)3:B3%(3)3:B3%(4)3:a1 b1 ASK FR INDEXES5`V1B2%(1)6:B2%(2)11:B2%(3)9:B2%(4)10g``1B2%(5)9:B2%(6)7:B2%(7)8:B2%(8)9:B2%(9)16`j1B3%(1)6:B3%(2)9:B3%(3)4:B3%(4)4`t1B3%(5)9:B3%(6)4:B3%(7)4:B3%(8)3:B3%(9)4:`~1 STAND SHEET INDEXESa1B2%(1)20:B2%(2)18:B2%(3)153)))B5$(H1):_0/_0 PRINT SPACE INDEXES5_1J_1 LEAGUE INDEXESa_1B2%(1)25:B2%(2)7y_$1B3%(1)3:B3%(2)7:_.1 TEAM INDEXES_81B2%(1)6:B2%(2)15:B2%(3)13:B2%(4)14:B2%(5)16_B1B3%(1)6:B3%(2)9:B3%(3)4:B3%(4)4:B3%(5)4: `L1 BOWLEL !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( +HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&  VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8 ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\ h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 . %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 <>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` 1 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥GȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K08`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ݰJK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mJHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0lhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпlllhh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE@LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍OꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  IhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i ؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHƱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvHNNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@NȐ% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8حm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$ FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJ>K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`HхhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' 0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ``LKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LR@   !"#$Ԡ͠(C)1983-87APPLELG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<pnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠ JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL`M etItJt9t,C IM"ݓt R 8IIt8t D`HJ h`̓:<;=Γ̒:<` =;̓ΓL:<`j?il>i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼SL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_` 64 62 .507 46742 865 54 6 CLAMDIGGERS 64 62 .507 46038 852 54 7 BLACKHAWK 59 67 .468 45062 834 54 8 Elfs 57 69 .452