SIMONS' BASIC< ******************* ************J * * * *o( * ADRES DEFTERI * * (C) 1987 *}2 * * * *< * * * BY NOYAN *F ******************* ************PZd 0,0: NN$(30,5):d3 INEBEE. d "":D$(1)"SIRKET ADRESLERI":D$(2)"KI$ISEL ADRESLER":N2:d3 SCREENL nCAJ:N190: CA2 N180 sd0 130:K8: A$: I1 39:KK(I24)20:J(I23)6 xdc 1,I8K824,86J8,0,10: d(IK,6J)(A$,I,1) : "NOYAN SOFTWARE PRESENTS SADRES DEFTERIS"0 df 2:d0 N:RN0:F$"":J$" HIC KAYIT YOK!**":P5$"BILGI YOK!"| P1$dU(".",42):P2$dU("-",50):P3$"**BU DOSYADA"J$:P4$"**HAFIZADA"J$ P6$"ISLEM YAPILIYOR...":D1$dU("@",21):D2$dU("",20): "": I0 5 DF$(I),DL(I),VF(I),SP(I): : SOYADI,20,4,1,ADI,20,7,22,ADRES,70P 10,44,TELEFON,20,14,116,2,ADRES,70,17,138,TELEFON,20,22,210 FIRMA ADI,20,4,1,CALISMA ALANI,20,7,22,ADRESI,70 10,44,TELEFON,20,14,116,FABRIKA ADRESI,70,17,138,TELEX,20,22,210 d1 MAINd: d 0,0:d3 KAYMA/ "":d# d(0,0)"ADRES DEFTERI":d 0,0,40,1:: dU("C",40)a " (C)MCMLXXXVII BY NOYAN-CRACKED BY BEE"r dU("C",40) D$(1)"ADRES KAYIT":D$(2)"ADRES ARAMA":D$(3)"DEGISTIRME" D$(4)"VERI SAKLAMA":D$(5)"PRINTER":D$(6)"ISIM LISTESI":N3? D$(7)"YENI DOSYA ACMA":D$(8)"DISK-DRIVE MODU":D$(9)"CIKIS":d3 SCREENl  J 290,370,450,560,620,801,810,269,890r   **DISK -DRIVE MODUL**   "":d# d(0,0)"DISK-DRIVE MODU":d 0,0,40,1:N4:D$(1)"DIRECTORY"D$(2)"HATA KANALINI OKUMA":D$(3)"DISK-DRIVE'A KOMUT GONDERME":D$(4)"MENU":d3 SCREENS J 273,274,276,278j "":dJ "$": 277 15,8,15:15,A$(1),A$(2),A$(3),A$(4): I1 4d# d(0,7I2)A$(I): : 15: 277d# d(0,12)"LUTFEN KOMUTU VERIN:":d' "",25,K$:dr K$: 269% 198,0: 198,1: 198,0: 2693d2 MAINd:9O **ADRES KAYIT**U" "":d# d(0,0)"ADRES KAYIT":d 0,0,40,1:' RN31 d# d(0,12)"HAFIZ ADA YER KALMADI!":df 2:d2 MAINd:, "KAYIT#="RN:d3 SHEET6I0:d :W(DF$(I))2: d(W,VF(I))"";:d' "",DL(I),G$G@ G$"" G$"*":dG: G$"-" G$P5$tJ d(W,VF(I))G$:NN$(RN,I)G$:II1:d) I6Td# d(0,24)"(E) DUZELTME (C) DEVAM (M) MENU"Y C$: C$"C" C$"E" C$"M" 345:dG:RNRN(C$"E")^ C$"M" d2 MAINd:c 290d$h **ADRES ARAMA***m\r "":d# d(0,0)"ADRES ARAMA":d 0,0,40,1:d3 | P0 390:dG:d : C$:d) C$"" C$"E" 370:dG:d2 MAINd: "":d3 SHEETI0:d : d((DF$(I))2,VF(I))FF$(I):II1:d) I6d#. d(0,24)"(P) PRINT (M) MENU"D C$: C$"P" C$"M" 420:dG: C$"P" dsRd2 MAINd:Xm **DEGISTIRME**s "":d# d(0,0)"DEGISTIRME":d 0,0,40,1:d3  P0 470:dG:d : C$:d) C$"" C$"E" 450:dG:d2 MAINd: "":d3 SHEET4I0:d : d((DF$(I))2,VF(I))FF$(I):II1:d) I6]d# d(0,24)"(E) DEGISTIRME (M) MENU" C$: C$"E" C$"M" 500:dG: C$"E" 510:dG:d2 MAINd: I1 5:W(DF$(I))2: d(W,VF(I))"";:d' "",DL(I),G$ G$"" G$"*":dG: G$"-" G$P5$ d(W,VF(I))G$WFF$(I)G$: : P$"M" I1 5:NN$(P,I)FF$(I): : 490 15,8,15: 8,8,8,F$(FF$(0),1):DF1:MXP:d3  8: 15: 490!& **VERI SAKLAMA**+0S$"": "":d# d(0,0)"VERI SAKLAMA":d 0,0,40,15 RN0 d# d(0,12)P4$:df 2:d2 MAINd:\: 15,8,15:S$"":I0:d# d(0,12)P6$:d :N$F$(NN$(I,0),1)D S$N$ 8:df 1: 8,8,8,N$:15,A,A$,B,CI A20 d# d(0,14)"DISK HATASI! KAYIT YAPILAMADI."JdF :d# d(0,16)"HATA:"A$: 198,0: 198,1: 198,0: 600%N J0 5:FF$(J)NN$(I,J): :d3 BSS$N$:II1:d) IRN:RN0YX 8: 15:d2 MAINd:_]qb **PRINTER**wgl "":d# d(0,0)"PRINTER":d 0,0,40,1vD$(1)"BIR DOSYANIN YAZDIRILMASI":D$(3)"TELEFON FIHRISTI HAZIRLAMA"D$(4)"HAFIZANIN YAZDIRILMASI":D$(5)"MENU"QD$(2)"BUTUN DOSYALARIN YAZDIRILMASI":N5:d3 SCREEN~ 4,4: 15,8,15: J 660,655,740,785,793 ***d# d(0,12)P6$:A65:Z90: 685 *** "":d# d(0,12)"HANGI DOSYAYI YAZDIRACAKSINIZ?@@"d' "",1,C$:A(C$):ZA9 JA Z: 8,8,8,F$(J):MX1:RP1:d3 ITI\8,DN:4,(14)(J)(15):4,P2$ DN2 4,P3$:4: 730:dG: MX2 DN1:d3 ITI4,"KAYIT#="MX2: I0 5:RPSP(I):d3 ITI8,P$:4,P$: 795: I:4: MX  8:df 1: J: 15:4: 4: 620 ***Ad# d(0,12)P6$: I65 90: 8,8,8,F$(I)q4,(14)(I)(15):4,P2$:MX1:RP1:d3 ITI8,DN: DN2 4,P3$:4: 780 MX2 DN1:J0:L0:A$" ":d :RPSP(J):d3 ITI8,P$: P$P5$ P$"*" P$" "1 CA1 J1 P$"("P$")":dG: CA1 J5 P$"TELEX:"P$c4,P$;A$;:JJ1:LL(P$): J2 J4 JJ1 J3 4,(P1$,42L);:A$", " 795:d) J6:4: :4  8:df 1: 795: : 15:4: 4: 620 *** RN0 d# d(0,12)P4$:df 2: 7890d# d(0,12)P6$: I0 RN1:4,"KAYIT#="I: J0 5N4,NN$(I,J): 795: :4:d 15:4: 4: 620n ***4: 4: 15:d2 MAINd:dc 1,30200(1),50150(1),0,10 C$: C$"" 8: 15:4: 4: 620:dG: **ISIM LISTESI** .! "":d# d(0,0)"ISIM LISTESI":d 0,0,40,1X" RN0 d# d(0,12)P4$:df 2:d2 MAINd:# :I0:d : NN$(I,0);20);NN$(I,1):II1$ I20 "DEVAM ICIN SPACE!": 198,0: 198,1: 198,0:%d) IRN: "HEPSI BU KADAR.": 198,0: 198,1: 198,0 &d2 MAINd:'*( **YENI DOSYA ACMA**0)a* "":d# d(0,0)"YENI DOSYA ACMA":d 0,0,40,14d# d(0,10)"DOSYA ACILIYOR...": 15,8,15:MX1:RP1> I65 90:C$F$(I): 8,8,8,C$",L,"(231):A$(I64)Hd I,0:d# d(0,12)"DOSYA NO:"A$:d3 ITIM15,A,A$,B,CMRd# d(0,14)"DOSYA ADI:"C$:d# d(0,16)"DISK STATUS:"A$a\8,2: 8:df 1:tf 15:d2 MAINd:zkp **CIKIS**uz "":d# d(0,0)"CIKIS":d 0,0,40,1 RN0 910:dG: d(0,12)"KAYIT ETTIGINIZ ADRESLER SAVE EDILMEDI!"#d# d(0,14)"SAVE EDEYIM MI? (E/H)"K C$: C$"" 905:dG: C$"E" 560dr "I":d# d(0,17)"TEKRAR GORUSMEK UZERE!":dc 1,160,100,0,10: *****d1  *****P1:d# d(0,11)DF$(0)"?"D1$: D2$;:d' "",20,LN$ RN0 9605  I0 RN1:PLd(LN$,NN$(I,0)): PL0 950:dG: : 960h  J0 5:FF$(J)NN$(I,J): :PI:P$"M": 1040  15,8,15: 8,8,8,F$(LN$,1):MX1:RP1:d3 ITI 8,DN: DN2 1020  MX2 DN1:d3 ITI!8,FF$(0): d(LN$,FF$(0))0 930:dG: : 1020#! I1 5:RPSP(I):d3 ITI3!8,FF$(I):J!PMX:P$"D": 1040z!d# d(0,11)" ISTEDIGINIZ KAYIT BULUNAMADI! "!d# d(0,13)"BASKA KAYIT ARAYACAKMISINIZ? (E/H)"! 8: 15:d4! *****!$d1 !) *****". DF 1100:dG:MX1:RP1:d3 ITI"88,DN:d3 ITI("B8,DN1:MXDNH"L J0 5:RPSP(J):d3 ITIX"V8,FF$(J):d"`DF0:d4p"j *****}"td1 ITI"y *****"~HB(MX256):LBMXHB256"15,"P";(896);(LB);(HB);(RP)"d4" *****"d1 SHEET" *****?# "";: I0 5:PL$dU("@",DL(I)2): I3 PL$PL$" "Z# ""DF$(I)":"PL$:a#d4m# *****{#d1 SCREEN# *****#J1: I1 N:d# d(0,5I2)" "D$(I)" ":#dc 1,0,0,0,1:dc 1,2004(D$(1)),85,0,10$L38:A%(39L)2:T5J2:d T,A%,L2,1F$ C$: C$"" C$"" C$(13) C$" "1270$ C$(13) 1310:dG:d 5J2,A%,L2,1: C$"" JJ1:dG:JJ1$  J1 JI J(J(1)N(JI)$dc 1,2004(D$(J)),69J16,0,10: 1260 %d 1,13,1,0,0:d : C$:d) C$"":d 1,13,7,0,0-%# C$(13) 1270:dG:d3KAYMA4%(d4@%2 *****M%<d1 KAYMAY%A *****%F K0 20:d 0,20,20,25:d 0,0,20,25: :dc 1,0,200,0,10%Pd4%Ud1 INEBEE%Vd0 1370&Z I49152 49195: A: I,A: : 120,169,76,141,148,150,163,18,141J&\ 149,150,169,192,141,150,150,88,96,173,249,7,201,14,240,8,169,14,141&] 249,7,76,38,192,169,13,141,249,7,238,22,197,76,151,150&_ (788)(789)25638548 49152&ddh 1:db 0,1364&x@...BBBB.......BBBBB.....&@..B....BB....B.....B....'@.B......B...B......B...9'@.B......B..B.......B...W'@..B......BB.B......B....t'@..B......BBB.....B.....'@...B......B......B......'@....B......B....B.......'@.....B.....B..BB........'@......BB...BBB.......... (@........BB..B..BB.......((@.....BBB.BB.BBB.BB......F(@...BB.BBB.BBB.B.B.BB....d(@..B...BBBBB.B.B.B.B.B...(@..BBBBBBBBB.B.B.B.B.BBBB(@BBBBBBB.BBB.BB.B.B.B.B...(@B.BBB.B.BBBBB.B.B.BB....("@....BBBB..BB.BB.BB......(,@........BBBB.BB.........)6@......B.B.B.B...........7);@......B.B..B..B.........F)Jdb 0,1464b)T@......................~)^@......................)h@......................)r@......................)|@................BBBB.....)@....BBBB...BBBB....BBBBB*@BBBB....BBB..........B.-*@.B.........B......BBB..K*@..BB........B..BBBB.....i*@....BBB.....BBB.........*@........BB....B.BB......*@.....BBB.B..BBB.BB......*@...BB.BBB.BBB.B.B.BB....*@..B...BBBBB.B.B.B.B.B...*@..BBBBBBBBB.B.B.B.B.BBBB+@BBBBBBB.BBB.BB.B.B.B.B...=+@B.BBB.B.BBBBB.B.B.BB.....[+@....BBBB..BB.BB.BB......y+@........BBBB.BB.........+@.......B.B.B.B..........+@......B.B..B..B.........+&d 1,13,7,0,0+0dc 1,320,100,0,10+:d4