1 Ekim 1990 Tarihli Commodore Gazetesi Sayfa 49

langıç adresini inceleyebilirsiniz. Programdan çıkmak is- tediğiniz zaman programın adı yerine SON yazmanız ye- terlidir. PROGRAM ADI : BASLANGIC ADRESİ 000065 HXCI'GI!MSC TOSDABCDEE" <a67) 00010 PRİNT CHR$C14)CHRSC8)"<OLRİ'IPOKE | 9,117INPUT "ÇCDOWN><(2SPACE )EROGRAMI ISM: SÖNC3LEFT) " 3NMS <128) 60020 POKE 19.,0:PRINT <813)> 00030 I1F NM&z"SÖN" THEN Böddü I1F I.-EN(N"DIC 'I'İ'EN NME-LEFTS (NM - $,16 (165) BB05a DFEN E,İıâımi'ıPıR'lm DE.HCİET 00055 n-nac(nounscıma-m(aımcın (m 00060 AHSINTCA/IĞ):ALSA-AHALE <209 00070 BHzİNTCB/16):BLaB-BH1 16 08080 PRİNT "<EDÖLİN)C2SP ESİ-';BR2S6YAZ' , $") <047) B0890 PRİNT MİD$(HX$,BH*1, 1)MİOSCKKS,BLAİ — - : DDMTOSCKXS,AKS I, DMİDSECKXS ALAI, I) CIZS) 00100 ÖPEN: 15,8,1511NPUTWİS,E,E$,T,&S (185) O8110 PRİNT “CDOKND<CESPACEY'E"i "ES“ ÇÜT* .'8 Ge120 CLÜSE 15 08130 PRIİNT '(MNW)BUTFEN BIR TU SA <ad8> Büldö GET At IF nı-'-om'o 40 €844) ' 60150 RUN *192) Ekran Aşağı - Yukarı - $000B İşte ekran düzenine ve görüntüsüne önem veren arka- daşlar için şahane bir program. artık ekrandaki yazıları değiştirirken daha usta işi görüntüler elde edebileceksi- niz. Programımız ekranda yazılı bulunan her türlü şeyi (ne yazık ki yalnızca standart karakter ekranlarını) aşa- ğı ve sonra da yukarı doğru kaydırır. Bu işlemin nasıl ol- düğunu göstermek için dataların yanında bir de uygula- ması verilmiştir. SYS49152 komutu ile ekran aşağı doğ- ru kaydırılır. Şimdi ekrandaki yazıyı istediğiniz gibi de- Biştirebilirsiniz. Daha sonra da SYS49182 komutuyla ek- ran geri, yukarı doğru kaydırılır. PROGRAM ADI 1 EKRAN ASAĞI&YUKARI 00010 FOR R-49152 TÜ 4928351READ A:POKE R, ALTP :NE (097> oaa20 IF TF()IESSE TPEN FRINT "DATA HATAS <182)> 00030 POKE 16383 <081) Basd (168) POKE SSBBUJIPM 532891,8 00050 SYS 489152 < 00060 PRIİNT "<CLR3":PRİNT “<ADOKİNDD<CCTRL-E »( 1OSPACE COMMODÜRE DERGİSİ" 60070 PRIİNT "<DOKN> 5SYS49152 EKRAN ASAĞI" <(8235) ©08880 PRİNT “<DOKN> SYS49182 EKRAN YUKARI <084) ©0090 SYS 4da9l1a2 <085) ©0100 END <102) 81000 DATI 120. ISS 57, 133, &54, 169, n 265, . 2089, 85i <o2a) B1818 DATA 32, 60. 182, 230, 254, 165, & » 801, 255, 208, 238, 169 <ÖLL> ©1020 DATA ©, 141, 17, 808, 88, 96, 180, 169, 255, 133, 254, 169 <059) 01038 DATA 45, 205, 18, 208, 268, 251, 3 , SÖ, 192, 198, 254, 16 <179) 01040 DATI ., 801, 208, 238, 169, 87, 1di, 17, 208, 88, 96 <(182) 01050 DATA (166, 254 240. 19, 173, 18, 2 68, 169, 41, 7, 9, 16 <082)> 01060 DATA 804d, 18, EOS. 2d0, 2S1, idı, 17, 808, 202, 208, 237, 96 <B71) OLD - $000€ Bir program hafızadayken NEW komutu verdiniz, ama bırdm hatırladınız ki programı kaydetmemiştiniz. İşin yoksa bir sürü POKE ve SYS yazıp eski programı geri almaya uğraş. OLD, programı sizi bütün bu uğraşlardan kurtarıyor. geri çağırmak için SYS 300 komutunu yazmanız yeterli olur PROGRAM ADI ! i:ıı.o B8018 FOR R-sıı TO 326:READ A:POKE R,AIBz BYA Booza tF snasca THEN FRİNT *DATA HATASI. <812) 60030 PRiNT "SYsS 300" <1a8) 800dü END <a4a) 01080 DA 169,255,160,1,145,43,382,51 <075) O10610 DATA 165,165,34,24,105,2,133,45 <113) DATA 165,35,105,0,133,46,76,894 <ı158) 01030 DATA 166,73,141 «119> Kafa Zıplatıcı - $000D Bu program, komut kanalından diske bir dizi emir gön- dererek sürücünün kafasını zıplatır. Ancak bu programı sürücünüz yükleme sorunları çıkardığında kullanmanızı tavsiye ederiz. Çünkü sürücünün kafası sağlamken bu grı]şrgramı çalıştırırsanız, sağlam olan kafa ayarı bozula- SANAY TİĞARET =W Tal: (1) 558 12 54 49