1 Haziran 1989 Tarihli Commodore Gazetesi Sayfa 49

programda daha rahat bulabilirsiniz. (Program 8) Bu programı kullanmak için önce bu programı yükleyin, sonra da onu gizlemek için yukarıda anlatılan me- todu uygulayın. ndan, crunch et- mek istediğiniz programı yükleyin. POKE43,1: POKE 44,8 ile cruncher programınız çalışmaya hazır hale ge- lecektir. 8000 - 9FFF 32768 - 40959 VSP (Video/Sound Package) kar- tuşu için ROM - — 8192 bayt. Bu kartuş, BASIC 2.0'ın eksikli- ğinden dolayı Commodore'un bir za- manlar ses ve sprite programlamayı kolaylaştırmak için çıkarmayı düşün- düğü bir projeydi. Bellek kaybı yü- zünden bu proje asla uygulamaya konmadı. A000 - BEFF — 40960 - 49151 Burası BASIC'in oturduğu yerdir. 1 numaralı adresi kullanarak geçici bir süre için BASIC'i yoketmek mümkündür ancak çoğumuz böyle bir şeye teşebbüs etme ihtiyacı duy- mazken BASIC'e ihtiyaç duymayan makine dili programcıları bunu ger- çekleştirebilirler. Evet, böylelikle O'dan başlayıp 49151 numaralı adrese gelmiş bulu- nuyoruz ki bu da yeni bir başlangıcı temsil ediyor. Gelecek aydan itibaren 64'ün grafik ve ses bölgelerini ince- lemeye başlayacağız. PROGRAM ADI : PRE-7 09998 END Ş <a86)> 166860 REM RENUMBER <esı> 10018 Ye-2048:Y7-18 <bsb> 186020 IF PEEK(Y6*3)—64 AND PEEK(Y6t*d)—-39 T H <035> 18030 YEzİNT(Y7/256) 1Y9EY7-256XYG:POKE Y& 13,YP:POKE YE44,Y8 <133> 160480 IF PEEK(Y64*5)C38 THEN YözY6t1:60TO 18 <105> 10050 YZ-Y74110:Y6-Y645:60TO 186020 <e7a> PROĞGRAM ADI : PRG-8 BöBG1 INPUT BASLANGIC,BITIS SATIRI ŞLşllr C—2049 1B-256 1E-PEEK(45)4*BXPEEK(46)- 4 <224> 60062 LT—-PEEK(C4*2>4*BXPEEKCC4*3).PRIİINT LT3 <136> 808603 IF LT<L THEN C-PEEKCC)*BXPEEKCC41)1 GöTÜ 2 <caesı> 80804 IF LT>L THEN PRİNT SATIR BULUNAMAD ! sEND <027)> 08005 BAĞLAŞCICEC14d <173> 888004 GEPEEKLCİsİF 0G<>8 THEN C-Ct*1:6G0T0 & <831) 90007 IF PEEKCCt1)4*PEEKLCt2)—0 THEN END <158> 80808 LT-PEEKCCt*3)*BXPEEKLC*dİ:PRİNT LT3 <142> 00009 IF LTSU THEN C-Ct 1:;POKE BAĞLA,C-INT <C/BİXBıPÜKE BAĞLAtİ,C/B:ĞOTÜU 5 <B11> 88818 POKE CşASCC * YeFOR JalCti TO E:G-PE EK(J414) <G19> 09811 POKE J,GiNEXT 1E-E-4160TÜ & <246> COMâHOP FİATLARA DİKKAT Burada herhes için birşeyler OUİCKSHOT Vil JOYSTICK 19.500 TL. BOŞ DİSKET FİATLARI: 5.25 Maxell (2D).....3.000 TL. 5.25 Maxell [HD % TPI) 5.25 WABSH FUJI - BASF 5.25 SENTİNEL... 2 000 TL. 5.25 NONAME.....1.500 3.5 PARROT IZD).... 7.500 TL. 3.5 MVSsessscenı 7.000 TL. 3.5 FUJİ-MAXELL-SONY....6.000 TL. 3.5 VERBATIM.......4.500 TL. DİSKET KUTUSU: 5.25 100 adeılık PRINTER İ: Epson FX 100/1000.... ZSOOCITL MPS 1000/1250.......20.000 TI YAZICI KAĞITLARI: üumkhFonm Tek nusha [I000 adeıl Ayrıca her türlü çok nüshalı baskılı ve baskısız form ve etiket çeşitleri, TELEKS ve FAKS kağıtları. IBM programları için özel listemizi isteyiniz. IKTAŞ sı.ıısıılz leuı:'rl ı:ıin. VE ÜSTÜN KALİTE İÇİN... Nadide Sok. No: 33 Bağkur Blokları Merter - İstanbul TiIf: (9/1) 584 19 44