home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #4 / Commodore_Disk_User_Vol.1_4_1988_-.d64 / drumsynth (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  623b  |  20 lines
  1. 10 rem drumsynth boot
  2. 20 :
  3. 30 poke53280,13:poke53281,5:print"[147]"spc(14)chr$(34)"drumsynth"chr$(34)
  4. 40 print""spc(5)"written by andrew leeder, 1987"
  5. 50 print""spc(8)"use a joystick in port 2"
  6. 60 print""spc(2)"please allow 60 seconds for loading"
  7. 70 ifa=1thengoto90
  8. 80 a=1:load"ds.chars",8,1
  9. 90 ifb=1thengoto110
  10. 100 b=1:load"ds.sprites",8,1
  11. 110 ifc=1thengoto130
  12. 120 c=1:load"ds.mc1",8,1
  13. 130 ifd=1thengoto150
  14. 140 d=1:load"ds.mc2",8,1
  15. 150 fora=0to255:sys49411,16384+(a*35),35,0:nexta:fora=16384to25344step35
  16. 160 pokea,int(rnd(1)*6)+1:pokea+1,int(rnd(1)*6)+1:pokea+2,int(rnd(1)*6)+1:nexta
  17. 170 print"new":print"load"chr$(34)"ds.bas"chr$(34)",8"
  18. 180 poke14336,0:poke16383,0:poke198,7:fora=1to7:readb:poke630+a,b:nexta:clr:new
  19. 190 data19,13,13,82,85,78,13
  20.