1 Nisan 1986 Tarihli Commodore Gazetesi Sayfa 25

Kaset Header Düzenleyici Program elinizdeki kaset programı- nın başlangıç ve bitiş adreslerini ver- mekte, program kopyacıları için bir önceki sayıda sözü edilen öteleme iş- lemini kolayca yapmaktadır. trogramın ve monitör programı nın yardımıyla turbo ve kilitli brogram- ların incelemesini yapabilirsiniz. Autorun yapan programlar vektör- ler üzerine data yüklemekte ve READY durumunda vektörlerde bulunan ad- reslere sıçramaktadır. Bu adreslerin $300 ile $033C arasında olduğunu belirtelim. Eğer programın gösterdiği adres bu aralıkta ise uygun ötelemeyle vektör- lere yüklenen değerleri bulabilirsiniz. Ayırca turbo programların çoğunluğu “kaset buffer” denilen $0351-$03FB veya $02A7-$02FF arasında olabi- lir. Bunun için uygun bir monitör prog- ramı bularak (kırk kez tekrarlamama rağmen bu program önemli) çalışma- ya başlayın. Program dosya çevirisini de ver- mektedir. Eğer FİLE tipi 1 ise kayıt BA- SIC bölgesine yapılır. Directory Düzenleyici Eğer diskette programınız varsa ve biraz da ustaysanız directory'yi aldık- tan sonra cursor ile programın isminin yazılı olduğu satıra gidip “LOAD” ya- zıp arkasından isminin bittiği yerden “,8.1“ yazıp [RETURN] ıle programı yük- Ieyınız Verdiğiniz ram ile “,8,1“ işlemi dıskeîınıze cisim uzunluğu 13 karakterden kısoyscı) eklenecektir; böylece sadece “LOAD” yazarak programınızı yükleyebilirsiniz. Eğer is- min yanında yeteri kadar boşluk yok- sa “,8:” 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 **” işlemi uzunluğun yeterli oldu- ğunu belirtir. Karşısında **” işareti ol- mayan programlar için bu işlem ya- pılmaz. Bu işlem için disketten koruma ban- dını çıkarmayı unufmayın. 5 POKE53280,8:POKE53281,8 6 PRİNT" d DİRECTORY DÜZENLEYİCİ x1986x 7 PRİNT" W SEYFIİ & OZANKEI 8 INPUT "iİ-BUTUN DISKET (E/H)";J$ 18 OPENİ,8,15 13 OPENE,8,2,"#" 15 PRIİNT"FİLE HDL.RRI" 30 T>18:5-1 48 IF T-O THEN CLOSEİ:CLOSE2:END 45 PRIİNT#Lİ,"Ul 2 0";T:S:DsT:Es-S 3O GETH2,ASiT-ASCLASLCHRSCA)) 6O GET$K2,ASISsASCLAŞLCKRSCA)) 80 Ps2 90 I1F P>255 THEN P-sP-256:60T0 40 35 PRIİNTHL1,"B-P 2";P 190 GETHa,AS:IF A$<)CHRSCİ3D)THEN P-P4*32:60T0 90 110 GETH2,AS:GETH2,AS 120 B$-"":FORI-iİ TÜ 16 130 GETH2,AS:BL-BStAL 140 I1F ASCCAS)-160 THEN 168 130 NEXT 160 PRINTB$: I1F 1213 THEN P-P432:60T0 38 178 GOSUB 1ff8 188 PzP4*32:60T0 88 198 END 1000 S$5",8,1":1FI>12 THEN S$-",Bı" 41081 PRINT" 5a 1885 IF J$z”E" THEN PRIİNT:6G0T0O 1810 1086 INPUT" <EZH)";V$ 18087 PRINT."D” 18608 IF V$z"H" THEN 1838 1818 PRINT#H1İ,"B-P 2";P4*143 1020 PRINTH2,S5$; 1025 PRINTH1,"U2 2 A":D;E 1030 RETURN 1 REM 2 REM * KASET HERDER * 10 POKES32860,€ 28 POKE53281,£ 3A PRİNT"CEDERKASETİ KOYUP SRETURNE TUSUNA BASIN 40 GETAS: İFASLİCHRSCİ3)THEN 40 530 5YS 63276 Si PRİNT:PRİNT:PRİNT"PROGRAMIN IİSMİIz"; 52 FOR1-833 TO 833t154PRIİNT CHRS<PEEKCİ 3)7 :NEXT 68 PRIİINT:PRİNT "FİLE TİPİ-"PEEK(828) 76 PRINT"i1-BASIC PR. 3-MACHIİNE PR. 4-SEO FİLE" 73 AFPEEK (8B29)12564*PEEKL830):BARSA:GOSUR 9300 80 PRIİNT:PRİNT”"BASLANGIC ADRESİ- S$"ASH;"-";BAA SO AZŞPEEK(831)42564PEEK(832):1BIASA:GOSUB 9OW 95 PRIİINT”BİTIİS ADRESİ....E T"ASHİ -" ABILA 98 F BAA<S2S THENPRİNT" aB ARUTOSTART PROGRAM KlzNI 100 A-Si INPUT "OKAC BLOK OTELENECEK" 3A 110 POKES330,PEEKC830) *A 120 POKES32,PEEK(832) tA 138 INPUT "DEVAM CEZH)";ASF 1408 IF A$<>”E" THEN END 150 SYS 62813 NO 900 A$z"":FORIİI-3 TO & STEP -i 9i1iB BEİNTCAZ(C1İ6t1))1ASA-BAİStI 920 AHzASLCHRSLCBA448-740B>9)) 930 NEKXT:RETURN 940 ASCCMID$SLB$,I,L))4*74CMIDSLBS,I,1)>"9")-48:RETURN