10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  ********************
20  REM
30  REM            CONSMP: DEPRESSION/EQUILIBRIUM
40  REM
50  REM            36330  (A860)  REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  *************************************
80  REM CONSMP-COPYRIGHT 1970, POLYTECHNIC INSTITUTE OF BROOKLYN
90  REM--PROGRAM BY JAMES EDER, NORTHPORT HS, 8/68
100  REM--REVISED--8/12/69--<ROD>
110  REM  REVISED BY C.LOSIK  8-27-70 
120  LET O=0
130  LET F=O1=O2=O3=O4=O5=O6=0
140  LET Y7=0
150  PRINT "THIS PROGRAM SIMULATES THE EFFECTS OF CONSUMPTION ON THE"
160  PRINT "GNP. IT PRINTS OUT THE VALUES FOR THE COMPONENTS OF THE"
170  PRINT "CIRCULAR FLOW MODEL OF GOODS, SERVICES AND MONEY."
180  PRINT 
190  READ Y,P1
200  DATA 100,.75
210  PRINT "ASSUME GNP IS 100 BILLION."
220  PRINT "TYPE IN A VALUE FOR PROPENSITY TO CONSUME."
230  PRINT "MAKE THE VALUE BETWEEN 0 AND .75"
240  LET C1=Y*P1
250  LET I1=Y-C1
260  LET N=0
270  INPUT P2
280  LET N=N+1
290  IF P2<0 THEN 230
300  IF P2=.75 THEN 410
310  IF P2<.75 THEN 760
320  IF N=2 THEN 360
330  IF N=3 THEN 380
340  PRINT "READ CAREFULLY;INPUT AGAIN."
350  GOTO 270
360  PRINT "COME ON...I'M WARNING YOU."
370  GOTO 270
380  PRINT "OK WISE GUY,YOU'RE OFF."
390  GOTO 1920
400  PRINT 
410  LET V1=C1
420  LET S1=Y-C1
430  LET L1=P1
440  LET Y1=C1+I1
450  PRINT 
460  PRINT "ORIGINAL GNP-";Y
470  PRINT 
480  PRINT "PROPENSITY TO"
490  PRINT "CONSUME-";P2
500  PRINT 
510  PRINT "CONSUMPTION-";C1
520  PRINT 
530  PRINT "VALUE OF GOODS"
540  PRINT "+ SERVICES-";V1
550  PRINT 
560  PRINT "SAVINGS-";S1
570  PRINT 
580  PRINT "INVEST.-";I1
590  PRINT 
600  PRINT "LABOR-";L1
610  PRINT 
620  PRINT "RETURN GNP-";Y1
630  PRINT 
640  PRINT "EQUILIBRIUM."
650  PRINT 
660  PRINT 
670  PRINT 
680  PRINT "TO PUT IN ANOTHER CONSUMPTION VALUE,TYPE 0."
690  PRINT "TO STOP, TYPE 1"
700  INPUT Q8
710  IF Q8=0 THEN 220
720  IF Q8=1 THEN 1920
730  PRINT "TYPE DECIMAL VALUE FOR PROPENSITY TO"
740  PRINT "CONSUME"
750  GOTO 270
760  PRINT "IF STARTING ,TYPE 100(GNP);IF NOT"
770  PRINT "STARTING,TYPE VALUE OF RETURN GNP."
780  INPUT Y8
790  LET C2=P2*Y8
800  LET V2=C2
810  LET S2=Y8-C2
820  PRINT 
830  PRINT "ORIGINAL GNP-";Y
840  PRINT 
850  PRINT "PROPENSITY TO "
860  PRINT "CONSUME-";P2
870  PRINT 
880  PRINT "CONSUMPTION-";C2
890  PRINT 
900  PRINT "VALUE-";V2
910  PRINT 
920  PRINT "SAVINGS-";S2
930  PRINT 
940  LET Q=(I1)*(P1-P2)
950  LET I2=I1
960  LET Z2=I2*.2
970  LET I3=I1-(.25*Q)
980  LET Z3=I3*.2
990  LET I4=I1-(.5*Q)
1000  LET Z4=I4*.2
1010  LET I5=I1-(.75*Q)
1020  LET Z5=I5*.2
1030  LET I6=I1-Q
1040  LET Z6=I6*.2
1050  LET I7=Z2+Z3+Z4+Z5+Z6
1060  LET F=(C2+I2)-O
1070  LET O=I7-Q
1080  LET F1=F-O1
1090  LET O1=F-Q
1100  LET F2=F1-O2
1110  LET O2=F1-Q
1120  LET F3=F2-O3
1130  LET O3=F2-Q
1140  LET F4=F3-O4
1150  LET O4=F3-Q
1160  LET F5=F4-O5
1170  LET O5=F4-Q
1180  LET F6=F5-O6
1190  LET O6=F5-Q
1200  IF F<Y7 THEN 1750
1210  IF F1<F THEN 1770
1220  IF F2<F1 THEN 1790
1230  IF F3<F2 THEN 1810
1240  IF F4<F3 THEN 1830
1250  IF F5<F4 THEN 1850
1260  IF F6<F5 THEN 1870
1270  PRINT "INVESTMENT BY PERIODS:"
1280  PRINT "1-3MONTHS";Z2
1290  PRINT "4-6MONTHS";Z3
1300  PRINT "7-9MONTHS";Z4
1310  PRINT "10-12MONTHS";Z5
1320  PRINT "END OF 12TH MONTH";Z6
1330  PRINT "TOTAL FOR YEAR";I7
1340  PRINT 
1350  PRINT "OVER-INVESTMENT"
1360  PRINT 
1370  LET Q2=P1-P2
1380  LET L2=P1
1390  LET X2=L2*.2
1400  LET L3=P2+(.75*Q2)
1410  LET X3=L3*.2
1420  LET L4=P2+(.5*Q2)
1430  LET X4=L4*.2
1440  LET L5=P2+(.25*Q2)
1450  LET X5=L5*.2
1460  LET L6=P2
1470  LET X6=P2*.2
1480  LET L7=X2+X3+X4+X5+X6
1490  PRINT "LABOR:"
1500  PRINT "1-3MONTHS-";X2
1510  PRINT "4-6MONTHS-";X3
1520  PRINT "7-9MONTHS-";X4
1530  PRINT "10-12MONTHS-";X5
1540  PRINT "END OF 12MONTH-";X6
1550  PRINT "TOTAL FOR YEAR-";L7
1560  PRINT 
1570  LET Y2=(C2+Z2)*.2
1580  LET Y3=(C2+Z3)*.2
1590  LET Y4=(C2+Z4)*.2
1600  LET Y5=(C2+Z5)*.2
1610  LET Y6=(C2+Z6)*.2
1620  LET Y7=C2+I7
1630  PRINT "GNP:"
1640  PRINT "1-3MONTHS-";Y2
1650  PRINT "4-6MONTHS-";Y3
1660  PRINT "7-9MONTHS-";Y4
1670  PRINT "10-12MONTHS-";Y5
1680  PRINT "END OF 12 MONTH-";Y6
1690  PRINT "TOTAL FOR YEAR-";Y7
1700  PRINT 
1710  PRINT "RECESSION"
1720  LET O=I7-Q
1730  PRINT "INVENTORY OVERPRODUCED-";O
1740  GOTO 730
1750  PRINT "GNP-";F
1760  IF F>0 THEN 730
1770  PRINT "GNP--";F1
1780  IF F1>0 THEN 730
1790  PRINT "GNP--";F2
1800  IF F2>0 THEN 730
1810  PRINT "GNP--";F3
1820  IF F3>0 THEN 730
1830  PRINT "GNP--";F4
1840  IF F4>0 THEN 730
1850  PRINT "GNP--";F5
1860  IF F5>0 THEN 730
1870  PRINT "GNP--";F6
1880  PRINT 
1890  PRINT "TOTAL DEPRESSION"
1900  GOTO 680
1910  PRINT 
1920  END 
