home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / qbnws204.arj / BRIEF.ZIP / QBHELP.CB < prev    next >
Encoding:
Text File  |  1991-12-07  |  1.1 KB  |  55 lines
  1. /*
  2. **    QBHELP.CB
  3. **    BASIC On-Line Hypertext Help
  4. */
  5.  
  6. void qbhelp ()
  7. {
  8.    int ss,p = 0;
  9.    string rd,word,word1,dospass = "qh ";
  10.    message ("QB Help Advisor Hypertext Interface");
  11.    save_position();
  12.    rd = read(1);
  13.    if (rd == "" || rd == " " || rd == "\n")
  14.    {
  15.       p = prev_char();
  16.       rd = read(1);
  17.    }
  18.    while (rd != "" && rd != " " && rd != "\n" && rd != "\;" &&
  19.           rd != "_" && rd != "\"" && rd != ")" && rd != "," &&
  20.           rd !="=" && rd != "(" )
  21.    {
  22.       p = prev_char();
  23.       if (p == 0)
  24.          break;
  25.       rd = read(1);
  26.    }
  27.  
  28.    next_char();
  29.    word = ltrim( trim( read()));
  30.    restore_position();
  31.    if (word != "")
  32.    {
  33.       ss = search_string("[ ,!#@%&\n()\x5f]",word);
  34.       if (ss > 1)
  35.       {
  36.             --ss;
  37.             word1 = substr(word,1,ss);
  38.       }
  39.       else
  40.             word1 = word;
  41.  
  42.       ss = search_string("[~,(\x22\x5f]",word1);
  43.       if (ss > 0)
  44.       {
  45.          word = word1;
  46.          word1 = substr(word,ss);
  47.       }
  48.       dospass = dospass + word1;
  49.    }
  50.    else
  51.       dospass = dospass + "basic";
  52.  
  53.    dos(dospass);
  54. }
  55.