Tandy 1000 MS-DOS Reference Manual page 140

Chapter 6 / Command Reference
To send escape code sequences in formatting your printed page,
refer to this BASIC example.
10 LPRINT CHR$(&H1B);CHR$(&H99); 'PRINT
ESC,99,<HEADER TEXT>,0
20 LET HEAD$="*** THIS IS THE HEADER
***"+CHR$(&HD)+CHR$(&HA)+"SECoND LINE"
30 LPRINT HEAD$;CHR$(&HD);CHR$(&HA);
40 LPR I NT "ON TH I S 3RD LI NE OF THE HEADER, DATE:
D+=; TIME: T+=; PAGE: P+=";
50 LPRINT CHR$(&HD);CHR$(&HA);
60 LPRINT CHR$(0);
70 LPRINT CHR$(&H1B);CHR$(&H9A); 'PRINT
ESC,9A,<FooTER TEXT>,0
80 LET FooT$="*** THIS IS THE FOOTER
***"+CHR$(&HD)+CHR$(&HA)+"LINE 2"
90 LPRINT FooT$;CHR$(&HD);CHR$(&HA);
100 LPRINT CHR$(0);
110 LPRINT CHR$(&H1B);CHR$(&H9B); 'PRINT ESC,9B,0
OR 1
120 LPRINT CHR$(1); 'TURN ON AUTOMATIC PAGE
NUMBERING.
130 LPRINT CHR$(&H1B);CHR$(&H43); 'PRINT ESC,
'C',<# LINES PER PAGE>
140 LPRINT CHR$(66); '(66 LINES/PAGE
IN THIS EXAMPLE).
150 LPRINT CHR$(&H1B);CHR$(&H4E); 'PRINT ESC,
'N',<# LINES TO SKIP PERF
160 LPRINT CHR$(2); '(SKIP ON, SKIP
2 LINES IN THIS EXAMPLE).
170 LPRINT CHR$(&H1B);CHR$(&H9C); 'PRINT ESC,9C,<0
OR 1> TO SET END-oF-LINE
180 LPRINT CHR$(O); 'CHARACTER
(CARRIAGE RET, IN THIS EXAMPLE).
190 PRINT" "
200 PRINT "OK ... NoW WHEN YOU RETURN TO DOS, SET
YOUR PRINTER TO TOP OF FORM, AND ISSUE"
210 PRINT "THE 'LPSETUP' COMMAND AGAIN TO INSURE
LINE AND PAGE COUNTS ARE RESET!"
220 PRINT " ... AFTER THAT, YOU MAY BEGIN PRINTING."
230 PRINT "PRESS <ENTER> WHEN YOU ARE FINISHED
READING THIS MESSAGE."
240 LINE INPUT" ";A$
250 SYSTEM
126
, J
~
I
I
LJ
I •
:
~
l---i
i
i
LJ
, I
I I
l.-!
I •
U
,
)
~
, I
U
, I
U
, I
L-J
, i
,
.
--..J
, I
U
, I
!
''''''''';
, !
~
j