ZXTape! 0Created with Ramsoft MakeTZXSHARES2 P\u[pR\********************** *****STOCKS&SHARES**** ***********BY********* *****DERYCK BANKS**** ********************** 0:0:6: 0:0:6: %z$="STOCKS AND SHARES BY DEL BANKS" play=0  g=1 z$ 65,0;2;"INPUT NO OF PLAYERS(12)" a$ 9a$="1"5,28;"1":play=1:1026 9a$="2"5,28;"2":play=2:1025  1021 play=29 ,0;"TYPE IN YOUR NAME PLAYER 1":n$:10 ,3;n$:11 ,0;"TYPE IN YOUR NAME PLAYER 2":p$:12 ,3;p$ 8play=19 ,0;"TYPE IN YOUR NAME":n$ $play=19 ,18;n$  80P  r=0  m=100d  nshz=0  nsht=0 nshl=0 nshg=0  g=0 m2=100d nshz2=0 nsht2=0 nshl2=0 nshg2=0 w=1+(*5) w=1zs=2.67*G "w=2zs=3.91z=p #w=3zs=4.77 $w=4zs=6.99_{ %w=5zs=6.99_{ .d=1+(*11 ) /d=1ts=16.01z 0d=2ts=17.45 1d=3ts=17.87 2d=4ts=18.12 3d=5ts=19.34Q 4d=6ts=20.48# = 5d=7ts=20.99' 6d=8ts=21.20) 7d=9 ts=23.39;R 8d=10 ts=24.99G 9d=11 ts=26.81VzG Be=1+(*21) Ce=1ls=80.22 p De=2ls=81.43"( Ee=3ls=81.97# Fe=4ls=83.45&fg Ge=5ls=85.02* =q He=6ls=90.234u Ie=7ls=91.677W = Je=8ls=95.78?\) Ke=9 ls=96.57A# Le=10 ls=98.10D333 Me=11 ls=100.37Hp Ne=12 ls=101.67KW = Oe=13 ls=109.05Z Pe=14ls=111.34^{ Qe=15ls=120.02p =q Re=16ls=116.56iR Se=17ls=118.50m Te=18ls=121.28r\) Ue=19ls=122.67uW = Ve=20ls=123.68w\( We=21ls=124.09x.{ [h=1+(*15) \h=1gs=938.4j ]h=2gs=971.0 ^h=3gs=1000.2z _h=4gs=1107.5 p `h=5gs=1300.9" ah=6gs=1479.88 bh=7gs=1499.2;fff ch=8gs=1555.1Bc33 dh=9 gs=1678.0 eh=10 gs=1878.0V fh=11 gs=1931.7qvff gh=12 gs=1999.9y hh=13 gs=2231.2 s33 ih=14gs=2256.3  jh=15gs=2301.3 kNnshz=(1000*(nshz))/1000:nshz2=(1000*(nshz2))/1000 lNnsht=(1000*(nsht))/1000:nsht2=(1000*(nsht2))/1000 mNnshl=(1000*(nshl))/1000:nshl2=(1000*(nshl2))/1000 nNnshg=(1000*(nshg))/1000:nshg2=(1000*(nshg2))/1000 om=(100d*(m))/100d p m2=(100d*(m2))/100d  z$  2 (1,0;5;"NAME : ";n$ F******THIS PUTS A NICE BOX AROUND THE SHARES****** :0,158:255,0 &0,158:255,0  $0,70F:0,88X  &0,157:255,0  $2,70F:0,88X  $1,70F:0,88X (255,157:0,-88X %0,70F:255,0 %0,69E:255,0 (254,157:0,-88X (253,157:0,-88X  6 =:3,1;4;"SHARES NO. OF SHARES PRICE" ®nshz=1000*((nshz))/1000:5,1;4;"ZINC":nshz=1000*((nshz))/1000:5,14;4;nshz:5,25;4;zs ínsht=1000*((nsht))/1000:7,1;4;"TIN":nsht=1000*((nsht))/1000:7,14;4;nsht:7,25;4;ts Įnshl=1000*((nshl))/1000:9 ,1;4;"LEAD":nshl=1000*((nshl))/1000:9 ,14;4;nshl:9 ,25;4;ls űnshg=1000*((nshg))/1000:11 ,1;4;"GOLD":nshg=1000*((nshg))/1000:11 ,14;4;nshg:11 ,25;4;gs (17,0;6;"MONEY=`";m ;14,0;3;"INPUT BUY(B),SELL(S),END(E)" g$ g$="b"g$="B"3060 g$="s"g$="S"4020 !g$="e"play=26131 !g$="e"play=14100 3020 P14,0;3;"WHAT SHARES DO YOU WISH TO BUY. INPUT Z,T,L,OR G." b$ b$="z"b$="Z"3067 b$="t"b$="T"3080 b$="g"b$="G"4000 b$="l"b$="L"3090 3061 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a03067 a03071 3011  m=m-(zs*a)  nshz=nshz+a m=(100d*(m))/100d m<0m=m+(zs*a):nshz=nshz-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:3011  2051 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a03080 a03084 3080 m=m-(ts*a) m=(100d*(m))/100d 9nsht=nsht+a:nsht=(1000000t$*(nsht))/1000000t$ m<0m=m+(ts*a):nsht=nsht-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:3011  2051 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a03090 a03094  3090  m=m-(ls*a) m=(100d*(m))/100d  nshl=nshl+a m<0m=m+(ls*a):nshl=nshl-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:3011  2051 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a04000 a04005  4000  m=m-(gs*a)  m=m-(gs*a)  nshg=nshg+a m<0m=m+(gs*a):nshg=nshg-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:3011  2051 O14,0;5;"WHAT SHARES DO YOU WISH TO SELL?INPUT Z,T,L,OR G" s$ s$="z"4040 s$="t"4050 s$="l"4060 s$="g"4070 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nshz2051 a04045  4041  m=m+(zs*a)  nshz=nshz-a  2051 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nsht2051 a04055  4041  m=m+(ts*a)  nsht=nsht-a  2051 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nshl2051 a04065  4061  m=m+(ls*a)  nshl=nshl-a  2051 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nshg2051 a04075  4061  m=m+(gs*a)  nshg=nshg-a  2051  80P r=r+1: ;6;z$ .m=m*1.1 :play=2m2=m2*1.1  6  Km=0nshz=0nsht=0nshl=0nshg=09000(#  Pm2=0nshz2=0nsht2=0nshl2=0nshg2=09000(#  >m=(100d*(m))/100d:m2=(100d*(m2))/100d  43,0;6;"AT THE END OF ROUND ";r  x4,0;6;"YOU HAVE `";m:play=24,0;n$;" HAS `";m;5,0;p$;" HAS `";m2 n=1+(*15) n=14200h n=24220| n=34240 n=44260 n=54280 n=64300 n=74320 n=84340 n=9 4360 n=10 4380 n=11 5000 n=12 5010 n=13 5020 n=145020 n=155020  4110  L***IF THE BEEPING ON THE NEWSFLASH ANNOYS YOU OMIT THE BEEP STATEMENT***** hd$="NEWSFLASH... TAX REFUND..................... 20% OF BANK BALANCE............................................." i.f=1̱d$:d$(f);:.05|L,12 :f j>6,0:m=m*1.2:m2=m2*1.2:1050 |d$="NEWSFLASH... TAX REFUND..................... 60% OF BANK BALANCE............................................." }.f=1̱d$:d$(f);:.05|L,12 :f ~>6,0:m=m*1.6L:m2=m2*1.6L:1050 d$="NEWSFLASH... TAX INVESTIGATION...............LOSE 60% OF BANK BALANCE......................................." .f=1̱d$:d$(f);:.05|L,12 :f :6,0:m=m/6:m2=m2/6:1050 d$="NEWSFLASH... TAX INVESTIGATION...............LOSE 90% OF BANK BALANCE........................................" .f=1̱d$:d$(f);:.05|L,12 :f :6,0:m=m/9 :m2=m2/9 :1050 d$="NEWSFLASH... TAX INVESTIGATION...............LOSE 50% OF BANK BALANCE........................................" .f=1̱d$:d$(f);:.05|L,12 :f :6,0:m=m/2:m2=m2/2:1050 ̧d$="NEWSFLASH... GOOD NEWS FOR ALL ZINC HOLDERS ................................ONE SHARE FOR EVERY TWO HELD...................................." .f=1̱d$:d$(f);:.05|L,12 :f {6,0:nshz=(10000'*(1.5@*(nshz)))/10000':nshz2=(10000'*(1.5@*(nshz)))/10000'  1050 d$="NEWSFLASH... GOOD NEWS FOR ALL TIN HOLDERS ................................ONE SHARE FOR EVERY TWO HELD...................................." .f=1̱d$:d$(f);:.05|L,12 :f |6,0:nsht=(10000'*(1.5@*(nsht)))/10000':nsht2=(10000'*(1.5@*(nsht2)))/10000'  1050 d$="NEWSFLASH... GOOD NEWS FOR ALL LEAD HOLDERS ................................ONE SHARE FOR EVERY TWO HELD...................................." .f=1̱d$:d$(f);:.05|L,12 :f 6,0:nshl=(10000'*(1.5@*(nshl)))/10000':nshl2=(10000'*(1.5@*(nshl2)))/10000':1050 d$="NEWSFLASH... GOOD NEWS FOR ALL GOLD HOLDERS ............................... ONE SHARE FOR EVERY TWO HELD..................................."  .f=1̱d$:d$(f);:.05|L,12 :f  6,0:nshg=(10000'*(1.5@*(nshg)))/10000':nshg2=(10000'*(1.5@*(nshg2)))/10000':1050 d$="NEWSFLASH... CAPITAL GAINS INVESTIGATION ................................LOSE ONE SHARE FOR EVERY TWO HELD............................." .f=1̱d$:d$(f);:.05|L,12 :f 6,0:nshg=nshg/2:nshz2=nshz2/2:nshz=nshz/2:nshg2=nshg2/2:nsht=nsht/2:nsht2=nsht2/2:nshl=nshl/2:nshl2=nshl2/2:1050 d$="NEWSFLASH... TAX INVESTIGATION.............. CANCELLED TILL FURTHER NOTICE.................................." .f=1̱d$:d$(f);:.05|L,12 :f 6,0:1050 d$="NEWSFLASH... TAX INVESTIGATION...............LOSE 70% OF BANK BALANCE........................................" .f=1̱d$:d$(f);:.05|L,12 :f :6,0:m=m/7:m2=m2/7:1050 d$="NEWSFLASH... TAX REFUND......................WITHDRAWN TILL FURTHER NOTICE..................................." .f=1̱d$:d$(f);:.05|L,12 :f 6,0:1050  80P  r=0  g=2  g=2 w=1+(*5) w=1zs=2.67*G w=2zs=3.91z=p w=3zs=4.77 w=4zs=6.99_{ w=5zs=6.99_{ d=1+(*11 ) d=1ts=16.01z d=2ts=17.45 d=3ts=17.87 d=4ts=18.12 d=5ts=19.34Q d=6ts=20.48# = d=7ts=20.99' d=8ts=21.20) d=9 ts=23.39;R d=10 ts=24.99G d=11 ts=26.81VzG e=1+(*21) e=1ls=80.22 p e=2ls=81.43"( e=3ls=81.97# e=4ls=83.45&fg e=5ls=85.02* =q e=6ls=90.234u e=8ls=95.78?\) e=9 ls=96.57A# e=10 ls=98.10D333 e=11 ls=100.37Hp e=12 ls=101.67KW = e=13 ls=109.05Z e=14ls=111.34^{ e=15ls=120.02p =q e=16ls=116.56iR e=17ls=118.50m e=18ls=121.28r\) e=19ls=122.67uW = e=20ls=123.68w\( e=21ls=124.09x.{ h=1+(*15) h=1gs=938.4j h=2gs=971.0 h=3gs=1000.2z h=4gs=1107.5 p h=5gs=1300.9" h=6gs=1479.88 h=7gs=1499.2;fff h=8gs=1555.1Bc33 h=9 gs=1678.0 h=10 gs=1878.0V h=11 gs=1931.7qvff h=12 gs=1999.9y h=13 gs=2231.2 s33 h=14gs=2256.3  h=15gs=2301.3 (nshz2=(1000*(nshz2))/1000 (nsht2=(1000*(nsht2))/1000 (nshl2=(1000*(nshl2))/1000 (nshg2=(1000*(nshg2))/1000  m2=(100d*(m2))/100d  z$  2 6play=21,0;5;"NAME : ";p$ 6play=11,0;5;"NAME : ";n$ F******THIS PUTS A NICE BOX AROUND THE SHARES****** :0,158:255,0 &0,158:255,0 $0,70F:0,88X &0,157:255,0 $2,70F:0,88X $1,70F:0,88X (255,157:0,-88X  %0,70F:255,0  %0,69E:255,0  (254,157:0,-88X 8(253,157:0,-88X : 6 L=:3,1;4;"SHARES NO. OF SHARES PRICE" Nnshz2=1000*((nshz2))/1000:5,1;4;"ZINC":nshz2=1000*((nshz2))/1000:5,14;4;nshz2:5,25;4;zs Pnsht2=1000*((nsht2))/1000:7,1;4;"TIN":nsht2=1000*((nsht2))/1000:7,14;4;nsht2:7,25;4;ts Rnshl2=1000*((nshl2))/1000:9 ,1;4;"LEAD":nshl2=1000*((nshl2))/1000:9 ,14;4;nshl2:9 ,25;4;ls Tnshg2=1000*((nshg2))/1000:11 ,1;4;"GOLD":nshg2=1000*((nshg2))/1000:11 ,14;4;nshg2:11 ,25;4;gs V)17,0;6;"MONEY=`";m2 X;14,0;3;"INPUT BUY(B),SELL(S),END(E)" Zg$ \g$="b"g$="B"6244d ^g$="s"g$="S"6330 `g$="e"4100 a!play=2g$="e"4100 b 6232X dP14,0;3;"WHAT SHARES DO YOU WISH TO BUY. INPUT Z,T,L,OR G." fb$ hb$="z"b$="Z"6258r jb$="t"b$="T"6276 lb$="g"b$="G"6312 nb$="l"b$="L"6294 p 6246f rl14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a ta06258r va06266z x 6224P zm2=m2-(zs*a) |nshz2=nshz2+a ~ m2=(100d*(m2))/100d m2<0m2=m2+(zs*a):nshz2=nshz2-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:6224P  6131 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a06276 a06284  6276 m2=m2-(ts*a)  m2=(100d*(m2))/100d =nsht2=nsht2+a:nsht2=(1000000t$*(nsht2))/1000000t$ m2<0m2=m2+(ts*a):nsht2=nsht2-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:6224P  6131 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a06294 a06302  6294 m2=m2-(ls*a)  m2=(100d*(m2))/100d nshl2=nshl2+a m2<0m2=m2+(ls*a):nshl2=nshl2-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:6224P  6131 l14,0;3;"HOW MANY SHARES DO YOU WISH TO BUY? ":a a06312 a06322  6312 m2=m2-(gs*a) m2=m2-(gs*a) nshg2=nshg2+a m2<0m2=m2+(gs*a):nshg2=nshg2-a:14,0;"YOU HAVE NOT GOT ENOUGH MONEY ":300,:6224P  6131 O14,0;5;"WHAT SHARES DO YOU WISH TO SELL?INPUT Z,T,L,OR G" s$ s$="z"6342 s$="t"6358 s$="l"6374 s$="g"6390 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nshz26131 a06352  6344 m2=m2+(zs*a) nshz2=nshz2-a  6131 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nsht26131 a06368  6344 m2=m2+(ts*a) nsht2=nsht2-a  6131 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nshl26131 a06384  6376 m2=m2+(ls*a) nshl2=nshl2-a  6131 h14,0;5;"HOW MANY SHARES DO YOU WISH TO SELL? " a a>nshg26131 a06400  6392 m2=m2+(gs*a) nshg2=nshg2-a  6131 #(s******I HAVE STUCK THIS LITTLE TUNE IN COS I LIKE IT AND IT ADDS A BIT OF EXCITEMENT TO THE PROGRAM*******::100 #)e:100d:" STOCKS&SHARES BY DERYCK BANKS" #*2****A TIP FOR TYPING THIS IN IS THAT LINE 9002 IS THE SAME AS LINE 9004ETC...AND LINE 9003 IS THE SAME AS LINE9005ETC...IT CARRIES ON LIKE THIS UNTIL THE LAST LINE WHICH IS DIFFERENT*****:.15,4:.15,9:.15,4:.15,11:.15,4:.15,7:.15,9:.15,4:.15,12:.15,4:.15,14:.15,4:.15,11:.15,12:.15,4:.15,9 #+.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,11 #,5.15~,4:.15~,9 :.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,9 #-.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,11 #.5.15~,4:.15~,9 :.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,9 #/.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,11 #05.15~,4:.15~,9 :.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,9 #1.15~,4:.15~,11 :.15~,4:.15~,7:.15~,9 :.15~,4:.15~,12 :.15~,4:.15~,14:.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,11 #26.15~,4:.15~,12 :.15~,4:.15~,11 :.15~,11 :.15~,4:.15~,12 :.15~,4:.15~,9 :.15~,4:.15~,11 :.15~,12 :.15~,4:.15~,9 :.15~,4:.15~,9 #318,10 ;5;"GAME OVER":7 #418,10 ;6;"GAME OVER":7 #518,10 ;7;"GAME OVER":7 #618,10 ;1;"GAME OVER":7 #718,10 ;2;"GAME OVER":7 #818,10 ;3;"GAME OVER":7 #918,10 ;4;"GAME OVER":7 #:18,10 ;5;"GAME OVER":7 #;20:1 #<********************** #=*****INSTRUCTIONS***** #>********************** #?** THE IDEA OF THE ** #@** GAME IS TO MAKE ** #A** AS MUCH MONEY ** #B** AS POSSIBLE.. ** #C** THIS IS DONE ** #D** BY BUYING ** #E** SHARES AT A LOW ** #F** PRICE AND SELLING** #G** THEM AT A HIGHER ** #H** PRICE,THUS MAKING** #I** A PROFIT.... ** #J** THIS GAME CAN ** #K** BE PLAYED BY ** #L** ONE OR TWO ** #M** PLAYERS. ** #N********************** #O*****INSTRUCTIONS***** #P********************** lagrmshshshsh\shzshtshlshgw_{deuW =h s33A2NDERYCKPFREDGeZSTOCKS AND SHARES BY DEL BANKS