Anthony P. Solli
PROGRAM 0110
4 REM FREQUENCY DISTRIBUTION PROGRAM
6 REM HUNDRED COLUMN DIGITS
8 LET A0=0
10 LET A1=0
12 LET A2=0
14 LET A3=0
16 LET A4=0
18 LET A5=0
20 LET A6=0
22 LET A7=0
24 LET A8=0
26 LET A9=0
28 FOR J=1 TO 1313
30 READ A,B,C,D
32 IF A=0 THEN 52
34 IF A=1 THEN 56
36 IF A=2 THEN 60
38 IF A=3 THEN 64
40 IF A=4 THEN 68
42 IF A=5 THEN 72
44 IF A=6 THEN 76
46 IF A=7 THEN 80
48 IF A=8 THEN 84
5O IF A=9 THEN 88
52 LET A0=A0+1
54 GOTO 90
56 LET A1=A1+1
58 GOTO 90
60 LET A2=A2+1
62 GOTO 90
64 LET A3=A3+1
66 GOTO 90
68 LET A4=A4+1
70 GOTO 90
72 LET A5=A5+1
74 GOTO 90
76 LET A6=A6+1
78 GOTO 90
80 LET A7=A7+1
82 GOTO 90
84 LET A8=A8+1
86 GOTO 90
88 LET A9=A9+1
90 NEXT J
92 LET T=A0+A1+A2+A3+A4+A5+A6+A7+A8+A9
94 FOR J0=1 TO A0
96 PRINT “0”;
98 NEXT J0
100 PRINT
102 PRINT
104 FOR J1=1 TO A1
106 PRINT “l”;
108 NEXT J1
110 PRINT
112 PRINT
114 FOR J2=1 TO A2
116 PRINT “2”;
118 NEXT J2.
120 PRINT
122 PRINT
124 FOR J3=1 TO A3
126 PRINT “3”;
128 NEXT J3
130 PRINT
132 PRINT
134 FOR J4=1 TO A4
136 PRINT “4”;
138 NEXT J4
140 PRINT
142 PRINT
144 FOR J5=1 TO A5
146 PRINT “5”;
148 NEXT J5
150 PRINT
152 PRINT
154 FOR J6=1 TO A6
155 PRINT “6”;
158 NEXT J6
160 PRINT
162 PRINT
164 FOR J7=1 TO A7
166 PRINT “7”;
168 NEXT J7
170 PRINT
172 PRINT
174 FOR J8=1 TO A8
176 PRINT “8”;
178 NEXT J8
180 PRINT
182 PRINT
184 FOR J9=1 TO A9
186 PRINT .”9”
188 NEXT J9
190 PRINT
192 PRINT
194 PRINT
196 PRINT
198 PRINT
200 PRINT “NUMBER OF ZERO DIGITS=”;A0
202 PRINT “NUMBER OF ONE DIGITS=”;A1
204 PRINT “NUMBER OF TWO DIGITS=”;A2
206 PRINT “NUMBER OF THREE DIGITS=”;A3
208 PRINT “NUMBER OF FOUR DIGITS=”;A4
210 PRINT “NUMBER OF FIVE DIGITS=”;A5
212 PRINT “NUMBER OF SIX DlGITS=”;A6
214 PRINT “NUMBER OF SEVEN DIGITS=”;A7
216 PRINT “NUMBER OF EIGHT DIGITS=”;A8
218 PRINT “NUMBER OF NINE DIGITS=”;A9
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
1030 DATA 1,8,4,77.0406,9,4,3,77.0407¥0,9,0,77.0409
1035 DATA 4,5,7,77.0411,0,0,6,77.0412,0,5,3,77 0413
1040 DATA 4,3,4,77.0414,7,8,9,77.0415,4,7,0,77.0416
1045 DATA 4,4,6,77.0418,5,6,6,77.0419,9,5,5,77.042
1050 DATA 2,1,7,77.0421,3,8,7,77 0422,8,5,4,77.0423
1055 DATA 5,1,7,77.0425,6,5,2,77.0426,9,4,0,77.0427
1060 DATA 9,3,0,77.0428,5,2,9,77 0429,5,4,4,77.043
¥
¥
¥
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
