Citizen CBM1000 manual IMG1

[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

— 66 —