SPACE 2/SPACE - Library 2 - Volume 1.iso/utility/252/gemsrc/debug.mod

Modula Implementation | 1988-02-13 | 1.4 KB | 70 lines

IMPLEMENTATION MODULE Debug;


   IMPORT TextIO;
   IMPORT Terminal;
   IMPORT LongInOut;


   (********************************************************************)

   PROCEDURE DisplayString ( VAR Item : ARRAY OF CHAR );

   BEGIN
      Terminal.WriteString ( Item );
   END DisplayString;

   (********************************************************************)

   PROCEDURE DisplayInt ( Item : INTEGER );

   BEGIN
      TextIO.WriteInt ( Item, 1 );
   END DisplayInt;

   (********************************************************************)

   PROCEDURE DisplayCard ( Item : CARDINAL );

   BEGIN
      TextIO.WriteCard ( Item, 1 );
   END DisplayCard;

   (********************************************************************)

   PROCEDURE DisplayLongInt ( Item : LONGINT );

   BEGIN
      LongInOut.WriteLongInt ( Item, 1 );
   END DisplayLongInt;

   (********************************************************************)

   PROCEDURE DisplayLongCard ( Item : LONGCARD );

   BEGIN
      LongInOut.WriteLongCard ( Item, 1 );
   END DisplayLongCard;

   (********************************************************************)

   PROCEDURE NewLine;

   BEGIN
      Terminal.WriteLn;
   END NewLine;

   (********************************************************************)

   PROCEDURE WaitForKey;

   VAR Ch : CHAR;

   BEGIN
      Terminal.Read ( Ch );
   END WaitForKey;


END Debug.