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 >
Wrap
Commodore BASIC
|
2022-10-26
|
623b
|
20 lines
10 rem drumsynth boot
20 :
30 poke53280,13:poke53281,5:print"[147]"spc(14)chr$(34)"drumsynth"chr$(34)
40 print""spc(5)"written by andrew leeder, 1987"
50 print""spc(8)"use a joystick in port 2"
60 print""spc(2)"please allow 60 seconds for loading"
70 ifa=1thengoto90
80 a=1:load"ds.chars",8,1
90 ifb=1thengoto110
100 b=1:load"ds.sprites",8,1
110 ifc=1thengoto130
120 c=1:load"ds.mc1",8,1
130 ifd=1thengoto150
140 d=1:load"ds.mc2",8,1
150 fora=0to255:sys49411,16384+(a*35),35,0:nexta:fora=16384to25344step35
160 pokea,int(rnd(1)*6)+1:pokea+1,int(rnd(1)*6)+1:pokea+2,int(rnd(1)*6)+1:nexta
170 print"new":print"load"chr$(34)"ds.bas"chr$(34)",8"
180 poke14336,0:poke16383,0:poke198,7:fora=1to7:readb:poke630+a,b:nexta:clr:new
190 data19,13,13,82,85,78,13