Привет Леха!
Попробуй так:
Код
dim pOldFunctionCLS as sub(ByVal mode As Long = 1)
pOldFunctionCLS = @cls
NAMESPACE A
#undef cls
#macro cls()
print "newcls"
sleep(1000)
#EndMacro
END NAMESPACE
cls()
#UNDEF CLS
dim CLS as sub(ByVal mode As Long = 1)
CLS = pOldFunctionCLS
cls(0) ' очищаем весь экран
print "oldcls"
sleep(1000)
Если параметр для CLS использоваться не будет , то так:
Код
dim pOldFunctionCLS as sub(ByVal mode As Long = 1)
pOldFunctionCLS = @cls
NAMESPACE A
#undef cls
#macro cls()
print "newcls"
sleep(1000)
#EndMacro
END NAMESPACE
cls()
#UNDEF CLS
dim _CLS_ as sub(ByVal mode As Long = 1)
_CLS_ = pOldFunctionCLS
#define CLS _CLS_(0)
cls ' очищаем весь экран
print "oldcls"
sleep(1000)
