78
Table 5-10
Vertical tab channel commands
Function Control code
Set vertical tabs at nl, n2, etc.
< ESC > “b” CHR$(nO)CHR$(nl)
as channel nO CHR$(n2).....CHR$(O)
Select vertical channel nO <ESC> “/” CHR$(nO)
You can store up to eight channels of tab stops. They are
numbered from 0 to 7. If you have already stored a set using
< ESC > “B” command, your printer has labelled it as channel
0. Try this program how to see the vertical tab channels work.
10 ’ Demo of vertical tab channels
20 LPRINT CHR$(27);“b”;CHR$(l~;CHR5~lO);CHR5~2O);
CHR$(O);
30 LPRINT CHR5(27);“b”;CHR$(2);CHR5~15);CHR$(25);
CHR$(O);
40 LPRINT CHR5(27) ;“b”;CHR5(3) ;CHR$(
17) ;CHR5(28) ;
CHR$(O);
50 ’ Use vertical tab channels
60 FOR I=1 TO 3
70 LPR INT “TOP OF FORM”
80 LPRINT CHR$(27) ;“/“;CHR$(I);
90 LPRINT CHR$(ll);
100 LPRINT “1ST TAB OF CHANNEL”; I
110 LPRINT CHR$(ll);
120 LPRIN’T “2ND TAB OF CHANNEL”; I
130 LPRINT CHR5(12);
140 NEXT I
150 LPRINT CHR5 (27) ; “@”
160 END
In this program we set tabs at 10 and 20 in channel 1 in line
20. In line 30 we set tabs 15 and 25 in channel 2, and in line
40 we set tabs 17 and 28 in channel 3.
Because the channels are stored, you must make the printer
to recall one before you use it, so we used < ESC > “/”
CHR$(nO) in line 80.
When you run this program the printout should look like
this.