|
15 | 15 | exch isError |
16 | 16 | } def |
17 | 17 |
|
| 18 | +/eq_tmpl_addon { |
| 19 | + exch { 0 (dontdraw permitaddon) ean8 /sbs get } dup 3 -1 roll 0 exch put |
| 20 | + exch isEqual |
| 21 | +} def |
18 | 22 |
|
19 | | -(02345673) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1] eq_tmpl % 8 digits |
20 | | -(0234567) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1] eq_tmpl % Omit checksum |
21 | | -(02345674) /bwipp.ean8badCheckDigit er_tmpl % Invalid checksum |
| 23 | +/er_tmpl_addon { |
| 24 | + exch { 0 (dontdraw permitaddon) ean8 /sbs get } dup 3 -1 roll 0 exch put |
| 25 | + exch isError |
| 26 | +} def |
22 | 27 |
|
23 | | -(02345673 12345) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1 % Add 5 |
24 | | - 12.0 |
25 | | - 1 1 2 1 2 2 2 1 1 2 1 2 2 1 1 1 1 4 1 1 1 1 1 3 2 1 1 1 2 3 1] eq_tmpl |
26 | 28 |
|
27 | | -(02345673 12) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1 % Add 2 |
| 29 | +(02345673) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1] eq_tmpl % 8 digits |
| 30 | +(0234567) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1] eq_tmpl % Omit checksum |
| 31 | +(02345674) /bwipp.ean8badCheckDigit er_tmpl % Invalid checksum |
| 32 | + |
| 33 | +(02345673 12345) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1 % Add 5 |
28 | 34 | 12.0 |
29 | | - 1 1 2 2 2 2 1 1 1 2 1 2 2] eq_tmpl |
| 35 | + 1 1 2 1 2 2 2 1 1 2 1 2 2 1 1 1 1 4 1 1 1 1 1 3 2 1 1 1 2 3 1] eq_tmpl_addon |
30 | 36 |
|
31 | | -(02345673 123) /bwipp.ean8badAddOnLength er_tmpl % Add 3! |
| 37 | +(02345673 12) [1 1 1 3 2 1 1 2 1 2 2 1 4 1 1 1 1 3 2 1 1 1 1 1 1 2 3 1 1 1 1 4 1 3 1 2 1 4 1 1 1 1 1 % Add 2 |
| 38 | + 12.0 |
| 39 | + 1 1 2 2 2 2 1 1 1 2 1 2 2] eq_tmpl_addon |
| 40 | +(02345673 123) /bwipp.ean8badAddOnLength er_tmpl_addon % Add 3! |
32 | 41 |
|
33 | | -(A2345673) /bwipp.ean8badCharacter er_tmpl % Bad character |
| 42 | +(A2345673) /bwipp.ean8badCharacter er_tmpl % Bad character |
34 | 43 |
|
35 | | -(023456) /bwipp.ean8badLength er_tmpl % Too short |
36 | | -(023456731) /bwipp.ean8badLength er_tmpl % Too long |
| 44 | +(023456) /bwipp.ean8badLength er_tmpl % Too short |
| 45 | +(023456731) /bwipp.ean8badLength er_tmpl % Too long |
37 | 46 |
|
0 commit comments