home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / TxEdStuff / logibm.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  818 b   |  59 lines
  1. /* this logs on to IBM */
  2.  
  3. address COMMAND "c:runwsh hd:vlt"
  4.  
  5. sendstring1 = "*R"
  6. sendstring1 = '"'sendstring1'"'
  7.  
  8. gostring = "go"
  9. gostring = '"'gostring'"'
  10.  
  11. sendstring2 = "vm *R"
  12. sendstring2 = '"'sendstring2'"'
  13.  
  14. sendstring3 = "amiga *R"
  15. sendstring3 = '"'sendstring3'"'
  16.  
  17. sendstring4 = "l niv *R "
  18. sendstring4 = '"'sendstring4'"'
  19.  
  20. sendstring5 = "*F*R*R"
  21. sendstring5 = '"'sendstring5'"'
  22.  
  23. checkport = 0
  24.  
  25. do i = 1 to 100
  26.  
  27.     ports = showlist('p')
  28.     checkport = index(ports,"VLT")
  29.     if checkport ~=0 then leave i
  30.     address COMMAND "c:WaitForPort VLT"
  31.  
  32. end
  33.  
  34. address VLT
  35.  
  36. SEND sendstring1
  37. SEND sendstring1
  38.  
  39. SEND "vm"
  40. SEND "*R"
  41.  
  42.  
  43. address COMMAND "c:Wait 1"
  44.  
  45. SEND sendstring1
  46. SEND sendstring1
  47. SEND sendstring1
  48.  
  49. address COMMAND "c:Wait 1"
  50.  
  51.  
  52. SEND sendstring3
  53.  
  54. address COMMAND "c:Wait 1"
  55.  
  56. SEND sendstring5
  57. SEND sendstring4
  58.  
  59.