home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / tb / bascomm / mincom.bas < prev    next >
BASIC Source File  |  1987-05-05  |  149b  |  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.