VolksForth/8080/AmstradCPC/EDITOR.SCR

\ Full-Screen Editor                                  UH 02Nov86                                                                Dieses File enthaelt den Full-Screen Editor fuer die CP/M -     volksFORTH-Version.                                                                                                             Er enthaelt Line- und Chararcter-Stacks, Find&Replace-Funktion  sowie Unterstuetzung des Shadow-Screen-Konzepts, der view-      Funktion und des sichtbaren Laden von Screens (showload).                                                                       Durch die integrierte Tastaturtabelle (keytable) laesst sich dieKommandobelegung der Tasten auf einfache Art und Weise aendern.                                                                 Anregungen, Kritik und Verbesserungsvorschlaege bitte an:                              U. Hoffmann                                                     Harmsstrasse 71                                                 2300 Kiel                                \ Load Screen for the Editor             UH 03Nov86   UH 27Nov87                                                                Onlyforth    cr                                                                                                                  1 $1E  +thru                                                                                                                   Onlyforth                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       \ String primitves                                       27Nov87                                                                : delete   ( buffer size count -- )                                over umin dup >r -  2dup  over r@ +  -rot cmove                 +  r> bl fill ;                                                                                                              : insert   ( string length buffer size -- )                        rot over umin dup >r -                                          over dup r@ +  rot cmove>   r> cmove  ;                                                                                      : replace   ( string length buffer size -- )  rot umin cmove ;                                                                                                                                                                                                                                                                                                                                  \ usefull definitions and Editor vocabulary           UH 27Nov87                                                                : blank ( addr len -- )   bl fill ;                                                                                             : ?enough ( n --)  depth 1- > abort" Not enough Parameters" ;                                                                   : ?abort( ( f -- )                                                  IF [compile] .(  true abort" !" THEN  [compile] ( ;                                                                         Vocabulary Editor                                                                                                               ' Forth  | Alias F: immediate                                   ' Editor | Alias E: immediate                                                                                                   Editor also definitions