on goNextModule
  put getCurrentModule() into currentModule
  put the number of menuItems of menu "Modules" into lastModule
  set checkMark of menuItem currentModule of menu "Modules" to false
  ---------------------------------------------------------------------------
  if currentModule = lastModule
  then put the name of menuItem 1 of menu "Modules" into menuItemName
  else put the name of menuItem currentModule+1 of menu "Modules" into menuItemName
  ---------------------------------------------------------------------------
  if char 1 of menuItemName is "-"
  then put the name of menuItem currentModule+2 of menu "Modules" into menuItemName
  ---------------------------------------------------------------------------
  doMenu menuItemName,"Modules"
end goNextModule