Directory Düzenleyici

Commodore sayı 2, Nisan 1986 · sayfa 25

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.

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 RETURN