1843 IF SF0" : GOSUB 900 : GOTO 1837