VolksForth/AtariST/INDEX.FB
2020-06-20 18:57:46 +02:00

1 line
2.0 KiB
Plaintext
Raw Blame History

\\ *** Index *** 26may86we Diese File enth„lt nur das Wort INDEX , das fr<66>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. \ 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 ;