home *** CD-ROM | disk | FTP | other *** search
/ .net 1999 December / netCD65.iso / pc / Software / VirtualA / 32bit / vasetup.exe / %MYDIR% / Obsolete.ebs < prev    next >
Encoding:
Text File  |  1999-10-06  |  4.2 KB  |  122 lines
  1. 'T:OBSOLETE.EBS for CompuServe
  2. ' VA 4.52 release
  3.  
  4. Sub DownloadLibrary(id As String, forum As String, full As String, age As String, keywords As String, replace As String)
  5.     ReportSuccess id & " : DownloadLibrary() is an obsolete action"
  6. End Sub
  7.  
  8. Sub RemoteSearch(id As String, forum As String, cmd As String)
  9.     ReportSuccess id & " : RemoteSearch() is an obsolete action"
  10. End Sub
  11.  
  12. Sub UndeleteMail(id As String)
  13.     ReportSuccess id & " : UndeleteMail() is an obsolete action"
  14. End Sub
  15.  
  16. Sub SetupAccount(id As String, mailname As String)
  17.     SetupOptions id
  18. End Sub
  19.  
  20. 'T:UsenetOptions (subroutine) (CompuServe)
  21. Sub UsenetOptions(id As String, realname As String, organisation As String, limit As String)
  22.     ReportSuccess id & " : Please use the CISINET service for access to Usenet"
  23. End Sub
  24.  
  25. 'T:UsenetRead (subroutine) (CompuServe)
  26. Sub UsenetRead(id As String)
  27.     ReportSuccess id & " : Please use the CISINET service for access to Usenet"
  28. End Sub
  29.  
  30. 'T:UsenetSubscribe (subroutine) (CompuServe)
  31. Sub UsenetSubscribe(id As String, group As String)
  32.     ReportSuccess id & " : Please use the CISINET service for access to Usenet"
  33. End Sub
  34.  
  35. 'T:UsenetUnsubscribe (subroutine) (CompuServe)
  36. Sub UsenetUnsubscribe(id As String, group As String)
  37.     ReportSuccess id & " : Please use the CISINET service for access to Usenet"
  38. End Sub
  39.  
  40. 'T:UsenetList (subroutine) (CompuServe)
  41. Sub UsenetList(id As String)
  42.     ReportSuccess id & " : Please use the CISINET service for access to Usenet"
  43. End Sub
  44.  
  45. 'T:UsenetPost (subroutine) (CompuServe)
  46. Sub UsenetPost(id As String, group As String, filename As String)
  47.     ReportSuccess id & " : Please use the CISINET service for access to Usenet"
  48. End Sub
  49.  
  50. 'T:UKPubs (subroutine) (CompuServe)
  51. Sub UKPubs(id As String, county As String, town As String, pub As String, limit As String)
  52.     ReportSuccess id & " : UKPubs() is an obsolete action - go UKEVENTS"
  53. End Sub
  54.  
  55. 'T:UKWhatsOn (subroutine) (CompuServe)
  56. Sub UKWhatsOn(id As String, town As String, county As String, etype As String, _
  57.               title As String, venue As String, limit As String)
  58.     ReportSuccess id & " : UKWhatsOn() is an obsolete action - go UKEVENTS"
  59. End Sub
  60.  
  61. 'T:UKAcommodation (subroutine) (CompuServe)
  62. Sub UKAccommodation(id As String, town As String, county As String, _
  63.                     atype As String, limit As String)
  64.     ReportSuccess id & " : UKAccommodation() is an obsolete action - go UKEVENTS"
  65. End Sub
  66.  
  67. 'T:UpdateSections (subroutine) (CompuServe)
  68. Sub UpdateSections(id As String, forum As String)
  69.     ReportSuccess id & " : UpdateSections() is an obsolete action - it is now automatic"
  70. End Sub
  71.  
  72. 'T:ForumStats (subroutine) (CompuServe)
  73. Sub ForumStats(id As String, forum As String)
  74.     HMIForumStats id, forum
  75. End Sub
  76.  
  77. 'T:HMISysopModify (subroutine) (CompuServe)
  78. Sub HMISysopModify(id As String, forum As String, num As String, section As String)
  79.     ReportSuccess id & " : HMISysopModify() is an obsolete action"
  80. End Sub
  81.  
  82. 'T:HMISysopSubject (subroutine) (CompuServe)
  83. Sub HMISysopSubject(id As String, forum As String, num As String, newsubj As String)
  84.     ReportSuccess id & " : HMISysopSubject() is an obsolete action"
  85. End Sub
  86.  
  87. 'T:WhatsNew (subroutine) (CompuServe) (CompuServe)
  88. Sub WhatsNew(id As String)
  89.     ReportSuccess id & " : WhatsNew() is an obsolete action"
  90. End Sub
  91.  
  92. 'T:EuropeWhatsNew (subroutine) (CompuServe)
  93. Sub EuropeWhatsNew(id As String)
  94.     ReportSuccess id & " : EuropeWhatsNew() is an obsolete action"
  95. End Sub
  96.  
  97. 'T:UKWhatsNew (subroutine) (CompuServe)
  98. Sub UKWhatsNew(id As String)
  99.     ReportSuccess id & " : UKWhatsNew() is an obsolete action"
  100. End Sub
  101.  
  102. 'T:GermanWhatsNew (subroutine) (CompuServe)
  103. Sub GermanWhatsNew(id As String)
  104.     ReportSuccess id & " : GermanWhatsNew() is an obsolete action"
  105. End Sub
  106.  
  107. 'T:FrenchWhatsNew (subroutine) (CompuServe)
  108. Sub FrenchWhatsNew(id As String)
  109.     ReportSuccess id & " : FrenchWhatsNew() is an obsolete action"
  110. End Sub
  111.  
  112. 'T:PacificWhatsNew (subroutine) (CompuServe)
  113. Sub PacificWhatsNew(id As String)
  114.     ReportSuccess id & " : PacificWhatsNew() is an obsolete action"
  115. End Sub
  116.  
  117. 'T:DutchWhatsNew (subroutine) (CompuServe)
  118. Sub DutchWhatsNew(id As String)
  119.     ReportSuccess id & " : DutchWhatsNew() is an obsolete action"
  120. End Sub
  121.  
  122.