Sharp PC-1500 - Page 108

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
GRAPH GENERATION
I
PROGRAM NO .
4
TITLE
(BAND OR C IRCL E GRAPH)
PS-D-8
[ P rogram List ]
[
Memory Contents I
500:xt=R*SJN c:v1~
A
R*COS C:RETURN
650: IF K >3LET
K= I
B
655:JF K= I GOSUB 70
Circle and band graph
0
c
660: IF
K=2GOSUB 75
selection code
0
665: IF K=3GOSUB 70 D
0:GOSUB
7 50
e
69 0 :RETURN
700:P=T:F OR O=llO
F Angle (1)
60
G
Angle (2)
705:P = P-5
710: IF P<=WGOTO 74
0
H Total it em value
715 :1F 0-INT
(Q/2)
I
Loop counter
* 2"' 0LINE
<S, P >
J
Loop counter
- <U, P), 0, L:
GOTO 725 Pattern selection in
720 :LJ NE
( u, p) - ( s,
K
P), 0, L
graph
725: NEXT 0
L
Pen color code
7 40: RETU RN
750:P : S:F'OR
O= I
TO
M
Loop counter
50
N Total ratio
75 5:P = P->5
7 50 : I> P>=U GOTO 79 0
Loop counter
0
p
..;
765 :1 F 0- IN[
(Q/2)
~2 =0L IN E
<P, T >
Q
..;
-< P, W), 0
1
L:
R
..;
GOTO 775
7/0:LlNE
<P, W> - <P,
s
Band graph X-axis (I)
T), 0
1
L
Band graph Y-axis (I )
7/S:NEX T 0
T
790:RETURN
u
v
Band graph X-a xis (2)
w Band graph Y-axis (2)
S iATUS
I
x
..;
1 772
..; y
z
OS
Display character
editing
""" "' . .•
Item name
8S90 J•I
Alphabet
A(Q ) It em value
X1
X-axis
Yl Y·axis
Do not sale this PDF !!!
- 10 2-