home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Beispiele / AlertDemo.mod < prev    next >
Encoding:
Text File  |  1992-10-10  |  393 b   |  20 lines
  1. MODULE AlertDemo;
  2.  
  3. IMPORT Alerts;
  4.  
  5. VAR
  6.   text: POINTER TO ARRAY 80 OF CHAR;
  7.   vier: LONGINT;
  8.  
  9. BEGIN
  10.   NEW(text); text^ := "Alerts";
  11.   vier := 4;
  12.   REPEAT
  13.   UNTIL ~ Alerts.Alert(
  14.     "Dies ist ein mit %s erzeugter Alert!\n"
  15.     "Er besteht aus %ld Zeilen, die von Alerts\n"
  16.     "automatisch angordnet werden!\n"
  17.     "Linke Taste = nochmal   Rechte Taste = Ende",
  18.     text,vier);
  19. END AlertDemo.
  20.