Liren Large Software Subsidy 5/05.iso/a/a112/1.img/MBAR1.PRG

Text File | 1986-04-07 | 551 b | 17 lines

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')