A.TEXT-ENDTEXT B.DO CASE-ENDCASE C.DO WHILE-ENDDO D.IF-ENDIF
A..prg B..sct C..scx D..qpr
A.set strictdate to 1 B.set strictdate to 0 C.set strictdate on D.set strictdate off