Listing of file='27B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 305, program filename = '27B'
0010 DIM A(255)
0012 INPUT "ENTER THE INTERVAL SIZE",D
0015 INPUT "ENTER THE TOTAL NUMBER OF ENTRIES",N
0020 FOR I=1TO N
: PRINT "A(";I;")";
: INPUT A(I)
: NEXT I
0030 H,L=A(1)
0040 FOR I=2 TO N
0050 IF A(I)>L THEN 70
0060 L=A(I)
0070 IF A(I)<H THEN 90
0080 H=A(I)
0090 NEXT I
0100 X=L/D
0110 IF X=INT(L/D) THEN 160
0120 FOR M=1 TO D-1
0130 Y=(L-M)/D
0140 IF Y=INT((L-M)/D) THEN 180
0150 NEXT M
0160 Z=L
0170 GOTO 190
0180 Z=L-M
0190 PRINT "ENTRIES","HISTOGRAM"
0200 PRINT
0210 FOR I=Z TO H STEP D
0220 PRINT I,
0230 FOR J=1 TO N
0240 IF A(J)>=I+D THEN 270
0250 IF A(J)<I THEN 270
0260 S=S+1
0270 NEXT J
0280 FOR K=1 TO S
0290 PRINT "*";
0300 NEXT K
0310 S=0
0320 PRINT
0330 NEXT I
0340 PRINT
0350 END