Sharp PC-1500 Applications Manual page 199

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TYPING EXERCI
SES
PROG RAM NO .
2
TITLE
PS-F-1
I
Program
List
I
I
Memory Contenu
J
J0: "Z":CLEAR :CLS
A
:0111A$<5>,8$(
5> :
RANDOM
B
No. of typed lcctcrs
JS: INPUT
"GRADE CJ
c
, 2, 3>? " ; L
Ji': IF <L=
l >+ CL =2)
D
+(L =3> <>JTI-IEN
E
No. of typed letter s
JS
20: "A ": IJAI 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= INT ( 8/2)
50: 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 : BEEP 3 :
N
PRINT Y $:
0
CURSOR 10:E=0
B0!FOR W =J TO
Btl0
p
Score
t L:B$ CE>=
No. of correctly typed
JN KEY$ : IF B$ (
a
letters
E>= ""THEN
100
SS: PRINT
8$
(£);
R
90 : E=E+ J: IF E=B
s
No. of exercises
LET IJ=400
J00:NEXT IJ:Q=0
T
JI 0: FOR IJ=0 TO
8- J:
u
IF A$(1J)=8$(1J)
LE
T Q=Q+J
v
J20: N EXT
W: I F
Q( =R
w
Time
THEN
J50
I 30: IF Q= BLET
P=P+
x
Highest score
10:60TO
J50
Letter string of an e x·
J40:P=P+S
y
l 50: N EXT S:CLS
:
ercisc
BEEP 3: PAUSE
"
YOUR-SCORE= " ;P
z
J
60:
IF
P >XLET
X=P :
Y$
Letter string of an
PRINT "YOUR SC
exercise
ORE
IS BEST"
l ?0: IJA I T
:PRINT
:
A$(5
Randomly generated
ENO
letters
8$(5)
Typed letters
STATUS I
505
Do not saTe this
1-'IJFT!T
- 193 -