GlbNodes(Var,Nod,i,Er) ;Loading  1000  Global Nodes 
    Kill Nod
    For i= 1 : 1 : 1000  Set Var=$Q(@Var) Quit:Var=""  Do
    . Set Nod(i)=Var_"="_@Var
    Quit
    ;

Public Sub SaveAll()
Dim Ret1 As String, Er As String, file As String
Dim ret( 6000 ) As String
Dim arrayX As Variant
Dim cnd As Integer, i As Integer, cnt As Integer
Dim Nod As String
Dim rec As Long
Dim Varfull As Variant, schet As Variant, GlobCik As Variant
Dim lvItem As ListItem
Dim FileHandle%
On Error GoTo Error
     MDIFrm.MousePointer = vbHourglass
    Set lvItem = File1.SelectedItem
    MDIFrm.glbname.Text = lvItem.Text
    MDIFrm.txtNod1.Text = lvItem.Text & "("
 If MDIFrm.glbname.Text = "" Then
 MsgBox "Select Global !!!", vbInformation, " Global !!!"
 Exit Sub
 End If
    file = "c:\ret.msm"
    FileHandle% = FreeFile
    Open file For Output As #FileHandle%
    schet =  0 
    For GlobCik =  1  To  100000 
        m.Do "GlbNodes^%ZgnED", MDIFrm.glbname.Text, ret, cnt, Er
        If Er <> "" Then
        MsgBox Er, vbExclamation
        Exit Sub
        End If
        arrayX = ret
            For i =  1  To cnt -  1 
                schet = schet +  1 
                Ret1 = arrayX(i)
                Print #FileHandle%, Ret1
                MDIFrm.glbname.Text = Piece(Ret1, ")=",  1 ) & ")"
            Next i
            If cnt <>  1000  Then ' Ultima portie de "cnt" noduri !!!
            frmGlobEdt.Caption = (GlobCik * 1000) + cnt & " - Total Strings..."
            MsgBox "These are the last " & cnt & " Nodes..."
            Exit For
            Exit Sub
            End If
            'MDIFrm.Paus
            frmGlobEdt.Caption = GlobCik *  1000  & " - Total Strings..."
    Next GlobCik
    Close #FileHandle%
   MDIFrm.MousePointer = vbDefault
Exit Sub
Error:
MDIFrm.MousePointer = vbDefault
MsgBox ("Error: " & Err.Description)

End Sub