ZXTape! 0Created with Ramsoft MakeTZXwheeler ̕  Ε :5:7:1 ,n=0:p=0:s=0:t=0 1,3;" " 6,6;" " # 2 (A65A,502:70F,0:502,502,10 -c150,502,12 :35#,502:-10 ,0:502,20,-*.353333 .p10 ,15:80P,0:33!,-30:502,502,5:150,502,5 /M150,502:502,502:165,502:30,0 2C5,+5:35#,502:30,0,-*.9ffff 7135,502:30,0,-:80P,70F:7,12 :20,0:7,-12 :-33!,0 <1:0:12 ,8;" ":0 =z2:95_,60<:6,8:115s,82R:45-,0:15,-12 :-557,0 AD-10 ,15:1;14,9 ;"WHEELER-":0 F16,10 ;"DEALER" K50:19,4;" Ramtop Software 1983" L 500 P:'"IF YOU WISH TO CONTINUE A GAME PRESS (1) IF YOU ARE STARTING A GAME PRESS ANY OTHER KEY":c$ Q&c$="1"3000 :c$"1"84T C:';" AIMS OF WHEELER-DEALER ----------------------" C'"THE MAIN AIM IS TO BECOME RICHERTHAN ANY OF THE OTHER PLAYERS." E'"YOU MAY JOIN WITH ANOTHER PLAYERTO FORM A SYNDICATE IF YOU WISH." ׅ'"YOU MAKE PROFITS BY BUYING AND SELLING CAR PARTS TO PRODUCE CARS TO SELL TO THE BANK. YOU MUST BUY AS CHEAPLY AS POSSIBLE." e'"YOU MUST ALWAYS SELL YOUR STOCK AT THE BEST POSSIBLE PRICE OR TRADE BY EXCHANGING WITH OTHERS." 62:''"PLEASE ENTER NUMBER OF PLAYERS":0 n$ n=n$ n1222 n>20222 b(n,20) 7:7:2 ?:''" WHEELER DEALER --------------" 6 a=1 i=1n a10 262 ?1:" PLAYER NO. ";1;a;0;" HAS `750,000 "  265  >1:" PLAYER NO.";1;a;0;" HAS `750,000 "  8b(i,1)=b(i,1)+i:b(i,2)=7500007 a=a+1:i n2:''" TO FORM A SYNDICATE PRESS (1) TO CONTINUE PRESS (2) " 3j$:7:7:1:j$="1"6000p j$="2"300, j$>"2"240 ' 235 ,?:''" WHEELER DEALER --------------" 6 6 @'"There are three types of parts","needed to complete every car.","They are:- ";1;"GEARBOXES";0 JL;11 ;1;"TYRES";0;11 ;1;"ENGINES";0 Tc'"YOU WILL BE ASKED TO BID FOR THE RIGHT TO SELL THESE PARTS - THIS MAKES YOU A PARTS DEALER." ^U'"PLEASE NOTE, YOU WILL NEED TO BE A DEALER TO HAVE A CHANCE TO WIN THE GAME." c''"PRESS ANY KEY TO CONTINUE" h 5000 :6:1 @'" GEARBOX DEALER AUCTION ----------------------" n6gb=1 n>6gb=2 n>12 gb=3 gb=1'"THERE IS ";gb;" GEARBOX LICENCE FOR SALE. THE MINIMUM PRICE FOR EACHLICENCE IS ";1;"`250,000.";0;"" gb>1'"THERE ARE ";gb;" GEARBOX LICENCES FORSALE. THE MINIMUM PRICE FOR EACH LICENCE IS ";1;" `250,000.";0;"." Ogb>1'"NO PLAYER OR SYNDICATE MAY OWN MORE THAN ONE GEARBOX LICENCE." #'"MAXIMUM SELLING PRICE `50 EACH" %0,70F:250,0 ̱6:14,0;5;2;" " %0,20:250,0 6:0 /21,0;"PRESS ANY KEY TO CONTINUE"  5000 ?:''" GEARBOX AUCTION ---------------"  6 `'"WILL THE PLAYER WITH THE HIGHESTBID OVER `250,000 PLEASE ENTER THE FOLLOWING INFORMATION:-" $'"Please enter your player number" pn mi=1n:b(i,1)=pnb(i,6)=1'"CHEAT! YOU ARE A DEALER ALREADY":250:520 i A'"Please enter the amount of your bid for a Gearbox dealership" !am 'Ham<250000t$''"Sorry your bid was too low!":150:540 + ,i=1n:b(i,1)=pnb(i,2)0''"PLAYER NO. ";1;;b(i,1);0;" has `";1;b(i,2);0;" left and owns ";2;b(i,3);0;" GEARBOXES and a licence." i /20,0;"PRESS ANY KEY TO CONTINUE"  0  :5 *>'" TYRE DEALER AUCTION -------------------" 9n6st=1 >n>6st=2 Cn>12 st=3 Hst=1'"THERE IS ";st;" TYRE LICENCE FOR SALE. THE MINIMUM PRICE FOR EACH LICENCE IS";1;" `250,000. ";0;"" Jst>1'"THERE ARE ";st;" TYRE LICENCES FOR SALE. THE MINIMUM PRICE FOR EACH LICENCE IS ";1;" `250,000.";0;"" LLst>1'"NO PLAYER OR SYNDICATE MAY OWN MORE THAN ONE TYRE LICENCE." M#'"MAXIMUM SELLING PRICE `50 EACH" R%0,60<:250,0 \6:1:15,0;" " f%0,20:250,0 p7:1 z/20,0;"PRESS ANY KEY TO CONTINUE"  5000  7 @:'" TYRE DEALER AUCTION -------------------" `'"WILL THE PLAYER WITH THE HIGHESTBID OVER `250,000 PLEASE ENTER THE FOLLOWING INFORMATION:-"  5 $'"Please enter your player number" pn ai=1n:b(i,1)=pnb(i,7)=1"CHEAT! YOU ARE ALREADY A DEALER":920 i >'"Please enter the amount of your bid for a Tyre dealership" am Ham<250000t$''"Sorry your bid was too low!":150:940 i=1n:b(i,1)=pnb(i,2)0'" PLAYER NO. ";b(i,1) i %12 ,12 ;2;"TYRES" 1:i=1n <b(i,4)>0'" PLAYER NO. ";b(i,1) i /20,0;"PRESS ANY KEY TO CONTINUE"  0  6 ::';1;" BANK STATEMENT ";0  i=1n #b(i,1)10 1285 Pb(i,1)>0'" PLAYER NO. ";b(i,1);" Balance ` ";b(i,2)  1290  Ob(i,1)>0'" PLAYER NO.";b(i,1);" Balance ` ";b(i,2)  i '"PRESS ANY KEY TO CONTINUE"  0 ( 7 x 4 A:'" ENGINE DEALER AUCTION ---------------------" n6eng=1 n>6eng=2 n>12 eng=3 eng=1'"THERE IS ";eng;" ENGINE LICENCE FOR SALE. THE MINIMUM PRICE FOR EACH LICENCE IS";1;" `350,000. ";0;"" eng>1'"THERE ARE ";eng;" ENGINE LICENCES FOR SALE. THE MINIMUM PRICE FOR EACHLICENCE IS";1;" `350,000. ";0;"" Oeng>1'"NO PLAYER OR SYNDICATE MAY OWN MORE THAN ONE ENGINE LICENCE." #'"MAXIMUM SELLING PRICE `75 EACH" %0,60<:250,0 6:0:15,0;" " %0,20:250,0 7:1 ;20,0;" PRESS ANY KEY TO CONTINUE":0  7 J:4:'" ENGINE DEALER AUCTION ---------------------" `'"WILL THE PLAYER WITH THE HIGHESTBID OVER `350,000 PLEASE ENTER THE FOLLOWING INFORMATION:-" $'"Please enter your player number" pn bi=1n:b(i,1)=pnb(i,8)=1"CHEAT! YOU ARE ALREADY A DEALER":1520 i A'"Please enter the amount of your bid for an Engine dealership" am Iam<350000*''"Sorry your bid was too low!":150:1540 i=1n:b(i,1)=pnb(i,2):2:0,10 ;1;"DEALERSHIPS";0 ^O2,11 ;2;"GEARBOXES --------- " cIi=1n:b(i,3)>0" PLAYER NO. ";b(i,1) hi i$"________________________________" mP9 ,13 ;2;"TYRES ----- " n 1 r i=1n |<b(i,4)>0" PLAYER NO. ";b(i,1) }i ~$"________________________________" Q16,12 ;2;"ENGINES ------- " 1:i=1n <b(i,5)>0" PLAYER NO. ";b(i,1) i /21,0;"PRESS ANY KEY TO CONTINUE"  0  6 C:5:';1;" BANK STATEMENT ";0  i=1n #b(i,1)10 1785 Pb(i,1)>0'" PLAYER NO. ";b(i,1);" Balance ` ";b(i,2)  1790 9'" PLAYER NO.";b(i,1);" Balance ` ";b(i,2) "i:';"PRESS ANY KEY TO CONTINUE"  0  7 L:2:'" RULES FOR WHEELER-DEALER ------------------------" "There are now ";n;" players or syndicates most of whom will be owners of Dealerships in either Gearboxes,Tyres or Engines." &E'" 1. Start with player no.1 and continue in numerical order." 0^'" 2. You will later be issued TOWN CARDS with sales from 250 to 5000 required." :'" 3. You will need from 250 to 5000 parts to be able to sell the completed cars to the Bank and hopefully to make a profit" Db'" 4. If the account falls below `0 you will automatically be LIQUIDATED (painful!)." Nv'" 5. Start now to trade your parts with other players. You may exchange them or sell them." X';1;" You cannot refuse to sell them at the maximum price which is `50 each for Gearboxes and Tyres and `75 each for Engines. ";0 b(';"Press any key to continue":0 g 3000  0: s=0:p=0 څ'" " #"ENTER 1 FOR YOUR NEXT TOWN CARD" t  t=(*24)+1 t=02000 *'t=1s=250:p=40000@ 4t=1c$=" ABERDEEN" >9t=2s=500:p=75000|:c$=" EDINBURGH" H>t=3s=1000:p=150000|:c$="GLASGOW (WEST)" R>t=4s=1000:p=150000|:c$="GLASGOW (EAST)" \;t=5s=1000:p=150000|:c$=" NEWCASTLE" f:t=6s=250:p=40000@:c$=" STOCKTON" p;t=7s=2000:p=300000|:c$=" LIVERPOOL" z[t=8s=2000:p=300000|:c$=" MANCHESTER (CENTRAL)" Yt=9 s=1000:p=150000|:c$=" MANCHESTER (NORTH)" :t=10 s=1000:p=150000|:c$=" LEEDS" 9t=11 s=1000:p=150000|:c$=" HULL" <t=12 s=1000:p=150000|:c$=" SHEFFIELD" <t=13 s=1000:p=150000|:c$=" NOTTINGHAM" <t=14s=2000:p=300000|:c$=" BIRMINGHAM" ;t=15s=1500:p=225000[:c$=" COVENTRY" :t=16s=500:p=75000|:c$=" FELIXSTOWE" >t=17s=2500 :p=3750007:c$="HARWICH DOCKS" 9t=18s=500:p=75000|:c$=" SWANSEA" 9t=19s=500:p=75000|:c$=" CARDIFF" ?t=20s=1500:p=225000[:c$="LONDON (NORTH)" At=21s=2500 :p=3750007:c$="LONDON (CENTRAL)" >t=22s=2500 :p=3750007:c$="LONDON(SOUTH)" >t=23s=5000:p=7500007:c$="TILBURY DOCKS" =t=24s=5000:p=7500007:c$=" SOUTHAMPTON" .C2:7,4;"TOWN";7,17;"ANNUAL SALES" 852:14,10 ;"GROSS PROFIT":0 B)9 ,0;c$;9 ,21;s L16,11 ;"` ";p M1:0:14,0;" " N 0 Q'"Press any key to continue" V 0 `:6:7:0 j-20,0;"Enter player number":pn k?i=1n:b(i,1)=pnb(i,2)085004! ni o:pn=03000 plpn>0" PLAYER NO. ";pn;" ACCOUNT --------------------" q0:14,0;" " t;i=1n:b(i,1)=pnb(i,2)=b(i,2)+p ~b(i,1)=pnb(i,3)=b(i,3)-s:b(i,1)=pnb(i,4)=b(i,4)-s:b(i,1)=pnb(i,5)=b(i,5)-s b(i,1)pn2460 \b(i,1)=pnb(i,3)>0b(i,4)>0b(i,5)>02460 1:b(i,1)=pnb(i,3)<0b(i,4)<0b(i,5)<04,2;" " `1:'"YOU DO NOT HAVE ENOUGH PARTS TO TAKE YOUR TURN - MISS A TURN! ":0:0 :20,0;"PRESS ANY KEY TO CONTINUE":200 .b(i,1)=pnb(i,2)=b(i,2)-p .b(i,1)=pnb(i,3)=b(i,3)+s .b(i,1)=pnb(i,4)=b(i,4)+s .b(i,1)=pnb(i,5)=b(i,5)+s 10 :2465 2:b(i,1)=pn5,12 ;"AMOUNT ";7,11 ;"` ";b(i,2);10 ,4;"GEARBOXES";12 ,5;b(i,3);10 ,23;"TYRES";12 ,23;b(i,4);16,13 ;"ENGINES";18,14;b(i,5) b(i,1)=pn2490 i ';"PRESS ANY KEY TO CONTINUE" 500 7:7:0 10 :3000 d 3000 ::'" INDEX -----" 7:7 6:0 A" 1. BUY OR EXCHANGE PARTS?" e'" 2. DO A CALCULATION? 3. SEE YOUR CURRENT ACCOUNT?" '" 4. PURCHASE MORE PARTS" 4'4;1;"5. TAKE A TOWN CARD?":0 %'" 6. SEE CURRENT BANK BALANCE?" 9'" 7. SEE PARTS LIST OR MAKE A CORRECTION?" '" 8. SEE THE RULES?" %'" 9. SAVE OR RESTART THE GAME?" h$ h$="0"3072 h$="1"4000 &h$="2"3500 :h$="3"5000 Dh$="4"8000@ Nh$="5"1900l Xh$="6"3700t bh$="7"41506 lh$="8"1810 h$="9"9000(# h$>"9"3000 h$"19"3000 1000:3000 H@:''" DATA ALTERATION ---------------" Rs''"IF YOU MADE A MISTAKE IN THE GAME AND WISH TO CORRECT IT PLEASE ENTER THE FOLLOWING INFORMATION:-" \'"ENTER PLAYER NUMBER":pn:'"DO YOU WISH TO ALTER:- (1) AMOUNT OF MONEY? (2) GEARBOXES? (3) TYRES? (4) ENGINES? (5) RETURN TO INDEX?" ]s$:s$>"4"3000 ^'"ENTER CORRECT AMOUNT ":x `5i=1n:b(i,1)=pns$="1"b(i,2)=x a(b(i,1)=pns$="2"b(i,3)=x c(b(i,1)=pns$="3"b(i,4)=x f(b(i,1)=pns$="4"b(i,5)=x hi:5:3000 <:'" CALCULATIONS ------------" '5,7;"HOW MANY PARTS?":y (10 ,7;"HOW MUCH EACH?":hm A15,10 ;"TOTAL COST ----------" 17,10 ;"` ";y*hm 250 /'"DO YOU WISH TO DO ANOTHER CALCULATION y/n?" x$ x$="y"3500 x$"y"3000 tI:2:'" CURRENT BANK BALANCES ---------------------" ~>'"PLAYER NO. BALANCE ---------- -------"  i=1n ^0:b(i,2)>05;b(i,1);" ________";17;"` ";b(i,2) i "';" Press any key to continue" 0:3000 @:''" WHEELING & DEALING ------------------" ('"PLEASE ENTER YOUR PLAYER NUMBER":pn ?j=1n:b(j,1)=pnb(j,2)>04015 j *i=1n:pnb(i,1)4013 i :''" " 7'" YOU HAVE BEEN LIQUIDATED":400:3000  i=1n 2b(i,1)=pnb(i,2)085004! 2b(i,1)=pnb(i,6)=04023 8b(i,1)=pnb(i,2)>1000000t$7000X i  4035 K:"WELL DONE YOU WERE LUCKY THIS TIME - THE RICH GET RICHER!":502 W97a,90Z:-10 ,10 :10 ,10 :100d,90Z,40( h80P,85U:40(,0,/4:85U,110n,3:115s,110n,3 985U,110n,1:115s,110n,1 (17,10 ;"WHEW!!":250 :'"DO YOU WANT:- (1) GEARBOXES? (2) TYRES? (3) ENGINES? (4) EXCHANGE PARTS? (5) RETURN TO THE INDEX?":ch ch=53000 ch=46500d ch>54035  !'"FROM WHICH PARTS DEALER?":dl Ji=1n:b(i,1)=dlch=1b(i,6)16750^ =b(i,1)=dlch=2b(i,7)16770r =b(i,1)=dlch=3b(i,8)16780| i dl>n4012 '"HOW MANY PARTS?":am !'"HOW MUCH ARE YOU PAYING?":ca ca=04065 :i=1n:b(i,1)=pnb(i,2)01;b(i,1);"--- ";7;b(i,3);16;b(i,4);23;b(i,5) ^i hC2:'" BANK BALANCE ------------ " 0:i=1n:b(i,2)>0b(i,1)>0b(i,1)<10 8;b(i,1);"---";"` ";14;b(i,2) zb(i,2)>0b(i,1)>0b(i,1)10 7;b(i,1);"---";"` ";14;b(i,2) i '"To make alteration press 9" %';"PRESS ANY OTHER KEY TO CONTINUE" y$ y$="9"3400H y$"9"3000 7:7:0  3000 $7:7:0 ?:'" CURRENT ACCOUNT ---------------" ('"PLEASE ENTER YOUR PLAYER NUMBER":pn ?:'" CURRENT ACCOUNT ---------------" !7,0;"BANK BALANCE" 7,20;"GEARBOXES" 814,4;"TYRES";14,20;"ENGINES" i=1n:pn=b(i,1)9 ,0;"` ";b(i,2);9 ,22;b(i,3);16,4;b(i,4);16,21;b(i,5) i 0'"PLAYER NO. ";b(i,1);" HAS ` ";b(i,2) i ''"DO YOU WISH TO:- (1) REGISTER ANOTHER SYNDICATE? (2) CONTINUE WITH THE GAME?" V$ V$="1"6155  V$"1"300, d n<'" PARTS EXCHANGES ---------------" x='"PLEASE ENTER BOTH YOUR PLAYER NUMBERS SEPARATELY":D:E :'"PLAYER NO. ";D;" WHICH PARTS DO YOU WISH TO EXCHANGE?" Q'"(1) GEARBOXES? (2) TYRES? (3) ENGINES?" F:'"HOW MANY?":G Ii=1n:b(i,1)=Db(i,6)1 F=16700, 7b(i,1)=DF=1b(i,3)=b(i,3)-G ;b(i,1)=Db(i,7)1F=26770r 7b(i,1)=DF=2b(i,4)=b(i,4)-G ;b(i,1)=Db(i,8)1F=36780| 7b(i,1)=DF=3b(i,5)=b(i,5)-G *i:'"THAT IS PLAYER NO. ";D;" COMPLETED"  150 >:'" PARTS EXCHANGES ---------------" :'"PLAYER NO. ";E;" WHICH PARTS DO YOU WISH TO EXCHANGE?" Q'"(1) GEARBOXES? (2) TYRES? (3) ENGINES?" K:'"HOW MANY?":L D=player1,E=player2 ch for 1=Fnumber=G ch for 2=K number=L  i=1n ;b(i,1)=Eb(i,6)1K=16700, 7b(i,1)=EK=1b(i,3)=b(i,3)-L ;b(i,1)=Eb(i,7)1K=26700, 7b(i,1)=EK=2b(i,4)=b(i,4)-L ;b(i,1)=Eb(i,8)1K=36700, 7b(i,1)=EK=3b(i,5)=b(i,5)-L i  10  i=1n 7b(i,1)=DK=1b(i,3)=b(i,3)+L 7b(i,1)=DK=2b(i,4)=b(i,4)+L 7b(i,1)=DK=3b(i,5)=b(i,5)+L i  i=1n 7b(i,1)=EF=1b(i,3)=b(i,3)+G  7b(i,1)=EF=2b(i,4)=b(i,4)+G 7b(i,1)=EF=3b(i,5)=b(i,5)+G "Zi:'"THAT IS PLAYER NO. ";E;" COMPLETED PLAY MAY NOW CONTINUE":150:3000 ,Pi=1n:b(i,1)=DF=1b(i,3)=b(i,3)+G:6750^ 1Cb(i,1)=DF=2b(i,4)=b(i,4)+G:6770r 6Cb(i,1)=DF=3b(i,5)=b(i,5)+G:6780| @i ^\:''"YOU DO NOT HAVE A LICENCE TO DEAL IN GEARBOXES. SORRY BUT YOUMUST MISS YOUR TURN." h500:3000 r~:''"YOU DO NOT HAVE A LICENCE TO DEAL IN TYRES. SORRY BUT YOU MUST MISS A TURN.":500:3000 |~:''"YOU DO NOT HAVE A LICENCE TO DEAL IN ENGINES. SORRY BUT YOU MUST MISS A TURN.":500:3000 X:'" " b|'" " lq''" CONGRATULATIONS YOU ARE NOW A ";1;"MILLIONNAIRE!";0 vn''"BECAUSE YOU ARE RICH YOU MUST FACE BUSINESS RISKS. PLEASE PRESS (1) TO SEE YOUR FATE":hz hz=(*20)+1   100d hz=07000X hz>207040 hz=14030 hz=34030 hz=54030 hz=74030 hz=9 4030 hz=11 4030 hz=13 4030 hz=154030 hz=174030 hz=194030 |hz=2"SORRY YOUR GEARBOXES WERE ALL STOLEN. YOU WERE NOT ADEQUATELY INSURED!":7200  hz=4"SORRY YOU LOST YOUR TYRES IN A FIRE. YOU HAD FORGOTTEN TO SEND YOUR CHEQUE FOR YOUR INSURANCE PREMIUM!":7200   |hz=6"SORRY BUT THE INLAND REVENUE DEMANDS A PAYMENT OF `250,000 FOR LAST YEARS' TAXES ON PROFITS":7200  hz=8"YOU OWE THE BANK `500,000 FOR A PREVIOUS LOAN. THIS WILL BE NOW DEDUCTED FROM YOUR CURRENT ACCOUNT TODAY ":7200  hz=10 "SORRY YOUR ENGINES HAVE BEEN RUINED BY WATER DAMAGE. YOU SHOULD HAVE PAID YOUR LAST INSURANCE PREMIUM!":7200  thz=12 "YOU HAVE JUST RECEIVED A LATE PAYMENT OF `100,000 FOR GOODS EXPORTED TO THE U.S.A.!":7200  vhz=14"SORRY BUT YOU HAVE JUST LOST `250,000 ON A BAD DEAL - DON'T BE SO TRUSTFUL NEXT TIME!":7200   lhz=16"GOOD NEWS! YOU HAVE RECEIVED A REBATE OF `500,000 FROM THE INLAND REVENUE!":7200  Ghz=18"YOU ARE TOO ILL TO GO TO WORK TODAY - MISS ONE TURN" ?hz=20"YOU HAVE HAD A HEART ATTACK - MISS TWO TURNS" * i=1n +Dhz=2b(i,1)=pnb(i,3)=b(i,3)-b(i,3) ,Dhz=4b(i,1)=pnb(i,4)=b(i,4)-b(i,4) -Dhz=6b(i,1)=pnb(i,2)=b(i,2)-250000t$ .Dhz=8b(i,1)=pnb(i,2)=b(i,2)-500000t$ /Ehz=10 b(i,1)=pnb(i,5)=b(i,5)-b(i,5) 0Ehz=12 b(i,1)=pnb(i,2)=b(i,2)+100000CP 1Ehz=14b(i,1)=pnb(i,2)=b(i,2)-250000t$ 2Ehz=16b(i,1)=pnb(i,2)=b(i,2)+500000t$ i ?i=1n:b(i,1)=pnb(i,2)085004! i  i=1n %hz=12 hz=164031 i :97a,90Z:-10 ,10 :10 ,10 M100d,90Z,40(:80P,75K:40(,0,-/4 985U,110n,3:115s,110n,3 985U,110n,1:115s,110n,1  17,8;"OH DEAR!!"  250  i=1n Bhz=246810 144035 i  i=1n "hz=18203000 i L250:3000 @dealer replacements JC:'" DEALER PARTS REPLACEMENTS -------------------------" O ''"IF YOU ARE A DEALER PLEASE" T!'"ENTER YOUR PLAYER NUMBER":pn ^'"DO YOU WANT:- (1) GEARBOXES? (2) TYRES? (3) ENGINES?":ch _Ji=1n:b(i,1)=pnch=1b(i,6)16750^ `=b(i,1)=pnch=2b(i,7)16770r a=b(i,1)=pnch=3b(i,8)16780| bi cch>38000@ hch=28100 mch=38200 r|ch=1'"50,000 GEARBOXES WILL COST YOU `500,000 DO YOU WANT TO GO AHEAD? ENTER y or n ":v$ |v$="y"8080 v$"y"3000  i=1n qb(i,1)=pnb(i,2)=b(i,2)-500000t$:b(i,1)=pnb(i,3)=b(i,3)+50000P i 502:3000 \'"50,000 SETS OF TYRES WILL COST YOU `500,000 DO YOU WISH TO GO AHEAD? ENTER y or n":v$ v$="y"8130 v$"y"3000 Fi=1n:b(i,1)=pnb(i,2)=b(i,2)-500000t$ 8b(i,1)=pnb(i,4)=b(i,4)+50000P i 502:3000 U'"50,000 ENGINES WILL COST YOU `750,000 DO YOU WISH TO PROCEED?ENTER y or n":v$ v$="y"8230& v$"y"3000 &Fi=1n:b(i,1)=pnb(i,2)=b(i,2)-7500007 08b(i,1)=pnb(i,5)=b(i,5)+50000P 5i :502:3000 !4 liquidation !9 !>''" " !H~''" " !R313 ,12 ;1;"LIQUIDATED";0 !\R16,4;1;"LIQUIDATED";16,20;"LIQUIDATED";0 !f20,0;1;1;1;"LIQUIDATED";20,11 ;"LIQUIDATED";20,22;"LIQUIDATED";0;0;0 ! i=1n !9b(i,1)=pnb(i,2)=b(i,2)-b(i,2) !9b(i,1)=pnb(i,3)=b(i,3)-b(i,3) !9b(i,1)=pnb(i,4)=b(i,4)-b(i,4) !9b(i,1)=pnb(i,5)=b(i,5)-b(i,5) !i ! 300, !:i=1n !2b(i,1)=pnb(i,6)=18669! !2b(i,1)=pnb(i,7)=18669! !2b(i,1)=pnb(i,8)=18669! !i ! 1 ! 3000 !ݨ:''" PLAYER NO. ";pn;" HAS NOW BEEN LIQUIDATED. AS A PARTS DEALER THE LICENCE WILL BE AUCTIONED AGAIN." !r''"IF ANY OTHER PLAYER WISHES TO BID FOR THE DEALERSHIP PLEASE ENTER WHICH DEALERSHIP YOU SEEK TO PURCHASE." !Q'"(1) GEARBOXES? (2) TYRES? (3) ENGINES?" !"(4) RETURN TO THE GAME?" !TY:TY=18700! !TY=28750." !TY=38800`" !TY43000 !?:''" GEARBOX AUCTION ---------------" !`'"WILL THE PLAYER WITH THE HIGHESTBID OVER `250,000 PLEASE ENTER THE FOLLOWING INFORMATION:-" !$'"Please enter your player number" "pn "A'"Please enter the amount of your bid for a Gearbox dealership" "am "Iam<250000t$''"Sorry your bid was too low!":150:8705" ":i=1n:b(i,1)=pnb(i,2):''" TYRE AUCTION ------------" "/`'"WILL THE PLAYER WITH THE HIGHESTBID OVER `250,000 PLEASE ENTER THE FOLLOWING INFORMATION:-" "0)''"Please enter your player number":pn "3B'"Please enter the amount of your bid for a Tyre dealership":am "4Iam<250000t$''"Sorry your bid was too low!":150:87553" "5:i=1n:b(i,1)=pnb(i,2)