* ***************************0H B 0 R SNm KARSTEIN OG ASBJ0RN JULA 2000 *************************** :1,0 AA%(10,3),GR%(14,36) AA$(10) : AKSJENAVN AA(10) IX%(3,2),TX%(2)8  SA%(4,10),LN(4),KN(4),NN$(4)D  V%(4)b  NH%(20),NT%(10),NS%(10)z  HT%(10),IT%(3,10)  KK$(6),BM$(4),FG(4) FG(0)13:FG(1)7:FG(2)14:FG(3)8  8000 : INTRO (300 : INIT VARIABLER d e f MAIN-LOOP g nP1PL9 x1000 : PRINT SKJERMQ 2000 : HENT INPUTZ ""u 3000 : RENTEVIRKNING| P 6000 : NYHETSMELDINGER 5000 : OPPDATER VARIABLER 100 , - INIT VARIABLER . 6I02 7AA%(I,0)(0)43010 : SKIP 8AA%(I,1)5/ 9AA%(I,2)06 :IA @I35` AAA%(I,0)(0)10010 : ITo BAA%(I,1)5~ CAA%(I,2)0 DI JI69 KAA%(I,0)(0)30010 : INDUSTRI LAA%(I,1)5 MAA%(I,2)0 NI ^I03:IX%(I,1)0:I `TX%(1)1 r4000:5000W |AA$(0)"AKER MARITIM":AA$(1)"STOLT OFFSHORE":AA$(2)"REKSTEN A/S" }AA$(3)"OPTICOM":AA$(4)"TELENOR":AA$(5)"MERKANTILDATA" ~AA$(6)"NORSK HYDRO":AA$(7)"KVAERNER":AA$(8)"ORKLA":AA$(9)"STATOIL"$ KK$(0)"KAD A/S":KK$(1)"A.S.D":KK$(2)"ACME":KK$(3)"R0KKE AS."o BM$(0)"B0RSMELDING:":BM$(1)"NYHET:":BM$(2)"SISTE:":BM$(3)"DAGENS:"z I09 P1PL:SA%(P,I)0:P I P1PL:KN(P)10000:LN(P)0:P RN%(0)6020:NV1    DETTE ER SKJERM#"";:53280,0:53281,08NGP1:N0N35MFGP2:F0F35"TOTALINDEKS:"TX%(0);GR%(13,N)GR%(13,F)"";" RENTE:";RN%10;"% ":"SKIP & OFFSHORE ";IX%(0,0)26)GR%(10,N)GR%(10,F)I02"";AA$(I);20)AA%(I,0)26)GR%(I,N)GR%(I,F)"I(e"IT & TELEKOM ";IX%(1,0)26)GR%(11,N)GR%(11,F)pI35 "";AA$(I);20)AA%(I,0)26)GR%(I,N)GR%(I,F) I"INDUSTRI ";IX%(2,0)26)GR%(12,N)GR%(12,F)I69+"";AA$(I);20)AA%(I,0)26)GR%(I,N)GR%(I,F)2I8>Db HENT INPUT, PLAYER Ph}A$:A$""2005"";:646,FG(P1)I0230)SA%(P,I)I"";:I0230)SA%(P,I3)I"";:I0330)SA%(P,I6)IG"F1:HANDLE F3:LAAN F5:GRAF F7:AVSLUTT "UNN$(P1)"LIKVIDE MIDLER:";KN(P)"KR "(RN%0.5)10"% RENTE"LN(P)02060 "LAAN:";LN(P)"KR TIL";(RN%1.5)10"% RENTE" VA0I09VAVASA%(P,I)AA%(I,0) I**"VERDIER I AKSJER:";VA"KR"@/I09:AA(I)0:IH4A$a>A$""2200: KJ0Pz@A$""2300: SELGBA$""2400: LAANCA$""2600: BETALDA$"": SLUTT OMG.EA$""7200: GRAFH21000"VELG AKSJE DU VIL KJ0PE "I2500 : VELG AKSJE"ANTALL AKSJER: ";1,A$:A(A$)KNKN(P)AAA%(AA,0)KN0KN(P)KN:SA%(P,AA)SA%(P,AA)A:2290*"FOR LITE LIKVIDITET. ">A$:A$""2284N1000:2000eVAAA%(AA,0)6000yAA(AA)AA(AA)V1000:2000"VELG AKSJE DU VIL SELGE " 2500 : VELG AKSJE" "ANTALL AKSJER: ";. 1,A$:S$ A(A$):ASA%(P,AA)ASA%(P,AA)m. SA%(P,AA)SA%(P,AA)A8 KN(P)KN(P)AAA%(AA,0)B VAAA%(AA,0)6000D AA(AA)AA(AA)VL 1000:2000` "";a "HVOR MYE VIL DU LAANE? ";2b 1,A$::A((A$))Ad A02430gj ALN(P)(VAKN(P)LN(P))22450t "S0KNADEN INNVILGES DESVERRE IKKE. "x A$:A$""2424~ 1000:2000 LN(P)LN(P)A:KN(P)KN(P)A:RN(1.5RN%)10A "DU INNVILGES ET LAAN TIL"RN"% RENTE."U A$:A$""2470[ a x VELG AKSJE AA AA0 PP1144AA40 AA2PPPP80 AA5PPPP80 PP,90:54272PP,FG(P1) A$:A$""2530 A$""AAAA1:2540 A$""AAAA1:2540. (A$)138 2530G AA0AA9V AA9AA0g PP,32:2520y( LN(P)02100) "HVOR MYE VIL DU BETALE? ";* 1,A$::A((A$)), A026342 ALN(P)ALN(P)< KN(P)A2640TF "DU HAR IKKE GOD NOK LIKVIDITET! "hH A$:A$""2632xJ 1000:2000P LN(P)LN(P)A:KN(P)KN(P)AZ   RENTE PA LAN OG INNSKUDD, P  RN(RN%1000)16 : 16-DEL RENTE KN(P)(KN(P)(RN0.5)KN(P))6 LN(P)(LN(P)(RN1.5)LN(P))< V KJ0P/SALG-EFFEKTa& I09}( AA%(I,0)AA%(I,0)AA(I)* I  OPPDATERE TRENDIX% ETTER TX%I02IX%(I,1)((IX%(I,1)TX%(1))2)0.5I OPPDATERE AKSJE ETTER IX%%-X08I09KI3I6XX1}AA%(I,2)((AA%(I,2)IX%(X,1)IX%(X,1))3)0.5AA%(I,2)AA%(I,2)(((0)3)1)AA%(I,1)AA%(I,1)(((0)3)1):AA%(I,1)0AA%(I,1)0I  OPPDATER VARIABLER# HVER OMGANG)/G AKSJEKURSRI09VAA%(I,2)AA%(I,2)(AA%(I,0)400)((0)3)1VV(0.5(AA%(I,1)10))AA%(I,0)AA%(I,0)VAA%(I,0)3AA%(I,0)3GR%(I,GP)AA%(I,0)I INDEX IX%(0,0)0'I02FIX%(0,0)IX%(0,0)AA%(I,0)MI\IX%(1,0)0gI35IX%(1,0)IX%(1,0)AA%(I,0)IIX%(2,0)0I69IX%(2,0)IX%(2,0)AA%(I,0)ITX%(0)(IX%(0,0)IX%(1,0)IX%(2,0))3I02GR%(I10,GP)IX%(I,0)#I9GR%(13,GP)TX%(0)QGPGP1:GP36GP0WPuQ FORANDRE TREND OG RENTE{RZNVNVNV(RN%1000)16dI09f(AA%(I,2))25230g(AA%(I,2))2((0)3)05230jAA%(I,1)(AA%(I,1)12)2nIxAA((0)10)2AA%(AA,1)(0)1045300KAA%(AA,2)AA%(AA,2)a((0)5)05310}V((0)191)(RN%10)RN%RN%V:RN%10RN%10X((0)8):X05314X153165500TX%(1)((0)3) :4000:5500# I02:IX%(I,1)IX%(I,1)((0)3)1:4020:5500) |/ p5 qO r NYHETSMELDINGERU sk t53280,6:53281,6 u6200 : KONKURS? v(0).18 w6010 : NYHET xT0600: y zR((0)4) |""BM$(R)""   HVILKE NYHETER!!T((0)3)1: TYPE5!T6060,6070,6080J! AKSJE-VIRKNING]!NH((0)6)1o!AA((0)10)!NH6610,6620,6630,6640,6650,6660! TREND-AKSJE!AA((0)10)!AA%(AA,2)06075!AA%(AA,2)016077!6060: TREND=0"NH((0)3)1%"NH6710,6720,67308"NH((0)3)1O"NH6810,6820,6830^" GENERELLq"NH((0)9)1"NH6910,6920,6930,6940,6950,6960,6970,6980,6990"8"9 KONKURS?":"BAA((0)10)"LAA%(AA,0)86300 #V(0).2AA%(AA,2)16300#`6006#3# AA ER KONKURS9#I#R((0)2)`#""BM$(R)""#AA$(AA)" HAR GAATT KONKURS!":#P1PL:SA%(P,AA)0:P#A035:GR%(AA,A)0:A$AA$(AA)KK$(KK):AA%(AA,0)(0)10010:AA%(AA,2)TX%(1):AA%(AA,1)5$KKKK1 : KONKURS-TELLER3$A$:A$""6360p$AA$(AA)" B0RSNOTERES TIL EN VERDI"(13)"AV"AA%(AA,0);$"KR PER AKSJE."$T0600:$$$$ NYHETER ANG. SELSKAP AA$%AA$(AA)" OFFENTLIGGJ0R GODE TALL"(13)"FOR FORRIGE KVARTAL."E%AA%(AA,2)AA%(AA,2)1:AA%(AA,2)1AA%(AA,2)1x%AA%(AA,1)AA%(AA,1)1:AA%(AA,1)1AA%(AA,1)1~%%AA$(AA)" INNGAAR SAMARBEIDSAVTALE"(13)"MED UTENLANDSK SELSKAP."%AA%(AA,2)AA%(AA,2)(0)31&AA%(AA,1)AA%(AA,1)1&J&AA$(AA)" LEGGER FRAM DAARLIGERE"(13)"RESULTAT ENN VENTET."}&AA%(AA,2)AA%(AA,2)1:AA%(AA,2)0AA%(AA,2)0&&AA$(AA)" GJ0R AGGRESSIVT OPPKJ0P."&AA%(AA,1)AA%(AA,1)2&&"LEDERSKIFTE I ";AA$(AA) 'AA%(AA,2)AA%(AA,2)(0)31$'AA%(AA,1)AA%(AA,1)2*'l'"DET RYKTES AT ";AA$(AA)" HAR"(13)"INDUSTRIHEMMELIGHETER"'AA%(AA,2)AA%(AA,2)1:AA%(AA,2)0AA%(AA,2)(0)3'AA%(AA,1)AA%(AA,1)3' ','- POS. AKSJETREND'.(6AA$(AA)" HAR STOR TROVERDIGHET."C(7AA%(AA,2)AA%(AA,2)(0)2:AA%(AA,1)AA%(AA,1)1I(>(@"EKSPERTER MENER AT "AA$(AA):" ER EN SIKKER INVESTERING"(AAA%(AA,1)AA%(AA,1)((0)2)1(H(JAA$(AA)" KAN VISE TIL GOD FORTJENESTE"(R() NEG. AKSJETREND)C)AA$(AA)" MISTER TILLIT PGA"(13)"VINGLETE LEDELSE.")AA%(AA,2)AA%(AA,2)(0)3:AA%(AA,1)AA%(AA,1)((0)2)))AA$(AA)" HAR H0Y GJELD.")AA%(AA,1)AA%(AA,1)2))AA$(AA)" SPAAES FORTSATT NEDGANG PAA B0RSEN.")** GENERELLE NYHETER#*O*"H0Y OLJEPRIS, POSITIVT FOR MARKEDET!"k*TX%(1)TX%(1)((0)3)w*4000:*"UROLIG 0KONOMI I ASIA"* TX%(1)TX%(1)((0)4)1:RN%RN%(0)14* 4000:+"EKSPERTER MENER AT MARKEDET"(13)"KAN VAERE OVERPRISET"&+(0)0.1TX%(1)42+4000:C+RN%706944n+"SENTRALBANKSJEFEN SETTER NED RENTA."+RN%RN%10:TX%(1)TX%(1)1+6946+ "SENTRALBANKSJEFEN SETTER OPP RENTA FOR":"AA DEMPE INFLASJONEN"+!RN%RN%10:TX%(1)TX%(1)1,"4000:,&IX%(1,1)06954K,'"DOTCOM BOBLEN SPREKKER, NASDAQ FALLER."k,(IX%(1,1)((0)4)1:6958,*"SPEKULANTER MENER AT FRAMTIDEN LIGGER":"I E-BUSINESS.",+IX%(1,1)((0)5),.4020:-0"PLUTSELIG ETTERSP0RSEL ETTER SKIPS-":"TONNASJE!"&-2IX%(0,1)IX%(0,1)((0)3)12-84020:p-:"RYKTER OM STORE FORTJENESTEMULIGHETER":"I INDUSTRIEN!"-<IX%(2,1)((0)5)1-=4020:-D"RV OG SV DANNER REGJERINGSKOALLISJON!":"NERV0ST MARKED."-ETX%(1)TX%(1)((0)3)1-F4000:;.N"FRP I REGJERINGSPOSISJON. 0KT BRUK AV":"OLJEFONDET."j.ORN%RN%((0)28):TX%(1)TX%(1)((0)2)v.P4000:|.X.Y.Z TEGN GRAF GR FARGE F.[.bH0:L32767.cI035.dGR%(GR,I)07015.eGR%(GR,I)HHGR%(GR,I)/fGR%(GR,I)LLGR%(GR,I)/gI./lHLHH1:LL1b/q"";H" ":"";L" ";k/vGGPw/xX439/yGR%(GR,G)07038/zY%24((GR%(GR,G)L)(HL))22/|1024X40Y%,160:55296X40Y%,F/~GG1:G36G0/X//  0! VIS GRAF0"W0%"VELG AKSJE "a0*250004"";AA$(AA)" TOTALINDEKS GRUPPEINDEKS"0>GR13:F2:70000HAA3GR10:F3:7000:72700RAA6GR11:F3:7000:72700\GR12:F3:7000 1fGRAA:F1:7000 1A$:A$""7300011000:200061@<1AM1B INTROc1J53280,6:53281,61T"B 0 R S"1^T02000:T1hX1381j Y1l1024X40Y,160:55296X40Y,21nT040:T1pX1rT0800:T2 2#2 HENT STARTINPUT)2D2"":53280,0:53281,0n2" HVOR MANGE SPILLERE?":XX32421024XX0,49:1024XX2,50:1024XX4,51:1024XX6,52255296XX6,152X062255296XX2X,15:55296XXX,12P$3P$"1"P$"2"P$"3"P$"4"8170,3T0200:T93X:8140F3PL(P$)[3" "31024XX2PL2,48PL:55296XX2PL2,13T0400:T3 :3 P1PL:646,FG(P1)3 " NAVN, SPILLER";P;": ";3 1,NN$(P1)::3 P3l D4`"20,19,17,16,17,18,18,17,17,15,14,16,17,19,18,16,13,12,10,11,11,10,12v4a"11,10,09,07,08,07,06,04,11,13,14,13,11,09,09