🚀 go-pugleaf

Stripping high order bits via the MOD operator is neither fast nor reliable.

Unfortunately, modula-2 implementations differ on whether ORD(ch) can be
negative or not, and how MOD operates on negative numbers. Secondly, MOD is
usually equivalent to divide in cost, though many compilers optimize for DIV
and MOD by powers of two.

Mike Powell's modula-2 provides a module called "BitOperations" that will let
you do bit AND, which would be fine, or in many cases an IF would be
reasonable. IE. 

IF ORD(ch) >= 128 THEN ch := CHR(ORD(ch)-128); END;
 
or

IF ORD(ch) < 0 THEN ch := CHR(ORD(ch)+128); END;

If you are willing to use machine dependent code, instead of reading into a
buffer of chars, you could read into an array of things which looked like:

BitChar = RECORD parity: BOOLEAN; ch: [0..127]; END;

Then use the ch fields, this assumes your modula-2 compiler allows some kind
of bit level control of record layout. Warning: this kind of code can often
be slower than the naive "IF" statement used above. Know what you are doing!

	-- Charles