Sayfa 23

IF THEN ili IF THEN 114 FOR Ts1 TO :PRİNT 2$8/22$ FOR TO 28251NEXT 20 GOSUB S3L1NPUT DI SKET DASzLEFT$<CDAS,16) INPUT " DİSKET IF THEN PRİNT OTO 36 PRİNT "<DOLN) MİSİNİZ? (CE ZAT" GET ASLIF THEN 48 İF THEN RUN IF THEN 48 GOSUB Gİ 57 PRİNT 531GOSUR 7 1

OPEN TO 4:!GET #3 #3,J$,F$ ) FOR Tsi TO 286tGET W3,ASIPRINT EXT GET FOR Ts1 TO W3,ASIPRINT AS) IF STs64 THEN CLOSE 31GOSÜUB 611GOTO 57 r IF A$z"" THEN PRİNT NEXT :6GOTO 48 ÖPEN THEN 56 IF STz-188 THEN PRİNT <C-3)00,DEVICE NOT PRESENT,08,80<C€4 7>"160TO 55 PRİNT & 31,19tEND RETURN PRİNT <Cs6>M « MENÜYE DONUS .

GET OStİF D$z"" THEN 58 IF THEN 58 RUN 15 ,A$,B$,C$,D$ PRİNT CLOSE 151RETURN GOÖSUB "<CLR>"TINPUT "<DOLİN SİLİNECEK DOSYA SAYISI IF D>S THEN PRİNT B4 Tsi TO D PRINT “* "TPLIİNPUT "<LEFT).DOSYA "JA s<(T) "NEXT GOSUB 1088 *GOTO 57 OPEN 15,8,15,"1O"1RETURN | PRİNT 53280 PRİNT CHR$<C14)1PRİINT )<D OLİN><C s8 >< 13SPACE YAÇIKLAMA"IPRINT * PRINT "<2SPACE YBU PROGRAM İLE DİSKE TLERİNİZİ FORMAT-" PRINT .EORMAT,DISKET 1 DISKSURU-" PRİNT "CUNUN KULLANABİLECEGİ HALE G ETİRMEKTİR." PRİNT DİSKET BASLIĞINI,YANI * PRİNT "DİSKET ADINI VE 10 NO.SUNU D EGİSTİREBİ-" PRINT "LIRSINIZ." PRİNT PROGRAMLARINI

; ZIN ADINI DEGİS-" <asa> 00081 PRINT DEFADA AZAMI 5 PROGRAMI" <187)> PRİNT "DIİSKETTEN SİLEBİLİRSİNİZ." <a95)> 60083 PRINT VAR OLAN Bİ R PROGRAMI BASKA" 00084 PRINT "BIR ISİM ALTINDA YENİDEN KAY DA ALABILIR" <151> 00085 PRINT 4 PROGRAMI T EK BIR ISIM" <161> 00086 PRINT "ALTINDA ." 600887 "<2SPACE CALISMADAN SONRA NORMAL" <ı7a> 00088 PRINT "VEYA HATA MESAJINI BELİRTECE KTIR." <158) PRINT KALAN ACIKLAMA, PROGRAMIN ICINDE" <008) PRİNT "MEVCUT BULUNMAKTADIR."

PRİNT ." ii <130)> PRINT PRİNT "<DOLN)< 15SPACE <

INPUT " TOPLU DOSYA ADICESPACE TD $ <194)> GOSUB

UB 57 <eaı> GOSUB " <DOWN)> YENİ DOSYA ADI INPUT " ESKİ DOSYA ADİ "YES <121> GOSUB B 61:60TO 57 GOSUB "<CLR>"1GOSUB 7İ <Bae > OPEN FOR 1-0 TO 1İSİGET NEXT !GET W5,FS,F$ Tal TO " 175) PRİNT "<Cs7) DİSKET ADİL <ası> ÖPEN UTW3,15S$1CLOSE 3IPRİNT FOR TO BO)1NEXT "<DOLN)<CE7 > DİSKET OPEN <a26> IF THEN 1825 <a06> PRİNT " 1821 ") <885> "| StGOSUB 57