mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-28 14:50:35 +00:00
1 line
13 KiB
Plaintext
1 line
13 KiB
Plaintext
|
\\ Printer Interface cas 11nov05 This File contains the Printer Interface definitions for M130i Printer. The definitions can be used to print Forth Sourcecode in a consice way 6 Screens per page. When using the Multitask-Extension it is possible to print and continue working with Forth. This Printerinterface is based on Ideas from D. Weineck and was portet to volksFORTH by U. Hoffmann and K.Schleisiek. \ Printer Interface M 130i cas 10nov05 Onlyforth Vocabulary Printer Printer definitions also Variable pcol pcol off Variable prow prow off Variable prints prints off 2 &10 thru cr .( Printer Interface for M130i loaded ) \ &11 load cr .( Spooler loaded ) : plist ( scr -- ) prints lock output push print 10cpi cr list cr 5 lf's prints unlock ; Onlyforth \ Printer controls ks 23 m<>r 88 | : ctrl: ( 8b --) Create c, Does> ( --) c@ lst! ; 07 ctrl: bell $7F | ctrl: ~bs $D | ctrl: ~cr $A ctrl: ~lf $C ctrl: ~ff $F | ctrl: (+17cpi $1B | ctrl: ESC $12 | ctrl: (-17cpi | : esc: ( 8b --) Create c, does> ( --) ESC c@ lst! ; | : ESC2 ( 8b0 8b1 --) #esc lst! lst! ; | : on: ( 8b --) Create c, does> ESC c@ lst! 1 lst! ; | : off: ( 8b --) Create c, does> ESC c@ lst! 0 lst! ; \ Printer Escapes ks 09 mai 88 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 Ascii M esc: 12cpi Ascii P | esc: (-12cpi : 10cpi (-12cpi (-17cpi ; : 17cpi (-12cpi (+17cpi ; ' 10cpi Alias pica ' 12cpi Alias elite
|