[Sample Program]
PRINT #1, CHR$(&H1B) + " * ";
PRINT #1, CHR$(0) + CHR$(20) + CHR$(0);
GOSUB IMG1
PRINT #1, CHR$(&HA);
PRINT #1, CHR$(&H1B + " * ";
PRINT #1, CHR$(1) + CHR$(20) + CHR$(0);
GOSUB IMG1
PRINT #1, CHR$(&HA);
PRINT #1, CHR$(&H1B) + " * ";
PRINT #1, CHR$(32) + CHR$(20) + CHR$(0);
GOSUB IMG2
PRINT #1, CHR$(&HA);
PRINT #1, CHR$(&H1B) + " * ";
PRINT #1, CHR$(33) + CHR$(20) + CHR$(0);
GOSUB IMG2
PRINT #1, CHR$(&HA);
END
[Print Results]
←
8-dot single density
8-dot double density
←
←
24-dot single density
←
24-dot double density
— 15 —
IMG1:
PRINT #1, CHR$(&HFF);
FOR I=1 TO 18
PRINT #1, CHR$(&H85);
NEXT I
PRINT #1, CHR$(&HFF);
RETURN
IMG2:
PRINT #1, CHR$(&HFF);
PRINT #1, CHR$(&HFF);
PRINT #1, CHR$(&HFF);
FOR I=1 TO 18
PRINT #1, CHR$(&H80);
PRINT #1, CHR$(&H00);
PRINT #1, CHR$(&H05);
NEXT I
PRINT #1, CHR$(&HFF);
PRINT #1, CHR$(&HFF);
PRINT #1, CHR$(&HFF);
RETURN