PGTape.cm

E. McCreight, February 26, 1985 6:01:20 pm PST

tapetool

← &t ← %Atom.GetProp[$TapeTool, $state]

← &t.tiogaReadValue ← TRUE

← %TapeToolInterfaceImpl.SelectTiogaRead[parent: &t.tiogaReadLabel, clientData: &t]

← &t.density ← PE1600

← %TapeToolInterfaceImpl.SelectDensity[parent: &t.densityLabel, clientData: &t]

← &t.blockingViewer.class.set[&t.blockingViewer, "512", TRUE]

← &t.conversionsViewer.class.set[&t.conversionsViewer, "ToPGT", TRUE]

← &t.wdViewer.class.set[&t.wdViewer, "///", TRUE]