3455 IF X=0" : GOSUB 900 : PRINT : GOTO 3440