{**********************************************************************
{*
{* Teach Globals -- Version 3.0  (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1990
{* All Rights Reserved.
{*
{* Developer Technical Support Apple II Sample Code
{*
{* This file contains the code which intializes the global variables 
{* used by the busy box program.
{*
{**********************************************************************}
{$R-}



PROCEDURE Debug;  INLINE $0000;


procedure InitGlobals;
	begin   {of InitGlobals}
		staggerCount := 0;
  	 	quitFlag	 := false;      			{ Done flag will be set by Quit item. }
   		event.wmTaskMask := $001FFFFF;  		{ Allow TaskMaster to do everything. }
   		lastWindow 		:= GrafPortPtr(-1);		{ Init this for CheckFrontW, forces it to run first time}
	end;    {of InitGlobals}