A.set talk onB.set proc toC.set print onD.set safety on
A.do caseB.if--else—endifC.scanD.if--endif
A.privateB.publicC.releaseD.label