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 / HELP13.CDL < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.3 KB  |  68 lines
  1. rem     name:     help13.cdl
  2.  
  3. rem     date:     011288 simon izraelevitz
  4.  
  5. rem     task:     page1 help file
  6.  
  7. rem     -----------------------------------------------
  8.  
  9.    cls
  10.    window -hoffset, -voffset,columns*hinc +2*hoffset, rows*vinc + 4*voffset
  11.    mode draw
  12.  
  13. text hstart , vsize ,\
  14. 'C-R  Name             Description             Page1 help file
  15. --------------------------------------------------------------
  16. 3-5   open     
  17.  
  18. 3-6   open
  19.           
  20. 3-7   open
  21.           
  22. 3-8   open
  23.           
  24. 4-3   open                
  25.  
  26. 4-4   open    
  27.  
  28. 4-5   open                
  29.  
  30. 4-6   open
  31.  
  32. 4-7   open
  33.           
  34. 4-8   open
  35.  
  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 help11.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.