STOCKMARK  ?Stock Market by Peter Young, from Your Spectrum #2 (Mar.1984) H0:7:7::236099\,502:23658j\,8 B10 ,3;1;6;"STOCK MARKET P.YOUNG 1983" (bribeattempt=0:gameturn=1 N#1;"SKILL LEVEL (1-4) ?";:9100#:level=k$:#1;8;k$ U#1;"NUMBER OF PLAYERS ?";:9100#:numofplayers=k$:#1;8;k$ V#1;"NUMBER OF GAME TURNS ?";:9100#:gamelength=k$:#1;8;k$ :8000@  100d (J.3,0:.3,3:.3,5:.3,0: *>0,0;1;"SHARE VALUE AVAIL HOLD S TRND" + l=1 -r=3152:r,0;n$(l);r,7;"`";r,9 ;s(1,l);r,29;s(3,l):s(4,l)1r,27;s(5,l):r,26;"S":480 .r,26;"N" 0l=l+1:r < d MAIN LOOP i 40( n9n=1numofplayers:120x:150:210 x)1,10 ;5;"PLAYER ";n }hold=1 jr=3152:r,14;s(2,hold);r,21;p(hold,n);" ":hold=hold+1:r m16,26;" ":16,2;5;"READY CASH ON TURN ";gameturn;" ";p(8,n): J18,0;6;"RUMOURS":r=1820:6000p:r -21,10 ;" " %bribe=10 +5*(*5) Q#1;1,0;"BRIBE OFFICIAL FOR `";bribe;" ? ":9100#:y$=k$ +y$"Y"y$"YES"y$"N"y$"NO"160 ?y$="Y"y$="YES"bribeattempt=1:r=21:6000p bribeattempt=0  5000 n K4000:n=16:s(5,n)0s(4,n)=2 n :s(3,7)=(*3):BCHIP INCREASE (IF ANY) ]n=17:s(1,n)=s(1,n)+s(3,n):s(1,n)07000X .s(1,n)>40(s(1,n)=40( n n=16:s(4,n)=2s(5,n)=s(5,n)-1:s(5,n)=0s(4,n)=1:CHECKS SUSPENDED SHARES n v40(:1,10 ;5;"NET MOVEMENT":17,3;6;"PRESS ANY KEY TO CONTINUE":0 ,dgameturn=gameturn+1:gameturn=gamelength19,10 ;1;"LAST TURN COMPING UP" 6!gameturn>gamelength9000(# @sn=16:s(3,n)=(0.5+(.5*s(3,n))):s(1,n)=40(s(3,n)=0 J*n:s(3,7)=0:105i COMPUTER RUMOURS ::3,0;5;"RUMOURS UNKNOWN TO PLAYERS" Dr=76+level:ran1=1+(*47/):6012|:r  150  PLAYER ACTIONS J17,0;2;7;" TYPE ""E"" TO FINISH THIS PHASE " p#1;0,0;" TRANSACTION- SELL OR BUY ":9100#:y$=k$ Qy$="E"#1;1,0;"O.K. -YOUR TURN OVER ":150: y$="S"y$="B"5030  5020 "NUMBER OF SHARES ";num >"COMPANY NAME ";c$:l=17:c$=n$(l)5050 \l:#1;0,0;"NO SUCH COMPANY AS ";c$," -TRY AGAIN":150:5020 ^s(4,l)1#1;1,0;"SHARES SUSPENDED ":150:5020 y$="S"5100 y$"B"5020 mnum>s(2,l)#1;0,0;"THERE ARE NOT ";num," SHARES AVAILABLE":150:5020 lp(8,n)p(l,n)#1;0,0;"YOU DO NOT HAVE ";num;" SHARES IN ",c$;" TO SELL":150:5020 p(8,n)=p(8,n)+num*s(1,l):s(2,l)=s(2,l)+num:p(l,n)=p(l,n)-num:#1;0,0;num;" SHARES SOLD IN ";c$;" FOR `";s(1,l)*num:200:5090 pINFO GIVEN TO PLAYERS uZbribeattempt=1p(8,n)=p(8,n)-bribe:140:>.8L6180$ zran1=1+(*491) |ran1>32 6070 ran1=1+(*8) &m(ran1)>0w$="UP":6040  w$="DOWN" ran2=1+(*4) )s(3,ran2)=s(3,ran2)+m(ran1) 9r,10 ;n$(ran2);" ";w$;" `";m(ran1);" ": ran1>42*6120 ran1=9 +(*5) &m(ran1)>0w$="UP":6110  w$="DOWN" 'ran2=5+(*2):6045 ran1=43+l=16:s(4,l)=1s(3,l)=s(3,l)+2:l:r,10 ;"ALL SHARES UP `2 ": ran1=44,l=16:s(4,l)=1s(3,l)=s(3,l)-2:l:r,10 ;"ALL SHARES DOWN `2 ": ran14806160 lran2=1+(*6):s(5,ran2)=2+(*3):r,10 ;n$(ran2);" TO BE SUSPENDED": _r,10 ;"LIFT SUSPENSION-`":"ENTER COMPANY ";y$:l=16:y$=n$(l)6175 l:r,27;"NONE": `s(4,l)=1:s(5,l)=0:r,27;y$:1+l*2,26;"N ": $ran1=1+(*4) .)p(8,n)=p(8,n)-502*ran1 8Jr,10 ;"FINED `";502*RAN1;" FOR BRIBERY":100d:140 L XBANKRUPT COMPANY b;l=1numofplayers:p(n,l)=0:p(n,l)=0:l lqs(1,n)=15:s(3,n)=0:s(4,n)=1:s(2,n)=100d:s(5,n)=0 v .4L,0:.3,0:.2~L,0:.4L,0:.4L,3:.2~L,2:.3,2:.2~L,0:.3,0:.2~L,-1:.4L,0:18,0;"SHARES IN ";n$(n);" LOST-BANKRUPTCY":130  @INITIALISATION J"m(14):n$(7,5) Tn=114:m(n):n ^x-4,-3,-2,-1,1,2,3,4,6,4,2,-10 ,-8,0 hn=17:n$(n):n r9"AKRAN","BELSO","COBRA","DOBRO","ELSAT","FINET","BCHIP" :s(5,7):p(8,numofplayers):w$(4) l=17:n=1 s(n,l)=15 s(n+1,l)=100d s(n+2,l)=0 s(n+3,l)=1 s(n+4,l)=0 l s(1,7)=10 +l=17:n=1numofplayers p(l,n)=0:n l 4n=1numofplayers:p(8,n)=1000:n  #( END OF GAME #-,:1,10 ;6;"END OF GAME" #2 r=4 #<n=1numofplayers #FEl=17:p(8,n)=p(8,n)+s(1,l)*p(l,n):l #PGr,0;"PLAYER ";n;" FINISHED WITH ` ";p(8,n);:r=r+4 #Zn #d # GET KEY #1:0 #k$= # ' Do not type in lines 9997-9999 ':"m";1;"Stocks" '*"m";1;"Stocks" ribeattempametureveumofplayeramelengtI(AKRANBELSOCOBRADOBROELSATFINETBCHIPn ddddddd-UP olananribK Y P