TRADING b REELAX GAMES 1985 :0:0:0::64599W:""64600X -236066\,88X:236077\,251 ."":7:7:4,0;:"" TRADING Xlllll|ll>X<|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff<ll8lfff>|~L0~p8pUUUU8DD8~~<~~< (@ (@?? @?  @ @ z@|? @|<LJ> (@ (@>? @? @A@ @ J@|?>> @@|<ǃ> (@@ (@@>?  @?? @A@ >@? J@|?>>  @|<ǁ> ( @ ( @~? @?< A@ B@ z@|?> @|~<ǀ? (@ (@~< p @?< @  #@ @| J@|?> @|?<ǀ? (@@ (@@< @? @ @ @| J@|?ǿ> D@|<ǀ? ( D@ ( @< @? @ @ @| K@|?ǟ> "@|<ǀ ("@ @? @? @? @ "">V@@@?? "~">@P@ ">|?|B>! @  "??"x><?>PB H@  "?"p>> HD?@  ""`> >@  >"@>@ "> 888888888888888888888888888888888zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz88||||||||||||||||||||||||||||||88~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~88yyyyyyyyyyyyyyyyyyyyyyyyyyyyyy888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888xxxxx888888888888888888888888888xxxxx888888zzzzzzzzzzzzzzz888888xxxxx888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 TRADING `b REELAX GAMES 1985 $a(4,65A):u(4,65A):v(4,546):w(4,546):y(4,25):z(4,25):6,0;:""a():6,0;:""u():6,0;:""v():6,0;:""w():6,0;:""y():6,0;:""z() 7:0::4;"THE"'8;"a c e g i k m"'8;"b d f h j l n"'22;"GAME"'''"PLEASE ENTER NUMBER OF PLAYERS" '"BETWEEN 2 AND 4 " s$:s$<"2"s$>"4"5 @pla=0+2*(s$="2")+3*(s$="3")+4*(s$="4") /co=0:'"DO YOU WISH COMPUTER TO PLAY ?" @="y"'"COMPUTER WILL PLAY AS PLAYER 1":co=1:11 ="n"11 8 ='"NUMBER OF PLAYERS: ";pla:''"PLEASE ENTER LENGTH OF GAME" #'"ENTER NUMBER OF WEEKS (1-104) " *s$:s$<491ůs$>57914 s$>104h14 round=s$:gon=1 0'"LENGTH OF GAME: ";round;" WEEKS":9500% 9000(#:9200# $20:del=0:bal=0:x=1pla %+r(x)80000@x(x)=0:120x (a17,1;"PRESS COMMAND LETTER PLAYER ";x;18,2;"H,D,P,I,L,U,M,B,C,G OR S" -rx=1co=120,1;"COMPUTER IS THINKING...":y=1250:y:400:8000@ 2S="h"20,2;"HIRE PERSONNEL":.3,0:400:500 7Q="d"20,2;"DISPLAY DATA":.3,0:400:700 "9"530 Rp(x)+s$>100d20,1;"PERSONNEL TOTAL MUST BE 100":530 Vp(x)=p(x)+s$:20,1;"NEW PERSONNEL TOTAL IS ";p(x):300,:40( /17,1;"PLAYER ";x;" DATA" _19,1;"CURRENT BALANCE: `";x(x);20,1;"MONEY OWED: `";r(x):300, 417,1;"TRUCK NO DIST CARGO UNITS" r=13 Qt(x,r)=017+r,1;"------NOT IN OPERATION--------":760 +j$="EMPTY":m(x,r)=1j$="TEXTILES" m(x,r)=2j$="FOOD" m(x,r)=0j$="OIL" t(x,r)=117+r,3;r;11 ;(c(x,r)-1)*10 ;"M";17;j$;26;f(x,r):a(x,c(x,r)),u(x,c(x,r));1;"":1,-10 :9240$ r:300, 417,1;"BARGE NO DIST CARGO UNITS" r=13 Qb(x,r)=017+r,1;"------NOT IN OPERATION--------":790  +j$="EMPTY":n(x,r)=1j$="TEXTILES"  n(x,r)=2j$="FOOD" n(x,r)=0j$="OIL" b(x,r)=117+r,3;r;11 ;(d(x,r)-1)*10 ;"M";17;j$;26;g(x,r):w(x,d(x,r)),v(x,d(x,r));1;"":1,-8:9240$ r:300,  417,1;"TANKER NO DIST CARGO UNITS" *r=13 4Qk(x,r)=017+r,1;"------NOT IN OPERATION--------":850R >+j$="EMPTY":o(x,r)=1j$="TEXTILES" Co(x,r)=2j$="FOOD" Do(x,r)=0j$="OIL" Hk(x,r)=117+r,3;r;11 ;(e(x,r)-1)*10 ;"M";17;j$;26;h(x,r):z(x,e(x,r)),y(x,e(x,r));1;"":1,-6:9240$ Rr:300, W17,1;"PERSONNEL: ";p(x);18,1;"PERSONNEL WAGE: `";q(x);20,1;"WEEKLY WAGE: `";(p(x)*q(x)) \300,:40( zr:300,:40( <17,1;"TYPE INSURANCE PAYMENT " 18,1;"TRUCK";20;"`";tr;19,1;"BARGE";20;"`";ba;20,1;"TANKER";20;"`";ta:300, 817,1;"PRODUCE TOWN 1 2 3 " |18,1;"OIL";15;"`";s(1,1);21;"`";s(1,2);27;"`";s(1,3) 19,1;"TEXTILES";15;"`";s(2,1);21;"`";s(2,2);27;"`";s(2,3) }20,1;"FOOD";15;"`";s(3,1);21;"`";s(3,2);27;"`";s(3,3) 300,:40( LJ17,1;"INSURE TRANSPORT":rot=1141u:4000 x 1250 y(17,1;"INSURE ";j$ ~@r=13:tp=1t(x,r)=0uc=r:1160 -tp=2b(x,r)=0uc=r:1160 -tp=3k(x,r)=0uc=r:1160 sr:19,1;"MAXIMUM LIMIT 3 ";j$;"S";20,1;"ALL ";j$;"S OPERATIONAL":300,:1100L `tp=1t(x,uc)=1:1200:c(x,uc)=1:f(x,uc)=0:300,:40( `tp=2b(x,uc)=1:1200:d(x,uc)=1:g(x,uc)=0:300,:40( `tp=3k(x,uc)=1:1200:e(x,uc)=1:h(x,uc)=0:300,:40( 18,1;j$;" NUMBER ";uc;19,1;"INSURANCE CHARGES: `";zx:x(x)=x(x)-zx:20,1;"BALANCE: `";x(x):9240$: kx(x)-zx<017,1;"INSUFFICENT FUNDS,OBTAIN LOAN":2,10 :300,:40(  1145y H17,1;"LOAD TRANSPORT":rot=13302:4000 2&17,1;"LOAD ";j$ 7r=13:tp=1t(x,r)=1c(x,r)=1f(x,r)=0uc=r:19,1;"TRUCK ";uc;" IS TO BE LOADED":300,:1360P 8tp=2b(x,r)=1d(x,r)=1g(x,r)=0uc=r:19,1;"BARGE ";uc;" IS TO BE LOADED":300,:1360P 9tp=3k(x,r)=1e(x,r)=1h(x,r)=0uc=r:19,1;"TANKER ";uc;" IS TO BE LOADED":300,:1360P <_r:tp=119,1;"NO TRUCKS AVAILABLE":1,-5:300,:40( =\tp=219,1;"NO BARGES AVAILABLE":1,-5:300,:40( >]tp=319,1;"NO TANKERS AVAILABLE":1,-5:300,:40( P11450:tp=1m(x,uc)=crg:1370Z Q%tp=2n(x,uc)=crg:1370Z R%tp=3o(x,uc)=crg:1370Z ZH17,1;"LOAD UNITS":crg=0f$="OIL":zt=j(x) [%crg=1f$="TEXTILES":zt=i(x) \!crg=2f$="FOOD":zt=l(x) _.18,1;"DEPOT HOLDS ";zt;" UNITS" `(19,1;"ENTER UNITS OF ";f$ s+20,1;"TO BE LOADED INTO ";j$ x,s$:s$<480ůs$>5791400x ys$=""1400x z*crg=0j(x)-s$<01400x {*crg=1i(x)-s$<01400x |*crg=2l(x)-s$<01400x }s$="0"400:40( Ctp=1ưs$10000'f(x,uc)=(s$):300,:1420 Ctp=2ưs$55000g(x,uc)=(s$):300,:1420 Ctp=3ưs$950009h(x,uc)=(s$):300,:1420  1400x crg=0j(x)=j(x)-(s$) crg=1i(x)=i(x)-(s$) crg=2l(x)=l(x)-(s$) 17,1;"LOAD REPORT";18,1;"TRANSPORT: ";j$;" ";uc;19,1;"CARGO: ";f$;20,1;"UNITS LOADED: ";(s$):300,:40( 17,1;"LOAD CARGO";19,1;"PRESS O FOR OIL,T FOR TEXTILES";20,1;"F FOR FOOD" !="o"crg=0:300,: !="t"crg=1:300,: !="f"crg=2:300,:  1455 w17,1;"UNLOAD TRANSPORT";18,1;"ENTER TRANSPORT TYPE":rot=1530:4000 )17,1;"ENTER ";j$;" NUMBER" S="1"uc=1:19,1;j$;" NUMBER 1 CHOSEN":300,:1551 S="2"uc=2:19,1;j$;" NUMBER 2 CHOSEN":300,:1551  S="3"uc=3:19,1;j$;" NUMBER 3 CHOSEN":300,:1551  1535 {tp=1lo=f(x,uc):sq=c(x,uc):t(x,uc)=019,1;"TRUCK ";uc;" IS NOT INSURED":300,:40( {tp=2lo=g(x,uc):sq=d(x,uc):b(x,uc)=019,1;"BARGE ";uc;" IS NOT INSURED":300,:40( |tp=3lo=h(x,uc):sq=e(x,uc):k(x,uc)=019,1;"TANKER ";uc;" IS NOT INSURED":300,:40( 17,1;"TRANSPORT CHOSEN":18,1;"TYPE: ";j$;19,1;"CARGO: ";20,1;"UNITS LOADED: " Mpe=1:d$="OIL":tp=1m(x,uc)=1d$="TEXTILES":pe=2 3tp=1m(x,uc)=2d$="FOOD":pe=3 7tp=2n(x,uc)=1d$="TEXTILES":pe=2 3tp=2n(x,uc)=2d$="FOOD":pe=3 7tp=3o(x,uc)=1d$="TEXTILES":pe=2 3tp=3o(x,uc)=2d$="FOOD":pe=3 "719,8;d$;20,15;lo:300, ,.17,1;"UNLOAD TRANSPORT" 1Fto=0:tp=1a(x,sq)=10 u(x,sq)=2to=1 2:tp=1a(x,sq)=2u(x,sq)=13 to=2 3:tp=1a(x,sq)=9 u(x,sq)=28to=3 5:tp=2w(x,sq)=2v(x,sq)=13 to=2 6:tp=2w(x,sq)=9 v(x,sq)=28to=3 9:tp=3z(x,sq)=9 y(x,sq)=28to=3 :x=1co=1 ;to=019,1;j$;" ";uc;" IS NOT";20,1;"SITUATED IN A TOWN":1,10 :300,:40( <}18,1;j$;" ";uc;" HAS UNLOADED";19,1;lo;" UNITS OF ";d$;20,1;"IN TOWN ";to:300, @h17,1;"CONFIRMATION";18,1;"CARGO: ";d$;19,1;"UNITS: ";lo Jnpc=s(pe,to):pay=(s(pe,to)*lo):20,1;"MKT PRICE: `";pc:s(pe,to)=s(pe,to)-.1}L:7300 O300,:17,1;"PAYMENT";18,1;"BALANCE: `";x(x);19,1;"PAYMENT: `";pay;20,1;"FINAL BALANCE: `";x(x)+pay:x(x)=x(x)+pay Pdel=del+1:bal=bal+pay TPtp=1t(x,uc)=0:c(x,uc)=1:f(x,uc)=0:m(x,uc)=4 UPtp=2b(x,uc)=0:d(x,uc)=1:n(x,uc)=4:g(x,uc)=0 VPtp=3k(x,uc)=0:e(x,uc)=1:o(x,uc)=4:h(x,uc)=0 Y!300,:9230$:40( H17,1;"MOVE TRANSPORT":rot=1710:4000 )17,1;"ENTER ";j$;" NUMBER" g="1"uc=1:19,1;j$;" NUMBER 1 CHOSEN":uc=1:.4L,10 :1730 g="2"uc=2:19,1;j$;" NUMBER 2 CHOSEN":uc=2:.4L,10 :1730 g="3"uc=3:19,1;j$;" NUMBER 3 CHOSEN":uc=3:.4L,10 :1730  1715 btp=1t(x,uc)=019,1;"TRUCK ";uc;" IS NOT INSURED":300,:40( btp=2b(x,uc)=019,1;"BARGE ";uc;" IS NOT INSURED":300,:40( ctp=3k(x,uc)=019,1;"TANKER ";uc;" IS NOT INSURED":300,:40( ]17,1;"MOVE TRANSPORT ";19,1;"ENTER NUMBER OF MOVES " ,s$:s$<491Ưs$>5241735 s$=""1735 st=(s$(1)) 7tp=1c(x,uc)+st65Ast61755 7tp=2d(x,uc)+st546st61755 7tp=3e(x,uc)+st25st41755 /20,1;"ILLEGAL ENTRY":1735 @20,1;j$;" ";uc;" WILL MOVE ";st*10 ;" MILES" tp=11765 tp=21800 tp=31850:  to=0 Da(x,c(x,uc)+to),u(x,c(x,uc)+to);1;7;"":1895g 8a(x,c(x,uc)+to),u(x,c(x,uc)+to);1;6;"" 3to=stc(x,uc)=c(x,uc)+st:9230$:1900l y=1pla:u=13:pe=c(x,uc)+to+1:a(x,pe)=a(y,c(y,u))u(x,pe)=u(y,c(y,u))c(x,uc)=c(x,uc)+to:st=to:1900l u:y $to=to+1:5:1766  to=0 Mw(x,d(x,uc)+to),v(x,d(x,uc)+to);1;1;2;"":1895g 8w(x,d(x,uc)+to),v(x,d(x,uc)+to);1;4;"" &3to=std(x,uc)=d(x,uc)+st:9230$:1900l ,y=1pla:u=13:pe=d(x,uc)+to+1:w(x,pe)=w(y,d(y,u))v(x,pe)=v(y,d(y,u))d(x,uc)=d(x,uc)+to:st=to:1900l -u:y 0$to=to+1:5:1810 : to=0 DMz(x,e(x,uc)+to),y(x,e(x,uc)+to);1;3;1;"":1895g N8z(x,e(x,uc)+to),y(x,e(x,uc)+to);1;5;"" X3to=ste(x,uc)=e(x,uc)+st:9230$:1900l ^y=1pla:u=13:pe=e(x,uc)+to+1:z(x,pe)=z(y,e(y,u))y(x,pe)=y(y,e(y,u))e(x,uc)=e(x,uc)+to:st=to:1900l _u:y b$to=to+1:5:1860D gJ.1}L,4:.1}L,5:.1}L,6:.1}L,5: l9230$:400:17,1;"TRANSPORT MOVED";18,1;j$;" ";uc;" HAS MOVED ";st*10 ;" MILES";19,1;"FUEL COSTS: `" vtp=1fu=st*90Z tp=2fu=st*350^ tp=3fu=st*1350F `19,14;fu:x(x)=x(x)-fu:20,1;"BALANCE: `";x(x):300,:115s )17,1;"OBTAIN LOAN" T19,1;"ENTER AMOUNT WANTED";20,1;"UP TO `50000 PERMITTED" ,s$:s$<491ůs$>5792020 s$>50000P2020 *bor=(s$):x(x)=x(x)+bor:r(x)=r(x)+bor J20,1;"`";bor;" HAS BEEN BORROWED ":300,:40( 17,1;"CONTINUE":18,1;"NO TRANSPORT MOVEMENT";19,1;"FOR WEEK ";gon;20,1;"BALANCE: `";x(x):300,:115s `17,1;"INFORMATION";18,1;"TOTAL WEEKS PLAYED: ";gon;19,1;"DEADLINE DATE: ";round;" WEEKS":300, j-18,1;"INTEREST RATE: ";int;"%" o8do=0:r=1pla:r(r)>0do=do+1 t?r:19,1;"NO. OF PLAYERS IN DEBT: ";do:300, 17,1;"OPERATIONAL TRANSPORT":do=0:r=1pla:t=13:t(r,t)=1do=do+1 5t:r:18,1;"TRUCKS IN OPERATION: ";do Mdo=0:r=1pla:t=13:b(r,t)=1do=do+1 5t:r:19,1;"BARGES IN OPERATION: ";do Mdo=0:r=1pla:t=13:k(r,t)=1do=do+1 @t:r:20,1;"TANKERS IN OPERATION: ";do:300, r=1pla:17,1;"DEPOT ";r;" HOLDINGS";18,1;"OIL: ";j(r);" UNITS";19,1;"TEXTILES: ";i(r);" UNITS";20,1;"FOOD: ";l(r);" UNITS":300,:r:40( (17,1;"SAVE";17,15;"A TO ABORT";19,1;"INSERT TAPE";20,1;"AND PRESS 'S' TO SAVE" -="a"300,:40( .="s"26102 / 2605- 2l236066\,0:236077\,60<:"TRADING"29:236066\,88X:236077\,251 .4L19,11 ;"NO ACTION TAKEN":300,:5040 C19,11 ;"STRIKE ACTION":.5,-10 :300, 17,1;"25% LOSS OF CASH RESERVES";18,1;"DUE TO LACK OF PRODUCTION":los=(.25~*x(x)):19,1;"TOTAL LOSS: `";los;20,1;"REMAINING BALANCE: `";x(x)-los:x(x)=x(x)-los:300, 17,1;"20% OF DEPOT STOCKS ARE LOST";18,1;"UNION WILL ACCEPT `3 RISE";19,1;"PRESS Y TO ACCEPT";20,1;"PRESS N TO REJECT" j(x)=j(x)-.2~L*j(x):i(x)=i(x)-.2~L*i(x):l(x)=l(x)-.2~L*l(x):x=1co=1y=1120x:y:20,1;"DEMAND REJECTED ":300,:5028 b="y"300,:q(x)=q(x)+3:18,1;"NEW WAGE: `";q(x):300,:5040 ="n"300,:5028  5037 >.1}L5060 ^17,1;1;" FIRE AT DEPOT ";x;" ":.5,-10 :.5,-15 los=:pe=((los*70F)+(p(x)/10 )):19,1;pe;"% OF STOCKS ARE DESTROYED":j(x)=j(x)-((pe/100d)*j(x)):i(x)=i(x)-((pe/100d)*i(x)):l(x)=l(x)-((pe/100d)*l(x)):300, %>.2~Lx(x)05070 "pe=/2+((q(x)/10 )/100d):17,1;"YOU ARE SUMMONED TO PAY";18,1;"EXCISE DUTIES AT ";(pe*100d);"%";19,1;"PAY ";(pe*100d);"% OF CASH RESERVES":los=(x(x)*pe):x(x)=x(x)-los:20,1;"NEW BALANCE: `";x(x):300, Ndem=1+(*7):los=1+(*3):pe=1+(*99c) >.4L5090 los=1j$="OIL" los=2j$="TEXTILES" los=3j$="FOOD" ӳ17,1;"A MAJOR TRANSPORT COMPANY";18,1;"OFFERS TO BUY ";pe;"% OF";19,1;"YOUR ";j$;" STOCKS AT `";dem;" PU";20,1;"PRESS Y OR N" Rx=1co=1los1dem>3y=1120x:y:8590! ix=1co=1y=1120x:y:20,1;"OFFER REJECTED":300,:5090 ="y"8590! 7="n"20,1;"OFFER REJECTED":5090  5080 Nlos=1tot=(j(x)*(pe/100d)):x(x)=x(x)+(dem*tot):j(x)=j(x)-tot Nlos=2tot=(i(x)*(pe/100d)):x(x)=x(x)+(dem*tot):i(x)=i(x)-tot Nlos=3tot=(l(x)*(pe/100d)):x(x)=x(x)+(dem*tot):l(x)=l(x)-tot ަ17,1;tot;" UNITS OF ";j$;18,1;"SOLD AT `";dem;" PER UNIT";19,1;"PROFIT: `";(tot*dem);20,1;"NEW BALANCE: `";x(x) 7900:300,: p17,1;"WEEK ";gon;" REPORT":.4L,10 :<.2~Lint<3018,1;"INTEREST RATES RISE BY 1%":int=int+1 q819,1;"INTEREST RATE: ";int;"%":300, r5r=1pla:r(r)=r(r)+(r(r)*(int/100d)):r ur=1pla:x(r)>0x(r)0r(r)=r(r)-x(r):x(r)=0:18,1;"PLAYER ";r;" PAYS OFF";19,1;"PART OF THE LOAN":300,:6002r vx(r)>0x(r)>r(r)r(r)>0x(r)=x(r)-r(r):r(r)=0:18,1;"PLAYER ";r;" PAYS OFF";19,1;"ALL OF LOAN":300,:6002r w>16+r,1;"PLAYER ";r;" OWES `";r(r):r:300, xr=1pla:r(r)80000@x(r)0x(r)=0:y=13:t(r,y)=0:b(r,y)=0:k(r,y)=0:y:9000(#:9200# yNr(r)80000@16+r,1;"PLAYER ";r;" IS BANKRUPT":6011{ z416+r,1;"PLAYER ";r;" BALANCE: `";x(r) {r:300, r=1pla:fod=238+(*10 ):tex=218+(*8):oi=198+(*8):j(r)=j(r)+(oi*p(r)):i(r)=i(r)+(tex*p(r)):l(r)=l(r)+(fod*p(r)):r(r)80000@6018 h17,1;"DEPOT ";r;" NEW STOCKS";18,1;"OIL RECEIVED: ";p(r)*oi;" UNITS" 19,1;"TEXTILES RECEIVED: ";p(r)*tex;" UNITS";20,1;"FOOD RECEIVED: ";p(r)*fod;" UNITS":x(r)=x(r)-(p(r)*q(r)):300, r >.3533336025 17,1;"DUE TO INFLATION";18,1;"THERE HAS BEEN A GENERAL WAGE";19,1;"INCREASE OF `2":r=1pla q(r)=q(r)+2 r:300, r=1pla:17,1;"PLAYER ";r;" MONEY OWED: `";r(r);18,1;"PERSONNEL: ";p(r);19,1;"WAGES: `";q(r);20,1;"BALANCE: `";x(r):300,:r <.2~L18,1;"TRUCK INSURANCE CHARGES RISE";19,1;"BY `100 TO `";tr+100d:tr=tr+100d:300, <.2~L18,1;"BARGE INSURANCE CHARGES RISE";19,1;"BY `100 TO `";ba+100d:ba=ba+100d:300, <.2~L18,1;"TANKER INSURANCE CHARGES RISE";19,1;"BY `100 TO `";ta+100d:ta=ta+100d:300, >.45ffff6060 $on=8+(*568):17,1;"ROAD ACCIDENT ";on*10 ;" MILES";18,1;"NORTH OF DEPOTS";19,1;"PRESS ENTER FOR POLICE LIST";20,1;"OF TRUCKS DESTROYED":a(1,on),u(1,on);1;"":.4L,-5:300, Er=1pla:t=13:t(r,t)=1a(r,on)=a(r,c(r,t))u(r,on)=u(r,c(r,t))17,1;"TRUCK ";t;" FROM DEPOT ";r;18,1;"DESTROYED COMPLETELY":20,1;f(r,t);" UNITS OF CARGO ARE LOST":300,:t(r,t)=0:f(r,t)=0:c(r,t)=1:m(r,t)=4:zx=tr:6900 Ft:r:a(1,on),u(1,on);1;6;"":9230$ >.36070 'on=11 +(*43+):17,1;"LOW CANAL LEVEL ";on*10 ;" MILES";18,1;"NORTH OF DEPOTS";19,1;"PRESS ENTER FOR POLICE LIST";20,1;"OF BARGES DESTROYED":w(1,on),v(1,on);1;"":.4L,-5:300, @r=1pla:t=13:b(r,t)=1w(r,on)=w(r,d(r,t))v(r,on)=v(r,d(r,t))17,1;"BARGE ";t;" FROM DEPOT ";r;18,1;"TOTALLY WRECKED":20,1;g(r,t);" UNITS OF CARGO ARE LOST":300,:b(r,t)=0:g(r,t)=0:d(r,t)=1:n(r,t)=4:zx=ba:6900 Ft:r:w(1,on),v(1,on);1;4;"":9230$ >.36080 (on=23+(*3):17,1;"COLLISION AT SEA ";on*10 ;" MILES";18,1;"NORTH OF DEPOTS";19,1;"PRESS ENTER FOR REPORT LIST";20,1;"OF TANKERS DESTROYED":z(1,on),y(1,on);1;"":.4L,-5:300, Cr=1pla:t=13:k(r,t)=1z(r,on)=z(r,e(r,t))y(r,on)=y(r,e(r,t))17,1;"TANKER ";t;" FROM DEPOT ";r;18,1;"TOTALLY SUBMERGED":20,1;h(r,t);" UNITS OF CARGO ARE LOST":300,:k(r,t)=0:h(r,t)=0:e(r,t)=1:o(r,t)=4:zx=ta:6900 Ft:r:z(1,on),y(1,on);1;5;"":9230$ >.25~6090 pe=1+(*35#):r=1+(*pla):17,1;"DEPOT ";r;" REPORT":18,1;"HIGH TURNOVER RATES ACHIEVED";19,1;"OIL STOCKS INCREASED BY ";pe;"%":j(r)=j(r)+(j(r)*(pe/100d)):300, >.25~6100 r=1+(*pla):17,1;"DEPOT ";r;" NEWS":18,1;"EMPLOYEES CAUGHT STORING DRUGS";19,1;"IN CARGO SECTION OF DEPOT";20,1;"POLICE FINE: `";(x(r)*.2~L):x(r)=x(r)-(x(r)*.2~L):300, ot=2+(*10 ):17,1;t;" EMPLOYEES ARE SACKED":p(r)=p(r)-t:p(r)<0p(r)=0 ͝18,1;"NEW PERSONNEL LEVEL: ";p(r);19,1;"WAGE CUT OF `3":q(r)=q(r)-3:20,1;"NEW WAGE LEVEL: `";q(r):300, >.25~62008 *r=1+(*pla):pe=(*502):17,1;"SABOTAGE AT DEPOT ";r:.5,-8:19,1;pe;"% OF STOCKS ARE STOLEN";20,1;"IN NIGHT TIME RAID":j(r)=j(r)-(j(r)*(pe/100d)):i(r)=i(r)-(i(r)*(pe/100d)):l(r)=l(r)-(l(r)*(pe/100d)):300, 8;7900:r=1pla:r(r)80000@x(r)=0 Br: 18,1;"INSURANCE REBATE: `";zx:x(r)=x(r)+zx:19,1;"BALANCE: `";x(r):300,:r=1co=1pt=0  X18,1;"DEADLINE DATE HAS ARRIVED":300,:r=1pla:16+r,1;"PLAYER ";r;" BALANCE: `";x(r):r:300, bZ18,1;"PRESS S TO START NEW GAME";19,1;"PRESS E IF END OF PLAY" l="s"3 v="e"0  7020l qt=13:r=13:<(.25~+(r/10 )+((3-t)/10 ))s(t,r)=s(t,r)+.3 r:t: ܛt=1pla:x(t)<0pe=x(t):x(t)=0:18,1;"PLAYER ";t;" TAKES OUT";19,1;"`";pe;" LOAN":r(t)=r(t)+pe:300, t: @pt>08100 Ax(x)<70000t(1,1)=0t(1,1)=1:m(1,1)=0:f$="TRUCK":zx=tr:c(1,1)=1:pt=1:8900":8100 Jx(x)<130000}x(x)>70000b(1,1)=0b(1,1)=1:n(1,1)=0:d(1,1)=1:f$="BARGE":zx=ba:pt=2:8900":8100 Tx(x)>130000}k(1,1)=0k(1,1)=1:o(1,1)=0:e(1,1)=1:f$="TANKER":zx=ta:pt=3:8900":8100 Jp(1)0)(pt=2g(1,1)>0)(pt=3h(1,1)>0)8150 #j(1)<10000'115s pt=1f(1,1)=0f(1,1)=10000':j(1)=j(1)-10000':f$="TRUCK":los=f(1,1):8800`":300,:8150 #j(1)<55000115s pt=2g(1,1)=0g(1,1)=55000:j(1)=j(1)-55000:f$="BARGE":los=g(1,1):8800`":300,:8150 #j(1)<950009115s ²pt=3h(1,1)=0h(1,1)=950009:j(1)=j(1)-950009:f$="TANKER":los=h(1,1):8800`":300,:8150  115s Spt=1sq=c(1,1):tp=1:15851:to08300l Spt=2sq=d(1,1):tp=2:15851:to08300l Spt=3sq=e(1,1):tp=3:15851:to08300l 17,1;"COMPUTER MOVES TRANSPORT":pt=1st=6:j$="TRUCK":tp=1:uc=1:c(1,1)+6>65Ast=65A-c(1,1) pt=11741 pt=2st=6:j$="BARGE":tp=2:uc=1:d(1,1)+6>546st=546-d(1,1) pt=21741 pt=3st=4:j$="TANKER":tp=3:uc=1:e(1,1)+4>25st=25-e(1,1) pt=31741 & 115s lpe=1:17,1;"COMPUTER UNLOADS TRANSPORT":uc=1:d$="OIL":pt=1j$="TRUCK":pt=0:lo=10000':1596< v@pt=2j$="BARGE":pt=0:lo=55000:1596< Apt=3j$="TANKER":pt=0:lo=950009:1596< A20,1;"WAGE DEMAND REJECTED":300,:5028 !4300,:17,1;"MANAGEMENT ACCEPTS";18,1;"`";dem;" INCREASE IN WAGES";19,1;"PERSONNEL: ";p(x):q(x)=q(x)+dem:20,1;"WAGE: `";q(x):300,:5040 !W20,1;1;" STOCK SOLD ":.5,-2:300,:5083 !&p(x)+hi>100dhi=100d-p(x) ![p(x)=p(x)+hi:17,1;"COMPUTER";18,1;"HIRES ";hi;" NEW PERSONNEL" "d19,1;"NEW PERSONNEL LEVEL: ";p(x);20,1;"WAGE LEVEL: `";q(x):300,: "`_17,1;"LOAD ";f$;19,1;"CARGO: OIL";20,1;"UNITS: ";los: "400:17,1;"COMPUTER MOVE":18,1;"INSURE ";f$;19,1;"INSURANCE CHARGES: `";zx:x(x)=x(x)-zx:20,1;"BALANCE: `";x(x):9230$:300,: #('k$="" #2'p$=" " #<;0:1:7::0,0;3;k$ #FWx=115:x,0;1;3;p$:x:16,0;3;k$ #PZx=1721:x,0;0;3;p$:x:21,0;3;k$: #Ix=14:t=17:a(x,t),u(x,t);6;"":t:x #@t=865A:a(1,t),u(1,t);6;"":t #Ix=14:t=19 :w(x,t),v(x,t);4;"":t:x #At=10 546:w(1,t),v(1,t);4;"":t $Jx=14:t=125:z(x,t),y(x,t);5;"":t:x $15,11 ;"";15,14;"";15,17;"";15,20;"";10 ,2;1;"";2,13 ;"";9 ,28;"" $bv=1pla:c=13:t(v,c)=1a(v,c(v,c)),u(v,c(v,c));1;7;"" $Ib(v,c)=1w(v,d(v,c)),v(v,d(v,c));1;2;1;"" $Ik(v,c)=1z(v,e(v,c)),y(v,e(v,c));1;3;1;"" $"c:v $ %pt=0:int=6:p(4):q(4):s(3,3):r(4):t(4,3):b(4,3):k(4,3):c(4,3):d(4,3):e(4,3) %&f(4,3):g(4,3):h(4,3):x(4):j(4):i(4):l(4):m(4,3):n(4,3):o(4,3):tr=8000@:ba=40000@:ta=90000/ %0x=1pla:r(x)=0:x(x)=20000 N:j(x)=(800 +*502):i(x)=(1200+*200):l(x)=(1500+*400):x %:s(1,1)=3:s(1,2)=5:s(1,3)=7:s(2,1)=2.5 :s(2,2)=3.5`:s(2,3)=5:s(3,1)=2:s(3,2)=2.5 :s(3,3)=3 %Dx=1pla:t=13:t(x,t)=0:b(x,t)=0:k(x,t)=0:c(x,t)=1:d(x,t)=1:e(x,t)=1:f(x,t)=0:g(x,t)=0:h(x,t)=0:m(x,t)=3:n(x,t)=3:o(x,t)=3:t:x %Mx=1pla:p(x)=10 +(*5):q(x)=(45-+*10 ):x: S2lAA=6=6WTRADING  A                    TRADING  kA         TRADE =v ?6         TRADE =w ?6            TRADE y     TRADE