Re: SPELL.TMP

[cld@xxxxxxxx]

Fred,

OK, I see the problem now. If you substitute the revised frame below for the existing SPELL frame, you should be in business. Issue DECODE to decode it; DeFine the resulting block of code in its entirety, and issue ADD2U2.

Let me know.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5spell,sp}} Batch SPELL and CORRECT [CLD Rev.9/30/08][cr|l
f]{002};*; After a routine by Thomas J. Hawley[cr|lf];*;[cr|l
f];*; User Variable: Use snaking colums to display word list
?[cr|lf];*; Default = {<}SV01,N{>} = No snaking columns[cr|l
f]{<}SV99,Snake_Columns?{>}[JM_]2.RegData[Q2_]{<}SX01,{<}IS99
{>}{>};*;[cr|lf][XH_]{<}IF{<}VA$FI{>}<>"SPELL.TMP"{>};*;[cr|l
f]{<}IF{<}VA$WS{>}<>1{>}{<}SV01,No file{>}{<}LBa{>}{<}PR@01{>
}{<}EX{>}{<}EI{>};*;[cr|lf]{<}IF{<}VA$MO{>}>0{>}{<}SV01,File{032}
modified -- SAve or discard changes{>}{<}GLa{>}{<}EI{>};*;[cr
|lf]{<}IF{<}VA$FP{>}{240}"["{>}{<}SV01,Can't use secondary co
py of file for batch spell{>}{<}GLa{>}{<}EI{>}[BX_]es 1[Q2_];
*;[cr|lf]{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{
{062}};*;[cr|lf]{<}SX02,{<}VA$WN{>}{>}{<}SX03,{<}VADR{>}+"SPELL.T
MP"{>};*;[cr|lf][BX_]gofile {<}PV03{>}[Q2_]{<}IF@not({<}ER{>}
){>}[BX_]ab/nv[Q2_][BX_]func #{<}PV02{>}[Q2_]{<}EI{>};*;[cr|l
f]{<}SX02,{<}VA$FP{>}{>}[BX_]spell/nv {<}PV02{>},{<}PV03{>}[Q
2_][BX_]wait[Q2_];*;[cr|lf][BX_]func #{<}SX02,{<}VA$WA{>}{>}{
<}PV02{>}[Q2_][BX_]ca {<}PV03{>}[Q2_][DX_][YD_]{<}SX02,0{>};*
;[cr|lf];*;[cr|lf];*; Fix word list[cr|lf]{<}PRWorking{>}{<}S
V03,[WN_]{>}{<}SV04,{129}{>}{<}XS03,04,05,,06{>}{<}SV03,[255+
129+002]{>}{<}XS03,04,04,,05{>}{<}SX03,{<}IS06{>}+{<}IS05{>}+
"[255+070+069]"{>};*; S/G 03 has Ascii-1 + Ascii-2 + 3-byte A
scii-254[cr|lf]{<}SV04,{027}X{>}{<}LBb{>}[YD_][TF_]{<}IF{<}VA
|03{>}>0{>}{<}SV06,{>}{<}XS03,04,,05,06{>}{<}SX03,{<}IS06{>}{
{062}}{<}LBc{>}[BX_]se {<}PV05{>}[Q2_]{<}IF@not({<}ER{>}){>}[DL_
];*;[cr|lf]{<}IF{<}PV02{>}<1{>}[BF_][255+048+068]{<}SV02,Ques
tionable Errata:{>}{<}GT02{>}[255+048+068]{<}SX02,{<}CP{>}{>}
[DE_]{<}EI{>};*;[cr|lf]{<}IF{<}VA$DN{>}<{<}PV02{>}{>}[BX_]se{032}
 a:[wC][Q2_]
{<}SX02,{<}CP{>}{>}[BF_][CP_][DE_][DN_]{<}GLc{>}[cr|lf]{<}EI{
{062}}{<}EI{>}{<}GLb{>}{<}EI{>}[YD_][TF_];*;[cr|lf]{<}IF@upr({<}V
A@01{>})=="Y"{>}{<}SV01,{<}BL1{>}{<}GU0.2IN,0IN{>}{<}SN0IN,1.
85IN,3.5IN,5.95IN{>}{>}{<}GT01{>}[SP_][NM_]{<}EI{>};*;[cr|lf]
{<}IF{<}VA$MO{>}>0{>}[BX_]sa[Q2_][BX_]wait[Q2_]{<}EI{>}[DO_][
FF_]{<}IF{<}PV02{>}>0{>}{<}SV01,Questionable errata at bottom
 of file{>}{<}GLa{>}{<}EI{>}{<}SV01,Done{>}{<}GLa{>}{<}EX{>}[
cr|lf];*;[cr|lf];*; Correct:[cr|lf]{<}EI{>}{<}SX02,{<}CP{>}{>
}[TF_][YD_][DF_][BX_]se/f [wC][Q2_][DF_]{<}SV03{>}[YD_]{<}LB
d{>}{<}IF{<}CP{>}<>{<}PV02{>}{>}[BX_]jmp {<}PV02{>}[Q2_]{<}GL
d{>}{<}EI{>}[DW_]{<}SV02{>}[YD_][AS_]{<}IF{<}VA$FP{>}{238}@up
r({<}IS03{>})<0{>}[AS_]{<}SV01,CAll subject file in adjacent{032}
screen{>}{<}GLa{>}{<}EI{>};*;[cr|lf];*;[cr|lf];*; Func SO (Sp
ell One word) method - unreliable[cr|lf];*;[TF_]{<}LB {>}[BX_
]sea/w |{<}PV02{>}|[Q2_]{<}IF@not({<}ER{>}){>}[SO_][BX_]wait[
Q2_]{<}GL {>}{<}EI{>}{<}EX{>};*;[cr|lf];*;[cr|lf];*; Change V
erify method[cr|lf][XP_][TF_][BC_]cva/w |{<}PV02{>}|{<}PV02{>
}|{<}SX03,{<}VA|02{>}+1{>}{<}CUe,03{>}[CL_]{<}LBe{>};*;[cr|lf
]{<}SV01,|Type correction, then eXeCute Change command{>}{<}G
La{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx


-------------- Original message ----------------------
From: "Fred Weiner" 
>
> as requested . . . thank you. FW