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 >
Commodore BASIC  |  2022-10-26  |  413b  |  21 lines
  1. 150 poke53280,0:print"[151]":poke53265,11
  2. 160 forb=0to6:readc(b):nextb:restore:forj=6to0step-1:readd(j):nextj
  3. 170 fori=54272to54295:pokei,0:next
  4. 180 poke54272+22,50
  5. 190 poke54278,255:poke54272+23,50
  6. 200 poke54276,23:poke54276,23
  7. 210 fore1=15to7step-2.5
  8. 220 fore2=7to15step+2.5
  9. 230 forb=0to6:forj=0to6
  10. 240 poke54287,c(b)
  11. 250 fora=255to0step-4
  12. 260 poke54296,e1:poke54273,a
  13. 270 nexta
  14. 280 poke54287,d(j)
  15. 290 form=0to255step+2
  16. 300 poke54296,e2:poke54273,m
  17. 310 nextm
  18. 320 nextj:nextb:nexte2:nexte1
  19. 330 data23,21,21,19,19,18,19
  20. 340 poke53265,27:poke54296,0
  21.