CBM-253 User’s Manual
91
CITIZEN
[Program example]
LPRINT CHR$ (&H1D) + "C0" ;
LPRINT CHR$(3) + CHR$(0) ;
LPRINT CHR$ (&H1D) + "C1" ;
LPRINT CHR$(50) + CHR$(0) ;
LPRINT CHR$(0) + CHR$ (0) ;
LPRINT CHR$(5) + CHR$(2) ;
LPRINT CHR$(&H1D) + "C2" ;
LPRINT CHR$ (50) + CHR$(0) ;
GOSUB CNT
LPRINT CHR$ (&H1D) + "C2" ;
LPRINT CHR$ (5) + CHR$(0) ;
GOSUB CNT
END
CNT :
FOR I=1 TO 6
LPRINT CHR$(&H1D) + "c" ;
NEXT I
LPRINT CHR$ (&HA) ;
RETURN
[Printing result]
