home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / BASCOMM.ZIP / MINCOM.BAS < prev   
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.