Directory Düzenleyici
Eğer diskette programınız varsa ve biraz da ustaysanız directory'yi aldıktan sonra cursor ile programın isminin yazılı olduğu satıra gidip "LOAD" yazıp arkasından isminin bittiği yerden ",8,1" yazıp (RETURN) ile programı yükleyiniz. Verdiğiniz bu program ile ",8,1" işlemi disketinize (isim uzunluğu 13 karakterden kısaysa) eklenecektir; böylece sadece "LOAD" yazarak programınızı yükleyebilirsiniz. Eğer ismin yanında yeteri kadar boşluk yoksa ",8,1" ekleneceğini belirtelim. Programı çalıştırdığınızda işlemin tüm disket için veya bazı programlar için yazılacağına ilişkin bir seçenek çıkar. İşlem uzunluğun yeterli olduğunu belirtir. Karşısında "*" işareti olmayan programlar için bu işlem yapılmaz. Bu işlem için disketten koruma bandını çıkarmayı unutmayın.
—A
5
6 PRİNT" DİRECTORY DÜZENLEYİCİ x1986k
7 PRİNT" Elm SEYFİ &
8 INPUT "1-BUTUN
10 OPENİ,8,15
13
15 ADLARI"
16 PRINT"----------- Ms
30
40 IF THEN CLOSEİ:CLOSE2:END
45 PRIİNTHİ,"Ul 2
SO
60
80 Ps2
90 IF P>255 THEN P-P-256:60T0 48
95 PRIİNTHL,"B-P 2";P
100 GETH2,AS:IF P-P4*32:60T0O 90
110 GETH2,AS:GETHE,AS
120 TO 16
130
148 IF ASCCAS)-160 THEN 168
1380 NEXT
160 PRINTB$: IF 1>13 THEN 98
GOSUB 1088
188 98
1986 END
1008 THEN S$-",8:"1001 " ; :1005 IF J$z"E" THEN 1819
1886 INPUT" <XEZH)";V$
1807
18608 IF V$-"H" THEN 1838
1818 PRINTH1İ,"B-P
1020 PRINTH2,S$;
1025 PRINTHİ,"U2 2 A":D;E
1830 RETURN1 REM OK OK ORK
2 REM * KASET HEADER *
3 REM ole Ole OK
108
20
30 PRİNT" KOYUP TUSUNA BASIN
40 48
50 5YS 63276
Sİ
532 FOR1-833 TO 833415:PRINT CHR$<PEEKC
68 PRINT:PRİNT "FİLE TİPİ-"PEEK(828)
70 PR. PR. FİLE"
73 908
80 PRIİINT:PRIİNT"BASLANGIC ADRESİ:
SO 900
33 PRINT"BITIİS S"AS;"-";BIA
938 1F BRA<S28 THENPRİNT" PROGRAM
100 A-S: INPUT BLOK
110
120
138 INPUT "DEVAM
146 IF A$<>"E" THEN END
1506 SYS 62813
899 END
900 TO & STEP -iİ
920
930940sayfamızın şansı futboldan açıldı. Bu ay da futbolla ilgili bir sorumuz var. 1. sayımızdaki sorulara doğru cevap göndererek ödüle hak kazanan okuyucularımızı önümüzdeki sayıda açıklayacağız.
Geçen sayımızdaki puan cetveli sorusuna bazı olumsuz tepkiler aldık. Birçok okuyucumuz “niçin Beşiktaş ve Galatasaray'ı alt sıralara koyduğumuzu” sordu. Ama bir tek Altay'lı okuyucumuz da arayıp “sağ olun, bizi lider yapmışsınız” demedi. Nankör meslek işte...
Büyük oranda doğru olacağına inandığımız cevaplarınızı en geç 25 Nisan 1986 tarihinde elimize geçecek şekilde, “Commodore Dergisi/Yarışma Köşesi, Silahane Cad. No: 58/3 Ralli Apt. 80200 Teşvikiye/İSTANBUL” adresine yollamanız gerekiyor. Yalnız bu kez sorumuz uzunca bir cevap gerektiriyor. Üstelik yarışmamıza rağbet de çok. Lafı uzatmayalım, değerlendirmenin kolay olması açısından, bize print-out'la birlikte disket veya kaset de yollarsanız seviniriz. Aslında değer de yani... Doğru cevabı bulan beş okuyucumuza ödül vereceğiz. Makinanın arkasına takıldığında tatlı tatlı konuşan, muhabbetine doyum olmayan “Magic Voice”lerden tam beş tane...