1 Mayıs 1986 Tarihli Commodore Gazetesi Sayfa 55

açılıyor ve "1” yani YNITIALIZE” komutu gönderiliyor. Böylece VC-41541 içinde- ki diskete dit bazı önemli bilgileri kendi içine yerleştiriyor. Buna, VC-15441'in içindeki disketi 'farketmesi' de diyebi- liriz. Daha sonra ikinci kanala bağlı depo açılıyor ve TRACK 18/SECTOR 00 depoya okunuyor. Son olarak da de- po göstergeci, 144. byte'in üzerine gelecek şekilde ayarlanıyor. SATIR 160-200: Önce DN$'in içi te- mizleniyor ve depo göstergecinin gös- terdiği 144. byte'dan itibaren 16 byte okunarak DNS'in içine yerleştiriliyor. Artık disketimizin adı. DN$'in içinde hazır, SATIR 210: Bu sefer depo gösterge- cini 162. byte üzerine yerleştiriyoruz. Daha sonra da, önceden içini femiz- lediğimiz IDS'in içine iki karakterlik dis- ket ID'sini okuyoruz. SATIR 200: Açtığımız emir ve depo kanallarını kapatıyoruz. Bunu VC 4541'in kırmızı ışığının sönmesinden de anlayabilirsiniz SATIR 230: Artık okuduğurmuz isim ve ID'yi ekrana yazıp, altprogramın çağ- rıldığı yere geri dönebiliriz. SATIR 235-245: DNS'i, disketimizin ye- ni adını saklamak için kullanacağız. Ancak eğer disketimizin adını değiş- tirmek istemezsek ne olacak? İşte bu- nun için DNS$'in içine önceden sola bakan ok karakterini yüklüyoruz. Bir sonraki İNPUT komutunda herhangi bir isim verilmeden doğrudan doğruya İRETURN)| tuşuna basılırsa, program 245 numaralı satırda bitecektir. Bu arada SPS'in içinde 16 karakter uzun- luğunda ve 160 numaralı karakter ko- dundan oluşan bir dizi hazırlanıyor. İNPUT komutunda birbirinden virgül ile ayrılmış iki isim vermelisiniz. Birincisi en fazla 16 karakter uzunluğundaki dis- ket isimi olacak. İkincisi ise iki karak- terlik disket ID'si... (Örnek: deneme di) SATIR 250: DNS, 16 karaktere ta- mamlanırken, ID$ de iki karakter uzun- luğa getiriliyor. SATIR 260-290: Yeniden 15 numaralı emir kanalı açılarak "1” komutu gön- deriliyor. Komutun "10” olmasının ne- deni, VC-1541'in normalde Ü numa- ralı sürücü olmasından kaynaklanıyor. Daha sonra depo kanalı açılarak, TRACK 18/SECTOR 00 depoya okunu- yor. Depo göstergeci 144 numaralı byfte'a ayarlanıp DNS depoya yazılı- yor. Daha sonra depo göstergeci 162 numaralı byte üzerine getirilip ID$ yer- Ieşhrıhyor En sonda da depodaki de- gişmiş bilgi, TRACK 18/SECTOR 00'a geri yazılıp depo ve emir kanalları ka- patiliyor. SATIR 300: Yeni yazılan isim ve |D tek- rar okunarak ekranda gösteriliyor ve böylece bir kontrol imkanı sağlanıyor Eğer disketin üzerinde yeni bir isim ya- zamıyorsanız, ya disketinizin kenarın- daki koruyucu bölge kapalıdır ya da disketiniz üretici firma tarafından ya- zılmaya karşı korunmuştur. SATIR. 305-310: Kullanıcıya seçim hakkı tanınıyor. Eğer sola bakan ok tu- şuna bakılırsa program durur. Diğer tüm tuşlarda yeniden çalışmaya baş- lar. Bu sırada VC-1541'in içinde yeni bir disket olması gerekir. Yoksa bilgi- sayar daha demin değiştirdiğiniz dis- ket adını yeniden değiştirmenizi iste- yecektir. Ancak |RETURN| tuşu ile prog- ramı bitirip, yeni bir disket takıp ve ye- niden RUN komutunu vererek bu du- rumdan kurtulabilirsiniz. PROGRAM ADI : DISK ADI & Son birkaç söz daha... Aslında sizin değiştirdiğiniz isim ve ID, sadece Di- rectory'i yüklediğinizde gördüğünüz isim ve ID olacak. VC-1541, bir diske- ti formatladığınız zaman o sırada ver- diğiniz ID'yi her blokun başına sade- ce kendisinin okuyabileceği bir şekil- de yerleştirir (Block-header). Bu ID'yi değiştirmek için disketi yeniden for- matlamak gerekir. Ancak bu işlemi yapmadan önce disketinizdeki dos- yalarla son bir kez vedalaşsanız iyi olur...D 1D'SI g0€f10 GÜSÜR 10A:60TÜ 235 <ıd44> 90102 OPEN 15,8,15,"IO":0PEN 2,8,2,"HR":PR INT#15,”"UL”";2709;18;M:PRINTA15,"B-P" ;2:7144 <151> A0160 DNS-””"1FOR I-i TO 16:GET #E,X$ <281> g0190 DNS-DNFLXF <atız> BAZAA NEXT <157> Bo2l1A PRİINTHİ5,”"B-P":2:iİ62:10$-””:FÜR I-1 TO 2:GET #2,X$: 1D$S-1İDSA*ASİNEKT <B3T> AA220 CLOSE 2:CLOSE i5 <148> BOZ3A PRİINT "<CLR><DOKRN><RIGHT>DISK ADI: "DNE,," ID<ESPACE>: "TD$LSSRETÜURN <143> OğA235 DON4-"e” <G9E> 20246 INPUT "<EDOLİN><RIİGHTİYENİ ISİM,İD"; ON£,ID$:FOR I-1 TO 1İ51SP$Fs5PStOKHRSK 16A)1NEXT <B47> 20245 IF DN$-z”"4L” THEN ENDİ <175> Ad2SA DNE-LEFT$CDNSE*SP$,16): ID$-LEFT$LID$ *” <2SPACE>",2> <B03> 20263 OPEN 15,8,15,”18”:0PEN 2,8,2,"H#":PR INT#İS5,"Ul”";2:0718/0:PRINTHİ5,"B-P” ;2:144 <057> 80278 PRİINT#2,DNSE; <045> 90288 PRINTHK15,"B-P”";2,1621PRIİINTH2,1D$; <165> 00285 PRINTH#15,"U2 28 O 18 &" <064> 902986 CLÜSE B8:(CLOSE 15 <ele> 6003808 GÜSUB 108 <246> AA305 PRİNT "<2DOWN><SERİGHT><RYSON><ESPAC E>BIR TUSA BASIN<L2SPACE><RVSÜFF> 't ' İLE BİITIRİN !1* <aogL> A00310 POKE 198,G:NAIT 198,14:GET A$:1IF AS< ;"" THEN RUÜN <2g5;