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.