home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
QBNWS204.ZIP
/
BRIEF.ZIP
/
QBHELP.CB
< prev
next >
Wrap
Text File
|
1991-12-07
|
1KB
|
55 lines
/*
** QBHELP.CB
** BASIC On-Line Hypertext Help
*/
void qbhelp ()
{
int ss,p = 0;
string rd,word,word1,dospass = "qh ";
message ("QB Help Advisor Hypertext Interface");
save_position();
rd = read(1);
if (rd == "" || rd == " " || rd == "\n")
{
p = prev_char();
rd = read(1);
}
while (rd != "" && rd != " " && rd != "\n" && rd != "\;" &&
rd != "_" && rd != "\"" && rd != ")" && rd != "," &&
rd !="=" && rd != "(" )
{
p = prev_char();
if (p == 0)
break;
rd = read(1);
}
next_char();
word = ltrim( trim( read()));
restore_position();
if (word != "")
{
ss = search_string("[ ,!#@%&\n()\x5f]",word);
if (ss > 1)
{
--ss;
word1 = substr(word,1,ss);
}
else
word1 = word;
ss = search_string("[~,(\x22\x5f]",word1);
if (ss > 0)
{
word = word1;
word1 = substr(word,ss);
}
dospass = dospass + word1;
}
else
dospass = dospass + "basic";
dos(dospass);
}