6525 IP=1 : X=CHI : GOSUB 8704