;ASPECT script for Procomm PLUS Version 2 to log on to Telenet at 1200 baud
;on local line and go to PHONES for information.  Change the define below
;to show YOUR local Telenet number (which may require a change to 2400 baud
;below).  If you do not know your local Telenet number, phone (800)835-3638
;and ask them.  This file uses modified Translation Table download PCPLUS.XLT
;from Lib 3 if you don't want to modify yours.
;
DEFINE PHONE "242-8247"              ;define telenet phone number
DEFINE SERVICE "MAIL"                ;service desired
DEFINE NAME "PHONES"                 ;define telenet name
DEFINE PASSWORD "PHONES"             ;define telenet password
;
PROC MAIN                            ;label of main procedure
  LOG CLOSE                          ;close log in case it was open
  SET ATIME 1                        ;set alarm time 1 second
  SET DISPLAY ON                     ;turn on display of line characters
  SET ENQ OFF                        ;set enq to avoid download on login
  SET REMOTECMD OFF                  ;prohibit external control using ansi
  SET SOUND ON                       ;set sound on for alarm
  SET TRANSLATE ON                   ;set translation table to strip 8th
  IF NOT FROMDDIR                    ;if not linked to dialing directory
    EMULATE ANSI                     ;set emulation
    SET BAUDRATE 1200                ;set baudrate
    SET DATABITS 8                   ;set databits
    SET DUPLEX FULL                  ;set full duplex mode
    SET PARITY NONE                  ;set parity
    SET STOPBITS 1                   ;set stopbits
    LOCATE 0 0                       ;locate the cursor
    BOX 1 16 4 63 14                 ;draw a box
    ATSAY 2 18 14 "Calling Telenet on local line at 1200 8-N-1." ;message
    ATSAY 3 18 14 "   Session will be logged to TELENET.LOG.   " ;message
    LOCATE 6 0                       ;locate the cursor
    MDIAL PHONE "Telenet Phones"     ;dial string phone and message
    IF NOT CONNECTED                 ;if not connected
      HANGUP                         ;hangup
      CALL MAIN                      ;and start over
    ENDIF                            ;end the if case
  ENDIF                              ;end the if case
  PAUSE 1                            ;pause to be sure of carrier
  RFLUSH                             ;flush the buffer
  TRANSMIT "^MD^M"                   ;wake up telenet with [enter] D [enter]
  WAITFOR "TERMINAL="                ;wait for telenet prompt
  PAUSE 1                            ;pause
  TRANSMIT "D1^M"                    ;give type of terminal
  WAITFOR "@"                        ;make sure we got in
  IF NOT WAITFOR                     ;if we didn't get in
    HANGUP                           ;hangup
    IF FROMDDIR                      ;if calling from dialing directory
      EXIT                           ;exit script
    ENDIF                            ;end the if
    CALL MAIN                        ;and start over
  ENDIF                              ;end the if case
  RFLUSH                             ;flush the buffer
  LOG OPEN "TELENET.LOG"             ;open a log every time
  TRANSMIT SERVICE                   ;give connect order service string
  TRANSMIT "^M"                      ;transmit enter
  WAITFOR "name? "                   ;wait for prompt
  PAUSE 1                            ;pause
  TRANSMIT NAME                      ;transmit name string
  TRANSMIT "^M"                      ;transmit enter
  WAITFOR "Password? "               ;wait for prompt
  PAUSE 1                            ;pause
  TRANSMIT PASSWORD                  ;transmit password string
  TRANSMIT "^M"                      ;transmit enter
  WAITFOR "(1-6): " 60               ;wait for prompt
  ALARM                              ;make some noise
  CALL LOGOFF                        ;call proc logoff
ENDPROC                              ;endproc main
;
PROC LOGOFF                          ;label for proc
  WHILE 1                            ;open while
    WAITFOR "DISCONNECTED" FOREVER   ;wait for prompt after exit
    IF WAITFOR                       ;open if
      EXITWHILE                      ;exit while to next command
    ENDIF                            ;end the if
  ENDWHILE                           ;end the while
  WAITFOR "@"                        ;wait for
  LOG CLOSE                          ;close log just in case
  HANGUP                             ;hangup
  QUIT                               ;exit script, quit program
ENDPROC                              ;end the proc logoff
;