Sharp PC-1500 Anwenderhandbuch Seite 199

108:
112:
128:
138:
148:
15a:
168:
178:
1g:
see
VP:
28:
38:
48:
58:
62:
STATUS 1
[ Programmlisting ]
"2"SCLEAR :CLS
:DIM A$(5), BSC
5): RANDOM
INPUT "GRADCE,
23 310" 51.
IF (€L=1)4+¢€L=2)
+¢(€L=3)<>1THEN
15
"A'NSWAIT B:P=8
:PAUSE ""HOECHS
T PUKTZAHL="5%
FOR S=l1TO 198
B=RND 442: Y$="
"SR=INT (B72)
FOR Ca8TO B-1:
BS$¢Cjpa""
DN=RND 26: A$¢C)
=CHR$ (D+840):
Y$=Y$+CHR$ (D+
&4Q):NEXT C
:CLS :BEEP 3:
PRINT Y$:
CURSOR 10:£=@
>FOR W=!TO B*18
*L*BSCED=
INKEY$ : IF BS¢
E.=""THEN 188
:PRINT BSCE);
tE=E+1:1F E=B
LET W=42898
NEXT W: Q@=8
FOR W=8TO B-1:
IF A$CWI=BS CW)
LET 9=Q+1
NEXT W:1F Q<=R
THEN 158
IF Q=BLET P=P+
1@:GOTO 156
P=P+5
NEXT S:CLS :
BEEP 3:PAUSE "
THRE PUNKTZAHL
star
IF POXLET X=P;
PRINT "BESTMOE
GLICHE PUNKTZA
Hp!
WAIT :PRINT :
END
PROGRAMMN-NR.
P5—F_1
2
[ Speicherinhalt |
Anzahl der geschrie-
BS benen Buchstaben
i ae
Anzahl der geschrie-
benen Buchstaben
Ee ee
fe ee
aes
Ee ee!
2
aa
a
Anzahl der richtig
geschriebenen
Buchstaben
Xx ochstmégliche
Punktzahl
Zeichen-String einer
Buchstaben gemah
Zufallsgenerierung
Geschriebene
BS(5) Buchstaben