Sharp PC-1500 Anwenderhandbuch Seite 182

PROGRAMMNAME
[ Programmlisting ]
10: "A": CLEAR :DIM
Z2$C1)K16
15: U=@8: 2$¢1)="KEI
NE GEWINNER™
26: INPUT "ANZAHL
th SPIELER ="
38: ne BSCN-1), Xl
(N-1, 4), C16)
4@:FOR A=1T0 N
5@: INPUT "NAME?";
BS¢A-1): GOTO ?
B
§68:N=A-1: END
7O@:NEXT A
73: END
98:"B":FOR A=1TO
"Bre
~190:FOR B=1TO 5
116:X1¢A-1, B-1)=6 ©
128:NEXT B
. 130:NEXT AD
148:FOR A=1TO N
15@:PAUSE USING "& ~
BR&&88" 5 BSCA-1
?
160: INPUT "WETTEN |
SIE?PCY/NI "3 AS;
GOTO 188
178: GOTO 289
188: IF A$="N"GOTO
268
196:FOR B=1iTO 5
208: INPUT ""KOMBINA
TION ="30:GOTO
224
218:GOTO 268
228: INPUT "EINSATZ
PUNKT ¢€1-9)"3E
230: X1¢A-1, B-1)=D+
E/1@
248:NEXT B
268:NEXT A
280:WAIT @:CLS
285:FOR L=I1TO 7?
298:C1¢L-1)=@
3B6@:NEXT L
320: GCURSOR 8@:
GPRINT &FF;883
3&@]
34@: X=993
35@:L=RND 7-1: 1F L
=*GOTO 3598
MOTORBOOTRENNEN
353: oe 26L:P=RND 2+
355: GCURSOR CC1CL)
+1)
369:FOR I= =C1CL41
TO Ci¢Ld+P:di=
POINT IOR E:
GPRINT Q13:
NEXT I-
365: Ci¢LI=C1i¢L+P
396: 1F C1¢L)><8@
GOTO 358
400: BEEP 1, 94,50:
BEEP 1, 78, 58
442: BEEP 1, 158, 9@:
BEEP 1, 158, 1a@@
494: BEEP 1, 58, 62:
BEEP 1, 258, 158
L:GOTO 358
420: Y=L+1:Xsxk+] —
490: WAIT 1@@: USING
>CURSOR
15:
PRINT Xj3"="%;
STR$ ¥
50: S=1OXX+Y: J=10x :
Y+X
919: 2=8:61=8:D1=2
928:FOR A=1TO N
334: D=8: G=9
94@8:FOR B=1TO 5
538:L=INT ¢(X1¢A-I,
B-1)>
368: G=(Xi CA-1, B-1)
*1@-L*1a)
274: 1F L=SGOTO 618
588: IF L=jJGOTO 619
336: G=G+4:G1=G61+9
608:GOTO 628
614:01=D1+@:D=D+a
628:NEXT B
630: X1¢A-1, 1)=G:x1
CA-1, 2)=D
646: 2=2+6+D
§58:NEXT A
666: IF Dl=@GoOTo 69
8
678: kK=(U+Z)-D1:U=8
6735:LPRINT "2UGETE
ILTE QUOTE":
LPRINT "
USING ""##HH' SK
688: COTO 7198
— 116 —
STATUS 1
PROGRAMM-NR. .
PS5—E—2
698:PAUSE USING "&
RERRRELEEREREE
"SZ8C1)
71@:FOR F=1TO N 7
728: A=F-!
730: D=X1(A, 2)*K-X1.
CA; 1)-X1¢A, 2) -
74Q:LPRINT USING ":
BS SERRR" 3 BSCAD
75@:LPRINT "GEWINN
"S"="SUSING "#8.
#H#"53D :
78Q:NEXT F
73@:LF 2:END
12935