Citizen Systems CBM-270 User Manual

Page 53

background image

CBM-270 User’s Manual

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