Citizen BD2-1220 Command Reference Manual page 27

[Sample Program]
LPRINT CHR$(&H1B) + "
LPRINT CHR$(0) + CHR$(20) + CHR$(0);
GOSUB IMG1
LPRINT CHR$(&HA);
LPRINT CHR$(&H1B + "
LPRINT CHR$(1) + CHR$(20) + CHR$(0);
GOSUB IMG1
LPRINT CHR$(&HA);
LPRINT CHR$(&H1B) + "
LPRINT CHR$(32) + CHR$(20) + CHR$(0);
GOSUB IMG2
LPRINT CHR$(&HA);
LPRINT CHR$(&H1B) + "
LPRINT CHR$(33) + CHR$(20) + CHR$(0);
GOSUB IMG2
LPRINT CHR$(&HA);
END
[Print Results]
*
";
*
";
*
";
*
";
8-dots single density
8-dots double density
24-dots single density
24-dots double density
— 25 —
IMG1:
LPRINT CHR$(&HFF);
FOR I=1 TO 18
LPRINT CHR$(&H85);
NEXT I
LPRINT CHR$(&HFF);
RETURN
IMG2:
LPRINT CHR$(&HFF);
LPRINT CHR$(&HFF);
LPRINT CHR$(&HFF);
FOR I=1 TO 18
LPRINT CHR$(&H80);
LPRINT CHR$(&H00);
LPRINT CHR$(&H05);
NEXT I
LPRINT CHR$(&HFF);
LPRINT CHR$(&HFF);
LPRINT CHR$(&HFF);
RETURN