Citizen CBM-270 Bedienungsanleitung Seite 54

[Sample Program]
LPRINT CHR$ (&H1B) ; "*" ;
LPRINT CHR$ (0) ; CHR$ (20) ; CHR$ (0) ;
GOSUB *IMG1
LPRINT CHR$ (&HA) ;
LPRINT CHR$ (&H1B) ; "*" ;
LPRINT CHR$ (1) ; CHR$ (20) ; CHR$ (0) ;
GOSUB *IMG1
LPRINT CHR$ (&HA) ;
LPRINT CHR$ (&H1B) ; "*" ;
LPRINT CHR$ (32) ; CHR$ (20) ; CHR$ (0) ;
GOSUB *IMG2
LPRINT CHR$ (&HA) ;
LPRINT CHR$ (&H1B) ; "*" ;
LPRINT CHR$ (33) ; CHR$ (20) ; CHR$ (0) ;
GOSUB *IMG2
LPRINT CHR$ (&HA) ;
END
[Print Results]
8-dots single density
8-dots double density
24-dots single density
24-dots double density
39
CBM-270 User's Manual
*IMG1:
LPRINT CHR$ (&HFF) ;
FOR I=1 TO 18
LPRINTCHR$ (&H85) ;
NEXT I
LPRINT CHR$ (&HFF) ;
RETURN
*IMG2 :
FOR I=1 TO 3
LPRINT CHR$ (&HFF) ;
NEXT I
FOR I=1 TO 18
LPRINTCHR$ (&H80) ;
LPRINTCHR$ (&H00) ;
LPRINTCHR$ (&H05) ;
NEXT I
FOR I=1 TO 3
LPRINT CHR$ (&HFF) ;
NEXT I
RETURN
CITIZEN