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
