Sharp PC-1500 - Page 107

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
T I TL E
GRAPH GENERAT ION I
(BAND OR CIRCLE GRAPH)
[ Program List ]
1 0: "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"
2 5:Bs <6>='"G'":B$<7
>= "H ": 8S<81=" I
" : 8$ ( g ).:: "J "
30:FQR 1= 0TO Q
40:CS="J TE M NAM E<
" .. SfR$ ( J+I)+"
)":PR I NT C$;
5 0: I NPUT AS( I I:
G OTO 70
50:C LS : ! =I- I:
GOTO 100
70 :CLS : C $="UALU E
(" +ST RS <l +l )+
" ) =":PR IN T cs;
80: INPUT A<I J:CLS
: H= H+A( I >
90:NEXT I
1 00: l = l+I
110: INPUT "CI RC LE=
1 B AN0 = 2";C
120: IF <C=I >+<C =21
<>IGO fO 11 0
1
30: !F C= 2G O TO 300
1 40 : GRAP H :
GL CU RSOR Cl I 0,
- l 25J:SO RG N
!50: 0= l2:Y = I00:R=l
00:L= l : C=0
I60 : F OR J =!TO 31
1?0: G OSU B 600 : LI NE
<X,Y> - <XJ,YJ>:
X=X
l: Y=Yl: C=C+
D
1 80:NE XT J
Do not sale this PDF !!!
!S0 :F OR J=0TO 1-l
IS5:R=l00
200:F • 360*A<J J/ H:F
=G+F: IF
J =l - l
LE T F =' 360
210 :F OR M =' ITO 2
215: IF M=ILE T C=G+
. 5: GO TO 225
220:C= F- .5
225: GOSU B 600: !F L
>3 L ET L= I
230:LINE (0,0) - (X I
, YI ), 0, L : NE X1
M
235:R = 50: C= <F - G>,2
+G :GOSU8 600:X
l =Xl - 3
250: G
=F
251:G L CUR SOR (X!,Y
l): L PRINT BS<J
):L = L+!:N E XT J
25 2:G L CURSOR (-1 !0
, - 15 0) : SORGN
264:Y=0:X =0 : C OLOR
0
25 5: FO R J=0 TO 1 -1
267: 0=A<J)/H*l00 :0
=INT < <D + .0051
* 1 00 I/ I 00: 1 1' J
=1 -IL ET 0=100-
N:GOTO 270
269:N =N+O
270:GL
CU RS OR (X, YI
:!_ P RIN T 8S(J I
275:GL
CU RSOR <1 8,Y
J :LPRINT AS<J)
280:Y=Y-20
282:G LCURSOR <18, Y
J: LPRI Nf " ... .
... ";USING "~M
" ·"ll " ; O; "%";
US I NG
2B4:Y=Y- 20
295 :NE XT J
290:TEXT
:L I' 10:
E
ND
- 101 -
PROGRAM NO.
P5- D-8
300:GRAP H:
6L CURSOR <0, 01
:SOR GN :RO TATE
I
3J 2:K=l =L=! :S=! 60 :
U= 215
315:F OR J ~0TO 1-1
320:0=!NT (A(j)/H*
1 00+.5) :E =0*3
325:W=l - £ : JF J =J - l
LE T W= - 300
327 : J F" L ) 3L ET L =t:
i<= K+ I
330:LJNE <1 60, T) - (
215, WI, 0, 0, B:
GOS UB 650
332:T= W: L =L +J:N£XT
J
33 5: 1<=1:L=J:W =-S0 :
T
=0
336 :f OR J = 0TO !- I
338: IF L >3LET L=l :
t< =K+ !
340: F =l6 0 /l * <l -J - I
):LI NE <F, 0) -<
<F- 5• ! 60/I I, - 5
0; ,0,0 , s
345 : $=F : V=F-5+16 0/
l : GOSUB 650
349: C OLO R 0:
GL CURSOR CF , - B
0 J:LPRINT A$<J
)
3 50 : GL CURSOR (F, - 2
!0 J:L P RINT " .
"
35 l : Q= A(Jl/ H *!00: 0
"' I NT «D•.005)
*100 1/ 1 00
352 : IF J=l - !L ET O=
J0 0• G :GO TO 355
353 : G=G .;. O
35
5: 6L CU R$ 0R (F, - 2
40 J: LPR I NT
US I NG ""MU . II u"
; 0 ; " %" : US I NG
358:L=L+l:N E XT J
370: TE Kf : LF 10 :
END
(To be continued )
3