I thought i had data compression accomplished , and then found the bug...
Code: Select all
screen 19
print cvs("A")
print cvshort("A")
print cvs("AA")
print cvshort("AA")
sleep
end
Code: Select all
screen 19
print cvs("A")
print cvshort("A")
print cvs("AA")
print cvshort("AA")
sleep
end
Code: Select all
screen 19
dim as ulongint n1
dim as ushort n2
print cvshort( chr(200) )
print cvshort ( chr(200) + chr(200) )
n1 = cvshort ( chr(200) + chr(200) )
print n1
n2 = cvshort ( chr(200) + chr(200) )
print n2
sleep
end
Code: Select all
dim as string s = chr(200)
print cvshort(s & chr(0))
print cvs(s & string(3, 0))