cA113 ;Verzamelprogramma van allerlei standaardcontroles;
 ;
T0 ;Verzamelprogramma van allerlei standaardcontroles;
 ;
T0F ;Verzamelprogramma van allerlei standaardcontroles;
 ;
T0E ;Verzamelprogramma van allerlei standaardcontroles;
 ;
 ; Datumcontrole DCTR
DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-"[K)
 ;
 ;Banknummercontrole BRCTR
BRCTR ;$E(K,1,10)#97-$E(K,11,12)=0!($E(K,1,10)#97-$E(K,11,12)=-97)&(K?12N)!("-"[K)
 ;
 ;BTW-nummer controle BNCTR
BNCTR ;97-($E(K,1,7)#97)=+$E(K,8,9)&(K?9N)!("-"[K)
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84