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