d� SAVE"@0:FUTBOL/A",83n–¥Y(X)²µ(X¬100)­100Zx™"“  "}‚™"  FUTBOL LIGI PROGRAMI " Œ™"  AYDIN TIRYAKI "Ö™"  EYLUL 1986 - ANKARA "è ™"  ":™ ª…"  YIL **/** ’";YI$9 ´…"  LIG 1,2A,33... ’";LI$:LI$²LI$ª".LIG"S ¾™"  SEZON BASI "h È™" 1:TAKIMLAR‚ Ò™" 2:TAKIMIN SEHRI– Ü™" 3:FIKSTUR¯ æ™"  SEZON ICI "À ð™" 4:MENUÓ ú¡G$:‹G$²""§250æ ‹G$²"1"§�810:€ï �670 ‹G$²"2"§�1070:€ "‹G$²"3"§�930:€1 ,‹G$²"4"§�770:�720:�490P 6™"“ "YI$"-"LI$" : MENU "q @™"  1:TAKIM LISTESI "’ J™"  2:HAFTANIN MACLARI "³ T™"  3:HAFTANIN GOLLERI "Ô ^™"  4:PUAN DURUMU "õ h™"  5:TAKIMIN DURUMU " r™"  6:GENEL DURUM ":™9 |™"  7:SONUCLARI GIR "Z †™"  8:SON DURUMU SAKLA "{ �™"  9:YENI DISKETTE SAKLA "œ š™"  0:PROGRAMDAN CIK "¯ ¤¡G$:‹G$²""§420½ ®‹G$²"0"§€ô ¸‘Å(G$)�1310,1150,1250,2060,2110,2630,1360,1630,600 Â�1500:‰310 Ì: Ö� SUBPROGRAMLAR# à:9 ê� SUB EKRAN RENGIc ô‹ER²0§—53280,0:—53281,0:—646,1:ER²1:Ži þ:x � SUB INITµ †T$(TS),F(TS,TS,2),P(TS,6,1),TM(TS¬2,3),GL(TS¬2),RE$(15)á †TR$(TS),PP(8),GT(6,6),A(TS,1),FI(TS,2)ï &Q²1E«12:Žõ 0: :� SUB OPEN9 DN$²"@0:"ªLI$ª"/"ªN$ª"-"ªYI$ª",S,"ªS$:Ÿ2,8,2,N$:Ž? N:U X� SUB YENI DISKET b™"“ FORMATLANMIS BIR DISKET TAKIP "§ l™" HERHANGI BIR TUSA BAS!... "º v¡G$:‹G$²""§630Ï €�890:�1100:�1670ø Š™" YENI DISKETINIZ HAZIR ":�1500:Žþ ”:ž� SUB TAKIM READ0¨N$²"T":S$²"R":�570:„2,TSP²�520:�I²1¤TS:„2,T$(I):‚I: 2i¼HS²µ((TS«1)­2)¬2ª1:ŽoÆ:†Ð� SUB FIKSTUR READ�ÚN$²"F":S$²"R":�570Êä�1610:�I²1¤TS:�J²1¤TS:�L²0¤2:„2,F(I,J,L)âî‚L:‚J:‚I: 2:�1770:Žèø:ý� SUB SEHIR READ N$²"R":S$²"R":�570:�I²1¤TS2„2,TR$(I):‚I: 2:Ž8 :N*� SUB TAKIM INPUT‰4—19,64:…"  TAKIM SAYISI ’";TS:�520:HS²µ((TS«1)­2)¬2ª1¨>™:™"“  "YI$" TAKIMLARI ’"ÁH�I²1¤TS:™I;:…T$(I):™ûR‹Ã(T$(I))±11§™"EN FAZLA 11 HARFLI TAKIM ADI!..":I²I«1\‚IEf�J²1¤TS«1:�K²Jª1¤TS:‹T$(J)±T$(K)§C$²T$(J):T$(J)²T$(K):T$(K)²C$[p‚K:‚J:—19,0:�1310lz� SUB SAVE-1‰„N$²"T":S$²"W":�570:˜2,TS¦Ž�I²1¤TS:˜2,T$(I):‚I: 2:ެ˜:¾¢� SUB FIKSTURî¬�I²1¤TS:�J²1¤TS:�L²0¤2:F(I,J,L)²«1:‚L:‚J:‚I ¶TT²µ(TS­2):�H²1¤HS:�1310:™=À™" "H". HAFTA MACLARI GIRILECEK...":—19,64{Ê�I²1¤TT:…"1.TAKIM 2.TAKIM �������";FI(I,1),FI(I,2)¤Ô™"‘‘":™:‚I:™"“"H".HAFTA OYUNLARI"ÔÞ�I²1¤TT:II²FI(I,1):IJ²FI(I,2):MT²0:�1720:‚Iõè™" FIKSTUR DOGRU MU? E/H " ò¡G$:‹G$²""§1010!ü‹G$²"H"§H²H«1:‰10503‹G$³±"E"§1010s�I²1¤TT:F(FI(I,1),FI(I,2),0)²H:F(FI(I,2),FI(I,1),0)²HªHS:‚Iˆ‚H:—19,0:�1630:ŽŽ$:¦.� SUB TAKIMIN SEHRIÍ8—19,64:™"“TAKIMIN SEHRI:":�I²1¤TSóB™T$(I)£13)" ";:…TR$(I):™:‚I:—19,0L� SUB SAVE-2VN$²"R":S$²"W":�5704`�I²1¤TS:˜2,TR$(I):‚I=j 2:ŽCt:^~� SUB HAFTANIN MACLARIqˆ…" HAFTA ’";H˜’™"“ "YI$"-"LI$;H".HAFTA MACLARI":™ÂœK²0:�I²1¤TS:�J²1¤TS:‹F(I,J,0)³±H§1220Ò¦FT²F(I,J,1)°‹FT²«1§:II²I:IJ²J:MT²0:�1720:K²Kª1:M(K,1)²I:M(K,2)²J:‰1220BºG1²F(I,J,1):G2²F(I,J,2):II²I:IJ²J:MT²1:�1720mÄ‚J:‚I:‹GL(H)³±0§™" ATILAN GOL ="GL(H)sÎŽyØ:šâ� SUB PRINT/HAFTANIN GOLLERIÆì™ "“ "YI$"-"LI$" HAFTANIN GOLLERI ’":™ýö� I²1 ¤ HS:G1$²"":G2$²"":‹ GL(I)³±0 § G1$²Ä(GL(I))!‹ GL(IªHS)³±0 § G2$²Ä(GL(IªHS))O ™ £4)I;£8)":"G1$£15)IªHS;£19)":"G2$:‚ I:ŽU:m� SUB TAKIM LISTESI’(™ "“ "YI$"-"LI$" TAKIMLARI ’"Â2� I²1 ¤ µ(TS­2):™ I;£4)"-"T$(I):‚ I:™ ""÷<� I²µ(TS­2)ª1 ¤ TS:™ £20)I;£24)"-"T$(I):‚ I:™ :ŽýF:P� SUB SONUCLARIN GIRILMESI[Z� 1150:— 19,64:™ " SONUCLAR : '-1' SONUCSUZ ’":‹ K²0 § Ž™d� L²1 ¤ K:™ T$(M(L,1)):… " ";G(L,1):‹ G(L,1)³0 § ™:‰ 1400»n™ T$(M(L,2)):: … " ";G(L,2):™ÿx‚ L:™ "“ "H".HAFTA":� L²1 ¤ K:MT²1:‹ G(L,1)³0 °G(L,2)³0 § MT²06‚II²M(L,1):IJ²M(L,2):G1²G(L,1):G2²G(L,2):� 1720:‚ LYŒ™ " SONUCLAR DOGRU MU? E/H ’"q–¡ G$:‹ G$²"" § 1430† ‹ G$³±"E" § 1480±ª� L²1 ¤ K:‹ G(L,1)³0 ° G(L,2)³0 § 1470é´F(M(L,1),M(L,2),1)²G(L,1):F(M(L,1),M(L,2),2)²G(L,2)ø¾‚ L:� 1770È— 19,0:Ž Ò:Ü� SUB DEVAM=æA$²""yð™ A$:™ "  ’DEVAM ’RENK ’PRINTER ";‘ú¡ G$:‹ G$²"" § 1530¥‹ G$²"D" § 1610å‹ G$²"R" § ™ A$:™ "  F1:CEVRE RENGI F2:EKRAN RENGI ";ù‹ G$²"P" § 1600"‹ G$²"…" § — 53280,Â(53280)«239A,‹ G$²"†" § — 53281,Â(53281)«239L6‰ 1530Š@™ A$:™ " ";:4:‰ 1520ÂJ™ A$:™ "  LUTFEN BEKLEYIN., ’"::ŽÈT:Ù^� SUB SAVE-3h™ "“ SON DURUMU SAKLAYACAK MISIN? E/H"r¡ G$:‹ G$²"" § 1650/|‹ G$³±"E" § ŽN†N$²"F":S$²"W":� 570:� 1690u�N$²"@0:"ªLI$ª"/F-X,S,W":Ÿ 2,8,2,N$˜š� I²1 ¤ TS:� J²1 ¤ TS:� L²0¤ 2¹¤˜2,F(I,J,L):‚ L:‚ J:‚I:  2:Ž¿®:ϸ� SUB SONUC‹ MT²1 § ™ £4)T$(II)£16)G1£19)" - "T$(IJ)£34)G2+Ì‹ MT²0 § ™ £4)T$(II)£19)" - "T$(IJ)1ÖŽ7à:Mê� SUB PUAN DURUMUyô™ "“ PUAN DURUMU HESAPLANIYOR ’":Z0²T1¸þ� I²0 ¤ TS:A(I,0)²1:� J²0 ¤ 6:P(I,J,0)²0:P(I,J,1)²0:‚ J:‚IÌ� O G B M A Y Pà� 0 1 2 3 4 5 6ý� I²1 ¤ HS¬2:GL(I)²0:‚ I,&� I²1 ¤ TS:� J²1 ¤ TS:‹ F(I,J,1)²«1 § 1920h0G1²F(I,J,1):G2²F(I,J,2):GL(F(I,J,0))²GL(F(I,J,0))ªG1ªG2‡:‹ G1²G2 § L1²2:L2²2:‰ 1880¦D‹ G1±G2 § L1²1:L2²3:‰ 1880´NL1²3:L2²1øXP(I,4,0)²P(I,4,0)ªG1:P(I,5,0)²P(I,5,0)ªG2:P(I,L1,0)²P(I,L1,0)ª1<bP(J,4,0)²P(J,4,0)ªG2:P(J,5,0)²P(J,5,0)ªG1:P(J,L2,0)²P(J,L2,0)ª1Wl‹ TR$(I)²TR$(J) § 1920›vP(J,4,1)²P(J,4,1)ªG2:P(J,5,1)²P(J,5,1)ªG1:P(J,L2,1)²P(J,L2,1)ª1§€‚ J:‚ IÝŠ� I²1 ¤ TS:� K²0 ¤ 1:P(I,6,K)²P(I,1,K)¬2ªP(I,2,K) ”P(I,0,K)²P(I,1,K)ªP(I,2,K)ªP(I,3,K):‚ KRžA(I,1)²P(I,6,0)ª(P(I,4,0)«P(I,5,0))­1E3ªP(I,4,0)­1E6ª(TS«A(I,0))­1E8x¨‚ I:Z1²T1:™ :™ ¥Y((Z1«Z0)­60)" S"œ²™ " PUAN DURUMU SIRALANIYOR."º¼� I²1 ¤ TS«1:� K²Iª1 ¤ TSÕÆ‹ A(I,1)±A(K,1) § 2010Ð� J²0 ¤ 1:PP(J)²A(I,J):A(I,J)²A(K,J):A(K,J)²PP(J):‚ J:™ "T";"Ú‚ K:‚ IEä� I²1 ¤ TS:� J²0 ¤ 4:� K²0 ¤ 1pîP(0,J,K)²P(0,J,K)ªP(I,J,K):‚ K:‚ J:‚ IŽø™ :™ ¥Y((TI«21)­60)" S":Ž”:° � SUB PUAN DURUMU/BASIMã™ "“"LI$" "£11)"O G B M A Y P ’":þ � I²1 ¤ TS:™ :K²A(I,0)6 *™ T$(K);:� J²0 ¤ 6:™ £J¬4ª11)P(K,J,0);:‚ J:‚ I:™ :Ž< 4:U >� SUB TAKIMIN DURUMUt H… " TAKIMIN ADI";T§ TN²I“ R‚ I:‹ TN²0 § � 1310:‰ 2120º \TY²0:� I²1 ¤ TS:‹ TN²A(I,0) § TY²1Ó f‚ I:™ "“ "YI$"-"LI$"!p™ " O G B M A Y P ’":!z™ T$(TN);:� J²0 ¤ 6:™ £J¬4ª11)P(TN,J,0);:‚ J:™ :™y!„™ " ICERIDE";:� J²0 ¤ 6:™ £J¬4ª11)P(TN,J,0)«P(TN,J,1);:‚ J´!Ž™ :™ " DISARIDA";:� J²0 ¤ 6:™ £J¬4ª11)P(TN,J,1);:‚ J:™Ð!˜™ " IL1"£20)":"TR$(TN)"¢™ " DURUMU"£23)"="TY;":PRINT " AVERAJ"TAB(23)"²"P(TN,4,0)-P(TN,5,0)P"¬™ " OYUN BASINA PUAN"£23)"="¥Y(P(TN,6,0)­P(TN,0,0))Ž"¶™ " D.OYUN BASINA PUAN"£23)"="¥Y(P(TN,6,1)­(P(TN,0,1)ª0))Ò"À™ " D.OYUN PUANI YUZDESI"£23)"="¥Y(P(TN,6,1)­(P(TN,6,0)ª0)¬100) #Ê™ " OYUN BASINA GOL"£23)"="¥Y(P(TN,4,0)­P(TN,0,0))H#Ô™ " DIS GOL YUZDESI"£23)"="¥Y(P(TN,4,1)­(P(TN,4,0)ª0)¬100)S#Þ� 1500€#è� I²1 ¤ TS¬2:� J²0 ¤ 3:TM(I,J)²0:‚ J:‚ Iž#ò� 0:TAKIM 1:G1 2:G2 3:YERÈ#ü� I²1 ¤ TS:FT²F(TN,I,0):‹ I²TN § 2320$ TM(FT,1)²F(TN,I,1):TM(FT,2)²F(TN,I,2):TM(FT,0)²1:TM(FT,3)²1$ ‚ I:$ � I²1 ¤ TS:FT²F(I,TN,0):‹ I²TN § 2350z$$ TM(FT,2)²F(I,TN,1):TM(FT,1)²F(I,TN,2):TM(FT,0)²1:TM(FT,3)²2‚$. ‚ I¿$8 ™ "“"YI$"-"LI$":"T$(TN):™ "BASARI GRAFIGI ":B$²"m’":™ï$B � I²1 ¤ HS¬2:‹ TM(I,1)³0 ° TM(I,0)³1 § 2410 %L ‹ TM(I,1)²TM(I,2) § ™ B$;4%V ‹ TM(I,1)±TM(I,2) § ™ B$"‘�"B$"";S%` ‹ TM(I,1)³TM(I,2) § ™ "@";[%j ‚ I|%t ™ :™ "GOL GRAFIGI ":™¬%~ � I²1 ¤ HS¬2:‹ TM(I,1)³0 ° TM(I,0)³1 § 2500Ã%ˆ ‹ TM(I,1)²0 § 2470ä%’ � J²1 ¤ TM(I,1):™ "Q‘�";:‚ J&œ � J²1 ¤ TM(I,1):™ "";:‚ J#&¦ ‹ TM(I,2)²0 § ™ "";:‰ 2500K&° ™ "";:� J²1 ¤ TM(I,2):™ "W�";:‚ Js&º � J²1 ¤ TM(I,2)ª1:™ "‘";:‚ J:™ "";‚&Ä ‚ I:� 1500«&Î ™ "“"YI$"-"T$(TN)":1.DEVRE MACLARI"Ì&Ø � I²1 ¤ HS:� 2560:‚ I:� 1500õ&â ™ "“"YI$"-"T$(TN)":2.DEVRE MACLARI"'ì � I²HSª1 ¤ HS¬2:� 2560:‚I'ö Ž$' � SUB*<' ‹ TM(I,0)³1 § ™ I:ŽZ' MT²0:‹ TM(I,1)³±«1 § MT²1“' ‹ TM(I,3)²1 § II²TN:IJ²TM(I,0):G1²TM(I,1):G2²TM(I,2)Ì'( ‹ TM(I,3)²2 § IJ²TN:II²TM(I,0):G2²TM(I,1):G1²TM(I,2)Ý'2 ™ I:� 1720:Žã'< :ù'F � SUB GENEL DURUM(P ™ "“ "YI$"-"LI$" GENEL DURUMU ">(Z TX²P(0,0,0)­2:TB²P(0,2,0)­2Z(d TA²P(0,4,0):TG²P(0,1,0)v(n DY²P(0,1,1):DA²P(0,4,1)–(x ™ " OYNANAN OYUN"£23)"="TX½(‚ ™ " KALAN OYUN"£23)"="TS¬(TS«1)«TXø(Œ ™ " YENGI ILE BITEN OYUN"£23)"="TG"(%"¥Y(TG­TX¬100)")"4)– ™ " BERABERE BITEN OYUN"£23)"="TB"(%"¥Y(TB­TX¬100)")":™X)  ™ " TOPLAM ATILAN GOL"£23)"="TAƒ)ª ™ " OYUN BASINA GOL"£23)"="¥Y(TA­TX):™¾)´ ™ " DIS SAHADA YENGI"£23)"="DY"(%"¥Y(DY­(TGª0)¬100)")"*¾ ™ " ...PUAN YUZDESI"£23)"= %"¥Y(100¬(DY¬2ªP(0,2,1))­(TX¬2ª0))3*È ™ " ...GOL"£23)"="DA"(%"¥Y(DA­(TAª0)¬100)")":™_*Ò ™ " ORTAK SAHA OYUNU"£23)"="TX«P(0,0,1)‹*Ü ™ " ...BERABERLIGI"£23)"="TB«P(0,2,1):™¬*æ ™ " LIDER"£23)": "T$(A(I,0))Ð*ð ™ " SONUNCU"£23)": "T$(A(TS,0))+ú � 1500:� I²0 ¤ 6:� J²0 ¤ 6:GT(I,J)²0:‚ J:‚ I:SU²05+ � I²1 ¤ TS:� J²1 ¤ TS:‹ F(I,J,1)²«1 § 2850~+ G1²F(I,J,1):G2²F(I,J,2):‹ G1³7 ¯ G2³7 § GT(G1,G2)²GT(G1,G2)ª1:‰ 2850Š+ SU²SUª1–+" ‚ J:‚ IÍ+, ™ "“ "Y1$"-"L1$" SONUCLAR-OYUN SAYISI ":C$²"OYUN",6 � I²0 ¤ 6:� J²0 ¤ I:‹ GT(I,J)ªGT(J,I)²0 § 29000,@ ‹ I³±J § ™ £4)I"-"J":"GT(I,J)ªGT(J,I)£18)C$W,J ‹ I²J § ™ £4)I"-"I":"GT(I,I)£18)C$c,T ‚ J:‚ IŽ,^ ‹ SU³±0 § ™ £4)" 6 + ":"SU:TAB(18)C$”,h Žš,r :