Citizen Systems CBM-253 User’s Manual, LPRINT CHR$&H1D + C2 LPRINT CHR$ 50 + CHR$0 GOSUB CNT

CBM-253 User’s Manual

[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]

91 CITIZEN