Pencereler-$001B

Commodore sayı 58, Aralık 1990 · sayfa 42, 43, 44

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.

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

Asal Çarpanlar-$0018

Bu programla bir sayının asal olup olmadığını çok az bekleyerek öğrenebilirsiniz. Eğer sayı asal değilse asal olan çarpanları küçükten büyüğe doğru sıralanacaktır. Çok büyük sayıları çabucak asal çarpanlarına ayırmak için kullanabileceğiniz bu program 999.999.937'nin asal olduğunu bulmak için sadece 6.5 dakika harcamaktadır.

Liste Durdurucu-$001C

C128'de No Scroll tuşuna basarak listelemeyi durdurabilirsiniz. Şimdiye kadar C64 için böyle bir olanak yoktu, yalnızca CTRL tuşuna basarak listelemeyi yavaşlatabiliyordunuz. Bu programı yazıp çalıştırdıktan sonra CTRL/S tuş kombinasyonu ile listelemeyi tamamen durdurabilir ve BOŞLUK tuşuna basarak devam edebilirsiniz.

Klavyeye ilk kez dokunacaklar için...

PİM

ADİ : LİSTE DÜRDÜRÜCÜ
O0010 XsSA TÜ SA#*SZ:READ N:C
X,N: NEXT |
İF THEN
ARI HATALI...
UDATA SATI
00030 SYS SA
DATA
1,21,3,öö,90,105,145,201,251,Z20ö
DATA
69,49,141,20,
O0080 DATA 208, 2S0, 32,0
234
<ı129>
RL
<ÜT0)
<033>
<153>

G