home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FOSSIL.ZIP / TESTTERM.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-08-20  |  1.6 KB  |  76 lines
  1. program TestFossil;
  2. uses DOS, Crt, Fossil;
  3. var
  4.   k, c        : char;
  5.   fkey        : boolean;
  6.   Rdy         : boolean;
  7.   Done        : boolean;
  8.  
  9. begin
  10.   InitFossil(Com_2);
  11.   if not FossilInstalled
  12.     then
  13.       begin
  14.         writeln('FOSSIL not Found - critical Error');
  15.         exit;
  16.       end;
  17.   LowerDTR(Com_2);
  18.   SetBaud(Com_2,1200);
  19.   Done:= false;
  20.   RaiseDTR(Com_2);
  21.  
  22.   repeat
  23.     { Check Port and receive if ready }
  24.     Rdy:= PortDataRdy(Com_2);
  25.     if Rdy
  26.       then
  27.         begin
  28.           c:= char(RcvPort(Com_2));
  29.           write(c);
  30.         end;
  31.     { Check Keyboard }
  32.     if KeyPressed
  33.       then
  34.         begin
  35.           fkey:= false;
  36.           k:= ReadKey;
  37.           if ((k = #0) and KeyPressed)
  38.             then
  39.               begin
  40.                 fkey:= true;
  41.                 k:= ReadKey;
  42.               end;
  43.           if fkey
  44.             then
  45.               begin
  46.                 case k of
  47.                 #68:  Done:= true;
  48.                 end;
  49.               end
  50.             else
  51.               begin
  52.                 case k of
  53.                 #13:  begin
  54.                         writeln;
  55.                         XmitPort(byte(k), Com_2);
  56.                       end;
  57.                 else
  58.                   begin
  59.                     write(k);
  60.                     XmitPort(byte(k), Com_2);
  61.                   end;
  62.                 end;
  63.               end;
  64.         end;
  65.   until Done;
  66.  
  67.   LowerDTR(Com_2);
  68.   UnInitFossil(Com_2);
  69.   writeln; writeln('FOSSIL DeActivated');
  70. end.begin
  71.     with Regs do
  72.     case baud of
  73.        300: AL:= $40;
  74.        600: AL:= $60;
  75.       1200: AL:= $80;
  76.