strang error

[Emil_halim]

Hi all

This old demo gives a wrong results !!! , any help please?


Dim a$ = Space$(30)
Call (LabelAddr(xMemClr)) ( _EDI = V:a$, _ECX = 30)
Print a$
Do
 Sleep
Until Me Is Nothing

If 0
 xMemClr:  . mov al, 67 :  . rep stosb : . ret
EndIf

  it prints  this

CCCCCCCCCCCCCCCCCCCCCCCCCCCC

[scalion]

Hi,
This code works normally (but he's stange too), what is the expected result?

[Emil_halim]

Hi scallion,

thanks , it was my fault , again thenks for your help.