home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / articles / io0893.zip / IOMAGNET.ZIP / IOMAGNET.SCR < prev    next >
Text File  |  1993-07-22  |  2KB  |  99 lines
  1. ; A script file for Qmodem or QmodemPro for calling IOMAG-Net HUB
  2. ; Command line: QMPRO/S=IOMAGNET.SCR
  3. ; This file must be edited to your paramaters as indicated below.
  4.  
  5. TurnON   8_BIT
  6. TurnOFF  LINEFEED
  7. TurnON   XON/XOFF
  8. TurnOFF  NOISE
  9. TurnOFF  MUSIC
  10. TurnON   SCROLL
  11. TurnOFF  PRINT
  12. TurnOFF  SPLIT
  13. TurnON   STATUSLN
  14. TurnOFF  DOORWAY
  15. String counter
  16. assign counter 0
  17.  
  18. Capture C:\Tribbs\trinet\arv.log ;keep track in case something bombs
  19. ;                 ^^^^^^^^^ insert your log
  20. TimeOut  50  Redail         ; this will set up the didn't answer cycle
  21. Redail:
  22. Hangup                      ; hang up the phone, then try again
  23. Pause 2000
  24. Incr counter                ; keep track of attempts
  25. If "$counter" = "101" GoodBye      ; give up on it
  26. ; ^^^^^^^^^^^^^^^^^^ Dials 100 attempts then quits
  27. clrscr
  28. displayln " "
  29. displayln "Calling network."
  30. displayln " "
  31. displayln " Attempt $counter"
  32. displayln " "
  33.  
  34. Delay     100
  35. Send     "ATDT9687450^M"           ; change the T to P for pulse dial
  36. ;             ^^^^^^^^ Insert Hub's Phone #
  37.  
  38.  
  39. Waitfor  "What is your first name?"
  40. Delay    500
  41. Send     "*first last password^M"
  42. ;          ^ Ater the asteric enter first name, last name and password
  43. ;Waitfor  "ase ENTER your menu choice =^P ?"
  44. ;Delay    500
  45. ;Send     "M^M"
  46.  
  47. ;Waitfor  "ase ENTER your menu choice =^P ?"
  48. ;Delay    500
  49. ;Send     "t^M"
  50.  
  51. Waitfor  "Q V Y S U D N G H ? J I W T] ?"
  52. Delay    500
  53. Send     "m^M"
  54.  
  55. Waitfor  ": [M J R S E K G H ? F T U C] ?"
  56. Delay    500
  57. Send     "t^M"
  58.  
  59.  
  60. EXIST C:\TRIBBS\TRINET\ARV.REP ARVUP
  61.  
  62. ARVDOWN:
  63. Waitfor  "TOMCAT MENU [D U C H G Q]:"
  64. Delay    500
  65. Send     "d^M"
  66. Pause    2000
  67. WHEN     "Nothing found to download!" goodbye
  68. Waitfor  "]es, [N]o, [G]oodbye when done?"
  69. Delay    100
  70. Send     "g^M"
  71. Download Z C:\TRIBBS\TRINET\
  72.  
  73. Waitfor  "ds before disconnect: 10^H^H10^H^H 9"
  74. Delay    100
  75. GOTO GOODBYE
  76. Exit
  77.  
  78. ARVUP:
  79.  
  80. Waitfor  "TOMCAT MENU [D U C H G Q]:"
  81. Delay    500
  82. Send     "U^M"
  83. UPLOAD Z C:\TRIBBS\TRINET\ARV.REP
  84. DELAY 500
  85. When     "Transfer successful, processing reply packet" DELREP
  86.  
  87. GOTO ARVDOWN
  88.  
  89. Goodbye:
  90. send "g^M"
  91. Hangup
  92. TurnOFF  Capture
  93. System Y
  94.  
  95. DELREP:
  96. DELETEF C:\TRIBBS\TRINET\ARV.REP
  97. ;       ^ Enter path and name of your .REP file
  98. GOTO ARVDOWN
  99.