Sharp PC-1500 Applications Manual page 52
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more
about
Sharp
PC-1
500
at
http://www. PC-1500.info
PROGRAM
PROGRAM
NO.
4
T
I
T
L E
MODIFIED
EXPONENTIAL CURVE
P5
-
B-
3
Step
No.
Input
Display
Remarks
Display
after data output
19
y
I
ENTER
I
X=-
to cassette
tap<i
N
I
ENTER
I
X-
-
20
IS
I
ENTER
I
X=-
x input
21
16
1
••TER
I
X=
-
x
input
22
I
ENTER
I
>
End
[
Program
List )
I
M emory
Content•
I
J0: ..
A
.. :CLEAR
:
210: N£XT I
SJ0:Y<C
-
J
)
=Y<C-
J
>•
A
a
t.:AJ
r
0
220:
B=O•F- E*
E
L
20!INPU
T
"DATO
CL
230
:
A=
<F*G-
E*Hl/B
520: N£XT X:NEX
T
C:
a
b
OAO?<
Y
1
N)
"j
AS
240:B=
<D*H-
E*G)
/
8
GOTO
540
c
k
30: !
F
<AS::J"Y''
)-+((,}
250:A=
EXP
A:B=EXP
530:
INPUT
U"MEC-OA
S=
"N'"
><>
!
GOTO
B
Tt:I''
;
N,
Y(l'.)
D
20
260:BE£P
3:LPRINT
540:
CL
S
:·
C='1:
B=
« Y
n
40:
IF
AS="Y .. GOTO
"o,.:;:
"
;
A
<2 >-Y<J>>,,<Y<
1
E
'£x
i
150
270
:
LPR
I
N
T
"b='
1
;B
>-Y
<0>>>"<
I / (
)
50:
JNPUT "N=";
0
,"
280
: B£EP
S:INPUl
,,
550:
O=B~
C
-1:
A=<
V<0
F
1:xi
2
K::
";C
DATA CSAUE?(
Y,
>-
Y
< I>
>•<B-1 )/
SS
:OIM
X<O-
J>,
V<O
f'I)
••;AS
<0*0'
G
:£
y
-
I
>
290:
II'
{AS:: ''Y
"
>
..
<A
560:
C=(
VC0
> ..
0"fA/(B
60"
FOR
1=0TO
0-1
S='"N'">OJGOTO
- 1
>
>,....C
H
"i:.xi-v
701
:
CL
S
:
t:lt:•''X<
....
280
570:
8EEP
3:
LPR
INT
STRS
(
[ •
]
)
....
)
~
300:
I
F <' >
• ="N"
GOTO
" o..::
";
A
I
"
/00
380:LPRINT
•ib=
'';S
80:
PR
I
HT
AS;
3!0:PR
J
NT
tl
"MEC-
OA
590:LPRJNT
"
k="
;
c
J
90
:
INPU
l
X( I>:
TA<K>";O,
C
600:8E£P
5:
INPUT
"
GOTO
I l 0
320:PR JN
T
U"
MEC-OA
DAT<'>
CSAV~?<Y,
K
J00:CLS
:O=
J-J
:
TA<K>
"
;X<*
>•
Y<
N)
'';
il.$
L
y
i
SO
TO
180
*>
6J0
:
JF
<i:tS=
.,Y'"
)
+CA
ll0
:
CLS
:
QS::
'
'
Y(
"
-+
330:GOTO
700
&=''
Ntt
><
>I
GOTO
M
STRs
<l
•
l>
·•"'
)
!:
400:"'6"
:
CLE'°'R
:
600
•
620: IF
AS=
..
N"GOTO
L.IAJT
0:CLS
:
N
n
120:PR
I
NT
AS;
D
I
M
YC7.>
700
130:
INPUT
Y(
J
)
4J0
:
I
NPUT
..
D ...
TA
CL
630:
PR
I
NT
W
"MEC-OA
0
14.0
:
NEXT
I:
GOTO
18
OAO?CY,N
>"i RS
TA'';
N,
Y<•>
0
120:
!F
<.AS=
"Y"
)
+ CA
700:LF J:LPRJ
NT
..
*
p
150: INPUJ
U ..
MEC- OA
$
=
"N"
><>JGOTO
£SH
MATE -.
•
:
0
TACK)'t
;O,
C
4
J
0
CLS
160•DIM
~<D-ll,
V(D
430:
IF
A$.::"
Y''
THEN
7J0:8EEP
J:ll'IPUl
"
R
-
f )
530
X=
'';x:
GOTO
'
30
170:
INPUT U"MEC-OA
440:
INPU
T
UN="
;N
720 :EN0
s
TACK)";X<*>,Y<
4S0:N=INT
(N
/ 3 )
730: LPRIN
T
"X='';X
*'
460: FOR
C=
JTO
3
740:
L
PRIN
T
''Y;
"
;
C-
T
J88:
CLS
:FOR 1=0TO
470:FOR
X=N*<
C-
1>
A*B"X
0
-
1
TO
Nl!C-J
/50: GOTO
710
u
185:Y=LN
<C-Y
<J>
l
480: CLS
:
AS.::"VC
""
198:
E=£+X(f
):
F=F•x
STRt
CX•l>
+ ''
>=
v
<l>*X(f)
"
w
288:G=G+Y:H=H•X<J>
tY
490:PRJNT
AS;
50
0
:
INPUT L
STATUS
I
x
x
1264
y
y
z
F$
xi
GS
y
i
A$
.J
Do not sale this PDF
!!!
-
46
-
Advertisement
