home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / apps / cad / jilcad2d / scrnmenu.jil < prev    next >
Text File  |  1986-02-03  |  2KB  |  69 lines
  1. noop
  2. /*
  3.  *
  4.  *    This program is the property of Harvest Software Incorporated.
  5.  *         Copyright (c) 1988 Harvest Software Inc.
  6.  *
  7.  *               All rights reserved.
  8.  *
  9.  *    Title   :    "SCRNMENU.JIL"
  10.  *    Function:    Monochrome slide menu
  11.  *
  12.  *    Revised:  2-Feb-88 by LTH
  13.  * 
  14.  *    These macros were defined using information included in the
  15.  *    JIL IDF Developer's Package.  More macros, menus, icons, figure
  16.  *    libraries, and strokes (JILWARE) may become available by 3rd
  17.  *    party developers as time goes by.
  18.  */
  19.  
  20. macro system-menu (
  21.         menu 1 System1
  22.         prev    (hmsg Posts system3 menu;system-menu3)
  23.         SETUP    (hmsg Posts menu to setup JILCAD;setup-menu)
  24.         ICONS    (hmsg Posts menu for modifying icon pads;icon-menu)
  25.         BINS    (hmsg Posts menu for using bins;bins-menu)
  26.         PARMS   (hmsg Posts menu for setting parameters;parms-menu)
  27.         SCREEN
  28.     (hmsg Posts menu for reading and writing screen files;screen-menu)
  29.         next    (hmsg Posts system2 menu;system-menu2)
  30.         quit    (hmsg Allows you to quit out of JILCAD;doquit);
  31.         common-pad;
  32.         )
  33.  
  34. macro screen-menu (
  35.     menuid Screen;
  36.     if $MTST( == false) (
  37.     menu $MID Screen
  38.     (view .MON)    (hmsg View a MONOVIEW file;readscrn MON)
  39.     (make .MON)    (hmsg Create a MONOVIEW file;wrtscrn MON)
  40.     ()        noop
  41.     (view .PI3)    (hmsg View a PI3 file;readscrn PI3)
  42.     (make .PI3)    (hmsg Create a PI3 file;wrtscrn PI3);
  43.     )
  44.     else (cantpost)
  45.     )
  46.  
  47. macro readscrn (
  48.     doing SCREEN;
  49.     get-file %1;
  50.     if $T (
  51.         read-mon $FILENM;
  52.         echo Done viewing '$FILENM';
  53.         )
  54.     else (echo '$FILENM' does not exist);
  55.     )
  56.  
  57. macro wrtscrn (
  58.     doing SCREEN;
  59.     get-file %1;
  60.     if $T (
  61.         if [yes-no (File exists,|OK to rewrite?)]( == 1) (
  62.             write-mon $FILENM;
  63.             )
  64.         )
  65.     else (write-mon $FILENM);
  66.     echo Done writing '$FILENM';
  67.     )
  68.  
  69.