Directory of image this file is from
This file as a plain text file

  10 DIM B(25), F(12),R(12)
  40 PRINT "WELCOME TO TVI BOWLING ALLEY. WE HOPE YOU BOWL WELL."
  50 PRINT "NAME OF BOWLER"
  60 INPUT N
  70 LET N=2
  80 LET R(1)=0
  90 LET M=1
 100 LET I=1
 110 LET B(I)=0
 120 LET I=I+1
 130 IF I<=22 THEN 110
 140 PRINT "PLEASE ROLL A BALL AND ENTER NUMBER OF PINS KNOCKED DOWN";
 150 INPUT B(M)
 170 IF B(M) = 10 THEN 400
 180 IF B(M) > 10 THEN 880
 190 LET M=M+1
 200 PRINT "ROLL ANOTHER BALL AND FEED ME YOUR PIN COUNT";
 210 INPUT B(M)
 220 IF B(M) + B(M-1)=10 THEN 300
 230 IF B(M)+B(M-1)>10 THEN 880
 240 PRINT "YOU HAVE JUST BOWLED AN OPEN FRAME."
 250 LET F(N)=B(M)+B(M-1)
 255 PRINT "YOUR SCORE FOR THIS FRAME IS "; F(N)
 260 LET R(N)=R(N-1)+F(N)
 265 PRINT "YOUR SCORE TO THIS TIME IS ";R(N)
 270 LET N=N+1
 275 LET M=M+1
 280 IF N=4 THEN 290
 283 IF N=8 THEN 290
 284 IF N>12 THEN 900
 285 IF N=12 THEN 950
 286 IF N=11 THEN PRINT "LAST FRAME COMING UP"
 287 GO TO 140
 290 PRINT "THIS FRAME WAS A BEER FRAME. YOU GET TO BUY FOR EVERYONE."
 295 GO TO 140
 300 LET M=M+1
 310 PRINT "YOU HAVE JUST BOWLED A SPARE."
 315 PRINT "ROLL AGAIN AND LETS SEE HOW YOU DO. HOW MANY PINS ARE DOWN "
 320 INPUT B(M)
 330 LET F(N)=B(M)+10
 340 LET R(N)=R(N-1)+F(N)
 350 PRINT "YOUR SCORE FOR THE SPARED FRAME WAS "; F(N)
 360 PRINT "YOUR TOTAL SCORE THROUGH THE SPARED FRAME IS "; R(N)
 370 LET N=N+1
 380 IF N<12 THEN 200
 383 IF N>12 THEN 900
 385 GO TO 950
 400 IF N>11 THEN 900
 410 IF N=11 THEN 510
 415 LET S=1
 420 LET M=M+2
 425 PRINT "NICE GOING. THAT WAS A STRIKE."
 427 PRINT "NOW ROLL ANOTHER BALL."
 428 PRINT "HOW MANY PINS DID YOU KNOCK DOWN THAT TIME ";
 430 INPUT B(M)
 433 IF B(M) > 10 THEN 880
 434 IF B(M) < 10 THEN 480
 437 LET M=M+2
 440 PRINT "WOW   ANOTHER STRIKE.  ROLL AGAIN."
 443 PRINT "NOW HOW MANY DID YOU KNOCK DOWN ";
 445 INPUT B(M)
 447 LET S=S+1
 450 LET F(N) = B(M) +B(M-2) +10
 455 LET R(N) = R(N-1) + F(N)
 458 PRINT "OK, YOUR SCORE FOR THE FRAME WITH THE FIRST STRIKE IS ";F(N)
 459 PRINT " YOUR TOTAL SCORE TO THAT TIME IS ";R(N)
 462 LET N=N+1
 465 IF S<>3 THEN 470
 466 PRINT "YOU HAVE JUST ROLLED A TURKEY."
 467 PRINT "THATS THREE STRIKES IN A ROW."
 468 PRINT "UNDER OUR RULES YOU OWE THE OPERATORS A BEER."
 469 PRINT "COORS WILL DO FINE."
 470 IF N<12 THEN 900
 472 IF N=12 THEN 950