3665 IF X=1" : GOSUB 900 : GOTO 3650