|
6 | 6 | % vim: set ts=4 sw=4 et : |
7 | 7 |
|
8 | 8 | /code2of5 dup /uk.co.terryburton.bwipp findresource cvx def |
9 | | -/industrial2of5 dup /uk.co.terryburton.bwipp findresource cvx def |
10 | | -/iata2of5 dup /uk.co.terryburton.bwipp findresource cvx def |
11 | | -/matrix2of5 dup /uk.co.terryburton.bwipp findresource cvx def |
12 | | -/coop2of5 dup /uk.co.terryburton.bwipp findresource cvx def |
13 | | -/datalogic2of5 dup /uk.co.terryburton.bwipp findresource cvx def |
14 | 9 |
|
15 | 10 |
|
16 | 11 | % Input validation |
17 | 12 |
|
18 | 13 | { () (dontdraw) code2of5 |
19 | 14 | } /bwipp.code2of5emptyData isError |
20 | | -{ () (dontdraw) industrial2of5 |
21 | | -} /bwipp.code2of5emptyData isError |
22 | | -{ () (dontdraw) iata2of5 |
23 | | -} /bwipp.code2of5emptyData isError |
24 | | -{ () (dontdraw) matrix2of5 |
25 | | -} /bwipp.code2of5emptyData isError |
26 | | -{ () (dontdraw) coop2of5 |
27 | | -} /bwipp.code2of5emptyData isError |
28 | | -{ () (dontdraw) datalogic2of5 |
29 | | -} /bwipp.code2of5emptyData isError |
30 | 15 |
|
31 | 16 | { () (dontdraw validatecheck) code2of5 |
32 | 17 | } /bwipp.code2of5emptyData isError |
|
54 | 39 |
|
55 | 40 | { (87654321) (dontdraw) code2of5 /sbs get |
56 | 41 | } [ 3 1 3 1 1 1 3 1 1 1 1 1 3 1 1 1 1 1 1 1 1 1 3 1 3 1 1 1 3 1 3 1 1 1 1 1 3 1 1 1 3 1 1 1 1 1 1 1 1 1 3 1 1 1 3 1 3 1 3 1 1 1 1 1 1 1 1 1 3 1 1 1 1 1 3 1 3 1 1 1 1 1 1 1 3 1 3 1 1 1 3 ] debugIsEqual |
57 | | - |
58 | | -{ (87654321) (dontdraw) industrial2of5 /sbs get % Same as default |
59 | | -} [ 3 1 3 1 1 1 3 1 1 1 1 1 3 1 1 1 1 1 1 1 1 1 3 1 3 1 1 1 3 1 3 1 1 1 1 1 3 1 1 1 3 1 1 1 1 1 1 1 1 1 3 1 1 1 3 1 3 1 3 1 1 1 1 1 1 1 1 1 3 1 1 1 1 1 3 1 3 1 1 1 1 1 1 1 3 1 3 1 1 1 3 ] debugIsEqual |
60 | | - |
61 | | -{ (87654321) (dontdraw) iata2of5 /sbs get |
62 | | -} [ 1 1 1 1 3 1 1 1 1 1 3 1 1 1 1 1 1 1 1 1 3 1 3 1 1 1 3 1 3 1 1 1 1 1 3 1 1 1 3 1 1 1 1 1 1 1 1 1 3 1 1 1 3 1 3 1 3 1 1 1 1 1 1 1 1 1 3 1 1 1 1 1 3 1 3 1 1 1 1 1 1 1 3 1 3 1 1 ] debugIsEqual |
63 | | - |
64 | | -{ (87654321) (dontdraw) matrix2of5 /sbs get |
65 | | -} [ 3 1 1 1 1 1 3 1 1 3 1 1 1 1 1 3 3 1 1 3 3 1 1 1 3 1 3 1 1 1 1 1 3 1 3 1 3 3 1 1 1 1 1 3 1 1 3 1 3 1 1 1 3 1 3 1 1 1 1 ] debugIsEqual |
66 | | - |
67 | | -{ (87654321) (dontdraw) coop2of5 /sbs get |
68 | | -} [ 3 1 3 1 3 1 1 3 1 1 3 1 1 1 3 1 1 3 3 1 1 1 1 3 1 3 1 1 1 3 1 1 3 1 1 1 3 3 1 1 1 1 3 1 3 1 1 1 1 3 3 1 1 3 3 ] debugIsEqual |
69 | | - |
70 | | -{ (87654321) (dontdraw) datalogic2of5 /sbs get |
71 | | -} [ 1 1 1 1 3 1 1 3 1 1 1 1 1 3 3 1 1 3 3 1 1 1 3 1 3 1 1 1 1 1 3 1 3 1 3 3 1 1 1 1 1 3 1 1 3 1 3 1 1 1 3 1 3 1 1 ] debugIsEqual |
0 commit comments