"": 630 2890- "": 2920G( AD$: AD$"" 1570_2 AD$(137) 3430w< AD$(139) 3060F AD$(133) "": 2150P AD$(135) "": 2770Z AD$(140) 2460d AD$(134) "": 400 n AD$(136) 4310 x AD$(138) 21803 AD$"O" 5110H AD$"T" 6300] AD$"G" 1060h 1570 "":BGBG1: 740 "VERILERI GIRILEN ": "DERS :"; A$(BG)"": A$(BG) A$(BG)"^" BGBG1: 30 3830 "1.YAZ.TAR:";B$(BG)""5 B$(BG): (B$(BG))0 260~ (B$(BG))8 B$(BG)"": "TARIHI(AA/YY/GG)SEKL INDEYAZ IN": 230  "1.YAZ.KON:"; C$(BG)"": C$(BG)  "1.YAZ.NOT:";D$(BG)"": D$(BG) " "2.YAZ.TAR:";E$(BG)"": E$(BG) , (E$(BG))0 320; 6 (E$(BG))8 E$(BG)"": "HATA": 290i @F$(BG)"": "2.YAZ.KON:";: F$(BG):SL280 J "2.YAZ.NOT:";G$(BG)"": G$(BG):ES$D$(BG):SI$G$(BG): 800 T "3.YAZ.TAR:";: H$(BG) ^ (H$(BG))0 370 h (H$(BG))8 H$(BG)"": "HATA": 3405 rQ$(BG)"": "3.YAZ.KON:";: Q$(BG)@  2530W  ****************m  ** TUM LISTE **  **************** O10:PO0:TS0  BG0 "": 590  B1 BG  A$(B)"FRANCAIS" SF10: 460  A$(B)"PHYSIQUE" SF10: 460 SF0# XZ10: 5180C  "DERS :";A$(B)U  TDO0 500k O1O11:POPOTDO  " ORT:"TDO "": 510  " ORT:NOT YOK": 520  TDO0 TDO4.5 54276,33:TSTS1  T1 200  N1$ N1$(134) 1000 !"& "": 54276,0: B30 PO0 590@:PPPOO1lD "TUM ORT:"PP"": 600N "TUM ORT:NOT YOK": 600X "";"LISTE SONU"] PP7 TS0 d(5,5)"**TESEKKUR**"^ TS0 d(5,5)""TS"KIRIGINIZ VAR I"bdf 3<l 30: ^^^^^^^^^^^^^^^^^^^^Wv ********************nw ** ILK ACILIS **x ******************** d(5,5)"PROGRAM KAC DERS ICIN" d(8,7)"KULLANILACAK" AD:ADAD5 A$(AD),B$(AD),C$(AD),D$(AD) E$(AD),F$(AD),G$(AD),H$(AD)B Q$(AD),Q1$(AD),Q2$(AD),Q3$(AD)c K$(AD),G(AD),Q1(AD),Q2(AD) V(AD),Q3(AD),V$(AD),V1$(AD) V2$(AD),V3$(AD),V4$(AD),S$(AD32),D(AD) ******************************** ** DERS SAYISI KONTROLU **) ********************************C BGAD BGAD: 770Iz "": d(5,5)"DAHA FAZLA DERS GIREMEZSINIZ" df 3 30: ^^^^^^^^^^^^^^^^^  ********************************! ** ONCEKI NOT KONTROLU **" ********************************K* ES$"" SI$"" "BU NOTUN OLABILMESI ICIN"4 ES$"" SI$"" "BIR ONCEKI NOTUNDA OLMASI GER EKIR": SL>: ^^^^^^^^^^^^^^^^^H ************I ** YAZMA **J ************M "NOT DEFTERI ""R "DERS :";A$(B):;\ "1.YAZ.TAR:";B$(B)Tf "1.YAZ.KON:";C$(B)mp "1.YAZ.NOT:";D$(B)z "2.YAZ.TAR:";E$(B) "2.YAZ.KON:";F$(B) "2.YAZ.NOT:";G$(B) "3.YAZ.TAR:";H$(B) "3.YAZ.KON:";Q$(B)  ** GERISI GOSUB2670'DE ** 2670@ "MENUYE DONMEK ICIN F7'YE BASIN"Y DF$: DF$"" 970w DF$(136) "": 30 ^^^^^^^^^^^ 970 "DEVAM ETMEK ICIN F3" "";"MENUYE DONMEK ICIN F7" TG$: TG$"" 1020 TG$(134) 550 TG$(136) 30( 1020?$ ****************R% ** GRAFIK **i& ****************. "HANGI DERSI ICIN GRAFIK ISTIYORSUN"8 JK$B B1 BGL A$(B)JK$ 1140V` "BOYLE BIR DERS YOK"jdf 3: 30)tD(D$(B)):G(G$(B)):Q1(Q1$(B)):~XZ10: 5180T SA=SOZLU ORTALAMASI_d 1,0jd 0,0~d 0,20,0,120,1d 0,120,320,120,1d 0,20,320,20,1d 0,75,320,75,1d 320,20,320,120,1 I110 30 10d 315,I,320,I,1: I110 30 10-d 0,I,3,I,15 IK  I80 320 80`d I,117,I,120,1h I( NOTLARIN GRAFIGI2 D0 AX0:AY120: 1430<AX0:AY120:BX80:BY120(D10)Fd AX,AY,BX,BY,1P G0 1430 ZAXBX:AYBY:BX160:BY120(G10)"dd AX,AY,BX,BY,14n Q10 1430ZxAXBX:AYBY:BX240:BY120(10Q1)od AX,AY,BX,BY,1AXBX:AYBY SA0 1460BXBX80:BY120(10SA)d AX,AY,BX,BY,1 4500PM$A$(B)" DERSI"do 75,3,PM$,1,2,8do 65,130,"NOT GRAFIGI",1,3,15Sdo 30,160,"ORTALAMA GRAFIGINI GORMEK ICIN",1,1,8wdo 95,170,"F7'YE BASINIZ",1,1,8 AD$: AD$"" 1520 AD$(136) 1620 54276,0dg:d 3,1: "" 30: ^^^^^^^^^^^^^^^^^" ****************# ** YAN SON ***$ ****************Q) RT1 2: d(9,1)" "x, RT1 2: d(9,1)" "6 d(9,1)"**M E N U**"@J 40: ^^^^^^^^^^^^^^^^^T ****************************U ** ORTALAMA GRAFIGI **V *****************************^d 1,0:d 0,05h 1940Xr **D=1.NOT,G=2.NOT,Q1=3.NOT**| D0 BX0:BY120:YB106:J2SA: 1770 G0 SA0 BX0:BY120:YB106:J2D: 1770 G0 SA0 d 0,120,106,120(D10),1: 1820J10J1(DG)2)AX0:AY120:BX106:BY120(J110)>d AX,AY,BX,BY,1Q Q10 1740iYB222:J2J1: 1770zJ2(J1Q1)2AXBX:AYBY:BX222:BY120(J210)d AX,AY,BX,BY,1:YB328 SA0 1790 1820J3(J2SA)2AXBX:AYBY:BXYB:BY120(J310)%d AX,AY,BX,BY,19 ** YAZILAR **Q&PM$A$(B)" DERSI"g0do 75,3,PM$,1,2,8:do 45,130,"ORTALAMA GRAFIGI",1,3,15Ddo 60,160,"NOT GRAFIGINI GORMEK ICIN",1,1,8Ndo 95,170,"F7'YE BASINIZ",1,1,8X TDO0 TDO4.5 54276,33 b AD$: AD$"" 18908l AD$(136) 1160Fv 54276,0Zdg:d 3,1: ""c 30wd 0,20,0,120,1d 0,120,320,120,1d 0,20,320,20,1d 0,75,320,75,1d 320,20,320,120,1 I110 30 10d 0,I,3,I,1 I110 30 10*d 315,I,318,I,10F I0 318 106[ d I,117,I,120,1c Ii {* ***********+ ** MUZIK **, ***********4 54296,15> 54277,0: 54278,240H 54273,32: 54272,97R 54276,0 \: ^^^^^^^^^^^^^^^^^! f ****************: g ** BILGI GIRISI **Q h ****************b k "": ""k pdf 1 z 170: ^^^^^^^^^^^^^^^  ****************  ** DEGISIKLIK **  ****************  ""! "";"DEGISIKLIKHANGI DERSTE YAPILACAK"! DG$! B1 BG5! A$(B)DG$ 2250;!m! "";"KAYITLARDABOYLE BIR DERS YOK": 2910! "";"HATALI MADDEYI YAZIN"! YL$! YL$"DERS" 2880:A$(B)DV$: 30! YL$"1.YAZ.TAR" 2880:B$(B)DV$: 30 " YL$"1.YAZ.KON" 2880:C$(B)DV$: 30N" YL$"1.YAZ.NOT" 2880:D$(B)DV$: 30|" YL$"2.YAZ.TAR" 2880:E$(B)DV$: 30" YL$"2.YAZ.KON" 2880:F$(B)DV$: 30" YL$"2.YAZ.NOT" 2880:G$(B)DV$: 30#$ YL$"3.YAZ.TAR" 2880:H$(B)DV$: 304#. YL$"3.YAZ.KON" 2880:Q$(B)DV$: 30c#8 YL$"3.YAZ.NOT" 2880:Q1$(B)DV$: 30#B YL$"1.SOZ.NOT" 2880:Q2$(B)DV$: 30#L YL$"2.SOZ.NOT" 2880:Q3$(B)DV$: 30#V YL$"3.SOZ.NOT" 2880:V$(B)DV$: 30$` YL$"ODEV TAR" 2880:V1$(B)DV$: 30K$j YL$"ODEV KON" 2880:V2$(B)DV$: 30y$t YL$"ODEV NOT" 2880:V3$(B)DV$: 30$~ YL$"OGRETMEN" 2880:V4$(B)DV$: 30$ "";"BOYLE BIR MADDE YOK"$ df 3: 30: ^^^^^^^^^^^^^^^$ *********** % ** CIKIS **% ***********)% ""V% "";"BILGISAYARDAKI VERILERI"}% "";"TEYBE YUKLEDIN MI"% CE$% CE$"EVET" 3400% 3060% : ^^^^^^^^^^^^^^^^^^^^^^^^% ***************************& ** BILGI GIRISIN DEVAMI **3& ******************************\& "3.YAZ.NOT:";:Q1$(BG)"": Q1$(BG)& SL330:ES$G$(BG):SI$Q1$(BG): 800& SL2570& "1.SOZ.NOT:";:Q2$(BG)"": Q2$(BG)& "2.SOZ.NOT:";:Q3$(BG)"": Q3$(BG)' ES$Q2$(BG):SI$Q3$(BG): 800+'( "3.SOZ.NOT:";:V$(BG)"": V$(BG)T'2 SL2580:ES$Q3$(BG):SI$V$(BG): 800}'< "ODEV TAR:";:V1$(BG)"": V1$(BG)'F "ODEV KON:";:V2$(BG)"": V2$(BG)'P "ODEV NOT:";:V3$(BG)"": V3$(BG)'Z "OGRETMEN :";:V4$(BG)"": V4$(BG)(d "": 170: ^^^^^^^^^^^<(n *******************************_(o ** YAZMA BOLUMUNUN DEVAMI **(p *******************************(x "3.YAZ.NOT:";Q1$(B)( "1.SOZ.NOT:";Q2$(B)( "2.SOZ.NOT:";Q3$(B)( "3.SOZ.NOT:";V$(B)) "ODEV TAR :";V1$(B) ) "ODEV KON :";V2$(B):) "ODEV NOT :";V3$(B)T) "OGRETMEN :";V4$(B)n) : ^^^^^^^^^^^^^^^^^) ***************) ** TEK LISTE**) ***************) "") "  ": "";!* "HANGI DERS ICIN BILGI ISTIYORSUNUZ": KE$0* B1 BGF* KE$A$(B) 840N* BY* 3960{*" d(9,10)"BOYLE BIR VERI YOK"*, df 2*6 30*@ "";"DOGRU VERI YI YAZIN"*J DV$"": DV$*T *^ df 2: 30: ^^^^^^^^^^^^^^*h ********** +i ** MENU **+j **********5+r d(9,1)"**M E N U**"d+| d(4,3)"BILGI GIRISI ICIN F1"+ d(4,5)"VERILERI DUZELTME ICIN F4"+ d(4,7)"TUM LISTE ICIN F3"+ d(4,9)"TEK LISTE ICIN F5" , d(4,11)"ORTALAMALAR ICIN 0"O, d(4,13)"YAZILI TARIHLERI ICIN T"~, d(4,15)"DERS GRAFIGI ICIN G", d(4,17)"CIKIS ICIN F8", d(4,19)"TEYBE BILGI KAYDETME F6"- d(4,21)"VERILERI BILGISAYARA YUKLEME F2",- d(9,23)"TUSUNA BASINIZ"I- : ^^^^^^^^^^^^^^^^^^^^`- ****************{- ** TEYBE KAYDETME **- ****************- "": "";"VERILER TEYBE KAYDEDILECEKTIR...". "";"BIR BARDAK CAY ICMEYE GIDEBILIRSINIZ..."4. "";"KAYIT BITINCE HABER VERECEGIM"?. 4910. "";"SIMDILIK HOSCAKALIN": "";. 1,1,1,"VELET".& 1,BG.0 B1 BG.: 1,A$(B):1,C$(B):1,D$(B):1,F$(B):1,E$(B)/X 1,G$(B):1,H$(B):1,B$(B):1,Q$(B):1,Q1$(B)F/ 1,Q2$(B):1,Q3$(B):1,V$(B):1,V1$(B):1,V2$(B)^/ 1,V3$(B):1,V4$(B)f/ Bn/ 1/ "VERILER TEYBE KAYDEDILMISTIR"/ "";"PROGRAMDAN CIKMAK ICIN F7"/ "";"MENUYE DONMEK ICIN F1"0 54276,1290 T$: T$"" 3360>0* T$(133) 54276,0: 30a04 T$(136) 54276,0: 3400l0> 33600H "": "";"GULE GULE..."0R 0\ 30: ^^^^^^^^^^^^^^^^^^^^^0f ****************************1g ** BILGISAYARA YUKLEME ***1h ****************************41k ""f1p "";"SIMDI TEYPT EKI VERILER BILGISAYARA"1z "";"YUKLENECEK..."1 "";" XXX'I TAKIN."1 "";"TEYBI XX'E GETIRIN."2 "";"BASLAMAK ICIN F7 TUSUNA BASIN.".2 "";"YUKLEME BITTIGINDE;"Z2 "";"BEN SIZE HABER VERECEGIM."2 "";"SIMDILIK HOSCAKALIN": "";2 RT$: RT$"" 35202 RT$(136) 35602 RT$(133) 302 35202 1,1,0,"VELET"3 1,BG3 B1 BGA31,A$(B):1,C$(B):1,D$(B):1,F$(B):1,E$(B)s31,G$(B):1,H$(B):1,B$(B):1,Q$(B):1,Q1$(B)31,Q2$(B):1,Q3$(B):1,V$(B):1,V1$(B):1,V2$(B)3$1,V3$(B):1,V4$(B)3 B3 14 "";"VERILER BILGISAYARA YUKLENMISTIR"4 54276,129*4df 5: 54276,0K4 30: ^^^^^^^^^^^^^^^^^^^^^b4 ****************4 ** DAHA ONCE YAZILMIS MIPRINT **4 ****************4 TT1 BG4  TTBG 4 A$(BG)A$(TT) 38904 TT4(52 "": "BU DERS DAHA ONCE KAYDEDILDI!"D5< "LUTFEN BASKA BIR DERS GIRIN"a5F "F7'YE BASIN"w5PA$(BG)"":BGBG15Z WR$: WR$"" 39305d WR$(136) 1705n 39305x ** FOR-NEXT'IN DEVAMI **5 B1 BG5 KE$B$(B) 840 6 KE$C$(B) 840#6 KE$D$(B) 84096 KE$E$(B) 840O6 KE$F$(B) 840e6" KE$G$(B) 840{6@ KE$H$(B) 8406^ KE$Q$(B) 8406| KE$Q1$(B) 8406 KE$Q2$(B) 8406 KE$Q3$(B) 8406 KE$V$(B) 8407 KE$V1$(B) 8407 KE$V2$(B) 84017 KE$V3$(B) 840H7 KE$V4$(B) 840N7s7 ******************************7 ** ALFEBETIK LISTE SIRALAMA **7 ******************************7 I1 BG17 KI1 BG7 A$(I)A$(K) 4880A8W$A$(I):Z1$B$(I):Z2$C$(I):Z3$D$(I):Z4$E$(I):Z5$F$(I):Z6$G$(I)8DZ7$H$(I):Z8$Q$(I):Z9$Q1$(I):X$Q2$(I):Y$Q3$(I):Y1$V$(I):Y2$V1$(I)8Y3$V2$(I):Y4$V3$(I):Y5$V4$(I)8 ***********9A$(I)A$(K):B$(I)B$(K):C$(I)C$(K):D$(I)D$(K):E$(I)E$(K):F$(I)F$(K)T9G$(I)G$(K):H$(I)H$(K):Q$(I)Q$(K):Q1$(I)Q1$(K):Q2$(I)Q2$(K)9 Q3$(I)Q3$(K):V$(I)V$(K):V1$(I)V1$(K):V2$(I)V2$(K):V3$(I)V3$(K)9RV4$(I)V4$(K)9\9fA$(K)W$:B$(K)Z1$:C$(K)Z2$:D$(K)Z3$:E$(K)Z4$:F$(K)Z5$:G$(K)Z6$I:H$(K)Z7$:Q$(K)Z8$:Q1$(K)Z9$:Q2$(K)X$:Q3$(K)Y$:V$(K)Y1$:V1$(K)Y2$n:V2$(K)Y3$:V3$(K)Y4$:V4$(K)Y5$v: K~: I:$ 40:. B1 BG:8 A$(B)" " A$(B)"-----":B B$(B)" " B$(B)"-----":L C$(B)" " C$(B)"-----";V D$(B)" " D$(B)"-----"6;` E$(B)" " E$(B)"-----"V;j F$(B)" " F$(B)"-----"v;t G$(B)" " G$(B)"-----";~ H$(B)" " H$(B)"-----"; Q$(B)" " Q$(B)"-----"; Q1$(B)" " Q1$(B)"-----"; Q2$(B)" " Q2$(B)"-----"< Q3$(B)" " Q3$(B)"-----"<< V$(B)" " V$(B)"-----"^< V1$(B)" " V1$(B)"-----"< V2$(B)" " V2$(B)"-----"< V3$(B)" " V3$(B)"-----"< V4$(B)" " V4$(B)"-----"< B<< ******************= ** ORTALAMALAR **= ******************S= "TEK DERS ORTALAMASI ICIN D"=  "TUM DERSLERIN ORTALAMASI ICIN T"= QW$: QW$"" 5140= QW$"D" 5180=( QW$"T" 5820=2 5140=< ******************************>= ** TEK DERS ORTALAMASI **<>> ******************************O>F KZ10 5300w>P "HANGI DERSI ISTIYORSUN">Z JK$>d B1 BG>n A$(B)"FRANCAIS" SF10: 5260>x A$(B)"PHYSIQUE" SF10: 5260>SF0> A$(B)JK$ 5300?#? "BOYLE BIR DERS YOK"1?df 1: 30X?D(D$(B)):G(G$(B)):Q1(Q1$(B))k? D0 Z(1)1~? G0 Z(2)1? Q10 Z(3)1?ZZ(1)Z(2)Z(3)?TNDGQ1? SF10 ISZ:INTN: 5380?IS2:IN2? TN0 YT0: 5400 @YTTN2,@Z(1)0:Z(2)0:Z(3)0:Z0:TN0?@" X210 5440a@, "XXXXXXXXX' IN"@6 ""JK$" DERSI"@@ X210 5490@J YT0 5470@T "YAZILILARI OR TALAMASI:"; YT: 5490@^ "YAZILILARI OR TALAMASI:NOT YOK"Ah.ArQ2(Q2$(B)):Q3(Q3$(B)):V(V$(B))BA| Q20 Z(1)1VA Q30 Z(2)1iA V0 Z(3)1~AZZ(1)Z(2)Z(3)ATNQ2Q3VA TN0 SA0: 5570ASATN2AZ(1)0:Z(2)0:Z(3)0:Z0:TN0A X210 5620A SA0 5610)B "SOZLULERI ORT ALAMASI:"; SA: 5620UB "SOZLULERI ORT ALAMASI:NOT YOK"fBOM0: 55500B IN0 Z(1)IS:OMIN:5650B YT0 Z(1)1:OMYTB SA0 Z(2)1BZZ(1)Z(2)B&TNSAOMB0 TN0 TDO0: 5700B:TDOTN2CDZ0:Z(1)0:Z(2)0:Z(3)0:TN0.CN XZ10 5750ACX TDO0 5740mCb "NOT ORTALAMASI:";TDO: 5760Cl "NOT ORTALAMASI:NOT YOK"Cv XZ10 XZ0:C "ANA MENU ICINF7"C "ORTALAMALAR ICIN F1"C QW$: QW$"" 5780D QW$(136) 30+D QW$(133) 51106D 5780[D ******************************D ** TUM DERSLERIN ORTALAMASI **D ******************************D B1 BGDD(B)(D$(B)):G(B)(G$(B)):Q1(B)(Q1$(B))D" D(B)>0 THEN Z(1)=1E G(B)0 Z(2)1+E Q1(B)0 Z(3)1BEZZ(1)Z(2)Z(3)Z[EZ(1)0:Z(2)0:Z(3)0uE TND(B)G(B)Q1(B)TN}E BE  TN0 ABC0: 5940E*ABCTN2E4 XA10 5980E> ABC0 5970EH "TUM YAZILILAR ORTALAMASI:";ABC:5980-FR "TUM YAZILILAR ORTALAMASI:NOT YOK"OF\Z0:Z(1)0:Z(2)0:TN0:Z(3)0UFfdFp B1 BGFzQ2(B)(Q2$(B)):Q3(B)(Q3$(B)):V(B)(V$(B))F Q2(B)0 Z(1)1F Q3(B)0 Z(2)1F V(B)0 Z(3)1FZZ(1)Z(2)Z(3)Z GZ(1)0:Z(2)0:Z(3)0%GTNQ2(B)Q3(B)V(B)TN-G BGG TN0 DEC0: 6110TGDECTN2gG XA10 6150zG DEC0 6140G "TUM SOZLULERORTALAMASI:";DEC: 6150G "TUM SOZLULERORTALAMASI:NOT YOK"GZ0:Z(1)0:Z(2)0:TN0:Z(3)0GH ABC0 Z(1)1(H$ DEC0 Z(2)18H.ZZ(1)Z(2)GH8TNABCDECYHB TN0 6230fHLXYZTNZHVZ0:Z(1)0:Z(2)0:TN0:Z(3)0H` XA10 6280Hj XYZ0 6270Ht "TUM NOTLARIN ORTALAMASI:";XYZ: 6285 I~ "TUM NOTLARIN ORTALAMASI:NOT YOK"!I XA10 XA0:2I 7000: ""=I 5760RI **************gI ** TARIHLER **|I **************I "LUTFEN BIRAZ BEKLEYIN !"Idf 2: 53265,11I "YAZILI TARIHLERI"I B1 BGJS$(B)B$(B)" "A$(B)" 1"J B:BB1"J S1 BGCJS$(BS)E$(S)" "A$(S)" 2"QJ S:SS1[JCBSjJ B1 BGJS$(CB)H$(B)" "A$(B)" 3"J  B:BB1JLPCBJ I1 LP1J( KI1 LPJ2Y0:N0:N10:A0:G0:TG0:SG0K<Y1000(((S$(I),8,1)))KFN((S$(I),4,2))*KPN1(N2):KZA(30N)N1PKdG((S$(I),1,2))]KnTGYAGzKxY1000(((S$(K),8,1)))KN((S$(K),4,2))KN1(N2)KA(30N)N1KG((S$(K),1,2))KSGYAGK TGSG 6620KW$S$(I)LS$(I)S$(K)LS$(K)W$L KL I-L 53265,27