ZXTape! 0Created with Ramsoft MakeTZXBOERSE F F dH 236099\,502 1:7:0:  ("Brauchen Sie eine Beschreibung ? ";a$ a$="j"a$="J"9000(# #1:7:0: (("Wieviel Spieler (max. 6/min. 2) ?";s$ 2s$<"2"s$>"6"40( 7s=s$ 10 120x k  8000@ 85004! z=sz=0:x=-3 1000 z=z+1:x=x+4 70,0;z;". Spieler";1,0;n$(z) 1k=412 :k,0;" ":k 4,0;f$(1);"=";a(x);6,0;f$(2);"=";a(x+1);8,0;f$(3);"=";a(x+2);10 ,0;f$(4);"=";a(x+3);12 ,0;"GELD=";g(z) t"Wollen Sie Aktien kaufen bzw. verkaufen ? (s=wenn Sie den Besitzt der anderen Mitspieler sehen wollen)";t$ "t$"n"t$"j"t$"s"1020  t$="s"7000X:1020  t$="n"1600@ 4"Wollen Sie 1=kaufen 2=verkaufen ?";t$ t$<"1"t$>"2"1040 t$="2"1500 g(z)01600@ *k=14:g(z)r(k)1055 k:1600@ C"Was wollen Sie kaufen ?(IBM=1; BP=2;AEG=3;BASF=4).(s=Liste)";t$ " t$="s"7000X:1055 $t$<"1"t$>"4"1055 ))"Wieviel Aktien wollen Sie kaufen ?";e$ .e$*r(t$)>g(z)1065) 1e$<01065) 3g(z)=g(z)-e$*r(t$) 4+a((t$-1)+x)=a((t$-1)+x)+e$ 8 e$=e$+"0" ;e=e$ =t=t$ Bu=(*e)+(*e) G+u/10 ɺ(u/10 )u=(u/10 ) Lu=u*10 M c(t)=f(t) Q$f(t)=f(t)-u:r(t)=r(t)+(u*2) Rf(t)<306000p V 85004! Y1k=412 :k,0;" ":k [4,0;f$(1);"=";a(x);6,0;f$(2);"=";a(x+1);8,0;f$(3);"=";a(x+2);10 ,0;f$(4);"=";a(x+3);12 ,0;"GELD=";g(z) `$"Wollen Sie noch mehr kaufen ?";t$ jt$="n"1600@ o 1052 k=03 a(x+k)>01503 k:1010 D"Was wollen Sie verkaufen ?(IBM=1;BP=2;AEG=3;BASF=4).(s=Liste)";t$  t$="s"7000X:1503 t$<"1"t$>"4"1503 (a((t$-1)+x)01500 2"Wieviel Aktien wollen Sie verkaufen ?";e$ $e$>a((t$-1)+x)1510 e$<01510 g(z)=g(z)+e$*r(t$) +a((t$-1)+x)=a((t$-1)+x)-e$  e$=e$+"0" e=e$  t=t$ u=(*e)+(e/2) +u/10 ɺ(u/10 )u=(u/10 ) u=u*10  c(t)=f(t) $f(t)=f(t)+u:r(t)=r(t)-(u*2)  f(t$)>1406500d " 85004! '1k=412 :k,0;" ":k ,4,0;f$(1);"=";a(x);6,0;f$(2);"=";a(x+1);8,0;f$(3);"=";a(x+2);10 ,0;f$(4);"=";a(x+3);12 ,0;"GELD=";g(z) 6P"Wollen Sie noch mehr 1)verkaufenoder 2)kaufen oder 3)die Eingabebeenden ?";t$ 9t$="1"1500 :t$="2"1052 ;t$="3"1600@ < 15906 @q$="n" CVz=s"Wollen Sie das Spiel beenden, so dass ich den Gewinner errechne ?";q$ Eq$="j"9800H& J 170 pQ18,0;"Die Aktien stehen ueber 240. Es gibt Geld liebe Mitspieler." to=30-f(t) u h=-4 z k=1s  h=h+4 &a(h+t)>0g(k)=g(k)+(o*a(h+t)) k 500:18,3;" " f(t)=30:r(t)=240  dS18,0;"Die Aktien stehen unter 20. Das kostet Geld liebe Mitspieler." io=140-f(t) n h=-4 s k=1s x h=h+4 }&a(h+t)>0g(k)=g(k)+(o*a(h+t)) k a500:18,3;" " f(t)=140:r(t)=20  X:10 ;"Besitzer Liste" ]"j=0:l=-3:k=0 by=1̺(s/2) gj=j+1:l=l+4 l2,k;j;". Spieler";3,k;n$(j);5,k;f$(1);"=";a(l);6,k;f$(2);"=";a(l+1);7,k;f$(3);"=";a(l+2);8,k;f$(4);"=";a(l+3);9 ,k;"GELD=";g(j) pk=k+11 qy v k=0 {y=(s/2)+1s j=j+1:l=l+4 11 ,k;j;". Spieler";12 ,k;n$(j);14,k;f$(1);"=";a(l);15,k;f$(2);"=";a(l+1);16,k;f$(3);"=";a(l+2);17,k;f$(4);"=";a(l+3);18,k;"GELD=";g(j) k=k+11 :y d#0;"Druecken Sie bitte eine Taste .":0:0:8000@:85004!:8800`": @,:0,11 ;"" Jk=115 T!k,11 ;"";k,30;"" ^k h+16,11 ;"" rk=152502-8 | 102f,k:110n,0 k  k=103g21227 !k,155:0,-100d k  v=2 ^k=24020-20:v=v+1:v,27;7-(1k=100d);k:k y1,13 ;f$(1);1,17;f$(2);1,20;f$(3);1,24;f$(4)  !4c(1)/10 ,14;"_";c(2)/10 ,17;"_";c(3)/10 ,21;"_";c(4)/10 ,24;"_" !9f(1)/10 ,14;"";f(2)/10 ,17;"";f(3)/10 ,21;"";f(4)/10 ,24;"" !> "`1k=412 :k,0;" ":k "e4,0;f$(1);"=";a(x);6,0;f$(2);"=";a(x+1);8,0;f$(3);"=";a(x+2);10 ,0;f$(4);"=";a(x+3);12 ,0;"GELD=";g(z) "h70,0;z;". Spieler";1,0;n$(z) "j #(0:0:4: #-85;6;0;1;"DAS BOERSENSPIEL" #2(1,3;"" #7.3,0;"Spielen Sie Aktionear !!!" #hh=g(k):si=k &pk &r&k=1s:g(k)=hksi9900& &sk &u,:0,5;1;"DAS ERGEBNIS" &z#0;"Taste Druecken" &%.01z# =,0:""9860& & 9855& & k=1s &=k+1,0;(1k=si);n$(k);" mit ";g(k);" DM" &k &-10 ,0;n$(si);" hat gewonnen !!" &"":9880& &K:10 ,0;"Es gibt keinen Gewinner.Bitte spielen Sie weiter." & 0 & 145 Z