(* ----------------------------------------------------------------------------
 * $Id: SACBIOS.md,v 1.2 1992/02/12 17:32:01 pesch Exp $
 * ----------------------------------------------------------------------------
 * This file is part of MAS.
 * ----------------------------------------------------------------------------
 * Copyright (c) 1989 - 1992 Universitaet Passau
 * ----------------------------------------------------------------------------
 * $Log: SACBIOS.md,v $
 * Revision 1.2  1992/02/12  17:32:01  pesch
 * Moved CONST definition to the right place
 *
 * Revision 1.1  1992/01/22  15:10:20  kredel
 * Initial revision
 *
 * ----------------------------------------------------------------------------
 *)

DEFINITION MODULE SACBIOS;

(* SAC Basic I/O System Definition Module. *)



FROM MASELEM IMPORT GAMMAINT;

CONST rcsid = "$Id: SACBIOS.md,v 1.2 1992/02/12 17:32:01 pesch Exp $";
CONST copyright = "Copyright (c) 1989 - 1992 Universitaet Passau";



PROCEDURE CWRIT2(C1,C2: GAMMAINT);
(*Character write, 2 characters.  C1 and C2 are sequentially
transmitted to the output stream using CWRITE.*)


PROCEDURE CWRIT3(C1,C2,C3: GAMMAINT);
(*Character write, 3 characters.  C1, C2 and C3 are sequentially
transmitted to the output stream using CWRITE.*)


PROCEDURE CWRIT4(C1,C2,C3,C4: GAMMAINT);
(*Character write, 4 characters.  C1, C2, C3, and C4 are sequentially
transmitted to the output stream using CWRITE.*)


PROCEDURE CWRIT5(C1,C2,C3,C4,C5: GAMMAINT);
(*Character write, 5 characters.  C1, C2, C3, C4 and C5 are
sequentially transmitted to the output stream using CWRITE.*)


PROCEDURE CWRIT6(C1,C2,C3,C4,C5,C6: GAMMAINT);
(*Character write, 6 characters.  C1, C2, C3, C4, C5 and C6 are
sequentially transmitted to the output stream using CWRITE.*)


END SACBIOS.


(* -EOF- *)
