home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pg200 / qwksig.200 < prev    next >
Text File  |  2006-10-19  |  4KB  |  69 lines
  1.      QWKSIG.200 (c)1989 Paul Globman
  2.           All rights reserved
  3.  
  4. QWKSIG.200 contains two programs: QWKSIG.INT (internal modem) and QWKSIG.EXT 
  5. (external Hayes-comp. modem).  They were written and tested to permit reliable,
  6. unattended capture of new M100SIG threads with as small a program as practical.
  7. They are intended for FREQUENT SIG visitors.
  8.  
  9. Download this file and remove all extra CIS characters.  Checksum it and decide
  10. which program/s you will use.  Replace the words "phone#", "user.id" and 
  11. "pass.word" with your LOGON data.  (Note that the data is split between two 
  12. lines of code in QWKSIG.EXT.)  If your CIS profle names PCS-154/M100SIG as your
  13. "TOP" menu then you can change "GO M100SIG" to "T" in the logon sequence but 
  14. the programs will work fine as written.
  15.  
  16. Using TEXT, copy the desired program code and PASTE it into BASIC.  Then
  17. save as a .BA file and copy it somewhere for back-up.
  18.  
  19. OPERATION is VERY simple. Just cursor over the program and press <ENTER>.
  20. QWKSIG logs on, goes to the M100SIG, downloads any "new" threads and appends
  21. them to a RAM file named SIG.DO, logs off and returns to the main menu.
  22. SIG.DO will contain all unread threads including CompuServe's sign-off message
  23. with your connect time.
  24.  
  25.  
  26. QWKSIG.200 makes some assumptions about the way you use the M100 SIG:
  27.  
  28. 1) QWKSIG expects that you have your SIG message option set to "NEVER" pause 
  29. between messages: this is the only way that the "RTN" command will deliver an
  30. unprompted stream of unread messages.
  31.  
  32. 2) QWKSIG assumes that you will always have enough RAM available for new
  33. threads.  If you run QWKSIG at least once a day with a fairly empty bank then
  34. you should not have any problems.  If you DON'T visit the SIG daily or can't 
  35. devote sufficient RAM to capture ALL unread threads each time you visit then 
  36. consider one of the following.
  37.  
  38.       a) Visit the SIG more frequently.
  39.       b) Reduce the number of sections you visit automatically.
  40.       c) Don't use QWKSIG.
  41. -----------------------------------------------------------------------------
  42.  
  43. Additional comments:  This program can work unattended, so the Tandy 200's
  44. BASIC 'POWER TIME$,DATE$,QWKSIG.BA' command might be an appropriate way to
  45. execute QWKSIG when you are not available to manually execute the program.  See
  46. the Tandy 200 BASIC Reference Manual for details (page 49).
  47.  
  48. QWKSIG.INT was beta tested by Randy Hess, who also contributed to this project by writing the docs.  
  49. ---------------------------------------
  50. 0 'QWKSIG.INT (c) 1989 by Paul Globman
  51. 1 CLEAR256:MAXFILES=3:DEFSTRA
  52. 2 A="phone#<==^C?:user.id^M?:pass.word^M?!GO M100SIG^S^M>"
  53. 3 P=VARPTR(A):CALL25040:CALL25131,0,PEEK(P+1)+256*PEEK(P+2):A="MDM:7I1ENN"
  54. 4 OPENAFORINPUTAS1:OPENAFOROUTPUTAS2:OPEN"SIG"FORAPPENDAS3:PRINT#2,CHR$(17)
  55. 5 A=INPUT$(1,1):PRINTA;:IFA<>"!"THEN5ELSEPRINT#2,"RTN;BYE
  56. 6 LINEINPUT#1,A:PRINTA:PRINT#3,A:IFINSTR(A,"Connect time =")=0THEN6ELSECLOSE:CALL25018:MENU
  57. ---------------------------------------
  58. ---------------------------------------
  59. 0 'QWKSIG.EXT (c) 1989 by Paul Globman
  60. 1 CLEAR256:MAXFILES=3:DEFSTRA:A4="COM:57I1ENN":A3="phone#"
  61. 2 A2="==^C?:user.id^M?:pass.word^M?!GO M100SIG^M"
  62. 3 CLOSE:OPENA4FORINPUTAS1:OPENA4FOROUTPUTAS2:PRINT#2,"ATZ":CALL25102:PRINT#2,"ATX4S7=15DT"A3
  63. 4 LINEINPUT#1,A:PRINTA:IFINSTR(A,"BUSY")ORINSTR(A,"NO ")THEN3ELSEIFINSTR(A,"CONNECT")=0THEN4
  64. 5 CALL25102:V=VARPTR(A2):CALL25301,0,PEEK(V+1)+256*PEEK(V+2):OPEN"SIG"FORAPPENDAS3
  65. 6 A=INPUT$(1,1):PRINTA;:IFA<>"!"THEN6ELSEPRINT#2,"RTN;BYE
  66. 7 ONERRORGOTO9
  67. 8 LINEINPUT#1,A:PRINTA:PRINT#3,A:IFA<>"NO CARRIER"THEN8ELSEMENU
  68. 9 RESUME8
  69.