VolksForth/AtariST/PRINTER.FB

\\                 *** Printer-Interface ***           10oct86we                                                                Dieses File enth<74>lt das Printer-Interface. Die Definitionen f<>r die Druckersteuerung m<>ssen ggf. an Ihren Drucker angepa<70>t wer- den.                                                                                                                            PRINT  lenkt alle Ausgabeworte auf den Drucker um, mit  DISPLAY wird wieder auf dem Bildschirm ausgegeben.                                                                                      Zum Ausdrucken der Quelltexte gibt es die Worte                                                                                    pthru      ( from to -- )   druckt Screen from bis to           document   ( from to -- )  wie pthru, aber mit Shadow-Screens   printall   ( -- )   wie pthru, aber druckt das ganze File       listing    ( -- )   wie document, aber f<>r das ganze File                                                                    \ Printer Interface Epson RX80\FX80                    21oct86we                                                                Onlyforth                                                                                                                       \needs file?            ' noop  | Alias file?                   \needs capacity         ' blk/drv Alias capacity                                                                                Vocabulary Printer   Printer definitions also                                                                                    1 &13 +thru                                                                                                                    Onlyforth  \ clear                                                                                                                                                                                                                                                                                                              \ Printer  p! and controls                             18nov86we                                                                ' bcostat | Alias ready?   ' 0 | Alias printer                                                                                  : p!  ( n -- )                                                     BEGIN  pause  printer ready?  UNTIL  printer bconout ;                                                                                                                                       | : 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                                                                                                                                                                                                                                                                       \ Printer controls                                     09sep86re                                                                | : esc:  ( 8b -- )   Create c,   does>  ( -- )   ESC c@ p! ;                                                                   | : 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! ;