Table of Contents
Advertisement
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
•
Program
List
(PC-1500)
10•0
l
M
TJC20>,Mf$
<20l
t
J8
20
:
SE
TCOM
1200,
8,
N, 1
30:
SETDt:U
200: Sf:TOEU
Kl
2
JI!:
A=0
2
11
: INPUT
S0$:
Fl=
UAL
(
8$)
2J2
:
I
F
B=-
l IHEN
J0
0
220: !
NPUT
$CS
223
: INPUT
$ME$IAI
228:
TJ
<Al
=VAL
(($)
23J
:
SE:TOEV
PO
232:
LPRJNT
"0
"
:Z33
:
5£
TDEV
Kl
234
:
JF
O=ITHEN
300
240:
A=A•J
230:
IF
A> 20 THEN
STOP
260
:
GOTO
21
J
300:
C=I' >
3
J0:SETOEV
320: G OTO
400
400:
"A"
:
zs=····:
lNPUr
"DJ
SP<=I
:
PR!N,
INIC
"I
EX
11-l"
;ZS
4J0: IF Z$="
="
THEN
500
420
:
IF
ZS="•"THEN
700
42
J:
JF
ZS="
-
"THEN
ll0B
430
:
GOTO 400
500: wAJ
T
J
5
J0
:
Q=0
520:.PR
JNT USING
"
U
~UMUUM
";
T
J<A
I
;
";";MESIA
)
530:
AS.
=
INKEYS
540:
l
F
AS.=CHRS
I J
0
ITllEN
600
.
550:
IF
As=
CHRS
(J
I
>THEN
650
560:
I
F
AS=CHR$
(24
>THEN
400
570:
GOTO
530
500:
4
=A+
J
61
0
:
IF
AICLET A=0
620:GO
TO
520
6
5
0:1'l
~
A-J
660:
lf:
A<
0LET
A=C
c
/
0:
GOTO
5
20
700:CS
JZE
2: LPRJNT
730:
FQR A=0TO
C
710:
LPRJNT
USI
NG
"
~H~tilttiN
"
;
T
l((.\)
.;·•:
":
LPRINT
M£
S
(
A)
750:
NEXT A
?/0:
GOTO 400
800:CONSOL
£
B0, l
8
10: QPN
"LPRT
"
820
:
FOR A=0TO
C
83e:
LPR
JNT
US
ING
··
ttliff~hUU
"
;
T
)(
11
)
;
.•
:
"
;ME•
<A)
Bq0;
N£XT
A
850
:
OPN
860
:
GOTO
400
STA
TUS
I
69-'
86
Do not
sell
this PDF
!!!
Memory contents
A
OA
T1\
POI
N
f
8
f
NO
El.AG
c
f: NO
PO INT
AS
CO
NTFIOLER fOA
Of"NAR
()
AtJDOOWNWAAO
S HIF
t
8$
A.ECEPT
!C
N
B
Vf:FER
cs
R€C£
P
l
l0N
avFFER
ZS
SELECTION
OF
01SP1AY MCOlA
Tl
(
20)
CAT
£
f"ES( ?.0)
*
1201
M€$St.G!:
Advertisement
Table of Contents
