1 Eylül 1990 Tarihli Commodore Gazetesi Sayfa 26

KENAR SÜSÜ - $0003 Eğer bir program yaparken ekranın çevresini bir mo- tifle çerçevelemek isterseniz bu programı kullanabilirsi- niz. Programı kullanırken yazmanız gereken SYS49152, ekran kodu, renk kodu'dur. PPOĞPAM AMT : FKFEKARP SUSU 99910 EP-4315 2213) Oaozğa FüRr Ha BP TO BR4:99:REAN ArPOKE # OAd3O TeaTSA'MEKT tİF T0>140985 THEN PRINT HATA,. . "EHD 219> aaA0AN DATA 32,253,174.32,150,1739,32,247 <244) 00950 DATA 183.l40.0.4.32.253,l74,32 137 * 80060 DATA 158.173,32,247,193, Idü 2,016 <181) AaaTA DATA 162, 49 173 0,4,157,0,4 :089> O0A209 DATA 157,192.7,173,A,216,157,€ <05a) 00992 DATA E1&,157,192,215,20,16,235,169 <133) BOjA9 DATA 39.133.251,133,053,169.4.133 90110 DATA ;52 159,216.133,2354.162,84,173 <193* Afntığü DATA 160,0,145,€51.,20€,14â5 (184) 00130 DATA 25[.[ 3,0.216,145, ESB,ISB 145 <629> Oö1dü DATA 253.165,251.84.105, 1ğ4 (026) BPBISA DATA 230,252,230,254, 133 ESI 133 e5 2 (132)> A0ıkü DATA 202,208.220,95 <L4? dOZ00 PRİHT "COOLNİSRİGHTORMEK i " <231) OAZLO 5Y5 ER,42,PEEK(646) <131) PROGRAM ADI 1 PARLATICI ağ2d0 PRİNT "SCLR3" teddâs 00010 POKE 53280.9:POKE S3281,0:0D1M C$C16 YEiFOR Azü TO İSERCAN BtCSLA)ECHPESB NT danağ A$-"COMMODORE CASPACEYDERGİSİ" danda A#-"*HOME C TOOLMDE LİISPACE )" AF APaFO FOÖP A-1 a dad3d FÜR Az1S TO 1 STEP -İ:3PRİNT C$/AYAS « ENT :60 ü Bâ: van9aı DHTH 144,21,199,151,28,169,158,154, ISE,158,38,159,l55,158,!53,5 <19a> PARLATICI - $O004 Programlarınızda bir yazıya dikkati çekmek isterseniz bu programı kullanabilirsiniz. Bu program yazıların si- yahtan beyaza doğru tonlarını açar ve gri siyaha doğru koyulaştırır, böylece bir parlama efekti sağlanmış olur. PÜSKÜRTÜCÜ - $0005 Bu pragram da yazılarınızı ekramnın ortasından başla- yacak şekilde ekrana püskürtür aynı zamanda yazıları- nızın ortalanması sağlanır. PPOGRAM ADI 1 PUSKURTUCU N9İGA PÜKE 53283,6=POKE 53281.G:PRİNT *<C Oğee 4>(CLR <000> dadA5 FÜR O-1 (U 31READ A$IPRİINT <237) PAdIR A$z LEFTS(AS dA) <1a5> BAdğ15 FÖR C-1 TÜ LENCAŞI <B45)> fmasa BE-LEF TS(AS CO*RİIĞHTSCAS,Dİ:FOR Dü BİNEK <075> Baa3a PP!FU SPC((4B -LENCBR$) )/2) 1 "CUP3'BSt aaasa rEU 00050 NATA BU PROGRAM YAZILARINIZI EFRHNH (031) n0050 DATA ÜRTJINAL BİR BİCİMDE CİK ce23e> 00079 DATA DATA SATIRLARINA !STEDIGIHIZI YAZIN <(<071)