home *** CD-ROM | disk | FTP | other *** search
- set talk off
- @ 10,25 clear to 16,44
- @ 10,25 to 16,44 double
- @ 11,27 say 'Menu Selection 1'
- @ 12,27 say 'Menu Selection 2'
- @ 13,27 say 'Menu Selection 3'
- @ 14,27 say 'Menu Selection 4'
- @ 15,27 say 'Menu Selection 5'
- MENUBAR = chr(3)+' '+chr(12)+chr(27)+chr(5)+chr(1)+chr(5)
- MENUBAR = MENUBAR +chr(1) +chr(18)+chr(31)+chr(79)
- call MENUBAR with MENUBAR
- CHOICE = asc(substr(MENUBAR,1,1))
- KEY = asc(substr(MENUBAR,2,1))
- @ 11,26 clear to 15,43
- @ 12,27 say "Menu Selection" +str(choice,2)
- @ 13,27 say "Using "+iif(key=13,'RETURN','ESC')
-