CITIZEN CBM1000II User Manual

Page 61

Text mode
Original mode

— 59 —

[Sample Program]

[Print Results]

←

QUADRUPLE MODE

←

NORMAL MODE

←

DOUBLE WIDTH MODE

←

DOUBLE HEIGHT MODE

GOSUB IMG
LPRINT CHR$(&H1D) + “/” + CHR$(0);
LPRINT CHR$(&H1D) + “/” + CHR$(1);
LPRINT CHR$(&H1D) + “/” + CHR$(2);
LPRINT CHR$(&H1D) + “/” + CHR$(3);
END
IMG:
n1=10 : n2=5
LPRINT CHR$(&H1D) + “

”;

LPRINT CHR$(n1) + CHR$(n2);
FOR J=1 TO n1

FOR I=1 TO n2

LPRINT CHR$(J);

NEXT I

NEXT J
RETURN