The C Users' Group Library 1994 August/wc-cdrom-cusersgrouplibrary-1994-08.iso/listings/v_02_01/2n01029a

Text File | 1990-09-20 | 510b | 22 lines

FUNCTION GarmentChk (a : INTEGER) : BOOLEAN;
{ returns TRUE if the item code is valid }
VAR
 total, i, workdigit : INTEGER;
BEGIN
total := 0;
FOR i := 1 TO 7
DO BEGIN
   workdigit := a MOD 10;
{ double even digits }
   IF NOT (Odd(i))
   THEN workdigit := workdigit + workdigit;
{ cast nines }
   total := total + ((workdigit MOD 10) + (workdigit DIV 10));
{ get next digit from rightmost side }
   a := a DIV 10;
{ return a Boolean result }
GarmentChk := ((total MOD 10) = 0)
END;