Listing of file='PROJEC.BAS;01' on disk='vmedia/chip_57-sector.ccvf'
0 REM **PROJECT EXPENDITURES 1 REM **D. VAN PUTTE, ROCHESTER, N.Y. 5 PLOT 12 10 PRINT TAB( 12)"AVERAGE EXPENDITURE RATE, FUTURE PROJECTIONS" 20 PRINT :PRINT 30 DIM S(20) 40 PRINT "NUMBER OF MONTHS ACTUAL FIGURES ESTABLISHED";:INPUT N 60 FOR I= 1 TO N:IF I> 1 THEN 100 80 PRINT :PRINT "FIGURE: MONTH";I;:GOTO 110 100 PRINT " MONTH";I; 110 INPUT S(I):NEXT I 130 T= LOG (S(1)):V= 0:FOR I= 2 TO N:L= LOG (S(I)):T= T+ L:V= V+ (I- 1)* L:NEXT I 200 A= 6* (2* V/ (N- 1)- T)/ (N)/ (N+ 1):G= EXP (A)- 1 220 PRINT "AVERAGE EXPENDITURE RATE = ";INT (G* 10000+ .5)/ 100;"%" 230 S= EXP (T/ N- A* (N- 1)/ 2) 250 PRINT "(ENTER 0 TO END PROGRAM)" 260 PRINT "PROJECTED EXPENDITURES THRU MONTH";:INPUT Y1 270 PRINT :INPUT "SEND REPORT TO THE PRINTER?";A$:IF A$< > "Y" THEN 280 272 PLOT 27,18,4,27,13:PLOT 12 274 PRINT TAB( 8) "FORCASTED EXPENDITURES":PRINT :PRINT 280 IF Y1= 0 THEN 320 281 ST= 0:PRINT TAB( 10)"ACTUAL":PRINT :PRINT TAB( 10) "MONTH CUMMULATIVE":PRINT 282 FOR I= 1 TO N:ST= ST+ S(I):PRINT TAB( 10) I TAB( 20) ST:NEXT I 283 PRINT :PRINT TAB( 10) "PROJECTED":PRINT 284 FOR I= N+ 1 TO Y1 290 S1= S* (1+ G)^ (I- 1):EP= INT (S1* 100+ .5)/ 100 292 ST= ST+ EP:PRINT TAB( 10) I TAB( 20) ST:NEXT I 310 POKE 33265,0:INPUT "CONTINUE?";A$:IF A$< > "Y" THEN 320 312 GOTO 260 320 END