6100 IF DIXB-X THEN GOSUB 900 : GOTO 6090