DIRECTORY HourGlass USING [InitializeHourglass, TickHourglass], InputFocus USING [inputEnabled, InputFocusImpl], Process USING [Detach, Pause, MsecToTicks, Ticks], WindowManager USING [RestoreCursor]; Begin: CEDAR PROGRAM IMPORTS HourGlass, InputFocus, Process, --Runtime,-- WindowManager SHARES InputFocus = BEGIN WaitingCursor: PROC = BEGIN OPEN HourGlass; aWhile: Process.Ticks = Process.MsecToTicks[100]; InitializeHourglass[56]; UNTIL InputFocus.inputEnabled DO TickHourglass[]; Process.Pause[aWhile]; ENDLOOP; WindowManager.RestoreCursor[]; END; START InputFocus.InputFocusImpl; TRUSTED {Process.Detach[FORK WaitingCursor]}; -- cursor for amusement during start-up END. ΰBegin.mesa; 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 Runtime USING [SelfDestruct], Runtime.SelfDestruct[]; Κ*– "Mesa" style˜JšΟc ™ Jš1™1Jšœ0™0Jšœ2™2J˜šΟk ˜ Jšœ žœ&˜5Jšœ žœ ˜0Jšœžœ%˜2Jšœ™Jšœžœ˜$J˜—Jšœž ˜J˜Jšžœ! œ˜BJšžœ ˜J˜Jšž˜J˜šΟn œžœžœžœ ˜+J˜1J˜Jšžœžœ)žœ˜QJ˜Jšœ™Jšžœ˜J˜—Jšžœ˜ J˜Jšžœžœ'˜UJ˜Jšžœ˜J˜J˜J˜—…—°Ί