56
20 LPRINT CHR$(27);"b";CHR$(l);CHR$(lO);CHR$(20);
ems (0) ;
30 LPRINT CHR$(27);"b";CHR$(2);CHR$(15);CHR$(25);
CHR$ (0) ;
40 LPRINT CHR$(27);"b";CHR$(3);CHR$(17);CHR$(28);
CHR$ (0) ;
50 ' Use vertical tab channels
60 FOR I=1 TO 3
70 LPRINT "TOP OF FORM"
80 LPRINT CHRS(27) ;"/";CHR$(I);
90 LPRINT CHR$(ll);
100 LPRINT "1ST TAB OF CHANNEL";I
110 LPRINT CHR$(ll);
120 LPRINT "2ND TAB OF CHANNEL";1
130 LPRINT CHR$(12);
140 NEXT I
150 LPRINT CHR$(27);"@"
160 END
When you run this program the printout should look like this.
iST TAB OF CHANNEL 1
ZND TAB OF CHANNEL 1
LST TAB OF CHANNEL 2
ZND TAB OF C!-lANNEL 2
iST TAB OF CHANNEL 9
ZND T&B OF CHANNEL 3