1340 IF X100 THEN GOSUB 900 : RETURN