--toptest.cm
-- Last Edited by: Spreitzer, October 20, 1983 11:26 am
-- Last Edited by: Barth, March 7, 1983 12:13 pm

@RoseSimulate.cm
@Shifting.roseLoad
_ &cell _ Rosemary.CreateTopCell["shi4top", "TopNBitSR", Shifting.InitFor[4], RoseHelp.DecideFromFile["shi4top.altexpand"]]
_ &disp _ RoseDisplayOps.NewDisplay[cell:&cell, info: [iconic: FALSE, name: "shi4top"]]
_ &bv _ RoseDisplayBrowsing.BrowseDisplay[display:&disp, info: [iconic: FALSE, name: "shi4top.browser"]]