Citizen CT-S2000 - Page 50

- 48 -
[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