Citizen BD2-2220, Command Reference Manual

Page: 49 / 148

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