Sharp PC-1500 Anwenderhandbuch Seite 107

_ GRAFISCHE DARSTELLUNG I
PROGRAMMNAME: (BAND- BZW. KREISSCHAUBILD)
PROGRAMN-NR.
P5—D-8 3
[ Programmlisting ] [ Speicherinhalt ]
ja: "A": WAIT 8:
CLEAR : DEGREE
:@=S:D0D1IM Asc Od
*18, BECO*1, AC
Q>
:B$(Bd="A". BSC)
d="B".BS$C29="C
":B$¢(3).="D": BS
CQ)="E" i BSCSd=
meu
>BS(6)="G".Bse?
yo"H" BS(Bd="]
"sB$¢c9s="J"
:FOR J=8TO Q
:C$="POST.BEZE]
C.¢"4STRS Cl]+]
d4")" PRINT CS
a
: INPUT ASC]):
GOTO 7B
2ClS ¢lei=1:
GOTO 188
:CLS :C$="WERTC
"4SOTRS C]41)04+"
d="ZPRINT CS;
> INPUT ACI]).CLS
?H=H+AC I)
:NEXT I
i ]=t+]
INPUT ""KREIS=]
BAND=2"5C
IF ¢€C=194+¢C=2)
<>1GOTO 114
IF C=2G0TO 388
GRAPH :
GLCURSOR ¢€1]18;
~125): SORGN
D=12: ¥Y=188: R=1
9@:L=1:C=2
FOR J=1TO 31
GOSUB 668:LINE
CX, Yo-CK1, Y19:
X=X1: ¥=¥1:C=C+
D
188: NEXT J
198:FOR J=@70 IJ-1
195: R=108
2AB: F=Z6BkKAC IHF
=G+F:1F J=I-1
LET F=369
218:FOR M=1TO 2
IF M=1LET C=G6+
.59:GOTO 225
CSrau
GOSUB 688: 1F L
>3LET L=1]
:LINE ¢€@, 8)-¢X)
3 ¥135- 8) be NEXT
M
>R=5@:C=CF-GI72
+G6:GOSUB 628:
1=X1-3
G=F
>GLCURSOR ¢X1,¥
1):LPRINT BS¢J
Y:L=EL+]:NEXT J
:GLCURSOR ¢-118
» ~-152): SORGN
Y=Q:%=8: COLOR
B
FOR J=@7T0O I-!
N=ACJO7H*108:D
=INT ¢¢D+. 485)
*¥1B0@./710B: IF J
=]-)LET D=108-
N: GOTO 278
N=N+D
CLCURSOR (x; Y)
>LPRINT BSCS)
:GLCURSOR (18, ¥
DELPRINT ASCJ)
Y=7-20
GLCURSOR (18, ¥
2:LPRINT °
...";USING "HH
H.4t"; D3 4%".
USING
Y=¥-206
:NEXT J
TEXT .LF 1@:
END
:GRAPH .
GLCURSOR (¢@, @>
:ROTATE
LET W=-388
21F LosLeT L=1;
K=K+ 1]
= 10h
33B:LINE (168, Td-¢
215, W), O, @, B:
GOSUB 658
332: T=W:L=L+12NEXT
J
335: K=1]:L=1]:W=-5@:
T=B
336:FOR U=8TO 1-1
338: 1F LO3SLET L=lI:
K=K+ ]
348: F=168/I*¢CI]-J-1
dS: LINE CF, @5-¢
(F-5+1607]5),-5
B>,@, 8,B
345: S=F:U=F-5+16B~
1: GOSUB 654
3493: COLOR @:
GLCURSOR ¢F,-8
B>:LPRINT ASI
>
35@:GLCURSOR (¢F, -2
18>:LPRINT ".
351: D=ACJ>/H*100:D
=IJINT ¢¢€D+,0@5)
*1BB)718B
352: 1F J=I-1LET B=
188-G:GOTO 355
353: G=6+D
355: GLCURSOR (¢F,; -2
492>:LPRINT
USING ""H###. HH
se t4Zr USING
368: L=L+1:NEXT J
3B7B: TEXT :LF 18:
END
6BB: X1=R¥SIN CiY1=
R*¥COS C:RETURN
65B: 1F K>3SLET K=1
655: 1F K=1GOSUB 72
a
668: 1F K=2GOSUB 75
a
665: 1F K=3GOSUB 78
2: GOSUB 758
698: RETURN
708: P=T:FOR O=1T0
62
785:P=P-S
710: 1F P<=WGOTO 74
B
(Fortsetzung nachste Seite)