[Sample Program]
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
[Print Results]
← NORMAL MODE
← DOUBLE WIDTH MODE
← DOUBLE HEIGHT MODE
← QUADRUPLE MODE
— 57 —
