Bowling Alley

   5 REM "BOWLING ALLEY"
  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 "FRAME";B,"BALL";CHR$ (E+156)
  70 PRINT 
  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)=23
 130 IF A(C)=23 THEN LET Z=Z+1
 140 NEXT C
 150 PRINT TAB 8;CHR$ A(10);" ";CHR$ A(9);" ";CHR$ A(8);" ";CHR$ A(7)
 160 PRINT TAB 9;CHR$ A(6);" ";CHR$ A(5);" ";CHR$ A(4)
 170 PRINT TAB 10;CHR$ A(3);" ";CHR$ A(2)
 180 PRINT TAB 11;CHR$ A(1)
 190 PRINT ,,,,"SCORE THIS FRAME IS ";Z
 220 IF E=1 AND Z=10 THEN GOTO 370
 230 IF Z>9 THEN LET Z=15
 240 IF E=2 THEN LET S=S+1
 250 PRINT "SCORE SO FAR ";S,,"PRESS N/L FOR NEXT BALL"
 260 IF INKEY$<>CHR$ 118 THEN GOTO 260
 270 CLS 
 280 NEXT E
 290 NEXT B
 300 PRINT "SCORE THAT WAS ";S
 310 IF S<Y THEN GOTO 330
 320 LET Y=S
 330 PRINT "HIGHEST SCORE SO FAR"
 340 PRINT 
 350 GOTO 30
 370 PRINT "STRIKE"
 380 LET E=2
 390 LET S=3+15
 400 GOTO 230
 410 SAVE "1023%1"
 420 RUN