3990 GOTO 4015