Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0020/popula.dem
There are 2 other files named popula.dem in the archive. Click here to see a list.
100'  NAME--POPULA
110'
120'  DESCRIPTION--PROJECTS POPULATION GROWTH
130'
140'  SOURCE--REVISED 6/7/68 BY PROF. ROBERT HUKE
150'
160'  INSTRUCTIONS--TYPE "RUN" AND FOLLOW INSTRUCTIONS.
170'
180'
190'  *  *  *  *  *    MAIN PROGRAM   *  *  *  *  *  *  *  *  *  *
200'
210  DIM N(100),F(100),Z(100)
220 PRINT "THIS PROGRAM WILL PROJECT POPULATION GROWTH FOR ANY NUMBER OF"
230 PRINT "YEARS USING THE COMPOUND INTEREST FORMULA"
240 PRINT
250 PRINT "WHAT IS THE NAME OF THE AREA WE ARE STUDYING"
260 INPUT A$
270 PRINT
280 PRINT
290 PRINT "PRINT THE ANNUAL PERCENT OF GROWTH FOR YOUR POPULATION";
300 INPUT R
310 PRINT
320 PRINT "FOR HOW MANY YEARS DO YOU WISH TO HAVE DATA COMPUTED";
330 INPUT N
340LET I = 0
350 LET A = N
360 LET A2 = A
370 IF A < 10 THEN 570
380 IF A = 10 THEN 590
390 PRINT "LIST THE FIRST 10 YEARS TO BE COMPUTED"
400 GO TO 500
410 PRINT
420 PRINT
430 PRINT "WHAT IS THE YEAR FOR YOUR BASIC DATA";
440 INPUT B
450 PRINT
460 PRINT "WHAT IS THE POPULATION FOR THE BASE YEAR";
470 INPUT P
480 PRINT
490 GO TO 630
500INPUTF(I+1),F(I+2),F(I+3),F(I+4),F(I+5),F(I+6),F(I+7),F(I+8),F(I+9),F(I+10)
510 LET A = A - 10
520 LET I = I + 10
530 IF A < 1 THEN 410
540 IF A < 10 THEN 610
550 PRINT "LIST THE NEXT TEN YEARS YOU WISH COMPUTED"
560 GO TO 500
570 PRINT "LIST THE "N"YEARS YOU WISH COMPUTED AND"10-N"ZEROS"
580 GO TO 500
590 PRINT "LIST THE 10 YEARS FOR WHICH YOU WISH PROJECTIONS"
600 GO TO 500
610 PRINT "LIST THE LAST "A"YEARS AND" 10-A"ZEROS"
620 GO TO 500
630 PRINT
640 PRINT "POPULATION PROJECTION IS AS FOLLOWS"
650 PRINT 
660 PRINT   A$
670 PRINT
680 PRINT "DATE             POPULATION"
690 PRINT
700 FOR M = 1 TO N
710 LET X = 1 + (R/100)
720 LET Y = X^(F(M)-B)
730 LET Z (M) = INT (P*Y)
740 PRINT F(M),Z(M)
750 NEXT M
760 PRINT
770 PRINT "DO YOU SUPPORT PLANNED PARENTHOOD???"
780 END