Sharp PC-1500 Applications Manual page 182

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
T I T
LE
BOAT RAC E
( Pr ogram List ]
10 : "A'": CLEAR : OJM
ZS() )fJ6
15: U=0 :ZS<l) ='"NO
WJNNERS"
20: INPUT "NO.
OF
PLAYERS="iN
30: 01M Bt<N-J),XJ
<N-J, 4), CJ (6)
40 : FOR A=
I
TO N
50 : INPUT "NAME?";
Bt (A-D: GOTO
?
0
60: N=A- J:E:NO
?0: NEXT A
?S:ENO
90:"B":FOR A•JTO
N
J00:FOR B=JTO S
l l t 0 : XI <A- 1, 8- l )=0
12.0:NEXT
B
130:NEXT A
l40:FOR A=ITO N
J50:PAUSE USJNG "&
&&&&&&";Bt <A-1
)
160:
INPUT
" DO YOIJ
BET?<Y, N)";At:
GOTO 180
1?0:GOTO 280
180: IF At="N"GOTO
260
19 0:FQR B=JTO 5
200: INPUT "COMBINA
TlON•"; O:GQTO
220
2J0:GOTO 260
220: INPUT "BET PO!
NT(J -9)" iE
230:X l(A- l
1
8-J) =0+
E/ I 0
240:NEXT B
250:NEXT A
280: WA IT 0: CLS
285: FOR L= ITO
7
290:C l<L- J> =0
300:N[X T L
320: GCURSOR 80:
GPRIN T
&FF;&03
; 8.01
340: X=999
Do not sale this PDF !!!
350: L=RNO ?-J:IF L
=XGOTO 350
353:E•2AL:P=RNO 2+
J
35S:GCURSOR CCJCLJ
+ J
)
360: FOR l =CIC L> +l
TO CJ<L> .. P:QJ =
POINT JOR E:
GPR JNT QJ; :
NEXT
I
355:CJ <L> =CJ< Ll+P
390: IF CJ (L J<80
GOTO 350
400:BEEP J,90, 50:
BEEP J, ?0, 50
402:8EEP 1, 150,90:
BE EP J, 150, 100
404: BEEP J, 50, 60:
BEEP J, 250, J 50
410:
IF
X• 999LET X=
L:GOTO 350
420:Y=L+ J: X=X+J
490:WAIT l00:USJN6
:CURSOR JS:
PRJN T X;" ... '';
STRS Y
S00: S=J0fX+ Y:J=l0f
Y+X
SJ0:Z=0:Gl =0:01 =0
520: FOR A=
I
TO N
530:0=0:6=0
540: FOR B= I TO 5
550: L=INT <X J <A-1,
8-
I >)
560:Q=(XJ(A-J,B- J>
fl0-L t l0)
5?0:
!F
L=SGOTO 610
580: JF L=JGO TO 61 0
590:G• G+Q:G J=GJ•O
600:GOT O
620
5J0:0J =OJ+ Q:O=O+Q
620:NEXT B
630:X J<A-J, J> =G:XJ
(A - J,2>=0
640:Z =Z+G+O
650:NEX T A
-176-
PROG RAM NO.
P5-E-2
660 :
IF
01 =0GOTO 69
0
6?0: K=<U+Z)/OJ:U=0
6?5:LPRINT ''ALLCTN
RAT E";USJNG "
UMU ff''; K
680:GOTO ?10
690:PAUSE USJNG "&
&&&&&&&&&&&&&&
"; ZS ( I
>
?00:K=0:U=U+ Z
7J0:FOR F= ITO
N
720:A=F- J
730: 0=Xl(A,2> fK-XJ
(A, I
)-XI
(A, 2>
740:LPRJNT USJNG "
& & &&&& &"; Bt<A >
750: LPRJNT ''SCORE"
i
"" "iUSJNG
" MU
-~"
i
0
780:NEXT
F
790:
U'
2: ENO
STA TUS I
1257
3