Sharp PC-1500 - Page 182

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
T I T LE
BOAT RAC E
( Program
List ]
10 : "A'": CLEAR : OJM
ZS() )fJ6
1 5: U =0 :ZS<l) = '"NO
WJNN ERS"
2 0: INP UT "NO. OF
PLAYERS = "iN
3 0: 01M Bt<N-J),XJ
<N-J, 4), CJ (6)
40: FOR A= I TO N
50 : I NPUT "NAM E ?";
Bt (A-D: GOTO ?
0
6 0: 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 "&
&&&&&& ";B t <A-1
)
160: IN PUT " DO YOIJ
BET ?<Y, N)";At:
GOTO 180
1?0:GOTO 280
180: IF At=" N"GOTO
260
190:FQR B=JT O 5
200: IN PUT "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
24 0:N EXT B
250:NEXT A
280: WA IT 0: CLS
285: FOR L= ITO 7
290:C l<L- J> =0
300:N[XT L
320:
GCU RSOR 80:
GPRIN T &FF;&03
; 8.01
34 0: X=999
Do not sale this PDF !!!
350: L= RNO ?-J:IF L
= XGOTO 350
353:E• 2AL:P=RNO 2+
J
35S:GCU RSOR CCJCLJ
+ J )
36 0: FOR l =CIC L> +l
TO CJ<L> .. P:QJ=
POINT JOR E:
GPR JNT QJ; :
N
EXT I
355:CJ <L> =C J< Ll+P
390: IF CJ (L J<80
GOTO 350
400:BEEP J,90, 50 :
BEEP J, ?0, 50
402:8EEP 1, 15 0,90:
BE EP J, 15 0, 100
404: BEEP J, 50, 60:
B EEP J, 25 0, J 50
410: IF X• 999 LET X=
L:GOTO 350
420:Y=L+J: X
=X+J
490:WAIT l00:USJN6
:CURSOR JS:
PRJNT X;" ... '';
STRS Y
S00: S=J0 fX+ 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 -Lt l0)
5?0: !F L =S GOTO 610
580: JF L= JGO TO 61 0
590:G• G+Q:G J= G J•O
600:GOTO 62 0
5J0:0J = OJ+ Q :O=O +Q
620:NEXT B
630:XJ<A-J,
J> = G:XJ
(A - J,2>=0
640:Z =Z+G +O
650:NEXT A
-176-
PROG R AM NO .
P 5-E -2
66 0: IF 01 =0 GOTO 69
0
6 ?0: K=<U +Z)/OJ:U=0
6?5:LPRINT
''A LLCTN
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
73 0: 0=Xl(A,2>fK-XJ
(A, I )-XI (A, 2>
740:LPRJNT USJNG "
&&
&&& && "; Bt<A >
750: LP
RJNT ''S CORE "
i """iUS JNG " MU
-~" i 0
780:NEXT F
790: U' 2: EN O
STA TU S I
1257
3