CITIZEN CBM-270 - Manual (Page 55)

CBM-270 User’s Manual
CITIZEN 55
[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) ; "*" ; LPRINTCHR$ (&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) ; FOR I=1 TO 3
GOSUB *IMG2 LPRINT CHR$ (&HFF) ;
LPRINT CHR$ (&HA) ; NEXT I
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
FOR I=1 TO 3
LPRINT CHR$ (&HFF) ;
NEXT I
RETURN
[Print Results]
8-dots single density
8-dots double density
24-dots single density
24-dots double density