Citizen CBM-202PC-04 User Manual page 53

[Example]
[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]
IMG1 :
LPRINT
FOR I=1 TO 18
LPRINT
NEXT I
LPRINT
RETURN
IMG2 ;
LPRINT
LPRINT
LPRINT
FOR I=1 TO 18
LPRINT
LPRINT
LPRINT
NEXT I
LPRINT
LPRINT
LPRINT
RETURN
53
CBM-202PC-04 User's Manual
CHR$ (&HFF) ;
CHR$ (&H85) ;
CHR$ (&HFF) ;
CHR$ (&HFF) ;
CHR$ (&HFF) ;
CHR$ (&HFF) ;
CHR$ (&H80) ;
CHR$ (&H00) ;
CHR$ (&H05) ;
CHR$ (&HFF) ;
CHR$ (&HFF) ;
CHR$ (&HFF) ;
CITIZEN