Sharp PC-1500 - Page 199

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TYPING
EXERCISES
P ROG RAM NO.
2
TITLE
PS -F-1
I Pr ogr am List I
I
Memory Co ntenu J
J0: "Z":C LEAR
:CLS
A
:0111A$<5>,8$(
5> : RANDOM
B
No. of typed lcctcrs
JS: INPUT
"GR ADE CJ
c
, 2, 3>?"; L
Ji': IF
<L= l >+ CL =2) D
+(L= 3> <>JTI-IEN
E
N o. of typed letters
JS
20:
"A ": IJ AI T
0: P=0
F
: PAUSE
"HJ Gf-1- S
G
CORE=";X
30:FOR S=JTO
J0
H
40 :8= RNO 4+2:Y$="
I
": R= I NT ( 8/2)
5 0: FOR C =0TO
8- I:
J
B$CC>=' "'
K
60:0= RNO 26:A$(C)
=CHR $
(0 +& 40) :
L Grade
Y$=Y$+CHR$ (0 ..
M
&40):NEXT
c
?0:CLS : BEE P 3:
N
P RINT Y$:
0
CU RSOR 10:E =0
B0!FOR W=J TO
Btl0
p
Score
t L:B$CE >=
No. of correctly typed
JN KEY$ : IF B$(
a
le tt ers
E>= ""TH EN
100
SS:
PRINT
8$ (£);
R
90: E=E+ J: IF
E=B
s No. of exercises
LET IJ=400
J0 0:NEX T IJ:Q =0
T
JI 0: FO R IJ=0 TO
8- J:
u
IF A$(1J)=8$(1J)
LE T
Q= Q +J
v
J20: NE XT W: I F Q( =R
w Time
THEN
J50
I 30: IF Q= BL ET
P=P+ x Highest score
10:6 0 TO
J50
Letter string of an e x·
J40:P =P+S
y
l5 0: N EXT S:CLS :
e rcis c
BE EP
3: PA US E
"
YOUR-SCO R E= " ;P
z
J 60: IF P >XLET
X=P :
Y$
Letter string of an
P RINT "YOU R SC
exercise
ORE
IS BEST"
l ?0: IJA I T
:PRINT
:
A$(5
Randomly generated
E NO
letters
8$( 5) Typed letters
STA TU S I
505
Do not saTe this 1-' IJFT!T
- 193 -