Source Code
10 SCROLL
20 PRINT TAB 10;"% %C%E%N%S%U%S% "
30 FOR N=1 TO 6
40 SCROLL
50 NEXT N
60 PRINT "WHAT YEAR IS IT? ";
70 INPUT Y
80 PRINT Y
90 FOR N=1 TO 6
100 SCROLL
110 NEXT N
120 PRINT "WHAT MONTH (1 - 12)? ";
130 INPUT M
140 PRINT M
150 FOR N=1 TO 6
160 SCROLL
170 NEXT N
180 PRINT "DATE (1 - 31)? ";
190 INPUT D
200 PRINT D
210 FOR N=1 TO 6
220 SCROLL
230 NEXT N
240 LET T=((Y+M/12+D/365)-1969)/150
250 LET P=2*10**(8+T)
260 LET P=INT P
270 PRINT "DATE: ";M;"/";D;"/";Y
280 FOR N=1 TO 6
290 SCROLL
300 NEXT N
310 PRINT "U.S. POPULATION",P
320 SCROLL
330 SCROLL
340 PRINT "A MINUTE AGO",P-4
350 SCROLL
360 SCROLL
370 PRINT "AN HOUR AGO",P-231
380 SCROLL
390 SCROLL
400 PRINT "YESTERDAY",P-5553
410 SCROLL
420 SCROLL
430 PRINT "A WEEK AGO",P-38874
440 FOR N=1 TO 3000
450 NEXT N
460 LET P=P+10
470 GOTO 280
\n9998 SAVE "CENSU%S"
\n9999 RUN
