!
! Logon script for ReadCIX all 
!
QUERY "Downloaded File Details" (
		"Full Path and Name",s1)
NEXISTS "m:\cix\file.swt" GOTO nofile
MENU "Choose File Option" (
     "Download File" GOTO dftag
     "Upload File" GOTO uftag
     "Download Binmail" GOTO dmtag
     "Upload Binmail" GOTO umtag
     "No File Action" GOTO nofile)
nofile:
    INFO "CIX Logon"
    SETUP (
     Baud=19200:
     Stop=1 :
     Parity=none :
     Handshake=xonxoff,rtscts
     Fail=None :
     Timeout=20 :
     Echo=off :
     Data=8 )
    ON send fail goto bad
    SET c1=4
rAlive:
		SEND "ATZ"
    WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
    ON c1 GOTO rAlive
    GOTO merror
alive:
    SET C1=3
    GOTO reDial   
wait100:
    INFO "Waiting to redial"
    WAIT 60
reDial:
    SEND "ATDT<CixNumber>"
    WAIT 120 (
	ON reply "CONNECT" GOTO letsgo
	ON reply "NO DIALTONE" GOTO tele
	ON reply "NO CARRIER" GOTO nocar
	ON reply "ERROR" GOTO black
	ON reply "BUSY" GOTO again )
    GOTO merror
again:
    ON c1 GOTO wait100
    ALERT "Line busy" : EXIT
letsGo:
    INFO "CONNECTED..."
    SENDWAIT 160 "<$d>";,"login:" GOTO noLog
    SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
    SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
    SEND "<CixPassword>"
tryAgain:
    WAIT 40 (
	ON REPLY "Main:" GOTO gotMain
	ON REPLY "More" GOTO gotMore )
    ALERT "SOMETHING STRANGE"
gotMain:
		SEND "OPTION DOWNLOAD X Q"
		SEND "OPTION UPLOAD X Q"
		INFO "Starting Upload"
		SEND "UPLOAD"
		WAIT 5
		TRANSMIT "loc::m:\cix\reply.txt","XMDM"
		SEND "SCPUT SCRIPT"
		WAIT 1
		INFO "Running Script"
		SEND "SCRIPT"
		WAIT 1
		INFO "Getting Mail"
		SEND "MAIL"
		WAIT 20 (ON REPLY "Mail:" goto mcont)
mcont:
		SEND "File All"
retry1:
		WAIT 10 (ON REPLY "Mail:" GOTO read)
		GOTO retry1
read:
		SEND "q"
		WAIT 20 (ON REPLY "Main:" GOTO file)
file:
		SEND "File read all"
retry2:
		WAIT 10 (ON REPLY "Main:" GOTO cont)
		GOTO retry2
cont:
		INFO "Starting Download"
		SEND "Down"
		WAIT 5
		RECEIVE s1,"XMDM"
		WAIT 10 (ON REPLY "Main:" GOTO swoff
		         ON REPLY "y/n"   GOTO yorn)
		INFO "Problem! Disconecting"
swoff:
		INFO "Sending LOGOFF"
		SENDWAIT 20 "BYE","y/n" GOTO cont1
		SEND "Y"
cont1:
		INFO "Hanging UP!!"
		HANGUP
    INFO "Finished"
    EXIT
gotMore:
    WAIT 1
    SEND "n"
    GOTO tryAgain
yorn:
		SEND "Y<$d>"
		GOTO swoff

dftag:
    QUERY "File Download" (
    "Conference:",s2
		"Topic:",s3
		"File to Download:",s4
		"To (Path and Name):",s5)
    INFO "CIX Logon"
    SETUP (
     Baud=19200:
     Stop=1 :
     Parity=none :
     Handshake=xonxoff,rtscts
     Fail=None :
     Timeout=20 :
     Echo=off :
     Data=8 )
    ON send fail goto bad
    SET c1=4
dfrAlive:
		SEND "ATZ"
    WAIT 20 ( ON reply "OK<$d><$a>" GOTO dfalive )
    ON c1 GOTO dfrAlive
    GOTO merror
dfalive:
    SET C1=3
    GOTO dfreDial   
dfwait100:
    INFO "Waiting to redial"
    WAIT 60
dfreDial:
    SEND "ATDT<CixNumber>"
    WAIT 120 (
	ON reply "CONNECT" GOTO dfletsgo
	ON reply "NO DIALTONE" GOTO tele
	ON reply "NO CARRIER" GOTO nocar
	ON reply "ERROR" GOTO black
	ON reply "BUSY" GOTO dfagain )
    GOTO merror
dfagain:
    ON c1 GOTO dfwait100
    ALERT "Line busy" : EXIT
dfletsGo:
    INFO "CONNECTED..."
    SENDWAIT 160 "<$d>";,"login:" GOTO noLog
    SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
    SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
    SEND "<CixPassword>"
dftryAgain:
    WAIT 40 (
	ON REPLY "Main:" GOTO dfgotMain
	ON REPLY "More" GOTO dfgotMore )
    ALERT "SOMETHING STRANGE"
dfgotMain:
		SEND "OPTION DOWNLOAD X Q"
		SEND "OPTION UPLOAD X Q"
		INFO "Starting Upload"
		SEND "UPLOAD"
		WAIT 5
		TRANSMIT "loc::m:\cix\reply.txt","XMDM"
		SEND "SCPUT SCRIPT"
		WAIT 1
		INFO "Running Script"
		SEND "SCRIPT"
		WAIT 1
		INFO "Getting Mail"
		SEND "MAIL"
		WAIT 20 (ON REPLY "Mail:" goto dfmcont)
dfmcont:
		SEND "File All"
dfretry1:
		WAIT 10 (ON REPLY "Mail:" GOTO dfread)
		GOTO dfretry1
dfread:
		SEND "q"
		WAIT 20 (ON REPLY "Main:" GOTO dffile)
dffile:
		SEND "File read all"
dfretry2:
		WAIT 10 (ON REPLY "Main:" GOTO dfcont)
		GOTO dfretry2
dfcont:
		INFO "Starting Download"
		SEND "Down"
		WAIT 5
		RECEIVE s1,"XMDM"
		WAIT 10 (ON REPLY "Main:" GOTO dfswoff
		         ON REPLY "y/n"   GOTO dfyorn)
		INFO "Problem! Disconecting"
		GOTO dfnofile2
dfswoff:
		NEXISTS "m:\cix\file.swt" GOTO dfnofile2
		SEND "JOIN <s2>/<s3>"
		WAIT 10 (ON REPLY "Read:" GOTO dfred
		         ON REPLY "y/n"   GOTO dfjoi)
		INFO "Problem! Download Aborted"
		GOTO dfnofile2
dfjoi:
		SEND "N"
		INFO "Problem! You are not joined to this Conference"
		WAIT 5
    GOTO dfnofile2 
dfred:
		SEND "FDL <s4>"
		WAIT 30 (ON REPLY "(Mis-spelled?)" GOTO dfnofile2 )
		RECEIVE s5,"XMDM" 
		SENDWAIT 5 "QUIT","Main:" GOTO dfnofile2
dfnofile2:
		INFO "Sending LOGOFF"
		SENDWAIT 20 "BYE","y/n" GOTO dfcont1
		SEND "Y"
dfcont1:
		INFO "Hanging UP!!"
		HANGUP
    INFO "Finished"
    EXIT
dfgotMore:
    WAIT 1
    SEND "n"
    GOTO dftryAgain
dfyorn:
		SEND "Y<$d>"
		GOTO dfswoff

dmtag:
    QUERY "Binmail Download" (
		"File to Download:",s4
		"To (Path and Name):",s5)
    INFO "CIX Logon"
    SETUP (
     Baud=19200:
     Stop=1 :
     Parity=none :
     Handshake=xonxoff,rtscts
     Fail=None :
     Timeout=20 :
     Echo=off :
     Data=8 )
    ON send fail goto bad
    SET c1=4
dmrAlive:
		SEND "ATZ"
    WAIT 20 ( ON reply "OK<$d><$a>" GOTO dmalive )
    ON c1 GOTO dmrAlive
    GOTO merror
dmalive:
    SET C1=3
    GOTO dmreDial   
dmwait100:
    INFO "Waiting to redial"
    WAIT 60
dmreDial:
    SEND "ATDT<CixNumber>"
    WAIT 120 (
	ON reply "CONNECT" GOTO dmletsgo
	ON reply "NO DIALTONE" GOTO tele
	ON reply "NO CARRIER" GOTO nocar
	ON reply "ERROR" GOTO black
	ON reply "BUSY" GOTO dmagain )
    GOTO merror
dmagain:
    ON c1 GOTO dmwait100
    ALERT "Line busy" : EXIT
dmletsGo:
    INFO "CONNECTED..."
    SENDWAIT 160 "<$d>";,"login:" GOTO noLog
    SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
    SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
    SEND "<CixPassword>"
dmtryAgain:
    WAIT 40 (
	ON REPLY "Main:" GOTO dmgotMain
	ON REPLY "More" GOTO dmgotMore )
    ALERT "SOMETHING STRANGE"
dmgotMain:
		SEND "OPTION DOWNLOAD X Q"
		SEND "OPTION UPLOAD X Q"
		INFO "Starting Upload"
		SEND "UPLOAD"
		WAIT 5
		TRANSMIT "loc::m:\cix\reply.txt","XMDM"
		SEND "SCPUT SCRIPT"
		WAIT 1
		INFO "Running Script"
		SEND "SCRIPT"
		WAIT 1
		INFO "Getting Mail"
		SEND "MAIL"
		WAIT 20 (ON REPLY "Mail:" goto dmmcont)
dmmcont:
		SEND "File All"
dmretry1:
		WAIT 10 (ON REPLY "Mail:" GOTO dmread)
		GOTO dmretry1
dmread:
		SEND "q"
		WAIT 20 (ON REPLY "Main:" GOTO dmfile)
dmfile:
		SEND "File read all"
dmretry2:
		WAIT 10 (ON REPLY "Main:" GOTO dmcont)
		GOTO dmretry2
dmcont:
		INFO "Starting Download"
		SEND "Down"
		WAIT 5
		RECEIVE s1,"XMDM"
		WAIT 10 (ON REPLY "Main:" GOTO dmswoff
		         ON REPLY "y/n"   GOTO dmyorn)
		INFO "Problem! Disconecting"
		GOTO dmnofile2
dmswoff:
		NEXISTS "m:\cix\file.swt" GOTO dmnofile2
		SEND "MAIL"
		WAIT 10 (ON REPLY "Mail:" GOTO dmred)
		INFO "Problem! Download Aborted"
		GOTO dmnofile2
dmred:
		SEND "FDL <s4>"
		WAIT 30 (ON REPLY "(Mis-spelled?)" GOTO dmnofile2 )
		RECEIVE s5,"XMDM" 
		SENDWAIT 5 "QUIT","Main:" GOTO dmnofile2
dmnofile2:
		INFO "Sending LOGOFF"
		SENDWAIT 20 "BYE","y/n" GOTO dmcont1
		SEND "Y"
dmcont1:
		INFO "Hanging UP!!"
		HANGUP
    INFO "Finished"
    EXIT
dmgotMore:
    WAIT 1
    SEND "n"
    GOTO dmtryAgain
dmyorn:
		SEND "Y<$d>"
		GOTO dmswoff

uftag:
    QUERY "File Upload" (
    "Conference:",s2
		"Topic:",s3
		"File Path and Name:",s4
		"Upload as:",s5
		"Description/Size:",s6
		)
    INFO "CIX Logon"
    SETUP (
     Baud=19200:
     Stop=1 :
     Parity=none :
     Handshake=xonxoff,rtscts
     Fail=None :
     Timeout=20 :
     Echo=off :
     Data=8 )
    ON send fail goto bad
    SET c1=4
ufrAlive:
		SEND "ATZ"
    WAIT 20 ( ON reply "OK<$d><$a>" GOTO ufalive )
    ON c1 GOTO ufrAlive
    GOTO merror
ufalive:
    SET C1=3
    GOTO ufreDial   
ufwait100:
    INFO "Waiting to redial"
    WAIT 60
ufreDial:
    SEND "ATDT<CixNumber>"
    WAIT 120 (
	ON reply "CONNECT" GOTO ufletsgo
	ON reply "NO DIALTONE" GOTO tele
	ON reply "NO CARRIER" GOTO nocar
	ON reply "ERROR" GOTO black
	ON reply "BUSY" GOTO ufagain )
    GOTO merror
ufagain:
    ON c1 GOTO ufwait100
    ALERT "Line busy" : EXIT
ufletsGo:
    INFO "CONNECTED..."
    SENDWAIT 160 "<$d>";,"login:" GOTO noLog
    SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
    SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
    SEND "<CixPassword>"
uftryAgain:
    WAIT 40 (
	ON REPLY "Main:" GOTO ufgotMain
	ON REPLY "More" GOTO ufgotMore )
    ALERT "SOMETHING STRANGE"
ufgotMain:
		SEND "OPTION DOWNLOAD X Q"
		SEND "OPTION UPLOAD X Q"
		INFO "Starting Upload"
		SEND "UPLOAD"
		WAIT 5
		TRANSMIT "loc::m:\cix\reply.txt","XMDM"
		SEND "SCPUT SCRIPT"
		WAIT 1
		INFO "Running Script"
		SEND "SCRIPT"
		WAIT 1
		INFO "Getting Mail"
		SEND "MAIL"
		WAIT 20 (ON REPLY "Mail:" goto ufmcont)
ufmcont:
		SEND "File All"
ufretry1:
		WAIT 10 (ON REPLY "Mail:" GOTO ufread)
		GOTO ufretry1
ufread:
		SEND "q"
		WAIT 20 (ON REPLY "Main:" GOTO uffile)
uffile:
		SEND "File read all"
ufretry2:
		WAIT 10 (ON REPLY "Main:" GOTO ufcont)
		GOTO ufretry2
ufcont:
		INFO "Starting Download"
		SEND "Down"
		WAIT 5
		RECEIVE s1,"XMDM"
		WAIT 10 (ON REPLY "Main:" GOTO ufswoff
		         ON REPLY "y/n"   GOTO ufyorn)
		INFO "Problem! Disconecting"
		GOTO ufnofile2
ufswoff:
		NEXISTS "m:\cix\file.swt" GOTO ufnofile2
		SEND "JOIN <s2>/<s3>"
		WAIT 10 (ON REPLY "Read:" GOTO ufred
		         ON REPLY "y/n"   GOTO ufjoi)
		INFO "Problem! Upload Aborted"
		GOTO ufnofile2
ufjoi:
		SEND "N"
		INFO "Problem! You are not joined to this Conference"
		WAIT 5
    GOTO ufnofile2 
ufred:
		SEND "FUL <s5>"
		WAIT 5
		TRANSMIT s4,"XMDM"
		WAIT 5
		SEND "File <s5>"
		WAIT 2
		SEND "<s6>"
		WAIT 2
		SEND "."
		WAIT 2
		SEND "SEND" 
		SENDWAIT 5 "QUIT","Main:" GOTO ufnofile2
ufnofile2:
		INFO "Sending LOGOFF"
		SENDWAIT 20 "BYE","y/n" GOTO ufcont1
		SEND "Y"
ufcont1:
		INFO "Hanging UP!!"
		HANGUP
    INFO "Finished"
    EXIT
ufgotMore:
    WAIT 1
    SEND "n"
    GOTO uftryAgain
ufyorn:
		SEND "Y<$d>"
		GOTO ufswoff

umtag:
    QUERY "Binmail Upload" (
		"Upload as:",s4
		"From Path and Name:",s5)
    INFO "CIX Logon"
    SETUP (
     Baud=19200:
     Stop=1 :
     Parity=none :
     Handshake=xonxoff,rtscts
     Fail=None :
     Timeout=20 :
     Echo=off :
     Data=8 )
    ON send fail goto bad
    SET c1=4
umrAlive:
		SEND "ATZ"
    WAIT 20 ( ON reply "OK<$d><$a>" GOTO umalive )
    ON c1 GOTO umrAlive
    GOTO merror
umalive:
    SET C1=3
    GOTO umreDial   
umwait100:
    INFO "Waiting to redial"
    WAIT 60
umreDial:
    SEND "ATDT<CixNumber>"
    WAIT 120 (
	ON reply "CONNECT" GOTO umletsgo
	ON reply "NO DIALTONE" GOTO tele
	ON reply "NO CARRIER" GOTO nocar
	ON reply "ERROR" GOTO black
	ON reply "BUSY" GOTO umagain )
    GOTO merror
umagain:
    ON c1 GOTO umwait100
    ALERT "Line busy" : EXIT
umletsGo:
    INFO "CONNECTED..."
    SENDWAIT 160 "<$d>";,"login:" GOTO noLog
    SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
    SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
    SEND "<CixPassword>"
umtryAgain:
    WAIT 40 (
	ON REPLY "Main:" GOTO umgotMain
	ON REPLY "More" GOTO umgotMore )
    ALERT "SOMETHING STRANGE"
umgotMain:
		SEND "OPTION DOWNLOAD X Q"
		SEND "OPTION UPLOAD X Q"
		INFO "Starting Upload"
		SEND "UPLOAD"
		WAIT 5
		TRANSMIT "loc::m:\cix\reply.txt","XMDM"
		SEND "SCPUT SCRIPT"
		WAIT 1
		INFO "Running Script"
		SEND "SCRIPT"
		WAIT 1
		INFO "Getting Mail"
		SEND "MAIL"
		WAIT 20 (ON REPLY "Mail:" goto ummcont)
ummcont:
		SEND "File All"
umretry1:
		WAIT 10 (ON REPLY "Mail:" GOTO umread)
		GOTO umretry1
umread:
		SEND "q"
		WAIT 20 (ON REPLY "Main:" GOTO umfile)
umfile:
		SEND "File read all"
umretry2:
		WAIT 10 (ON REPLY "Main:" GOTO umcont)
		GOTO umretry2
umcont:
		INFO "Starting Download"
		SEND "Down"
		WAIT 5
		RECEIVE s1,"XMDM"
		WAIT 10 (ON REPLY "Main:" GOTO umswoff
		         ON REPLY "y/n"   GOTO umyorn)
		INFO "Problem! Disconecting"
		GOTO umnofile2
umswoff:
		NEXISTS "m:\cix\file.swt" GOTO umnofile2
		SEND "MAIL"
		WAIT 10 (ON REPLY "Mail:" GOTO umred)
		INFO "Problem! Upload Aborted"
		GOTO umnofile2
umred:
		SEND "FUL <s4>"
		WAIT 5 
		TRANSMIT s5,"XMDM" 
		SENDWAIT 5 "QUIT","Main:" GOTO umnofile2
umnofile2:
		INFO "Sending LOGOFF"
		SENDWAIT 20 "BYE","y/n" GOTO umcont1
		SEND "Y"
umcont1:
		INFO "Hanging UP!!"
		HANGUP
    INFO "Finished"
    EXIT
umgotMore:
    WAIT 1
    SEND "n"
    GOTO umtryAgain
umyorn:
		SEND "Y<$d>"
		GOTO umswoff
black:
    ALERT "Number dialled too many times" : EXIT
nocar:
    ALERT "No connection made" : EXIT
tele:
    ALERT "Check connected to telephone" : EXIT
merror:
    ALERT "Check modem connected" : EXIT
bad:
    ALERT "Check RS232 lead connected" : EXIT
noLog:
    ALERT "No Login received" : EXIT
noUser:
    ALERT "No user name" : EXIT
noPass:
    ALERT "No password" : EXIT
noMain:
    ALERT "No main"
    EXIT