mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-26 17:49:18 +00:00
120 lines
7.3 KiB
Forth
120 lines
7.3 KiB
Forth
|
\ *** 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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|