ZXTape! 0Created with Ramsoft MakeTZXoligopoly A'A`! C'=0:0:"OLI":::0:0:"OLIGOPOLY" KOLI @AN|x|||D||??DH@D@dD????DH@@@T@??|||||L|?????????`d` `d ??????????`d`L`dL`d|||d|@?p@8?8x<?`?8?????8||????^z|>8|>|>8>|>8>??yx8xx8x8??????????????????????988888<8#A8?87/8?8 @u<<<6Gl8?8րkB<<<BBE5ɬ888uԀ+(BBBbB8<8881Ìr8$Nx8xx8x805B< R~DDD 0d?& |>8|<|>8|>8 )H >BJBDD<xJpR@?????8??"D@u BBFBD<<<BB8 < <???0u<8$6OLIGOPOLY rvrvi;tv)0:0:7::9900& (0.5,-5:.5,-3:1,0:.5,2:.17~.z,5:.17~.z,4:.17~.z,2:.5,4:1,7 ) 25 *0.5,0:.75@,12 :.25~,9 :.5,7:.5,5:.5,7:.5,9 + 25 ,0.5,0:.75@,12 :.25~,9 :.5,7:.5,5:.5,2:1,0 - 25 .0.5,-5:.5,-3:1,0:.5,2:.17~.z,5:.17~.z,4:.17~.z,6:.5,4:1,7 / 25 00.5,0:.75@,7:.25~,4:.5,4:.75@,5:.25~,4:.25~,2:.25~,0:1,2:.5,0:.5,-1:1,0 2"A",255 4"A"+1,127 6"A"+2,63? 8"A"+3,31 :"A"+4,15 <"A"+5,7 >"A"+6,3 @"A"+7,1 B"B",255 D"B"+1,254 F"B"+2,252 H"B"+3,248 J"B"+4,240 L"B"+5,224 N"B"+6,192 P"B",128 R"C",1 T"C"+1,3 V"C"+2,7 X"C"+3,15 Z"C"+4,31 \"C"+5,63? ^"C"+6,127 _!"C"+7,255:0 f:6:7:1::13 ,0;"How many firms are there in the industry ?":18,0;1;"(1 to 6)" g""103g hn$=:n$=""104h j&n$<491ůn$>546102f lQn=n$:n=(n+.5):21,n;n;" Firms.":40(:40(:40(: mkk=0:x45=0 sn=1kk=1:n=2:9 ,0;"Although you are the only playerthe Spectrum will run a rival firm (number 2).":200::127 x9 ,0;"Each year each firm must decide how to raise its profits and thevalue of its shares, taking ac- count of other firms' decisions." } 400: 8,0;" Do you wish to use a printer ? (y/n)":x=13:.05|L,10 :.1}L,-10 :.1}L,-15:x:z$: t8,0;" How many years' would you like to play ?":18,0;1;"(2 to 25) " b$ tt=b$ tt=(tt+0.5) tt>25tt=25 tt<2tt=2 R21,0;"No. of years = ";tt:20:20:20:20: ҋj(tt):k(n):l(tt):m(n,tt):n(n,tt)::o(n,tt):p(n,tt):q(n,tt):r(n,tt):s(n,tt):t(n):u(n,tt):v(n,tt):w(n,tt):x(tt):y(n):z(n,tt) Ia(tt):b(n,tt):c(n):d(n,tt):e(n):f(n,tt):g(n,tt):h(n,tt):i(n,tt) cp=n*10 :tr=0.4L:f1=0.15~+/10 :f2=0.225~ffff+/10 :f3=1-f2-f1 h1=1:h2=1:h3=1:h4=1:h5=1:h6=1:h7=1:h8=1:h9=1:h10=1:h11=0:h12=0:h13=0:h14=0:h15=0:h16=0:h17=0:h18=0:h19=0:h20=0 "g=1:v=0:r=10  661587,9458$,5.675p,10000',10000',2500 ,7500L,10000',10 ,138426,0.05|L,1537,2305 ,123050,0,200000CP,212305OT@,0,10000' " t=1 , k=1n 6~h(k,t),f(k,t),v(k,t),q(k,t),i(k,t),r(k,t),m(k,t),s(k,t),p(k,t),g(k,t),b(k,t),t(k),n(k,t),e(k),k(k),c(k),u(k,t),d(k,t),o(k,t) @ 265  Jk T&a(t)=n*o(1,1)*1.01G -k=1n:1:k:0:0 r0,0;"Firm ";k;0,25;"Year ";t:z$(11)="y"z$(11)="Y"7 D1:2,9 ;"Trading Account":2,26;"`" u(k,t)=0p(k,t)=99c:4,0;" Unfortunately this firm is bankrupt and will not be making any decisions ! ":120x:730 4,2;"Sales":0:4,8;"(";(0.5+s(k,t));" @ `";p(k,t);")":VV=(s(k,t)*p(k,t)+.5):x$=VV:4,(29-x$+1);x$ 5,24;"______" T1:6,2;"Production":0:6,13 ;" (";q(k,t);")" !7,2;"Raw materials,wages":x$=(h(k,t)+.5):7,(29-x$+1);x$:8,24;"______" $9 ,2;"Contribution to":10 ,2;"overheads":x$=((s(k,t)*p(k,t)+.5)-(h(k,t)+.5)):10 ,(29-x$+1);x$ &|1:12 ,2;"Less":0:13 ,2;"Marketing":x$=m(k,t):13 ,(23-x$+1);x$ +L14,2;"R & D":x$=r(k,t):14,(23-x$+1);x$ 0Z2;"Reps & Renewals":x$=(0.5+i(k,t)):15,(23-x$+1);x$ 5Mx$=(m(k,t)+r(k,t)+(.5+i(k,t))):16,(29-x$+1);x$ 717,24;"______" :}1:19,2;"Gross profit":0:g(k,t)<0z$(11)"y"z$(11)"Y"2 ?lx$=g(k,t):19,(29-x$+1);x$:z$(11)"y"z$(11)"Y"0 A20,24;"______" D3z$(11)="y"z$(11)="Y" Igz$"Y"z$(11)"y"502:21,1;"(Press any key to continue.)":850R K::0,0;"Firm ";k;0,25;"Year ";t LB1:2,9 ;"Profit & Loss":2,26;"`" Ns4,2;"Gross profit":0:g(k,t)<0z$(11)"y"z$(11)"Y"2 P^4,(29-x$+1);x$:z$(11)"Y"z$(11)"y"0 S5,24;"______":1:7,2;"Accounting Costs":0:9 ,2;"Interest":w(k,t)<09 ,11 ;"earned" V=x$=(0.5+w(k,t)):9 ,(23-x$+1);x$ XW2;"Depreciation":x$=(0.5+o(k,t)):10 ,(23-x$+1);x$ ]v2;"Tax":x$=(0.5+t(k)):11 ,(23-x$+1);x$:t(k)<011 ,6;"refund" _cx$=((g(k,t)-n(k,t)+.5)):12 ,(29-x$+1);x$:13 ,24;"______" b|w(k,t)<0t(k)<018,1;"(A 'negative' cost such as a tax refund is, of course, income !)" d{1:15,2;"Net profit":0:n(k,t)<0z$(11)"y"z$(11)"Y"2 gxx$=(0.5+n(k,t)):15,(29-x$+1);x$:z$(11)"y"z$(11)"Y"0 h[16,24;"______":z$(11)="Y"z$(11)="y":618j iG502:21,1;"(Press any key to continue.)":850R j::0,0;"Firm ";k;0,25;"Year ";t lH1:3,10 ;"Cash Flow":3,26;"`":0 q5,2;"Money in hand":6,2;" (Year ";t-1;")":x$=(e(k)-n(k,t)-o(k,t)+d(k,t)+.5):6,(29-x$+1);x$ s1:8,2;"Plus":0:10 ,2;"Depreciation":x$=(.5+o(k,t)):10 ,(23-x$+1);x$ tr11 ,2;"Net profit":n(k,t)+.5<0z$(11)"Y"z$(11)"y"2 vwx$=(.5+n(k,t)):11 ,(23-x$+1);x$:z$(11)"y"z$(11)"Y"0 {1:13 ,2;"Less":0:15,2;"Dividends paid":x$=(.5+d(k,t)):15,(23-x$+1);x$ }ex$=((.5+o(k,t))+(.5+n(k,t))-(.5+d(k,t))):16,(29-x$+1);x$ 17,24;"______" |1:19,2;"Money in hand":0:e(k)<0z$(11)"y"z$(11)"Y"2 x$=e(k):19,(29-x$+1);x$:20,24;"______":z$(11)"y"z$(11)"Y"0:850R 3z$(11)="Y"z$(11)="y" ::0,0;"Firm ";k;0,25;"Year ";t K1:3,9 ;"Balance Sheet":3,26;"`":0 i6,2;"Money in hand":e(k)<0z$(11)"y"z$(11)"Y"2 ^6,(29-x$+1);x$:z$(11)"y"z$(11)"Y"0 5t>1r(k,t-1)*n1r(k,t-1)*ng04,3;"Demand expected to rise ";g;"%" ?g<04,3;"Demand expected to fall ";-g;"%" v=v+(*8)-(*3)  v<-3v=-1 %v>9 v=5 />v06,3;"Costs expected to rise ";v;"%" 4?v<06,3;"Costs expected to fall ";-v;"%" 97r=r+(*3)-(*3):r>16r=12 >r<6r=7 HS8,3;"Interest Rates ":x$=r:8,(28-x$);x$;"%" R k=1n \a(t)=a(t)+i(k,t-1) fk p!a(t)=a(t)*(1+g/100d) z:a(t)>1.3&fff*a(t-1)a(t)=1.3&fff*a(t-1) :a(t)<0.73333*a(t-1)a(t)=0.73333*a(t-1) e10 ,2;"Capacity of equipment indus-":11 ,2;"tries is ";a(t);" this year." Mh20=(85U+*15)/100d:h19=(100d+*15)/100d 13 ,2;"If orders fall below this,the";14,2;"price of renewing equipment";15,2;"will fall by ";(100d-h20*100d);" %" 17,2;"If orders rise above this,the";18,2;"price of renewing equipment";19,2;"will rise by ";(100d*h19-100d);" %" 3z$(11)="Y"z$(11)="y" Tz$(11)"Y"z$(11)"y".25~,8:.25~,7:.25~,6:.25~,5:.25~,4:.25~,12 :.25~,12 :.25~,5:.25~,4:.25~,12 :.25~,12 :.25~,5:.25~,4:.25~,12 :.25~,12  550& Ptn=0:k=1n:tn=tn+n(k,t-1):k:tn/n>15521<4000 atn=0:k=1n:tn=tn+n(k,t-1):k:tn/n>126741tn/n15521<4500 Yn=1n(1,t-1)11675-n(1,t-1)>10046>'5000 tt>21000 :5,6;"ATTENTION ALL FIRMS !":10 ,0; "All decisions of firms should bein numbers. If letters are used,the request for a decision will begin again. If a firm spends orproduces too much or too little,it will be changed to the maxi- mum or minimum ." 220,2;"(Press any key to continue.)"  450: :k=1n '1:k:7:0:0 01,1;"Firm ";k;24;"Year ";t u(k,t-1)=0p(k,t)=p(k,t-1):4,2;"Unfortunately this firm is bankrupt and will not be deciding anything !":300,::1090B "k=2kk=15200P ?:"Please declare your decisions on":1:5,0;1;7;1;" PRICE ":0:14,0;"Advice":17,0;" Last year your price was ";p(k,t-1);".":" Prices averaged around ";(p/n);" then.":" Your price may vary between 1 and 99."  5100  &b$<1Űb$>99c1032  Sp(k,t)=b$:x45=1p(k,t)>p(k,t-1)p(k,t)=p(k,t-1):x45=0  c21,0;" ":p(k,t)=(p(k,t)*100d)/100d:p(k,t)<1p(k,t)=1  "p(k,t)>99cp(k,t)=99c 5,0;2;7;1;1;" PRODUCTION ":17,0; " You may make up to ";(c(k)/20);" this year, or ";(c(k)*.075}+.5);" with overtime. "  5100 -b$>(c(k)*.075}+.5)1042 Jq(k,t)=b$:q(k,t)=q(k,t):q(k,t)>1.5@*c(k)q(k,t)=1.5@*c(k) =21,0;" ":q(k,t)<0q(k,t)=0 1:5,0;0;6;1;" MARKETING ":0:17,0; " You may spend up to `100000 on marketing. Last year you spent `";m(k,t-1);". "  5100 b$>100000CP1052 Fm(k,t)=b$:m(k,t)=m(k,t):m(k,t)>100000CPm(k,t)=100000CP !>21,0;" ":m(k,t)<0m(k,t)=0 $5,0;1;4;0;" RESEARCH & DEVELOPMENT ":16,0; "Research and development lowers costs and raises the appeal of the product. You may spend up to`100000. Last year you spent `";r(k,t-1);". " & 5100 'b$>100000CP1062& )Fr(k,t)=b$:r(k,t)=r(k,t):r(k,t)>100000CPr(k,t)=100000CP +?21,0;" ":r(k,t)<0r(k,t)=0 .45,0;1;5;0;1;" NEW EQUIPMENT ":0:15,0;"Each `20 spent on Repairs and Renewals will enable you to produce an extra unit of output next year. You may spend up to `100000. Last year you spent `";(i(k,t-1)+.5) 0 5100 1b$>100000CP10720 3Fi(k,t)=b$:i(k,t)=i(k,t):i(k,t)>100000CPi(k,t)=100000CP 5=21,0;" ":i(k,t)<0i(k,t)=0 85,0;1;7;1;1;" DIVIDENDS ":0:17,0; "By paying dividends to sharehol-ders, you make your company's shares more valuable. Last year you paid out ";d(k,t-1);". " =R5100:d(k,t)=b$:d(k,t)=d(k,t):d(k,t)>100000CPd(k,t)=100000CP ? d(k,t)<0d(k,t)=0 B:k Lst=:st>.1}L1200 QD2:1:5,12 ;"STRIKE":0:200: V k=1n [$u(k,t-1)=01195 ]1,1;"Firm ";k `pk=1z$(11)="y"z$(11)="Y" "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20% or suffer a considerable loss ofoutput - perhaps a quarter. Firms may consult each other butmust decide in secret. Do you concede ? (y/n)" eF5,0; "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20% or suffer a considerable loss ofoutput - perhaps a quarter. Firms may consult each other butmust decide in secret. Do you concede ? (y/n)" t6k=2kk=1>.5c$="y":1170 y6k=2kk=1>.5c$="n":1180 ~""1150~ c$=:c$=""1160 bc$(11)="y"20,10 ;1;2;7;"WE CONCEDE !":200 wc$(11)="y"v(k,t-1)=(1.15333+/10 )*v(k,t-1):v(k,t)=(1.15333+/10 )*v(k,t) 1c$"y"q(k,t)=(q(k,t)*(0.73333+/10 )) <z$(11)"Y"z$(11)"y"200 k \:7:q=0:p=0:pp=0:m=0:mm=0:r1=0:r2=0 &14,8;"" &13 ,8;""  k=1n  q=q+s(k,t-1):p=p+p(k,t) %pp=pp+p(k,t-1)*s(k,t-1)  m=m+m(k,t) mm=mm+m(k,t-1) r1=r1+r(k,t) r2=r2+r(k,t-1) k &12 ,8;" "  pp=pp/q $11 ,11 ;""  *q=q*(1+g/100d)*h1:h1=1 ex=0:14,x;"":13 ,x;"":4:13 ,x;"":0:x=x+1  20 @m>mmq=q*1.02\):m>mm*1.2q=q*(1+/10 ) Z14,x;"":13 ,x;"":4:13 ,x;"":0:x=x+1 Z14,x;"":13 ,x;"":4:13 ,x;"":0:x=x+1 #a(t)a(t-1)q=q*1.02\) -Z14,x;"":13 ,x;"":4:13 ,x;"":0:x=x+1 2m1.26!G*p(k,t-1)p1=0.5*p1:p(k,t)>3*p(k,t-1)p1=0.2~L*p1:m2=10 *m2 z(k,t)=p1*f3+f2/m2+f1/r3 6r(k,t-1)>1.5@*r2/nz(k,t)=2*z(k,t) 8u(k,t-1)=0z(k,t)=0:u(k,t)=0 bp(k,t)>1.15333*p/nz(k,t)=0.75@*z(k,t):p(k,t)>1.55Ffff*p/nz(k,t)=0.25~*z(k,t) /p(k,t)<.89c =*p/nz(k,t)=1.5@*z(k,t) <p(k,t)>p(k,t-1)*1.21Gz(k,t)=0.75@*z(k,t) k =10 ,11 ;"":10 ,22;"":10 :  z=0 k=1n:z=z+z(k,t):k =10 ,11 ;"":10 ,22;"":10 :  k=1n s(k,t)=q*z(k,t)/z (s(k,t)>q(k,t)+k(k)s(k,t)=q(k,t)+k(k) Ds(k,t)>s(k,t-1)*3.65is(k,t)=s(k,t-1)*3.65i k(k)=q(k,t)-s(k,t)+k(k)  Zf(k,t)=f(k,t-1)*(1+v/100d):v(k,t)=v(k,t-1)*(1+v/100d) xh(k,t)=f(k,t)+q(k,t)*v(k,t):q(k,t)>c(k)/20h(k,t)=h(k,t)+(q(k,t)-c(k)/20)*v(k,t)/3+f(k,t)/15 Fb(k,t)=b(k,t-1):q(k,t)>c(k)/20b(k,t)=b(k,t)*1.2 k =10 ,11 ;"":10 ,22;"":10 : =10 ,11 ;"":10 ,22;"":10 : " i=0 ,k=1n:i=i+i(k,t):k 6ia(t)1650r @ k=1n Jc(k)=c(k)+i(k,t) Ti(k,t)=(h20*i(k,t)+.5) ^k:1700 ri>a(t)1670 |k=1n:c(k)=c(k)+i(k,t)  1700 f4=i/a(t):k=1n :i(k,t)i/nc(k)=c(k)+(i(k,t)/f4):i(k,t)=i(k,t)/f4*h19 1i(k,t)>i/nc(k)=c(k)+i(k,t):i(k,t)=i(k,t)*h19 k 2:1:5:1:2,10 ;"Newsflash!":0:6,0;" Capital industries working overtime. " (120x:7:7::0 z$(11)="Y"z$(11)="y"" Newsflash! Capital industries working overtime"  k=1n ?g(k,t)=(s(k,t)*p(k,t)-h(k,t)-r(k,t)-i(k,t)-m(k,t)+0.5) %i(k,t)>i/nb(k,t)=.95s333*b(k,t) &&i(k,t)r1b(k,t)=.97xQ*b(k,t) :/r(k,t-1)*n>r2b(k,t)=.985|(*b(k,t) D'r(k,t)5000w(k,t)=(4-r)/100d*(e(k)-5000) ltx=tr*(g(k,t)-o(k,t)-w(k,t)) vtx>0t(k)=tx $tx0t(k)<-txt(k)=-t(k) /tx<0t(k)>0t(k)>-txt(k)=tx/tr /n(k,t)=(g(k,t)-o(k,t)-w(k,t)-t(k)+0.5) -e(k)=(0.5+e(k)+n(k,t)+o(k,t)-d(k,t))  u(k,t)=e(k)+k(k)*3+c(k) !u(k,t)>960000j`2130R  u(k,t)<0u(k,t)=0 k:i>a(t)2038 &14,8;"" &13 ,8;"" &12 ,8;" " $11 ,11 ;"" =10 ,11 ;"":10 ,22;"":10 : Q5:10 ,11 ;"":10 ,22;"":10 :x=25 Z14,x;"":13 ,x;"":6:13 ,x;"":0:x=x+1 Z14,x;"":13 ,x;"":6:13 ,x;"":0:x=x+1 Z14,x;"":13 ,x;"":6:13 ,x;"":0:x=x+1 Y14,x;"":13 ,x;"":6:13 ,x;"":0:502: Wyyy=1:0,10 :255,0:502,0:0,175 1k=1n:u(k,t)>500000t$yyy=0.5 k  +0,8;"Asset Values - Year ";t 1,0;"1000s"  21,27;"Firm" *&yyy=110 ,1;"250" /(yyy=0.515,1;"250" 4 k=1n 9!u(k,t)>960000j`2130R >hk:y=124:557+y+(24*(k-1)),10 :0,u(k,t)*0.00033u-٩*yyy:y Cn=12:y=124:557+y+24,10 :0,u(k,t-1)*0.00033u-٩:y:0:21,10 ;"(Year ";t-1;")" H*0:21,5+(k*3);k Rk Z{.15~,4:.15~,6:.15~,7:.15~,4:.15~,6:.5,7:15 \U.15~,6:.15~,4:.15~,6:.5,7:15 ^].15~,6:.15~,4:.15~,7:.5,7:.3,4 `.15~,12 :.15~,11 :.15~,12 :.15~,11 :.15~,4:.6,9 :15 b.3,7:.3,6:.15~,4:.15~,6:.15~,7:.15~,4:.15~,6:.5,7:15:.15~,6:.15~,4:.15~,7:.5,7:.6,4 d 200: f to=0 p an=0 zk=1n:to=to+s(k,t):k  k=1n an=an+s(k,t)/to*2* s(k,t)=0k u(k,t)=0k /127,86V:80P*an,80P*an Ban0Ʋan0.5Ʋan>0an1=2:an2=-1 5an0Ʋan>0.5an1=2:an2=2 6an<0Ʋan>0.5an1=-1:an2=2 Ban<0Ʋan0.5Ʋan>0an1=-1:an2=2 Can0Ʋan0Ʋan-0.5an1=-2:an2=1 8an0Ʋan<-0.5an1=-2:an2=-2 8an>0Ʋan<-0.5an1=-1:an2=-2 Can>0Ʋan-0.5Ʋan0an1=2:an2=-2 F(21-(86V+80P*an)/8+an1)<1an1=2 H(21-(86V+80P*an)/8+an1)20an1=-3 \(21-(82R+80P*an)/8+an1),((131+80P*an)/8)+an2;k k 127,86V,80P *0,6;"Sales Units - Year ";t  450: 500 !:2,11 ;"IMPORTS !" h1=1-/10 z$="y"" High profits in the industry have attracted foreign comp- etition,which is expected to take ";((1-h1)*100d);"% of the market. " 5,0;" High profits in the industry have attracted foreign comp- etition,which is expected to take ";((1-h1)*100d);"% of the market." p18,0;"":19,0;"":5:19,5;"" 1:x=15 18,x;"" 17,x;"" ,6:17,x+1;"":1 10 :x=x-1 x>44040 1.5@,-30:17,x+1;"":20:6:17,1;"":16,2;"":0:95_  ":6,11 ;"TAXES UP !" tr=tr+0.05|L 8,0; "The Government announces that everyone is spending too much. It is therefore raising taxes by five percentage points to ";tr*100d;"% ." "The Government announces that everyone is spending too much. It is therefore raising taxes by five percentage points to ";tr*100d;"% . " +tr>.45ffff12 ,4;"again ." x=132 :0,x-1;"`":2:x:x=121:x-1,31;"":x,31;"`":.1}L,10 -x:x  :5,0; "Profits in the industry have caused concern and you have been referred to the Monopolies Commission. You may not raise your price next year." "Profits in the industry have caused concern and you have been referred to the Monopolies Commission. You may not raise your price next year." 550&:x45=1  b$="" ""5105 a$=:a$=""5110 a$=13 b$"" fa$>579ůa$<480Ưa$46.1,10 :21,0;" ":5100 2b$=b$+a$:.01z# =,.01z# =:21,b$;"*"  5105 Rp(k,t)=p(k,t-1) T!dif=p(k,t)-p(1,t-1) Vp(k,t)=p(k,t)-dif* X`p(k,t)=(p(k,t)*(1+/5-/5)):e(k)<0ƥ>.3p(k,t)=p(k,t)+1 Zq(k,t)=(c(k)/20) _Hk(k)>0p(k,t)p(k,t-1)q(k,t)=q(k,t)-(k(k)**1.25 ) dCk(k).9ffffq(k,t)=(c(k)*1.5@/20) f-p(k,t)<5p(k,t)=5+(*5) h.p(k,t)>80Pp(k,t)=p(k,t)-(*25) nm(k,t)=m(k,t-1) s@m(1,t-1)>m(k,t)m(k,t)=m(k,t)*(1+/2) xPm(k,t)>1.8ffff*m(1,t-1)m(k,t)=m(1,t-1)*(1+) }6m(k,t)<2000m(k,t)=3000 +(*3000 ) m(k,t)=m(k,t) 5m(k,t)>100000CPm(k,t)=(m(k,t)-*20000 N) r(k,t)=r(k,t-1) "r(k,t)=(r(k,t)*(1++-)) 6r(k,t)<1000r(k,t)=1000+(*2500 ) rr(k,t)>r(1,t)*2r(k,t)=(r(k,t)/(1+)):r(k,t)>100000CPr(k,t)=(r(k,t)-(*40000@)) Ws(k,t-1).95s333*q(k,t-1)i(k,t)=c(k)/20*(1+*1.5@-) Ws(k,t-1)<.95s333*q(k,t-1)i(k,t)=c(k)/20*(1-*1.5@+) _s(k,t-1)<.55 *q(k,t-1)i(k,t)=c(k)/40(*(1-*.1}L+*.1}L) Fi(k,t)=i(k,t):i(k,t)<1000i(k,t)=(1000+1000*) 9i(k,t)>15000:i(k,t)=(20000 N-*10000') @e(k)<-3000 m(k,t)>11000*m(k,t)=m(k,t)-1580, ?e(k)<-3000 r(k,t)>8000@r(k,t)=r(k,t)-1870N ?e(k)<-2000i(k,t)>6000pi(k,t)=i(k,t)-2340$  1090B &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: &:0,11 ;2;7;1;"OLIGOPOLY" &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &/5,7;1;" 1983 N.Holgate." &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the":"copyright, of OLIGOPOLY.":"Please note unauthorised copying":"hiring, and lending of this":"software is strictly prohibited." &