Sub stest1()
'Simple test program you can use to test that this
'object is working, without any dependency on files
'
'Optional extra, use this kind of technique for wide-carriage
'bulk print dot-matrix printers etc.  You print direct-to-port
'like a traditional MV Server
'ExecutePS "DEV-MAKE P 2 'Name of my dot matrix monster'"
'ExecutePS "SP-ASSIGN 2 H"
'
'ExecutePS "PRINTER ON"  'uncomment for printer test
Crt TTag(-1)
Crt TTag(20, 7) & TTag(-39) _
& "Now in the test app - note terminal control capability "
Crt TTag(-40)
Crt TTag(0, 9)
Crt "App Starts - enter something! Enter 'x' to exit" & vbCrLf & "?"
Do
    IInput s
    'exit via a range of exit or quit inputs
    Select Case UCase(Trim(s))
    Case "X", "Q", "EXIT", "QUIT"
        Exit Do
    End Select
    i = i + 1
    s = XRun("vbscript script1\mycase.txt MyCase", s)
    Crt "Echoing '" & s & "' at step " & i & vbCrLf & "?"
    'PPrint s  'uncomment for printer test
Loop
Crt "Test1 ends, now returning to TCL"
'ExecutePS "PRINTER CLOSE"  'uncomment for printer test
End Sub
