Sharp PC-1500 Applications Manual page 88

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
D, #V
CONVERS ION
PROGRAM NO.
3
T
I TL E
PS- C- 1
( Program List ]
[ Memory Contents ]
10 :
"A" ; T=0: S=0:
505 : '"B":CLEAR
/), -+
y
y
•6
DEGREE
5 10 : 0£GREE : INPUT
20: I N PUT
.. z
1
R- ,, .
- ' " ZA R.:'' ;X
A
x
520 : INPU T "2A
x·· .. .
-
'
B
RI) .
Ra)
30 : J NPUT
"Z l
x-•·.
y
-
'
ZI
r--x;;-1
Za
y
530 : GOSUB 350
c
XI
40 :GOSUB 400 540:B=U: C=U
50:GOSUB 350 550: INPUT "28
R~ll;
D
R 2) .
~)ib
Z2
60:8=U:C=V
x
E
X2
Xb
70 : JNPUT "22
R- ••·
560: INPUT "28
x-" .
-
'
-
'
x
y
F
R3) .
~)
80 : J NPUT
" Z2
x-··.
5.70:GOSUB
350
Z3
Zc
-
'
G
X3 Xe
y
580:0=U:E=U
90 : GOSUB 400 590: INPU T " 2C
R ~· · · ,
H
)
~z r-)
t::.
-
,
100:GOSUB 350
x
'
I 10: D =U: E =U
600: I NPU T " 2C
x- ".
I
-
'
I 20: INPUT "23
R- ".
y
J
R a) .
R 3)
z3 -
'
x
610: GOSUB 350
Za
I 30: INPUT
"Z3
x- ".
620:F =U:G=U
K
Xa X3
-
'
y 630:X=O:Y=O
L
Rb) . RI) ·
140: GOSUB 400
640: H" Bf O: ! =C .. E Zb
ZI
J50 : GOSUB 350 650:X=X .. H*COS l
M
Xb
XI
J60: F,,U:G=U 660: Y=Y+H*SI N J
N
Re) ·
R 2) i.2
170: X=S :Y=T
670: H" BfF: I =C+G Zc
180: GOSUB 350 680:X=X+H*COS I
0
Xe
X2
I 90 : H-"'U: J;;;U 590;Y,,Y+H*SIN I
p
200: X=B*O/H:Y=C+E- 7 J0: H=D*F
I : GOSUB 450 720: l =E+G
0
2 J0:J=U:K=U
730: X=X+Hf COS
l
R
220:X=Dff /H:Y=E+G- 740:Y=Y+H*S I N I
I
750 :GOSUB 350
s
..;
230:GOSUB 450
760: H=U: J=U
,,/
240:L=U: M=U 770 : X=H/ B:Y=l-C
T
250: X=B*F / H:Y=C+G-
7B0: J =X*COS Y: K=X*
u
,,/
IZI
I SIN Y
260:GOSUB 150 790 : X=H/ D:Y=J - E
v
,,/
a
27 0:N=U:O =U 800:L=XfCOS
y;M " X*
w
280:US ING : WA! T
:
SJ N
y
PRIN T
1 ' ZA'':
810: X=H/F : Y=J-G
x
,,/
,,/
PRJNT
J' I<
820 : N"
X*COS y:O =X*
y
..;
v
290:PR JNT
'' 28
1
' :
S IN
y
PRJNT
L, M B60:PRJ NT "2 I
"
.
z
300:PRINT
"ZC
...
PRJNT L,M
PRINT
N,
0 870:PRJNT "22
. . .
3J0:£NO
PRJNT N, 0
350 :U=l<X*X• Y*Y>
BB0:PR JNT " Z3
...
360:U.oACS
(X/U)
PRIN T
J ' I<
370: 1 F 0
>YLET
U=- U
890: ENO
3B0: RE TURN
400: S=X+S: T=Y+T
4 J0: RETURN
450:U=X*COS
Y: U=Xf
STATUS
J
SJN Y 977
460:RETURN
Do not sale this PDF !!!
- 82 -