@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