This is "mini-QFORTH", extracted from its shrinkit archive using NuLib for your viewing pleasure.

QF.NEWWRDS.S<\a> QFORTH.S<\a> QF.REGWRDS1.S<\a> QF.REGWRDS2.S<\a> QF.SPCLWRDS1.S<\a> QF.SPCLWRDS2.S<\a>