VolksForth/8080/AmstradCPC/XINOUT.SCR

\ Erweiterte I/O-Funktionen 3.80a                     UH 08Oct87                                                                Dieses File enthaelt Definitionen, die eine erweiterte Bild-    schirmdarstellung ermoeglichen:                                                                                                        -  Installation eines Terminals mit Hilfe des Wortes               "Terminal:"                                                                                                                  -  Editieren von Eingabezeilen                                                                                           In der Version 3.80a sind diese Teile aus dem Kern genommen     worden, um diesen einfacher zu gestalten.                                                                                                                                                                                                                                                                                       \ Erweiterte I/O-Funktionen 3.80a  LOAD-Screen        UH 20Nov87                                                                                                                                1 3 +thru  \ Erweiterte Ausgabe                                                                                                 4 6 +thru  \ Erweiterte Eingabe                                                                                                                                                                 ' curon Is postlude                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             \ Erweiterte Ausgabe: Terminal-Defintionen            UH 08OCt87| Variable terminal                                                                                                             : Term: ( off -- off' )   Create  dup c, 2+                          Does>  c@  terminal @ +  perform ;                                                                                         : Terminal:   Create: Does> terminal ! ;                                                                                        0  Term: curon     Term: curoff                                    Term: rvson     Term: rvsoff                                    Term: dark      Term: locate    drop                                                                                         : curleft ( -- )  at? 1- at ;                                   : currite ( -- )  at? 1+ at ;                                                                                                   Terminal: dumb    noop noop noop noop noop 2drop ;      dumb    \ Erweiterte Ausgabe:  Schneider 25 Zeilen            UH 06Mar88                                                                &80 Constant c/row              &25 Constant c/col                                                                              | Create 'at 0 , here 0 ,  | Constant 'row   ' 'at | Alias 'col                                                                 : (at ( row col -- )   c/row 1- min swap c/col 1- min swap          2dup 'at 2! locate ;                                        : (at? ( -- row col )  'at 2@ ;                                                                                                 : (page ( -- )   0 0 'at 2!  dark ;                                                                                             : (type ( addr len -- )  dup 'col +!                                0 ?DO count (emit LOOP drop ;                                                                                               : (emit ( c -- )   1 'col +! (emit ;