                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ index                                              clv 28jun89                                                                  : index ( scr1 scr2 -- )                                           1+ swap ?DO stop? IF leave THEN                                   I 3 u.r space I block c/l type CR LOOP ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 