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