home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DPSX / TOOL-PAS.ZIP / INTRTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-15  |  1.2 KB  |  75 lines
  1.  
  2. (* intrtest - test unit for INTRCOMM unit *)
  3.  
  4. uses CRT, INTRCOMM;
  5.  
  6. const
  7.    comport = 0;   {com1}
  8.    comspeed = 1200;
  9.  
  10. var
  11.    quit: boolean;
  12.    c:    char;
  13.  
  14. procedure menu;
  15. var
  16.    sp:   word;
  17. begin
  18.    writeln;
  19.    write('Function: (L)owerDTR, (R)aiseDTR, (B)aud, (F)lush, (Q)uit? ');
  20.    c := upcase(readkey);
  21.    writeln(c);
  22.  
  23.    case c of
  24.       'L':  INTR_lower_dtr;
  25.  
  26.       'R':  INTR_raise_dtr;
  27.  
  28.       'B':  begin
  29.                write('Speed: ');
  30.                readln(sp);
  31.                INTR_set_baud_rate(sp);
  32.             end;
  33.  
  34.       'F':  INTR_flush_com;
  35.  
  36.       'Q':  quit := true;
  37.  
  38.       else  writeln('?invalid?');
  39.    end;
  40. end;
  41.  
  42. begin
  43.    writeln;
  44.    writeln('INTRCOMM test unit; ESC for menu.');
  45.    writeln;
  46.  
  47.    INTR_init_com(comport);
  48.    INTR_set_baud_rate(comspeed);
  49.    quit := false;
  50.  
  51.    repeat
  52.       if INTR_receive_ready then
  53.       begin
  54.          c := INTR_receive_data;
  55.          write(c);
  56.       end;
  57.  
  58.       if keypressed then
  59.       begin
  60.          c := readkey;
  61.          if c = #27 then
  62.             menu
  63.          else
  64.          if c = ^C then
  65.             quit := true
  66.          else
  67.             INTR_transmit_data(c);
  68.       end;
  69.    until quit;
  70.  
  71.    INTR_uninit_com;
  72. end.
  73.  
  74.  
  75.