KFT ;PROGRAMMEREN FUNKTIE-TOETSEN (INSTELBAAR) ;KFT; [ 03/28/96  1:53 PM ]
 ;
 Goto START
 ;
 ;~ : Ascii-waarde 13 (CR)
 ;
T1 ;06\#06~
T2 ;07\#07~
T3 ;08\#08~
T4 ;09\#09~
T5 ;10\#10~
T6 ;11\#11~
T7 ;12\#12~
T8 ;13\#13~
T9 ;14\#14~
T10 ;15\#HE~
T11 ;PS\#PP~
T12 ;NS\#NP~
T13 ;HM\#EN~
T14 ;NL\#HO~
T15 ;LF\#LE~
T16 ;RG\#RI~
T17 ;UP\#UP~
T18 ;DN\#DO~
T19 ;LI\#FI~
 ;
S1 
 Set K=""
 For J=1:1:$L(B) Do
 .Set C=$A(B,J),C=$S(C=126:13,1:C)
 .Set 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)
 .Write *27,"P<|",A,"/",K,*27,D
 Quit
 ;
START 
 For I=1:1 Set R=$P($T(@("T"_I)),U,2,99) Quit:R=""  Do
 .Set A=$P(R,D,1),B=$P(R,D,2)
 .If $L(B),$L(B)<78 Do S1
 Quit
 ;