— 63 —
[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