[Sample Program]

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

[Print Results]

— 48 —

Page 53
Image 53
Citizen CT-S300 manual Gosub IMG