ZXTape! 0Created with Ramsoft MakeTZXBRITISH L.ZG;Z9900&: [W7;0;18,8;"PUBLISHED BY:":18,22;1;"" \"19,22;1;"" ] 400 _9940&: c LV=0 d2:0:7: f 4317 g236099\,75K i2,7;"SELECT YOUR LEVEL";,,,,5;0;"1: NOVICE";,,,,5;"2: EXPERIENCED";,,5;"3: WHIZZ KID" j+,,5;"4: CAPTAIN OF INDUSTRY" nAA p s"AA<1AA>4110n x 200 }^.2~L,19:.3,15.5x:1;21,4;"PRESS ENTER TO CONTINUE" Q$ Q$=""130  XL=(V+.005y# =)*V Z$=XL (31-Z$+1);Z$  0 Q$= 1="Y"Q$="N"Q$="y"q$="n".3,13 : 165 27;"_____"  165 LV=09500% 9000(# `ME=PL*ML+MO:NP=ME*MP:A=(PL*CP*PC)+GPP:TP=PL*CP:B=NP+(TP*PM)+MIS+X+O+K+KO:PS=A-B:BA=CA+PS 7:7:1: +M=M+1:MS=MS+1:MM=MM+1 &M=13 YR=YR+1:M=1 335O /1,0;"BANK ACCOUNT FOR END "; 2M>1;M$(M-1);" '";YR;,29;"`" ;M=1;M$(12 );" '";(YR-1);,29;"`" ,,"OPENING BANK BALANCE"; V=CA H 0PP>15,1;"TRADING PROFIT"; .PP<15,1;"TRADING LOSS"; V=PP H  3O4>0O6>0W=1W=2"LESS" O4>01445 O6>01490 W=0285 /(1400xW=1)+(1415W=2)  185 mCA+PP-(X+O4+O6)15000007CA+PP-(X+O4+O6)<-300000|,,1;"CURRENT BANK BALANCE";:4180T  HCA+PP-(X+O4+O6)15000007CA+PP-(X+O4+O6)<-300000|295' ",,"CURRENT BANK BALANCE"; 'BA=CA+PP-(X+O4+O6) ,V=BA 1H 6 185 9 100d ;L @CA=BA E J O.0,0;"PROFIT/LOSS ACCOUNT "; P*M>1;"FOR ";M$(M-1);" '";YR Q3M=1;"FOR ";M$(12 );" '";(YR-1) T0,,"SALES";28;"`";,,,TP;" CARS AT `";PC; W4GPP>05,0;" PLUS PRIZE MONEY"; YV=A ^H c 185 h,,"EXPENDITURE" m,,ME;" MEN AT `";MP; rV=NP wH |"PARTS AT `";PM;" PER CAR";  V=TP*PM H "OVERHEADS"; V=MIS H Z=31430 Z=51460 OK=11475 ST=MIS+NP+(TP*PM)+O+K+KO  PP=A-ST 27;"-----" V=ST H   185 PP<02;"LOSS";  PP00;"PROFIT"; V=PP H  185  100d L   225 BA150000077000X BA<-300000|8000@ X=0:O=0:O4=0:KO=0:OK=0:W=0:Z=0:K=0:DA=0:O6=0:GPP=0  $MS=7MS=13 2050  FBA+(-100000CP)>-300000|GPX=0ƥ.75@2200 J=110 MM=10 *J1800 J %GPX=1ƥ>.75@3300 R= [R(.5AA>1)+(.6AA=1)BA900000[BA930000c 1600@ !CR.5BA800000CPBA830000JAA>11600@ #]R(.5AA>1)+(.6AA=1)BA1000000t$BA1100000G1600@ $;R.75@BA1100000GBA13000004000 &0:0:7: +C1,8;"OPTIONS ";M$(M);" ";YR;4,0;" YOU MAY CHOOSE ONE OF THE FOLLOWING OPTIONS:-";8,3;"1: Start a new line";10 ,3;"2: Close a line";12 ,3;"3: Raise car price";14,3;"4: Lower car price";16,3;"5: Continue" 0/18,4;"INPUT 1, 2, 3, 4 or 5" 5Q : Q<1Q>55655 ?p(580DQ=1)+(635{Q=2)+(674Q=3)+(740Q=4)+(2000Q=5) D4:4:0: Gq1,9 ;"START NEW LINE";4,0;" Setting up a new Production Line will cost `20000" I7,0;" Overheads will increase and you will have to take on more men";10 ,0;" However sales and production will increase by ";CP;" cars per"," month" K=X=20000 N:W=1:PL=PL+1:MIS=MIS+5000 NJ=140(:J XR= ]R>.3625q boG=1:X$=" The union argue that if you can afford to expand you can afford a rise of `10 per man":z$="" gL l 1200 q100d:L vF {4:0:4: }B1,5;"CLOSE PRODUCTION LINE";4,0;" Closing a Production Line will cost `40000 in redundancies";7,0;" Production will fall by ";CP;8,0;" cars per month";10 ,0;" However your wage bill will decrease by `";20*MP;" and your"," overheads by `5000" MX=40000@:W=2:PL=PL-1:MIS=MIS-5000:ME=ME-20  100d L R= R.65&fff1185 F 0:4:4: 1,8;"RAISE CAR PRICE";4,0;" The present price of a car is `";PC;7,4;"INPUT PROPOSED NEW PRICE";9 ,3;"(WHOLE POUNDS ONLY PLEASE)" Q D=Q D>PC690 }J=1502:.03{u\,60<-J:1;10 ,8;"NEW PRICE PLEASE":J:10 ,0;B$:680  DPC+(PC/4)1;12 ,5;"TOO HIGH-THINK AGAIN":.5,12 :200:12 ,0;B$:680 rDPC+(PC/5)DPC+(PC/4)12 ,0;" This heavy rise will result in a drop is sales of ";PL*4;" cars." _,,,,"DO YOU WANT THIS PRICE INCREASE":1;"Yes or No ?" =""707 ="N"Ŧ="n"675  $DPC+(PC/5)DPC+(PC/4)CP=CP-4 PC=D:D=0 415,0;" The price of a car is `";PC:L F 4:4:0: 1,8;"LOWER CAR PRICE";4,0;" The present price of a car is `";PC;7,4;"INPUT PROPOSED NEW PRICE";9 ,3;"(WHOLE POUNDS ONLY PLEASE)" Q D=Q xPC-D<100d1;10 ,0;"TOO SMALL A DROP TO AFFECT SALES":.5,12 :100d:740 Dr1,7;"INDUSTRIAL INQUIRY";4,0;"An Industrial Inquiry has been convened":200 C~J=1200:.01z# =,*502:1;6,6;"THE COURT IS SITTING":J:0;6,0;B$ HR=(*6)+1 M(865aR=1)+(850RR=2)+(860\R=3)+(870fR=4)+(875kR=5)+(88 pR=6) RS6,0;E$;"TO BLAME AND AWARDS HIM NOTHING":150:4160@ V100d:L WS \C6,0;E$;"80 ";G$;" `2000":O=2000:885u aC6,0;E$;"50 ";G$;" `5000":O=5000:885u dC6,0;E$;"20 ";G$;" `8000":O=8000@:885u kU6,0;E$;"NOT TO BLAME AND AWARDS HIM `11000":O=11000*:885u p6,0;" THE COURT DECIDES YOU ARE TO BLAME AND HAVE CONTRAVENED THE SAFETY REGULATIONS";9 ,0;" HE IS AWARDED `12000 AND YOU ARE FINED `13000":O=25000a uZ=3:100d:L zS %BA+(-120000j`)<-300000|S &5:1:1:7: 1,8;"LAUNCH NEW MODEL";4,0;" Do you wish to launch a new model at a cost of `100000(Y/N)":E Q$="N"Q$="n"950 m7,0;" Overheads will increase by `20000";10 ,0;" However sales will increase" XO4=100000CP:MIS=MIS+20000 N:CP=CP+5:Z=4:J=1200:J R= R.3940 G=1:X$=" DUE TO THE EXTRA WORK INVOLVED THE UNION IS ASKING FOR A RISE OF `10 PER MAN":Z$=" DO NOT DELAY THE LAUNCH TOO LONG":1200 L  0 S .5,16:7,0;" YOU HAVE MISSED A CHANCE TO INCREASE PRODUCTION AND SALES":J=1100d:J:940 7:2:0: :2;7;1,4;"DISCIPLINARY ACTION" R=(*7)+1 BR=1X$=" ONE OF YOUR WORKFORCE HAS BEEN CAUGHT SLEEPING" FR=2X$=" ONE OF YOUR WORKFORCE HAS STRUCK A SUPERVISOR" CR=3X$=" ONE OF YOUR WORKFORCE HAS BEEN CAUGHT PILFERING" iR=4X$=" ONE OF YOUR WORKFORCE HAS BEEN CAUGHT SLIPPING AWAY EARLY. HE HAS BEEN WARNED BEFORE" eR=5X$=" ONE OF YOUR WORKFORCE HAS BEEN PERSISTANTLY ABSENT. HE HAS BEEN WARNED BEFORE" `R=6X$=" ONE OF YOUR WORKFORCE HAS BEEN CLOCKING ON LATE. HE HAS BEEN WARNED BEFORE" {R=7X$=" ONE OF YOUR WORKFORCE HAS BEEN CAUGHT SMOKING IN A NO SMOKING AREA. THIS IS NOT HIS FIRST TIME" K4,0;X$:8,0;" DO YOU WISH TO SACK HIM(Y/N)":E Q$="N"Q$="n"1060$  2 >.45ffff10753  DA=0  J=125:254,*502:" STRIKE ":23692\,-1:ڥ*8:.01z# =,*502:J DA<241506 t2:2:1:7::1,13 ;"STRIKE":DA=DA+1:O=(A/28)*DA:Z=5 1,22;"DAY ";DA;4,0;" The union has called a strike in support of the sacked man";6,0;" They are pressing for his reinstatement" 9 ,0;" The dispute has cost `";O;10 ,0;" in lost production";18,0;" DO YOU AGREE TO REINSTATE":E Q$="Y"Q$="y"1060$ .7333310753  1017 $.5,13 :18,0;B$;15,0;" DUE TO YOUR SOFT ATTITUDE THE EFFICIENCY OF YOUR PLANT WILL FALL-REDUCING PRODUCTION":CP=CP-1 )L +%0:S(MS)=S(MS)+DA:DA=0 .S 3`18,0;B$;15,0;" THE UNION HAS ACCEPTED YOUR DECISION":4160@ 6 1065) 8&3:3:7:1: 9%BA+(-120000j`)<-300000|S :01,11 ;"PARTS RISE":4180T ;4,0;" The cost of parts and materials have risen";8,0;" This will effect your profit margin":PM=PM+200:100d:L 5) ~X$=" The Union is asking for longer teabreaks":Z$=" This would cause a drop in production of 1 car per line":1200 X$=" The Union is asking for longer holidays":Z$=" This would cause a drop in production of 1 car per line":1200 X$=" The Union is asking for a longer washing up period after each shift":Z$=" This would cause a drop in production of 1 car per line":1200 X$=" The Union is asking for a shorter working week":Z$=" This would cause a drop in production of 1 car per line":1200 CP<201140t &1:5:0:1:  4175O 1;1,11 ;"GOOD NEWS";0;,,,,," EFFICIENCY HAS MUCH IMPROVED"," EACH LINE HAS INCREASED THEIR PRODUCTION BY 5 PER CENT":CP=CP+(CP/20):L 0:3000 [X$=" The Union is asking you to alter your decision":z$=" ":zx=1:1200  210 EX=0:W=0:PL=PL+1:MIS=MIS+5000:1190 2:3:7: 21,9 ;"UNION REQUEST":4180T 6DA=0:4,0;X$;10 ,0;Z$ 1;18,0;F$ E 8Q$="Y"Q$="y"PRO=PRO+1:BB=0:1265 R= PRO=PRO-1 R.4LBB=1 R.4L1300  :Z=5 ۈJ=125:254,*502:" STRIKE ":23692\,-1:ڥ*8:.01z# =,*502:J DA<141506 &2:2:7:1: C1,12 ;"STRIKE":DA=DA+1:K=(A/28)*DA 1,21;"DAY ";DA;4,0;X$;10 ,0;" The dispute has cost `";K;11 ,0;" In lost production" DA=513302  1213 0G=0GK=0ZX=0CP=CP-1 18,0;B$ GK=1PM=PM+200 G=1MP=MP+10 G=0:GK=0  1305 W18,0;B$;13 ,0;" THE UNION ACCEPTS YOUR DECISION":4160@ 00:S(MS)=S(MS)+DA:DA=0:100d L #ZX=1BB=01320( # 2950 (aX=0:W=0:PL=PL+1:MIS=MIS+5000:ZX=0:BB=0:ME=ME+20 - 2950 2.5,5:1,12 :16,0;"DO YOU WISH TO GO TO ARBITRATION";17,0;" A further 5 days of production would be lost but with a good chance of settling the dispute":E 7Q$="N"Q$="n"1245 <&6:6:1:0: AJ=1150:.01z# =,*502:1;2,10 ;"ARBITRATION":J:DA=DA*2:K=(A/28)*DA KSD=(*3)+1 PWSD=2SD=318,1;"UNION ACCEPT ARBITRATION AWARD":1305 Z<18,1;"DISPUTE STILL NOT RESOLVED":4180T _100d:1243 x"TOOLING NEW LINE";:V=X:H  "REDUNDANCY COST";:V=X:H  "INJURY CLAIM";:V=O:H  "TOOLING NEW MODEL";:V=O4:H  "DISPUTE LOSS";:V=O+K:H  "FIRE LOSS";:V=KO:H  "GRAND PRIX COST";:V=O6:H  @;6:2:7:1:1::DA=0 A]1,14;"FIRE":J=110 :.6,18:.73333,14.5h:J C/6:2:7:1:0: D1,14;"FIRE" E4,0;" One of your production lines has been gutted by ";1;"FIRE":7,0;" The cost of plant and machinery lost is `180,000" FFKO=180000/:PL=PL-1:X=40000@:OK=1:W=2 J10 ,0;" You can either redeploy the men involved or make them all redundant":150:.5,12 :14,0;" DO YOU WISH TO REDEPLOY THE MEN(Y/N)":E OQ$="Y"Q$="y"1705 TR= YR<.4L1690 ]DA=0:Z=5 ^:J=125:254,*502:" STRIKE ":23692\,-1:ڥ*8:.01z# =,*502:J aDA<241506 c&2:2:7:1: h/1,13 ;"STRIKE":DA=DA+1 mK=(A/28)*DA rb1,21;"DAY ";DA;4,0;" The Union are urging you to redeploy the men" wl10 ,0;" The dispute has cost `";K;11 ,0;" in lost production";18,0;F$ |E Q$="Y"Q$="y"1705 R= R.3533331690  1630^ B18,0;" THE UNION ACCEPT YOUR DECISION ":4160@ L %0:S(MS)=S(MS)+DA:DA=0  3500 2X=0:W=0:MO=MO+20:1695 &4:4:7:1: 61,7;"ANNUAL WAGE CLAIM":4180T CL=(MP/10 ):DA=0 !H4,0;" The Union has asked for a rise of `";CL;" per man" &7,0;" You employ ";ME;" men";9 ,0;" If you agree to the union pay demand your monthly wage bill will rise by `";CL*ME +18,0;F$ 0E 5Q$="Y"Q$="y"1930 :J=1502:J ?K18,0;B$;13 ,0;"INPUT YOUR OFFER(AMOUNT OF RISE)" DT ICO=T NCOCL1860D SR= XR>.25~1890b ]B13 ,0;" YOUR OFFER HAS BEEN ACCEPTED ":4160@ ^ 100d _CL=CO:1930 bA13 ,0;" YOUR OFFER IS REJECTED ":100d g J=1502:4180T l nDA<241506 oj=125:254,*502:" STRIKE ":23692\,-1:ڥ*8:.01z# =,*502:J:41506 p&2:2:7:1: q Z=5 v 1,13 ;"STRIKE" {DA=DA+1 O=(A/28)*DA 1,21;"DAY ";DA;4,0;" The Union will not budge and are demanding a rise of `";CL;7,0;" The dispute has cost `";O;8,0;" in lost production":1835+ MP=MP+CL:18,0;B$:.5,0:.73333,12 :15,0;" Your employees now receive `";MP;" each per month" 100d:L (0:S(MS)=S(MS)+DA:DA=0:S 6PM>500BA<-250000t$ƥ>.31090B )BA>1100000Gƥ>.4L10808 R=(*6)+1 Շ(790R=1)+(810*R=2)+(899R=3)+(955R=4)+(10808R=5)+(1090BR=6) &0:0:7:1: R0,12 ;"DISPUTES";1,2;"DAYS LOST OVER LAST 6 MONTHS" MS=13 2090*  (XX=32 :YYY=40(:WW=31 J=16 UHH=S(J)*6:XX,YYY:WW,0:0,HH:-WW,0:0,-HH:XX=XX+WW J  20,4;M$(1);20,8;M$(2);20,12 ;M$(3);20,16;M$(4);20,20;M$(5);20,24;M$(6) %2;1;18,5;S(1);18,9 ;S(2);18,13 ;S(3);18,17;S(4);18,21;S(5);18,25;S(6) ' 2130R *(XX=32 :YYY=40(:WW=31 /J=712 4UHH=S(J)*6:XX,YYY:WW,0:0,HH:-WW,0:0,-HH:XX=XX+WW 9J >20,4;M$(7);20,8;M$(8);20,12 ;M$(9 );20,16;M$(10 );20,20;M$(11 );2 ,24;M$(12 ) C2;1;18,5;S(7);18,9 ;S(8);18,13 ;S(9 );18,17;S(10 );18,21;S(11 );18,25;S(12 ) H%J=112 :S(J)=0:J RL W 0 \ a:0,1;"PRODUCTION OVER LAST 6 MONTHS":'' bMS=13 2160p c MA=0 e(I=16:C(I)>MAMA=C(I):I fFI=16:2;M$(I);" ";7;C(I);1;I;""; g+J=0.01z# =C(I)MA/15:I;"";:J h: iI kL l 2900T m0:550& p:0,1;"PRODUCTION OVER LAST 6 MONTHS":'' r MA=0 v(I=16:C(I)>MAMA=C(I):I zQI=712 :2;M$(I);" ";7;C(I);1;(I-6);""; {3J=0.01z# =C(I)MA/15:I-6;"";:J |: }I L 1MS=1:J=112 :C(J)=0:J  2900T  550& 6:6:0: 1,7;"GRAND PRIX CIRCUIT";3,0;" An idea has been put forward that, in an attempt to increase sales, your Company should enter cars on the Grand Prix Circuit";10 ,0;" This would cost `100000 in initial development but, apart from the prize money, winning these races would mean large increases in sales";18,7;"DO YOU AGREE(Y/N)":.3,12 :5:E Q$="Y"Q$="y"2220 ^.3,15:18,2;"YOU WILL HAVE OTHER CHANCES":200:530 xGPX=1:O6=100000CP:.3,20:18,4;"DEVELOPMENT HAS STARTED":200:530 T1:1:7: Y$1,10 ;"STATISTICS" ^-4,0;"NO. OF PLANTS = ";PL c ,,"NO. OF MEN = ";ME+MO h,,"PRODUCTIVITY " m("PER PLANT = ";CP;" CARS P.M." r3,,,,"TOTAL PRODUCTIVITY ";PL*CP;" CARS P.M." L  PRO44050 PRO-64090 .2~L3500 CC>43500 7:6:0: CC=01,13 ;"EXTRAS";4,0;" In an attempt to increase sales it has been suggested that Stereo Radio Cassette Players be fitted into your cars as standard" cc>03065 9 ,0;" The immediate effects would be:";11 ,0;"1: Cost of producing a car will rise by `100";13 ,0;"2: Overheads will rise by `5000 per month" 18,0;F$:E Q$="N"Q$="n"3200 @PM=PM+100d:MIS=MIS+5000:CP=CP+2:CC=1 J18,0;" Sales will rise by ";PL*2;" cars per"," month" 200:3200 CC=11,13 ;"EXTRAS";4,0;" It has been suggested that a Central Locking Control be fitted to your cars as standard" cc>13085 9 ,0;" The immediate effects would be:";11 ,0;"1: Cost of producing a car will rise by `100";13 ,0;"2: Overheads will rise by `5000 per month":18,0;F$:E Q$="N"Q$="n"3200 @PM=PM+100d:MIS=MIS+5000:CP=CP+2:CC=2 J18,0;" Sales will rise by ";PL*2;" cars per"," month" 200:3200 CC=21,13 ;"EXTRAS";4,0;" A suggestion has been put forward that Rear Window Heater/Demisters be fitted to your cars as standard" CC>231255 9 ,0;" The immediate effects would be:";11 ,0;"1: Cost of producing a car will rise by `50";13 ,0;"2: Overheads will rise by `4000 per month" 18,0;F$:E !Q$="N"Q$="n"3200 &?PM=PM+502:MIS=MIS+4000:CP=CP+2:CC=3 +J18,0;" Sales will rise by ";PL*2;" cars per"," month" 0200:3200 5CC=31,13 ;"EXTRAS";4,0;" It has been suggested that a Computerised Fault Warning System be fitted to your cars as standard" :CC>33165] ?9 ,0;" The immediate effects would be:";11 ,0;"1: Cost of producing a car will rise by `200";13 ,0;"2: Overheads will rise by `5000 per month" D18,0;F$:E IQ$="N"Q$="n"3200 N@PM=PM+200:MIS=MIS+5000:CP=CP+4:CC=4 SJ18,0;" Sales will rise by ";PL*4;" cars per"," month" X200:3200 ]{CC=41,13 ;"EXTRAS";4,0;" Fitting your cars with Electric Windows has been suggested" g9 ,0;" The immediate effects would be:";11 ,0;"1: Cost of producing a car will rise by `70";13 ,0;"2: Overheads will rise by `4000 per month" l18,0;F$:E qQ$="N"Q$="n"3200 v?PM=PM+70F:MIS=MIS+4000:CP=CP+1:CC=5 {J18,0;" Sales will rise by ";PL*1;" cars per"," month" } 200 L 3500 7:7:2: 1A$="BlackBlue Red MauveGreenCyan ":G(6) P3315 :J=12:Q=07:C:(143+J)+Q,C:Q:J 0,14,30,63?,127,255,80P,32 ,0,0,112p,248,255,255,10 ,4 11,6;"GRAND PRIX ";M$(M);" ";YR R=(*4)+1 ,R=1O6=20000 N:GPP=80000@ ,R=2O6=25000a:GPP=90000/ ,R=3O6=27000xi:GPP=950009 -R=4O6=300000u:GPP=100000CP 3,0;" This race has already cost `";O6;" to prepare for";5,0;" However the total prize money is `";GPP;" and, if you win,"," sales of your cars will increase" 10 ,0;" You will be offered a choice of 6 cars for the race. You may select any 2";14,0;" The screen will then show the final sprint over the finishing straight" G200:;1;18,11 ;"GOOD LUCK":100d:L %7:7:0: *j1,9 ;"CAR SELECTION";4,0;" Select any 2 cars from the following:-":: /zj=16:.01z# =,J+6:" ";j;"--------------------";(j-1);A$(j*5-4j*5):j 4"1st car?";C1 9#C1<1C1>633804 >"2nd car?";C2 C#C2<1C2>63390> HC2=C13390> \s:20,0;" You have cars ";A$(C1*5-4C1*5);" and ";A$(C2*5-4C2*5) ^7;2;1;1,0;">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>";13 ,0;">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>":233,160:0,-89Y aJJ=16:(J-1):J*2,G(J);144;145:J b2,4;"":1,0:40(:2,4;"":2,2:40(:2,4;"":3,4:2,4;" " f<J=16:.005y# =,5:.005y# =,-2 k9(J-1):J*2,G(J);" ";144;145 pG(J)=G(J)+*1.5@ uG(J)>283460 zJ  3430f Q18,0;" The ";A$((J-1)*5+1J*5);" car wins" C1=JC2=J3475 (200:7:1:6: 0,12 ;"YOU LOST":J=1502:.002xn,60<-J:J:2,0;" You failed to win the race";4,0;" As a result your sales will fall slightly" ,CP=CP-1:GPX=1:GPP=0:L 539 (200:7:1:6: /0,12 ;"WELL DONE":4175O 2,0;" One of your cars has won the race";5,0;" You are awarded the prize of `";GPP;8,0;" As a result of winning the race your sales will rise by ";PL*2;" cars per month" *CP=CP+2:GP=91[:100d:L 539 C(MS)=CP*PL:210 COMPETITION 2:2::7 A3,7;"JAPANESE COMPETITION":4180T 7,0;"Large imports of Japanese cars have resulted in very strong competition. IT HAS BEEN NECESSARY TO REDUCE THE SELLING PRICE BY 20%" PC=PC-(PC/5)  100d L :S 1:7:1: 41,8;"PRODUCTION RISE":4175O R=(*3)+1 z4,0;" Due to your handling of the Union production has actually INCREASED by ";R;" carS per line"  CP=CP+R  PRO=0 100d:L  3500 7:2:2: 41,8;"PRODUCTION FALL":4180T R=(*2)+1  w4,0;" Due to your lack of cooperation with the Union production has FALLEN by ";R;" cars per line" CP=CP-RCP-R>0  4078 6C.125},7:.125},7:.25~,12 :.375?,12 :.125},12 :.25~,11 :.25~,14:.5,14:.125},7:.125},7:.25~,14:.375?,14:.125},14:.25~,12 :.25~,16:.50,16 7 .125},12 :.125},12 :.25~,16:.375?,16:.125},16:.25~,17:.25~,21:.25~,21:.25~,19:.25~,19:.375?,17:.125},14:.75@,12 8 @_.375?,7:.125},5:.25~,4:.25~,2:.25~,0:.125},0:.125},2:.25~,4:.25~,0:.125},2:.125},4:.125},5:.125},2:.375?,4:.125},2:.25~,0:.25~,4:.5,0 A E1,0:1,2:.5,3:.5,2:1,0:1,0:1,2:.5,3:.5,2:1,0:1,3:1,5:2,7:1,3:1,5:2,7:.75@,7:.25~,8:.5,7:.5,5:.5,3:.5,2:1,0 F.75@,7:.25~,8:.5,7:.5,5:.5,3:.5,2:1,0:1,0:1,-5:2,0:1,0:1,-5:2,0 G J$.375?,7:.125},5:.1875~@,4:.0625|,7:.1875~@,12 :.0625|,14:.5,16:.5,12 :.375?,9 :.125},11 :.1875~@,12 :.0625|,11 :.1875~@,12 :.0625|,9 K?.5,7:.5,4:.25~,7:.25~,5:.1875~@,4:.0625|,7:.1875~@,12 :.0625|,14:.5,16:.25~,12 :.25~,12 :.25~,14:.25~,14:.25~,12 :.25~,11 :.75@,12 L O(J=130:.01z# =,*J:J: T@J=115:.05|L,20:.05|L,0:J: YK.25~,0:.25~,5:.25~,5:.25~,5:.25~,7:.25~,9 :.125},9 :.125},7:.125},9 :.125},7:.25~,5:.25~,7:.125},7:.125},5:.125},7:.125},5:.25~,4 Z.25~,9 :.125},9 :.125},7:.125},9 :.125},7:.125},5:.125},0 [8.25~,5:.25~,5:.25~,5:.25~,7:.25~,9 :.125},9 :.125},7:.125},9 :.125},7:.25~,5:.125},7:.125},7:.25~,7:.25~,9 :.25~,7:.50,5: X/7:7:0:0:0: Y LV=1 ]~J=1502:(*6);(*6);1;1;*20,*30;"CONGRATULATIONS":.01z# =,J:J b 100d: g{1,12 ;"SUCCESS":1;6,0;"CONGRATULATIONS-you have reachedyour target in ";MM;" months" l o 4170J qOAA=1" You are no longer a Novice, try Level 2 for a bigger challenge" v:AA=2" You have done very well. Try Level 3 ." {gAA=3" You have richly earned the title of WHIZZ KID. Now try to succeed at level 4" }AA=4MM>36$" In recognition of your services it is rumoured that you will receive a knighthood in the New Years Honours" ~200:AA=4MM>36$,,,,"N.B.ACHIEVEMENT OF TARGET  IN LESS THAN 37 MONTHS MAY  EARN YOU A LIFE PEERAGE !!" qAA=4MM36 $;" YOU HAVE BEEN GIVEN A :-":502:11 ,8;1;"LIFE PEERAGE" F200:19,1;"DO YOU WANT TO PLAY AGAIN(Y/N)":E Q$="Y"Q$="y"100d  @/7:2:0:0:0: A LV=1 E1,12 ;"FAILURE":2;6,0;" Your overdraft has gone over the limit and the Bank has foreclosed" H 4165E J8AA=1" Try again and try not to expand so fast" O/AA=2" Try Level 1 to gain experience" T8AA=3" You need more experience, try Level 2" V8AA=4" You need more experience, try Level 3" Y200:100d #(dML=20:X=0:O=0:PL=3:CP=10 :MP=600X:C(12 ):PRO=0 #+&GPP=0:GPX=0:O6=0 #-BPM=1000:MIS=10000':M=0:W=0:Z=0: #2NK=0:L=125}:H=145:S=1140t:F=2000:E=165 #7AA=1CA=-119000hl #<AA=2CA=-165000!" #AAA=3CA=-195000>n #CAA=4CA=-210000M #FAA=1PC=3100 #KAA=2PC=2800 #PAA=3PC=2450 #RAA=4PC=2300 #U2G=0:B$=" " #Z!E$=" The Court decides he is " #_(g$="per cent to blame and awards him" #dF$="Do you agree(y/n)" #i`PP=0:O4=0:OK=0:KO=0:MO=0:GK=0:BB=0:ZX=0 #j2S(12 ):MS=0:YR=84T:MM=0 #sGM$(12 ,3):9080x#:J=112 :A$:M$(J)=A$:J #xI"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC" #} CC=0 # %&1:7:1:1: %!1;1,8;"BRITISH LOWLAND";0;3,0;" You have taken control of a small ailing Car Company";6,0;" The Company has a long history of poor Industrial Relations and production";10 ,0;" The Bank has given you a rigid overdraft of `300,000-This must NOT be exceeded";14,0;" Your aim is to turn the Company into a going concern with a Bank Balance of at least `M1.5" %$ 4185Y %&100d:125} %+ &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: &54,4;1;" K.A.Wells July 1983" &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of BRITISH LOWLAND.":"Please note unauthorised copyinghiring, and lending of this":"software is strictly prohibited." &A21,2;6;1;"Press any key to continue" &=""9965& & '"BL"90Z