home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 April
/
64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64
/
sound-prg.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
413b
|
21 lines
150 poke53280,0:print"[151]":poke53265,11
160 forb=0to6:readc(b):nextb:restore:forj=6to0step-1:readd(j):nextj
170 fori=54272to54295:pokei,0:next
180 poke54272+22,50
190 poke54278,255:poke54272+23,50
200 poke54276,23:poke54276,23
210 fore1=15to7step-2.5
220 fore2=7to15step+2.5
230 forb=0to6:forj=0to6
240 poke54287,c(b)
250 fora=255to0step-4
260 poke54296,e1:poke54273,a
270 nexta
280 poke54287,d(j)
290 form=0to255step+2
300 poke54296,e2:poke54273,m
310 nextm
320 nextj:nextb:nexte2:nexte1
330 data23,21,21,19,19,18,19
340 poke53265,27:poke54296,0