mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +00:00
35 lines
2.1 KiB
Forth
35 lines
2.1 KiB
Forth
\ *** Block No. 0 Hexblock 0
|
||
\\ *** Index *** 26may86we
|
||
|
||
Diese File enth„lt nur das Wort INDEX , das fr<EFBFBD>her zum System-
|
||
kern geh”rt hat. INDEX arbeitet aber jetzt auch auf Files
|
||
und muž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.
|
||
|
||
|
||
|
||
|
||
\ *** Block No. 1 Hexblock 1
|
||
\ 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 ;
|
||
|
||
|
||
|
||
|
||
|