Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!caip!topaz!ll-xn!cit-vax!nike!ucbcad!ucbvax!CU20B.COLUMBIA.EDU!OC.TREI
From: OC.TREI@CU20B.COLUMBIA.EDU (Peter G. Trei)
Newsgroups: net.lang.mod2
Subject: Bit stripping... an answer.
Message-ID: <12228535854.11.OC.TREI@CU20B.COLUMBIA.EDU>
Date: Tue, 5-Aug-86 23:53:41 EDT
Article-I.D.: CU20B.12228535854.11.OC.TREI
Posted: Tue Aug  5 23:53:41 1986
Date-Received: Thu, 7-Aug-86 02:58:44 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 16



    Alright, here's the 'Right Way' to strip parity in Modula-2:

PROCEDURE StripParity(VAR c:CHAR);
BEGIN
c := CHAR( BITSET(c) * BITSET(127) );
END StripParity;

this is such a trivial procedure it is clearly easier to code it in-line.

						Peter Trei
						oc.trei@cu20b

[My employer would feel insulted if anyone thought it shared veiws with me.]
-------