CITIZEN PPU-231 - Manual (Page 61)

PPU-231 User’s Manual
48 CITIZEN
[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]