1
0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-24 02:57:38 -05:00
BCG101/dec/BOWL.BAS

101 lines
2.3 KiB
QBasic
Raw Normal View History

2024-05-18 01:31:34 -04:00
90 REMARK AND ORIGINAL IDEA AND PROGRAMED BY PAUL PERAINO
180 REMARK FROM WOODROW WILSON HIGH SCHOOL
270 DIM C(15),A(100,6)
360 PRINT "WELCOME TO THE ALLEY"
450 PRINT "BRING YOUR FRIENDS"
540 PRINT "OKAY LET'S FIRST GET ACQUAINTED"
630 PRINT\PRINT\PRINT
720 PRINT "WANT INSTRUCTIONS (Y OR N)";
810 INPUT Z$
900 IF Z$="Y" THEN 990
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 MAT A=ZER
1980 F=1
2070 FOR P=1 TO R
2160 M=0
2250 B=1
2340 M=0\Q=0
2430 MAT C=ZER
2520 REMARK BALL GENERATOR USING MOD '15' SYSTEM
2610 PRINT "PLAYER"P" -- TYPE ROLL"
2700 INPUT N$
2790 K=0\D=0
2880 FOR I=1 TO 20
2970 X=INT(RND(I)*100)
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 REMARK 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 PRINT TAB(I);"+ ";
4230 GOTO 4410
4320 PRINT TAB(I);"O ";
4410 NEXT J
4500 NEXT I
4590 PRINT\PRINT\PRINT
4680 REMARK 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 NOT(B=1 AND D=10) THEN 5490
5310 PRINT "STRIKE!!!!!"
5400 Q=3
5490 IF NOT(B=2 AND D=10) THEN 5760
5580 PRINT "SPARE!!!!"
5670 Q=2
5760 IF NOT(B=2 AND D<10) THEN 6030
5850 PRINT "ERROR!!!"
5940 Q=1
6030 IF NOT(B=1 AND D<10) THEN 6210
6120 PRINT "ROLL YOUR 2ND BALL"
6210 REMARK STORAGE OF THE SCORES
6300 PRINT
6390 A(F*P,B)=D
6480 IF B=2 THEN 7020
6570 B=2
6660 M=D
6750 IF Q=3 THEN 6210
6840 A(F*P,3)=D-M
6930 IF Q=0 THEN 2520
7020 A(F*P,3)=Q
7110 NEXT P
7200 F=F+1
7290 IF F<11 THEN 2070
7295 PRINT "FRAMES"
7380 FOR I=1 TO 10
7470 PRINT I;
7560 NEXT I
7650 PRINT
7740 FOR P=1 TO R
7830 FOR I=1 TO 3
7920 FOR J=1 TO 10
8010 PRINT A(J,I);
8100 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" THEN 2610
8730 END