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.