{ =========================================================================== }
{ PullShel.pas - A shell program to develop any            ver 5.Xc, 05-29-89 }
{                application of pull-down menus.                              }
{   Copyright (c) 1987-1989 James H. LeMay, All rights reserved.              }
{ =========================================================================== }

{ R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }         { TP4 directives }
{$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}    { TP5 directives }

{$M 16384,14000,14000 }

program PullShell;

uses
  Crt,Qwik,Wndw,Pull,
  PullWork,Goof;    { You MUST includes these units! }

procedure DisplayScreen;
begin
  WWrite ( 1, 1,'PULLSHELL v5.Xc           Multi-level Pu'+
                'll-down Menus       Copr 1989  J H LeMay');
  ShowTopLine;
  SetWindowModes (PermMode);
  MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,LightGray+BlackBG,DoubleBrdr,
              Window1);
  SetWindowModes (0);
  WWriteC ( 1,'This is my first pull-down menu program');
end;

begin
{ Qsnow := false; }
  InitPull (LightGray,false); { <<-- Be sure you do this!! }
  DisplayScreen;
  GotoKeyDispatcher;          { <<-- All keyboard entries go through here! }
  AccessWindow (Window0);
  WClrScr;
  WGotoRC (CRTrows,1);
  SetCursor (CursorInitial);  { Restore start up cursor }
end.
