mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-09-07 04:54:30 +00:00
1 line
7.0 KiB
Plaintext
1 line
7.0 KiB
Plaintext
|
\\ Simple Editor for Installation cas 10nov05 If the Full-Screen Editor cannot be used during installation (incompatible display hardware), the screens must be altered with this Simple Editor "PRIMED", which contains only one word definition:: Usage: Select Screen nn with command "nn LIST", and edit a screen with "ll NEW". It is only possible to rewrite whole lines. ll is the first line where the editing should start. The editing can be terminated by entering an empty line (just RETURN). Each RETURN will store the editied line and the whole screen will be reprinted. \ primitivst Editor PRIMED cas 10nov05 Vocabulary Editor | : !line ( adr count line# -- ) scr @ block swap c/l * + dup c/l bl fill swap cmove update ; : new ( n -- ) l/s 1+ swap ?DO cr I . pad c/l expect span @ 0= IF leave THEN pad span @ I !line cr scr @ list LOOP ; ' scr | Alias scr' .( Simple Editor loaded ) cr \ PRIMED Demo-Screen cas 10nov05 This text was created by: "2 LIST 4 NEW" and then entering this text The headerline (Line 0) was added later after leaving "NEW" with an empty line (just RETURN) and a new editing command "0 NEW". Ulrich Hoffmann
|