BOSS@TAMVXOCN.BITNET.UUCP (02/03/87)
$! $!I ADDED FILES TO THE DEVICE CONTROL LIB FOR THE LN03 AND THEN LET THE USERS $!KNOW THRU A BULLETIN. $!**************************************************************************** $! SYSTEM DEVICE CONTROL LIBRARY SYS$LIBRARY:SYSDEVCTL.TLB $! BUILT USING LIBRARY COMMAND $! FILES WITH THE ESCAPE SEQUENCES FOR THE LASER WERE INSERTED INTO $! THE LIBRARY $! $! Directory of TEXT library SYS$SYSROOT:[SYSLIB]SYSDEVCTL.TLB;1 $! ONE $! TWO $! THR $! FOR $! FIV $! SIX $! SEV $! ATE $! RESET $! $! FILE RESET.TXT HAS FOLLOWNG LINES: $! <FF> $! <ESC>c $! FILE TWO.TXT HAS FOLLOWING LINES: $! <ESC>[15m $! <ESC>[1 J $! <ESC>[8;62r $! <ESC>[10;132s $! FILE ATE.TXT HAS FOLLOWING LINES: $! <ESC>[1 J $! <ESC>[16m $! <ESC>[5;47r $! <ESC>[7;99s $! AND SO ON. SEE THE PROGRAMMER REFERENCE MANUAL FOR THE LN03 $! $!THE FOLLOWING LINES ARE IN SYSTARTUP ALONG WITH THE COMMANDS TO $!SET UP THE LASER PRINT QUE $! $!FORMS CONTROL DATA STRUCTURES $! $define/form/setup=(one)/notrun/stock=default/length=82 one 11 $define/form/setup=(two)/notrun/stock=default/length=60 two 12 $define/form/setup=(thr)/notrun/stock=default/length=64 thr 13 $define/form/setup=(for)/notrun/stock=default/length=48 for 14 $define/form/setup=(fiv)/notrun/stock=default/length=64 fiv 15 $define/form/setup=(six)/notrun/stock=default/length=47 six 16 $define/form/setup=(sev)/notrun/stock=default/length=63 sev 17 $define/form/setup=(ate)/notrun/stock=default/length=48 ate 18 $! $! THE LASER QUE IS SET UP WITH THE SEPERATE=RESET QUALIFIER TO RESET $! THE QUE BACK TO THE DEFAULT CONDITION $! $! $init/que/start/def=(flag=one)/form=txc0/record_blocking - $! /seperate=(reset=(reset)) txc0: $! $! THE RESET SEQUENCE IS IN THE DEVICE CONTROL LIB IN MODULE RESET. $! THE DEFAULT FORM... $! $define/form/width=80/nowrap/trun/margin=(bottom=0)/stock=default txc0 3 $! $!========================================================================= $!THE BULLETIN LOOKS LIKE THIS: $!EXTRA LASER FORMATS $!------------------- $! Escape sequences have been added to the device control table to $! allow differenet fonts to be loaded to the LN03 Laser Printer. Choose $! a form name from the table below and then use the following command: $! $! $PRINT/QUE=TXC0/FORM=form_name file_ you_ wish_ printed $! For example, to print file ocean.dat using font six the command would be: $! $PRINT/QUE=TXC0/FORM=SIX OCEAN.DAT $! $!FORM NAME FONT FORMAT LINES/PG COLUMNS/LINE $!-------------------------------------------------------------------------- $! ONE COURIER (6.7 pt, 13.6 pitch) PORTRAIT 76 91 $! TWO COURIER " LANDSCAPE 54 123 $! THR COURIER (10 pt, 10 pitch) PORTRAIT 58 65 $! FOR COURIER " LANDSCAPE 42 91 $! FIV ELITE (10 pt, 12 pitch) PORTRAIT 58 78 $! SIX ELITE " LANDSCAPE 41 108 $! SEV COURIER (10 pt., 10.3 pitch) PORTRAIT 57 68 $! ATE COURIER " LANDSCAPE 42 93 $!--------------------------------------------------------------------------- $!APPROXIMATE ONE INCH MARGINS ALL AROUND PAT SETSER DEPT OF OCEANOGRAPHY TEX A&M