; 
	STRCMP #<str.soul>, "SOUL 1962"
	IF!= @skippkpkchaotic
	SET i, "0"
	STRCMP #<i>, "0"
	IF!= @banpkchaotic

@looppkpkchaotic	
	SET temp, "codepk#<i>"
	COMPARE  *#<temp>, "1000"
	IF< @banpkchaotic
	STRSTR *#<temp>, "1000"
	IF> @banpkchaotic
	
	ADD i, "1"	
	STRCMP #<i>, "4"
	IF< @looppkpkchaotic
	
	SET temp, "#<codepk0>"
	F_MUL temp, "#<codepk1>"
	F_DIV temp, "#<codepk2>"
	F_MUL temp, "#<codepk3>"
	STRCMP #<temp>, "1435358948.065722"
	IF= @skippkpkchaotic

@banpkchaotic
	HOST_GIVE T172
	EJECT T172 
	GOTO LINK 99,0,1
	
@skippkpkchaotic
;