home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / TASK.ZIP / CIS.MAC < prev    next >
Text File  |  1992-09-07  |  5KB  |  132 lines
  1.   Macros for use with TASK.MAC
  2. These macros are Copyright 1992 (c) to Joe Hayashi
  3.  
  4. Note:  I have disabled the SED and DEL exec commands, expecting that everyone might not have SED installed.  If you want to use the commands, just put brackets around them.
  5.  
  6. Also note that if you are not a subscriber to Ziffnet, you will be charged full connect time to get PC Week and MacWeek Newsbriefs as well as What's New on Ziffnet.
  7.  
  8. {:auto_cis}
  9.          {send ~~AT M0|~~~}
  10. !        {mark auto_cis}       MAKE SURE YOU HAVE AN ENTRY IN COMMO.FON FOR THIS
  11.          {dial ,}
  12.          {setlook 45,hng,2,^c} {send ^c}
  13.          {lookfor User ID:} {send 12345,1234|}  <= Change to your user ID
  14.          {setl 300,hng} {lookfor Password:} {send %_pas|}
  15.          {return} 
  16.  {}
  17.  
  18. Get Online Today
  19.   {:olt}
  20.          {call auto_cis|}
  21.          {lookfor !} {send go olt|} {lookfor !} {send 1|}
  22.          {capt y,c:\commo\olt.raw} {asci ,:}
  23.          {lookfor !} {send 1|} {lookfor !} {send 2|}
  24.          {lookfor !} {send 3|} {lookfor !} {send 4|}
  25.          {lookfor !} {send 5|} {lookfor !} {send 6|}
  26.          {lookfor !} {send 7|} {lookfor !} {send 8|}
  27.          {lookfor !} {send 9|} {capt n} {send off|}
  28.           exec-ns SED -f c:\commo\olt.sed c:\commo\olt.raw > c:\commo\olt_%_mon%%_day.txt}
  29.           exec-ns DEL c:\commo\olt.raw }
  30.          {exit}
  31.   {}
  32.  
  33. Get What's New on Compuserve
  34.   {:new}
  35.          {call auto_cis|}
  36.          {lookfor !} {send go new|}
  37.          {capt y,c:\commo\new.raw} {asci ,:}
  38.          {lookfor !} {send 1|} {lookfor !} {send 2|}
  39.          {lookfor !} {send 3|} {lookfor !} {send 4|}
  40.          {lookfor !} {send 5|} {lookfor !} {send 6|}
  41.          {lookfor !} {send 7|} {lookfor !} {send 8|}
  42.          {lookfor !} {send 9|} {capt n} {send off|}
  43.           exec-ns SED -f c:\commo\new.sed c:\commo\new.raw > c:\commo\new_%_mon%%_day.txt }
  44.           exec-ns DEL c:\commo\new.raw }
  45.          {exit}
  46.   {}
  47.  
  48. Get What's New on ZiffNet
  49.   {:znt}
  50.          {call auto_cis|}
  51.          {lookfor !} {send go znt:new|}
  52.          {capt y,c:\commo\znt.raw} {asci ,:}
  53.          {lookfor !} {send 1|} {lookfor !} {send 2|}
  54.          {lookfor !} {send 3|} {lookfor !} {send 4|}
  55.          {lookfor !} {send 5|} {lookfor !} {send 6|}
  56.          {lookfor !} {send 7|} {lookfor !} {send 8|}
  57.          {lookfor !} {send 9|} {capt n} {send off|}
  58.           exec-ns SED -f c:\commo\new.sed c:\commo\znt.raw > c:\commo\znt_%_mon%%_day.txt }
  59.           exec-ns DEL c:\commo\znt.raw }
  60.          {exit}
  61.   {}
  62.  
  63. Get an AP News Summary with headlines
  64.   {:apo}
  65.          {call auto_cis|}
  66.          {lookfor !} {send go apo|} {lookfor !} {send |} {lookfor !} {send 1|}
  67.          {capt y,c:\commo\apo.raw} {asci ,:}
  68.          {calo headlines,send1,1 AP Top} {calo headlines,send2,2 AP Top}
  69.          {calo headlines,send3,3 AP Top} {calo headlines,send4,4 AP Top}
  70.          {calo headlines,send5,5 AP Top} {calo headlines,send6,6 AP Top}
  71.          {calo headlines,send7,7 AP Top} {calo headlines,send8,8 AP Top}
  72.          {calo headlines,send9,9 AP Top} {calo headlines,send0,0 AP Top}
  73.          {lookfor !}
  74.   {:headlines}
  75.          {lookfor !} {send m|} {lookfor !} {send m|}
  76.          {lookfor !} {send 4|} {lookfor !} {send m|}
  77.          {lookfor !} {send 5|} {lookfor !} {send m|}
  78.          {lookfor !} {send 6|} {lookfor !} {send m|}
  79.          {lookfor !} {send 7|} {lookfor !} {send m|}
  80.          {lookfor !} {send 8|} {lookfor !} {send m|}
  81.          {lookfor !} {send 9|} {send |} {lookfor !} {send |} {lookfor !} {send m|}
  82.          {lookfor !} {send 12|} {lookfor !} {send m|}
  83.          {lookfor !} {send 13|} {lookfor !} {send m|}
  84.          {capt n} {send off|}
  85.           exec-ns SED -f c:\commo\apo.sed c:\commo\apo.raw >> c:\commo\apo_%_mon%%_day.txt }
  86.           exec-ns DEL c:\commo\apo.raw }
  87.      {exit}
  88.   {}
  89. {:send1} {send ~1|} {return} {}
  90. {:send2} {send ~2|} {return} {}
  91. {:send3} {send ~3|} {return} {}
  92. {:send4} {send ~4|} {return} {}
  93. {:send5} {send ~5|} {return} {}
  94. {:send6} {send ~6|} {return} {}
  95. {:send7} {send ~7|} {return} {}
  96. {:send8} {send ~8|} {return} {}
  97. {:send9} {send ~9|} {return} {}
  98. {:send0} {send ~0|} {return} {}
  99.  
  100.  
  101. Get PC Week Newsbriefs
  102.   {:pcw}
  103.          {call auto_cis|}
  104.          {capt y,c:\commo\pcw.raw} {asci ,:}
  105.          {lookfor !} {send go znt:pcwnews|} {lookfor !} {send 1|}
  106.          {lookfor !} {send 2|} {lookfor !} {send 1|}
  107.          {lookfor !} {send 2|} {lookfor !} {send 3|}
  108.          {lookfor !} {send 4|} {lookfor !} {send 5|}
  109.          {lookfor !} {send m|} {lookfor !} {send m|}
  110.          {lookfor !} {send 3|} {lookfor page!} {send 4|}
  111.          {lookfor page!} {send 5|} {lookfor page!} {send ~off|}
  112.          {pause 5} {capt n}
  113.           exec-ns SED -f c:\commo\pcw.sed c:\commo\pcw.raw > c:\commo\pcw_%_mon%%_day.txt }
  114.           exec-ns DEL c:\commo\pcw.raw }
  115.      {exit}
  116.   {}
  117.  
  118. Get MacWeek Newsbriefs
  119.   {:mcw}
  120.          {call auto_cis|}
  121.          {capt y,c:\commo\mcw.raw} {asci ,:}
  122.          {lookfor !} {send go znt:macbrief|} {lookfor !} {send 1|}
  123.          {lookfor !} {send 2|} {lookfor !} {send 3|}
  124.          {lookfor !} {send 4|} {lookfor !} {send 5|}
  125.          {lookfor !} {send 6|} {lookfor !} {send 7|}
  126.          {lookfor !} {send 8|} {lookfor page!} {send off|}
  127.          {pause 5} {capt n}
  128.           exec-ns SED -f c:\commo\mcw.sed c:\commo\mcw.raw > c:\commo\mcw_%_mon%%_day.txt }
  129.           exec-ns DEL c:\commo\mcw.raw }
  130.      {exit}
  131.   {}
  132.