@groovebox, post #2
@mccnex, post #1
@Azzorek, post #4
@mccnex, post #8
@mccnex, post #7
@Azzorek, post #11
@mccnex, post #12
@mccnex, post #7
'
' --- SCREEN 1 ---
'
Screen Open 0,640,32,16,Hires
Palette $888,$FFF,$68B,$0,$777,$A98,$FA9,$A9E,$AAC,$ABB,$6C6,$EB5,$C44,$333,$CCB,$DDD,,$FFB,$F00,$0
Flash Off : Curs Off : Cls 0 : Paper 0 : Pen 3
Screen Display 0,,26,,
'
' --- SCREEN 2 ---
'
Screen Open 1,640,160,16,Hires
Palette $BBA,$FFF,$68B,$0,$777,$A98,$FA9,$A9E,$AAC,$ABB,$6C6,$EB5,$C44,$333,$CCB,$DDD,,$FFB,$F00,$0
Flash Off : Curs Off : Cls 0 : Paper 0 : Pen 1
Screen Display 1,,60,,
Screen 0
'
' --- SET MAX SPEED ---
'
_MIDISPEED=31250
'
' --- LOG FILE ---
'
Open Out 1,"RAM:mididata.log"
'
' --- CHECK SERIAL PORT ---
'
Trap Serial Open 0,0
If Errtrap=142 or Errtrap=145
Print "MIDI ERROR!"
Wait 100
Edit
Else
Locate 0,0 : Print "MIDI ON"
Gosub _MONITOR
End If
'
Screen 1
'
' --- SET SERIAL PARAMS ---
'
Serial Speed 0,_MIDISPEED
Serial Bits 0,8,1
Serial Parity 0,-1
Serial X 0,-1
'
'
'
Print "MIDI ON"
Print "ESC to exit & save RAM:mididata.log"
Print "SPACE to CLS"+Chr$(10)
'
' --- MAIN LOOP ---
'
Do
_MDATA$=Serial Input$(0)
If _MDATA$<>""
Pen 3 : Print "MIDI DATA:";_MDATA$
Print #1,_MDATA$
Gosub _MONITOR
End If
If Key State(69) Then Gosub _CLOSE
If Key State(64) Then Cls
Loop
'
'
'
_MONITOR:
Screen 0
N=0
Cls
Pen 11
A=Serial Status(N)
B=Serial Check(N)
C=Serial Error(N)
D=Serial Get(N)
E=Serial Base(N)
Locate 12,0 : Print " input:";_MDATA$;" "
Locate 12,1 : Print "status:";A;" "
Locate 32,0 : Print " check:";B;" "
Locate 32,1 : Print " error:";C;" "
Locate 52,0 : Print " get:";D;" "
Locate 52,1 : Print " base:";E;" "
Screen 1
Return
'
'
'
_CLOSE:
Serial Close 0
Close 1 : Rem *** LOG CLOSE
Print Chr$(10)+Chr$(13)+Pen$(1)+"File saved. RAM:mididata.log"
Wait 50
Edit
'
' by gr00veb0x
'@groovebox, post #16
@Azzorek, post #13
@mccnex, post #19
@mccnex, post #21
@mccnex, post #21
@Azzorek, post #23
@mccnex, post #25
@mccnex, post #26
@Adinfo, post #27
@mccnex, post #29