Sayfa 28

Satır 116: RETURN ile dönülen bu satırda, programın çalışırken durdurulmasını önlemek için 788 ve 792 no.lu adreslere 52 ve 193 değerleri yerleştirildikten sonra 244 no.lu satıra atlanmaktadır.

Satır 244-274: Bu bölüm ekrana Menü'yü getirmekte ve basacağınız tuşa göre gereken satıra atlamayı sağlamaktadır.

Satır 150-176: F3'e basmakla geçilen bu bölüm, program kilitleme bölümüdür. Burada önce GOSUB 128 ile ekran düzenlenmektedir. İstediğiniz anda F1 veya F7'ye basarak Menü'ye geri dönmeniz veya Directory'i görmeniz sağlanmaktadır. Daha sonra RETURN ile geri dönüldüğünde, GOSUB 236 ile atlanan bölümde, vermiş olduğunuz dosya adı eğer 16 karakterden kısa ise, SHIFTED SPACE'lerle 16'ya tamamlandıktan sonra bellekte 683 ila 699 no.lu adresler arasına ASCII kodları halinde yerleştirilmektedir. Bu bölüm her dosya adı verildiğinde SYS 828 ile verilen dosyanın diskette bulunup bulunmadığını aramakta kullanılmaktadır.

Satır 214-226: 158 no.lu satırdaki GOSUB 214 ile atlanan bu bölümde, OPEN 15, 6, 15, "IO": OPEN 2, 8, 2, "#" ile disk sürücü önce initialize edildikten sonra bir rastgele erişim (random access) kanalı açılmakta, sonra da hata kanalı okunmaktadır. Bant: 18/Sektör: 1 için Satır 118'de U1 yani Buffer Pointer'i değiştirmeyen bir Block-Read komutu verildikten sonra GOTO 216 ile hata kanalı kontrol edilip Satır 160'a dönülmektedir. SYS 828 ile, verilen dosya adı Bant: 18'de kayıtlı dosyalarla karşılaştırılarak A=PEEK (252) ile dosya tipi tesbit edilmektedir. Eğer (A AND 64)>0 ise bu A'nın değerinin 193 ile 196 arasında olduğunu gösterir ki, dosya zaten kilitli demektir. Aksi halde P=PEEK (255) ile dosya tipini gösteren baytın yeri bulunduktan sonra, PRINT#15, "B-P";2; P:PRINT#2, CHR$(A OR 64) ile yeri P olan baytın değeri 64 ile OR'lanmaktadır. Kilitli olmayan dosyalara ait 129, 130, 131, 132 değerleri 64 ile OR'lanırsa 193, 194, 195, 196 değerleri elde edilir ki, dosya da kilitlenmiş olur.

Satır 182-208: Bu bölüm bir dosyanın kilidini açmaktadır. Burada ise eğer (A AND 64)>0 ise bu defa A değeri 135 ile AND'lenerek 193 ile 196 arası değerler 129 ilie 132 arası değerlere çevrilmekte yani dosyanın kilidi açılmaktadır. Eğer (A AND 64)=0 ise dosya zaten kilitli değil demektir.

Bu açıklamalardan sonra aşağıda programımızı görüyorsunuz.