3550 IP=1 : GOSUB 8704 : FP=1-FP