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
IS
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
To Next Page
Loading...
Need help?
General
