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"
         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
