4 GROWTH USES THE ER   A$25)  N1$25),D$25)  26)\  HBR JULY 3,1077  F100),Z100),N$20)  \ 4 " PROGRAM TITLE:GROWTH "\\ H " ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **" E ADD'L SOFTWARE FROM\ SOFTWARE,BOX AF,WOODBRIDGE,CT.06525  92 "** THIS PROGRAM FIGURES GROWTH.......TIME: ", 4 @ D< "WHEN YOU ARE PROMPTED BY THE COMPUTER, ENTERED THE REQUESTED" "> "DATA AND HIT 'RETURN' KEY." G@ \"ENTER YEAR, WHEN REQUESTED, IN THIS FORM....1977,2001, ETC."\ Z +d"WHAT KIND OF GROWTH TO FIGURE....."\ .n" SALES " 3x" POPULATION " /" WEALTH " 5" MONEY SUPPLY " 1" POLUTION "   " WELL..... ",N$   , "ENTER TODAY'S DATE..... ",\ D$\ - "ENTER YOUR NAME........ ",\ N1$\   > \"THIS PROGRAM WILL PROJECT ",N$, " GROWTH FOR ANY " > "NUMBER OF YEARS USING THE COMPOUND FORMULA......"\\  > "...WHAT IS THE NAME OF THE AREA WE ARE STUDYING....."\  " WELL.... ",A1$   =" "....WHAT IS THE ANNUAL PERCENT OF GROWTH FOR YOUR ",N$ ' , "WELL.... ",R 6 B@ "FOR HOW MANY YEARS DO YOU WISH TO HAVE DATA COMPUTED...."\ J "WELL....... ",N T I0 ^ AN h A2A r A9 : | A9 N  F "LIST THE FIRST 9 YEARS TO BE COMPUTED....SEPARATE YOUR NUMBERS"  "WITH COMMAS......... "     4 "WHAT IS THE YEAR FOR YOUR BASIC DATA........"   " WELL..... ",B  ? "WHAT IS THE ",N$," FOR THE BASE YEAR (NO COMMAS PLEASE)"   "WELL...... ",P   v   D FI1),FI2),FI3),FI4),FI5),FI6),FI7),FI8),FI9)  AA9  II9  A1   A9 ] !\ 5& "LIST THE NEXT 9 YEARS YOU WISH COMPUTED...."\ 0  B: \"LIST THE ",N," YEARS YOU WISH COMPUTED AND ",9N," ZEROS" /; "SEPARATE NUMBERS WITH COMMAS......."\ D  @N \"LIST THE FIRST 9 YEARS FOR WHICH YOU WISH PROJECTIONS," 4O "SEPARATE THE NUMBERS WITH COMMAS........"\ X  ] \ 6b "LIST THE LAST ",A," YEARS AND ",9A," ZEROS "\ l  v \ x \\\ .y " DO YOU WISH PRINTED COPY......",A$\\ 1z A$1,1)"Y" " IS PAPER IN PLACE....",B$ '| A$1,1)"Y" P81\ TURN ER -} \\25),"* * * * * * * * * * * "\\ ~ \\  20), & N$," PROJECTION IS AS FOLLOWS: "   \\\\\\\ 6 "** AREA: ",A1$," DATE PREPARED: ",D$  8 "** PROJECTION PREPARED BY: ",N1$," AT ",\ @   $ 3), "DATE: ",50),N$   M1 N  X1R100)  YXFM)B)  ZM) PY)  " ",FM),50),ZM)  M   \\\\\ @ " ** THIS PROJECTION RUN FOR A ",N$," GROWTH RATE OF ",R,  "%"\\\\ * A$1,1)"Y" P80 \ TURN OFF ER 2  ".....RUN AGAIN....... ",\"WELL.... ",C$  C$1,1)"Y" Z  \\"FINITO......"\\\\   SUB ;"ALWAYS ENTER YEAR AS: XXXX,YYYY I.E. 1979,1999 "\  7@ TIME SUB USES COMPTEK TIME CLOCK AT PTS 168172 J I0 7\TI)168I)\ I T H10T7)T6) ^ M10T5)T1) h S10T2)T3)  H,":",M,":",S   g