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 / HELP31.CDL < prev    next >
Encoding:
Text File  |  1988-01-19  |  1.2 KB  |  67 lines
  1. rem     name:     help31.cdl
  2.  
  3. rem     date:     011288 simon izraelevitz
  4.  
  5. rem     task:     page3 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             Page3 help file
  15. --------------------------------------------------------------
  16. 1-1   open     
  17.  
  18. 1-2   open     
  19.  
  20. 1-3   open     
  21.  
  22. 1-4   open     
  23.  
  24. 1-5   open     
  25.  
  26. 1-6   open     
  27.  
  28. 1-7   open     
  29.  
  30. 1-8   open     
  31.  
  32. 2-1   open     
  33.  
  34. 2-2   open    
  35.              ',\
  36. 0.0 , hlpvtx , pageasp , , 15 , , 0
  37.  
  38. :menu
  39. getmenu "Select action",\
  40.         "MORE",\
  41.         "HLPMENU",\
  42.         "PROGPG1",\
  43.         "PROGPG2",\
  44.         "PROGPG3",\
  45.         "EXIT"
  46.  
  47.         if (@key > 6)
  48.            goto menu
  49.         on (@key + 3) goto page1,menu,menu,menu,more,helpmenu,\
  50.                            page1,page2,page3,exit,
  51. :more
  52.         chain help32.cdl
  53. :helpmenu
  54.         chain help.cdl
  55. :page1
  56.         retrflag = 0
  57.         chain utility1.cdl
  58. :page2
  59.         retrflag = 1
  60.         chain utility2.cdl
  61. :page3
  62.         retrflag = 2
  63.         chain utility3.cdl
  64. :exit
  65.         chain restore.cdl
  66.  
  67.