home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 100-199 / ff113.lzh / M2Amiga / Demos / alert.mod < prev    next >
Text File  |  1987-11-21  |  517b  |  20 lines
  1. MODULE alert; (* jr/19sep87 *)
  2.  
  3. FROM SYSTEM IMPORT
  4.  ADR;
  5. FROM Intuition IMPORT
  6.  DisplayAlert;
  7.  
  8. VAR
  9.  al: RECORD
  10.   x1: CARDINAL; s1: ARRAY [0..59] OF CHAR; (* even number of chars !! *)
  11.   x2: CARDINAL; s2: ARRAY [0..37] OF CHAR
  12.  END;
  13. BEGIN
  14.  al.s1:="*Software Failure.   Press left mouse button to continue. ";
  15.  al.x1:=96; al.s1[0]:=CHAR(15); al.s1[59]:=CHAR(1);
  16.  al.s2:="* Guru Meditation #00019987.000JR000";
  17.  al.x2:=176; al.s2[0]:=CHAR(28); al.s2[37]:=CHAR(0);
  18.  IF DisplayAlert(0, ADR(al), 40) THEN END
  19. END alert.mod
  20.