Sharp PC-1500 - Page 88

A ll and more about Sharp PC - 150 0 at http:/lwww.PC-1500.info
PROGRAM
D, #V
CONVERSI ON
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
D EG REE
5 10 : 0£G REE : IN P UT
2 0: INP UT
.. z 1
R- ,, .
- '
"ZA R .:' ' ;X A
x
52 0: INPU T "2A
x ·· .. .
- '
B
RI) .
Ra)
30: J NPUT "Z l
x-• ·. y
- '
ZI
r--x;;-1
Za
y
53 0: GOSU B 350
c XI
40 :GOSUB 400 540:B =U: C=U
50:GOSUB
350 55 0: INPUT "2 8
R~ll;
D
R 2) .
~)ib
Z2
60:8=U:C=V x
E
X2
Xb
70: JNPUT "22
R- ••·
56 0: I NPUT "28
x -" .
- '
- '
x
y
F
R3) .
~)
80: J NPUT "Z2
x -· ·.
5.70:GOSU B 35 0
Z3
Zc
- ' G
X3 Xe
y
58 0:0 =U :E=U
90 : GO SU B
400
59 0: INPU T "2C
R ~· · · ,
H
) ~ z r- ) t::.
- ,
100:GO SU B 350 x
'
I 1 0: D= U: E =U
600: I NPU T " 2C
x- ".
I
- '
I 20: IN PUT "2 3
R- ".
y
J
R a) .
R3) z3
- '
x
610 : GO S UB 350
Za
I 3 0: 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 66 0: Y=Y+H*SIN J
N
Re ) ·
R2) i.2
1 70 : X=S :Y=T
670 : H"BfF: I = C+G
Zc
1 80 : GOS UB 350 68 0:X=X+H*CO S I
0
Xe
X2
I 90: H-"' U: J;;;U 59 0;Y ,,Y+ H*SIN
I
p
200 : X=B*O /H :Y= C+E - 7J0: H= D*F
I: GOSUB 450 72 0: 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*SIN I
I
75 0 :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 8 00:L= Xf CO S
y;M " X*
w
28 0:US IN G : WA ! T
:
SJN
y
PRINT
1
' ZA'':
810: X=H/ F: Y=J-G
x
,,/
,,/
P RJNT
J' I<
82 0: N" X*CO S
y:O=X*
y
..;
v
290:PRJNT '' 28
1
': S IN
y
PRJNT
L, M B60:PRJNT "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 J NT " Z3
...
36 0:U .o ACS
(X /U)
PRINT
J ' I<
37 0: 1 F
0>Y
LET
U=-U
89 0: E NO
3B 0: RE TUR N
40
0: S= X+S: T =Y +T
4 J0 : RE TU RN
450:U=X*C
OS
Y: U=X f
ST ATU S J
SJN Y 977
460:RETURN
Do not sale this PDF !!!
- 82 -