home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / telix / telicex.zip / NBBS12.SLT < prev    next >
Text File  |  1988-09-12  |  448b  |  31 lines
  1. //
  2. //Script to log on to Telenet's local access number and
  3. // then onto new BBS at 1200 BPS
  4. //
  5.  
  6. str T_ID[] = "D1";
  7. str cr[] = "^M";
  8.  
  9. main()
  10. {
  11.  alarm(1);
  12.  {
  13.  cputs(cr);
  14.  cputs("D");
  15.  cputs(cr);
  16.  }
  17.    cputs(T_ID);
  18.    cputs("^M");
  19.  if (not waitfor("@", 20))
  20.   {
  21.    prints("Log-on failed!");
  22.    return;
  23.   }
  24.    cputs("909631");
  25.    cputs("^M");
  26.  if (waitfor("CONNECTED"))
  27.     delay(20);
  28.     cputs("bbs");
  29.     cputs("^M");
  30. }
  31.