Citizen Systems CBM-253 User’s Manual, IMG n1=10n2=5 LPRINT CHR$ &H1D + LPRINT CHR$n1 + CHR$n2

CBM-253 User’s Manual

[Program example]

GOSUB IMG

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

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

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

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

END

IMG : n1=10:n2=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

[Printing result]

97 CITIZEN