Anthony P. Solli
PROGRAM 0111
4 REM FREQUENCY DISTRIBUTION PROGRAM
6 REM TEN COLUMN DIGITS
8 LET B0=0
10 LET B1=0
12 LET B2=0
14 LET B3=0
16 LET B4=0
18 LET B5=0
20 LET B6=0
22 LET B7=0
24 LET B8=0
26 LET B9=0
28 FOR J=1 TO 1313
30 READ A,B,C,D
32 IF B=0 THEN 52
34 IF B=1 THEN 56
36 IF B=2 THEN 60
38 IF B=3 THEN 64
40 IF B=4 THEN 68
42 IF B=5 THEN 72
44 IF B=6 THEN 76
46 IF B=7 THEN 80
48 IF B=8 THEN 84
50 IF B=9 THEN 88
52 LET B0=B0+1
54 GOTO 90
56 LET B1=B1+1
58 GOTO 90
60 LET B2=B2+1
62 GOTO 90
64 LET B3=B3+1
66 GOTO 90
68 LET B4=B4+1
70 GOTO 90
72 LET B5=B5+1
74 GOTO 90
76 LET B6=B6+1
78 GOTO 90
80 LET B7=B7+1
82 GOTO 90
84 LET B8=B8+1
86 GOTO 90
88 LET B9=B9+1
90 NEXT J
92 LET T=B0+B1+B2+B3+B4+B5+B6+B7+B8+B9
94 FOR J0=1 TO B0
96 PRINT “0”;
98 NEXT J0
100 PRINT
102 PRINT
104 FOR J1=1 TO B1
106 PRINT “1”;
108 NEXT J1
110 PRINT
112 PRINT
114 FOR J2=1 TO B2
116 PRINT “2”;
118 NEXT J2
120 PRINT
122 PRINT
124 FOR J3=1 TO B3
126 PRINT “3”;
128 NEXT J3
130 PRINT
132 PRINT
134 FOR J4=1 TO B4
136 PRINT “4”;
138 NEXT J4
140 PRINT
142 PRINT
144 FOR J5=1 TO B5
146 PRINT “5”;
148 NEXT J5
150 PRINT
152 PRINT
154 FOR J6=1 TO B6
156 PRINT “6”;
158 NEXT J6
160 PRINT
162 PRINT
164 FOR J7=1 TO B7
166 PRINT “7”;
168 NEXT J7
170 PRINT
172 PRINT
174 FOR J8=1 TO B8
176 PRINT “8”;
178 NEXT J8
180 PRINT
182 PRINT
184 FOR J9=1 TO B9
186 PRINT “9”;
188 NEXT J9
190 PRINT
192 PRINT
194 PRINT
196 PRINT
198 PRINT
200 PRINT “NUMBER OF ZERO DIGITS=”;B0
202 PRINT “NUMBER OF ONE DIGITS=”;B1
204 PRINT “NUMBER OF TWO DIGITS=”;B2
206 PRINT “NUMBER OF THREE DIGITS=”;B3
208 PRINT “NUMBER OF FOUR DIGITS=”;B4
210 PRINT “NUMBER OF FIVE DIGITS=”;B5
212 PRINT “NUMBER OF SIX DIGITS=”;B6
214 PRINT “NUMBER OF SEVEN DIGITS=”;B7
216 PRINT “NUMBER OF EIGHT DIGITS=”;B8
218 PRINT “NUMBER OF NINE DIGITS=”;B9
220 PRINT “TOTAL=”;T
1000 DATA 1,6,2,77.0316,6,0,6,77.0317,5,0,1,77.0318
1005 DATA 0,1,5,77.0319 0,4,3,77.0321,9,0, 0,77.0322
1010 DATA 0,0,2,77.0323,8,7,8,77.0324,7,0,5,77.0325
1015 DATA 9,7,4,77.0326,0,1,5,77.0328,9,7,9,77.0329
1020 DATA 3,6,0,77.033,0,2,9,77.0331,3,0,0,77.0401
1025 DATA 3,4,1,77.0402,0,0,9,77.0404,8,0,2,77.0405
3150 DATA 8,7,2,81.0603,3,7,6,81.0604,0,8,0,81.0605
3155 DATA 9,0,6,81.0606,4,2,4,81.0608,6,9,5,81.0609
3160 DATA 4,9,8,81.061,8,9,9,81.0611,0,6,7,81.0612
3165 DATA 1,7,3,81.0613,0,3,2,81.0615,9,9,2,81.0616
3170 DATA 8,6,0,81.0617,5,2,8,81.0618,5,4,2,81.0619
3175 DATA 5,4,8,81.062,7,9,9,81.0622,3,4,7,81.0623
3180 DATA 4,5,6,81.0624,7,1,7,81.0625,0,9,5,81.0626
3185 DATA 5,9,7,81.0627,4,4,8,81.0629,0,0,8,81.063
9999 END