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 / HELP.CDL < prev    next >
Encoding:
Text File  |  1988-01-15  |  763 b   |  36 lines
  1. rem     name:     help.cdl
  2.  
  3. rem     date:     011488 simon izraelevitz
  4.  
  5. rem     task:     help files dispatcher
  6.  
  7. rem     -----------------------------------------------
  8.  
  9. :menu
  10. getmenu "Indicate for which PROGRAM MENU PAGE do you want help",\
  11.         "PRG1HLP",\
  12.         "PRG2HLP",\
  13.         "PRG3HLP"
  14.         if (@key > 3)
  15.            goto menu
  16.         on (@key + 3) goto escape,escape,menu,menu,page1,page2,page3,
  17.  
  18. :escape
  19.         on (pagenum - 1) goto esc1,esc2,esc3,
  20. :esc1
  21.         retrflag = 0
  22.         chain utility1.cdl
  23. :esc2
  24.         retrflag = 1
  25.         chain utility2.cdl
  26. :esc3
  27.         retrflag = 2
  28.         chain utility3.cdl
  29.  
  30. :page1
  31.         chain help11.cdl
  32. :page2
  33.         chain help21.cdl
  34. :page3
  35.         chain help31.cdl
  36.