SET S1 = "First name"                  ;Your First Name goes here
SET S2 = "Last name"                   ;Your Last Name goes here
SET S3 = "Password"                    ;Your Password goes here
SET S4 = "MDSXXXXX.zip"                ;Todays File Name
SET S5 = "Description"                 ;String for File Description
SET S6 = "path & name of UL file"      ;Path & Name in Save Subdir
SET S7 = "Phone Number"                ;PH Number to Call
;-------------------------------------------------------------
;  InterChange script for automated ABS Transaction Delivery.
;
;  Written By Gary J. Green - 10/19/94
;  This script works as either a user script (ALT-S from console) or
;  as a ghost script on a modem line.  To set up a ghost activation
;  for this script enter the following "ghost event" in CEDIT:
;         LINE= 255 TYPE=210 Opt Data=TRANSEND.SCR /C
;  You must edit the following variables to have your logon name,
;  password, compression format (ARC, ZIP, or LZH) and the directory
;  where you want InterChange to place the received file.
;  Try to dial 5 times, 30 seconds apart before giving up
SET N1 = 5
:REDIAL
MESSAGE "Dialing to Send the Transaction file..."
DIAL %S7%
IF CARRIER GOTO DO_LOGON
;  Did not connect, delay 30 seconds and try again (for N1 tries)
MESSAGE "Call did not go through, waiting 30 seconds to retry..."
HANGUP
DELAY 25
LOOP N1 REDIAL
;  Did not get through in 5 attempts, abort the script
MESSAGE "Did not connect on 5 attempts..."
ABORT
;------------------------------------------------------------------
;  Set up to handle -More- and -Press Any Key- or waiting message
;  prompts automatically if they arrive...
:DO_LOGON
;WHEN 1 "Do you want graphics (Enter)=no?" "N^M"
;WHEN 2 "Scan Message Base Since 'Last Read' (Enter)=yes?" "N^M"
;  Now wait for logon and input our name and password
WAITFOR "Do you want graphics (Enter)=no?"
XMIT 'N^M'
WAITFOR "What is your first name?"
XMIT '%S1%^M'
WAITFOR "What is your last name?"
XMIT '%S2%^M'
WAITFOR "Password (Dots will echo)?"
XMIT '%S3%^M'
WAITFOR "Scan Message Base Since 'Last Read' (Enter)=yes?"
;  Wait for main menu to display...
WAITFOR "Main Board Command?"
;  select Conference Menu and wait for prompt
XMIT 'J^M'
WAITFOR "(H)elp, More?"
;  Now Select the conference
WAITFOR "Conference # to join (Enter)=None?"
XMIT '6^M'
; Get ready to upload the file
WAITFOR "Transfer (6) Conference Command?"
XMIT 'U^M'
; Enter the File name
WAITFOR "Enter the Filename to Upload (Enter)=none?"
XMIT '%S4%^M'
; Enter the File Description
WAITFOR "?"
XMIT '%S5%^M'
XMIT '^M'
; Logoff after Upload
WAITFOR "(G)oodbye after Batch, (a)bort, Change (P)rotocol, (Enter)=continue?"
XMIT 'G^M'
;  Wait for upload start signal (or Data File Not Found)
;PATTERN 1 "to abort)^M"
;PATTERN 2 "Not Found"
;WAIT 20 FAIL
;  If download started, then do it, else log off
;IF 2 GOTO FAIL
SEND ZMODEM %S6%
;  xfer done, log off...
:FAIL
;WAITFOR "to exit:" 20 LOG_OFF
;:LOG_OFF
;XMIT '^MG'
;WAITFOR "Hang Up Now" 10 HANG_UP
:HANG_UP
;  Disconnect the modem
;HANGUP
;END