mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-23 12:34:53 +00:00
1 line
30 KiB
Plaintext
1 line
30 KiB
Plaintext
|
\\ *** 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! ;
|