Remove useless code

2026-10-01 13:15:43 +02:00 · 2026-10-01 13:15:43 +02:00 · 4d5522f1bf
commit 4d5522f1bf
parent eb50085052
1 changed files with 1 additions and 4 deletions
--- 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