;ASPECT script for Procomm PLUS Version 2 to log on to Telenet/Sprintnet
;on local line and go to PHONES for information.  Change the define below
;to show YOUR local Telenet/SprintNet number.  If you don't know your local
;Telenet/SprintNet number, phone (800)736-1130 or (800)336-0437 and ask them.
;If you attach this to a Dialing Directory entry, make sure that entry is
;set for ANSI emulation and E-7-1 parameters, full duplex.  You may wish to
;add a LOG OPEN and LOG CLOSE at the appropriate places.
;
DEFINE PHONE "729-9156"              ;define telenet/sprintnet phone number
DEFINE SERVICE "MAIL"                ;service desired
DEFINE NAME "PHONES"                 ;define telenet/sprintnet name
DEFINE PASSWORD "PHONES"             ;define telenet/sprintnet password
;
PROC MAIN                            ;label of main procedure
  SET ATIME 1                        ;set alarm time 1 second
  SET DISPLAY ON                     ;turn on display of line characters
  SET ENQ OFF                        ;set enq off
  SET SOUND ON                       ;set sound on for alarm
  IF NOT FROMDDIR                    ;if not linked to dialing directory
    EMULATE ANSI                     ;set emulation
    SET DATABITS 7                   ;set databits
    SET DUPLEX FULL                  ;set full duplex mode
    SET PARITY EVEN                  ;set parity
    SET STOPBITS 1                   ;set stopbits
    MDIAL PHONE "Telenet/Sprintnet Phones"     ;dial string phone and message
    IF NOT CONNECTED                 ;if not connected
      HANGUP                         ;hangup
      PAUSE 1                        ;wait 1 second
      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 "^M~D~^M"                ;wakeup network for 1200 bd only
                                     ;use line above OR line below
  TRANSMIT "@~^M"                    ;wakeup network for 2400/9600 bd
  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
    PAUSE 1                          ;pause one second
    CALL MAIN                        ;and start over
  ENDIF                              ;end the if case
  RFLUSH                             ;flush the buffer
  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 "@" 10                     ;wait for
  HANGUP                             ;hangup
  EXIT                               ;exit script to terminal screen
ENDPROC                              ;end the proc logoff
;