#!/usr/bin/apple1basic
LOMEM=768
   10 TAB 18: PRINT "BOWL"
   20 PRINT "CREATIVE COMPUTING MORRISTION, NJ"
   30 PRINT : PRINT : PRINT 
  270 DIM C(15),A(100),Z(100),D(100),N$(40)
  360 PRINT "WELCOME TO THE ALLEY"
  450 PRINT "BRING YOUR FRIENDS"
  540 PRINT "OK LET'S FIRST GET ACQUAINTED"
  630 PRINT 
  720 INPUT "THE INSTRUCITONS (Y/N)",Z$
  960 IF Z$="N" THEN 1530
  990 PRINT "THE GAME OF BOWLING TAKES MIND AND SKILL. DURING THE GAME"
 1080 PRINT "THE COMPUTER WILL KEEP SCORE. YOU MAY COMPETE WITH"
 1170 PRINT "OTHER PLAYERS UP TO FOUR. YOU WILL BE PLAYING TEN FRAMES"
 1260 PRINT "ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN...'+' MEANS THE"
 1350 PRINT "PIN IS STANDING. AFTER THE GAME THE COMPUTER WILL SHOW YOUR"
 1440 PRINT "SCORES."
 1530 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING";
 1620 INPUT R
 1710 PRINT 
 1800 PRINT "VERY GOOD..."
 1890 FOR I=1 TO 100
 1900 A(I)=0:Z(I)=0:D(I)=0: NEXT I
 1980 F=1
 2070 FOR P=1 TO R
 2160 M=0
 2250 B=1
 2340 M=0:Q=0
 2430 FOR I=1 TO 15:C(I)=0: NEXT I
 2520 REM  BALL GENERATOR USING MOD '15' SYSTEM
 2610 PRINT "TYPE ROLL TO GET THE BALL GOING."
 2700 INPUT N$
 2790 K=0:D=0
 2880 FOR I=1 TO 20
 2970 X= RND (100)+1
 3060 FOR J=1 TO 10
 3150 IF X<15*J THEN 3330
 3240 NEXT J
 3330 C(15*J-X)=1
 3420 NEXT I
 3510 REM  PIN DIAGRAM
 3600 PRINT "PLAYER: ";P;"FRAME: ";F;" BALL: ";B
 3690 FOR I=0 TO 3
 3780 PRINT 
 3870 FOR J=1 TO 4-I
 3960 K=K+1
 4050 IF C(K)=1 THEN 4320
 4140 TAB (I+1): PRINT "+ ";
 4230 GOTO 4410
 4320 TAB (I+1): PRINT "O ";
 4410 NEXT J
 4500 NEXT I
 4590 PRINT 
 4680 REM  ROLL ANALYSIS
 4770 FOR I=1 TO 10
 4860 D=D+C(I)
 4950 NEXT I
 5040 IF D-M#0 THEN 5220
 5130 PRINT "GUTTER!!"
 5220 IF B#1 OR D#10 THEN 5490
 5310 PRINT "STRIKE!!!!"
 5400 Q=3
 5490 IF B#2 OR D#10 THEN 5760
 5580 PRINT "SPARE!!!!"
 5670 Q=2
 5760 IF B#2 OR D>=10 THEN 6210
 5850 PRINT "ERROR!!!"
 5940 Q=1
 6030 IF B#1 OR D>=10 THEN 6210
 6120 PRINT "ROLL YOUR 2ND BALL"
 6210 REM  STORAGE OF THE SCORES
 6300 PRINT 
 6310 V1=(10*P+F)-10
 6390 IF B=1 THEN 6400
 6391 IF B=2 THEN 6405
 6393 IF B=3 THEN 6410
 6400 A(V1)=D: GOTO 6480
 6405 Z(V1)=D-A(V1): GOTO 6480
 6410 D(V1)=D
 6430 PRINT D(V1)
 6480 IF B=2 THEN 7020
 6570 B=2
 6660 M=D
 6680 V1=(10*P+F)-10
 6750 IF Q=3 THEN 6210
 6840 IF B=1 THEN 6850
 6842 IF B=2 THEN 6851
 6843 IF B=3 THEN 6852
 6850 REM  A(V1)=D-M:GOTO 6930
 6851 REM  Z(V1)=D-M:GOTO 6930
 6852 REM  D(V1)=D-M
 6930 IF Q=0 THEN 2520
 7020 REM  D(F*P)=Q
 7025 D((10*P+F)-10)=Q
 7110 NEXT P
 7200 F=F+1
 7290 IF F<11 THEN 2070
 7295 PRINT "FRAMES"
 7380 FOR I=1 TO 10
 7470 TAB (I*3): PRINT I;
 7560 NEXT I
 7650 PRINT 
 7655 PRINT "------------------------------"
 7740 FOR P=1 TO R
 7830 FOR I=1 TO 3
 7920 FOR J=1 TO 10
 7925 V1=(10*P+J)-10
 7930 IF I=1 THEN 7950
 7932 IF I=2 THEN 7960
 7933 REM 
 7935 TAB (J*3): PRINT " ";: GOTO 8100
 7940 TAB (J*3): PRINT D(V1);: GOTO 8100
 7950 TAB (J*3): PRINT A(V1);: GOTO 8100
 7960 TAB (J*3): PRINT Z(V1);
 8100 PRINT " ";: NEXT J
 8105 PRINT 
 8190 NEXT I
 8280 PRINT 
 8370 NEXT P
 8460 PRINT "DO YOU WANT ANOTHER GAME";
 8550 INPUT A$
 8640 IF A$="Y" OR A$="YES" THEN 2610
 8730 END