STOCKS 3433wStocks & Shares aka.Bulls & Bears by N.T. Morgan from Sinclair User, Feb'85  *23562 \,0:23658j\,8 oil=5:g=500 ship=5:h=500 prop=5:i=500 (toys=5:j=500 2met=5:k=500 7e=1:n=0 <car=5:l=500 A d=1 F0:0:7: P16:8,4;" " Z10:9 ,4;" STOCKS AND SHARES " d)10 ,4;" " n315,0;"A game for two to six players" x.21,2;"Instructions follow next" 250: 0: 7:8,0;"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" 821,1;1;"PRESS ANY KEY TO CONTINUE" 5000 1:7:7: 6:12 ,0;"Enter number of players 2 to 6" 5000 ="2"b=2:290" ="3"b=3:290" ="4"b=4:290" ="5"b=5:290" ="6"b=6:290" 6<502ů>5461,25:200 "7:2,2;"THERE ARE ";1;b;" PLAYERS" ,14,2;"Is this correct enter Y or N" 6 5000 @="Y"Ŧ="y"350^ J%89Yů121y200 T:7:7:0: ^w$(b,10 ) c&z(b):x=1b:z(x)=750:x h?:x=1b:2+x,2;"ENTER YOUR NAME PLAYER ";x mHx>1x-1,2;"PLAYER ";x-1;" ...";w$(x-1) r51+x,2;" " |w$(x) 5x=b2+x,2;" " *x=bx,2;"PLAYER ";x;" ...";w$(x) x x15,3;"ARE YOUR ENTRIES CORRECT ENTER ";1;"Y";0;" OR ";1;"N":20000 N "Y"350^ :3,0;"DO YOU WISH TO LIMIT THE NUMBER OF TURNS";6,12 ;1;"Y";0;" OR ";1;"N":10000':"Y"v=10000':400 &"Enter number of turns 10 to 99 ";v 4v<10 v>99c1,20:394  x=1b $g(x):h(x):i(x):j(x):k(x):l(x) Tg(x)=0:h(x)=0:i(x)=0:j(x)=0:k(x)=0:l(x)=0 x 7::4 n=n+1:n=v7000X 8d=d+1:d=46000p:7::4 /0,5;"OIL SHIP PROP TOYS MET CAR" N1,1;"`10"'" `9"'" `8"'" `7"'" `6"'" `5"'" `4"'" `3"'" `2"'" `1" j0:248,166:0,-79O:-209,0:0,79O:209,0 71:z=1oil:11 -z,5;"":z 95:z=1ship:11 -z,9 ;"":x :1:z=1prop:11 -z,14;"":x 95:z=1toys:11 -z,19;"":z 81:z=1met:11 -z,23;"":z 85:z=1car:11 -z,27;"":z  7  0 * r=14 + x=1b 0K12 ,0;2;w$(x);0;7;" OWNED PRICE AVAIL" :H13 ,0;"OIL"'"SHIPPING"'"PROPERTIES"'"TOYS"'"METALS"'"CARS" ]13 ,15;" ":14,15;" ":15,15;" ":16,15;" ":17,15;" ":18,15;" " b13 ,15;g(x):14,15;h(x):15,15;i(x):16,15;j(x):17,15;k(x):18,15;l(x) 13 ,22;" ":14,22;" ":15,22;" ":16,22;" ":17,22;" ":18,22;" " 13 ,22;"`";oil:14,22;"`";ship:15,22;"`";prop:16,22;"`";toys:17,22;"`";met:18,22;"`";car 13 ,27;" ":14,27;" ":15,27;" ":16,27;" ":17,27;" ":18,27;" " Ƅ13 ,27;g:14,27;h:15,27;i:16,27;j:17,27;k:18,27;l 519,10 ;" " 819,10 ;1;1;"YOU HAVE `";z(x) ?20,0;2;"DO YOU WANT TO BUY SELL OR PASS " ?21,0;2;"ENTER KEYS 'B' 'S' OR 'P' "  20000 N  ="B"1000 ="S"1500  ]="P".1}L,0:.1}L,10 :.1}L,20:.1}L,30:815/ *.5,45-:770 /x=b2000 4x:605] _20,0;2;" ENTER THE FIRST LETTER OF THE CHOSEN SHARE, THEN PRESS ENTER " "ENTER LETTER";z$ z$="O"20,0;"HOW MANY OIL SHARES WILL YOU BUY";1;"YOU CAN BUY ";(z(x)/oil);31:1800:1750:1200:g(x)=g(x)+q:z(x)=z(x)-(oil*q):g=g-q:600X z$="S"20,0;"HOW MANY SHIPPING SHARES WANTED?";1;"YOU CAN BUY ";(z(x)/ship);31:1810:1750:1250:h(x)=h(x)+q:z(x)=z(x)-(ship*q):h=h-q:600X z$="P"20,0;"HOW MANY PROPERTY SHARES WANTED?";1;"YOU CAN BUY ";(z(x)/prop);31:1820:1750:1300:i(x)=i(x)+q:z(x)=z(x)-(prop*q):i=i-q:600X z$="T"20,0;"HOW MANY TOYS SHARES WANTED? ";1;"YOU CAN BUY ";(z(x)/toys);31:1830&:1750:1350F:j(x)=j(x)+q:z(x)=z(x)-(toys*q):j=j-q:600X $z$="M"20,0;"HOW MANY METAL SHARES WANTED? ";1;"YOU CAN BUY ";(z(x)/met);31:18400:1750:1400x:k(x)=k(x)+q:z(x)=z(x)-(met*q):k=k-q:600X .z$="C"20,0;"HOW MANY CAR SHARES WILL YOU BUY";1;"YOU CAN BUY ";(z(x)/car);31:1850::1750:1450:l(x)=l(x)+q:z(x)=z(x)-(car*q):l=l-q:600X 8Jz$"Q"z$"S"z$"P"z$"T"z$"M"z$"C".5,10 :1000 -q>gq*oil>z(x)1,25:750  .q>hq*ship>z(x)1,25:750  .q>iq*prop>z(x)1,25:750  F.q>jq*toys>z(x)1,25:750 P x-q>kq*met>z(x)1,25:750  -q>lq*car>z(x)1,25:750  V20,0;" ENTER THE FIRST LETTER OF THE CHOSEN SHARE, THEN PRESS ENTER " "ENTER LETTER";z$ z$="O"20,0;"HOW MANY OIL SHARES FOR SALE ":1750:1600@:g(x)=g(x)-q:z(x)=z(x)+(oil*q):g=g+q:600X z$="S"20,0;"HOW MANY SHIPPING SHARES TO SELL ":1750:1630^:h(x)=h(x)-q:z(x)=z(x)+(ship*q):h=h+q:600X z$="P"20,0;"HOW MANY PROPERTY SHARES TO SELL ":1750:1660|:i(x)=i(x)-q:z(x)=z(x)+(prop*q):i=i+q:600X z$="T"20,0;"HOW MANY TOY SHARES FOR SALE ":1750:1690:j(x)=j(x)-q:z(x)=z(x)+(toys*q):j=j+q:600X z$="M"20,0;"HOW MANY METAL SHARES FOR SALE ":1750:1710:k(x)=k(x)-q:z(x)=z(x)+(met*q):k=k+q:600X "z$="C"20,0;"HOW MANY CAR SHARES FOR SALE ":1750:1730:l(x)=l(x)-q:z(x)=z(x)+(car*q):l=l+q:600X ,Kz$"Q"z$"S"z$"P"z$"T"z$"M"z$"C".75@,26:1500 @%q>g(x)1,25:750 J ^%q>h(x)1,25:750 h |%q>i(x)1,25:750  %q>j(x)1,25:750  %q>k(x)1,25:750  %q>l(x)1,25:750   "ENTER NUMBER OF SHARES ";q: 2z(x)/oil>g21,15;1;g;" ":   3z(x)/ship>h21,15;1;h;" ":  3z(x)/prop>i21,15;1;i;" ":  &3z(x)/toys>j21,15;1;j;" ": ' 02z(x)/met>k21,15;1;k;" ": 1 :2z(x)/car>l21,15;1;l;" ": ;  e>12380L  e=e+1 4t=07:n > "a"+t,n:t HG0,0,10 ,21,10 ,21,10 ,21 Rt=07:n \ "b"+t,n:t fJ0,0,170,85U,170,85U,170,85U pt=07:n z "c"+t,n:t J0,0,168,84T,168,84T,168,84T t=07:n  "d"+t,n:t I10 ,21,10 ,21,10 ,21,10 ,21 t=07:n  "e"+t,n:t M170,86V,170,85U,170,85U,170,85U t=07:n  "f"+t,n:t M168,84T,168,84T,168,84T,168,84T t=07:n  "g"+t,n:t G10 ,21,10 ,21,10 ,21,0,0 t=07:n  "h"+t,n:t J170,85U,170,85U,170,85U,0,0 $t=07:n . "i"+t,n:t 8J168,84T,168,84T,168,84T,0,0 Lz=12 21 V;4:z,0;" ":z `x=3247 j'2:7:14,x;"" t15,x;"" ~16,x;"" 17,x;"" 18,x;"" 19,x;"" x 521,0;"PRESS ANY KEY TO TURN THE CARDS" 50000P ?21,0;4;" " 7 x=37 y=1419 y,x;" " y:x 3990 J14,3;a;b$;a:19,3;a;b$;a:16,3;o$ x=10 14 y=1419 y,x;" " y:x 3990 M14,10 ;a;b$;a:19,10 ;a;b$;a:16,10 ;o$ Tx=1721 ^y=1419 h y,x;" " ry:x | 3990 M14,17;a;b$;a:19,17;a;b$;a:16,17;o$ x=2428 &y=1419 0 y,x;" " :y:x D 3990 NM14,24;a;b$;a:19,24;a;b$;a:16,24;o$ S 150 XP4:z=12 21:z,0;" ":z < 440 a=-3+(7*) a=04000 a<0b$=" " a0b$=" " 4080+(250*) !o$="OIL":oil=oil+a:5100 6$o$="SHIP":ship=ship+a:5150 h$o$="PROP":prop=prop+a:5200P $o$="TOYS":toys=toys+a:5250 !o$="MET":met=met+a:5300 !o$="CAR":car=car+a:5350 car<0car=0 car>10 car=10  oil<0oil=0 oil>10 oil=10  ship<0ship=0 (ship>10 ship=10 2 Pprop<0prop=0 Zprop>10 prop=10 d toys<0toys=0 toys>10 toys=10  met<0met=0 met>10 met=10  car>10 car=10 car<0car=0  p+:1,3;1;"CURRENT CASHFLOW SITUATION":2,10 ;1;1;"AT TURN ";n:4,0;1;0;" 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:" zlc=1b:9 +c,2;w$(c),"`";z(c)+g(c)*oil+h(c)*ship+i(c)*prop+j(c)*toys+k(c)*met+l(c)*car:c A19,3;1;1;"PRESS ANY KEY TO CONTINUE" 5000:d=1: X:1,9 ;1;"FINAL SCORE":4,2;"Your limit of ";v;" turns is now complete.When all the shares aresold at their current prices theorder of wealth between playersis as follows:" blc=1b:9 +c,2;w$(c),"`";z(c)+g(c)*oil+h(c)*ship+i(c)*prop+j(c)*toys+k(c)*met+l(c)*car:c lD19,2;1;1;"Press any key to play again." v50000P:1 #' 'S"Old nos: start ";rs;11 ;"end ";re'"New nos:start ";rn;10 ;"step ";ri '(rp=23635S\+256*23636T\ ' (rv=23627K\+256*23628L\ ' rl=256*rp+(rp+1) ' rprvrl>re ' Nrlrsrp,(rn/256):rp+1,rn-256*(rn/256):rn=rn+ri ' Arp=rp+(rp+2)+256*(rp+3)+4:9994 ' 2