{  1/9/87  21:05   Menus.inc}

!  The built-in function Set Up Menu expects the data to be given to it
!  as an array of items, each with its name and value in a record. The
!  value is expected to be a list of lines.


%recordformat dataf(%string(19) name,%record(line80listf) val)
%externalstring(31)%spec helpfile
%externalroutinespec read screen line(%string(*)%name a)
%externalroutinespec screen message(%string(255) s,%string(15) mon)
%externalroutinespec start screen mode
%externalroutinespec stop screen mode
%externalroutinespec set up menu(%record(dataf)%arrayname data,
%integer mask)
%externalroutinespec write instruction(%string(255) s)
%externalroutinespec write menu
%externalintegerfnspec cursor depth

%endoffile