10 ? "}":SET 2,ASC(">")›20 GRAPHICS 17:FOR I=1 TO 4:? #6:NEXT I›30 ? #6;"*ช*ช*ช*ช*ช*ช*ช*ช*ช*ช"›40 ? #6;"ช *"›50 ? #6;"* SOFTBALL STATS ช"›60 ? #6;"ช *"›70 ? #6;"* by karl wise ช"›80 ? #6;"ช *"›90 ? #6;"*ช*ช*ช*ช*ช*ช*ช*ช*ช*ช"›100 FOR I=1 TO 1900:NEXT I›110 DIM FILE$(14),FILELIST$(280),D1$(14),A$(1),NAME$(16),OPP$(14),SP$(80),F$(80),G$(3),OPP1$(14),R$(25),F1$(80)›120 DIM F2$(80),SL$(10),SL1$(10),SL2$(10),U$(15):SL1$=" #.###":SL2$=" .###":U$(1)=CHR$(28):U$(15)=U$:U$(2)=U$›130 DIM TYP$(5),BG$(1),BGBA(30),BGOB(30),BGSL(30)›140 DIM RBI$(150),BGRBI(20):RBI$(1)=" ":RBI$(150)=RBI$:RBI$(2)=RBI$›150 DIM FILESORT$(280),AVSRT(20):FILESORT$(1)=" ":FILESORT$(280)=FILESORT$:FILESORT$(2)=FILESORT$›160 DIM TA$(10),TA1$(10),TA2$(10):TA1$=" #.###":TA2$=" .###"›170 DIM TOABSRT(20)›180 SP$(1)=" ":SP$(80)=SP$:SP$(2)=SP$:R$(1)=CHR$(31):R$(25)=R$:R$(2)=R$›190 R$(1,1)=U$(1,1)›200 DIM TEAMNAME$(30)›210 TRAP 220:OPEN #7,8,0,"P:":CLOSE #7:GOTO 230›220 ? "TURN ON PRINTER AND PRESS ":INPUT TEAMNAME$:? "}":GOTO 210›230 TRAP 230:? "ลPSON OR ฑ020";:INPUT TYP$:IF TYP$="" THEN TYP$="E"›240 IF TYP$(1,1)="1" THEN TYP$="1":GOTO 260›250 TYP$="E"›260 TRAP 330:OPEN #2,4,0,"D:TEAMNAME.LST":INPUT #2;TEAMNAME$:CLOSE #2›270 TRAP 320:? "} ำฯฦิยมฬฬ ำิมิษำิษรำ ะาฯวามอ":? " ";TEAMNAME$:? :? ›280 ? "ฑ INPUT DATA":? "ฒ PRINT ALL STATISTICS":? "ณ PRINT TEAM TOTALS":? "ด PRINT INDIVIDUAL STATISTICS"›290 ? "ต QUIT":INPUT A:? "}":CHOICE=A›300 TRAP 0:ON A GOSUB 350,1010,1060,2220,320›310 ? "}":GOTO 270›320 END ›330 ? "ENTER THE TEAM NAME (30 CHAR MมX)":INPUT TEAMNAME$›340 CLOSE #2:OPEN #2,8,0,"D:TEAMNAME.LST":? #2;TEAMNAME$:CLOSE #2:? "}":GOTO 260›350 OPEN #2,6,0,"D:*.*":X=0›360 INPUT #2;FILE$›370 IF FILE$(5,8)="FREE" THEN 410›380 IF FILE$(11,13)<>" " THEN 360›390 X=X+1:FILELIST$((X*12)-11,(X*12))=FILE$(3,14)›400 ? X;".";FILE$:GOTO 360›410 CLOSE #2:? X+1;". ADD NEW NAME":X=X+1›420 ? X+1;". MAIN MENU":X=X+1›430 TRAP 430:? "ENTER CHOICE NUMBER";:INPUT A:TRAP 0›440 IF A>X THEN 430›450 IF A=X THEN ? "}":GOTO 270›460 IF A=X-1 THEN 510›470 FILE$=FILELIST$((A*12)-11,(A*12))›480 D1$="D:"›490 D1$(3)=FILE$:FILE$=D1$›500 GOTO 620›510 ? "ENTER NAME OF NEW DATA FILE":? "'D:' WILL BE ADDED BY COMPUTER":INPUT FILE$›520 D1$="D:"›530 D1$(3)=FILE$:FILE$=D1$›540 ? :? FILE$;" WILL BE THE NEW":? "DATA FILE. IS THAT OK (Y/N)":INPUT A$›550 IF A$="Y" OR LEN(A$)=0 THEN GOTO 580›560 IF A$<"N" OR A$>"N" THEN 540›570 GOTO 510›580 OPEN #2,8,0,FILE$›590 ? "INPUT PLAYER'S NมME (16 CHAR MAX)":INPUT NAME$›600 ? #2;NAME$›610 GOTO 640›620 OPEN #2,9,0,FILE$›630 ? "}DATA FILE IS ";FILE$(3):? ›640 ? "OPPONENT (14 CศAR MAX)":INPUT OPP$:IF OPP$="" THEN OPP$=OPP1$›650 OPP1$=OPP$:IF OPP$="" THEN ? U$(1,2);:GOTO 640›660 ? R$(1,2);OPP$›670 TRAP 880:? "AT BATS";:INPUT ABAT›680 TRAP 890:? "SINGLES";:INPUT SINS›690 TRAP 900:? "DOUBLES";:INPUT DOUBS›700 TRAP 910:? "TRIPLES";:INPUT TRIPS›710 TRAP 920:? "HOMERS";:INPUT HRS›720 TRAP 930:? "WALKS";:INPUT BBS›730 TRAP 940:? "ERRORS";:INPUT ERRS›740 TRAP 950:? "RUNS";:INPUT RUNS›750 TRAP 960:? "RBI'S";:INPUT RBI›760 ? "IS THE DATA OK (Y/N)";:INPUT A$:IF A$="N" THEN ? R$(1,22);SP$(1,1):? U$(1,12);:GOTO 640›770 ? #2;OPP$›780 ? #2;ABAT›790 ? #2;SINS›800 ? #2;DOUBS›810 ? #2;TRIPS›820 ? #2;HRS›830 ? #2;BBS›840 ? #2;ERRS›850 ? #2;RUNS›860 ? #2;RBI›870 GOTO 970›880 ABAT=0:? R$(1,9);0:GOTO 680›890 SINS=0:? R$(1,9);0:GOTO 690›900 DOUBS=0:? R$(1,9);0:GOTO 700›910 TRIPS=0:? R$(1,9);0:GOTO 710›920 HRS=0:? R$(1,8);0:GOTO 720›930 BBS=0:? R$(1,7);0:GOTO 730›940 LET ERRS=0:? R$(1,8);0:GOTO 740›950 LET RUNS=0:? R$(1,6);0:GOTO 750›960 RBI=0:? R$(1,7);0:GOTO 760›970 CLOSE #2›980 ? "CONTINUE DATA INPUT (Y/N)";:INPUT A$›990 IF A$<>"N" THEN ? "}":GOTO 350›1000 RETURN ›1010 REM PRINT ALL STATS›1020 F1$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### #.### #.###"›1030 F2$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### .### #.###"›1040 OPEN #7,8,0,"P:"›1050 IF TYP$="1" THEN ? #7;CHR$(27);CHR$(19);›1060 TRAP 1060:? "DO YOU WANT B/GRAPH":? "DATA FILES CREATED (Y/N)";:INPUT BG$:TRAP 0›1070 IF BG$="Y" THEN GOTO 1090›1080 BG$="N"›1090 OPEN #2,6,0,"D:*.*":X=0›1100 DARK=PEEK(559):POKE 559,0›1110 INPUT #2;FILE$›1120 IF FILE$(5,8)="FREE" THEN 1150›1130 IF FILE$(11,13)<>" " THEN 1110›1140 X=X+1:FILELIST$((X*12)-11,(X*12))=FILE$(3,14):GOTO 1110›1150 XSRT=X:CLOSE #2:GOSUB 3010›1160 IF CHOICE=3 THEN 1630›1170 FOR I=1 TO X›1180 D1$="D:"›1190 G=0›1200 FILE$=FILELIST$((I*12)-11,(I*12)):D1$(3)=FILE$:FILE$=D1$›1210 TRAP 1430›1220 OPEN #2,4,0,FILE$›1230 INPUT #2;NAME$:? #7:? #7:? #7;CHR$(14);SP$(1,(18-INT(LEN(NAME$)/2)));NAME$:? #7:? #7›1240 ? #7;"OPPONENT A/B H 1 2 3 HR BB E R RBI AVG O-B% S% C AVG"›1250 ? #7;"-------------- --- -- -- -- -- -- -- -- -- --- ----- ----- ----- -----"›1260 INPUT #2;OPP$:INPUT #2;ABAT:INPUT #2;SINS:INPUT #2;DOUBS:INPUT #2;TRIPS:INPUT #2;HRS:INPUT #2;BBS›1270 INPUT #2;ERRS:INPUT #2;RUNS:INPUT #2;RBI›1280 F$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### .### .###"›1290 HITS=SINS+DOUBS+TRIPS+HRS›1300 IF ABAT=0:AVG=0:ELSE :AVG=HITS/ABAT:ENDIF :OB1=ABAT+BBS:IF OB1=0:OB=0:ELSE :OB=(HITS+BBS)/(OB1):ENDIF ›1310 IF AVG=1 THEN F$=F1$:GOTO 1330›1320 IF OB=1 THEN F$=F2$›1330 G=G+1›1340 IF ABAT=0:SLUG=0:ELSE :SLUG=(SINS+(2*DOUBS)+(3*TRIPS)+(4*HRS))/ABAT:ENDIF ›1350 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ›1360 TOABAT=TOABAT+ABAT:THITS=THITS+HITS:TSINS=TSINS+SINS:TDOUBS=TDOUBS+DOUBS:TTRIPS=TTRIPS+TRIPS›1370 THRS=THRS+HRS:TBBS=TBBS+BBS:TERRS=TERRS+ERRS:TRUNS=TRUNS+RUNS:TRBI=TRBI+RBI›1380 IF TOABAT=0:TAVG=0:ELSE :TAVG=THITS/TOABAT:ENDIF ›1390 IF TAVG>=1:TA$=TA1$:ELSE :TA$=TA2$:ENDIF ›1400 PRINT #7; USING F$,OPP$,ABAT,HITS,SINS,DOUBS,TRIPS,HRS,BBS,ERRS,RUNS,RBI,AVG,OB;:? #7; USING SL$,SLUG;›1410 ? #7; USING TA$,TAVG›1420 GOTO 1260›1430 CLOSE #2›1440 TRAP 0›1450 G$=STR$(G):OPP$="TOTAL ( GMS)"›1460 IF LEN(G$)=1 THEN OPP$(9,9)=G$:GOTO 1480›1470 OPP$(8,9)=G$›1480 ? #7;"============== === == == == == == == == == === ===== ===== ===== ====="›1490 F$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### .### .###"›1500 IF TOABAT=0:SLUG=0:ELSE :SLUG=(TSINS+(2*TDOUBS)+(3*TTRIPS)+(4*THRS))/TOABAT:ENDIF ›1510 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ›1520 IF TOABAT=0:AVG=0:ELSE :AVG=THITS/TOABAT:ENDIF ›1530 IF TOABAT=0 AND TBBS=0:OB=0:ELSE :OB=(THITS+TBBS)/(TOABAT+TBBS):ENDIF ›1540 IF AVG=1 THEN F$=F1$:GOTO 1560›1550 IF OB=1 THEN F$=F2$›1560 PRINT #7; USING F$,OPP$,TOABAT,THITS,TSINS,TDOUBS,TTRIPS,THRS,TBBS,TERRS,TRUNS,TRBI,AVG,OB;›1570 ? #7; USING SL$,SLUG›1580 TOABAT=0:THITS=0:TSINS=0:TDOUBS=0:TTRIPS=0:THRS=0:TBBS=0:TERRS=0:TRUNS=0:TRBI=0›1590 DEFIN=0:GOSUB 2820›1600 IF TYP$="1" THEN ? #7:? #7:? #7:? #7›1610 PRINT #7;CHR$(140);:NEXT I›1620 CLOSE #2:CLOSE #7›1630 F1$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ### #.### #.###"›1640 F2$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ### .### #.###"›1650 SL1$=" #.###":SL2$=" .###"›1660 OPEN #7,8,0,"P:"›1670 IF TYP$="1" THEN ? #7;CHR$(27);CHR$(19);›1680 ? #7:? #7:? #7;CHR$(14);SP$(1,(18-INT(LEN(TEAMNAME$)/2)));TEAMNAME$›1690 ? #7;CHR$(14);SP$(1,(10));"TEAM STATISTICS":? #7:? #7›1700 ? #7;"PLAYER'S NAME G A/B H 1 2 3 HR BB E R RBI AVG O-B% S%"›1710 ? #7;"---------------- -- --- --- --- --- --- --- --- --- --- --- ----- ----- -----"›1720 FOR I=1 TO X›1730 D1$="D:"›1740 G=0›1750 FILE$=FILELIST$((I*12)-11,(I*12)):D1$(3)=FILE$:FILE$=D1$›1760 TRAP 1890›1770 OPEN #2,4,0,FILE$›1780 INPUT #2;NAME$›1790 INPUT #2;OPP$:INPUT #2;ABAT:INPUT #2;SINS:INPUT #2;DOUBS:INPUT #2;TRIPS:INPUT #2;HRS›1800 INPUT #2;BBS:INPUT #2;ERRS:INPUT #2;RUNS:INPUT #2;RBI›1810 F$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ### .### .###"›1820 HITS=SINS+DOUBS+TRIPS+HRS›1830 IF ABAT=0:AVG=0:ELSE :AVG=HITS/ABAT:ENDIF ›1840 IF ABAT=0 AND BBS=0:OB=0:ELSE :OB=(HITS+BBS)/(ABAT+BBS):ENDIF ›1850 G=G+1›1860 TOABAT=TOABAT+ABAT:THITS=THITS+HITS:TSINS=TSINS+SINS:TDOUBS=TDOUBS+DOUBS:TTRIPS=TTRIPS+TRIPS›1870 THRS=THRS+HRS:TBBS=TBBS+BBS:TERRS=TERRS+ERRS:TRUNS=TRUNS+RUNS:TRBI=TRBI+RBI›1880 GOTO 1790›1890 CLOSE #2›1900 TRAP 0›1910 IF TOABAT=0:SLUG=0:ELSE :SLUG=(TSINS+(2*TDOUBS)+(3*TTRIPS)+(4*THRS))/TOABAT:ENDIF ›1920 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ›1930 IF TOABAT=0:AVG=0:ELSE :AVG=THITS/TOABAT:ENDIF ›1940 IF TOABAT=0 AND TBBS=0:OB=0:ELSE :OB=(THITS+TBBS)/(TOABAT+TBBS):ENDIF ›1950 G$=STR$(G)›1960 IF AVG=1 THEN F$=F1$:GOTO 1980›1970 IF OB=1 THEN F$=F2$›1980 PRINT #7; USING F$,NAME$,G$,TOABAT,THITS,TSINS,TDOUBS,TTRIPS,THRS,TBBS,TERRS,TRUNS,TRBI,AVG,OB;›1990 ? #7; USING SL$,SLUG›2000 IF BG$="Y" THEN BGBA(I)=AVG:BGOB(I)=OB:BGSL(I)=SLUG:BGRBI(I)=TRBI›2010 GABAT=GABAT+TOABAT:GHITS=GHITS+THITS:GSINS=GSINS+TSINS:GDOUBS=GDOUBS+TDOUBS:GTRIPS=GTRIPS+TTRIPS›2020 GHRS=GHRS+THRS:GBBS=GBBS+TBBS:GERRS=GERRS+TERRS:GRUNS=GRUNS+TRUNS:GRBI=GRBI+TRBI›2030 TOABAT=0:THITS=0:TSINS=0:TDOUBS=0:TTRIPS=0:THRS=0:TBBS=0:TERRS=0:TRUNS=0:TRBI=0›2040 NEXT I›2050 ? #7;"================ == === === === === === === === === === === ===== ===== ====="›2060 F$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ### .### .###"›2070 NAME$="TEAM TOTALS":G$=" "›2080 IF GABAT=0:SLUG=0:ELSE :SLUG=(GSINS+(2*GDOUBS)+(3*GTRIPS)+(4*GHRS))/GABAT:ENDIF ›2090 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ›2100 IF GABAT=0:AVG=0:ELSE :AVG=GHITS/GABAT:ENDIF ›2110 IF GABAT=0 AND GBBS=0:OB=0:ELSE :OB=(GHITS+GBBS)/(GABAT+GBBS):ENDIF ›2120 IF AVG=1 THEN F$=F1$:GOTO 2140›2130 IF OB=1 THEN F$=F2$›2140 PRINT #7; USING F$,NAME$,G$,GABAT,GHITS,GSINS,GDOUBS,GTRIPS,GHRS,GBBS,GERRS,GRUNS,GRBI,AVG,OB;›2150 ? #7; USING SL$,SLUG›2160 DEFIN=1:REM GOSUB 5000›2170 GABAT=0:GHITS=0:GSINS=0:GDOUBS=0:GTRIPS=0:GHRS=0:GBBS=0:GERRS=0:GRUNS=0:GRBI=0›2180 ? :REM #7;CHR$(140);›2190 CLOSE #2:CLOSE #7:POKE 559,DARK›2200 IF BG$="Y" THEN GOSUB 3330›2210 RETURN ›2220 REM PRINT INDIVIDUAL STATS›2230 F1$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### #.### #.###"›2240 F2$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### .### #.###"›2250 OPEN #7,8,0,"P:"›2260 IF TYP$="1" THEN ? #7;CHR$(27);CHR$(19);›2270 ? "ษฮฤษึษฤีมฬ ำิมิำ":? ›2280 OPEN #2,6,0,"D:*.*":X=0›2290 INPUT #2;FILE$›2300 IF FILE$(5,8)="FREE" THEN 2340›2310 IF FILE$(11,13)<>" " THEN 2290›2320 X=X+1:FILELIST$((X*12)-11,(X*12))=FILE$(3,14)›2330 ? X;".";FILE$:GOTO 2290›2340 CLOSE #2›2350 TRAP 2350:? "INPUT PLAYER NUMBER";:INPUT I:IF I<1 OR I>X THEN 2350:TRAP 0›2360 DARK=PEEK(559):POKE 559,0›2370 G=0:D1$="D:"›2380 FILE$=FILELIST$((I*12)-11,(I*12)):D1$(3)=FILE$:FILE$=D1$›2390 TRAP 2620›2400 OPEN #2,4,0,FILE$›2410 INPUT #2;NAME$:? #7:? #7:? #7;CHR$(14);SP$(1,(18-INT(LEN(NAME$)/2)));NAME$:? #7:? #7›2420 ? #7;"OPPONENT A/B H 1 2 3 HR BB E R RBI AVG O-B% S% C AVG"›2430 ? #7;"-------------- --- -- -- -- -- -- -- -- -- --- ----- ----- ----- -----"›2440 INPUT #2;OPP$:INPUT #2;ABAT:INPUT #2;SINS:INPUT #2;DOUBS:INPUT #2;TRIPS:INPUT #2;HRS:INPUT #2;BBS›2450 INPUT #2;ERRS:INPUT #2;RUNS:INPUT #2;RBI›2460 F$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### .### .###"›2470 HITS=SINS+DOUBS+TRIPS+HRS›2480 IF ABAT=0:AVG=0:ELSE :AVG=HITS/ABAT:ENDIF ›2490 OB1=ABAT+BBS:IF OB1=0:OB=0:ELSE :OB=(HITS+BBS)/(ABAT+BBS):ENDIF ›2500 IF ABAT=0:SLUG=0:ELSE :SLUG=(SINS+(2*DOUBS)+(3*TRIPS)+(4*HRS))/ABAT:ENDIF ›2510 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ›2520 G=G+1›2530 TOABAT=TOABAT+ABAT:THITS=THITS+HITS:TSINS=TSINS+SINS:TDOUBS=TDOUBS+DOUBS:TTRIPS=TTRIPS+TRIPS›2540 THRS=THRS+HRS:TBBS=TBBS+BBS:TERRS=TERRS+ERRS:TRUNS=TRUNS+RUNS:TRBI=TRBI+RBI›2550 IF TOABAT=0:TAVG=0:ELSE :TAVG=THITS/TOABAT:ENDIF ›2560 IF TAVG>=1:TA$=TA1$:ELSE :TA$=TA2$:ENDIF ›2570 IF AVG=1 THEN F$=F1$:GOTO 2590›2580 IF OB=1 THEN F$=F2$›2590 PRINT #7; USING F$,OPP$,ABAT,HITS,SINS,DOUBS,TRIPS,HRS,BBS,ERRS,RUNS,RBI,AVG,OB;›2600 ? #7; USING SL$,SLUG;:? #7; USING TA$,TAVG›2610 GOTO 2440›2620 CLOSE #2›2630 TRAP 0›2640 G$=STR$(G):OPP$="TOTAL ( GMS)"›2650 IF LEN(G$)=1 THEN OPP$(9,9)=G$:GOTO 2670›2660 OPP$(8,9)=G$›2670 ? #7;"============== === == == == == == == == == === ===== ===== ===== ====="›2680 F$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### .### .###"›2690 IF TOABAT=0:SLUG=0:ELSE :SLUG=(TSINS+(2*TDOUBS)+(3*TTRIPS)+(4*THRS))/TOABAT:ENDIF ›2700 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ›2710 IF TOABAT=0:AVG=0:ELSE :AVG=THITS/TOABAT:ENDIF ›2720 IF TOABAT=0 AND TBBS=0:OB=0:ELSE :OB=(THITS+TBBS)/(TOABAT+TBBS):ENDIF ›2730 IF AVG=1 THEN F$=F1$:GOTO 2750›2740 IF OB=1 THEN F$=F2$›2750 PRINT #7; USING F$,OPP$,TOABAT,THITS,TSINS,TDOUBS,TTRIPS,THRS,TBBS,TERRS,TRUNS,TRBI,AVG,OB;›2760 ? #7; USING SL$,SLUG›2770 TOABAT=0:THITS=0:TSINS=0:TDOUBS=0:TTRIPS=0:THRS=0:TBBS=0:TERRS=0:TRUNS=0:TRBI=0›2780 DEFIN=0:GOSUB 2820›2790 PRINT #7;CHR$(140);›2800 CLOSE #2:CLOSE #7:POKE 559,DARK›2810 RETURN ›2820 REM DEFINITIONS›2830 ? #7:? #7:? #7:? #7:? #7:? #7;" DEFINITIONS OF ABBREVIATIONS":? #7;" ----------- -- -------------"›2840 IF DEFIN=0:? #7;" GMS: Games Played":ELSE :? #7;" G: Games Played":ENDIF ›2850 ? #7;" A/B: Official At Bats"›2860 ? #7;" H: Hits"›2870 ? #7;" 1: Singles"›2880 ? #7;" 2: Doubles"›2890 ? #7;" 3: Triples"›2900 ? #7;" HR: Home Runs"›2910 ? #7;" BB: Base on Balls"›2920 ? #7;" E: Errors"›2930 ? #7;" R: Runs scored"›2940 ? #7;" RBI: Runs Batted In"›2950 ? #7;" AVG: Batting Average":? #7;" [Hits/At Bats]"›2960 ? #7;" O-B%: On-base Percentage":? #7;" [(Hits+Walks)/(At Bats+Walks)]"›2970 ? #7;" S%: Slugging Percentage"›2980 ? #7;" [(Singles+(Doubles*2)+(Triples*3)+(Homers*4))/At Bats]"›2990 ? #7;" C AVG: Cumulative Batting Average":? #7;" [Cumulative average only through that game]"›3000 RETURN ›3010 FOR I=1 TO XSRT›3020 D1$="D:"›3030 FILE$=FILELIST$((I*12)-11,(I*12)):D1$(3)=FILE$:FILE$=D1$›3040 TRAP 3120›3050 OPEN #2,4,0,FILE$›3060 INPUT #2;NAME$›3070 INPUT #2;OPP$:INPUT #2;ABAT:INPUT #2;SINS:INPUT #2;DOUBS:INPUT #2;TRIPS›3080 INPUT #2;HRS:INPUT #2;BBS:INPUT #2;ERRS:INPUT #2;RUNS:INPUT #2;RBI›3090 HITS=SINS+DOUBS+TRIPS+HRS›3100 TOABAT=TOABAT+ABAT:THITS=THITS+HITS:TSINS=TSINS+SINS:TDOUBS=TDOUBS+DOUBS:TTRIPS=TTRIPS+TRIPS:THRS=THRS+HRS›3110 GOTO 3070›3120 CLOSE #2›3130 TRAP 0›3140 IF TOABAT=0:AVG=0:ELSE :AVG=THITS/TOABAT:ENDIF ›3150 AVSRT(I)=AVG:TOABSRT(I)=TOABAT›3160 TOABAT=0:THITS=0:TSINS=0:TDOUBS=0:TTRIPS=0:THRS=0›3170 NEXT I›3180 CLOSE #2›3190 FOR I=1 TO XSRT›3200 J=1:SRTNUM=0:TRIP=0›3210 IF AVSRT(J)=-1 THEN J=J+1:GOTO 3210›3220 CKNUM=AVSRT(J):CKAB=TOABSRT(J)›3230 FOR K=J TO XSRT›3240 IF CKNUM>AVSRT(K) THEN GOTO 3270›3250 IF CKNUM=AVSRT(K) AND CKAB>=TOABSRT(K) THEN GOTO 3270›3260 SRTNUM=K:CKNUM=AVSRT(K):CKAB=TOABSRT(K):TRIP=1›3270 NEXT K›3280 IF TRIP=0 THEN SRTNUM=J›3290 FILESORT$((I*12)-11,(I*12))=FILELIST$((SRTNUM*12)-11,(SRTNUM*12)):AVSRT(SRTNUM)=-1›3300 NEXT I›3310 FILELIST$=FILESORT$›3320 RETURN ›3330 REM B/GRAPH FILE CREATOR›3340 BGBIG=0›3350 FOR I=1 TO X:IF BGBA(I)>BGBIG THEN BGBIG=BGBA(I)›3360 NEXT I›3370 FOR I=1 TO X:IF BGOB(I)>BGBIG THEN BGBIG=BGOB(I)›3380 NEXT I›3390 FOR I=1 TO X:IF BGSL(I)>BGBIG THEN BGBIG=BGSL(I)›3400 NEXT I›3410 OPEN #5,8,0,"D:STATS.BAR"›3420 ? #5;3›3430 ? #5;TEAMNAME$›3440 ? #5;0›3450 ? #5;"TEAM STATS"›3460 ? #5;0›3470 ? #5;"ะลารลฮิฏฑฐฐ"›3480 ? #5;" "›3490 ? #5;X›3500 ? #5;1›3510 ? #5;0›3520 ? #5;1›3530 ? #5;0›3540 ? #5;12›3550 ? #5;"1 "›3560 ? #5;BGBA(X)›3570 ? #5;1›3580 FOR I=1 TO X:? #5;BGBA(I):NEXT I:FOR I=1 TO X:? #5;BGOB(I):NEXT I:FOR I=1 TO X:? #5;BGSL(I):NEXT I›3590 ? #5;" ":? #5;0›3600 ? #5;" "›3610 ? #5;0›3620 ? #5;1›3630 ? #5;1›3640 ? #5;0›3650 ? #5;BGBIG:? #5;1›3660 ? #5;"AVERAGE ON-BASE%SLUGGING"›3670 ? #5;0›3680 ? #5;2›3690 CLOSE #5:IF X>16 THEN RETURN ›3700 BGRBIS=500:BGRBIB=0›3710 FOR I=1 TO X:IF BGRBI(I)>BGRBIB THEN BGRBIB=BGRBI(I)›3720 IF BGRBI(I)