home *** CD-ROM | disk | FTP | other *** search
/ Nebula / nebula.bin / PC / termprog / source.cmd < prev   
OS/2 REXX Batch file  |  1993-08-08  |  2KB  |  24 lines
  1. ;**********************************************************************
  2. ;*                                                                    *
  3. ;* Sample command file for automatic logon to the Source (r) through  *
  4. ;* Telenet.                                                           *
  5. ;*                                                                    *
  6. ;**********************************************************************
  7.  
  8. EMULATE VT100           ;* emulate VT100                                 *
  9. IF NOT LINKED
  10.    DIAL "27"            ;* Call dial dir entry number 27 (Telenet)       *
  11. ENDIF
  12. TRANSMIT "!"            ;* Transmit Carriage return <CR>                 *
  13. TRANSMIT "!"            ;* Transmit Carriage return <CR>                 *
  14. WAITFOR "TERMINAL=" 40  ;* Wait for "TERMINAL=" to come in COM port      *
  15. TRANSMIT "d1!"          ;* give telenet the terminal identifier          *
  16. WAITFOR "@" 40          ;* Wait for "@" to come in COM port              *
  17. TRANSMIT "C 30148!"     ;* Send request to telenet for The Source        *
  18. WAITFOR ">" 40          ;* Wait for prompt from The Source               *
  19. TRANSMIT "ID BBX714!"   ;* Transmit user id <CR>                         *
  20. PAUSE "20"              ;* wait... The Source takes a while at first...  *
  21. WAITFOR "Password?" 40  ;* Wait for Source password prompt               *
  22. TRANSMIT "BOAT77!"      ;* Transmit password <CR>                        *
  23. ALARM                   ;* Sound alarm to let you know logon is complete *
  24.