;TIP #601   Retro-Ortho   (c)1990, Robert Zipprich
(defun C:O ()
  (setvar "ORTHOMODE" 1)
  (command ".CHANGE" "P" "" "@")
  (setvar "ORTHOMODE" 0)
)