Citizen CBM1000 manual Next I Next J Return

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

←⎯⎯ NORMAL MODE

←⎯⎯ DOUBLE WIDTH MODE

←⎯⎯ DOUBLE HEIGHT MODE

←⎯⎯ QUADRUPLE MODE

— 98 —