bullsand.tap - top strings

Top 10k strings from bullsand.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
   5 ;"YOU CAN BUY ";
   2 ;w$(c),"`";z(c)+g(c)*oil+h(c)*ship+i(c)*prop+j(c)*toys+k(c)*met+l(c)*car:
   2 ;"PRESS ANY KEY TO CONTINUE"
   2 ;" ENTER THE FIRST LETTER OF THE   CHOSEN SHARE, THEN PRESS ENTER "
   2 ;"                   "
   2 ;"                              "
   2 ;"                                ":
   2 "ENTER LETTER";z$
   1 z(x)=z(x)-(toys*q):
   1 z(x)=z(x)-(ship*q):
   1 z(x)=z(x)-(prop*q):
   1 z(x)=z(x)-(oil*q):
   1 z(x)=z(x)-(met*q):
   1 z(x)=z(x)-(car*q):
   1 z(x)=z(x)+(toys*q):
   1 z(x)=z(x)+(ship*q):
   1 z(x)=z(x)+(prop*q):
   1 z(x)=z(x)+(oil*q):
   1 z(x)=z(x)+(met*q):
   1 z(x)=z(x)+(car*q):
   1 z(x)/toys>j
   1 z(x)/ship>h
   1 z(x)/prop>i
   1 z(x)/oil>g
   1 z(x)/met>k
   1 z(x)/car>l
   1 toys=toys+a:
   1 ship=ship+a:
   1 q*toys>z(x)
   1 q*ship>z(x)
   1 q*prop>z(x)
   1 q*oil>z(x)
   1 q*met>z(x)
   1 q*car>z(x)
   1 prop=prop+a:
   1 oil=oil+a:
   1 o$="TOYS":
   1 o$="SHIP":
   1 o$="PROP":
   1 met=met+a:
   1 l(x)=l(x)-q:
   1 l(x)=l(x)+q:
   1 k(x)=k(x)-q:
   1 k(x)=k(x)+q:
   1 j(x)=j(x)-q:
   1 j(x)=j(x)+q:
   1 i(x)=i(x)-q:
   1 i(x)=i(x)+q:
   1 h(x)=h(x)-q:
   1 h(x)=h(x)+q:
   1 g(x)=g(x)-q:
   1 g(x)=g(x)+q:
   1 car=car+a:
   1 Stocks & Shares             aka.Bulls & Bears                by N.T. Morgan                from Sinclair User, Feb'85
   1 STOCKS    
   1 ;b;" PLAYERS"
   1 ;"step ";ri
   1 ;"end ";re'"New nos:start ";rn;
   1 ;"`10"'" `9"'" `8"'" `7"'" `6"'" `5"'" `4"'" `3"'" `2"'" `1"
   1 ;"`";toys:
   1 ;"`";ship:
   1 ;"`";prop:
   1 ;"Your limit of ";v;" turns is now complete.When all the shares aresold at their current prices theorder of wealth between  playersis as follows:"
   1 ;"YOU HAVE `";z(x)
   1 ;"YOU CAN BUY  ";
   1 ;"The object of the game is to    speculate on the stock market.  To buy shares when prices are   low and to sell when prices are higher."'"        GOOD  LUCK"
   1 ;"THERE ARE ";
   1 ;"Press any key to play again."
   1 ;"PRESS ANY KEY TO TURN THE CARDS"
   1 ;"PLAYER ";x;" ...";w$(x)
   1 ;"PLAYER ";x-1
   1 ;"OIL"'"SHIPPING"'"PROPERTIES"'"TOYS"'"METALS"'"CARS"
   1 ;"OIL SHIP PROP TOYS MET CAR"
   1 ;"Is this correct enter Y or N"
   1 ;"Instructions follow next"
   1 ;"HOW MANY TOYS SHARES WANTED?    ";
   1 ;"HOW MANY TOY SHARES FOR SALE                                  ":
   1 ;"HOW MANY SHIPPING SHARES WANTED?";
   1 ;"HOW MANY SHIPPING SHARES TO SELL                               ":
   1 ;"HOW MANY PROPERTY SHARES WANTED?";
   1 ;"HOW MANY PROPERTY SHARES TO SELL                                ":
   1 ;"HOW MANY OIL SHARES WILL YOU BUY";
   1 ;"HOW MANY OIL SHARES FOR SALE                                  ":
   1 ;"HOW MANY METAL SHARES WANTED?   ";
   1 ;"HOW MANY METAL SHARES FOR SALE                                ":
   1 ;"HOW MANY CAR SHARES WILL YOU BUY";
   1 ;"HOW MANY CAR SHARES FOR SALE                                 ":
   1 ;"FINAL SCORE":
   1 ;"Enter number of players 2 to 6"
   1 ;"ENTER YOUR NAME PLAYER ";x
   1 ;"ENTER KEYS     'B' 'S'  OR  'P' "
   1 ;"DO YOU WISH TO LIMIT THE NUMBER           OF TURNS";
   1 ;"DO YOU WANT TO BUY SELL OR PASS "
   1 ;"CURRENT CASHFLOW SITUATION":
   1 ;"AT TURN ";n:
   1 ;"ARE YOUR ENTRIES CORRECT             ENTER ";
   1 ;"A game for two to six players"
   1 ;" STOCKS AND SHARES "
   1 ;" OWNED  PRICE  AVAIL"
   1 ;" ...";w$(x-1
   1 ;"   If all players were to sell  their assets at current market  prices and to add their cash    then the total amounts availableto each player would be:"
   1 ;"                         "
   1 ;"                                "
   1 (z(x)/toys);
   1 (z(x)/ship);
   1 (z(x)/prop);
   1 (z(x)/oil);
   1 (z(x)/met);
   1 (z(x)/car);
   1 "Old nos: start ";rs;
   1 "Enter number of turns 10 to 99  ";v
   1 "ENTER NUMBER OF SHARES  ";q: