home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / tech / protocol.hqx / ProtocolSources.pit / MProtocol.p next >
Encoding:
Text File  |  1985-07-10  |  546 b   |  30 lines
  1. {copyright 1986 by Herb Barad}
  2. {Protocol is a program to produce a PICT representation of a class}
  3. {hierarchy from a textual description.}
  4. {parts from Flow MacApp sample - copyright 1986 by Apple Computer}
  5.  
  6. PROGRAM Protocol;
  7.  
  8. USES
  9.     MemTypes, QuickDraw, OSIntf, ToolIntf,
  10.  
  11.     UObject,
  12.     UList,
  13.     UMacApp,
  14.     UPrinting,
  15.     UTEView,
  16.  
  17.     UProtocolChart,
  18.     UProtocol;
  19.  
  20.     VAR gProtocolApplication:    TProtocolApplication;
  21.  
  22. BEGIN
  23.     InitToolbox(3);
  24.     InitPrinting;
  25.  
  26.     New(gProtocolApplication);
  27.     gProtocolApplication.IProtocolApplication;
  28.     gProtocolApplication.Run;
  29. END.
  30.