Chart JJiJYChart Topper by Mike Hyams from ZX Computing,Aug/Sep'85  9000(# _n=15 `s(n)=0 an d 9500% i!"Monday week ";week;" ";year k 235 n"Money = `"; xcash3>0cash3; cash=cash2 cash3>0150 %cash3=0cash2>0cash2; 200 cash=0"000"; (cash>0cash<10 "00";cash; (cash>9 cash<100d"0";cash; cash>99ccash;  cash=cash1 (cash3>0cash2>0150 $cash3=0cash2=0cash1    110n "Do you want to arrange....."  "1) Advertising"  "2) A recording contract"  6"3) A record release" @ J"4) Save to tape" T U"5) Nothing" V ^""Please choose one of the above" ha r a>5a<1360h ws(a)=1360h xs(a)=1 a*100d+300,  "ADVERTISING"  "ITEM COST"  "1. Leaflets"," `50"  "2. Music papers"," `200"  "3. Music papers"," `1000"  "4. Street posters";" `500"  "5. Street posters";" `2000"  "6. Radio"," `3000"  "7. T.V."," `10000"  "8. Nothing"," `0"   110n "Please select your choice" a  a<1a>8423 a=8100d a*10 +420 cash1=cash1-502  9450$ 8fans=fans+((*(10000'-fans)+1)/1000)  100d cash1=cash1-200  9450$ 7fans=fans+((*(10000'-fans)+1)/500)  100d cash2=cash2-1  9450$ 7fans=fans+((*(10000'-fans)+1)/200)  100d cash1=cash1-500  9450$ 7fans=fans+((*(10000'-fans)+1)/200)  100d cash2=cash2-2  9450$ 7fans=fans+((*(10000'-fans)+1)/100d)  100d cash2=cash2-3  9450$ 6fans=fans+((*(10000'-fans)+1)/502)  100d cash2=cash2-10  9450$ 6fans=fans+((*(10000'-fans)+1)/30)  100d  "RECORDING CONTRACTS REVIEW" " "  time=0540 "Your contract with ";c$ $"still has ";time;" weeks to run."  554* fans>10005600 !""Nobody wants to put your group" " $""under contract because they do" & '$"not have a big enough following." * + , 9605% . 100d 0a=(*6+1) 15600+a*2 2 c$="E.M.I." 3 573= 4 c$="VIRGIN" 5 573= 6 c$="C.B.S." 7 573= 8 c$="ARISTA" 9 573= : c$="EPIC" ; 573= < c$="A + M" =6"You have been offered a contractby ";c$;" RECORDS." > ?"The offer is as follows..." @ A$per=(*(fans/1000)+1) B "Royalties at ";per;" percent" C "per sale." D E,"or" F G.flat=(*(fans/10 +1)+1000) H "A flat rate of `";flat;" per" I+"single and `";flat*5;" per album." J K$time=(*3+1)*524 L2"Period of contract is ";time/524;" years." N O7"Do you want (R)oyalty,","(F)lat rate, or (N)either?" Pb$ Q$b$="R"b$="F"b$="N"592P Rb$="N"time=0 Sb$="N"100d Tb$="R"flat=0 Ub$="F"per=0 W 100d X ]"RECORD RELEASE" ^" " b e"(S)ingle or (A)lbum?" f gb$ hb$="S"b$="A"620l i 615g l[(b$="S"album>0cull<5)(b$="S"rec>3)(b$="A"rec>19)639 mb$="A"b$="an album" nb$="S"b$="a single" o<"You must do more recording"''"before you can release ";b$ p q r"Recommended minimums..." s t"Single - 4 sessions" u v"Album - 20 sessions" x z$"No more than 4 singles from 1 LP" ~ 554* p$="" b$="A"669 a=15 z(a)=0645 a  695 album<1649 5"Is this single from the album"'"""";y$;"""?"'"Y/N" p$  p$="Y"cull>3696 "Name of new single?" b$ z$=b$ z(a)=999 single=single+1  x(a)=single  loop=61475#+x(a)*25 a=looploop+19 a,b$ b$=b$(2) a  """";z$;""""  !"will be released on Thursday." p$="N"p$=""9700% p$="Y"cull=cull+1  554* a=15 y(a)=0673 a  695 y(a)=999 "Name of album?" album=album+1 b$ y$=b$  w(a)=album  loop=61975+w(a)*25 a=looploop+19 a,b$ b$=b$(2) a  :"How many of your recordings to be used on this album?" rec1 #rec1<20rec1>rec686  """";y$;""""  ""will be released on Wednesday." rec=rec-rec1 cull=0  554* R"No more than 5 singles and 5 albums may be on release at the same time."  554* "chart"95_  95_ *time=01000 4per=0900 >z=15 H(z(z)>150z(z)=0850R I"cash1=cash1+(151-z(z))*per J 9460$ R(y(z)>150y(z)=0860\ T*cash1=cash1+(151-y(z))*per*5 U 9460$ \z f 1000 z=15 "z(z)=999cash1=cash1+flat  9460$ y(z)=999950 b=15 cash1=cash1+flat  9460$ b z  9600%  9500% !"Tuesday week ";week;" ";year   "CHART DAY"  " " $a=15 ')z(a)=0z(a)=9991065) ( 1190 ))y(a)=0y(a)=9991067+ * 1190 +a ."You do not have any records" 8 B"on the chart at the moment." G 1810 "Press ENTER for new chart"  b$ z=15  )z(z)=0z(z)>100d1259 "BBC/Gallup Singles Chart"   9505!% "Single :- "; d=x(z)*25+61475# a=dd+19 ¾a; a  aa=a "Weeks in chart = ";a G"Highest position = ";(a+1),"Last week = ";(a+2)   "Press ENTER for new position" b$   qq=z(z)  1265 "Press ENTER" b$ aa+2,z(z) aa,(aa)+1 ;z(z)<(aa+1)ž(aa+1)=0aa+1,z(z) z  1600@  b$=qq a=b$ qq<100da=480 a=4801290  b$=b$(2)  b=b$  qq<10 b=480 b=4801310 b$=b$(2) c=b$ (d=07 2num=a < 1500 Fnum=b P 1500 Znum=c d 1500 i nd x num=num*8+15360<+d  num=num div=128 e=18 num>div-11550 " ";  1570" "";  num=num-div "div=(div/2) ,e 6 @z=15 J)y(z)=0y(z)>100d1800 T ^"BBC/Gallup Album Charts" c h 9505!% k"Album :- "; md=w(z)*25+61975 ra=dd+19 w¾a; |a  "Weeks in chart = ";a $"Highest position = ";(a+1) $"Last week = ";(a+2)  qq=y(z) aa=a   "Press ENTER for new position" b$  1265  "Press ENTER" b$ aa,aa+1 ;y(z)<(aa+1)ž(aa+1)=0aa+1,y(z) aa+2,y(z) z z=15 z(z)=01870N z(z)=9991825! z(z)=150 6u(z)=(*(fans/200)+1)+(fans/200) )cull=0u(z)=u(z)+(rec1/2) &cull>0u(z)=u(z)-cull*2 !8z(z)=1ƺ(*10 +1)>41850: &0z(z)=z(z)-u(z)-(*(z(z)/8+1)) 'z(z)<1z(z)=1 +z(z)<1511850: 0d=x(z)*25+61475# 1a=dd+19 2¾a; 3a 4 5"has stopped selling" 6z(z)=0 7u(z)=0 8x(z)=0 9 1870N :)z(z)<101efans=fans+40(-z(z) ?-u(z)>0u(z)=(u(z)*z(z)/(z(z)+u(z))) DEu(z)<1u(z)=-((*(z(z)+u(z)+1))+(*5+1)) Nz Xz=15 ]y(z)=01950 by(z)=9991905q gy(z)=150 l6v(z)=(*(fans/200)+1)+(fans/200) q8y(z)=1ƺ(*10 +1)>31940 v0y(z)=y(z)-v(z)-(*(y(z)/8+1)) wy(z)<1y(z)=1 {y(z)<1511940 d=w(z)*25+61975 a=dd+19 ¾a; a  "has stopped selling" y(z)=0 v(z)=0 w(z)=0  1950 -v(z)>0v(z)=(v(z)*y(z)/(y(z)+v(z))) Ev(z)<1v(z)=-((*(y(z)+v(z)+1))+(*5+1)) z a=14 b=a+15 y(a)=01974 y(a)=y(b)1985 z(a)=01980 z(a)=z(b)1990 b a  2000 y(a)=y(a)+1  1960 z(a)=z(a)+1  1960  9600%  9500% #"Wednesday week ";week;" ";year   "BOOKINGS"  ""  "Do you want to book ..."   "1) A recording studio" * 4"2) A concert hall" > H"3) A pub/club hall" R \"4) A holiday" a c"5) Nothing" f g "or..." h"6) List bookings" k p!"Please enter one of the above" za !a<1a>62170z a=53000 a*100d+2110>  9500%  110n "RECORDING STUDIO COSTS" " " "1 day = `450"  "2 days = `800"  "3 days = `1400"   2233  2252 I"Please enter which week you would like to book, or 99 to pass." b b=99c2010 <a(b)>0"You already have a booking for this week." a(b)>02234  +"Which option would you like for week ";b a !a<1a>32246  a(b)=a a=12257 cash1=cash1-450  9450$ a=22261 cash1=cash1-800   9450$ a=32270 cash2=cash2-1 cash1=cash1-400  9450$  2010  9500%  110n "CONCERT HALLS" " "  "1) Concert hall `5000" ! ""2) Arena `50000" # $"3) Stadium `250000" ) 2233 .a=123608 2cash2=cash2-5 4a(b)=a+4 5 9450$ 6 2010 8a=22370B <cash2=cash2-502 = 23564 Ecash2=cash2-250 G 23564 j 9500% t"PUB/CLUB HALL" u" " v2"Which week do you want to book, or 99 to pass." wb xb=99c2010 ya(b)>02423w z "Week ";b ~fans>2002450 5pa=(100d-fans/10 -(*30+1)) 5"The manager wants `";pa,"for the use of his hall." "Do you accept? (Y/N)" b$ b$="N"2010 a(b)=502+pa 9450$ 9605% 2010 fans<3000 2470 @"The manager cannot risk staging you as the group is too big." 9605% 2010 pa=(fans/7) ,"The manager is prepared to pay you `";pa "Do you accept? (Y/N)" b$ b$="N"2010 a(b)=150+(pa/4) 9605% 2010 9500% "HOLIDAY" "" "Cost = `300"  9cash1>299+cash2>0cash3>02530 2227 2"Which week do you want to book, or 99 to pass?" b b=99c2010 a(b)>02540 a(b)=8 cash1=cash1-300,  9450$  9605%  2010 6000p 2010 9600% 9500% ""Thursday week ";week;" ";year  a(week)>03100 !"You have no arrangements made"  !"for this weekend. The group's"  "faith in you has dropped." %morale=((morale/10 )*9 ) !fans=((fans/10 )*9 )  5000 a(week)>33200 & "RECORDING" 0 "" :A"The group have spent ";a(week),"days in the recording studio." D>(*((morale/2)*a(week))+1)>99c3150N I:"Unfortunately none of their recordings are usable." L 5000 N"They made a good recording." S rec=rec+(*(a(week))+1) X 5000  a(week)>4913300 "PUB/CLUB HALL" " " fan=fans 8fans=((fans/19)*20)+(*502+1) fan=fans-fan a(week)>1503260 cash1=cash1+502-a(week) 9450$ $"The hall cost `";a(week)-502 "You gained ";fan;" fans" 5000 4"You have been paid `";(a(week)-150)*4 )cash1=cash1+(a(week)-150)*4 9460$ morale=morale+10 3246 a(week)=83350 "GROUP ON HOLIDAY" " " *"A well earned break for the group." 5000 a(week)=53400H "CONCERT HALL" " " 3510 Ha(week)=63500 R "STADIUM" S "" \ 3510 "ARENA" "" +(*12 +1)>9 3550 "A good concert." fan=fans "fans=((fans/10 )*11 ) 4fans>20000 Nfans=((fans/12 )*11 ) fan=fans-fan +"Popularity rating changed by ";fan (a(week)=7cash2=cash2+300, &a(week)=5cash2=cash2+6 'a(week)=6cash2=cash2+60< 9460$ 5000 "A bad concert." fans=(fans-fans/10 ) &a(week)=5cash2=cash2+4 'a(week)=6cash2=cash2+40( (a(week)=7cash2=cash2+200 3547 Ba(week)<4a(week)=8fans=((fans/10 )*9 ) a(week)=0  9600%  9500% "End of week ";week;" ";year   110n "Group morale = ";morale  "Popularity = ";fans   "Unreleased recordings = ";rec   "CHARTS"  "" "Singles","Albums"  a=15 !xx=(x(a)*25+614979) !ww=(w(a)*25+61997-)  'z(a)=0y(a)=05150 $xx>0xx<101e"No.";xx, xx>100d"-", xx=0, #ww>0ww<101e"No.";ww ww>100d"-" ww=0" " a & set=0 'time=1set=1 (!time>1time=time-1 -week=week+1 ."week=535year=year+1 /week=535week=1 P Z 9605% n 9500% x  "For details of chart success"  $"so far , press ""A"" then ENTER."   $"For a new week just press ENTER." b$ b$=""5500| b$="A"5300  9500%  "SINGLES"  "" 2single=0"No singles have been released." single=05390  "Title wks hi" a=1single single<8 d=25*a+61475# b=dd+19 ¾b; b " ";b;" "; b<10 " "; (b+1)  a "Press ENTER for albums" b$  9500%  "ALBUMS"  "" "0album=0"No albums have been released." #album=05480h , "Title wks hi" 1a=1album 6album<8 ;d=25*a+61975 @b=dd+19 E¾b; Jb O" ";b;" "; Pb<10 " "; Q(b+1) Ta h"Press ENTER for a new week" mb$ |single<165510 }n=61500<61850 ~n,(n+25) n single=15 n=15 x(n)=x(n)-25 n album<11 5519 n=62000062225 n,(n+25) n album=10 n=15 w(n)=w(n)-25 n set=095_  9500% "Your contract with ";c$ n"has expired. As they own the rights to your recordings you will no longer receive payment from them."   9605%  95_ za=03  9500% "Week ";week;" ";year   "BOOKINGS"  "" "Week","Event" *b=a*13 +1a*13 +13 b,; a(b)=0"-" .a(b)>0a(b)<4"Recording ";a(b)  a(b)>491"Pub/Club hall" a(b)=5"Concert Hall" a(b)=6"Arena" a(b)=7"Stadium" a(b)=8"Holiday" b  9605% a 8 #' #(n=110 #)"CHART - TOPPER" #*n #2" " #F" You are the manager of a popgroup. The group have entrustedupon you the task of steeringthem to the top of the charts." #K #Pb" They have yet to play theirfirst live show, so you may findit difficult to get a booking." #d #n2"To start please enter the name of your group." #xa$ # #cash1=500 #cash2=1 #cash3=0 #fans=0 # a(524) #week=1 #year=1984 #album=0 #single=0 #morale=100d $z$="" $y$="" $ z(5) $" y(5) $, x(5) $6 w(5) $7 s(5) $8 u(5) $9 v(5) $@ rec=0 $Jtime=0 $Tcull=0 $ $cash1>-19455$ $cash1=cash1+1000 $cash2=cash2-1 $cash2>-19459$ $cash2=cash2+1000 $cash3=cash3-1 $cash3=-19900& $ $cash1<10019464$ $cash1=cash1-1000 $cash2=cash2+1 $cash2<10019467$ $cash2=cash2-1000 $cash3=cash3+1 $ % %!b$=a$+1 %"""; %&b=b$ %0b=19560X% %:1;b; %Db$=b$(2) %N 9510&% %X"" %] %b % %"END OF DAY" %"Press ENTER to continue" %b$ % % % %5"How many recordings to be used for this release?" %rec1 %#rec1<4rec1>rec9705% %rec=rec-rec1 % & 9500% &$"****THE GROUP HAVE GONE BUST****" & &$"******YOU HAVE BEEN SACKED******" & 9930&