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>COR700IOR300GOR300800THEN364ELSE360 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