home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Beispiele / Hallo.mod < prev    next >
Encoding:
Text File  |  1992-10-10  |  361 b   |  27 lines
  1. MODULE Hallo;
  2.  
  3. IMPORT io;
  4.  
  5. VAR
  6.   a,b: LONGINT;
  7.  
  8.   PROCEDURE Space(n: LONGINT);
  9.   BEGIN
  10.     WHILE n>0 DO
  11.       io.Write(" ");
  12.       DEC(n)
  13.     END;
  14.   END Space;
  15.  
  16. BEGIN
  17.   a := 0; b := 32;
  18.   REPEAT
  19.     Space(32-a); io.WriteString("Hallo");
  20.     Space(2*a ); io.WriteString(" Welt!");
  21.     io.WriteLn;
  22.     INC(a,b DIV 5);
  23.     DEC(b,a DIV 5);
  24.   UNTIL a<0;
  25. END Hallo.
  26.  
  27.