DIRECTORYProcess USING [Detach, Pause, MsecToTicks, Ticks],ViewerPrivate USING [InitializeHourglass, inputEnabled, TickHourglass],WindowManager USING [RestoreCursor];Begin: CEDAR PROGRAMIMPORTS Process, ViewerPrivate, WindowManager= BEGINWaitingCursor: PROC = BEGIN OPEN ViewerPrivate;aWhile: Process.Ticks = Process.MsecToTicks[100];InitializeHourglass[56];UNTIL ViewerPrivate.inputEnabled DO TickHourglass[]; Process.Pause[aWhile]; ENDLOOP;WindowManager.RestoreCursor[];END;TRUSTED {Process.Detach[FORK WaitingCursor]}; -- cursor for amusement during start-upEND.   H  Begin.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last Edited by McGregor, October 27, 1982 9:49 amLast Edited by: Maxwell, January 3, 1983 1:37 pmLast Edited by: Paul Rovner, June 15, 1983 6:17 pmDoug Wyatt, April 15, 1985 0:46:22 am PSTRuntime.SelfDestruct[];START InputFocus.InputFocusImpl; Ê  –"Mesa" style˜ codešÏc
™
Kšœ
Ïmœ1™<Kš1™1Kšœ0™0Kšœ2™2K™)—K˜ šÏk	˜	KšœŸœ%˜2KšœŸœ4˜GKšœŸœ˜$—K˜ KšœŸ˜KšŸœ&˜-KšœŸ˜K˜ šÏnœŸœŸœŸœ˜/K˜1K˜KšŸœŸœ)Ÿœ˜TK˜Kšœ™KšŸœ˜K˜ —KšŸœ™ K˜ KšŸœŸœ'˜UK˜ KšŸœ˜— …—    L  §  