"Bowling" for Sharp PC-1500
 Hebdogiciel, Shift editions.
Author : Charles Carron
Published in Hebdogiciel #13 (January 1984).
BASIC program - 1295 bytes.

CLOAD "BOWLING"
DEF A  or  RUN

Keys:
SPACE to drop the ball.

----- BASIC program -----------------------------------------
1 "BOWLING"
2 "d/apres Hebdogiciel 13
3 "SPACE: lancer la boule.
5 "A"CLEAR :RANDOM :WAIT 0:CLS 
7 FOR L=1TO 5:T=0
10 A=1,B=4,C=16,D=64,E=2,F=8,G=32,H=4,I=16,J=8
20 GOSUB 700:K=1
25 GCURSOR 0:GPRINT 0;W,X,Y,Z;0:CURSOR 10:PRINT "round ";STR$ L;"/5";"  S-";STR$ P
30 K=K*2:GCURSOR 50:GPRINT K:A$=INKEY$ :IF A$=" "GOTO 100
40 IF K=64GOTO 60
50 GOTO 30
60 K=K/2:GCURSOR 50:GPRINT K:A$=INKEY$ :IF A$=" "GOTO 100
70 IF K=1GOTO 30
80 GOTO 60
100 T=T+1:FOR M=50TO 7STEP -1:GCURSOR M:GPRINT K;0:BEEP 1,50,1:NEXT M
110 GCURSOR 0:GPRINT 127;127-W;127;127-X;127;127-Y;127-K;127-Z;127
120 BEEP 3,10,10:GOSUB 200:GOSUB 400
130 IF T=2WAIT 10:FOR M=1TO 5:CURSOR 23:PRINT "   ":CURSOR 23:PRINT STR$ P:NEXT M:WAIT 0:NEXT L:GOTO 800
140 GOTO 20
200 IF RND 3=2GOTO 280
210 IF K=1LET A=0
220 IF K=2LET A=0,B=0
230 IF K=4LET A=0,B=0,C=0,D=0,E=0,F=0,H=0
240 IF K=8LET F=0,H=0,I=0,J=0
250 IF K=16LET A=0,B=0,C=0,D=0,F=0,G=0,I=0
260 IF K=32LET C=0,D=0,G=0
270 IF K=64LET D=0
275 RETURN 
280 IF K=2LET A=0,B=0,E=0
290 IF K=2LET A=0,B=0,C=0,E=0,F=0,H=0
300 IF K=4LET A=0,B=0,C=0,D=0,E=0,F=0,G=0,H=0,I=0
310 IF K=8LET A=0,B=0,C=0,D=0,E=0,F=0,G=0,H=0,I=0,J=0
320 IF K=16LET A=0,B=0,C=0,D=0,E=0,F=0,G=0,H=0,I=0
330 IF K=32LET B=0,C=0,D=0,F=0,G=0
340 IF K=64LET C=0,D=0,G=0
350 RETURN 
400 IF T=1GOSUB 500:RETURN 
410 IF T=2GOSUB 600:RETURN 
500 N=0:FOR Q=1TO 10:IF @(Q)=0LET N=N+1
510 NEXT Q
520 IF N=10CURSOR 0:PAUSE "-STRIKE-":P=P+50,T=2:CURSOR 0:PRINT "        "
530 RETURN 
600 V=0:FOR Q=1TO 10:IF @(Q)=0LET V=V+1
610 NEXT Q
620 GOSUB 700:GCURSOR 0:GPRINT 0;W,X,Y,Z;0
640 IF V=10LET P=P+25:RETURN 
650 P=P+V:RETURN 
700 W=A+B+C+D,X=E+F+G,Y=H+I,Z=J
710 RETURN 
800 WAIT :PRINT "Score final :";P
810 END
