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 / EXAMPL1.CDL < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.4 KB  |  99 lines
  1. rem program exampl1.cdl
  2.  
  3. on reg goto ,getent,f8,f8
  4.  
  5. :getent
  6.    getent "Select example entity",entype
  7.    on (@key + 3) goto exit,getent,getent,
  8.    if ((entype == 0) || (@error == 1))
  9.       goto getent
  10.  
  11. :loop
  12.     getmenu "Choose parameter to reset (Esc to end)",\
  13.         "LEVEL",\
  14.         "COLOR",\
  15.         "VIEW",\
  16.         "MASK",\
  17.   "PEN",\
  18.         "LNTYPE",\
  19.         "LNWDTH",\
  20.         "TEXT",\
  21.         "DONE"
  22.     on (@key + 3) goto done,getent,loop,loop,f1,f2,f3,f4,f5,f6,f7,f8,done
  23.  
  24. :f1
  25.     set level,@intdat[4]
  26.     goto loop
  27.  
  28. :f2
  29.     set color,@intdat[3]
  30.     goto loop
  31.  
  32. :f3
  33.     if entype=3 || entype > 10
  34.         set view,@intdat[8]
  35.         goto loop
  36.  
  37. :f4
  38.     set mask,entype
  39.     goto loop
  40.  
  41. :f5
  42.  set pen,@intdat[6]
  43.     goto loop
  44.  
  45. :f6
  46.     set linetype,@intdat[7]
  47.     goto loop
  48.  
  49. :f7
  50.     set linewidth,@intdat[7]
  51.     goto loop
  52.  
  53. :f8
  54.  if (@intdat[0] < 11)
  55.          goto message1
  56.  getmenu "Choose text option to reset",\
  57.    "NOT HGT",\
  58.    "ASPECT",\
  59.    "ANGLE",\
  60.    "DIM HT",\
  61.    "DIM SCL",\
  62.    "DONE"
  63.  on (@key + 3) goto loop,loop,f8,f8,height,aspect,angle,dimht,dimscl,loop
  64.  
  65. :height
  66.      set textht,@fltdat[2]
  67.      goto f8
  68.  
  69. :aspect
  70.     set textasp, @fltdat[3]
  71.  goto f8
  72.  
  73. :angle
  74.  set textang, @fltdat[4]
  75.  goto f8
  76.  
  77. :message1
  78.   pause "Entity is not text...  (RET)"
  79.   goto loop
  80.  
  81. :dimht
  82.   reg = 2
  83.   exit
  84.  
  85. :dimscl
  86.   reg = 3
  87.   exit
  88.  
  89. :done
  90.    getmenu "Choose option",\
  91.      "EXIT",\
  92.      "NEW ENT"
  93.    on (@key + 3) goto loop,loop,done,,exit,getent
  94.  
  95. :exit
  96.   reg = 4
  97.   exit
  98.  
  99.