Atari 8-bit Source code

10REMDAIRYFARMING
20REMByScottTapley
30REMAtariconversion:DavidSimmons
32REMSubmittedbyBobBewley
33REM11-23-81
35OPEN#1,4,0,"K:"
40GRAPHICS0:?"":POKE752,1:SETCOLOR2,12,2:SETCOLOR4,12,2
100CLR:BN=1:DA=1:CM=500:SC=8000:LA=1:ES=6:WW=900:DEL1=150:CLS=155:WAIT=160:DEL2=165
110DIMCOW$(11),SH$(7),OP$(28),TAB$(1),LIN$(39)
115TAB$=CHR$(127)
119REMINLINE120SETLIN$EQUALTO38CTRL<R>'SPLUS1ESC-CTRL<->
120LIN$=""
145GOTO195
150FORI=1TO600:NEXTI:RETURN
155POKE752,1:PRINTCHR$(125);"DAIRYFARMING":PRINTLIN$:RETURN
160POSITION5,23:?"Presstocontinue...";:GET#1,T:IFT<>155THEN160
162GOSUBCLS:RETURN
165FORI=1TO1600:NEXTI:RETURN
195POSITION11,1:?"":?
200?"Inthissimulationofdairyfarming,youwillhave500,000dollarsto"
210?"buyafarmandgetstartedinyour":?"dairyingcareer.":?
215?"Theobjectofthesimulationisto":?"accumulate10,000points."
220?"Yougetpointsforsuchthingsas";:?"milk,cash,land,cows,etc.":?
225?"Thefirstthingyoudoisbuyafarm.Eachfarmconsistsof1barn,1small";
230?"house,1largesilo,1refigerated";:?"milkcooler,and1hayshed.":?
235?"Theonlydifferenceisthenumberofacresthatthefarmhasforgrazing."
240GOSUBWAIT:?"FARM#";TAB$;"ACRES";TAB$;"PRICE":?:?TAB$;"1";TAB$;"140";TAB$;"$439,000"
245?:?TAB$;"2";TAB$;"110";TAB$;"$399,000":?:?TAB$;"3";TAB$;"95";TAB$;"$369,000"
250TRAP250:POSITION2,11:?"Whichfarmdoyouwanttobuy(1-3)?";:GET#1,F
255IFF<49ORF>51THEN250
260GOTO260+(F-48)
261A=140:MC=61000:FV=439000:PV=20:GOTO265
262A=110:MC=101000:FV=399000:PV=12:GOTO265
263A=95:MC=131000:FV=369000:PV=-7
265VB=FV:W=A
267?"":POSITION4,10:?"Nowit'stimetogototheauction":?:?"andbuysomecattle...."
270GOSUBDEL2:GOSUBCLS:GOSUB1000:GOSUBCLS:?"Nowthatyouaredonebuyingyour"
275?"cattle,youmustmilkthem,and":?"sellthemilkforaprofit.":?
280?"Nowlet'sgomilkthemcows....":GOSUBDEL2:GOSUBDEL1
300GOSUBCLS:MC=INT(MC):?"DAY:";DA;TAB$;"YOUHAVE$";MC:?"YOURFARMINGEQUIPMENTCONSISTSOF:"
305?"1#";F-48;"farm,with";A;"acresofland":?"and";BN;"barn(s).":?LIN$
310?"Youhave";INT(G);"gallonsofmilk":?"inyour";CM;"galloncooler(s)."
315PER=S/SC:?"Yoursilo(s)are";(PER*100);"%FULL":?LIN$
320C=HO+BS+AY+GU+JE:?"NUMBEROFCOWS:":?:?"Holstein-";HO;TAB$;"BrownSwiss-";BS
325?"Aryshire-";AY;TAB$;"Guernsey-";GU:?"Jersey-";JE;TAB$;"TOTAL:";C:?LIN$
330?"1.Milkcows(feed1st)2.Buyfeed":?"3.Buycowsatauction4.Feedcows";
335?"5.Takecowstopasture6.Sellmilk":?:?"Enteroptionnumber(0tocontinue)";
340TRAP340:GET#1,OP:IFOP<48OROP>54THEN340
345IFOP=48THEN400
350GOSUBCLS:ONOP-48GOSUB1200,1300,1000,1400,1500,1600
355GOTO300
400GOSUBCLS:?"ATTHISTIMEYOUMAYBUYANYTHINGSNECESSARYFORYOURFARM."
405IFC>BN*35THEN?TAB$;"(Youneedabiggerbarn!)"
410?LIN$:?"1.Buymorelandforgrazing":?"2.Selllandforquickcash"
415?"3.Buyalargeorsmallcooler":?"4.Buyabiggerbarn":?"(Eachholds25cows)"
420?"5.Buyalargersilo":?"6.Sellfarmandendgame":?:?"Enteroptionnumber(0tocontinue)";
425TRAP425:GET#1,OP:IFOP<48OROP>54THEN425
430IFOP=48THEN500
435IFOP=54THEN600
440GOSUBCLS:GOSUB1900+((OP-48)*100):IFMC<OTHENGOSUB700
445GOTO400
500FV=FV+INT(FV*0.01):WW=WW+10:PA=0:DA=DA+1:LO=INT(LO+LO*L)
505IFMC>0ANDLO>0THENGOSUB800
510IFCE=1ORC=0THEN550
515R=INT(RND(0)*5):GOSUB530+R
520?CHR$(125):POSITION2,11:POKE752,1
525?"Sinceyoudidn'tfeedyourcowstoday,oneofyour";COW$;"cowsdied.":GOSUBDEL2:GOTO550
530COW$="Holstein":IFHO>0THENHO=HO-1:RETURN
531COW$="BrownSwiss":IFBS>0THENBS=BS-1:RETURN
532COW$="Ayrshire":IFAY>0THENAY=AY-1:RETURN
533COW$="Guernsey":IFGU>0THENGU=GU-1:RETURN
534COW$="Jersey":IFJE>0THENJE=JE-1:RETURN
535POP:GOTO515
550WP=WP+(HO/3)+(BS/4)+(AY/5)+(GU/6)+(JE/7)+ES+(A/5)+(LA*2)+SA+(MC/10000)
555IFLO>0THENWP=WP-(LO/100)
560OP=INT(WP):POKE752,1:?CHR$(125):POSITION9,11:?"Younowhave";OP;"points."
565POSITION9,13:?"(";OP/100;"%ofyourgoal)":CE=O:IFOP<10000THENGOSUBDEL2:GOTO300
570GRAPHICS18:FORL=1TO10:POSITION4,2:?#6;"":POKE708,56+INT(RND(0)*10)*16
575FORI=1TO60:NEXTI:POSITION4,2:?#6;"YOUDIDIT!":FORI=1TO75:NEXTI:SOUND0,30+RND(0)*50,12,10:NEXTL
579REMINLINES580-584TYPESTRINGSININVERSEVIDEO.
580POKE710,71:IFDA>125THENOP$="":GOTO585
581IFDA>118THENOP$="":GOTO585
582IFDA>112THENOP$="":GOTO585
583IFDA>105THENOP$="":GOTO585
584OP$=""
585?#6;"YOUNOWHAVEOVER":?#6;"10,000POINTS!":?#6;"RATING:":?#6;OP$:POSITION0,8
590TRAP590:POSITION0,8:?#6;"ANOTHERGAME(Y/N)?";:GET#1,OP:IFOP=89THEN40
593IFOP=78THENPOKE752,0:END
596GOTO590
600GOSUBCLS:?"Whenyouboughtyourfarmitwasworth$";VB;"includingthe";W;"acresthat"
605?"camewiththefarm.":?:?"Butnowit'sworth$";INT(FV*1.1):?:XL=A-W
610R=INT(RND(0)*2001):IFR<WWTHEN610
615M=XL*R:IFM>0THEN?:?"Thelandyouboughtisworth$";M;".":GOTO625
620M=0:?:?"Youdidn'tbuyanyadditionalland."
625R=INT(RND(0)*35):?:?"Yourcowsareworth$";C*(1400+R*35);".":?
630?"Youhave";INT(WP);"points.":?:?"Areyousureyouwanttosell(Y/N)?";
635TRAP635:GET#1,T:IFT=78THEN400
640IFT<>89THEN635
645FV=INT(FV+(FV/9)+MM+C*(1400+R*35)):?:?:?"Youhavejustbeenpaid$";FV;","
650?"incash.":?:?"Younowhave$";INT(MC+FV);".":?:?"Doyouwanttoplayagain(Y/N)?";
655TRAP655:GET#1,T:IFT=89THEN40
660IFT=78THENPOKE752,0:END
665GOTO655
700GOSUBCLS:?"Youhavespenttoomuchmoney....":?:?:?"Youwillhavetotakeoutaloan."
705L=1+INT(RND(0)*19):?:?"Youare$";ABS(MC);"indebt.":?:?"Thecurrentinterestrateis";L;"%."
710POSITION4,20:?"Presstoaccepttheloan";:INPUTOP$
715LO=LO+ABS(MC):MC=0:L=L/300:RETURN
800GOSUBCLS:?"LOANPAYMENT:":?"Youhave$";MC;","
805?"andyouowe$";LO;"onyourloan.":?:?"Wouldyouliketomakeapaymentonyourloan(Y/N)?";
810GET#1,T:IFT=78THENRETURN
815?:?:?"Howmuchwouldyouliketopay";:INPUTOP:IFOP<=0THENRETURN
820IFMC<OPTHEN?:?"Youdon'thaveenoughmoney!":GOSUBDEL2:GOTO815
825LO=INT(LO-OP):MC=INT(MC-OP):IFLO<=0THEN?:?"Yourloanispaidoff!!":GOSUBDEL2:RETURN
830?:?"Youstillowe$";LO;"onyourloan.":GOSUBDEL2:RETURN
1000?"Thereare5differentkindsofcows.":?:?"(Listedinorderofmilkproduction):"
1005?:?"COW#:";TAB$;"TYPE:";TAB$;"BID:":?:?TAB$;"1";TAB$;"Holstein";TAB$;"$1500"
1010?TAB$;"2";TAB$;"BrownSwiss";TAB$;"$1400":?TAB$;"3";TAB$;"Ayrshire";TAB$;"$1325"
1015?TAB$;"4";TAB$;"Guernsey";TAB$;"$1250":?TAB$;"5";TAB$;"Jersey";TAB$;"$1185"
1020?:?TAB$;"6";TAB$;"Tonotbidonanycows"
1025?:?"Youhave$";MC;".Whichtypeof":?"cowdoyouwanttobidon(1-6)?";
1030TRAP1030:GET#1,OP:IFOP<49OROP>54THEN1030
1031IFOP=54THENRETURN
1032?OP-48
1035TRAP1035:?:?:?"Howmanycowsdoyouwanttobuy";:INPUTNUM:IFNUM<1THEN1035
1040GOTO1040+(OP-48)
1041COW$="Holstein":BID=1500:PB=1500:GOTO1050
1042COW$="BrownSwiss":BID=1400:PB=1400:GOTO1050
1043COW$="Aryshire":BID=1325:PB=1325:GOTO1050
1044COW$="Guernsey":BID=1250:PB=1250:GOTO1050
1045COW$="Jersey":BID=1185:PB=1185
1050GOSUBCLS:PE=10+INT(RND(0)*40):?"Thereare";PE;"peopleheretoday."
1055?:?"Thenumberofpeopleattheautionwillinfluencehowhighyouhaveto"
1060?"bidtopurchaseyourcow(s).":?LIN$:?"Thebiddingonthe";COW$
1065?"hasjuststarted,":?"withabidof$";BID;"percow."
1070TRAP1070:POSITION2,11:?CHR$(156);CHR$(156);CHR$(156);"Thecurrentbidis$";BID;"percow."
1075?:?"Enteryourbid(0toquit)";:INPUTBB:IFBB<>0THEN1095
1080R=1+INT(RND(0)*4):GOSUB1090+R:?:?"SOLD--":?"tothemaninthe";SH$;"shirt!"
1085GOTO1125
1091SH$="Yellow":RETURN
1092SH$="Green":RETURN
1093SH$="Striped":RETURN
1094SH$="Blue":RETURN
1095IFBB<BIDTHEN?:?"BIDTOOLOW.":GOSUBDEL1:GOTO1070
1100IF(BB*NUM)>MCTHEN?:?"YOUDON'THAVEENOUGHMONEY!":GOSUBDEL1:GOTO1070
1105IFBB>PB+(PE*25)+RND(0)*500THENGOTO1115
1110BID=BB+11+INT(RND(0)*15):GOTO1070
1115?:?TAB$;TAB$;"SOLD!!!":MC=INT(MC-BB*NUM):GOSUB1119+(OP-48):GOTO1125
1120HO=HO+NUM:RETURN
1121BS=BS+NUM:RETURN
1122AY=AY+NUM:RETURN
1123GU=GU+NUM:RETURN
1124JE=JE+NUM:RETURN
1125?:?"Doyouwanttobuymorecows(Y/N)?";
1130TRAP1130:GET#1,T:IFT=78THENRETURN
1135IFT=89THENGOSUBCLS:GOTO1000
1140GOTO1130
1200IFPA=1THENPOSITION3,12:?"YOU'VEALREADYMILKEDTHEMTODAY!!!":GOSUBDEL2:RETURN
1205PA=1:VA=(2.1+(INT(RND(0)*39)/10))*2
1210?"MILKPRODUCTION:":?
1215IFHO>0THEN?"YourHolsteincowsgave";INT(HO*VA);"gallons"
1220VA=VA-0.2:IFBS>0THEN?:?"YourBrownSwisscowsgave";INT(BS*VA);"gallons."
1225VA=VA-0.2:IFAY>0THEN?:?"YourAyrshirecowsgave";INT(AY*VA);"gallons."
1230VA=VA-0.2:IFGU>0THEN?:?"YourGuernseycowsgave";INT(GU*VA);"gallons."
1235VA=VA-0.2:IFJE>0THEN?:?"YourJerseycowsgave";INT(JE*VA);"gallons."
1240MI=(HO*(VA+0.8))+(BS*(VA+0.6))+(AY*(VA+0.4))+(GU*(VA+0.2))+(JE*VA):G=G+MI
1245?:?"Totalmilkproduction:";INT(MI);"gallons."
1250IFCE=0THENR=10+INT(RND(0)*28):?:?"Sinceyoudidn'tfeedyourcows,"
1255IFCE=0THEN?:?R;"%ofthemilkwasn'tgoodenough":?"andhadtobethrownout.":G=G-MI*(R/100)
1260IFG>CMTHEN?:?"Yourcoolerisn'tbigenoughtoholdallofthatmilk....You'llhaveto"
1265IFG>CMTHEN?"selltheextramilkat$.75/gallon":K=G-CM:G=CM:MC=MC+(K*0.75)
1270IFK>0THEN?:?"Yougot";K*0.75;"fortheextramilk."
1275K=0:GOSUBDEL2:GOSUBDEL1:RETURN
1300?"Yoursilois";PER*100;"%full.":?:?"Itcosts$2.50adaytofeedacow."
1305?:?"Youhave";C;"cowsand$";MC;"."
1310TRAP1310:?:?"Howmanydaysworthoffoodwouldyouliketobuy";:INPUTOP:IFOP<0THENGOTOWAIT
1315OP=OP*C*2.5:IFOP>MCTHEN?:?"Youdon'thaveenoughmoney!":GOSUBDEL1:GOTO1310
1320MC=INT(MC-OP):S=S+OP:PER=S/SC:?:?"Thatcostyou$";OP;",":?:?"Youhave$";MC;"left."
1325IFPER>1THEN?:?"Yoursiloisfull!!!"
1330GOSUBDEL2:RETURN
1400IFCE=1THENPOSITION4,12:?"YOU'VEALREADYFEDTHEMTODAY!!!":GOSUBDEL2:RETURN
1405OP=C*2.5:IFS<OPTHENPOSITION2,10:?"YOUDON'THAVEENOUGHFEEDTOFEEDALLOFYOURCOWS--"
1410IFS<OPTHEN?"YOU'LLHAVETOBUYMOREFEEDFIRST.":GOSUBDEL2:RETURN
1415POSITION10,6:?"Presstofeed":?:?"orfordon'tfeed.";
1417GET#1,T:IFT=68THENRETURN
1420POSITION9,18:?"Cowsarebeingfed...."
1425CE=1:PV=PV-1:S=S-OP:PER=S/SC:GOSUBDEL2:RETURN
1500IFCE=1THENPOSITION4,12:?"YOU'VEALREADYFEDTHEMTODAY!!!":GOSUBDEL2:RETURN
1505IFPV>9THEN?"Yourcowshaveeatenallofthe":?"goodgrassinthepasture."
1510IFPV>9THEN?:?"Inotherwords,youwillhavetoletthegrassgrowforafewdays.":GOSUBDEL2:RETURN
1515IFC>ATHEN?"Youneedtobuymoreland!!!":GOSUBDEL2:GOTO400
1520?:?"Cowsareenteringpasture....":GOSUBDEL1:?:?"Cowsareeatinggrass....":GOSUBDEL1
1525?:?"Cowsaredoneeating....":GOSUBDEL1:?:?"Cowsaregoingbacktobarn....":GOSUBDEL2
1530CE=1:PV=PV+1:RETURN
1600IFG<200THENPOSITION2,12:?"YOUDON'THAVEENOUGHMILKTOSELLYET":GOSUBDEL2:RETURN
1605BP=0.9+(INT(RND(0)*36)/10)
1610?"Thelocalmilkmanwillbuyyourmilkfor$";BP;"pergallon."
1615?:?"Youhave";G;"gallonsofmilk."
1620TRAP1620:?:?"Howmanygallonswillyousell";:INPUTOP
1625IFG<OPTHEN?:?"Youdon'thavethatmuch!!":GOSUBDEL1:GOTO1620
1630MC=MC+(OP*BP):G=G-OP:RETURN
2000P=850+INT(RND(0)*901):?"Anacreoflandwillcostyou$";P
2005?:?"Howmanyacresdoyouwanttobuy";:INPUTOP:OP=INT(OP):IFOP<1THENRETURN
2010IFMC<OP*PTHEN?:?"Youdon'thaveenoughmoney!!":GOSUBDEL1:GOTO2005
2015MC=MC-OP*P:?:?"Thatcostyou$";OP*P;",":?"younowhave$";MC
2020A=A+OP:GOSUBDEL2:GOSUBDEL1:RETURN
2100P=950+INT(RND(0)*801):?"Youcanselllandfor$";P;"anacre."
2105?:?"Howmanyacresdoyouwanttosell";:INPUTOP:OP=INT(OP):IFOP<1THENRETURN
2110IFOP>A-CTHEN?:?"Youneed";C;"acresforthecows!":GOSUBDEL2:RETURN
2115MC=MC+(OP*P):A=A-OP:?:?"Younowhave$";MC:GOSUBDEL2:RETURN
2200?:?"MilkCoolers:":?:?"L=LargeCooler(500gallon)$4,500"
2205?"S=SmallCooler(200gallon)$2,500":?"N=NoCooler"
2210?:?"Whichcoolerdoyouwant?";:GET#1,T:IFT=78THENRETURN
2215IFT=76THENMC=MC-4500:CM=CM+500:LA=LA+1:RETURN
2220IFT=83THENMC=MC-2500:CM=CM+200:SA=SA+1:RETURN
2225GOTO2210
2300?"Abarncosts$5,000.":?:?"Ifyoudon'twantit,typeN(RETURN)"
2305?:?"Presstobuybarn";:INPUTOP$:IFOP$<>""THENRETURN
2310BN=BN+1:MC=MC-5000:RETURN
2400?"SiloTypes:":?:?"#1.Largesilo(8000ft.)$7,500"
2405?"#2.Mediumsilo(7000ft.)$6,000":?"#3.Smallsilo(6000ft.)$5,000":?"#4.Nosilo"
2410?:?"Whichsilowouldyouliketobuy?";:GET#1,OP:IFOP<49OROP>52THEN2410
2415GOTO2415+((OP-48)*5)
2420MC=MC-7500:SC=SC+8000:ES=ES+6:RETURN
2425MC=MC-6000:SC=SC+7000:ES=ES+5:RETURN
2430MC=MC-5000:SC=SC+6000:ES=ES+4:RETURN
2435RETURN	

• Download link 1

• Download link 1
• Download link 2