{**********************************************************************
{*
{*
{* Teach Globals -- Version 3.0  (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1989
{* 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}
