C O N F I D E N T I A L
Paper roll
Bit-image commands ESC
✻
Ver. 4.0
p. 1190
[Model-dependent variations]
Program Example for all printers
Print Sample
m=0: GOSUB bitimage8
←
8-dot single-density
m=1: GOSUB bitimage8
←
8-dot double-density
END
bitimage8:
PRINT #1, CHR$(&H1B);"
✻
";CHR$(m);CHR$(70);CHR$(0);
FOR i=1 TO 5
PRINT #1, CHR$(1);CHR$(2);CHR$(4);CHR$(8);
PRINT #1, CHR$(16);CHR$(32);CHR$(64);CHR$(128);
PRINT #1, CHR$(64);CHR$(32);CHR$(16);CHR$(8);
PRINT #1, CHR$(4);CHR$(2);
NEXT i
PRINT #1, CHR$(&HA);
RETURN
m=0
m=1