Specifications

6-77
110 OPEN "COM1:9600,N,8,1" FOR OUTPUT AS #1
120 PRINT #1,"****** BARCODE TEST ******"
130 FOR I=0 TO 7
140 RESTORE 380
150 FOR J=0 TO I
160 READ CODE$ 'Get Code Name
170 NEXT J
180 RESTORE 400
190 FOR J=0 TO I
200 READ DAT$ 'Get Bar Data
210 NEXT J
220 PRINT #1,CHR$(&H1D);"w";CHR$(I MOD 3);CHR$(I MOD 4); 'Narrow/Wide
230 PRINT #1,CHR$(&H1D);"P";CHR$(I MOD 3); 'Bar Position
240 PRINT #1,CHR$(&H1D);"h";CHR$(I*10+100); 'Bar Height
250 PRINT #1,CHR$(&H1D);"H";CHR$(I MOD 4); 'Strings position
260 PRINT #1,CHR$(&H1D);"f";CHR$(I MOD 2); 'Storings Font Size
270 PRINT #1,"*****";CODE$;"*****"
280 IF I=7 THEN GOTO 300
290 PRINT #1,CHR$(&H1D);"k";CHR$(I);DAT$;CHR$(0);:GOTO 320'Barcode Print
300 PRINT #1,CHR$(&H1D);"k";CHR$(I); 'CODE128 print
310 PRINT #1,CHR$(104); 'Start Code
320 PRINT #1,CHR$(32);CHR$(33);CHR$(34);CHR$(35);CHR$(36);
330 PRINT #1,CHR$(106); 'Stop Code
340 PRINT #1,CHR$(&H0D);
350 NEXT I
360 CLOSE #1
370 END
380 'BARCODE TYPE
390 DATA UPC_A,UPC_E,JAN_13,JAN_8,CODE39,ITF,CODABAR,CODE128
400 'BARCODE DATA
410 DATA 12345678901,01245000002,490130101188,4940125,ABC,123456, A12345B,DUMY
Figure 6-23 Program Sample 12