home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Pascal / TSCRSYS.ZIP / MENU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-16  |  796 b   |  33 lines
  1. {
  2. Turbo-Screen V1.00A testcode generation --- 7-10-1988 20:13:54
  3. note memory allocations. Increase stack as needed for user programs.
  4.  }
  5. {$M 30500,0,655360}
  6. Program menu_generated_code;
  7.  
  8. Uses CRT,DOS,TSSLIB;       { your code needs these units }
  9. {Uses CRT,DOS,TSSLIB;}
  10.  
  11. {$I menu.con}
  12.  
  13. {$I menu.prc}
  14.  
  15. begin
  16.      BEGGS:='Bacon and Eggs';            { Initialized  }
  17.      PCAKES:='Pancakes';                 { All          }
  18.      CERL:='Cereal';                     { These        }
  19.      FRT:='Fruit';                       { Variables    }
  20.      { Next Line:  Added screen control set member editoff to sccn}
  21.     sccn:=[cpcall,cvcall,cpret,cvret,upmsg,upvar,editoff];
  22. menu(
  23.     sccn,
  24.     cerr,
  25.     nfld,
  26.     ret_key,
  27.     BEGGS,
  28.     PCAKES,
  29.     CERL,
  30.     FRT);
  31.  
  32. end.
  33.