From 4d5522f1bf23cedfde0f67627655b5fb7ef0dd85 Mon Sep 17 00:00:00 2001
From: visionmercer <na@natp.tag-gym.dk>
Date: Thu, 1 Oct 2026 13:15:43 +0200
Subject: [PATCH] Remove useless code

---
 cimp.bas | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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