Bowling

Gallery

Source Code

  10 DIM A(10)
  20 LET Y=0
  30 LET S=0
  40 FOR B=1 TO 10
  50 FOR E=1 TO 2
  60 PRINT AT 0,0;
  70 PRINT "FRAME ";B,"BALL ";CHR$ (E+156)
  80 LET Z=0
  90 FOR C=1 TO 10
 100 IF E=2 THEN GOTO 120
 110 LET A(C)=52
 120 IF A(C)=52 AND RND>.5 THEN LET A(C)=61
 130 IF A(C)=61 THEN LET Z=Z+1
 140 NEXT C
 150 PRINT CHR$ (A(10));" ";CHR$ (A(9));" ";CHR$ (A(8));" ";CHR$ (A(7))
 160 PRINT " ";CHR$ (A(6));" ";CHR$ (A(5));" ";CHR$ (A(4))
 170 PRINT "  ";CHR$ (A(3));" ";CHR$ (A(2))
 180 PRINT "   ";CHR$ (A(1))
 190 PRINT 
 200 PRINT 
 210 PRINT "SCORE THIS FRAME ";Z
 220 IF E=1 AND Z=10 THEN GOTO 370
 230 IF Z>9 THEN LET Z=15
 235 IF Z>9 THEN GOSUB 500
 240 IF E=2 THEN LET S=S+Z
 250 PRINT "SCORE SO FAR ";S
 260 INPUT U$
 280 NEXT E
 290 NEXT B
 300 PRINT "SCORE FOR THAT GAME WAS ";S
 310 IF S<Y THEN GOTO 330
 320 LET Y=S
 330 PRINT "HIGHEST SCORE SO FAR ";Y
 340 INPUT U$
 350 CLS 
 360 GOTO 30
 370 CLS 
 390 FOR R=1 TO 200
 400 NEXT R
 410 LET S=S+15
 420 LET E=2
 430 CLS 
 440 GOTO 230
 500 PRINT "STRIKE"
 510 RETURN 
 520 CLEAR 
 530 SAVE "1031%5"
 540 RUN