/************************************************************************
         AUTHOR: Speedy Mercer 
        WEBSITE: http://www.herohog.com
         E-MAIL: code AT herohog.com
          LEGAL: This program is provided for FREE. All I ask is that you 
                 give credit where credit is due if you use it. 
                 There is NO warranty either written or implied.
           DATE: 8/18/2004
          TAKES: Time as a character string.
        RETURNS: Logical value TRUE if string contains words in 
                 DirtyWords list.
*************************************************************************/
FUNCTION SwearFilter RETURNS LOGICAL (INPUT ipcString AS CHARACTER).
   DEF VAR i            AS INTEGER NO-UNDO.
   DEF VAR vcDirtyWords AS CHARACTER NO-UNDO.
   
   ASSIGN 
      ipcString    = REPLACE(ipcString, " ", ",")
      ipcString    = REPLACE(ipcString, ".", ",")
      ipcString    = REPLACE(ipcString, "-", ",")
      ipcString    = REPLACE(ipcString, "!", ",")
      ipcString    = REPLACE(ipcString, "?", ",")
      ipcString    = REPLACE(ipcString, "~{", ",")
      ipcString    = REPLACE(ipcString, "~}", ",")
      ipcString    = REPLACE(ipcString, "(", ",")
      ipcString    = REPLACE(ipcString, ")", ",")
      ipcString    = REPLACE(ipcString, "'", ",")
      ipcString    = REPLACE(ipcString, '"', ',')
      vcDirtyWords = "fuck,"
                   + "fucks,"
                   + "fucked,"
                   + "fucker,"
                   + "fucking,"
                   + "bitch,"
                   + "bitches,"
                   + "cunt,"
                   + "cunts,"
                   + "asshole,"
                   + "assholes,"
                   + "bastard,"
                   + "bastards,"
                   + "shit,"
                   + "nigger,"
                   + "niggers,"
                   + "twat".
   
   DO i = 1 TO NUM-ENTRIES(ipcString):
      IF CAN-DO(vcDirtyWords, ENTRY(i, ipcString))
      THEN RETURN TRUE.
   END.   
   
   RETURN FALSE.
END FUNCTION. /* SwearFilter */