1 REM  ****  ECON2  *************************************************
2 REM  ****  PROVIDED BY MANKOTA STATE COLLEGE  *********************
3 REM  ****  AN ECONMY SIMULATION  *************************************
4 REM  ****  REVISED BY LINDA RUFF  ************************************
322DIM#1%,P(10),T(10),Y(10),V(15),V$(5)
460I1=0:GOSUB2100:CLOSE1%:CHAIN'$ECONMY'460
1000I1=0:GOSUB2100:CLOSE1%:CHAIN'$ECONMY'1000
1238V(15)=0:CLOSE1%:CHAIN'$ECONMY'1238
1244 OPEN 'ECON.DAT' FOR INPUT AS FILE 1%:PRINT 'TOO DRASTIC. MAKE A SMALLER CHANGE.'
1246 GOTO1238
1248OPEN 'ECON.DAT'FOR INPUT AS FILE1%:GOSUB2000
1249I=I-(((13.1*U)*.49)*L)
1250 Y(2)=C+I+G
1254J4=1
1260 IF J=1 THEN 1400
1264 PRINT:PRINT '     DO YOU WANT TO TAKE FISCAL ACTION, TOO.'
1270 INPUT X$
1272 IF X$='YES' THEN1000
1400IFJ4=1THEN1401ELSEOPEN'ECON.DAT'FORINPUTASFILE1%:GOSUB2000
1401A=A+1
1412 PRINT
1414 IF A<>1973 THEN 1424
1416 PRINT '     HERE ARE YOUR RESULTS FROM 1973, YOUR FIRST YEAR IN OFFICE:'
1420 GOTO1450
1424 IF A<>1974 THEN 1434
1426 PRINT '     HERE ARE YOUR RESULTS FROM 1974, YOUR SECOND YEAR IN OFFICE:'
1430 GOTO 1450
1434 IF A<>1975 THEN 1444
1436 PRINT '     HERE ARE YOUR RESULTS FROM 1975, YOUR THIRD YEAR IN OFFICE:'
1440 GOTO 1450
1444 PRINT '     HERE ARE YOUR RESULTS FROM 1976, THE FINAL YEAR OF YOUR TERM:'
1450 PRINT:PRINT TAB(27);'**********'
1454 PRINT:PRINT TAB(27); ' YEAR ';A
1458PRINT
1460PRINTTAB(15);'PERSONAL CONSUMPTION';TAB(40);C
1462PRINT TAB(15);'PRIVATE INVESTMENT';TAB(40);I
1464PRINT TAB(15);'GOVERNMENT SPENDING';TAB(40);G
1466PRINT TAB(40);'--------'
1467Y(2)=C+I+G
1468PRINT TAB(15);'ACTUAL G.N.P.';TAB(40);Y(2)
1470PRINT
1472PRINT TAB(15);'POTENTIAL G.N.P.';TAB(40);Y(1)
1474PRINT
1476PRINT TAB(27);'**********'
1480 D=Y(1)-Y(2)
1482 R=D/Y(1)
1484 Y(1)=Y(1)+.03*Y(1)
1486 IF D=0 THEN  1492
1488 M$='MADAM'
1490 GOTO 1494
1492 M$='MR.'
1494 IF R<-.01 OR R>.01 THEN 1810
1498 GOTO1700
1700IF A=1976 THEN 1760
1712 PRINT:PRINT '     SO FAR - SO GOOD! YOU HAVE THE ECONOMY OPERATING WITHIN ONE'
1717PRINT'PERCENT OF POTENTIAL. DO YOU WANT TO RESIGN WHILE YOU ARE'
1719 PRINT 'AHEAD, OR GO ON WITH YOUR TERM.'
1722PRINT'     (QUIT - TYPE 0; GO ON - TYPE 1)'
1724 INPUT X
1726 IF X=1 THEN 1740
1728PRINT:PRINT'     YOU MAY NOW THINK OF YOURSELF AS EXPRESIDENT ';B$
1734 GOTO 1990
1740 PRINT:PRINT'     YOU HAVE MUCH COURAGE. YOUR COUNTRY IS GROWING, AND NOW HAS A'
1745PRINT'POTENTIAL G.N.P. OF ';Y(1);' CHECK THE FIGURES FOR ';A
1747PRINT'FOR YOUR OTHER INFORMATION.'
1754 GOTO 460
1760PRINT:PRINT'     CONGRATULATIONS, ';M$;' PRESIDENT. YOUR ECONOMIC'
1765 PRINT'POLICIES HAVE PRODUCED EXCELLENT RESULTS. THE ECONOMY IS'
1767PRINT'OPERATING WITHIN ONE PERCENT OF POTENTIAL, AND YOU SHOULD'
1769PRINT'HAVE NO TROUBLE BEING RE-ELECTED IF YOU WANT TO BE.'
1774PRINT TAB(27);'**********'
1775PRINT'     OF COURSE YOU KNOW, ';A$;' THAT YOUR JOB AS PRESIDENT'
1779PRINTB$;'HAS BEEN A LOT SIMPLER THAN THAT OF A REAL PRESIDENT.'
1780PRINT'THE ECONOMY IS MUCH MORE COMPLEX THAN ANY COMPUTER PROGRAM'
1782PRINT'COULD BE. JUST THE SAME, YOU HAVE SHOWN GOOD SENSE IN YOUR'
1784PRINT'DECISIONS. SO WHY DONT YOU LEAVE YOUR PHONE NUMBER IN CASE YOUR'
1786PRINT'HELP IS EVER NEEDED.'
1798INPUT T$
1799PRINT:PRINT'THATS ';T$;'....OK, WE MAY BE IN TOUCH. AND, AGAIN, GOOD WORK!'
1804GOTO1990
1810 IF A=1976 THEN 1880
1822PRINT:PRINT'     BETTER CALL A MEETING OF THE COUNCIL OF ECONOMIC ADVISES'
1827PRINT'AND GET A NEW GAME PLAN! RIGHT NOW, YOUR G.N.P. IS TOO FAR'
1829PRINT'FROM POTENTIAL TO BE ACCEPTABLE TO ANYONE, EXPECIALLY THE VOTERS.'
1831PRINT'IF YOU WANT TO QUIT BEFORE IT GETS WORSE, TYPE 0.'
1832PRINT'IF YOU WANT TO TRY TO REPAIR THE DAMAGE, TYPE 1.'
1840 INPUT X
1842 IF X=1 THEN 1854
1844PRINT'THANK YOU, ';M$;'PRESIDENT!. YOU ARE PROBABLY MORE'
1848PRINT'POPULAR NOW THAN EVER. HAPPY OBSCURITY!'
1850GOTO1990
1854PRINT:PRINT'     THATS THE SPIRIT,';M$; ' PRESIDENT!. CKECK THE FIGURES'
1859PRINT'FOR ';A;' AND USE THESE FOR NEXT YEARS DECISIONS.'
1860PRINT'THE ECONOMYS POTENTIAL HAS GROWN TO';Y(1);' THIS MAY HAVE HELPED OF'
1863PRINT'MADE THINGS WORSE, BUT BE SURE TO TAKE IT INTO ACCOUNT.'
1870GOTO460
1880PRINT:PRINT'     WELL, ';M$;' PRESIDENT, YOU DIDNT QUITE MAKE IT.'
1884PRINT'YOUR ACTUAL G.N.P. WAS NOT CLOSE ENOUGH TO POTENTIAL TO MAKE YOUR'
1887PRINT'POLICIES SUCCESSFUL. PERHAPS YOU SHOULD BUT A NICE RANCH'
1889PRINT'SOMEPLACE AND RELAX FOR A WHILE.'
1896PRINT TAB(27);'**********'
1898PRINT'     YOU KNOW, ';A$;' THAT THIS IS A VERY SIMPLE MODEL'
1901PRINT'OF THE REAL ECONOMY, AND THAT IF YOU WERE REALLY PRESIDENT'
1903PRINTB$;' YOUR JOB WOULD BE MUCH MORE COMPLES THAN THIS'
1904PRINT'MODEL COULD SHOW. BUT THE GENERAL PRINCIPLES APPLY TO ANY'
1906PRINT'ECONOMY. SO CHECK OVER YOUR DECISIONS AND FIND YOUR MISTAKES.'
1908PRINT'THEN TRY THE SIMULATION AGAIN WHEN YOU HAVE TIME.'
1920GOTO1990
1990PRINT:PRINT TAB(27);'**********'
1992 PRINT:PRINTA$;' ';B$;TAB(30);C$;TAB(40);E$
1994PRINT
1995 PRINTTAB(27);'**********':PRINT:GOTO2200
2000A=V(0):K=V(1):J=V(2):N=V(3):Q=V(4):U=V(5):C=V(6):I=V(7):G=V(8):
	Y9=V(9):X=V(10):L=V(11):S=V(12):U=V(13):D=V(14):A$=V$(0):
	B$=V$(1):C$=V$(2):E$=V$(3):X$=V$(4)
2010I1=V(15)
2050 RETURN
2100V(0)=A:V(1)=K:V(2)=J:V(3)=N:V(4)=Q:V(5)=U:V(6)=C:V(7)=I:V(8)=G:
	V(9)=Y9:V(10)=X:V(11)=L:V(12)=S:V(13)=U:V(14)=D:V$(0)=A$:
	V$(1)=B$:V$(2)=C$:V$(3)=E$:V$(4)=X$
2101V(15)=I1
2150 RETURN
2200 KILL'ECON.DAT':END
KEY
