home *** CD-ROM | disk | FTP | other *** search
/ .net 1999 December / netCD65.iso / pc / Software / VirtualA / 32bit / vasetup.exe / %MYDIR% / ZIFF.EBS < prev   
Encoding:
Text File  |  1999-10-06  |  1.6 KB  |  45 lines
  1. 'T:ZIFF.ENS for CompuServe
  2. ' VA 4.52 release
  3.  
  4. Declare Sub CapturePages(id As String, forum As String, menuid As String, _
  5.     ppseudo As String, endofmsg As String, pcleanup As Boolean, _
  6.     prompt As String, psearch As String, notfound As String, _
  7.     morestr As String, doall As Boolean)
  8.  
  9. 'T:ZiffNew (subroutine) (CompuServe)
  10. Sub ZiffNew(id As String)
  11.     CapturePages id, "znt:new", "", "ZiffNet/Whats_New ZiffNet", _
  12.         "\nToday on ZD*\r", False, "", "", "", "", True
  13. End Sub
  14.  
  15. 'T:ZiffPCWeekToday (subroutine) (CompuServe)
  16. Sub ZiffPCWeekToday(id As String)
  17.     CapturePages id, "znt:newref", "1", "ZiffNet/PC_Week_News_Today ZiffNet", _
  18.         "\nPC Week News(FREE)*\r", False, "", "", "", "", True
  19. End Sub
  20.  
  21. 'T:ZiffMacWeekToday (subroutine) (CompuServe)
  22. Sub ZiffMacWeekToday(id As String)
  23.     CapturePages id, "znt:newref", "2", "ZiffNet/Mac_Week_News_Today ZiffNet", _
  24.         "\nMacWEEK News(FREE)*\r", False, "", "", "", "", True
  25. End Sub
  26.  
  27. 'T:ZiffPCWeek (subroutine) (CompuServe)
  28. Sub ZiffPCWeek(id As String)
  29.     CapturePages id, "znt:newref", "3", "ZiffNet/PC_Week_News ZiffNet", _
  30.         "\nPC Week News(FREE)*\r", False, "", "", "", "", True
  31. End Sub
  32.  
  33. 'T:ZiffMacWeek (subroutine) (CompuServe)
  34. Sub ZiffMacWeek(id As String)
  35.     CapturePages id, "znt:newref", "4", "ZiffNet/Mac_Week_News ZiffNet", _
  36.         "\nMacWEEK News(FREE)*\r", False, "", "", "", "", True
  37. End Sub
  38.  
  39. 'T:ZiffNewsbytes (subroutine) (CompuServe)
  40. Sub ZiffNewsbytes(id As String)
  41.     CapturePages id, "znt:newsbytes", "2", "ZiffNet/Newsbytes ZiffNet", _
  42.         "\nNewsbytes(FREE)*\r", False, "", "", "", "", True
  43. End Sub
  44.  
  45.