Atari 8-bit Source code

10REM
20DIMA$(38),EF(10),F(10),B$(1)
30A$="+--+--+--+--+--+--+--+--+--+--+--+--+"
35GRAPHICS0:POKE752,1
40?:?A$:?:?:?"":?:?:?A$:FORI=1TO500:NEXTI:POKE752,0
65TRAP40000
68TRAP65
69POSITION2,20
70?:?"DOYOUWANTINSTRUCTIONS[]OR[]";:INPUTA$:IFA$(1,1)="N"THEN540
80GRAPHICS0
90PRINT"YouhavebeenhiredasPRESIDENToftheElectricCompany.Ifyousurvive"
100PRINT"tenyears,youwillbepromotedtotheBoardofDirectors."
110?:?"Youwillstartwith$100,000incash,1powerplant,andstockpilesofcoal";
120PRINT"andfueloil.Youmaychooseeitherfueltousenowandforanyadditional";
130PRINT"plantsyoubuild.Allplantshaveageneratingcapacityof1millionKW."
135PRINT"Astheplantsgetolder,theyloseefficiency;ie.theywillrequire"
140PRINT"extrafuel.Theymaybebroughtbacktopeakefficiencybyremodeling."
145?:?:?"";:INPUTA$:GRAPHICS0
150PRINT"Coaltendstoyieldmorekilowattsperdollaroffuel;butcoalplantscost"
160PRINT"50%moretobuild."
165?:?"Managementoffuelsuppliesiscrucialbecuasethereisaleadtimeofone"
170?"yearbeforeitarrives.Coalorderedinyear4isnotdeliveredtillyear"
175?"5,soacloseeyemustbekeptonfuelstockpiles."
180?:?"Inflationaffectsthecostofalmosteverythingencountered-fromfuelcosts";
185?"todamagecausedbydisasterorjudgmenterror.Ifyoufindthata"
190?"rateincreaseisrequiredtomaintainaprofitablebusinessandkeep"
195?"stockholdershappy,onceayearyoumayapplyforarateincrease."
200?:?:?"";:INPUTA$:GRAPHICS0
210?"Temperyourrateincreaserequestswithmoderation!Greedwillgetyou"
220?"nowhere.Rateincreasesmayberejectedifmadetoooftenorfortoo"
230?"much.Waitingbetweenrequestshelps!"
240?"Aswithfuelorders,thereisaoneyearlagbetweenwhenarateincrease"
250?"isgrantedandwhenittakeseffect.Anincreasegrantedinyear5,takes"
260?"effectinyear6."
270?:?"Nowlikeallgoodexecutivesyoumustgettowork!!!"
280?:?:?"":?"EnterHELPtoreviewinstructions":?">>";:INPUTA$
290IFA$=""THEN540
300IFA$(1,1)="H"THEN80
540YR=0:PI=1:GF=1:CS=700:CC=20:CF=25:CL=1600:FO=2500:CRN=100000:R=0.05:RT=0.05:TR=1
545TRAP40000
547TRAP545
550GRAPHICS0:PRINT"WHATFUELDOYOUWANTTOPOWERTHEGENERATORSOFYOURPLANT?":?
560PRINT"[]=COAL;[]=FUELOIL";
565INPUTQQQ
566F(1)=QQQ
570IFF(1)>2THEN550
580EF(1)=1
590YR=YR+1
600I=0
610E=(100+(RND(1)*10))/100
620I=I+1:EF(I)=EF(I)*E
625IFI<GFTHEN610
630GRAPHICS0
631SETCOLOR2,I,4
632?"***FINANCESFORYEAR";YR;"***"
635?"GENERATINGPLANTSOWNED";GF
640?"NUMBEROFCUSTOMERS";CS
650?"TONSOFCOALINSTOCK";CL
670?"BARRELSOFFUELOILONHAND";FO
680?"CASHRESERVE";CRN
685TRAP40000
686TRAP685
690?"HITCONTINUE";
695INPUTA$:IFCRN>0THEN780
710GRAPHICS0:?"YOUHAVEBUNGLEDTHEJOB.THECOMPANYISBROKE!"
720?"YOUHAVEBEENSENTTOASIBERIANSALTMINETOCOOLYOURHEELS!"
730PRINT:GOTO2220
740?"YOUHAVEMISMANAGEDYOURFUELINVENTORY.THATISTOOBAD,FORYOU"
742?"WEREDOINGFINEINOTHERAREASOFMANAGEMENT.HEBOARDOFDIRECTORS"
750?"WEREUNSYMPATHETIC.YOUWERECANNED!"
770PRINT:GOTO2220
780IN=(100+(RND(1)*12))/100:PI=PI*IN:PG=(100+(RND(1)*12))/100
790MN=((GF*5000)+(CS*10))*PI:CRN=CRN-MN
800CS=INT(CS*PG):KDN=CS*1000:GC=1000000*GF
810CC=INT(2000*PI)/100:SC=INT(100*PI*((RND(1)*30)+20)/10)/100
820OC=INT(2500*PI)/100:SO=INT(100*PI*((RND(1)*10)*10)/10)/100
830EV=RND(1)*10
835IFEV>5THEN1000
840IFEV<1THEN850
842IFEV<2THEN920
844IFEV<3THEN940
846IFEV<4THEN960
848IFEV<5THEN980
850CA=INT(RND(1)*500):HU=INT((500+(RND(1)*500)+(1/CA)*(RND(1)*500))*PI)
860GRAPHICSO:PRINTCA;"NEWCUSTOMERSWISHSERVICE"
865HU=HU*100:HU=INT(HU):HU=HU/100
870?:PRINT"ITWILLCOST$";HU;"TOADDTHEM"
880PRINT"DOYOUWISHTOSELLTHEMPOWER?":?
885PRINT"[]=YES;[]=NO";
890INPUTF2
895IFF2>2THEN860
900IFF2=2THEN1000
910CS=CS+CA:GOTO1000
920CA=INT(RND(1)*100):GRAPHICS0:PRINTCA;"PEOPLEHAVEDROPPEDASCUSTOMERS!"
930CS=CS-CA:GOTO990
940SD=(INT((RND(1)*1000))+1000)*PI
942SD=SD*100:SD=INT(SD):SD=SD/100
945PRINT"ASTORMCAUSED$";SD;"DAMAGE"
950CRN=CRN-SD:GOTO990
960PRINT"PEOPLEPROMISETOCONSERVE.DEMAND"
965PRINT"WILLNOTRISEASSHARPLYTHISYEAR."
970KDN=INT(KDN*0.9):GOTO990
980PRINT"DEMANDWILLRISEFASTERTHANUSUAL.":KDN=INT(KDN*1.1)
990FORJ=1TO500:NEXTJ
1000KG=0:NC=0:NF=0:I=0
1010I=I+1
1020GRAPHICSO:COLOR16-I:PRINT(KDN-KG);
1025PRINT"KILOWATTSARENEEDED":PRINT"YOUHAVE";
1030PRINTGF;"PLANTS"
1032TRAP40000
1035TRAP1032
1040?:PRINT"HOWMANYKILOWATTSFROMPLANT";I:?">>";:INPUTK
1045TRAP40000
1050IFK<=1000000THEN1070
1060PRINT:PRINT"ONEPLANTCANNOTPRODUCETHATMUCH!":GOTO1040
1070KG=KG+K
1080IFF(I)=2THEN1120
1090F=INT((K/600*EF(I))+0.5)
1095NC=NC+F:IFNC<CLTHEN1110
1100NC=NC-F:KG=KG-K:PRINT"YOUDONOTHAVEENOUGHCOAL!":GOTO740
1110PRINT"PLANT";I;"NEEDS";F;"TONSOFCOAL.":GOTO1150
1120F=INT((K/400*EF(I))+0.5):NF=NF+F:IFNF<FOTHEN1140
1130NF=NF-F:KG=KG-K:PRINT"YOUDONOTHAVEENOUGHOIL!":GOTO740
1140PRINT"PLANT";I;"NEEDS";F;"BARRELSOFOIL."
1150FORJ=1TO400:NEXTJ
1160IFI<GFTHEN1010
1170IFKDN>GCTHEN1200
1180IFKDN>KGTHEN1240
1190GOTO1280
1200GRAPHICS0:PRINT"ALLGENERATORSWEREOVERLOADED!"
1205PRINT"DEMANDWASGREATERTHANCAPACITY!"
1210PRINT"AMAJOROCCURRED.SEVEREDAMAGEHASBEENCAUSEDTOTHE"
1215PRINT"GENERATORSANDYOURCAREER.YOUHAVEBEENSENTTOANTARCTICATOMANAGE"
1220PRINT"ANICECREAMPARLOR!":GOTO2220
1240DM=((RND(1)*1000)+2000)*PI*KDN/KG:CR=CR-DM
1245DM=(INT(DM*100))/100
1246IFDM>50000*PITHENDM=INT(50000*PI)
1250GRAPHICS0:PRINT"YOUDIDNOTGENERATEENOUGHTOMEETDEMANDS.$";DM;"WORTHOFDAMAGE"
1260PRINT"HASBEENCAUSEDTOTHEEQUIPMENT.FORTUNATELYTHISWASNOTAFATALMISTAKE."
1270CRN=CRN-DM
1280PRINT:PRINT""
1290PRINTNC;"TONSOFCOAL":PRINTNF;"BARRELSOFFUELOIL"
1295PC=CC+SC:PO=OC+SO
1300PRINT
1305?"COSTPERTONSHIPPINGTOTALCOST"
1308?"ORBARREL"
1310?"COAL";CC;"";SC;"";PC
1315?
1320?"F.OIL";OC;"";SO;"";PO
1380?:?"HOWMANYTONSOFCOALDOYOUWISHTOBUY?>>";:INPUTCP
1385IFCP<0AND(CP*-1)>CLTHENCP=CL*-1
1390?:PRINT"HOWMANYBARRELSOFFUELOILDOYOUWISHTOBUY?>>";
1395INPUTOP
1396IFOP<0AND(OP*-1)>FOTHENOP=FO*-1
1400CB=CP*PC:OB=OP*PO
1410GRAPHICS0:?:?""
1411?:?"COAL";CB
1412?:?"FUELOIL";OB
1415?:?"__________"
1420?"TOTAL";CB+OB
1430ERN=KG*RT:CRN=CRN-CB-OB+ERN:CL=CL+CP-NC:FO=FO+OP-NF
1440FORI=1TO500:NEXTI
1450GRAPHICS0:PRINT"REMODELINGDOESNOTINCREASETHEGENERATINGCAPACITYOFAPLANT."
1460PRINT"ITWILLRESTOREALLPLANTSTOPEAKEFFICIENCY.ALLPLANTSMUSTBEDONE"
1470PRINT"ATTHESAMETIME.":PRINT
1480?"PLANTCOSTINCREASEINEFFICIENCY"
1490RM=0
1500FORI=1TOGF
1510RC=5000*EF(I)*PI:SV=((EF(I)-1)/EF(I))*100
1520RM=RM+RC
1525RC=RC*100:RC=INT(RC):RC=RC/100
1528SV=SV*100:SV=INT(SV):SV=SV/100
1530PRINTI;"";RC;"";SV;"%"
1540NEXTI
1545RM=RM*100:RM=INT(RM):RM=RM/100
1550PRINT"TOTAL__________":PRINT"COST";RM
1560?:PRINT"DOYOUWISHTOREMODELALLPLANTS?[]=YES,[]=NO";:INPUTDC
1570IFDC<1THEN1560
1575IFDC>2THEN1560
1580IFDC=2THEN1610
1590CRN=CRN-RM
1600FORI=1TOGF:EF(I)=1:NEXTI
1610CM=((RND(1)*5000)+45000)*PI:CM=CM*100:CM=INT(CM):CM=CM/100
1615OM=((RND(1)*3000)+30000)*PI:OM=OM*100:OM=INT(OM):OM=OM/100
1620GRAPHICS0:PRINT"ACOALGENERATINGPLANTWILLCOST"
1625PRINT"...$";CM:?
1630PRINT"AFUELOILGENERATINGPLANTWILLCOST"
1635PRINT"...$";OM
1640?:PRINT"DOYOUWISHTOBUILDANEWPLANT?":?:PRINT"[]=COAL,[]=FUELOIL,[]=NEITHER"
1660PRINT:PRINT"WHATISYOURDECISION?";
1665INPUTDC
1670IFDC<1THEN1660
1675IFDC>3THEN1660
1680IFDC>1THEN1700
1690CRN=CRN-CM:GF=GF+1:F(GF)=1:EF(GF)=1:GOTO1720
1700IFDC>2THEN1720
1710CRN=CRN-OM:GF=GF+1:F(GF)=2:EF(GF)=1
1720GRAPHICS0:PRINT"DOYOUWISHTOAPPLYFORARATEINCREASE?";
1730PRINT"[]=YES,[]=NO";
1735INPUTDC
1740IFDC<1THEN1720
1745IFDC>2THEN1720
1750IFDC=1THEN1770
1760GOTO1920
1770PRINT"ITHASBEEN";TR;"YEARSSINCE":PRINT"YOUHADARAISE.":?
1780PRINT"CUSTOMERSARECURRENTLYPAYING";RT
1785PRINT"PERKILOWATT.HOWMUCHDOYOUWISHTOCHARGEPERKILOWATT?"
1800PRINT:PRINT"ENTERREQUESTASADECIMAL(ie..08)":?
1805?">>>";:INPUTPR
1810IFTR<2THEN1890
1820IFPR>R*PI^1.5ANDTR<3THEN1890
1830IFPR<R*PI^1.5THEN1870
1840RT=RT*1.5:IFPR<RTTHENRT=PR-0.01:TR=0
1850?:PRINT"YOUAREALLOWEDTOINCREASEYOURRATETO";RT;"PERKILOWATT."
1860GOTO1910
1870PRINT"YOURRATEINCREASEHASBEENSTUDIEDANDACCEPTEDASREQUESTED."
1880RT=PR:TR=0:GOTO1910
1890PRINT"THERATEINCREASEYOUREQUESTEDHASBEENDENIED"
1900PRINT"NOINCREASEISALLOWED!"
1910FORI=1TO500:NEXTI
1920TR=TR+1
1925CRN=(INT(CRN*100))/100
1930GRAPHICS0
1935?"*****ENDOFYEAR";YR;"REPORT*****"
1938PRINT
1940?"INCOMEFROMSALESOFPOWER";ERN
1950?"POWERPLANTSOPERATED";GF
1955MN=MN*100:MN=INT(MN):MN=MN/100
1960?"MAINTAINENCECOSTS";MN
1970?"YOUAREGENERATINGAT";(KG/GC)*100;"%"
1980?"OFCAPACITY"
1985?"THEINFLATIONRATEIS";INT((IN*100)-100);"%"
1986PI=PI*100:PI=INT(PI):PII=PI:PI=PI/100
1990?"THECONSUMERPRICEINDEXIS";PII
2000PRINT:PRINT"HITTOCONTINUE"
2003INPUTA$
2010IFYR<10THEN590
2020GRAPHICS0:?"*****ENDINGFINANCIALREPORT*****":?
2030?"GENERATINGPLANTSOWNED";GF
2040?"NUMBEROFCUSTOMERS";CS
2050?"TONSOFCOALINSTOCK";CL
2060?"BARRELSOFOILINSTOCK";FO
2070?"CASHRESERVE";CRN
2080?:?"***********************************"
2090REM
2100?:?"CONGRATULATIONS!YOU'VELASTEDYEARS!"
2110AS=((GF-1)*40000+CRN+CL*25+FO*25)*PI
2120IFAS>100000*PI*0.9500000000000001THEN2160
2130?"YOUSURVIVEDANDTHATWASALL.YOURASSETSDIDNOTGROWASFASTAS"
2140?"INFLATION.INSTEADOFBEINGAMEMBEROFTHEBOARDORDIRECTORS,YOUHAVE"
2150?"BEENGIVENAPOSITIONASJANITOR.":GOTO2220
2160IFAS>100000*PI*1.1THEN2190
2170?"YOUKEPTPACEWITHINFLATION.YOU'VEBEENGIVENAPOSITIONONTHEBOARDOFDIRECTORS":GOTO2220
2190?"NOTONLYAREYOUAPPOINTEDTOTHEBOARDOFDIRECTORS,BUTYOUHAVEBEEN"
2200?"MADEANDHAVEBEENGIVENTHEKEYTOYOUROWNEXEC-UTIVEWASHROOM!!!!!"
2220END	

• Download link 1

• Download link 1
• Download link 2
• Download link 3