CITIZEN CT-S300 - Manual (Page 53)

— 48 —
[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]