Müzik Programları

Commodore sayı 33, Kasım 1988 · sayfa 57, 58

PROGRAMLARI

Dergimizin 32. sayısında 28-30. sayfalarda yer alan Anıl Gül arkadaşımızın “Müzik” yazısında beş adet program bir hata sonucu basılmamıştır. Programları burada sunuyor ve okurlarımızdan özür diliyoruz.

PROGRAM ADI 1: PRG OL (MUZİK)
GATA 7 <a23>
©0001 READ A Az-I THEN END
FOR TO BiSYS 16
1 <166
00003 DATA 160,6,80,6,55,6,40,6,28,6,28,
6,20,3,20,3.20,3,20,3,28,3
00004 DATA
DATA 20,3,20,3,20,3,20,3,28,9,1,1,
40,3,40,3,40,3,40,3,55,6,55,6,80,3,
80,3
©0005 DATA 80,3,80,3,160,8,1,2,230,6 <ısı>
020006 DATA 210,6,180,6,150,1,100,1,150,1
08007 READ THEN 7 <236>
00008 FOR TO A:POK
E
120,32,253,174,32,158,183,163
00016 DATA
8,96 <ese>
00018 REM NOTA CALMA:SYS 48152,A
<815>
.
PROGRAM ADI : PRG 2 CÜSER P.)
©0018 POKE 56590,7 <e26>
INPUT <iasa>
60036
1256 <e4a>
©8040 POKE 56580,LO:POKE 56581,HI <ısa>
do d
PROGRAM :
casa : aa
: 85
co10 : A5
co18 : A8
coasa : aa
co28 : sA
: Da
: CS
ca40 : FB
: AD
: AD
: aa
coso : 85
cos8 : dc
Cö70 :
: DO
casa :
cos8 : aa
casa : 4c
casa : 88
: SB
:
: ci
coB8 : F5
coco : FB
: &3
caDa : a5
: sa
: FE
COE8 : AS
: Fa
: FD
c100 : FD
Cc108 : FD
Ci10 : FC
: ca
PRG 3 XLISTE)
ca
Be
73
AA
cg
c5
Da
E6
AS
AS
85
8D
cı
cs
AD
40
cı
ca
AS
ce
BA
AD
85
FB
ca
8n
6D
FB
Da
Ba
cD
85
80
AS
63
asa
FF
FB
Ea
FB
AS
e3
FB
s8
AB
Bİ
SA
AC
Fo
68
68
18
FC
Aa
sı
SA
FC
Aa
18
SA
99
FF
Bİ
BD
FB
85
Ba
sı
Da
Da
aa
AS
aa
68
A5
cı
00
FB
cı
ce
d4a
AS
638
FB
cı
4Cc
pa
AD
cı
ci
A2
E8
FB
68
AS
AS
FO
638
85
cı
FO
pa
E8
18
FB
SA
91
80
00
C9
AA
18
2С
41
A5
06
age
A0
ce
c&
AS
ci
De
cı9D
69 g2 64
85 2E£ FB
e5 FC F7
99 ci AA
FB 8D F4
sB ci
03 4C BA
04 BI 7F
090 18 A7
s8 cı sa
99 Ci BE
69 04 5D
s5 FC sa
sı FB E8
co 86 E3
FB AD 87
co A9 31
s3 ce 55
Ci 6D DE
FB AD BB
sB cı 85
BD 8D 80
88 DO B4
ce Bi 50
A5 2B AA
683 060 FE
sı FB DE
85 D8
85 80 31
cs 31
00 Bi 6B
FDAS S2
FE AS 838
FE C5 44
4c &6& 08
02 E6 (IB
Cci20 : FC 68 CE FB AS FB C9 FF DF 6.76,42,234,156,197,224
Fr ©0040 DATA 2,144,247,224,7,176,243
: DO 82 FC 60 A2 BO BD El ©0050 DATA 189,128,3,141,24,208,183,132,
: 3B Ci 20 D2 FF E8 C93 88 1D 3,141,136,2,24,32,16 <013>
: DO F5 60 11 12 48 2E 49 EC DATA 229,76,49,234,52,5,21,37,140,
iş: 128,132,136
: SE 44 2E 45 2E 20 S6 33 68 ©0100 FOR Ts828 TO T,
C148 : BE 32 92 4D 4F 4D 45 ES
. IF Z<>8420 THEN PRİNT "DATA SATI
: 4E 54 2a 42 49 54 54 45 gc RLARINDA
Ci58 : 20 281 OD ii SA 45 49 FC svs sea caa1>
Ci60 : 45 3A 20 A2 BE BD Da 4 k
C168 : 75 Ci 820 FF E8 Cg Ba &F
: DO FS 4€ C5 OD i2 52 BA PROGRAM ADI 1 PRG 5S
Ci78 : 4F Se Se 59 20 5g Sa SA FOR T-530B8 TO 53065:REAND
C180 : 47 28 SA 55 26 40 41 4E İF *ATPOKE aaa)
C188 : 47 2E 92 11 Si 1D 9E 00003 İF RP "DATA SATI
RLARINDA HATA VAR <aza
: 1D 1D 1D İD İD İD İD 88 586 svs 53000 cise
C198 : BO OD Sea FF FD 80005 DATA
2,208,247,163,41,141 134:
DATA
DATA S2,141,20,3,96,32,162,253,32,
192
PROGRAM ADI : PRG 4 (4 EKRAN) Boada DATA
1,120.2,169,13,141
00018 DATA 169,3,141,21,3,169,102,141,202 ©0009 DATA
00020 DATA 163,5,141,24,208,1€3,1,141,€, ©0810 PEM KA KAKA
221,169,0,133,51,169 REM * SIMDI KEMDİ PROGRAMINIZ * <143>
©0830 DATA 128,173,56,141,122,2,133,52,3 ©0012 REM CANI
Yine 32 sayımızın 54-57. sayfalarında yer — ecoze Poke 53272,26
alan C-64 için Püf Noktaları yazısında döküm TO
ekinde varolduğu belirtilen üç programı bula- DATA
madınız herhalde. Hatamızı bu sayıda özür di-
leyerek düzeltiyoruz. T7 253 <es6>
DATA 145,251,136,208,249,230,252,2
30 854 202,16 242,96 cana
PROGRAM ADI
PROGRAM ADI :
00010 REM PROGRAM-I
08100 DATA 32,44,247,32,108,245,169,32,1 PODES REN
41,202,2 <ası> ©2618 FOR TO 31803:READ
DATA 169,205,141,203,2,169,207,141 A 14:5YS 3072:BANKIS <116)
,204,2,96 <163> 2604, 8! ÖKE 217,4:BANMKI OR A
©0120 DATA 141,255,255,169,32,141,84,3,1 TG : NEX
€68,224,141 <183> kğ
08130 DATA 85,3,169,207,141,86,3,96,169, 00932 DATA 169,0.133,251,133,253,168,1698
00140 DATA 200,8,169,207,141,201,8,238,3 (036)
3,208,96 90940 145,251,136,2098,243,230,252,2
00150 DATA 169,32,141,41,1,169,0,141,42
1,169,208 <1se>
00168 GA ERE TA ADI!
©0170 DATA 163,128,141,35,8,36,0,0,8
REM FROGRAM-3 <aas>
©0186 FOR s8 : <
Pore READ FOR TÜ
& <188>
222, İF THEN PRİNT “DATA SAT
IRLARINDA HATA VAR. “SEND?
©2030 SYS B28 <131>
20040 DATA 120,163,0,168,133,251 <213>
020050 DATA 1638,160,133,252,177,251 <104>
PROGRAM ADI CE4/EK*ZA ©0060 DATA 145,251,136,208,249,230 <a07>
DATA 252,208,245,169,255,141 <ada>
M0005 REM PROGRAM-E / <a25> DATA 136,235,141,174,235,141 <216>
FOR TO 8591READ BiPOKE A 920330 DATE 176,235,141,180,235,141
56333,187:FOKE 1,5135 001080 DATA 201,235,141,245,235,163 <182>
VS 1,55 ©8110 DATA <ada9>