1000! 53280,0:53281,0W56,(46)14::RB255(56):PA1:AN0:BL0:NF$""PE(45)256(46):MRPE352:MWPE252:MDPE295(NF$(140),CF%(140),BL%(140)2APP0:EPP0:PL0:AL%0:AH%(56):EL%0:EH%0<:F: P""9)"****DISK/TAPE COPY****". Z,"1. DIRECTORY"G d,"2. COPY DISK"c n,"3. MENUYE DONUS" x210)" SECIMINIZ " DC$:DC(DC$):DC1DC5130 DC2000,170,1000 : : ""," LUTFEN DISKETI TAKIN " 850 DOSYALARIN OKUNMASI 1,8,0,"$0"4 610:NF$""240B ST0210K 250 BL%(AN)(BL$(0)):NF$(AN)NF$:ST0ANAN1:NF$"":210 1:ANAN1:AN0," DISK-BOS ":850: : "","PROGRAMI SECIN [Y/N]" I1AN:4);BL%(I),NF$(I);" > ";:198,0H "198,1:A$:A$"Y"CF%(I)1:BLBLBL%(I):310Q ,320e 6"YES":340 @CF%(I)0:A$"N"290 J"NO" TI:PAAN ^BL0560 h: r"","  KOPYE CALISIYOR " w" DISKETI TAKIN VE TAYBI AYARLAYIN ":850 |I1PA:CF%(I)430/ RW01:NR0S NF$NF$(I):450:ST0ST64420` 740:10h RWv IPA560 I:10 RW1490 1,8,5,NF$",R":252,AL%:253,AH%:"LOADING :"NF$ 7566:NRNR1:EL%(254):EH%(255) 1:% APP256AH%AL%:EPP256EH%EL%:PLEPPAPPO 172,AL%2:173,AH%:174,EL%:175,EH% PL(APP)256(APP1)PL1:167,(APP):168,(APP1) 170,PL256:169,PL256(170) J116:832J,((NF$,J,1)):J183,16:184,0:185,1:186,1:187,65:188,3"&"SAVEING :"NF$:MW:NRNR1:@0," KOPYE BITTI"M:850:10SD:yN56,160:""," PROGRAM SONU ":X:b:l#1,A$,B$v#1,BL$,B$#1,A$#1,B$:ST0B$(34)650#1,B$:B$(34)NF$NF$B$:670#1,B$:B$(32)680?NF$(NF$"",16)","B$^I01:#1,B$:NF$NF$B$:u#1,B$:B$""710{:15,8,15:15,A,B$,C,D:,A;B$;C;D:15:850:::R"";10);""\198,0:198,1:A$f *******************************5 *****ANA PROGRAM*****T53281,16:53280,16:" "" DEATH DISC & TURBODISC "" DISKET ICIN EN IYI PROGRAM "" B O R A S I N C  ":#10);" A DISKET KITABI"::10);" B DIRECTORY")d10);" C TURBO KAYIT"::10);" D RETURN BASIC"uB""L7);""VI08:7);"";34);"":`7);""  *************DIS EKRAN CERCEVE""F0);" "gI018:0);"";37);" ":0);" ";""S$"LUTFEN SECIMINIZI YAPINIZ ............."SS$(S$,2,59)(S$,1):S$SS$:""(SS$,28)Z120:A$%A$"A"13006A$"B"2000EA$"C"10VA$"D"4000]Zg1260m DISKET KITABI""(5);" 1 FORMAT"::5);" 2 SILME"2:5);" 3 ISIM DEGISTIRME":<5);" 4 FT.NO DEGISTIRME")F:5);" 6 DIRECTORY KILITLEME"MK:5);" 7 ANA MENUYE DONUS"WP""x0);""U012:0);"";28);"":0);""A$:A$""1450A$"1"1500A$"2"1600A$"3"1700!A$"4"18002A$"5"1900CA$"6"5050TA$"7"1000e FORMATLAMAp"""FORMAT ADINI VERIN..."AD$(AD$)16"":1530 15,8,15,"N0:"AD$",01":15"BASKA ISTERMISINE/H"B$:B$""1555A$"E"13006)@ SILME6J""_T"SILINECEK PROGRAMIN ADI.....";""h^SP$h15,8,15,"S0:"SP$:15r " BASKA ISTERMISIN"wC$:C$""1655|C$"E"1300 DEGISTIRME"""PROGRAMIN YENI ADI";:YA$,"PROGRAMIN ESKI ADI";:EA$O15,8,15,"R0:"YA$"="EA$:15n" BASKA ISTERMISIN E/H"D$:D$""1755D$"E"1300 *******DISKET NO ******Y64YY6415,8,15:15,"I":1,8,3,"#":15,"U1:3"DV",18,0"5&15,"B-P:3,162":#1,A$,B$,C$,D$,E$::"DISKET NO :"A$;F0B$;C$;D$;E$f::"YENI DISKET NO :";:NI$D(NI$)5" ":"":1850N15,"B-P:3,162":1,NI$;:15,"U2:3"DV,18,0S15:1X"MENUYE DONMEK ICIN  M ZS$:S$""1882\S$"M"1300&]S$"M"1882Eb ************************cl *******DISKET ADI******inq15,8,15:15,"I":1,8,3,"#":15,"U1:3"DV",18,0"v15,"B-P:3,144":DN$"":L116:#1,A$:DN$DN$A$"DISKETIN ADI :";DN$" ": "YENI DISKET ADI":)ND$D(ND$)16"":1950t15,"B-P:3,144":1,ND$;:15,"U2:3"DV",18,0"1:15" MENUYE DONMEK ICIN  M "AA$:AA$""1975AA$"M"1300AA$"M"1975 ************************* ""20);""IN113:0);"":n0);""x1903~:"":"CATALOG"1,8,0,"$0":#1,Y$,Y$I0:#1,Y$,Y$,Y$,X$:Y$""I(Y$) X$""II(X$)256 BI# (" "(I),3);" ";:I0:B$"":T$""7$ #1,Y$:ST2450Y. Y$(34)II1:(34);:2340g8 I02340B I1Y$;:B$B$Y$:2340L I225);:II1V I3Y$" "2340` Y$""Y$;:T$T$Y$:2340~  ST02300 "BLOCK FREE..":1 " RETURN""( A$:A$""260052 A$(13)2700I< A$(13)2600y "":"TURBO DIRECTORY  T & MENU  M " A$:A$""2710 A$"T"10 A$"M"1000"":"EMINMISINIZ  E &  H "Z$:Z$""4010Z$"E"64738 Z$"E"10005"":"DISKETINIZI HAZIRLAYIN E/H"MAA1$:AA1$""5010`AA1$"E"5100tAA1$"E"1300 ACIKLAMA" ACIKLAMA "" DIRECTORY'I BIR YERE NOT EDIN. KILITLENECEK BOLUMDE BASKA PRG.'DA"2" KAYIT EDIN.GIZLEMEK ISTEDIGINIZ PRG. DISKETIN ILK PRG'MI OLAMASIN"u" KILITLENDIKTEN SONRA BASKA PROGRAM KAYIT EDILEMEZ!!!!!!!"5000 ********KILITLEME--ACCESS--1,8,15,"U0":2,8,2,"#" 2,"SIDE1";:1,"B-P";2;151:2,"85 2A"1:2