Send69ToTape.cm
E. McCreight, November 7, 1984 12:13:38 pm PST
← &t ← %Atom.GetProp[$TapeTool, $state]
← &p ← "MPC69AD"
← &t.blockingViewer.class.set[&t.blockingViewer, "2048", TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.RewindButton, clientData: &t]
← &t.wdViewer.class.set[&t.wdViewer, %Rope.Concat["///", &p], TRUE]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, ".arch"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "10.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "21.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "22.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "23.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "24.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "27.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "30.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "40.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "50.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "60.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "70.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]
← &t.fileNameViewer.class.set[&t.fileNameViewer, %Rope.Concat[&p, "80.AA"], TRUE]
← %TapeToolInterfaceImplA.SelectOperation[parent: &t.WriteButton, clientData: &t]