%
% stack: [ . . . ] xls-func
%
@Xls
<
|CkMail
 "CkMail" @^xlRunF
"ckmail" log)(
 pop

|SendMail
%
% stack: body subject recipient
%
 "OutMail"
 @^xlRunF3r
 pop

/*
Private Sub SendEmail(ByVal recip As String, ByVal subj As String, ByVal bodyr As String)
    Dim Source As String
    OutlookBase
    Dim EmailItem As Outlook.MailItem
    Set EmailItem = EmailApp.CreateItem(olMailItem)
    EmailItem.SendUsingAccount = MailAccount
    EmailItem.To = recip
    EmailItem.Subject = subj
    EmailItem.HTMLBody = bodyr
    
    EmailItem.Send
    
End Sub
*/

|ReShow
 "ReShow" @^xlRunF
"reshow" log)(
 pop

|UnHold
 "UnHold" @^xlRunF
"unhold" log)(
 pop

|Migrate
 "Migrate" @^xlRunF
"migrate" log)(
 pop

/*
Public Function Migrate() As Boolean
Dim wrks As String
Dim wrkb As Workbook
    ' creates a new workbook with all of the sheets in this workbook
    ActiveWorkbook.Sheets.Copy
    ' save the new workbook as the target of sheet absorption, no macros
    wrks = AbsLoc & "BackServe\HolderTarget.xlsx"
    Set wrkb = Application.Workbooks(2)
    wrkb.Close SaveChanges:=True, fileName:=wrks
    Migrate = True
End Function
*/

|EndApp
 "EndXl" @^xlRunF
"endapp" log)(
 pop

|Save
 "SaveBook" @^xlRunF
"savebook" log)(
 pop

/*
Public Function EndXl() As Boolean
    BackServe.EndApp
    EndXl = True
End Function
*/

|Restore
 "RestoreApp" @^xlRunF
"restore" log)(
 pop

/*
Public Function RestoreApp()
    Application.WindowState = xlNormal
    RestoreApp = True
End Function
*/

|Sheets_
 "SaveSheetNames" @^xlRunF
"sheets" log)(
 pop

/*
Public Function SaveSheetNames() As Boolean
Dim shtr As Worksheet
Dim shts As String
    shts = ""
    For Each shtr In Application.ActiveWorkbook.Sheets
        shts = shts & shtr.Name & "|" & vbCrLf
    Next
    textline = wrks
    myFile = AbsLoc & "Bin\Serv\Sheets.txt"
    WriteBile
    SaveSheetNames = True
End Function
*/

|Sheet_@
%
% stack: sheet file dir
%
 "GetSheetFrom"
 @^xlRunF3r
%
% stack: sheets
%

/*
Public Function GetSheetFrom(ByVal directory As String, ByVal fileName As String, ByVal shtr As String) As Integer
    Dim total As Integer
    Dim workb As String
    workb = Application.ActiveWorkbook.Name
    total = Application.ActiveWorkbook.Worksheets.Count
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Open directory & fileName
    
    Application.Workbooks(fileName).Worksheets(shtr).Copy after:=Application.Workbooks(workb).Worksheets(total)
    Application.Workbooks(fileName).Close
    total = Application.Workbooks(workb).Worksheets.Count

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    GetSheetFrom = total
End Function
*/

|Sheet!@
%
% stack: sheet file dir
%
 "PutSheetBack"
 @^xlRunF3r
%
% stack: sheets
%

/*
Public Function PutSheetBack(ByVal directory As String, ByVal fileName As String, ByVal shtr As String) As Integer
    Dim total As Integer
    Dim sotal As Integer
    Dim workb As String
    Dim sheetr As Worksheet
    workb = Application.ActiveWorkbook.Name
    total = Application.ActiveWorkbook.Worksheets.Count
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Open directory & fileName
    sotal = Application.Workbooks(fileName).Worksheets.Count
    Application.Workbooks(fileName).Worksheets(shtr).Delete
    Application.Workbooks(workb).Worksheets(shtr).Copy after:=Application.Workbooks(fileName).Worksheets(sotal - 1)
    Application.Workbooks(fileName).Save
    Application.Workbooks(fileName).Close
    Application.Workbooks(workb).Worksheets(shtr).Delete
    sotal = Application.Workbooks(workb).Worksheets.Count
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    PutSheetBack = sotal
End Function
*/

|Csv_
%
% stack: sheet area
%
 "SaveCsv"
 @^xlRunF2

/*
' save a region into a data stream for later retrieval
'
Public Sub SaveCsv(ByVal shtr As String, ByVal arear As String)
    textline = ""
    On Error Resume Next
    ' create the csv string
    For Each m In Application.Sheets(shtr).Range(arear)
        If Len(m) = 0 Then
            textline = textline & ","
        Else
            textline = textline & """" & m & ""","
        End If
    Next
    On Error GoTo 0
End Sub
*/

|Csv!
%
% stack: sheet area
%
 "LoadCsv"
 @^xlRunF2

/*
'
' funnel current focus hier csv stream into Work area
'
Public Sub LoadCsv(ByVal shtr As String, ByVal arear As String)
    Dim idxer As Integer
    Dim chrer As Byte
    Dim qter As Boolean
    Dim qtpn As Integer
    Dim contr As String
    
    ' On Error Resume Next
    ' walk through all the cells of the work area
    ' parallel to the parsing of textline
    idxer = 1
    For Each m In Application.Sheets(shtr).Range(arear)
        qter = False
        contr = ""
        Do While idxer <= Len(textline)
            chrer = Asc(Mid(textline, idxer, 1))
            If qter Then
                If chrer = &H22 Then
                    If (idxer - qtpn) > 1 Then
                        contr = Mid(textline, qtpn + 1, idxer - qtpn - 1)
                    Else
                        contr = ""
                    End If
                    qter = False
                Else
                End If
            Else
                If chrer = &H22 Then
                    qter = True
                    qtpn = idxer
                Else
                    If chrer = &H2C Then
                        m.Value = contr
                        contr = ""
                        idxer = idxer + 1
                        Exit Do
                    Else
                        
                    End If
                    
                End If
            End If
            idxer = idxer + 1
        Loop
        If idxer > Len(textline) Then Exit For
    Next
    ' On Error GoTo 0
End Sub
*/

|Csv!@
%
% stack: file area
%
 "SaveRegion"
 @^xlRunF2

/*
'
' save a region into a data stream for later retrieval
'
Public Sub SaveRegion(ByVal arear As String, ByVal wrkfile As String)
    On Error Resume Next
    ' create the csv string
    SaveCsv "Gwizard", arear
    ' write the Work area to current focus hier csv
    myFile = GbsLoc & wrkfile
    WriteBile
    On Error GoTo 0
End Sub
*/

|Csv@!@
%
% stack: file area
%
 "SaveActive"
 @^xlRunF2

/*
'
' save a region into a data stream for later retrieval
'
Public Sub SaveActive(ByVal arear As String, ByVal wrkfile As String)
    On Error Resume Next
    ' create the csv string
    SaveCsv Application.ActiveSheet.Name, arear
    ' write the Work area to current focus hier csv
    myFile = wrkfile
    WriteBile
    On Error GoTo 0
End Sub
*/

|Csv_@
%
% stack: file area
%
 "LoadRegion"
 @^xlRunF2

/*
'
' funnel current focus hier csv stream into Work area
'
Public Sub LoadRegion(ByVal arear As String, ByVal wrkfile As String)
    ' clear data in target area
    Application.Sheets("Gwizard").Range(arear).Clear
    On Error Resume Next
    ' read the current focused hier csv
    myFile = GbsLoc & wrkfile
    ReadBile
    LoadCsv "Gwizard", arear
    On Error GoTo 0
End Sub
*/

|Csv@_@
%
% stack: file area
%
 "LoadActive"
 @^xlRunF2

/*
'
' funnel current focus hier csv stream into Work area
'
Public Sub LoadActive(ByVal arear As String, ByVal wrkfile As String)
    ' clear data in target area
    Application.ActiveSheet.Range(arear).Clear
    ' On Error Resume Next
    ' read the current focused hier csv
    myFile = wrkfile
    ReadBile
    LoadCsv Application.ActiveSheet.Name, arear
    ' On Error GoTo 0
End Sub
*/

|Here
 "HereCheck"
 @^xlRunF

/*
Public Function HereCheck() As Boolean
    HereCheck = True
End Function
*/


|Name&!
%
% stack: wrk-file phone-num
%
 "AppendName"
 @^xlRunF2

/*
Public Sub AppendName(ByVal phonr As String, ByVal wrkfile As String)
End Sub
*/

|Msg&!
%
% stack: wrk-file
%
 "AppendMsg"
 @^xlRunF1

/*
Public Sub AppendMsg(ByVal wrkfile As String)
Dim wrkr As Range
    Set wrkr = NextOpenRange("Raw", 2, 6)
    On Error Resume Next
    ' read the current focused hier csv
    myFile = AbsLoc & wrkfile
    ReadBile
    LoadDsv wrkr
    On Error GoTo 0
End Sub
*/

|PreForm
 "PreForm"
 @^xlRunF
 pop

/*
Public Function PreForm() As Boolean
    BackServe.Continuing
End Function
*/

|Size
%
% stack: size-w size-h
%
 exch
 "BaseSizing"
 @^xlRunF2
/*
Public Sub BaseSizing(ByVal szngw As String, ByVal szngh As String)
    Swidth = CInt(szngw)
    Sheight = CInt(szngh)
End Sub
*/

/*

*/

>
%
% [ . . . ] exists
%