Citizen Systems CBM-253 - Manual (Page 109)

CBM-253 User’s Manual
97 CITIZEN
[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]