Census

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
9998 SAVE "CENSU%S"
9999 RUN