Sharp PC-1500 Applications Manual page 111

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
GRAPH GEN ERATION II
PROGRAM NO.
3
T I
T LE (BA R OR BROKEN LIN E GRAPH)
PS- D-9
I
Program List
I
[ Memory Contents
I
10: "A":WAIT 0:
240:G=H+5:NEXT
J
A
CLEAR
:OIM A$( 245:GLCURSOR
<0, - 2
8), J:H8>
50)
B
20: INPUT
"T ITLE?"
250: TEXT
:LF 5:ENO
Graph selection
;A$(0> 400:E =40/( l+l>*5
c
30: INPUT
"BAR;J
•
410: FQR J =! TO
I
D
Maximwn item value
BROKEN LI NE=2
420:H=E*J
? ";
c
430:F =O*A<J>*S
Graph horizontal
40: IF <C=J>+<C=2>
440:1F J = IGOTO
460
E
<> IGOTO 30
450:LJNE
<G, M> - <H,
width of an item
:50:FQR J=J TO
8
F >, 0, 3
F
Y·Coordinate
60 : B$= " ITEM<"+
460:G: H:M=F
STR$
t+•').='':
4B0:N( XT J
G X- Coordinate
PRINT
BS; 483:FQR J=!TO
I: H=
H
X- Coordinate
65: INPUT
AS()):
E*J
CLS
: GOTO 80 485:NaH:GOSUB
B00: I
70: CLS
: l =l-1 :
NEXT J
J
GOTO 100
4B7:GLCURSOR
<0, -2
80: BS="VALUE< " +
50)
K
STRS l
+•• )
= '' :
490 :
TEXT :LF
s:ENO
PRINT
BS; 600: M =M +I :L=L+I
L
Pen color No.
85:
INPUT A<l>:CLS 610: IF L=4LET
L=0
M
87: IF
D<A
<J
>LE T 0
620:GLCURSOR <G,0>
=A<J
>
:LINE
<G,0>-<H
N X-Coordinate
90: NEXT
I
, F), 0, L, B
0
!00: LPRINT A$(0J
530: P: 0:
IF M >4LE T
105:0=45/ 0
P=2
p
110: GRAPH
700:0=0
l20:GLCURSOR
<0, -2
705:FOR K=lTO 45
Q
50>: SORGN
708:Qs0+5
R
130 :
l
F
C=2LET G=2
7 10: IF
F<=OGOTO
72
l40:Ll NE
<0, 0) - (20
0
s
0, 250>, 0, G, B
7
13: IF K- JNT
( K/2)
l50:JF C=2GOTO 400
*2=1LINE
<G,
O> T
160:G=5
-(H, O>, P:GOTO
u
l70: E=<40-l ) / l*5
718
J80:FOR J=ITO
I
7J5:
LINE <H, O>-< G,
v
J90:H=G+E
0),
p
w
200:F=D*A <J>*S
718:NEXT K
220:GOSUB 600:6=H+
720:RETURN
x
5
:NEXT J : 6=5
800:ROTAT E' .
I
230: FOR J=J
TO I: H=
810:GLCURSOR <N, - I
y
G+E
5>: COLOR 0
z
235:
N = G~E-,,
2-10:
820:LPRINT A$<J >
GO SUB 800
B30:ROTATE 0 8$
Character cditl.ng
840:RETURN
AS(O) : Title
AS(B)
AS(I) to (8)
: Item name
STATUS
l
A(B)
Item value
919
Do not sale this PDF!!!
- 105