I HAVE BEEN AWAY SO HERE GOES AGAIN.
In Qbasic I enter a statement that tells the application to set the width to 132 characters. This plus the MODE command allows me to put out a wide format. then to set up the output to print s wide format I send a ASCII string to the printer to turn the paper to landscape format so the file system won't limit it to 80 characters.
Example:
CLS
WIDTH "LPT1:", 132 ' PRINT ESCAPE SEQUENCE TO SET
' PRINTER INTO LANDSCAPE FORMAT
LPRINT CHR$(27); CHR$(38); CHR$(108); CHR$(49); CHR$(79);
In Qpascal I coded a similar process:
CONST
LANDSCAPE_MODE = CHR(27)+CHR(38)+CHR(108)+CHR(49)+CHR(79);
PORTRAIT_MODE = CHR(27)+CHR(38)+CHR(108)+CHR(48)+CHR(79);
|
|
ASSIGN(LSTOUT, 'C:\QP\INV_RPT.LST' );
or
ASSIGN(LSTOUT, '' );{use file redirect}
REWRITE(LSTOUT);
WRITE(LSTOUT, LANDSCAPE_MODE);
You can assign the output to a sequential file ur use the STDOUT redirection above.
I don't know if any of this will help you find a way through your programming problem but good luck.
I teach a lot of programming so I can learn. You can never learn it all.