Sharp PC-1500 Anwenderhandbuch Seite 91

PROGRAMMNAME:
{ Programmlisting ]
19: "A":CLEAR
28:PAUSE "OFFEN":
1=8
3@:LPRINT ""OFFEN"
>GOTO 76
4@:"B":CLEAR
PAUSE "RADIAL"
> l=]
6@:LPRINT "RADIAL
7@: DEGREE : INPUT
UTA="5¢A, UT KH" 3
B; MTY=H"5C
75: LPRINT USING "
HHHHHHHH. HHH
; "¥TAH""s0
76:LPRINT "XTX="3
B
P2:LPRINT "XTY="3
C
86: 1C=l1
98: INPUT ""B="30D:
GOTO 188
95: END
INPUT "L="5E
F=DEG A+DEG D+
182
IF DMS F>=368
LET FSDEG ¢DMS
F-3689):GOTO 12
)
G=B+EXCOS F:H=
C+EXSIN F
F=INT (DNS ¢F+
B.@0814)*1 864)
71004
:FO$="--"4+STRS$
1¢t+"-~"
LPRINT FOS
IC=1C+]
LPRINT USING "
HHHHHHHH. HHHE"
:"BS= "30
LPRINT "L= "jE
LPRINT "A= "5F
LPRINT "x= "3G
LPRINT "Y= "3H
IF J=OLET A=F:
B=G:C=H
GOTO 938
STATUS: -i
OFFENER UND RADIAL
ANGEORDNETER POLYGONZUG
PROGRAMM-NR.
P5—C—5 3
[ Speicherinhalt ]
Diskriminante
lesa Slee) a) See) ee ee el alee ee,
FO$| Ausgabe-Meldung