home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 84
/
64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_B.d64
/
miditest
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
227b
|
14 lines
100 rem *** midi-test ***
110 ifa=0thena=1:load"midifile",8,1
120 sys 51968:print"[147]"
130 for i=1 to 8
140 read b:print b
150 sys 51987,b
160 next i
170 print"":for i=1 to 8
180 sys 51997
190 printtab(12)peek(780)
200 next i
210 data 12,7,9,4,6,3,57,3
220 poke198,0:wait198,1:sys64738