Update forth.s