home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / MODEM / ACE186B.ZIP / CISFORUM.SCR < prev    next >
Text File  |  1994-04-07  |  5KB  |  146 lines
  1.  
  2. ;    We can place comments into our scripts.  ";" is used as a comment
  3. ;    character.  Text following ";" is a comment.
  4.    <DispStr>[AttrOff] <ClrWin>
  5.    <DispStr>[BWhi][Blu] <DispText>Intro <DispStr>[AttrOff]
  6.    <DispStr>^M^JQ)uit
  7.    <DispStr>^M^JAny key continues, or wait 10 seconds^M
  8.    <GetKey>10    <if>Q <Goto>@@EndScript
  9.  
  10.  
  11. <INITFONREC>CIS (local phoenix 9600)
  12. <FON_NUM>468-0285
  13. <FON_LINECTRL>7E1
  14. <FON_BAUD>19200
  15. <FON_TERM>Av/An
  16. <FON_FLAGS>Macro,DTag,Text,IEMSI,   ; I deleted "Cap," from the flags
  17.  
  18. <ReDials>100                        ; This macro gives control over how many
  19.                     ; times to re-dial before giving up.
  20. <FON_REDIAL>
  21. <LocalKeys>On
  22. <OPENCAPTURE>cserve.CAP
  23.  
  24.  
  25.  
  26. ; Note: when stacking macros, a space character MUST precede the macro.
  27. <SendStr>^M
  28. <WaitTime>15                        ; 15 seconds to timeout (<WaitStr> only)
  29. <WaitStr>Host Name: <SendStr>cis^M
  30. <WaitStr>User ID: <SendStr>75120,3306^M
  31. <WaitStr>Password: <SendStr>password^M
  32.  
  33. ;   The following checks for personal messages, "Compuserve Mail".
  34. ;   waiting for me. I won't have messages waiting every time I log on to
  35. ;   Compuserve. We need a way for the script to make decisions. If there are
  36. ;   messages, we can stop and read them, recording them into the already open
  37. ;   capture file, if no messages, we want to continue to capture the forum, and
  38. ;   log off.
  39.  
  40.    <Timer0>30                       ; Set a timer to 30 seconds
  41. :@@CheckMail                        ; Label we loop to while checking
  42.    <CheckMdm>CompuServe Mail <if>1 <goto>@@PersonalMail
  43.    <CheckMdm>messages pending <if>1 <goto>@@PersonalMail
  44.    <CheckMdm>SCAn, REAd, <if>1 <goto>@@PersonalMail
  45.    <CheckMdm>Enter choice ! <if>1 <goto>@@CompuserveTop
  46.  
  47.    <Timer0> <if>1 <Goto>@@CheckMail ; <if>1 while not timed out
  48. ;
  49. ;  Fall through to the forum on timeout
  50. ;
  51.    <SendStr>^M
  52.    <Goto>@@IBMPRO
  53. ;
  54. ;  Here if we got a hit with <CheckMdm>. <CheckMdm> is not case sensitive.
  55. ;
  56. :@@PersonalMail
  57.    <WaitTime>10                     ; New, faster timeout for <WaitStr>
  58.    <OPENCAPTURE>cismail.CAP         ; <WaitStr> falls through on timeout
  59.    <SendStr>Read^M
  60.    <WaitStr># (or ALL)?! <SendStr>all^M
  61.  
  62.    <Timer0>300          ; 5 minutes till timeout, up this if you are popular
  63. :@@ReadMail
  64.    <CheckMdm>CR> for more ! <if>1 <SendStr>^M
  65.    <CheckMdm>REPly or NEXt! <if>1 <SendStr>Next^M
  66.    <CheckMdm>SCAn, REAd, <if>1 <SendStr>^M
  67.    <CheckMdm>CR> for more ! <if>1 <SendStr>^M
  68.    <CheckMdm>Delete these messages? (Y or N)! <if>1 <goto>@@AfterMail
  69.    <Timer0> <if>1 <goto>@@ReadMail
  70. ;
  71. ;  Fall through to here on timeout
  72. ;
  73. :@@AfterMail
  74.    <SendStr>N^M
  75.    <Timer0>60                       ; Here we use 2 timers in 2 loops
  76. :@@CompuserveTop
  77. :@@ResetTimer1
  78.    <Timer1>10
  79. :@@TenSecondLoop
  80.    <CheckMdm>Enter choice ! <if>1 <goto>@@IBMPRO
  81.    <CheckMdm>Last page ! <if>1 <SendStr>^M
  82.    <Timer1> <if>1 <goto>@@TenSecondLoop
  83.    <SendStr>^M
  84.    <Timer0> <if>1 <goto>@@ResetTimer1
  85.  
  86. :@@LogOff
  87.    <SendStr>off^M <Delay>5 <SendStr>off^M <Delay>2 <MdmHangup>
  88.  
  89. :@@IBMPRO
  90.    <CLOSECAPTURE>
  91.    <SendStr>go IbmPro^M <OPENCAPTURE>ibmpro.CAP
  92.    <Delay>7
  93.    <SendStr>Read New^M
  94.    <MdmStill>10
  95.  
  96.    <CheckMdm>CR> ! <if>1 <SendStr>^M
  97.    <CLOSECAPTURE>
  98.                ; If you want more forums
  99.                ; you can un-comment the following line
  100.               <Goto>@@IBMCOM
  101.  
  102.    <WaitTime>15
  103.    <WaitStr>Enter choice ! <SendStr>off^M
  104.    <WaitStr>Host Name: <SendStr>off^M
  105.    <MdmHangup>
  106.    <Goto>@@EndScript
  107.  
  108. :@@IBMCOM
  109.    <SendStr>go IBMCOM^M <OPENCAPTURE>ibmCOM.CAP
  110.    <Delay>7
  111.    <SendStr>Read New^M
  112.    <MdmStill>10
  113.  
  114.    <CheckMdm>CR> ! <if>1 <SendStr>^M
  115.  
  116.    <CLOSECAPTURE>
  117.    <WaitTime>15
  118.  
  119.    <WaitStr>Enter choice ! <SendStr>off^M
  120.    <WaitStr>Host Name: <SendStr>off^M
  121.    <MdmHangup>
  122.  
  123. :@@EndScript
  124.  
  125. <ENDS>
  126.  
  127. {-DATA_AREA-}
  128. {-TEXT_START-}Intro
  129. ┌────── Compuserve Forums ───────────────────────────────────────────────────┐
  130. │                                                                            │
  131. │  This script calls Compuserve, and captures forums to their respectively   │
  132. │  named capture files. The script demonstrates some basic decision making   │
  133. │  using <CheckMdm> and <Timer0> macros. The script is capable of capturing  │
  134. │  personal mail, if any, and continue on to get the forums.                 │
  135. │  The script will pause for 10 seconds after it has logged onto Compuserve. │
  136. │  This pause is where we detect for any "Compuserve Mail" that may be       │
  137. │  waiting for us.                                                           │
  138. │                                                                            │
  139. │   You will need to edit the script where the login process sends your      │
  140. │   CIS ID  and  CIS password.                                               │
  141. └────────────────────────────────────────────────────────────────────────────┘
  142. {-TEXT_END-}
  143.  
  144.  
  145.  
  146.