home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / LASTPROG.MOD < prev    next >
Text File  |  1989-01-18  |  594b  |  37 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.  
  28.  
  29.  
  30.  
  31. (* Result of execution
  32.  
  33. This is really a stupid program.
  34.  
  35. *)
  36.  
  37.