home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / PCBOARD.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  764 b   |  31 lines
  1. /*
  2.     Crosstalk for Windows PCBOARD Login Script.
  3.  
  4.     Copyright (C) 1989, 1990 Digital Communication Associates, Inc.
  5.     All rights reserved.
  6.  
  7.     Version 1.00 01-30-89 PJL
  8.     Version 1.01 01-30-90 PJL
  9. */
  10.  
  11.         
  12.         reply
  13.     wait for '=no?'
  14.     wait 5 ticks : reply 'y'
  15.     graphics on
  16.  
  17.         while online
  18.                 watch for
  19.                         'first name?'    : wait 5 ticks : reply NetID
  20.             'last name?'     : wait 5 ticks : reply UserID
  21.             'first and last' : wait 1 second : ...
  22.                        reply NetID;';';UserID
  23.                         'echo)?'         : wait 5 ticks : ...
  24.                        reply Password : end
  25.             'a new user?'    : wait 5 ticks : ...
  26.                        reply 'c' : end
  27.                 endwatch
  28.         wend
  29.  
  30.         end
  31.