VolksForth/sources/cpm/INSTALL.FB.src

86 lines
5.4 KiB
Plaintext
Raw Normal View History

2020-06-20 16:59:14 +00:00
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