Table of Contents
Advertisement
All
and
more about
Sharp PC-1500
at
http://www.PC-1500.info
21
30
F•AtA•
CHCA)
: GOl
O 2
11
0
2 140
£
•A
2 1SO
IF
N<A>
•
O
THEN
2:.1(10
2180 I
F
A•U
THEN
GOSUB
S020•
RE 1URN
2
190
A~CH<
lll
:
GOTO
2
150
2200
N
lE
>•-
1
22
10
I
F
E•A
fllEN 2'250
2220
E•CH
l~I
:GO IO 2
200
2230 CH<F>
•
CH(I\)
: I
F
A
~U
l
•te:r>J
u
~
F
22"'0
RETURN
2
4
0
0
REM
-
-
------
--------------
-------·---
LI
N~ NUM~EF<
SEAR
CH
2
41
0 A•T
2 42v
IF N(
A
>
•
It
1
llEN
2
4
5
l)
2 430 IF
A•
U
f jt£
N
.>=O
: RE lURI"
2 440
A•Ctl
l
A):GDTO
2 42
0
2 450 J oA:
RE
'JURN
2500
RE
M
···-------------
---------- ·- •••
NUl.
L
L
!NE
SEllRCH
25 10
fl
~
t
2~20
l
F
N
(
,,
\ >
· -
J l't-iEN .)
=A
: RE·ruRIJ
2530
I
F A•.200
THEN
.);;;;()
: P.EflJP.N
i~
4
0
A•A•l
r
GOTO
~520
2b
00
REM
-
------------------
-
----
-
-------
SORT PROCESS
24 10
A
•
H
:a:•
T
:
IF T
=
O
THEr-J
T=A: u-A:
RETUIU'
26
20
I
F N<Al
(
Nl8>
lHEN
26
70
2630
I
F
D•
U THEN
2b60
Zb4
0
C•
D: O•
Ct_.
<
B
>
26:;0
0010
26
20
266'0 U•A
: CHClJ)e.A:
RElURN
2b
70 JF O•T f
HEN
26?V
2
6
8U
Cli
CC) •
A: CH
< A
)
=
B
:
RETURN
2
690
l
•
A
: CH<A
>~8
:2700 Rli
I
URt.I
2
8
0
0
~EM
-
-
-- ----- -
--
-
-
-
-
-
-
-------------
-
t(I
LL
PROCESS
28
10
F
• •H
JD
~
<
Y
~
,
1
,6
)
2
0
2(•
DE
L
E TE.
FD
l
F
f.
26
30
RE'fURN
2
9
00
REH
---·------
------
-
-
·-·~·· -- ---
------
CllAIN
DUI
PROCE
SS
2
9
10 ,...
,.
I
F
N
(
/
'
)
•
H
l'HE:N
29b
0
IF A
•
U JJ1£l'4
STOP
B• AIA•CHCA}
GO
TO
29'..!0
l
F
A•
l
l•tEN
3020
l
f AMU
fHEN
~
N<l•
>•-
1 :
CH(l))u(,_.H,A>
RETURN
.
U•O:l.,
CAJ
•
-
1
RETURN
I
F AaU
lt1EN
304
0
l•CH
(
A)
IN
(
A)&-
J
:
REtURN
l•
O:
U•O
t
RE
IURN
llEM
----------
-
-
-
-----
- ------ --
EHllOR
PRDCfSS
ER•<.lt Cl.J
RSOR
40
,
Ci
:
PR
IN
'
l
. . .
co111•1
f1ND
cr.:ROR
i
ERl!!IQSC:·
U RSOR 4
0
, \.t: F'H
l
t•l
r
•
IJNOFF
rf.IFf)
I
!
Ml
.•
ER"'O
i
CURSOf<
4
.:,-
, , f)
:
f
·AIN
T
"
t
.
,,:J
Lt
NI
JI
FOl
lllllJ
t
E
f~
•O
it.
UH
SOR
4
0
,
(
•:
f'f<
l
l·J
I
.t:
F
i
l.E FXR
Tri1'
.t
ER•v
:
Cl lf<SOR
•lO
.
V:PR
I
NT
..
.
P
H
tr·J
l
t
l<
ERR Oi
~
•
E R•V
:
CURSIJI;>
4
0
,
0
:
P
Ri
f'll
T
••
*
OIJf.r
cn
F'Ul
L
'
Ek
~
v
: cun sor<
4
0
.
0
:
P
R
IMT
..
.
L Af<G(.
L
J
M
E
NllN
[~
ER
.
•
t.l<"
U: t;URSDR 40
.
o:
PR I
NT
..
•
';'
crmor<
•
Xfi
M"A" 1
MUS
I
L:
~
·L
GE
T
X•
1 I
F
~
..
..,
..
..
IH€N
ti
t
J
IJ
CURSOR 40
.
v
:
Pl<
I
NI ••
I
F
ER•
O
l•tEN RE TLIRN
ER•O
:0010 20<1
..
'
6
0
1
0
··
'
Goro
..
,
GOTO
.
··,
con;
"
:
GO
ro
"
:
GO
TO
"
:
GO'r
o
..
,
GOI
U
2V2(J
2930
2 940
2950
2 96()
2
9
7()
2900
2990
3
000
30 10
3020
3030
3\,q
()
5000
50
I
()
5020
5
03(>
5 040
50~0
svoo
5V7V
5090
5
1(.0
S
J
JO
5J
Z\..•
Sl30
51
41)
S20V
5
2
10
5220
5230
5
2
4
0
REM
-
·
------
-----
ERld)f(
r )
1.au
PfCOCESS
Ef{•
I
I
F
ERN•
4
v
lllEN Rl:.51N1E 5
03•.•
IF
ERN
•
•I
:~
ltt[t<I
f<t=.S
UHE.
5
0 40
l
F
\b•1(
E
R'r.i
>
t
\El~
'N<.
oUi
tl-<IE
!'.I 1-
i
ESl Jl'l
F
~•.'!,,t)
92
Do
not
sell
this
PDF
!!!
5
1
C
•o..i
5
10\•
3
l
C
•tJ
~
1
0
(>
5 10(,
5
1
C
•O
5
1()0
S
J
1Ji'.'i
Advertisement
Table of Contents
