Fluke 225C Programming Reference Manual page 45

'
'****************** Response subroutine *********************
'This subroutine reads bytes from the RS232 buffer as long
'as they enter. When no bytes enter for 1 second, the program
'assumes that the ScopeMeter has terminated its response.
'All bytes that enter the buffer are appended to the string
'Resp$.
Response:
start! = TIMER
'Wait for bytes (maximum 1 s) to enter RS232 buffer
WHILE ((TIMER < (start! + 1)) AND (LOC(1) = 0))
WEND
IF LOC(1) > 0 THEN
OPEN "Setup0" FOR OUTPUT AS #2
DO
LOOP WHILE LOC(1) > 0
CLOSE #2
END IF
RETURN
'******************
' LOC(1) gives the number of bytes waiting:
ScopeInput$ = INPUT$(LOC(1), #1)
PRINT #2, ScopeInput$;
start! = TIMER
WHILE ((TIMER < (start! + 1)) AND (LOC(1) = 0))
WEND
End example program
Page 3.33
'If RS232 buffer contains bytes
'Repeat as long as bytes enter
'File for setup data
'Input bytes
******************