home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XTERM.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  2.1 KB  |  79 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.     Terminal Emulation program (PC <---> PC or PC <---> Mainframe)
  7.     ==========================
  8.  
  9.     Everything we get from the COM1 will be shown in
  10.     Receive window
  11.     and every character typed using the keyboard will
  12.     be transmitted through COM1.
  13.     
  14.     This process will be aborted when the user presses Esc.
  15.  
  16. ****************************************************************/
  17.  
  18.  
  19. project "xterm"
  20.  
  21. include "tdoms.pro"
  22. include "comglobs.pro"
  23. include "tpreds.pro"
  24. include "status.pro"
  25. include "menu.pro"
  26.  
  27. Predicates
  28.   run
  29.   terminal
  30.   chk_rdch
  31.   chk_wrch
  32.   rdch_CRLF_RS232(Char)
  33.   wrch_CRLF(Char)
  34.   trans_ch(Char)
  35.  
  36. GOAL run.
  37.  
  38. Clauses
  39.   run :-
  40.     makewindow(2, 42,36," Transmit window ", 0,0,12,80),
  41.         makewindow(3, 63,5," Receive window ", 12,0,12,80),
  42.     PortNo        =     1,    /* COM1 */
  43.     InputBufSize    =    1,    /* Size of input buffer */
  44.     OutputBufSize    =    1,    /* Size of output buffer */
  45.     BaudRate    =    7,    /* 9600 bits per second    */
  46.     Parity        =    0,    /* No parity        */
  47.     WordLength    =    3,    /* Eight data bits    */
  48.     StopBits    =    0,    /* One stop bits    */
  49.       Protocol    =     0,    /* Fully asynchronous    */
  50.       openRs232(PortNo, InputBufSize, OutputBufSize, BaudRate, Parity,
  51.             WordLength, StopBits, Protocol),
  52.     terminal, !,closeRS232(1).
  53.  
  54.   run :- closeRS232(1).
  55.  
  56.  
  57. /****************************************************************/
  58. /*                                */
  59. /*        TERMINAL MODE                    */
  60. /*        Transmission without time out            */
  61. /*                                */
  62. /****************************************************************/
  63.  
  64.   terminal :- chk_rdch, chk_wrch,terminal.
  65.  
  66.   chk_rdch :- rdch_CRLF_RS232(CH),!,shiftwindow(3), write(CH).
  67.   chk_rdch.
  68.  
  69.   chk_wrch :- shiftwindow(2), cursor(R,C),cursor(R,C),not(keypressed),!.
  70.   chk_wrch :- readchar(CH),CH<>'\027', wrch_CRLF(CH).
  71.   
  72.   rdch_CRLF_RS232(CH) :- Rxch_RS232(1,CH), CH<>'\013'.
  73.   
  74.   wrch_CRLF('\013') :- !,nl, trans_ch('\013'), trans_ch('\010').
  75.   wrch_CRLF(CH) :- write(CH), trans_ch(CH).
  76.   
  77.   trans_ch(CH) :- Txch_RS232(1,CH),!.
  78.   trans_ch(CH) :- trans_ch(CH).
  79.