home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HSPASCAL.LZH / HSPASCAL / GEMDEMO / HELLOWLD.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-01  |  358b  |  20 lines
  1. program HelloWld;
  2.  
  3. Uses GemAES;
  4.  
  5. var Button,n: integer;
  6.     CStr: String[50];
  7.  
  8. begin
  9.   n:=appl_init;
  10.   if n<>-1 then begin
  11.     
  12.     CStr:='[3][  Hello|  World][ Ok |Cancel]'#0;
  13.     Button:=form_alert(1,CStr[1]);
  14.     
  15.     appl_exit;
  16.     write('Thanks for pressing: ');
  17.     if Button=1 then writeln('Ok') else writeln('Cancel');
  18.   end;
  19. end.
  20.