Filter
Top Products
CONFIDENTIAL
RP-U420 Bit-image commands ESC
✻
Ver. 1.0
p. 40
Program Example Print Sample
m=16: GOSUB bitimage9 ← 9-dot single-density
m=17: GOSUB bitimage9 ← 9-dot double-density
END
bitimage9:
PRINT #1, CHR$(&H1B);"[";CHR$(m);CHR$(70);CHR$(0);
FOR i=1 TO 5
PRINT #1, CHR$(0);CHR$(128);CHR$(1);CHR$(0);CHR$(2);CHR$(0);CHR$(4);CHR$(0);
PRINT #1, CHR$(8);CHR$(0);CHR$(16);CHR$(0);CHR$(32);CHR$(0);CHR$(64);CHR$(0);
PRINT #1, CHR$(128);CHR$(0);CHR$(64);CHR$(0);CHR$(32);CHR$(0);CHR$(16);CHR$(0);
PRINT #1, CHR$(8);CHR$(0);CHR$(4);CHR$(0);CHR$(2);CHR$(0);CHR$(1);CHR$(0);
NEXT i
PRINT #1, CHR$(&HA);
RETURN
d5d3d1 d11d9d7 d17.......d15d13
LSB
MSB
LSB
MSB
d6d4d2 d12d10d8 d18.......d16d14
m=16
m=17