home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PULL5XA.ZIP / PULLSHEL.ZIP / PULLSHEL.PAS next >
Encoding:
Pascal/Delphi Source File  |  1989-01-11  |  1.3 KB  |  40 lines
  1. { =========================================================================== }
  2. { PullShel.pas - A shell program to develop any            ver 5.Xa, 01-11-89 }
  3. {                application of pull-down menus.                              }
  4. {   Copyright (c) 1987-1989 James H. LeMay, All rights reserved.              }
  5. { =========================================================================== }
  6.  
  7. { R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }         { TP4 directives }
  8. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}    { TP5 directives }
  9.  
  10. {$M 16384,14000,14000 }
  11.  
  12. program PullShell;
  13.  
  14. uses
  15.   Crt,Qwik,Wndw,Pull,
  16.   PullWork,Goof;    { You MUST includes these units! }
  17.  
  18. procedure DisplayScreen;
  19. begin
  20.   WWrite ( 1, 1,'PULLSHELL v5.Xa           Multi-level Pu'+
  21.                 'll-down Menus       Copr 1989  J H LeMay');
  22.   ShowTopLine;
  23.   SetWindowModes (PermMode);
  24.   MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,LightGray+BlackBG,DoubleBrdr,
  25.               Window1);
  26.   SetWindowModes (0);
  27.   WWriteC ( 1,'This is my first pull-down menu program');
  28. end;
  29.  
  30. begin
  31. { Qsnow := false; }
  32.   InitPull (LightGray,false); { <<-- Be sure you do this!! }
  33.   DisplayScreen;
  34.   GotoKeyDispatcher;          { <<-- All keyboard entries go through here! }
  35.   AccessWindow (Window0);
  36.   WClrScr;
  37.   WGotoRC (CRTrows,1);
  38.   SetCursor (CursorInitial);  { Restore start up cursor }
  39. end.
  40.