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