Bu sayfadaki yazılar
Sayfanın metni
Sayfa 42
Verdiğiniz herhangi bir mesajı bu program yardımıyla 8 ayrı boyda yazabilirsiniz. Normal karakter setini kullanabileceğiniz gibi 12288 adresine yükleyeceğiniz karakter setlerini de basabilecek olan bu program hemen hemen bütün printerlerle çalışır.
PROGRAM ADI : BAYRAK YAZICI
ÜPEN ÜHRS(14):1F (PEEK(2S1) AND THEN Sü PÜKE 52,48:POKE 5ö,4ö:PÜKE 5ö5334,PE AND ZS4:PÜKE 1,PEEKLL) AN D 25) <Z0L) FOR TO :PÜKE 1,PEEKLL) ÜR 4 «197. PÜKE 5ö334,PEEK(563534) OR 1:PÜKE Sa 1,99 "MESAJ" 3 İHFU'T YÜKSEKLİR” ; Hikâs ll; Kizi. FOR Ws1 TÜ MİL 1) 3 AND 255: 5 FOR Ts7 TÜ O STEP FÜR Üz 1 TÜ HiFOR Js7 TÜ Ü İF AND THEN Üszü; FÜR TÜ <kVSÜ FF» 100 FÖR TÜ VW O HEXT NEXT W "BASKA BIR LEFTS GÖTÜ Sü Ü ÜLÜSE
Commodore 64'ünüzde pencere açmayı hiç denemediniz mi? Bu program pencere açma işlemini sizin için gerçekleştiriyor. Programda C değişkeni yerine pencere rengini, X1 ve Y1 değişkenleri yerine pencerenin sol üst noktasının koordinatlarını ve X, Y değişkenlerinin yerine de pencere boyutlarını yazın ve isteklerinize uygun bir pencere elde edin.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 43
PROGRAM ADI: PENCERELER
5000: > 5 F Cao THEM PÜKE ©4d4ö,C:PRİNT
<218> T .HEN 5010 <217> FÜR Is1 TO 05010 PRİNT TAB(X1); TO X:PRİ 05020 FOR 1-21 TO YıPRİNT TAB(XL); O TO “8 “çime. 05030 PRİNT T 3PRİNT HAN! FRİNT 20 <090) 05050 PRİNT TAB(19) RENİN
Donmuş Kursör-$001A
Programlarınızda giriş alırken bazen kursörün tuşlarla kontrol edilmemesini istersiniz. Yani kursör hareket ettirilmemelidir. Ayrıca ekran temizleme işlemi de engellenmek istenir. Programımız bu işlemleri gerçekleştiriyor.
SYS710 komutundan sonra kursörünüz donuyor ve aynı komutu tekrar verene kadar kursör tuşlarıyla kontrol edilemiyor.
4
138,205, 76.72,
Boşluk Temizleme-$0019
BASIC'le yazılmış programlarda bazen komutlar arasında boşluklar olur ve bunlar hiç gereksiz yere hafıza yerler. Ayrıca kendinize bir şey hatırlatmak için kullandığınız REM satırlarından sonraki karakterler de boş yere hafıza tutacaklardır. İşte bu programı yazıp çalıştırdığınız zaman BASIC programınızda boş yere yazılmış olan boşluklar ve REM komutlarından sonraki karakterler silineceklerdir.
ADI : BÖSLÜK
FOR Yo 49055:READ X İF THEN PRİNT UDATA ADET HAT YE THEN PRİNT YAZIM Siri. PRİNT NHAZIR. DATA 255 DATA 155,20,135,21,175,2 DATA 3,174,3,3,141,225 DATA DATA 102,193,l1al1,2,5,lal "YOLOO DATA YOLLO DATA — DATA DATA 177, 95,135,30, 200,177 DATA 102,4,134 00150 DATA 15,Z200,177,95,240, 34 DATA 201,34,208,8,105,15 00170 DATA 73,255,133,15,159,54 DATA
DATA DATA
O0Z10 DATA 251,1,232,202,169,0 DATA 232,1597,251,1,13a,11 “00230 DATA DATA V0Z50 DATA OOXZBO DATA 3,laz,3,3,760,l1ö V0Z70 DATA 164,108, 222,255