如何打印自动连续增值的条形码
1 DIM A＄(12)，A1＄(7)，C＄(5)，B＄(12)
2 PRINT＂StartNo=＂；
3 INPUT NO
4 PRINT＂How many pages=＂；
5 INPUT HP
6 FOR I=1 TO HP
7 A＄=LEFT ＄(S＄，13-LEN(STR ＄(NO)))＋RIGHT ＄(STR ＄(NO)，LEN(STR ＄(NO))-1)
10 GOSUB 20
11 NO=NO＋30
12 NEXT I
13 END
20 T=100000#
21 A1＄=LEFT＄(A＄，7)
25 LPRINTCHR＄(27)；＂&a3L＂；
30 C＄=RIGHT ＄(A＄，5)
40 FOR K=1 TO B/
350 B＄=STR ＄ (VAL(C＄)＋T)
60 FOR J=1 TO
270 LPRINT CHR ＄(27)：＂(OY＂；CHR＄(27)；＂(s0p81h12v0s0b0t＂；
75 B0＄=RIGHT ＄ (STR＄(VAL(B ＄ ))，5)
80 LPRINT＂*＂＋A1＄＋B0＄＋＂*＂；
90 LPRINT CHR＄(27)；＂&a2019H＂；
95 B1＄=RIGHT＄(STR＄(VAL(B＄)＋1)，5)
100 LPRINT＂*＂＋A1＄＋B1＄＋＂*＂；
110 LPRINT CHR＄(27)；＂&a3880H＂；
120 B2＄=RIGNT＄(STR＄(VAL(B＄)＋2)，5)
130 LPRINT＂*＂＋A1＄＋B2＄＋＂*＂；
140 NEXT J
150 LPRINT CHR＄(27)；＂(10＂；
160 LPRINT＂＂＋＂*＂＋A1＄＋B0＄＋＂*＂；
170 LPRINT CHR＄(27)；＂&a2119H＂；
175 LPRINT＂*＂＋A1＄＋B1＄＋＂*＂；
180 LPRINT CHR＄(27)；＂&a3981H＂；
200 LPRINT＂*＂＋A1＄＋B2＄＋＂*＂；
205 LPRINT CHR＄(27)；＂&a＋283V＂；
210 C＄=STR＄(VAL(C＄)＋3)
220 IF K/10＜＞INT(K/10) THEN 240
230 LPRINT CHR＄(12)；
240 NEXT K
300 RETURN