d: A program to read the 17 key keypad. Genovationi: Written 11-11-94 by Randy Fischer.n 10,5,8,2,11,6,9,3,7,1,4,0,12,14,13,15x KEYTRANS()@ I   : D : KEYTRANS(I) D : IRSECBASE 0jPPORT SECBASE(PPORT), : (PPORT), ()  : () D (PPORT) : (D )   KEYTRANS(D )  ,