SUBROUTINE MenuMapSub(MenuName,Level,MenuMasterFile,Tracks)
* Recursive subroutine to be used with MENU.MAP program to map the
* menu structure of an ROI menu system.
***
* Revision Log
* Who..... When.... Why...................................................
* Andrew   09Sep93  Initial coding.
*
***
LastUpdated... = "Rev: 17:42 09Sep1993 u2443 1 /roi/SFLO.MAIN//users/u2443/BP/MENU.MAP.SUB"
$INCLUDE UPCASE.EQUATES
locate MenuName in Tracks<1> setting Idx then
   print str("   ",Level):MenuName:"     Duplicitous"
   return
end else
   print str("   ",Level):MenuName          
   ins MenuName before Tracks<Idx>
end
read MenuMasterRec from MenuMasterFile, MenuName else return
FirstLine = MenuMasterRec<4>
MenuItems = field(MenuMasterRec,@FM,FirstLine,len(MenuMasterRec))
loop while MenuItems ne ""
   MenuName = MenuItems<1,2>
   MenuType = MenuItems<1,3>
   del MenuItems<1>
   if MenuType matches "":@VM:"D":@VM:"S" then continue
   call MENU.MAP.SUB(MenuName,Level+1,MenuMasterFile,Tracks)
repeat
return
end