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