Table of Contents
Advertisement
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
RESUME
SO'!<•
5
2
80
5290
6000
6('10
R~l"l
----·--
-
·-
-
-
-
· --
-
- -
- - - - -
-
-
-· -
1
.£
v
Jl.lPUl
PROCESS
CURSOR
1
,
·1
:2
:
PR JN
I
Yt>;
6(,1
2(> X
l
=
l
0
030
CURSOR 1,
YL-4·
Jt
F·r<l,t-Jr
SF'i-' 1
Cf f,(
X1
-
·
1
);""
";SPACE$\Vl
-·
X
l
+
t;;
6
0:$
1 CURSOR X
1,
'f2
6040 GET
XS: l
F
>:S='"'
!'HEN
004
0
6
0
41
x
o
~As
ccx•i
60:30
l f
X0(
3
(t
IHEN
6 J(t0
6060 Yt>=l"ll
0'$( YS, J,Xt
--
1>
•
X'l
·t<1'1l
0
'1-
<Y'
J ., Xl
••
J,
·,
1
...
i..l
•l
>
:PRJNT
'.a:$
:
bV70
Xl=X
1
+1
6(18(
>
IF
XJ
>
YJ
THEi
i
.>:
JeY
I
6(190
GOTO
6 030
6100
I
F
X
fJi::
13
TS.tE'r.J
Q2 S!'.>
lil
1U
I
F
8
<
XO
THEr>f b
0
3
(
•
6 120 XO=-XO-+-
t
:DN
XO
G0 10
6 031
)
,603-o
,6(>3
(>
,
6
1::.<1
.
•
6
15t.'
.
6
0;::.o
.
c
1
7v
,
o
19
o,o'22
t
>
6 130
IF
X
l
=Y
l
'l'HEN
6
(
t'.$(J
614(
> Xl
=
Xl+-t:
GO
TO b03(>
61
50
l
F
Xl
;;;:;
l
·r1~EN
6
(
•:S•J
616<•
>'.t
=
x1
-
1
:
Goro
603v
6170
'f
t.
~
s1:·
AC
Es
<
Y
l
J
:
:<
l
..:
I
:
CllRSOf.: 1
, y
:z:
F'P.
1 fl
T
·ti:
6180
130 10
6(>3(J
61
90
l
F X1
=
1
'l
llE
I ·~
61,.i::_
;
'J
6'..!0V
y$
=
Ml
tif.
\
·
;
1.
.
,
l,
A
l
·Li
11
·11
0
'
i <Y'l>,Xl,
'f
!
XJ
t- 11+
"
":
X
J
=(
J
-
1
6
2 10
cur~SQf.;
i '
'12
:
PJ.:
I
N
'
l
Y
$; :
GOTO
6030
&:l2
v
IF
X
l
=Y
l
l
f
iEN
<.>(
)
.,:.c.
6
230
'
f
S =MIDt.(YS, J,
X
1-
1
)
<t•
"
'"t-Ml
0
SC
Y·'5 .. Y.1
,
'I
!
X
l
1
.:>2
4
C
• CURSOR
1
,
y:,.:
:
PRIM
I
\' ~l•
;;
UU
I
0 6031)
6
2
50
CURSOR
1,
Y
.2+-1
:
P
R
[l·t
l
SPAC€1i
C
Y
1
•
1
)
;
6'::60
RE
flJF\t•
J
Memory
contents
A
OAYA
IN PUT
At)0RE$S
XI
N
UMBER
OF INPUT
<;H.t.RACTE.A
B
J
XO
INPU
T
!)Ar.A COC>f
c
I
YI
ALLOWC
D
NUMBER
OF
CHARA.
C
f
F
.
NS
0
J
Y2
IN
P01
r OIN T(YI
E
J
CH(100)
C
HAIN
F
J
N(200)
OAT A
01'.
LIN(
NO
H
J
MS(100)
DATA
or
PROGRAM
STAlt'M~;
Nr
J
J
K
J
M
I
N
J
T
J
u
OAT.\ END
ADORE.SS
AS
DATA
REA()
IN
cs
J
FS
F
I
LE
NAME
XS
KEY
1Nr>Ul
OATA
YS
lti'IJl
OAlA
ER
fLAG
FOR ERFl¢R
Do
not
sell
this PDF
!!!
93
Advertisement
Table of Contents
