1 REM ****  ECONMY **************************************************
2 REM ****  PROVIDED BY MANKOTA STATE COLLEGE  **********************
3 REM ****  AN ECONMY SIMULATION  ***********************************
4 REM ****  REVISED BY LINDA RUFF *************************************
100OPEN'ECON.DAT' FOR OUTPUTAS FILE 1%
150DIM#1%,P(10),T(10),Y(10),V(15),V$(5)
151I1=1
0200 PRINTTAB(23);'THE U.S. ECONOMY:'
0202 PRINTTAB(22)'ITS YOUR DECISION!'
0208 PRINT
0210 PRINTTAB(27);'**********'
0212 PRINT
0220 PRINT'	THIS IS THE LAST SECTION OF YOUR STUDY OF THE U.S.';
	' ECONOMY'
223PRINT'AS A WHOLE. WHAT FOLLOWS IS A SIMPLIFIED MODEL OF THE ECONOMY'
0225 PRINT'WITH WHICH YOU CAN WORK TO SEE THE EFFECTS OF GOVERNMENT'
0227 PRINT'DECISIONS.':PRINT:PRINT'	OUR MODEL IS BASED ON MODE';
	'RN ECONOMIC THEORY AS APPLIED BY'
0237 PRINT'OUR GOVERNMENT TODAY.  YOU WILL PLAY THE ROLE OF THE PR';
	'ESIDENT.':PRINT'YOU HAVE FOUR YEARS TO RESTORE FAVORABLE ';
	'ECONOMIC CONDITIONS.':PRINT:PRINT'	GOOD LUCK!':PRINT
0252 A$=SYS(CHR$(0%)):PRINT'	BEFORE YOU BEGIN, I NEED THE FOLL';
	'OWING INFORMATION, PLEASE:':INPUT'	FIRST NAME:',A$,
	'	LAST NAME:',B$,'	GRADE:',C$
0268 INPUT'	SEX (MALE-0;FEMALE-1):',D,'	TODAYS DATE',E$:
	PRINT:PRINTTAB(27);'**********':PRINT
299 PRINT
0300 REM COUNTERS, DIMS, RANDOM GENERATORS
0310 A=1972
0312 K=0
0314 J=0
0316 N=0
0318 Q=17
0320 U=0
0340 RANDOMIZE
0342 C=(INT(RND*10000))/10
0344 IF500>COR700<CTHEN342
0348 I=(INT(RND*10000))/10
0350 IF100>IOR300<ITHEN348
0354 G=(INT(RND*10000))/10
0356 IF100>GOR300<GTHEN354
0360 Y(1)=INT(RND*10000)/10+200
0361 Y9=Y(1)
0362 IFY(1)>800THEN364ELSE360
0364 Y(2)=C+I+G
0365 Y(9)=Y(1)
0366 IF.98>(Y(2)/Y(1))OR1.02<(Y(2)/Y(1))THEN400ELSE342
0400 !  ORGINAL C  I  G  PRINTOUT
0410 PRINT:PRINTTAB(27);'**********':PRINT
0416 PRINTTAB(27);'YEAR:';A:PRINT:PRINTTAB(15);'PERSONAL CONSUMPTI';
	'ON';TAB(40);C:PRINTTAB(15);'PRIVATE INVESTMENT';TAB(40);I:
	PRINTTAB(15);'GOVERNMENT SPENDING';TAB(40);G:PRINTTAB(40);
	'--------'
0440 PRINTTAB(15);'ACTUAL G.N.P.';TAB(40);Y(2):PRINT:PRINTTAB(15);
	'POTENTIAL G.N.P.';TAB(40);Y(1):PRINT:PRINTTAB(27);'*****';
	'*****':PRINT
460IFI1=1THEN461ELSEOPEN'ECON.DAT'ASFILE1%:GOSUB1500
461K,J,N=0
0462 IFY(1)>Y(2)THEN600
0500 !  INFLATION 
0510 PRINT:PRINT'		**********  INFLATION ALERT!! *****';
	'*****':PRINT:PRINT'	SINCE YOUR ACTUAL G.N.P. FIGURE IS ';
	'LARGER THAN POTENTIAL':PRINT'WE CAN DEFINE THIS AS AN INFL';
	'ATIONARY SITUATION.  NO ECONOMY'
0523 PRINT'CAN PRODUCE MORE THAN ITS POTENTIAL.  THEREFORE, THE ACT';
	'UAL':PRINT'G.N.P. (DOLLAR VALUE OF GOODS AND SERVICES PROD';
	'UCED) MUST HAVE AN':PRINT'INFLATED VALUE.':PRINT
0534 PRINT'(IF YOU ARE FAMILIAR WITH THESE COMMENTS AND WISH TO ACT';
	' AT ONCE,':INPUT'TYPE 0, IF YOU WANT TO READ THEM, TYPE 1.),
	X:IFX=0THEN750
0548 PRINT:PRINT'	IN THIS MODEL, WE ASSUME THAT THE INFLATION';
	' IS OF THE':PRINT'DEMAND-PULL VARIETY, AND AS SUCH, SHOULD';
	'RESPOND TO STANDARD':PRINT'MONETARY AND FISCAL MEASURES.'
0558 PRINT'	DEMAND-PULL INFLATION RESULTS FROM TOO MUCH TOTAL D';
	'EMAND.':PRINT'YOUR OBJECTIVE IS TO REDUCE DEMAND, USING TH';
	'E MONETARY AND FISCAL':PRINT'TOOLS AVAILABLE TO YOU AS PRE';
	'SIDENT.  KEEP IN MIND THAT TOO MUCH'
0565 PRINT'REDUCTION COULD LEAD TO A RECESSION.':GOTO700
0600 !   RECESSION
0610 PRINT:PRINT'		**********  RECESSION ALERT!!  ***';
	'*******':PRINT:PRINT'	IT APPEARS THAT YOUR ECONOMY IS OP';
	'ERATION BELOW FULL POTENTIAL.':PRINT'THIS IS NOT GOOD.  I';
	'T MEANS THAT PEOPLE ARE OUT OF WORK.  AND':PRINT'RESOURCE';
0623 PRINT'S ARE BEING WASTED.':PRINT:PRINT'(IF YOU ARE FAMILIAR W';
	'ITH THESE COMMENTS AND WISH TO ACT AT ONCE,':INPUT
	'TYPE 0.  IF YOU WANT TO READ THEM, TYPE 1.',X:IFX=0THEN750
0650 PRINT:PRINT'	GENERALLY SPEAKING UNEMPLOYMENT BETWEEN TH';
	'REE AND FOUR':PRINT'PERCENT IS CONSIDERED ACCEPTABLE.  IN';
	' YOUR ECONOMY IT IS SOMEWHAT':PRINT'HIGHER, AND YOU MUST ';
	'ACT TO REDUCE IT.  MODERN ECONOMISTS FEEL THAT'
0659 PRINT'RECESSIONS RESULT FROM A REDUCTION IN TOTAL DEMAND.  YO';
	'UR':PRINT'OBJECTIVE, THEN, IS TO USE THE AVAILABLE MONETA';
	'RY AND FISCAL':PRINT'TOOLS TO INCREASE DEMAND.  KEEP IN M';
	'IND THAT A DRASTIC INCREASE COULD PRODUCE DEMAND-';
0665 PRINT'PULL INFLATION.'
0700 !   MONETARY, FISCAL CHOICES, MULTIPLIER
0710 PRINT:PRINT'	ON THE FISCAL SIDE YOU MAY INCREASE OR DE';
	'CREASE GOVERNMENT':PRINT'SPENDING, AND INCREASE OR DECRE';
	'ASE THE AMOUNT OF TAXES ASSESSED'
0717 PRINT'ON CONSUMERS (INDIVIDUALS) AND INVESTORS (BUSINESSES).':
	PRINT'	ON THE MONETARY SIDE YOU MAY ADJUST THE SUPPLY OF';
	' MONEY USING':PRINT'THE RESERVE REQUIREMENT ESTABLISHED BY';
	' YOUR FEDERAL RESERVE':PRINT'BOARD.'
0750 L=INT(RND*100)/1
0752 IFL<1.9ORL>4.1THEN750
0760 PRINT:PRINT:PRINT'	DO YOU WANT TO USE MONETARY OR FISCAL ACTION';
	' TO ADJUST':PRINT'THE ECONOMY.    (MONETARY - TYPE M; FISCA';
	'L - TYPE F)':INPUTX$:IFX$='M'THEN1200ELSEIFX$='F'THEN1000ELSE
	760
1000IFI1=1THEN1008ELSEOPEN'ECON.DAT'FORINPUTASFILE1%:GOSUB1500
1008 J=J+1
1010 PRINT:PRINT'	YOU MAY ASSUME THAT THE MULTIPLIER IS ';L:
	PRINT'	DO YOU WANT TO CHANGE THE LEVEL OF GOVERNMENT SPEND';
	'ING':PRINT'	(YES OR NO)':INPUTX$:IFX$='NO'THEN1068
1030INPUT'     HOW MUCH CHANGE ARE YOU ORDERING';S:IFS>-30ORS<30THEN
	1048ELSEPRINT'THIS IS TOO MUCH TO BE REALISTIC.  TRY AGAIN':
	GOTO1030
1048 G=G+S
1050 P(1)=C/(Y(2)-G)
1052 P(2)=I/(Y(2)-G)
1054 P(3)=S*L-S
1056 C=C+P(1)*P(3)
1058 I=I+P(2)*P(3)
1062 Y(2)=C+I+G
1066 GOTO1070
1068 K=K+1
1070 PRINT:PRINT'	DO YOU WANT TO CHANGE THE AMOUNT OF TAXES ';
	'COLLECTED.':INPUTX$:IFLEFT(X$,1%)='N'THEN1130
1084 PRINT'	HOW MUCH CHANGE ARE YOU ORDERING IN PERSONAL TAXES.':
	PRINT'(THINK OF THIS AS TAXES COLLECTED.  A TAX CUT IS A MI';
	'NUS NUMBER.':PRINT'AN INCREASE IS POSITIVE.)':INPUTT(1)
1096 IFT(1)<-20ORT(1)>20THENPRINT'TOO MUCH TO BE REALISTIC.  TRY AGA';
	'IN':GOTO1084
1104 C=C-(T(1)*L)
1106 PRINT:PRINT'	HOW MUCH CHANGE ARE YOU ODERING IN BUSINESS ';
	'TAXES.':INPUTT(2):IFT(2)<-15ORT(2)>15THENPRINT'TOO MUCH.  T';
	'RY AGAIN.':GOTO1106
1122 I=I-(T(2)*L)
1128 GOTO1138
1130 IFK=0THEN1138
1132 PRINT'YOU MUST TAKE SOME ACTION!':GOTO1010
1138IFN=1THEN1400
1150 PRINT:PRINT'	DO YOU WANT TO TAKE MONETARY ACTION, TOO.';:
	INPUTX$:IFLEFT(X$,1%)='N'THEN1400
1200 !   MONETARY POLICY ACTION
1210 N=N+1
1212 Q=Q+U
1216 PRINT:PRINT'	BY LAW, THE RESERVE REQUIREMENT MUST BE BETW';
	'EEN 10 AND 22':PRINT'PERCENT.  ITS NOW';Q;'PERCENT.  SMALL ';
	'CHANGES ARE SIGNIFICANT':PRINT'HERE, SO BE CAREFUL.    (NOT';
	'E: TO RAISE THE RESERVE REQUIREMENT'
1224PRINT'1.5 PERCENT, TYPE 1.5.  TO LOWER IT, USE THE MINUS SIGN.)'
1225PRINT:PRINT'     HOW MUCH CHANGE IN THE RESERVE REQUIREMENT ARE YOU ORDERING,'
1238 INPUTU:IFI1=1THEN1243ELSEOPEN'ECON.DAT'FORINPUTASFILE1%:GOSUB1500
1239 GOTO1243
1241V(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$:RETURN
1243IFU<-2.1ORU>2.1THEN1244ELSE1248
1244 GOSUB1241:CLOSE1%:CHAIN'$ECON2'1244
1248GOSUB1241:CLOSE1%:CHAIN'$ECON2'1248
1400GOSUB1241:CLOSE1%:CHAIN'$ECON2'1400
1500A=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):
	Y0=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)
1599I1=V(15)
1600RETURN
2000 END
KEY
