I am a beginner with Modula-II. I work on an Amiga with the M2Amiga
compiler. I fail to see how I can do a bitwise EXOR, something you
can easily write in C as :

         tmpbuf[i] = inbuf[i]^key[kp]

Can someone help me on this ?
Tnx,
     Herman

hs>          tmpbuf[i] = inbuf[i]^key[kp]

hs> Can someone help me on this ?

Bit-Operations are usually coded in Modula-2 using the Type BITSET:
Assume : VAR b1, b2, b3 : BITSET;

        b3 := b1 * b2;     <-->     b3 <- b1 AND b2;
        b3 := b1 + b2;     <-->     b3 <- b1 OR  b2;
        b3 := b1 - b2;     <-->     b3 <- b1 AND NOT b2;
        b3 := b1 / b2;     <-->     b3 <- b1 XOR b2;

So your problem may be solved typing :
             tmpbuf [i] := yourType (BITSET(inbuf [i]) / BITSET(key [kp]));
where 'yourType' is the element data type of 'tmpbuf'.

Gruss, Peter
-->
Peter Funk \\ ArtCom GmbH, Schwachhauser Heerstr. 78, D-2800 Bremen 1
Work at home: Oldenburger Str.86, D-2875 Ganderkesee 1 /+49 4222 6018 (8am-6pm)