home *** CD-ROM | disk | FTP | other *** search
/ .net 1999 December / netCD65.iso / pc / Software / VirtualA / 16bit / vaper16.exe / %MYDIR% / Obsolete.ebs < prev    next >
Encoding:
Text File  |  1999-10-06  |  3.3 KB  |  93 lines
  1. 'T:OBSOLETE.EBS for CompuServe
  2. ' VA 4.01 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:JoinForum (subroutine) (CompuServe)
  73. Sub JoinForum(id As String, forum As String, handle As String, ndays As String)
  74.     NewJoinForum id, forum, handle, ndays, ""
  75. End Sub
  76.  
  77. 'T:ForumStats (subroutine) (CompuServe)
  78. Sub ForumStats(id As String, forum As String)
  79.     HMIForumStats id, forum
  80. End Sub
  81.  
  82. 'T:HMISysopModify (subroutine) (CompuServe)
  83. Sub HMISysopModify(id As String, forum As String, num As String, section As String)
  84.     ReportSuccess id & " : HMISysopModify() is an obsolete action"
  85. End Sub
  86.  
  87. 'T:HMISysopSubject (subroutine) (CompuServe)
  88. Sub HMISysopSubject(id As String, forum As String, num As String, newsubj As String)
  89.     ReportSuccess id & " : HMISysopSubject() is an obsolete action"
  90. End Sub
  91.  
  92.  
  93.