home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / Terminal.mod < prev    next >
Text File  |  1997-01-03  |  2KB  |  107 lines
  1. IMPLEMENTATION MODULE Terminal;
  2.  
  3. (* (C) Copyright 1994 Marcel Timmermans. All rights reserved. *)
  4.  
  5. IMPORT io:InOut;
  6.  
  7. PROCEDURE Read( VAR ch :CHAR );
  8. (*
  9.     read a character
  10. *)
  11. BEGIN
  12.   io.Read(ch);
  13. END Read;
  14.  
  15.  
  16. PROCEDURE ReadString( VAR s :ARRAY OF CHAR );
  17. BEGIN
  18.  io.ReadString(s);
  19. END ReadString;
  20.  
  21.  
  22. PROCEDURE ReadLongInt( VAR x :LONGINT );
  23. BEGIN
  24.  io.ReadLongInt(x);
  25. END ReadLongInt;
  26.  
  27.  
  28. PROCEDURE ReadInt( VAR x :INTEGER );
  29. BEGIN
  30.   io.ReadInt(x);
  31. END ReadInt;
  32.  
  33.  
  34. PROCEDURE Write( ch :CHAR );
  35. (*
  36.     write the character
  37. *)
  38. BEGIN
  39.  io.Write(ch);
  40. END Write;
  41.  
  42.  
  43. PROCEDURE WriteLn;
  44. (*
  45.     same as: Write( ASCII.EOL )
  46. *)
  47. BEGIN
  48.  Write(12C);
  49. END WriteLn;
  50.  
  51.  
  52. PROCEDURE WriteString( s :ARRAY OF CHAR );
  53. (*$ CopyDyn- *)
  54. (*
  55.     write the string out
  56. *)
  57. BEGIN
  58.  io.WriteString(s);
  59. END WriteString;
  60.  
  61.  
  62. PROCEDURE WriteLine( s :ARRAY OF CHAR );
  63. (*$ CopyDyn- *)
  64. BEGIN
  65.  io.WriteLine(s);
  66. END WriteLine;
  67.  
  68.  
  69. PROCEDURE WriteInt( x : LONGINT; n :CARDINAL );
  70. (*
  71.     write the LONGINT right justified in a field of at least n characters.
  72. *)
  73. BEGIN
  74.  io.WriteInt(x,n);
  75. END WriteInt;
  76.  
  77.  
  78. PROCEDURE WriteCard( x : LONGCARD; n : CARDINAL);
  79. (*
  80.     write the CARDINAL right justified in a field of at least n characters.
  81. *)
  82. BEGIN
  83.  io.WriteCard(x,n);
  84. END WriteCard;
  85.  
  86.  
  87. PROCEDURE WriteOct( x, n :CARDINAL );
  88. (*
  89.     write x in octal format in a right justified field of at least n characters.
  90. *)
  91. BEGIN
  92.  io.WriteOct(x,n);
  93. END WriteOct;
  94.  
  95.  
  96. PROCEDURE WriteHex( x : LONGINT; n :CARDINAL );
  97. (*
  98.     write x in hexadecimal in a right justified field of at least n characters.
  99.     IF (n <= 2) AND (x < 100H) THEN 2 digits are written
  100.     ELSE 4 digits are written
  101. *)
  102. BEGIN
  103.  io.WriteHex(x,n);
  104. END WriteHex;
  105.  
  106. END Terminal.mod
  107.