+� ***********************************O� * SUPERREL. BY YF/SOFTWORKS *y� ***********************************œ� * WRITTEN BY YAVUZ KARABEK *Æ� ***********************************è� * ADVANCED FILEING SYSTEM *� ***********************************3� * THANKS TO MIBSER CORP. *]� ***********************************c �Í þ0,0,39,24:C1²2:C0²1:C2²5:ç5,C1:ç0,C0:è:à1,1,24," YAVUZ/F SOFTWORKS SUPERREL ",1:þ0,0,39,23:Þ2,1,24AV$²"X":ç1,C1:RT$²Ç(13):V²2000:D²1:�120:�130:™Ç(27)ª"E":S$²"LUTFEN BEKLEYIN...":�1140:þ 1:�1300:þ%:�1330:�I²1¤40ŽH$²H$ª".":‚:†NAME$(V),CNUM(V),SREC(100):þ #1,"YF/SREL/IND2",L20:þ#1,1,1Î(„1,MAX$,SMAX$,EMAX$:þ#1,1,1:þ#1:MAX²Å(MAX$):SMAX²Å(SMAX$) 2EMAX²Å(EMAX$):‹SMAX³1§80:Õþ #1,"YF/SREL/IND3",L5:�I²1¤SMAXI<þ#1,(I),1:�1310:„1,SREC$:SREC(I)²Å(SREC$):þ#1,(I),1:‚RFþ#1ˆPþ #1,"YF/SREL/IND1",L30:�I²1¤MAX:þ#1,(I),1:�1310ÈZ„1,NAME$,CNUM$:NAME$(I)²NAME$:CNUM(I)²Å(CNUM$):þ#1,(I),1:‚ dþ#1:S$²"SPACE'E BASIN":RV$²"ENIN MISINIZ ?, (E/H)":�1140$ n‰170:� MEETING SUBROUTINET x�I²0¤39:à1,I,Dª4,(V$):‚:D²Dª1:‹D²10§Ž:Õ‰120˜ ‚à1,11,7," ** SUPERREL ** ":à1,7,11," WRITTEN BY YAVUZ KARABEK "´ Œà1,12,6," ":à1,12,3," "Ð –à1,8,10," ":à1,8,12," "Ö  Ž !ªþ&:¡ùGT$:‹GT$³±Ç(32)§170:ÕO²1:V$²" ":�1300:�120H!´è:TX²4:�I²1¤4:AA$(I)²BB$(I):‚:Z²1:S$²"SECENEGINIZI GIRIN"j!¾SS$²"** SUPERREL AND MENU **"†!È�210:‘Z‰340,440,780,310Ä!Ò�I²1¤TX:à1,3,Iª5,AA$(I):‚:á1,62,46,257,TX¬8ª43:à1,8,3,SS$ì!Üá1,62,22,257,32:�1140:à1,8,6,AA$(1)'"æà1,35,1,Ä(Z):¡ùT$:‹T$³±""¯T$³±"‘"¯T$³±RT$¯T$³±"F"§230g"ð‹T$²""¯Z³TX§Z²Zª1:à1,8,Zª4,AA$(Z«1):à1,8,Zª5,AA$(Z),1:‰230¦"ú‹T$²"‘"¯Z±1§Z²Z«1:à1,8,Zª6,AA$(Zª1):à1,8,Zª5,AA$(Z),1:‰230Ï"‹T$²"F"§à1,8,TXª7,Ä(FR«(Ø))ª" BYTES" #‹T$²""¯Z²TX§Z²1:à1,8,TXª5,(AA$(TX)):à1,8,Zª5,(AA$(Z)),1E#‹T$²"‘"¯Z²1§Z²TX:à1,8,Zª5,(AA$(1)):à1,8,Zª5,(AA$(Z))Y#"‹T$²RT$§�1300:Ž–#,‹T$²"D"§à1,7,TXª8,DS$:¡ù:Þ0,1:þ :™DS$:¡ùGT$:Þ2,1,24:‰180Ÿ#1‰230Ë#6è:S$²"CIKMAK ISTEDIGINIZDEN "ªRV$:�1140ê#;¡ùGT$:‹GT$³±"E"§�1300:‰180û#@�1300:Þ0,1:€ $T� KAYIT YAPMAN$^è:à1,0,2,"AD SOYAD..":à1,0,4,"TEL. NUM..":à1,0,6,"ADRES...."‹$hS$²"AD VE SOYADI GIRINIZ":P²25:L²3:�1140:�1350:‹FL²1§180›$r�1300:�1490Ñ$|‹FL(I)²1§S$²"KAYIT DOSYADA NEVCUT":�1140:þ 2:‰340%†S$²"TEL. VE ADRESI GIRIN":P²15:L²5:�1140:�1350*%�‹FL²1§FL²0:‰390:ÕTEL$²B$:P²63:L²7T%š�1350:‹FL²1§410:ÕADDR$²B$:�1300:�1570„%¤S$²"BASKA KAYIT YAPILACAK MI ?,(E/H)":�1140¢%®¡ùGT$:‹GT$³±"E"§180:Õ‰340æ%¸è:�I²1¤5:AA$(I)²EE$(I):‚:TX²5:Z²1:SS$²"** BILGI ALMA MENUSU **"&ÂS$²"SECENEGINIZI GIRIN":�210:‘Z‰460,550,680,710,180W&Ìè:S$²"ARANACAK KISININ AD VE SOYADINI GIRINIZ":�1140v&ÖP²25:L²3:�1350:�1300:�1700±&à‹FL(2)²1§S$²"BU ISIMLI BIR KAYIT YOK":�1140:¡ùGT$:‰440â&êCNUM²CNUM(MD):þ #1,"F/SREL/RECS":þ#1,CNUM,1%'ô„1,ADDR$,TEL$:þ#1,CNUM,1:þ#1:B$(1)²B$:B$(2)²TEL$:B$(3)²ADDR$L'þè:�I²1¤3:à1,8,Iª2,(SK$(I)ªB$(I)):‚x'S$²"BASKA KAYIT ARAMAK MI? (E/H)":�1140­'¡ùGT$:‹GT$²"E"¯GT$³±"H"§530:Õ‹GT$²"E"§�1300:‰460¼'�1300:‰440ê'&è:S$²"ILK HARFI GIRINIZ":�1140:à1,2,3,":"(0¡ùGT$:‹GT$³"A"°GT$±"Z"§560:ÕN1$²GT$:à1,3,3,(GT$)N(:S$²"IKINCI HARFI GIRINIZ":�1140:à1,2,4,":"…(D¡ùGT$:‹GT$³"A"°GT$±"Z"§580:Õ‹GT$³±N1$§N2$²GT$:‰600£(NREG$²N1$:N1$²GT$:N2$²REG$×(Xà1,3,4,(GT$):þ 1:Þ0,1:J$²N1$:�1770:‹FL(3)²0§630)vè:�1300:þ #1,"F/SREL/RECS":�I²MD¤MAX:‹È(NAME$(I),1)²N2$§670G)€þ#1,CNUM(I),1:„1,ADDR$,TEL$:þ#1,CNUM(I),1Š)Š™" "Ç(19)SK$(1);NAME$(I);™SK$(2);TEL$;™SK$(3);ADDR$:™"DEVAM ?"£)”¡ùGT$:‹GT$²"H"§70:Õ‚Í)ž™"DOSYA SONU":¡ùGT$:Þ2,1,24:þ#1:‰440î)¨Þ0,1:�I²1¤MAX:™I;£4)NAME$(I)!*²‹I­24²µ(I­24)§™"DEVAM ?":¡ùGT$:‹GT$²"H"§700:Õ‚F*¼™"DOSYA SONU":¡ùGT$:Þ2,1,24:‰440z*ÆÞ0,1:þ #1,"F/SREL/RECS":�I²1¤MAX:þ#1,CNUM(I),1¡*Ð�1310:„1,ADDR$,TEL$:þ#1,CNUM(I),1Ù*ÚSC²SCªCS:‹SC±²23§SC²0:™"DEVAM ?":¡ùGT$:‹GT$²"H"§770 +ä™SK$(1);NAME$(I);™SK$(2);TEL$;™SK$(3);ADDR$:™&+î‹Ã(ADDR$)±30§SC²5:LS²4,+ø‚V+þ#1:™"DOSYA SONU":¡ùGT$:Þ2,1,24:‰440É+ SS$²" ## DUZELTME MENUSU ## ":S$²"SECENEGINIZI GIRIN":è:�I²1¤4:AA$(I)²FF$:‚:TK²4:CC²1:�1310:‘‰780,900,1070,130Ø+‹MAX²1§780, è:S$²"KAYIT ARAMAK KISININ AD VE SOYADINI GIRINIZ":P²25:L²3F,*�1140:�1350:‹FL²1§850:Õ�1300:‹FL(2)²0§830t,4S$²"KAYIT NEVCUT DEGIL!":�1140:¡ùGT$:‰780«,>‹È(B$,2)²"ZZ"§820:ÕB$²RV$:�1140:¡ùGT$:‹GT$²"E"§780ö,H�1200:SMAX²SMAX«1:ENMAX²ENMAX«1:�1630:CNUM²CNUM(MD):þ #1,"F/SREL/IND1"3-R�I²MD¤MAX:NAME$(I)²NAME$(Iª1):CNUM(I)²CNUM(Iª1):þ#1,I,1j-\LP$²NAME$(I)ªRT$ªÄ(CNUM(I)):˜1,LP$:þ#1,I,1:‚:þ#1ª-fSREC(SMAX)²CNUM:�1580:S$²"BASKA KAYIT SILINECEK MI ?":�1140Ï-p¡ùGT$:‹GT$²"E"§900:Õ‹GT$²"H"§830Ø-z‰780-.„L²21:P²25:è:S$²"KAYIT DEGISTIRILECEK KISININ AD VE SOYADINI GIRINIZ":�1140:�1350f.Ž‹FL(1)²1§920:Õ‹FL(2)²0§930:ÕS$²"KAYIT NEVCUT DEGIL!"{.˜�1140:¡ùGT$:‰780®.¢�1300:þ #1,"F/SREL/RECS":þ#1,CNUM(MD),1:�1310Ñ.¬¡ùGT$:‹GT$²"E"§950:Õ�1300:‰780/¶„1,ADDR$,TEL$:þ#1,CNUM(MD),1:B$(1)²B$:B$(2)²TEL$:B$(3)²ADDR$8/À�I²1¤3:à1,8,Iª2,(SK$(I)ªB$(I)):‚e/Êà1,8,22,"TELEFON NUMARASI":�1140:FL(4)²0Ž/Ô¡ùGT$:‹GT$²"H"§990:Õ‹GT$²"E"§FL(4)²1«/Þ‹GT$²"H"¯FL(4)²1§FL(4)²1À/è‹FL(4)²0§FL(4)²1ñ/òS$²"YENI TEL NUMARASI GIRINIZ":�1350:FL(4)²00üADDR$²É(ADDR$,4):‹FL(4)²0§1040P0S$²"ENI TEL. NUMARASINI GIRINIZ":P²15:L²8:�1350:TEL$²B$Ž0LP$²ADDR$ªRT$ªTEL$:þ#1,CNUM(MD),1:˜1,LP$:þ#1,CNUM(MD),1Á0þ#1:S$²"BASKA KAYIT DEGISTIRILECEK MI?":�1140Þ0$¡ùGT$:‹GT$²"E"§300:Õ‰7801.è:S$²"BUTUN KAYITLARI SILINECEK!"ªRV$:�1140K18¡ùGT$:‹GT$²"E"§730:Õ�1300:SMAX²0:ENMAX²1:MAX²1:CNUM(1)²1‰1BNAME$(1)²"ZZ KAYIT YOK":�1630:þ #1,"F/SREL/RECS":þ#1,1,1Ó1LADDR$²"HACI ARIF BEY CAD.OZTURK SOK.NO.6 CANLIGA / ISTANBUL":TEL$²"*"2VFL$²ADDR$ªRT$ªTEL$:˜1,FL$:þ#1,1,1:þ#1:þ #1,"F/SREL/IND1"K2`LP$²NAME$(1)ªRT$ªÄ(CNUM(1)):þ#1,1,1:˜1,LP$:þ#1,1,1Y2jþ#1:‰780{2t� ** CREATING SPRITE CHARS **¨2~�I²1¤8:þ(I),0:‚:à1,6,21," ":à1,6,22," "Õ2ˆLN²Ã(S$):‹LN³24§C1²8:C1$²S$:C2$²"":‰1250ä2’NM²µ(LN­2)3œIS$²Ê(S$,NM,1):‹IS$²" "°IS$²"!"°IS$²"."§1200'3¦NM²NMª1:‰1180^3°‹NM³24§C1$²Ê(S$,1,23)ª"-":C2$²Ê(S$,24,LN«23):‰1220†3ºC1$²Ê(S$,1,NM):C2$²Ê(S$,NMª1,LN«NM)Å3Ä‹Ã(C1$)³Ã(C2$)§C1²µ((24«Ã(C1$))­2)ª8:C2²µ((24«Ã(C2$))­2)ª84΋Ã(C2$)±Ã(C1$)§C2²µ((24«Ã(C2$))­2)ª9:C1²µ((Ã(C2$)«Ã(C1$))­2)ª8%4Ø‹Ã(C2$)²Ã(C1$)§C1²8:C2²8:4âç5,1:�1260:‰1270k4ìç1,1:à1,C1,21,(C1$)ª" ":à1,C2,22,(C2$)ª" ":Ž•4öTT²23:ç1,2:S²1:X²94:ç5,2:�K²64¤248©24â4F²Kª23:äA$(S),K,164,F,184:þA$(S),S:þS,1,2,0,0,1:þS,X,190:S²Sª1:X²XªTTê4 ‚:Ž5�K²1¤3:þ(K),0:‚:Ž5‹DS²50§Ž:Õ‹DS³20§Ž*5(™DS$:þ 2:‰180P52�I²1¤4:‡BB$(I):‚:�I²1¤5:‡EE$(I):‚x5<�I²1¤4:‡FF$(I):‚:�I²1¤3:‡SK$(I):‚:ޏ5FFL²0:P$²"":C²1:à1,0,L,"":S²0:R$²" ":�I²1¤P:P$²P$ªR$:‚:B$²""È5Pà1,34,1," "ô5Z‹P±39§F1$²È(P$,33):P2$²É(P$,P«39):‰13906dà1,1,L,(P$),1:P$²"":‰1400D6nà1,1,L,(F1$),1:à1,0,Lª1,(P2$),1:F1$²"":P2$²""r6x¡C(A$):‹A$²Ç(13)§1480:Õ‹S²0¯A$²"0"§FL²1:އ6‚à1,35,1,Ä(S);" "Í6Œ‹A$²Ç(32)¯S³±0§B$²B$ªA$:à1,C,L,(A$),1:C²Cª1:S²Sª1:‹C²40§C²0:L²Lª1ê6–‹A$²Ç(20)¯C²0§C²40:L²L«1:7 ‹A$²Ç(20)¯S±0§C²C«1:à1,C,L," ":S²S«1:™" ":B$²È(B$,S):‹C²40§L²L«1:C²39:‰1400d7ª‹A$³"!"°A$±"Z"°S²P°A$²";"°A$²":"§1400›7´à1,C,L,(A$),1:B$²B$ªA$:C²Cª1:S²Sª1:‹C²40§C²0:L²Lª1¥7¾‰1400«7ÈŽÅ7ÒMAX²MAXª1:HL²MAX:LL²0þ7ÜMD²µ((HL«LL)­2)ªLL:‹B$²NAME$(MD)§FL(1)²1:MAX²MAX«1:Ž'8æ‹B$±NAME$(MD)¯B$³NAME$(MDª1)§�1550:ŽX8ð‹B$³NAME$(MD)¯B$±NAME$(MD«1)§MD²MD«1:�1550:Žv8ú‹B$³NAME$(MD)§LL²MD:‰1500†8HL²MD:‰1500À8‹MAX²0§1560:ÕENMAX²ENMAXª1:CNUM²ENMAX:�1590:FL(1)²0:Žó8CNUM²SREC(1):SMAX²SMAX«1:�1590:�1660:FL(1)²0:Ž/9"þ #1,"F/SREL/RECS":þ#1,CNUM,1:�1310:FL$²ADDR$ªRT$ªTEL$A9,˜1,FL$:þ#1:Žv96þ #1,"F/SREL/IND1":�I²MAX¤MDª2©«1:þ#1,I,1:�1310Î9@NAME$(I)²NAME$(I«1):CNUM(I)²CNUM(I«1):LP$²NAME$(I)ªRT$ªÄ(CNUM(I)):˜1,LP$:þ#1,I,1:‚ç9J˜1,LP$:þ#1,MDª1,1:Ž:T˜1,LF$:þ#1:NAME$(MDª1)²S$:CNUM(MDª1)²CNUM<:^Ÿ#1,"IF SREL IND2":þ#1,1,1:�1310v:hPM$²Ä(MAX)ªRT$ªÄ(SMAX)ªRT$ªÄ(EMAX)ªRT$ªÄ(AMAX):˜1,PM$Š:rþ#1,1,1:þ#1:ŽÄ:|Ÿ#1,"IF SREL IND3":þ#1,SMAXª1:„1,SREC$:þ#1,SMAXª1,1ê:†þ#1,1,1:˜1,SREC$:þ#1,1,1:þ#1:Ž;�Ÿ#1,"IF SREL IND3":þ#1,SMAX,1:�1310;;š˜1,Ä(SREC(SMAX)):þ#1,SMAX,1:þ#1:ŽS;¤HL²MAX:LL²0:FL(2)²0z;®MD²µ((HL«LL)­2)ªLL:‹B$²NAME$(MD)§Ž˜;¸‹B$²NAME$(MDª1)§MD²MDª1:ŽÉ;‹HL²LLª1¯B$±NAME$(HL)¯B$³NAME$(LL)§FL(2)²1:Žç;Ì‹B$²NAME$(MD«1)§MD²MD«1:Ž<Ö‹B$±NAME$(MD)§LL²MD:‰1710<àHL²MD:‰1710C<êFL(3)²0:�I²1¤MAX:‹È(NAME$(I),1)²J$§MD²I:Žc<ô‹È(NAME$(I),1)²J$§FL(3)²1:Žª<þ‚:S$²"GIRILEN HARFLER ARASINDA KAYIT YOK":Þ2,1,24:�1140:¡ùGT$:‰180æ<ƒ "1.KAYIT YAPMA ..........","2.BILGI ALMA ..........."!=ƒ "3.DUZELTME ............","4.CIKIS ................"\=ƒ "A.KISISEL DOKUM ........","B.HARF DOKUMU ........."˜=&ƒ "C.BUTUN ADLAR ..........","D.BUTUN KAYITLAR ......."º=0ƒ "E.ANA MENU .............."ö=:ƒ "A.KAYIT SILME ..........","B.KAYIT DEGISTIRME ....."2>Dƒ "C.BUTUN KAYITLARI SILME.","D.ANA MENU ............."_>Nƒ "AD SOYAD.:","TEL. NUM.:","ADRES....:"