Measurement Computing Micro 488/EX rev.2.1 - Manual (Page 218)

Appendix D Sample Programs
D.4
300 ' enable Macro #4 to execute on error detection
310 PRINT#1,"on error domacro 4"
320 '
330 ' Xon Main Loop
340 '
350 PRINT#1,XON$;
360 WHILE NOT EOF(1)
370 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;
380 PRINT INPUT$(1,1);
390 ' if greater than 100 characters in buffer then Xoff
400 IF LOC(1) > 100 THEN GOTO 440
410 WEND
420 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;
430 GOTO 360
440 '
450 ' Xoff Main Loop
460 '
470 PRINT#1,XOFF$;
480 WHILE NOT EOF(1)
490 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;
500 PRINT INPUT$(1,1);
510 WEND
520 GOTO 350