code128: Fix raw mode encoder

Author: terryburton

src/code128.ps.src

@@ -46,11 +46,11 @@ dup /renlinear dup /uk.co.terryburton.bwipp findresource put
 begin
 /code128 {
 
-    20 dict begin                  % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
     /dontdraw false def
-    /includetext false def    % Enable/disable text
+    /includetext false def
     /textfont /Courier def
     /textsize 10.0 def
     /textxoffset 0.0 def
@@ -107,7 +107,13 @@ begin
         } loop
         /cws cws 0 j getinterval def
         /text () def
-    } if
+    } {
+        /text msglen string def
+        0 1 msglen 1 sub {
+            /i exch def
+            text i msg i get dup 0 lt { pop 32 } if put
+        } for
+    } ifelse
 
     % Character maps for each state, used by the legacy encoder
 {
@@ -171,12 +177,6 @@ begin
         /setb charvals 1 get def  setb lka setb swc get put  setb lkc setb swa get put
         /setc charvals 2 get def  setc lka setc swa get put  setc lkc setc swb get put
 
-        /text msglen string def
-        0 1 msglen 1 sub {
-            /i exch def
-            text i msg i get dup 0 lt { pop 32 } if put
-        } for
-
         % Standard and extended ASCII runlength at position
         /numSA [ msglen {0} repeat 0 ] def
         /numEA [ msglen {0} repeat 0 ] def
@@ -403,12 +403,6 @@ begin
         /setb <<fn3 96 fn2 97 fn1 102 stp 106 lka  99 lkc 101>> def
         /setc <<              fn1 102 stp 106 lka 101 lkc 100>> def
 
-        /text msglen string def
-        0 1 msglen 1 sub {
-            /i exch def
-            text i msg i get dup 0 lt { pop 32 } if put
-        } for
-
         % Encoder states are named A0, B0, C0, A1, B1, and C1.
         % A, B, and C are the Code 128 code sets.
         % 0 is for ASCII and 1 is for extended ASCII range.
@@ -575,7 +569,7 @@ begin
     } for
     /csum csum 103 mod def
     cws j csum put
-    cws j 1 add seta stp get put
+    cws j 1 add 106 put  % stp
 
     options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if