Sharp PC-1500 Handbuch Seite 111

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAMMNAME:
GRAFISCHE DARSTE LLUNG 11
PROGRAMM· NR.
CBALKENDIAGRAMM BZW. SCHAUBILD
3
MIT PUNKTIERTER LINI E!
PS
D- 9
[ Programm!
isting )
[ Speiche;rinhalt )
400:C:=40/(f.+ 1) ' 1 :5
A
10: „A„: WAl T
0:
410: F'OR J=ITO 1
CLEAR : OJM A$ (
420:H=E*J
8
8>, A<8)
430: F'=O*IHJ >1'5
20: 1 NPUT ··uE9ERSC
440: IF J=IGOTO
460
c
Wahl der Darstellung
HR JF T?„; A$(0l
450: LI NE <G, Ml- <H,
30: 1 NPUT •·BALKEN=
F'" 0 ,
3
D
Max. Postenwert
1
'
LI NIE =2 ?„
460:G=H:M=F
;c
480:NEXT J
Waaictcehtc Breite in der
40: 1 F
<C=l>„<C=2>
493: FOR J=ITO 1: H=
E
Dars-tcUu.ng eines Postens
<>JGOTO 30
EfJ
50: FDR l=JTO 9
495:N=H!GOSUB 800:
F Y ·Koordinate
60:8$="POSTEN<"•
NEXT J
G
X·Koordinate
STR$ 1 ...
•'>=··:
487: GLCURSOR <0,
-2
PRINT 8 $ j
50)
H
X-Koordinate
65: INPUT A$ < 1 l:
490: TEXT :LF 5 : END
CLS :GOTO 80
600 : M=M„ I: L=L„ I
1
70:CLS :J=J- 1:
61 0 : JF'
IL=4LET L=0
J
GOTD 100
620:GLCURSOR <G, 0>
80:8$="WERT<"„
:LJNE
<G,0l-< H
K
STR$ 1 .....
>='' :
,F),0,L,9
L
Stiftfarbe Nr.
PRINT
8$;
630: P=0 : JF M)4LET
95: INPUT A<JJ:CLS
P=2
M
97: IF
O<A<llL F. T 0
700:0=0
N X·Koordinate
=A<J l
705:FOR K=I TO
45
90:NEXT 1
706:0=0„ 5 0
100: LPRI NT
A$(0)
7J 0:1F F<=OGOTD
72
105:0=45/0
0
p
110: GRAPH
713: JF K- JNT <K/ 2)
Q
120:GLCURSOR (0, - 2
f 2= 1LINE <G, O>
50J: SORGN
- <H, 0), P : GOTO
R
130: 1 F
C=2LET G=2
;>
1 8 s
140: LJNE <0,0>-<20
715:L JNE <H, 0>-<G,
0, 250), 0, G, B
0), p
T
150: 1 F
C=2GOTO 400
719:NEXT K
u
160:6=5
720:RETURN
170: E=< 40- l )/ J'l:5
800:ROTATE 1
V
180 :FOR J =! TO
J
Bl0:GLCURSOR (N, - J
w
190:H=G„E
5): COLOR
0
200:F=Ol ACJ> l 5
820:LPRJNT
A$<Jl
X
220:GOSU8 600:G=H•
930:ROTATE 0
S:NEXT J : Gs5
840:RETURN
y
230: FOR J=
I TO
l: H"
z
G•E
235:N=G„E/2- J0:
es
Editieren der Zeichen
GOSUB 800
240:G=H„5:NEXT
J
STATUS
l
245:GLCURSOR
<0,
-7
924
AS(O): Überschrift
50)
AS(8)
AS(!) bis (8)
250:T EXT
. LF
S:ENO
: Postenbezeich-
nung
A(8)
Postenwert
Do not sale this PDF !!!
- 105 -