Re: Need programming help!

[Carl Distefano CLDistefano@xxxxxxxx]

Reply to note from urqurw@xxxxxxxx (Russ W. Urquhart) Mon, 25
Jan 1999 19:01:05 -0600

Russ:

I've taken the liberty of rewriting your program, with comments to
provide some guidance. One further comment: the business about
Stack is a non-issue. What's called for here is a Blind Execute
SEarch (BX sea ... Q2 ) that leaves the CMline intact.

I assume you from your message that you have the XyWWWeb U2
installed. To decode what's below, place your cursor before the
XPLeNCODE header and command DECODE.

If you have questions about what I've done, ask away....

-Carl

XPLeNCODE v2.0
b-gin [UNTITLED]
[XH_];*; Cancel any menu[cr|lf];*;[cr|lf]{<}IF{<}VA$WS{>}<>1
{>}{<}PRNo file{>}{<}EX{>}{<}EI{>};*; Check for open file[cr
|lf];*;[cr|lf][BX_]es 1[Q2_];*; Turn on Error Suppression[cr|
lf];*;[cr|lf][YD_][DF_];*; Cancel any existing DF block; sta
rt DeFine[cr|lf];*;[cr|lf]{<}LBA{>}{<}PR|Type a character to{32}
search to, ^ to end, ` to delete{>};*; Solicit user input (in
itial "|" invokes special screen color for input)[cr|lf];*;[c
r|lf]{<}SX01,{<}RK{>}{>};*; Read user input ("Read Key")[cr|l
f];*;[cr|lf]{<}IF{<}VA$KC{>}<2{>}{<}PRAbort{>}{<}EX{>}{<}EI{>
};*; Give user an ESCape option![cr|lf];*;[cr|lf]{<}IF{<}is01
{>}=="^"{>}[YD_]{<}PRDeFine canceled{>}{<}EX{>}{<}EI{>};*; I
f keypress = "^", cancel DF & EXit[cr|lf];*;[cr|lf]{<}IF{<}va
$kc{>}==41{>};*; If keypress == Key #41[cr|lf];*; Test for ke
ycode here, in case user has redefined this key[cr|lf];*;[cr|
lf][DZ_][RD_]{<}PRDeleted{>}{<}EX{>}{<}EI{>};*; If keypress =
 "`", cancel DF & EXit[cr|lf];*;[cr|lf]{<}IF{<}VA|01{>}==1{>}
;*; SEarch on 1-byte characters only[cr|lf];*;[cr|lf][BX_]sea
 [999]{<}PV01{>}[999][Q2_];*; Don't use "/" as SEarch separa
tor in XPL![cr|lf];*; Command will bomb if input character i
s "/"! Use a rare character,[cr|lf];*; like "[999]", which{32}
doesn't corresponds to any printable character[cr|lf];*;[cr|l
f]{<}IF{<}ER{>}{>}{<}PRNot found{>}[BX_]p[Q2_];*; If SEarch f
ails, report error, with 1 sec. delay before looping back[cr|
lf];*;[cr|lf]{<}EI{>}{<}EI{>}{<}GLA{>}[cr|lf]
-nd
XPLeNCODE


--------------
Carl Distefano
CLDistefano@xxxxxxxx
http://users.datarealm.com/xywwweb/