Citizen PPU-231 manual Example Sample Program

PPU-231 User’s Manual

[Example]

[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) + "∗" ;	LPRINT CHR$ (&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) ;	LPRINT CHR$ (&HFF) ;
GOSUB IMG2	LPRINT	CHR$ (&HFF) ;
LPRINT CHR$ (&HA) ;	LPRINT	CHR$ (&HFF) ;
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
	LPRINT	CHR$ (&HFF) ;
	LPRINT	CHR$ (&HFF) ;
	LPRINT	CHR$ (&HFF) ;
	RETURN

[Print Results]

48 CITIZEN