ZXTape! 0Created with Ramsoft MakeTZXSTARLOADER:'$< C0:0:0:57340:23659k\,0 V8,6;6;"STARMAKER IS LOADING";10 ,10 ;"PLEASE WAIT" #f=15:.05|L,f:f ["":21,5;7;7;:"":21,5;7;7;:"" IBytes1 R" >?0@Ј@>~?><|? |I8@8~|8@||>|Bxx>|>?THTT BT ||>|Bx|>Tz@x>xT>T BT ||>|Rx|>T@@D\TD@T@BT@~?|?|Rx|>x  x@@H@^H$xH>?4x|>@ ???0 89=@? cPF`_@#?@H x|~*A᪀~~   Uh~?T~pHxPBP#C!;T"?TH(zG@B`~E`TxUhTH@B``ZX`T  H|@|?{x${P-2x Uh0 Ix8}WL~ ~~?Pl ~畀P UhUh ? $$</@Uh $O?< H?|H?|< @xH@G@T~I,'߀@HH~PHT@8Dx D@8D8<8xT8@UhT<8z$  zT88(> >bd&F(*D:  >>> ~BFF~~~@~|~~`f~~@~~|@~F~~ <$~f~~B~ >>F>00>"">000>FF>>FF><``|FFF8<&0,88,&lVVVV|FFFFFF>0000<`<|<FFFF<FF,,FVVV,F,,FFFF><~ 0~0p p(|;;< *t s#r s#rI8͎{ ͎ 0 (Qʰ08:0"-8͢-! ڟRʟͽnŸ##"\##~Ÿ< ͽ#UPA#6C*\^#V r+sðENLARGE REM LINE NO: No. OF EXTRA BYTES::}\_:~\W:2\KBBTKx1"-<=BKTKxS"-<=2K" yx"-<=UK" yڜ"-<=y:k *{\*}\|;; ^#VS{\#^#VS}\*|mDT!DTVRYT ^#V#z( ^#V# q#p*S\~~ ##^#V#+-K{\+-488K}\+-48 8͢-! 0 !"{\"}\*}\[{\R"E\*S\###"\"]\*{\[E\"E\2G\4 :( '(Y(U(Q(((E('ڒ w# 6Ͷ :(;(#,(ww"(#w" w(wT] :( (Ͷ(D08 :0 w (>2\͎{ >KE\+-->:KG\+--> ڒ (:(++F+N+++"]\Z2*S\[}\~ ~8#~8 !'#*{\#N#F# *]\"]\+-*]\"[\*Q\>-*[\"]\*\F+N*]\ Bs#r*]\###q#p##"]\~͚ u#~]*S\:{\[}\r#s#N#F# O ~ y"}\"{\!"E\>2G\*\F+N #*I\n####DM!?!(! +>G- %v*6\$ ![\ # J { *{\[\ # J { !X~ (˾#y !Xv (˶#y *K\~Tw\oʮodoʒuG>`> AG>`#~ > AG>`>(>)#^#V#> AG>`>$>(>)#^#$#> AG>`>>> AG>`>$#^#V#> A͕{=\*I\n͕zʗ#N#F! DM͗>+5U4*a\++"[\>!*=\!s=\8*S\~°2\##N#F#"]\" \ "\:(38/ ":\8/+6 #[ \R+r+s*\͘4G#"]\0++++k >>D>:8͎{ ͎ 0 (Q(C08:0"-8͢-8&> >=> C\!\o#o0:0 > k >>H>:!\6#6͎{ ͎ 0 ()Q(=08G0:8A80 8!\o#o> >=> K\+--> |;; *=\s#r;;͎{ ::\(!((<2\6!%"B\2D\}33|;; *=\s#rv͎{ ::\ ( ((<2\6!%"B\!"D\;;}͎{ ͎ 0OGk >|;;$ ^#V#z(1 ^#V# q#p>CLWU^bu~pё< ͂n"\ < ͂#n[\+Rڟ" \< ͂#n[ \R0 [\Rҟ* \[\ "\ " \* \[\*S\+U##SS\[\w#w#N#F# R8< ð8͎{ ͎ 0 (Qʰ08:0"-8> ͢-! ڟاRʟ`iBLOCK COPY FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM|;;:p`p`p``vnmup~y` , = ^#V#z( ^#V# q#p*S\~°###"\"]\:( ((U(Q(M(( (A(#w# 6Ͷ :(;(#,(ww"(#w" w(wT] :( (Ͷ(0:w ( (:(++F+N+++"]\*S\~ 6~8#~8 ##^#V####~(((R>V+^s#r6*]\~͚ #~*S\~ 5##^#V#~8#~ ####~8 6:#(#(#*S\##"]\^#V~ (:Š#T]##N#F#~8# []\R#~8+r+s##~ >W* \͋*S\###" \͋8G(͗8* \͋(͗U#6 [ \RFr+Ns`iR#w#w#s#r* \+^#V#~°*\#~(((R>V+^s#r#6++^#Vk >|;;:< 8͎{ ͎ 0 (Qʰ08:0"-8> ͢-! ڟاR( !"\`in !"\*S\~ `###"\"]\:( (<(8(4͘8)U#6 [\RFr+Ns`iR#w#w#s#r:\G *\V+^##< ðEXPAND Press ENTER to Expand the Whole Program LINE NO:NOW RENUMBER PROGRAMk 8!"\*S\+#~ K\C\###͋88>|;;#< K\< -ðNo. LINES : No. STATEMENTS :7![V0![k >:[  [|;; < N F +--:[(!(9 < :[˿˷˯&`ð < N F+--ðFx N +-< -< NF+--ð No. Bytes: Array Name: First Byte: Auto-start Line No: Length of Program Only:!X ~w#~˷w#~˷w#~w#k >!!\BK+--> w+6(> > o0:0> > ~28 > #>?*S\+#~°####"]\էRDM(͋0Rr+s!͵!͵}o!Wȷ+ >? !W A#BK # @#+6##>? !WxGyO A#BK + RW+#6++!@ ~#x( R~#Rx(  ~# 6#!@~'w#~'w0+~w##!@ ~#x( R~#Rx(  ~# 6#!W~?w+~?w0#~w++!W R~+Rx( ~+x(  R~+ 6+!W~?w+~?w0#~w++!W R~+Rx( ~+x(  R~+ 6+!@~'w#~'w0+~w##>>>>>>>>>>>>>> > >**v\T])))))"v\d!@6#K\|Kv\|##^#V#ѧR*e\RDM*K\ѧR"K\*Y\R"Y\*S\V#^B (#^#V#[K\R8 +E*S\####~ # #KK\B  s !͵R !@ ~#x( R~#Rx(  ~# 6#!W R~+Rx( ~+x(  R~+ 6+!9[e\R!@~?? ##!W~? ++@#+6##@@#+w##@H#+w##@P#+w##@#+6##H#+w##W+#6++@G+#w++@O+#w++@W+#w++O+#w++W+#w++!W + >? !W &+ >? !@ # >X !@ .# >X bd&2:H\yC%  :H\% y& - y.FkS\ d[K\Rr#s#N#F# 2d!@##!@~Gw#!@~w#!@~w#@!EC>|zy$>W!X~w#>'''8W!X~Dzw#!X#!X˾#!X#!X˶#>F!W A#BHCw# A>`!W A#BK xCw#>!WxGyO A#BK RxCw+> !WxGyO A#BK + R>p!W A#BK # !w >#| !F(>>#| k >!)6m6?UUUU 82 3L3333ὥ @0$STARMAKER 7[z)3!R# # <@"'$7۶\\\ܾLܱܯܑ܁\q%aɵX![!@P!!' P K SR P523659k\,8:L=60826:l=60899  "9500" "5":ڰ"5":ç: save="1":t$="":l$="":svalue=ç:avalue=ç:mult="25":mobum="1":mosing="1":bum=ç:sing=ç:al=ç:graphics="1":ts=ç:pos=ç:rec=ç:lp=ç:pop="20":cash="400":loan=ç:csp=ç:clp=ç: cash="400" year="1984":mon="1" E"23609","34":m$="":ٰ"9";"What is your name please ? ";m$ $m$=""űm$>"8"װ".1","30":"20" 'ڰ"1":"1":ٰ"6"::n=m$/"2"-"16" "5",n;m$:"7","6";"what would you like":"9","6";"to call your group?":g$="":"Group's name please ? ";g$ #$g$=""űg$>"8"װ".1","30":"30" %"40":"100" (ڰ"3":"3":ٰ"9"::f="0"̰"2":f,ç;ڰ"5";" ":f:"23607","223":"1","6";ڰ"5";"SELECT SKILL LEVEL":"23607","60" */"4","0";"Which skill level would you like" ,"6","8";"1.Beginner" - "8","8";"2.Inexperienced" 2"10","8";"3.Experienced" 7"12","8";"4.Mega star" <key="60972" >+key="49"cash="1500":pop="50":"70" A*key="50"cash="800":pop="40":"70" C*key="51"cash="400":pop="20":"70" D*key="52"cash="200":pop="10":"70" E"60" Ff="1"̰"40":װ".01",f:f K c dcash<09000(# eh"7":ڰ"7":ç::f=ç̰"5":f,ç;ڰ"4";" ":f:pop>"100"pop="100" iF"23607","223":ç,"9";"BUSINESS CHART":"23607","60" n."2",ç;"Manager:";ç;ٰ"7";m$ s/"2","17";"Group:";ç;ٰ"7";g$ xU"4",ç;"Year :";ç;ٰ"7";year;"4","17";ç;ڰ"4";"Month:";ç;ٰ"7";mon }1"6",ç;"````````````````````````````````" !"8",ç;"Popularity:";pop;"%" !"10",ç;"Loan :`";loan; !"12",ç;"Money :`";cash; ""8","17";"Chart no. :";csp #"10","17";"LP chart no.:";clp 2"14",ç;"````````````````````````````````" .f="15"̰"21":f,"17";"`":f 2"21",ç;"````````````````````````````````" pos<çpos=ç ts<çts=ç rec<çrec=ç lp<çlp=ç "16",ç;"Posters :";pos "17",ç;"T-Shirts:";ts "18",ç;"Singles :";rec "19",ç;"Albums :";lp M"14","4";" STOCK ";"14","18";" EXPENSES DUE " !ldue=ç:loan>"50"ldue="50" loan>çloan<"50"ldue=loan "16","18";" Loan `";ldue #"17","18";" Wages*`";pop*"10" "20","18";" *Approx" ;#"1";"0","0";ڰ"4";" PRESS ENTER TO CONTINUE " °"13""198" :c=(*"100") c<"33""220" c>"33"c<"65""230" $f=ç̰"31":l="63051":f:"250" $f=ç̰"31":l="63127":f:"250" f=ç̰"22":l="3190":"":f "1000" ç:ç:ٰ"6"::f=ç̰"2":f,ç;ٰ"3";ڰ"3";" ":f:"23607","223":"1","5";ڰ"3";ٰ"9";"MANAGERIAL DECISIONS":"23607","60" graphics=ç"310"  5ç,ç:ç,"151":"255",ç:ç,-"151":-"255",ç +"126",ç:ç,"151":ç,"79":"255",ç 'ذ"60","110","20":ذ"60","110","5" %"274":f="m""t"+"7":a:f,a:f "3","3","4","30","27","123","141","131","128","128",ç,ç,"128","192","200","60","143","127","13","12","24","24","49","32","128","192","224","96","96","192","128","128" "28","28","8","30","30","29","59","39",ç,"80","96","80","192","192","192","192","69","75","55","14","24","24","48","32","128","192","224","96","96","48","56","28" "6","20";ٰ"3";ڰ"5";"";"7","20";" o";"8","20";" o";"9","20";" o";"10","20";"" "180","30":ç,"10":-"10",ç::ç,"6":"12",ç:"5",-"5":"5","5":"12",ç:ç,-"6":-"10",ç:ç,-"20":-"14",ç:ç,"10" "4","1";"1)Make record" "13","20";"4)Sales" "4","18";"2)Advertise" ""19","2";"" #"13","3";"3)Concert" $>graphics="1""17","6";ٰ"4";"";"18","6";ٰ"4";"" %Q#ç;ç,ç;۰"1";ڰ"3";ٰ"9";" 5)Graphics on/off 6)Continue ":"294":"292" &"key="60972":key="49""350" 'key="52""400" (key="51""450" )key="50""500" *;key="53"graphics=çgraphics="1":װ".1","10":"260" +;key="53"graphics="1"graphics=ç:װ".1","10":"260" 1key="54""600" 2 6"4","1";"1)Make record" ;"6","1";"2)Advertise" @"8","1";"3)Concert" E"10","1";"4)Sales" JQ#ç;ç,ç;۰"1";ڰ"3";ٰ"9";" 5)Graphics on/off 6)Continue ":"294":"292" O"294" T"335" ^"6":ڰ"6":ٰ"9": `>f=ç̰"2":f,ç;ڰ"1";" ":f bM"23607","223":"1","8";ڰ"1";ٰ"5";"RECORD PRODUCTION":"23607","60" c,"4","2";"What do you want to release ?" hw"16","4";" `300 ";"16","16";" `1000 ":f="8"̰"15":f,"4";ٰ"2";"";f,"16";ٰ"1";"":f o a$="SINGLE" p1f="1"̱a$:f+"8",f+"4";ڰ"2";ٰ"6";a$(f):f q a$="ALBUM" r2f="1"̱a$:f+"8",f+"17";ڰ"1";ٰ"6";a$(f):f wS"19","3";"PRESS ~S~ OR ~A~ TO SELECT";"20","3";"OR PRESS ENTER TO CONTINUE" x3#"1";"0","3";"L":p$=:p$=°"13""600" y%p$"a"p$"A"p$"s"p$"S""376" z+#"1";"0","3";p$;"L":װ".01","10" {p$="A"p$="a""390" |:f=ç̰"2":f,ç;ڰ"3";" ":f:"23607","223":"1","9";ڰ"3";"RELEASE SINGLE":"23607","60" }sing="1""5","1";"You already have a single out";"7","1";"Do you want to replace it.":"23658","8":a$="":"Y or N ?";a$:a$(1)"Y"a$(1)"N"װ".01","10":"381" ~("23658","0":a$(1)="Y""385" sing="1""600" f="4"̰"10":f,ç;" ":f:"4",ç;"Your group ";g$;" have ";"6",ç;"released a record.What do you";"8",ç;"wish to call it ?" t$="":"Record name ";t$ &t$=""űt$>"14"װ".1","10":"386" :cash=cash-"300":rec=ç:mosing="1":sing="1":"600" :f=ç̰"2":f,ç;ڰ"3";" ":f:"23607","223":"1","9";ڰ"3";"RELEASE ALBUM":"23607","60":bum=0392 a$="":bum="1""5","1";"You already have a album out";"7","1";"Do you want to replace it.":"23658","8":"Y or N ?";a$:a$(1)"Y"a$(1)"N"װ".01","10":"391" &"23658",ç:a$(1)="N""600" al=ç"395" bum=ç:"600" f="4"̰"10":f,ç;" ":f:"4",ç;"Your group ";g$;" have ";"6",ç;"released an album.What do you";"8",ç;"wish to call it ?" l$="":"Album name ";l$ &l$=""űl$>"14"װ".1","10":"396" 8cash=cash-"1000":lp=ç:mobum="1":bum="1":"600" ç:ç:ٰ"6": %"402":f="a""d"+"7":a:f,a:f ç,"63","99","235","232","15","7","12",ç,"252","198","215","23","240","224","48","11","27","28","63","63","63","63",ç,"208","216","56","252","252","252","252",ç >f=ç̰"2":f,ç;ڰ"1";" ":f T"23607","223":"1","4";ڰ"1";ٰ"7";"T-SHIRT AND POSTER SALES":"23607","60" ;"4","1";"You call your local dealer ":f="1"̰"65":f f="1"̺(*"2")+"3" -"6","1";ٰ"6";ܰ"1";"";"7","1";"" Vg=12:h=18:.03{u\,24:h:6:g:502:f K>".8""6","7";"But he isn't in!":f="1"̰"30":װ".01",f:f:"600" J"6","5";"Ello, Ron Static here,":"8","5";"Which department?(T/P)" ="T"Ŧ="t""416" ="P"Ŧ="p""430" "412" !"12",ç;ݰ"1";"T-Shirt dept." R"14",ç;"Our computer shows that you have";"16",ç;ts ;" T-Shirts in store." price=(*"4")+"1" M"18",ç;"This month's price is `";price;"19",ç;"How many do you want?" Zs$="":ٰ"5";"Enter no. required or ~0~ to continue?";s$:s$=""װ".01","10":"420" =f="1"̱s$:s$(f)<"48"ůs$(f)>"57"װ".01","10":"420"  f:enter=s$:enter=ç"600" price*enter>cash"9000" cash=cash-price*enter  ts=ts+enter "600"  "12",ç;ݰ"1";"Poster dept." Q"14",ç;"Our computer shows that you have";"16",ç;pos;" Posters in store." price=(*"4")+"1" M"18",ç;"This month's price is `";price;"19",ç;"How many do you want?" Zs$="":ٰ"4";"Enter no. required or ~0~ to continue?";s$:s$=""װ".01","10":"434" =f="1"̱s$:s$(f)<"48"ůs$(f)>"57"װ".01","10":"434"  f:enter=s$:enter=ç"600" price*enter>cash"9000" cash=cash-price*enter pos=pos+enter "600" ç:ç:ٰ"7": >f=ç̰"2":f,ç;ڰ"3";" ":f B"23607","223":"1","12";ڰ"3";ç;"CONCERT":"23607","60" 4"4","1";"Which venue would you like to hire?" ƃ"8","9";"VENUE";"8","9";ް"1";"_____";"8","23";"COST";"8","23";ް"1";"____":"10","1";"1.Working men's club `300" +"12","1";"2.Trendy night club `1000" +"14","1";"3.Festival Hall `3000" ɀ"16","1";"4.Albert Hall `10000";"18","1";"5.On tour `20000";"21","2";"OR PRESS ENTER TO CONTINUE" W="1"v$="at the Working men's club":cost="300":װ".1","50":pop=pop+"1":"467" Q="2"v$="at the Trendy club":cost="1000":װ".1","50":pop=pop+"2":"467" S="3"v$="at the Festival Hall":cost="3000":װ".1","30":pop=pop+"3":"467" R="4"v$="at the Albert Hall":cost="10000":װ".1","50":pop=pop+"6":"467" G="5"v$="On tour":cost="20000":װ".1","50":pop=pop+"8":"467" =°"13""600" "458" "cash=cash-cost:cash<ç"9000" ԣf="3"̰"21":f,ç;" ":f:"4","1";"It is the night of the concert";"6","1";v$;"10","1";"Please wait while stage is set" %"469":f="a""u"+"7":a:f,a:f ֲç,ç,ç,"32","96","97","51","59",ç,ç,ç,"2","6","134","204","220","29","15","7","7","7","3","3","3","184","240","224","224","224","192","192","192" ׺ç,ç,"4","12","12","25","51","59",ç,ç,"32","48","58","152","204","220","29","15","15","7","7","3","3","3","184","240","240","224","224","192","192","192" غç,ç,"2","3","7","12","25","27",ç,ç,"64","192","224","48","152","216","25","15","15","15","7","3","3","3","184","240","240","240","224","192","192","192" "3","3","4","30","27","123","141","131","128","128",ç,ç,"128","192","200","60","143","127","13","12","24","24","49","32","128","192","224","96","96","192","128","128" "28","28","8","30","30","29","59","39",ç,"80","96","80","192","192","192","192","69","75","55","14","24","24","48","32","128","192","224","96","96","48","56","28" (ç,ç,ç,"24","60","60","24","24"  f"8","4";"":f="9"̰"10":f,"4";"":f a"11","4";"" 9ç,"11";ç;"OOOOOOOOO" ["7","14";"";"7","18";"";"8","14";ڰ"4";"";"8","18";"" ^"14",ç;" ";"15",ç;" " \"16","1";" ";"17","1";" " ^"18",ç;" ";"19",ç;" " \"14",ç;" ";"15",ç;" " \"16","1";" ";"17","1";" " _"18",ç;" ";"19",ç;" " z"7","14";"";"7","18";"";"8","14";ڰ"4";"";ٰ"2";"8","18";"":"1":װ".01",(*"40") d"11","4";"" *#"1";ç,"5";"PRESS ENTER TO CONTINUE" °"13""478"  :"600" z:sing="0"bum="0""5","2";"You do not have a record to";"7","2";"Advertise":f="1"̰"50":װ".01",f:f:"260" R"4":ڰ"4":ٰ"9"::f=ç̰"2":f,ç;ڰ"3";" ":f F"23607","223":"1","10";ڰ"3";ç;"ADVERTISING":"23607","60" #a$="1.Mag ad half page. `500 " #b$="2.Mag ad full page. `1000" #c$="3.Television ad. `5000" uf="4"̰"14":f,"3";ç;ܰ"1";ٰ"7";c$;f-"1","2";ڰ"4";ç;ç;" ":װ".01",f:f wf="4"̰"12":f,"3";ç;ܰ"1";ٰ"7";b$;f-"1","2";ڰ"4";ٰ"7";ç;" ":װ".01",f:f uf="4"̰"10":f,"3";ç;ٰ"7";ܰ"1";a$;f-"1","2";ڰ"4";ç;ç;" ":װ".01",f:f "a$="Choose your type of advert." `"64682","20":"64693","10":"64702","70":f="1"̱a$:"4",f+"2";a$(f):l="64675":f Bf="19"̰"21":f,ç;ڰ"3";" ":f "23607","223":"20","10";۰"1";"SELECT ADVERT";#"1";ç,ç;ڰ"3";" ":#"1";ç,"3";ç;ٰ"4";۰"1";"OR PRESS ENTER TO CONTINUE" "23607","60" =°"13""600" Q="1"cost="500":pop=pop+"1":cash=cash-cost:a$="half page advert":"520" R="2"cost="1000":pop=pop+"2":cash=cash-cost:a$="full page advert":"520" ;="3"cost="5000":pop=pop+"4":cash=cash-cost:"550" "515" "2":ڰ"2":ٰ"7":  +f="5"̰"12":f,"11";ٰ"1";"":f  (f="5"̰"6":f,"11";ç;"":f  4"5","12";ç;ٰ"9";" POP ";"6","12";"TUNES " %"535":f="a""d"+"7":a:f,a:f "3","3","4","30","27","123","141","131","128","128",ç,ç,"128","192","200","60","143","127","13","12","24","24","49","32","128","192","224","96","96","192","128","128" <"9","13";ڰ"1";ٰ"3";"";"10","13";ڰ"1";ٰ"4";"" z$=t$:sing=çz$=l$ 9ç,"2";"You place a ";a$;"2","2";"for ";z$;" in:-"  7"21","3";ç;"PRESS ANY KEY TO CONTINUE":"1":ç !cash<ç"9000" #"600" &"5":ڰ"0":ٰ"7": (>f=ç̰"3":f,ç;ٰ"3";"":f )Df="4"̰"18":f,ç;ڰ"3";" ";f,"26";" ";f,"31";" ":f:"556" *2f="130"̰"20"-"30":ذ"230",f,"10":f:"557" ,Jf="19"̰"21":f,ç;ٰ"3";"":f:"554" -G"4","1";ٰ"3";"";"4","25";"";"18","1";"";"18","25";"" .qf="7"̰"16":f,"9";ڰ"2";" ":f:"18","10";"OUT NOW":f="1"̱g$:f+"7",f+"9";ڰ"2";g$(f):f 1z$=t$:sing=0z$=l$ 2>a$="Buy "+z$:n=a$/2-14:5,n;7;a$ 4g6,13 ;"By":"21","4";3;1;;"PRESS ENTER TO CONTINUE":°"13"5644 5"600" W Xcash<ç"9000" Y"2":ڰ"2":ٰ"7": Zsingɰ"1"bumɰ"1""700" ]>f=ç̰"2":f,ç;ڰ"1";" ":f ^A"23607","223":"1","9";ڰ"1";"DUPLICATION":"23607","60" bpop>"75"ƥ>".8""5","1";"The duplicators are on strike.";"7","1";"Their union says they are ";"9","1";"overworked and need a rest.":f="1"̰"50":װ".01",f:f:"700" gW"5","1";"Your present record stock is:-";"7","1";rec;" Singles ";lp;" Albums" l("9","1";"Do you want to duplicate?" q#="Y"Ŧ="y"װ".01","10":"650" v#="n"Ŧ="N"װ".01","50":"700" {"625" ;f="4"̰"10":f,ç;" ":f ("4","1";"Do you want to duplicate " %"6","1";"S)ingle A)lbum B)oth" #="s"Ŧ="S"װ".02","10":"661" #="A"Ŧ="a"װ".03","40":"670" #="b"Ŧ="B"װ".05","50":"680" "657" usingɰ"1""10","1";"You don't have a single.":װ"1","25":"10","1";" ":"600" f="4"̰"7":f,ç;" ":f:"4","1";"Each single costs `1";"6","1";"How many do you want?":r$="":"How many singles ";r$:r$=""װ".01","10":"662" =f="1"̱r$:r$(f)<"48"ůr$(f)>"57"װ".01","10":"662" f:rec=rec+r$:cash=cash-r$ cash<ç"9000" "700" sbumɰ"1""10","1";"You don't have a album.":װ"1","25":"10","1";" ":"600" f="4"̰"7":f,ç;" ":f:"4","1";"Each album costs `3";"6","1";"How many do you want?":r$="":"How many albums ";r$:r$=""װ".01","10":"671" =f="1"̱r$:r$(f)<"48"ůr$(f)>"57"װ".01","10":"671" 4f:lp=lp+r$:cash=cash-r$*"3":cash<ç"9000"  "700" singɰ"1"bum="1"sing="1"bumɰ"1""10","1";"You don't have both":װ"1","10":"10","1";" ":"600" f="4"̰"7":f,ç;" ":f:"4","1";"Each single costs `1";"6","1";"and albums cost `3":r$="":"How many singles ";r$:r$=""ůr$<"48"ůr$>"57"װ".01","10":"682" =f="1"̱r$:r$(f)<"48"ůr$(f)>"57"װ".01","10":"682" f:rec=rec+r$:cash=cash-r$ Or$="":"How many albums ";r$:r$=""ůr$<"48"ůr$>"57"װ".01","10":"685" =f="1"̱r$:r$(f)<"48"ůr$(f)>"57"װ".01","10":"685" "f:lp=lp+r$:cash=cash-r$*"3" "700" Eڰ"6":"0":ٰ"2":۰"1"::"10","10";ݰ"1";ٰ"9";ç;"NEWS FLASH" jװ"0.25","12":װ"0.25","14":װ"0.25","11":װ"0.25","11":װ"0.25","14":f="1"̰"10":װ"0.1","18":f ç:ç:ç:ٰ"7": f=ç̰"2":f,ç;ڰ"6";" ":f:"23607","223":"1","14";ڰ"6";ٰ"1";"NEWS":"23607","60" c=(*"15")+"1" c*"10"+"800" "969"  @"4","1";"Your lead singing has got";"6","1";"laryngitis" #pop=pop-"5" % *cash<"500""9900" +p"4","1";"Your drummer has electrocuted ";"6","1";"himself....";"8","1";"It cost `200 to replace him." ,cash=cash-"200" -&pop=pop+"1":pop>"100"pop="100" 0 4pop<"75""9990" 5"4","1";"Police raid your offices..";"6","1";"You have been found guilty of ";"8","1";"possessing drugs";"10","1";"You have to pay a `3000 fine ";"12","1";"or spend 6 months in jail" 6"(P)ay (J)ail ";a$ 72a$"J"a$"j"a$"p"a$"P"װ".1","10":"822" 8a$="j"a$="J""827" 9$a$="p"a$="P"cash=cash-"1000": :a$"j"a$"J""829" ;@f="1"̰"6":mon=mon+"1":mon="12"year=year+"1":mon="1" singɰ"1"bumɰ"1""9900" ?`"4","1";"Your latest release has been ";"6","1";"given a bad review.":pop=pop-(*"3") @pop<"1"pop="1" A HS"4","1";"Crooks have issued fake";"6","1";"tickets to one of your concerts" Ipop=pop-"5" Jpop<"1"pop="1" K RV"4","1";"Power cuts have forced music ";"6","1";"lovers to do something else!" Tpop=pop-"3" Upop<"1"pop="1" V \pop<"60""9990" ]<"4","1";"Buy new stage costumes";"6","1";"Cost `500" ^cash=cash-"500" ` fpop<"75""9990" gN"4","1";"You have been ordered to give a";"6","1";"Royal performance." hpop=pop+"3" jpop>"100"pop="100" k psingɰ"1""9990" qN"4","1";"Your latest record ";t$;"6","1";"has been banned by the BBC." rpop=pop+"2" s zcash<"5000""9900" {p"4","1";"A childrens charity has asked ";"6","1";"you to give a FREE ";"8","1";"concert. cost `2000" |"23658","8":"YES/NO ";a$ }'a$"YES"a$"NO"װ".1","20":"892" ~+a$="YES"pop=pop+"3":cash=cash-"2000" a$="NO"pop=pop-"6" pop>"100"pop="100" pop<çpop=ç  cash<"5000""9990" "4","1";"Thieves have broken into your";"6","1";"recording studio,and ";"8","1";"stolen some very valuable";"10","1";"equipment. Cost `2000" cash=cash-"2000"  j"4","1";"Your group have been asked to";"6","1";"to do a live Televison";"8","1";"performance." -"10","1";"What is your performance fee?" /a$="":"FEE ";a$:a$=""װ".01","10":"912" =f="1"̱a$:a$(f)<"47"ůa$(f)>"58"װ".01","10":"912" f:a$>pop*"50"-(*"200")"15","1";"The producer of the show thinks";"17","1";"you over estimate";"19","1";"their appeal.":װ".1","10":pop=pop-"5": "12","1";"Okay..." H"14","1";"They pay you `";a$;" for";"16","1";"your performance" pop=pop+"3":cash=cash+a$ pop>"100"pop="100"  P"4","1";"A top DJ would really like to ";"6","1";"interview your group." 9f="1"̰"5":"10","1";"Will you accept `";pop*f;" ?" "Will you accept Y/N ";a$ Ma$="y"a$="Y"cash=cash+pop*f:pop=pop+"2":"13","1";"Okay...":"929" "y"Ŧ"Y""925" *random=(*"100"):random<"20""928" f W"15","1";"You have priced yourself out";"17","1";"of the market.":װ".01","10"  "4","1";"A journalist wishes to ";"6","1";"interview you about the ";"8","1";"problems of managing a group.";"10","1";"FEE `20,do you";"12","1";"a)accept ";"14","1";"b)tell him where to go" ;="A"Ŧ="a"cash=cash+"20":"16","1";"You accept.": Z="b"Ŧ="B"pop=pop-"1":"18","10";"***** !!!":f="10"̰"1"-"1":װ".01",f:f:  "931" cspɰ"1""9990" "6":ڰ"6":ٰ"0": ~"4","1";"Your group ";g$;" has";"6","1";"been awarded a gold disc";"8","1";"for their great record";"10","1";t$ pop=pop+"1" pop>"100"pop="100"  pop<"90""9990" "4","1";"Your group ";g$;" have";"6","1";"been voted TOP group of";"8","1";year;" in the Rock+Pop ";"10","1";"awards"  pop="100"  singɰ"1""9990" K"4","1";"Do you wish to make a video";"6","1";"Cost `2000 (Y/N)?" 6="y"Ŧ="Y"pop=pop+"2":cash=cash-"2000":"965" ="N"Ŧ="n""965" "962" pop<çpop="1" pop>"100"pop="100"  ("21","3";"PRESS ENTER TO CONTINUE." =°"13""972" "970":cash<ç"9000" װ".1","10":"1400" ç:ç:ٰ"7": ~f=ç̰"2":f,ç;ڰ"4";" ":f:"23607","223":"1","12";ڰ"4";ç;"LOANS":"23607","60" >"4","1";"Do you want to Borrow Repay";"6","1";"a Loan" "8","1";"You owe `";loan +"10","1";"Interest rate 10% per month" o"12","1";"Repayment `50 minimum per month";"14","1";"Press ~B~ to borrow or ~R~";"16","1";"to repay" Y"20",ç;ٰ"4";"Press ENTER if you don't want to ";"21","5";"see the bank Manager." ="r"Ŧ="R""1200" ="b"Ŧ="B""1100" =°"13""260"  "1010" L;f="3"̰"21":f,ç;" ":f Qmwloan=pop*"20":"4","1";"Your bank manager Mr Jones is";"6","1";"willing to loan you up to `";wloan V0a$="":"How much do you want to borrow ?`";a$ Xa$=""װ".01","10":"1110" Y>f="1"̱a$:a$(f)<"48"ůa$(f)>"57"װ".01","10":"1110" Zf [)a$<çŰa$>wloanװ".01","10":"1110" ` lonbo=a$ bcash=cash+a$ floan=loan+lonbo j"260" ;f="3"̰"21":f,ç;" ":f }loan<"1""4","1";"You don't have a loan.":װ".1","10":#"1";ç,"2";"Press any key to continue.":"10":ç:"260" h"4","1";"How much would you like to";"6","1";"pay back ";m$;" ?";"8","1";"You owe us `";loan 0a$="":"How much will you repay ? `";a$ >f="1"̱a$:a$(f)<"48"ůa$(f)>"57"װ".01","10":"1210" zf:a$>cash"10","1";"You can't afford that.":װ"1","10":"200":"10","1";" ":"1210" a$>loan"10","1";"You don't owe that much...YET!":װ"1","10":"200":"10","1";" ":"1210" cash=cash-a$ loan=loan-a$ P"13","1";"That will do nicely...":f="1"̰"20":װ".01",f:f:"50":"260" 7#"1";ç,"3";"Press any key to Continue.":"1":ç xsingɰ"1"bumɰ"1""1700"  bum="1"singɰ"1""1600" !csp=ç:mosing="1"mult="25" mosing="2"mult="50" mosing="3"mult="75" mosing="4"mult="100" mosing="5"mult="100" mosing="6"mult="75" mosing="7"mult="55" mosing="8"mult="40" mosing="9"mult="25" mosingȰ"10"mult="5" %svalue=mult*pop:mosing=mosing+"1" svalue>recsvalue=rec 5x=svalue/"235":cp1=x-"41":b=cp1*cp1:csp=b/-cp1 svalueȰ"9400"csp="1" (svalueǰ"234"svalueȰ"100"csp="40" svalueǰ"99"csp=ç 1svalue>recrec=ç:cash=cash+rec*"2":"1563" rec=rec-"1"*svalue: cash=cash+svalue*"2" bumɰ"1""1700" @clp=ç:mobum="1"mult="5" Emobum="2"mult="10" Jmobum="3"mult="15" Omobum="4"mult="20" Tmobum="5"mult="20" Ymobum="6"mult="15" ^mobum="7"mult="10" cmobum="8"mult="7" hmobum="9"mult="5" mmobumȰ"10"mult="3" q#avalue=mult*pop:mobum=mobum+"1" ravalue>lpavalue=lp w9y=avalue/"200":clp1=y-"41":h=clp1*clp1:clp=h/-clp1 |avalueȰ"1955"clp="1" ~(avalueǰ"199"avalueȰ"100"clp="40" avalueǰ"99"clp=ç .avalue>lplp=ç:cash=cash+lp*"5":"1700" *lp=lp-"1"*avalue:cash=cash+avalue*"5"  "7900" ç:ç:ٰ"7": ."5","1";"Do you wish to continue playing" "7","1";"[Y/N]" ="Y"Ŧ="y""100" ="n"Ŧ="N"  "5030" |"0.2","2","0.2","4","0.2","6","0.4","9","0.2","7","0.2","6","0.2","2","0.2","4","0.2","6","0.4","9","0.2","7","0.2","6","0.2","4","0.2","4","0.2","4","0.2","4","0.2","6","0.2","2" "0.2","4","0.2","4","0.2","4","0.2","4","0.2","6","0.2","2","0.2","9","0.2","9","0.2","9","0.2","9","0.2","4","0.2","12","0.2","11","0.2","9","0.3","9","0.3","9","0.3","9","0.2","9","0.2","14","0.2","12","0.2","11" "0.2","9","0.2","9","0.2","9","0.2","9","0.2","9","0.2","10","0.6","7","0.2","7","0.2","7","0.2","4","0.2",ç,"0.6","5" "0.5",-"5","0.5",-"10","0.5",-"9","0.5",-"10","0.5",-"5","0.5",-"3","0.5",-"9","0.5",-"10","0.5",-"3","0.5",-"2","0.5",-"6","0.5",-"10","0.5",-"5","0.5",-"10","0.5",-"9","0.5",-"12","1",-"10" f  %mon="12"year=year+"1":mon="1" "wages=pop*"10":cash=cash-wages mon=mon+"1" loan=ç"7940" Tloan>"50"cash=cash-"50":loan=loan+loan/"100"*"10":loan=loan-"50":"7940" ?loan=loan+loan/"100"*"10":loan=loan-"50":cash=cash-"50" loançloan=ç loan>"99999""9000" tsales=pop*"5"  tsales>tstsales=ts *ts=ts-"1"*tsales:cash=cash+tsales*"5" psales=pop*"7" pos"20"f="40"̰"21"-"1":f-"20",ç;f:f:"7982" - f="20"̰"1"-"1":f,ç;f:f .Uz=csp:csp>"20"f="40"z-"1":f-"20","2";ٰ"2";"":װ".03",-f::f:"7984" /Cz=csp:f="20"z-"1":f,"2";ٰ"2";"":װ".03",-f:f:"7984" 0,ç,"27";ڰ"1";"Album":clp<"1""7990" 1>clp>"20"f="40"̰"21"-"1":f-"20","30";f:f:"7988" 2Ff="20"̰"10"-"1":f,"30";f:f:f="9"̰"1"-"1":f,"31";f:f 3Da=clp:f="20"a-"1":f,"29";ٰ"1";"":װ".03",-f:f:"7990" 4Aa=clp:f="40"a-"1":f-"20","29";ٰ"1";"":װ".03",-f:f =C#"1";ç,"5";ڰ"2";"Press ENTER to continue":°"13""7997" ?3clp="1"csp="1"cashȰ"100000"loan=ç"8100" @"100" qç:ç:ٰ"7"::monscore=year-"1984":monscore=monscore*"12":monscore=monscore+mon:score=pop/monscore*"50" O"23607","223":"1","8";"CONGRATULATIONS":"23607","60" Rn=m$/2-16:4,n;m$:6,5;"You are superb manager" 08,4;"Your final score was ";score  9050Z# !3 !4("8510":f="a""h"+"7":a:f,a:f: !>"126","126","126","126","126","126",ç,"255",ç,"126","126",ç,"118","118","118",ç,"85","170","85","170","85","170","85","170" !C"128","192","32","208","56","204","50","205","1","3","4","11","28","51","76","179","204","51","204","51","204","51","204","51" !Hq"255","129","189","165","165","165","189","129","225","189","165","165","165","189","129","255" !Lpop<"35""5","10";ٰ"3";"RISK DISCS";"8","9";ٰ"7";"            " ! popȰ"35"pop<"60""5","9";"GREAT RECORDS";"8","9";"  " !popȰ"60"pop<"90""3","10";"ABC RECORDS";"5","10";"  ABC   " "`popȰ"90""3","9";"ACE RECORDINGS";"5","14";"   ACE  " " #(ç:ç:ٰ"7": #2ink="4":f=ç̰"16"Ͱ"2":"4","5";ink;" " #< װ".1",-f #A"ink=ink+"1":ink="7"ink="1" #Ff #P1"80":"5550":f="1"̰"17":x,y:x+".1",y:f #U "11","8";"You are bankrupt" #Z."14","1";"Would you like to play again ?" #dװ".01",(*"60") #n="Y"Ŧ="y" #x="N"Ŧ="n"0 #} "9050" %: % %)"23658",ç:ç:ç:ç:ç:ç:ٰ"6": %&"9505":f="a""b"+"7":a:f,a:f %!h"1","3","7","15","31","63","127","255","128","192","224","240","248","252","254","255" %&"4","8";ٰ"2";"     " %0"10","5";ٰ"2";"        " %Da$=" STARMAKER Written By D.Hawkins Game Design R.Hawkins Music and Sound By The Dragon This game was written using CP software's SUPERCODE Press the ENTER key to start " %N"5500":a=ç̱a$-"32":#1;0,0;0;a-(a/4)*4+4;a$(a+1a+32 ):a/3=(a/3)x,y %X.01z# =,y+x %] =°"13" %la %q "9540" & "9990" 'c=(*3) '%c="0"a$="No news is good news.." ' c="1"a$="Nothing to report" ' c="2"a$="No news today" ' "4","4";a$ ' "969" 2#N%xyavTLvaluvaluulobuosinuinraphicoeodasoasleaoMsnGcnANo news is good news..x=23653e\+256*23654f\:a=(*256):"STARMAKER"23552\-a,x-23500[+a: STARMAKER 7[7[ $