--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"]]