Sharp PC-1500 Applications Manual page 107
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
PROGRAM
T
I TL
E
GRAPH
GENERATION
I
(BAND OR
CIRCLE GRAPH)
[ Program List
]
10:
"A'"
:WAI
T
0:
CLEAR
:Q=9:DJM
AS<Q>
*
I0,8$(Q)
*I,A<O>
20:BS<01=''A''
:8$(J
)="B"
:
8$<21
="C
":
8$(3)
="0":
8$
<4
>="E":
8$(51
=
"
F"
25:Bs
<6>='"G'":B$<7
>=
"H":
8S<81 =" I
" :
8$
(
g
).::
"J
"
30:FQR 1=0TO
Q
40:CS="J TEM
NAME<
"
..
SfR$
(
J+I)+"
)":PR
INT
C$;
50: INPUT AS( I I:
GOTO
70
50:CLS
:
!
=I-
I:
GOTO 100
70
:CLS
:
C$="UALUE
("
+STRS
<l
+l
)
+
"
)
=":PR
IN
T
cs;
80:
INPUT
A<I J:CLS
:
H=H+A(
I
>
90:NEXT I
100: l =l+I
110
: INPUT "CI RCLE=
1
BAN0
=2";C
120:
IF
<C=I
>+<C=21
<>IGO
fO
11
0
130:
!F
C=2GOTO
300
140:
GRAPH
:
GLCU
RSOR
Cl
I
0,
-
l
25J:SORGN
!50:
0=
l2:Y
=I00:R=l
00:L=
l
:
C=0
I60
: FOR
J
=
!
TO
31
1?0
:
GOSUB
600:
LI NE
<X,Y>
-
<XJ,YJ>:
X=Xl:
Y=Yl: C=C+
D
180:NEXT J
Do not
sale
this PDF
!!!
!S0 :FOR J=0TO
1-l
IS5:R=l00
200:F•
360*A<J
J/H:F
=G+F:
IF
J =l
-
l
LET
F='
360
2 10 :FOR M
='
ITO 2
215: IF M=ILE
T
C=G+
.
5
:
GO TO 225
220:C=
F-
.5
225
:
GOSUB
600:
!F
L
>3LET
L=
I
230:LINE
(0,0)
-
(X
I
,
YI
),
0,
L
:
NEX1
M
235:R=50: C=<F
-
G>,
2
+G
:GOSU8
600:X
l
=Xl
-
3
250: G=F
251:GLCURSOR
(X!,Y
l): LPRINT
BS<J
):L
=L+!:NEXT
J
252:GLCURSOR (-1
!0
, -
150)
:
SORGN
264:Y=0:X=0
:
COLOR
0
255
: FOR
J=0
TO
1-1
267
:
0=A<J)/H*l00
:
0
=INT
<<D+.0051
*
100
I /
I
00:
11'
J
=1
-IL
ET
0=100-
N:GOTO 270
269:N=N+O
270:GL
CURSOR
(X,
YI
:!_PRINT
8S(J
I
275
:GLCURSOR
<1
8,Y
J
: LPRINT
AS<J)
280:Y=Y-20
282:GLCURSOR
<18, Y
J: LPRI
Nf
" ...
.
... ";USING
"~M
"
·"ll
"
;
O;
"%";
US
I
NG
2B4:Y=
Y
-
20
295:NEXT
J
290:TEXT
:LI'
10
:
END
-
101
-
PROGRAM NO.
P5-
D-8
300:GRAPH:
6LCURSOR
<0,
01
:SORGN
:ROTATE
I
3J
2
:K=
l
=L=
!
:S=!
60:
U=
2
15
315:FOR
J
~0TO
1-1
320:0=!NT (A(j)/H*
100+.5) :E=0*3
325:W=l
-
£
:
JF
J
=J
-
l
LE
T W=
-
300
327
:
JF"
L
)
3LET
L
=t:
i<=K+
I
330:LJNE
<1
60,
T)
-
(
2
15,
W
I
,
0,
0,
B:
GOSUB
650
332:T=W:
L=L
+J:N£X
T
J
335:
1<=1:L=J:W=-S0
:
T=0
336
:fOR J =0TO
!
-
I
338: IF
L
>3LET
L=
l
:
t<
=K+
!
340: F=l60/l
*
<l
-
J
-
I
):LI
NE
<F, 0)
-<
<F-
5•
!60/I
I,
-
5
0; ,0,0,
s
345
:
$=F
:
V=F-5+160/
l
:
GOSUB
650
349:
COLOR 0
:
GLCURSOR CF
,
-
B
0
J:LPRINT
A$<J
)
350
:
GLCURSOR (F,
-
2
!0
J:L
PRINT
"
.
"
35
l
: Q=A(Jl/H*!00:
0
"'
INT «D•.005)
*100
1/ 100
352
:
IF J
=l
-
!LET
O=
J00•
G:GOTO
355
353
:
G=G.;.O
355:
6LCUR$0R
(F
,
-
2
40
J:
LPR
I
NT
US
I
NG
""MU
. II
u"
;
0
;
"
%" :
US
I
NG
358:L=L+l:NEXT
J
370: TEKf
:
LF
10
:
END
(To be continued
)
3
Advertisement
