Sharp PC-1500 - Page 91

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
OPEN A
ND RA DIA TE TR A VER SE
PROGRAM NO .
3
T I T LE
PS - C- 5
[ Pr ogram List ]
[ Memory
Conte nts I
10: "A ": C LEAR
A TA
20 : PA U SE " OP EN": I
=0
B XA
30:LPRJNT
GO TO ?0
"OPE N" :
c
YA
40: "B": CL EAR
0
/l
50: PA U SE
"RAO!A TE
E
~
"; !.:1
50: L PR JNT "RAD JAT
F cri
E"
G
Xi
i'0:DE GR EE
: INP UT
Yi
"TA::";A, "T X =" ;;
H
8," TY= " ; C
I
Di sc riminant
?5: LPR JN T
US JN G
"
11 ti 1141 ti .ti ti II • 11 11 111 1 "
J
i "* TA=
11
jA
K
?6: L PRJN T "'.tTX =" ;
L
B
//:LPR lNT
"* TY -=
11
;.
M
c
N
80: lC = l
90! J NP UT "8 .;; " ; 0; 0
G OT O 100
p
95: E NO
100: !NPUT
u L .;; I• ; E
Q
1J0 :F =OE G A+ OEG 0 ..
R
180
J 20; l F
OMS F>~360
s
LE T F=OEG
<OM S
T
F- 360 > :G O TO
12
0
u
J30: G= B+ E *COS F: H=
v
C+E*Sl N
F
l40:F= JN T
<O MS < F+
w
0. 000 14):1:10"4)
x
/ ]0 "4
y
1 4J: FO$ ='' - - " +S T R$
1 C+
11
-- ''
z
142:LPRJNT FQ. ~
FOS
Output message
J4 3: J C= ! C+ !
J50: LP R !N T
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: L PR1N T "A=
II ; F
1 80: LPR 1N T
"X=
If; G
190: LPR1 NT
"Y=
•• ; HI
200: lF l =OLE T A=F:
B"G: C=H
2J0 : G OT O
90
ST ATU S 1
4 8?
Do not sale this PDF !!!
- 85 -