home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / turbobas / bascomm.arc / MINCOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-05  |  149 b   |  5 lines
  1. 100 CLS:LOCATE 1,1,1:OPEN "COM1:1200,E,7,1" AS #1
  2. 110 IF NOT EOF(1) THEN PRINT INPUT$(1, #1);
  3. 120 IF INSTAT THEN PRINT #1, INKEY$;
  4. 130 GOTO 110
  5.