Sharp PC-1500 - Page 220

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
WORD MEMORY
PROGRAM NO.
5
T I TL E
PS - F- 7
[ Program List I
[ Memory Contents I
255: 1 F E $(J)= " "
490; l l~ P UT
A$: GOTO
GOTO
2B0
5 10
A
Modification No.
260 : LPRJ NT <STR$
(
500:END
B
] +])+ " ">;E$(J
5J0 :B$=MJO$
(£ $(])
)
, J, K )+A$
c
270:LPRJNT
"
" ; J
5 20; IF
£ $(])=8$
0
$ (])
GOTO
540
E
280;N E XT
1
530 :K=K+J: GOTO
4B 0
290 : ENO
5 40 :K = 0: JF S= l GOTO
F
300: " F" : CLS ; INP UT
460
G
"S GQ./RN 0.9($/
550 : N£ XT l
R)"; A$
560:CLS
:WAJ T 60:
H
310: ! F (A$="S" >+<A
PRJ NT
" TA BLE
E
I
.,/
$="R">< >JG OT O
NO" :E
ND
J
300
570 : "G"; JNPUT " CL O
320:5=0: !F A S · ~" R"
AD/CSAUE?<L/SJ
K .,/
L ET S=J
I•; A$
L
330:EN D
5
80: J F
(A$="L'' l+ (A
340:"A ": WA JT
0
$="S " ><>JGO TO
M
345 : IF
S=J LET
J ., 570 Number of pairs to
RNO
N: J . - ~ J-J:
590 : IF
A$ ="S"GOTO
N
GO TO
360
640
be regi ote re d
350:FOR
J=0TO N
-J
600:CLEAR
0
.360: C LS :PR J NT
£$ (
6Hl : I NP UT
ll "F-N ME
p
J ) ;
MORY"; N:OJM
£$
370: INP UT
"
· ·--Y/N?
( l ~-J), J$(N-J J
a
" ;A$:GOTO
.390
620: J NP UT
11" F- N
ME R
380 : ENO
MOR Y" ;£$(* ), J$
Sequential/Random
390: IF (A$= "Y"J+(A
<*l
s
$="N"> <> JG OT O
530:ENO
Extraction Flag.
370
fi40:PR1NT 11 "F- N ME
T
4 00; l F AS= " Y" G OTO
MORY " ;N
u
420
650:PR J NT ll " F-N ME
4J0: CLS : WA 11
.
MORY";£$(*),J$
v
PR JNT
J $ ( J )
(*)
w
4 20 :W AJT ~:IF
S=l
650:END
GOTO 345
x
430 : NEX T
J
y
440: CLS .: WA J T
60:
z
PRJ NT
"T ABL E
E
NO " :END
STATUS
1
A$ .,/
4 50: "8 " : WA J T
0
134.7
JS
Nati ve \\ ' onl Rcgistrali on
460 : IF S=JLET
I - ~
(N - 1)
Ta b le
RN O
N:J "'J - 1:
G OTO 4.75
ES
t\
1
ati ve \V ord RcgistrJ tio n
4.7 0 :F OR
l=0TO N-1
(N- 1
Table
47. 5; K=0
480: CLS ; PR JN T J$(
J ) ; " " ;MJO$ (£
$(JJ, J, KJ;
Do not sale this PDF !!!
- 21 4-