Bu sayfadaki yazılar
Sayfanın metni
Sayfa 15
Bu sayıda dökümünü verdiğimiz program müzikle ilgili. Farzedin ki önünüzdeki klavye piyano; harfler de tuşlar. Farzedin ki siz ünlü bir bestecisiniz hayatınızın insanına hayatınızın bestesini yapacaksınız. Bir düşünün, yaptığınız besteyi veya besteleri istediğiniz isim altında kaydedip -kaset veya diskete- ele güne dinleteceksiniz. Yaşamınızdaki insan değişti, sakın nota kağıtlarını yırtıp atmayın (bestenizi silmeyin). Size önerimiz, başka bir isim altında, yaşamınızdaki yeni insanın ismi altında, yalnızca parça ismini değiştirerek saklayın. Sizden sonra gelecek kuşakları parçanızı tanıma zevkinden mahrum etmeyin.
Programı çalıştırdıktan sonra çıkacak seçenek, listeleri sizin istediğiniz alanda çalışmanıza yardımcı olacak, yol gösterecektir.
BASIC dilinde yazılmış bu programın anlaşılmasının kolay olması için REM'ler ayrıntılı olarak düzenlenmiştir. Farklı komutlar için yazılmış yazılar bu başlıklar altında toparlanmıştır.
10 no'lu satırda ekranın rengi ayarlanmaktadır.
30. satırda, başlamak için gerekli komutların bulunduğu, 10000. satırdaki alt programa dallanılır.
40. satırda başlığın basılması için 1900'deki alt programa dallanılır.
200-225 arası satırlar sesler için kullanılmaktadır.
350-381 arası satırlar Sid-Register'ini hazırlamak için düzenlenmiştir.
500-610 arası satırlar menü-2'yi görüntülemek ve seçiminizi belirleyebilmeniz için komut dökümünü vermek amacıyla düzenlenmiştir.
1000-1070 arası satırlar klavyeyi piyano olarak kullanmayı sağlar.
1100-1170 hangi tuşları kullanabileceğinizi gösterir.
1200-1297 müzik çalışmanızı sağlar.
1300-1325 arası klavyeyi piyano esnekliğinde kullanılabilmenizi sağlar.
1400-1465 nota girişleri düzenlenir.
1600-1685 şarkınızı kasette saklayabilmeniz için kullanılan bir alt programdır.
1700-1795 arası kasetten şarkıyı geri çağırmak içindir.
Bu şekilde komutlar REM'ler altında düzenlenmiştir.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 14
POKE 633,13:END PRİNT POKE 53280,6:POKE NE,5 DEF ROTAS
PRINT "<CTRL-7> RESİM BİTTİKTEN SON RA:” PRİNT
ACE>'S'iSAVYE RESİM PRINT " FONKSİYON PRINT RUN PRINT " <RETURN>: 'R' İLE N><CTRL-İ> " DONME ACISI (-45 -- 90) 5S OR THEN 138 COSCUUKU) INPUT "<2DOLN> BAKIS ACISI zz) 90) IF OR THEN 158 IN(CV kUU ) AUU) NNZz28: INPUT "<2DOLİN> CİZGİ SAYISI IF NNZ>68 OR NNZ<3 THEN 178 (V*UU ) 438 PPsas INPUT "<2DOLİN> X DEGER ) <aSPACE
SYS RO PRİNT 1 GET A$:IF AND THEN 248 SYS AU IF IF A$-"F" THEN RUN IF THEN END INPUT "RESİM ADI ";FL$:PRİNT VEYA >ISKET" : GET AND THEN 300 : IF A$-"T" THEN IF A$-"D" THEN SYS GS,FL$,GT:RUN
AND A$SLI"R" AND A AND
"<RVSO <RVSON>D<RVSOFF
POKE 53280,0:POKE "<C LR><CTRL-E>FONKSİYON ? <GEREKMİYORS A IİRETURNİ)" PRİNT "FNRCX) INPU THEN 108 PRİNT "RUNİ00":POKE 631,19:POKE 632,13:POKE 633,13 POKE 198,3:END PRİNT z50672 POKE 53280,6:POKE 53281,5:5YS NE,5 DEF <8 )*.D/18 PRİNT I DEĞİSKENLİ GRAFİK *4444<DOLN)" za/1sa PRİNT "<CTRL-7) RESİM BİTTİKTEN SON RA:
PRINT " İCİNCL2SPACE)>'S '3SAVE RESİM PRINT " FONKSİYON FONKSİYONU PRINT "<2âSPACE RUN PRINT " <RETURN>:'R' İLE AYNİI<EDOLİN ><CTRL-I> Uz75: INPUT "DONME ACISI (-45 99
(X ...... INPUT SYS KY "<CLR>"; GET AHLI"S" AND A AND ASLI"R" AND THEN 480 SYS AU IF THEN END IF OR THEN RUN
886 > IF A$-"F" THEN RUN INPUT "RESİM ADI N>T<RVSOFF)EYP VEYA <RVSON>D<RVSOFF >ISKET" GET A$:IF 458 IF THEN IF A$-"D" THEN SYS