Re: universal release-define?

[Carl Distefano CLDistefano@xxxxxxxx]

Reply to note from "Myron Gochnauer"  Wed, 15 Dec 1999
12:31:48 -0400

-> Does anyone have an easy way of releasing defined text in
-> windows other than the one currently open
->
-> I have two particular concerns:
->
-> 1) I always have a little anxiety that I will ... forget I have
-> something defined in the last window open (the
-> "alternate screen"), and hit the Move function when nothing is
-> defined

Two possible solutions come to mind. One is to have separate keys for
moving text within the current window and from the alternate screen.

;; MoVe within the current window:
nn=DXASYDASMV

;; MoVe from the alternate screen:
nn=YDMV

Another is to have MoVe and CoPy routines that request user
verification before operating on text in the alternate screen. To
decode the following routine, issue DECODE. To use it, add
it to your U2 file and issue MVV or CPV from the
CMline, or assign it to keys, thus:

nn=NOXHJM(,2,.,M,V,v,)
nn=NOXHJM(,2,.,C,P,v,)

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5MVv,CPv}} MoVe or CoPy with "alternate screen" verify [CL
D][cr|lf]{2};*; {<}NT1{>}[cr|lf];*;[cr|lf]{<}SV01,Y{>};*; <==
 Cancel DeFine after CoPy? (Y|N)[cr|lf];*;[cr|lf];*; {<}NT0{>
}[cr|lf][XH_][BX_]es 1[Q2_][DX_]{<}IF{<}VA$WS{>}<>1{>}{<}SV01
,No file{>}{<}LBa{>}{<}PR@01{>}{<}EX{>}{<}EI{>}{<}SX02,@upr({
<}VA$FR{>}){>}{<}SV03,{27}X{27}X{>}{<}XS02,03,,03,04{>}{<}SV0
4,{>}{<}IF"Y"{238}@upr({<}VA@01{>})==0{>}{<}SV04,[YD_]{>}{<}E
I{>}[DZ_]{<}IF{<}VA$DE{>}<1{>}[AS_][DZ_]{<}IF{<}VA$DE{>}<1{>}
[AS_]{<}SV01,Nothing DeFined in current window or alternate s
creen{>}{<}GLa{>}{<}EI{>}{<}IF{<}VA|04{>}>0{>}{<}SV04,[AS_][Y
D_][AS_]{>}{<}EI{>}[AS_]{<}SV02,MoVe{>}{<}IF{<}IS03{>}{240}"C
P"{>}{<}SV02,CoPy{>}{<}EI{>}{<}SX02,{<}IS02{>}+" DeFined text
 from alternate screen? (y|N)"{>}{<}PR|@02{>}{<}SX02,{<}RK{>}
{>}{<}IF{<}VA$KC{>}<>21{>}{<}SV01,No operation{>}{<}GLa{>}[cr
|lf]{<}EI{>}{<}EI{>}[BX_]func {<}PV03{>}[Q2_]{<}PV04{>}{<}SV0
1,MoVed{>}{<}IF{<}IS03{>}{240}"CP"{>}{<}SV01,CoPied{>}{<}EI{>
}{<}GLa{>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE


-> 2) Sometimes I want to copy text from an alternate screen and
-> then release the definition without having to go back to the
-> other screen. Ideally this would be a generalized copy-and-
-> release function that would work within the current document as
-> well as alternate screens.

Just add the appropriate Cancel DeFine (func YD) statements to your
key assignments. For example:

;; CoPy within current screen, then release DeFine:
nn=DXASYDASCPYD

;; CoPy from alternate screen, then release DeFine:
nn=YDCPDXASYDAS

Or, in the MVv,CPv routines above, set the User Variable to "Y".

BTW, the Jumbo U2 has a facility for issuing any command to the
alternate screen or, indeed, to any other window. The command is AS,
followed by the command to issue. Thus, to cancel the DeFine in the
alternate screen, issue AS func yd. To operate on a window
other than the alternate screen, you add a numerical switch for the
window number. Thus, to ABort the file in window #5:
AS/5 ab. Nifty, but not for the faint of heart.

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