PROCEDURE AppSys
   xbpcrt():New():Create()
   SET CHARSET TO ANSI
   RETURN




Procedure Main()
   Private dato := 'BBBBBBB'
   Proc1()
   inkey(0)
   Return

Procedure Proc1()
   Proc2()
   Return

Procedure Proc2()
   Proc3()
   Return

Procedure Proc3()
   Proc4()
   Return

Procedure Proc4
   LOCAL nSig := 0
   LOCAL cTip := 'v'
   nSig := If( cTip, 1, -1)
   m->dato := 'AAAAAAA'

   RETURN