Tunnel effect source code Pascal / ASM ksalmi@lokki.edutec.pori.fi .