
— 25 —
[Sample Program]
[Print Results]
←
8-dots single density
←
8-dots double density
←
24-dots single density
←
24-dots double density
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
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