BlackFri1 gH0%gHiHq0::i=70-1:i:.06|u\,i*6:i:0:1:7:0:0: Id$="Black":xs=6:ys=10 :cs=8:yy=1:9500% Vd$="Friday":xs=5:ys=10 :cs=8:yy=95_:9500%:300, 236099\,60<  2 F P by Idi productions Z by EMM Software  \xs=1:ys=4:cs=7:yy=82R:d$="Geben Sie eine Zahl ein!":9500% H0:xs=2:yy=120x:d$="(1-65535)":9500%:1 a Fa<1a>65535aɺ(a)"Bitte keinen Bloedsinn!":190  .i=07:i:.06|u\,i*6:i t1:7:7:0::ys=4:xs=2:yy=70F:d$="Bitte warten!":9500%:0 a x1= a(36$,12 ):u(11 ,9 ):e(11 ,9 ):k(10 ):t(10 ):f(9 ):m(4,12 ):x(4) 6i=136$:j=112 :a(i,j):j:i 5i=111 :j=19 :u(i,j):j:i 5i=111 :j=19 :e(i,j):j:i "n=110 ,k(n) 6n @&v$="HIB XP SP ODMRD SO BT KA ZE BPL" J/y$="$5 $1 $0 $4 $7 $0 $0 $2 $6 $3 " T ^DATA TO SIMULATE _REAL LIFE STOCK MARKET h ra1,0,0,0,0,0,0,0,0,5,0,0 |c0,0,0,0,0,0,-25,0,0,0,0,0 b1,0,0,0,0,0,0,15,0,0,0,0 b0,0,0,0,-5,0,0,0,0,0,0,0 a1,0,0,0,0,0,0,0,0,5,0,0 a0,0,0,0,0,0,5,0,0,0,0,0 b1,0,0,0,0,0,10 ,0,0,0,0,0 b0,0,10 ,0,0,0,0,0,0,0,0,0 b1,0,0,0,0,0,15,0,0,0,0,0 b0,0,-5,0,0,0,0,0,0,0,0,0 a1,8,5,5,0,0,0,7,0,0,0,0 c0,0,0,0,0,0,0,0,-25,0,0,0 b1,0,0,0,0,0,0,0,10 ,0,0,0 c0,0,-10 ,0,0,0,0,0,0,0,0,0 a1,0,5,0,0,0,0,0,0,0,0,0 b0,10 ,0,0,0,0,0,0,0,0,1,0 b1,0,0,0,0,17,0,0,0,0,0,0 c0,0,0,0,0,-15,0,0,0,0,0,0 &b1,0,0,0,0,0,0,0,10 ,0,0,0 0c0,0,0,0,0,0,0,-15,0,0,0,0 :b1,0,0,0,0,0,0,10 ,0,0,0,0 Dc0,0,0,0,0,0,0,-15,0,0,0,0 Nb1,0,0,-8,0,8,0,0,5,0,0,0 Xc0,-10 ,0,0,0,0,0,0,0,0,0,0 ba1,8,0,0,0,0,0,0,0,0,0,0 lc0,0,0,0,0,0,0,-10 ,0,0,0,0 va1,0,0,3,0,0,0,0,0,4,0,0 b0,-8,0,0,0,0,0,0,0,0,0,0 a1,0,0,0,5,0,0,0,0,0,0,0 c0,0,0,0,0,-10 ,0,0,0,0,0,0 b1,0,0,0,0,0,0,10 ,0,0,0,0 d0,-8,-5,0,0,0,0,-7,0,0,0,0 b1,10 ,0,0,0,0,0,0,0,0,0,0 c0,0,0,0,0,0,0,0,0,-14,0,0 c1,-10 ,0,0,0,0,0,0,0,0,0,0 b0,0,0,0,0,0,-5,0,0,0,0,0 S-2,-10 ,7,-9 ,-2,-9 ,-7,-16,-4 R26,16,25,8,-14,21,14,-4,17 R18,23,11 ,12 ,46.,18,-5,34",15 R23,28,-2,11 ,568,19,30,29,14 S20,15,15,7,-20,15,13 ,-10 ,12  R17,21,13 ,-2,37%,23,23,19,14 Q19,24,17,9 ,-5,26,13 ,-7,15  R11 ,18,14,11 ,67C,15,22,18,13 *S13 ,31,1,14,-11 ,18,18,-14,10 4R14,-8,19,1,-9 ,25,-10 ,13 ,19 >R24,24,23,20,513,27,38&,33!,18 HQ12 ,14,13 ,10 ,10 ,20,21,25,8 RR7,-6,10 ,-10 ,30,6,-19,22,-2 \P9 ,10 ,7,-5,-20,12 ,21,18,7 fO7,8,5,-6,-40(,3,16,-14,4 pM8,6,4,-4,40(,8,4,-12 ,3 zL6,4,3,3,-15,5,8,-8,5 O5,7,-1,-3,45-,6,-10 ,10 ,4 P-2,6,-3,-8,-20,7,10 ,14,6 T11 ,11 ,-5,-7,30,10 ,-11 ,-18,-4 Q-5,13 ,-8,6,25,4,18,-22,-4 Y-8,-10 ,-10 ,-15,-20,-20,-23,-25,-7 Q5,1,0,4,7,0,0,2,6,3  security names   a$="Highway Improvement Bonds" b$="X-Pando Corporation" c$="Seaside Properties Inc." o$="Old Dog Mutual Fund" e$="Rubble Development" f$="Slippery Oil Company" g$="Bumpy Transport Co." $h$="Krash Auto Company" .i$="Zap Electronics " 8 j$="Blinkey Power & Light Co." B L V{i=05:i:.06|u\,i*5:i:5:5:0:0::10 ,6;"Regeln gewnscht?" X3l=12.3:.07}\(,25:l `r$=:r$=""1120` j/r$(1)="N"r$(1)="n"1370Z t/r$(1)"J"r$(1)"j"1120` ~ "Das Ziel des Spiels"  " 'Black Friday'"  " ist, in verschiedenen der 10 gegebenen Firmen zu in- vestieren und in einem whl- baren Zeitraum bis zu zehn Jahren den grtmglichen Ge- winn zu machen."  "Jedes Jahr erhlt jeder Spie- ler je nach Aktien Dividenden. Die Hhe der Dividende liegt je nach Gesellschaft zwischen 0$ und 7$ pro Aktie."  ؂"Falls der Wert einer Aktie bis auf 0$ fllt, ist die Gesell- schaft bankrott und smtliche Aktien verfallen zu Altpapier."  650 G1:21,4;"Drcken Sie eine Taste!" :0  =""1270 :"Die Gesellschaft wird dann zu einem Wert von 100$ neu ge- grndet. Falls der Wert einer Aktie ber 150$ steigt, splits the stock, d.h., da der Wert der Aktie halbiert und die Menge jedes Spielers verdop- pelt wird."   "Jedes Jahr (jede Runde) wird ein Plan angezeigt, in dem der aktuelle Wert der Aktien jeder Gesellschaft, die Anzahl der Aktien jedes Spielers,die aus- gezahlten Dividenden und das Kapital jedes Spielers darge- stellt wird.";  650 2"Die Gesellschaften werden nun vorgestellt. " G1:21,4;"Drcken Sie eine Taste!" :0  (=""1320( ZYi=-56:i:.06|u\,(i)*6:i:6:5:0:1: _(0,6;"Die Gesellschaften:" xn=110  3240 2*n,0;s$;2*n,26;v$(3*n-23*n);2*n,30;y$(4*n-34*n-1); n Hi=110 :0,164-16*i:255,0:i =""1435 bi=6-5-1:i:.06|u\,(i)*6:i:6:5:0:1: -10 ,4;"Wieviele Spieler wollen" '11 ,8;"teilnehmen(1-4)?"; p$=:p$=""1455 H(p$)>480(p$)<58:p=p$:.04|# =,34.4 :1460  1455 p>41455 p01455 Fxs=8:cs=7:ys=10 :yy=120x:d$=p:9500% =i=14:j=112 :m(i,j)=0:j:i /:10 ,5;"Wieviele Jahre(Runden)"; 311 ,0;"soll das Spiel dauern(3-10)?"; s s<31493 s>10 1493 Qxs=8:cs=7:ys=10 :yy=120x:d$=s:9500%:100d bl=5-1-1:l:.06|u\,(l)*6:l:2:5:1:0: $i=19 :f(i)=0:i  n=1p m(n,1)=5000 n "'i=110 :t(i)=100d:i , y=0 6 @ J8find market changes for next round; bull/bear? T ^ cd=(*11 +1) hc=(*36$+1) r#a(c,12 )=11640h |a(c,12 )=1 n=210  3240 "a(c,1)=11740  w$="Bull" $f(n-1)=a(c,n)+e(d,n-1) t(n)=t(n)+f(n-1)  1800 $f(n-1)=a(c,n)+u(d,n-1)  w$="Bear" t(n)=t(n)+f(n-1)  check for stock splits t(n)<1501900l +n*2-3,0;"** "+s$+" **" 0n*2-2,9 ;"stock splits!" *t(n)/2=(t(n)/2)1850: &t(n)=(t(n)/2)+1 0 1860D :t(n)=t(n)/2 D j=1p N'm(j,n+1)=m(j,n+1)*2 Xj b lcheck for bankrupt v t(n)>01990 t(n)=100d  j=1p m(j,n+1)=0 j +n*2-3,0;"** "+s$+" **" 0n*2-2,9 ;"ist bankrott!"  n  y=y+1  150 2add each players divide nd to total cash   n=1p m(n,12 )=0  j=110 t(j)<5022090*  1m(n,12 )=m(n,12 )+k(j)*m(n,j+1) *j 4#a(c,11 )=02130R >2m(n,12 )=m(n,12 )+m(n,3)*2 H R)m(n,1)=m(n,1)+m(n,12 ) \n f p z0print what happend & current values 7l=-15:(l):.06|u\,(l)*6+y:l z7:0:5:0::xs=2:ys=1:cs=8:yy=0:d$="* "+w$+" market *":9500% /0,167:1;255,0 _i=0p-1:104h+i*40(,159:0,-85U:-1,-26:i %0,62>:255,0 I1:1,0;"Jahr ";y;" Spieler Besitz":0 !2,0;" +/-$ $$"  n=1p 2,9 +n*5;n; n  K4,0;v$(3);4,5;"0";4,9 ;"100"  n=1p )4,9 +n*5;m(n,2) n n=19 tn+4,0;v$(3*n+13*n+3);n+4,5;f(n);n+4,9 ;t(n+1)  j=1p $.n+4,9 +j*5;m(j,n+2); .j Bn Qji=0p-1:103g+i*40(,47/:-(41)-i*8),-7:0,-24:i V"15,0;"Dividenden:"; ` n=1p j+15,8+n*5;m(n,12 ) tn ~ 17,0;"Geld:" n=1p *17,2+n*6;m(n,1) n  19,0;"Gesamt:" 3450z n=1p "19,2+n*6;x(n) n y=s2980   check kaufen/verkaufen   n=1p ( 2 < Fj=110 P$m(n,j+1)02670n Zj d 2785 nL21,0;"Spieler ";1;n;0;", verkaufen? "; xr$=:r$=""2680x y""2681y z-.03{u\,34.4 :h=110 :h |r$="n"r$="N"2780 (r$106jƯr$74J2670n 3130: i21,0;"Spieler ";1;n;0;", wieviele Aktien? ";:q$="":21,27; r$=:r$=""2711 ""2712 O.03{u\,34.4 :r$=65Aůr$=97ar=m(n,j+1):2720 -r$=13 Ʊq$>0r=q$:2720 q$>42710 *r$>47/Ưr$<58:q$=q$+r$:r$; 2711 rm(n,j+1)2750 21,0;" ";21,0;"Sie besitzen nur ";m(n,j+1);" Aktien!":h=110 :h =""2735 2710 !m(n,j+1)=m(n,j+1)-r "m(n,1)=m(n,1)+r*t(j) R3+j,9 +n*5;" ";3+j,9 +n*5;m(n,j+1); N17,2+n*6;" ";17,2+n*6;m(n,1) 2620<   j=110 m(n,1)>t(j)2820 j 2940| L21,0;"Spieler ";1;n;0;", kaufen? "; r$=:r$=""2830 ""2831 .03{u\,34.4 2r$="n"r$="N"h=110 :h:2940| (r$106jƯr$74J2820 " 3130: ,i21,0;"Spieler ";1;n;0;", wieviele Aktien? ";:q$="":21,27; -r$=:r$=""2861- .""2862. /U.03{u\,34.4 :r$=65Aůr$=97ar=(m(n,1)/t(j)):28706 1-r$=13 Ʊq$>0r=q$:28706 2q$>42860, 4*r$>47/Ưr$<58:q$=q$+r$:r$; 5 2861- 6!r*t(j)m(n,1)2900T @21,0;" ";21,0;"Geld reicht nur fr ";(m(n,1)/t(j));" Aktien.";:h=110 :h A=""2881A E G J 2860, T!m(n,j+1)=m(n,j+1)+r ^"m(n,1)=m(n,1)-r*t(j) cR3+j,9 +n*5;" ";3+j,9 +n*5;m(n,j+1); eN17,2+n*6;" ";17,2+n*6;m(n,1) h r 2785 | 502:n il=70-1:l:.06|u\,l*6:l:2:5:1:0::1630^   this is the end of game 621,0;"Drcken Sie eine Taste! "; =""2992 x.03{u\,34.4 :l=-66:l:.06|u\,(l)*6:l:6:5:0:0:1: _0,0:255,0:0,175:-255,0:0,-175 21,1;"*** Das Spiel ist zu Ende ***" &0,155:255,0 <3,4;"Spieler";3,18;"Gesamtsumme" Q127,154:0,-15:255,138:-255,0 Ҋi=1p:127,175-(22+16*i):0,-15:0,175-(38&+16*i):255,0:i n=1p j=110 /m(n,1)=m(n,1)+t(j)*m(n,j+1) j  G3+n*2,7;n;3+n*2,20;m(n,1) n  180 T18,8;"Mchten Sie noch-";20,9 ;"einmal spielen? ";:q$="" r$=:r$=""3095 Y.03{u\,34.4 :r$74JƯr$78NƯr$106jƯr$110n3094  r$=74Jůr$=106j:  & 0 :sub. stock names D NX21,0;"Name der Gesellschaft? ";21,24;:q$="":r$="" Oq$=:q$=""3151O P""3152P Q<.03{u\,34.4 :q$=13 Ʊr$>13160X R2q$>96`Ưq$<123{q$=((q$)-32 ) T6q$>64@Ưq$<91[r$=r$+q$:q$;:3151O U 3150N X bj=110 lBr$(2)=v$(3*j-23*j-1)3220 v:r$(2)=v$(3*j-13*j)3220 j 3150N    subroutine namen n=1s$=a$ n=2s$=b$ n=3s$=c$ n=4s$=o$ n=5s$=e$ n=6s$=f$ n=7s$=g$ n=8s$=h$ n=9 s$=i$ n=10 s$=j$  p z n=1p w=0 j=110 w=w+t(j)*m(n,j+1) j x(n)=w+m(n,1) n  %xx=(256-xs*cs*d$)/2:aa=23306 [:aa,xx:aa+1,yy:aa+2,xs:aa+3,ys:aa+4,cs:aa=aa+4:i=1̱d$:aa+i,d$(i):i:aa+i,255:aaa=65024: %065023:7:9 :7:::"Loading: Black Friday":"  by Idi productions'83  by EMM Software 1983":"BlackFri2": BlackFri2  Fm![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P 88 MMMXLXL8Wq !v>(8>BB<DHpHDB@@@@@~BfZBBBBbRJFB(8DDD8|BB|@@