home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 515.lha / BackTalk_v1.40 / rexx_examples / cis.rexx < prev    next >
OS/2 REXX Batch file  |  1991-06-08  |  797b  |  45 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. BLOCK
  13. QSIZE
  14. if result = "FULL" then
  15.    SPLIT
  16.  
  17. call delay 100
  18.  
  19. GETSTRING "Enter the phone number to dial"
  20. num = result
  21.  
  22. SENDNCR "atmdt "
  23. SEND num
  24. WAITFOR "CONNECT"
  25. call delay 50
  26. SENDNCR "^C"
  27. WAITFOR "User ID:"
  28. call delay 50
  29. DISPLAYOFF
  30. FKEY F2      /* this is an fkey macro, it sends my ppn and password */
  31.              /* in the form of 77777,1234\\password                 */
  32.    
  33. call delay 100
  34. DISPLAYON
  35. FONT "Courier" "13"
  36. WAITFOR "!"
  37. SEND "G AmigaUser"
  38. WAITFOR "Forum !"
  39. OPENCAPTURE "ram:testing"
  40. SEND "UST"
  41. WAITFOR "Forum !"
  42. CLOSECAPTURE
  43. SEND "BYE"
  44. QUIT
  45.