/**************************************************/
/* von: Olaf Gröning                              */
/* $VER: 1.0 (30.10.94) Olaf Gröning              */
/* aufruf: KP_FontExtract <font> <zeichen>        */             
/**************************************************/

options results
signal on error

PARSE ARG eingabe
font=WORD(eingabe,1)
zeichen=WORD(eingabe,2)

ADDRESS CONSTRUCT

KP_TEXT font zeichen

exit 0

error:
INIT
exit 0