ZXTape! 2tStocks19xxEnglishStrategy8Spectrum Games Compilation - White Tapes - 1 of 10 tapesEmulated By Vax - 2001STOCK A`> A 100d -A=17:.15~,-10 :A: +A=14:.1}L,18:A: DA=16:B=8248:.05|L,B:B:A: (?A=16:.15~,20:.1}L,30:A: 2/A=2032 2:.05|L,A:A: <=A=13:.1}L,0:.1}L,-6:A: nW$(32 ):H$(4,4):H(6,4):B(6):P(4):N$(6,8):Q(6):L(6):R(6):N(6):T(6) xA(X)=(*X+1) #B(X )=(*X+1)-1 :I=14:H$(I):I "LEAD","ZINC","TIN","GOLD" oP(1)=10 :P(2)=502:P(3)=250:P(4)=1250:TU=0:SU=0 'I=16:B(I)=1000:I }6:6::2;7;1;5,0;W$;W$;W$;W$;W$;7,3;"Do you want instructions?" 2050 AN=15000 ,2;7;1;5,0;W$;W$;W$;W$;W$;7,3;"How many players? (Max. 6)":.15~,30:U$ J((U$)>1U$<"1"U$>"6"300, T NU=(U$) ^K=1NU hN8;8;1;7,3;" Enter name of player ";K;" " r.15~,30:N$(K) |N$(K)=32 370r K J8;8;1;7,3;"Select level of difficulty" 4.15~,30:"1(easy) to 4(hard) .... ";D$ ((D$)>1D$<"1"D$>"4"420 DI=(D$-5) +1:1:7::P=1NU CH=0:2300 R(P)=-12;7;1;18,11 ;"++++++++++";19,11 ;"+BANKRUPT+";20,11 ;"++++++++++":40(:150:700  RX=14:Y=6:2120H:2600( :X=14:Y=6:2120H 16,1;4;0;1;" Type ""B"" to buy, ""S"" to sell ";18,3;" or ""Q"" to end your turn "  20 B$= &B$="Q"700 0B$="B"3500 :525  :B$="S"3700t:515 D 540 P P=NU /X=13 :Y=9 :2120H:4000 $6000p:AN=11000 0:4:4: G6;0;5,0;"********************************" GQ=611 :6;0;Q,0;"*";31;"*":Q H6;0;12 ,0;"********************************" ?6;0;7,2;"End of turn ........ ";TU $Q=14:Q(Q)=0:Q P6;0;10 ,2;"Do you want to end the game?":2050  AN1500 K=1NU J=14 B(K)=B(K)+H(K,J)*P(J) J B(K)=B(K)-L(K) $K .6:0:6: 87:1;2;W$;W$;W$;W$;W$;1,5;">> G A M E O V E R <<":38&,169:180,0:0,-12 :-180,0:0,12 BD0;1;3,1;"All shares sold at face value" L1;6,1;1;" Player ";6,10 ;3;" Amount Made ";6,24;4;" Score ":0 V:K=1NU `IPM=(100d*(B(K)-1000))/100d:SC=(B(K)/(TU+DI*5)) j*" ";N$(K);11 ;"` ";PM;25;SC t:K vC1146z:L=13:Q:0,Q:255,0:L x:L=14:Q:Q,130:0,-110n:L zC131,115s,19,0,76L,188,255 ~yB=12:A=0242:.05|L,A:A:B:5;1;"Do you want to play again? ";A$  A$="Y" f5:3:7:1::8,5;1;" B Y E F O R N O W ":200: 5.15~,30:23658j\,8:AN=0 A$=  A$="Y"AN=1: * A$="N" 4 2070 H X,0; RL=1Y:W$ \L:  66;0;" Shares held " .q6;0;" by ";N$(P);17;"MARKET PRICES ";6;1;"" B5"LEAD";13 ;6;"";7;" Multibody" L.13 ;6;"";7;" Lead Mine" V4"ZINC";13 ;6;"";7;" T.I.A.F." `.13 ;6;"";7;" Zinc Inc." j2"TIN";13 ;6;"";7;" Erskine" t.13 ;6;"";7;" Tin Plate" ~4"GOLD";13 ;6;"";7;" S. Beere" .13 ;6;"";7;" Gold Mine" "BANK";13 ;6;"" V12 ,0;6;"";12 ,13 ;"" I=14 D$="":P(I)=P(I)D$=".00" 3P1=P(I):P1=P1*100d:P1=P1:P1=P1/100d P$=(P1)+D$ KI*2+2,24;" ";I*2+2,32 -P$;P$ I 3000 I=14 #I*2+1,5;H(P,I) I JL(P)>02;13 ,0;" You owe the Bank ` ";L(P);" "  (R=B(10 ):R<5 2C1;3;17,7;" !! NEWSFLASH !! ":30 12 28706 PCH>10 2950 ZR>4+DI2810 dR=B(10 ) nR=02790 xR>42750 _17,0;5;0;1;"Bonus for all ";H$(R);" Shareholders":502 150:R1=B(10 ) bR1=02;17,0;"PAYMENT SUSPENDED DUE TO STRIKE ":10 :150: Z5;0;1;19,1;"Payment = ";R1*10 ;"% of share value" 4I=1NU:B(I)=B(I)+.1}L*R1*H(I,R)*P(R):I 3000 :150: S5;0;1;17,10 ;" TAX REFUND ":502:150 R=B(10 ) aR=02;17,0;"ERROR IN TAX OFFICE! - NO REFUND":10 :150: [5;0;1;19,1;" REFUND = ";10 *R;"% OF BANK BALANCE " 4B(P)=B(P)+.1}L*R*B(P):3000 :150: %I=14:Q(I)=-1:I ]2;1;17,1;" ALL MARKET DEALINGS SUSPENDED ":10 :SU=1 150: R=B(10 ) R=02930r R>428706 R5;0;1;17,2;" ";H$(R);" BONUS ISSUE OF 1 SHARE" V5;0;1;19,2;" FOR EVERY TWO SHARES HELD ":502 "2I=1NU:H(I,R)=H(I,R)+(H(I,R)/2):I ,X=R:3100 :150: 6H2;17,0;"CAPITAL GAINS TAX INVESTIGATION":60< @R=B(10 ):150 JsR=05;0;1;17,0;"TAX MAN RELENTS! - NO TAX DEMAND":502:150: TJ2;19,0;" DEMAND OF ";10 *R;"% OF BANK BALANCE " ^'B(P)=B(P)-.1}L*R*B(P):3000 h 150: rM3;1;1;17,6;" MARKET VERY WEAK ":60< | 150: t2;16,2;" TRADING PRACTICES SUSPECT ";18,2;" TAX OFFICIALS INVESTIGATE ":60< CH=100d:150: D$="":B(P)=B(P)D$=".00" SB1=B(P):B1=B1*100d:B1=B1:B1=B1/100d:B1>999999t#B1=B1:D$="" B$=(B1)+D$ 811 ,4;" ";11 ,13 -B$;B$  HX*2+1,5;" ";X*2+1,5;H(P,X) 0 D$="":P(X)=P(X)D$=".00" 3P1=P(X):P1=P1*100d:P1=P1:P1=P1/100d P$=(P1)+D$ KX*2+2,24;" ";X*2+2,32 -P$;P$  =CH=CH+1:J=0:X=16:Y=3:2120H 16,0;4;0;1;" Which shares will you ";A$;" Sir?";18,6;1;"L";18,7;0;"EAD,";1;"Z";0;"INC,";1;"G";0;"OLD,";1;"T";0;"IN ";19,7;" or STOP ";A$;"ing " 20 B$=:B$=""3350 B$="L"J=1 *B$="Z"J=2 4B$="T"J=3 >B$="G"J=4 HB$="S"J=5 RJ=03350 W0X=16:Y=4:2120H:J=5 \Q(J)=-12;18,0;" DEALINGS IN ";H$(J);" SUSPENDED SIR ":10 :150:18,0;W$:3300 f4;0;1;15,0;W$;W$;15,1;"How many ";H$(J);" shares will you"," ";A$;" Sir? (If none enter 0)" p 20 qS$:(S$)<13441q rS$="0"SS=(S$):3470 tBI=1̱(S$):S$(II)<480ůS$(II)>5793441q uI z SS=(S$) SS<13440p %X=15:Y=3:2120H: A$="buy":3300 J=5 B=SS*P(J):BB(P)3620$ |CR=(.5*(H(P,1)*P(1)+H(P,2)*P(2)+H(P,3)*P(3)+H(P,4)*P(4)+B(P))-L(P)) %B02;13 ,0;" You owe the bank ` ";L(P);" " .3000 :X=J:3100 8 tA$="sell":3300 ~$J=5L(P)>03785  J=5 cSS>H(P,J)2;1;17,3;"You do not own that many!":10 :150: %H(P,J)=H(P,J)-SS:B(P)=B(P)+SS*P(J) 3000 :X=J:3100 L(P)=0 L(P)>B(P)2;1;17,0;"You need more cash to repay Bank":60<:150:17,0;W$:3700t L(P)B(P)2;18,0;" BANK TAKES LOAN REPAYMENT ";W$;19,10 ;"OF `";L(P):X=13 :Y=8:150:B(P)=B(P)-L(P):L(P)=0:3000 :2120H d1;1;17,5;"BANK UNHAPPY ....":60<:150:17,0;W$ 72;"YOU ARE FORCED INTO LIQUIDATION!":10 ZJ=14:B(P)=B(P)+H(P,J)*P(J):H(P,J)=0:X=J:3100 :3000 :J B(P)-L(P)03785 B(P)=B(P)-L(P) B(P)<0L(P)=-1:2;1;1;18,0;W$;W$;W$;19,10 ;"YOU ARE BANKRUPT SIR!" 7B(P)<0B(P)=0:L(P)=0:150: ;L(P)=0:13 ,0;W$:3000 :150   I=14 N(I)=0:I {4;7;1;13 ,0;W$;W$;W$;W$;W$;W$;W$;W$;14,0;" ===MARKET NEWS=== " :I=14:R=B(10 ):R=04500 SU=14170J Q(I)=-14170J #K=1NU:N(I)=N(I)+H(K,I):K TC=N(I)-T(I) aR=R-1*(TC>10 )-1*(TC>100d)+1*(TC<-10 )+1*(TC<-100d) !T(I)=N(I):R<0R=0 R>9 R=9 nPC=R*(5^(I-1))-.4L*P(I):PC=(100d*PC)/100d:PC<.1}LPC>-.1}LPC=0 /A$=H$(I):X=0:Y=15+I:44000 "PPC=0A$="HOLDING AT PRESENT VALUE":X=5:Y=15+I:44000 ' C$=(PC) ,hPC>0A$="UP BY ":X=5:Y=15+I:44000:100d:A$=C$:X=20:44000 6jPC<0A$="DOWN BY ":X=5:Y=15+I:44000:100d:A$=C$:X=20:44000 @P(I)=P(I)+PC:X=I:3200 JI:SU=0 TBR=A(20)+A(21) ^BR>24230 hpR=B(10 ):R02;21,0;"BANK ALMOST FAILED - NO INTEREST":10 :4290 rd2;21,9 ;" BANK FAILS!! ":60<:K=1NU:B(K)=0:L(K)=0:K |3000 :150 c5;0;1;21,1;" A NEW BANK HAS BEEN SET UP ":502:4290 IA$="BANK INTEREST RATE ":X=3:Y=21:44000:100d .A$=(BR):X=23:Y=21:44000 4;1;"% " OK=1NU:B(K)=B(K)+B(K)*(BR/100d):B(K)=(B(K)*100d)/100d 5L(K)=L(K)+L(K)*((BR+2)/100d):L(K)=L(K) K TU=TU+1:150  0C1=A$ :Q=1C1 D!4;1;Y,X+Q;A$(Q); N.005y# =,32 :Q X 2R=B(10 ):SU>0R>1R<6 J1;3;16+I,0;" !! NEWSFLASH !! " 30:150 *4;1;16+I,0;W$ R>54600 R>12;16+I,0;" ALL DEALINGS IN ";H$(I);" SUSPENDED ":Q(I)=-1:60<:150:16+I,0;4;1;W$: M2;16+I,0;H$(I);" BANKRUPT - SHARES WORTHLESS":10 !K=1NU:H(K,I)=0:K FX=I:3100 :150:16+I,0;4;1;W$ d80P:5;0;1;16+I,4;" ";H$(I);" ARE TRADING AGAIN ":502 kP(I)=10 *(5^(I-1)):X=I:3200 :150:4;1;16+I,0;W$  b6;0;1;16+I,0;" ";H$(I);" TAKEN OVER BY A CONSORTIUM":60< &150:R=((*10 )+1)  R=06;0;1;16+I,0;" TAKE-OVER BID HAS FAILED! ":10 :150:4;1;16+I,0;W$: 4;1;16+I,0;W$:2;1;16+I,0;"SHARES SOLD OF AT ";20*R;"% OF VALUE ":10  CK=1NU:B(K)=B(K)+.2~L*R*P(I)*H(K,I):H(K,I)=0:K *(3000 :X=I:3100 :150 4*16+I,0;4;1;W$ > 6:6:0: b2;7;1;" * I N S T R U C T I O N S * ";" * ======================= * " l'"The aim of STOCKS is to make money by buying and selling shares in four mining companies."''"At the start of the game each player has `1000 in the bank andthe price of each share is set at approximately half it's maximum value."''"When all the players have boughtor sold as many shares as they want, the price of the shares isadjusted so that:" D'" High prices are likely to fall. Low prices are likely to rise." V.1}L,30:5;7;1;" Press ENTER to continue ";X$ U:''" The market may be ""BULLED"" or ""BEARED"" by heavy buying or selling." ''" During the course of the game various NEWSFLASH messages will interrupt play."''''"Watch out for CAPITAL GAINS TAX"''''" When one or more players have `1000000 the game is finished."  Z.1}L,30:5;7;1;" Press ENTER to start the game ";X$:: p AN=0 zQ=1NU 5XX=0:V=14:XX=XX+H(Q,V)*P(V):V XX=XX+B(Q)-L(Q) 7XX0B(Q)=0:L(Q)=0:R(Q)=-1 [XX1000000t$AN=1:1:3::I=15:1;7;2;1;4+I,7;" ":I:1;2;7;1;6,13 ;N$(Q);8,8;"IS A MILLIONAIRE":E=10 :A=19 :B=2.5 39'E:.047|@n,B:B:E=E-2.99:A:150 0:Q:  ^@zxyRr ㉇ZHS1C270.71# LEADZINCTIN GOLD}! 25R R R R R !!!!!AYXU5P1250.00D.00BL