| Yale-New Haven Teachers Institute | Home |
|
|
by
Anthony P. Solli
The length of time needed to teach this unit could be two or three weeks, depending on the amount of time you would spend teaching or reviewing the language of BASIC with your class.
For a beginning class in BASIC, the reader is referred to other units in this volume. In particular, the units of Joyce Bryant and Lauretta Fox.
A keyboard unit, which looks like a typewriter, contains the actual computing circuiting, called the “central processing unit”.
A video monitor, which looks like a television screen, is specifically designed for use with the TRS 80. It differs from a standard television in two respects: It has a broader bandwidth than most “home TV’s”, a characteristic which produces sharper screen images for greater legibility of the display, and does not contain a tuner.
A cassette recorder which looks like and is a tape recorder. The recorder is a standard audio recorder which was chosen for its compatibility with the TRS80 and has been modified somewhat for this use.
The power supply powers the keyboard unit. Using a separate power supply eliminates bulk, size, and heat in the keyboard design,
What follows are computer programs that look into the Connecticut Daily Numbers.
Appendix I has a complete printout of the data deck used with all the programs in this unit.
50 FOR A=0 TO 9
60 FOR B=0 TO 9
70 FOR C=0 TO 9
80 PRINT TAB(30)”NUMBER =”A;TAB(31),B;TAB(32),C
90 NEXT C
100 NEXT B
110 NEXT A
120 END
| NUMBER = 0 | 0 | O | |
| NUMBER = 0 | 0 | 1 | |
| NUMBER = 0 | 0 | 2 | |
| NUMBER = 0 | 0 | 3 | |
| NUMBER = 0 | 0 | 4 | |
| NUMBER = 0 | 0 | S | |
| NUMBER = 0 | O | ¥ | |
| NUMBER = O | 0 | 7 | |
| NUMBER = 0 | 0 | 8 | |
| NUMBER = O | 0 | 9 | |
| NUMBER = 0 | 1 | 0 | |
| NUMBER = O | 1 | 1 | |
| NUMBER = O | 1 | 2 | |
| NUMBER = 0 | 1 | 3 | |
| NUMBER = O | 1 | 4 |
¥
¥
| NUMBER = 9 | 8 | 5 | |
| NUMBER = 9 | 8 | 6 | |
| NUMBER = 9 | 8 | 7 | |
| NUMBER = 9 | 8 | 8 | |
| NUMBER = 9 | 8 | 9 | |
| NUMBER = 9 | 9 | O | |
| NUMBER = 9 | 9 | 1 | |
| NUMBER = 9 | 9 | 2 | |
| NUMBER = 9 | 9 | 3 | |
| NUMBER = 9 | 9 | 4 | |
| NUMBER = 9 | 9 | 5 | |
| NUMBER = 9 | 9 | 6 | |
| NUMBER = 9 | 9 | 7 | |
| NUMBER = 9 | 9 | 8 | |
| NUMBER = 9 | 9 | 9 |
Note that the first number on a line is the count, the second, third, and fourth numbers make up the lottery number, and the fifth number on the line is the year given in the form of a decimal numeral to four digits.
| 1 | 1 | 1 | 2 | 77.0316 | |
| 2 | 6 | 0 | 6 | 77.0317 | |
| 3 | 5 | 0 | 1 | 77.0318 | |
| 4 | 0 | 1 | 5 | 77.0319 | |
| 5 | 0 | 4 | 3 | 77.0321 | |
| 6 | 9 | 0 | 0 | 77.0322 | |
| 7 | 0 | 0 | 2 | 77.0323 | |
| 8 | 8 | 7 | 8 | 77.0324 | |
| 9 | 7 | 0 | 5 | 77.0325 | |
| 10 | 9 | 7 | 4 | 77.0326 |
¥
¥
| 1298 | 0 | 6 | 7 | 81.0612 | |
| 1299 | 1 | 7 | 3 | 81.0613 | |
| 1300 | 0 | 3 | 2 | 81.0615 | |
| 1301 | 9 | 9 | 2 | 8l.0616 | |
| 1302 | 8 | 6 | 0 | 81.0617 | |
| 1303 | 5 | 2 | 8 | 81.0618 | |
| 1304 | 5 | 4 | 2 | 81.0619 | |
| 1305 | 5 | 4 | 8 | 81.062 | |
| 1306 | 7 | 9 | 9 | 81.0622 | |
| 1307 | 3 | 4 | 7 | 81.0623 | |
| 1308 | 4 | 5 | 6 | 81.0624 | |
| 1309 | 7 | 1 | 7 | 81.0625 | |
| 1310 | 0 | 9 | 5 | 81.0626 | |
| 1311 | 5 | 9 | 7 | 81.0627 | |
| 1312 | 4 | 4 | 8 | 81.0629 | |
| 1313 | 0 | 0 | 8 | 81.063 |
15 REM PR0GRAM TO LIST ALL HUNDRED DIGITS
20 FOR J=1 TO 1313
30 READ A,B,C,D
40 PRINT A;
80 NEXT J
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,5t,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,O,0,77.0401
1025 DATA 3,4,1,77.0402,0,0,9,77.0404,8,0,2,77.4405
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,8l,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,S,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
15 REM PROGRAM TO LIST ALL TEN DIGITS
20 FOR J=1 TO 1313
30 READ A.B.C.D
40 PRINT B;
80 NEXT J
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
¥
¥
¥
3185 DATA 5,9,7,81.0627,4,4,8,81.0629,0,0,8,81.063
| 9999 END |
| 6 | 0 | 0 | 1 | 4 | 0 | 0 | 7 | 0 | 7 | 1 | 7 | ||
| 6 | 2 | 0 | 4 | 0 | 0 | 8 | 4 | 9 | 5 | 0 | 5 | ||
| 3 | 8 | 7 | 4 | 6 | 5 | 1 | 8 | 5 | 1 | 5 | 4 | ||
| 3 | 2 | 4 | 0 | 7 | 3 | 2 | 9 | 0 | 8 | 3 | 8 | ||
| 6 | 1 | 3 | 0 | 5 | 5 | 8 | 3 | 0 | 9 | 1 | 6 | ||
| 1 | 7 | 9 | 9 | 0 | 3 | 3 | 2 | 0 | 8 | 1 | 4 | ||
| 3 | 6 | 0 | 8 | 5 | 9 | 2 | 1 | 8 | 4 | 5 | 2 | ||
| 5 | 1 | 2 | 1 | 1 | 7 | 9 | 3 | 2 | 9 | 7 | 4 | ||
| 2 | 0 | 3 | 2 | 8 | 7 | 6 | 0 | 5 | 3 | 5 | 4 | ||
| 7 | 3 | 9 | 4 | 8 | 5 | 1 | 4 | 1 | 2 | 3 | 0 | ||
| 2 | 9 | 5 | 9 | 3 | 7 | 5 | 1 | 6 | 1 | 8 | 8 | ||
| 1 | 4 | 7 | 4 | 4 | 0 | 8 | 0 | 9 | 5 | 8 | 7 | ||
| 4 | 6 | 7 | 9 | 4 | 6 | 8. | 9 | 5 | 6 | 8 | 3 | ||
| 9 | 7 | 0 | 7 | 9 | 8 | 0 | .7 | 1 | 5 | 7 | 6 | ||
| 1 | 9 | 6 | 9 | 4 | 6 | 6 | 7 | 6 | 3 | 7 | 1 | ||
| 7 | 3 | 4 | 4 | 0 | 3 | 8 | 7 | 3 | 2 | 1 | 0 | ||
| 5 | 5 | 9 | 1 | 7 | 9 | 0 | 9 | 0 | 8 | 3 | 9 | ||
| 1 | 3 | 8 | 9 | 6 | 5 | 3 | 1 | 7 | 8 | 0 | 2 | ||
| 6 | 5 | 4 | 9 | 1 | 6 | 3 | 4 | 0 | 0 | 0 | 4 | ||
| 2 | 6 | 0 | 4 | 3 | 1 | 4 | 9 | 4 | 3 | 2 | 2 | ||
| 2 | 5 | 5 | 7 | 6 | 9 | 0 | 5 | 3 | 4 | 4 | 2 | ||
| 3 | 0 | 3 | 9 | 5 | 2 | 4 | 0 | 5 | 8 | 0 | 6 | ||
| 5 | 2 | 8 | 0 | 5 | 9 | 0 | 0 | 0 | 9 | 1 | 7 | ||
| 9 | 2 | 7 | 5 | 3 | 4 | 6 | 1 | 5 | 9 | 6 | 0 | ||
| 1 | 3 | 0 | 5 | 1 | 7 | 3 | 4 | 4 | 3 | 8 | 1 | ||
| 3 | 2 | 7 | 3 | 3 | 8 | 7 | 2 | 8 | 0 | 7 | 0 | ||
| 2 | 3 | 5 | 9 | 6 | 7 | 8 | 0 | 9 | 9 | 8 | 6 | ||
| 0 | 4 | 2 | 9 | 6 | 3 | 3 | 2 | 4 | 1 | 3 | 2 | ||
| 0 | 7 | 9 | 7 | 8 | 7 | 3 | 9 | 4 | 8 | 3 | 5 | ||
| 9 | 6 | 9 | 9 | 5 | 4 | 3 | 6 | 6 | 7 | 3 | 5 | ||
| 5 | 1 | 7 | 5 | 4 | 7 | 3 | 0 | 3 | 8 | 9 | 8 | ||
| 5 | 1 | 6 | 8 | 0 | 8 | 3 | 3 | 6 | 5 | 9 | 2 | ||
| 1 | 8 | 8 | 7 | 1 | 8 | 9 | 6 | 6 | 0 | 7 | 6 | ||
| 9 | 5 | 4 | 2 | 2 | 5 | 8 | 7 | 3 | 8 | 2 | 3 | ||
| 0 | 8 | 7 | 9 | 2 | 1 | 9 | 3 | 1 | 4 | 0 | 5 | ||
| 9 | 4 | 1 | 3 | 9 | 0 | 5 | 9 | 4 | 1 | 0 | 9 | ||
| 6 | 7 | 0 | 0 | 3 | 6 | 2 | 3 | 2 | 6 | 3 | 0 | ||
| 8 | 9 | 5 | 8 | 3 | 9 | 3 | 1 | 7 | 3 | 1 | 6 | ||
| 6 | 5 | 5 | 2 | 7 | 9 | 5 | 9 | 4 | 3 | 0 | 3 | ||
| 7 | 1 | 1 | 5 | 0 | 7 | 0 | 1 | 3 | 6 | 7 | 7 | ||
| 4 | 0 | 9 | 0 | 4 | 2 | 2 | 0 | 3 | 0 | 8 | 0 | ||
| 0 | 9 | 4 | 7 | 6 | 3 | 5 | 4 | 3 | 5 | 1 | 1 | ||
| 7 | 8 | 7 | 5 | 9 | 7 | 6 | 9 | 9 | 8 | 3 | 8 | ||
| 8 | 7 | 5 | 2 | 1 | 4 | 8 | 1 | 6 | 2 | 6 | 3 | ||
| 3 | 9 | 6 | 8 | 6 | 2 | 0 | 3 | 6 | 3 | 5 | 2 | ||
| 7 | 5 | 4 | 2 | 8 | 7 | 7 | 9 | 9 | 3 | 6 | 4 | ||
| 4 | 4 | 1 | 3 | 7 | 5 | 6 | 5 | 6 | 2 | 8 | 3 | ||
| 7 | 5 | 4 | 9 | 1 | 2 | 5 | 0 | 9 | 7 | 7 | 3 | ||
| 6 | 3 | 8 | 2 | 9 | 8 | 2 | 6 | 0 | 3 | 5 | 7 | ||
| 6 | 4 | 9 | 7 | 9 | 6 | 2 | 2 | 9 | 4 | 3 | 4 | ||
| 8 | 5 | 8 | 2 | 5 | 6 | 6 | 5 | 9 | 7 | 3 | 1 | ||
| 0 | 4 | 4 | 4 | 8 | 3 | 5 | 4 | 9 | 3 | 2 | 1 | ||
| 4 | 4 | 0 | 3 | 1 | 6 | 5 | 1 | 0 | 0 | 4 | 9 | ||
| 9 | 9 | 1 | 9 | 4 | 2 | 3 | 7 | 3 | 3 | 7 | 8 | ||
| 7 | 5 | 5 | 6 | 5 | 2 | 6 | 0 | 5 | 3 | 5 | 9 | ||
| 2 | 6 | 3 | 5 | 0 | 8 | 0 | 8 | 2 | 4 | 2 | 3 | ||
| 6 | 5 | 8 | 2 | 2 | 8 | 4 | 3 | 8 | 6 | 5 | 0 | ||
| 3 | 5 | 2 | 1 | 7 | 0 | 8 | 6 | 2 | 0 | 7 | 7 | ||
| 9 | 5 | 1 | 3 | 6 | 9 | 0 | 0 | 0 | 7 | 1 | 6 | ||
| ¥ | 9 | 0 | 5 | ¥ | 0 | 8 | 7 | 5 | 0 | 4 | 1 | ||
| 5 | 9 | 3 | 3 | 0 | 9 | 7 | 0 | 0 | 4 | 7 | 1 | ||
| 7 | 8 | 9 | 3 | 9 | 7 | & | 3 | ¥ | 0 | 8 | 0 | ||
| 5 | 3 | 2 | 0 | 8 | 7 | ¥ | 7 | ¥ | 1 | 5 | 5 | ||
| 0 | 3 | 5 | ¥ | 7 | 7 | 2 | 3 | 4 | 0 | 0 | 4 | ||
| 8 | 7 | 1 | 0 | 2 | 3 | 7 | 9 | 3 | 2 | 2 | 8 | ||
| 8 | 9 | 2 | 0 | 7 | 5 | 7 | ^4 | 2 | 7 | 3 | 1 | ||
| 3 | 1 | 1 | 8 | 5 | 3 | 9 | ¥ | 1 | ¥ | 2 | |||
| ¥ | ¥ | 4 | 7 | 1 | 9 | 2 | 7 | 0 | 4 | 4 | 1 | ||
| a | 5 | 7 | 0 | 2 | 9 | 2 | 0 | ¥ | 8 | 1 | .3 | ||
| 4 | ¥ | 2 | ¥ | 2 | 0 | 0 | 8 | 1 | 7 | 0 | 0 | ||
| 2 | a | 9 | ¥ | , | 7 | 0 | 2 | ¥ | ¥ | 2 | 7 | ||
| 9 | a | 1 | 0 | 3 | 2 | ¥ | ¥ | 4 | |||||
| 9 | ¥ | 3 | 3 | 5 | 8 | 9 | ¥ | ¥ | 3 | ||||
| 2 | ¥ | 9 | 2 | 3 | 8 | ¥ | ¥ | 7 | ¥ | 1 | |||
| 7 | 5 | 2 | 1 | 3 | 8 | ¥ | 5 | 2 | |||||
| 2 | 7 | 9 | 9 | 2 | a | ¥ | 7 | 3 | a | 4 | 8 | ||
| 2 | 2 | 1 | 1 | 9 | 3 | 8 | 0 | 3 | ¥ | ¥ | |||
| 3 | ¥ | ¥ | 5 | 9 | 3 | ¥ | ¥ | 3 | |||||
| 1 | 3 | 0 | 8 | 4 | 0 | 2 | ¥ | ¥ | |||||
| 0 | ¥ | 3 | ¥ | 0 | 1 | 9 | ¥ | 7 | 7 | ¥ | 3 | ||
| 7 | 3 | 9 | ¥ | 7 | 3 | 5 | 0 | ¥ | 1 | 1 | 3 | ||
| 3 | 2 | 7 | 0 | e | 2 | ¥ | 5 | ¥ | 7 | ||||
| 0 | 5 | 9 | 7 | 5 | ¥ | 2 | 3 | ¥ | 2 | 1 | 0 | ||
| 3 | ¥ | 1 | 5 | ¥ | 9 | 7 | 7 | 2 | 5 | 5 | 0 | ||
| 3 | 0 | 7 | 3 | 7 | 8 | 5 | 9 | 1 | 3 | 5 | |||
| 7 | 8 | ¥ | 9 | 0 | 7 | 2 | 3 | 2 | 3 | 3 | |||
| 7 | 8 | 5 | 3 | 4 | 1 | 5 | 8 | 9 | 9 | ||||
| 2 | 1 | 1 | 7 | ¥ | 2 | ¥ | 7 | 4 | 9 | 5 | 2 | ||
| 7 | ¥ | 0 | 2 | 8 | 9 | 9 | 7 | 2 | 5 | 9 | 2 | ||
| 0 | ¥ | 5 | ¥ | 3 | 9 | 9 | 1 | ¥ | 0 | 7 | ¥ | ||
| ¥ | 3 | 3 | 1 | 0 | ¥ | 5 | 5 | 9 | 0 | 3 | ¥ | 3 | |
| a | 1 | 0 | s | 8 | 5 | 0 | 1 | 0 | 0 | 7 | 9 | ||
| ¥ | 3 | ¥ | ¥ | 1 | ¥ | 8 | ¥ | 2 | 8 | 2 | |||
| 0 | 3 | 8 | 9 | 4 | 3 | ¥ | 2 | 8 | 7 | 2 | 1 | ||
| ¥ | ¥ | ¥ | 1 | 1 | 0 | 1 | ¥ | 0 | 3 | 4 | 9 | ||
| 1 | 9 | 9 | 3 | ¥ | 7 | ¥ | 0 | 5 | 0 | 1 | 2 | ||
| 2 | ¥ | 0 | 5 | 5 | 9 | 9 | 8 | 4 | 9 | 3 | 8 | ||
| ¥ | 3 | 8 | ¥ | 9 | 7 | ¥ | 5 | 3 | 5 | ¥ | 1 | 0 | |
| 3 | 9 | 4 | 0 | ¥ | 8 | 9 | 4 | . | 0 | 3 | 1 | 3 | |
| ¥ | 8 | 7 | 4 | 0 | 5 | 7 | 3 | 3 | ¥ | ¥ | 5 | ||
| 1 | ¥ | e | 2, | 5 | 0 | 2 | 8 | ¥ | 7 | 0 | 3 | ||
| 1 | 9 | 1 | 5 | 9 | 0 | 5 | 0 | 1 | 2 | ||||
| 7 | 5 | ¥ | 8 | 7 | 1 | 9 | 4 | 2 | 3 | 8 | |||
| 7 | 7 | _4 | 3 | 3 | 3 | 5 | 1 | 3 | 2 | 3 | |||
| 8 | 2 | 8 | 3 | ¥ | 8 | 7 | |||||||
| 1 | ¥ | 5 | 4 | 4 | ¥ | 0 | 9 | 8 | 1 | 7 | ¥ | ||
| 1 | 0 | 5 | ¥ | 7 | 0 | ¥ | 9 | 4 | 9 | 7 | 3 | ||
| ¥ | 8 | 4 | _ | 2 | 3 | 7 | 7 | 8 | 0 | 2 | 9 | 9 | |
| 9 | ¥ | 7 | 3 | 9 | ¥ | 2 | 4 | 4 | 9 | 4 | 5 |
15 REM PROGRAM TO LIST ALL UNIT DIGITS
20 FOR J=1 TO 1313
READ A,B,C,D
40 PRINT C;
____80 NEXT J
1000 DATA 1,6,2,77.0316,6,O,6,77.0317,5,O,1,77.0318
1005 DATA 0,1,5,77.0319,O,4,3,77.0321,9,O,O,77.0322
1010 DATA 0,O,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,O,O,77 0401
1025 DATA 3,4,1,77.0402,0,O,9,77.0404,8,O,2,77.0405
1030 DATA 1,8,4,77.0406,9,4,3,77.0407,O,9,O,77 0409
1035 DATA 4,5,7,77.0411,O,O,6,77.0412,0,5,3,77.0413
3150 DATA 8,7,2,81.0603,3,7,6,81.0604,0,8,0,8l.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
| Z | ¥ | 1 | ¥ | 3 | 0 | 2 | ¥ | ¥ | 4 | 5 | 9 | |
| 0 | 9 | 0 | 1 | 9 | 2 | 4 | 3 | 0 | 7 | ¥ | 3 | |
| 4 | 9 | 0 | & | ¥ | ¥ | 7 | 7 | 4 | 7 | 2 | 0 | |
| 0 | 9 | 4 | 2 | 2 | ¥ | 1 | 4 | 2 | 0 | 0 | 3 | |
| 0 | 1 | 0 | 5 | 3 | ¥ | ¥ | 0 | ¥ | ¥ | 4 | 7 | |
| 5 | 7 | 0 | ¥ | 0 | ¥ | 3 | 2 | 0 | 5 | 5 | 3 | |
| 8 | 3 | 3 | 9 | 9 | 5 | ¥ | 8 | ¥ | 7 | 5 | 0 | |
| 9 | 3 | 2 | 9 | 4 | 7 | 3 | 7 | 3 | 8 | 4 | ||
| 0 | 3 | 3 | ¥ | ¥ | 9 | 4 | 3 | ¥ | 3 | 0 | 2 |
| 4 | 2 | 9 | 2 | 9 | 3 | 0 | 0 | 7 | 9 | 1 | 8 | ||
| 7 | 5 | 3 | ¥ | 4 | 3 | 9 | 0 | 8 | 7 | 0 | 7. | ||
| 1_. | 7 | 4 | 7 | e | 9 | ¥ | 1 | 8 | 1 | 4 | ¥ | ||
| 9 | 1 | 0 | 1 | 2 | 0 | 9 | 8 | 0 | 4 | & | 0 | ||
| 5 | 2 | 3 | 1 | 5 | 5 | 1 | 2 | 3 | 4 | e | 2 | ||
| 7 | 2 | ¥ | 0 | 9 | 7 | 4 | ¥ | 2 | 3 | 8 | 0 | ||
| S | 0 | 3 | 2 | 2 | 7 | 0 | ¥ | 3 | 0 | 0 | 3 | ||
| 4 | 8 | 8 | ¥ | 8 | 9 | 7 | 4 | ¥ | 1 ¥ 8 | 3 | |||
| 0 | 9 | 0 | 0 | 2 | 0 | 1 | 0 | ¥ | 4 | ||||
| 2 | 3 | 8 | 8 | 2 | 7 | 0 | 4 | 1 | 1 | 1 | |||
| 2 | 2 | ¥ | ¥ | 9 | 0 | 0 | 4 | 2 | 3 | 4 | 9 | ||
| ? | 3 | . 8 | 8 | 0 | 5 | 8 | 0 | 4 | 1 | 4 | 4 | ||
| ? | 8 | ¥ | 0 | 8 | ¥ | 5 | 3 | ¥ | 9 | 9 | 4 | ||
| 8 | 2 | 3 | ¥ . | 1 | 5 | 3 | 0 | 0 | 0 | ||||
| 0 | ¥ | 3 | 9 | .8 | e | 4 | 1 | 5 | 8 | 7 | |||
| 2 | 8 | 2 | 1 | ¥ | 3 | ¥ | .0 | 8 | 2 | 9 | 9 | ||
| 1 | 1 | 2 | 8 | 2 | . 0 | ¥ | 0 | 2 | 0 | 1 | 4 | ||
| ¥ | 1 | 3 | 8 | 1 | 5 | ? | 2 | ¥ | 4 | 4 | 8 | ||
| Z | 3 | 8 | . 7 | 8 | 9 | 1 | ¥ | 3 | 5 | 1 | 0 | ||
| 0 | ? | 2 | 5 | 0 | 1 | 1 | ¥ | 8 | & | 3 | 8 | ||
| 0 | 0 | 3 | 1 | 8 | 9 | 2 | 5 | 5 | 9 | . 2 | |||
| _.7 | 4 | 4 | 8 | 7 | 5 | t | 7 | 9 | 0 | 1 | |||
| 9 | 1 | 9 | 1 | 5 | 2 | 1 | 1 | 2 | 7 | 5 | 2 | ||
| Z | 5 | 3 | 3 . | ? | 1 | 0 | 9 ‘ 0 | 1 | 2 | 5 | |||
| 7 | 2 | 0 | 3 | ¥ | 8 | 2 | 9 | 7 | 9,, 0 | ||||
| 9 | ¥ | 8 | 0 | 4 | 5 | 8 | ¥ | 5 | 3 | ||||
| 4 | ¥ | 4 | 7 | 4 | 8 | S ^ | 0 | 4 | 9 | 8 | 8 | ||
| * | 1 | 1 | ? | ? | 4 | 5 | 5 | 5 | 0 | 0 | 8 | ||
| 1 | ¥ | 4 | 3 | 9 | 7 | 7 | 9 | 1 | 9 | 8 | ¥ | ||
| 7 | ¥ | ¥ | 8 | ¥ | 2 | 0 | 7 | 5 | 9 | 8 | 0 | ||
| 2 | 3 | 0 | 7 | 5 | 9 | 1 | 5 | ¥ | 5 | ||||
| ¥ | ¥ | 7 | 3 | 7 | 9 | 3 | 2 | 9 | ¥ | 3 | |||
| 0 | 1 | 1 | 0 | 1 | 5 | 5 | ¥ | 2 | 0 . | 7 | . | ||
| 4 | ¥ | O | ¥ | ¥ | S | 2 | 0 | 1 | |||||
| .. | ¥ | 0 | 3 | ¥ | 0 | 2 | ¥ | t | |||||
| 7 | 9 | 6 | 0 | 7 | 2 | ¥ | ¥ | 1 | 3 | ||||
| :S | ¥ | 0 | 2 | ¥ | 1 | ¥ | 3 | ¥ | 2 | ||||
| 4, | 7 | 0 | a | 0 | 2 | 1 | 2 | J | a | 0 | ;. | ||
| 7 | .4 | ¥ | 2 | ¥ | 2 | ¥ | 0 | 4 | 3 | ¥ | t | ||
| 2 | 4 | 9 | 0 | 7 | 1 | 1 | ? | 9 | ¥ | 0 | 2 | ||
| :S | 4 | 4 | 5 | 2 | 7 | :’ | 2 | a | a | 8 | 4 | ||
| 4 | 3 | 2 | ? | ¥ | ? | J | a | 0 | a | 9 | |||
| 0 | 4 | 3 | S | 2 | ¥ | ¥ | ¥ | 2 | 3 | a | |||
| ¥ | 8 | ? | ¥ | S | S | 1 | 3 | a | ¥ | ¥ | 3 | ||
| 4 | 4 | 8 | ¥ | 8 | 3 | 0 | 3 | 0 | 3 | ¥ | O | ||
| ‘4 | ¥ | 1 | 1 | ¥ | 7 | ¥ | 1 | ¥ | a | 4 | |||
| S | 3 | ¥ | ¥ | ¥ | 1 | 0 | ‘5 | ? | 4 | ||||
| O | 7 | 1 | 1 | a | 2 | 4 | 2 | 0 | 7 | 7 | 0 | ||
| 4 | 3 | S | a | e | 3 | 7 | ¥ | 3 | 3 | 4 | |||
| O | 0 | 3 | ? | ¥ | a | ¥ | 7 | ¥ | 2 | S | |||
| 5 | ¥ | ¥ | a | ¥ | 2 | 1 | a | 3 | 0 | 0 | |||
| O | ¥ | 3 | 2 | ¥ | ? | 1 | S | 2 | 1 | 3 | 2 | ||
| ¥ | 8 | 9 | 0 | a | ? | ? | 9 | 2 | S | ¥ | 2 | ||
| 0 | 7 | 9 | 1 | ¥ | ¥ | 4 | ¥ | 0 | 9 | ||||
| 1 | 7 | 7 | 0 | 4 | t | S | ¥ | ? | 2 | ¥ | e | ||
| O | ¥ | 5 | ¥ | 0 | 5 | 1 | 1 | 4 | 7 | ¥ | 1 | ||
| 2 | 0 | ¥ | ¥ | 1 | ¥ | ¥ | 1 | ¥ | O | ||||
| 4 | ¥ | S | 9 | 1 | 4 | 0 | 4 | 3 | 8 | ||||
| 1 | 1 | a | 2 | 7 | 9 | ¥ | ¥ | . | ¥ | 3 | 8 | 3 | |
| . | ¥ | 3 | ¥ | ¥ | 9 | 9 | ¥ | O | ¥ | 7 | |||
| 1 | ¥ | 1 | 4 | 0 | 8 | ¥ | 3 | 4 | ¥ | 7 | ¥ | ||
| ¥ | 3 | 4 | 2 | 7 | 9 | 0 | ¥ | ¥ | 4 | 9 | 0 | ||
| ? | ¥ | 9 | 2 | S | 3 | 4 | 3 | 2 | ¥ | 9 | |||
| ¥ | 0 | 4 | 7 | ¥ | ¥ | 9 | 3 | S | 3 | a | 7 | ||
| 9 | 9 | 0 | ¥ | S | 0 | 7 | 2 | 7 | 4 | 9 | |||
| 2 | ¥ | 1 | 4 | ¥ | O | O | ¥ | 2 | 8 | 1 | 5 | ||
| ¥ | 4 | ¥ | 8 | 7 | ¥ | 9 | 3 | 0 | 9 | 0 | 3 | ||
| 9 | 5 | 5 | o | 2 | ¥ | ¥ | 7 | 2 | 2 | ||||
| 1 | 7 | 4 | ¥ | 0 | 7 | 5 | 8 | 3 | 7 | 1 | 4 | ||
| 7 | 2 | 5 | 2 | 0 | 4 | 5 | 4 | 1 | 4 | 5 | |||
| 3 | 4 | 9 | 8 | 2 | 3 | 3 | 1 | 9 | ¥ | 4 | 9 | ||
| ¥ | 9 | S | 3 | 8 | 7 | 3 | 4 | 4 | 8 | 7 | 5 | ||
| O | 4 | 4 | 3 | 1 | 3 | 1 | 8 | 1 | 3 | 9 | 1 | ||
| 8 | ¥ | 8 | e | 3 | 3 | 8 | 4 | 5 | 8 | 0 | 7 | ||
| a | 4 | 3 | 3 | ¥ | 9 | 1 | ¥ | e | 4 | 5 | |||
| 1 | 2 | ¥ | 0 | 1 | 5 | ¥ | 8 | 2 | ¥ | 3 | a | ||
| O | 0 | 8 | 2 | 4 | 7 | 4 | 3 | 8 | 0 | 7 | 5 | ||
| 5 | 0 | 5 | 1 | 5 | 9 | ¥ | 2 | 1 | 8 | 5 | 8 | ||
| 1 | 2 | 2 | 5 | 4 | 9 | ¥ | 4 | 1 | 3 | 1 | 2 | ||
| 9 | 8 | 5 | 4 | 4 | 4 | 7 | 3 | ¥ | . | 5 | ¥ | 9 | |
| 1 | 7 | ¥ | ¥ | 4 | 4 | 4 | O | ¥ | 8 | 9 | |||
| 3 | 2 | 4 | 0 | t | 2 | 1 | 3 | 1 | 9 | 4 | 4 | ||
| t | 7 | 0 | 8 | ¥ | 4 | 0 | 7 | 0 | ¥ | 9 | 9 | 0 2 | |
| 0 | 5 | 4 | 1 | 3 | ¥ | ¥ | ¥ | & | 2 | 8 | 1 | ||
| 9 | 5 | ¥ | 9 | 0 | 4 | 2 | 3 | 3 | 0 | 1 | 9 | ||
| 2 | 8 | 0 | ¥ | O | 0 | 2 | 3 | 3 | 0 | 8 | 1 | ||
| 2 | 0 | 3 | 3 | 4 | 3 | 3 | 7 | 7 | 5 2 | 7 | |||
| 7 | 3 | 7 | 4 | 3 | 0 | 1 | 8 2 | 2 | 4 | 5 | |||
| 3 | 5 | ¥ | 7 | 2 | ¥ | . 2 | 0 | ¥3 | 2 | 5 | 3 | ||
| ¥ | 2 | ¥ | 0 | 8 | 9 | 4 | 1 | 3 | a | 0 | 8 | ||
| 2 | 1 | 5 | 3 | 8 | O | 1 | 8 | 2 | 1 | 5 | 7 | ||
| 7 | 2 | 8 | ¥ | 9 | 1 | O. | 7 | ¥ | 9 | 8 | |||
| ¥ | ¥ | 5 | 3 | 9 | 3 | ¥ | 1 | 5 | 9 | 3 | 2 | ||
| ? | 9 | _5 | 8 | 3 | 7 | 7 | 9 | 8 | 3 | 7 | 9 | ||
| ¥ | 0 | 7 | 3 | 4 | 9 | 0 | 4 | 3 | 5 | 0 | 5 | ||
| ¥ | ¥ | O | 0 | 2 | 0 | ¥ | ¥ | 7 | 7 | 4 | |||
| 0 | 1 | 3 | 8 | 1 | 7 | 9 | 8 | ¥ | 7 | 8 | |||
| 9 | 3 | 4 _ | 7 | 0 | 2 | 1 | 1 | ¥ | .0 | 2 | 9 | ||
| 9 | 7 | 0 | 2 | S | 2 | ¥ | O | ¥ | 4 | 5 | 8 | ||
| 9 | 7 | 3 | 2 | 2 | 0 | 8 | 2 | a | 9 | 7 | |||
| 7 | ¥ | 7 | 8 | 8 | . | , |
Have students develop programs:
To find just the odd numbers
To find just the even numbers
To find all the ones
To find all the twos, etc.
To add, subtract, multiply, or divide pairs of numbers, etc.
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
NUMBER OF ONE DIGITS= 132
NUMBER OF TWO DIGITS= 134
NUMBER OF THREE DIGITS= 117
NUMBER OF FOUR DIGITS= 122
NUMBER OF FIVE DIGITS= 153
NUMBER OF SIX DIGITS= 118
NUMBER OF SEVEN DIGITS= 131
NUMBER OF EIGHT DIGITS= 129
NUMBER OF NINE DIGITS= 131
TOTAL= 1313
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
NUMBER OF ONE DIGITS= 114
NUMBER OF TWO DIGITS= 115
NUMBER OF THREE DIGITS= 162
NUMBER OF FOUR DIGITS= 133
NUMBER OF FIVE DIGITS= 135
NUMBER OF SIX DIGITS= 122
NUMBER OF SEVEN DIGITS= 132
NUMBER OF EIGHT DIGITS= 115
NUMBER OF NINE DIGITS= 139
TOTAL= 1313
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
NUMBER OF ONE DIGITS= 121
NUMBER OF TWO DIGITS= 122
NUMBER OF THREE DIGITS= 141
NUMBER OF FOUR DIGITS= 126
NUMBER OF FIVE DIGITS= 127
NUMBER OF SIX DIGITS= 133
NUMBER OF SEVEN DIGIT= 118
NUMBER OF EIGHT DIGIT= 142
NUMBER OF NINE DlGIT= 119
TOTAL= 1313
The following was done on a HewlettPackard 7210A digital xy plotter.
6 REM X=HUNDRED DIGIT TIMES 1000
7 REM Y=TEN DIGIT TIMES 1000
10 CALL (50,1)
20 DIM U[10,200]
30 CALL (3,U[1,1],4000)
40 FOR J=1 TO 100
5O READ A,B,C,D
55 LET X=A*1000
81 LET Y=B*1000
90 LET P=0
95 CALL (1,P,1,X,Y)
100 CALL (2,200,0,0,200)
111 PRINT “0”
120 PRINT TAB(5);”X=”;X;TAB(5);”Y=”;Y;A;B;C;D
130 NEXT J
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
¥
¥
¥
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,8l,0608,6,9,5,81.0609
3160 DATA 4,9,8,8l,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
For an understanding of the CALL statements in BASIC, the reader is referred to the Hewlett Packard guide to 2100 series mini computers.
6 REM X = NUMBER TIMES 1000
7 REM Y = RANDOM NUMBER
10 CALL (50,1)
20 DIM U[10,200]
30 CALL (3.U[1,1],4000)
40 FOR J=1 TO 242
50 READ A,B,C,D
55 LET Y=RND(1)*9999
81 LET X=(A*1000)+(B*100)+(C*10)
90 LET P=0
95 CALL (1,P,1,X,Y)
100 CALL (2,200,0,0,200)
111 PRINT “0”
120 PRINT TAB(5);”X”;X;TAB(5);”Y=”;Y;A;B;C;D
130 NEXT J
1000 DATA l,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.0324,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 |
Have students plot:
Hundred digits to unit digits
Ten digits to unit digits
Unit digits to a random series
Ten digits to a random series
Hundred digits to a random series, etc.
A complete printout of all the programs, and punch tape of the data deck is on file at the Teacher’s Institute Office.
Ball, Marion J. and Sylvia Charp, Be a Computer Literate, Creative Computing Press, Morristown, New Jersey, 1977. Grades 7-8.
Corbett, Scott, Home Computers’ A Simple and Informative Guide, illustrated with photographs by Jane Corbett. AtlanticLittle, Brown, 1980, paper ea., pp. 11s. Grades 5-8. (An introduction to various small computers appropriate for home use. The child learns how prevalent the computer already is, what machines are available, how to learn the necessary language to instruct the computer, how to have fun playing with it, and how to put it to work for the family. Glossary and index.)
McQuigg, James D. and Alta M. Harness, Flowcharting, Houghton Mifflin, Boston, 1977. Grades 7-8.
Spencer, Donald D., Accent on BASIC, Camelot Publishing Company, Ormond Beach, Florida, 1977. (A text and workbook.) Grades 9-12.
Spencer, Donald D., Computer Awareness Coloring Book, Camelot Publishing Company, Ormond Beach, Florida, 1978. Grades K-3.
Spencer, Donald D., Fun with Computers and BASIC, Camelot Publishing Company, Ormond Beach, Florida, 1977. Grades 7-8.
Spencer, Donald D., What Computers Can Do, Camelot Publishing Company, Ormond Beach, Florida, 1977. Grades 7-8.
Ahl, David H., The Best of Creative computing. Vols. I and II, Creative Computing Press, Morristown, New Jersey, 1978. (A good source for articles and other background material.)
John G. and Thomas E. Kurtz, BASIC Programming, John Wiley and Sons, New York, 1971. (Written by the men who developed the programming language BASIC.)
Nelson, Theodor, The Home Computer Revolution, The Distributors, 702 S. Michigan, South Bend, Indiana 46618, 1977. (A lively overview of microcomputers in general.)
Radio Shack Reference Books for TRS 80
BASIC Computer Games
(84 games for solo and group play, 192 pages.)
BASIC Computer Language (Includes both programmed instruction and user programs, 232 pages,)
BASIC Computer Programming (Introduction to computers, writing programs,-156 pages.)
Beginning Computers (For the novice. Subtitles, diagrams, photos 49 pages.)
Getting Started with BASIC (Exciting introductory book covers all aspects of Level II and Model III BASIC.)
Level II Programming
Examples of Level II BASIC routines TRS80 Model I, 351 pages.)
Programming Techniques for Level II (Supplement to Level II Programming. Common BASIC operations, 142 pages.)
The BASIC Cookbook (Teaches BASIC so you can program a microcomputer, 116 pages.)
TRS80 Applications Sourcebook
Radio Shack compiled a listing of TRS80 applications for sale by a variety of vendors. Each listing includes a description, hardware required, prices and how you can order direct from the vendor.)
TRS80 Assembly/Language Programming (Computer hardware, software, microcomputers, 304 pages.)
TRS80 Graphics (How to create graphic displays with the TRS80. From line drawings to geometrics to moving figure animation, 142 pages.)
TRS80 Programs (32 fullydocumented programs readytorun on a TRS-80. Suggested program changes, also, 267 pages.)
Understanding Digital Electronics (Explains digital electronic devices, circuits and systems, 240 pages.)
Understanding Microprocessors Learn what microprocessors are and how they can be used, 296 pages.)
Victory by Computer, DC Comics Incorporated, 1981.
(A comic book starring THE TRS80 COMPUTER WHIZ KIDS and comic book favorites SUPERMAN and SUPERGIRL in an exciting introduction to micro computers. Free copies for classroom use, at participating Radio Shack Stores,)
Rice, Jean, My Friend the Computer, T. S. Denison and Company, Minneapolis, 1976. (Has outstanding manual.)
Ryan, Thomas J., The Adolescence of P1, MacMillan. New York, 1977, (A well written novel about a computer program that gets away! Good for discussion in class.)
Spencer, Donald D., BASIC, A Unit for Secondary Schools, Camelot Publishing Company, Ormond Beach, Florida, 1977, To be used in teaching programming as a unit within another course, such as algebra, chemistry, etc.)
Spencer, Donald D., Microcomputers at a Glance, Camelot Publishing Company, Ormond Beach, Florida, 1977. (A dictionary of computer terms.)
Spencer, Donald D., Using BASIC in the Classroom, Camelot Publishing Company, Ormond Beach, Florida, 1978. (An introduction to computers for teachers.)
Recreational Computing, 1263 El Camino Real, Box E, Menlo Park, California 94025
Spencer, Donald D., Computers for Kids, Camelot Publishing Company, Ormond Beach, Florida, 1979. (An AV kit with 60 slides, a cassette, and teachers manual.)
Contents of 1981 Volume VI | Directory of Volumes | Index | Yale-New Haven Teachers Institute
| ||||||