A-26 Programmer’s Manual
Const fmtUPCA As String = "{F,1,A,R,E,200,200," &
Chr(34) & "UPCA" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,12,F,25,28,1,4,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtUPCA2 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "UPCA2" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,14,F,25,38,10,2,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtUPCA5 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "UPCA5" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,17,F,25,28,11,2,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtUPCE As String = "{F,1,A,R,E,200,200," &
Chr(34) & "UPCE" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,7,V,25,56,2,4,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtEAN8 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "EAN8" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,8,V,25,42,6,4,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"
Const fmtEAN82 As String = "{F,1,A,R,E,200,200," &
Chr(34) & "EAN82" & Chr(34) & "|" _
& "C,150,49,0,50,8,8,A,L,0,0," & Chr(34) & "M6039
Platinum" & Chr(34) & "|" _
& "B,1,10,V,25,25,14,4,100,7,L,0|" _
& "T,2,22,V,133,1,0,1,1,1,O,C,0,0|}"