cQQ	;Simulation ;cQQ;
	;
	W /END U 0:(0:"") K QW
START	B 1 S $ZT="ERR^"_$T(+0) D ^%PMODE
	X "F  U 0 S z(2)=$ZR,z(3)=$T(+0) W !,$ZNSPACE,"","",$ZU(131,0),"">"" R z(1) W ! D V^cQQ Q:z(1)=""Q""  ZL:$L(z(3)) @z(3) K z(2),z(3) X z(1)"
	U 0:(0:"") I $ZU(5)="%SYS",$D(^$R("%ZSTART")) D SWNS^%ZSTART
	;
YZ	k z(1),z(2),z(3) S $ZT="^%ET" Q
	;
V	S:$TR(z(1),"h","H")="H" z(1)="Q" S:$TR(z(1),"halt","HALT")="HALT" z(1)="Q"
	I $L(z(3)),$E(z(3))'="%",'$D(^$R(z(3))) S z(3)=""
	I z(3)=$T(+0) s z(3)="" X "ZR  "
	S $ZT="PROT^"_$T(+0) I $L(z(2)),$E(z(2))="^" S z(2)=$D(@z(2))
	S $ZT="ERR^"_$T(+0)
VZ	Q
	;
PROT	S $ZT="ERR^"_$T(+0),z(2)=""
PROTZ	Q
	;
ERR	S $ZT="^%ET" B 0 U 0 K z(3)
	H:$ZE["<DSCON>"
	I $ZE[$T(+0) D
	. W !,$G(z(1)),!!,$P($ZE,">"),">"
	E  D
	. S z(5)=$P($P($P($ZE,">",2),":")," "),z(6)="" I $L(z(5)) S z(6)=$T(@z(5))
	. I $ZE'["<DSCON>" W !,$ZE,!," 1) ",z(5),"::",z(6),!," 0) *XECUTE*:: ",$G(z(1)),!,$ZE,z(6)
	. K z(5),z(6)
ERRZ	H:$ZE["<INTERRUPT>" 2 G START
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9