mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +00:00
86 lines
5.4 KiB
Plaintext
86 lines
5.4 KiB
Plaintext
Screen 0 not modified
|
|
0 \\ Install Editor
|
|
1
|
|
2 Dieses File enthaelt einen Installer fuer den Editor.
|
|
3
|
|
4 Es werden nacheinander die Tasten erfragt, die einen bestimmten
|
|
5 Befehl ausloesen sollen.
|
|
6
|
|
7 Damit ist es moeglich, die Tastatur an die individuellen
|
|
8 Beduerfnisse anzupassen.
|
|
9
|
|
10
|
|
11
|
|
12
|
|
13
|
|
14
|
|
15
|
|
Screen 1 not modified
|
|
0 \ install Editor UH 17Nov86
|
|
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 ." Entsprechende Tasten druecken. (Blank uebernimmt.)"
|
|
11 #keys 0 ?DO cr I 2* actiontable + @ >name .name
|
|
12 tab ." : " I keytable + dup c@ .key tab ." -> "
|
|
13 key dup bl = IF drop dup c@ THEN dup .key swap c!
|
|
14 LOOP ;
|
|
15 -->
|
|
Screen 2 not modified
|
|
0 \ define action-names UH 29Nov86
|
|
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 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 UH 17Nov86
|
|
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
|