Category : OS/2 Files
Archive   : LW22.ZIP
Filename : NOVA.CMD

 
Output of file : NOVA.CMD contained in archive : LW22.ZIP
/* LiveWire OS2 Shareware REXX Script File Kenn Lynch 12/05/93 */
/* */
/* The script is a sample logon script for the OS/2 Shareware BBS */
/* This script is for sample purposes only, and is not guaranteed by */
/* DataMirage Software */

/* Set timeout */
SetLW(TimeOut,60);

/* Set inter-character pacing to 40ms */
SetLW(Pacing,40);

/* Set emulation and toggles */
SetLW(Emulation,1);
SetLW(Echo,0);
SetLW(Linefeeds,0);
SetLW(XonXoff,0);
SetLW(BSIsDel,1);

/* Start Script Session, logon and send username and password */
SendLW("^M")
ret=FindLW("wait 20 seconds");
DelayLW(100);
SendLW("^[");

ret=FindLW("your name:");
DelayLW(100);
SendLW("KENN LYNCH^M");

ret=FindLW("Kenn Lynch [Y,n]? ");
DelayLW(100);
SendLW("^M");

ret=FindLW("Password: ");
DelayLW(100);
SendLW(GetLW(DialerPassword)||"^M");

ret=FindLW("ss ENTER to continue ");
DelayLW(100);
SendLW("^M");

/* "move" previous capture file to nova-1.cap */

/* A better way to do this would be to datestamp the capture filename */
/* but I still havent quite figured how to do this in Rexx and LW */

'copy nova.cap nova-1.cap';
'del nova.cap';
SetLW(Capture, ON,"NOVA.CAP");

/*aptures all mail and latest uploads */

ret=FindLW("r mail? [Y,n]");
DelayLW(100);
SendLW("Y^M");

ret=FindLW(" files? [Y,n]");
DelayLW(100);
SendLW("Y^M");

ret=FindLW("ss ENTER to continue ");
DelayLW(100);
SendLW("^M");

/* goto the "M"essage areas */
ret=FindLW("Select:");
DelayLW(100);
SendLW("M^M");

/* select the games msg area and display/capture "=" all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2games^M");

ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");

/* go to the os2comm msg area and display/capture all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2comm^M");

ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");

/* go to the os2video msg area and display/capture all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2video^M");

ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");

/* go to the os2hw msg area and display/capture all new messages */
ret=FindLW("Select:");
DelayLW(100);
SendLW("A os2hw^M");

ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");

/* the os2hw msg area is the largest area I adjusted the timeout */
SetLW(TimeOut,240);
ret=FindLW("Select:");

/* reset timeout value go to the local msg area and capture all new messages */
SetLW(TimeOut,60);
DelayLW(100);
SendLW("A local^M");

ret=FindLW("Select:");
DelayLW(100);
SendLW("=^M");

/* "J"ump to the files area and "D"ownload os2new.zip */

ret=FindLW("Select:");
DelayLW(100);
SetLW(Capture, OFF);
'del e:\download\os2new.zip';
SendLW("=JDOS2NEW^M");

/* a "G"oodbye forces a logoff after the download */
ret=FindLW("s) to download ");
DelayLW(100);
SendLW("/g^M");

/* deletes the prior copy of os2new.txt and unzips the latest download */
/* this is were I'm having "sync" problems */

SetLW(TimeOut,100);
ret=FindLW("null string");
DelayLW(100);
'del d:\lwos2\os2new.txt';
DelayLW(100);
'unzip e:\download\os2new.zip';

Exit



  3 Responses to “Category : OS/2 Files
Archive   : LW22.ZIP
Filename : NOVA.CMD

  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/