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

str prg[4] = "PUMA",           // Puma is the protocal program to run.
    cmmd[66] = "s ",           // Note "s" for "send" is required by PUMA.
    fname[64] = "puma";        // Establish a string for the filenames.

main()
 {
  fname = _ext_filespec;       // Get the file(s) to upload from Telix.
  strcat(cmmd, fname);         // Concatenate the command line with filenames.
  run(prg, cmmd, 0);           // Run PUMA
 }