; ( -- ) Tools ; R( -- ) ; emits the version string VE_VER: .db $03, "ver" .dw VE_HEAD .set VE_HEAD = VE_VER XT_VER: .dw DO_COLON PFA_VER: .dw XT_SLITERAL .db 11,"amforth 2.2" .dw XT_ITYPE .dw XT_SPACE .dw XT_DOLITERAL .dw mcustring .dw XT_ICOUNT .dw XT_ITYPE .dw XT_EXIT