{d: A program to read the 16 key keypad.i: Written 8-20-87 by Randy Fischer.n 7,3,11,13,4,0,10,8,5,1,12,9,6,2,14,15x KEYTRANS() I   : D : KEYTRANS(I) D : I%SECBASE 0=PPORT SECBASE[(PPORT), : (PPORT),D (PPORT) : (D )   KEYTRANS(D )