I need a barcode for each items, how to implement

Function Code128(PlainText : Text[250]) BarcodeText : Text[250]

//Text as Code128 --> ISO 15417
//CharSet B

StartStop[1] := 218;
StartStop[2] := 220;
CharStart := StartStop[1];
CharStop := StartStop[2];
Sum := 104;

FOR i := 1 TO STRLEN(PlainText) DO BEGIN
  CurrChar := PlainText[i];
  Sum := Sum + (i * (CurrChar - 32));
END;

CheckSumChar := Sum MOD 103;

CASE CheckSumChar OF
  0: 
    CheckSumChar := 176;
  1..94:
    CheckSumChar := CheckSumChar + 32;
  95..101: 
    CheckSumChar := CheckSumChar + 105;
  102:
    CheckSumChar := 213;
END;

BarcodeText := STRSUBSTNO('%1%2%3%4',CharStart,PlainText,CheckSumChar,CharStop);
EXIT(BarcodeText);

garak wrote:

what i mean with fewer is, than he only support letter (A-Z), numbers (0-9) and some special charachters. But the Code 128 supported more charakters.