Bowling

   0  % % % %B%O%W%L%I%N%G% % %                    % %W%R%I%T%T%E%N% % %B%Y%                    % % %G%E%N%E% %B%U%Z%A% % 
  10 LET R1=0
 100 FAST 
 110 CLS 
 120 PRINT AT 1,7;"% %B%O%W%L%I%N%G% %A%V%E%R%A%G%E% "
 130 PRINT AT 4,0;"% %T%O% %I%N%I%T%I%A%L%I%Z%E% ";TAB 31;"%1"
 140 PRINT AT 6,0;"% %T%O% %E%N%T%E%R% %S%C%O%R%E%S% ";TAB 31;"%2"
 150 PRINT AT 8,0;"% %T%O% %D%I%S%P%L%A%Y% %P%L%A%Y%E%R% %D%A%T%A% ";TAB 31;"%3"
 160 PRINT AT 10,0;"% %T%O% %E%D%I%T% %D%A%T%A% ";TAB 31;"%4"
 170 PRINT AT 12,0;"% %T%O% %S%A%V%E% %O%N% %T%A%P%E% ";TAB 31;"%5"
 190 SLOW 
 200 LET Y$=INKEY$
 210 PRINT AT 21,4;"ENTER ONE OF ABOVE ::";AT 21,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:"
 220 IF CODE Y$<29 OR CODE Y$>32 THEN GOTO 200
 230 FAST 
 240 CLS 
 250 GOTO VAL Y$*1000
\n1000 PRINT "HOW MANY WEEKS IS THE SEASON? ";
\n1010 SLOW 
\n1020 INPUT WEEKS
\n1030 PRINT WEEKS
\n1040 PRINT ,,"HOW MANY PLAYERS ON THE TEAM? ";
\n1050 INPUT PLAYERS
\n1060 PRINT PLAYERS
\n1100 DIM S(PLAYERS,WEEKS,3)
\n1110 DIM P$(PLAYERS,32)
\n1120 DIM T(WEEKS)
\n1190 CLS 
\n1200 FOR N=1 TO PLAYERS
\n1210 PRINT "NAME OF PLAYER NO.";N
\n1220 INPUT P$(N)
\n1230 PRINT P$(N)
\n1240 PRINT 
\n1250 NEXT N
\n1260 GOTO 100
\n2000 SLOW 
\n2010 LET R1=R1+1
\n2020 IF R1=WEEKS THEN GOTO 2500
\n2100 FOR N=1 TO PLAYERS
\n2110 CLS 
\n2120 PRINT "SCORE FOR WEEK NO.";R1;" FOR"
\n2130 PRINT P$(N)
\n2140 FOR I=1 TO 3
\n2150 PRINT "GAME NO.";I;
\n2160 INPUT S(N,R1,I)
\n2170 PRINT TAB 29;S(N,R1,I)
\n2180 PRINT 
\n2190 NEXT I
\n2200 LET T(R1)=S(N,R1,1)+S(N,R1,2)+S(N,R1,3)
\n2210 PRINT "SERIES =";TAB 29;T(R1)
\n2220 PAUSE 40000
\n2230 CLS 
\n2240 NEXT N
\n2250 GOTO 100
\n3000 IF R1=0 THEN GOTO 100
\n3010 PRINT AT 1,2;"% %W%H%A%T% %I%S% %T%H%E% %P%L%A%Y%E%R\:.%S% %N%A%M%E% "
\n3015 SLOW 
\n3020 INPUT N$
\n3025 FAST 
\n3030 FOR A=1 TO PLAYERS
\n3040 IF N$=P$(A, TO LEN N$) THEN GOTO 3100
\n3050 NEXT A
\n3060 PRINT ,,N$;" NOT IN FILE."
\n3070 PAUSE 40000
\n3080 GOTO 100
\n3100 CLS 
\n3110 PRINT "BOWLING DATA FOR :::",P$(A)
\n3120 FAST 
\n3130 LET HIGAME=0
\n3135 LET TPINS=0
\n3136 LET TGAMES=0
\n3140 LET HISERIES=0
\n3150 FOR B=1 TO R1
\n3160 LET SERIES=0
\n3170 FOR C=1 TO 3
\n3175 LET TGAMES=TGAMES+1
\n3180 LET GAME=S(A,B,C)
\n3185 LET TPINS=TPINS+GAME
\n3190 IF GAME>HIGAME THEN LET HIGAME=GAME
\n3200 LET SERIES=SERIES+GAME
\n3210 NEXT C
\n3220 IF SERIES>HISERIES THEN LET HISERIES=SERIES
\n3230 NEXT B
\n3300 PRINT ,,"% %H%I%G%H% %G%A%M%E% %=% ",HIGAME
\n3310 PRINT ,,"% %H%I%G%H% %S%E%R%I%E%S% %=",HISERIES
\n3320 LET AVERAGE=TPINS/TGAMES
\n3330 LET AVERAGE=INT (100*AVERAGE+.05)/100
\n3340 PRINT ,,"% %A%V%E%R%A%G%E% %=% ",AVERAGE
\n3400 PAUSE 40000
\n3410 IF INKEY$="Z" THEN COPY 
\n3420 GOTO 100
\n4000 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %P%L%A%Y%E%R%S% %N%A%M%E%?% "
\n4010 SLOW 
\n4020 INPUT N$
\n4030 FAST 
\n4040 FOR A=1 TO PLAYERS
\n4050 IF N$=P$(A, TO LEN N$) THEN GOTO 4100
\n4060 NEXT A
\n4070 GOTO 3060
\n4100 CLS 
\n4110 PRINT ,,P$(A)
\n4120 PRINT ,,"% %C%H%A%N%G%E% %N%A%M%E%?% "
\n4130 PAUSE 40000
\n4140 IF INKEY$="Y" THEN GOTO 4900
\n4150 CLS 
\n4160 PRINT ,,"WHAT WEEK?"
\n4170 SLOW 
\n4180 INPUT WW
\n4190 FAST 
\n4220 PRINT 
\n4230 FOR N=1 TO 3
\n4240 PRINT N,S(A,WW,N)
\n4250 NEXT N
\n4260 PRINT ,,"WHICH GAME (1, 2,3 OR 0 TO EXIT)DO YOU WANT TO CHANGE?"
\n4265 SLOW 
\n4270 LET W$=INKEY$
\n4271 IF CODE W$<28 OR CODE W$>31 THEN GOTO 4270
\n4272 IF W$="0" THEN GOTO 100
\n4275 FAST 
\n4276 LET WG=VAL W$
\n4280 IF WG>3 OR WG<1 THEN GOTO 4270
\n4290 PRINT ,,"NEW GAME TOTAL?"
\n4295 SLOW 
\n4300 INPUT NG
\n4305 FAST 
\n4310 IF NG<0 OR NG>300 THEN GOTO 4295
\n4320 LET S(A,WW,WG)=NG
\n4330 GOTO 100
\n4900 PRINT ,,"WHAT IS THE NEW NAME?"
\n4905 SLOW 
\n4910 INPUT P$(A)
\n4920 GOTO 100
\n5000 PRINT ,,"ENTER THE FILE NAME, PEPARE THE RECORDER AND PRESS ENTER :::"
\n5010 SLOW 
\n5020 INPUT F$
\n5030 FAST 
\n5040 SAVE F$
\n5050 GOTO 100
\n9997 STOP 
\n9998 SAVE "BOWLIN%G"
\n9999 GOTO 1