home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a112 / 1.img / MBAR2.PRG < prev    next >
Encoding:
Text File  |  1986-04-07  |  560 b   |  15 lines
  1. SET TALK OFF
  2. @ 9,14  clear to 13,56
  3. @ 9,14  TO 13,56 double
  4. @ 10,16 say 'Menu Item 1   Menu Item 2   Menu Item 3'
  5. @ 11,16 say 'Menu Item 4   Menu Item 5   Menu Item 6'
  6. @ 12,16 say 'Menu Item 7   Menu Item 8'
  7. MENUBAR = chr(8)+' '+chr(11)+chr(16)+chr(3)+chr(3)+chr(8)
  8. MENUBAR = MENUBAR   +chr(14)+chr(13)+chr(31)+chr(79)
  9. call MENUBAR with MENUBAR
  10. CHOICE = asc(substr(MENUBAR,1,1))
  11. KEY    = asc(substr(MENUBAR,2,1))
  12. @ 10,15  clear to 12,55
  13. @ 11,16 say 'You chose Menu Item' + str(choice,2)
  14. @ 12,16 say 'Using the '+iif(key=13,'RETURN','Esc')+' key'
  15.