( N, B, (TOP-, SEEK-ERROR )                                     : N                                                                 1 SCR +! ;                                                                                                                  : B                                                                 -1 SCR +! ;                                                                                                                 : (TOP)                                                             0 R# ! ;                                                                                                                    : SEEK-ERROR                                                        (TOP) FIND-BUF HERE C/L 1+ CMOVE                                HERE COUNT TYPE                                                 ." NONE " QUIT ;                                                                                                            -->                                                             