Transforms the next record of plaintext according to the
    algorithm you specify in the ENCRYPT$INIT call. This routine
    performs either an encryption or decryption operation.

    Format

      ENCRYPT$ENCRYPT  context, input, output [,output-length] [,p1]