VolksForth/sources/msdos/install.fb.src

307 lines
20 KiB
Plaintext
Raw Normal View History

2017-04-23 22:25:49 +00:00
Screen 0 not modified
0 \\ Install Editor cas 10nov05
1
2 This file contains the Installer for the Forth Editor
3
4 The Installer will query for keystrokes that should invoke
5 the Editor commands.
6
7 This allows custom keybinding for the individual requirements
8
9
10
11
12
13
14
15
Screen 1 not modified
0 \ install Editor cas 10nov05
1
2 Onlyforth Editor also save warning on
3
4 : tab &20 col &20 mod - spaces ;
5 : .key ( c -- )
6 dup $7E > IF ." $" u. exit THEN
7 dup bl < IF ." ^" [ Ascii A 1- ] Literal + THEN emit ;
8
9 : install \ install editor's keyboard
10 page ." Press keys requested (Spacebar to confirm)"
11 #keys 0 ?DO cr I 2* actiontable + @ >name .name
12 tab ." : " I 2* keytable + dup @ .key tab ." -> "
13 key dup bl = IF drop dup @ THEN dup .key swap !
14 LOOP ;
15 -->
Screen 2 not modified
0 \ define action-names UH 11mai88
1 : :a ( addr -- adr' ) dup @ Alias 2+ ;
2 actiontable
3 :a up :a left :a down :a right
4 :a push-line :a push-char :a pull-line :a pull-char
5 :a fix-word :a screen# :a copy-line :a copy-char
6 :a backspace :a backspace :a backspace :a delete-char
7 ( :a insert-char ) :a delete-line :a insert-line
8 :a flipimode ( :a erase-line :a clear-to-right)
9 :a new-line :a +tab :a -tab
10 :a home :a to-end :a search :a undo
11 :a update-exit :a flushed-exit :a showload :a shadow-screen
12 :a next-Screen :a back-Screen :a alter-Screen :a mark-screen
13 drop
14
15 warning off install empty
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
Screen 7 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 8 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 9 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 10 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 11 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 12 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 13 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 14 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 15 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 16 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Screen 17 not modified
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15