-
Notifications
You must be signed in to change notification settings - Fork 0
/
ZBWIPPMX.PRI
2858 lines (2858 loc) · 209 KB
/
ZBWIPPMX.PRI
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
SPRINZBWIPPMX
HPRINZBWIPPMX
SP09POST PostScript printer driver
SP0AZBWIPPMXXPOST00001POST2 with added maxi code 1117111711170000 DEVELOPER 20101118221645700 N4S RUSSELL 20100819160843640 JP1 SAP 2000080715380250A BIN
FO03 0.00 ZBWIPPMXCOURIER 000 SF001 SF001 X0
FO03 0.00 ZBWIPPMXCOURIER 000 X SF002 SF002 X0
FO03 0.00 ZBWIPPMXCOURIER 000X SF003 SF003 X0
FO03 0.00 ZBWIPPMXCOURIER 000XX SF004 SF004 X0
FO03 0.00 ZBWIPPMXHELVE 000 SF005 SF005 X0
FO03 0.00 ZBWIPPMXHELVE 000 X SF006 SF006 X0
FO03 0.00 ZBWIPPMXHELVE 000X SF007 SF007 X0
FO03 0.00 ZBWIPPMXHELVE 000XX SF008 SF008 X0
FO03 0.00 ZBWIPPMXTIMES 000 SF009 SF009 X0
FO03 0.00 ZBWIPPMXTIMES 000 X SF010 SF010 X0
FO03 0.00 ZBWIPPMXTIMES 000X SF011 SF011 X0
FO03 0.00 ZBWIPPMXTIMES 000XX SF012 SF012 X0
FO06ZBWIPPMXARTNR SBP01SBS01
FO06ZBWIPPMXAUFNR SBP01SBS01
FO06ZBWIPPMXBARCLVS SBP01SBS01
FO06ZBWIPPMXBC_C128BSBP01SBS01
FO06ZBWIPPMXBC_CD39 SBP01SBS01
FO06ZBWIPPMXBC_CD39CSBP01SBS01
FO06ZBWIPPMXBC_EAN13SBP01SBS01
FO06ZBWIPPMXBC_EAN8 SBP01SBS01
FO06ZBWIPPMXBC_EANH SBP01SBS01
FO06ZBWIPPMXBC_ESC SBP00SBS00
FO06ZBWIPPMXBC_I25 SBP01SBS01
FO06ZBWIPPMXBC_I25C SBP01SBS01
FO06ZBWIPPMXBC_JAN SBP26SBS26
FO06ZBWIPPMXBC_MSI SBP01SBS01
FO06ZBWIPPMXBC_MSIC SBP01SBS01
FO06ZBWIPPMXBC_MSIC1SBP01SBS01
FO06ZBWIPPMXBC_MSIC2SBP01SBS01
FO06ZBWIPPMXBC_PSN5 SBP01SBS01
FO06ZBWIPPMXBC_PSN9 SBP01SBS01
FO06ZBWIPPMXKUNAUNR SBP01SBS01
FO06ZBWIPPMXKUNAUPS SBP01SBS01
FO06ZBWIPPMXMBBARC SBP01SBS01
FO06ZBWIPPMXMBBARC1 SBP01SBS01
FO06ZBWIPPMXRSNUM SBP01SBS01
FO06ZBWIPPMXRSPOS SBP01SBS01
FO06ZBWIPPMXRUECKNR SBP01SBS01
022DZBWIPPMXCOL0H 1X
022DZBWIPPMXCOL0N 1X
022DZBWIPPMXCOL0V 1X
022DZBWIPPMXCOL1H 1X
022DZBWIPPMXCOL1N 1X
022DZBWIPPMXCOL1V 1X
022DZBWIPPMXCOL2H 1X
022DZBWIPPMXCOL2N 1X
022DZBWIPPMXCOL2V 1X
022DZBWIPPMXCOL3H 1X
022DZBWIPPMXCOL3N 1X
022DZBWIPPMXCOL3V 1X
022DZBWIPPMXCOL4H 1X
022DZBWIPPMXCOL4N 1X
022DZBWIPPMXCOL4V 1X
022DZBWIPPMXCOL5H 1X
022DZBWIPPMXCOL5N 1X
022DZBWIPPMXCOL5V 1X
022DZBWIPPMXCOL6H 1X
022DZBWIPPMXCOL6N 1X
022DZBWIPPMXCOL6V 1X
022DZBWIPPMXCOL7H 1X
022DZBWIPPMXCOL7N 1X
022DZBWIPPMXCOL7V 1X
022DZBWIPPMXS0000 1X
022DZBWIPPMXS1100 1X
022DZBWIPPMXS1150 1X
022DZBWIPPMXS1401 1X
022DZBWIPPMXS1500 1X
022DZBWIPPMXS1610 1X
022DZBWIPPMXS1700 1X
022DZBWIPPMXS1800 1X
022DZBWIPPMXS4001 1X
022DZBWIPPMXS4004 1X
022DZBWIPPMXS8000 1X
022DZBWIPPMXS8300 1X
022DZBWIPPMXS8400 1X
022DZBWIPPMXS8500 1X
022DZBWIPPMXS8600 1X
022DZBWIPPMXS<<<< 1X
022DZBWIPPMXS>>>> 1X
022DZBWIPPMXSABLD 1X
022DZBWIPPMXSAOFF 1X
022DZBWIPPMXSAULN 1X
022DZBWIPPMXSBP00 1X 25
022DZBWIPPMXSBP01 1X 2520
022DZBWIPPMXSBP02 1
022DZBWIPPMXSBS00 1
022DZBWIPPMXSBS01 1X 0A
022DZBWIPPMXSBS02 1X 2073
022DZBWIPPMXSF001 1X 436F7572696572
022DZBWIPPMXSF002 1X 436F75726965722D4F626C69717565
022DZBWIPPMXSF003 1X 436F75726965722D426F6C64
022DZBWIPPMXSF004 1X 436F75726965722D426F6C644F626C69717565
022DZBWIPPMXSF005 1X 48656C766574696361
022DZBWIPPMXSF006 1X 48656C7665746963612D4F626C69717565
022DZBWIPPMXSF007 1X 48656C7665746963612D426F6C64
022DZBWIPPMXSF008 1X 48656C7665746963612D426F6C644F626C69717565
022DZBWIPPMXSF009 1X 54696D65732D526F6D616E
022DZBWIPPMXSF010 1X 54696D65732D4974616C6963
022DZBWIPPMXSF011 1X 54696D65732D426F6C64
022DZBWIPPMXSF012 1X 54696D65732D426F6C644974616C6963
022DZBWIPPMXSF013 1X 54696D65732D526F6D616E
022DZBWIPPMXSF014 1X 54696D65732D4974616C6963
022DZBWIPPMXSF015 1X 54696D65732D426F6C64
022DZBWIPPMXSF016 1X 54696D65732D426F6C644974616C6963
022DZBWIPPMXSOB01 1 OutputBin1
022DZBWIPPMXSOB02 1 OutputBin2
022DZBWIPPMXSOB03 1X
022DZBWIPPMXSPMBS 1X
022DZBWIPPMXSPMDU 1 PrintModeDuplex
022DZBWIPPMXSPMFS 1X
022DZBWIPPMXSPMSI 1 PrintModeSimplex
022DZBWIPPMXSPMTU 1 PrintModeTumble
022DZBWIPPMXTRY01 1X 203020536574496E70757454726179
022DZBWIPPMXTRY02 1X 203120536574496E70757454726179
022DZBWIPPMXTRY03 1X 203320536574496E70757454726179
022DZBWIPPMXTRY04 1X 203220536574496E70757454726179
022DZBWIPPMXTRYEN 1
022DZBWIPPMXTRYME 1
022DZBWIPPMXTRYMN 1
022DZBWIPPMXZBW01 1 /s {bct exch ctxt /bct exch def} def \n
022DZBWIPPMXZBW02 1 bwippst\nbct sqrd\nbwippen\n
022DZBWIPPMXZBW03 1 %%bct sqrd \n /bct () def \n /s {show} def \n
022DZBWIPPMXZDN01 1 /bcver bcver 1 sub def\n
022DZBWIPPMXZDN10 1 /bcver bcver 10 sub def\n
022DZBWIPPMXZDN50 1 /bcver bcver 50 sub def\n
022DZBWIPPMXZLT01 1 /bchor bchor 1 sub def\n
022DZBWIPPMXZLT10 1 /bchor bchor 10 sub def\n
022DZBWIPPMXZLT50 1 /bchor bchor 50 sub def\n
022DZBWIPPMXZOP01 1 /bcopt (parse) def\n
022DZBWIPPMXZOP02 1 /bcopt (raw) def\n
022DZBWIPPMXZPD01 1 %%PDSTEXTz\n
022DZBWIPPMXZQR01 1 %%QRSTEXTz\n
022DZBWIPPMXZQR02 1 %%QRETEXTz\n
022DZBWIPPMXZRO01 1 /bcrot bcrot 45 add def\n
022DZBWIPPMXZRT01 1 /bchor bchor 1 add def\n
022DZBWIPPMXZRT10 1 /bchor bchor 10 add def\n
022DZBWIPPMXZRT50 1 /bchor bchor 50 add def\n
022DZBWIPPMXZSH01 1 %%SHIFTSz\n
022DZBWIPPMXZSH02 1 %%SHIFTEz\n
022DZBWIPPMXZSX01 1 /bcscx bcscx 0.1 add def\n
022DZBWIPPMXZSX02 1 /bcscx bcscx 0.1 sub def\n
022DZBWIPPMXZSY01 1 /bcscy bcscy 0.1 add def\n
022DZBWIPPMXZSY02 1 /bcscy bcscy 0.1 sub def\n
022DZBWIPPMXZUP01 1 /bcver bcver 1 add def\n
022DZBWIPPMXZUP10 1 /bcver bcver 10 add def\n
022DZBWIPPMXZUP50 1 /bcver bcver 50 add def\n
SP6AZBWIPPMXDINA3 00027 0000 DEVELOPER 20101118181706700 N4S SAP 20001114101909610 BIN SAP 1998012609371040C BIN
SP6XZBWIPPMXDINA3 000000000
SP6AZBWIPPMXDINA4 00116 0000 DEVELOPER 20101118232252700 N4S RUSSELL 20100819163508640 JP1 SAP 20001114101913610 BIN
SP6XZBWIPPMXDINA4 000000000
SP6AZBWIPPMXDINA5 00016 0000 DEVELOPER 20101118181715700 N4S SAP 20001114101918610 BIN SAP 1998012609375440C BIN
SP6XZBWIPPMXDINA5 000000000
SP6AZBWIPPMXEXECUTIV 00021 0000 DEVELOPER 20101118181727700 N4S SAP 20001114101922610 BIN SAP 1998012609383640C BIN
SP6XZBWIPPMXEXECUTIV 000000000
SP6AZBWIPPMXINCH11 00014 0000 DEVELOPER 20101118181739700 N4S SAP 20001114101927610 BIN SAP 1998012609390440C BIN
SP6XZBWIPPMXINCH11 000000000
SP6AZBWIPPMXINCH12 00017 0000 DEVELOPER 20101118181748700 N4S SAP 20001114101931610 BIN SAP 1998012609393140C BIN
SP6XZBWIPPMXINCH12 000000000
SP6AZBWIPPMXINCH2 00018 0000 DEVELOPER 20101118181758700 N4S SAP 20001114101936610 BIN SAP 1998042117362140C BIN
SP6XZBWIPPMXINCH2 000000000
SP6AZBWIPPMXINCH4 00016 0000 DEVELOPER 20101118181808700 N4S SAP 20001114101940610 BIN SAP 1998012609395040C BIN
SP6XZBWIPPMXINCH4 000000000
SP6AZBWIPPMXINCH4C 00016 0000 DEVELOPER 20101118181816700 N4S SAP 20001114101945610 BIN SAP 1998012609401140C BIN
SP6XZBWIPPMXINCH4C 000000000
SP6AZBWIPPMXINCH5 00017 0000 DEVELOPER 20101118181825700 N4S SAP 20001114101951610 BIN SAP 1998021009544640C BIN
SP6XZBWIPPMXINCH5 000000000
SP6AZBWIPPMXINCH6 00016 0000 DEVELOPER 20101118181835700 N4S SAP 20001114101959610 BIN SAP 1998012609402740C BIN
SP6XZBWIPPMXINCH6 000000000
SP6AZBWIPPMXINCH7 00014 0000 DEVELOPER 20101118181847700 N4S SAP 20001114102008610 BIN SAP 1998012609404040C BIN
SP6XZBWIPPMXINCH7 000000000
SP6AZBWIPPMXINCH8 00013 0000 DEVELOPER 20101118181855700 N4S SAP 20001114102012610 BIN SAP 1998012609410540C BIN
SP6XZBWIPPMXINCH8 000000000
SP6AZBWIPPMXLEGAL 00023 0000 DEVELOPER 20101118181903700 N4S SAP 20001114102016610 BIN SAP 1998012609412840C BIN
SP6XZBWIPPMXLEGAL 000000000
SP6AZBWIPPMXLETTER 00023 0000 DEVELOPER 20101118181912700 N4S SAP 20001114102020610 BIN SAP 1998012609414340C BIN
SP6XZBWIPPMXLETTER 000000000
SP6AZBWIPPMXLINE_21 00013 0000 DEVELOPER 20101118181923700 N4S SAP 20001114102024610 BIN SAP 1998012609415540C BIN
SP6XZBWIPPMXLINE_21 000000000
SP6AZBWIPPMXLINE_22 00013 0000 DEVELOPER 20101118181934700 N4S SAP 20001114102028610 BIN SAP 1998012609420540C BIN
SP6XZBWIPPMXLINE_22 000000000
SP6AZBWIPPMXX_44_120 00025 0000 DEVELOPER 20101118182018700 N4S SAP 1998041617185540C BIN SAP 1996051400000040A BIN
SP6XZBWIPPMXX_44_120 POST Courier 0600V D000000000
SP6AZBWIPPMXX_58_170 00024 0000 DEVELOPER 20101118182049700 N4S SAP 1998041617190440C BIN SAP 1996051400000040A BIN
SP6XZBWIPPMXX_58_170 POST Courier 0600V D000000000
SP6AZBWIPPMXX_65_132 00026 0000 DEVELOPER 20101118182059700 N4S SAP 1998041617191340C BIN SAP 1996051400000040A BIN
SP6XZBWIPPMXX_65_132 POST Courier 0600V D000000000
SP6AZBWIPPMXX_65_200 00027 0000 DEVELOPER 20101118182109700 N4S SAP 1998111709412646A BIN SAP
SP6XZBWIPPMXX_65_200 POST Courier 0600V D000000000
SP6AZBWIPPMXX_65_255 00028 0000 DEVELOPER 20101118182126700 N4S RUSSELL 20100724090927640 JP1 SAP 1998041617192040C BIN
SP6XZBWIPPMXX_65_255 POST Courier 0600V D000000000
SP6AZBWIPPMXX_65_80 00026 0000 DEVELOPER 20101118182139700 N4S SAP 1998041617192740C BIN SAP 1996051400000040A BIN
SP6XZBWIPPMXX_65_80 POST Courier 0600V D000000000
SP6AZBWIPPMXX_90_120 00026 0000 DEVELOPER 20101118182155700 N4S SAP 1998041617193440C BIN SAP 1996051400000040A BIN
SP6XZBWIPPMXX_90_120 POST Courier 0600V D000000000
SP1DDINA3 DINA3 .S0000000000SAP 1997081213394540A BIN SAP SAP
SP1XDINA3 000000000000000000000000
SP06001006ZBWIPPMXDINA3 CONTROL 001 \n
SP06002072ZBWIPPMXDINA3 CONTROL DEVELOPER 101118N4S 700 DEVELOPER 101118N4S 700 DEVELOPER 101118\n
SP06003072ZBWIPPMXDINA3 CONTROL 0000 \n
SP06004072ZBWIPPMXDINA3 CONTROL \n
SP06001043ZBWIPPMXDINA3 ENDLINE #this is a reference to another device type
SP06002026ZBWIPPMXDINA3 ENDLINE \i<POSTSCPT:DINA3:ENDLINE>
SP06001043ZBWIPPMXDINA3 ENDPAGE #this is a reference to another device type
SP06002026ZBWIPPMXDINA3 ENDPAGE \i<POSTSCPT:DINA3:ENDPAGE>
SP06001043ZBWIPPMXDINA3 LEAVE #this is a reference to another device type
SP06002024ZBWIPPMXDINA3 LEAVE \i<POSTSCPT:DINA3:LEAVE>
SP06001043ZBWIPPMXDINA3 SETUP #this is a reference to another device type
SP06002026ZBWIPPMXDINA3 SETUP \i<POSTSCPT:DINA3:SETUP>\n
SP06003027ZBWIPPMXDINA3 SETUP \i<ZBWIPPMX:DINA4:ZBWIPP>\n
SP06004027ZBWIPPMXDINA3 SETUP \i<ZBWIPPMX:DINA4:ZREND3>\n
SP06005026ZBWIPPMXDINA3 SETUP \i<ZBWIPPMX:DINA4:ZENC1>\n
SP06006026ZBWIPPMXDINA3 SETUP \i<ZBWIPPMX:DINA4:ZENC2>\n
SP06007026ZBWIPPMXDINA3 SETUP \i<ZBWIPPMX:DINA4:ZENC3>\n
SP06008000ZBWIPPMXDINA3 SETUP
SP1DDINA4 DINA4 .S0000000000SAP 1997081213395640A BIN SAP SAP
SP1XDINA4 000000000000000000000000
SP06001006ZBWIPPMXDINA4 CONTROL 12 \n
SP06002072ZBWIPPMXDINA4 CONTROL DEVELOPER 101118N4S 700 DEVELOPER 101118N4S 700 DEVELOPER 100930\n
SP06003072ZBWIPPMXDINA4 CONTROL 0000 \n
SP06004072ZBWIPPMXDINA4 CONTROL \n
SP06001043ZBWIPPMXDINA4 ENDLINE #this is a reference to another device type
SP06002026ZBWIPPMXDINA4 ENDLINE \i<POSTSCPT:DINA4:ENDLINE>
SP06001043ZBWIPPMXDINA4 ENDPAGE #this is a reference to another device type
SP06002028ZBWIPPMXDINA4 ENDPAGE \i<POSTSCPT:DINA4:ENDPAGE>\n
SP06001043ZBWIPPMXDINA4 LEAVE #this is a reference to another device type
SP06002024ZBWIPPMXDINA4 LEAVE \i<POSTSCPT:DINA4:LEAVE>
SP06001026ZBWIPPMXDINA4 SETUP \i<POSTSCPT:DINA4:SETUP>\n
SP06002027ZBWIPPMXDINA4 SETUP \i<ZBWIPPMX:DINA4:ZBWIPP>\n
SP06003027ZBWIPPMXDINA4 SETUP \i<ZBWIPPMX:DINA4:ZREND3>\n
SP06004026ZBWIPPMXDINA4 SETUP \i<ZBWIPPMX:DINA4:ZENC1>\n
SP06005026ZBWIPPMXDINA4 SETUP \i<ZBWIPPMX:DINA4:ZENC2>\n
SP06006026ZBWIPPMXDINA4 SETUP \i<ZBWIPPMX:DINA4:ZENC3>\n
SP06001015ZBWIPPMXDINA4 STRTPAGE %%GOTOBARCODE\n
SP06000007ZBWIPPMXDINA4 ZBWIPP CREDITS
SP06001016ZBWIPPMXDINA4 ZBWIPP ##usage: CREDITS
SP06002036ZBWIPPMXDINA4 ZBWIPP ##DO NOT CHANGE the first two lines!
SP06003053ZBWIPPMXDINA4 ZBWIPP %% SAP device type put together by Robert Russell, \n
SP06004048ZBWIPPMXDINA4 ZBWIPP %% send any comments to [email protected]. \n
SP06005019ZBWIPPMXDINA4 ZBWIPP %% 2010 RJR......\n
SP06006009ZBWIPPMXDINA4 ZBWIPP /ctxt {\n
SP06007044ZBWIPPMXDINA4 ZBWIPP 2 copy length exch length add % \n
SP06008059ZBWIPPMXDINA4 ZBWIPP string dup % string1 string2 string string\n
SP06009059ZBWIPPMXDINA4 ZBWIPP 4 2 roll % string string string1 string2\n
SP06010030ZBWIPPMXDINA4 ZBWIPP 2 index 0 3 index\n
SP06011061ZBWIPPMXDINA4 ZBWIPP % string string string1 string2 string 0 string1\n
SP06012056ZBWIPPMXDINA4 ZBWIPP putinterval % stuff the first string in.\n
SP06013044ZBWIPPMXDINA4 ZBWIPP % string string string1 string2\n
SP06014040ZBWIPPMXDINA4 ZBWIPP exch length exch putinterval\n
SP06015007ZBWIPPMXDINA4 ZBWIPP } def\n
SP06016070ZBWIPPMXDINA4 ZBWIPP /sqrd {bcopt /maxicode /uk.co.terryburton.bwipp findresource exec} def
SP06017013ZBWIPPMXDINA4 ZBWIPP /bct () def\n
SP06018014ZBWIPPMXDINA4 ZBWIPP /bchor 0 def\n
SP06019014ZBWIPPMXDINA4 ZBWIPP /bcver 0 def\n
SP06020016ZBWIPPMXDINA4 ZBWIPP /bcscx 1.0 def\n
SP06021016ZBWIPPMXDINA4 ZBWIPP /bcscy 1.0 def\n
SP06022015ZBWIPPMXDINA4 ZBWIPP /bcopt () def\n
SP06023015ZBWIPPMXDINA4 ZBWIPP /bcrot 0 def \n
SP06024012ZBWIPPMXDINA4 ZBWIPP /bwippst {\n
SP06025007ZBWIPPMXDINA4 ZBWIPP gsave\n
SP06026024ZBWIPPMXDINA4 ZBWIPP currentpoint translate\n
SP06027019ZBWIPPMXDINA4 ZBWIPP bcscx bcscy scale\n
SP06028021ZBWIPPMXDINA4 ZBWIPP bchor bcver rmoveto\n
SP06029014ZBWIPPMXDINA4 ZBWIPP bcrot rotate\n
SP06030008ZBWIPPMXDINA4 ZBWIPP } def \n
SP06031012ZBWIPPMXDINA4 ZBWIPP /bwippen {\n
SP06032010ZBWIPPMXDINA4 ZBWIPP grestore\n
SP06033013ZBWIPPMXDINA4 ZBWIPP /bct () def\n
SP06034015ZBWIPPMXDINA4 ZBWIPP /s {show} def\n
SP06035015ZBWIPPMXDINA4 ZBWIPP /bchor 0 def\n
SP06036015ZBWIPPMXDINA4 ZBWIPP /bcver 0 def\n
SP06037017ZBWIPPMXDINA4 ZBWIPP /bcscx 1.0 def\n
SP06038017ZBWIPPMXDINA4 ZBWIPP /bcscy 1.0 def\n
SP06039015ZBWIPPMXDINA4 ZBWIPP /bcopt () def\n
SP06040015ZBWIPPMXDINA4 ZBWIPP /bcrot 0 def \n
SP06041007ZBWIPPMXDINA4 ZBWIPP } def\n
SP06042025ZBWIPPMXDINA4 ZBWIPP %%Creator: Terry Burton\n
SP06043026ZBWIPPMXDINA4 ZBWIPP %%DocumentPaperSizes: a4\n
SP06044015ZBWIPPMXDINA4 ZBWIPP %%EndComments\n
SP06045060ZBWIPPMXDINA4 ZBWIPP % Barcode Writer in Pure PostScript - Version 2010-07-16-1\n
SP06046047ZBWIPPMXDINA4 ZBWIPP % http://www.terryburton.co.uk/barcodewriter/\n
SP06047003ZBWIPPMXDINA4 ZBWIPP %\n
SP06048040ZBWIPPMXDINA4 ZBWIPP % Copyright (c) 2004-2010 Terry Burton\n
SP06049003ZBWIPPMXDINA4 ZBWIPP %\n
SP06050056ZBWIPPMXDINA4 ZBWIPP % Permission is hereby granted, free of charge, to any\n
SP06051059ZBWIPPMXDINA4 ZBWIPP % person obtaining a copy of this software and associated\n
SP06052056ZBWIPPMXDINA4 ZBWIPP % documentation files (the "Software"), to deal in the\n
SP06053051ZBWIPPMXDINA4 ZBWIPP % Software without restriction, including without\n
SP06054054ZBWIPPMXDINA4 ZBWIPP % limitation the rights to use, copy, modify, merge,\n
SP06055058ZBWIPPMXDINA4 ZBWIPP % publish, distribute, sublicense, and/or sell copies of\n
SP06056060ZBWIPPMXDINA4 ZBWIPP % the Software, and to permit persons to whom the Software\n
SP06057051ZBWIPPMXDINA4 ZBWIPP % is furnished to do so, subject to the following\n
SP06058015ZBWIPPMXDINA4 ZBWIPP % conditions:\n
SP06059003ZBWIPPMXDINA4 ZBWIPP %\n
SP06060057ZBWIPPMXDINA4 ZBWIPP % The above copyright notice and this permission notice\n
SP06061059ZBWIPPMXDINA4 ZBWIPP % shall be included in all copies or substantial portions\n
SP06062020ZBWIPPMXDINA4 ZBWIPP % of the Software.\n
SP06063003ZBWIPPMXDINA4 ZBWIPP %\n
SP06064061ZBWIPPMXDINA4 ZBWIPP % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY\n
SP06065058ZBWIPPMXDINA4 ZBWIPP % KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO\n
SP06066052ZBWIPPMXDINA4 ZBWIPP % THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A\n
SP06067061ZBWIPPMXDINA4 ZBWIPP % PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\n
SP06068061ZBWIPPMXDINA4 ZBWIPP % THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,\n
SP06069055ZBWIPPMXDINA4 ZBWIPP % DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF\n
SP06070059ZBWIPPMXDINA4 ZBWIPP % CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\n
SP06071061ZBWIPPMXDINA4 ZBWIPP % CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS\n
SP06072020ZBWIPPMXDINA4 ZBWIPP % IN THE SOFTWARE.\n
SP06073058ZBWIPPMXDINA4 ZBWIPP % Uncomment this next line to allow these named resource\n
SP06074053ZBWIPPMXDINA4 ZBWIPP % definitions to remain resident within a printer's\n
SP06075061ZBWIPPMXDINA4 ZBWIPP % PostScript virtual machine so that the barcode generation\n
SP06076037ZBWIPPMXDINA4 ZBWIPP % capability persists between jobs.\n
SP06077034ZBWIPPMXDINA4 ZBWIPP % serverdict begin 0 exitserver \n
SP06078022ZBWIPPMXDINA4 ZBWIPP % --BEGIN TEMPLATE--\n
SP06079022ZBWIPPMXDINA4 ZBWIPP % --BEGIN PREAMBLE--\n
SP06080015ZBWIPPMXDINA4 ZBWIPP currentglobal\n
SP06081016ZBWIPPMXDINA4 ZBWIPP true setglobal\n
SP06082033ZBWIPPMXDINA4 ZBWIPP /Generic /Category findresource\n
SP06083028ZBWIPPMXDINA4 ZBWIPP dup length 1 add dict copy\n
SP06084040ZBWIPPMXDINA4 ZBWIPP dup /InstanceType /packedarraytype put\n
SP06085060ZBWIPPMXDINA4 ZBWIPP /uk.co.terryburton.bwipp exch /Category defineresource pop\n
SP06086011ZBWIPPMXDINA4 ZBWIPP setglobal\n
SP06087020ZBWIPPMXDINA4 ZBWIPP % --END PREAMBLE--\n
SP06088000ZBWIPPMXDINA4 ZBWIPP
SP06000017ZBWIPPMXDINA4 ZENC1 BWIPP encode qr 1
SP06001026ZBWIPPMXDINA4 ZENC1 ##usage: BWIPP encode qr 1
SP06002036ZBWIPPMXDINA4 ZENC1 ##DO NOT CHANGE the first two lines!
SP06003059ZBWIPPMXDINA4 ZENC1 /setpacking where {pop currentpacking true setpacking} if\n
SP06004008ZBWIPPMXDINA4 ZENC1 1 dict\n
SP06005066ZBWIPPMXDINA4 ZENC1 dup /renmaximatrix dup /uk.co.terryburton.bwipp findresource put\n
SP06006007ZBWIPPMXDINA4 ZENC1 begin\n
SP06007013ZBWIPPMXDINA4 ZENC1 /maxicode {\n
SP06008019ZBWIPPMXDINA4 ZENC1 20 dict begin\n
SP06009031ZBWIPPMXDINA4 ZENC1 /options exch def \n
SP06010031ZBWIPPMXDINA4 ZENC1 /barcode exch def \n
SP06011025ZBWIPPMXDINA4 ZENC1 /dontdraw false def\n
SP06012018ZBWIPPMXDINA4 ZENC1 /mode -1 def\n
SP06013017ZBWIPPMXDINA4 ZENC1 /sam -1 def\n
SP06014022ZBWIPPMXDINA4 ZENC1 /parse false def\n
SP06015006ZBWIPPMXDINA4 ZENC1 \n
SP06016035ZBWIPPMXDINA4 ZENC1 options type /stringtype eq {\n
SP06017022ZBWIPPMXDINA4 ZENC1 1 dict begin\n
SP06018019ZBWIPPMXDINA4 ZENC1 options {\n
SP06019071ZBWIPPMXDINA4 ZENC1 token false eq {exit} if dup length string cvs (=) search\n
SP06020071ZBWIPPMXDINA4 ZENC1 true eq {cvlit exch pop exch def} {cvlit true def} ifelse\n
SP06021016ZBWIPPMXDINA4 ZENC1 } loop\n
SP06022043ZBWIPPMXDINA4 ZENC1 currentdict end /options exch def\n
SP06023010ZBWIPPMXDINA4 ZENC1 } if\n
SP06024026ZBWIPPMXDINA4 ZENC1 options {def} forall\n
SP06025024ZBWIPPMXDINA4 ZENC1 /mode mode cvi def\n
SP06026022ZBWIPPMXDINA4 ZENC1 /sam sam cvi def\n
SP06027006ZBWIPPMXDINA4 ZENC1 \n
SP06028013ZBWIPPMXDINA4 ZENC1 parse {\n
SP06029040ZBWIPPMXDINA4 ZENC1 /msg barcode length string def\n
SP06030018ZBWIPPMXDINA4 ZENC1 /j 0 def\n
SP06031017ZBWIPPMXDINA4 ZENC1 barcode\n
SP06032012ZBWIPPMXDINA4 ZENC1 { \n
SP06033026ZBWIPPMXDINA4 ZENC1 (^) search {\n
SP06034049ZBWIPPMXDINA4 ZENC1 dup msg exch j exch putinterval\n
SP06035048ZBWIPPMXDINA4 ZENC1 length j add 1 add /j exch def\n
SP06036021ZBWIPPMXDINA4 ZENC1 pop\n
SP06037067ZBWIPPMXDINA4 ZENC1 dup 0 3 getinterval cvi msg exch j 1 sub exch put\n
SP06038053ZBWIPPMXDINA4 ZENC1 dup length 3 sub 3 exch getinterval\n
SP06039017ZBWIPPMXDINA4 ZENC1 } {\n
SP06040049ZBWIPPMXDINA4 ZENC1 dup msg exch j exch putinterval\n
SP06041042ZBWIPPMXDINA4 ZENC1 length j add /j exch def\n
SP06042050ZBWIPPMXDINA4 ZENC1 /barcode msg 0 j getinterval def\n
SP06043022ZBWIPPMXDINA4 ZENC1 exit\n
SP06044023ZBWIPPMXDINA4 ZENC1 } ifelse \n
SP06045016ZBWIPPMXDINA4 ZENC1 } loop\n
SP06046010ZBWIPPMXDINA4 ZENC1 } if\n
SP06047006ZBWIPPMXDINA4 ZENC1 \n
SP06048022ZBWIPPMXDINA4 ZENC1 /msg barcode def\n
SP06049028ZBWIPPMXDINA4 ZENC1 /msglen msg length def\n
SP06050006ZBWIPPMXDINA4 ZENC1 \n
SP06051030ZBWIPPMXDINA4 ZENC1 mode 2 eq mode 3 eq or {\n
SP06052010ZBWIPPMXDINA4 ZENC1 \n
SP06053051ZBWIPPMXDINA4 ZENC1 msg 0 7 getinterval <5b293e1e30311d> eq {\n
SP06054042ZBWIPPMXDINA4 ZENC1 /fid msg 0 9 getinterval def\n
SP06055054ZBWIPPMXDINA4 ZENC1 /msg msg 9 msglen 9 sub getinterval def \n
SP06056013ZBWIPPMXDINA4 ZENC1 } {\n
SP06057025ZBWIPPMXDINA4 ZENC1 /fid () def\n
SP06058018ZBWIPPMXDINA4 ZENC1 } ifelse\n
SP06059010ZBWIPPMXDINA4 ZENC1 \n
SP06060045ZBWIPPMXDINA4 ZENC1 msg <1d> search pop /pcode exch def\n
SP06061045ZBWIPPMXDINA4 ZENC1 pop <1d> search pop /ccode exch def\n
SP06062045ZBWIPPMXDINA4 ZENC1 pop <1d> search pop /scode exch def\n
SP06063027ZBWIPPMXDINA4 ZENC1 pop /msg exch def\n
SP06064010ZBWIPPMXDINA4 ZENC1 \n
SP06065046ZBWIPPMXDINA4 ZENC1 msg length fid length add string dup\n
SP06066032ZBWIPPMXDINA4 ZENC1 0 fid putinterval dup \n
SP06067036ZBWIPPMXDINA4 ZENC1 fid length msg putinterval\n
SP06068023ZBWIPPMXDINA4 ZENC1 /msg exch def\n
SP06069032ZBWIPPMXDINA4 ZENC1 /msglen msg length def\n
SP06070010ZBWIPPMXDINA4 ZENC1 } if\n
SP06071006ZBWIPPMXDINA4 ZENC1 \n
SP06072042ZBWIPPMXDINA4 ZENC1 /eci -1 def /pad -2 def /ns -3 def\n
SP06073030ZBWIPPMXDINA4 ZENC1 /la -4 def /lb -5 def\n
SP06074067ZBWIPPMXDINA4 ZENC1 /sa -6 def /sb -7 def /sc -8 def /sd -9 def /se -10 def\n
SP06075033ZBWIPPMXDINA4 ZENC1 /sa2 -11 def /sa3 -12 def \n
SP06076044ZBWIPPMXDINA4 ZENC1 /lkc -13 def /lkd -14 def /lke -15 def\n
SP06077032ZBWIPPMXDINA4 ZENC1 /pd2 -16 def /pd3 -17 def \n
SP06078006ZBWIPPMXDINA4 ZENC1 \n
SP06079006ZBWIPPMXDINA4 ZENC1 \n
SP06080017ZBWIPPMXDINA4 ZENC1 /charmaps [\n
SP06081010ZBWIPPMXDINA4 ZENC1 \n
SP06082039ZBWIPPMXDINA4 ZENC1 [ 13 (`) 192 224 0 ] \n
SP06083039ZBWIPPMXDINA4 ZENC1 [ (A) (a) 193 225 1 ] \n
SP06084039ZBWIPPMXDINA4 ZENC1 [ (B) (b) 194 226 2 ] \n
SP06085039ZBWIPPMXDINA4 ZENC1 [ (C) (c) 195 227 3 ] \n
SP06086039ZBWIPPMXDINA4 ZENC1 [ (D) (d) 196 228 4 ] \n
SP06087039ZBWIPPMXDINA4 ZENC1 [ (E) (e) 197 229 5 ] \n
SP06088039ZBWIPPMXDINA4 ZENC1 [ (F) (f) 198 230 6 ] \n
SP06089039ZBWIPPMXDINA4 ZENC1 [ (G) (g) 199 231 7 ] \n
SP06090039ZBWIPPMXDINA4 ZENC1 [ (H) (h) 200 232 8 ] \n
SP06091039ZBWIPPMXDINA4 ZENC1 [ (I) (i) 201 233 9 ] \n
SP06092039ZBWIPPMXDINA4 ZENC1 [ (J) (j) 202 234 10 ] \n
SP06093039ZBWIPPMXDINA4 ZENC1 [ (K) (k) 203 235 11 ] \n
SP06094039ZBWIPPMXDINA4 ZENC1 [ (L) (l) 204 236 12 ] \n
SP06095039ZBWIPPMXDINA4 ZENC1 [ (M) (m) 205 237 13 ] \n
SP06096039ZBWIPPMXDINA4 ZENC1 [ (N) (n) 206 238 14 ] \n
SP06097039ZBWIPPMXDINA4 ZENC1 [ (O) (o) 207 239 15 ] \n
SP06098039ZBWIPPMXDINA4 ZENC1 [ (P) (p) 208 240 16 ] \n
SP06099039ZBWIPPMXDINA4 ZENC1 [ (Q) (q) 209 241 17 ] \n
SP06100039ZBWIPPMXDINA4 ZENC1 [ (R) (r) 210 242 18 ] \n
SP06101039ZBWIPPMXDINA4 ZENC1 [ (S) (s) 211 243 19 ] \n
SP06102039ZBWIPPMXDINA4 ZENC1 [ (T) (t) 212 244 20 ] \n
SP06103039ZBWIPPMXDINA4 ZENC1 [ (U) (u) 213 245 21 ] \n
SP06104039ZBWIPPMXDINA4 ZENC1 [ (V) (v) 214 246 22 ] \n
SP06105039ZBWIPPMXDINA4 ZENC1 [ (W) (w) 215 247 23 ] \n
SP06106039ZBWIPPMXDINA4 ZENC1 [ (X) (x) 216 248 24 ] \n
SP06107039ZBWIPPMXDINA4 ZENC1 [ (Y) (y) 217 249 25 ] \n
SP06108039ZBWIPPMXDINA4 ZENC1 [ (Z) (z) 218 250 26 ] \n
SP06109039ZBWIPPMXDINA4 ZENC1 [ eci eci eci eci eci ] \n
SP06110039ZBWIPPMXDINA4 ZENC1 [ 28 28 28 28 pad ] \n
SP06111039ZBWIPPMXDINA4 ZENC1 [ 29 29 29 29 pad ] \n
SP06112039ZBWIPPMXDINA4 ZENC1 [ 30 30 30 30 27 ] \n
SP06113039ZBWIPPMXDINA4 ZENC1 [ ns ns ns ns ns ] \n
SP06114039ZBWIPPMXDINA4 ZENC1 [ ( ) ({) 219 251 28 ] \n
SP06115039ZBWIPPMXDINA4 ZENC1 [ pad pad 220 252 29 ] \n
SP06116039ZBWIPPMXDINA4 ZENC1 [ (") (}) 221 253 30 ] \n
SP06117039ZBWIPPMXDINA4 ZENC1 [ (#) (~) 222 254 31 ] \n
SP06118039ZBWIPPMXDINA4 ZENC1 [ ($) 127 223 255 159 ] \n
SP06119039ZBWIPPMXDINA4 ZENC1 [ (%) (;) 170 161 160 ] \n
SP06120039ZBWIPPMXDINA4 ZENC1 [ (&) (<) 172 168 162 ] \n
SP06121039ZBWIPPMXDINA4 ZENC1 [ (') (=) 177 171 163 ] \n
SP06122039ZBWIPPMXDINA4 ZENC1 [ 40 (>) 178 175 164 ] \n
SP06123039ZBWIPPMXDINA4 ZENC1 [ 41 (?) 179 176 165 ] \n
SP06124039ZBWIPPMXDINA4 ZENC1 [ (*) ([) 181 180 166 ] \n
SP06125039ZBWIPPMXDINA4 ZENC1 [ (+) 92 185 183 167 ] \n
SP06126039ZBWIPPMXDINA4 ZENC1 [ (,) (]) 186 184 169 ] \n
SP06127039ZBWIPPMXDINA4 ZENC1 [ (-) (^) 188 187 173 ] \n
SP06128039ZBWIPPMXDINA4 ZENC1 [ (.) (_) 189 191 174 ] \n
SP06129039ZBWIPPMXDINA4 ZENC1 [ (/) ( ) 190 138 182 ] \n
SP06130039ZBWIPPMXDINA4 ZENC1 [ (0) (,) 128 139 149 ] \n
SP06131039ZBWIPPMXDINA4 ZENC1 [ (1) (.) 129 140 150 ] \n
SP06132039ZBWIPPMXDINA4 ZENC1 [ (2) (/) 130 141 151 ] \n
SP06133039ZBWIPPMXDINA4 ZENC1 [ (3) (:) 131 142 152 ] \n
SP06134039ZBWIPPMXDINA4 ZENC1 [ (4) (@) 132 143 153 ] \n
SP06135039ZBWIPPMXDINA4 ZENC1 [ (5) (!) 133 144 154 ] \n
SP06136039ZBWIPPMXDINA4 ZENC1 [ (6) (|) 134 145 155 ] \n
SP06137039ZBWIPPMXDINA4 ZENC1 [ (7) pd2 135 146 156 ] \n
SP06138039ZBWIPPMXDINA4 ZENC1 [ (8) sa2 136 147 157 ] \n
SP06139039ZBWIPPMXDINA4 ZENC1 [ (9) sa3 137 148 158 ] \n
SP06140039ZBWIPPMXDINA4 ZENC1 [ (:) pd3 la la la ] \n
SP06141039ZBWIPPMXDINA4 ZENC1 [ sb sa ( ) ( ) ( ) ] \n
SP06142039ZBWIPPMXDINA4 ZENC1 [ sc sc lkc sc sc ] \n
SP06143039ZBWIPPMXDINA4 ZENC1 [ sd sd sd lkd sd ] \n
SP06144039ZBWIPPMXDINA4 ZENC1 [ se se se se lke ] \n
SP06145039ZBWIPPMXDINA4 ZENC1 [ lb la lb lb lb ] \n
SP06146012ZBWIPPMXDINA4 ZENC1 ] def \n
SP06147006ZBWIPPMXDINA4 ZENC1 \n
SP06148006ZBWIPPMXDINA4 ZENC1 \n
SP06149063ZBWIPPMXDINA4 ZENC1 /charvals [ 64 dict 64 dict 64 dict 64 dict 64 dict ] def\n
SP06150033ZBWIPPMXDINA4 ZENC1 0 1 charmaps length 1 sub {\n
SP06151021ZBWIPPMXDINA4 ZENC1 /i exch def\n
SP06152034ZBWIPPMXDINA4 ZENC1 /encs charmaps i get def\n
SP06153017ZBWIPPMXDINA4 ZENC1 0 1 4 {\n
SP06154025ZBWIPPMXDINA4 ZENC1 /j exch def\n
SP06155061ZBWIPPMXDINA4 ZENC1 encs j get dup type /stringtype eq {0 get} if \n
SP06156040ZBWIPPMXDINA4 ZENC1 charvals j get exch i put \n
SP06157015ZBWIPPMXDINA4 ZENC1 } for\n
SP06158011ZBWIPPMXDINA4 ZENC1 } for\n
SP06159030ZBWIPPMXDINA4 ZENC1 /seta charvals 0 get def\n
SP06160030ZBWIPPMXDINA4 ZENC1 /setb charvals 1 get def\n
SP06161030ZBWIPPMXDINA4 ZENC1 /setc charvals 2 get def\n
SP06162030ZBWIPPMXDINA4 ZENC1 /setd charvals 3 get def\n
SP06163030ZBWIPPMXDINA4 ZENC1 /sete charvals 4 get def\n
SP06164006ZBWIPPMXDINA4 ZENC1 \n
SP06165043ZBWIPPMXDINA4 ZENC1 /nseq [ msglen 1 add {0} repeat ] def\n
SP06166025ZBWIPPMXDINA4 ZENC1 msglen 1 sub -1 0 {\n
SP06167021ZBWIPPMXDINA4 ZENC1 /i exch def\n
SP06168046ZBWIPPMXDINA4 ZENC1 msg i get dup 48 ge exch 57 le and {\n
SP06169047ZBWIPPMXDINA4 ZENC1 nseq i nseq i 1 add get 1 add put\n
SP06170013ZBWIPPMXDINA4 ZENC1 } {\n
SP06171026ZBWIPPMXDINA4 ZENC1 nseq i 0 put\n
SP06172018ZBWIPPMXDINA4 ZENC1 } ifelse\n
SP06173011ZBWIPPMXDINA4 ZENC1 } for\n
SP06174041ZBWIPPMXDINA4 ZENC1 /nseq nseq 0 msglen getinterval def\n
SP06175006ZBWIPPMXDINA4 ZENC1 \n
SP06176020ZBWIPPMXDINA4 ZENC1 /prefixinset {\n
SP06177013ZBWIPPMXDINA4 ZENC1 0 {\n
SP06178046ZBWIPPMXDINA4 ZENC1 2 copy exch length ge {exit} if \n
SP06179065ZBWIPPMXDINA4 ZENC1 2 copy get 3 index exch known {1 add} {exit} ifelse\n
SP06180016ZBWIPPMXDINA4 ZENC1 } loop\n
SP06181027ZBWIPPMXDINA4 ZENC1 exch pop exch pop\n
SP06182016ZBWIPPMXDINA4 ZENC1 } bind def\n
SP06183006ZBWIPPMXDINA4 ZENC1 \n
SP06184012ZBWIPPMXDINA4 ZENC1 /enc {\n
SP06185038ZBWIPPMXDINA4 ZENC1 exch get out exch j exch put\n
SP06186024ZBWIPPMXDINA4 ZENC1 /j j 1 add def\n
SP06187016ZBWIPPMXDINA4 ZENC1 } bind def\n
SP06188024ZBWIPPMXDINA4 ZENC1 /out 144 array def\n
SP06189040ZBWIPPMXDINA4 ZENC1 /i 0 def /j 0 def /cset (seta) def\n
SP06190008ZBWIPPMXDINA4 ZENC1 { \n
SP06191010ZBWIPPMXDINA4 ZENC1 \n
SP06192023ZBWIPPMXDINA4 ZENC1 i msglen eq {\n
SP06193049ZBWIPPMXDINA4 ZENC1 cset (seta) ne cset (setb) ne and {\n
SP06194034ZBWIPPMXDINA4 ZENC1 la cset load enc\n
SP06195034ZBWIPPMXDINA4 ZENC1 /cset (seta) def\n
SP06196018ZBWIPPMXDINA4 ZENC1 } if\n
SP06197018ZBWIPPMXDINA4 ZENC1 exit\n
SP06198014ZBWIPPMXDINA4 ZENC1 } if\n
SP06199012ZBWIPPMXDINA4 ZENC1 { \n
SP06200006ZBWIPPMXDINA4 ZENC1 \n
SP06201014ZBWIPPMXDINA4 ZENC1 \n
SP06202031ZBWIPPMXDINA4 ZENC1 nseq i get 9 ge {\n
SP06203071ZBWIPPMXDINA4 ZENC1 msg i 9 getinterval cvi 4 { dup 63 and exch -6 bitshift
SP06204028ZBWIPPMXDINA4 ZENC1 } repeat cset load ns get\n
SP06205071ZBWIPPMXDINA4 ZENC1 0 2 10 {index} for 6 array astore 7 1 roll 6 {pop} repe
SP06206004ZBWIPPMXDINA4 ZENC1 at\n
SP06207045ZBWIPPMXDINA4 ZENC1 out exch j exch putinterval\n
SP06208032ZBWIPPMXDINA4 ZENC1 /i i 9 add def\n
SP06209032ZBWIPPMXDINA4 ZENC1 /j j 6 add def\n
SP06210022ZBWIPPMXDINA4 ZENC1 exit\n
SP06211018ZBWIPPMXDINA4 ZENC1 } if\n
SP06212006ZBWIPPMXDINA4 ZENC1 \n
SP06213014ZBWIPPMXDINA4 ZENC1 \n
SP06214034ZBWIPPMXDINA4 ZENC1 /char1 msg i get def\n
SP06215071ZBWIPPMXDINA4 ZENC1 /char2 i 1 add msglen lt {msg i 1 add get} {-99} ifelse def
SP06216002ZBWIPPMXDINA4 ZENC1 \n
SP06217071ZBWIPPMXDINA4 ZENC1 /char3 i 2 add msglen lt {msg i 2 add get} {-99} ifelse def
SP06218002ZBWIPPMXDINA4 ZENC1 \n
SP06219006ZBWIPPMXDINA4 ZENC1 \n
SP06220014ZBWIPPMXDINA4 ZENC1 \n
SP06221038ZBWIPPMXDINA4 ZENC1 cset load char1 known { \n
SP06222037ZBWIPPMXDINA4 ZENC1 char1 cset load enc\n
SP06223032ZBWIPPMXDINA4 ZENC1 /i i 1 add def\n
SP06224022ZBWIPPMXDINA4 ZENC1 exit\n
SP06225018ZBWIPPMXDINA4 ZENC1 } if\n
SP06226006ZBWIPPMXDINA4 ZENC1 \n
SP06227014ZBWIPPMXDINA4 ZENC1 \n
SP06228051ZBWIPPMXDINA4 ZENC1 cset (seta) eq setb char1 known and {\n
SP06229036ZBWIPPMXDINA4 ZENC1 setb char2 known {\n
SP06230033ZBWIPPMXDINA4 ZENC1 lb seta enc\n
SP06231038ZBWIPPMXDINA4 ZENC1 /cset (setb) def\n
SP06232021ZBWIPPMXDINA4 ZENC1 } {\n
SP06233033ZBWIPPMXDINA4 ZENC1 sb seta enc\n
SP06234036ZBWIPPMXDINA4 ZENC1 char1 setb enc\n
SP06235036ZBWIPPMXDINA4 ZENC1 /i i 1 add def\n
SP06236026ZBWIPPMXDINA4 ZENC1 } ifelse\n
SP06237022ZBWIPPMXDINA4 ZENC1 exit\n
SP06238018ZBWIPPMXDINA4 ZENC1 } if\n
SP06239006ZBWIPPMXDINA4 ZENC1 \n
SP06240014ZBWIPPMXDINA4 ZENC1 \n
SP06241051ZBWIPPMXDINA4 ZENC1 cset (setb) eq seta char1 known and {\n
SP06242071ZBWIPPMXDINA4 ZENC1 /p seta msg i 4 msglen i sub 2 copy gt {exch} if pop ge
SP06243027ZBWIPPMXDINA4 ZENC1 tinterval prefixinset def\n
SP06244026ZBWIPPMXDINA4 ZENC1 p 1 eq {\n
SP06245033ZBWIPPMXDINA4 ZENC1 sa setb enc\n
SP06246036ZBWIPPMXDINA4 ZENC1 char1 seta enc\n
SP06247036ZBWIPPMXDINA4 ZENC1 /i i 1 add def\n
SP06248022ZBWIPPMXDINA4 ZENC1 } if\n
SP06249026ZBWIPPMXDINA4 ZENC1 p 2 eq {\n
SP06250034ZBWIPPMXDINA4 ZENC1 sa2 setb enc\n
SP06251036ZBWIPPMXDINA4 ZENC1 char1 seta enc\n
SP06252036ZBWIPPMXDINA4 ZENC1 char2 seta enc\n
SP06253000ZBWIPPMXDINA4 ZENC1
SP06000017ZBWIPPMXDINA4 ZENC2 BWIPP encode qr 2
SP06001026ZBWIPPMXDINA4 ZENC2 ##usage: BWIPP encode qr 2
SP06002036ZBWIPPMXDINA4 ZENC2 ##DO NOT CHANGE the first two lines!
SP06003037ZBWIPPMXDINA4 ZENC2 /i i 2 add def \n
SP06004022ZBWIPPMXDINA4 ZENC2 } if\n
SP06005026ZBWIPPMXDINA4 ZENC2 p 3 eq {\n
SP06006034ZBWIPPMXDINA4 ZENC2 sa3 setb enc\n
SP06007036ZBWIPPMXDINA4 ZENC2 char1 seta enc\n
SP06008036ZBWIPPMXDINA4 ZENC2 char2 seta enc\n
SP06009036ZBWIPPMXDINA4 ZENC2 char3 seta enc\n
SP06010037ZBWIPPMXDINA4 ZENC2 /i i 3 add def \n
SP06011022ZBWIPPMXDINA4 ZENC2 } if\n
SP06012026ZBWIPPMXDINA4 ZENC2 p 4 ge {\n
SP06013033ZBWIPPMXDINA4 ZENC2 la setb enc\n
SP06014038ZBWIPPMXDINA4 ZENC2 /cset (seta) def\n
SP06015022ZBWIPPMXDINA4 ZENC2 } if\n
SP06016022ZBWIPPMXDINA4 ZENC2 exit\n
SP06017018ZBWIPPMXDINA4 ZENC2 } if\n
SP06018006ZBWIPPMXDINA4 ZENC2 \n
SP06019014ZBWIPPMXDINA4 ZENC2 \n
SP06020032ZBWIPPMXDINA4 ZENC2 seta char1 known {\n
SP06021034ZBWIPPMXDINA4 ZENC2 la cset load enc\n
SP06022034ZBWIPPMXDINA4 ZENC2 /cset (seta) def\n
SP06023022ZBWIPPMXDINA4 ZENC2 exit\n
SP06024024ZBWIPPMXDINA4 ZENC2 } if \n
SP06025032ZBWIPPMXDINA4 ZENC2 setb char1 known {\n
SP06026034ZBWIPPMXDINA4 ZENC2 lb cset load enc\n
SP06027034ZBWIPPMXDINA4 ZENC2 /cset (setb) def\n
SP06028022ZBWIPPMXDINA4 ZENC2 exit\n
SP06029024ZBWIPPMXDINA4 ZENC2 } if \n
SP06030007ZBWIPPMXDINA4 ZENC2 \n
SP06031014ZBWIPPMXDINA4 ZENC2 \n
SP06032071ZBWIPPMXDINA4 ZENC2 setc char1 known {/setx (setc) def /sx sc def /lkx lkc def}
SP06033005ZBWIPPMXDINA4 ZENC2 if\n
SP06034071ZBWIPPMXDINA4 ZENC2 setd char1 known {/setx (setd) def /sx sd def /lkx lkd def}
SP06035005ZBWIPPMXDINA4 ZENC2 if\n
SP06036071ZBWIPPMXDINA4 ZENC2 sete char1 known {/setx (sete) def /sx se def /lkx lke def}
SP06037005ZBWIPPMXDINA4 ZENC2 if\n
SP06038006ZBWIPPMXDINA4 ZENC2 \n
SP06039014ZBWIPPMXDINA4 ZENC2 \n
SP06040071ZBWIPPMXDINA4 ZENC2 /p setx load msg i 4 msglen i sub 2 copy gt {exch} if pop g
SP06041028ZBWIPPMXDINA4 ZENC2 etinterval prefixinset def\n
SP06042022ZBWIPPMXDINA4 ZENC2 p 1 eq {\n
SP06043034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06044037ZBWIPPMXDINA4 ZENC2 char1 setx load enc\n
SP06045032ZBWIPPMXDINA4 ZENC2 /i i 1 add def\n
SP06046018ZBWIPPMXDINA4 ZENC2 } if\n
SP06047022ZBWIPPMXDINA4 ZENC2 p 2 eq {\n
SP06048034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06049037ZBWIPPMXDINA4 ZENC2 char1 setx load enc\n
SP06050034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06051037ZBWIPPMXDINA4 ZENC2 char2 setx load enc\n
SP06052032ZBWIPPMXDINA4 ZENC2 /i i 2 add def\n
SP06053018ZBWIPPMXDINA4 ZENC2 } if\n
SP06054022ZBWIPPMXDINA4 ZENC2 p 3 eq {\n
SP06055034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06056037ZBWIPPMXDINA4 ZENC2 char1 setx load enc\n
SP06057034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06058037ZBWIPPMXDINA4 ZENC2 char2 setx load enc\n
SP06059034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06060037ZBWIPPMXDINA4 ZENC2 char3 setx load enc\n
SP06061032ZBWIPPMXDINA4 ZENC2 /i i 3 add def\n
SP06062018ZBWIPPMXDINA4 ZENC2 } if\n
SP06063022ZBWIPPMXDINA4 ZENC2 p 4 ge {\n
SP06064034ZBWIPPMXDINA4 ZENC2 sx cset load enc\n
SP06065035ZBWIPPMXDINA4 ZENC2 lkx setx load enc\n
SP06066033ZBWIPPMXDINA4 ZENC2 /cset setx def \n
SP06067018ZBWIPPMXDINA4 ZENC2 } if\n
SP06068006ZBWIPPMXDINA4 ZENC2 \n
SP06069018ZBWIPPMXDINA4 ZENC2 exit\n
SP06070018ZBWIPPMXDINA4 ZENC2 } loop \n
SP06071012ZBWIPPMXDINA4 ZENC2 } loop\n
SP06072037ZBWIPPMXDINA4 ZENC2 /encmsg out 0 j getinterval def\n
SP06073036ZBWIPPMXDINA4 ZENC2 /padval cset load pad get def \n
SP06074006ZBWIPPMXDINA4 ZENC2 \n
SP06075018ZBWIPPMXDINA4 ZENC2 /sami [] def\n
SP06076017ZBWIPPMXDINA4 ZENC2 sam -1 ne {\n
SP06077027ZBWIPPMXDINA4 ZENC2 /sami 2 array def\n
SP06078034ZBWIPPMXDINA4 ZENC2 sami 0 seta pad get put \n
SP06079065ZBWIPPMXDINA4 ZENC2 sami 1 sam 10 idiv 1 sub 8 mul sam 10 mod 1 sub add put\n
SP06080010ZBWIPPMXDINA4 ZENC2 } if\n
SP06081053ZBWIPPMXDINA4 ZENC2 /encmsg [ sami aload pop encmsg aload pop ] def\n
SP06082006ZBWIPPMXDINA4 ZENC2 \n
SP06083030ZBWIPPMXDINA4 ZENC2 mode 2 eq mode 3 eq or {\n
SP06084010ZBWIPPMXDINA4 ZENC2 \n
SP06085071ZBWIPPMXDINA4 ZENC2 /mdb (0000) 4 string copy dup mode cvi 2 4 string cvrs dup leng
SP06086036ZBWIPPMXDINA4 ZENC2 th 4 exch sub exch putinterval def\n
SP06087071ZBWIPPMXDINA4 ZENC2 /ccb (0000000000) 10 string copy dup ccode cvi 2 10 string cvrs
SP06088046ZBWIPPMXDINA4 ZENC2 dup length 10 exch sub exch putinterval def\n
SP06089071ZBWIPPMXDINA4 ZENC2 /scb (0000000000) 10 string copy dup scode cvi 2 10 string cvrs
SP06090046ZBWIPPMXDINA4 ZENC2 dup length 10 exch sub exch putinterval def\n
SP06091071ZBWIPPMXDINA4 ZENC2 /pcb (000000000000000000000000000000000000) 36 string copy def\
SP06092001ZBWIPPMXDINA4 ZENC2 n
SP06093021ZBWIPPMXDINA4 ZENC2 mode 2 eq {\n
SP06094014ZBWIPPMXDINA4 ZENC2 \n
SP06095071ZBWIPPMXDINA4 ZENC2 pcb pcode length 2 6 string cvrs dup length 6 exch sub exch
SP06096014ZBWIPPMXDINA4 ZENC2 putinterval\n
SP06097070ZBWIPPMXDINA4 ZENC2 pcb pcode cvi 2 30 string cvrs dup length 36 exch sub exch
SP06098014ZBWIPPMXDINA4 ZENC2 putinterval\n
SP06099015ZBWIPPMXDINA4 ZENC2 } { \n
SP06100014ZBWIPPMXDINA4 ZENC2 \n
SP06101022ZBWIPPMXDINA4 ZENC2 /pccw [ \n
SP06102071ZBWIPPMXDINA4 ZENC2 ( ) 6 string copy dup 0 pcode length 6 gt {pcode 0
SP06103045ZBWIPPMXDINA4 ZENC2 6 getinterval} {pcode} ifelse putinterval \n
SP06104040ZBWIPPMXDINA4 ZENC2 {seta exch get} forall\n
SP06105019ZBWIPPMXDINA4 ZENC2 ] def\n
SP06106021ZBWIPPMXDINA4 ZENC2 0 1 5 {\n
SP06107029ZBWIPPMXDINA4 ZENC2 /i exch def\n
SP06108071ZBWIPPMXDINA4 ZENC2 pcb pccw i get 2 6 string cvrs dup length 6 i mul 6 add
SP06109028ZBWIPPMXDINA4 ZENC2 exch sub exch putinterval\n
SP06110019ZBWIPPMXDINA4 ZENC2 } for\n
SP06111018ZBWIPPMXDINA4 ZENC2 } ifelse\n
SP06112010ZBWIPPMXDINA4 ZENC2 \n
SP06113028ZBWIPPMXDINA4 ZENC2 /scm 60 string def\n
SP06114032ZBWIPPMXDINA4 ZENC2 scm 2 mdb putinterval\n
SP06115049ZBWIPPMXDINA4 ZENC2 scm 38 pcb 0 4 getinterval putinterval\n
SP06116049ZBWIPPMXDINA4 ZENC2 scm 30 pcb 4 6 getinterval putinterval\n
SP06117049ZBWIPPMXDINA4 ZENC2 scm 24 pcb 10 6 getinterval putinterval\n
SP06118049ZBWIPPMXDINA4 ZENC2 scm 18 pcb 16 6 getinterval putinterval\n
SP06119049ZBWIPPMXDINA4 ZENC2 scm 12 pcb 22 6 getinterval putinterval\n
SP06120049ZBWIPPMXDINA4 ZENC2 scm 6 pcb 28 6 getinterval putinterval\n
SP06121049ZBWIPPMXDINA4 ZENC2 scm 0 pcb 34 2 getinterval putinterval\n
SP06122049ZBWIPPMXDINA4 ZENC2 scm 52 ccb 0 2 getinterval putinterval\n
SP06123049ZBWIPPMXDINA4 ZENC2 scm 42 ccb 2 6 getinterval putinterval\n
SP06124049ZBWIPPMXDINA4 ZENC2 scm 36 ccb 8 2 getinterval putinterval\n
SP06125049ZBWIPPMXDINA4 ZENC2 scm 54 scb 0 6 getinterval putinterval\n
SP06126049ZBWIPPMXDINA4 ZENC2 scm 48 scb 6 4 getinterval putinterval\n
SP06127010ZBWIPPMXDINA4 ZENC2 \n
SP06128042ZBWIPPMXDINA4 ZENC2 /pri [ 0 0 0 0 0 0 0 0 0 0 ] def\n
SP06129019ZBWIPPMXDINA4 ZENC2 0 1 59 { \n
SP06130025ZBWIPPMXDINA4 ZENC2 /i exch def\n
SP06131030ZBWIPPMXDINA4 ZENC2 /ps i 6 idiv def\n
SP06132066ZBWIPPMXDINA4 ZENC2 /ep 2 5 i 6 mod sub exp cvi scm i get 48 sub mul def\n
SP06133042ZBWIPPMXDINA4 ZENC2 pri ps pri ps get ep add put\n
SP06134015ZBWIPPMXDINA4 ZENC2 } for\n
SP06135010ZBWIPPMXDINA4 ZENC2 \n
SP06136041ZBWIPPMXDINA4 ZENC2 /sec [ 84 {padval} repeat ] def\n
SP06137034ZBWIPPMXDINA4 ZENC2 sec 0 encmsg putinterval\n
SP06138010ZBWIPPMXDINA4 ZENC2 } if\n
SP06139006ZBWIPPMXDINA4 ZENC2 \n
SP06140057ZBWIPPMXDINA4 ZENC2 mode 4 eq mode 5 eq or mode 6 eq or mode -1 eq or {\n
SP06141010ZBWIPPMXDINA4 ZENC2 \n
SP06142022ZBWIPPMXDINA4 ZENC2 mode -1 eq {\n
SP06143058ZBWIPPMXDINA4 ZENC2 /mode encmsg length 77 le {5} {4} ifelse def\n
SP06144014ZBWIPPMXDINA4 ZENC2 } if\n
SP06145010ZBWIPPMXDINA4 ZENC2 \n
SP06146065ZBWIPPMXDINA4 ZENC2 /cws [ mode 5 eq {78} {94} ifelse {padval} repeat ] def\n
SP06147024ZBWIPPMXDINA4 ZENC2 cws 0 mode put\n
SP06148034ZBWIPPMXDINA4 ZENC2 cws 1 encmsg putinterval\n
SP06149010ZBWIPPMXDINA4 ZENC2 \n
SP06150039ZBWIPPMXDINA4 ZENC2 /pri cws 0 10 getinterval def\n
SP06151055ZBWIPPMXDINA4 ZENC2 /sec cws 10 cws length 10 sub getinterval def\n
SP06152010ZBWIPPMXDINA4 ZENC2 } if\n
SP06153006ZBWIPPMXDINA4 ZENC2 \n
SP06154034ZBWIPPMXDINA4 ZENC2 /rstable 64 64 mul array def\n
SP06155045ZBWIPPMXDINA4 ZENC2 rstable 0 [ 64 {0} repeat ] putinterval\n
SP06156046ZBWIPPMXDINA4 ZENC2 rstable 64 [ 0 1 63 {} for ] putinterval\n
SP06157017ZBWIPPMXDINA4 ZENC2 /prev 1 def\n
SP06158017ZBWIPPMXDINA4 ZENC2 64 { \n
SP06159035ZBWIPPMXDINA4 ZENC2 /next prev 1 bitshift def\n
SP06160028ZBWIPPMXDINA4 ZENC2 next 64 and 0 ne {\n
SP06161035ZBWIPPMXDINA4 ZENC2 /next next 67 xor def\n
SP06162022ZBWIPPMXDINA4 ZENC2 } if \n
SP06163018ZBWIPPMXDINA4 ZENC2 0 1 63 {\n
SP06164025ZBWIPPMXDINA4 ZENC2 /j exch def\n
SP06165055ZBWIPPMXDINA4 ZENC2 /nextcell {rstable 64 next mul j add} def\n
SP06166067ZBWIPPMXDINA4 ZENC2 nextcell rstable 64 prev mul j add get 1 bitshift put\n
SP06167040ZBWIPPMXDINA4 ZENC2 nextcell get 64 and 0 ne {\n
SP06168050ZBWIPPMXDINA4 ZENC2 nextcell nextcell get 67 xor put\n
SP06169018ZBWIPPMXDINA4 ZENC2 } if\n
SP06170015ZBWIPPMXDINA4 ZENC2 } for\n
SP06171024ZBWIPPMXDINA4 ZENC2 /prev next def\n
SP06172014ZBWIPPMXDINA4 ZENC2 } repeat\n
SP06173006ZBWIPPMXDINA4 ZENC2 \n
SP06174047ZBWIPPMXDINA4 ZENC2 /pgen [46 44 49 3 2 57 42 39 28 31 1] def\n
SP06175064ZBWIPPMXDINA4 ZENC2 /rscodes [ 10 {0} repeat 9 -1 0 { pri exch get } for ] def\n
SP06176034ZBWIPPMXDINA4 ZENC2 rscodes length 11 sub -1 0 {\n
SP06177021ZBWIPPMXDINA4 ZENC2 /i exch def\n
SP06178018ZBWIPPMXDINA4 ZENC2 0 1 10 {\n
SP06179025ZBWIPPMXDINA4 ZENC2 /j exch def\n
SP06180049ZBWIPPMXDINA4 ZENC2 rscodes i j add rscodes i j add get\n
SP06181068ZBWIPPMXDINA4 ZENC2 rstable 64 pgen j get mul rscodes i 10 add get add get\n
SP06182021ZBWIPPMXDINA4 ZENC2 xor put\n
SP06183015ZBWIPPMXDINA4 ZENC2 } for\n
SP06184011ZBWIPPMXDINA4 ZENC2 } for\n
SP06185053ZBWIPPMXDINA4 ZENC2 /prichk [ 9 -1 0 { rscodes exch get } for ] def\n
SP06186006ZBWIPPMXDINA4 ZENC2 \n
SP06187061ZBWIPPMXDINA4 ZENC2 /seco [ 0 2 sec length 1 sub { sec exch get } for ] def\n
SP06188061ZBWIPPMXDINA4 ZENC2 /sece [ 1 2 sec length 1 sub { sec exch get } for ] def\n
SP06189006ZBWIPPMXDINA4 ZENC2 \n
SP06190026ZBWIPPMXDINA4 ZENC2 sec length 84 eq { \n
SP06191071ZBWIPPMXDINA4 ZENC2 /sgen [ 59 23 19 31 33 38 17 22 48 15 36 57 37 22 8 27 33 11 44
SP06192013ZBWIPPMXDINA4 ZENC2 23 1 ] def\n
SP06193011ZBWIPPMXDINA4 ZENC2 } { \n
SP06194070ZBWIPPMXDINA4 ZENC2 /sgen [ 28 11 20 7 43 9 41 34 49 46 37 40 55 34 45 61 13 23 29
SP06195037ZBWIPPMXDINA4 ZENC2 22 10 35 55 41 10 53 45 22 1 ] def\n
SP06196014ZBWIPPMXDINA4 ZENC2 } ifelse\n
SP06197035ZBWIPPMXDINA4 ZENC2 /scodes sgen length 1 sub def\n
SP06198071ZBWIPPMXDINA4 ZENC2 /rscodes [ scodes {0} repeat seco length 1 sub -1 0 { seco exch get
SP06199014ZBWIPPMXDINA4 ZENC2 } for ] def\n
SP06200044ZBWIPPMXDINA4 ZENC2 rscodes length scodes sub 1 sub -1 0 {\n
SP06201021ZBWIPPMXDINA4 ZENC2 /i exch def\n
SP06202022ZBWIPPMXDINA4 ZENC2 0 1 scodes {\n
SP06203025ZBWIPPMXDINA4 ZENC2 /j exch def\n
SP06204049ZBWIPPMXDINA4 ZENC2 rscodes i j add rscodes i j add get\n
SP06205071ZBWIPPMXDINA4 ZENC2 rstable 64 sgen j get mul rscodes i scodes add get add get\
SP06206001ZBWIPPMXDINA4 ZENC2 n
SP06207021ZBWIPPMXDINA4 ZENC2 xor put\n
SP06208015ZBWIPPMXDINA4 ZENC2 } for\n
SP06209011ZBWIPPMXDINA4 ZENC2 } for\n
SP06210065ZBWIPPMXDINA4 ZENC2 /secochk [ scodes 1 sub -1 0 { rscodes exch get } for ] def\n
SP06211071ZBWIPPMXDINA4 ZENC2 /rscodes [ scodes {0} repeat sece length 1 sub -1 0 { sece exch get
SP06212014ZBWIPPMXDINA4 ZENC2 } for ] def\n
SP06213044ZBWIPPMXDINA4 ZENC2 rscodes length scodes sub 1 sub -1 0 {\n
SP06214021ZBWIPPMXDINA4 ZENC2 /i exch def\n
SP06215022ZBWIPPMXDINA4 ZENC2 0 1 scodes {\n
SP06216025ZBWIPPMXDINA4 ZENC2 /j exch def\n
SP06217049ZBWIPPMXDINA4 ZENC2 rscodes i j add rscodes i j add get\n
SP06218071ZBWIPPMXDINA4 ZENC2 rstable 64 sgen j get mul rscodes i scodes add get add get\
SP06219001ZBWIPPMXDINA4 ZENC2 n
SP06220021ZBWIPPMXDINA4 ZENC2 xor put\n
SP06221015ZBWIPPMXDINA4 ZENC2 } for\n
SP06222011ZBWIPPMXDINA4 ZENC2 } for\n
SP06223065ZBWIPPMXDINA4 ZENC2 /secechk [ scodes 1 sub -1 0 { rscodes exch get } for ] def\n
SP06224006ZBWIPPMXDINA4 ZENC2 \n
SP06225071ZBWIPPMXDINA4 ZENC2 /secchk [ 0 1 scodes 1 sub { dup secochk exch get exch secechk exch
SP06226018ZBWIPPMXDINA4 ZENC2 get } for ] def\n
SP06227006ZBWIPPMXDINA4 ZENC2 \n
SP06228018ZBWIPPMXDINA4 ZENC2 /codewords [\n
SP06229024ZBWIPPMXDINA4 ZENC2 pri {} forall \n
SP06230026ZBWIPPMXDINA4 ZENC2 prichk {} forall\n
SP06231024ZBWIPPMXDINA4 ZENC2 sec {} forall \n
SP06232026ZBWIPPMXDINA4 ZENC2 secchk {} forall\n
SP06233011ZBWIPPMXDINA4 ZENC2 ] def\n
SP06234006ZBWIPPMXDINA4 ZENC2 \n
SP06235034ZBWIPPMXDINA4 ZENC2 /mods [ 864 {0} repeat ] def\n
SP06236015ZBWIPPMXDINA4 ZENC2 0 1 143 {\n
SP06237021ZBWIPPMXDINA4 ZENC2 /i exch def\n
SP06238069ZBWIPPMXDINA4 ZENC2 /cw [ codewords i get 2 6 string cvrs {48 sub} forall ] def\n
SP06239057ZBWIPPMXDINA4 ZENC2 mods 6 i mul 6 cw length sub add cw putinterval\n
SP06240011ZBWIPPMXDINA4 ZENC2 } for\n
SP06241006ZBWIPPMXDINA4 ZENC2 \n
SP06242015ZBWIPPMXDINA4 ZENC2 /modmap [\n
SP06243071ZBWIPPMXDINA4 ZENC2 469 529 286 316 347 346 673 672 703 702 647 676 283 282 313 312
SP06244019ZBWIPPMXDINA4 ZENC2 370 610 618 379 \n
SP06245071ZBWIPPMXDINA4 ZENC2 378 409 408 439 705 704 559 589 588 619 458 518 640 701 675 674
SP06246019ZBWIPPMXDINA4 ZENC2 285 284 315 314 \n
SP06247071ZBWIPPMXDINA4 ZENC2 310 340 531 289 288 319 349 348 456 486 517 516 471 470 369 368
SP06248019ZBWIPPMXDINA4 ZENC2 399 398 429 428 \n
SP06249071ZBWIPPMXDINA4 ZENC2 549 548 579 578 609 608 649 648 679 678 709 708 639 638 669 668
SP06250019ZBWIPPMXDINA4 ZENC2 699 698 279 278 \n
SP06251071ZBWIPPMXDINA4 ZENC2 309 308 339 338 381 380 411 410 441 440 561 560 591 590 621 620
SP06252019ZBWIPPMXDINA4 ZENC2 547 546 577 576 \n
SP06253000ZBWIPPMXDINA4 ZENC2
SP06000017ZBWIPPMXDINA4 ZENC3 BWIPP encode qr 3
SP06001026ZBWIPPMXDINA4 ZENC3 ##usage: BWIPP encode qr 3
SP06002036ZBWIPPMXDINA4 ZENC3 ##DO NOT CHANGE the first two lines!
SP06003071ZBWIPPMXDINA4 ZENC3 607 606 367 366 397 396 427 426 291 290 321 320 351 350 651 650
SP06004019ZBWIPPMXDINA4 ZENC3 681 680 711 710 \n
SP06005070ZBWIPPMXDINA4 ZENC3 1 0 31 30 61 60 3 2 33 32 63 62 5 4 35 34
SP06006020ZBWIPPMXDINA4 ZENC3 65 64 7 6 \n
SP06007070ZBWIPPMXDINA4 ZENC3 37 36 67 66 9 8 39 38 69 68 11 10 41 40 71 70
SP06008020ZBWIPPMXDINA4 ZENC3 13 12 43 42 \n
SP06009070ZBWIPPMXDINA4 ZENC3 73 72 15 14 45 44 75 74 17 16 47 46 77 76 19 18
SP06010020ZBWIPPMXDINA4 ZENC3 49 48 79 78 \n
SP06011070ZBWIPPMXDINA4 ZENC3 21 20 51 50 81 80 23 22 53 52 83 82 25 24 55 54
SP06012020ZBWIPPMXDINA4 ZENC3 85 84 27 26 \n
SP06013071ZBWIPPMXDINA4 ZENC3 57 56 87 86 117 116 147 146 177 176 115 114 145 144 175 174
SP06014019ZBWIPPMXDINA4 ZENC3 113 112 143 142 \n
SP06015071ZBWIPPMXDINA4 ZENC3 173 172 111 110 141 140 171 170 109 108 139 138 169 168 107 106
SP06016019ZBWIPPMXDINA4 ZENC3 137 136 167 166 \n
SP06017071ZBWIPPMXDINA4 ZENC3 105 104 135 134 165 164 103 102 133 132 163 162 101 100 131 130
SP06018019ZBWIPPMXDINA4 ZENC3 161 160 99 98 \n
SP06019071ZBWIPPMXDINA4 ZENC3 129 128 159 158 97 96 127 126 157 156 95 94 125 124 155 154
SP06020019ZBWIPPMXDINA4 ZENC3 93 92 123 122 \n
SP06021071ZBWIPPMXDINA4 ZENC3 153 152 91 90 121 120 151 150 181 180 211 210 241 240 183 182
SP06022019ZBWIPPMXDINA4 ZENC3 213 212 243 242 \n
SP06023071ZBWIPPMXDINA4 ZENC3 185 184 215 214 245 244 187 186 217 216 247 246 189 188 219 218
SP06024019ZBWIPPMXDINA4 ZENC3 249 248 191 190 \n
SP06025071ZBWIPPMXDINA4 ZENC3 221 220 251 250 193 192 223 222 253 252 195 194 225 224 255 254
SP06026019ZBWIPPMXDINA4 ZENC3 197 196 227 226 \n
SP06027071ZBWIPPMXDINA4 ZENC3 257 256 199 198 229 228 259 258 201 200 231 230 261 260 203 202
SP06028019ZBWIPPMXDINA4 ZENC3 233 232 263 262 \n
SP06029071ZBWIPPMXDINA4 ZENC3 205 204 235 234 265 264 207 206 237 236 267 266 297 296 327 326
SP06030019ZBWIPPMXDINA4 ZENC3 357 356 295 294 \n
SP06031071ZBWIPPMXDINA4 ZENC3 325 324 355 354 293 292 323 322 353 352 277 276 307 306 337 336
SP06032019ZBWIPPMXDINA4 ZENC3 275 274 305 304 \n
SP06033071ZBWIPPMXDINA4 ZENC3 335 334 273 272 303 302 333 332 271 270 301 300 331 330 361 360
SP06034019ZBWIPPMXDINA4 ZENC3 391 390 421 420 \n
SP06035071ZBWIPPMXDINA4 ZENC3 363 362 393 392 423 422 365 364 395 394 425 424 383 382 413 412
SP06036019ZBWIPPMXDINA4 ZENC3 443 442 385 384 \n
SP06037071ZBWIPPMXDINA4 ZENC3 415 414 445 444 387 386 417 416 447 446 477 476 507 506 537 536
SP06038019ZBWIPPMXDINA4 ZENC3 475 474 505 504 \n
SP06039071ZBWIPPMXDINA4 ZENC3 535 534 473 472 503 502 533 532 455 454 485 484 515 514 453 452
SP06040019ZBWIPPMXDINA4 ZENC3 483 482 513 512 \n
SP06041071ZBWIPPMXDINA4 ZENC3 451 450 481 480 511 510 541 540 571 570 601 600 543 542 573 572
SP06042019ZBWIPPMXDINA4 ZENC3 603 602 545 544 \n
SP06043071ZBWIPPMXDINA4 ZENC3 575 574 605 604 563 562 593 592 623 622 565 564 595 594 625 624
SP06044019ZBWIPPMXDINA4 ZENC3 567 566 597 596 \n
SP06045071ZBWIPPMXDINA4 ZENC3 627 626 657 656 687 686 717 716 655 654 685 684 715 714 653 652
SP06046019ZBWIPPMXDINA4 ZENC3 683 682 713 712 \n
SP06047071ZBWIPPMXDINA4 ZENC3 637 636 667 666 697 696 635 634 665 664 695 694 633 632 663 662
SP06048019ZBWIPPMXDINA4 ZENC3 693 692 631 630 \n
SP06049071ZBWIPPMXDINA4 ZENC3 661 660 691 690 721 720 751 750 781 780 723 722 753 752 783 782
SP06050019ZBWIPPMXDINA4 ZENC3 725 724 755 754 \n
SP06051071ZBWIPPMXDINA4 ZENC3 785 784 727 726 757 756 787 786 729 728 759 758 789 788 731 730
SP06052019ZBWIPPMXDINA4 ZENC3 761 760 791 790 \n
SP06053071ZBWIPPMXDINA4 ZENC3 733 732 763 762 793 792 735 734 765 764 795 794 737 736 767 766
SP06054019ZBWIPPMXDINA4 ZENC3 797 796 739 738 \n
SP06055071ZBWIPPMXDINA4 ZENC3 769 768 799 798 741 740 771 770 801 800 743 742 773 772 803 802
SP06056019ZBWIPPMXDINA4 ZENC3 745 744 775 774 \n
SP06057071ZBWIPPMXDINA4 ZENC3 805 804 747 746 777 776 807 806 837 836 867 866 897 896 835 834
SP06058019ZBWIPPMXDINA4 ZENC3 865 864 895 894 \n
SP06059071ZBWIPPMXDINA4 ZENC3 833 832 863 862 893 892 831 830 861 860 891 890 829 828 859 858
SP06060019ZBWIPPMXDINA4 ZENC3 889 888 827 826 \n
SP06061071ZBWIPPMXDINA4 ZENC3 857 856 887 886 825 824 855 854 885 884 823 822 853 852 883 882
SP06062019ZBWIPPMXDINA4 ZENC3 821 820 851 850 \n
SP06063071ZBWIPPMXDINA4 ZENC3 881 880 819 818 849 848 879 878 817 816 847 846 877 876 815 814
SP06064019ZBWIPPMXDINA4 ZENC3 845 844 875 874 \n
SP06065071ZBWIPPMXDINA4 ZENC3 813 812 843 842 873 872 811 810 841 840 871 870 901 900 931 930
SP06066019ZBWIPPMXDINA4 ZENC3 961 960 903 902 \n
SP06067071ZBWIPPMXDINA4 ZENC3 933 932 963 962 905 904 935 934 965 964 907 906 937 936 967 966
SP06068019ZBWIPPMXDINA4 ZENC3 909 908 939 938 \n
SP06069071ZBWIPPMXDINA4 ZENC3 969 968 911 910 941 940 971 970 913 912 943 942 973 972 915 914
SP06070019ZBWIPPMXDINA4 ZENC3 945 944 975 974 \n
SP06071071ZBWIPPMXDINA4 ZENC3 917 916 947 946 977 976 919 918 949 948 979 978 921 920 951 950
SP06072019ZBWIPPMXDINA4 ZENC3 981 980 923 922 \n
SP06073071ZBWIPPMXDINA4 ZENC3 953 952 983 982 925 924 955 954 985 984 927 926 957 956 987 986
SP06074019ZBWIPPMXDINA4 ZENC3 58 89 88 118 \n
SP06075071ZBWIPPMXDINA4 ZENC3 149 148 178 209 208 238 269 268 298 329 328 358 389 388 418 449
SP06076019ZBWIPPMXDINA4 ZENC3 448 478 509 508 \n
SP06077071ZBWIPPMXDINA4 ZENC3 538 569 568 598 629 628 658 689 688 718 749 748 778 809 808 838
SP06078019ZBWIPPMXDINA4 ZENC3 869 868 898 929 \n
SP06079025ZBWIPPMXDINA4 ZENC3 928 958 989 988\n
SP06080011ZBWIPPMXDINA4 ZENC3 ] def\n
SP06081006ZBWIPPMXDINA4 ZENC3 \n
SP06082025ZBWIPPMXDINA4 ZENC3 /pixs 864 array def\n
SP06083014ZBWIPPMXDINA4 ZENC3 /j 0 def\n
SP06084029ZBWIPPMXDINA4 ZENC3 0 1 mods length 1 sub {\n
SP06085021ZBWIPPMXDINA4 ZENC3 /i exch def\n
SP06086027ZBWIPPMXDINA4 ZENC3 mods i get 1 eq {\n
SP06087037ZBWIPPMXDINA4 ZENC3 pixs j modmap i get put\n
SP06088028ZBWIPPMXDINA4 ZENC3 /j j 1 add def\n
SP06089014ZBWIPPMXDINA4 ZENC3 } if\n
SP06090011ZBWIPPMXDINA4 ZENC3 } for\n
SP06091071ZBWIPPMXDINA4 ZENC3 /pixs [ pixs 0 j getinterval {} forall 28 29 280 281 311 457 488 50
SP06092029ZBWIPPMXDINA4 ZENC3 0 530 670 700 677 707 ] def\n
SP06093006ZBWIPPMXDINA4 ZENC3 \n
SP06094008ZBWIPPMXDINA4 ZENC3 <<\n
SP06095026ZBWIPPMXDINA4 ZENC3 /ren //renmaximatrix\n
SP06096016ZBWIPPMXDINA4 ZENC3 /pixs pixs\n
SP06097018ZBWIPPMXDINA4 ZENC3 /opt options\n
SP06098008ZBWIPPMXDINA4 ZENC3 >>\n
SP06099037ZBWIPPMXDINA4 ZENC3 dontdraw not //renmaximatrix if\n
SP06100009ZBWIPPMXDINA4 ZENC3 end\n
SP06101012ZBWIPPMXDINA4 ZENC3 } bind def\n
SP06102064ZBWIPPMXDINA4 ZENC3 /maxicode dup load /uk.co.terryburton.bwipp defineresource pop\n
SP06103005ZBWIPPMXDINA4 ZENC3 end\n
SP06104039ZBWIPPMXDINA4 ZENC3 /setpacking where {pop setpacking} if\n
SP06105000ZBWIPPMXDINA4 ZENC3
SP06000020ZBWIPPMXDINA4 ZREND3 BWIPP rend renmatrix
SP06001029ZBWIPPMXDINA4 ZREND3 ##usage: BWIPP rend renmatrix
SP06002036ZBWIPPMXDINA4 ZREND3 ##DO NOT CHANGE the first two lines!
SP06003059ZBWIPPMXDINA4 ZREND3 /setpacking where {pop currentpacking true setpacking} if\n
SP06004008ZBWIPPMXDINA4 ZREND3 1 dict\n
SP06005007ZBWIPPMXDINA4 ZREND3 begin\n
SP06006018ZBWIPPMXDINA4 ZREND3 /renmaximatrix {\n
SP06007019ZBWIPPMXDINA4 ZREND3 20 dict begin\n
SP06008023ZBWIPPMXDINA4 ZREND3 /args exch def \n
SP06009006ZBWIPPMXDINA4 ZREND3 \n
SP06010023ZBWIPPMXDINA4 ZREND3 args {def} forall\n
SP06011022ZBWIPPMXDINA4 ZREND3 opt {def} forall\n
SP06012003ZBWIPPMXDINA4 ZREND3 \n
SP06013011ZBWIPPMXDINA4 ZREND3 gsave\n
SP06014028ZBWIPPMXDINA4 ZREND3 currentpoint translate\n
SP06015024ZBWIPPMXDINA4 ZREND3 2.4945 dup scale \n
SP06016026ZBWIPPMXDINA4 ZREND3 0.5 0.5774 translate\n
SP06017012ZBWIPPMXDINA4 ZREND3 pixs {\n
SP06018014ZBWIPPMXDINA4 ZREND3 dup \n
SP06019029ZBWIPPMXDINA4 ZREND3 /x exch 30 mod def \n
SP06020029ZBWIPPMXDINA4 ZREND3 /y exch 30 idiv def\n
SP06021045ZBWIPPMXDINA4 ZREND3 y 2 mod 0 eq {x} {x 0.5 add} ifelse\n
SP06022029ZBWIPPMXDINA4 ZREND3 32 y sub 0.8661 mul\n
SP06023016ZBWIPPMXDINA4 ZREND3 moveto\n
SP06024030ZBWIPPMXDINA4 ZREND3 0 0.5774 rmoveto\n
SP06025030ZBWIPPMXDINA4 ZREND3 -0.5 -0.2887 rlineto\n
SP06026030ZBWIPPMXDINA4 ZREND3 0 -0.5774 rlineto\n
SP06027030ZBWIPPMXDINA4 ZREND3 0.5 -0.2887 rlineto\n
SP06028030ZBWIPPMXDINA4 ZREND3 0.5 0.2887 rlineto\n
SP06029030ZBWIPPMXDINA4 ZREND3 0 0.5774 rlineto\n
SP06030030ZBWIPPMXDINA4 ZREND3 -0.5 0.2887 rlineto\n
SP06031024ZBWIPPMXDINA4 ZREND3 closepath fill\n
SP06032014ZBWIPPMXDINA4 ZREND3 } forall\n
SP06033006ZBWIPPMXDINA4 ZREND3 \n
SP06034051ZBWIPPMXDINA4 ZREND3 newpath 14 13.8576 0.5774 0 360 arc closepath\n
SP06035049ZBWIPPMXDINA4 ZREND3 14 13.8576 1.3359 360 0 arcn closepath fill\n
SP06036051ZBWIPPMXDINA4 ZREND3 newpath 14 13.8576 2.1058 0 360 arc closepath\n
SP06037049ZBWIPPMXDINA4 ZREND3 14 13.8576 2.8644 360 0 arcn closepath fill\n
SP06038051ZBWIPPMXDINA4 ZREND3 newpath 14 13.8576 3.6229 0 360 arc closepath\n
SP06039049ZBWIPPMXDINA4 ZREND3 14 13.8576 4.3814 360 0 arcn closepath fill\n
SP06040014ZBWIPPMXDINA4 ZREND3 grestore\n
SP06041009ZBWIPPMXDINA4 ZREND3 end\n
SP06042012ZBWIPPMXDINA4 ZREND3 } bind def\n
SP06043069ZBWIPPMXDINA4 ZREND3 /renmaximatrix dup load /uk.co.terryburton.bwipp defineresource pop\n
SP06044005ZBWIPPMXDINA4 ZREND3 end\n
SP06045039ZBWIPPMXDINA4 ZREND3 /setpacking where {pop setpacking} if\n
SP06046000ZBWIPPMXDINA4 ZREND3
SP1DDINA5 DINA5 .S0000000000SAP 1997081213400240A BIN SAP SAP
SP1XDINA5 000000000000000000000000
SP06001006ZBWIPPMXDINA5 CONTROL 001 \n
SP06002072ZBWIPPMXDINA5 CONTROL DEVELOPER 101118N4S 700 DEVELOPER 101118N4S 700 DEVELOPER 101118\n
SP06003072ZBWIPPMXDINA5 CONTROL 0000 \n
SP06004072ZBWIPPMXDINA5 CONTROL \n
SP06001043ZBWIPPMXDINA5 ENDLINE #this is a reference to another device type
SP06002026ZBWIPPMXDINA5 ENDLINE \i<POSTSCPT:DINA5:ENDLINE>
SP06001043ZBWIPPMXDINA5 ENDPAGE #this is a reference to another device type
SP06002026ZBWIPPMXDINA5 ENDPAGE \i<POSTSCPT:DINA5:ENDPAGE>
SP06001043ZBWIPPMXDINA5 LEAVE #this is a reference to another device type
SP06002024ZBWIPPMXDINA5 LEAVE \i<POSTSCPT:DINA5:LEAVE>
SP06001043ZBWIPPMXDINA5 SETUP #this is a reference to another device type