Dave,

   It's been a while, and the following command file could use some
modifications, but...

Comment *************************************************
Comment * Hughes Missile Systems Company, Louisville    *
Comment *                                               *
Comment * PCDOWN:  Host controlled Reflections/DOS file *
Comment *          download.                            *
Comment *                                               *
Comment * Created by:  David N. Lukenbill               *
Comment * Created:     93/07/09                         *
Comment *                                               *
Comment * Version:     93/07/09                         *
Comment *************************************************
SetVar XferRunSequence "F"
SetVar XferReturnCode "F"
SetVar DisplayCmd ""
SetVar DisplayReturnCode "F"
SetVar Error_Code 0
SetVar PCFile ""
SetVar HostFile ""
Comment ***********************************************
Comment * Prompt user for host and PC file names, and *
Comment * whether or not the file is ASCII.           *
Comment ***********************************************
While HostFile = "" Do
   Input HostFile,"Enter the HP-3000/950 File Name: "
   If Numeric(Lft("!HostFile",1)) Then
      Echo    An HP-3000/950 file name must begin with a character.
      SetVar HostFile ""
   EndIf
EndWhile
While PCFile = "" Do
   Input PCFile,"Enter the PC File Name: "
EndWhile
Input TxType,"Is !HostFile an ASCII file? "
If Lft(Ups(TxType),1) <> "N" Then
   SetVar TxType "ASCII"
Else
   SetVar TxType "Binary"
Endif
Comment *********************************************
Comment * Echo the escape sequence which will cause *
Comment * Reflections to receive a file.            *
Comment *********************************************
SetVar ReceiveCmd chr(27)+'&oC'+'Receive !PCFile From !HostFile !TxType Delete'
Echo !ReceiveCmd
Comment *******************************************
Comment * Read the host program startup sequence. *
Comment *******************************************
Input XferRunSequence
If XferRunSequence = "F"
   Echo The File transfer operation failed at startup.
Else
   Comment **********************************
   Comment * Run the host program, and read *
   Comment * the return code.               *
   Comment **********************************
   Set Echo=Off
   !XferRunSequence
   Input XferReturnCode
   If XferReturnCode = "F"
      SetVar DisplayCmd chr(27)+'&oF'+'Let V3 = Error-Code'
      Echo !DisplayCmd
      SetVar DisplayCmd chr(27)+'&oC'+'Transmit V3'
      Echo !DisplayCmd
      Input Error_Code
      SetVar Error_Code Lft("!Error_Code",Len("!Error_Code")-1)
      Echo The file transfer operation failed to complete.
      Echo Reflections error code: !Error_Code
   Else
      Echo Successful file transfer.
   Endif
   Set Echo=On
Endif
Comment *************
Comment * Clean-up. *
Comment *************
DeleteVar XferRunSequence
DeleteVar XferReturnCode
DeleteVar DisplayCmd
DeleteVar DisplayReturnCode
DeleteVar Error_Code
DeleteVar PCFile
DeleteVar HostFile
DeleteVar TxType
DeleteVar ReceiveCmd
Comment ************************
Comment * End of command file. *
Comment ************************

----------
>Once upon a time I found a post on how to make an HP 3000 initiate a
>download to a PC running Reflection.  I printed it and put it in a place
>so safe even I cannot find it.  Could someone do me the courtesy of
>reposting it.  I will try not to lose it a second time.
>--
>+---------------------------------+-----------------------------------+
>|Dave Anderson Sr Tech Analyst    | The more that things change,      |
>|GTE National E9-1-1 Support      | The more they stay the same.      |
>|                                 |                                   |
>[log in to unmask]                 | All views expressed are not mine, |
>|Voice 800-872-3356               | much less those of my employer    |
>|Fax 915-942-4202                 |                                   |
>+---------------------------------+-----------------------------------+
>

--------------------------------------------------------------------
David N. Lukenbill
Hughes Missile Systems Company, Louisville
[log in to unmask]