16 Pin Bowling

Sixteen pins appear at the top of the screen for Bowling and the ball at the bottom. Use keys 5 and 8 to line up the two and press key 0 to bowl. The ball will be deflected by impact with the pins and thus make your task more difficult. For every pin hit you will add one to your score; the score is printed after eight balls and the game ends (1K).

1 LET Q=CODE ""
2 LET S=Q
3 LET C=Q
4 LET M=CODE "(graphic 1)"
5 FOR B=M TO CODE "(graphic 4)"
6 FOR A=M+C TO CODE "(graphic E)"-C
7 PRINT AT B,A;"T"
8 NEXT A
9 LET C=C+M
10 NEXT B
11 LET X=CODE "(graphic 7)"
20 LET F=M
25 LET Y=CODE "?"
30 LET X=X + (INKEY$="8" AND X<CODE "(graphic 1)")-(INKEY$="5" AND X>CODE "")
35 PRINT AT Y,X;" O "
40 IF F>CODE "(graphic E)" THEN GOTO CODE "(graphic -)"
45 IF INKEY$="0" THEN GOSUB CODE "W"
50 GOTO CODE ";"
60 PRINT AT Y,X+M;
65 IF PEEK (PEEK 16398 + VAL "256" * PEEK 16399) - CODE "T" THEN LET Q=Q+M
70 PRINT AT Y,X+M; "O";AT Y,X+M; "(inverse O)"; AT Y,X+M;" "
75 LET Y=Y-M
80 IF Y=M-M THEN LET F=F+M
90 IF Q>S AND RND<VAL ".5" THEN LET X=X-M
95 IF Q>S AND RND>VAL ".6" THEN LET X=X+M
100 LET S=Q
110 IF Y=Y-M THEN RETURN
120 GOTO CODE "W"
150 PRINT Q