begin sequence

[Silvio.Falconi]

How converte an old clipper prg into fwh ?

I have at init

Code: Select all  Expand view  RUN

begin sequence

then the procedure makes a particular calculation

and on a Cicle Do while

Code: Select all  Expand view  RUN

do while (Val(num1) < 90)
         do while (Val(num2) <= 90)
           if (InKey() == K_ESC)
               break
            endif

 

then at end

Code: Select all  Expand view  RUN

 enddo
end sequence

How translate this
if (InKey() == K_ESC)
               break
            endif