Another string related problem (*solved*)

[LCD]

Let me demonstrate this nasty bug...

Code:

sub printerPutString(x as ubyte,y as ubyte,attribute as ubyte,char$ as string) print at y,x;char$ end sub sub Frame(x1 as ubyte,y1 as ubyte,width as ubyte,height as ubyte) printerPutString(x1,y1,6,chr(35)) printerPutString(x1,y1+height,6,chr(35)) printerPutString(x1+width,y1,6,chr(35)) printerPutString(x1+width,y1+height,6,chr(35)) strg$="" for old=1 to width-1 strg$=strg$+chr(33) next old printerPutString(x1+1,y1,7,strg$) printerPutString(x1+1,y1+height,7,strg$) for old=y1+1 to y1+height-1 printerPutString(x1,old,7,chr(34)) printerPutString(x1+width,old,7,chr(34)) next old end sub Frame(15,0,16,5)

This does not work correctly, but it *should* work.
print len strg$ is 15, but in procedure the char$ length is calculated with 0 lchars.
It works if I change the code to this:

Code:

sub printerPutString(x as ubyte,y as ubyte,attribute as ubyte,char$ as string) print at y,x;char$ end sub sub Frame(x1 as ubyte,y1 as ubyte,width as ubyte,height as ubyte) printerPutString(x1,y1,6,chr(35)) printerPutString(x1,y1+height,6,chr(35)) printerPutString(x1+width,y1,6,chr(35)) printerPutString(x1+width,y1+height,6,chr(35)) for old=x1+1 to x1+width-1 printerPutString(old,y1,7,chr(33)) printerPutString(old,y1+height,7,chr(33)) next old for old=y1+1 to y1+height-1 printerPutString(x1,old,7,chr(34)) printerPutString(x1+width,old,7,chr(34)) next old end sub Frame(15,0,16,5)