Hi y'all,

In the spirit of "there is always another way to do something",
I offer this MPE command file we have been using to initiate
file transfers from our 3ks.

Enjoy,
Chip Dorman
Kennametal, Inc



HP2PC

PARM FNAM="*NOFILE*"
IF ("!FNAM" = "?") THEN
  ECHO *************************************
  ECHO ** HP2PC - Automated File Transfer **
  ECHO **  from HP to logged on PC as     **
  ECHO **  ASCII transfer to TXT only.    **
  ECHO ** For use by those logged on      **
  ECHO ** under Reflection only.          **
  ECHO ** Called by either                **
  ECHO ** HP2PC    - will prompt for name **
  ECHO ** HP2PC [filename]                **
  ECHO ** Written by CDORMAN 000926       **
  ECHO *************************************
  RETURN
ENDIF
SETVAR ESC CHR(27)
SETVAR CR CHR(13)
IF ("!FNAM"="*NOFILE*" OR FINFO("!FNAM","EXISTS")) THEN
ECHO !ESC&oG
ECHO Function GetTempDir() As String
ECHO   Dim s As String
ECHO   Dim l As Long
ECHO   s = Environ$("TEMP")
ECHO   l = Len(s)
ECHO   If (l = 0) Then
ECHO     s = Environ$("TMP")
ECHO     l = Len(s)
ECHO   End If
ECHO   If (l = 0) Then
ECHO     GetTempDir = "C:\"
ECHO   Else
ECHO     GetTempDir = s & "\"
ECHO   End If
ECHO End Function
ECHO Sub Main
ECHO   Dim txtDLFile, CRLF, LocalFile, InputPrompt As String
ECHO   Dim l As Long
ECHO   CRLF = Chr$(13) & Chr$(10)
ECHO   If ("!FNAM" = "*NOFILE*") Then
ECHO     InputPrompt = "Enter the file to transfer" & CRLF & "  FROM  the HP..." & CRLF & "
TO     your PC."
ECHO     txtDLFile = UCase$(InputBox(InputPrompt, "File Name to Download?", "*NOFILE*"))
ECHO   Else
ECHO     txtDLFile = UCase$("!FNAM")
ECHO   End If
ECHO   l = Len(txtDLFile)
ECHO   If (txtDLFile = "*NOFILE*" Or l = 0) Then Exit Sub
ECHO   If (l > 8) Then
ECHO     MsgBox "Sorry..." & CRLF & CRLF & txtDLFile & "   is not a valid file name.", 64,
"Uh-Oh"
ECHO     Exit Sub
ECHO   End If
ECHO   LocalFile = GetTempDir & txtDLFile & ".TXT"
ECHO   Application.WRQReceiveFile LocalFile, txtDLFile, rcASCII, rcDelete
ECHO   MsgBox txtDLFile & "  was transferred to  " & CRLF & CRLF & "  " & LocalFile , 64, "WRITE
THIS DOWN!"
ECHO End Sub
ECHO !ESC&oH
ELSE
ECHO
ECHO !FNAM --- NOT FOUND ON HP
ENDIF

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *