ZXTape! 0Created with Ramsoft MakeTZXBREWERY Q"  P. S. BOULTON. 1983. control=1 b$(2,15) materialcount=0 matstock=500 capacity=1000 cash=50000P #capmonth=999 (season=2.5 +'l$=" " -capcount=0 2)fixcost=10000':advcost=1000 7outlets=20 <bidprice=45- Apubcount=0 Fmonth=0 Kyear=1982 Pfinstock=500 Upubvalue=500000t$ Zlastyear=550000G _$yearsale=0:prev=12000. dstrike=0 iadcontrol=1 n t(13 ) xs(12 ,4) }"s$="":diff=1:var=1 plant=100000CP mil=1  8900" !key=10 .1}L,-8 0:0:0::n=0315:f=0215:.03{u\,n:f,n;5;1;"":f:n:10 ,12 ;5;1;"BREWERY";8,10 ;7;1;" ";12 ,10 ;" ";10 ,10 ;"";10 ,20;"";18,4;1;6;" 1983 : P. S. Boulton.":96`,87W:2;546,0:#0;4;" Press any key to continue..":4e4@  9900& &1:7:1:1: 0,7;"USER DEFINED MARKET.";1,7;"====================";2,0;"1. Brewery name -";b$(1);4,0;"2. Beer name -";b$(2);6,0;"3. Beer strength-";s$  9999' /n=821:n,0;5;l$:n 0:524,80P:144,0:524,40(:144,0:n=52420416:n,80P:0,8:n,40(:0,8:n w7:n=2202:12 ,4+n;6;0;n/2;17,4+n;n/2:n \14,11 ;6;1;"Difficulty";19,6;"Market variability"  f$=" " Z10 ,(diff*2)+2;5;1;f$;15,(var*2)+2;f$  9999'  h1;"Enter Brewery name. "''z$:z$""b$(1)=z$:2,17;b$(1) h1;"Enter Beer name. "''z$:z$""b$(2)=z$:4,17;b$(2) 0,0;1;"Enter Beer strength. 4 = very strong, 1 = very weak. "'z$:z$""s$=z$:s$<"1"s$>"4"űs$>11045 6,17;s$ <14,11 ;6;1;0;"Difficulty" $)cx=10 :cy=(diff*2)+2:1400x:14,11 ;6;1;"Difficulty";19,6;0;1;6;"Market variability":diff=n:cx=15:cy=(var*2)+2:1400x:var=n:19,6;6;1;"Market variability" . 1490 xcx,cy;5;1;f$ {"".03{u\,22 }cy=cy+2*(="x"cy<22)-2*(="z"cy>5):="s"n=(cy-2)/2:.05|L,20:.05|L,40(: S#0;1,0;2;" Z=Left X=Right S=Select "  1400x d0:0:#0;1,0;7;" Press any key to continue... ":4e4@ װ0:;:0,0;:n=170F:.03{u\,n-20:.03{u\,n-30:7;0;" BREWERY ";:n:21,28;7;0;" BR" /n=32 -20-2:.02{# =,n:n  502  2000 W0:0::23730\+256*23731\6499964999:""  key=1:5 l"":8900" 7:(cash+plant+pubvalue)/1000000t$mil9700% ymonth=12 year=year+1:4600::month=0:2600( :7::s(12 ,3):t(12 ) ?b$(1,1)=" "b$(2,1)=" "1000 -n=2040(10 :.1}L,n:n u7:7::13 ;"MENU";4,0;2;"1. Redefine market condition.";6,0;4;"2. Purchase raw materials.";8,0;1;"3. Monthly sales planning.";10 ,0;3;"4. Increase production capacity.";12 ,0;2;"5. Increase number of tied pubs.";14,0;4;"6. Save game." k16,0;"________________________________";21,0;"________________________________" r1,0;"________________________________";18,0;2;" " o19,6;1;"BANK BALANCE `";cash;20,0;2;" " +"Select option ";k$:k$=""2040 Of=1̱k$:k$(f)>546ůk$(f)<491.1}L,-8:2040 f ;select=k$:select>6.1}L,25:2040  select=11000 3select=2materialcount=07000X select=2materialcount=1.1}L,30::.1}L,10 :8,0;1;3;"Sorry-only one buy per month!!!":100d::2000  select=35000 *.select=4capcount=03000 /select=4capcount=1.15~,45-::8,3;2;"YOU MUST WAIT UNTIL YOUR CURRENT EXPANSION IS COMPLETED!!":120x::2000 4select=54000 > select=6"Brewery"1900l::3,0;1;" Part 1 saved ";0;20,0;"Now...":"Bytes"65000,142::3,0;1;"Programme saved. Do you wish to continue playing? (y/n).":z$:z$="y"2000 Hz$"y":10 ,0;3;"P. Boulton says 'I hope you haveenjoyed this game.";15,0;2;"Please tell your friends about it, and keep an eye out for my forthcoming releases.'":#1;" Press any key to NEW...":0: (u$="   =  V  " +h$="   O  V  " -strike=1 22,9 ;u$ 7Yn=1421:n,0;5;1;" ":n <rise=1+(*502) F try=0 K 5 P0,8;2;1;"STRIKE THREAT !!";14,1;1;5;0;0;"This is Ron..your Shop Steward.";15,0;" He is asking for a pay-rise of `";rise;" per month." Z|19,1;1;0;5;"This will increase fixed costs by `";rise*(capacity/20);" per month." nH0,0;" DO YOU ACCEPT RON'S PAY CLAIM? (Enter y/n) ";v$ x'v$="y"0,8;6;1;"STRIKE AVERTED!!";6,21;0;"Ron is ";7,21;"grateful.":fixcost=fixcost+(rise*(capacity/20)):6,13 ;" ";9 ,14;2;"":n=10 5024:.05|L,n:n:200: >v$"y"" OK.HOW MUCH WILL YOU PAY? ";k$:k$=""2690 Of=1̱k$:k$(f)<480ůk$(f)>579.1}L,-8:2690 f offer=k$ ^7,21;" ";8,21;" ";9 ,21;" " v579.1}L,-8:2840 f jadverts=adverts+k$:cash=cash-(advcost*k$):21,0;"Press any key to continue..":0: "f:h=1+(*20):11 ;1;1;"NEWS FLASH !";10 ,0;0;3;"Your advertising department reports that advertising costs have just increased by ";h;"% to `";(advcost*(h/100d))+advcost;" each.":advcost=(advcost*(h/100d)+advcost):21,0;"Press any key to continue..":0: ,:11 ;1;3;"NEWS FLASH !":h=1+(*3):inc=1+(*15):6,3;2;("Electricity"h=1)+("Gas"h=2)+("Water"h=3);" prices increased." 614,0;1;"Fixed costs increase by ";inc;"% to";15,0;"`";fixcost+(fixcost*(inc/100d)):fixcost=fixcost+(fixcost*(inc/100d)):21,0;"Press any key to continue...":0: @1::8;"WEATHER REPORT";1,8;"==============":n=314:n,9 ;1;5;" ":n E17,0;2;"The sun is out, the weather is beautiful, and the forecast for the month ahead is ";"HOT!" J@n=116:1;6;119w,110n,n:n ^adcontrol=2:200:1:n=210-1:.05|L,2*n:n,0;1;6;1;" ":n:150:7:0:: h6::n=021:n,0;0;" ":.02{# =,21-n:n:f=0283:n=0212:n+,f-(3*);7;1;0;"* *":n:f ri0,0;" WEATHER REPORT ";1,0;" ============== " |U2,0;"Brrr! Heavy snowfalls forecast for the whole country this month" adcontrol=.5:f=02:n=502-10 -4:.03{u\,n:n:f:n=-65024:.03{u\,n:n:100d::7:   y1;" CAPACITY EXPANSION OPTIONS " &0,165:255,0 "capacity10000'3280 :2,0;"OPTION 1.";3,0;2;"Increase capacity by 1000.";4,0;"Available in 1 months time.";5,0;"Pay `40,000 now..`60,000 next month.";7,0;"TOTAL COST `100,000.";8,0;4;"(Fixed costs will increase by `2500 per month.)" U11 ,0;"OPTION 2.";12 ,0;1;"Increase capacity by 3000.";13 ,0;"Available in 2 months time.";14,0;"Pay `120,000 now..`180,000";15,0;"in 2 months time.";16,0;"TOTAL COST = `300000.";17,0;4;"(Fixed costs will increase by `7500 per month.)" K0,92\:255,0:0,15:255,0: ;.02{# =,25:.06|u\,35#:.1}L,502 S"To proceed, enter option. ('0' returns to menu) ";k$:k$=""3200 Of=1̱k$:k$(f)<480ůk$(f)>579.1}L,-8:3200 f option=k$ option=02000 option=1cash=cash-40000@:capcost=60000`:capmonth=month+2:capincrease=1000:plant=plant+100000CP option=2cash=cash-120000j`:capcost=180000/:capmonth=month+3:capincrease=3000 :plant=plant+300000| option>23060 Q20,0;1;3;" Option ";option;" accepted!! " capcount=1 /capmonth>12 capmonth=capmonth-12 3500 :2,0;"OPTION 3.";3,0;1;"Increase capacity by 5000.";4,0;"Available in 1 months time.";5,0;"Pay `225,000 now..`350,000 next month.";7,0;"TOTAL COST `575,000.";8,0;4;"(Fixed costs will increase by `12000 per month.)" H11 ,0;"OPTION 4.";12 ,0;2;"Increase capacity by 10000.";13 ,0;"Available in 2 months time.";14,0;"Pay `500,000 now..`700,000 in two months time.";16,0;"TOTAL COST = `1.1m.";17,0;4;"(Fixed costs will increase by `25000 per month.)" J0,92\:255,0:0,15:255,0 <.02{# =,25:.06|u\,35#:.03{u\,502 g"To proceed, enter option. ('0' returns to menu.) ";k$:k$<480ůk$>5793320  option=k$ option=02000 option=3cash=cash-225000[:capcost=350000*:capmonth=month+2:capincrease=5000:plant=plant+575000 a option=4cash=cash-500000t$:capcost=700000*:capmonth=month+3:capincrease=10000':plant=plant+1100000G *option>43310 4Q20,0;1;3;" Option ";option;" accepted!! " >Acapcount=1:capmonth>12 capmonth=capmonth-12 =f=-10 35#:.01z# =,f:f:100d:2000  :2;2;"INCREASE NUMBER OF TIED PUBS.";1,2;1;"=============================";4,2;3;"You have = ";outlets;" pubs.";5,2;"Bank balance = `";cash:.05|L,502:.05|L,25:.05|L,0 ,pubcount=19 ,0;3;1;1;"There are no pubs for sale..... WAIT UNTIL NEXT MONTH!! ":n=5020-3:.02{# =,n:n:21,7;1;4;"Returning to menu..":n=05023:.02{# =,n:n:80P:2000 >.75@35#:10 ,2;2;"Sorry...no pubs on the market at present time...Try again next month.";21,7;1;5;1;"RETURNING TO MENU!!":pubcount=1:n=5020-3:.03{u\,n:n:200:2000 \puboffer=1+((*20)+(cash/35000)):pubprice=25000a+(*25000a) v10 ,0;2;"There are ";puboffer;" pubs currently on the market, at a cost of `";pubprice;" each." Öcash579.1}L,-8:4060 f  offer=k$ offer=offer offer*pubprice>cash16,0;1;"INSUFFICIENT FUNDS!!!!!!!!!!!!!":100d:n=0313:.1}L,n:16,n;" ":n:4060 *offer>pubofferoffer<04060 18,0;3;"O.K. You have successfully ";19,0;"bought ";offer;" pubs, at a total cost";20,0;"of `";offer*pubprice Ecash=cash-(offer*pubprice):outlets=outlets+offer:pubcount=1 $pubvalue=pubvalue+(offer*pubprice)  150  2000 0:0:5:1::21,0;0;"Yearend.":23298[,145:l=65000:#0;7;" Press key to receive accounts. ":0:7:0:0:5: /6:1:0:6::1,2;1;" ANNUAL FINANCIAL STATEMENT ";3,3;0;"Year ending 31st Dec. ";year;6,4;2;7;" FIXED ASSETS ";12 ,4;1;" CURRENT ASSETS ";19,4;5;0;" TOTAL ASSETS " 6,27;3;7;"`'s";8,5;6;1;"Pub leaseholds";9 ,5;"Production plant";14,5;"Raw materials";15,5;"Finished stock";16,5;"Cash at bank" s24,144:207,0:160,27:88X,0:160,13 :88X,0  4cy=31:n=pubvalue:9980&:8,cy;n  1cy=31:n=plant:9980&:9 ,cy;n >cy=31:n=matstock*bidprice:9980&:14,cy;n Ln=(finstock*sellprice/100d):cy=31:9980&:15,cy;n 1cy=31:n=cash:9980&:16,cy;n tcy=31:n=pubvalue+plant+(matstock*bidprice)+(finstock*sellprice/100d)+cash:9980&:19,cy;n g9997 ':1:7:1:1::0,4;1;" MANAGEMENT STATISTICS " @4:0:n=28:n,0;4;l$:n 4,5;"Tied pubs":cy=25:n=outlets:9980&:4,cy;n:6,5;"Capacity":cy=25:n=capacity:9980&:6,cy;n 96:0:n=10 16:n,0;l$:n n=(((cash+pubvalue +plant-lastyear)/lastyear)*100d):12 ,2;"Annual capital growth":cy=30:9980&:12 ,cy;n;"%" }n=(((yearsale-prev)/prev)*100d):cy=30:14,2;"Annual sales growth":9980&:14,cy;n;"%"  ?prev=yearsale:lastyear=cash+pubvalue+plant:yearsale=0 >7:0 C9997 ': R0::n=121:n,0;6;1;l$(5);4;l$(7);3;l$(7);0;6;l$(6);1;l$(7):n U)0,6;"SALES RECORD : ";year Wf2,0;9 ;8;1;"Month Units Adverts";0;" Price ";1;" T/O" Y53,6;8;9 ;1;"000's" \80,137:9 ;8;255,0 f n=1month:4+n,1;1;8;9 ;n;4+n,6;(s(n,1)/100d)/10 ;4+n,14;s(n,2);4+n,20;0;s(n,3);"p";4+n,25;1;"`";(t(n)/1000)/1000;"m" pn z9997 ':  month=month+1 9>.93nz(month>3year>1983)2850" >.8L:2860, : Hmonth>5month<10 adcontrol=1>.733332880@ 5month<4month>9 >.8L2920h monthsale=0  /month=capmonthcapacity=capacity+capincrease:fixcost=fixcost+(2500 *(option=1))+(7500L*(option=2)):capmonth=29:cash=cash-capcost:capcount=0:9 ,3;"CAPACITY NOW ";capacity;" BARRELS";15,3;"Bank balance now `";cash:130:  2;" MARKET PLAN : ";1;b$(1);3,0;"________________________________";1,0;" Beer : ";1;b$(2) <2,0;2;" Month : ";1;month 65,0;2;"Bank balance : `";cash  ~6,0;2;"Finished stock : ";finstock;" barrels";7,0;"Materials stock : ";matstock;" barrels" 58,0;"________________________________" 10 ,0;"1. Fixed costs.";10 ,28-(fixcost10000')-(fixcost100000CP);fixcost;12 ,0;"2. Adverts at `";advcost;"." (]14,0;"3. Materials at current";15,3;"cost (already charged.)" 2k0,42*:255,0:0,31:255,0:17,0;"TOTAL COST." 7M.1}L,20:.1}L,30:.1}L,502:.15~,25 <\2;"Enter monthly production : ('1' returns to menu.) "''k$:k$=""5180< =Of=1̱k$:k$(f)<480ůk$(f)>579.1}L,-8:5180< >f:output=k$ ?1output=1month=month-1:2000 AWoutput>capacity20,1;1;1;"Production capacity only ";capacity:.1}L,10 :.1}L,30:.1}L,502:.1}L,20:85U:19,8;4;1;1;"RETURNING TO MENU":n=031:20,n;"":.03{u\,n:n:month=month-1:35#:2000 Foutput>matstock:month=month-1:8,0;2;"YOU DO NOT HAVE ENOUGH MATERIALS";10 ,10 ;" IN STOCK!!":n=02:.05|L,20:.05|L,502:n:21,6;1;4;"Returning to MENU.":200:2000 Pl14,27-(output*bidprice100000CP)-(output*bidprice1000000t$);3;output*bidprice Z>4;"Enter number of adverts. ";k$:k$=""5210Z [Of=1̱k$:k$(f)<480ůk$(f)>579.1}L,-8:5210Z \f _ adverts=k$ d12 ,28-(adverts10 )-(advcost*adverts100000CP)-(advcost*adverts1000000t$);advcost*adverts:TOTALCOST=(advcost*adverts)+(bidprice*output)+fixcost iQ17,27-(TOTALCOST100000CP)-(TOTALCOST1000000t$);TOTALCOST n72;"Do you wish to change? (y/n)"''q$ xq$="y"5100 R"ENTER PRICE PER PINT (1 barrel=120 pints) ";k$:k$=""5250 Of=1̱k$:k$(f)<480ůk$(f)>579.1}L,-8:5250 f sellprice=k$ _19,2;3;1;"Sell price per barrel=`";(sellprice*120x)/100d 84;"Do you wish to change price? (y/n) ";z$ z$="y"5250 ncontrol=control+.73333*(sellprice>135)+.8L*(sellprice155)+.8L*(sellprice>186) /n=-1545-2:.025{L,n:n Ycash=cash-fixcost-(adverts*advcost):finstock=finstock+output:matstock=matstock-output 5,18;2;1;"`";cash;0;" ";6,18;1;finstock;0;" barrels ";7,0;"Mate";7,18;1;matstock;0;" barrels " *n=03:.05|L,40(:n  150 >.93nz2800 1:1:7::10 ,10 ;"STAND BY FOR";11 ,6;"MONTHLY SALES REPORT.":n=0312:0,n;2+(*7);"";21,31-n;"":n<22n,0;2+(*7);"";21-n,31;"" }n:n=5020-2:.01z# =,n:n:45-:lx=2:ly=0:rx=20:ry=26:prp=0 7:0:5::n=2212:n,0;6;1;"";n+1,0;"":n 00,6;6;1;"MONTHLY SALES REPORT":480,167:160,0:0,0;1;1;7;"STOCK.";0,26;2;"SALES.";4,7;0;7;1;"Price (pt) : ";sellprice;"p.";6,7;"Adverts : ";adverts G2,10 ;"Market Plan":80P,151:88X,0 x480,167:0,-167:207,167:0,-167:480,111o:158,0 9 ,9 ;"SALES (Units)":72H,95_:104h,0:n=14:10 +(2*n),7;"Week ";n:n:19,13 ;"============";20,7;"TOTAL" Tn=14:5950>:10 +(2*n),15;weeksale:9999' n  20,15;monthsale ;0n<4short=n:shortcontrol=month+1 Estrike=0 T.15~,45-:30:#0;0,0;2;6;1;" Press any key to continue... ":4e4@ ^7:7: c6s(month,2)=adverts:s(month,3)=sellprice h;"MONTHLY SALES SUMMARY : Month ";month;6,0;"Barrels sold this month = ";monthsale;9 ,0;"Turnover this month = `";(monthsale*(sellprice*120x)/100d):monthsale012 ,0;"Profit margin = ";(100d*(((monthsale*(sellprice*120x)/100d)-fixcost-(monthsale*bidprice)-(adverts*advcost))/(monthsale*(sellprice*120x)/100d)));"%" m&0,167:255,0 r:n=1303:3,n;٥*6;"":n finstock=finstock-monthsale n.25~,15:.25~,40(:finstock>(.1}L*output)ly=finstock:lx=ly-(.1}L*output):17,0;3;1;"Finished stock level too high!";19,3;0;lx;" barrels have gone off";21,4;"and must be poured away!":finstock=.1}L*output:300,:6000p:150:7:0:7: 8cash=cash+((monthsale*sellprice*120x)/100d) yearsale=yearsale+monthsale s(month,1)=monthsale s.1}L,20:.05|L,-10 :.1}L,45-:17,3;2;"New bank balance = `";cash Ln=1303:19,n;٥*6;"";15,n;" ":n pubcount=0 materialcount=0 Z502:21,0;1;5;1;"Press any key to continue......"  4e4@ adcontrol=1 9000(#:4690R control=1 cash<0:4,6;2;"YOU ARE OVERDRAWN!!";7,0;1;"You can only avoid bankruptcy byselling some tied pubs!":.6,30:8000@  2000 >#vary=(((10 -var)/10 )+(2*((var/10 )*))):weeksale=(vary*(.5+(1-(diff)/10 ))*(.5+(var/10 ))*((-(control*45-*sellprice*.01z# =*120x)+(220*outlets)+(70F*adverts*adcontrol)+(250*season)+(250*s$))/14)) C$weeksale<0weeksale=0 E#outlets=0weeksale=0 F 7300 Hmonthsale=monthsale+weeksale R%monthsale>finstockweeksale=finstock-(monthsale-weeksale):10 +(n*2),15;weeksale:monthsale=finstock:.2~L,20:#0;1,8;1;7;"OUT OF STOCK!!":10 +(2*n),15;weeksale;20,15;monthsale:0:5440@ \ o ply=ly+monthsale:0:0:7::79O,144:0,-90Z:82R,0:0,90Z:161,65A:8,0:0,-5:-2,0:0,3:-6,0 zn=5+(9 -((lx/ly)*9 ))14:n,10 ;6;2;"":n:15,10 ;"" G0,0;6;1;" What a waste of good beer!!!!!!" v21,2;"Press a key to start pouring.":0:21,0;l$:n=156-(82R-(lx/ly*82R))58:-1::.005y# =,-5:80P,n:0;79O,0:168,62>:t=:6*(t>.5)+2*(t.5);-3+(*5),-62>:n:n=05022:.01z# =,n:.01z# =,502-n:n: X:8;1;3;1;"RAW MATERIALS";2,0;0;0;0;"________________________________";4,0;1;"Bank balance :"," `";cash;6,0;2;"Raw materials :";6,17;"Stock for";7,17;matstock;" barrels.";8,0;1;"Production"'"capacity :";8,17;capacity;9 ,17;"barrels." b610 ,0;"________________________________" gN.1}L,45-:.05|L,10 :.1}L,25:.05|L,502 l2;" Your supplier has sufficient stock for most needs. Please tell him how much you need (in barrels production). '0' returns to MENU."'''k$:k$=""7020l mOf=1̱k$:k$(f)>579ůk$(f)<480.1}L,-8:7020l nf obidquant=k$ qbidquant=02000 sbidquant<07000X vU3;" Please enter your bid price per barrel."'''''k$:k$=""7030v wOf=1̱k$:k$(f)>579ůk$(f)<480.1}L,-8:7030v xf ybidprice=k$ {bidprice<07000X isupply=((.8L+(*.5))*(-13933m6+(293%*bidprice)+(333M*season)+(333M*s$))) supplybidquant12 ,0;3;"Offer accepted.";14,0;4;"You have bought raw materials for ";bidquant;" barrels at a unit cost"'"of `";bidprice;" per barrel" 6supplyfinstockprp=1+(((finstock-monthsale)/(finstock/20))-(weeksale/(finstock/20))) ,f=1weeksale/(finstock/20)+prp zlx,ly;l$(3);lx+1,ly;l$(3):.05|L,-8:rx,ry;6;1;"";rx+1,ry;"" ly=3*(ly=0):lx=lx+2*(ly=0lx<19):rx=rx-2*(ly=0rx>2):ry=26+(3*(ly=3)) f Vprp=(weeksale/(finstock/20))-(weeksale/(finstock/20)):prp=prp+.5  @&pubprice=20000 N+(*5000) E+12 ,3;"Bank balance = `";cash G"cash<0outlets=0150::n=502-35#-4:.04|# =,n:n:0:0:6:1::3,7;1;"YOU HAVE FAILED!!";11 ,0;0;"You are overdrawn by `";cash;12 ,0;"and have no more pubs to realise";15,0;"The Official Receiver has been called in and you have been det-ained at H.M. pleasure, pending his report.";21,1;1;"Good job this is only a game!":4e4@:7:7:0:0::64999:1800 J.1}L,20:.1}L,45-:15,0;3;"A rival brewery is willing to buy your pubs at a price of `";pubprice;" each.";19,0;4;"How many pubs will you sell?" Tpubs Ypubs>outlets21,0;1;"You only have ";outlets;" pubs!":.1}L,40(:.1}L,20:100d:n=0312:.03{u\,n:21,n;" ":n:20:8007G ^cash=cash+(pubs*pubprice) c#pubvalue=pubvalue-(pubs*pubprice) houtlets=outlets-pubs | 5895  5895 "n=07 "b " "b"+n,b "n "O0,248,254,249,249,249,252,248 "236099\,557 "pn=07:b:"a"+n,b:n:170,85U,170,85U,170,85U,170,85U "n=047/:b:"c"+n,b:n:15,480,111o,112p,103g,101e,102f,101e,255,0,255,0,119w,68D,102f,68D,240,12 ,246,14,118v,86V,118v,102f,103g,224,120x,103g,480,15,12 ,12 ,119w,0,0,255,0,255,0,0,86V,6,30,230,12 ,240,480,480 " #(Xt(month)=(monthsale*(sellprice*120x)/100d):month/4ɺ(month/4) #21:1: #maxtmaxt=t(n) #t(n)0xt=1+((t(n)-mint)*21/(maxt-mint)) #x=1xt #521-x,2*n+2;5;1;"" #x $n $ 4#0;7;" Press any key to continue.." $0:7:7:: %@23298[,145:0:0:7::21,0;0;"WELLDONE":1:l=65000:0:21,2;1;7;0;1;"You've made ";("another"mil>1)+(" one "mil=1);" million!":n=080P:254,n/3:.02{# =,n/8:n: %:z$="TOTAL ASSETS ARE NOW":n=019:n,n;1;z$(n+1):n:n,n;2;1;"`";cash+plant+pubvalue:mil=mil+1:9997 ':0: &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &72,5;"PUBLISHED BY ";1;"" &*3,25;1;1;"" &25,5;1;" 1983 P.Boulton " &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of BREWERY. Please note":"Unauthorised copying, hiring,":"and lending of this software is":"strictly prohibited." &A21,3;6;1;"Press any key to continue" &=""9965& & :0: &z$=n:cy=cy-z$: ' _#0;1,0;9 ;"Press a key to continue.(C=Copy)":0:="c": ' 'g=2040(6:.04|# =,g:.04|# =,g+4:g:g=40(20-6:.04|# =,g:.04|# =,g+4:g: eontro# aterialcounatstocapacitasPapmonteaso L apcounixcos'dvcosutletidpric-ubcounonteainstocubvalut$astyeaGearsalre.trikdcontroD  SifalanCPi#b0BREWERY t>!C[ !PV"0 :[> K[C[ $V |g,}VK[xGyOC[ K[} (  !C[