{**********************************************************************
{*
{* Teach -- Version 3.0  (Main Program)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1990
{* All Rights Reserved.
{*
{* Developer Technical Support Apple II Sample Code
{*
{* This file contains the Teach program.
{*
{**********************************************************************}
{$R-}

program Teach;

USES 
		types,
		Quickdraw,
		fonts,
		memory,
		IntMath,
		events,
		prodos,
		locator,
		controls,
		windows,
		lists,
		scrap,
		dialogs,
		menus,
		desk,
		STDFile,
		QDAUX, 
		print,
		miscTool,
		lineEdit,
		GSOS,
		resources,
		
        uEvent, 			{HodgePodge Code Units}
		uMenu, 
		uWindow, 
		uUtils,
		uGlobals;

var
	initRef : Ref;		{ This holds the reference to the startstop record }


PROCEDURE Debug;  INLINE $0000;





BEGIN  { of MAIN program Teach }

	{ Init our globals. }
	initGlobals;

	userID := MMStartup;
	
	{ Startup the tools using the new toolbox call }
	initRef := StartupTools(userID,refIsResource,Ref(1));
	if _toolErr = 0 then
		begin
			setUpMenus;     { Set up menus }
			setupWindows;
			InitCursor;		{ Make cursor show ready }
			mainEvent;      { Use application }
		end;

	{ Let the toolbox shutdown the tools. }
	ShutDownTools(RefIsHandle,InitRef);


END.   { of MAIN program Teach }
