KFUNCT ;PROGRAMMEREN FUNKTIE-TOETSEN (INSTELBAAR) ;KFUNCT;
 G 1
 ;
 ;~ : Ascii-waarde 13 (CR)
 ;
S1 S K=""
S1A F J=1:1:$L(B) S C=$A(B,J),K=K_$P("0\1\2\3\4\5\6\7\8\9\A\B\C\D\E\F",D,C\16+1)_$P("0\1\2\3\4\5\6\7\8\9\A\B\C\D\E\F",D,C#16+1)
S1B W *27,"P<|",A,"/",K,*27,D
S1Z Q
 ;
1 F I=1:1 Q:'$L($P(R,D,I))   S A=$P($P(R,D,I),"#",1),B=$P($P(R,D,I),"#",2) I $L(B),$L(B)<78 D S1
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 22.01.91 - 13 u 37