Bu sayfadaki yazılar
Sayfanın metni
Sayfa 30
Ekim ayında Compute dergisinde çıkan bu program ilginç ve oldukça işlevsel olduğu için Türkçe'ye uyarlayıp size sunmak istedik.
Animator 64 grafik, yazı ya da çizim olarak bu programla hazırlayacağınız 10 ekranı kolay ve çabuk olarak animate etmenizi sağlayacak. Programın BASIC'le yazılmış olması da bir diğer ilginç nokta.
Programı önce BDE ile yazın ve hemen SAVE edin. Sonra tekrar yükleyip kullanmaya başlayabilirsiniz. Aslında programın kullanılışı son derece kolay. Programı RUN ettiğinizde bir MENU ekranı karşınıza çıkacak. Menüde 0-9 numaralarıyla düzenleyeceğiniz ekranı seçmeniz istenecek. Eğer ekranları düzenlediyseniz. G)ÖSTERİ tuşuna basarak animate edilmiş halini görebilirsiniz. Ekranı kopyalamak için bir mod da menüde yer alıyor. Ayrıca parametreleri ve diskete ekran save etmeyi ve disketten ekran yüklemeyi menü komutlarıyla yapabilirsiniz. Tabii yine bir menü komutuyla programdan çıkabilirsiniz.
Düzenleyeceğiniz ekranı seçtiğinizde ekran kararacak ve düzenlemeniz için hazır hale gelecek. Ekranı renk, yazı ve grafik kodlarla düzenleyebilirsiniz. Tabii klavyede olanlarla. Yalnız düzenlerken ekranın en alt satırına inmemeye çalışın. İndiğinizde ekran SCROLL edeceğinden grafiğinizin üst satırı kaybolabilir. düzenlemeyi bitirdiğinizde RETURN tuşuna basın. Sonra menüye dönmek için bir kez daha RETURN tuşuna basmanız gerekecek.
Animasyonda genel yöntem, birinci ekranı ikinci ekrana kopyalayıp üzerinde ufak değişiklikler yapmaktır. Ekran kopyalama modu bunu yapıyor.
Parametrelerde ise iki ekranın geçişi arasındaki süreyi (PAUSE) belirleyerek ayarlayabilirsiniz. Ayrıca arka plan rengini ya da animasyonun ileri geri hareketini de ayarlamanız mümkün.
ANIMATOR BOOTER programı ise hazırladığınız ve SAVE ettiğiniz animasyonlarla özel açılış ekranı yapmanız amacıyla kullanılacak.
Bu programın 20. satırındaki S1$ değişkeni animasyonumuzun adını göstermeli.
— 30. satırındaki S2$ değişkeni boot edeceği programın ismini göstermeli.
— 40. satırdaki S3$ değişkeni de programınızın neyle başlayacağını (örneğin SYS 4815 ya da RUN) göstermeli.
Şimdiden başarılar.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 31
DATA 0,192,8,240,3,76,171,2,36 DIM FOR Rs1 TO REPRİNT FOR Rz8 TO /2856:NEXT R FOR TO 9:POKE 687,4:POKE 693,4: POKE POKE S R PRİNT 2 THEN PRİNT PRINT "ANIMATOR PRINT EKRAN DÜZENLEME<4SPACE > G)OSTERİ" PRINT METRELER * ET DAD ET PRİNT "CİKİS" PRİNT GET IF THEN 290 ON OTO ON OR ON 940 asa FOR Rsi TO IF UBz-1 AND BFsi THEN FOR TO 1 STEP 388 FOR TO NU 1108 FOR TÜ PACXXIINEXT PA GET " AND THEN 430 IF * GOTO 228 NEXT 368 GET A$tIF A$-"” THEN 448 RETURN THEN KOPY PRİNT "# EKRANINI”: 2 INPU T Ci PRİNT TCe PRINT "EKRAN FOR TO C3 POKE B93,PO<Ci,2) POKE 696,POCR,2) SYS 6739 NEKT R PRİNT "<CLR><2DOLİN)PARAMETRELER : <DO ” FOR R-s0 TO İF TH EN * *"<ASPACE >! A$INEXT PRINT “ARKAPLANCASPACE "BG PRINT "HI SCREEN u PRİNT T>* FOR Rs€ TO SEPRİNT Mü$; 3 INPUT PA<LR) R PRİNT İNPUT BG<1 OR BG>16 THEN PRİNT INPUT OR NÜ>393 THEN 576
"EKRAN "X1"DEN <4LEFT>": 2 INPU
PRINT : INPUT BF<>O AND BF <>1 THEN 578 POKE 52280,BG-İ:POKE 53281,BG-İ GOTO PRİNT DİSKETE SAVE ET:" PRINT "SAVE EDİLECEK ISMİ? PRINT "<CTAMAMLANINCA PRINT :PRİNT IF FI$-"CIKIS" THEN 220 PRINT :PRİNT :PRİNT "*x LÜTFEN BEKL EYİN xx" OPEN 15:0PE N 2,8,2,"0:"*Fis PRİNT#2 FOR TO R CLOSE £ OPEN 15,8,15,F3$:CLOSE 15 SYS 57812F2$,8:POKE 194, 7828:POKE 174,0:POKE 1İ75,152:5SYS 6295 4 PRINT :PRİNT SAVE EDİLİYOR":F OR TO 1000:NEXT R:G0TO
PRİNT MISINIZ?" GET OR AND "H" THEN 858 IF THEN 228 END PRINT İl
Anımator Booter
S1I$-z" ANIMATOR DATA DOSYAISM 1 BOOT EDİLECEK PROGRAM ADI
S3$-" ":REM PROGRAMI RUN EDECEK KO MUT DIM FOR TO