VolksForth/AtariST/INDEX.FB

\\                       *** Index ***                 26may86we                                                                Diese File enth<74>lt nur das Wort  INDEX  , das fr<66>her zum System-kern geh<65>rt hat.  INDEX  arbeitet aber jetzt auch auf Files     und mu<6D>te deshalb 'nach hinten' verlegt werden.                                                                                     INDEX   ( from to -- )                                      liest die BLOCKs from bis to einschliesslich und gibt deren     erste Zeilen aus.  INDEX  kann mit einer beliebigen Taste unter-brochen und mit ESC oder CTRL-C abgebrochen werden.             Die ersten Zeilen von Screens enthalten typisch Kommentare, die den Inhalt charakterisieren.                                                                                                                                                                                                                                                                                                    \ index findex                                         05dec85we                                                                \needs capacity     ' blk/drv Alias capacity                                                                                    | : range  ( from to -- to+1 from )                                  capacity 1- umin   swap   capacity 1- umin                      2dup > IF  swap  THEN  1+ swap ;                                                                                           : index ( from to --)                                              range DO  cr  I 4 .r   I space block  c/l type                            stop? IF  LEAVE  THEN  LOOP ;