home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOLKIT.ZIP / MENUTTT.DEM < prev    next >
Encoding:
Text File  |  1986-09-28  |  1.1 KB  |  55 lines
  1. Program Illustrating_The_Menu_Kit;
  2.  
  3. {$I Decl.ttt}
  4. {$I Fastwrit.TTT}
  5. {$I Window.TTT}
  6. {$I Misc.TTT}
  7.  
  8. {$I Menu.TTT}
  9.  
  10. Procedure My_Menu;
  11. var
  12. M : menu_record;
  13. Pick, Retcode : integer;
  14.  
  15. begin
  16. With M do
  17. begin
  18.  Heading := 'The Main Menu';
  19.  Text[1] := 'View Reports on screen';
  20.  Text[2] := 'Send Reports to a Print File';
  21.  Text[3] := 'Print The Reports';
  22.  Text[4] := 'Quit';
  23.  TotalPicks := 4;
  24.  PicksPerLine := 1;
  25.  AddPrefix := 3;
  26.  TopleftXY[1] := 0;
  27.  TopLeftXY[2] := 7;
  28.  BoxType := 1;
  29.  Colors[1] := white;
  30.  Colors[2] := red;
  31.  Colors[3] := lightred;
  32.  Colors[4] := black;
  33.  Colors[5] := yellow;
  34.  AllowEsc := false;
  35. end;    {with M}
  36. Pick := 4;            {default to Quit}
  37. DisplayMenu(M,False,Pick,Retcode);   {go do it!}
  38. ClrScr;
  39. Case Pick of
  40. 1 : writeln('You chose 1');
  41. 2 : writeln('You chose 2');
  42. 3 : writeln('You chose 3');
  43. 4 : writeln('You chose 4');
  44. end;  {case}
  45. end;  {procedure My_menu}
  46.  
  47. begin
  48. ClrScr;
  49. OffCursor;
  50. My_menu;
  51. Oncursor;
  52. Writeln('Run DemoTTT.com for the main demo program');
  53. Write('Technojocks Turbo Toolkit');
  54. end.
  55.