Table of Contents
Advertisement
All and
more about
Sharp
PC-1500
at http:l/www.PC-1500.info
•
Program list
100
OI• ERROR GOTO
:;z
10
lh'.>
DIH
N(2(J(>l
,M
~
12w>.C
1t
1
:!(lo)
120
PRINT
CHRS<b)
l:SO
CONSOLE
cao
14-.>
CONSOLE
Su,
4
1
:s<•
r:·(JR
Aai
i
ro
20·)
11>0
tHA>
~
··
I
l
7
0
NEXT
A
2
00
N
;Q
:
y
1
=
6:
\'2=·
l
:
'
'lo
~HP
At:r
"
'
6}
;
...
R
J
t·l
l
CHk1-·
(
o->
2U
J
CURSOR
4o.
o
:
PR
!
Nl
..
..
L JMt. l'JUNBEk
/
Cl·IMAf,111.t
210 GOSUB
o
OVO
:
c•
~
v
~
:Z?O
I
F
Y~
=-
"
HIEN
GOSU!l
S• .' IV
,
GolO
~v·.•
2?
I
Aa
l
29~
tr
A
,
o
fHEtJ
300
293 flr.-A.SC<M
JO'!o
t
It.
,._..
I '
J
zq.q
1r
\
4
7·
B>
'
\is
,
~a>
1111:r.i
.....
A-.-1
=6010
.._9-;.
JO(l
l
•
l
l•
f
ftVAL
\LEF-l
'S
{r't>,
A
··
l
i)l
SO
I
r
F
.,~
)(H)
(~(•
IHE
t~
C30SULC
5070:
Go
·10
.ti..•
(•
302
IF
v.
~.o
rt-iEN
GOS,JB
5020
t
GOfO
2<•<•
-
3
1t.>
IF
1
::..-.0
Ta.tEr.r
3
bt.i
:s2v
H=-•<:
Gosua
2400
33<>
I
F
J=l)
rHt:.r"
1-J
~
1
:e,,oro
,(,:_,o
~
4
\.J
t1c
J:
'i'S=M'f>
(
M)
:
GO
ro
~?V
l50
GCJSua 2SO<J :M=J:
If-
,,
v
IHE
l·f
Gir~tJ~
:...vo1.•:
LOO
l
l
1
.i(
..
,,
360
Y
S•
SPHCE
S
(7~'
370
Y1•72:
Y~eJ.
.:7!5 CURSOR
4
(i
.
o
:
VR
ll4
1 "
-.
PklJt.ik1\H
:l)P€kf-<NO
380 GOSU8
QO(toj
.SIU
IF C•="LI
S
T
••
lHEN
G\JSUF.l
14•X
H
GOTO
~·vo
JU~
1
F
C'$= "'
L
L
_
I
ST
..
11
t
(_N
GllSUD 16
00
:
GOTO
:?i,,."1'.t
:.u
J.
J
I"
c ~~
" SAVl:.
..
I
HE
N
GUS-l
tlJ
J'.:;•)
o, . .
•
!
GOlO
...:•
.•t•
:.~
811
J
F
CS
n:
"LOAO
"
1
H€
N
Gl"JS
UO
1
OuO:
GOTO
.:v"'
3
6
3
l
F
CS=
"OELE
'
1
€
"
'IHE14
IJOSIJFJ
?.VOO
:
GQl
O ·
.
:O•J
3
86
lF
(;1'="K
ILL
.. IH:!N
Gt1Stll'.I
z
a
oo
:
QOTO
2
0·~·
3
07
I
F
C'S"'" ENO
THE
N
J
"3-(11.>
j
0U
tr
<LEFT'$
(C1>,1>
(}
"
")
1
(
•
.
.. 0>
IHEl'J
GOS
Ult
~1.11v
:
oo
r
n
:.•)(t
;;o9 11:
K=zO
l'HEN
GOSlJB
!j02()
1
(3.010
~-tu
3'10
I
F
Y~
=SPACE
..
17
,
<)
t
llCN 4
30
39
t
"l
(
J' 1
\=t..
:MS.
\
M) ;;'yt,.
~
00
H~
H=IF
N=l
THEN
GO~UO
~bVtr
:GOTO 20~
41
0
GOTO
~
4
30
IF
r<=O
THE"
H
=I,
'
GOSUD
-"1<•0
440 GOTO 20()
J
OC•v
REM
-
- - -
------··-----.
-
··--
-----.-- -
-
-
I
(JfiD
f
'
l
\C
1
CESS
JOSO
A•A
+
t: IF
A)
.:t00
1t<tE
N
Gt1SlJ8
~O
bO
:
CLOSE
ttt
:
t~f.TURN
J
010
F
~
=LEF
lS(
Y
~.6
)
1020
ROPEN
•t,
F
u1
,~
c
J
(t3C~
i.\=
O
:
·1
=
J
lu4
() ff
EOF< MI)
lHEN
J
ll
v
10S(>
A:;iA+
t:J
F A..>2ln,,t
lt1E:.tl
GOSUB
~(,oO
:
GO
l
'l
200
10
0
0
INPUT
•
1,A
~
t
O?'('
GOSUl.f
1J40
:
I
f.
E•l
ltiE.f"
A=A-
t
:
GOTO 1v
4
0
lv90
N
<A>•J
: tt•
<
~
;aHID•
<~
~ ·SPACE~
<7L),0
.
7~)
1V90
CH<A>
=>A+
J
1100
GOTO
10
4
0
1 t
1
l)
u~A
:
CLOSE
+t
1
1
I
:?0
R<c
lURN
11
~0
REM
------
-
--
-
·
-
------
-----
-
-
-
-
---
---
L
I
tJE
f"UM
GET
1140
a
~
1
: o~LEN(
A
t
)
:
£•O
l
141
IF
O>D
T
HEN
E
~
I
•RE TURN
!
tSO
C•
f'ISCCM 10
S tAt.B,
l))
1lb0 fF
(
<47
,
C:>
.i
<C<SB
>'
t
C~C,..
32
>
*
\B•
l
))
lltEI"
U•b·
•
l:GO
J'O
1
141
11?0
J
•
lNT<
VAL<MID•
C'4<t..
,,Fl-
l
)I
)
I
180
RE1
URN
t
ioo
REM
-
-
-- -
---
-
------
-
-
- ------ - -
--
-
5AV£
PROCESS
12 10
F
~=LEF
f
$
CY
~.
ut
l
:!~O
WOPEJ·
J
•
t,fOJ.F
~
90
Do
not
sell
this PDF !!!
Advertisement
Table of Contents
