cABERR	;Raadplegen ^ERROR ;%AB1 ; [ 02/10/00  3:34 PM ]
	;
	; Scroll
1	D B^cA612,RS^cAN210("ERROR",0,0,0,0)
	;
YZ	D C^cA612 Q
	;
VAR	; tonen variabele + inhoud
	D O^cA612(12,1,10,80,1,0,0,0)
	N VAR,DAT,I2
	S VAR=@UREF,I2=UI1,DAT=""
	W /CUP(2,2),@F6,"Variabele",@F9,"= ~",VAR,"~"
	W /CUP(3,2),@F6,"Lengte",@F9,"= ",$L(VAR)," bytes"
	F  S I2=$O(^(I2)) Q:(I2\1)'=UI1  S DAT=DAT_^(I2)
	W /CUP(5,2),@F6,"Inhoud",@F9,"= ~",DAT,"~"
	W /CUP($L(DAT)\70+6,2),@F6,"Lengte",@F9,"= ",$L(DAT)," bytes"
	D TXT^cAFA1(4),C^cA612
VARZ	Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86