! Combine.CHECK
SIC\IF (FUNCTION$.EQ."ADD") THEN
SIC\MESSAGE I COMBINE "Computing "'X_NAME$'" = "'Y_FACTOR$'"*"'Y_NAME$'" + "'Z_FACTOR$'"*"'Z_NAME$'" + "'OFFSET$'
SIC\ELSE IF (FUNCTION$.EQ."DIVIDE") THEN
SIC\MESSAGE I COMBINE "Computing "'X_NAME$'" = "'Y_FACTOR$'"*"'Y_NAME$'" / "'Z_FACTOR$'"*"'Z_NAME$'" + "'OFFSET$'
SIC\ELSE IF (FUNCTION$.EQ."MULTIPLY") THEN
SIC\MESSAGE I COMBINE "Computing "'X_NAME$'" = "'Y_FACTOR$'"*"'Y_NAME$'" * "'Z_FACTOR$'"*"'Z_NAME$'" + "'OFFSET$'
SIC\ELSE IF (FUNCTION$.EQ."OPTICAL_DEPTH") THEN
SIC\MESSAGE I COMBINE "Computing "'X_NAME$'" = -LOG("'Y_FACTOR$'"*"'Y_NAME$'" / "'Z_FACTOR$'"*"'Z_NAME$'" + "'OFFSET$'")"
SIC\ELSE
SIC\MESSAGE E COMBINE "Invalid operation "'FUNCTION$'
SIC\RETURN
SIC\ENDIF
!
TASK\WRITE Z_NAME$
TASK\WRITE Z_FACTOR$
TASK\WRITE Z_MIN$
TASK\WRITE Y_NAME$
TASK\WRITE Y_FACTOR$
TASK\WRITE Y_MIN$
TASK\WRITE X_NAME$
TASK\WRITE BLANKING$
TASK\WRITE OFFSET$
TASK\WRITE FUNCTION$
TASK\GO
