Category : Communication (modem) tools and utilities
Archive   : JMD4TLX.ZIP
Filename : JDOWN.SLT

 
Output of file : JDOWN.SLT contained in archive : JMD4TLX.ZIP
///////////////////////////////////////////////////////////////////////////////
// This TELIX 3.11 script implements the JMODEM DOWNLOAD function.
//
// It first simulates the TELIX window for obtaining file names.
// This is necessary because TELIX only permits 1 filename to be entered.
//
// It then calls JXFER.SLC with the parameter indicating DOWNLOAD.
//
// NOTE: The file list may contain multiple filespecs, but NO WILDCARDS!
//
// Written by: Michael K. Bozovich
// Date: 3-19-89
///////////////////////////////////////////////////////////////////////////////

/////// Integer Variable Declarations.

int old_x; // Place holder for cursor x-position.
int old_y; // Place holder for cursor x-position.
int old_screen; // Pointer to old screen area.

main()

{

/////// Save the portion of the screen to be modified.

old_screen = vsavearea(06, 10, 74, 16);

/////// Save the current cursor position.

old_x = getx();
old_y = gety();

/////// Draw the file list prompt box similar to that of TELIX.

box(06, 10, 74, 16, 3, 0, 112);
pstraxy("Enter file(s) to download to, to abort.", 8, 13, 112);
pstraxy("^p ", 8, 14, 112);

/////// Get the input from the user.

getsxy(_ext_filespec, 64, getx(), gety(), 112);

/////// Restore the screen portion that was changed.

vrstrarea(old_screen);

/////// Move the cursor back to where it was before.

gotoxy(old_x, old_y);

/////// If the user didn't use wildcards, call "JXFER",
/////// otherwise, print a diagnostic and exit back to terminal.

if(strpos(_ext_filespec, "*", 0) == -1 && strpos(_ext_filespec, "?", 0) == -1)
call("jxfer", "R");
else
{
prints("^gYou may not specify wild cards when downloading with Jmodem!");
return();
}

}

// eof jdown.slt


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : JMD4TLX.ZIP
Filename : JDOWN.SLT

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/