94
9. Bar code and enlarged character
This page shows examples of a BASIC program for printing enlarged
characters and the printed enlarged characters (actual size).
100 OPEN "LPT1:"AS #1
110 DC4$=CHR$(&H14)
120 '
130 PRINT #1, DC4$;DC4$;"@";
' Initializing
140 PRINT #1,DC4$;DC4$;"c";CHR$(8); ' Expansion of cell: x8
150 PRINT #1,DC4$;DC4$;"f";CHR$(4);
' Font typeface: SCRIPT
160 PRINT #1,DC4$;DC4$;"p";CHR$(1);
' Character pitch: 12 CPI
170 PRINT #1,DC4$;DC4$;"l";CHR$(1);
' Expansion mode on
180 '
190 PRINT #1,"8";
' Default size print
200 PRINT #1,DC4$;DC4$;"h";CHR$(2); ' Vertical expansion: x2
210 PRINT #1,DC4$;DC4$;"w";CHR$(2); ' Horizontal expansion: x2
220 PRINT #1,DC4$;DC4$;"a";CHR$(3);
' Alignment: ascender
230 PRINT #1,"ASCE";
240 PRINT #1,DC4$;DC4$;"a";CHR$(2); ' Alignment: center
250 PRINT #1,"CENT";
260 PRINT #1,DC4$;DC4$;"a";CHR$(1);
' Alignment: descender
270 PRINT #1,"DESC";
280 PRINT #1,DC4$;DC4$;"a";CHR$(0); ' Alignment: baseline
290 PRINT #1,"BASE";
300 '
310 PRINT #1,DC4$;DC4$;"w";CHR$(8); ' Horizontal expansion: x8
320 PRINT #1,"H";
330 PRINT #1,DC4$;DC4$;"w";CHR$(1); ' Horizontal expansion: x1
340 FOR N=1 TO 8
350 PRINT #1,DC4$;DC4$;"h";CHR$(N); ' Vertical expansion: xn
360 PRINT #1,RIGHT$;(STR$(N),1); '
370 NEXT N
380 PRINT #1,DC4$;DC4$;"w";CHR$(8); ' Horizontal expansion: x8
390 PRINT #1,DC4$;DC4$;"r";CHR$(1);
' Rotate: 90 degree
400 PRINT #1, "R" ;
410 PRINT #1,CHR$;(13);CHR$(10); ' CR+LF
420 '
430 PRINT #1,DC4$;DC4$;"l";CHR$(0);
' Expansion mode off
440 CLOSE #1
450 END
Enlarged character print samples