home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / Module / Out.mod < prev    next >
Encoding:
Text File  |  1994-08-05  |  1015 b   |  53 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Library Module: Out                  Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE Out;
  10.  
  11. IMPORT io,
  12.        rio := RealInOut;
  13.  
  14.  
  15. PROCEDURE Open*;
  16. BEGIN
  17.   io.Clear;
  18. END Open;
  19.  
  20.  
  21. PROCEDURE Char*(ch: CHAR);
  22. BEGIN
  23.   io.Write(ch);
  24. END Char;
  25.  
  26.  
  27. PROCEDURE Ln*;
  28. BEGIN
  29.   io.WriteLn;
  30. END Ln;
  31.  
  32.  
  33. PROCEDURE Int*(i,n: LONGINT);
  34. BEGIN
  35.   io.WriteInt(i,SHORT(n));
  36. END Int;
  37.  
  38.  
  39. PROCEDURE Real*(x:REAL; n: INTEGER);
  40. BEGIN
  41.   IF rio.WriteReal(x,1,n-1,TRUE) THEN END;
  42. END Real;
  43.  
  44.  
  45. PROCEDURE String*(str: ARRAY OF CHAR);
  46. BEGIN
  47.   io.WriteString(str);
  48. END String;
  49.  
  50.  
  51. END Out.
  52.  
  53.