cQP	;Simulation ;cQP;
	;
	S $ZT="ERR^"_$T(+0) B 1
	X "ZR  F  U 0 W !,$ZNSPACE,"","",$ZU(131,0),"">"" R CMD S:CMD=""H""!(CMD=""h"") CMD=""Q"" W ! Q:CMD=""Q""!(CMD=""q"")  X ""ZI CMD"":$F(CMD,$C(9)),CMD:'$F(CMD,$C(9))"
	;
YZ	S $ZT="^cA405" Q
	;
ERR	G ^cA405:$ZE["<DSCON>"
	B 0 W !!,$ZE,! S $ZT="^cA405" H:$ZE["<INTERRUPT>" 1 U 0 G cQP
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9