home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / m2amiga.lzh / M2AMIGA / DEMOS / ALERT.MOD < prev    next >
Text File  |  1991-08-16  |  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.