home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / terminal.bas < prev   
Encoding:
BASIC Source File  |  1998-01-31  |  469 b   |  22 lines
  1.  procedure terminal(port$)
  2.    open port$,1
  3.    loop
  4.       ! check input from rs232
  5.       loop
  6.          c%=comch%(1)
  7.          while c%
  8.          print chr$(c%);
  9.          endloop
  10.       ! check input from local kb
  11.       loop
  12.          k$=key$
  13.          while k$ <> chr$(0)
  14.          print #1, k$;
  15.          endloop
  16.       while k$ <> chr$(1)  ! ctrl a
  17.       endloop
  18.    endproc
  19. ! use GO terminal("COM1:9600,N,8,1,H") to start
  20. ! exits when you type CONTROL/A
  21.  
  22.