4740 ON ERROR GOTO 936