home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbhelp.lbr / HELP.CZD / HELP.CMD
Encoding:
Text File  |  1993-10-26  |  1.4 KB  |  63 lines
  1. *
  2. *  help.cmd
  3. *
  4. *  Glenn Story - 6/10/83
  5. *
  6. *  This command provides interactive help information about dBASE
  7. *
  8. use help index help
  9. set talk off
  10. set intensity off
  11. store '?' to choice
  12. do while 1=1
  13.   do help1
  14.   do case
  15.     case choice='1'
  16.       erase
  17.       store "        " to xcommand
  18.       @ 5,5 say "Enter command name" get xcommand
  19.       read
  20.       store !(xcommand) to xcommand
  21.       do while xcommand # " "
  22.         find &xcommand
  23.         if #=0
  24.           @ 10,5 say "Command not found"
  25.           @ 20,5 say "Press any key to continue" get choice
  26.           read
  27.         else
  28.           do help5
  29.         endif
  30.         store link to xcommand
  31.       enddo
  32.     case choice='2'
  33.       erase
  34.     @ 2, 32 say "dBASE II Commands"
  35.     store 4 to y
  36.     find ?
  37.     do while .not. eof
  38.       store 2 to x
  39.       do while (x<72) .and. (.not. eof)
  40.         if $(command,1,1)<>'%'
  41.           @ y,x say command
  42.           store x+10 to x
  43.         endif
  44.         skip
  45.         enddo
  46.       store y+1 to y
  47.       enddo
  48.      @ 23,10 say "Press any key to continue" get choice
  49.      read
  50.     case choice='3'
  51.       do help2
  52.     case choice='4'
  53.       do help3
  54.       do help4
  55.     case choice='0'
  56.       erase
  57.       set intensity on
  58.       set talk on
  59.       use
  60.       return
  61.   endcase
  62. enddo
  63.