-=> On 03-24-96  07:22, Daniel Berens wrote John Mclachlan <=-
 DB> Could you post it? Thanks.
 Here's one I use for the QMail door on PCBoard systems, if it helps.  I
 haven't incorporated an automatic dial feature (for tm to turn itself
 on, make the calls, etc., with NO human intervention).
 I have not converted it to TMW because I haven't been able to get the
 when statements to run reliably in TMW.
 The first section--the section that's not "remarked out" with
 semicolons, takes full advantage of PCBoard command stacking.  The
 second section that's remarked out is left over from when I was editing
 the script; I just never got around to deleting it from the file.
 (begin quoted portion)
;
;Telemate Learn Script generated on  1-03-95
;
;Qmail script
Waitfor 0          ; wait until string matched
Set AutoStop,On
FileExist "c:\bluewave\uploads\[boardname].rep",existFlag
WHEN "ss ENTER to continue ]?","^M"
WHEN "ENTER=NO>","N^M"
When "-\í||í\--\í||í\--","^M"
     
Waitfor "o use (Enter)=no change? "
Put "^M",
Waitfor "hics (Enter)=default? ()"
Put "^M",
Waitfor "ßßßßßßßßßß    ÀÄÄùú^P? "
Put "FRANK BELL^M",
Waitfor "ßßßßßßßßß    ÀÄÄùú^P? ()"
Put "[password]^M",
Waitfor "Scan for New Messages? "
Put "^M",
If existflag
   Waitfor " Main Board ]?"
   PUT "Qmail U D G^M",
   SEND "z","c:\bluewave\uploads\[boardname].rep"
   IF SUCCESS
      Delete "c:\bluewave\uploads\[boardname].rep"
   ENDIF
ELSE
   Waitfor " Main Board ]?"
   PUT "Qmail D G^M",
ENDIF
; The portion below is no longer in use.  It shows a command-by-command
; version of the active portion of the script shown above.
;If existflag
;   Waitfor "Qmail Command? "
;   PUT "U^M",
;   SEND "z","c:\bluewave\uploads\[boardname].rep"
;   IF SUCCESS
;      Delete "c:\bluewave\uploads\[boardname].rep"
;   ENDIF
;   Waitfor "ss any key to continue..."
;   Put "^M",
;ENDIF
;Waitfor "Qmail Command? "
;Put "d^M",
;Waitfor "ve these messages (Y/N)? "
;Put "y^M",
;Waitfor "ss any key to continue..."
;Put "^M",
;Waitfor "Qmail Command? "
;Put "g^M",
... Yes, my son, long ago mail was read 1 packet at a time.
___ Blue Wave/DOS v2.30
--- WILDMAIL!/WC v4.12 
---------------