cA50011 ;Toegangscontrole ;%A50011 [ 11/12/97  11:09 AM ]
 G YZ
 ;
T1 ;3\8\15\14\13\11\16\12\1\9\2\10\7\6\5\4\
T2 ;14\6\15\16\8\3\9\10\7\5\13\11\1\12\2\4\
T3 ;6\16\2\8\14\15\4\5\12\7\11\13\9\10\1\3\
T4 ;1\3\16\5\8\14\13\7\15\6\12\10\2\4\9\11\
T5 ;12\4\7\3\6\1\10\9\14\15\8\2\11\5\16\13\
T6 ;8\7\1\13\16\4\2\11\12\5\10\15\9\3\14\6\
T7 ;13\7\14\2\12\5\1\11\15\10\8\6\16\9\4\3\
T8 ;13\14\11\6\3\2\15\8\16\7\5\10\9\1\12\4\
T9 ;6\1\4\8\12\9\3\15\11\13\10\16\2\14\7\5\
T10 ;10\9\5\16\6\13\1\15\3\11\7\14\8\4\2\12\
T11 ;1\16\9\15\5\14\3\12\4\10\8\11\6\13\2\7\
T12 ;4\7\9\1\6\3\2\12\11\14\8\5\10\13\16\15\
T13 ;11\3\8\5\7\14\16\9\4\10\13\1\12\2\15\6\
T14 ;3\13\4\7\10\2\14\6\1\16\11\9\15\5\12\8\
T15 ;4\3\15\6\1\11\5\2\9\14\13\12\16\8\7\10\
T16 ;5\11\8\16\2\7\12\13\6\14\4\9\15\10\3\1\
 ;
T1E ;3\8\15\14\13\11\16\12\1\9\2\10\7\6\5\4\
T2E ;14\6\15\16\8\3\9\10\7\5\13\11\1\12\2\4\
T3E ;6\16\2\8\14\15\4\5\12\7\11\13\9\10\1\3\
T4E ;1\3\16\5\8\14\13\7\15\6\12\10\2\4\9\11\
T5E ;12\4\7\3\6\1\10\9\14\15\8\2\11\5\16\13\
T6E ;8\7\1\13\16\4\2\11\12\5\10\15\9\3\14\6\
T7E ;13\7\14\2\12\5\1\11\15\10\8\6\16\9\4\3\
T8E ;13\14\11\6\3\2\15\8\16\7\5\10\9\1\12\4\
T9E ;6\1\4\8\12\9\3\15\11\13\10\16\2\14\7\5\
T10E ;10\9\5\16\6\13\1\15\3\11\7\14\8\4\2\12\
T11E ;1\16\9\15\5\14\3\12\4\10\8\11\6\13\2\7\
T12E ;4\7\9\1\6\3\2\12\11\14\8\5\10\13\16\15\
T13E ;11\3\8\5\7\14\16\9\4\10\13\1\12\2\15\6\
T14E ;3\13\4\7\10\2\14\6\1\16\11\9\15\5\12\8\
T15E ;4\3\15\6\1\11\5\2\9\14\13\12\16\8\7\10\
T16E ;5\11\8\16\2\7\12\13\6\14\4\9\15\10\3\1\
 ;
 ;
YZ Q
 ;
SCR(R) ; scramble spelen ?
 I '$L($G(R)) Q ""
 N K,L,i,j
 s REF=$$SIG^cAFA1("PAR","LOGIN",114)
 I '$L(REF) S REF="Data-M n.v., Jozef Buyssestraat 72"
 s K="" f i=1:1:$L(R) s K=($a(R,i)+K)*2
 s K=K#32 I 'K s K=32
 s R=$e(R_$tr($j("",32)," ",$e(REF,K)),1,32)
 s L="" f i=1:2:31 s L=L_(($a(R,i)*$a(REF,i)+($a(R,i+1)*$a(REF,i+1)))#256)_$s(i=31:"",1:D)
 f i=1:1:16 f j=1:1:16 s L(i)=$g(L(i))_$p(L,D,$P($P($T(@("T"_i)),U,2),D,j))_D
 s K=""
 f j=1:1:16 f i=1:1:16 s $p(K,D,i)=$p(K,D,i)+$p(L(j),D,i)+$a($E(R,16-i+j))
 s R="" f j=1:1:16 s R=$p(K,D,j)#256_R
SCRZ q R
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84