StackStorage(VariableName)
 N State S State("Lev")=$ZU( 41 )- 1  ;save the stack level
 D SaveST^%STACK ;save state information into State()
 ;
 S State=$$%msub^%STACK() ;get a temp file pointer
 D StoreST^%STACK ;store State() information into ^mtemp(State)
 D LoadStk^%STACK(State, 0 , 0 ) ;Load into ^mtemp(State,) w/o vars & w/ text
 ;
 S $ZT="Kill^"_$ZN,$ZE=""
 D Show(State) ;interactive display stack information
 M @VariableName=^mtemp(State)
Kill S $ZT="" I $ZE]"" W !,"Error: "_$ZE
 I $G(State) DO  K ^mtemp(State) ;remove *everything* afterwards
 . N X S X=State K State S State=X,X=""
 . F  S X=$O(^mtemp(State,"*STACK", 0 ,"V",X)) Q:X=""  S State(X)=^(X)
 ;
 S $ZT="Error^"_$ZN
 I $D(State) D RestST ;restore state information
 Q
Error S $ZT="" Q
Show(%msub) ;display state information for one temp variable
 N State D LoadVar ;display the process stack as an opener
 Q
LoadVar ;load the variables
 I $G(^mtemp(%msub,"*VARS")) Q  ;already loaded
 DO
 . D LoadStk^%STACK(%msub, 1 , 0 ) ;into %msub, w/ variables & display status
 Q
RestST ;restore state information
 N GLO,IO
 S $ZR=State("$ZR")
 S IO=$G(State("$I")) U IO S $X=State("$X"),$Y=State("$Y")
 S $ZE=State("$ZE") I State("$T") ;set $ZE and $T
 Q