Sharp PC-1500 Applications Manual page 220

All 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~PUT
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
520; IF
£$(])=8$
0
$ (])
GOTO
540
E
280;NEXT
1
530 :K=K+J: GOTO 4B0
290 : ENO
5 40 :K=0: JF S= l GOTO F
300: "F" : CLS ; INP UT
460
G
"SGQ./RN0.9($/ 550 : N£ XT
l
R)"; A$
560:CLS :WAJ T 60:
H
310:
! F
(A$="S " >+<A
PRJNT
" TABLE
E
I
.,/
$ ="R">< >JGOTO
NO" : END
J
300
570 : "G"; JNPUT " CLO
320:5=0: !F
A S ·~" R"
AD/CSAUE?<L/SJ
K
.,/
LET S= J
I• ;
A$
L
330:END
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 regiotered
350:FOR
J= 0TO N -J
600:CLEAR
0
.360: CLS :PR JNT £$ (
6Hl : INP UT
ll "F-N M E
p
J ) ;
MORY"; N:OJM
£$
370: INPUT
"
··--Y/N?
( l~-J),
J$(N-J J
a
" ;A$:GOTO .390
620: JNPUT
11" F- N
ME
R
380 : ENO
MOR Y" ;£$(* ), J$
Sequential/ Random
390:
IF
(A$= "Y"J+(A
<*l
s
$ =" N"> <> JGOT O
530:ENO
Extraction Flag.
370
fi40:PR1NT 11 "F- N ME
T
400; l F AS= " Y" GOTO
MORY " ;N
u
420
650:PR JNT ll "F-N M E
4J0: CLS : WA 11
. MORY";£$(*),J$
v
PR JNT J
$ (
J )
(*)
w
420 :WAJ T
~:IF
S=l
650:END
GOTO 345
x
430 : NEX T J
y
440: CLS . : WA J T
60:
z
PRJ NT
" TABL E
E
NO " :END
STATUS 1
A$
.,/
4 50: "8 " : WA J T
0
134.7
JS
Native \\'onl Rcgistralion
460 : IF S= JLET
I -~
(N- 1)
Table
RNO
N:J "'J - 1:
GOTO 4.75
ES
t\
1
ative \V ord RcgistrJtion
4.70 :FOR
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 !!! - 214-