Sharp PC-1500 - Page 219

A ll and more about Sharp PC -1 500 at http://www. PC - 1500 . in fo
PROGRAM
WORD MEMORY
PROGRAM NO.
4
T I T LE
PS -F- 7
Step N o. Input
Di•play
Remarks
-'>
IT)
3 I ENTE R I
MOONLIGHT · · · Y/ N"/
Pressing this key di sp l ays
the next Englis h word
1
l§FJ CD
SEQ ./RND. "' (S I R)
Designa t es sequent i al ex:-
2
s I EN TER I
tracti on .
OR
R I E '!" E• J
Des i gnat e random ex-
traction
1 JD£Fj [I]
CLOAD/CSAVE? (L /S)
2
L L ~
Load the data from the
cassette tape
OR s I ENTER I
Save t he dat a to t he ca ssette
tape
.
..
Print out English and
1
Jou! [EJ
Japa n ese words registered in
this pro gram.
( Program List I
5 : " C": WA I T 0: CLS 90 : AS= '' N . L ANG. ('' 4
200 : CL S : IF CAS=" Y
1 0: JNPUT
"E NTRY
/
ST RS
(]+] ) -+ " )=
'' )+ CA$=" N" l < l l
U P-DAT E ?<E /UJ
"
GOTO l 80
.. ; A$
100 : C LS :P Rl NT AS ;
210: I F AS =" N" GO TO
20 : ! F CAS= " E" J+<A I J0 : JNP UT
J $ ( J )
1 50
$ :: '' U ") < > J GO TO
J20:NEX T
J
220; I NPUT
"F. L ANG.
J0
13 0 :P AUSE
"ENTRY E
= " ;E S<A-ll
30: IF AS="U"GOTO
ND"
230: 1 NP UT
"N. L A NG .
J 50 140: £ND
=";JS(A-l)
40 : CLE AR : J N PU T
"
150: INPU T
" UP
·-DATE
2 40 : GOTO 15 0
N= " ;N :OJM
£$(N
NO. -" " ; A: GO T 0
250: " D":FOR J=0 TO
-
J), J $(N- J )
170
N-1
50 : FQR J= 0TO N- 1 J60:END
60: A$ =' 'F.LANG . ( ' '+ l ? 0: IF
A>NPA USE
" T
STR$ ( J + J )+ " >=
ABLE OUER·-FL OW
(To be c ontinued)
"
.
" : END
?0 : C LS :PRI NT AS;
1 80:C L S : PR I NT
[ $ (
80 : .IN P UT
£$ ( J) ;
A·- I ) ;
GO
TO 90 19 0: I NPU T
"
CHANGE
BS : C
LS : ENO ?CY, Nl" ;A$
Do not sale this PDF !!!
-213 -