VolksForth/sources/msdos/primed.fth

120 lines
7.3 KiB
Forth
Raw Normal View History

\ *** Block No. 0 Hexblock 0
\\ 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.
\ *** Block No. 1 Hexblock 1
\ 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
\ *** Block No. 2 Hexblock 2
\ 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
\ *** Block No. 3 Hexblock 3
\ *** Block No. 4 Hexblock 4
\ *** Block No. 5 Hexblock 5
\ *** Block No. 6 Hexblock 6