Sharp PC-1500 Anwenderhandbuch Seite 111

GRAFISCHE DARSTELLUNG II
(BALKENDIAGRAMM BZW. SCHAUBILD
MIT PUNKTIERTER LINIE)
PROGRAMMNAME:
PROGRAMN-NR. 3
P5—D-9
[ Programmlisting ]
1a: "A": WAIT @:
CLEAR :DIM ASC
8), AC8)
28: INPUT "UWEBERSE
HRIFT?"; ASCO)
38: INPUT "BALKEN=
1, LINIE=2 ?"
3C
4@: IF (CH=1)+¢C=2)
<>1GOTO 30
:FOR I=1TO 8
:BS="POSTENC "+
STR$ [4+")=":
PRINT BS;
6S:
INPUT
ASCI):
CLS :GOTO 8&@
7@:CLS :I=I-1:
GOTO 188
88: BS="WERTC'+
STR# J[+")=";
PRINT B$;3
85: INPUT ACI): CLS
87: IF D<ACIOLET OD
=ACI)
9@0:NEXT I
180: LPRINT ASCO)
185: D=45-D
118: GRAPH
12@:GLCURSOR (@,-2
5B): SORGN
130: 1F C=2LET G=2
140:LINE (€@;, 8)-C28
8, 258), 8, G, B
1580: IF C=2G0TO 488
160: 6=+5
178: E=(4@8-I1>71*5
188:FOR J=1T0 1
$98: H=G+E
200: F=DxKAC ID ¥S
228: GOSUB 688: G=H+
5: NEXT J:G=5
238:FOR J=1TO J: H=
G+E
235: N=G+E/72-18:
GOSUB 842
248: G=H+5:NEXT J
245: GLCURSOR (8; -2
58)
250: TEXT : LF S:END
408: E=40/7¢C14+1)9¥*5
41@:FOR J=1TO 1
420: H=EXJ
438: F=PxACIJI*S
440: 1F J=1GOTO 46a
45@:LINE ¢G,M)-CH;
F);, @; 3
469: G=H: M=F
48@:NEXT J
483:FOR J=1TO I:H=
ExJ
487:GLCURSGR (8; -2
92)
430: TEXT :LF 5: END
608: M=N+1:L=L+)]
610: 1F L=4LET L=8
628:GLCURSOR (C6; @)
:LINE (CG; Q)-CH
3F),8@,L,B
638:P=0: 1F MS4LET
P=2
728: 0=8
7@5:FOR K=1TO 45
788: 0=0+5
71B: IF F<=OGOTO 72
4]
7J13B:1F K-INT (K72)
*2=I1LINE ¢6, 0)
-¢H, 0), P: GOTO
Pg |
ZAS:LINE CH, 0)-(¢6;
03,P
P18: NEXT K
720: RETURN
B20@:ROTATE 1!
81@:GLCURSOR (CN, -1
5):COLOR @
820:LPRINT ASCJ>
83@:ROTATE @B
848: RETURN
STATUS 1
= 105) >
{ Speicherinhalt ]
C | Wahl der Darstellung
Max. Postenwert
Waagerechte Breite in der
Darstellung eines Postens
Y-Koordinate
X-Koordinate
X-Koordinate
Stiftfarbe Nr.
X-Koordinate
Le erm
J
K
L
ca
lea
ER
Editieren der Zeichen
A$(0): Uberschrift
A$(1) bis (8)
: Postenbezeich-
nung
Sag
3] 8
ie}