Compucolor.org – Virtual Media

Listing of file='BOWL.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'

10 PLOT 12:DIM C(15),A(100,6)
20 PRINT "WELCOME TO THE ALLEY"
30 PRINT "BRING YOUR FRIENDS"
40 PRINT "OKAY.LET'S FIRST GET ACQUAINTED"
50 PRINT ""
60 PRINT "THE INSTRUCTIONS (Y/N)"
70 INPUT Z$
80 IF Z$= "Y"THEN 100
90 IF Z$= "N"THEN 160
100 PRINT "THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME"
110 PRINT "THE COMPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH"
115 IF N> 6THEN 117
116 GOTO 120
117 IF N< 20THEN 210
120 PRINT "OTHER PLAYERS(UP TO FOUR).YOU WILL BE PLAYING TEN FRAMES"
130 PRINT "ON THE PIN DIAGRAM'0'MEANS THE PIN IS DOWN...'+' MEANS THE"
140 PRINT "PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR"
150 PRINT "SCORES."
160 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING";
170 INPUT R
180 PRINT
190 PRINT "VERY GOOD..."
200 FOR I= 1TO 100:FOR J= 1TO 6:A(I,J)= 0:NEXT J:NEXT I
210 F= 1
220 FOR P= 1TO R
230 M= 0
240 B= 1
250 M= 0:Q= 0
260 FOR I= 1TO 15:C(I)= 0:NEXT I
270 REM ARK BALL BENERATOR USING MOD '15' SYSTEM
280 PRINT "TYPE ROLL TO GET THE BALL GOING."
290 INPUT N$
300 K= 0:D= 0
310 FOR I= 1TO 20
320 X= INT (RND (1)* 100)
330 FOR J= 1TO 10
340 IF X< 15* JTHEN 360
350 NEXT J
360 C(15* J- X)= 1
370 NEXT I
380 REM ARK PIN DIAGRAM
390 PRINT "PLAYER:"P;"FRAME:";F"BALL:"B
400 FOR I= 0TO 3
410 PRINT
420 FOR J= 1TO 4- I
430 K= K+ 1
440 IF C(K)= 1THEN 470
450 PRINT TAB( I);"+ ";
460 GOTO 480
470 PRINT TAB( I);"O ";
480 NEXT J
490 NEXT I
500 PRINT ""
510 REM ARK ROLL ANALYSIS
520 FOR I= 1TO 10
530 D= D+ C(I)
540 NEXT I
550 IF D- M< > 0THEN 570
560 PRINT "GUTTER!!"
570 IF B< > 1OR D< > 10THEN 600
580 PRINT "STRIKE!!!!!"
590 Q= 3
600 IF B< > 2OR D< > 10THEN 630
610 PRINT "SPARE!!!!"
620 Q= 2
630 IF B< > 2OR D> = 10THEN 660
640 PRINT "ERROR!!!"
650 Q= 1
660 IF B< > 1OR D> = 10THEN 680
670 PRINT "ROLL YOUR 2ND BALL"
680 REM ARK STORAGE OF THE SCORES
690 PRINT
700 A(F* P,B)= D
710 IF B= 2THEN 770
720 B= 2
730 M= D
740 IF Q= 3THEN 680
750 A(F* P,B)= D- M
760 IF Q= 0THEN 270
770 A(F* P,3)= Q
780 NEXT P
790 F= F+ 1
800 IF F< 11THEN 220
810 PRINT "FRAMES"
820 FOR I= 1TO 10
830 PRINT I;
840 NEXT I
850 PRINT
860 FOR P= 1TO R
870 FOR I= 1TO 3
880 FOR J= 1TO 10
890 PRINT A(J* P,I);
900 NEXT J
910 PRINT
920 NEXT I
930 PRINT
940 NEXT P
950 PRINT "DO YOU WANT ANOTHER GAME"
960 INPUT A$
970 IF LEFT$ (A$,1)= "Y"THEN 280
980 PRINT :PRINT "THANKS FOR THE GAME!!"
985 INPUT "PLAY AGAIN(1 FOR YES,0 FOR N)";Q
990 IF Q= 1THEN 110