‰ 1502� ********************************T� * PROGRAM : SUPERREL V2.8 *t� * SIMONS' BASIC VERSION *—� * WRITTEN BY YAVUZ KARABEK *¸� * COMPUTER DEPARTMANT OF *Ü� * MACKA ANATOLIAN TECHNICAL *ò� * HIGH SCHOOL * � ********************************\ B$²dU(Ç(32),12):CL$²dU(B$,3)ª" ":A²12:� 16:� I²1 ¤ A:‡ A$(I)‘ AA$²AA$ªÉ(B$,12«Ã(A$(I))):‚ :™ Ç(142),Ç(8):‰ 100É ‹ X2²24 § 13:dG:� I²X1 ¤ X2:™ d(.,I)dU(" ",40):‚ :Ž � I²X1 ¤ 23:™ d(.,I)dU(" ",40):‚ :™ dU(" ",39)"‘‘‘‘‘":Ž@ H²µ(RN­256):L²RN«256¬H:˜15,"P"ªÇ(101)ªÇ(L)ªÇ(H)ªÇ(1):ŽF އ C1².:C2²5:TX²500:† N$(TX),N(TX):™ Ç(5):BB$²dU(Ç(32),16):‰ 18¯ TN$(I)²TN$(I)ªÉ(BB$,16«Ã(TN$(I))):Žé d C1,C2:† A$(A):RT$²Ç(13):� I²32 ¤ 90:AL$²AL$ªÇ(I):‚" � I²1 ¤ 3:‡ SK$(I):‚ :PL$²dU(" ",39)ªdU("�",39):‰ 70J ™ "“":B$²dU("Q",38):™ d(1,4)B$:‰ 30{ � I²7 ¤ 23:™ d(.,I)CL$:‚ :™ d(.,24)CL$"‘‘":ŽŒ ™ d(1,4)B$:Ž� ™ d(1,6)B$:ޝ ™ d(.,5)CL$:Žß ‹ X². § K²1:dG:‹ X²1 § K²14:dG:‹ X²2 § K²27ó ™ d(K,Y)A$(A):Ž6 A².:� X². ¤ 2:� Y². ¤ 3:A²Aª1:� 25:‚ :‚ :A²1:X²1:Y².:� 35:‰ 40M #™ d(X,Y)""A$(A):Ža $™ d(X,Y)A$(A):Žw (¡ G$:‹ G$²"" § 40¼ *‹ G$²"" § 50:dG:‹ G$²"‘" § 55:dG:‹ G$²"�" § 60:dG:‹ G$²"" § 65Ï ,‹ G$²Ç(13) § ŽØ .‰ 40ÿ 2� 36:‹ Y³3 § Y²Yª1:A²Aª1:� 35:‰ 40 4� 35:‰ 404 7� 36:‹ Y±. § Y²Y«1:A²A«1:� 35:‰ 40[ 8A²A«1:X²X«13:Y²3:‹ X³0 § A²12:X²27i 9� 35:‰ 40‘ <� 36:‹ X±1 § X²X«13:A²A«4:� 35:‰ 40ª =X²27:A²Aª8:� 35:‰ 40Ó A� 36:‹ X³27 § X²Xª13:A²Aª4:� 35:‰ 40ë BX²1:A²A«8:� 35:‰ 40F� 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/INDEX 1":RN²1:� 14YG„5,MR,MT,MS:  5:Ÿ 5,8,5,"YF+/INDEX 2":� RN²1 ¤ MR:� 14{H„5,N$(RN),N(RN):‚ :  5:  15:޲PŸ 15,8,15,"I!":˜15,"M-R";Ç(144);Ç(7);Ç(12):„15,DN$ÔQ  15:‹ DN$²"YF SOFTWORKS" § ŽR™ d(1,6)B$:™ d(1,5)PL$"SUPERREL V2.S DISKETINI TAKIN!."-Sd :¡ G$:d) G$³±"":‰ 80td� 20:‘ A‰ 110,500,1050,1500,2000,2500,3000,3500,4000,5000,6000,102‰f‹ OK². § ™ "“":€Ég™ d(1,6)B$:™ d(1,5)" INDEX KAYIT EDILMEMIS!..":df 2:‰ 100énFR²¸(.):‹ FR³. § FR²FRª2®16 o‹ FR³5 ° MR±499 § 112:dG:‰ 113Fp™ d(1,6)B$:™ (1,5)"YETERLI HAFIZA YOK!":� 999:‰ 100vqX1²5:X2²24:� 12:� I²6 ¤ 10 © 2:™ d(1,I)B$:‚«r™ d(1,13)B$:� I²1 ¤ 3:™ d(1,5ªI¬2)""SK$(I)"":‚Þs™ d(1,5)"AD VE SOYADI GIRINIZ":™ d(12,7)"!";td' ". ",20,A1$:‹ A1$²"X" § 100:dG:MR²MRª1:RM²MR:LM².BuMD²µ((RM«LM)­2)ªLM:‹ N$(MD)²A1$ § 122hv‹ A1$±N$(MD) ¯ A1$³N$(MDª1) § 123˜w‹ A1$³N$(MD) ¯ A1$±N$(MD«1) § MD²MD«1:‰ 123·x‹ A1$±N$(MD) § LM²MD:‰ 117ÇyRM²MD:‰ 117z™ d(1,5)PL$"KAYIT DOSYA ADA MEVCUT!.":� 999:MR²MR«1:‰ 110:{� I²MR ¤ MDª2 © «1:N$(I)²N$(I«1):N(I)²N(I«1):‚S|‹ MS². § 127:dG:� 80ˆ}Ÿ 15,8,15:Ÿ 5,8,5,"YF+/INDEX 3":RN²MS:� 14:„5,SR¯~  5:  15:MS²MS«1:CN²SR:RN²CN:‰ 128ÇMT²MTª1:RN²MT:CN²MTý€™ d(1,5)PL$"TELEFON NUMARASI VE ADRESI GIRINIZ"�™ d(12,9)"!";:d' "- ",15,A2$S‚™ d(12,11)"!";:d' "0123456789/. ",66,A3$:‰ 136}ƒ� 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/DATAFILE"­„� 14:˜5,A2$;RT$;A3$:N$(MDª1)²A1$:N(MDª1)²CNì…  5:  15:™ d(1,5)PL$"BASKA KAYIT YAPACAK MISINIZ? "†d :¡ G$:d) G$³±"":‹ G$²"E" § 1103‡‹ G$³±"H" § 134:dG:OK²1:‰ 100_ˆ™ d(1,5)PL$"BILGILER DOGRU MU? "„‰d :¡ G$:d) G$³±"":‹ G$²"E" § 131ÊŠ‹ G$³±"H" § 137:dG:™ d(13,9)dU(" ",20):™ d(13,11)dU(" ",66):‰ 128–d 1,.:� I²50 ¤ 76 © 2:d J,I,90,I,1:d 229,I,319«J,I,1:J²Jª1:‚Q—d 92,51,227,51,1:do 92,52," SUPERREL V2.S ’",1,3,8:d :¡ A$y˜do 212,54,"R",0,1,8:dB 215,57,6,6,0·™� I²78 ¤ 100 © 2:d J,I,90,I,1:d 229,I,319«J,I,1:J²Jª1:‚àšdo 92,76," BY YF SOFTWORKS ’",1,3,8›� I²102 ¤ 166 © 2:d J,I,90,I,1:d 229,I,319«J,I,1:J²Jª1:‚aœd 94,125,134,125,1:d 134,125,154,145,1:d 154,145,184,145,1¤�d 104,165,134,165,1:d 134,165,174,125,1:d 174,125,204,125,1àžd 133,165,173,125,1:do 154,153,"SOFTWORKS",1,2,8:™ "“")Ÿd 92,191,227,191,1:do 92,192," PRESS SPACE BAR ’",1,1,8:� 999:dp 02 ‰ 10uôX1²5:X2²24:� 12:™ d(1,7)B$:™ d(1,5)PL$"AD VE SOYADI GIRINIZ"²õ™ d(1,6)">";‹ d' ". ",20,A1$:‹ A1$²"X" § 100:dG:‰ 508ÚöMD²µ((RM«LM)­2)ªLM:‹ A1$²N$(MD) § Žù÷‹ A1$²N$(MDª1) § MD²MDª1:Ž,ø‹ RM²LMª1 ¯ A1$³±N$(LM) ¯ A1$³±N$(RM) § FL²1:ŽKù‹ A1$²N$(MD«1) § MD²MD«1:Žjú‹ A1$±N$(MD) § LM²MD:‰ 502zûRM²MD:‰ 502ªüRM²MR:LM².:FL².:� 502:‹ FL²1 § 509:dG:‰ 510åý™ d(1,5)PL$"ISTENEN KISININ KAYDI YOK!..":df 2:‰ 500(þ� 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/DATAFILE":RN²N(MD):� 14:„5,A2$,A3$T™ d(13,8)A1$:™ d(13,9)A2$:™ d(13,10)A3$†™ d(1,5)PL$"BASKA KAYIT ARANACAK MI? (E/H)"«d :¡ G$:d) G$³±"":‹ G$²"E" § 500È‹ G$³±"H" § 514:dG:‰ 100àçd :¡ G$:d) G$²" ":Žèƒ "AD SOYAD...!","TEL.NUMARA.!","ADRES......!"Uéƒ "BILGI GIRISI","KISISEL DOK.","OZEL DOKUM..","BUTUN ADLAR."—êƒ "BUTUN KAYIT.","KAYIT SILME.","KAYIT DEGIS.","B.KAYITL.SIL"Ùëƒ "INDEX KAYIT.","DISK DRIVE..","HAFIZA......","CIKIS......."X1²5:X2²24:� 12:™ d(1,7)B$:™ d(1,5)"ISTENEN ARALIGI GIRINIZ..."Q™ d(1,6)">";:d' ".- ",35,A1$:‹ A1$²"X" § 100„‹ È(A1$,1)²"-" § 1069:dG:‹ É(A1$,1)²"-" § 1071£Z²d("-",A1$):‹ Z²0 § 1050ÊA2$²È(A1$,Z«1):A3$²É(A1$,Ã(A1$)«Z)ò‹ A2$³È(N$(1),Ã(A2$)) § A1²1:‰ 1057  C$²A2$:� 1090:A1²A3!‹ A3$±É(N$(MR),Ã(A3$)) § A2²MR:‰ 1059J"C$²A3$:� 1090:A2²A‡#‹ A1²«1 ° A2²«1 § 1050:dG:X1²5:X2²24:� 12:‹ A1²A2 § 1050¥$‹ A2³A1 § R²A2:A2²A1:A1²Rì%� 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/DATAFILE":Y²5:� I²A1 ¤ A2:RN²N(I):� 14!&™ d(1,Y)SK$(1);N$(I):Y²Yª1:™ d(1,Y)B$:„5,A2$,A3$U'Y²Yª1:™ d(1,Y)SK$(2);A2$:Y²Yª1:™ d(1,Y)B$:Y²Yª1~(™ d(1,Y)SK$(3);A3$:Y²Yª2:™ d(1,Y)B$;¦)‹ Y±²24 § X1²5:X2²24:� 999:� 12:Y²5¶*‚ :  15:  5ö+™ d(3,4)" BASKA BILGI ARANACAK MI?... ":d :¡ G$:d) G$³±""&,‹ G$²"E" § 1073:dG:‹ G$²"H" § 100:dG:‰ 1067O-C$²É(A1$,Ã(A1$)«1):‹ C$³N$(1) § 1050k.A1²1:� 1090:A2²A:‰ 1059•/C$²È(A1$,Ã(A1$)«1):‹ C$±N$(MR) § 1050²0A2²MR:� 1090:A1²A:‰ 1059È1™ d(1,4)B$:‰ 1050B‹ Ã(C$)²1 § 1095:dG:� A²1 ¤ MR:‹ C$²È(N$(A),Ã(C$)) § Ž)C‹ C$±N$(A) ¯ C$³N$(Aª1) § A²Aª1:ŽVD‹ C$³N$(A) ¯ C$±N$(A«1) § Ž:dG:‚ :A²«1:ŽmG‹ C$³N$(1) § A²1:ŽŒH� A²1 ¤ MR:‹ È(N$(A),1)²C$ºI‹ C$±È(N$(A),1) ¯ C$³È(N$(A),1) § A²A«1:ŽïJ‹ C$³È(N$(A),1) ¯ C$±È(N$(A),1) § Ž:dG:‚ :A²«1:Ž" ÜY²5:� I²1 ¤ MR:‹ I­21²µ(I­21) § 1501:dG:‰ 1502@ Ý� 999:X1²5:X2²24:� 12:Y²5Z Þ™ d(1,Y)N$(I):Y²Yª1:‚ƒ ß™ d(3,4)" DOSYA SONU ":� 999:‰ 100± Ð� 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/DATAFILE":Y²5Þ Ñ� I²1 ¤ MR:‹ I­5²µ(I­5) § 2002:dG:‰ 2003 !Òd :¡ G$:d) G$³±"":X1²5:X2²24:� 12:Y²5:I!Ó� J²1 ¤ 3:™ d(1,YªJ«1)SK$(J):‚ :™ d(13,Y)N$(I):RN²N(I):� 14ƒ!Ô„5,A2$,A3$:� 14:Y²Yª1:™ d(13,Y)A2$:Y²Yª1:™ d(13,Y)A3$ !ÕY²Yª2:™ d(1,Y)B$:Y²Yª1:‚Þ!Ö™ d(3,4)" DOSYA SONU ":  5:  15:d :¡ G$:d) G$³±"":‰ 100"Ä ™ d(1,7)B$:™ d(1,5)PL$" KAYIT SILMEK ICIN AD VE SOYAD"U"Å ™ d(1,6)">";:d' ". ",20,A1$:‹ È(A1$,4)²"ZZZZ" § 2500i"Æ ‹ A1$²"X" § 100¶"Ç FL²0:� 502:‹ FL²0 § 2505:dG:™ d(1,5)PL$"ISTENEN KISININ KAYDI YOK!..."Ç"È � 999:‰ 2500#É � 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/INDEX 3":MS²MSª1:RN²MS:� 14G#Ê ˜5,N(MD):  5:  15:MR²MR«1:� I²MD ¤ MR:N$(I)²N$(Iª1):N(I)²N(Iª1){#Ë ‚ :™ d(1,5)PL$" BASKA KAYIT SILINECEK MI?..."»#Ì d :¡ G$:d) G$³±"":‹ G$²"H" § OK²1:‰ 100:dG:‹ G$³±"E" § 2508Õ#Í X1²5:X2²8:� 12:‰ 2500$¸ ™ d(1,7)B$:™ d(1,5)PL$"KAYIT DEGISIKLIGI ICIN AD VE SOYAD"W$¹ ™ d(1,6)")";:d' ". ",20,A1$:‹ A1$²"X" § 100:dG:FL²0:� 502š$º ‹ FL²0 § 3004:dG:™ d(1,5)PL$" ISTENEN KISININ KAYDI YOK!..."»$» � 999:X1²5:X2²24:� 12:‰ 3000þ$¼ � 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/DATAFILE":RN²N(MD):� 14:„5,A2$,A3$.%½   5:  15:™ d(1,9)B$:™ d(1,11)B$:™ d(1,14)B$m%¾ ™ d(1,8)SK$(1);A1$:™ d(1,10)SK$(2);A2$:™ d(1,12)SK$(3);A3$œ%¿ ™ d(1,5)PL$" HANGISI DEGISTIRILECEK ?..."º%À ™ d(1,6)PL$" T:TELEFON"õ%Á d :¡ G$:d) G$³±"":‹ G$³±"A" ¯ G$³±"T" ¯ G$³±"B" § 30091& ‹ G$²"T" § � 3015:dG:‹ G$²"A" § � 3016:dG:� 3015:� 3016i&à � 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/DATAFILE":RN²N(MD):� 14…&Ä ˜5,A2$;RT$;A3$:  5:  15Í&Å ™ d(1,5)PL$" BASKA KAYIT DEGISTIRILECEK MI?...":d :¡ G$:d) G$³±""'Æ ‹ G$²"H" § 100:dG:‹ G$³±"H" § 3013:dG:X1²5:X2²24:� 12:‰ 3000I'Ç ™ d(13,10)dU(" ",20):™ d(12,10)":":d' "- ",15,A2$:Ž�'È ™ d(13,12)dU(" ",66):™ d(12,12)":":d' "0123456789/. ",66,A3$“'É ŽÒ'¬ J².:™ d(1,6)B$:™ d(1,5)PL$"BUTUN KAYITLAR SILINECEK!..."(­ ™ d(1,8)B$:™ d(1,7)PL$"EMIN MISINIZ? "3(® d :¡ G$:d) G$³±"":‹ G$³±"E" § 100:dG:J²Jª1N(¯ ‹ J²2 § 3504:dG:‰ 3502�(° � 80:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/INDEX 2":RN²1:� 14§(± N$(1)²"ZZZZ YAVUZ KARABEK":N(1)²1Ü(² ˜5,N$(1);RT$;N(1):� 14:  5:Ÿ 5,8,5,"YF+/INDEX 1")³ RN²1:� 14:˜5,"1";RT$;"1";RT$;"0":� 14:  5:  15.)´ MR²1:MT²MR:MS².:df 2:‰ 100m) � 80:™ d(1,6)B$:™ d(1,5)PL$"INDEX : KAYIT EDILIYOR..." )¡IK².:Ÿ 15,8,15:Ÿ 5,8,5,"YF+/INDEX 1":RN²1:� 14½)¢˜5,MR;RT$;MT;RT$;MS:� 14ñ)¤� RN²1 ¤ MR:� 14:YB$²N$(RN)ªRT$ªÄ(N(RN)):˜5,YB$4*¥� 14:‚ :  5:  15:™ d(1,5)PL$"ISLEM TAMAMLANDI...":df 2:‰ 100l*ˆ™ d(1,7)B$:™ d(1,6)"KOMUTU GIRINIZ.":™ d(1,5)">";ª*‰d' (AL$),37,CM$:‹ È(CM$,1)²"$" § ™ "“":dJ "$":� 999:‰ 100à*Š‹ È(CM$,1)³±"@" § 5004:dG:Ÿ 15,8,15:„15,E,E$:  15 +‹™ d(1,9)B$:™ d(1,8)PL$;E,E$:� 999:‰ 50008+Œ‹ CM$²"X" § 100:dG:dr CM$:� 999:‰ 5000>+o€s+pUS².:X1²5:X2²24:� 12:FR²¸(0):‹ FR³0 § FR²FRª2®16µ+q™ d(1,6)B$:™ d(.,5)""FR"BYTE KULLANILABILIR.":C3²1:‰ 6010Ë+rd :¡ G$:d) G$³±""ð+s‹ G$²RT$ § X1²5:X2²24:� 12:‰ 100,t‹ G$³±"…" ¯ G$³±"†" § 6002E,u‹ G$²"…" § 6008:dG:‹ C2²C3«1 § C2²C2ª2:dG:C2²C2ª1X,v‹ C2±15 § C2².l,wd C1,C2:‰ 6002Š,x‹ C1²15 § C1².:dG:C1²C1ª1ž,yd C1,C2:‰ 6002Ð,z™ d(1,8)B$:™ d(.,7)""MR" KAYIT YAPILMIS..."-{™ d(1,10)B$:™ d(1,9)"SILINMIS KAYIT SAYISI="MS"":‰ 60021-'Ÿ 15,8,15:„15,A,A$:  15:™ A,A$