needs core-ext needs toolkit needs case : process ( c-addr u -- ) bounds ?do i c@ case [char] A of ." A detected" endof [char] B of ." B detected" endof endcase loop ;