标题如何打印自动连续增值的条形码

　　0　B=30:S$"909002000000":I=0
　　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);"(s0p81h12v0s0b0t";
　　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