Localize file www.TrSek.com/zadania/angeom/uninout.pas

UNIT  UnInOut;  { UNINOUT.PAS  A Unix like basic input/output }
                { Borsuk  Pi 95/12/01  09:05  V001 }

INTERFACE

  USES  Crt;

  VAR   stdin, stdout, stderr: Text;

  PROCEDURE  UnOpen;
  PROCEDURE  UnClose;
  PROCEDURE  Wait;
  PROCEDURE  Wayt;

IMPLEMENTATION

  PROCEDURE  Wait;
  VAR  w: Char;
  BEGIN
    w := ReadKey;
    IF (w = #$1B)  THEN  Halt;
    IF (w = #$0D)  THEN  WriteLn( stderr );
  END;  { Wait }

  PROCEDURE  Wayt;
  VAR  w: Char;
  BEGIN
    Write( stderr, #15 ); { Velka hviezdica ako prompt }
    w := ReadKey;
    Write( stderr, #8#32#8 );

    IF (w = #$1B)  THEN  Halt;
    IF (w = #$0D)  THEN  WriteLn( stderr );
  END;  { Wayt }

  PROCEDURE  UnOpen;
  BEGIN
    Assign( stdin,  '' );  ReSet(   stdin  );
    Assign( stdout, '' );  ReWrite( stdout );
    AssignCrt( stderr  );  ReWrite( stderr );
  END;  { UnOpen }

  PROCEDURE  UnClose;
  BEGIN
    WriteLn( stdout );  Close( stdout );
    Close(   stdin  );  Close( stderr );
  END;  { UnClose }

  BEGIN { main() = UNINOUT.PAS }
    UnOpen;
  END.  { main() = UNINOUT.PAS }

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com