Routine MENU.CTRL
                 given    field.id, form
                 yielding status

define field.id as text variables
define form as pointer variables
define status as integer variables



select case field.id

   case "OK"
         
         LET QUIT.OK = 1
         STATUS = 1 
        
         
       
   case "CANCEL"


            
   case "ENGLAND" 
         erase USA.MAP, ITALY.MAP, CANADA.MAP, JAPAN.MAP
         show  ENGLAND.MAP with "england.icn" at (4096.0, 26000.0)
  

   case "ITALY"
         erase USA.MAP, ENGLAND.MAP, CANADA.MAP, JAPAN.MAP 
         show  ITALY.MAP with "italy.icn" at (4096.0, 4096.0)
  
        
   case "USA"
         erase ENGLAND.MAP, ITALY.MAP,CANADA.MAP, JAPAN.MAP 
         show  USA.MAP with "usa.icn" at (4096.0, 4096.0)

   case "CANADA"   
         erase USA.MAP, ENGLAND.MAP,ITALY.MAP, JAPAN.MAP 
         show  CANADA.MAP with "canada.icn" at (10000.0, 16000.0)


   case "JAPAN"
         erase USA.MAP, ENGLAND.MAP,ITALY.MAP, CANADA.MAP
         show  JAPAN.MAP with "japan.icn" at (16000.0, 16000.0)

   case "INITIALIZE"

   case "BACKGROUND"

   DEFAULT
       
endselect
end
