Category : Communication (modem) tools and utilities
Archive   : PCPLUSUP.ZIP
Filename : MCI.ASP

 
Output of file : MCI.ASP contained in archive : PCPLUSUP.ZIP
;*************************************************************************
;* MCI.ASP (C) 1987 DATASTORM TECHNOLOGIES, INC. *
;* *
;* A sample ASPECT script file for logging onto MCI MAIL via tymnet. *
;* *
;* It checks for mail and sounds an alarm if mail is found. Otherwise *
;* it will log you off MCI MAIL. *
;* *
;*************************************************************************

ASSIGN S0 "874-2771" ; enter your local TYMNET number here
ASSIGN S1 "uuuuu" ; enter your USERID here
ASSIGN S2 "pppppppp" ; enter your PASSWORD here

EMULATE ANSI ; Select terminal emulation

WHEN "Press " "~^M" ; Take care of paging
SET ATIME 0 ; Reset alarm time

IF NOT LINKED ; If not called via Dial Dir
CLEAR ; Clear the screen
MESSAGE "Calling MCI MAIL via TYMNET"
SET BAUD 1200 ; Configure line settings
SET PARITY EVEN
SET DATABITS 7
SET DUPLEX FULL
MDIAL S0 ; Dial TYMNET
ENDIF

PAUSE 3 ; Wait a bit
TRANSMIT "A" ; Send the terminal ID
WAITFOR "please log in:" 30 ; Wait for prompt
TRANSMIT "mcimail^M" ; Ask for MCIMAIL
WAITFOR "user name:" ; Wait for prompt
TRANSMIT S1 ; Send ID
TRANSMIT "^M" ; Send CR
WAITFOR "Password:" ; Waitfor prompt
TRANSMIT S2 ; Send PASSWORD
TRANSMIT "^M" ; Send CR

WAITFOR "MCI Mail Version 4.0^M^J ^M^J " ; Wait for prompt

RGET S3 ; Get mail message
WAITFOR "EXIT):" ; Wait for prompt

FIND S3 "no messages" ; Check string for target
IF FOUND ; If no msgs
TRANSMIT "exit^M" ; Issue logout
PAUSE 4 ; Wait for logout
HANGUP ; Hangup for TYMNET
CLEAR ; Clear the screen
MESSAGE "NO MESSAGES ON MCI" ; Notify user
ELSE
MESSAGE "YOU HAVE MESSAGES ON MCI" ; Else notify user
GOSUB ALERT ; Sound alarm
ENDIF

EXIT ; Exit script

; SUBROUTINE AREA

ALERT: ; Subroutine ALERT sounds an alarm

SOUND 500 50
SOUND 400 50
SOUND 500 50
SOUND 400 50
SOUND 500 50
SOUND 400 50

RETURN



  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : PCPLUSUP.ZIP
Filename : MCI.ASP

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/