ZXTape! 0Created with Ramsoft MakeTZXTYCOON bbd^46000:6:6:6::"":13 ,0:"":13 ,0:"" SCREEN P^`pp9< pB~<|<<B~<<< |B<R|<<@BZ|<<<<<<8?@DDD 0Dxxx<B<<<<> BBJ@N~B@8lx|@DDD DD?>Bx x" <0Dxxp>B?`|GB@BDBBBZBDD#0888? BBBF@BBBBB@8|p<BDx< B~<<<<<<ppp;<@88 >|<? .q@s@ `@CA`@ >@*||x| = B~B<<< @s?`< `7=A@0*A + <|B888x88p8<f@b@Bx1@qo0' 6 က ``.4ai?<<B D@0!"!'>Ru͉*ݳsubroutineӳ >͹"!*!!ѧRͳ|Ì*!!ѧRͳ|)*!!ѧRͳ|1ô*!!ѧRͳ|G9*!!ѧRͳ|]*!!ѧRͳ|s7*!!ѧRͳ|ʉ?ʾ*Ölen>͹"#*ôw$>͹!m,*شp$ִ>͹!C,*s$>͹!U,!! S}"!"! *}6!"**! !C^ ]!,**! !UÎ !,!"!*#!Q!mS[! #*#!]T!Q [! #ͤ|ڹ!!*#ѧRS"!"***#!ѧR!Q!mS[! #*!ѧR]T!QÖ [! #ͤ**#]T!QѶ ж[! #ͤ|ڹ*[K "0R33*}[K "}0R))!! S}"!"!"MM!,bb!,!! S"!"!S! *6!*}]T!C!,!S! *6!*}]T!U!,*[K "0Rʆ!S!  !,!*#!Q!mS[! #*#!]T!QÁ [! #ͤ|ʢ!!*#ѧRS"!"***#!ѧR!Q!mS[! #*!ѧR]T!Q# "[! #ͤ**#]T!Q^ ][! #ͤ|*[K "0R*}[K "}0RAA!@!s!@!s!@!sʾ!@*}s!@*s!@!sʾ!@*}s!@*s!@!sʾ*(p$&>͹!C,!! S}"!"*}! 6!"**! !C!,!! S"!"*]T!Qü [! #|!X! *}!6*!s*[K "0Rʡ*}[K "}0RUUʾ!"%!! S}"!"!! S"!"!@! *%6!X! *}6*~o&s!X! *}6*!s*%!"%*[K "0Rgg*}[K "}0RRR!!S}"!"!,*}[K "}0Rʾ!"%!! S}"!"!! S"!"!X! *}6*!@! *%6~o&s*%!"%*[K "0Roo*}[K "}0RZZ!!S}"!"!,*}[K "}0Rʾ!!S"!"!!S"!"!X! !*6*!?s*[K "0RSS*[K "0R>>ʾ!! S"!"!!S"!"!X! *6*!-s*[K "0R޽޽*[K "0Rɽɽʾ!!S"!"!!S"!"!X! !*6*!!6s*[K "0Rcc*[K "0RNNʾ*x\"v\Ϳ[K "0Rʩ͉*[K "0Rʑ͉P͉!! S"!"͉!!S"!"͉!X! *6*!-s͉*[K "0RFF͉*[K "0R..͉P͉!!S"!"͉!!S"!"͉!X! !*6*!!6s͉*[K "0Rݿݿ͉*[K "0Rſſ͉P͉*x\"v\Ϳ "'0Rʓ*![#K% "!0Rʉ!! S!"#!"%!"-í!,!,!! S'")!"+!S! *'6!*!]T!!,!S! *'6!*!]T!!,*'[)K+ "'0R!SÁ !,!*!Q!S[! #*!]T!Q [! #ͤ|[!!*ѧRS-"/!"1*-*-*!ѧR!ɳ̳1G] s p3,0$/08jڹtXb@l7 ?#)T$$9'ʾо!abcdefghijklmnopqrstuvwxyzA$B$C$D$E$F$G$H$I$J$K$L$M$N$O$P$Q$R$S$T$U$V$W$X$Y$Z$A(B(C(D(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z(JUMpLEnXxK% "!0Rʲ!!S!"#!"%!,*![#K% "!0Rpp*!"!! S!"#!"%!! S'")!"+!X! *!6*'!@! *6~o&s*!"*'[)K+ "'0R*![#K% "!0Rʺ!sordid cossett e lunar e hunfold nestlec i seeds t mcant say cedeopera r trees a ink die l erred p sectsstud pop draws m dotes a oambles dustery l attar e dsteers lensesportal dulceto a rates o itactic tentera e defer t atome sir reedovens g carve a nap dud a stout f bardsperi col reeli a torus b itinged ribalde g resin t edreams defersvernal toileta e pagan o icapped purlina a denes l knose nod weretotal t rider z sit pod b feted t demurodes pet raser s claim n fgateau legatee e smile g rsurges stresscurare pallidu e expel a rrepent noodlel e trace l aeras ace dearwalls t testy v oil pin t seton t pedalclip tim serea m sheet p srebate riderse e urged n ederide seederpetted repastu i valid r igambit gerbild b lemon o todes sir musegores d hired r way ton t fined t bigoticer sob menun e opera a riodine ecartea e cedar e elidded deadensalute scrimpu i rally n agannet ospreya g kempt o ereel roe datesaree p kudos v mat rip t demur n deteruser his samem n cilla m adotted extendu o level s emurals teeterassist tindert e lifer u atorpid picnice v denes k istem see lesstorus w madam p sex sac p beset t perileras nil sidet t macaw p struces valetse r raped s erunnel setterplanet fatheru r rotor o afriday runletf s serum d hiced dim merenosed m borer b cos mar b croon l gaseshair cog yelpa l zebra v espiced appeale n rains r lsignor detersslalom mimosat d ionic l danvils noticen e seton v pzero sir nestantic p rases t lug pod v sever r widesarid lot rentm o hides r epollen nativea e rebel v rnatter tepeesspider palaceu developed npained retorte o rated r erats nod deara sew p wad tb dew fez au lad y bed ineon nap deand c naked c mabased damagen levitated nteeter latesttomato spreadr adoration iabided rebelsn d sever r astem raw agoga nag n sty rt can but el day k map eanew sit reamn a otter r etirade rationi elemental tcaress sensesmuster dimplee menagerie strendy modesta l solon v amoth nun herbo sop g nod lr vim pat ip met d gem shair lam lotho r nabob r mstatic reposei generates nseeded latentpauper biasede venerable irounds sievess l sects e ipeat toe crani sap w hoe tc nut had ea fit w yes rcoin len denei n cuban c sorator solentu laminated estewed legendinmate italicn originate ocanter trepano g reset e snoon tor traps lop t his ii dan rod cd vet b eel ueras was silor l fight n uarisen oratest selective levents smellypoplar essaysa levitated lrooted rotatea v renew p eleer sad stopl red g was le vim cap el led t nib soval top damsg n tenor n nracoon resalea entertain smodest sprayseaster basaltm parataxis aballad rinsese a saves e tlast rid antel hit e ant li nod urn es ego t cup shone man lapsm d moped r nedited palaten venerated strends lagersimpale lizardn initiated isplash tenorsi l totem n agrab sir tipsn rob t pus si lac car of can h yes cices hen genic n lemon c aantler momentn renovated etreads detersdogged skatedi reverence istamen votersa v renew t ipeel son beanp sad d per to cup mat ei red v yes gneed bar leert m motel c aisobar momentn televised egreets tenetsdespot staredi libertine isaigon anticsh d eerie n aover tar deedn son n lid vo bog log au pot p bid nroot pat texta m valid r ablazer tapingl delighted eemends eatersimpact talcumn illogical acaveat ridinga o paled m nnote lid sarid sap t tax fe gay mix is sly h cos ccote gag napee u negro n nnectar indentc commences lelopes sentryripest statede retentive ipeeler adeptsr s padre e mewer ire wereh teg y has me sip cod bn tin d web espin fob doori m sleek v mbobbie entirel retention nexeter streetpratie canardh reticular iindeed bargesl o meres a palum rid flean rob g via rt rim man ah cad d nap treal vim lameo m lemur n nprefix teazlei reference scrazed sternsescape essaysf enigmatic efilter rattane l deter o sroot ted treev sot g has le top sip es sew d sic schum but robse t cadre u nneuter aversec redeemers sevened preensnewest statica repudiate otoiler trepani t widen e tover nod heren row n cos na pan tot tl ten b bet eiris ham lords r wades p ntrader elapsei directive screpes startssynods passede editorial imurder addersi v dents e acued wee atopo sop w sty pn tug cat ed vet f par aused mob rearc n oared s atutors saloono elastomer criddle mettlestrobe sistere exerciser elinear linealf d reels m iseer day longl rap t per ia via sea ou ten p ash uglad moo earsh r iambs p ntyrant elapsee extensile srodeos emendsscalar remande ricepaper imitten metresi i revue i icast was oveno teg t hoe vn new fez ed cot m net supon lac softc v donor i mtrepan mealieo remediate nrotter creditexpose staredx expatiate itapers treadsr p yemen p cages sad leerc rip d nor ie din led ml ale n wet ilure sit seenu m solos n aleaden repasta duralumin oreader sittercalami glaredo exonerate inovels amendsj i eerie d funto til perig yob d per ga zax man ut bed s ram rekes lam loren s ducat u meditor lassies digitalis nseeped recentfinale maimede alienable ilinear tulipsi i rivet n scast ear siloi mob n bee lt pad kid ua her t dam ttear pom notei m error u nohmage tissuen exosmosis sstress renewsderate spurger economise xadvent iceaxem e grate c mairs eve stopt tip e has lu dew col ar jet t peg rgrid tea sarii v going r ncretin greasea ravelling slisped endersattest atonedp repulsive ipeeled heavesr p doter a sopal run edgex not g ava mi cad obi im fug p alp narum cab serat r tunic t tisobar braiseo repellant rneeded enterschaste staredo reinstate istones agentsm m suits d copal eve peerp sew y tor io met was ml cod h bed iiran dud seent v rebut p aironic cohorts resonator omatter letterdomino petarde emendator itempos scorese o neath o srare tis tyroi yaw t boo lo sap yak ur led c pep tarid fog noset m cigar l nimpale mealiev exanimate sextend amendscretic ribaldi renovator iremand sewersc i seism n aurns doe carpm ear n has pv tag nil ea tap l sic aloon fob fairl r elgar v aarroyo saloont idealiser celdest settleenmesh rotorsf alligator eforked pinione k denes g sreel sad pinev tor b hen le bug son es den v was scues tis letse p chaps v nneater racemec resonator sestate tenetspetard porousa anaerobic irustic demeane t doggy l gneed ray foolt red y jet eh bin pat he tip h web etart mat datai a limit s rcocoon erranta editorial elasers sottedpedals statese eliminate lrevere iceaxep o elope m eeats tie keepn eat l bid ld tow hot ei set b web scots tic sobsu a nigel v nlagoon nativea education sresent screwsplater slavedh retentive iintend avertsl e adore g ioars yak seens yap k per to pot lip ep fix v pad gheed tis liari r grate v acorona artista education elatest enterssenors tunersc idealiser eaccent retailn h denes s fdeed dud seepa sip t cud ol vow tom sm mop t sac somit lac caven r cubes n sgrader diodese garibaldi ereeded roddedteased canarde ridiculed erustic retipsm i tells e uinns day fulln eel y his ta dam man ot map m sac riran ham locio n hocus r nnotion seancea immediate slisped creamspossum hazarde hesitated irained rondoss n datum e apeer sum dripi red g has pc via rim ea jug m tea aclue tub sluri m urged m aoppose gaboonu edentates csurest nettleposses treatsu topiarist escaled assaili m eerie x flien din limpl nod d boa ra dog bag on den p roc pibis mar sorem l cedar a lorator barrelu televises escenes dependticker sprayso ridiculer oplated rudders d nevas o ryell rat ludot eat n sir wu cot tam fr dew d pip uvied lit toily p lemon l ndragon mealieo rubicelle smitten slingsvivace shroude elevation irecede entersa t erred w fcool yap hairi rod t hay ao cat sir nu dud t pep cseem sob mothn a spear l ierrata realmss elucidate estride spendspilots stairse earthworm erotter entailv t kills g faver pal sewss rap d yes ui vet fed pv bet s tar peven lac neron s ducat m reditor rapists digitalis eseemed tensedchalks plagueh denigrate nundies edenicr e eases d ocart len menuh sad t per rm put pal aa red t roc gneed bet noses g slain r mhorace teeniei ecosphere npatent errantsplosh alaskai intervene ldemean astrale i gross v esate yet cellp sap r pod ol sag via mi ley t elf oteed sob slurt a spree a pimpala ambushn education igyrate staticfeudal straitl registrar eopines romperr n sprit e pivan sap antsc lad j art iu con big cl ore t rod htire col nerou n denim m rreaped boridea tenebrous aleered asternsst enterssenors tunersc idealiser eaccent retailn h denes s fdeed dud seepa sip t cud ol vow tom sm mop t sac somit lac caven r cubes n sgrader diodese garibaldi ereeded roddedn`*F(w#"F( ~([]\[R8ѯ&o2)B *[R"[\R86 T]n^ADn^ADԾd Microdrive MCODER 3.0  1984 THRELFALL and HODGSON Compiling Line Compiled OK Begin End Vars Lines Names Nmtop Ctop Nvars To run type*[#"!"">P͒uk uP6*S| *\#"*`>!!>"k!u~(**S\""###"]\i̊(̬5p̷A !^̚Qd̂+*h8A !(p #k80!M !!u¯*]\~: N *]\~: N ¯͉*T*6#6#[͟!#  !uĐH'jS\[K\R8*Y[WR"U*S\T ))[UR"[!6:͒*S|(P*=\^#VWͯ*K\[S\RDM[K\*+6+6:+S]\S*S\"K\6#"Y\ͰKS͔ͯ++*\ʹ*+ʹ*ʹ*[ʹT*Uʹ*ʹ*Yʹ> &:oʹo*\ʹ!7͵*U6#6#>aw#<>Aw#6$#<>Aw#6(#<6">!*[.>:g>*U!!{=\KCE\!B !vj!6SU"[͒*K\~_ ͸*K\U#6_#6#6ð*=\++!8*e\ ""*E\"7z(J{!90){ ͚KB#))yx0|g}o(yxpyOxGx D|ܧ|G||/g}/o# V(N *U>?U27GKa\ ! ("+(-  (3:008 )))_!( C_\2`\n(!qKa\ -̧͂Ϳ!q\~ ~@ 6 y0>"+w"[\,*a\~7~7!!\\6*a\~ #7G*c\[a\+7~ +RDM,x !'O0N!& Fz8( )>`>`{ !6!R( >`!( !!R!(!( >`> >`>>!R!"!"!"!"ï||!|!+!#!+!#8͢-`i!( ( 6:ү0گ0O *]\"]\>`}`|`V#^"l\"I\.ͦN > > > ͩ͟[͟[R"~(!>!*l\!>T"E\2G\És#r#^#V#!|±*[ͤB*R##>-0 !ͩͤ>ͩͤ*]\#~: > "]\*]\#~ ("]\ (( 8:( N:> !W6z!bn >M ͠ 67B[v\c.zRR_PR0#"v\˼DM (>*!x\>"!v\|( >-ͧ> '00d0 0d R>0R8<####^#V{ x͟ͅ####q#p`iR(0^#VBK^#V͍Rx*4^VR0 ut *K\͸x bkU*K\#^#V r+s>!>`>`!#)BKx  ͟ 6T]!K!) >`!!>*>`>[####>`>K> `>"!!0!!Rͤz ñ>>!S>"#### >!!>"[ß!s,¯>`!|( =!"!#*]\!|>`*I\#ͩͤ!i8 .K&E!"[!ͤͤ!u 6 !!7# >}`!4',;ṛ̴N @(! ">`!>!!>"*]\#~$F+!!.ʹ!J*[RDM>`**]\#~N(" #~+" #`"]\[Fğ>>!>}|!>{}, >>.&r;r+r'!rN(!> !rAگ˯[үKe\*]\#~08:8 A8˯[0˯(2($  }&o)P8@) K G:$(( x>*UKe\2 o Gn #n#(Ke\!4 ñ~ w#[YR8 +6ñ"o(w":!Fw*K\R8*Y\RC !>`&=¯| !!>" !~o!&! C"( !˯Aگ&o>>*!{\"¯> ``i!>*>`.+͹>`.>g*SRgoo !j !|>!>!!##ͤ !$||.&§M>`>&h.!& "!%.K&E!.`&i !"T (0ͯ>!&j !>ܯ!Ϳ*SRDMͲ*˸5 .8++͢-`i>`>`c-((0 A5L/=!G$xc>*>!##N#F#~ :K\:L\u:\2\>M :\ <͎ 0_3>ͬͬ!!/!>.&8_|(ULGö*o>>&.}&>}`!"-ͬ !w$ ͬ!#>.&>.&!i8ï-ͬͬ!-#!8*]\#~"]\:($ ( ! (>"##.>g!:(!w#6#*l\#ͩͤ>*| *"*[Fğ" Y>`-̧ ( >`ί`*"!!>6zͩͤ###>!>"! !>`!' !>!! !>" *|  ͤ~# ͤ"!*|  ~( ,*  ~# ͤ">`>!i>!(wa!!ͷ!!ͷ>!!,*]T6 *K\R8 [Y\R8*x.+((" Yè # !D!è !>͜è !è !è !1èKE8%+x[è}H6+x( ( 3*]\~) !]T ¯!>!!>!!S!)÷_GLUͶ*.8+!>͜è"}2 ɧRDMx ͤ*e\ ""x*S*[R x(*##q#p[""*>w#!.+ʹ!Qͷ![!>!!= . / .('> !(.8<( .8 ¯!(.0&>#`*K <4#!*]\~R (I#(* ( *]\##~$ >"Rͷ>"R>R>"R!!>"R R!g.>g!^*w#"*K\Ͱ*Y\U#"]\*[RDM066 *=\!s=\͐"=\Ͱ::\*K\RDM!R!6("(" ( $((MS S \WWq P P P 3\MOZO\GWq !c>>BB<DHpHDB@@@@@~BfZBBBBbRJFB0l(p)=(l(p)*(1+f(p)/100d)) fb(p)=1810* hc(p)<15000:108l l109m:140 m c(p)tr stemp=1000 x0c(p)+temptrcost=temp:9400$:130 y!temp=temp+1000:120x 19,17;2;7;1;" Insufficient ";20,17;" Funds ":i=15:1/10 ,32 :20:i:16,17;6;0;"A loan of ";cost;17,17;"has had to be ";18,17;"forced on you!" Ml(p)=l(p)+cost:f(p)=f(p)+1:c(p)=c(p)+cost:8200 :9400$: {23672x\,0:23673y\,0:23674z\,0:9200#:9300T$:9400$:8200 :8000@ Nnett-10000'2,20;1;7;2;" Bankrupt ":1,1:9400$:17,17;6;0;n$(11 *p-10 11 *p);18,17;"is BANKRUPT";19,17;"and must leave";20,17;"the game":i=1200:a$=:i:b(p)=1:900 2flag=0:a$=:7800x:a$=""180 H1/10 ,32 :a$="i"3000 :flag=0300, -a$="r"1000:flag=0300, a$="c"300, a$="t"2000:300, %flag=18000@:180 180 ,8100:8200 6a$= @$a$=:7800x:a$=""320@ Jc1/10 ,32 :a$="b"fflag=1:4000:fflag=0:109m:400 T*a$="r"5000:109m:400 ^+a$="s"6000p:7000X:800  ha$="p"800  r 3106 9200#:16,1;7;0;"Do you wish to";17,2;"sell a word?";19,6;"Y/N":f=110 :a$=:f <a$=:7800x:="y"6000p:7000X:800  ="n"800   410  Xnumber>19200#:9300T$:9400$:8200 :i=1300,:i *p +i=1number:b(i)=0100d i:7040 9200#:l(p)=017,3;7;0;"You do not";18,4;"owe any";19,5;"money":7800x:7800x:flag=1: 16,2;7;0;"Input amount";17,2;"you wish to";18,5;"repay";20,1;2;"`-----max=loan" 2len=5:7500L:w$=01020 ?i=1̱w$:w$(i)>47/Ưw$(i)<58:i:1040  1010 $temp=w$:temp<01010 temp>l(p)1010 temp>c(p)1010 $Kl(p)=l(p)-temp:c(p)=c(p)-temp:l(p)=0f(p)=6+(4-d(p)) . 9200#:flag=0 ښ16,2;7;0;"Input amount";17,2;"you wish to";18,5;"borrow";20,1;2;"`---- `1-9999" 2len=4:7500L:w$=02020 ?i=1̱w$:w$(i)>47/Ưw$(i)<58:i:2040  2010 'temp=w$:temp<10002010 "l(p)=l(p)+temp:c(p)=c(p)+temp: 9200# l(p)0flag=1:17,2;7;0;"You cannot";18,2;"invest with";19,3;"debts of";20,5;1;7;2;"`";l(p):i=110 :7800x:i: ̛16,2;7;0;"Input amount";17,2;"you wish to";18,5;"invest";20,1;2;"`----- @5% Int" 2len=5:7500L:w$=03030 ?i=1̱w$:w$(i)>47/Ưw$(i)<58:i:3050 3020 $temp=w$:temp<03020 temp>c(p)3020 &i(p+12 )=temp:c(p)=c(p)-temp: (9200#:5006:flag=1 16,2;7;0;"Move cursor";17,2;"with z.x.k.m";18,2;"Use ENTER to";19,2;"pick letter":x=7:y=7 ^t=(22528X+32 *y+x):22528X+32 *y+x,36$:j=15:a$=:j %a$=:a$=""7800x:4020 91/1000,502:22528X+32 *y+x,t +a$="z"x>1x=x-1:4010 ,a$="x"x<13 x=x+1:4010 ,a$="m"y<13 y=y+1:4010 +a$="k"y>1y=y-1:4010 a$13 4010 :(y,x)5681/10 ,32 :4010 cy,x;1;7;0;p$((y-1)*13 +x):c(p)=c(p)-tc:8200 :109m: 9400$:5006 flag=05010  Iflag=0:i=113 :j=113 :(i,j)=568 j:i 9400$:flag=1:1,1:17,20;0;6;"No letters";19,22;"left !":i=1100d:i: r16,17;6;0;"Letter chosen";18,18;"has cost you";20,21;"`";tr mx=((59997]/2520 )+1):y=((59997]/2520 )+1):(y,x)5685020 y,x;6;1;1;p$((y-1)*13 +x):i=010 :5/100d,32 :10 :i:y,x;1;7;0;p$((y-1)*13 +x):c(p)=c(p)-tr: p 9200# z16,1;7;0;"Input the word";17,2;"you wish to";18,6;"sell";20,1;2;"?-------------" <len=13 :7500L:len=w$:len26010z cost=len*td:9400$:16,1;7;0;"Verify correct";17,1;" spelling ";18,6;"Y/N " %a$=:7800x:a$=""6040 F254,8:254,0:a$="y"9200#:6080  a$="n"9500%:6000p  6040 c(p)>cost6110 +9400$:19,17;2;7;1;" Insufficient ";20,17;" Funds ":i=15:1/10 ,32 :20:i:16,17;6;0;"A loan of ";cost;17,17;"has had to be ";18,17;"forced on you!" tf(p)=f(p)+1:i=1len:l(p)=l(p)+td:c(p)=c(p)+td:1/10 ,32 :8205 :i:9400$ subroutine=6:pointer "16386@=06245e B16386@=1i=16384@:j=16385@:6250j B16386@=2i=16384@:k=16385@:6260t e9200#:16,8-len/2;0;w$;18,1;7;0;"is not in the";19,2;"crossword":9400$:16,18;7;0;"That mistake";17,18;"has cost you";18,17;6;1;"Cost =";td;" *";19,17;"Length =";len;20,17;"Total =";1;len*td:c(p)=c(p)-td*len:i=1100d:i: jAa=1len:(i+1,a+j-1)=480a:6300 k9200#:9400$:18,1;7;0;"WORD ACCEPTED ":total=0:9400$:l=26:a=1len l=(i+1,a+j-1)=568l=2total=total+tu m=(i+1,a+j-1)568l=2total=total+td ni+1,a+j-1;l;0;w$(a);18,17;6;0;"Credit `";total:1/100d,32 :s$(i*13 +a+j)=w$(a):a:l=l+3:l oc(p)=c(p)+total r tAa=1len:(k+a-1,i+1)=480a:6300 u9200#:9400$:18,1;7;0;"WORD ACCEPTED ":total=0:9400$:l=26:a=1len v=(k+a-1,i+1)=568l=2total=total+tu w=(k+a-1,i+1)568l=2total=total+td xk+a-1,i+1;l;0;w$(a);18,17;6;0;"Credit `";total:1/100d,32 :s$((k+a-2)*13 +i+1)=w$(a):a:l=l+3:l yc(p)=c(p)+total: {9400$:18,19;2;7;1;"Word Sold":l=120:1/20,32 :l: X(i=113 :j=113 b(i,j)=568 l(i,j)=120x vj:i o9400$:9200#:9300T$:1,1:16,3;1;2;7;"GAME OVER" {18,1;7;0;"Press any key";19,1;"to show scores";20,1;"ENTER to start" number=17060 Ui=1number:r(i)=c(i)+i(i)+i(6+i)+i(12 +i)-l(i):r(6+i)=i:i &i=1number-1:j=inumber er(i)>r(j)yy=r(i):r(i)=r(j):r(j)=yy:yy=r(6+i):r(6+i)=r(6+j):r(6+j)=yy j:i winner=r(6+i) p=1number a$=:a$=""7070 a$=13 7200  8200 :number>19400$:p=winnerb(p)=01:18,17;7;2;" TYCOON ";17,17;" GAME ";12 ,24;7;0;nett:0 Hb(p)=12,20;1;7;2;"Bankrupt!" p:7060  0:7:0: 4*i=1number::0,11 ;y$ >z3,1;"OK ";n$(i*11 -10 i*11 );5,1;"Do you still want to play Y/N ?" H Ra$=:a$=""7250R W1/10 ,32 \a$="n"7270f ]0a$="y"b(i)=0b(i)=10 :7420 ^<a$="y"b(i)=17490B:b(i)=10 :7400 a 7250R fh7490B:8,0;"Anyone replacing ";n$(i*11 -10 i*11 );" Y/N" ga$=:a$=""7271g hKa$="y"flag=1:8545a!:flag=0:b(i)=10 :7400 i"a$="n"b(i)=0:7400 k 7271g @i:number=1b(1)=0number=0:25 Bnumber=1b(1)=10 b(1)=0:25 &i=1number-1:j=inumber b(i)>b(j)7406 Va$=n$(i*11 -10 i*11 ):n$(i*11 -10 i*11 )=n$(j*11 -10 j*11 ):n$(j*11 -10 j*11 )=a$:yy=b(i):b(i)=b(j):b(j)=yy:yy=c(i):c(i)=c(j):c(j)=yy:yy=d(i):d(i)=d(j):d(j)=yy:yy=l(i):l(i)=l(j):l(j)=yy:yy=g(i):p=012 6:yy=i(i+p):i(i+p)=i(j+p):i(j+p)=yy:p j:i 6i=1number:b(i)=0number=i:7410 b(i)=0:i :8585!:25 [8,0;"Do you wish retain cash ? Y/N":f=110 :a$=:f a$=:a$=""7440 1/10 ,32 a$="y"7400 $ a$="n"7490B:7400 . 7440 Bxb(i)=0:c(i)=1000:l(i)=0:i(i)=0:i(i+6)=0:i(i+12 )=0:g(i)=0: Lw$="" Qj=110 :a$=:j V%a$=:a$=""7800x:7510V `2a=a$:1/1000,32 :a=13 j.a=13 20,2;"":7500L ta=32 7510V ~a12 7580 2w$=01/2,1:7510V N20,1+w$;2;"-":w$=w$(1(w$)-1):7510V 0w$=len1/10 ,30:7505Q (a$97aƯa$122z7590 'a$480Ưa$5797590  7510V Ew$=w$+a$:20,2;2;w$:k=15:k$=:k  7505Q w Clock routine  x}109m:time=((65536*23674z\+256*23673y\+23672x\)/502):21,15;7;1;(120x-time);" ";16,17;7;2;" Prices ";17,17;6;0;"Shown `";td;" ";18,17;"Unknown `";tu;" ";19,17;"Bought `";tc;" ";20,17;"Random `";tr;" " y"H"7810 zQaa=23674z\:bb=23673y\:cc=23672x\:subroutine=5:pointer {=""7803{ |;="R"21,1;7;1;"R.Kinge 1985" }subroutine=7:pointer 023674z\,aa:23673y\,bb:23672x\,cc time<502 time=59;up=60<: Vtime=uptd=td-5:tu=tu-10 :tc=tc+2:tr=tr+1:up=up+10 time<120x :fflag=122528X+32 *y+x,t:fflag=0 9200#:9400$:21,15;1;2;7;"00":i=110 :1/10 ,32 :20:i 16,2;7;0;"You have run";17,2;"out of time";18,1;"you lose your";19,4;"turn and";20,5;"`";(5-d(p))*200:c(p)=c(p)-(5-d(p))*200 #i=1100d:i:800  @9200#:16,5;7;0;"OPTIONS";17,2;"Take a loan";18,2;"Repay a loan";19,2;"Invest a sum";20,2;"Continue": 9200#:16,5;7;0;"OPTIONS";17,2;"Buy a letter";18,2;"Random letter";19,2;"Sell a word";20,2;"Pass your go":  9300T$ 5;0;4,21;"+";8,21;"-";12 ,18;"Nett `";10 ,19;"@";f(p);"%";1,19;6;0;n$(p*11 -10 p*11 );3,18;5;0;"Cash `";c(p);9 ,18;"Loan `";l(p);5,18;"Inv1 `";i(p);6,18;"Inv2 `";i(p+6);7,18;"Inv3 `";i(p+12 ) 0nett=c(p)+i(p)+i(p+6)+i(p+12 )-l(p) 11 ,24;5;0;"-------";13 ,24;"-------":nett=012 ,24;7;0;" ZERO" Lnett10000'2,19;1;7;2;1;y$ :nett<012 ,24;2;7;nett &:nett>012 ,24;0;7;nett 0 !4Sflag=0:0:0:7::y$="T Y C O O N":0,11 ;y$ !> "How many players (1-6) ? ";a$ !H2a$"1"a$"7"ưa$=(a$)number=a$:8540\! !R 8510>! !\i=1number !a:0,11 ;y$:4,1;"Input Player ";i;"'s name":t$:t$""n$(i*11 -10 i*11 )=t$:8550f! !b 8545a! !fU4,1;" OK ";n$(i*11 -10 i*11 );" ";6,1;"How do you rate yourself ?";10 ,5;"1) Good at Business";11 ,8;"Good at crosswords";13 ,5;"2) Fair at one";14,8;"Poor at the other";16,5;"3) Poor at the both";18,5;"4) Beginner" !pJ"Difficulty (1-4) ? ";a$:a$"1"a$<"5"ưa$=(a$)d(i)=a$:8580! !z 8560p! !-flag=1f(i)=6+(4-d(i)): !"f(i)=6+(4-d(i)):i: !total=0:i=1number:total=total+(5-d(i)):i:total=((total/number)*10 -9 +(59997]/2730 )):total>491total=45- !p(total)=0no=total: !(i=total491:p(i)=0no=i: !i !0i=total1-1:p(i)=0no=i: !4i:i=1502:p(i)=0:i:8585! #(/0:0:0:0::7 #)_0,0;2;2;" ";0;" ";2;" " #*\i=113 :i,0;"       ":i #+`14,0;2;2;" ";0;" ";2;" " #,H15,0;1;1;" " #-[i=1620:i,0;1;1;" ";i,15;" ";i,31;" ":i #.H21,0;1;1;" " #1*23232Z,0:23264Z,0 #20,5;7;2;"No:";no:p(no)=1:i=1169:s$(i)=" ":p$(i)=((50760H+169*(no-1)+i)):i:subroutine=4:pointer #<9i=126:r(i)=0:i:i=019 #FBx=((59997]/2520 )+1):r(x)=29030F# #PKy=((59997]/2520 )+1):r(y+13 )=29040P# #ZKs$((y-1)*13 +x)=" "p$((y-1)*13 +x)" "9070n# #d 9030F# #nr(x)=r(x)+1:r(y+13 )=r(y+13 )+1:y,x;1;7;0;p$((y-1)*13 +x):i:9200#:9300T$:9400$: #subroutine=1:pointer # $Tsubroutine=2:pointer $^ $subroutine=3:pointer % _aplater slavedh retentive iintend avertsl e adore g ioars yak seens yap k per to pot lip ep fix v pad gheed tis liari r grate v acorona artista education elatest enters latest entersfla2ubroutinointeumbelaota*'xydlaye;xFet!ime Xjost8 WsacKT112!!]!!!!EB Э ӭ Y T Y C O O NA