; ASPECT (tm) Script File Conversion Utility Version 1.0
; Copyright (C) 1990 DATASTORM TECHNOLOGIES, INC.  All rights reserved.
; Converted Script File: SOVRICH.ASP

proc main

EMULATE VT100
SET BAUDRATE 2400
SET DATABITS 8
SET DUPLEX FULL
SET PARITY NONE
SET STOPBITS 1
KLOAD "3270"
CLEAR

LOCATE 0 0
BOX 0 0 4 38 14
ATSAY 2 2 14 "Logging onto the SOVRAN Richmond..."
LOCATE 6 0

LOG OPEN "C:\TELECOM\PROCOMM\USER\SOVRICH.LOG"

TRANSMIT "~ATX4DT0000000@@@;^M~"

MESSAGE "^JWaiting for answer"
WAITFOR "OK" 60
IF NOT WAITFOR
  MESSAGE "^M^JNo answer"
  ALARM 3
  LOG CLOSE
  EXIT
ENDIF
PAUSE 1
TRANSMIT "~ATX1DT000000,;^M~"

WAITFOR "OK" 60
IF NOT WAITFOR
  MESSAGE "^M^JModem problem"
  ALARM 3
  LOG CLOSE
  EXIT
ENDIF
PAUSE 1
TRANSMIT "~ATH^M~"
MESSAGE "^JWaiting for call back"
WAITFOR "RING" 60
IF NOT WAITFOR
  MESSAGE "^M^JNo call back"
  ALARM 3
  LOG CLOSE
  EXIT
ENDIF
PAUSE 1
TRANSMIT "~ATDT*^M~"

MESSAGE "^M^JWaiting for connection"
WAITFOR "CONNECT" 60
IF NOT WAITFOR
  MESSAGE "^M^JNo connection"
  ALARM 3
  LOG CLOSE
  EXIT
ENDIF
PAUSE 3
MESSAGE "^M^JConnection established"
ALARM 1
CLEAR
PAUSE 3
TRANSMIT "~^M~"

endproc