home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / c / cn311-sw.zip / QMDMSTRD.SCR < prev    next >
Text File  |  1990-12-21  |  4KB  |  128 lines
  1. ;FOR UPLOAD and DOWNLOAD OF MAIL via TWO CALLS to a protocol.
  2. ;
  3. ;This Qmodem 4.2 script has been provided for use by Bill Arlofski
  4. ;of Reverse Polarity BBS (203)585-6698. PLEASE read it carefully,
  5. ;making any needed changes. For more information on Qmodem scripts,
  6. ;please refer to the Qmodem manual. If all attemts fail, please feel
  7. ;free to contact me at the above number. Thank you and enjoy:
  8. ;
  9. ;                     C I R C U I T   N E T
  10. ;
  11. Graphics ANSI
  12. TurnON   8_BIT
  13. TurnOFF  LINEFEED
  14. TurnOFF  XON/XOFF
  15. TurnON   NOISE
  16. TurnON   MUSIC
  17. TurnON   SCROLL
  18. TurnOFF  PRINT
  19. TurnOFF  ECHO
  20. TurnOFF  SPLIT
  21. TurnON   BS_DEL
  22. ; The next line will open a capture log file called "NET_MAIL.LOG"
  23. CAPTURE  NET_MAIL.LOG
  24.  
  25. TimeOut  50  END ; Set Waitfor for 50 seconds, go to END if a timeout occurs
  26. DIAL  "TReverse"  ; This will dial the entry in your phone list
  27.                   ;  that has the text 'Reverse' in it.. Change this
  28.                   ;  accordingly. The 'T' MUST preceed the ASCII search
  29.                   ;  String with NO spaces between.
  30.  
  31. Waitfor  "GRAPHICS? [y/N]"
  32. Delay    100
  33. Send     "N"
  34.  
  35. Waitfor  "name:"
  36. delay    100
  37. send     "NETNODE 000000;PASSWORD^M" ; EDIT THIS to include YOUR node ID
  38. ;         ||||||| |||||| ||||||||     number and password!
  39. ;         ||||||| |||||| ||||||||
  40. ;1st name ^^^^^^^ |||||| ||||||||
  41. ;Last name--------^^^^^^ ||||||||
  42. ;Password----------------^^^^^^^^
  43.  
  44. When   "to continue?"  "^M"
  45. When   "continue..."  "^M"
  46. When   " [Y/n]?"  "N^M"
  47. When   " [Y/n]"   "N^M"
  48.  
  49. waitfor "]?"
  50. Delay    100
  51.  
  52. Exist C:\sf\circuit\mail\000000.zip SHIP
  53.  
  54.  
  55.    ; the above line checks to see if you have mail to send.
  56.    ; If you have NO mail to send out, then the commands inside the Number
  57.    ; signs will be executed. This will ONLY try to get mail from my system.
  58.    ;CHANGE the path and filename accordingly in the above line!
  59.    ;You must change the 000000.zip to 203000.zip if you are calling
  60.    ;Reverse Polarity.
  61.  
  62. ;############################################################################
  63.  
  64. Send "L"   ; change this to the OPTION in my menu screen to receive YOUR
  65.            ; mail.
  66.  
  67. DOS "ENTER the protocol and command line parms for it here"
  68.  
  69.    ;For example: DOS "DSZ rz C:\sf\circuit\mail\000000.zip"
  70.    ;The 000000.zip MUST be changed to your NODE ID number.
  71.    ;You may also use the QMODEM Down command instead of the above format,
  72.    ;either will work.
  73.  
  74.  
  75. waitfor "]?"
  76. Delay    100
  77. SEND "G"
  78. GOTO END
  79. ;############################################################################
  80.  
  81. SHIP:
  82.  
  83.  
  84.  
  85. ;*****************************************************************************
  86.    ; The commands inside these asterisks will be executed IF your system
  87.    ; has a mail packet to send to me. They will make your system SEND and
  88.    ; receive a mail packet.
  89.  
  90. SEND "A"       ; To SEND your mail packet (IE:203000.zip)
  91.                ;Change the A to A for Zmodem, B for PUMA, or C for Ymodem.
  92.  
  93. DOS "ENTER the protocol and command line parms for it here"
  94.  
  95.    ;For example: DOS "DSZ sz C:\sf\circuit\mail\000000.zip"
  96.    ;The 000000.zip Must be changed to the node you are sending to...
  97.    ;You will change it to 203000.zip if you are calling Reverse Polarity.
  98.    ;Again, the QMODEM Upload command will also work here.
  99.  
  100.  
  101. waitfor "]?"
  102. Delay    100
  103. Send "L"   ; change this to the OPTION in my menu screen to receive YOUR
  104.            ; mail.
  105.  
  106. DOS "ENTER the protocol and command line parms for it here"
  107.  
  108.    ;For example: DOS "DSZ rz C:\sf\circuit\mail\000000.zip"
  109.    ;The 000000.zip MUST be changed to your NODE ID number.
  110.    ;Again, the QMODEM Download command will work too.
  111.  
  112. waitfor "]?"
  113. Delay    100
  114. GOTO END
  115.  
  116. ;*****************************************************************************
  117.  
  118. END:
  119. pause 1500
  120. Send     "G^M"
  121. pause 1500
  122. send    "Y^M"
  123. pause 1500
  124. HANGUP
  125. pause 1000
  126. TURNOFF CAPTURE
  127. system Y
  128.