StarTrade1G0%B-G 1 236099\,80P 236077\,60< 0:7:0: Fd$="Star":cs=8:xs=5:ys=7:y=0:9500% =d$="Trader":xs=5:ys=7:y=70F:9500% 2 80P FWd$="Bitte warten!":xs=2:ys=1:y=168:1:9500%:0 K$5:9 :1:5 Z 290" d 06,2;"Wieviele Zugmglichkeiten ?" d$=:d$=""150 .07}\(,34.4 d$<"1"d$>"9"140 eee=d$ ""165  /6,3;"Variables Anfangskapital ?" d$=:d$=""190 .07}\(,34.4 (d$"j"d$"n"d$"N"d$"J"180 z$=d$ ""205 ,:6,5;"Spieldauer in Zgen ?" ww ww=0ww=32  410  6[b(5):m(10 ,13 ):s(5,4):d(5):t(5):q(9 ): 7r(9 ):c(9 ) 8n$(5,20) J1,"Altair Starways" T2,"Betelgeuse,Ltd." ^3,"Capella Freight Co." h4,"Denebola Shippers" r5,"Eridani Expediters"  520  36,1;"Welche Whrung wird gewnscht?" (:3;"DM = 1, Dollar = 2, ` = 3" T:4;"FF = 4, SF = 5, can$ = 6":::=""::"Geben Sie die Whrung ein! " d$=:d$=""415 0.07}\(,34.4 :d$>"6"d$<"1"415 ""417 www=d$:418+www "w$=" DM":kkk=1:425 "w$=" $":kkk=.4L:425 #w$=" `":kkk=.23~k:425 %w$=" FF":kkk=3.22Nz:425 $w$=" SF":kkk=.86\(:425 w$=" c$":kkk=.49zG s:1;6,0;" Bitte warten, ich verarbeite Ihre Angaben! ":i=15 0d(i)=0:t(i)=100d*kkk:q(i)=0 >z$="J"z$="j"b(i)=(kkk*6000p*(*2)):460  480 4b(i)>6500d*kkkb(i)<5700D*kkk450  490 b(i)=6000p*kkk i i=15 j=14 s(i,j)=0 j i  l$="" m$="ABCDEFGHIJKL" lr1= vi=19 j=112 ((j-7)) i/150,j*3 Drnd=:(20*rnd+1)10 m(i,j)=1:660 m(i,j)=3 j i   5 5:0  1  36,1;"Wnschen Sie die Beschreibung?" d$=:d$=""713 .07}\(,34.4 (d$"J"d$"j"d$"n"d$"N"712 d$="j"d$="J"8000@ ""718  .6,3;"Wie viele Spieler (1-4) ?" d$=:d$=""722 .07}\(,34.4 d$<"1"d$>"4"722 p1=d$ ""727   100d * H6,0; Ri=1p1 \w6,0;" ";6,0;"Spieler ";1;i;0;", wie heit Du ?" fd$:d$>15870f pi=1p$=d$ zi=2q$=d$ i=3s$=d$ i=4t$=d$ i  p1=11030 A6,1;"Nun werde ich entscheiden, wer"," beginnt..."  100d i=(p1*+1) $ 19,0;:10808 . 1140t B1090B+i*10 Lp$;:r$=p$: Vq$;:r$=q$: `s$;:r$=s$: jt$;:r$=t$: t." ist der erste ","Spieler, der am Zug ist." ~ 100d  iii=i z$="N"z$="n"1300 J6,0;"Anfangskapital:":7,0;"": i=1p1  10808 ": ",b(i);" ";w$;"." i  300,  i=iii  k=0 (p=i:1350F 2k=k+1:kww4310 7\8,3;1;"Bitte warten, ich rechne!";4,0;:i=19 <&p=p+1:pp1+1p=1 F5i=1eee:***Der Rechner sucht 5 mgliche Zge Pr(i)=(9 *+1) Zc(i)=(12 *+1) d5j=i-10-1:i=11400x i!i=0j=01400x n!r(i)=r(j)c(i)=c(j)1360P xj "m(r(i),c(i))>11360P j=15 q(j)=01610J j *m(r(i),c(i)+1)>31610J c(i)=11470 *m(r(i),c(i)-1)>31610J *m(r(i)+1,c(i))>31610J r(i)=11490 *m(r(i)-1,c(i))>31610J a1=m(r(i),c(i)+1) 3c(i)>1a2=m(r(i),c(i)-1):1510  a1=1 a3=m(r(i)+1,c(i)) 3r(i)>1a4=m(r(i)-1,c(i)):1530  a4=1 9a1=2a2<4a3<4a4<41360P 9a2=2a1<4a3<4a4<41360P 9a3=2a1<4a2<4a4<41360P 9a4=2a1<4a2<4a3<41360P "9a1=3a2<4a3<4a4<41360P ,9a2=3a1<4a3<4a4<41360P 69a3=3a1<4a2<4a4<41360P @9a4=3a1<4a2<4a3<41360P Ji T 2960 ^ hi=p r 10808 |", mgliche Zge:"  i=1eee r(i);m$(c(i));" "; i  3"Geben Sie Ihren Zug ein: ";r$:r$=""1720 r$=1r$=r$+" " ?r$(12)"SP"r$(12)"sp"1725 ww=ww+(r$(3̱r$)) 2960 :1640h  r$=0r$="S" -r$(1)"k"r$(1)"K"1770 r$="":2960  1640h -r$(1)"s"r$(1)"S"1792 r$="":4130"  1640h Vr$(2)>96`Ưr$(2)<123{r$(2)=((r$(2))-32 )  r$21850: -(r$(2))-64@<11850: .(r$(2))-64@>12 1850: ! 1860D &r$<11850: 0r$>9 1850: :Q"Das verstehe ich nicht - noch-","mal. Gib den Zug ein: ";r$:r$=""1850: ? 1721 Dr=(r$(1)) Nc=(r$(2))-64@ Xi=1eee br=r(i)c=c(i)1925 li v721,0;"Dieses Feld ist nicht zugelassen"  1720 #r=1a1=1:1940 a1=m(r-1,c) a2=m(r+1,c) a3=m(r,c+1) #c=1a4=1:1970 a4=m(r,c-1) Ia11a21a31a41m(r,c)=2:2530  )a1>3a2>3a2a13130: )a1>3a3>3a3a13130: )a1>3a4>3a4a13130: )a2>3a3>3a3a23130: )a2>3a4>3a4a23130: )a3>3a4>3a4a33130: 9a1<4a2<4a3<4a4<42150f  m(r,c)>32530  i=0 a1>3i=a1-3  a2>3i=a2-3 *a3>3i=a3-3 4a4>3i=a4-3 >q(i)=q(i)+1 Ht(i)=t(i)+(100d*kkk) Rm(r,c)=i+3 \ 2340$ fi=15 pq(i)=02200 zi  m(r,c)<3m(r,c)=2  2530   4270 H6,0;"Eine neue Raumfahrtgesellschaft","wurde gegrndet: "   330J n,c$ in2250 4:16-((c$)/2);1;c$:240 asd=(*11 ) asd<42280 asd>72280 .z$="J"z$="j"s(i,p)=s(i,p)+asd:2290 s(i,p)=s(i,p)+5 q(i)=1     $'a1=3t(i)=t(i)+(500*kkk) .'a2=3t(i)=t(i)+(500*kkk) 8'a3=3t(i)=t(i)+(500*kkk) B'a4=3t(i)=t(i)+(500*kkk) L3a1=2t(i)=t(i)+(100d*kkk):2390V Q 2410j Vq(i)=q(i)+1 `m(r-1,c)=i+3 j3a2=2t(i)=t(i)+(100d*kkk):2420t o 2440 tq(i)=q(i)+1 ~m(r+1,c)=i+3 3a3=2t(i)=t(i)+(100d*kkk):2450 2470 q(i)=q(i)+1 m(r,c+1)=i+3 3a4=2t(i)=t(i)+(100d*kkk):2480 2500 q(i)=q(i)+1 m(r,c-1)=i+3 't(i)3000 *kkkt1=i:4000  m(r,c)=i+3  :i=15 $b(p)=b(p)+(.05|L*s(i,p)*t(i)) i Cd$="Spielzug Nr."+(k+1):1,(d$/2)+1;d$ :"Die Dividende betrgt:";  qwe=0:i=15 "qwe=qwe+(.05|L*s(i,p)*t(i)) i  qwe;w$;"." :  i=0  i=i+1 q(i)=02930r ( P Z :"Ihr Guthaben: ";b(p);w$;"." d%:"Wie viele Aktien kaufen Sie von" n 330J x yn,c$ in2681y 1;c$; " zu ";t(i);w$ ':"Sie besitzen momentan ";s(i,p);"." Hd$="":d$:d$=0d$=""d$=" "d$=" "d$=" "d$=" "d$="0" d$<3d$=d$+" " rd$(12)="Sp"d$(12)="SP"d$(12)="sp"ww=ww+d$(3(d$)):2730 @d$(1)="k"d$(1)="K"d$="":2960 :2660d @d$(1)="s"d$(1)="S"d$="":4130":2660d Ed$(1)="a"d$(1)="A"r3=(b(p)/t(i)):d$="":2840  r3=(d$) d$="" r3*t(i)b(p)2900T "cd$="Guthaben betrgt nur "+b(p)+w$+".":d$;:100d:j=1̱d$:8;" ";8;:j ,23692\,250 J 2660d T r3=r3:r3=02930r ^s(i,p)=s(i,p)+r3 hb(p)=b(p)-(r3*t(i)) ri52590 | 13302 G:236077\,249:Unterprogramm Sternenkarte ;"Dauer";1;">Galaktische Karte<";0;" Zug" r1;ww;6;0;5;1;"*******************";5;0;0;" ";k+1 :qwz=i:qwa=j >" ";0;" A B C D E F G H I J K L ";1;" " T8,3;" ";4,0;:i=19 3;0;i; j=112 1;1;" "; z2=m(i,j) z2=0z2=z2+1 ((i-5)) $1;1;6;l$(z2); j .03{u\,i+j+6 1;" ";:0;i &i +>" ";0;" A B C D E F G H I J K L ";1;" " 0&i=qwz:j=qwa:236077\,60<: :'f1=a1-3:f1<0f1=7 D'f2=a2-3:f2<0f2=7 N'f3=a3-3:f3<0f3=7 X'f4=a4-3:f4<0f4=7 b t=q(f1) lt1=f1 v"q(f2)>q(f1)t=q(f2):3200 { 3210 t1=f2 q(f3)>tt=q(f3):3220 3230 t1=f3 q(f4)>tt=q(f4):3240 3250 t1=f4 f1=t1a1<43280 x=f1 33804 f2=t1a2<43310 x=f2 33804 f3=t1a3<43340 x=f3  33804 f4=t1a4<43370* x=f4 33804 * 4 6f1=7f1=0 7f2=7f2=0 8f3=7f3=0 9f4=7f4=0 > 4270 H 330J Rn,c$ \xn3410R fa$=c$ p2:1;a$;0;" wurde","umgeformt in "; z 330J n,c$ t1n3470 b$=c$ 1;b$ #:"Vernderungen im Besitzstand:"  "Alter Stock:";1;a$ "Neuer Stock:";1;b$  $"Spieler AS NS ges. Bonus" $" " i=1p1  10808 ;10 ;s(x,i);15;((.5*s(x,i))+.5); 220;s(t1,i)+((.5*s(x,i))+.5); $ x1=0 .j=1p1 8x1=x1+s(x,j) Bj L*27;(10 *((s(x,i)/x1)*t(x))) Vi `i=1p1 j/s(t1,i)=s(t1,i)+((.5*s(x,i))+.5) t*b(i)=b(i)+(10 *((s(x,i)/x1)*t(x))) ~i i=19 j=112 %m(i,j)=x+3m(i,j)=t1+3 j i  8805e" *r>1a1=m(r-1,c):3780  a1=1 a2=m(r+1,c) a3=m(r,c+1) *c>1a4=m(r,c-1):3810  a4=1 f1=a1-3 f1<0f1=0 f2=a2-3 f2<0f2=0  q(t1)=q(t1)+q(x) t(t1)=t(t1)+t(x) t(t1)3000 4000 (f3=a3-3 2f3<0f3=0 <f4=a4-3 Ff4<0f4=0 Pt(x)=100d Zq(x)=0 di=1p1 ns(x,i)=0 xi : m(r,c)=t1+3   4270 6,0;  n,c$ t1n4030 !1;c$;0;" splits."  t(t1)=(t(t1)/2) : j=1p1 s(t1,j)=2*s(t1,j) j  8805e"  " ,P2;"Preis - Besitz - bersicht:":2;"" 6*"Stock Preis Besitz" @$" " Jz=15 Tt(z)=100d4240 ^ 330J hn,c$ rzn4200h |1;c$;0; !20;t(z);26;s(z,p)  z :  330J  H6000p:Y=.05|L.3.02{# =:xxx:*7.4l:y,xxx:Y  5 y:1,y ;:1,2;1;"Wichtige Bekanntmachung !!!"     4270   '::5;"Das Spiel ist zu Ende!" !:7;"Die Endergebnisse" 7;"" $"Spieler Aktien Gesamtguthaben" & 0 :i=1p1 Dj=15 Nd(i)=d(i)+(t(j)*s(j,i)) Xj bi li=1p1 v 10808 *10 ;d(i);w$;20;b(i)+d(i);w$  i  ::0  p524,491,46.,41),39',37%,35#,33!,31,30,29.5l,29,28.5d,28,27.2Y @ E"Das Ziel des Spiels" J:" Star Trader" O" " Te" ist,in einem whlbaren Zeitraumden grtmglichen Gewinn zu er-zielen. Sie spielen allein oder"; Ys"zu mehreren in einem Ausschnittder Galaxis, in dem Sie Raum-fahrtslinien grnden und Aktienkaufen knnen." ^$:" Spielablauf:":" " c " 1. Der Computer zeigt Ihnen denAusschnitt der Galaxis, und gibtIhnen eine anfangs whlbare An-zahl von Zugmglichkeiten vor. (Sie knnen diese Karte mit der Eingabe von 'k' jederzeit neu ausdrucken.)" h 8800`" m2" 2. Sie whlen eine der vorgege-benen Mglichkeiten aus: a. Grndung eines unbesetztenHandelsauenposten(),in dem Sieein Feld whlen, das weder einenStern(), noch einen besetztenHandelsposten berhrt(,,,,) Dieser Punkt hat vorerst keineBedeutung." r" b. Grndung einer Gesellschaft,in dem Sie ein Feld whlen, daseinen Stern oder einen unbesetz-ten Handelsposten (siehe a.) be-rhrt." w" c. Vergrerung einer bereitsbestehenden Gesellschaft, um Ihren Wert zu steigern, in dem manein Feld whlt, das eine Gesell-schaft berhrt." | 8800`" " d. Zusammenfhrung mehrerer Ge-sellschaften,in dem Sie ein Feldwhlen, das mehrere Gesellschaf-ten berhrt. Daraus kann ein fi-nanzieller Vorteil folgen."  " 3.Der Computer addiert zu IhremVermgen 5% Dividende fr jedeAktie und fragt Sie dann ,fallsntig, nach der Aktienmenge, dieSie in diesem Zug erstehen wollen. Mit ""a"" geben Sie die max.Anzahl ein."  $" 4. Der nchste Spieler zieht."  "Weitere Einzelheiten" "" e" Man kann jederzeit mit ""k"" diegalaktische Karte und mit ""s"" die Aktienbersicht einsehen."  8800`" " Initialisierung" " " $" a. Anzahl der Spieler (1-4)"  '" b. Anzahl der Zugmglichkeiten"  v" c. Das Anfangskapital ist,fallsSie es wnschen, variabel. An-sonsten betrgt es 6000 DM frjeden Spieler."  x" d. Dauer des Spiels.(Diese kannwhrend des Spiels durch sp+(Zahl) variiert werden. (z.B.sp12 oder sp-7))"  &" e. Whrung (basierend auf DM)" J:"Berhren ist definiert als waag-recht oder senkrecht. " "` 200 "e321,3;"Press any key to continue" "j 0 "t: #' %xxx=(256-xs*cs*d$)/2:aaa=23306 [:aaa,xxx:aaa+1,y:aaa+2,xs:aaa+3,ys:aaa+4,cs:aaa=aaa+4:i=1̱d$:aaa+i,d$(i):i:aaa+i,255:aaa=65024: %&a"StarTrader"95200%:"Loading..."65024,511:"DATA 70"63744,1024: %063743::"Loading: Star Trader":"  by Idi productions'83  by EMM Software 1983":"StarTrade2":"StarTrade3": yx@a vD Bitte warten! i0 0 0 i LM ABCDEFGHIJKLw nKStarTrade2odH![~#"[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 MvNMZ$Z 8 !v>(8F~~BBB~@~F~~B@~FF~| <$$~FF~~BB~00000 0 ~~~~0 0"x00~||d|@@|Ddd||D`d||Ddd||D|`|0 p 000|Dd||@@|Dddd 000 000`@HH|ddd 00000IImm|DDdd|DDd||Dd|@@|Dd|x@```|@| | p 000DDdd|ddl(8IImmDD8ddddD|||8`|0x x2L