[Sample Program]

PRINT #1, CHR$(&H1B) + “ * ”;

 

PRINT #1, CHR$(0) + CHR$(20) + CHR$(0);

IMG1:

GOSUB IMG1

PRINT #1, CHR$(&HFF);

PRINT #1, CHR$(&HA);

FOR I=1 TO 18

PRINT #1, CHR$(&H1B + “ * ”;

PRINT #1, CHR$(&H85);

PRINT #1, CHR$(1) + CHR$(20) + CHR$(0);

NEXT I

GOSUB IMG1

PRINT #1, CHR$(&HFF);

PRINT #1, CHR$(&HA);

RETURN

PRINT #1, CHR$(&H1B) + “ * ”;

IMG2:

PRINT #1, CHR$(32) + CHR$(20) + CHR$(0);

PRINT #1, CHR$(&HFF);

GOSUB IMG2

PRINT #1, CHR$(&HFF);

PRINT #1, CHR$(&HA);

PRINT #1, CHR$(&HFF);

PRINT #1, CHR$(&H1B) + “ * ”;

FOR I=1 TO 18

PRINT #1, CHR$(33) + CHR$(20) + CHR$(0);

PRINT #1, CHR$(&H80);

GOSUB IMG2

PRINT #1, CHR$(&H00);

PRINT #1, CHR$(&HA);

PRINT #1, CHR$(&H05);

END

NEXT I

 

PRINT #1, CHR$(&HFF);

 

PRINT #1, CHR$(&HFF);

 

PRINT #1, CHR$(&HFF);

 

RETURN

[Print Results]

← 8-dot single density ← 8-dot double density

← 24-dot single density

← 24-dot double density

Ñ 15 Ñ

Page 17
Image 17
Citizen Systems Model CMP-10 manual IMG1