BD2-2880/2890 User’s Manual
53
GOSUB IMG
LPRINT CHR$ (&H1D) + "/" + CHR$ (0);
LPRINT CHR$ (&H1D) + "/" + CHR$ (1);
LPRINT CHR$ (&H1D) + "/" + CHR$ (2);
LPRINT CHR$ (&H1D) + "/" + CHR$ (3);
END
IMG:
n 1 = 10 : n 2= 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
Nomal Mode
Double Width Mode
Double Height Mode
Quadruple Mode
[Sample Program]
[Print Results]