home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / UTILITY.CDL < prev    next >
Encoding:
Text File  |  1988-01-14  |  797 b   |  39 lines
  1.  
  2. rem     name:     utility.cdl
  3.  
  4. rem     date:     011288 simon izraelevitz
  5.  
  6. rem     task:     utility program to call cadl programs from a menu on
  7. rem               the screen
  8.  
  9. rem     -----------------------------------------------
  10.  
  11. rem  initialization
  12.    clear
  13.    hsize   = 6.0
  14.    vsize   = 5.4
  15.    hoffset = 0.25
  16.    voffset = 0.1
  17.    hstart  = 0.0
  18.    vstart  = 0.0
  19.    rows    = 8
  20.    columns = 4
  21.    hinc    = hsize / columns
  22.    vinc    = vsize / rows
  23.    htx     = hinc / 12
  24.    vtx     = vinc / 3
  25.    hlphtx  = .7 * htx
  26.    hlpvtx  = .7 * vtx
  27.    pageasp = (3 * hinc) / (10 * vinc)
  28.    wx1     = @xmin
  29.    wy1     = @ymin
  30.    wx2     = @xmax
  31.    wy2     = @ymax
  32.    curview = @view
  33.    units   = @units
  34.    set unit, 0
  35.    set view, 1
  36.  
  37.    retrflag= 0
  38. chain utility1.cdl
  39.