4775 IF XNP0" : GOSUB 900 : GOTO 4765