home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
basic-sound
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
586b
|
24 lines
0 fort=54272 to 54296:poket,0:next
1 :
2 rem: ^^^^ sound chip loeschen ^^^^
3 rem:-----------------------------
4 :
10 poke54296,15 :rem volume 15
20 poke54272+5,9 :rem ad (stimme1)
30 poke54272+12,9 :rem ad (stimme2)
40 poke54272+6,240 :rem sr (stimme1)
50 poke54272+13,240:rem sr (stimme2)
60 poke54272+4,19 :rem syncronisation
70 poke54272+11,21 :rem ringmodulation
80 poke54272+8,111 :rem frq.hi(stimme2)
90 poke54272+15,12 :rem frq.hi(stimme3)
91 :
100 fort=0 to 255:poke54273,t:next
101 :
110 rem^^ freq.stimme1 hochzaehlen ^^
111 :
120 poke54296,0:end :rem schluss
121 :
122 in zeile 80 poke-wert auf 111
123 oder 144 oder 44