home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
ADSR-DEMO
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
29 lines
5 PRINT"[147]":POKE53281,12:POKE646,0
10 PRINTTAB(8)CHR$(18)CHR$(169)CHR$(223)"[146] "
20 PRINTTAB(7)CHR$(18)CHR$(169)" "CHR$(223)
30 PRINTTAB(6)CHR$(18)CHR$(169)" "CHR$(223)
40 PRINTTAB(5)CHR$(18)CHR$(169)" "CHR$(223)
50 PRINTTAB(4)CHR$(18)CHR$(169)" "CHR$(223)
60 PRINTTAB(3)CHR$(18)CHR$(169)" "CHR$(223)
70 PRINTTAB(2)CHR$(18)CHR$(169)" "CHR$(223)
80 PRINTTAB(1)CHR$(18)CHR$(169)" "CHR$(223)
90 PRINT
100 PRINT" A D SUSTAIN R"
110 PRINT" T E E"
120 PRINT" T C L"
130 PRINT" A A E"
140 PRINT" C Y A"
150 PRINT" K S"
160 PRINT" E"
170 CL=55296:S=54272:W=S+4:AD=S+5:SR=S+6:V=S+24
175 POKEV,15:POKEAD,202:POKESR,58:POKES,135:POKES+1,33:POKEW,33
180 FORR=CLTOCL+5:FORU=RTOCL+1024STEP40
185 POKEU,1:NEXT:NEXT
190 FORR=CL+6TOCL+12:FORU=RTOCL+1024STEP40
195 POKEU,1:NEXT:NEXT
197 FORR=CL+13TOCL+23:FORU=RTOCL+1024STEP40
198 POKEU,1:NEXT:NEXT
200 POKEW,16:FORR=CL+24TOCL+28:FORU=RTOCL+1024STEP40
290 POKEU,1:NEXT:NEXT
300 FORT=STOS+28:POKET,0:NEXT