### Appears on

Assembled by Tim Ward from many sources. Contains programs 10294-10335.

### 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