It seems to me that because of your the changed logic, the (_PRINTCOMMENTS) is no longer required. .. or perhaps you do .. I no longer understand what you want.
Perhaps something like this structure would suit better
(defun c:MyRoutine
( / Routine_Functions Routine_variables
)
;;
;;-- Main
(_PromptForOption)
(_PromptForOldArea)))
)
(_OptionController)
)
Just for giggles: If you renamed these variables to something that had obvious meaning, what would the new names be ?
ANOX
T1
T2
AREA <-- is not a good name because it duplicates an AutoCAD command name.
OLDARE
SDAREA
SKAREA
How does the user know which option to choose.