Sharp PC-1500 Applications Manual page 91

A ll and more about Sharp PC-1500 at http://www.PC- 1500.info
PROGRAM
OPEN AND RADIATE TRAVERSE
PROGRAM NO.
3
T I T LE
PS- C- 5
[ Program List ]
[ Memory Contents
I
10: "A": CLEAR
A
TA
20 : PAU SE "OP EN": I
=0
B
XA
30:LPRJN T
GO TO ?0
"OPEN" :
c
YA
40: "B" : CLEAR 0 /l
50: PAU SE
"RAO!A TE
E
~
" ; !.: 1
50 : LPR JNT "RAD JAT
F
cri
E"
G Xi
i'0:DEGREE
: INPUT
Yi
"TA::";A,
"T X=" ;;
H
8," T Y= " ; C
I
Discriminant
?5: LPRJN T
US JN G
"
11 ti 1141 ti .ti
ti
II • 11111111 "
J
i "* TA= 11 jA
K
?6 : LPRJN T
"'.tTX=" ;
L
B
//:LPR l NT
"* TY-=
11
; .
M
c
N
80:
lC= l
90! JNPUT
"8 .;; " ; 0;
0
GOTO 100
p
95 : ENO
100 : ! NPUT
u
L.;;
I• ;
E
Q
1J 0:F =OE G A+OEG 0 ..
R
180
J 20 ; l F
OM S
F>~360
s
LE T F=OEG
<OMS
T
F- 360 >:GOTO
12
0
u
J30: G= B+E*COS F:
H= v
C+E*Sl N
F
l40:F= JN T <OMS
<F+
w
0 . 000 14) :1:10"4)
x
/ ]0"4
y
14J: FO$='' - - "+S TR$
1
C+ 11
- - ' '
z
142 :LPRJNT
FQ.~
FOS
Output message
J43: JC= ! C+ !
J50: LPR!NT USJ
NG
"
IC
v
tl tl ll tltl tl llll . 11 tl tltl "
; " B=
n; o
l 60 : LPR! NT
"L =
II ;
E
1?0 : LPR1NT
"A=
II ;
F
180: LPR1NT
" X=
If; G
190 : LPR1NT
"Y=
•• ; HI
200 : lF l =OLE T A=F:
B"G: C=H
2J0 : GOTO 90
ST ATUS
1
48?
Do not sale this PDF !!!
- 85 -