BQ注释

[小Y]

10 WIDTH "LPT1:", 255
ESC$ = CHR$(27)
LPRINT ESC$; "@";

LPRINT "1-2. *****Horizontal Tab(HT)*****"

LPRINT "1. 10CPI:"

J = 10: GOSUB PP
LPRINT ESC$; "D";
FOR I = 1 TO 22
LPRINT CHR$(3 * I);
NEXT I
FOR J = 1 TO 5
LPRINT CHR$(2 * J + 66);
NEXT J
LPRINT CHR$(0);
J = 8: GOSUB PN
LPRINT
GOSUB PM
LPRINT ESC$; "D"; CHR$(0);
GOSUB PM
140 END

PP: FOR I = 1 TO J
LPRINT "12345678";
NEXT I
LPRINT
FOR I = 1 TO 2 * J - 1
LPRINT CHR$(9); "H";
NEXT I
LPRINT
RETURN

PM: FOR I = 1 TO 32
LPRINT CHR$(9); "H";
NEXT I
LPRINT
RETURN

[小Y]

求高手每行注释 求关注