01-23-2024, 08:09 PM
I think you want to keep receiving bytes until an enter is received.
So probably something like
Furthermore, try changing the open statement to something like:
So probably something like
Code: (Select All)
Do
If Loc(1) <> 0 Then Get #1, , byte
If byte > Chr$(13) Then
KILLFILE$ = KILLFILE$ + byte
Else
Exit Do
End If
LoopFurthermore, try changing the open statement to something like:
Code: (Select All)
Open "COM5:9600,E,8,1,BIN,CS0,DS0,RB8192" For Random As #1
45y and 2M lines of MBASIC>BASICA>QBASIC>QBX>QB64 experience