Module DB_TIO(Output);
{ Terminal I/O routines
  Copyright © 1989,1990 Bruce Tanner - Cerritos College }

{ These procedures are all Writeln because
Output has been opened Carriage_Control := None }

[Global] Procedure Write1(S: Varying [L] of Char);
Begin
  Writeln(S)
End;


[Global] Procedure Writeln1(S: Varying [L] of Char);
Begin
  Writeln(S, Chr(10), Chr(13))
End;


[Global] Procedure Clear_Screen;
Begin
  Writeln(Chr(27), '[H');
  Writeln(Chr(27), '[J');
End; { Clear_Screen }


{ Was Clear_EOL, but global Clear. was multi-defined }
[Global] Procedure Clr_EOL;
Begin
  Writeln(Chr(27), '[K');
End;


[Global] Procedure Cursor(Row, Column: Integer);
Begin
  Writeln(Chr(27), '[', Row:1, ';', Column:1, 'H')
End;


[Global] Procedure Rev_On;
Begin
  Writeln(Chr(27), '[7m')
End;


[Global] Procedure Bold_On;
Begin
  Writeln(Chr(27), '[1m')
End;


[Global] Procedure Blink_On;
Begin
  Writeln(Chr(27), '[5m')
End;


[Global] Procedure Rev_Off;
Begin
  Writeln(Chr(27), '[m')
End;


[Global] Procedure Double_Width;
Begin
  Writeln(Chr(27), '#6');
End;


[Global] Procedure Prt_On;
Begin
  Writeln(Chr(27), '[5i')
End;


[Global] Procedure Prt_Off;
Begin
  Writeln(Chr(12), Chr(27), '[4i')  { Form Feed and Printer Off }
End;

End.