Citizen CBM1000 Bedienungsanleitung Seite 113

[Sample Program]
[Print Results]
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 8
FOR I=1 TO n2
LPRINT CHR$(J);
NEXT I
NEXT J
RETURN
← NORMAL MODE
← DOUBLE HEIGHT MODE
— 95 —
*
";
← DOUBLE WIDTH MODE
← QUADRUPLE MODE