ZXTape! 2 Just Imagine - Side ACentral Solutions David Lester1986EnglishStrategy: Management3.99Jet-LoadOriginal>TZXed by Andrew Barker For Steve Brown Using Mikies' Timings.J IMAGINE23693\,0:0: :23659k\,0:10 ,9 ;7;1;" JUST IMAGINE ";12 ,5;6;" LOADING PLEASE WAIT ":"":99999: JET LOAD BY SIGMASOFT ],JET`[>!? O0!+| 00>Ƹ0$ 0x0yO& 0uyO~#\.>e]|gz |>= > (y/O7!@>7`!>7`!\>7`jB!B ???0 B?}? ?~@x@?D|||||||??D@TDDD|@?D|T|DD|???DTD|D@````? $||T|D|````?@,@2?<|>d` L @Ax+ +@>0B 00F<~~dd00+@+@>@Ad@ H,bbdb0~|<~|++@<?@ ? b~db0b`0b`+p+@<@@  ~bdb0~|0~`+@/@?<@@@@ b~d00`0``+@@/@?@ @@>~~x0>~|<~`*+@8 /@? @@*+@| /@ ?@@p?@ <~~|#  :\wT]:H\w?<xx xx>>>>`mfffffffffff xx@@@llllllll>X>|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8DD8|;; *=\s#r;;͎{ ::\(!((<2\6!@"B\2D\}33B!B f!0#gg# <@TT8\\\\猒\*X![!@P!!88W K SR P65050 ,236066\,0:236077\,250 -23675{\,502:23676|\,250 S$=" ":"8e3" Q:8900":5000 /85004!:"(M+2)/4=((M+2)/4)"9200# !"M>12ƥ*82"400 #SW=LPN:780 :2000:200:4000:W: *3L6000p $M>"20"ƥ*"5"L4100 &11300:7600:*6L3800 '%GOS=Lƥ*5<12190 ))M>20ƥ*5LRET=Q800  *!"M>23M/12=(M/12)"100d +$M>30ƥ*5L4200h -.4500:3000 :5500|:30 2""502 3Z$=:Z$=""513 4.03{u\,12 : <#Q;Q,Q;"PLEASE PRESS Y OR N" =%502:Z$="Y"Z$="N"65A: > 60< A"": F#502:Z$<"0"Z$>"9"70F G PR$="" Q#Q;L,Q;R$;"C " R(502:Z$=13 ƱR$65A: S+Z$=12 ƱR$R$=R$(̱R$-L):81Q T%R$>6Z$<"0"Z$>"9"82R UR$=R$+Z$:81Q ZR$="" [#Q;L,Q;"";R$;"C " \(502:Z$=13 ƱR$65A: ]+Z$=12 ƱR$R$=R$(̱R$-L):91[ ^1R$>26((Z$<"A"Z$>"Z")Z$" ")92\ _R$=R$+Z$:91[ d0:0:7::'''"AT LAST HAS COME THE TIME TO PAYSOME OF YOUR EARNINGS IN TAX"''''"YOU WILL BE TAXED AT 33.3% OF YOUR PROFIT. SORRY!!":M=24''''"AS YOU DID NOT PAY LAST YEAR,"'"THIS YEARS BILL IS QUITE LARGE." naTA=(CURB-CUS)/3:18,Q;"THIS YEAR'S TAX BILL IS `";TA:21015:MISC=MISC+TA: 2:6:2:: L,," ADVERTISING INCREASES SALES",,,''''Q;"EACH AD HELPS THE COMPANY IMAGE"'"AS WELL AS ITS OWN PROGRAM" m'''"THE ADVERTS COST ` ";ADCOST;" EACH."'''''''"HOW MANY ADS WILL YOU PLACE FOR"''M$(W);" ? (0-5)" 8370 :Z$>"5"250 CURB3HI=Q475 '''"YOU HAVE HAD A HEART ATTACK"''''"THIS IS DUE TO THE PRESSURES OF"'"HARD WORKING CONDITIONS."'''"YOU SURVIVED....THIS TIME"'';11 ;"BE CAREFUL":21015:ILL=ILL+L:HI=Q450  :'"YOU CLEARLY HAVE A WEAK HEART."''''"DUE TO NHS CUTS, YOUR CHANCES"''"OF SURVIVAL ARE MUCH HIGHER IF"''"YOU HAVE PRIVATE INSURANCE."''''"YOU CAN BUY THIS FOR 10000"''"(SO MUCH DUE TO YOUR PAST ATTACK)"''''"WILL YOU BUY THIS INSURANCE? Y/N" /60<:Z$="Y"HI=L:MISC=MISC+10000'  ۨQ:Q:7::.4L,Q:.3,Q:.25~,Q:.3,Q:.4L,3:.4L,2:.4L,Q:.4L,L:.4L,Q:.4L,Q:.4L,-L:L,Q '''''"THE HEART ATTACK HAS KILLED YOU."'''''"YOU WERE TOO PRESSURISED."''"I TRUST YOU HAD A GOOD LIFE."'''"IF YOU TRY AGAIN-"'"PLEASE GO MORE GENTLY,OR ELSE..." 21015:3600 v7:7:3::''"YOUR PROGRAM NEEDS"''"A FLASHY PICTURE FOR"''"ADVERTS AND A TAPE"''"INLAY CARD."  182,62>:62>,Q:Q,76L:-62>,Q:Q,-76L:-7,10 :Q,76L:7,-10 :-7,10 :62>,Q:7,-10 L;5,23;"PROGRAM";6,23;4;"";5;7,23;"";3;8,23;"";L;9 ,23;"";5;10 ,23;"";2;11 ,23;"" JL;Q;12 ,23;"";4;13 ,23;"" '" WHICH ARTIST WOULD YOU LIKE?"''" 0) ----- NO ARTWORK -----"'" 1) MAD MAGGI.........`250"'" 2) POXY PAUL.........`500"'" 3) COSTLY CHRIS......`750" D$70F:Z$<"0"Z$>"3"580D EJMISC=MISC+250*Z$:M(PN)=M(PN)+2*Z$:.15~,12 ::  lL:L:7::''''"YOUR NEXT FEW DECISIONS ARE FOR"'''POSNA-3;6;"";M$(W);"":21015: *L:L:7::'''"A HIGH STREET RETAILER IS"'"STARTING TO SELL SOFTWARE."'''"TRYING TO GET"''" W.H.WELLINGTON &SONS"''"TO STOCK YOUR PROGRAM COSTS ALOT" 47'''"WILL YOU TRY FOR A CONTRACT?":60<:Z$="N" R:'''"GETTING THE CONTRACT MIGHT MEAN"'"A VAST INCREASE IN SALES."'''"YOU HAVE TO IMPRESS THE SHOP."''"HOW MUCH DO YOU WISH TO SPEND"'"TRYING?" \5''"1) `5000"''"2) `10000"''"3) `15000"''"4) `20000" u70F:Z$>"4"885u gMISC=MISC+5000*Z$:6:6:2::7,3;L;"THE SHOP IS DECIDING NOW" bX=L4:Z=-12 32 :.01z# =,Z:Z:Z=31-11 -L:.01z# =,Z:Z:X:: *4L970 ~'''"THE SHOP ARE NOT YET CONVINCED"'"THAT YOUR PROGRAM IS WORTH THEIR"'"STOCKING."'''''"WILL YOU TRY AGAIN? (Y/N)":60<  Z$="N"  850R v'''"THE SHOP IS TO STOCK YOUR GAME."''''"SALES SHOULD INCREASE-TOUCH WOOD":RET=L:M(PN)=M(PN)+5:21015: L:L:7::'''"YOU CAN PRODUCE CASSETTE BOXES"''"FOR YOUR GAMES TO BOOST SALES."'''"THERE ARE FOUR POSSIBILITIES:"'''"1) NORMAL CASES...FREE"''"2) CARD CASES...10p EACH"''"3) VIDEO-CASES..15p EACH"''"4) PLASTIC CASES..20p EACH" K21,Q;"PRESS A KEY (1 TO 4)":8370 :Z$>"4"Z$<"1"1010 6M(PN)=M(PN)+3*(Z$-L):H(PN)=5*(Z$-L): Lo71G,140:Q,-70F:84T,Q:Q,70F:-84T,Q:42*,16:42*,-16: d2:2:6::'"MARKETING HYPE CAN BOOST SALES"'''"YOU KNOW TWO MARKETING EXPERTS:" 5'''" 1) PRICEY PETE..."''" RELIABLE BUT EXPENSIVE" T''" 2) DODGY DAVE..."''" CHEAPER...BUT RELIABLE ??"'''''"PLEASE ENTER 0, 1, OR 2" 2'8370 :Z$<"0"Z$>"2"13302 FZ$=Q1400x PZ$=L1500 Z 1750 xV:'''''''''"O.K. IT'S UP TO YOU. BUT YOU"'"HAVE MISSED YOUR CHANCE FOR"'"THIS MONTH" !21015:MARF=MARF-9 : $:''"PRICEY PETE CAN OFFER YOU..." X=Q2:.2~L,18:.2~L,14:.2~L,10 :.2~L,14:.2~L,10 :.2~L,14:.3,18:.5,18:X:.6,20:L,24 ,%''"1) A PRESS CONFERENCE.....`2500" 6$'"2) A T.V. INTERVIEW.......`5000" @h'"3) PUBLIC FREEBIES........`7500"''"4) BUY A STAR'S NAME TO PROMOTE YOUR LATEST GAME..........`10000" J%'"5) A NATIONWIDE BUS TOUR..`15000" T)''''"WHICH WOULD YOU LIKE('0'TO PASS)" ^ 8370 :Z$>"5"1630^ h`MARF=MARF+3*Z$:MARCOST=2500 *Z$:Z$="5"MARCOST=15000::MARF=MARF-20 m I4:4:Q::"",," DODGY DAVE CAN HELP YOU BY...",,,"" X=Q2:.05|L,12 :.05|L,8:.5,6:X:.1}L,Q:.1}L,2:.1}L,4:.3,6:.353333,16:.5,18 &''"0) ------------NONE-------------" )'"1) BRIBING A GAME REVIEWER..`500" :'"2) PLACING YOUR GAME IN"'"A GAMES CHART ...`1000" I'"3) SABOTAGING A RIVAL COMPANY'S DUPLICATING EQUIPMENT......`1500" &H'"4) PAYING PIRATES TO CEASE"'"COPYING OF YOUR GAME.......`2000" 0I'"5) CONVINCING A MAJOR PUBLISHER TO SELL YOUR GAME..........`5000" :<21,2;7;"TYPE NUMBER OF DESIRED OPTION" D 8370 :Z$>"5"1860D IRMARF=MARF+3*Z$:MARCOST=MARCOST+500*Z$:Z$="5"MARCOST=5000 NZ$="1"MARF=MARF+2 m(L:L:7:*5L1920 o*5L1925 q*5L1950 v 3:3:7::''''"DODGY DAVE HAS BEEN DISCLOSED ASA CROOK-AND YOUR COMPANY AS HIS CUSTOMER."''''"YOUR POPULARITY FALLS BADLY" #21015:MARF=MARF-8:: :'''''"DODGY DAVE HAS LEFT THE COUNTRY WITH YOUR CASH."''''"OF COURSE, HE HAS NOT DONE YOUR WORK.":'''"THE TRADE PRESS FINDS OUT AND YOUR IMAGE DROPS." !21015:MARF=MARF-5: :'''"DODGY DAVE TURNS OVER A NEW LEAFJUST IN TIME TO REPORT YOU TO THE POLICE AND THE PRESS."''''"YOU ARE FINED `5000.00 AND YOUR POPULARITY WITH THE PUBLIC IS REDUCED DRAMATICALLY." 821015:MISC=MISC+5000:MARF=MARF-10 : 13:3:7::P(W)=Q2020 ڇ'''"AT THE MOMENT YOU CHARGE `";P(W);'"FOR THIS GAME."''''"DO YOU WISH TO CHANGE THE PRICE OF ";M$(W);"?":60<:Z$="N" '''"YOU CAN NOW SET THE PRICE OF"'"YOUR GAME."''"HIGHER PRICES CAUSE LOWER SALES"''''"YOU CAN CHARGE ANYTHING BETWEEN"'"`0.75 AND `15.00"''"PLEASE ENTER THE PRICE IN PENCE." 58410 :R$<75KŰR$>15002042 jP(W)=R$/100d:P(W)Ȱ"14.5":M(W)=M(W)-5:'''''" YOU GREEDY SWINE!":21015:: P(W)<2.51 :2,12 :'''" BUDGET SOFTWARE LABEL"''''''"LET'S HOPE IT'S NOT A CHEAP AND NASTY SOFTWARE LABEL LIKE SOME. BUT GOOD POCKET MONEY SOFTWARE.":M(W)=M(W)*1.43333:21015::  (:2080 +(10 *((*3))) *`''''''"A VERY WISE CHOICE. YOUR MANAG- ERIAL EXPERTISE IS SHOWING AL- READY.":21015:: 4G''''''"OH, DEAR. I FEAR THAT THIS MAY BE A BAD PRICE. WE SHALL SEE." 53L;21,Q;" PRESS ANY KEY TO CONTINUE " 6""21026 7=""21037 >.1}L,12 : f6:6:Q::'''"YOUR FIRM HAS BEEN QUITE"'"SUCCESSFUL, AND HAS BEEN INVITEDTO JOIN B.O.S.H.:"''"the Boring Old Software Houses."'''''"Membership costs `25,000 but"'"sets your s/w house up as one ofthe market leaders."''"WILL YOU ACCEPT ? (Y/N)":61= p Z$="N" uCURB=CURB-25000a:GOS=L::'''"CONGRATULATIONS AND WELCOME"'''''"YOU WILL BE INFORMED OF BOSH"'"ACTION WHEN IT HAPPENS.":21015: *L:L:7::2191+(*4) '''"BOSH HAVE MADE A PRESS STATEMENTDEPLORING PIRACY."'''"YOUR COMPANY HAD FREE PUBLICITY.":MARF=MARF+2:21015: '''"BOSH HAVE CRITICISED THE NEW"'"BUDGET SOFTWARE HOUSES AS"'"FAST BUCK MERHANTS AND YOUR"'"NAME APPEARS IN THE MAGS.":21015:MARF=MARF-2: '''"BOSH HAS BEEN ATTACKED FOR BEINGAN IDLE, USELESS ORGANISATION"'''"YOU WILL SUFFER FROM THE ADVERSEPUBLICITY":MARF=MARF-5:21015: '''"INTERNAL LEGAL GATTLES WITHIN"'"BOSH MAKE YOUR FIRM, AMONGST THEOTHERS, A LAUGHING STOCK.":21015:MARF=MARF-5: RS=Q:4:4:7::'''"PLEASE ENTER YOUR OFFER FOR THIS"'"GAME (A ROYALTY, 1-100%)"'''"YOU WILL LOSE THE PROGRAM IF THERATE IS TOO LOW..." +80P:R$100d2500 "ROY=R$:ROY<52600( ROY232530 6RAN=*(ROY+80P-Q(OF)):RAN<142600( PN=PN+L:R(PN)=ROY/100d:RS=1::'''"YOU ARE LUCKY: THE PROGRAMMER ACCEPTS YOUR OFFER:"''"YOU CAN NOW MARKET THE GAME.":21015: (Q:Q:7: 2BX=-6-16-2:.3,X:X:.5,-18 CHCH=S(D):L(L)=D:DPNWI=L oD:X:''T$((*3)+L):X=25:CH=Q:D=LPN+10 :S(D)>CHS(D)PN'" ";X;" ";D$(L(X)-PN);" ":X:2708 .3,6:.4L,10 :.15~,6:.15~,10 :.5,14:NC=NC+L:'" ";X;" ";M$(L(X));" ";"":X NC=PN2715 nCG=Q:CC=5:X=S(L(5))Q-45-:D=LPN:S(D)XS(D)CGCG=S(D):X=Q:TN=D D:CC=CC+L:X 016,Q;"";M$(TN);" = No. ";CC;"" J18,Q;"",,"CHART CREATED BY DODGY DAVE & CO",,:21015: L:L:7:Q: j''''" YOU CAN NOW SEE HOW YOU HAVE":';6;"FARED THIS MONTH AS A":'';8;"SOFTWARE MANAGER" 3''''"PRESS ANY KEY TO FIND OUT....":21026: @5:5:L:::POSNA;N$;'" COMPANY EXPENSES" 0}'"TAPE DUPLICATING:":'"ADVERTISING:":'"ROYALTIES:":'"OVERHEADS:":'"MISCELANEOUS":'"MARKETING:":''"TOTAL COSTS..." :4,21;"`";TDC;6,21;"`";ADC;8,21;"`";ROYCO;10 ,21;"`";OVERH;12 ,21;"`";MISC;14,21;"`";MARCOST;15,21;"_____";17,21;"`";TOCOST T21015::'"YOUR SOFTWARE HOUSE SOLD"''':W=LPN:"";S(W);" OF GAME ";W:W e''"WHICH MAKES YOUR INCOME FOR THE MONTH...":INCO=Q:W=LPN:INCO=(INCO+(P(W)*S(W)*.65&fff)):W 19,12 ;"` ";INCO 21015:BALA=INCO-TOCOST Q:''''"AND AS YOUR COSTS WERE `";TOCOST:''''"YOUR BALANCE FOR THE MONTH WAS: " ''" ` ";BALA &21015:L:L:7:Q:Q:Q: P'''"YOU HAD ":12 ;" ` ";CURB:''"BEFORE IN THE BANK, AND YOU NOW HAVE:" XCURB=CURB+BALA:'',"`";CURB:21015:CURB500000t$WI=LNC=33700t CURB-2500 PN>Q:'''"YOU NEED MONEY VERY URGENTLY"''''"YOU MUST TRY TO RAISE SOME BY"'"SELLING OFF YOUR GAMES OUTRIGHT.":21015:3840:3350 CURB<-2500 3500 0CURB>100000CPGOS=QM>202150f  CURB<-2500 PN>Q:'''"YOU STILL NEED MORE CASH."'''''"YOU MUST SELL OFF MORE PROGRAMS.":21015:3840:3350 |CURB<-2500 :'''"UNFORTUNATELY YOU HAVEN'T RAISEDENOUGH CASH, AND HAVE NO MORE"'"PROGRAMS.":21015:3500 ~:''''"WELL DONE!!!"''''"YOU HAVE RAISED SUFFICIENT CASH TO CONTINUE IN BUSINESS."''''" FOR NOW, AT LEAST...":21015: Q:Q::2,-12 t'''"OH, DEAR. YOU HAVE A SLIGHT PRO-BLEM. YOU OWE MORE THAN `2500.00AND SO YOU MUST CALL IN THE REC-EIVERS. 'BYE." X=18-6-2 .3,X X D21015:Q:7:2::2,9 ;"YOUR RATING:" DCURB0'''''''"YOU ARE STILL A SOFTWARE VIRGIN":3690j FCURB500''''''"MANAGING IS FAR FROM AUTOMATA-IC":3690j $HCURB10000'''''''"YOU'RE BYTE-ING MOST OF THE BUGS":3690j 8DCURB50000P''''''"YOU ARE AN ADDICTIVE MANAGER":3690j BDCURB100000CP''''''"YOU ARE P-ARTIC-ULARLY GOOD":3690j L_CURB250000t$'''''"YOU CAN'T GET SILVA MUCH QUICKER":''"THAN YOU ARE NOW.":3690j V(''''''"YOU ARE NOT QUITE THE ULTIMATE" n$21015:19,Q;:10 tE2:2::Q:7:3,Q,,,,:8020T:2 6X=L6:Z=L8:.02{# =,Z+10 :Z:X 10 ,Q;,,"YOUR RATING:"''6;,," BEYOND THE GOLDEN FIREBIRD",,,:21015::19,Q;:CLS:Q:Q::10 }3:3:7::.3,18:.3,15:.15~,20:.3,18:.3,15 '"YOUR PROGRAMMER,":''"EUGENE BIGMOUTH-BADPROGRAMS-SON,":''"HAS EATEN TOO MUCH JUNK FOOD.":''''"HE IS ALSO HUNGRY AS 0.5 OF HIS CHEESE SANDWICH DIDN'T LIKE HIM." K'''"SO HIS MEGA GAME IS DELAYED":21015:MARF=MARF-5:  DR=QDR=L Z=L3:Y(Z)=(*(502*Z*(9 -B(DR)))):Z:L:L:7::'''"THE FOLLOWING FIRMS WISH TO BUY ";M$(DR);" FROM YOU:"''''"1) DISINCENTIVE....`";Y(L)''"2) OVER THE EDGE...`";Y(2)''"3) CHEAP'N'AWFUL...`";Y(3)''''" PLEASE PRESS 0-3" 70F:Z$>"3"3845  221015:3990:Z$"0"CURB=CURB+Y(Z$) : <@:''"YOU NOW SELL THESE GAMES:":Z=LPN:Z;" ";M$(Z);"":Z F1''''"WHICH WOULD YOU LIKE TO DROP?":8370 KZ$>PN3910F L Z$="0" Q+DR=Z$:*310000'4040 X(W)=R$:T(W)=T(W)+X(W) TACHECK=L4080 "C(W)=60<+SUP+H(W):X(W)=Q 5:6:Q::1100L:6,10 ;" KOPYIT ";7,10 ;" COPYING";8,10 ;" LTD. ";10 ,Q;"";11 ,Q;"";12 ,Q;"" mL,8:SUP=SUP+1:19,Q;L;"O.K. THEY ARE BEING COPIED NOW. ":21015:19,Q;:: SL=L4120 6:6:0::'''"YOU HAVE PROBABLY SUFFERED FROM PIRACY OVER RECENT MONTHS."''"NOW YOU CAN TRY TO REDUCE THIS."''''"DO YOU WISH TO JOIN SLOW? (`7500":60<:Z$="N" SL=L:MISC=MISC+7500L::'''"WELCOME."''"Your cash will be used to fund"'"research into ANTI COPYING dev- ices." Z''"DO YOU WISH TO USE THE LATEST"'"DEVICE ON YOUR TAPES NOW?":60<:Z$="N"IMP=Q: ":'''"The cost will be added to your tape duplicating costs."'''"You should now see a reduction in piracy of your tapes.":21015:imp=l: h :*3LNO=L4250 i''''"YOUR BEDROOM IS NOW TOO SMALL"'"FOR YOU TO USE AS AN OFFICE."'''"YOU MUST BUY NEW ACCOMODATION."'''"WOULD YOU LIKE "''"1) A SEMI-DETACHED HOUSE (`20000"'"2) A NEW OFFICE IN TOWN (`40000"'" 3) A CUSTOMISED OFFICE (`60000"'''"PLEASE PRESS 1-3 TO CHOOSE" r%70F:Z$<"1"Z$>"3"4210r |4NO=L:MISC=MISC+(20000 N*Z$):MARF=MARF+Z$: FIL'''"WOE TO YOU!!"''''"YOUR STORE-ROOM HAS BEEN BURNT DOWN AND ALL YOUR STOCKS OF"'"TAPES LOST OR STOLEN."'''"YOU MUST BUILD UP NEW STOCKS"'"NEXT MONTH.":FI=L:X=LPN:T(X)=Q:X:21015: '''"THERE HAS BEEN A ROBBERY AT YOUROFFICES."'''''"ALTHOUGH NOTHING WAS STOLEN,"'"`5000 OF DAMAGE WAS DONE."''"YOU MUST REPAIR IT.":MISC=MISC+5000:21015: ?6:6:L::L;2,," SALES THIS MONTH:-",,, ƈW=1PN:S(W)=(((M(W)+MARF/PN+C-(P(W)/40())*K(W))*SE*D(B(W))):PJ=QPIRP=QM>6ƥ*FLS(W)=(S(W)/2):PIRCH=L (S(w)>T(W)X(W)=10000'4700\ &V(W)=Q:S(W)>T(W)S(W)=T(W):V(W)=L S(W)5E34790 kEXTRATA=(R$)::'''"YOU ARE LUCKY-"''"THEY ARE NOW ON SALE.":X(W)=X(W)+EXTRATA:21015:4555 $21015:4520 5:5:L::'''"CHOOSING A NAME IS A VERY IMPOR-TANT PART OF STARTING ANY COMP- ANY. MORE SO HERE, PERHAPS, THANYOU MIGHT IMAGINE!!" 6'''"PLEASE ENTER THE NAME OF YOUR SOFTWARE HOUSE." ,8450!:N$=R$:R$<75090 R$(7)="IMAGINE"L,-8::'''''"THIS NAME IS A TRADEMARK."'''" SO YOU MUST CHOOSE ANOTHER.":21015:5030 DPOSNA=((32 -N$)/2)-L:POSNA31POSNA=Q  |1WI=Q:PJ=Q:FACHECK=LRANCH=QBEN=Q5800 NF=4:3:3:7:Q::IMP=LSUP=SUP+9 :F=6 !SAX75KSAX=SAX+1.5@  M>8MARCH=MARCH+9 ,MARF>10 MARF=MARF-MARCH:5519 -MARF=4:M>18DIF=DIF+.25~ 2W=LPN:M(W)=M(W)/DIF:B(W)<7B(W)=B(W)+L :W:FACHECK=Q:RANCH=Q:C>20M>8C=C-4 5:M=Q'"YOU HAVE SURVIVED THIS MONTH.":5543 "'"YOU HAVE LASTED ANOTHER MONTH" bX=Q4:Z=12 242:.05|L,Z:Z:X:CURBL7000X f '''" DISASTER STRIKES SOFTWARE HOUSE"'POSNA;N$'''" FOR MORE DETAILS SEE INSIDE...":21015 t7:7:Q::"",," HCGNW PAGE 2",,,"":FACHECK=QX=(*3.9y):62008+100d*X 9X=Q3:Z=-6-16-L:.05|L,Z:Z:X =''''"YOU TOOK A STALL AT A MICRO FAIR, WITH THESE RESULTS:" 'X=(*3):X=36110 X=26110 X=L6100 ='"FIRST, PEOPLE SAW YOUR PROGRAM, AND THOUGHT IT VERY BAD." E'"YOU RELEASED YOUR NEW PROGRAM: PEOPLE SAW IT WAS A PIRATE COPY." Z'"YOUR STALL COLLAPSED AND HURT TWO PASSERS-BY. YOU MUST PAY COMPENSATION OF `1000" 8MISC=MISC+1000:MARF=MARF-15:21015: 8'''"This week has seen a fire at theoffices of ";n$''"The company has lost its entire stocks of games, and needs to pay out `5000 for repairs."''"What is more, its tape duplicat-ing company has gone bust so itstape costs will rise." BDZ=LPN:T(Z)=Q:Z:MISC=MISC+5000:TACHECK=L:21015:: <''''"The offices of software house"'N$'"were broken into this week."'"All the hardware was smashed, sothe company needs to buy more"'"for `2000."'''"It is also rumoured that the"'"burglars did not like the games:these were stolen, but returned several hours later."'''" THIS REDUCES YOUR POPULARITY " 9MARF=MARF-5:MISC=MISC+2000:21015:: d''"The latest game from s/w house"'N$'"is the worst ever seen in the HCGNW offices. Our reviewer, in last week's issue, gave it the"'"lowest rate ever given before."''''"More bad news for advertisers:"''" ADVERTISING COSTS HAVE RISEN " n;ADCOST=ADCOST+90Z:MARF=MARF-8:21015:: vS'''" GOOD NEWS FOR SOFTWARE HOUSE"'POSNA;N$'''"PRESS ANY KEY TO FIND OUT MORE" U21026::" HCGNW PAGE 2 ",:FACHECK=LRANCH=QBEN=L:7310 +X=(*5):X=QX=37050 (7100+X*100d)  '''"The leading magazine my computerhas published an article about"'N$'"which increases their popularity":marf=marf+12 :21026::  7400 w'''"THE COMPUTER FAIR YOU WENT TO PROVED A RUNAWAY SUCCESS. IT RAISED YOUR SALES AND PUBLIC IM-AGE TREMENDOUSLY" /FACHECK=Q:MARF=MARF+20:21015:: 7'''"AT LAST! WHAT EVERY SOFTWARE HOUSE DREAMS OF!" 6'''''"PRESS ANY KEY FOR MORE DETAILS..":21026: :''''"THE AMERICAN DISTRIBUTOR RIPOFF HAS AGREED TO TAKE YOUR PRODUCTS"''''"THIS WILL BOOST YOUR SALES":MARF=MARF+7:21015: QcQ:Q:2:L::''''"THE CHANCES OF GOOD SOFTWARE";7,9 ;"COMING FROM"'''POSNA;N$ V.25~,8:.25~,10 :.25~,12 :.25~,8:.25~,10 :.25~,12 :.25~,8:.25~,10 :.25~,12 :.25~,8:.73333,10 [&''"ARE A MILLION TO ONE, THEY SAID." `r.2~L,10 :.2~L,12 :.2~L,13 :.2~L,12 :.1}L,10 :.8L,10 j$5:''"BUT STILL IT COMES..." tL.4L,14:.4L,13 :.4L,14:.8L,11 1L;7;'"GOOD REVIEWS IN THE MAGAZINES !!" >2:Q:21015:Q::MARF=MARF+14:Q:CLS:: M<12 *5>L Q:Q:7::15,Q;"AN ANONYMOUS PHONE CALL INFORMS YOU THAT A FIRM IS SELLING"'"PIRATE COPIES OF YOUR SOFTWARE":1100L:6,10 ;"LONG JOHN";7,10 ;"SOFTWARE." Y19,Q;"WILL YOU TAKE LEGAL ACTION?":60<:19,Q;:CLS::Z$="N" PICH=Q:5:5:Q: '''"",,"LEGAL CHARGES ARE: `2400 PER DAY",,"":''"EVERY DAY YOU PRESS YOUR CASE":'"ALSO COSTS YOU `100 IN LOST WORK" (X''"BUT YOU NEED TO STAMP OUT PIRACY":'''"PRESS ANY KEY TO ATTACK PIRATES":21026 .FPICH=PICH+L::''''''';"";L,," THE COURT IS IN SESSION NOW ",, 2X=Q18:.075},X:.05|L,X-L:X:X=18-12 -L:.075},X:.05|L,X-L:X:X=-12 Q:.075},X:.05|L,X-L:X A!:*4<27800x F''''"CONGRATULATIONS!!"''"YOUR LAWYERS HAVE WON THIS CASE AGAINST THESE PIRATES"''''"THIS WILL INCREASE YOUR SALES":21015 ZIPJ=L:MISC=MISC+PICH*2500 :MARF=MARF+10 :.2~L,8: 3:3:7::''''"UNFORTUNATELY YOU HAVE NOT YET"''"CONVINCED A COMPUTER ILLITERATE"''"JUDGE THAT THE PIRATES ARE WRONG" a'"",," SO FAR TOTAL COSTS ARE `";PICH*2500 ,,,""''''"DO YOU WANT TO FIGHT ON (Y/N)?" (8350 :Z$="N".2~L,8: (Z$="Y".2~L,8:7660 @963999:236066\,0:236077\,250 B-23675{\,502:23676|\,250 J>CLS=65050:q=0:l=1:Q:Q:7:Q:Q: KK$=".............CREDITS............This game is dedicated to all software houses which have gone bust, especially to R and R and to the unmentionable unIMAGINEable company, too................................I would like to thank the industry for being so prone to jokes, and " LK$=K$+"all who have helped me to produce this game of such epic qualities................................In particular my thanks must go to my microdrives for being so quick and reliable, to my sense of humour for preventing me from going insane, but most of all I am indebted to my dog, who wrote the soundtrack and designed the game's graphics................................(my dog is stone-deaf, and blind, as you might have guessed!)" MK$=K$+"................................And finally I would like to thank you for buying this, if indeed you did................................if you did not then I hope your tape doesn't load, that you are caught by the police, and that you may be ever plagued with greasy hair and B.O. ................................I hope you enjoy the game, and that you fare better than some ex-software house managers!!" Nk$=k$+"................................GOOD LUCK................................. ":8021U T23675{\,502:23676|\,250:3,10 ;"";4,10 ;"":23675{\,210:3,20;"";4,20;"": U8020T:L;2;6;L,6;"";6,6;"";3,6;"";3,25;"";2,6;"";4,6;"";2,25;"";4,25;"";5,25;"";5,6;"" h2'''''''';3;" PRESS ANY KEY TO START." mL n018,Q;" CAN YOU GET RICH WITH `2500? " r 8099 w 8085 xN=Q39' "":11 N=208080 N=34"8087  A,B:A,B:N .2~L,4,.1}L,8,.2~L,11 ,.2~L,4,.1}L,8,.2~L,11 ,.2~L,10 ,.1}L,9 ,.2~L,10 ,.2~L,14,.4L,4 .2~L,4,.1}L,8,.2~L,11 ,.2~L,4,.1}L,8,.2~L,11 ,.2~L,10 ,.1}L,9 ,.8L,10 i.2~L,10 ,.1}L,8,.2~L,7,.15~,4,.1}L,3,.4L,4   8055w 18,q;" YOU MUST RUN A SOFTWARE HOUSE ":8055w:18,Q;"YOUR OBJECT IS TO GET `500,000..":8055w:18,Q;" & HAVE 3 PROGRAMS IN THE TOP 5 ":8055w:18,Q;" FOR INSTRUCTIONS SEE HANDBOOK ":8055w Iust=l:fi=32 :N=L(K$-32 ):18,Q;K$(STFI):.02{# =,4:ST=ST+L:FI=FI+L:"":11 LN X 8046n l 502 60< 70F 80P ! 90Z !4J5:5:L::PN=L'''"YOU NOW PRODUCE 1 PROGRAM.":85048! !5}PN=Q'''"YOU DO NOT SELL ANY PROGRAMS"'''"SO THE NEXT THING TO DO IS FIND"'"ONE YOU CAN MARKET.":21015::8520H! !6''''"YOU NOW PRODUCE ";PN;" PROGRAMS." !8@''"DO YOU WISH TO RELEASE ANOTHER?":8350 :Z$="N"PN>Q !9Z$"N"8510>! !:1,-12 :CURB=CURB-750:CURB-1500:'''''"YOU MUST TRY AGAIN UNTIL YOU"'"HAVE A GAME TO SELL."'''"THIS MONTH COSTS HAVE BEEN `750";:21015:85004! !;Q:Q:7::'''''"ANOTHER ONE BITES THE DUST."''"THIS ONE DIDN'T EVEN TAKE OFF!!"'''"SORRY, YOUR MONEY'S RUN OUT.":21015:"8E3" !>w:PN=9 CURB<5000PNL'''"IT IS FINANCIALLY UNWISE FOR YOUTO RELEASE ANOTHER PROGRAM NOW.":21015: !HQI1=(*6):I2=(*6):I3=(*6):(I1=QI2=QI3=Q)8520H! !MP:'''"YOU HAVE BEEN SENT THESE GAMES-"''"1- ";G$(I1)'"2- ";G$(I2)'"3- ";G$(I3) !RZ=13:Q(Z)=(*90Z)+L:Z:''''"THEIR CHANCES OF SUCCESS ARE:"''"1- ";Q(1);" %"'"2- ";Q(2);" %"'"3- ";Q(3);" %":''"WHICH,IF ANY, WILL YOU ACCEPT?" !\ 8370 :Z$>"3"8540\! !`Z$="0"PN=Q8506:! !a Z$="0" !bOF=Z$:Q(OF)<30:''''"ARE YOU SURE THIS IS UP TO YOUR USUAL HIGH STANDARDS ? (Y/N)":60<:Z$="N"'''"QUITE RIGHT. BUT YOU MUST NOW"'"FIND ANOTHER PROGRAM.":CURB=CURB-750:21015:8520H! !f<:'''''''"NOW YOU CAN BID FOR IT.":21015:2400` !pRS=QPN=Q8506:! !uRS=Q !v:'''"PLEASE ENTER NOMEN LUDI"''" (THE NAME OF THE GAME) "'''''" (UP TO 20 LETTERS LONG)":8450!:R$>208566v! !x'M$(PN)=R$:Q(OF)<208700! !yQ(OF)>85U8600! !z>B(PN)=L:K(PN)=Q(OF)/3:RET=Q:1000:500: !CURB<20000 NM<16 !2:2:6::''"SINCE THIS GAME IS CLEARLY A"'"POTENTIAL MEGA-HIT, YOU CAN:"''"0) DO NOTHING"'"1) GIVE CRASH A SNEAK PREVIEW"'"2) LAY A MEMORIAL SLAB IN A PARK"'"3) HAVE AN EXTRAVAGANT LAUNCH"'"4) TELEVISE ITS FINAL CREATION"'"5) GIVE FREE POSTERS WITH IT" !J21,Q;"PLEASE PRESS A KEY (0 TO 5":8370 :Z$>"5"8610! !UMISC=MISC+1000*Z$:M(PN)=M(PN)+(*9 )*Z$:Z$="2"M(PN)=M(PN)-18 !N:'''"YOUR WISH HAS BEEN DONE,"''"AND BILLS PAID ACCORDINGLY.":21015: !CURB<15000: "6:6:1::'''"SINCE THIS GAME COULD BE BETTER,"'"YOU CAN TRY TO IMPROVE IT BY:"''"1) NOTHING"'"2) BRIBE MAGS NOT TO REVIEW IT"'"3) LAUNCH A COMPETITION FOR IT"'"4) GIVE A STEERING WHEEL WITH IT"'"5) LICENSE A FAMOUS TITLE FOR IT"'''"PRESS A KEY (1 TO 5)" " 8370 :Z$>"5"8710" ":'''"I HOPE THAT IMPROVES SALES."''''" (SOMETHING NEEDS TO...)"'''"THE BILLS HAVE BEEN PAID.":21015:MISC=MISC+1000*Z$:M(PN)=M(PN)+Z$: " "^3:3:7::Q=0:L=1:11 ,Q;" PLEASE WAIT":NP=L "jSUP=Q:ILL=Q:23692\,255:PRICE=Q:23658j\,8:236099\,100d:MARF=Q:MISC=Q " Q:Q:Q #eMONTH=Q:ADCOST=250:MARCOST=Q:A$="":ROY=20:RNDO=Q:RNDT=Q:ROYCO=Q:OVERH=Q:MISC=Q #(F=Q:FI=Q:SL=Q:IMP=Q:CUS=Q:GOS=Q:DIF=1.5@:Y(3):PJ=Q:H(9 ):HI=Q:M$(9 ,20):DR=Q:D(9 ):B(9 ):SE=L:PIRP=Q:PIRCH=Q:NC=Q:T$(3,18):RET=Q:L(5):D$(10 ,18):X(9 ):C(9 ):V(9 ):S(19):T(9 ):RS=Q:R(9 ):K(9 ):A(9 ):P=1:PN=Q:G$(5,10 ):Q(3):M(9 ):P(9 ):G$(L)="ADVENTURE":G$(2)="ARCADE":G$(3)="STRATEGY":G$(4)="SIMULATION":G$(5)="UTILITY" #-DC=40(:T$(L)="SORRY FOR THE WAIT":T$(2)="DON'T BE IMPATIENT":T$(3)="NEARLY READY, NOW":9005-#:X=L10 :D$(X):X:"CUTHBERT IN COURT","PI BORED","JUST IMAGINE...","HORACE GOES WEEWEE","WILLY AND THE BUGS","TOO MUCH BLAGGER","OVER THE EDGE","INCREDIBLE JUNK","PSY COLLAPSED","MUGSY-U BOUGHT IT" #d9060d#:X=L9 :Z$:D(X)=Z$:X:".75",".9","1.3","L","L",".8",".6",".4",".01":CM=L:TN=Q:BEN=Q:M=Q:TACHECK=Q:SAX=15:SUP=Q:TACOST=60<:CURB=2500 #0WI=Q:U(19):FACHECK=Q:RANCH=Q:MARCH=Q # 9500% #L:L:7: $"L:L:7::1100L:7,9 ;"ALLY PALLY";15,Q;"THERE IS A MICRO FAIR THIS MONTH"''"IT COSTS ` 2000 TO HIRE A STAND.";20,Q;"WILL YOU HIRE A STAND?" $' 8350 :Z$="Y"9260,$ $* $,7:7:2::'''''"YOU WILL FIND OUT HOW IT WENT":''"LATER THIS MONTH.":20,3;"PRESS ANY KEY TO CONTINUE" $6""92706$ $@=""9280@$ $J FACHECK=L:.1}L,12 : %"F$(12 ,9 ):9505!% %X=L12 :F$(X):X %!"JANUARY ","FEBRUARY ","MARCH ","APRIL ","MAY ","JUNE ","JULY ","AUGUST ","SEPTEMBER","OCTOBER ","NOVEMBER ","DECEMBER " %N'.4L,8:.4L,12 : '65050:0 '"ji basic"23552\,35840 ji basic \K