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