; ( addr1 u1 n-- addr2 u2 ) String ; R( -- ) ; adjust string from addr1 to addr1+n, reduce length from u1 to u2 VE_SLASHSTRING: .db $7, "/string" .dw VE_HEAD .set VE_HEAD = VE_SLASHSTRING XT_SLASHSTRING: .dw DO_COLON PFA_SLASHSTRING: .dw XT_OVER ; ( -- addr1 u1 n u1) .dw XT_MIN ; ( -- addr1 u1 n|u1) .dw XT_ROT ; ( -- u1 n addr1 ) .dw XT_OVER ; ( -- u1 n addr1 n) .dw XT_PLUS ; ( -- u1 n addr2 ) .dw XT_ROT ; ( -- n addr2 u1) .dw XT_ROT ; ( -- addr2 u1 n) .dw XT_MINUS ; ( -- addr2 u2) .dw XT_EXIT ; : /STRING SWAP OVER - >R + R> ;