home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / HANGPOS.MPC < prev    next >
Text File  |  1997-04-30  |  246b  |  13 lines
  1. PROCEDURE HangingFilter;
  2. BEGIN
  3. PUSHATTRS;
  4. MESSAGE('Draw Marquis bounding box╔');
  5. CallTool(-128);
  6. MESSAGE('Processing request╔');
  7. SETCURSOR(WATCHC);
  8. DSelectObj(NOT(C='Hanging Position'));
  9. CLRMESSAGE;
  10. POPATTRS;
  11. END;
  12. RUN(HangingFilter);
  13.