On this point
Something I do is put these sort of commands/directives in another column.
I do something similar when debugging templates.
Line 67: #IF(%EditProcedure) #Call(%grpDebugView,'#IF(%EditProcedure)')
Line 68: #CREATE(%EditFilename) #Call(%grpDebugView,'#CREATE(%EditFilename)')
Line 69: #FIND(%ModuleProcedure,%EditProcedure) #Call(%grpDebugView,'#FIND(%ModuleProcedure,%EditProcedure)')
Line 70: #FIX(%Procedure,%ModuleProcedure) #Call(%grpDebugView,'#FIX(%Procedure,%ModuleProcedure)')
Line 71: #MESSAGE('Generating Module: ' & %Module,1) #Call(%grpDebugView,'#MESSAGE(''Generating Module: '' & %Module,1)')
Line 72: #MESSAGE('Generating Procedure: ' & %Procedure,2) #Call(%grpDebugView,'#MESSAGE(''Generating Procedure: '' & %Procedure,2)')
Line 73: #Call(%grpDebugView,'#GENERATE(%Procedure)')
Line 74: #Call(%grpDebugView,'*** %Procedure Template Code Start ***')
Line 75: #GENERATE(%Procedure) #Call(%grpDebugView,'*** %Procedure Template Code End ***')
Line 76: #COMMENT(80) #Call(%grpDebugView,'#COMMENT(80)')
Line 77: #CLOSE #Call(%grpDebugView,'#CLOSE')
Line 78: #Call(%grpDebugView,'#ABORT')
Line 79: #ABORT
So maybe this would an option for readability?
COMPILE('****',_C110_)
SomeVariable LONG
'****'
OMIT('****',_C110_)
SomeVariable SHORT
'****'