home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
dfstat.inc
< prev
next >
Wrap
Text File
|
1987-06-10
|
2KB
|
65 lines
(*---------------------------------------------------------------------------*)
(* DFSTAT.INC (Statusbericht) *)
OVERLAY PROCEDURE Status;
VAR Zwischen : REAL;
Voll,i : INTEGER;
BEGIN
ClrScr;
WriteLn(Inv_Ein,'STATUS',Inv_Aus);
WriteLn;
CASE Param[1] OF
1 : WriteLn ('300 BAUD');
2 : WriteLn ('150 BAUD');
3 : WriteLn ('600 BAUD');
4 : WriteLn ('1200 BAUD')
END;
WriteLn;
CASE Param[2] OF
1 : WriteLn ('8 Bit pro Zeichen');
2 : WriteLn ('7 Bit pro Zeichen')
END;
WriteLn;
CASE Param[3] OF
1 : WriteLn ('1 Stoppbit');
2 : WriteLn ('2 Stoppbits')
END;
WriteLn;
CASE Param[4] OF
1 : WriteLn ('keine Paritaet');
2 : WriteLn ('gerade Paritaet');
3 : WriteLn ('ungerade Paritaet')
END;
WriteLn;
CASE Param[5] OF
1 : WriteLn ('Vollduplex');
2 : WriteLn ('Halbduplex');
END;
WriteLn;
CASE Param[6] OF
1 : WriteLn ('kein Linefeed nach CR');
2 : WriteLn ('Linefeed nach CR');
END;
WriteLn;
CASE Param[7] OF
1 : WriteLn ('Zeit nach LF 0 ms');
2 : WriteLn ('Zeit nach LF 10 ms');
3 : WriteLn ('Zeit nach LF 100 ms');
END;
WriteLn;
WriteLn('Bufferstatus -->:');
WriteLn('0...............................................100 PROZENT');
Zwischen := (Zaehler / BufEnd)*50;
Voll := Trunc(Zwischen);
FOR i := 1 TO Voll DO
Write('X');
WriteLn;WriteLn('zu ',(Voll*2),' Prozent gefuellt');
WriteLn('Bitte Taste druecken');
REPEAT UNTIL KeyPressed;
END;
(* Ende DFSTAT.INC *)
(*---------------------------------------------------------------------------*)