C64 için Püf Noktaları

Commodore sayı 44, Ekim 1989 · sayfa 18, 19

IRHENOKTAS E

Püf Noktaları

A-Z İNDEKS ETİKETLERİ

Bir spiral defterdeki sayfalara indeks etiketleri yapıştırarak sayfaları alfabetik sıra içinde düzenli tutabilir ve aradığınızı sonradan kolayca bulabilirsiniz. Bu etiketleri hazırlamak için aşağıdaki programı kullanabilirsiniz. Program 26 tane etiket basacaktır. Etiketler A'dan Z'ye işaretlidir.

Program Commodore'un MPS-1000 yazıcısıyla çalışmak için hazırlandığından, başka yazıcılarda kullanmadan önce satır aralığını ayarlamanız gerekir. Satır aralığını dört milim kadar marjinlerde ayarlamak için gereken komut şöyledir: OPEN4,4:PRINT#4,CHR$(27)CHR$(65)CHR$(n):CLOSE4

Yukarıdaki örnekte “n” 1 (0.4 cm.) ile 9 (3.6 cm.) arasında değişebilir. Eğer satır aralığı bir inçin 8/72'sine ayarlanacak olursa (0.28 cm.) birçok yazıcı ile iyi sonuç

PROGRAM ADI: İNDEKS ETİKETLERİ

REM A-Z İNDEK ETİKETLERİ
REM FOR 18716 ON AN
© PRİNTER
OPEN 6 .4.GLPRİNTHE .CHRSC ©
4.SıFOR Je63 TO BE STEP 2
BvAs0
Ye
©0248 .*
)-
.
PRİNTHA YUN
>-
un

POKE EDİCİ 64

Bu program bellek yerlerini ve içeriklerini çağırır ve poke etme işlemini gerçekleştiren diske bir dosya yazar. Örneğin bir beyaz ekran ve kırmızı sınır için, ilk çağırmada 53280, ikincide 3, üçüncüde 53281 ve dördüncüde 2 giriyorsunuz. Daha sonra POKE EDİCİ 64 sizi diski save etmeye çağırır. LOAD"POKER,8",8,1 girip SYS680 ile izlerseniz bu renkler ekranda derhal görülecektir. Şu sırada, POKE EDİCİ 600 numaradaki 19 poke ile sınırlı ama onu 49152'ye yerleştirirseniz POKER.49152 adlı 4300 poke içerebilecek bir dosya oluşturabilirsiniz.

ADI 1 POKE EDİCİ
©0208 REM
00816 - 12 P
MAK TMUM
INPUT EDİCİNİN Y
ERİ <esa>
PRİNT *CASPACEYCİKİS İCİN
T “POKE EDİLECEK AD
THEN Bü <ız7e>
©8040 PRİNT
F THEN GE
©0050 30
DEF
DAN
©0078 POKE B-1.NULFOR Mef TO STEP
<BBa>
©0088 POKE LENEKT
caza)
FOR NeBA TO
EKT
-191GOSUB 126
©0110 DATA 160.026 .162.000.165.189.002.24
0.020.133
00120 DATA 251 .208.163.189.002.193.25e
0.168.188 caza,
00130 DATA
6.231 ,826 <187>
62140 PRİNT , “PRO
GRAMI DİSKE “2
AİT 198.11GET Diş <ıs7>
IF TREN END
©0160
(855)
©0180 FOR P-BA TO MEPRİNTAL
(233)
82190 POKE

ONE OR ZERO?