-- CDEmergency.cm

-- Ch. Jacobi June 5, 1984 7:41:02 pm PDT

-- Outputs a design if wedged, but you can run a command file

--

← &v ← CDVMain.cursoredViewer

← &r ← &v.data

← &d ← &r.actualDesign

-- optional alternative1: ← &d ← CDDebug.xdesign

-- optional alternative2: ← &d ← %CDViewer.FindDesign["name of design", FALSE]

--

-- the next line outputs: done: BOOL

← CDOut.WriteDesign[&d, "emergency", TRUE]