DIRECTORY HourGlass USING [InitializeHourglass, TickHourglass], InputFocus USING [inputEnabled, InputFocusImpl], Process USING [Detach, Pause, MsecToTicks, Ticks], SafeStorage USING [SetCollectionInterval], WindowManager USING [RestoreCursor]; Begin: CEDAR PROGRAM IMPORTS HourGlass, InputFocus, Process, --Runtime,-- SafeStorage, 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 [] _ SafeStorage.SetCollectionInterval[16384]; -- rumor of better performance END. ¬Begin.mesa; Last Edited by McGregor, October 27, 1982 9:49 am Last Edited by: Maxwell, January 3, 1983 1:37 pm Runtime USING [SelfDestruct], Runtime.SelfDestruct[]; Κ:– "Mesa" style˜JšΟc ™ Jš1™1Jšœ0™0J˜šΟk ˜ Jšœ žœ&˜5Jšœ žœ ˜0Jšœžœ%˜2Jšœ™Jšœ žœ˜*Jšœžœ˜$J˜—Jšœž ˜J˜Jšžœ! œ˜OJšžœ ˜J˜Jšž˜J˜šΟn œžœžœžœ ˜+J˜1J˜Jšžœžœ)žœ˜QJ˜Jšœ™Jšžœ˜J˜—Jšžœ˜ J˜Jšžœžœ'˜UJ˜Jšœ/˜MJ˜Jšžœ˜J˜J˜J˜—…—8