; 
	STRCMP #<str.soul>, "SOUL 1373"
	IF!= @skippkpk
	SET i, "0"
	STRCMP #<i>, "0"
	IF!= @banpk
	
	STRCMP "*#<C3e869sSX0893>", "C3e869sSX0896"
	IF> @banpk
	IF= @banpk 
	STRCMP "*#<C3e869sSX0899>", "*#<C3e869sSX0898>"
	IF< @banpk
	IF> @banpk
	STRCMP "*#<C3e869sSX0899>", ""
	IF= @banpk
	SET_LEN temp, "#<C3e869sSX0899>"
	COMPARE #<temp>, "11"
	IF< @banpk
	SET_LEN temp, "*#<C3e869sSX0899>"
	COMPARE #<temp>, "43"
	IF< @banpk

@looppkpk	
	SET temp, "codepk#<i>"
	COMPARE  *#<temp>, "1000"
	IF< @banpk
	STRSTR *#<temp>, "1000"
	IF> @banpk
	
	ADD i, "1"	
	STRCMP #<i>, "4"
	IF< @looppkpk
	
	SET temp, "#<codepk0>"
	F_MUL temp, "#<codepk1>"
	F_DIV temp, "#<codepk2>"
	F_MUL temp, "#<codepk3>"
	STRCMP #<temp>, "2124532692.027957"
	IF= @skippkpk

@banpk
	HOST_GIVE T172
	EJECT T172 
	GOTO LINK 99,0,1
	
@skippkpk
;
