Příklad 108. *:[90]

Příklad 109. *:[64]

:  stringfield ( GET -- str u ) ( str u SET -- )
  create ,
  does>
    @ swap ( flag fieldid -- fieldid flag )
    case get of
      stringbuf dup (fieldid sb sb )
      rot           ( sb sb fieldid )
      Field>string  ( sb count )
      endof
    set of
      string>anyField endof
    ( else ) commonmethods
    endcase
;