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 / HELP12.CDL < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.5 KB  |  69 lines
  1.  
  2. rem     name:     help12.cdl
  3.  
  4. rem     date:     011288 simon izraelevitz
  5.  
  6. rem     task:     page1 help file
  7.  
  8. rem     -----------------------------------------------
  9.  
  10.    cls
  11.    window -hoffset, -voffset,columns*hinc +2*hoffset, rows*vinc + 4*voffset
  12.    mode draw
  13.  
  14. text hstart , vsize ,\
  15. 'C-R  Name             Description             Page1 help file
  16. --------------------------------------------------------------
  17. 2-3   open     
  18.  
  19. 2-4   open
  20.  
  21. 2-5 Lnpptan   Creates a line perpendicular to another line and
  22.               tangent to an arc/circle.
  23. 2-6 Lnpartan  Creates a line parallel to another line and
  24.               tangent to an arc/circle.
  25. 2-7 Lnptang   Creates a line thru a point at a given angle to
  26.               a line or to the x-axis.
  27. 2-8   open
  28.  
  29. 3-1 3Drot     Rotates entities along an axis
  30.  
  31. 3-2   open     
  32.  
  33. 3-3   open     
  34.  
  35. 3-4   open    
  36.              ',\
  37. 0.0 , hlpvtx , pageasp , , 15 , , 0
  38.  
  39. :menu
  40. getmenu "Select action",\
  41.         "MORE",\
  42.         "HLPMENU",\
  43.         "PROGPG1",\
  44.         "PROGPG2",\
  45.         "PROGPG3",\
  46.         "EXIT"
  47.  
  48.         if (@key > 6)
  49.            goto menu
  50.         on (@key + 3) goto page1,menu,menu,menu,more,helpmenu,\
  51.                            page1,page2,page3,exit,
  52. :more
  53.         chain help13.cdl
  54. :helpmenu
  55.         chain help.cdl
  56. :page1
  57.         retrflag = 0
  58.         chain utility1.cdl
  59. :page2
  60.         retrflag = 1
  61.         chain utility2.cdl
  62. :page3
  63.         retrflag = 2
  64.         chain utility3.cdl
  65. :exit
  66.         chain restore.cdl
  67.  
  68.  
  69.