Top 10k strings from stockma1.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /

Back to the directory listing

   3 numofplayers:
   2 numofplayers
   2 bribeattempt=1
   2 bribeattempt=0
   1 umofplayer
   1 ribeattemp
   1 p(l,n)=p(l,n)-num:
   1 p(l,n)=p(l,n)+num:
   1 numofplayers=
   1 num>p(l,n)
   1 m(ran1);"         ":
   1 hold=hold+1
   1 gameturn>gamelength
   1 gameturn=gameturn+1
   1 gameturn=gamelength
   1 gameturn=1
   1 gamelength=
   1 Stock Market by Peter Young, from Your Spectrum #2 (Mar.1984)
   1 STOCKMARK 
   1 PLAYER ACTIONS
   1 INITIALISATION
   1 INFO GIVEN TO PLAYERS
   1 END OF GAME
   1 Do not type in lines 9997-9999
   1 COMPUTER RUMOURS
   1 CHECKS SUSPENDED SHARES
   1 BCHIP INCREASE (IF ANY)
   1 BANKRUPT COMPANY
   1 AKRANBELSOCOBRADOBROELSATFINETBCHIP
   1 ;p(l,n);"  ":
   1 ;p(hold,n);"  ":
   1 ;num;" SHARES SOLD IN ";c$;" FOR `";s(1
   1 ;num;" SHARES BOUGHT IN ";c$;" COST-  `";s(1
   1 ;n$(ran2);" TO BE SUSPENDED":
   1 ;n$(ran2);" ";w$;" `";
   1 ;"YOU HAVEN'T ENOUGH MONEY":
   1 ;"YOU DO NOT HAVE ";num;" SHARES IN ",c$;" TO SELL":
   1 ;"THERE ARE NOT ";num," SHARES AVAILABLE":
   1 ;"STOCK MARKET P.YOUNG  1983"
   1 ;"SKILL LEVEL (1-4) ?";:
   1 ;"SHARES SUSPENDED   ":
   1 ;"SHARES IN ";n$(n);" LOST-BANKRUPTCY":
   1 ;"SHARE  VALUE AVAIL  HOLD  S TRND"
   1 ;"RUMOURS":
   1 ;"RUMOURS UNKNOWN TO PLAYERS"
   1 ;"READY CASH ON TURN ";gameturn;"    ";p(8
   1 ;"PRESS ANY KEY TO CONTINUE":
   1 ;"PLAYER ";n;" FINISHED WITH ` ";p(8
   1 ;"PLAYER  ";n
   1 ;"O.K.  -YOUR TURN OVER         ":
   1 ;"NUMBER OF PLAYERS ?";:
   1 ;"NUMBER OF GAME TURNS ?";:
   1 ;"NO SUCH COMPANY AS ";c$," -TRY AGAIN":
   1 ;"NET MOVEMENT":
   1 ;"LIFT SUSPENSION-`":
   1 ;"LAST TURN COMPING UP"
   1 ;"FINED `";50
   1 ;"END OF GAME"
   1 ;"BRIBE OFFICIAL FOR `";bribe;" ? ":
   1 ;"ALL SHARES UP `2      ":
   1 ;"ALL SHARES DOWN `2    ":
   1 ;" TYPE ""E"" TO FINISH THIS PHASE  "
   1 ;"                      "
   1 ;"                                TRANSACTION- SELL OR BUY       ":
   1 ,ran2)=s(3
   1 ,ran2)+m(ran1)
   1 ,numofplayers):
   1 ,n)-bribe:
   1 ,n)+num*s(1
   1 ,l)*p(l,n):
   1 *RAN1;" FOR BRIBERY":
   1 "NUMBER OF SHARES ";num
   1 "ENTER COMPANY ";y$:
   1 "COMPANY NAME ";
   1 "AKRAN","BELSO","COBRA","DOBRO","ELSAT","FINET","BCHIP"