diff --git a/cimp.bas b/cimp.bas
index 94a335d..48d884d 100644
--- a/cimp.bas
+++ b/cimp.bas
@@ -669,12 +669,9 @@ end function
 
 function ulen% (txt$)
     dim count%,i%,b%
-    count%=0
     for i%=1 to len(txt$)
         b%=asc(txt$,i%)
-        if (b% and &h80)=0 or (b% and &hc0)=&hc0 then
-            count%=count%+1
-        end if
+        if (b% and &h80)=0 or (b% and &hc0)=&hc0 then count%=count%+1
     next
     ulen%=count%
 end function