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

 
Output of file : RTABLE.ASP contained in archive : PCPLUSUP.ZIP
;*************************************************************************
;* RTABLE.ASP (C) 1987 DATASTORM TECHNOLOGIES, INC. *
;* *
;* A sample ASPECT script file for logging onto the DATASTORM *
;* roundtable on GEnie. *
;* *
;*************************************************************************

ASSIGN S9 "xxxnnnnn,ppppp^M" ;store your User Number,PASSWORD
ASSIGN S8 "2" ;Dial dir entry for GEnie

CLEAR ;clear the screen
BOX 0 0 2 51 14
ATSAY 1 5 14 "Calling GEnie for the DATASTORM Roundtable"
LOCATE 3 0
EMULATE ANSI ;ANSI-BBS terminal emulation
IF NOT LINKED
DIAL S8
ENDIF
SET DUPLEX HALF ;turn echo on
PAUSE 1 ;network settling time
TRANSMIT "H" ;send characters for synchronization
PAUSE 1
TRANSMIT "H"
PAUSE 1
TRANSMIT "H"
PAUSE 1
TRANSMIT "^M" ;send it all
WAITFOR "U# " 35 ;wait for Genie prompt
RFLUSH ;make sure no noise came in
SENDID: ;loop for resending ID
TRANSMIT S9 ;transmit your User Number,PASSWORD
WAITFOR "^M" ;wait for carriage return
RGET S0 ;get rest of prompt
FIND S0 "U#" ;check for VALIDATION FAULT
IF FOUND ;if it is
GOTO SENDID ;try again
ENDIF ;end of test
WAITFOR "or elp?" 180 ;wait for Genie Main menu prompt
IF NOT WAITFOR ;no response from the system
GOTO UNAVAILABLE ;hang up and try again?
ENDIF ;continue
TRYAGAIN: ;loop for resending page number
TRANSMIT "M725^M" ;goto Datastorm Roundtable
WAITFOR "Page 725" 180 ;did we make it
IF WAITFOR ;test to make sure
WAITFOR "or elp?" ;wait for the Roundtable prompt
ALARM 2 ;make some noise
EXIT ;we made it!
ENDIF ;end of test
SOUND 440 50 ;signal attention
KFLUSH ;make sure no keys pressed
MESSAGE "^MDidn't make it to the Roundtable. Want to try again? (Y/N)"
GET S0 1 ;get the keyboard input
FIND S0 "Y" ;did we get a Y?
IF FOUND ;test it
GOTO TRYAGAIN ;send the page number again
ENDIF ;continue
EXIT ;end it

UNAVAILABLE: ;system is unavailable
HANGUP ;hangup phone
CLEAR ;clear screen
SOUND 440 50 ;make some noise
KFLUSH ;clear the keyboard
MESSAGE "^M^JSorry! Genie is not responding!^M^J"

EXIT ;quit command file


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : PCPLUSUP.ZIP
Filename : RTABLE.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/