BD2-2880/2890 User’s Manual
51
[Sample Program]
LPRINT CHR$ (&H1B) + "*”;
LPRINT CHR$ (0) + CHR$ (20) + CHR$ (0);
IMG1 :
GOSUB
IMG1
LPRINT
CHR$
(&HFF)
;
LPRINT CHR$ (&HA);
FOR I=1 TO 18
LPRINT CHR$ (&H1B) + "*”;
LPRINT CHR$ (&H85) ;
LPRINT CHR$ (1) + CHR$ (20) + CHR$ (0);
NEXT I
GOSUB
IMG1
LPRINT
CHR$
(&HFF)
;
LPRINT CHR$ (&HA);
RETURN
LPRINT CHR$ (&H1B) + "*”; IMG2
;
LPRINT CHR$ (32) + CHR$ (20) + CHR$ (0);
LPRINT CHR$ (&HFF) ;
GOSUB
IMG2
LPRINT
CHR$
(&HFF)
;
LPRINT CHR$ (&HA);
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&H1B) + "*”;
FOR I=1 TO 18
LPRINT CHR$ (33) + CHR$ (20) + CHR$ (0);
LPRINTCHR$ (&H80) ;
GOSUB
IMG2
LPRINTCHR$
(&H00)
;
LPRINT
CHR&
(&HA);
LPRINTCHR$
(&H05)
;
END
NEXT I
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HFF) ;
RETURN
[Print Results]