home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMMS8.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  619 b   |  27 lines
  1. program DemoMessageEight;
  2. {demms8 - three box-buttons}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totMSG, totIO1;
  6.  
  7. Var
  8.    MsgWin : ButtonPromptOBJ;
  9.    ActionCode: tAction;
  10.  
  11. begin
  12.    Screen.Clear(white,'░'); {paint the screen}
  13.    with MsgWin do
  14.    begin
  15.       Init(1,' Warning ');
  16.       AddLine('');
  17.       AddLine(' The file already exists on disk, and ');
  18.       AddLine(' the contents will be over-written.');
  19.       AddLine('');
  20.       SetOption(1,' ~P~roceed ',80,Finished);
  21.       SetOption(2,' ~A~bort ',65,Escaped);
  22.          SetOption(3,' ~H~elp ',72,Stop1);
  23.       ActionCode := Show;
  24.       Done;
  25.    end;
  26. end.
  27.