home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / dfstat.inc < prev    next >
Encoding:
Text File  |  1987-06-10  |  1.7 KB  |  65 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*                        DFSTAT.INC (Statusbericht)                         *)
  3.  
  4. OVERLAY PROCEDURE Status;
  5.  
  6. VAR  Zwischen : REAL;
  7.      Voll,i   : INTEGER;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   WriteLn(Inv_Ein,'STATUS',Inv_Aus);
  12.   WriteLn;
  13.   CASE Param[1] OF
  14.     1 : WriteLn ('300  BAUD');
  15.     2 : WriteLn ('150  BAUD');
  16.     3 : WriteLn ('600  BAUD');
  17.     4 : WriteLn ('1200 BAUD')
  18.   END;
  19.   WriteLn;
  20.   CASE Param[2] OF
  21.     1 : WriteLn ('8 Bit pro Zeichen');
  22.     2 : WriteLn ('7 Bit pro Zeichen')
  23.   END;
  24.   WriteLn;
  25.   CASE Param[3] OF
  26.     1 : WriteLn ('1 Stoppbit');
  27.     2 : WriteLn ('2 Stoppbits')
  28.   END;
  29.   WriteLn;
  30.   CASE Param[4] OF
  31.     1 : WriteLn ('keine Paritaet');
  32.     2 : WriteLn ('gerade Paritaet');
  33.     3 : WriteLn ('ungerade Paritaet')
  34.   END;
  35.   WriteLn;
  36.   CASE Param[5] OF
  37.     1 : WriteLn ('Vollduplex');
  38.     2 : WriteLn ('Halbduplex');
  39.   END;
  40.   WriteLn;
  41.   CASE Param[6] OF
  42.     1 : WriteLn ('kein Linefeed nach CR');
  43.     2 : WriteLn ('Linefeed nach CR');
  44.   END;
  45.   WriteLn;
  46.   CASE Param[7] OF
  47.     1 : WriteLn ('Zeit nach LF 0 ms');
  48.     2 : WriteLn ('Zeit nach LF 10 ms');
  49.     3 : WriteLn ('Zeit nach LF 100 ms');
  50.   END;
  51.   WriteLn;
  52.   WriteLn('Bufferstatus -->:');
  53.   WriteLn('0...............................................100 PROZENT');
  54.   Zwischen := (Zaehler / BufEnd)*50;
  55.   Voll := Trunc(Zwischen);
  56.   FOR i := 1 TO Voll DO
  57.     Write('X');
  58.   WriteLn;WriteLn('zu ',(Voll*2),' Prozent gefuellt');
  59.   WriteLn('Bitte Taste druecken');
  60.   REPEAT UNTIL KeyPressed;
  61. END;
  62.  
  63. (*                            Ende DFSTAT.INC                                *)
  64. (*---------------------------------------------------------------------------*)
  65.