home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MOD2SRC.ZIP / SIMPLOUT.MOD < prev    next >
Encoding:
Text File  |  1987-02-08  |  649 b   |  24 lines
  1.                                          (* Chapter 8 - Program 1 *)
  2. MODULE SimplOut;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;         (* unqualified *)
  5. IMPORT InOut;         (* This imports every procedure in InOut *)
  6. IMPORT Terminal;   (* This imports every procedure in Terminal *)
  7.  
  8. VAR Index : CARDINAL;
  9.  
  10. BEGIN
  11.    WriteString("This is from InOut, ");
  12.    InOut.WriteString("and so is this.");
  13.    Terminal.WriteLn;
  14.  
  15.    Terminal.WriteString("This is from Terminal, ");
  16.    Terminal.WriteString('and so is this.');
  17.    WriteLn;
  18.  
  19.    FOR Index := 1 TO 10 DO
  20.       InOut.WriteCard(Index,5);
  21.    END;
  22.    InOut.WriteLn;
  23. END SimplOut.
  24.