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