TG?& !6"~D:\!6=12345;k=TNC:work=n1st=st+n1:430 work=n2f=n1:430 "work=n3sale=sale+n3:430 ,work=n4st=st+n1:sale=sale-n1:430 work=n5i=n1:430 work=n6end=n1:430  421   Ĥ236077\,239:n4:n4:n9::n0,n0;n7;n1;n$;n1,n0;n0;" HhOoNnEeSsTt HhAaRrRrYy ";n2,n0;" ^7;!Vv_4|$>% ^7~0<#<#[) ";3,0;n$ n8,n2;"";n9,n1;n0;;"";n7;" ";n4;"";n10,n1;n7;" ";11 ,n0;n4;n7;"";n5;n1;"";n7;" ";n1;"";n7;" ";n7;n4;"";12 ,n0;"";n2;"";n4;"";13 ,n1;"";14,n2;n7;n2;" ";15,n2;n4;n7;"" :236077\,243:hh=n1+(*n4):450+(hh*n10) ̴n6,n10;"A real bargain to you";n7,n10;"Guv,5000 cassettes, ";n8,n10;"brand new,good quality";n9,n10;"a give-away at...";n10,n10;"`750. What do you";11 ,n10;"say, Guv?"  9550N% l$="N"499 Hl$="Y"9850z&:ass=ass-750:dup2=dup2+5000:498  460 ֯n6,n10;"A real bargain to you";n7,n10;"Guv,two programs ";n8,n10;"good quality (*)";n9,n10;"a give-away at...";n10,n10;"`350. What do you";11 ,n10;"say, Guv?"  9550N% l$="N"499 Jl$="Y"9850z&:ass=ass-350^:st=st+n2:sale=sale+n8:497  470 n6,n10;"Listen, Guv, I've";n7,n10;"got these 5 programs";n8,n10;"you might like";n9,n10;"it's all good stuff";n10,n10;"all ***";11 ,n10;"How about say";12 ,n10;"`750 for the lot?"  9550N% l$="N"499 <l$="Y"9850z&:ass=ass-750:st=st+n5:496  480 tn6,n10;"Sorry, Guv";n7,n10;"Nothin today";n8,n10;"but I hope to";n9,n10;"be gettin some";n10,n10;"thing soon" 921,n8;"ENTER to continue":9600%:499 "cri=n1+(*n8):cri=n1crime=n3 "cri=n1+(*n4):cri=n1crime=n2 "cri=n1+(*n6):cri=n1crime=n1 /ass-100dn=n1150:n:2162r  -bus=n1c2=n1art=n1rev=n1tv=n1549% 236077\,239:n6:n6:n9::n0,n0;n1;n6;n$;n1,n0;" IiDdEeAaSs ";n2,n0;" Jj-3_4~0|$ ";n3,n0;n$ f236077\,251:3;'"Each of these ideas may be used once only to try to boost sales."' bus=n1507 'n8,n0;"1.Free Booklet....cost=`3000" art=n1509 8n10,n0;"2.Articles in papers,mags. etc.":" no cost" c2=n1511 H13 ,n0;"3.Short, second program on each ":" tape...cost=`4000" rev=n1513 916,n0;"4.Push programs for reviews":" no cost" tv=n1515 019,n0;"5.Pay for TV advert..cost=`5000" M#0;" Choose number or Press Enter to continue " L$=:L$=""518 .019{T,34.5 L$=13 549%  &L$>535ůL$<491518  !gi=L$:gi=n1bus=n1548$  Agi=n1ass=ass-3000 :sale=sale+n7:bus=1:548$  gi=n2art=n1548$ (gi=n2sale=sale+n8:art=n1:548$ gi=n3c2=n1548$ ;gi=n3ass=ass-4000:sale=sale+n9:c2=n1:548$ gi=n4rev=n1548$ (gi=n4sale=sale+n3:rev=n1:548$ gi=n5tv=n1548$ 6gi=n5ass=ass-5000:sale=sale+14:tv=n1 $ass-100d2162r % +236077\,239:n3:n3:n9::n0,n0;n7;n1;" ";n1,n0;" MmAaRrKkEeTtIiNnGg ";n2,n0;" Qq~0<#+8_4>%JjVv}6 ";n3,n0;" " -+236077\,247:n4;'"ADVERTISING" 0'"Choose how much to spend on youradvertising this month .":'"0...`0 1...`100 2...`250":"3...`500 4...`1000 5...`2500":"6...`5000 7...`10000" 2?15,n6;"Select Option 0 to 7":ln=n0:hn=n7:9800H& 3&15,n6;" " 5tnc=n0sale=sale-n5 6)tnc=n1sale=sale-n2:ass=ass-100d 7)tnc=n2sale=sale-n1:ass=ass-250 8tnc=n3ass=ass-500 9*tnc=n4ass=ass-1000:sale=sale+n2 :*tnc=n5sale=sale+n4:ass=ass-2500 ;*tnc=n6sale=sale+n8:ass=ass-5000 <1tnc=n7sale=sale+12 :ass=ass-10000' >13 ,n0;n4;'"DUPLICATING":"You can pay the following amountper cassette for duplicating (plus the cassette) .":3;'"0...No duplicating required.":3;"1...50p 2...75p 3...`1.00":3;"4..`1.50" ?A#0;" Select Option 0 to 4":ln=n0:hn=n4:9800H& Atnc=n0599W B-tnc=n1dp=502:sale=sale-n2:pc=pc+n1 Ctnc=n3dp=100d D#tnc=n2dp=75K:sale=sale-n1 E tnc=n4dp=150:pc=pc-n1 F:;n4;"HOW MANY COPIES?":'"Choose how many copies you need for this month.":3;'"1...100 2...250 3...500":3;"4...1000 5...2500 6...5000" G@#0;" Select Option 1 to 6":ln=n0:hn=n6:9800H& Itnc=n1dup=100d Jtnc=n2dup=250 Ktnc=n3dup=500 Ltnc=n4dup=1000 Mtnc=n5dup=2500 Ntnc=n6dup=5000 T!ass=(ass-((dup*dp)/100d)) Vdup2=dup+dup2 W ]236077\,239:n1:n1:n9::n0,n0;n6;n1;" ";1,0;" LlOoAaNnSs ";n2,n0;" =9;!~0Vv|$ ";n3,n0;" " b236077\,60<:''"You are allowed to borrow `1000 only each month.":'"You will pay back `1000 plus an interest rate of 10% per month.":'"You can only go into debt a certain amount, depending on your assets." d0;n2;''"Amount owing.`";int2+bor2 eint2=n0620l fR20,n0;n4;"Do you want to pay your debts.":9550N%:L$="N"618j gL$"Y"605] habor=n0:int=n0:ass=ass-(int2+bor2):int2=n0:bor2=n0:ass-100dn1:502:2162r i 640 jint2=((bor2/n10)+int2) lT20,n0;n3;"Do you want to borrow `1000? ":9550N%:L$="N"628t mL$"Y"605] nbor=1000:int=100d pbor2=bor+bor2 qint2=int+int2 rQbor2-ass>5000"SORRY...No more borrowing.":150:bor=n0:628t sass=ass+1000  y12 y=n0:msmm=ms y=y+n1:z(y)=ms msmm>ms708 ms<3200 gph=200 ms>3199 gph=400 ms<1600@gph=100d ms>5999ogph=600X ms>9000(#gph="800" 236077\,239:n0:n0:n6::n0,n0;n6;n0;n1;" ";n1,n0;" PpRrOoGgRrEeSsSs CcHhAaRrTt ";n2,n0;" `@<#;!}6<#_4|$|$ ?2^7~0<#>% ";n3,n0;" " B236077\,251:n6,27;n2;"YEAR";n7,27;year }80P,16:n3;96`,n0:80P,16:n3;n0,118v:gl=15:20,10 ;n4;"JFMAMJJASOND" Z10 ,n3;n6;"S";11 ,n3;"a";12 ,n3;"l";13 ,n3;"e";14,n3;"s" Kb=n418n2:gph=800 b599Wb=18b+n1,n6;n4;" ";gph -gph=100db>n9b+n1,n6;n4;" ";gph*gl 3gph=200b>15b+n1,n6;n4;" ";gph*gl 3gph=400b>17b+n1,n6;n4;" ";gph*gl  gl=gl-n2:b ink1=n4:lg=n1 2a=n9n8+y:z(a-n8)gph19,a+n1;ink1;"" b=18n4-n1 3z(a-n8)>(gph*lg)b+n1,a+n1;ink1;"":729  730  lg=lg+n1:b lg=n1 ink1=n10-ink1 a ms>msmmmsmm=ms &#0;n3;" ";f$:9600%  Jass250000t$ho=7400:ex=1500:mill=mill+n1:2008 Eass10CPho=7300:ex=1000:mill=n0:2008 :ass50000Pho=7200 :ex=400:2008 :ass25000aho=7050:ex=200:2008 ho=7000X:2008 ho  100d sale17sale=17 tx>n0tx=tx-n1  700 bor2>n0600X  300,  ass-100d2162r st=n02071  400 *f=n1450 +f=n0 ,i=n1600X -i=n0 .end=n13500 / 500 3st1=n021015 4 550& >month=12 502 Xst>24pc=pc+n1 \pc>60<pc=60< ]pc1985pc=pc+n2 a"spec=spec-((spec/100d)*pc) bst1=n02160p csale>20sale=20 dsaledup2ms=dup2:so=n1 ims10000'a=n0n7:236077\,239:n3,n0;a;n9;n$;" BbAaNnKkRrUuPpTt ";" *$~0Vv+8<#]&`@>% ";n$:236077\,243:'''n0;a;"SORRY.BUT YOU'RE BANKRUPT."''n0;a;"SORRY.BUT YOU'RE BANKRUPT.":1,a*8:a:n=1100d:n:3500 s2BbAaNnKkRrUuPpTt *$~0Vv+8<#]&`@>% u(year)(n3)="84"2170z vab=(st/12 ) w&abb=n1+(*n3):abb=n2abb=n3ab=n0 x st=st-ab mill>n2"4000" "236077\,60<:2000 236077\,239:n6:n6:n1::n4;n0,n0;n$;n1,n0;" SsCcOoRrEe ";n2,n0;" |$?2;!<#_4 ";n3,n0;n$ r236077\,247:n0:'" Total Assets.`";ass:ass>n0'" Selling Price.`";ass-n1-(*ass/n4) sale=(sale(sale<21SALE>N0))+(20sale>20):'" Time in business...";month+(12 *(year-1984));" month"+("s"month+12 *(year-1984)>n1):'" Popularity rating..";sale*5;"%" iscor=(ass/250000t$*80P+sale):scor=(SCOR(SCOR>N0SCOR<100d))+(100dSCOR>100d) %''" SCORE (0-100).";n1;scor >"21",n0;N4;" ENTER to continue ":9600% 0236077\,60<:n0:n0:n4::9960& ^n8,n10;" ";n9,n9;"";n9,19;"";n10,n9;"";n10,19;"" tn9,13 ;" ";n10,13 ;"";11 ,12 ;"";n7;n0;"54";n0;n4;"";12 ,12 ;n7;"";n0;"6 3";n4;"";13 ,11 ;n0;"";n7;n0;"7 2";n0;n4;"";14,11 ;n7;"";n0;"8 1";n4;"";15,11 ;"";n0;"9 ";n4;"";16,n10;"";n0;"0 ";n4;"";17,n10;" " =a=n1n3:23818 ]:12 :23818 ]:105i:a ^n8,n10;" ";n9,n9;" ";n9,19;" ";n10,n9;" ";n10,19;" " \n4,n10;" ";n5,n9;"";n5,19;"";n6,n9;"";n6,19;"" <236077\,247:20,n6;"HOLD THE LINE PLEASE" 9000(# n6:n6:n1::236077\,239:n0,n4;n1;n6;n1;" ";n1,n4;" MmIiLlLlIiOoNnAaIiRrEe ";n2,n4;" qJj=9=9Jj;!Vv~0Jj<#_4 ";n3,n4;" ":236077\,251 )moye=month+(12 *(year-1984)) '"You have done well in building up such a prosperous business. Its only a matter of time now before you reach your million." ]n5;'" TIME TAKEN TO REACH `10 ":n1,n0:n3;'" `250000.";moye-n3;" months" N100d:n1,12 :n2;" `50.";(moye*1.5@);" months" N100d:n1,24:n1;" `10.";(moye*2.1fff);" months" s100d:17,n5;n1;"A Million in ";(moye*2.1fff);" months":100d:'" Can you do better? " V100d:n1,40(:21,n7;n2;"ENTER to continue":9600%:3520 ]n3:n5:n0: b17,n0;n6;n3;" L";18,n0;" L";19,n0;n0;" ";20,n0;" ";21,n0;" " gz9,z3;z2;" ";10 ,z2;"";11 ,1;"" l612 ,z1;z7;z5;" " q213 ,z1;z7;" " v614,z1;z7;z5;" " {15,z1;z7;" ";z1;"";z7;" ";z4;"";z7;" ";z6;"";z7;" ";z3;"";z7;" ";z2;"";z7;" ";z4;"";z7;" ";z5;"";z7;" " 16,z1;z7;" ";z1;"";z7;" ";z4;"";z7;" ";z6;"";z7;" ";z3;"";z7;" ";z2;"";z7;" ";z4;"";z7;" ";z5;"";z7;" " E236077\,60<:z1,z10;"SOFTWARE INC";z2,z10;"24, Broad St" a=z1100d:a  z4:z7:z0: uz7,z0;z2;"  ";z8,z0;" ";z4;"";z2;"  ";z4;"";z2;" " z9,z0;" ";z4;"";z0;" ";z4;"";z0;" ";10 ,z0;" ";z4;"";z0;" ";z4;"";z0;" " 11 ,z0;" ";z4;"";z0;" ";z4;"";z0;" ";12 ,z0;"";z3;"";z0;" ";z4;"";z0;" ";z6;"";z0;"";z2;"";z0;" ";z4;"";z0;" ";z4;"" 13 ,z0;"";z3;"";z0;" ";z4;z3;"";z0;z7;" ";z6;"";z0;"";z2;"";z0;" ";z4;z3;"";z7;z0;" ";z4;"" e14,z0;z4;z7;" ";z5;z3;"L";z4;z7;" ";z5;z3;"L";z4;z7;" " e15,z0;z4;z7;" ";z5;z3;"L";z4;z7;" ";z5;z3;"L";z4;z7;" " 16,z0;z4;z7;"";z1;"";z7;z4;"";z5;z3;"L";z4;z7;"";z6;"";z7;z4;"";z0;"";z7;z4;"";z5;z3;"L";z4;z7;"";z2;"";z4;z7;"";z0;"" n17,z0;z5;z2;" L";18,0;" L" ^z1,z9;"SOFTWARE INC.";z2,z9;"16 The Avenue":a=z3z5:a,16;":":a:z6,16;"v" 19,z0;" ";20,z0;" ";21,z0;" " a=z1100d:a: %z5:z7:z0: *Uz5,11 ;z2;"";z6,10 ;"";z7,z9;" ";z3;"" /z8,z9;z5;" ";z8,23;z7;z3;"";z9,z9;z0;z5;" ";z7;"";z5;" ";z7;"";z5;" ";z7;"";z5;" ";z7;"";z5;" ";z9,22;z7;z3;"" 410 ,z9;z5;" ";z7;"";z5;" ";z7;"";z5;" ";z7;"";z5;" ";z7;"";z5;" ";10 ,22;z7;z3;"";11 ,z9;z5;" ";11 ,22;z7;"" 9q12 ,z0;z4;" ";z5;" ";z7;"";z5;" ";z7;"";z5;" ";z7;"";z5;" ";z4;z3;"  " >13 ,z0;z4;" ";z5;" ";z7;"";z5;"";z3;"";z5;" ";z7;"";z5;" ";z7;"";z5;" ";z4;z3;"  " CY14,z0;z4;" ";z5;" ";z7;z3;"";z5;" ";z4;z3;"  " H@15,z0;z4;z7;" ";z3;"  " M16,z0;z4;z7;"  ";17,z0;"  ";18,z0;z2;z5;"";z4;z7;"";z2;z5;"" RO19,z0;z2;z5;"";z4;z7;"";z2;z5;"" WO20,z0;z2;z5;"";z4;z7;"";z2;z5;"" \O21,z0;z2;z5;"";z4;z7;"";z2;z5;"" fWz1,z7;"SOFTWARE INC.";z2,z4;"The Old Manor House";z3,14;":";z4,14;"v" a=z1100d:a: z3:z5:z0: z4,z10;z7;" ";z5,10 ;" ";z6,10 ;" ";z7,10 ;" ";z8,z0;" ";z5;" ";z7;" ";z9,z0;" ";z5;" ";z7;" " z10,z0;z7;" ";z5;" ";z7;" ";z10,21;z5;z2;" ";11 ,z0;z7;z0;" ";z5;" ";z7;" ";11 ,20;z2;z5;" " Q12 ,z0;z7;" ";z5;" ";z7;" ";z5;" ";z7;" " Q13 ,z0;z7;" ";z5;" ";z7;" ";z5;" ";z7;"" Q14,z0;z7;" ";z5;" ";z7;" ";z5;" ";z7;" " Q15,z0;z7;" ";z5;" ";z7;" ' ";z5;" ";z7;"" Q16,z0;z7;" ";z5;" ";z7;" ";z5;" ";z7;" " _17,z0;z7;" ";z5;" ";z7;" ";z5;"";z7;" ";z5;" ";z7;"" _18,z0;z7;" ";z5;" ";z7;" ";z5;"";z7;" ";z5;" ";z7;"" 19,z0;z6;z3;" L";20,z0;z0;" ";21,z0;" " 5z1,z8;"SOFTWARE INC.";z2,z5;"Executive Buildings" (a=z3z7:a,z6;":":a,22;":":a Az5,z7;"..>";z5,19;"<..";z7,z7;"..>";z7,19;"<.." a=z1100d:a: z3:z0:z5: z9,z6;z2;" ";z7;" ";10 ,z5;z5;" ";z7;z0;" ";11 ,z5;"";11 ,15;" " 12 ,z2;z2;"";z0;z7;"";12 ,15;z7;" ";13 ,z2;" ";13 ,15;z7;" " `14,z2;z7;"";14,15;" ";z4;"";z7;" ";z4;"";z7;" " `15,z2;z7;"";15,15;" ";z4;"";z7;" ";z4;"";z7;" "  16,z0;z4;" ";17,z0;"";z7;" ";z5;"";z7;" ";z5;"";z7;" ";z5;"";z7;" ";z5;"" 518,z0;z7;"  " g19,z0;z4;"";z7;" ";z0;z7;" SOFTWARE INC. ";z7;" ";z5;z4;"";z7;" ";z5;"" 520,z0;z7;"  " m21,z0;z4;"";z7;" ";z5;"";z7;" ";z5;"";z7;" ";z5;"";z7;" ";z5;"" #a=z1100d:a: #)prof=2.6&fff:msmm=n0:qwe=n0:mill=n0:end=n0:crime=n0:dup2=n0:int=n0:int2=n0:bor2=n0:d=n0:month=0:year="1984":f$="ENTER to continue":st=n1:ms=n0:ts=n0:ass="500":sale=n10 #*tx=n0:bus=n0:art=n0:c2=n0:rev=n0:tv=n0:i=n0:n$=" ":f=n0:pc=n0:ex="80":y=n0:bor=n0:so=n0 #+ #, z(12 ) #- 90102# #.236099\,502 #22a=144163:b=n0n7:c:a+b,c:b:a #<255,129,189,165,165,165,189,129,161,129,189,165,165,165,189,129 #An0,126~,126~,n0,118v,118v,118v,n0,n0,126~,126~,126~,126~,126~,126~,n0,n0,32 ,32 ,124|,n8,n8,n0,n0 #Fn1,n3,n7,n0,30,62>,126~,n0,119w,119w,119w,n0,238,238,238,n0,64@,96`,112p,n0,236,238,239,n0,24,24,24,126~,60<,60<,60<,60< #K(n3,n7,31,15,63?,31,127,255,128,192,240,224,240,248,254,255,255,127,63?,63?,15,31,15,3,255,252,248,252,248,240,240,192 #P129,255,165,165,255,255,255,129,192,192,192,n0,192,192,192,n0,n3,n3,n3,n0,n3,n3,n3,n0,170,85U,170,85U,170,85U,170,85U #Z127,255,63?,63?,255,127,255,127,255,252,248,252,252,254,254,255 #_'n0,n0,n0,255,255,n0,n0,n0 $T23658j\,8:236077\,251:n1:n1:n7::n1,n9;"INTRODUCTION":n0,n9;" ";n2,n9;" " $UA'"You own a home computer and havewritten a program which you " $V|"consider to be of sufficient quality to market. You are willing to put `500 of your own money into the project." $W'"The decisions are up to you and these will directly influence whether or not you make it to the top and become a MILLIONAIRE" $X@'" GOOD LUCK!!":21,n7;n7;"ENTER to continue" $Z 9600% $^#236077\,247:n2:n2:n9 $hS:9 ,0;"Do you wish to specialize in onetype of program?":9550N% $i-l$="N"spec=20+(n4+(*n10)):"9350" $mL$"Y""9320" $q $r'" 1...Arcade Game":'" 2...Adventure Game":'" 3...Board Game":'" 4...Business/serious Program":'" 5...Education":'" 6...Management Game":'" 7...Utility Program":'" 8...Wargame":'" 9...Other": $u'''" SELECT OPTION 1 TO 9" $wln=n1:hn=n9:9800H& $|d=tnc $}d=n1spec=35#+(*n10) $~d=n2spec=26+(*n10) $'d=n3d=n5d=n9spec=20+(*n10) $'d=n4d=n7spec=15+(*20) $"d=n6d=n8spec=17+(*n10) $"50" $236077\,251:n4:n4:n9::;n7;''" DO YOU WISH TO SELL? ":'''"You can market the program yourself or else sell it to an existing software house to get some more capital.":'''"Do you wish to sell?" $ 9550N% $L$="N"9499% $L$"Y""9400" $$v=sale*(n5+(*n8))*n5:v P P P 333MT>v P M`= P MU?\Wq MQ ?v>LM*?R+-e38 Rv>>G^::\,>2:\{=\*Y\>w#> wô8  &(((X,,7#? ` v6F<0G# x``p0/,,,o@ /,,nF~>&6,8,,,lo@~FFF~ X #? & Cs&7#?`L&,-.,!#XXL&,,,,nF~,,,,o@XXL&   @o,,/ &LXX@o,,,,@o,,/!@o,,/ &LXX~Fn,,/ ~Fn,,/ ~Fn,,,,~Ca,..-~Fn#!$.&LXX@o,/ /,,,,nF~@o,/ /'LL'@^z~Fn,,,,-,,,nF~~Fn,,,,|LFc~Fn,,,'cFL| ,,,,'/,,,nF~/,,,o@,,,,nF~0p`X  #  #?#70p`p0&L0` ?C6vv?#7v&  7#? ??#76F&'#??#7#G0?#70G#/,,,nF~AL{XXH$/ _X,,,,nF~ H$~$~$>(> >!R$%B$&D:(|(> >  @ xD8 @\D8~B """>>" >AB8$B~BB8d<""|"@@"8d"""|"8 "> 8 " &"BB~BBB886**""""2*&""BBBBF:""""***B$$B"""~ ~ @*$ p |:FBG:@XdF8"@<:FB:" p  |<<~l8l8lfff~ 8`x`x 0`< <"~~00 @0000000  ~~``<2<00>A@>$b~bbxd|bb|bbf:`|bbb~bbb>20x00>bb>~``|bbb<dd8`bdxdb8<bb> (< =O# 7ۯWq !v>~~vvv~ |>~www@`p~<<<<???UUUU??B<Q-,`,,`X -6X`,X/s >~~~~ U >vUvUvU~~~~ UUU vUvUvUU~~~~~UUUUUUU(~ ~~~~~  ~vvv~~~~`  vvv ~~~~~0  U UUU `UUU !  UUUU` " "UUUUUUU~<~~b|~20)+("LESS"prps<20)+" THAN 20":" ** TRY AGAIN **":.5,-12 :N=n1200:N:502 Eprn6pc=pc-n6:oi>n7pc=pc-n4 R"mi>n6pc=pc-n6:mi>n7pc=pc-n4 T Ve=n1st=st+n1:sale=sale-n2 We=n2st=st+n1:sale=sale-n1 Xe=n3st=st+n1 Ye=n4st=st+n1:sale=sale+n1 Z \h=n1st=st+n1:sale=sale-n2 ]h=n2st=st+n1:sale=sale-n1 ^h=n3st=st+n1 _h=n4st=st+n1:sale=sale+n1 ` e)a=-2020n4:.05|L,a:a i236077\,239:n0:n0:n7::n0,n0;n6;n0;n1;" ";n1,n0;" SsOoFfTtWwAaRrEe IiNnCc ";n2,n0;" |$;!{5>%:'~0<#_4 JjVv?2. ";n3,n0;" " kO236077\,251:month=month+n1:month>12 month=n1:year=year+n1 l9y$=(year)(n3):n5,25;n7;n2;"1:";month;":";y$ m'"PROGRAMS ON THE MARKET....";st:'"SALES THIS MONTH .";ms:'"TOTAL SALES.";ts:'"TAPES STILL IN STOCK.";dup2-ms:n4;'"RATES,PHONE etc .`";ex:n4;'"TOTAL ASSETS .`";ass:n4;'"AMOUNT BORROWED .`";bor2+int2 oJso=n1so=n0:21,n0;n1;n6;n2;" NOT ENOUGH CASSETTES PRODUCED." pdup2=dup2-ms:st1=st &#0;n5;" ";f$:9600%  ,236077\,239:n4:n4:n9::n0,n0;n0;n7;n1;" ";n1,n0;" NnEeWwSs ";n2,n0;" Vv_4:'|$ ";n3,n0;" " -\236077\,247:ne=n1+(*n3):nee=n1+(*n3):neee=n1+(*30):en=n1+(*n3) .year=1985month=n6'"In order to compete efficiently in this growing market, you havehad to cut the price of all yourprograms. This will of course reduce the profit margin.":prof=2.2 :349] /Iyear=1986month=n6'"THE GOOD TIMES ARE OVER.... Over the past year a lot of new companies have started up and there is intense competition forsales.":"Already some companies have gonebankrupt. From now on selling is going to get gradually more and more difficult.":pc=pc+5:sale=sale-4:349] 0crime=n1'"Software Ltd involved in court case, concerning stolen goods. Apart from paying the fine and costs this could do the company great harm.":crime=n0:sale=sale-n10:ass=ass-10000':pc=pc+20:349] 1ycrime=n2'"Copyright problems. Total costs of `5000.":crime=n0:sale=sale-n3:st=st-n2:ass=ass-5000:349] 2crime=n3'"Copyright problems and also being in possession of stolen software. Total costs of `50000.":sale=sale-15:crime=n0:ass=ass-50000P:pc=pc+20:st=st-n2:349] 3month12 3128 43084+ne 5^'"Computer software.":'"BUMPER CHRISTMAS SALES.":n$:sale=sale+n4:3128 6\'"Computer software.":'"POOR CHRISTMAS SALES.":n$:sale=sale-n5:3128 7F'"Computer software.":'"AVERAGE CHRISTMAS SALES.":n$ 8"month=n4month=n83139+nee 9 318> :\'"Computer Fair.":'"POOR ATTENDANCE.":n$:sale=sale-4:318> ;L'"Computer Fair.":'"AVERAGE ATTENDANCE.":n$:318> Lsale>17'" Good Magazine Coverage.":n$:sale=sale+n1:321A ?0sale13 '"Small, unimpressive magazine article.":n$ Aass<10000'326F Bbsas=n1+(*30):sas=n3'"New computers needed. Cost `5000":ass=ass-5000:349] CNsas=25'"Office furniture. Cost `2000":ass=ass-2000:349] DVsas=20'"Cassette voted best program of the year.":sale=sale+n10:349] EPsas=15'"Major repair work. Cost `4000.":ass=ass-4000:349] Hass<50000P330J Itax=10000'+(*5000):ene=n1+(*502):ene=10 '"INLAND REVENUE INVESTIGATE.":'"Extra tax owed....`";tax:n$:ass=ass-tax Jneee=n8'"SOMEBODY DOESN'T LIKE YOU.":'"Nasty rumours appear in daily papers and mags about your past. You are unable to trace the source. They eventually stop butnot without affecting your sales":n$:sale=sale-n8 Lmonth>n4334N Mvneee=n5'"Terrible weather has brought thecountry to a standstill. Slump in sales of software.":n$:sale=sale-n10 Oass<50000P345Y Prne5=n1+(*45-):ne5=n1'"New equipment required. Total cost `12000":n$:ass=ass-12000.:345Y Qvne5=n2'"STAFF PROBLEMS.":"Technical manager has run off with `25000.":n$:ass=ass-25000a:345Y Rkne5=n3'"Part time staff required for a few weeks. Total cost `4000":n$:ass=ass-4000:345Y SDne5=n4'"Repair work....`6500":n$:ass=ass-6500d:345Y Tne5=n5'"Big mistake....":"Program released with lots of 'bugs'. Bad reports in the press,plus lots of customers to satisfy. The person concerned has been sacked.":ass=ass-5000:sale=sale-15:st=st-n1:345Y UUne5=n6'"Your company has received great public praise.":sale=sale+n10:345Y Vgne5=n7'"Alterations and repairs to the office. Total cost `16500.":ass=ass-16500t@:345Y Wne5=n8'"New policy to streamline the company. Slower selling tapes to be taken off the market.":st=(st/n2):sale=sale+n5:345Y Xqne5=n9'"Your company is to host a large computer fair. Total cost `20000":ass=ass-20000 N:sale=sale+n10 Z(ass<10CPtx>0349] [ne5=20'"Big Trouble....":"Major tax enquiry. The books don't balance. Ends in court case. No clear verdict. Tax to be paid `34000. Court costs to be paid `5000.":ass=ass-39000X:sale=sale-n7:tx=12 \Bne5=25'"Monthly rate increase of `250.":ex=ex+250 ^!21,n7;n1;f$:9600% _ 236077\,239:n5:n5:n9::n0,n0;n1;n5;n1;" ";n1,n0;" WwOoRrKk ";n2,n0;" :';!<#+8 ";n3,n0;" " T236077\,60<:'"Decide on which area you are going to work this month." '"1...Programming":'"2...See Honest Harry":'"3...Try to sell your products to retailers.":'"4...Convert existing programs to other machines." ,'"5...Try to obtain loan":'"6...Sell out" ;#0;"SELECT OPTION 1 TO 6":LN=n1:HN=n6:9800H& (wor