mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-09-07 04:54:30 +00:00
1 line
2.0 KiB
Plaintext
1 line
2.0 KiB
Plaintext
|
\\ *** 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 ;
|