' MIDI note #60 is 261.63 Hz
dim nt(127)
for i = 0 to 63   ' build table of frequencies
 nt(i)=110*2^(i/12)
next i

open "test3.txt" for input as #1
timer = 0
do
 line input #1,a$
 if a$ = "0, 0, End_of_file" then exit do
 chan$ = field$(a$,1,",")
 if chan$ = "7" then         ' listen to this channel
   ty$ = field$(a$,3,",")          ' event type
   if ty$ = "Note_on_c" then       ' only care about Note On
     ? a$
     tm = 4*val(field$(a$,2,","))  ' event time - 256 ticks per second (4 is slow)
     vel  = val(field$(a$,6,","))  ' event velocity (0=off)
     note = val(field$(a$,5,","))  ' event note
     do : loop until timer > tm    ' wait for previous event to finish
     if vel then
       play sound 1,b,t,nt(note-45) '<===========  !!!!!!!????
     else
       play stop   ' stop note if velocity is zero
     endif
   elseif ty$ = "End_track" then
     play stop
     exit do
   endif
 endif
loop
play stop
close #1

CLS
x = MM.HRES/2
y = MM.VRES/2

r1 = min(x,y)-20
r2 = r1+5
rad1 = 0
rad2 = 5 + RND()*30

DO
ARC x, y, r1, r2, rad1, rad2, RGB(RND()*255,RND()*255,RND()*255)
rad1 = rad2
rad2 = rad1 +5+RND()*30
' pause 1 ' this pause is need to allow USB keyboard to be heard.
LOOP UNTIL inkey$ <> ""

do
 read a
 if a = 0 then exit do
 read b,c,d,e,f$
 ? a,b,c,d,e,f$
loop
end
data 1,2,3,4,5,"A",1,2,3,4,5
data "B"
data 1,2,3,4,5,"C"
data 0

1       2       3       4       5      A
1       2       3       4       5      0
1       2       3       4       5      C

do
 read a
 if a = 0 then exit do
 read b,c,d,e : read f$
 ? a,b,c,d,e,f$
loop
end
data 1,2,3,4,5,"A",1,2,3,4,5
data "B"
data 1,2,3,4,5,"C"
data 0

data 1,2,3,4,5,"A",6,7,8,9,10
data "B"
data 11,12,13,14,15,"C"
data 0

'mode 1,8    ' works fine
mode 1,12   ' no workie
'mode 1,16   ' works fine

cls rgb(grey)  ' better visibility

dim px(4) = (500,633,440,194,229)
dim py(4) = ( 88,329,531,413,139)

polygon 5,px(),py(),,rgb(red)

do : loop until inkey$ <> ""

...
 readNbytes% = bytesRead%
END FUNCTION
'Basic program ends here.
#COMMENT START
A 4MB binary here...
#COMMENT END

> *marWithPayload
Line is too long