getTOP(cmd,files,i,Er)
         n io,p
         s io=$io
         s p=cmd
         o p:(COMMAND=cmd:READONLY)::"PIPE"
         k files
         u p
         For i= 1 : 1  r files(i) q:$ZEOF
         c p
         u io
         QUIT

Public Sub ViewR()
Dim Ret1 As String, Er As String, file As String
Dim Ret( 16000 ) As String
Dim arrayX As Variant
Dim cnt As Integer, i As Integer
Dim lvItem As ListItem
    
 On Error GoTo Error
        Set lvItem = File1.SelectedItem
        DoOpenRtn lvItem.Text
    file = Replace(lvItem.Text, "%", "_") & ".m" 'Replace %
    '***** Open using PIP a functional
    m.Do "getTOP^%ZgnPIP", "cat " & file & "", Ret, cnt, Er
    '***** Open using intern GTM a functional
    'm.Do "RtnArray^%ZgnED", lvItem.Text, Ret, cnt, Er
If Er <> "" Then
MsgBox Er, vbExclamation
Exit Sub
End If
Document(fIndex).rt.Text = ""
     arrayX = Ret
     For i =  1  To cnt
     Ret1 = arrayX(i)
     Document(fIndex).rt.AddText Ret1 & vbCrLf
     Next i
     '***** Mai adaugam  2  rinduri na vseakii ...
     Document(fIndex).rt.AddText vbTab & vbTab & vbCrLf
     Document(fIndex).rt.AddText vbTab & vbTab & vbCrLf
     Document(fIndex).Changed = False
     MDIFrm.RtBar.Buttons("undo").Enabled = False
     MDIFrm.RtBar.Buttons("redo").Enabled = False
Exit Sub
Error:
MsgBox ("Error: " & Err.Description)
End Sub

'-----------------------------------------------------------------------------
' MSMAPI32.BAS file
'-----------------------------------------------------------------------------
Public m As MCommand