[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

Pgm runs, but not in U2



Never able to resist tinkering, I've modified the U2's percentage of file
read (%) routine to make a display more to my liking--i.e., to display in
kilobytes rather than bytes. I get the following to work fine as a
standalone pgm, but as a U2 routine it generates this error:

"Extended Save/Get Ranges Utilized [Reserved!] by XyWWWeb.U2:
600-615, 616-628, [Stack: 629-632,] 633-643, 652-654, 661-699, 708-733, 739-
791"

Here's the code (moved here courtesy of clipw):

XPLeNCODE v2.0
b-gin [UNTITLED]
{002}{<}SX50,{<}CP{>}{>};*; store current cursor position in{032}
50 (so can jump back)[cr|lf][DX_][BF_]{<}SX01,{<}CP{>}{>};*;{032}
turn off display, go to bottom, get that position[cr|lf][JM_]
2.ReJuMP[Q2_];*; come back to where was[cr|lf]{<}SX01,@INT({<
}PV01{>}/1000){>};*; convert to kilo units[cr|lf]{<}IF{<}PV01
{>}==0{>}{<}PR100%{>}{<}EX{>}{<}EI{>};*; to take care of divi
de by zero[cr|lf]{<}SX50,@INT({<}PV50{>}/1000){>};*; convert{032}
to kilo units[cr|lf]{<}SX02,@INT({<}PV50{>}/{<}PV01{>}*100){>
};*; get the ratio and convert to percent[cr|lf]{<}SX50,{<}IS
02{>}+"% read ("+{<}IS50{>}+"/"+{<}IS01{>}+")"{>};*; format i
t for display below[cr|lf]{<}PR@50{>}{002}[cr|lf]
-nd
XPLeNCODE

Thanks for the help,
Harry

Harry Binswanger
hb@xxxxxxxx