home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
m2t-2.zip
/
SIMPLOUT.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
820b
|
36 lines
(* Chapter 8 - Program 1 *)
MODULE SimplOut;
FROM InOut IMPORT WriteString, WriteLn; (* unqualified *)
IMPORT InOut; (* This imports every procedure in InOut *)
IMPORT Terminal; (* This imports every procedure in Terminal *)
VAR Index : CARDINAL;
BEGIN
WriteString("This is from InOut, ");
InOut.WriteString("and so is this.");
Terminal.WriteLn;
Terminal.WriteString("This is from Terminal, ");
Terminal.WriteString('and so is this.');
WriteLn;
FOR Index := 1 TO 10 DO
InOut.WriteCard(Index,5);
END;
InOut.WriteLn;
END SimplOut.
(* Result of execution
This is from InOut, and so is this.
This is from Terminal, and so is this.
1 2 3 4 5 6 7 8 9 10
*)