ZXTape! 2 Software Star Addictive Kevin Toms1984EnglishStrategy7.95ROMRPerfect TZX sampled from the original cassette by +Church of the Latter-Day Speccyss f"63999:23659k\,0 ;COPYRIGHT ADDICTIVE GAMES LTD. 1984- ALL RIGHTS RESERVED G0:0:1:23659k\,2::23659k\,0 n15,0;" ";14,12 ;7;0;1;"LOADING" "2" n15,0;" ";14,12 ;7;0;1;"LOADING" "3" ,236066\,0:236077\,249 u0,0;" " (d" " X>|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8DD8]4 nGEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAADFBBBAEAEGEDFDEGEAFBCBFGEGBAFBDCEEGECBEDCECCCGDCDEAFBEGBFEBGEAFGGAGGGFECCBCEGFBFFFEACEDAFGAABAGEBCEAAFCCGEGBACDFFDBGFDBBDFFGAADDDFCBAGECGGBFECEGFEBDFDGBEFDBCCCGDEBBEACDGDDGGGGABAEFGCFAAGGGCEEDEGFGAFFCFBDBAFDFBCGDAFDDGEBBECGCBAAEFBGBDBDBBBAGAGGDAGDGAFAEDEECFAEFCGGDEGCGBEDCECADCDGGBDGEEB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U5 )m)m+mb23659k\,0:8:7:2:5700D:f$(n=" n)=" "(fs-n)+n r(n)=(*n)+1 m()=(mth-6)+1 9900&:9500%:"SOFTWARE STAR"''" COPYRIGHT 1984"''"ADDICTIVE GAMES LTD."''"ALL RIGHTS RESERVED": COPYRIGHT 1984 ADDICTIVE GAMES LTD. ALL RIGHTS RESERVED 130:18,0;"Press 'R' to restore a saved game"''"(or any other key to continue)":100d:i$"R"69E \130:18,0;"Place data tape in recorder, Press ENTER then press play" `100d:130:18,0;"Please wait while data is loaded":"ssdata":70F 690:0,0;2;7;1;"****CHARTS****":i=120:x$(i)=k$(r(20)):w(i)=0:fs=2:6-2*(i<4):f$(i);w(i);3;x$(i):x(i)=(21-i)*bv*m()+r(bv-1):i:6 yi=2125:g(i-20,12 )=i:x$(i)=g$(i-20)((ip+20)33600 I 70F K23658j\,8 P""80P Ui$=:i$=""85U V.005y# =,10 Z-i$e$(i$<480ůi$>579)80P _ d23658j\,8 i""105i ni$=:i$=""110n s.005y# =,10 x %1;18,0;,,,,,,,,  100d:i$e$140  517,0;"Monthly Wage Bill `";wa;e:  N2,0;9 ;8;1;"Bank `";ca;" Max.Odrft `";ov;e  +z$="":c=0:a=32 :b=122z numa=480:b=579 61;y,x;":";b$(ll);":";0;y,x+1; 'c0z$=z$(̱z$-1):1;(" "+8c0i$=e$1;" "cb210 !1;9 ;i$;:z$=z$+i$ c=c+1:210 ,2g(ip,2)>100dg(ip,2)=100d 6.g(ip,2)<1g(ip,2)=1 ? @26,0;2;7;1;z$: Jo1;21,0;" PRESS ENTER TO CONTINUE ":140:21,0;0;b$: T1:fs=5:n=(i>ms)*6:"P A "(1+n6+n);s$(i);" ";d$(s(i,6));26;"`";f$(s(i,4)):0: ^@n=((100000CP+os/(mth+yr*12 ))/100d)*100d: 1y=515:0;y,0;b$:y: Bl=1̱z$:z$(l);"";8;:.001wn,2:l:" ": ;4,0;" Employee Productivity Salary"''  i=1ts:(4+(i>ms)) 6s(i,2)>0s(i,2)<4340T  i:8  150  wa=10000'+1000*ip oh=10000'+1000*ip 7oi=0:ca<0oi=((ca)*2/100d)  n<1n=1 n>5n=5 & :'z$=" No games in production " N '1;19,0;b$;b$;b$: N0,29;3;7;1;m$(mth);1,28;sy+yr    ip=ip-1:i=chip %g$(i)=g$(i+1) *.j=112 :g(i,j)=g(i+1,j):j /i 4Pg(ip+1,1)=-1:j=212 :g(ip+1,j)=0:j H RZ18,0;"Press 'D' to delete or";e;" 'C' to cancel deletion.";e;b$;b$: fn=1ip:pg=n kg(pg,3)895 p.2~L,5:8+n,1;1;g$(pg):18,0;"Not advertising this game will have a serious affect on its sales. Do you want to book some adverts? (Y/N)";e r%100d:i$"N"i$"Y"882r u8+n,1;g$(pg) zi$="Y"62008 20:n: Bt(i)=r(nc):x(i)=r(m()*bv*(nc-1))+bv*m():y(i)=0  Wg(pg,1)=-1:ta=ta-g(pg,3):j=213 :g(pg,j)=0:j: *Cursor input routine*  ch=1 Q8:8:1;21,0;"Use keys '6'&'7' then 'S'=Select" 1:i$="":z$=b$(ll) K8;y-1,x;i$="6";z$;y,x;1;z$;y+1,x;i$="7";z$ -105i:i$"6"i$"7"i$"S"1020 %di=0:di=di+(i$="6")-(i$="7") %ch+di<1ch+di>opt1020 ch=ch+di:y=y+di $i$"S"1010 .<y,x;1;z$:0:8;21,0;b$:  *CHARTS* 01:1:1:9 :5700D  8 tsal=0 $i=14:s(i)=0:i i=1ip 1n=(cm/100d+g(i,2)/100d)/2 %n=n/(1+g(i,1)/4) 9j=g(i,3)/(r(5)+m()):j>1j=1 /z=0:n1=(20*bv*m()*n*j/4) k=14 q=1̺((n1*7)/(500*m())):f=r((4000/7)*m())*((r(10 )+u(k))>10 )*((r(14)+p(6))>10 ):tsal=tsal+f:z=z+f:s(k)=s(k)+f:20:q k g(i,10 )=z ;i ^i=1ip c#g(i,12 )=11700 h+g(i,11 )=g(i,11 )+g(i,10 ) ri 330J:0:0  00:1:2:6:5700D Aj=021:1;"********************************" j "2,9 ;"YOU'VE GOT A:" F4,6;"************" F5,6;"************" F6,6;"********" F7,6;"********" V8,6;"*************" V9 ,6;"*************" W10 ,6;"*************" W11 ,6;"*************" K12 ,6;"*********" K13 ,6;"*********" T14,6;"**********" T15,6;"**********" 18,10 ;g$(i) )j=10 40(:.05|L,r(j):j  08:7:7:0:5700D F0,4;"DELETE GAMES FROM RANGE":690:170 (ip570::320@:330J: &n5,12 ;"Age";27;"Sales"'12 ;"in Average Last"'" Game Mnths Sales Month" 0 fs=5:i=1ip:pg=i :08+i,0;1;i;0;g$(pg); Nsf$(g(pg,1));" ";f$((g(pg,11 )/(g(pg,1)+(g(pg,1)=0))));" ";f$(g(pg,10 )) Xi bk130:18,0;"Press the number of the game youwish to delete from your range";e;"or ";c$ l75K:i$=e$ v&ch=i$:ch<1ch>ip1900l ,pg=ch:8+ch,1;1;g$(pg)  850R 100d:i$="C"1800 i$"D"1950 ta=ta-g(pg,3) 130:800   1800 _*DEVELOPMENT* `08:4:4:0:5700D jK0,8;1;7;2;"GAME DEVELOPMENT":690 t 170 ~D4,23;"Mnths"'" Game";12 ;"Programmer Dev Qlty" fs=3 Z7,0;n$;12 ;t$;24;f$(n(1));28;f$(n(2));"%" K10 ,0;1;7;2;"Games on the market:";ip;e i=1ip B9 ;i+1;13 ,(i-1)*6+1;" " B9 ;i+1;14,(i-1)*6+1;" " B9 ;i+1;15,(i-1)*6+1;"" i Ė130:ip=518,0;2;"You have 5 games in production. You cannot launch anymore.";e;"Press ";c$:140:2580 ؊ca-10000's(5)s(5)=s(i) i (s(5)=0s(5)=1 690 ;2,10 ;2;" ";7;"=Sales last mth" ̙4,2;"REGION"':i=14:4;8;b$(732 );1;h$(i);2;8;b$(732 )':i i=480120x24 "j=(120x-i)/24+1 k=03 <2:64@,i+k:188*(s(j)/s(5)),0 k i $i=14:h(i)=0:i j=13:j$="" !130:i=14 "h(i)=13108$ #j$=j$+h$(i,1)+"," $i %j$="("+j$((j$-1))+")" &H18,0;"Enter the region to be given"'f$(j);" priority ";j$ 0100d:i$=e$31200 :[z=0:i=14:h$(i,1)=i$h(i)=0z=i:h(i)=1:i=4 ?i Dz=031200 NAu(z)=u(z)+2.5 -j:3+z*3,0;1;j;j Ou(z)>10 u(z)=10 Pu(z)<1u(z)=1 Xj b-z=14:h(z)03190v lGu(z)=u(z)+2.5 -4:3+z*3,0;1;j;j mu(z)>10 u(z)=10 nu(z)<1u(z)=1 vz ~130:330J  H 08:7:7:1:5700D L 130 VP18,0;"Press 1 to SAVE the game "'" or press ENTER to continue" `75K:i$=e$3999 ji$13680` ti1=23635S\:i2=23636T\:23635S\,23627K\:23636T\,23628L\:23659k\,2:"ssdata":23635S\,i1:23636T\,i2:23659k\,0  08:6:6:1:5700D 80,8;"PUBLIC RELATIONS":690 94,5;"1 HYPE"''5;"2 HONESTY" t4;1;10 ,0;" COMPANY IMAGE ":''"^ ^ ^" ("POOR AVERAGE EXCELLENT" 53,81Q:(cm*2.46p),0:2 ,3,74J:(cm*2.46p),0 ,3,73I:(cm*2.46p),0 ,3,72H:(cm*2.46p),0 K130:18,0;"Press 1 to use Hype"'" or 2 to be Honest" 75K:i$=e$4080 (n=i$:n<1n>24080 ]130:1;n*2+2,7;("HYPE"(n=1))+("HONESTY"(n=2)) q=cm 1cm=cm+5*(2/n)*(r(3)-2) cm>100dcm=100d cm<1cm=1  1 +3,74J:(q*2.46p),0 "+3,73I:(q*2.46p),0 ,+3,72H:(q*2.46p),0 6 0 @,3,74J:(cm*2.46p),0 J,3,73I:(cm*2.46p),0 T,3,72H:(cm*2.46p),0 ^ 330J g )130:7,0;1;n$ n(1)18,0;"You cannot launch this game yet.-It hasn't been started!"'"Press ";c$;e;,,:140:4999 z8ca=ca-10000':170:ip=ip+1:g$(ip)=n$ Hg(ip,1)=0:g(ip,2)=n(2):g(ip,3)=0  ud=0 <g(ip,2)=g(ip,2)+10 *(r(5)-3)  300, Zz$="Reviews: "+d$((((g(ip,2)+19)/20))):18,0;:400  330J  ^3:3:7:8:5700D:8;7;1;"NEW GAME DESIGN" #1;2,14;" " #1;3,14;" " #1;4,14;"" 77,0;" Programmer Game "'' 9 ,5;t$  130 2num=0:x=19:y=18:ll=10 S18,1;"Enter name of game";:9 ,19;3;b$(10 )  190:z$="-1"5050 Rn$=z$:18,0;b$;9 ,19;b$(10 );9 ,19;n$  ud=1 (n(1)=0:n(2)=0 n=1502:n   |08:5:5:1:5700D 80,5;"ADVERTISING BOOKINGS":690 wfs=4:6:3,0;"MARKET SIZE=";f$((m()*250*bv/1000));" thousand units.":5 i=1ip  fs=8 5,0;"Game :";18;g$(i)';"Age in Months :";18;f$(g(i,1))';"Quality :";18;f$(g(i,2));"%" E'" LAST MONTH-"'" Sales :";18;f$(g(i,10 ))' " Advert Pages :";18;f$(g(i,4))',," THIS MONTH-"'" Advert Pages :";18;:1:f$(0):0 130:18,0;"Enter no of pages of Adverts to be booked this month "'"or press ENTER to repeat last months booking.":num=1:x=22:y=19:ll=2:190 %z$="-1"n=g(i,4):5600 n=z$ gn>10 130:18,0;"NO MORE THAN 10 PAGES!":n=1100d:n:5560 6g(i,3)=n:14,18;f$(g(i,3)) 130:330J i  ta=0 %i=1ip:ta=ta+g(i,3):i  470 C D,23659k\,2::23659k\,0  p2em=em+r(3)-2:n=em:530:em=n z08:5:5:1:5700D 90,5;"EMPLOYEE PRODUCTIVITY":690 :i=5205:(i-5)/5;7;2,i;" ";3,i;" ";4,i;" ":i:7;2,25;" ";3,25;" ";4,25;" " ,''" Month Productivity "'' i=15 #4;p$(i);16;d$(p(i)) i 9'4;6;p$(6);16;d$(p(6)) j130:18,0;"Press 'I' to offer incentives 'D' to increase discipline or ";c$ 100d:i$=e$ i$"I"i$"D"6080 ?mp=mp-1*(i$="I"mp>1)+1*(i$="D"mp<5) D18,0;"Incentives"i$="I";"Discipline"i$="D";e;b$;b$  330J: 8Kz=g(pg,3):1:8+n,30;f$(g(pg,3)):0 BR18,0;"How many pages do you want? (`";adc;" per page)";e;b$;b$ L1num=1:x=28:y=18:ll=2 V)190:q=z$:q<06230V `g(pg,3)=q:ta=ta+(q-z) j58+n,30;f$(g(pg,3)):700: tA18,0;o$;" has been deleted.";e;b$;b$:330J: X02:6:1:6:5700D bM1:i=021:"********************************":i:0 lM690:7:1:9 ,2;"YOU'VE REACHED YOUR TARGET!" v+11 ,5;c7;" MONTHS OF STARDOM" )j=10 40(:.05|L,r(j):j c7=c7+10 119,3;"NEW TARGET IS ";c7;" MONTHS"  330J  K*MONTHLY SALES REPORT* L02:7:7:1:5700D V=6;1;" SALES REVENUE REPORT";e:690 [T4,1;" Unit Sales";12 ,14;"----- ------" `M5,1;"Game Sales Revenue";13 ,5;"TOTALS=" e fs=6 jti=0:i=1ip o9j=(g(i,10 )*rp*(100d-ds)/100d):ti=ti+j tPz$=g$(i)+" "+f$(g(i,10 ))+" `"+f$(j):6+i,1;:400 ~i os<1E+25YQaos=os+tsal =z$=f$(tsal)+" `"+f$(ti):13 ,13 ;:400 (470:1:6:330J <1:fs=7:7:7:1:5700D 50,8;"MONTHLY STATEMENT":690 21:3;1;6;"INCOME" 5'" TOTAL INCOME"'" FROM SALES `";f$(ti) /2:'3;6;"EXPENDITURE" +du=tsal:" Duplication `";f$(du) /tac=ta*adc:" Advertising `";f$(tac) "" Wages `";f$(wa) "" Overheads `";f$(oh) "" Interest `";f$(oi) te=du+tac+wa+oh+oi ,9 :'" TOTAL EXPENDITURE `";f$(te) qmb=ti-te:''" ";"PROFIT"mb0;"LOSS"mb<0;:" ON MONTH";21;"`";f$(mb);"-"mb<0 Hca=ca+ti-te:3'" BANK BALANCE `";F$(ca);"-"ca<0 D(3+(ca)):330J:21,0;7;b$:0  ca>ov '7:7:2:5700D (4,0;:z$="You have exceeded the overdraft agreed by your bank. The Bank Manager wants to see you immediately!":400:330J 25700D:'':z$="The Bank Manager is considering whether to extend your overdraftin view of your unbusinesslike behaviour.":400:':z$="Please wait.":400 <&350^:i=1100d:i:' Fn>caz$="The Bank have decided to extend your overdraft limit to `"+n:400:':z$="You are very fortunate. Be more careful in future!":400:ov=-n:330J: Pz$="The Bank have declined to extendyour overdraft and have decided to withdraw their financial backing. You have been declared bankrupt!":400 Z 330J d 1 xB2*((ca-bb)<0):7:1:1:5700D ydj=c3:i=1ip:g(i,12 )=1c1=c1+4:c2=c2+1:c3=c3+4:7805} zAg(i,12 )=2c1=c1+2:c3=c3+2:7805} {Ag(i,12 )=3c1=c1+1:c3=c3+1:7805} }i:j=c3c3=c3-1 ~c3>10 c3=10 c3<1c3=1 c3>8c4=c4+1  690 -1,8;4;"STARDOM RATING=" Di=51-1:7-i;9 -i,8;a$(i):i #i=8-((c3-1)/2) 6i,5;7;1;">>>";i,23;"<<<" Ffs=5:2;10 ,1;"MONTHS OF STARDOM= ";f$(c4) Afs=7:12 ,1;"STARDOM MONTHS TARGET= ";f$(c7) Cfs=5:14,1;"NUMBER 1 HITS THIS GAME= ";f$(c2) vi$=("PROFIT"((ca-bb)0))+("LOSS"((ca-bb)<0)):16,1;i$+" so far this year `";ca-bb 218,1;"Profit target this year `";pt ȇtfl19,1;7;1;2;"YOU WILL BE SACKED IF THIS ";20,1;"PROFIT TARGET IS NOT ACHIEVED!" ,5c3>8j=10 40(:.05|L,r(j):j 6330J:c4=c77000X ? @'7:7:1:5700D J&0,9 ;"BOARD MEETING" TFz$="The annual meeting of the Board of Directors has been convened." Y2,0;:400 ^Qz$="They are reviewing your progressas Managing Director over the past year." c':400 hDz$="You were set a target for profit this year of... `"+pt m:400:yb=ca-bb rQz$="You made a "+("profit of `"yb0)+("loss of.. `"yb<0)+(yb) wE:400:z$="Please wait."::400:i=1300,:i x25700D:0,9 ;"BOARD MEETING" z'z$="The Board of Directors are " |ybpttfl=0:pt=10000'*((yb+10000')/10000'):z$=z$+"satisfied with your progress, but they think you can do better. They have set a target profit for the coming year of `"+pt+".":8080 ybi=1200:i:i=618:i,0;b$:i o6,0;:z$="You made a "+("profit of `"yb0)+("loss of.. `"yb<0)+(yb):400  Oyb<6z$="There will be no tax to pay thisyear!":400:8200 ̄i=10 *(r(3)+2):z$="You will have to pay tax on yourprofits at this year's tax rate which is "+i+"%":400  Uj=(i*yb/100d):z$="Your tax bill this year is therefore `"+j:400  Pca=ca-j:z$="The tax bill has reduced your bank balance to `"+ca:400 7:2:330J k !4*Monthly Routines* !CDn(2)=n(2)+r(25*(n(1)<5))+p(6) !H,n(2)>100dn(2)=100d !Rn(1)=n(1)+1 !zi=1ip !>g(i,1)=g(i,1)+1:g(i,4)=g(i,3) !i !>i=15:p$(i)=p$(i+1):p(i)=p(i+1):i !2p$(6)=m$(mth):p(6)=5-(mp-em) ! ":m1=m1+1:mth=mth+1:mth<13 8999'# "8mth=1:yr=yr+1:pf=0:mp=r(5) "+8000@:8100:bb=ca:9000(# #' #('8:7:1:5700D #-01;0,7;"SELECT SKILL LEVEL" #1I11 ,0;"Current skill level is ";c9-1;9 ;w$(c9) #2K3,0;:i=17:i;" ";i-1;9 ;w$(i):i #P>130:18,0;"Select your skill Level (1-7)" #Z1num=1:x=29:y=18:ll=1 #d3190:q=z$:q<1q>79060d# #xadc=800 +q*200 #}c9=q #F11 ,0;"New skill level is ";c9-1;9 ;w$(c9), # 330J # $K2:2:6:0:1:0:0:5700D $F5;6;2;6;"SOFTWARE STARS LTD";5;e $Ħ5;6;1;7;"";5;6;7;"";5;6;7;"";5;e $Vz$="You have been appointed as Managing Director of a top Software House."::400:z$="You are also their top Games Programmer."::400:z$="Your task is to keep the Board of Directors happy by making good profits for the company while trying to satisfy your private ambition to become a- "::400 $/z$=" ***** SOFTWARE STAR!! *****":400 $330J:5700D $F5;6;2;6;"SOFTWARE STARS LTD";5;e $Ϧ5;6;1;7;"";5;6;7;"";5;6;7;"";5;e $M:z$="The Directors have set you one task for the coming year-":400 $T::::z$="To produce a pre-tax profit "+b$+" of `10,000":400 $7130:18,0;"Please enter your name" $;num=0:x=0:y=19:ll=8:190 $z$="-1"9429$ $t$=z$ $ 9000(# % %)9510&%:i=15:d$(i):i %&1"Appalling","Poor","Average","Good","Excellent" %$9610%:i=1nc:K$(i):i %L"Addictive","Silicon J.","Bug Ridden","Lake Soft","Perth Hut","Pixie Soft" %C"Crocodile","Old Gen","Lo-Soft","B&G Soft","Mercury","Integrated" %;"Minortron","Reflection","Hardtek","Last Games","Sigh On" %$"LosLoraIan","PeruSoft","Inferior" &ma=r(5) & Gud=1:n(1)=5:n(2)=100d:n$="SOFTWARE S" &>,wa=10000':oh=10000':oi=0 &G &Nb$=" ":c$="ENTER to continue.":e$=13 &cm=502:em=3:mx=0:mp=3:bv=200:pf=0:sy=1985:e=32 :adc=1000:tsal=0:rp=7:os=0:ms=10 :ng=5:nc=20:ip=0:ps=5:ss=5:ds=502 &Btfl=0:tsp=0:bb=0:pt=10000':ta=0 &m1=1:mth=1:yr=0:c1=0:c2=0:c3=1:c4=0:c7=10 :c9=1:ca=0:ov=-100000CP &>w$(7,9 ):9935&:i=17:w$(i):i &D"BEGINNER","NOVICE","AVERAGE","GOOD","EXPERT","WHIZZ-KID","GENIUS" &7g$(5,10 ):g(5,12 ):n(2) &Hx(25):w(25):k$(25,10 ):x$(25,10 ) &s(5):i=15:s(i)=1:i:h(4):h$(4,5):u(4):i=14:u(i)=5:i:h$(1)="North":h$(2)="South":h$(3)="West":h$(4)="East" &d$(5,9 ) &@m$(12 ,3):9950&:i=112 :m$(i):i &I"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec" &p$(6,3):i=712 :p$(i-6)=m$(i):i:p(6):i=15:p(i)=r(5):i:p(6)=3 &>f$(3,7):9956&:i=13:f$(i):i &"highest","second","third" &?a$(5,15):9961&:i=15:a$(i):i &["----NOBODY-----","---LOCAL HERO--","--WELL KNOWN---","-NEARLY FAMOUS-","*SOFTWARE STAR*" '