... #define CR chr(13) FUNCTION Main() * begin PRIVATE oWnd PRIVATE cLog := "" PRIVATE nCant := 1 , oCant PRIVATE nExist := 0 private oInvPC , oMsg PRIVATE cBarCode := space(15) , oBarCode PRIVATE files_dir := "\\caja1\c\" PRIVATE cEncargado := space(15) , oEncargado PRIVATE cCurDir := curdir() ...