[Sample Program]

 

LPRINT CHR$(&H1B) + “*”;

IMG1:

LPRINT CHR$(0) + CHR$(20) + CHR$(0);

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

— 25 —

Page 27
Image 27
Citizen Systems PPU-231II manual IMG1