0 REM COPYRIGHT 1993 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED 5 CLR:GOSUB50:FORX=ATO700:READY:POKEX,Y:NEXT:POKE53280,.:POKE53281,. 10 DV=8:REM DEV # IS 8 15 PRINT"[147]"SPC(14)"[159]BOWLING MENU":PRINT"1[156] CHG NAMES"RT$"2[156] CHG DATES 20 [153]"3CLR CHG SCORES"RT$"4CLR SUMMARY"RT$"5CLR START NEW FILE"RT$"6CLR LOAD 25 PRINT"7[156] SAVE"RT$"8[156] PRINT"RT$"9[156] EXIT 30 LN[178]15:[141]75:X$[178]"":[158]A,.,15:[153]"WELL?" 35 [146]198,15:[161]X$:[139]X$[179]"1"[176]X$[177]"9"[167]30 40 [145][197](X$)[141]635,650,250,675,50,165,165,530,665:[137]15 45 [158]A,16,23:[153]"SYSHIT A KEY":[146]198,15:[161]X$:[142] 50 [151]49,[194](47):[151]50,[194](48):RT$[178][199](13) 55 A[178]679:NW[178]40:NB[178]7:[134]X$,X,Y,BN,WN,LN,F$,Z$,Z,W2,XX,NM$,TP,TG 60 [134]HG,LG,HS,LS,S1,S2,S3,S4,S5,S6,S8,G1,G2,G3,G4,G5 65 [134]DT$(NW),TP%(NB,NW),TG%(NB,NW),G1%(NB,NW),G2%(NB,NW),G3%(NB,NW) 70 P$[178]" ":C$[178]P$[170]P$:[142] 75 [151]781,LN:[158]59903:[142] 80 [141]120 85 X$[178]"":[133]"BOWLER";X$:[139]X$[178]""[167][142] 90 BN[178][197](X$):[139]BN[179]1[176]BN[177]NB[167]85 95 [142] 100 [141]125 105 X$[178]"":[133]"DATE";X$:[139]X$[178]""[167][142] 110 WN[178][197](X$):[139]WN[179]1[176]WN[177]NW[167]105 115 [142] 120 [153]"LOAD":[129]X[178]1[164]NB:[153]" "X""NM$(X)"":[130]:[153]"":[142] 125 X[178]1:[153]"LOAD 130 GOSUB140:IFX>NWTHENRETURN 135 GOTO130 140 FORX=XTOX+19:IFX>NWTHENRETURN 145 IFX>20THENPRINTTAB(20); 150 IFX<10THENPRINT" "; 155 PRINTX""DT$(X)"":NEXT:PRINT"":RETURN 160 FORX=1TO999:NEXT:LN=18:GOTO75 165 S$="":SYSA,.,15:PRINT"FILE "F$:INPUT"[145]";S$:IFS$=""THEN30 170 IFX$="7"THEN230 175 B$=S$:OPEN2,DV,2,B$+",P,R":CLOSE2:OPEN15,DV,15:INPUT#15,Z,Z$:CLOSE15 180 IFZ=62THENPRINT"NOT FOUND":GOSUB160:GOTO165 185 GOSUB50:F$=S$:S$=F$+",S,R":OPEN8,DV,8,S$ 190 FORX=1TONW:INPUT#8,DT$(X):NEXT:FORX=1TONB:INPUT#8,NM$(X):FORY=1TONW 195 INPUT#8,G1%(X,Y):INPUT#8,G2%(X,Y):INPUT#8,G3%(X,Y) 200 TP(X)=TP(X)+G1%(X,Y)+G2%(X,Y)+G3%(X,Y):TP%(X,Y)=TP(X) 205 IFG1%(X,Y)>.THENTG(X)=TG(X)+1 210 IFG2%(X,Y)>.THENTG(X)=TG(X)+1 215 IFG3%(X,Y)>.THENTG(X)=TG(X)+1 220 TG%(X,Y)=TG(X) 225 GOTO245 230 F$=S$:S$="@0:"+F$+",S,W":OPEN8,DV,8,S$ 235 FORX=1TONW:PRINT#8,DT$(X):NEXT:FORX=1TONB:PRINT#8,NM$(X):FORY=1TONW 240 PRINT#8,G1%(X,Y);RT$;G2%(X,Y);RT$;G3%(X,Y) 245 NEXT:NEXT:CLOSE8:GOTO30 250 GOSUB80:IFX$=""THENRETURN 255 GOSUB100:IFX$=""THENRETURN 260 PRINT"[147] 265 LN[178]1:[141]75:[153]"BOWLER "NM$(BN):[158]A,33,1:[153]"WEEK"WN 270 LN[178]2:[141]75:[158]A,14,2:[153]"DATE "DT$(WN) 275 [158]A,.,4:[153]"SYS GAME GAME GAME SERIES PREV CURR TOTAL 280 PRINT"[145] 1 2 3 TOTAL AVG AVG PINS " 285 PRINT"[158]1 CHG GAME 1 [158]< PREV DATE [158]W NEW DATE 290 [153]"SYS2 CHG GAME 2 SYS> NEXT DATE SYSB NEW BOWLR 295 PRINT"[145][158]3 CHG GAME 3 [158]P PREV BOWLR [158]C CHG NAME 300 [153]"SYSX EXIT SYSN NEXT BOWLR SYSK CHG DATE 305 LN=7:GOSUB75:SYSA,.,7:PRINT"[159]"G1%(BN,WN):SYSA,5,7:PRINTG2%(BN,WN) 310 SYSA,10,7:PRINTG3%(BN,WN):XX=G1%(BN,WN)+G2%(BN,WN)+G3%(BN,WN) 315 SYSA,16,7:PRINTXX:W2=WN-1:IFTG%(BN,W2)=.THENXX=.:GOTO325 320 XX=INT(TP%(BN,W2)/TG%(BN,W2)) 325 SYSA,23,7:PRINTXX:IFTG%(BN,WN)=.THENXX=.:GOTO335 330 XX=INT(TP%(BN,WN)/TG%(BN,WN)) 335 SYSA,29,7:PRINTXX:TP%(BN,WN)=TP%(BN,W2)+G1%(BN,WN)+G2%(BN,WN)+G3%(BN,WN) 340 SYSA,34,7:PRINTTP%(BN,WN) 345 SYSA,.,17:PRINT"WELL?":WAIT198,15:GETX$:IFX$="1"THEN415 350 IFX$="1"THEN415 355 IFX$="2"THEN430 360 IFX$="3"THEN445 365 IFX$="W"THENGOSUB100:GOTO260 370 IFX$="B"THENGOSUB80:GOTO260 375 IFX$="C"THENGOSUB635 380 IFX$="K"THENGOSUB650 385 IFX$="N"THEN500 390 IFX$="P"THEN490 395 IFX$="X"THENRETURN 400 IFX$=","ORX$="<"THEN510 405 IFX$="."ORX$=">"THEN520 410 GOTO260 415 X$="":SYSA,.,17:INPUT"NEW SCORE GAME 1";X$:IFX$=""THEN305 420 IFVAL(X$)<.ORVAL(X$)>300THEN415 425 G1%(BN,WN)=VAL(X$):GOTO460 430 X$="":SYSA,.,17:INPUT"NEW SCORE GAME 2";X$:IFX$=""THEN305 435 IFVAL(X$)<.ORVAL(X$)>300THEN430 440 G2%(BN,WN)=VAL(X$):GOTO460 445 X$="":SYSA,.,17:INPUT"NEW SCORE GAME 3";X$:IFX$=""THEN305 450 IFVAL(X$)<.ORVAL(X$)>300THEN445 455 G3%(BN,WN)=VAL(X$) 460 W2=WN-1:XX=TG%(BN,W2):Y=TP%(BN,W2):FORX=WNTONW 465 IFG1%(BN,X)>.THENXX=XX+1:Y=Y+G1%(BN,X) 470 IFG2%(BN,X)>.THENXX=XX+1:Y=Y+G2%(BN,X) 475 IFG3%(BN,X)>.THENXX=XX+1:Y=Y+G3%(BN,X) 480 TG%(BN,X)=XX:TP%(BN,X)=Y:NEXT:GOTO305 485 IFWN>NWTHENWN=NW 490 BN=BN-1:IFBN=.THENBN=NB 495 GOTO260 500 BN=BN+1:IFBN>NBTHENBN=1 505 GOTO260 510 WN=WN-1:IFWN=.THENWN=NW 515 GOTO260 520 WN=WN+1:IFWN>NWTHENWN=1 525 GOTO260 530 OPEN4,4,0:PRINT#4," NAME WK DATE GM1 GM2 "; 535 PRINT#4,"GM3 SERIES AVG TOT PINS GAMES [146]":PRINT#4 540 FORY=1TONW:FORX=1TONB 545 IFG1%(X,Y)=.ANDG2%(X,Y)=.ANDG3%(X,Y)=.THEN630 550 IFY<10THENXX=13-LEN(NM$(X)) 555 IFY>9THENXX=12-LEN(NM$(X)) 560 PRINT#4," "NM$(X)SPC(XX);:IFX=1THENPRINT#4,Y" "DT$(Y)" ";:GOTO570 565 PRINT#4,SPC(16); 570 PRINT#4,G1%(X,Y)" "G2%(X,Y)" "G3%(X,Y); 575 PRINT#4," ";:XX=G1%(X,Y)+G2%(X,Y)+G3%(X,Y) 580 IFXX<10THENPRINT#4," "; 585 IFXX<100THENPRINT#4," "; 590 PRINT#4,XX" ";:XX=INT(TP%(X,Y)/TG%(X,Y)):PRINT#4,XX" "; 595 IFTP%(X,Y)<10THENPRINT#4," "; 600 IFTP%(X,Y)<100THENPRINT#4," "; 605 IFTP%(X,Y)<1000THENPRINT#4," "; 610 IFTP%(X,Y)<10000THENPRINT#4," "; 615 PRINT#4,TP%(X,Y)" ";:IFTG%(X,Y)<10THENPRINT#4," "; 620 IFTG%(X,Y)<100THENPRINT#4," "; 625 PRINT#4,TG%(X,Y) 630 NEXT:NEXT:RETURN 635 GOSUB80:IFX$=""THENRETURN 640 X$="":LN=1:GOSUB75:INPUT"NEW NAME";X$:IFX$=""THEN635 645 X$=LEFT$(X$,16):NM$(BN)=X$:GOTO635 650 GOSUB100:IFX$=""THENRETURN 655 X$="":LN=1:GOSUB75:INPUT"NEW DATE";X$:IFX$=""THEN650 660 X$=LEFT$(X$,16):DT$(WN)=X$:GOTO650 665 X$="":SYSA,.,15:PRINT"EXIT?":WAIT198,15:GETX$:IFX$="Y"THENSYS64738 670 RETURN 675 GOSUB80:IFX$=""THENRETURN 680 PRINT"[147][159]"SPC(17)"SUMMARY 685 HG[178].:LG[178]300:HS[178].:LS[178]900:S1[178].:S2[178].:S3[178].:S4[178].:S5[178].:S6[178].:S7[178].:S8[178].:G1[178].:G2[178]. 690 G3[178].:G4[178].:G5[178].:X[178]BN 695 [153]""P$"BOWLER"P$NM$(BN):[129]Y[178]1[164]NW 700 [139]G1%(X,Y)[177]HG[167]HG[178]G1%(X,Y) 705 [139]G2%(X,Y)[177]HG[167]HG[178]G2%(X,Y) 710 [139]G3%(X,Y)[177]HG[167]HG[178]G3%(X,Y) 715 [139]G1%(X,Y)[179]LG[175]G1%(X,Y)[177].[167]LG[178]G1%(X,Y) 720 [139]G2%(X,Y)[179]LG[175]G2%(X,Y)[177].[167]LG[178]G2%(X,Y) 725 [139]G3%(X,Y)[179]LG[175]G3%(X,Y)[177].[167]LG[178]G3%(X,Y) 730 TG[178]G1%(X,Y)[170]G2%(X,Y)[170]G3%(X,Y) 735 [139]TG[177]HS[167]HS[178]TG 740 [139]TG[179]LS[175]TG[177].[167]LS[178]TG 745 [139]TG[177]849[167]S8[178]S8[170]1:[137]785 750 [139]TG[177]799[167]S7[178]S7[170]1:[137]785 755 [139]TG[177]749[167]S6[178]S6[170]1:[137]785 760 [139]TG[177]699[167]S5[178]S5[170]1:[137]785 765 [139]TG[177]649[167]S4[178]S4[170]1:[137]785 770 [139]TG[177]599[167]S3[178]S3[170]1:[137]785 775 [139]TG[177]549[167]S2[178]S2[170]1:[137]785 780 [139]TG[177]499[167]S1[178]S1[170]1 785 [139]G1%(X,Y)[177]299[167]G5[178]G5[170]1:[137]810 790 [139]G1%(X,Y)[177]274[167]G4[178]G4[170]1:[137]810 795 [139]G1%(X,Y)[177]249[167]G3[178]G3[170]1:[137]810 800 [139]G1%(X,Y)[177]224[167]G2[178]G2[170]1:[137]810 805 [139]G1%(X,Y)[177]199[167]G1[178]G1[170]1 810 [139]G2%(X,Y)[177]299[167]G5[178]G5[170]1:[137]835 815 [139]G2%(X,Y)[177]274[167]G4[178]G4[170]1:[137]835 820 [139]G2%(X,Y)[177]249[167]G3[178]G3[170]1:[137]835 825 [139]G2%(X,Y)[177]224[167]G2[178]G2[170]1:[137]835 830 [139]G2%(X,Y)[177]199[167]G1[178]G1[170]1 835 [139]G3%(X,Y)[177]299[167]G5[178]G5[170]1:[137]860 840 [139]G3%(X,Y)[177]274[167]G4[178]G4[170]1:[137]860 845 [139]G3%(X,Y)[177]249[167]G3[178]G3[170]1:[137]860 850 [139]G3%(X,Y)[177]224[167]G2[178]G2[170]1:[137]860 855 [139]G3%(X,Y)[177]199[167]G1[178]G1[170]1 860 [130]:[139]TG%(X,40)[178].[167]XX[178].:[137]870 865 XX[178][181](TP%(X,40)[173]TG%(X,40)) 870 [153]P$"CURRENT AVG "XX 875 [153]P$"HIGH GAME "HG;RT$P$"LOW GAME "LG 880 [153]P$"HIGH SERIES "HS;RT$P$"LOW SERIES "LS 885 [153]P$"200 GAMES "G1;RT$P$"225 GAMES "G2 890 [153]P$"250 GAMES "G3;RT$P$"275 GAMES "G4 895 [153]P$"300 GAMES "G5 900 [153]P$"500 SERIES "S1;RT$P$"550 SERIES "S2 905 [153]P$"600 SERIES "S3;RT$P$"650 SERIES "S4 910 [153]P$"700 SERIES "S5;RT$P$"750 SERIES "S6 915 [153]P$"800 SERIES "S7;RT$P$"850 SERIES "S8:[137]45 920 [131]32,182,2,134,176,32,182,2,164,176,24,32,240,255,96,32,253,174,32,158 925 [131]183,96