d 0,0: "": 646,11'd 11,0ad 160,1,164,15,1:d 164,15,178,8,1:d 178,8,170,21,1d 170,21,185,25,1:d 185,25,170,29,1:d 170,29,178,43,1d 178,43,164,35,1:d 164,35,160,50,1:d 160,50,156,35,1 d 156,35,142,43,1:d 142,43,150,29,1:d 150,29,135,25,1S d 135,25,150,21,1:d 150,21,142,8,1:d 142,8,156,15,1u d 156,15,160,1,1:du 160,25,1 do 157,18,"A",2,2,8 do 60,70,"POLE STAR",1,3,24 do 70,100,"SOFTWARE",1,3,24 do 85,145,"ALL RIGHTS RESERVED",1,1,8. do 30,175,"POLE STAR SOFTWARE ISINSERTED BY",1,1,8` do 50,188,"ALOS HOLDING COMPANY,TURKEY",1,1,8x do 74,190,".",1,1,8  A$: A$"" 15 d 11,0 do 90,5,"POLE STAR",1,2,16:do100,24,"SOFTWARE",1,2,16 do 130,45,"PRESENT",1,1,8:do 45,90,"BORSA ANALIZI",1,3,18> do 225,81,"-",1,1,6:do 261,81,".",1,1,8 do 62,140,"WRITTEN BY : MURAT ERBAS",1,1,8:do 246,142,".",1,1,8 do 80,165,"COPYRIGHT C<3S  A$: A$"" 22 dp 0:  TRH$(365),EY(365),ED(365)  KA(365),IA(365) id 0,0: 646,113 "":d# " : A N A M E N U : ":V " F1 - KAYIT"x " F3 - LISTE" " F5 - DOS" " F7 - GRAFIK" A$: A$"" 200 A$"" 260 A$"" 730 A$"" 1270 A$"" 1700* 200<  ** KAYIT **^  "":d# " : K A Y I T : ": " " F1 - VERI GIRISI" ' " F3 - ANA MENU" , A$: A$"" 300 6 A$"" 350 J A$"" 23 T 300^ "":d# " : K A Y I T : ":$r "HAFTALIK :"E|FL$"": "DOSYA KODU ";FL$X FL$"" 260v 6,8,2,FL$".HAF"",S,W"~ 6 2,8,15:2,A: 2 A0 A63 460 "DISK HATASI : ";A " DOSYA KODU : ";FL$ "HAF."! :> "TARIH ";TRH$Y "";TRH$s "ISLEM ADEDI ";IA "";IA "EN DUSUK ";ED "";ED "EN YUKSEK ";EY "";EY  "KAPANIS ";KA%  "";KAO : :d# "HATA DEVAM CIKIS":f& A$: A$"" 550y0 A$"H" 460: A$"D" G1: 600D A$"C" G2: 600N 550Xb 3,8,3,FL$".HAF"",S,A"l3,TRH$" "3,IA3,ED3,EY3,KA 3) G1 4609 G2 260?Q ** LISTE **wQ0: "":d# " : L I S T E : ": " F1 - HAFTALIK" " F3 - ANA MENU"  A$: A$"" 780  A$"" 830% A$"" 234 780(> "":d# " : L I S T E : ":<R "HAFTALIK :"]\FL$"": "DOSYA KODU ";FL$pf FL$"" 730z 4,8,4,FL$".HAF"",S,R" 4 2,8,15:2,A: 2 A0 960 A62 "BU ISIMDE BIR DOSYA YOK !": "DISK HATASI : ";A . 5,8,5,FL$",HAF"",S,R"8QQ1G5,TRH$(Q)_ TRH$(Q)"" 1070l5,IA(Q)y5,ED(Q)5,EY(Q)5,KA(Q)$ 980. 58 J1 Q1B " DOSYA KODU : ";FL$V "HAF."%` "TARIH : ";TRH$(J)Ct "ISLEM ADEDI :";IA(J)a~ "EN DUSUK :";ED(J) "EN YUKSEK :";EY(J) "KAPANIS :";KA(J) "SAYAC :";J A$: A$"" 1190 J "TEKRAR ? (E/H)" A$: A$"" 1220 A$"E" 1080/ A$"H" 730: 1220@P ** DOS **n "":d# " : D O S : ":  " F1 - DIRECTORY" " F3 - SCRATCH" " F5 - FORMAT"( " F7 - ANA MENU"2 A$: A$"" 1330'< A$"" 23;F A$"" 1540OP A$"" 1450cZ A$"" 1390nd 1330n "":d# " : D O S : ":x "DIRECTORY :": :dJ "$:=SEQ": "BIR TUSA BASIN...." A$: A$"" 1430 1270 "":d# " : D O S : ":* "SCRATCH :":OSD$"": "SILINECEK DOSYA ";SD$c SD$"" 1270~ 8,8,15,"S0:"SD$: 8 7,8,15:7,A: 7 A1 A0 ""SD$;" ISIMLI DOSYA SILINDI.": 1520 "DISK HATASI :";A: A$: A$"" 1520  1270+ "":d# " : D O S : ":? "FORMAT :":`FA$"": "FORMAT ADI ";FA$t" FA$"" 1270,ID$"": "ID NUMARASI ";ID$6 8,8,15,"NO:"FA$","ID$@ 8J 1270 ** GRAFIK **Q0: "":d# " : G R A F I K : ":- " F1 - HAFTALIK"Q " F3 - ANA MENU"i A$: A$"" 1780} A$"" 1830 A$"" 23 1780& "":d# " : G R A F I K : ":: "HAFTALIK :"DFL$"": "DOSYA KODU ";FL$N FL$"" 1730%b 4,8,4,FL$".HAF"",S,R"-l 4Cv 2,8,15:2,A: 2T A0 1970 A62 "BU ISIMDE BIR DOSYA YOK !": "DISK HATASI : ";A 5,8,5,FL$",HAF"",S,R"QQ15,TRH$(Q) TRH$(Q)"" 20705,IA(Q) 5,ED(Q)5,EY(Q)%5,KA(Q)0  19808 5B ZQ1i* "":d# " : G R A F I K : "; :}- "KOD : ";FL$/ "HAFTALIK"4 53)"F1 - CIZGI"> 53)"F3 - CUBUK"R 53)"F5 - ANA MENU"\ A$: A$"" 2140(f A$"" W2: 2200Bp A$"" W4: 2200Tz A$"" 23_ 2140 "":d# " : G R A F I K : ": : "KOD : ";FL$ "HAFTALIK" W2 "CIZGI : " W4 "CUBUK : "S1: "SAYAC NO ";S0 "";SA W4 3000X YS50: YZ YZl EK1000000:EB0z IS Y$ KA(I)EB EBKA(I). KA(I)EK EKKA(I)8 IB "DONEM :";TRH$(S)L "DONEM :";TRH$(Y)V "EDF :";EK` "EYF :";EB*j "FARK :";(EBEK)?t I1 1000: IK~ d 11,0^ d 0,0,319,0,1u d 319,0,319,199,1 d 319,199,0,199,1 d 0,199,0,0,1 d 0,28,319,28,1 d 64,28,64,199,1 J34 199 15 I64 319 15 d I,J,1  I,J/ AD(EBEK)150:HTV(EBEK)10> I0 10R D(EK(IHTV))^ D$(D){ do 2,180(15I),D$,1,1,8 I( do 2,2,"KOD :",1,1,82 do 50,2,FL$,1,1,8< do 2,12,TRH$(S),1,1,8F do 2,20,TRH$(Y),1,1,8P EK$((EK)) Z EB$((EB)) d FRK$((EBEK))7 n do 200,2,"EYF:",1,1,8N x do 235,2,EB$,1,1,8i do 200,11,"EDF:",1,1,8 do 235,11,EK$,1,1,8 do 200,20,"FRK:",1,1,8 do 235,20,FRK$,1,1,8 KA(Y1)KA(Y) V0:B0 IS Y N(KA(I)EK)AD ! M(KA(I1)EK)AD! V65B1! d V,184N,V3,184M,1;! BB5C! I[! A$: A$"" 2800j! "":dp 0{! W2 2090! YS50: YZ YZ! EK1000000:EB0! IS Y! EY(I)EB EBEY(I)! ED(I)EK EKED(I)! I " "DONEM :";TRH$(S)"" "DONEM :";TRH$(Y)6" "EDF :";EKJ" "EYF :";EBd" "FARK :";(EBEK)z"& I1 1000 : I"0 d 11,0": d 0,0,319,0,1"D d 319,0,319,199,1"N d 319,199,0,199,1"X d 0,199,0,0,1"b d 0,28,319,28,1#l d 0,149,319,149,1#v d 64,28,64,199,12# I28 134 15H# J64 319 15U# d J,I,1_# J,Iv# I149 199 15# J64 319 15# d J,I,1# J,I# HTV(EBEK)6:AD(EBEK)90# I0 6# D(EK(IHTV))# D$(D) $ do 1,13215I,D$,I,1,8$ I)$ KE10000000:BE07$ IS YQ$ IA(I)BE BEIA(I)k$* IA(I)KE KEIA(I)q$4 $9 U((BEKE)2):U$(U)$> BE$(BE):KE$(KE)$H do 0,190,KE$,1,1,8$M do 0,175,U$,1,1,8$R do 0,160,BE$,1,1,8%\ do 1,2,"KOD:",1,1,8%a do 35,1,FL$,1,1,80%f do 1,11,TRH$(S),1,1,8J%p do 1,19,TRH$(Y),1,1,8S%u V64a%z IS Yx% M((EY(I)EK)AD)% M133M% N((ED(I)EK)AD)% N133N% B((KA(I)EK)AD)% B133B% VV5% d V,M,V,N,1% d V,B,V2,B,1& C((IA(I)KE)((BEKE)30))%& C194C8&d V,194,V,C,1@& IX& A$: A$"" 3610g&$ "":dp 0r&. 2090