Citizen PPU-231 manual Sample Program Print Results

PPU-231 User’s Manual

[Sample Program] [Print Results]

GOSUB IMG

LPRINT CHR$ (&H1D) + "/" + CHR$ (0) ;

LPRINT CHR$ (&H1D) + "/" + CHR$ (1) ;

LPRINT CHR$ (&H1D) + "/" + CHR$ (2) ;

LPRINT CHR$ (&H1D) + "/" + CHR$ (3) ;

END

IMG :

n 1 = 10 : n 2= 5

LPRINT CHR$ (&H1D) + "∗" ; LPRINT CHR$ (n1) + CHR$ (n2) ; FOR J=1 TO n1∗8

FOR I=1 TO n2

LPRINT CHR$ (J) ;

NEXT I

NEXT J

RETURN

77 CITIZEN