
/**  Monitor System Status  **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: January, 1988 */
/*K: Status */
/*B: Simple status tracking facility */

<<XPr
<<XStack

Push["",%statusstack%]

/*: PushS[$messg]
	Push $messg on to status stack and display in status line */
PushS_:Tier;
PushS[$messg]:: (Push[$messg,%statusstack%]; PrS[$messg])

/*: PopS[]
	Pop current status message of status stack and display previous
	status message in status line */
PopS_:Tier;
PopS[] :: (Pop[%statusstack%];PrS[Top[%statusstack%]])

