home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / procomm / pcplus2.arc / RTABLE.ASP < prev    next >
Text File  |  1988-01-01  |  4KB  |  69 lines
  1. ;*************************************************************************
  2. ;* RTABLE.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                     *
  3. ;*                                                                       *
  4. ;* A sample ASPECT script file for logging onto the DATASTORM            *
  5. ;* roundtable on GEnie.                                                  *
  6. ;*                                                                       *
  7. ;*************************************************************************
  8.  
  9.   ASSIGN S9 "xxxnnnnn,ppppp^M"         ;store your User Number,PASSWORD
  10.   ASSIGN S8 "2"                        ;Dial dir entry for GEnie
  11.  
  12.   CLEAR                                ;clear the screen
  13.   BOX 0 0 2 51 14
  14.   ATSAY 1 5 14 "Calling GEnie for the DATASTORM Roundtable"
  15.   LOCATE 3 0
  16.   EMULATE ANSI                         ;ANSI-BBS terminal emulation
  17.   IF NOT LINKED
  18.      DIAL S8
  19.   ENDIF
  20.   SET DUPLEX HALF                      ;turn echo on
  21.   PAUSE 1                              ;network settling time
  22.   TRANSMIT "H"                         ;send characters for synchronization
  23.   PAUSE 1
  24.   TRANSMIT "H"
  25.   PAUSE 1
  26.   TRANSMIT "H"
  27.   PAUSE 1
  28.   TRANSMIT "^M"                        ;send it all
  29.   WAITFOR "U# " 35                     ;wait for Genie prompt
  30.   RFLUSH                               ;make sure no noise came in
  31. SENDID:                                ;loop for resending ID
  32.   TRANSMIT S9                          ;transmit your User Number,PASSWORD
  33.   WAITFOR "^M"                         ;wait for carriage return
  34.   RGET S0                              ;get rest of prompt
  35.   FIND S0 "U#"                         ;check for VALIDATION FAULT
  36.   IF FOUND                             ;if it is
  37.     GOTO SENDID                        ;try again
  38.   ENDIF                                ;end of test
  39.   WAITFOR "or <H>elp?" 180             ;wait for Genie Main menu prompt
  40.   IF NOT WAITFOR                       ;no response from the system
  41.     GOTO UNAVAILABLE                   ;hang up and try again?
  42.   ENDIF                                ;continue
  43. TRYAGAIN:                              ;loop for resending page number
  44.   TRANSMIT "M725^M"                    ;goto Datastorm Roundtable
  45.   WAITFOR "Page 725" 180               ;did we make it
  46.   IF WAITFOR                           ;test to make sure
  47.     WAITFOR "or <H>elp?"               ;wait for the Roundtable prompt
  48.     ALARM 2                            ;make some noise
  49.     EXIT                               ;we made it!
  50.   ENDIF                                ;end of test
  51.   SOUND 440 50                         ;signal attention
  52.   KFLUSH                               ;make sure no keys pressed
  53.   MESSAGE "^MDidn't make it to the Roundtable.  Want to try again? (Y/N)"
  54.   GET S0 1                             ;get the keyboard input
  55.   FIND S0 "Y"                          ;did we get a Y?
  56.   IF FOUND                             ;test it
  57.     GOTO TRYAGAIN                      ;send the page number again
  58.   ENDIF                                ;continue
  59.   EXIT                                 ;end it
  60.  
  61. UNAVAILABLE:                           ;system is unavailable
  62.   HANGUP                               ;hangup phone
  63.   CLEAR                                ;clear screen
  64.   SOUND 440 50                         ;make some noise
  65.   KFLUSH                               ;clear the keyboard
  66.   MESSAGE "^M^JSorry! Genie is not responding!^M^J"
  67.  
  68.   EXIT                                 ;quit command file
  69.