KB#00453-_outdev.utl doesn't print compressed
Title:
_outdev.utl doesn't print compressed
Description:
When calling the _outdev.utl, choosing a printer, and selecting compressed print, the resultant printout is not in compressed print. However, opening up the printer in BBx and issuing the 'CP' mnemonic works.
Resolution:
The utility should have a section of code that is similar to (hopefully even at the same line numbers):
1160 LET PRINT_FIN$=FIN(CHANNEL),OUT_COLS=ASC(PRINT_FIN$(7,1))
1170 IF TAOS_RUNTIME=0 THEN LET DUMMY$=STBL("STDOUT",DEVICE$)
1180 IF TAOS_RUNTIME THEN CLOSE (CHANNEL); IF STYLE THEN LET OUT_COLS=STYLE
1190 RETURN
Change line 1160 to:
1160 IF STYLE<>1 THEN PRINT (CHANNEL)'CP' FI;LET PRINT_FIN$=FIN(CHANNEL), OUT_COLS=ASC(PRINT_FIN$(7,1))
Note:
To put the IF statement on a different line from the LET statement, the IF statement must be put at line 1160. There is a GOTO up above in the program that references this line number (we converted a line label to an explicit line number).
ALSO Note:
TAOS will need this information passed back to it, the following code demonstrates how this can be done:
CALL "_OUTDEV.UTL",DEV$,SYLE
IF STYLE=2 THEN
SET DISPLAY/COMPRESSED
Last Modified: 02/23/2004 Product: TAOS: The Developers Workbench Operating System:All platforms
BASIS structures five components of their technology into the BBx Generations.