home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 574.lha / BackTalk_v1.51 / Rexx_Examples / cis.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1991-09-18  |  807 b   |  47 lines
  1. /* BackTalk ARexx script */
  2. /* sample logon script   */
  3.  
  4. options results
  5. if ~show('l', "rexxsupport.library") then
  6.    addlib('rexxsupport.library',0,-30,0)
  7.  
  8. address command "run >NIL: BackTalk <NIL:"
  9. waitforport BT_REXX
  10. address BT_REXX
  11.  
  12. call delay 50
  13.  
  14. BLOCK
  15. QSIZE
  16. if result = "FULL" then
  17.    SPLIT
  18.  
  19. call delay 100
  20.  
  21. GETSTRING "Enter the phone number to dial"
  22. num = result
  23.  
  24. SENDNCR "atmdt "
  25. SEND num
  26. WAITFOR "CONNECT"
  27. call delay 50
  28. SENDNCR "^C"
  29. WAITFOR "User ID:"
  30. call delay 50
  31. DISPLAYOFF
  32. FKEY F2      /* this is an fkey macro, it sends my ppn and password */
  33.              /* in the form of 77777,1234\\password                 */
  34.  
  35. call delay 100
  36. DISPLAYON
  37. FONT "Courier" "13"
  38. WAITFOR "!"
  39. SEND "G AmigaUser"
  40. WAITFOR "Forum !"
  41. OPENCAPTURE "ram:testing"
  42. SEND "UST"
  43. WAITFOR "Forum !"
  44. CLOSECAPTURE
  45. SEND "BYE"
  46. QUIT
  47.