Download CBM CBM1000 Operating instructions

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