VolksForth/AtariST/EDITOR.FB

\\                   *** Screen-Editor ***             10aug86we                                                                Dieses File enth<74>lt den volksFORTH - Editor.                    Er basiert auf dem Editor im F83 von Laxen/Perry, besitzt aber  erheblich erweiterte Funktionen (Zeichen- und Zeilenstack) und  ist ein vollst<73>ndig in GEM integrierter Fullscreen-Editor.                                                                      Obwohl die Steuerung mit Maus und Menuzeile erfolgt, k<>nnen     ihn die 'Profis' auch vollst<73>ndig <20>ber Controltasten bedienen,                                                                  Die Dauerhilfe-Funktion macht eine Funktionsbeschreibung <20>ber-  fl<66>ssig. Solange im HILFE-Menu Dauerhilfe gew<65>hlt ist, erscheintvor der Ausf<73>hrumg jeder Editor-Funktion ein erl<72>uternder Text  mit der M<>glichkeit zum Abbruch. Dies gilt jedoch nicht, wenn   die Funktion per Tastendruck aufgerufen wurde.                                                                                  \ Load Screen for the Editor                         cas20130105                                                                Onlyforth  GEM also                                             include ediicon.fb                                                                                                              | Variable (dx  2 (dx !           | Variable (dy    4 (dy !     | : dx     (dx @ ;                | : dy     (dy @ ;                                                                            \needs -text         .( strings needed !!)    abort             \needs file?         .( Filesystem needed !!) abort             include gem\supergem.fb                                         include gem\gemdefs.fb                                          include edwindow.fb                                                                                                             Forth definitions                                                1 $2C  +thru                                                   \ Editor Variable                                      10sep86we                                                                Variable 'scr  1 'scr !         Variable 'r#  'r# off           Variable 'edifile                                                                                                               ?head @      1 ?head !                                                                                                          Variable changed                Variable edistate               Variable edifile                                                Variable ycur                                                                                                                                                                                                                                                                                                                                                                                                                                                   \ Edi move cursor with position-checking or cyclic     30aug86we                                                                : c  ( n -- )   \ checks the cursor position                        r# @ +  dup 0 b/blk uwithin 0= abort" Border!"  r# ! ;                                                                      \  : c  ( n -- )   \ moves cyclic thru the screen               \   r# @ +  b/blk mod  r# ! ;