home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modula2 / mod2src.arc / LASTPROG.MOD < prev    next >
Encoding:
Text File  |  1987-02-09  |  518 b   |  27 lines
  1.                                          (* Chapter 7 - Program 3 *)
  2. MODULE LastProg;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6.    PROCEDURE Dummy;
  7.    BEGIN
  8.    END Dummy;
  9.  
  10. VAR Index : CARDINAL;
  11. TYPE Stuff = ARRAY[34..55] OF CHAR;
  12.  
  13.    PROCEDURE Smart;
  14.    BEGIN
  15.    END Smart;
  16.  
  17. CONST Number = 120;
  18. TYPE  TypeOf = ARRAY[1..Number] OF Stuff;
  19. CONST Neater = -345;
  20. VAR   Count23 : TypeOf;
  21.       Counter : INTEGER;
  22.  
  23. BEGIN
  24.    WriteString("This is really a stupid program.");
  25.    WriteLn;
  26. END LastProg.
  27.