Sharp PC-1500 - Page 111

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
GRAPH
GEN ERATI ON II PROGRAM NO.
3
T I
T LE (BA R OR BRO KEN LIN E GRAP H) PS - D-9
I Program List I
[ Memory Contents I
10: " A":WAIT 0:
240:G= H+ 5:NE XT
J
A
C LEAR
:OIM A$( 245:GLCURSOR
<0, - 2
8), J:H8>
5 0)
B
2
0: I NPUT
"T ITLE?"
250: TEXT
:LF 5:ENO
Graph selection
;A$(0> 400:E=40 /( l+l>*5
c
3 0: INPUT
"BAR;J
•
41 0: F QR J =! TO
I
D
Maximwn item va l ue
BRO KEN 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
<> I GOTO 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
: GO TO 80 485:NaH:GOSUB
B00: I
70:
CLS
: l = l-1 :
NEXT J
J
GOTO 100
4B7:GLCURSOR
<0, -2
80: BS ="V ALUE< "+
50)
K
ST RS
l +• • ) ='' :
490: TEXT
:LF
s:ENO
PRINT
BS; 600: M=M+I :L=L+I
L Pen co lo r No.
85: IN P UT
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- Coord in ate
90: N EX T I
, F ), 0, L, B
0
!00: L PRINT A $(0J
530: P: 0: IF
M>4
LE T
10 5:0= 45/ 0
P
=2
p
110: G RAPH
700 :0 =0
l20:GLCURSOR
<0, -2
705:FOR K= lTO 45
Q
50>: SORGN
708:Qs0+5
R
13 0: l F
C =2LET G=2
71
0: IF
F<=OG OTO 72
l40:Ll NE
<0,
0) - (20
0 s
0, 250>, 0, G, B
713:
IF
K- JNT
( K/2)
l50:JF C =2G OTO 400
*2=1LINE
<G , O>
T
160:G=5
-(H , O>, P:GOTO
u
l7 0: 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:G OS UB 600:6=H+
720:RETURN
x
5:NE XT
J :6=5
800:ROTAT E'.
I
230:F OR 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:R ETU RN
AS (O) : Title
AS(B)
AS(I) to (8)
: Item
nam e
STATUS
l
A(B)
Item value
919
Do not sale this PDF!!!
- 105