VolksForth/sources/cpm/primed.fth

52 lines
3.1 KiB
Forth
Raw Normal View History

\ *** Block No. 0 Hexblock 0
\\ Primitivst Editor zur Installation UH 17Nov86
Da zur Installationszeit der Full-Screen Editor noch nicht
funtionsfaehig ist, muessen die zu aendernden Screens auf eine
andere Weise ge{nder werden: mit dem primitivst Editor PRIMED,
der nur ein Benutzer wort enthaelt:
Benutzung: Mit "nn LIST" Screen nn zum editieren Anwaehlen,
dann mit "ll NEW" den Screen aendern. Es koennen immer nur
ganze Zeilen neu geschrieben werden. ll gibt an, ab welcher
Zeilennummer neue Zeilen eingeben werden sollen. Die Eingabe
einer leeren Zeile (nur RETURN) bewirkt den Abruch von NEW.
Nach jeder Eingabe von RETURN wird die eingegebene Zeile in
den Screen uebernommen, und der ganze Screen zur Kontrolle
nocheinmal ausgegeben.
\ *** Block No. 1 Hexblock 1
\ primitivst Editor PRIMED UH 17Nov86
| : !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 ;
\ *** Block No. 2 Hexblock 2
\ PRIMED Demo-Screen
Dieser Text entstand durch: "2 LIST 4 NEW" mit anschliessender
Eingabe dieses Textes
Die Kopfzeile (Zeile 0) wurde spaeter durch Verlassen von new
durch Eingabe einer leeren Zeile (nur RETURN) und Neustart mit
"0 NEW" erzeugt.
Ulrich Hoffmann