Re: UNDO

[Harry Binswanger hb@xxxxxxxx]

I forgot to add my U2 frames. Here they are:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5undo.int,rud}} INiTialize|Restart UnDo RJH 7/12/08[cr|lf
]{002}{<}SX01,{<}VA$FR{>}{>}{<}SX50,{<}VA$ED{>}{>}[JM_]2.GetP
ath[Q2_][BX_]exist {<}PV50{>}\UnDo.exe[Q2_]{<}IF@NOT({<}ER{>}
){>}[BX_]exist {<}PV50{>}\KillNB.exe[Q2_]{<}IF@NOT({<}ER{>}){
{062}}[BX_]exist {<}PV50{>}\UD\.[Q2_]{<}IF{<}ER{>}{>}[BX_]mkdir {
<}PV50{>}\UD[Q2_]{<}IF{<}ER{>}{>}{<}SX50,"Can't make director
y "+{<}IS50{>}+"\UD - Abort"{>}{<}PR@50{>}{<}EX{>}{<}EI{>}[BX
_]wait[Q2_]{<}EI{>};*;[cr|lf]{<}SV99,UnDoDepth{>}[JM_]2.RegDa
ta/R[Q2_]{<}SX707,{<}IS99{>}{>};*;[cr|lf]{<}SV99,UnDoKeys{>}[
JM_]2.RegData/R[Q2_]{<}IF{<}IS99{>}{238}"Kk"<0{>}{<}SX02,{<}I
S99{>}{>};*;[cr|lf]{<}SV99,UnDoFreq{>}[JM_]2.RegData[Q2_];*;[
cr|lf][BX_]dos/nv/x/z /c kmd/c start /min {<}PV50{>}\UnDo.exe
 {<}PV02{>} {<}PV99{>} {<}PV707{>}[Q2_]{<}SV50,707{>}[JM_]2.r
emove[Q2_]{<}EI{>}{<}IF{<}IS01{>}{240}"."{>}[JM_]2.cud/nv[Q2_
]{<}EI{>}{<}PR okay on undo.int{>}{<}EX{>}{<}EI{>}{<}SV01,\Ki
llNB{>}{<}LBA{>}{<}SX01,{<}IS50{>}+{<}IS01{>}+".exe not found
"{>}{<}PR@01{>}{<}EX{>}{<}EI{>}{<}SV01,\UnDo{>}{<}GLA{>}{002}
[cr|lf][cr|lf]{{;5$T}} Create Timed UnDo Backup RJH 7/12/08[
cr|lf]{002}{<}IF{<}VA$WS{>}==1{>}{<}SX06,{<}VA$FI{>}{>}{<}SV0
7,{>}{<}SX08,{<}VA$TX{>}{>}{<}IF{<}IS06{>}{240}"."{>}{<}SX06,
{<}VA@06.1{>}{>}{<}EI{>}{<}IF{<}IS06{>}{240}"["{>}{<}SX06,{<}
VA$WN{>}{>}{<}SX06,"UNTITLD"+{<}IS06{>}{>}{<}SX09,{<}VA$DT{>}
{>}[DX_][GT_]{<}SX10,{<}CP{>}{>}[BS_]{<}SX07,{<}CP{>}{>}[HM_]
{<}SX11,{<}CP{>}{>}{<}SX11,{<}IS11{>}+"|"+{<}IS07{>}+"|"+{<}I
S10{>}{>}{<}SV12,{>}{<}IF{<}VA$DF{>}>0{>}[DZ_]{<}SX12,{<}VA$D
S{>}{>}{<}SX13,{<}VA$DN{>}{>}[XD_]{<}EI{>}[XP_][TF_][DF_][BF_
][DF_]{<}SV07,d{>}{<}EI{>}{<}SX50,{<}VA$ED{>}{>}[JM_]2.GetPat
h[Q2_]{<}SX14,{<}IS50{>}+
"\UD\"{>}{<}SX15,{<}IS14{>}+{<}IS06{>}+".BAK"{>}[BX_]exist {<
}PV15{>}[Q2_]{<}IF@NOT({<}ER{>}){>}[BX_]del/nv {<}PV15{>}[Q2_
][BX_]wait[Q2_]{<}EI{>}[BX_]sa{<}PV07{>}/nv {<}PV15{>}[Q2_][B
X_]wait[Q2_]{<}SX16,{<}IS50{>}{>}{<}IF{<}VA|07{>}>0{>}[XD_]{<
}IF{<}VA|12{>}>0{>}{<}SX50,{<}IS12{>}{>}[JM_]2.ReJump[Q2_][DF
_]{<}SX50,{<}IS13{>}{>}[JM_]2.ReJump[Q2_][DF_]{<}EI{>}{<}SX50
,{<}IS09{>}{>}[JM_]2.setDT[Q2_]{<}SX50,{<}IS11{>}{>}[JM_]2.Sc
rnRest[Q2_][DO_][FF_]{<}EI{>}{<}IF{<}PV08{>}<1{>}[GH_]{<}EI{>
}{<}SX14,{<}IS14{>}+"UNDO.CTL"{>}[BX_]sa %06,{<}PV14{>}[Q2_][
BX_]wait[Q2_]{<}EI{>}{002}[cr|lf][cr|lf]{{;5$K}} Create Keyst
roke-Triggered UnDo Backup RJH 7/12/08[cr|lf]{002}{<}IF{<}VA
$WS{>}==1{>}[$T_][BX_]dos/nv/x/z /c kmd/c start /min {<}PV16{
{062}}\UnDo.exe K {<}PV707{>}[Q2_]{<}EI{>}{002}[cr|lf][cr|lf]{{;5
undo,redo}} UnDo|ReDo RJH 7/12/08[cr|lf]{002}{<}SX01,@UPR({<
}VA$FR{>}){>}{<}IF{<}VA$WS{>}==1{>}{<}SX02,{<}VA$FI{>}{>}{<}I
F{<}IS02{>}{240}"."{>}{<}SX02,{<}VA@02.1{>}{>}{<}EI{>}{<}IF{<
}IS02{>}{240}"["{>}{<}SX02,{<}VA$WN{>}{>}{<}SX02,"UNTITLD"+{<
}IS02{>}{>}{<}EI{>}{<}SX50,{<}VA$ED{>}{>}[JM_]2.GetPath[Q2_][
BX_]dos/nv/x/z /c kmd/c start /min {<}PV50{>}\UnDo.exe {<}IF{
<}IS01{>}{240}"U"{>}U{<}EI{>}{<}IF{<}IS01{>}{240}"R"{>}R{<}EI
{>} {<}PV02{>}[Q2_]{<}SX06,{<}IS50{>}+"\UD\"+{<}IS02{>}+".UND
"{>}{<}SV01,3{>}{<}CUA,01{>}[BX_]p[Q2_][BX_]exist {<}PV06{>}[
Q2_]{<}IF@NOT({<}ER{>}){>}{<}GLB{>}{<}EI{>}{<}LBA{>}{<}EX{>};
*;[cr|lf]{<}LBB{>}{<}SX01,{<}VA$FP{>}{>}{<}IF{<}IS01{>}{240}"
["{>}{<}SX03,{<}VA$DT{>}{>}{<}SX07,{<}CP{>}{>}[DX_][XD_][XP_]
[TF_][DF_][BF_][DF_][DN_][JM_]2.Usurp[Q2_][BX_]ldpm {<}PV06{>
},{<}PV50{>}[Q2_][BX_]wait[Q2_]{<}SX04,"{<}SX05,{<}IS"+{<}IS5
0{>}+"{>}{>}"{>}{<}PV04{>}{<}GT05
{>}[BX_]remove {<}PV50{>}[Q2_]{<}SX50,{<}IS03{>}{>}[JM_]2.set
DT[Q2_]{<}SX50,{<}IS07{>}{>}[JM_]2.ReJump[Q2_][DO_][FF_]{<}EX
{>}{<}EI{>}[BX_]copy/nv {<}PV06{>} {<}PV01{>}[Q2_][JM_]2.reca
[Q2_]{<}EI{>}{002}[cr|lf][cr|lf]{{;5cud*}} Clear UnDo Backups
 from One|All(/NV) Windows RJH 6/29/08[cr|lf]{002}{<}SX01,@U
PR({<}VA$FR{>}){>}{<}SV02,*{>}{<}SX50,{<}VA$ED{>}{>}[JM_]2.Ge
tPath[Q2_]{<}IF"/"{238}{<}IS01{>}<0{>}{<}IF{<}VA$WS{>}<>1{>}{
<}EX{>}{<}EI{>}{<}SX02,{<}VA$FI{>}{>}{<}IF{<}IS02{>}{240}"."{
{062}}{<}SX02,{<}VA@02.1{>}{>}{<}EI{>}{<}IF{<}IS02{>}{240}"["{>}{
<}SX02,{<}VA$WN{>}{>}{<}SX02,"UNTITLD"{>}+{<}IS02{>}{>}{<}EI{
{062}}{<}EI{>}{<}SX02,{<}IS50{>}+"\UD\"+{<}IS02{>}{>}[BX_]dos/nv/
x/z /c kmd/c if exist {<}PV02{>}.* del /Q {<}PV02{>}.*[Q2_]{0
02}[cr|lf][cr|lf]{{;5kud}} Kill Running UnDo.exe Processes R
JH 7/9/08[cr|lf]{002}{<}SX50,{<}VA$ED{>}{>}[JM_]2.GetPath[Q2_
][BX_]exist {<}PV50{>}\KillNB.exe[Q2_]{<}IF@NOT({<}ER{>}){>}[
BX_]dos/nv/x/z /c kmd/c start /min {<}PV50{>}\KillNB.exe RELA
X UnDo.exe[Q2_]{<}SX52,{<}IS50{>}{>}{<}SV50,707{>}[JM_]2.remo
ve[Q2_]{<}SX50,{<}IS52{>}{>}{<}EX{>}{<}EI{>}{<}PRKillNB.exe n
ot found{>}{002}[cr|lf][cr|lf]{{;5finito}} Optionally Save th
e Stack, then Quit Unconditionally RJH LastRev.7/9/08[cr|lf]
{002}{<}IF{<}VA$WO{>}>1{>}{<}LBA{>}{<}IF{<}VA$ED{>}{240}".DLL
"&{<}VA$WO{>}<3&({<}VA$FI{>}=="[UNTITLED]"!{<}VA$WS{>}<>1){>}
{<}IF{<}VA$WO{>}>1{>}[AS_]{<}IF{<}VA$WN{>}<>66{>}[AS_]{<}LBB{
{062}}{<}PRWindows open{>}{<}EX{>}{<}EI{>}[AS_]{<}EI{>}{<}LBC{>}{
<}IF{<}VA|620{>}>0{>}[BC_]{<}SV01,{>}{<}IF{<}VA|50{>}>0{>}{<}
SX01,{<}IS50{>}{>}{<}EI{>}{<}IF{<}VA|01{>}<1{>};*;[cr|lf];*;{032}
Fully qualified d:\path\filename in which to save Stack[cr|lf
]{<}SV99,Stored_Stack{>}[JM_]2.RegData/R[Q2_]{<}SX01,{<}IS99{
{062}}
{>}{<}EI{>}{<}SX50,"S"+{<}IS01{>}{>}[JM_]2.stackaux[Q2_][BX_]
wait[Q2_]{<}EI{>}[BX_]ab/nv[Q2_]{<}SX50,{<}VA$ED{>}{>}[JM_]2.
GetPath[Q2_][BX_]exist {<}PV50{>}\KillNB.exe[Q2_]{<}IF@NOT({<
}ER{>}){>}{<}IF{<}VA$VE{>}<"V4.1"{>}[BX_]dos/nv/x/z /c kmd/c{032}
start /min {<}PV50{>}\KillNB.exe RELAX UnDo.exe[Q2_]{<}EI{>}{
<}IF{<}VA$ED{>}{240}".DLL"{>}[BX_]do/nv/x/z {<}PV50{>}\KillNB
{046}exe Nota Bene[Q2_]{<}EI{>}{<}EI{>}[BX_]quit/nv[Q2_]{<}EX1{>}
{<}EI{>}{<}GLB{>}{<}EI{>}{<}IF{<}VA$WS{>}==1{>}{<}IF{<}VA$ED{
{062}}{240}".DLL"{>}{<}GLA{>}{<}EI{>}{<}GLB{>}{<}EI{>}{<}GLC{>}{0
02}[cr|lf][cr|lf]
-nd
XPLeNCODE

Harry Binswanger
hb@xxxxxxxx