home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / pdial / demos / alrtdemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-07-08  |  313 b   |  17 lines
  1. program alert_demo;
  2.  
  3. uses geminit, newobs, pform, alert;
  4.  
  5. begin
  6.     if initgem then
  7.     begin
  8.         init_pform(vdihandle, FALSE);    
  9.         init_newobs(vdihandle);
  10.         
  11.         do_alert(@GEM2Note, 'Dies ist eine Alertbox ' + 
  12.                  'allererster Kajüte!', '   [OK   ', 0, -1);
  13.         
  14.         exit_pform;
  15.         exitgem;        
  16.     end        
  17. end.