<> <> <> DIRECTORY DragOpsCross, DragOpsCrossUtils, HandCoding, HandCodingSupport, HandCodingPseudos; GenSmall: CEDAR PROGRAM IMPORTS DragOpsCrossUtils, HandCoding, HandCodingPseudos = BEGIN OPEN HandCoding, HandCodingSupport, HandCodingPseudos; All: PROC = { startLabel: Label = GenLabelHere[]; MakeLabelGlobal["SmalltalkStub.Start", startLabel]; EnableTraps[]; -- to detect stack overflow drDFC[DragOpsCrossUtils.CardToWord[4100000B]]; Halt[0]; }; END.