BRKREM.SNO

-MODULE BRKREM
-LINE 11 "BRKREM.lss"
-INCLUDE 'SDIFF.INC'
-IN72
-LINE 41 "BRKREM.lss"
-STITL BRKREM
-EJECT
*
************************************************************************
*                                                                      *
*                                                                      *
*         ######   ######   #    #  ######   #######  #     #          *
*         #     #  #     #  #   #   #     #  #        ##   ##          *
*         #     #  #     #  #  #    #     #  #        # # # #          *
*         ######   ######   ###     ######   #####    #  #  #          *
*         #     #  #   #    #  #    #   #    #        #     #          *
*         #     #  #    #   #   #   #    #   #        #     #          *
*         ######   #     #  #    #  #     #  #######  #     #          *
*                                                                      *
* BRKREM                   BREAK(S) OR REM                             *
*                                                                      *
************************************************************************
*
* BRKREM.lss
*
-LINE 15 "BRKREM.lss"
-PUBLIC BRKREM()
*
         DEFINE('BRKREM(S)CS')                             :(BRKREM_END)
*
BRKREM   BRKREM = IDENT(S) REM                                :S(RETURN)
         CS = SDIFF(&ALPHABET, S)
         IDENT(CS)                                            :S(RETURN)
         BRKREM = RPOS(0) | SPAN(CS) RPOS(0) | BREAK(S)
                                                               :(RETURN)
*
BRKREM_END
*
* CE: .MSNOBOL4;