Re: more fishout

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Morris Krok"  Sat, 27 Sep
2003 09:54:32 -0700

> I would to see more than one version of the Fish or Fishout
> program that is contained in the U2 file, so that I can use the
> other versions for different topics . . . .

In other words, not additional copies of FISHOUT (a/k/a FISH), but a
modification that would allow it to be used with additional data
files? That's a good idea, Morris, and easy enough to do.

In fact -- done. Try the following revised frame, please.
Decode it (DECODE), DeFine it, and plug it into your U2
file (ADD2U2).

The usage is:

FISH [/D[d:\path\]datafile.ext] [hint]

where "d:\path\datafile.ext" is the (optional) data file to search
in and "[hint]" is the string to search for. To specify a data file
(other than the default), the prefatory switch "/d" (case-
INsensitive) is required; there is NO SPACE between "/d" and the
filename. If /D points to a file that does not exist, FISH creates
the file and CAlls it into the current window for editing.

All the other features of FISH described in v114 of the U2 Help
screen are retained. (Notably in this context, if "[hint]" is
omitted, FISH opens the data file for editing.) Command
HELP FISH for details.

Need I add that FISH is a low-fat, low-cholesterol, _healthful_
routine that will improve your memory usage (by enabling the
offloading of large, artery-clogging textual Save/Gets into easily
accessible data files)? Oh yes!

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5Fish*}} Fish out text, XPL, etc. stored in an external da
ta file (FISHOUT.PM v2.1) UserVar [CLD rev. 2/6/03, 9/27/03][
cr|lf]{002}[XH_][BX_]es 1[Q2_][DX_]{<}SV99,{>}{<}SX01,{<}VA@5
0{>}{>}{<}IF@upr({<}IS01{>}){240}"/D"{>}{<}SV02,/d{>}{<}SV03,
{>}{<}XS01,02,,02,03{>}{<}SX99,{<}IS03{>}{>}{<}SV01,{>}{<}IF{
<}IS03{>}{240}" "{>}{<}SV02, {>}{<}XS03,02,99,,01{>}{<}EI{>}{
<}EI{>}{<}SV02,{>}{<}IF@upr({<}VA$FR{>}){240}"A"{>}{<}SV02,a{
>}{<}EI{>}{<}IF{<}VA$FR{>}{240}"/"{>}{<}SX03,{<}VA$FR{>}{>}{<
}SV04,/{>}{<}XS03,04,,04,04{>}{<}SX02,{<}IS02{>}+"/"+{<}IS04{
>}{>}{<}EI{>}[JM_]2.CMline[Q2_];*;[cr|lf]{<}IF{<}VA|99{>}<1{>
}{<}SV99,Fishout_Data_File{>}[JM_]2.RegData[Q2_]{<}EI{>};*;[c
r|lf]{<}SX03,{<}IS99{>}{>}{<}SV99,{>}{<}IF{<}VA|03{>}<4{>}{<}
SX50,@upr({<}VA$ED{>}){>}[JM_]2.GetPath[Q2_]{<}SX03,{<}IS50{>
}+"\FISHOUT.DAT"{>}{<}EI{>}{<}SX50,{<}IS03{>}{>}[BX_]exist {<
}PV50{>}[Q2_]{<}IF{<}ER{>}{>}{<}SV01,FISHOUT.PM v2.1 - User D
ata[cr|lf]{223}[cr|lf]Your data here.[cr|lf]{223}[cr|lf]Add a
s many entries as desired: blocks of text, formatting command
s, XPL code, whatever -- no limit on number or length of entr
ies.[cr|lf]{223}[cr|lf]{024}[cr|lf]Ascii-223 on its own line{032}
separates each entry from the next.[cr|lf]{025}[cr|lf]{223}[c
r|lf]Command HELP FISH for detailed help.[cr|lf]{223
}[cr|lf]{>}[BX_]sa %01,{<}PV50{>}[Q2_]{<}IF{<}ER{>}{>}[DO_][F
F_]{<}SV50,{>}[JM_]2.Errcode[Q2_]{<}EX{>}{<}EI{>}[BX_]wait[Q2
_]{<}SV01,{>}{<}EI{>}{<}IF{<}VA$WS{>}<1{>}{<}IF{<}VA$WO{>}<9&
{<}VA|01{>}>0{>}[BX_]window n[Q2_]{<}EI{>}{<}EI{>}{<}IF@upr({
<}VA$FP{>})==@upr({<}IS50{>})&{<}VA|01{>}<1{>}{<}SV01,[wX]{>}
{<}SV03,!{>}{<}SU04,{<}SX05,{<}VA$MG{>}{>}{<}PR@05{>}{>}{<}SX
05,{<}CP{>}{>}{<}GLd{>}{<}EI{>}{<}SX03,{<}VA$FP{>}{>}[JM_]
2.HIDE:01-03[Q2_][JM_]2.CallorGo/100[Q2_][JM_]2.UNHIDE[Q2_]{<
}IF{<}PV51{>}<2{>}[TF_][BX_]se {223}[Q2_]{<}IF{<}VA$FP{>}=={
<}IS03{>}{>}{<}SX51,-1{>}{<}EI{>}{<}EI{>}{<}IF{<}VA$VE{>}<"V4
{046}099"&{<}VA|01{>}>0&{<}PV51{>}>1{>}{<}SX03,{<}VA$WN{>}{>}[BX_
]window {<}PV03{>},0,13,80,10[Q2_]{<}EI{>}{<}IF{<}VA|01{>}<1{
>}{<}SX01,{<}VA$MG{>}{>}{<}LBa{>}[DO_][FF_]{<}PR@01{>}{<}EX{>
}{<}EI{>}{<}SV03,{>}{<}SU04,{<}SX05,{<}VA$MG{>}{>}{<}PR@05{>}
{<}IF{<}PV51{>}>1{>}{<}SX05,{<}VA$WN{>}{>}[BX_]ab/nv[Q2_]{<}I
F{<}VA$WO{>}>1&{<}VA$WN{>}=={<}PV05{>}{>}[BX_]rs[Q2_]{<}EI{>}
{<}LBb{>}{<}SX05,{<}VA$TX{>}{>}[BC_]{<}PV616{>}{<}IF{<}PV05{>
}>0{>}[GT_]{<}EI{>}[DO_][FF_]{<}EX{>}{<}EI{>}{<}IF{<}PV51{>}>
0{>}[AS_]{<}EI{>}{<}GLb{>}{>}{<}SV06,{>}{<}SV07,b{>}{<}SV08,[
TF_]{>}{<}LBc{>}[BX_]se{<}PV06{>} {223}[wC][Q2_]{<}IF{<}ER{>
}{>}{<}PV08{>}{<}GLc{>}{<}EI{>}{<}IF{<}VA|06{>}>0{>}[CL_]{<}E
I{>}[BX_]se{<}PV06{>}{<}PV02{>} {252}{<}PV01{>}{252}[Q2_]{<}I
F{<}ER{>}{>}{<}IF{<}VA|03{>}<1{>}{<}GT04{>}{<}SV01,Not found{
>}{<}GLa{>}{<}EI{>}{<}PV08{>}{<}GLc{>}{<}EI{>}{<}LBd{>}{<}SX0
5,{<}CP{>}{>}[BX_]seb {223}[Q2_]{<}LBe{>}{<}IF{<}VA$CY{>}>0{
>}[MU_]{<}GLe{>}{<}EI{>}[BX_]jmp {<}PV05{>}[Q2_][DO_][DX_]{<}
SV03,!{>}{<}PR|{025}{024}|Enter=Insert|S=Save text to key|L=L
DPM |R=Runcode|E=Edit|Esc{>}{<}SX05,{<}RK{>}{>}{<}SX05,{<}VA$
KC{>}{>}{<}SX09,("|"+{<}IS05{>}+"|"){238}"|1|18|19|38|31|23|2
8|104|"{>}{<}IF{<}PV09{>}<0{>}{<}SV06,{>}{<}SV07,b{>}{<}SV08,
[TF_]{>}{<}IF"|72|75|100|101|"{240}("|"+{<}IS05{>}+"|"){>}{<}
SV06,b{>}{<}SV07,/f{>}{<}SV08,[BF_]{>}{<}EI{>}{<}GLc{>}{<}EI{
>}{<}IF{<}PV09{>}<2{>}{<}LBf{>}{<}GT04{>}{<}SX01,{<}VA$MG{>}{
>}{<}GLa{>}{<}EI{>}
{<}IF{<}PV09{>}<5{>}{<}SX01,"Edit "+{<}VA$FI{>}+", then SAve{032}
or STore changes{>}{<}GLa{>}{<}EI{>}[BX_]seb {223}[wC][Q2_]{
<}IF{<}ER{>}{>}{<}LBg{>}[YD_]{<}SV01,Data format error - Abor
t{>}{<}GLa{>}{<}EI{>}[YD_][CR_][CR_][DF_][BX_]se/f [wC]{223}
[Q2_]{<}IF{<}ER{>}{>}{<}GLg{>}{<}EI{>}[DF_]{<}IF{<}PV09{>}<8{
>}{<}SU754{>}[DB_][YD_]{<}GT04{>}{<}GT754{>}{<}SV754,{>}{<}EX
{>}{<}EI{>}{<}IF{<}PV09{>}<14{>}{<}SV01,SaV{>}{<}SV03,V{>}{<}
IF{<}PV09{>}<11{>}{<}SV01,LDPM{>}{<}SV03,U{>}{<}EI{>}{<}SX09,
{<}IS01{>}+" to what key? (0-9|A-Z){>}{<}LBh{>}{<}PR|@09{>}{<
}SX05,@upr({<}RK{>}){>}{<}IF{<}VA$KC{>}<2{>}{<}GLf{>}{<}EI{>}
{<}IF{<}VA|05{>}==1&"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"{24
0}{<}IS05{>}{>}{<}SX10,"{<}S"+{<}IS03{>}+{<}IS05{>}+"{>}[DB_]
[YD_]"{>}{<}PV10{>}{<}SV10,{>}{<}SX01,{<}IS01{>}+"ed to "+{<}
IS05{>}{>}{<}GT04{>}{<}GLa{>}{<}EI{>}{<}GLh{>}{<}EI{>}[AS_]{<
}IF{<}VA$WS{>}<>1{>}{<}SV01,No file{>}[AS_]{<}GT04{>}{<}GLa{>
}{<}EI{>}{<}IF{<}VA$WS{>}<1{>}{<}SV01,No file{>}[AS_]{<}GT04{
>}{<}GLa{>}{<}EI{>}[CP_][AS_][YD_]{<}GT04{>}{<}SV01,Done{>}{<
}GLa{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

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