Anthony P. Solli
PROGRAM 1000
4 REM FREQUENCY DISTRIBUTION PROGRAM
6 REM UNIT COLUMN DIGITS
8 LET C0=0
10 LET C1=0
12 LET C2=0
14 LET C3=0
16 LET C4=0
18 LET C5=0
20 LET C6=0
22 LET C7=0
24 LET C8=0
26 LET C9=0
28 FOR J=1 TO 1313
30 READ A,B,C,D
32 IF C=0 THEN 52
34 IF C=1 THEN 56
36 IF C=2 THEN 60
38 IF C=3 THEN 64
40 IF C=4 THEN 68
42 IF C=5 THEN 72
44 IF C=6 THEN 76
46 IF C=7 THEN 80
48 IF C=8 THEN 84
5O IF C=9 THEN 88
52 LET C0=C0+1
54 GOTO 90
56 LET C1=C1+1
58 GOTO 90
60 LET C2=C2+1
62 GOTO 90
64 LET C3=C3+1
66 GOTO 90
68 LET C4=C4+1
70 GOTO 90
72 LET C5=C5+1
74 GOTO 90
76 LET C6=C6+1
78 GOTO 90
80 LET C7=C7+1
82 GOTO 90
84 LET C8=C8+1
86 GOTO 90
88 LET C9=C9+1
90 NEXT J
92 LET T=C0+C1+C2+C3+C4+C5+C6+C7+C8+C9
94 FOR J0=1 TO C0
96 PRINT “O”;
98 NEXT J0
100 PRINT
102 PRINT
104 FOR J1=1 TO C1
106 PRINT “l”;
108 NEXT J1
110 PRINT
112 PRINT
114 FOR J2=1 TO C2
116 PRINT “2”;
118 NEXT J2
120 PRINT
122 PRINT
124 FOR J3=1 TO C3
126 PRINT “3”;
128 NEXT J3
130 PRINT
132 PRINT
134 FOR J4=1 TO C4
136 PRINT “4”;
138 NEXT J4
140 PRINT
142 PRINT
144 FOR J5=1 TO C5
146 PRINT “5”;
148 NEXT J5
150 PRINT
152 PRINT
154 FOR J6=1 TO C6
156 PRINT “6”;
158 NEXT J6
160 PRINT
162 PRINT
164 FOR J7=1 TO C7
166 PRINT “7”;
168 NEXT J7
170 PRINT
172 PRINT
174 FOR J8=1 TO C8
176 PRINT “8”;
178 NEXT J8
180 PRINT
182 PRINT
184 FOR J9=1 TO C9
186 PRINT “9”;
188 NEXT J9
190 PRINT
192 PRINT
194 PRINT
196 PRINT
198 PRINT
200 PRINT “NUMBER OF ZERO DIGITS=”;C0
202 PRINT “NUMBER OF ONE DIGITS=”;C1
204 PRINT “NUMBER OF TWO DIGITS=”;C2
206 PRINT “NUMBER OF THREE DIGITS=”;C3
208 PRINT “NUMBER OF FOUR DIGITS=”;C4
210 PRINT “NUMBER OF FIVE DIGITS=”;C5.
212 PRINT “NUMBER OF SIX DIGITS=”;C6
214 PRINT “NUMBER OF SEVEN DIGIT=”;C7
216 PRINT “NUMBER OF EIGHT DIGIT=”;C8
218 PRINT “NUMBER OF NINE DIGIT=”;C9
220 PRINT “TOTAL=4”;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
|
¥
¥
¥
3185 DATA 5,9,7,81.0627,4,4,8,81.0629,0,0,8,81.063
9999 END
