M2compiler-V3/compiler/tests/t_pimio.mod

MODULE TPimIO;
(* PIM/gm2 I/O library family: StrIO, NumberIO, RealInOut, FpuIO. *)
FROM StrIO IMPORT WriteString, WriteLn;
FROM NumberIO IMPORT WriteCard;
FROM RealInOut IMPORT WriteReal;
FROM FpuIO IMPORT WriteLongInt;
VAR ExitCode : INTEGER;
BEGIN
  WriteString("hello"); WriteLn;
  WriteCard(42, 3); WriteLn;
  WriteReal(1.5, 8); WriteLn;
  WriteLongInt(7, 3); WriteLn;
  ExitCode := 42
END TPimIO.