VolksForth/8086/msdos/primed.fb

\\ Simple Editor for Installation                    cas 10nov05                                                                If the Full-Screen Editor cannot be used during installation    (incompatible display hardware), the screens must be altered    with this Simple Editor "PRIMED", which contains only one word  definition::                                                                                                                    Usage: Select Screen nn with command "nn LIST",                   and edit a screen with "ll NEW". It is only possible to         rewrite whole lines. ll is the first line where the editing     should start. The editing can be terminated by entering an      empty line (just RETURN). Each RETURN will store the editied    line and the whole screen will be reprinted.                                                                                                                                                                                                                  \ primitivst Editor PRIMED                           cas 10nov05 Vocabulary Editor                                                                                                              | : !line ( adr count line# -- )                                      scr @ block  swap c/l * +  dup c/l bl fill                      swap cmove update ;                                                                                                       : new ( n -- )                                                     l/s 1+ swap                                                     ?DO cr  I .                                                        pad c/l expect   span @ 0= IF leave THEN                        pad  span @  I !line   cr  scr @ list  LOOP ;                                                                              ' scr | Alias scr'                                                                                                              .( Simple Editor loaded ) cr                                   \ PRIMED Demo-Screen                                 cas 10nov05                                                                                                                                                                                                This text was created by: "2 LIST  4 NEW" and then entering     this text                                                       The headerline (Line 0) was added later after leaving "NEW"     with an empty line (just RETURN) and a new editing command      "0 NEW".                                                                          Ulrich Hoffmann