@?{ߛ6[ZD:\!=1":255:f>z(i,16)f=z(i,16) QHz(i,15)=z(i,15)+f:z(i,16)=z(i,16)-f:85U Rz(i,15)0 Sa=1:b=12 :d=z(i,15):#1;0,4;" Ile chcesz zdeponowac? ":255:f>z(i,15)f=z(i,15) T>z(i,15)=z(i,15)-f:z(i,16)=z(i,16)+f U 480: VPz(i,15)0#1;0,6;" Nie masz gotowki! ";: Wa=1:b=20:d=2:#1;0,1;"Enter- rezygnuje  99 -wszystko.";1,0;" Numer koncernu? ":255:f=0 Xf>lkf99c87W Y>f=99ca=-1:o=1lk:f=o:90Z:o: Zk(f,2)=0 [z(i,15)k(f,2)h=k(f,2) ]a=-1f=h:96` ^o=f:a=1:b=26:d=h:#1;0,0;" Mozesz kupic ";h;" ";1,0;" ";f;" ";k$(k(o,7));" ";1,20;"ile?";:255:f=0 _ f>hf=h `1t(o)=t(o)+((f/k(o,1))*7):z(i,o)=z(i,o)+f:z(i,15)=z(i,15)-f*k(o,3):k(o,2)=k(o,2)-f:480:a$(4):b$(4):a$(5-k(o,2))=k(o,2):b$(5-z(i,o))=z(i,o):8;8;o+1,15;a$;o+1,23;b$; a ba=1:b=20:d=2:#1;0,1;"Enter- rezygnuje  99 -wszystko.";1,0;" Numer koncernu? ":255:f=0 c4f=99co=1lk:f=z(i,o):104h:o: df>lk98b ez(i,f)=098b fo=f:a=1:b=26:d=z(i,o):#1;0,0;" Mozesz sprzedac ";z(i,o);" ";1,0;" ";f;" ";k$(k(o,7));" ";1,20;"ile?";:255:f=0 gf>z(i,o)f=z(i,o) h f=0 i1t(o)=t(o)-((f/k(o,1))*7):z(i,o)=z(i,o)-f:z(i,15)=z(i,15)+f*k(o,3):k(o,2)=k(o,2)+f:480:a$(4):b$(4):a$(5-k(o,2))=k(o,2):b$(5-z(i,o))=z(i,o):8;8;o+1,15;a$;o+1,23;b$; j k#1;0,0;" Wartosc akcji= ";sa;" ";1,0;" * * Press: b/d/k/l/p/s/z/0 * * ";:0:r$=:.01z# =,10 :" ":r$="b"r$="B"568 lr$="d"r$="D"73I mr$="k"r$="K"58: nr$="l"r$="L"557 or$="p"r$="P"47/ pr$="s"r$="S"98b qr$="z"r$="Z"86V r r$="0" s 107k tu0:m(4,2):46.:16,2;"Mozesz sprobowac";17,1;"zmienic kurs akcji"; ua=14:m(a,1)=(*(lk+1)+1):m(a,2)=(*7)-3:m(a,2)=0m(a,2)=-1 va wva=14:a+17,1;a;:m(a,1)=lk+1a+17,3;"wszystkich o ";:121y x7a+17,3;k$(k(m(a,1),7));"o "; ym(a,2)>0"+"; zm(a,2);:a {n#1;" Co wybierasz?  1/2/3/4; 5-nic";:0:i$=:" ":a=i$:a<491a>535123{ |$a=a-480:a=5127 }Mm(a,1)=lk+1b=1lk:t(b)=t(b)+m(a,2):b:127 ~.t(m(a,1))=t(m(a,1))+m(a,2) Ib=6*lz:a=1lk:k(a,5)=k(a,5)+k(a,3)/b:a Ca=z(i,16):a<0a=(a*sk/100d)/6:130 a=(a*sl/100d)/6 +b=1lk:a=a+(q(i,b)*so)/12 :b +z(i,15)=(z(i,15)+a+.5) m(14):a=1lk d=k(a,7):e=t(a) b=1lk i$=w$(d,k(b,7)) i$=" "140 i$="-"c=-1:139 c=1 m(b)=m(b)+c*e b a la=1lk:k(a,3)=k(a,3)+t(a)+m(a):k(a,3)>99ck(a,3)=99c:144 ,k(a,3)<1k(a,3)=1 a t(14)  0:c=(p/6+.5):a=1lk:b=((k(a,2)/k(a,1))*6+1):k(a,3)=k(a,3)+(*2*b)+c-b+2*mi-7 9k(a,3)>99ck(a,3)=99c:150 ,k(a,3)<1k(a,3)=1 a  '0:a=1lk:c=k(a,3) (c>90Zpr=-((*5)+3) 0c>80Pk(a,1)<8000@156 158 %(*21+79O)>c155 i=1lz:b=(z(i,a)*0.1}L+.5):z(i,a)=z(i,a)+b:k(a,1)=k(a,1)+2*b:k(a,2)=k(a,2)+b:i 0c>65Ak(a,1)<9000(#160 163 %(*36$+64@)>c159 =k(a,1)=k(a,1)+(k(a,1)*.1}L+.5) Hk(a,2)=k(a,2)+(k(a,1)*.1}L+.5):195 c>61=165 167 !k(a,6)=0195 ok(a,6)=0:i=1lz:z(i,15)=z(i,15)+q(i,a)*502:q(i,a)=0:i:195 c>35#195 c<6187 7k(a,4)<0k(a,4)=3:195 Dk(a,4)>0k(a,4)=k(a,4)-1:195 $(*19+6)hf=h !f>0k(k,6)=1 h=h-f:z(i,15)=z(i,15)-f*502:q(i,k)=q(i,k)+f:21,10 ;"Zostalo ";h;" obl. ";:h=0182 j :a=k:(((z-h)/z)*100d+.5)>502185 Yb=(35#-k(a,3))*0.01z# =:(k(a,1)-k(a,1)*b)<70F187 i=1lz:c=(z(i,a)*b+.5):z(i,a)=z(i,a)-c:k(a,1)=k(a,1)-c:i:c=(k(a,2)*b+.5):k(a,1)=k(a,1)-c:k(a,2)=k(a,2)-c Xk(a,4)=4:k(a,3)=k(a,3)+(((z-h)/z)*10 +.5)+2 195 Dk(a,4)>0k(a,4)=k(a,4)-1:195 pr=(*5)+3:196:5,0;"Bank centralny oglosil niewypla-calnosc koncernu ";k$(k(a,7));11 ,4;" Koncern zbankrutowal! "; 1i=1lz:q(i,a)=0:z(i,a)=0:i l$(k(a,7))=" " a=lklk=lk-1:195 xc=a+1lk:h=c-1:d=17:k(h,d)=k(c,d):d:i=1lz:z(i,h)=z(i,c):q(i,h)=q(i,c):i:c 3i=1lz:q(i,lk)=0:z(i,lk)=0:i lk=lk-1:42* a:197 <41):0,5;" Wiadomosci gieldowe. ";: 10:pr<0p=-40(:pr=pr+1 'pr>0p=40(:pr=pr-1 lk<7202 lk=14205 >.2~L205 /a=(*25+1):l$(a)" "202 l$(a)="b":lk=lk+1:k(lk,1)=30+20*(*lz)+90Z*lz:k(lk,2)=k(lk,1):k(lk,3)=491:k(lk,4)=-1:k(lk,5)=0:k(lk,6)=0:k(lk,7)=a y196:3,0;"Prezes gieldy poinformowal nas opojawieniu sie na gieldzie akcjikoncernu ";k$(a):42* :<.73333 O196:4,0;"Instytut Badan Rynkowych podaje,iz przewaznie "; ?a=1:<.5a=-a:a<0"spadek ";:209 "wzrost "; "kursu akcjikoncernu "; %i(lz):0:j(lz):j=1lz ,u=(*lz+1):j(u)=1211 j(u)=1:i(j)=u:j:  Glat=lat+1:sds=0:mi=0:lat>latalat=lat-1: &mi=mi+1:mi=7224 %i(lz):0:j(lz):b=1lz ,a=(*lz+1):j(a)=1217 j(a)=1:i(b)=a:b sds=sds+sd/6 Bx=1lz:i=i(x):z(i,1)<0262:222 491:107k:116t x +152:147:43+:215 196:3,0;"Koncerny wyplacaja posiadaczomich akcji dywidendy w wysokosci:";:sds=((sds*10 +.5))/10 :" ";sds;"%  sredniej wartosci akcji." sds=sds/100d:a=1lk:b=((k(a,5)*10 ))/10 :a+7,0;k$(k(a,7));" S.W.A.= ";b;"$.";:b=b*sds:i=1lz:z(i,15)=z(i,15)+(z(i,a)*b+.5):i:k(a,5)=0:a:42* /i=1lz:z(i,1)<0229 xb=0:c=0:a=1lk:c=c+q(i,a)*502:b=b+z(i,a)*k(a,3):a:d=z(i,15)+z(i,16) e=d+b+c:e<0231 i 233 491:568:f=99c:99c:42*:46.:17,5;z$(i);20,3;" ZBANKRUTOWAL ";:42* *LZ1=LZ1-1:z(i,1)=-1: lz1=0 lz1=1lz2>1 214  oi=12:491:107k:116t:41):i:152:147:43+:237 0 41)  ~b,6;" Prosze podac imie. ";b+2,1;"Max ";a;" znakow  ENTER  = Koniec";:b=b+4 8e=((32 -a)/2)-1:a$(a):c=1a: :b,c+e;"*":0:i$=:.005y# =,8:d=i$ d=13 248 Fd=12 c1b,c+e;" ";:c=c-1:a$(c)="":243 #d<32 d>127243 a$(c)=i$:b,c+e;i$;:c gb+2,4;" Czy jest dobrze?  (t/n) ":0:i$=:i$="t"i$="T"c=c-1: di$="n"i$="N"d=12:c=130:b+2*d-2,c;" ";:c:d:242 248 e0:0:7::15:7::#1;" 1982 Sinclair Research Ltd":502 V9 ,0;"Czy aby na pewno? (t/n)":0:i$=:i$="t"i$="T"0 i$="N"i$="n" 252 a(d):c=bb+d-1 #1;a,c;"?";:0:i$=:.005y# =,8:e=(i$):e=12 cb#1;a,c;" ";:c=c-1:257 e=13 261 "e<480e>579257 *#1;a,c;i$;:a(c-b+1)=i$:c q=10-1:e=0312:#1;q,e;" ";:e:q:g=1:f=0:c=c-b:e=c1-1:f=f+a(e)*g:g=g*10 :e: Kb=6*lz:a=1lk:k(a,5)=k(a,5)+k(a,3)/b:a: 0,"Spek II"23295Z,28900p:1 r   3040 :130,0:-10 ,-10 :0,-12 :10 ,10 :0,10 :62>,89Y:0,-12 :130,0:0,12 :-130,0:5,1;"M.G.B. Software presents game:";11 ,8;"SUPER SPEKULANT!";17,4;"  1985 by M.G.B. Soft. "  ulant pZZp:52169,2:52170,0:r=52116 ,-10 :0,-12 :10 ,10 :0,10 :62>,89Y:0,-12 :130,0:0,12 :-130,0:5,1;"M.G.B. Software presents game:";11 ,8;"SUPER SPEKULANT!";17,4;"  1985 by M.G.B. Soft. "  II pZZp43:3MV?V WqMZ P P P MX?PWq MQ ?v#>@H#+6##@O+#6++!W &+ >? !@ .# >X @!EC>|zy$|;; *=\s#rv͎{ ::\ ( ((<2\6!"B\!"D\;;}culant pZZp:52169,2:52170,0:r=52116 ,-10 :0,-12 :10 ,10 :0,10 :62>,89Y:0,-12 :130,0:0,12 :-130,0:5,1;"M.G.B. Software presents game:";11 ,8;"SUPER SPEKULANT!";17,4;"  1985 by M.G.B. Soft. " M3MMz(MM=V]V WMS= P P PMML3P 6e33hM@>v>@H#+w##@O+#w++!W &+ >? !@ .# >X @!EC>|zy$|;; *=\s#rv͎{ ::\ ( ((<2\6!"B\!"D\;;}~ &@M!\ !v> P P P 88  M3\]GWq !_v>>BB<DHpHDB@~BfZBBBBbRJFB,89Y:10 ,10 :130,0:-10 ,-10 :0,-12 :10 ,10 :0,10 :62>,89Y:0,-12 :130,0:0,12 :-130,0:5,1;"M.G.B. Software presents game:";11 ,8;"SUPER SPEKULANT!";17,4;"  1985 by M.G.B. Soft. " E" ":i=80P17616:i,77M:-6,-6:0,-9 :14,14:i:32 ,40(:191,0:32 ,31:191,0:j=51-1:z=132 :.01z# =,j:r=52000 :j:z:j:z=132 :.01z# =,0:52000 :z j=71-1:z=132 :.01z# =,j:r=520259:j:"C"z:j:z=132 :.01z# =,0:520259:z:#1;1,6;"Press  C  to continue.":230:i$=:i$"C"i$"c"3 ]520160,546:52041I,546:i=132 :r=520259:i:41) ?i$(1):1,3;"W grze moze brac udzial 9",3,4;"spekulantow gieldowych.":#1;1,3;" A ilu tego chce?  L";:0:i$=:#1;1,23;i$;"L";:0:r$=:r$=12 ůi$<491ůi$>579#1;1,23;" ";:6 " ":lz=i$:lz1=lz:lz2=lz:1;7,4;" Czy na pewno ";1;0;lz;" ? t/n ";:0:i$=:i$="T"i$="t"9 41):6 z$(lz,9 ):41):i=1lz:a=9 :b=10 :8,10 ;"Spekulant ";i:241:a=18:z$(i,a)=" ":a:d=((9 -c)/2+1):z$(i,d)=a$:41):i #1;0,0;"Ile lat zamierzacie spekulowac?";:a=1:d=2:b=15:255:f=010 lata=f st(14):lk=14:k$(25,12 ):k(lk,7):z(lz,lk+2):q(lz,lk):w$(25,25) ,18:i=125:k$(i):i (19:i=125:w$(i):i Cl$(25):0:s=10 +(*3):lk=s:i=1s .a=1+(*25):l$(a)" "16 l$(a)="b":k(i,7)=a:k(i,1)=20+20*(*(lz+2))+110n*(lz+1):k(i,2)=k(i,1):k(i,3)=32 +(*17):k(i,4)=-1:i V"IBM","Texas Instr.","ITT","Boening Comp.","Douglas Ltd.","Ford M.Comp.","General Mot.","Toyota Corp.","PAN-AM","Pacyfic Air","British Air","Ocean Lines","Pacyfic Lin.","Steel Corp.","Mining Ltd.","Copper Comp.","U.S. Gold","RPA Gold","Goldmines H.","Bank of Can.","Bank of Tex.","Banks Hold.","Corn Food H.","Meat Ltd.","Millery Fact." " -- ++ ","- - ++ ","-- ++ ","+++ ----+++--+ ","+++- ---+++--+ "," -- ---- + "," -- ---- + "," ---- --- ----+++-- ","+++ ---- ","+++ - --- ","--- -- ---- +-- "," --- - "," ---- ","---+ -- ","--- +++ -- " "+++ -- ","+++ ---+- "," - ---+ "," -- +-- ","--+ --+--++--+---+ --+--","-+-+--+-+-- --++--- --+-","+---++---+--++---+--- --+"," --"," - -"," -- " Dsds=0:0:pr=0:p=(*5)+9 :43+ Ei=1lz:z(i,15)=2000+400*(lz^1.2):i <m$(7,8):24:a=17:m$(a):a L"Styczen"," Marzec"," Maj"," Lipiec","Wrzesien","Listopad","Grudzien"  lat=0  214 zw=0:zb=0 q196:3,0;"Wynik finansowy po ";lat;" latach:";:lat=13,20;" roku: "; i=1lz d0:7:i+5,0;z$(i);:z(i,1)<0"  bankrut ";:35#  568 e>zbzw=i:zb=e !*1;i+5,10 ;" ";b$;"$" " 42* #i $Fzw=015,0;" Zwyciezcy zabraklo! ";:38& %K46.:17,3;" W Y G R A L ";20,6;z$(zw); & 42* 'f41):10 ,1;" Czy jeszcze gramy?  t/n":0:i$=:i$="n"i$="N"251 ( 1 )`0:t=52050R+18*(*2):y=18:r=t:y:0:7:: *K" ":#1;" * * Press key to continue. * * ":0:0:" ": +0:la=0:sa=0:a=1lk:la=k(a,1)+la:sa=k(a,1)*k(a,3)+sa:a:p=(.5*p+.5*((sa/la)*(100d/99c)-502))+(*5)-2:p>502p=502 ,p<-502p=-502 -bs=(((p-502))/5+7.5p):so=s+4:sl=s-1:sk=s+1:sd=s+2: .W7:0:a=1621:b=0192:a,b;" ";:b:a: /46.:16,6;"Aktualne";17,2;"stopy procentowe:";18,3;"depozytow- ";sl;"%";19,3;"kredytow - ";sk;"%";20,3;"dywidend - ";sd;"%";21,3;"obligacji- ";so;"%": 0a$(9 ):a$(10 -z(i,15))=z(i,15):b$(9 ):b$(10 -z(i,16))=z(i,16):16,21;" Gotowka: ";17,21;a$;" $";19,21;" Konto: ";20,21;b$;" $";: 141):0:7:0,3;" GIELDA  ";m$(mi);0,23;;z$(i);1,0;"Lp. Koncern Akcje $ Akc. obl."; 2_9 :c=2:b=3:a=1lk:a$(2):a$(3-a)=a:c:b=b-1 38b$(4):b$(5-k(a,2))=k(a,2) 4a$;" ";k$(k(a,7));b$;" ";:a$(2):a$(3-k(a,3))=k(a,3):b$(4):b$(5-z(i,a))=z(i,a):c$(4):c$(5-q(i,a))=q(i,a):a$;" ";c;b$;" ";c$;:b=0b=3:c=7-c 5a:47/:480:21,21;" L- lista. ";18,21;" ";0;4;18,24;lat;"- rok"; 6/0:7::koniec printowania ekranu 7 46.:16,4;"Lista opcji:";17,1;"Z-zakup S-sprzedaz";18,1;"0-koniec operacji";19,1;"D-depozyt K-kredyt";20,1;"P-stopy procentowe";21,1;"B-bierzacy bilans": 8v46.:16,0;" Wartosc akcji wg ";17,0;" aktualnych cen. ";18,1;"Akcje";:b=0:c=0:a=1lk:c=c+q(i,a)*502:b=b+z(i,a)*k(a,3):a:a$(9 ):a$(10 -b)=b:b$(9 ):b$(10 -c)=c:d=z(i,15)+z(i,16):18,10 ;a$;"$";19,1;"Obligacje";b$;"$" 9e=d+b+c:a$(9 ):a$(10 -d)=d:b$(9 ):b$(10 -e)=e:20,1;"Kon.+got.";a$;"$";21,0;" BILANS ";b$;"$";: :,568:bb=e:kr=5*e+z(i,16) ;|kr<1z(i,15)<116,0;" Niestety bank nie ";17,0;" udzieli kredytu! ";: <7z(i,15)0z(i,16)068D =#1;0,1;" Splacamy czy Bierzemy kredyt?";1,3;" Press: S/B; R-rezygnuje ";:0:i$=:" ":i$="R"i$="r" >i$="S"i$="s"65A ?i$="B"i$="b"68D @ 61= Aa=1:b=23:d=z(i,15):#1;1,0;" Ile chcesz splacic? ":255:f>z(i,15)f=z(i,15) B$f>-z(i,16)f=-z(i,16) CHz(i,15)=z(i,15)-f:z(i,16)=z(i,16)+f:72H Dqz(i,16)>016,0;" Wycofaj depozyt. ";17,0;" ";: Ejkr016,0;" Niestety bank nie ";17,0;" udzieli kredytu! ";: Foa=1:b=23:d=(kr):#1;1,0;" Ile chcesz kredytu? ":255:f>krf=kr G>z(i,15)=z(i,15)+f:z(i,16)=z(i,16)-f H480:47/: Icz(i,16)<046.:17,3;"Najpierw splac";20,7;"dlugi!";: J!z(i,16)=082R K!z(i,15)080P L#1;0,3;" Wycofujesz czy Lokujesz? ";1,3;" Press: W/L; R- rezygnuje ";:0:i$=:" ":i$="R"i$="r" Mi$="W"i$="w"80P Ni$="L"i$="l"82R O 76L Pa=1:b=23:d=z(i,16):#1;1,0;" Ile chcesz wycofac?