home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modula2 / mod2src.arc / FIRSTEX.MOD < prev    next >
Encoding:
Text File  |  1986-08-20  |  336 b   |  19 lines
  1. MODULE FirstEx;
  2.  
  3. FROM InOut IMPORT WriteLn, WriteString, WriteCard;
  4.  
  5. VAR Index : CARDINAL;
  6.  
  7. BEGIN
  8.  
  9.    WriteString("This is our first example program");
  10.    WriteLn;
  11.    WriteLn;
  12.    FOR Index := 1 TO 12 DO
  13.       WriteString("The value of the index is now ");
  14.       WriteCard(Index,3);
  15.       WriteLn;
  16.    END
  17.  
  18. END FirstEx.
  19.