4635 IF X=1" : GOSUB 900 : GOTO 4620