home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / TERMINAL.FOR < prev    next >
Encoding:
Text File  |  1989-10-13  |  862 b   |  35 lines
  1.        INCLUDE 'MISCIOFI.FOR'
  2.  
  3.  
  4.        INTEGER * 2 i,err
  5.        CHARACTER * 80 r,t
  6.        CHARACTER c,scancode
  7.  
  8.        DO i = 1, 80
  9.          r(i:i) = CHAR(32)
  10.        END DO
  11.  
  12.        PRINT *, 'DO NOT RUN THIS PROGRAM UNLESS YOU ARE RECEIVING'
  13.        PRINT *, 'CHARACTERS OVER THE COM PORT.  ENTER Q <ENTER> to Quit'
  14.        PRINT *, 'INPUT STRING NOT ECHOED UNTIL <ENTER> PRESSED.'
  15.        CALL OPEN_COM(0,9600,0,1,8,0,err)
  16.        DO WHILE (t(1:1) .NE. 'Q')
  17.          i = 1
  18.          c = 'A'
  19.          DO WHILE (c .NE. CHAR(13))
  20.            CALL ReadKey(c,scancode)
  21.            IF (c .NE. CHAR(13)) THEN
  22.              t(i:i) = c
  23.              i = i + 1
  24.            END IF
  25.          END DO
  26.          PRINT *,t
  27.          CALL WRITELN_COM(t,err)
  28.          CALL READLN_COM(r,err)
  29.          PRINT *,r
  30.        END DO
  31.  
  32.        CALL Close_Com
  33.       END
  34.  
  35.