home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TGTP60.ZIP / INTROPAK.EXE / FRAME2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-26  |  209 b   |  16 lines
  1. {-- frame2.pas}
  2.  
  3. USES teglunit,teglmain;
  4.  
  5. VAR ifs : ImageStkPtr;
  6.  
  7. BEGIN
  8.   easytegl;
  9.   easyout;
  10.   PushImage(50,50,200,150);
  11.   ShadowBox(50,50,200,150);
  12.   ifs := StackPtr;
  13.   TeglSupervisor;
  14. END.
  15.  
  16.