forth version by desairobin | SimScale