Radio Shack TRS-80 Model 100 Basic Manual page 203

780
NC~INT(VAL(NC$»
785 IF NC<6 OR NC>15 GOTO 770
800 REM COMPUTE THE FREQUENCIES
810
RG~A(N)-A(1):CL~RG/NC
820
J~1
830 FOR
I~1
TO NC-1
8a0
6D~A(1)+I*CL
850 IF A(J»6D GO TO 880
860 F(l)=F(l)+1:J=J+1
870 GOTO 850
880 NEXT I
880 F(NC)=N-J+1
800 REM DETERMINE THE MAX FREQUENCY
810 FOR 1=1 TO NC
820 IF MF>F(I) GOTO 830 ELSE MF=F(I)
830 NEXT I
8a0
PRINT"HISTOGRAM ON LCD, LINE PRINTER OR 60TH"
850 INPUT" (L, P
0
r
6)" H$
860 IF T$="L" GOTO 1010
870 IF T$="P" GOTO 1110
880 IF T$< >"6" GOTO
8a0
1000 REM DISPLAY HISTOGRAM ON LCD
1010 CLS
1020 REM DRAW THE AXES
1030 LINE(13,0)-(13,60):LINE-(238,60)
10a0
Y2=60:X2=20
1050 FORI=1 TO NC
1060 X1=X2:Y1=60-50*F(I)/MF
1070 X2=X1+212/NC
11218121 LINE(X1 ,Yl)-(X2,Y2)
t1
,BF
1080 NEXT I
11121121 IF T$="L" GOTO 128121
1110 REM PRINT THE HISTOGRAM
1120 X$="****":Y$=" "
1130 FOR 1=30 TO 1 STEP -1
11a0
LPRINT "*" HA6( 10);
1150 FOR J=1 TO NC
1160 H=30*F(J)/MF
1170 IF H>I THEN LPRINT X$; ELSE LPRINT Y$;
1180 NEXT J:LPRINT
1180 NEXT I
1200 LPRINT STRING$(8121,"*")
1210 FORI=1 TO NC
1220 LPRINT TA6(10+a*(I-1»1;:NEXT1
1230 LPRINTY$:LPRINTY$:LPRINTY$
12a0
LPRINT"CLASS NUM6ER"TA6(2S)"CLASS"TAB(aS)"
FREQUENCY
1250 LPRINT STRING$(60,"-")
1260 FOR 1=1 TO NC
12656D=A(1)+(I-1)*CL
1270 LPRINT TA6(a) I HA6( 1a)BDHA6(31) "TO" ;6D+CL;
TAB(S1)F(l)
1280 NE}n I
1280 END
197