' the program creates a big string and uses right$ and mid$ functions to get the last 20 chars
' You'll see that when the string become bigger than 32k the results are different!!!

 CONST CRLF=CHR$(13)+CHR$(10)
 DIM ww AS STRING, i AS INTEGER
'**********************************************
 SUB testit

  ww=""

  DO
   ww=ww+STR$(LEN(ww))+"-"
  LOOP UNTIL LEN(ww)>10000

  SHOWMESSAGE "LEN="+STR$(LEN(ww))+CRLF+CRLF+"RIGHT$" + CRLF +RIGHT$(ww,20) + CRLF + CRLF+"MID$" + CHR$(13)+CHR$(10)+MID$(ww,LEN(ww)-19,20)


  DO
   ww=ww+STR$(LEN(ww))+"-"
  LOOP UNTIL LEN(ww)>20000

  SHOWMESSAGE "LEN="+STR$(LEN(ww))+CRLF+CRLF+"RIGHT$" + CRLF +RIGHT$(ww,20) + CRLF + CRLF+"MID$" + CHR$(13)+CHR$(10)+MID$(ww,LEN(ww)-19,20)


  DO
   ww=ww+STR$(LEN(ww))+"-"
  LOOP UNTIL LEN(ww)>30000

  SHOWMESSAGE "LEN="+STR$(LEN(ww))+CRLF+CRLF+"RIGHT$" + CRLF +RIGHT$(ww,20) + CRLF + CRLF+"MID$" + CHR$(13)+CHR$(10)+MID$(ww,LEN(ww)-19,20)


  DO
   ww=ww+STR$(LEN(ww))+"-"
  LOOP UNTIL LEN(ww)>40000

  SHOWMESSAGE "LEN="+STR$(LEN(ww))+CRLF+CRLF+"RIGHT$" + CRLF +RIGHT$(ww,20) + CRLF + CRLF+"MID$" + CHR$(13)+CHR$(10)+MID$(ww,LEN(ww)-19,20)

  DO
   ww=ww+STR$(LEN(ww))+"-"
  LOOP UNTIL LEN(ww)>50000

  SHOWMESSAGE "LEN="+STR$(LEN(ww))+CRLF+CRLF+"RIGHT$" + CRLF +RIGHT$(ww,20) + CRLF + CRLF+"MID$" + CHR$(13)+CHR$(10)+MID$(ww,LEN(ww)-19,20)
 END SUB
'**********************************************

 CREATE Form AS QFORM
  CAPTION = "Form1"
  Width = 320
  Height = 240
  Center
  CREATE Button1 AS QBUTTON
   CAPTION = "Button1"
   Left = 82
   Top = 48
   onclick=testit
  END CREATE
 END CREATE

'Insert your initialization code here

 Form.SHOWMODAL