BQ注释
小Y 2012-04-20 05:29:15 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