visionmercer/cimp
Watch
1
0
Fork
You've already forked cimp
 0
Code Issues 6 Pull requests Projects Releases 2 Packages Wiki Activity Actions

Remove useless code

Browse source
This commit is contained in:
visionmercer 2026-10-01 13:15:43 +02:00
commit 4d5522f1bf
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
cimp.bas
View file

@ -669,12 +669,9 @@ end function
function ulen% (txt$) function ulen% (txt$)
dim count%,i%,b% dim count%,i%,b%
count%=0
for i%=1 to len(txt$) for i%=1 to len(txt$)
b%=asc(txt$,i%) b%=asc(txt$,i%)
if (b% and &h80)=0 or (b% and &hc0)=&hc0 then if (b% and &h80)=0 or (b% and &hc0)=&hc0 then count%=count%+1
count%=count%+1
end if
next next
ulen%=count% ulen%=count%
end function end function