home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / tutorial / programs / firstex.mod < prev    next >
Text File  |  1993-03-14  |  336b  |  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.