/////////////////////////////  PUMADOWN.SLT  ///////////////////////////////
//
// Written and developed by Lawrence Stone, April, 1990
//
// This is a sample script for downloading with the PUMA file transfer
// protocal.
//
// To compile this script for use by Telix, at the DOS prompt type,
// 'cs pumadown'.
//
//////////////////////////////////////////////////////////////////////////////

str prg[4] = "PUMA",           // Puma is the protocal program to run.
    cmmd[66] = "r ",           // Note "r" for "receive" is required by PUMA.
    path[64] = "puma";         // Variable to hold download path.

main()
 {
  path = _down_dir;
  strcat(cmmd, path);          // Concatenate the command line with file path.
  run(prg, cmmd, 0);           // Run PUMA
 }