VolksForth/8080/AmstradCPC/PRINTER.SCR

\\ Printer Interface                                     08Nov86                                                                Dieses File enthaelt das Printer Interface zwischen volksFORTH  und dem Drucker.                                                                                                                Damit ist es moeglich Source-Texte auf bequeme Art und Weise    in uebersichtlicher Form auszudrucken (6 auf eine Seite).                                                                       In Verbindung mit dem Multitasker ist es moeglich, auch Texte imHintergrund drucken zu lassen und trotztdem weiterzuarbeiten.                                                                                                                                                                                                                                                                                                                                                                                                   \ Printer Interface Epson RX80                           18Aug86\ angepasst auf M 130i                                 07dec85we                                                                Onlyforth                                                                                                                       Variable shadow         capacity 2/ shadow !   \ s. Editor                                                                      Vocabulary Printer   Printer definitions also                   | Variable printsem   printsem off                                                                                                   01 +load  04 0C +thru        \ M 130i - Printer            \ 01 03 +thru  06 0C +thru        \ Fujitsu - Printer                                                                           Onlyforth                                                                                                                                                                                       \ Printer  p! and controls                            UH 02Nov87                                                                | : ready? ( -- f ) [ Dos ]  0 &15 biosa 0= not ;                                                                               : p!  ( n --)   BEGIN  pause                                       stop? IF printsem unlock true abort" stopped! " THEN            ready?  UNTIL  [ Dos ]  5 bios ;                                                                                             | : ctrl:  ( 8b --)   Create c,   Does>  ( --)   c@ p! ;                                                                        07   ctrl: BEL       7F | ctrl: DEL        0D | ctrl: RET       1B | ctrl: ESC       0A   ctrl: LF         0C   ctrl: FF        0F | ctrl: (+17cpi   12 | ctrl: (-17cpi                                                                                                                                                                                                                         \ Printer Escapes                                        24dec85                                                                | : esc:  ( 8b --)   Create c,   does>  ( --)   ESC c@ p! ;                                                                     Ascii 0   esc: 1/8"       Ascii 1   esc: 1/10"                  Ascii 2   esc: 1/6"       Ascii T   esc: suoff                  Ascii N   esc: +jump      Ascii O   esc: -jump                  Ascii G   esc: +dark      Ascii H   esc: -dark                  \ Ascii 4   esc: +cursive   Ascii 5   esc: -cursive                                                                                                                                             | : ESC2  ( 8b0 8b1 --)   ESC p! p! ;                                                                                           | : on:  ( 8b --)  Create c,  does>  ( --)  ESC c@ p!  1 p! ;   | : off: ( 8b --)  Create c,  does>  ( --)  ESC c@ p!  0 p! ;