Initial changes to improve end of line comments.

1 files changed, 306 insertions, 42 deletions

diff --git a/test/profile5.ok b/test/profile5.ok
index 95c77401..272336b3 100644
--- a/test/profile5.ok
+++ b/test/profile5.ok
@@ -67,7 +67,7 @@ BEGIN {
 	for (; i < 256; i++) {
 		_QSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
 	}
-	_QSTR["\\"] = "\\\\"
+	_QSTR["\\"] = "\\\\"	#; _QSTR["\""]="\\\""
 	#_____________________________________________________________________________
 	
 	_CHR["CR"] = "\r"
@@ -704,6 +704,7 @@ END {
 #_______________________________________________________________________
 function W(p, p0, p1)
 {
+	#####################################################
 	if (isarray(p0)) {
 		delete p0[p]
 		if (isarray(p1)) {
@@ -815,6 +816,7 @@ function _BASE(c, t, P, A)
 #____________________________________________________________________________
 function _DS(c, t, P, a, A)
 {
+	######################################################
 	switch (c) {
 	case "_lib_CMDLN":
 		#___________________________________________________________
@@ -840,6 +842,7 @@ function _DS(c, t, P, a, A)
 #______________________________________________________________________________________________
 function _END()
 {
+	#################################################################################
 }
 
 ########################################################
@@ -914,6 +917,7 @@ function _ERRLOG(c, t, P, a, b, A)
 #______________________________________________________________________________________________
 function _EXIT()
 {
+	################################################################################
 }
 
 ########################################################
@@ -992,13 +996,15 @@ function _FILEIO(c, t, P, A)
 	}
 }
 
-#_____________________________________________________________________________
+############################################################
 function _FILEVER(c, t, P, a, A)
 {
+	#################################################
 	switch (c) {
 	case "_lib_CMDLN":
 		#___________________________________________________________
 		return t
+		#_____________________________________________________________________________
 		#_____________________________________________________
 	case "_lib_APPLY":
 		return 
@@ -1031,6 +1037,7 @@ function _INIT(f)
 #___________________________________________________________________________________
 function _INITBASE()
 {
+	################################################################
 	_egawk_utilpath = ENVIRON["EGAWK_PATH"] "BIN\\UTIL\\"
 }
 
@@ -1072,6 +1079,7 @@ function _INSTRUC(c, t, P)
 #_____________________________________________________________________________
 function _N(F, v, p)
 {
+	###########################################################
 	for (p in _UIDS) {
 		delete _UIDS[p]
 		return _nN_i0(p, F, v)
@@ -1111,6 +1119,7 @@ function _SHORTCUT(c, t, P)
 #______________________________________________________________________________________________
 function _START(t, i, A)
 {
+	#########################################################################
 	_torexp_init()
 	test_uid()
 	return 
@@ -1273,6 +1282,7 @@ function _W(p, A, v)
 #_______________________________________________________________________
 function _Zexparr(S, s, t, i)
 {
+	##############################################
 	t = ""
 	if (isarray(S)) {
 		for (i in S) {
@@ -1324,6 +1334,7 @@ function _Zexparr_i3(t)
 #_______________________________________________________________________
 function _Zimparr(D, t, A, B)
 {
+	##############################################
 	if (isarray(D)) {
 		split(t, A, /\x10/, B)
 		t = _Zimparr_i0(A, B, _Zimparr_i1(D, A, B, 1))
@@ -1374,6 +1385,7 @@ function _Zimparr_i2(t)
 #_____________________________________________________________________________
 function _Zimport(t, p, A, c, i, n, B)
 {
+	##############################################
 	if (p) {
 		c = split(t, B, /\x0A/)
 		for (i = 1; i <= c; i++) {
@@ -1446,6 +1458,7 @@ function _accmpu(A, a, n)
 #_______________________________________________________________________
 function _add(S, sf, D, df)
 {
+	################################################
 	if (sf in S) {
 		if (isarray(S[sf])) {
 			if (df in D) {
@@ -1469,6 +1482,7 @@ function _add(S, sf, D, df)
 #_________________________________________________________________
 function _addarr(D, S)
 {
+	#############################################
 	if (isarray(S)) {
 		_addarr_i0(D, S)
 	}
@@ -1493,6 +1507,7 @@ function _addarr_i0(D, S, i)
 #_______________________________________________________________________
 function _addarrmask(D, S, M)
 {
+	#############################################
 	for (_addarrmaski0 in M) {
 		if (_addarrmaski0 in S) {
 			if (isarray(S[_addarrmaski0])) {
@@ -1525,12 +1540,14 @@ function _addarrmask(D, S, M)
 #_______________________________________________________________________
 function _addf(A, f)
 {
+	#####################################################
 	A["B"][""] = A["F"][A["B"][f] = A["B"][""]] = f
 }
 
 #___________________________________________________________
 function _addfile(f, d, a, b)
 {
+	##################################
 	if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
 		ERRNO = "Filename error"
 		return 
@@ -1556,6 +1573,7 @@ function _addfile(f, d, a, b)
 #_____________________________________________________________________________
 function _addlib(f)
 {
+	###########################################################
 	_addf(_LIBAPI, f)
 }
 
@@ -1566,20 +1584,24 @@ function _addlib(f)
 #_______________________________________________________________________
 function _addlist(A, v)
 {
+	##################################################
 	A[++A[0]] = v
 }
 
-#_______________________________________________________________________
+############################################
 function _bearray(A)
 {
+	####################################################
 	if (isarray(A) || A == 0 && A == "") {
 		return 1
+		#_______________________________________________________________________
 	}
 }
 
 #_________________________________________________________________
 function _bframe(A, t, p)
 {
+	###########################################
 	return _bframe_i0(A, t, p, A[""])
 }
 
@@ -1611,6 +1633,7 @@ function _bframe_i0(A, t, p, f)
 #_______________________________________________________________________
 function _cfguid(p, optr, pfx, sfx, hstrcnt, lstrchr)
 {
+	#################### 0 #
 	delete _UIDOBL[p]
 	if (_isptr(optr)) {
 		if (optr == p) {
@@ -1677,6 +1700,7 @@ function _cfguidl(p, H, L, hi, h, hl, li)
 #____________________________________________________________________________________________________
 function _check(p)
 {
+	####################################################################################
 	_dll_check(p)
 	_file_check(p)
 	_serv_check(p)
@@ -1686,12 +1710,14 @@ function _check(p)
 #_______________________________________________________________________
 function _chrline(t, ts, w, s)
 {
+	#############################################
 	return ((t = " " _tabtospc(t, ts) ((t ? (t ~ /[ \t]$/ ? "" : " ") : ""))) _getchrln((s ? s : "_"), ((w ? w : _CON_WIDTH - 1)) - length(t)) _CHR["EOL"])
 }
 
 #_____________________________________________________________________________
 function _cmd(c, i, A)
 {
+	#######################################################
 	_fio_cmda = RS
 	RS = ".{1,}"
 	_fio_cmdb = BINMODE
@@ -1709,6 +1735,7 @@ function _cmd(c, i, A)
 #_______________________________________________________________________
 function _cmparr(A0, A1, R, a, i)
 {
+	##########################################
 	a = 0
 	delete R
 	for (i in A0) {
@@ -1732,6 +1759,7 @@ function _cmparr(A0, A1, R, a, i)
 #_____________________________________________________________________________
 function _con(t, ts, a, b, c, d, i, r, A, B)
 {
+	##########################################
 	d = RLENGTH
 	if ((c = split(r = t, A, /\x0D?\x0A/, B)) > 0) {
 		a = BINMODE
@@ -1773,6 +1801,7 @@ function _con(t, ts, a, b, c, d, i, r, A, B)
 #_______________________________________________________________________
 function _conin(t, a, b)
 {
+	#################################################
 	_constatpush()
 	_constat()
 	a = BINMODE
@@ -1794,12 +1823,14 @@ function _conin(t, a, b)
 #_______________________________________________________________________
 function _conl(t, ts)
 {
+	####################################################
 	return _con(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])), ts)
 }
 
 #_______________________________________________________________________
 function _conline(t, ts)
 {
+	#################################################
 	return _con(_chrline(t, ts))
 }
 
@@ -1816,6 +1847,7 @@ function _conlq(t, ts)
 #_______________________________________________________________________
 function _constat(t, ts, ln, a)
 {
+	###########################################
 	if (_constatstrln > (ln = length(t = _constatgtstr(_constatstr = _tabtospc(t, ts), _CON_WIDTH - 1 - _conlastrln)))) {
 		t = t _getchrln(" ", _constatstrln - ln)
 	}
@@ -1852,6 +1884,7 @@ function _constatgtstr(t, ln, a, b)
 #_______________________________________________________________________
 function _constatpop()
 {
+	##################################################
 	if (_CONSTATPUSH[0] > 0) {
 		return _constat(_CONSTATPUSH[_CONSTATPUSH[0]--])
 	}
@@ -1861,6 +1894,7 @@ function _constatpop()
 #_______________________________________________________________________
 function _constatpush(t, ts)
 {
+	#############################################
 	_CONSTATPUSH[++_CONSTATPUSH[0]] = _constatstr
 	if (t) {
 		_constat(t, ts)
@@ -1877,6 +1911,7 @@ function _creport(p, t, f, z)
 #_________________________________________________________________________________________
 function _defdir(pp, n, f, v, p)
 {
+	#############################################################
 	_[p = _wLCHLD(pp, _n("TYPE", "defdir"))]["NAME"] = n
 	_[p]["DIR"] = f
 	return p
@@ -1885,6 +1920,7 @@ function _defdir(pp, n, f, v, p)
 #_________________________________________________________________________________________
 function _defdll(pp, n, rn, p)
 {
+	##############################################################
 	_[p = _wLCHLD(pp, _n("TYPE", "defdll"))]["NAME"] = n
 	_[p]["REGPATH"] = _[pp]["REGPATH"] rn
 	_[p]["ERRHOST"] = pp
@@ -1921,6 +1957,7 @@ function _defescarr(D, r, S, i, c, t)
 #_________________________________________________________________________________________
 function _defile(pp, n, f, v, p)
 {
+	#############################################################
 	_[p = _wLCHLD(pp, _n("TYPE", "defile"))]["NAME"] = n
 	_[p]["FILE"] = f
 	if (! (v == 0 && v == "")) {
@@ -1932,12 +1969,14 @@ function _defile(pp, n, f, v, p)
 #_______________________________________________________________________
 function _defn(f, c, v)
 {
+	###################################################
 	FUNCTAB[c f] = v
 }
 
 #_________________________________________________________________________________________
 function _defreg(pp, n, f, v, p)
 {
+	#############################################################
 	_[p = _wLCHLD(pp, _n("TYPE", "defreg"))]["NAME"] = n
 	_[p]["REGPATH"] = f
 	if (! (v == 0 && v == "")) {
@@ -1948,6 +1987,7 @@ function _defreg(pp, n, f, v, p)
 #_______________________________________________________________________________________________
 function _defsolution(pp, n, rn, p)
 {
+	###############################################################
 	_[p = _wLCHLD(pp, _n("TYPE", "solution"))]["NAME"] = n
 	_[p]["REGPATH"] = rn
 	_[p]["ERRHOST"] = pp
@@ -1957,6 +1997,7 @@ function _defsolution(pp, n, rn, p)
 #_________________________________________________________________________________________
 function _defsrv(pp, n, f, v, p)
 {
+	#############################################################
 	_[p = _wLCHLD(pp, _n("TYPE", "defsrv"))]["NAME"] = n
 	_[p]["SERVNAME"] = f
 	return p
@@ -1965,6 +2006,7 @@ function _defsrv(pp, n, f, v, p)
 #_______________________________________________________________________
 function _del(f, c, a, A)
 {
+	#################################################
 	if (match(f, /\\[ \t]*$/)) {
 		if ((c = toupper(_filerd(f))) && length(f) == FLENGTH) {
 			_cmd("rd " c " /S /Q 2>NUL")
@@ -1993,6 +2035,7 @@ function _del(f, c, a, A)
 #_______________________________________________________________________
 function _delay(t, a)
 {
+	###################################################
 	for (a = 1; a <= t; a++) {
 		_delayms()
 	}
@@ -2001,6 +2044,7 @@ function _delay(t, a)
 #_________________________________________________________________
 function _delayms(a)
 {
+	#############################################
 	for (a = 1; a <= _delay_perfmsdelay; a++) {
 	}
 }
@@ -2008,6 +2052,7 @@ function _delayms(a)
 #_______________________________________________________________________
 function _deletepfx(A, f, B, le, i)
 {
+	########################################
 	le = length(f)
 	for (i in A) {
 		if (substr(toupper(i), 1, le) == f) {
@@ -2020,6 +2065,7 @@ function _deletepfx(A, f, B, le, i)
 #_________________________________________________________________
 function _delf(A, f)
 {
+	###############################################
 	A["B"][A["F"][A["B"][f]] = A["F"][f]] = A["B"][f]
 	delete A["F"][f]
 	delete A["B"][f]
@@ -2028,6 +2074,7 @@ function _delf(A, f)
 #_______________________________________________________________________
 function _deluid(p)
 {
+	################################################# 1 #
 	if (p in _CLASSPTR) {
 		_deluida0 = _CLASSPTR[p]
 		if (_deluida0 in _UIDOBL) {
@@ -2041,6 +2088,7 @@ function _deluid(p)
 #_______________________________________________________________________
 function _dir(A, rd, i, r, f, ds, pf, B, C)
 {
+	####################################
 	delete A
 	gsub(/(^[ \t]*)|([ \t]*$)/, "", rd)
 	if (rd == "") {
@@ -2070,6 +2118,7 @@ function _dir(A, rd, i, r, f, ds, pf, B, C)
 #_________________________________________________________________
 function _dirtree(A, f, B)
 {
+	#########################################
 	gsub(/(^[ \t]*)|([ \t]*$)/, "", f)
 	delete A
 	A[""]
@@ -2137,6 +2186,7 @@ function _dll_check_i0(p, R, pp, p2, i, i2, r, f, v, rs, d, tv, tf)
 				}
 			}
 		}
+		#{ rs=_missfl=1; _[p]["." gensub(/^([^\\]+\\)+(.*)\..../,"\\2","G",i)]=R[i] } }
 		if (rs) {
 			if ((i = ".Install Path") in _[p] && (i = ".Product Version") in _[p]) {
 				_[p]["STATUS"] = "PRESENT"
@@ -2228,6 +2278,7 @@ function _drawuid(p, cn, ch, o)
 #_______________________________________________________________________
 function _dumparr(A, t, lv, a)
 {
+	############################################
 	b = PROCINFO["sorted_in"]
 	PROCINFO["sorted_in"] = "_lengthsort"
 	if (isarray(A)) {
@@ -2292,6 +2343,7 @@ function _dumparr_i1(A, lv, ls, ln, t, t2, i, a, f)
 #_____________________________________________________________________________
 function _dumpobj(p, f, t, s)
 {
+	###################################################
 	s = _dumpobj_i0(p, f, t = t "." p "{")
 	if (p = _rFCHLD(p)) {
 		return (s = s _dumpobjm(p, f, (s ? _getchrln(" ", length(t) - 1) : t " ")))
@@ -2359,12 +2411,14 @@ function _dumpobj_i4(t)
 #_________________________________________________________________
 function _dumpobj_nc(p, f, t)
 {
+	#######################################
 	return _dumpobj_i0(p, f, t "." p "{ ")
 }
 
 #_________________________________________________________________
 function _dumpobjm(p, f, t, s, t2)
 {
+	###################################
 	t2 = _getchrln(" ", length(t))
 	do {
 		s = s _dumpobj(p, f, t)
@@ -2376,6 +2430,7 @@ function _dumpobjm(p, f, t, s, t2)
 #_________________________________________________________________
 function _dumpobjm_nc(p, f, t, s, t2)
 {
+	################################
 	t2 = _getchrln(" ", length(t))
 	do {
 		s = s _dumpobj_nc(p, f, t)
@@ -2452,6 +2507,7 @@ function _endpass(t)
 #_______________________________________________________________________
 function _err(t, a, b)
 {
+	###################################################
 	a = BINMODE
 	b = ORS
 	BINMODE = "rw"
@@ -2466,12 +2522,14 @@ function _err(t, a, b)
 #_________________________________________________________________
 function _errnl(t)
 {
+	################################################
 	return _err(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
 }
 
 #_______________________________________________________________________
 function _error(t, d, A)
 {
+	#################################################
 	if (_ERRLOG_EF) {
 		A["TYPE"] = "ERROR"
 		A["TEXT"] = t
@@ -2482,12 +2540,14 @@ function _error(t, d, A)
 #_______________________________________________________________________
 function _exit(c)
 {
+	#######################################################
 	exit c
 }
 
 #_____________________________________________________________________________
 function _export_data(t, i, A)
 {
+	#################################################
 	A["DATA"] = t
 	A["ID"] = i
 	_expout("_DATA: " _Zexparr(A) "\n")
@@ -2499,6 +2559,7 @@ function _export_data(t, i, A)
 #_____________________________________________________________________________
 function _expout(t, d, a, b)
 {
+	####################################################
 	a = BINMODE
 	b = ORS
 	BINMODE = "rw"
@@ -2521,6 +2582,7 @@ function _expout(t, d, a, b)
 
 function _extfn_init()
 {
+	##############################################################
 	_formatstrs_init()
 	_formatstrd_init()
 	_formatrexp_init()
@@ -2553,6 +2615,7 @@ function _faccr_i0(A, t, p, P, f, r)
 #_______________________________________________________________________
 function _fatal(t, d, A)
 {
+	#################################################
 	if (_ERRLOG_FF) {
 		A["TYPE"] = "FATAL"
 		A["TEXT"] = t
@@ -2583,10 +2646,12 @@ function _ffaccr(A, t, p, P)
 	return _faccr_i0(A["F"], t, p, P)
 }
 
-#_______________________________________________________________________
+##################
 function _fframe(A, t, p)
 {
+	#################################################
 	return _fframe_i0(A, t, p, A[""])
+	#_______________________________________________________________________
 }
 
 #___________________________________________________________
@@ -2598,6 +2663,7 @@ function _fframe_i0(A, t, p, f)
 #_________________________________________________________________
 function _file(f)
 {
+	#################################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2644,6 +2710,7 @@ function _file_check_i0(p, pp, p1, p2, f, v)
 #_________________________________________________________________
 function _filed(f, dd, d)
 {
+	##########################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2668,6 +2735,7 @@ function _filed(f, dd, d)
 #_________________________________________________________________
 function _filen(f)
 {
+	################################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2677,6 +2745,7 @@ function _filen(f)
 #_________________________________________________________________
 function _filene(f)
 {
+	###############################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2686,6 +2755,7 @@ function _filene(f)
 #_________________________________________________________________
 function _filenotexist(f, a)
 {
+	######################################
 	if (f == "") {
 		return ""
 	}
@@ -2703,6 +2773,7 @@ function _filenotexist(f, a)
 #_______________________________________________________________________
 function _filepath(f, dd)
 {
+	################################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2712,6 +2783,7 @@ function _filepath(f, dd)
 #_________________________________________________________________
 function _filer(f, dd)
 {
+	#############################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2727,6 +2799,7 @@ function _filer(f, dd)
 #_________________________________________________________________
 function _filerd(f, dd)
 {
+	############################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2736,6 +2809,7 @@ function _filerd(f, dd)
 #_________________________________________________________________
 function _filerdn(f, dd)
 {
+	###########################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2745,6 +2819,7 @@ function _filerdn(f, dd)
 #_________________________________________________________________
 function _filerdne(f, dd)
 {
+	##########################################
 	if ((f = _filerdnehnd(f)) == "") {
 		return ""
 	}
@@ -2815,6 +2890,7 @@ function _filerdnehnd(st, c, r, d, n, A)
 #_______________________________________________________________________
 function _filexist(f, a)
 {
+	################################################
 	if (f == "") {
 		return ""
 	}
@@ -2833,6 +2909,7 @@ function _filexist(f, a)
 #_______________________________________________________________________
 function _fn(f, p0, p1, p2)
 {
+	################################################
 	if (f in FUNCTAB) {
 		return @f(p0, p1, p2)
 	}
@@ -2841,6 +2918,7 @@ function _fn(f, p0, p1, p2)
 #_______________________________________________________________________
 function _foreach(A, f, r, p0, p1, p2, i, p)
 {
+	####################################
 	if (isarray(A)) {
 		_TMP0[p = _n()]["."] = 1
 		_foreach_i0(A, f, _TMP0[p], p0, p1, p2)
@@ -2909,14 +2987,15 @@ function _formatstrd_init()
 	_FORMATSTRDESC["\t"] = "\\t"
 }
 
-####################################################################################
-
-
-
-
-#___________________________________________________________________________________
+#__________________________________________________________________________________
 function _formatstrs(t)
 {
+	####################################################################################
+	
+	
+	
+	
+	#___________________________________________________________________________________
 	_formatstrq0 = split(t, _FORMATSTRA, /['\x00-\x1F\x80-\xFF]/, _FORMATSTRB)
 	_formatstrs0 = ""
 	for (t = 1; t < _formatstrq0; t++) {
@@ -2978,6 +3057,7 @@ function _gen(D, t)
 #_____________________________________________________________________________
 function _gensubfn(t, r, f, p0, A)
 {
+	###############################################
 	if (match(t, r, A)) {
 		return (substr(t, 1, RSTART - 1) (@f(_th0(substr(t, RSTART, RLENGTH), t = substr(t, RSTART + RLENGTH)), A, p0)) _gensubfn(t, r, f, p0))
 	}
@@ -2987,6 +3067,7 @@ function _gensubfn(t, r, f, p0, A)
 #_____________________________________________________________________________
 function _get_errout(p)
 {
+	#######################################################
 	return _tframe("_get_errout_i0", p)
 }
 
@@ -3041,6 +3122,7 @@ function _get_errout_i3(p, t, ts, cl, cp, cr, a, b)
 #_____________________________________________________________________________
 function _get_logout(p)
 {
+	#######################################################
 	return _tframe("_get_logout_i0", p)
 }
 
@@ -3064,6 +3146,7 @@ function _get_logout_i0(p, t, n, a)
 #_______________________________________________________________________
 function _getchrln(s, w)
 {
+	#################################################
 	if (s == "") {
 		return 
 	}
@@ -3089,12 +3172,14 @@ function _getchrln(s, w)
 #_______________________________________________________________________
 function _getdate()
 {
+	#####################################################
 	return strftime("%F")
 }
 
 #_____________________________________________________________________________
 function _getfilepath(t, f, al, b, A)
 {
+	############################################
 	ERRNO = ""
 	if (match(t, /^[ \t]*(("([^"]*)"[ \t]*)|([`']([^']*)'[ \t]*)|(([^ \t]+)[ \t]*))/, A)) {
 		al = RLENGTH
@@ -3113,6 +3198,7 @@ function _getfilepath(t, f, al, b, A)
 
 function _getfilever(f)
 {
+	#############################################################
 	split(_cmd(_fileverpath " \"" f "\""), _GETFILEVERA0, /[ \t]+/)
 	if (_GETFILEVERA0[5]) {
 		return _GETFILEVERA0[5]
@@ -3122,12 +3208,14 @@ function _getfilever(f)
 #_________________________________________________________________
 function _getime()
 {
+	################################################
 	return strftime("%H:%M:%S")
 }
 
 #_________________________________________________________________
 function _getmpdir(f, dd)
 {
+	##########################################
 	if (! dd || ! (dd = _filerd(dd))) {
 		dd = _FILEIO_TMPRD
 	}
@@ -3140,6 +3228,7 @@ function _getmpdir(f, dd)
 #_________________________________________________________________
 function _getmpfile(f, dd)
 {
+	#########################################
 	if (! dd || ! (dd = _filerd(dd))) {
 		dd = _FILEIO_TMPRD
 	}
@@ -3152,6 +3241,7 @@ function _getmpfile(f, dd)
 #_______________________________________________________________________
 function _getperf(o, t, a)
 {
+	###############################################
 	(o == "" ? ++_getperf_opcurr : _getperf_opcurr = o)
 	if ((a = _getsecond()) != _getperf_last) {
 		_getperf_opsec = (_getperf_opcurr - _getperf_opstart) / ((_getperf_last = a) - _getperf_start)
@@ -3247,12 +3337,14 @@ function _getreg_i1(D, r, R, a, i, il, ir, rc, B)
 #_________________________________________________________________
 function _getsecond()
 {
+	#############################################
 	return systime()
 }
 
 #___________________________________________________________
 function _getsecondsync(a, c, b, c2)
 {
+	##########################
 	a = systime()
 	while (a == systime()) {
 		++c
@@ -3263,6 +3355,7 @@ function _getsecondsync(a, c, b, c2)
 #_______________________________________________________________________
 function _getuid(p)
 {
+	################################################# 1 #
 	if (p in _UIDOBL) {
 		for (_tptr in _UIDOBLV[_getuida0 = _UIDOBL[p]]) {
 			delete _UIDOBLV[_getuida0][_tptr]
@@ -3295,6 +3388,7 @@ function _handle8494(t)
 #_____________________________________________________________________________
 function _hexnum(n, l)
 {
+	#########################################################
 	if (l + 0 < 1) {
 		l = 2
 	}
@@ -3304,6 +3398,7 @@ function _hexnum(n, l)
 #_________________________________________________________________
 function _igetperf(t, s, o)
 {
+	#########################################	# t-test period in seconds(==0 ? no period; s(=true/false)-output/not output status; o-qnt of ops before test start
 	if (t == 0 && t == "" && s == 0 && s == "" && o == 0 && o == "") {
 		if (_getperf_fn !~ /not$/ && _constatstr == _getperf_stat) {
 			_constat(_getperf_statstr)
@@ -3334,6 +3429,7 @@ function _import_data(t, p, p2, a)
 #_______________________________________________________________________
 function _info(t, d, A)
 {
+	##################################################
 	if (_ERRLOG_IF) {
 		A["TYPE"] = "INFO"
 		A["TEXT"] = t
@@ -3405,6 +3501,7 @@ function _initsys()
 #_______________________________________________________________________
 function _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
 {
+	################### 1 #
 	if (cs == 0 && cs == "") {
 		cs = p
 		p = _getuid()
@@ -3464,6 +3561,7 @@ function _inituidefault(h, l, H, L)
 #_______________________________________________________________________
 function _ins(S, sf, D, df)
 {
+	################################################
 	if (sf in S) {
 		if (isarray(S[sf])) {
 			if (df in D) {
@@ -3487,19 +3585,22 @@ function _ins(S, sf, D, df)
 #_________________________________________________________________
 function _insf(A, f)
 {
+	###############################################
 	A["F"][""] = A["B"][A["F"][f] = A["F"][""]] = f
 }
 
 #_________________________________________________________________
 function _insframe(A, f)
 {
+	###########################################
 	A[f] = A[""]
 	A[""] = f
 }
 
-#_________________________________________________________________
+########################
 function _inspass(A, f)
 {
+	#_________________________________________________________________
 	A[f] = A[""]
 	A[""] = f
 }
@@ -3509,6 +3610,7 @@ function _inspass(A, f)
 #_______________________________________________________________________
 function _isptr(p)
 {
+	################################################## 1 #
 	if (isarray(p)) {
 		is = _NOP
 		it = "A"
@@ -3529,6 +3631,7 @@ function _isptr(p)
 #_______________________________________________________________________
 function _istr(p)
 {
+	################################################### 1 #
 	if (isarray(p)) {
 		is = _NOP
 		it = "A"
@@ -3545,6 +3648,7 @@ function _istr(p)
 #_________________________________________________________________
 function _lengthsort(i1, v1, i2, v2)
 {
+	##############################
 	return ((length(i1) < length(i2) ? -1 : (length(i1) > length(i2) ? 1 : (i1 < i2 ? -1 : 1))))
 }
 
@@ -3587,12 +3691,14 @@ function _lib_NAMEVER()
 #_____________________________________________________________________________
 function _ln(t)
 {
+	###############################################################
 	return ((t ~ /\x0A$/ ? t : t _CHR["EOL"]))
 }
 
 #_________________________________________________________________
 function _log(A, p, a, B)
 {
+	###########################################
 	if (isarray(A)) {
 		A["TIME"] = _getime()
 		A["DATE"] = _getdate()
@@ -3613,6 +3719,7 @@ function _log(A, p, a, B)
 #_________________________________________________________________
 function _lspctab(t, ts, l, l1, l2, A)
 {
+	################################
 	while (match(t, /^(\t*)( *)((\t*)(.*))$/, A)) {
 		if (A[1, "length"] >= l) {
 			return substr(t, l + 1)
@@ -3654,6 +3761,7 @@ function _macsfx94(F, D, C, p1, p2, p3)
 #_______________________________________________________________________
 function _movarr(D, S)
 {
+	###################################################
 	delete D
 	D[""]
 	delete D[""]
@@ -3771,6 +3879,7 @@ function _mpusub(F, D, C, d, p1, p2, p3, q)
 #_______________________________________________________________________
 function _n(F, v, p)
 {
+	#####################################################
 	for (p in _UIDSDEL) {
 		delete _UIDSDEL[p]
 		delete _ptr[p]
@@ -3827,6 +3936,7 @@ function _nN_i0(p, F, v)
 #_________________________________________________________________
 function _newclrdir(f)
 {
+	############################################
 	if ((f = _filerd(f)) == "") {
 		return 
 	}
@@ -3839,6 +3949,7 @@ function _newclrdir(f)
 #_______________________________________________________________________
 function _newdir(f)
 {
+	#####################################################
 	if ((f = _filerd(f)) == "") {
 		return 
 	}
@@ -3849,9 +3960,10 @@ function _newdir(f)
 	return f
 }
 
-#_______________________________________________________________________
+##############################
 function _nop(p0, p1, p2, p3)
 {
+	#_______________________________________________________________________
 }
 
 #_____________________________________________________
@@ -3872,6 +3984,7 @@ function _nop(p0, p1, p2, p3)
 #_________________________________________________________________
 function _nretarr(A, i, v, r, q)
 {
+	#####################################
 	if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
 		if (i <= (r = q - 16)) {
 			_ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
@@ -3891,6 +4004,7 @@ function _nretarr(A, i, v, r, q)
 #___________________________________________________________
 function _nretarrd(A, i, v, r, q)
 {
+	##############################
 	if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
 		if (i <= (r = q - 16)) {
 			_ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
@@ -3915,6 +4029,7 @@ function _nretarrd(A, i, v, r, q)
 #___________________________________________________________________________________
 function _out(t, a, b)
 {
+	###############################################################
 	a = BINMODE
 	b = ORS
 	BINMODE = "rw"
@@ -3929,6 +4044,7 @@ function _out(t, a, b)
 #_________________________________________________________________
 function _outnl(t)
 {
+	################################################
 	return _out(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
 }
 
@@ -3983,6 +4099,7 @@ function _p8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
 #_______________________________________________________________________
 function _pass(A, f, t, p2, i, a)
 {
+	###########################################
 	a = _endpass_v0
 	_endpass_v0 = ""
 	i = 1
@@ -4005,6 +4122,7 @@ function _pass(A, f, t, p2, i, a)
 #_____________________________________________________________________________
 function _patharr0(D, q, i, h, A, B)
 {
+	##############################################
 	delete D
 	if (0 < (q = split(gensub(/\\/, "/", "G", gensub(/ *([:$\\\/]) */, "\\1", "G", gensub(/(^[ \t]+)|([ \t]+$)/, "", "G", q))), A, /\/+/, B))) {
 		if (2 > (h = length(B[1]))) {
@@ -4145,6 +4263,7 @@ function _pr8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
 #_________________________________________________________________
 function _printarr(A, t, lv, r, a)
 {
+	####################################
 	a = PROCINFO["sorted_in"]
 	PROCINFO["sorted_in"] = "_lengthsort"
 	_printarrexp = (r ? r : "")
@@ -4244,6 +4363,7 @@ function _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
 #_______________________________________________________________________
 function _qstr(t, c, A, B)
 {
+	################################################
 	c = ""
 	for (t = split(t, A, /[\x00-\x1F\\"]/, B); t >= 0; t--) {
 		c = _QSTR[B[t]] A[t + 1] c
@@ -4254,18 +4374,21 @@ function _qstr(t, c, A, B)
 #_________________________________________________________________
 function _qstrq(t)
 {
+	################################################
 	gsub(/\\/, "\\\\", t)
 	gsub(/"/, "\\\"", t)
 	return t
 }
 
-#_____________________________________________________________________________
+################################################################
 function _rEG(c, t, P, a, A)
 {
+	#####################################################
 	switch (c) {
 	case "_lib_CMDLN":
 		#___________________________________________________________
 		return t
+		#_____________________________________________________________________________
 		#_____________________________________________________
 	case "_lib_APPLY":
 		return 
@@ -4287,6 +4410,7 @@ function _rEG(c, t, P, a, A)
 #_______________________________________________________________________
 function _rFBRO(p)
 {
+	######################################################
 	if (p) {
 		if (p in _tPARENT) {
 			return _tFCHLD[_tPARENT[p]]
@@ -4302,18 +4426,21 @@ function _rFBRO(p)
 #_______________________________________________________________________
 function _rFCHLD(p)
 {
+	#####################################################
 	if (p && p in _tFCHLD) {
 		return _tFCHLD[p]
 	}
 	return ""
 }
 
-#_______________________________________________________________________
+######################## p="", !v
 function _rLBRO(p)
 {
+	######################################################
 	if (p) {
 		if (p in _tPARENT) {
 			return _tLCHLD[_tPARENT[p]]
+			#_______________________________________________________________________
 		}
 		while (p in _tNEXT) {
 			p = _tNEXT[p]
@@ -4323,11 +4450,13 @@ function _rLBRO(p)
 	return p
 }
 
-#_______________________________________________________________________
+######################## p=""
 function _rLCHLD(p)
 {
+	#####################################################
 	if (p && p in _tLCHLD) {
 		return _tLCHLD[p]
+		#_______________________________________________________________________
 	}
 	return ""
 }
@@ -4335,42 +4464,51 @@ function _rLCHLD(p)
 #_______________________________________________________________________
 function _rLINK(p)
 {
+	######################################################
 	return ((p in _tLINK ? _tLINK[p] : ""))
 }
 
-#_______________________________________________________________________
+######################## p=""
 function _rNEXT(p)
 {
+	######################################################
 	if (p && p in _tNEXT) {
 		return _tNEXT[p]
+		#_______________________________________________________________________
 	}
 	return ""
 }
 
-#_______________________________________________________________________
+######################## p=""
 function _rPARENT(p)
 {
+	####################################################
 	if (p && p in _tPARENT) {
 		return _tPARENT[p]
+		#_______________________________________________________________________
 	}
 	return ""
 }
 
-#_______________________________________________________________________
+######################## p=""
 function _rPREV(p)
 {
+	######################################################
 	if (p && p in _tPREV) {
 		return _tPREV[p]
+		#_______________________________________________________________________
 	}
 	return ""
 }
 
-#_______________________________________________________________________
+######################## p=""
 function _rQBRO(p, c, p1)
 {
+	################################################
 	if (p) {
 		if (p in _tPARENT) {
 			return _tQCHLD[_tPARENT[p]]
+			#_______________________________________________________________________
 		}
 		c = 1
 		p1 = p
@@ -4387,11 +4525,13 @@ function _rQBRO(p, c, p1)
 	return p
 }
 
-#_______________________________________________________________________
+######################## p=""
 function _rQCHLD(p)
 {
+	#####################################################
 	if (p && p in _tQCHLD) {
 		return _tQCHLD[p]
+		#_______________________________________________________________________
 	}
 	return ""
 }
@@ -4402,6 +4542,7 @@ function _rQCHLD(p)
 #_____________________________________________________________________________
 function _rSQFIRST(g, p, A)
 {
+	#####################################################
 	if (isarray(A)) {
 		return _rSQFIRSTA(g, p, A)
 	}
@@ -4413,6 +4554,7 @@ function _rSQFIRST(g, p, A)
 #_________________________________________________________________
 function _rSQFIRSTA(g, p, A)
 {
+	########################################
 	_SQTOPTR[g] = p
 	_SQSTACK[g][0] = 0
 	if ((p = _rsqgetptr(g, p)) in A) {
@@ -4424,6 +4566,7 @@ function _rSQFIRSTA(g, p, A)
 #_______________________________________________________________________
 function _rSQNEXT(g, p, A)
 {
+	################################################
 	if (isarray(A)) {
 		return _rSQNEXTA(g, p, A)
 	}
@@ -4433,6 +4576,7 @@ function _rSQNEXT(g, p, A)
 #_________________________________________________________________
 function _rSQNEXTA(g, p, A)
 {
+	#########################################
 	if (p == _SQTOPTR[g]) {
 		if (_SQSTACK[g][0] > 0) {
 			_SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
@@ -4478,6 +4622,7 @@ function _rd_shortcut(D, f)
 #_______________________________________________________________________
 function _rdfile(f, i, A)
 {
+	################################################
 	if ((f = _filerdne(f)) == "" || _filene(f) == "") {
 		ERRNO = "Filename error"
 		return 
@@ -4530,6 +4675,7 @@ function _rdfile(f, i, A)
 #	fn	_getsecondsync()
 function _rdreg(D, p)
 {
+	################################################################
 	_rdregp0 = "reg query \"" p "\" /S /reg:64 2>NUL"
 	_rdregfld = _rdregkey = 0
 	_rdregq0 = split(gensub(/[\x0D?\x0A]{2,}/, _CHR["EOL"], "G", _cmd(_rdregp0)), _RDREGA0, /\x0D?\x0A/)
@@ -4664,6 +4810,7 @@ function _registryinit()
 #_____________________________________________________________________________
 function _regpath0(D, i, s, q, S)
 {
+	############################################ 0 #
 	if (i = _patharr0(S, i)) {
 		if ("name" in S) {
 			D["name"] = S["name"]
@@ -4687,6 +4834,7 @@ function _regpath0(D, i, s, q, S)
 #_________________________________________________________________________________________
 function _report(p)
 {
+	#######################################################################
 	_report_t0 = _reportparnt = ""
 	_report_i0(p)
 	_tframe("_report_i0", p)
@@ -4784,6 +4932,7 @@ function _reporterr(p, t3, pp, t, t2)
 #_____________________________________________________________________________
 function _retarr(A, i, p, a, q)
 {
+	##################################################
 	if (isarray(A)) {
 		i = (i == "" ? 0 : i + 0)
 		q = A[_ARRLEN] + 0
@@ -4807,6 +4956,7 @@ function _retarr_i0(A, q, i, a)
 #_________________________________________________________________
 function _retarrd(A, v, i)
 {
+	#########################################
 	if (1 in A) {
 		return (A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9] A[10] A[11] A[12] A[13] A[14] A[15] A[16] (((i = 17) in A ? _retarrd_i0(A, i) v : v)))
 	}
@@ -4844,6 +4994,7 @@ function _rexpfnend(t)
 #_____________________________________________________________________________
 function _rexpstr(r, i, c, A)
 {
+	###################################################
 	c = split(r, A, "")
 	r = ""
 	for (i = 1; i <= c; i++) {
@@ -4885,6 +5036,7 @@ function _rpp(q, D, S)
 #_________________________________________________________________________________________
 function _rrdreg(DD, p, k, t, v, c, i, q, tT, A, B, C, D)
 {
+	#############################################	old; regedit
 	if (! _registrytmpfile) {
 		_registryinit()
 	}
@@ -5000,13 +5152,15 @@ function _rxpfn(R, t, p, i, f, A)
 	return _rexpfnend(t)
 }
 
-#_____________________________________________________________________________
+##############################################################
 function _sHARE(c, t, P, a, A)
 {
+	###################################################
 	switch (c) {
 	case "_lib_CMDLN":
 		#___________________________________________________________
 		return t
+		#_____________________________________________________________________________
 		#_____________________________________________________
 	case "_lib_APPLY":
 		return 
@@ -5025,13 +5179,15 @@ function _sHARE(c, t, P, a, A)
 	}
 }
 
-#_____________________________________________________________________________
+################################################################
 function _sYS(c, t, P, a, A)
 {
+	#####################################################
 	switch (c) {
 	case "_lib_CMDLN":
 		#___________________________________________________________
 		return t
+		#_____________________________________________________________________________
 		#_____________________________________________________
 	case "_lib_APPLY":
 		return 
@@ -5074,6 +5230,7 @@ function _serv_check_i0(p, p0, p1, p2, p3, i, q, c)
 #_______________________________________________________________________
 function _setarrsort(f, a)
 {
+	##############################################
 	a = PROCINFO["sorted_in"]
 	if (! f) {
 		delete PROCINFO["sorted_in"]
@@ -5086,6 +5243,7 @@ function _setarrsort(f, a)
 #_______________________________________________________________________
 function _setmpath(p, a)
 {
+	################################################
 	ERRNO = ""
 	if (p && (a = _filerd(p))) {
 		if (_FILEIO_TMPRD) {
@@ -5123,6 +5281,7 @@ function _setmpath(p, a)
 
 function _sharelist(D, h, q, c, l, A, B)
 {
+	#################################################
 	delete D
 	c = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"] : h)) " 2>&1"
 	if (match(c = _cmd(c), /\x0AShare[^\x0A]*Remark/)) {
@@ -5142,6 +5301,7 @@ function _sharelist(D, h, q, c, l, A, B)
 #_____________________________________________________________________________
 function _sharepath(h, s, A)
 {
+	###################################################
 	s = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"] : h)) "\\\"" s "\" 2>&1"
 	if (match(s = _cmd(s), /\x0APath[ \t]+([^\x0D\x0A]+)/, _SHAREPATHA0)) {
 		return gensub(/[ \t\\\/]*$/, "\\\\", 1, _SHAREPATHA0[1])
@@ -5151,39 +5311,47 @@ function _sharepath(h, s, A)
 
 function _shortcut(D, S)
 {
+	#############################################################
 	if (isarray(D)) {
 		if (isarray(S)) {
 			_addarrmask(D, S, _SHORTCUTWSTRUC)
 		} else if (S == 0 && S == "") {
+			# array,array2*		- copy from array2 to array shorcut-specific elements
 			_addarrmask(D, _SHORTCUTDEFAULT, _SHORTCUTWSTRUC)
 		} else if (_isnotfileptr(S)) {
+			# array*			- define shortcut-specific elements in array by default values
 			_addarrmask(D, _[S], _SHORTCUTWSTRUC)
 		} else if (_rd_shortcut(D, S)) {
-			return 
+			return 	# array,ptr*		- copy from array _[ptr] to array shorcut-specific elements
 		}
 	} else if (D == 0 && D == "") {
-		return _NOP
+		return _NOP	# array,filepath*		- define in array shortcut-specific elements by reading its from shortcut file filepath(load shortcut)
+		# -*				- no action(return -)
 	} else if (_isnotfileptr(D)) {
 		if (isarray(S)) {
 			_addarrmask(_[D], S, _SHORTCUTWSTRUC)
 		} else if (S == 0 && S == "") {
+			# ptr,array*		- copy from array to array _[ptr] shorcut-specific elements
 			_addarrmask(_[D], _SHORTCUTDEFAULT, _SHORTCUTWSTRUC)
 		} else if (_isnotfileptr(S)) {
+			# ptr*			- define shortcut-specifc elements in array _[ptr] by default values
 			_addarrmask(_[D], _[S], _SHORTCUTWSTRUC)
 		} else if (_rd_shortcut(_[D], S)) {
-			return 
+			return 	# ptr,ptr2*			- copy from array _[ptr2] to array _[ptr] shorcut-specific elements
 		}
 	} else {
+		# ptr,filepath*		- define in array _[ptr] shortcut-specific elements by reading its from shortcut file filepath(load shortcut)
 		if (isarray(S) && _wr_shortcut(D, S)) {
-			return 
+			return 	# filepath,array*		- [over]write shorcut file filepath; shortcut parameters will be defined by shortcut-specific elements in array(save shortcut)
 		} else if (S == 0 && S == "" && _wr_shortcut(D, _SHORTCUTDEFAULT)) {
-			return 
+			return 	# filepath*			- [over]write shorcut file filepath; shortcut parameters will be defined by default values
 		} else if (_isnotfileptr(S) && _wr_shortcut(D, _[S])) {
-			return 
+			return 	# filepath,ptr*		- [over]write shorcut file filepath; shortcut parameters will be defined by shortcut-specific elements in array _[ptr](save shortcut)
 		} else if (_rd_shortcut(_SHRTCUTA1, S) || _wr_shortcut(D, _SHRTCUTA1)) {
 			return 
 		}
 	}
+	# filepath,filepath2*	- [over]write shorcut file filepath; shortcut parameters will be defined from shortcut file filepath2(copy shortcut)
 	return 1
 }
 
@@ -5367,6 +5535,7 @@ function _splitpath_test()
 #_______________________________________________________________________
 function _splitstr(A, t, r)
 {
+	########################################### 1 #
 	if (_istr(t)) {
 		if (_splitstr_i0(A, t) > 0) {
 			return _splitstrp0
@@ -5542,6 +5711,7 @@ function _subseqon(B, r, F, f, s, e, q, i, A)
 
 function _sysinfo(D, h)
 {
+	##############################################################
 	h = "wmic /NODE: \"" h "\" OS 2>NUL"
 	if (split(_cmd(h), _SYSINFOA0, /[\x0D\x0A]+/) == 3) {
 		_sysinfol0 = length(h = _SYSINFOA0[2]) + 1
@@ -5584,6 +5754,7 @@ function _tOBJ(c, t, P)
 #_______________________________________________________________________
 function _tOBJ_CLEANUP(p)
 {
+	##############################################
 	for (p in UIDSDEL) {
 		delete _ptr[p]
 		delete _tPREV[p]
@@ -5602,6 +5773,7 @@ function _tOBJ_CLEANUP(p)
 #_______________________________________________________________________
 function _tabtospc(t, ts, xc, a, c, n, A, B)
 {
+	##################################
 	if (! ts) {
 		ts = _TAB_STEP_DEFAULT
 	}
@@ -5638,6 +5810,7 @@ function _tapi(p, f, p0, p1, p2, p3, c)
 #_____________________________________________________________________________
 function _tbframe(f, p, p0, p1)
 {
+	##################################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tbframe_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -5656,6 +5829,7 @@ function _tbframe_i0(f, p, p0, p1, a)
 #_______________________________________________________________________
 function _tbframex(f, p, p0, p1)
 {
+	###########################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tbframex_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -5674,6 +5848,7 @@ function _tbframex_i0(f, p, p0, p1)
 #_____________________________________________________________________________
 function _tbpass(f, p, p0, p1)
 {
+	###################################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tbpass_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -5692,6 +5867,7 @@ function _tbpass_i0(f, p, p0, p1, a)
 #_____________________________________________________________________________
 function _tbpassx(f, p, p0, p1)
 {
+	##################################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tbpassx_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -5710,6 +5886,7 @@ function _tbpassx_i0(f, p, p0, p1)
 #_____________________________________________________________________________
 function _tbrochld(p, f, pp)
 {
+	###################################################				# TEST!!!
 	if (p) {
 		if (p in _tFCHLD) {
 			f = _tFCHLD[p]
@@ -5793,30 +5970,35 @@ function _tbrochld(p, f, pp)
 #_________________________________________________________________
 function _tbrunframe(f, p, p0, p1)
 {
+	###################################
 	return _tbframe((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_________________________________________________________________
 function _tbrunframex(f, p, p0, p1)
 {
+	##################################
 	return _tbframex((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_________________________________________________________________
 function _tbrunpass(f, p, p0, p1)
 {
+	####################################
 	return _tbpass((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_________________________________________________________________
 function _tbrunpassx(f, p, p0, p1)
 {
+	###################################
 	return _tbpassx((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_____________________________________________________________________________
 function _tdel(p, i)
 {
+	##########################################################
 	if (p in _) {
 		_texclude(p)
 		for (i in _ptr[p]) {
@@ -5872,6 +6054,7 @@ function _tdel_i1(A, i)
 #_____________________________________________________________________________
 function _tdelete(p, v)
 {
+	#######################################################				# REMAKE EXCLUDE
 	if (p) {
 		_wLCHLD(_tDELPTR, p)
 	}
@@ -5881,6 +6064,7 @@ function _tdelete(p, v)
 #_________________________________________________________________
 function _tdelitem(p)
 {
+	#############################################
 	if (p) {
 		if ("HOST" in _PTR[p] && "ITEMNAME" in _[p]) {
 			return _wLCHLD(_PTR[_PTR[p]["HOST"]]["ITEM"][_[p]["ITEMNAME"]], p)
@@ -5893,6 +6077,7 @@ function _tdelitem(p)
 #_______________________________________________________________________
 function _tend(a, b)
 {
+	#####################################################
 	if (b == "") {
 		return (_t_ENDF[_t_ENDF[0]] = a)
 	} else {
@@ -5903,6 +6088,7 @@ function _tend(a, b)
 #_____________________________________________________________________________
 function _texclude(p, v, pp)
 {
+	###################################################				# TEST!!!
 	if (p in _) {
 		if (p in _tPARENT) {
 			pp = _tPARENT[p]
@@ -5945,6 +6131,7 @@ function _texclude(p, v, pp)
 #_____________________________________________________________________________
 function _tframe(fF, p, p0, p1, p2)
 {
+	###############################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	p = (_isptr(p) ? (isarray(fF) ? _tframe_i1(fF, p, p0, p1, p2) : _tframe_i0(fF, p, p0, p1, p2)) : "")
 	--_t_ENDF[0]
@@ -5954,6 +6141,7 @@ function _tframe(fF, p, p0, p1, p2)
 #_____________________________________________________________________________
 function _tframe0(f, p, p0, p1, p2, p3, A)
 {
+	#########################################
 	if (_isptr(p)) {
 		if (isarray(f)) {
 			return _tframe0_i0(f, p)
@@ -6020,6 +6208,7 @@ function _tframe0_i2(A, m, p)
 #_________________________________________________________________
 function _tframe1(f, p, p0, p1, p2, p3, A)
 {
+	#############################
 	if (_isptr(p)) {
 		if (isarray(f)) {
 			return _tframe1_i0(f, p, p0)
@@ -6075,6 +6264,7 @@ function _tframe1_i2(A, m, p, p0)
 #_________________________________________________________________
 function _tframe2(f, p, p0, p1, p2, p3, A)
 {
+	#############################
 	if (_isptr(p)) {
 		if (isarray(f)) {
 			return _tframe2_i0(f, p, p0, p1)
@@ -6130,6 +6320,7 @@ function _tframe2_i2(A, m, p, p0, p1)
 #_________________________________________________________________
 function _tframe3(f, p, p0, p1, p2, p3, A)
 {
+	#############################
 	if (_isptr(p)) {
 		if (isarray(f)) {
 			return _tframe3_i0(f, p, p0, p1, p2)
@@ -6185,6 +6376,7 @@ function _tframe3_i2(A, m, p, p0, p1, p2)
 #_________________________________________________________________
 function _tframe4(f, p, p0, p1, p2, p3, A)
 {
+	#############################
 	if (_isptr(p)) {
 		if (isarray(f)) {
 			return _tframe4_i0(f, p, p0, p1, p2, p3)
@@ -6258,6 +6450,7 @@ function _tframe_i1(F, p, p0, p1, p2, a)
 #_______________________________________________________________________
 function _tframex(f, p, p0, p1)
 {
+	############################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tframex_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -6367,6 +6560,7 @@ function _tgenuid_init(a, b, A)
 #_______________________________________________________________________
 function _tgetitem(p, n, a, b)
 {
+	############################################
 	if (p) {
 		if (isarray(_PTR[p]["ITEM"]) && n in _PTR[p]["ITEM"]) {
 			a = _PTR[p]["ITEM"][n]
@@ -6385,6 +6579,7 @@ function _tgetitem(p, n, a, b)
 #_________________________________________________________________
 function _tgetsp(p)
 {
+	###############################################
 	return _tSTACK[p][0]
 }
 
@@ -6396,33 +6591,38 @@ function _th0(p, p1, p2, p3)
 	return p
 }
 
-#_________________________________________________________________
+##########################################
 function _th1(p0, p, p2, p3)
 {
+	#_________________________________________________________________
 	return p
 }
 
-#_________________________________________________________________
+##############################
 function _th10(p0, p1)
 {
+	#_________________________________________________________________
 	return (p1 p0)
 }
 
-#_________________________________________________________________
+##############################
 function _th2(p0, p1, r, p3)
 {
+	#_________________________________________________________________
 	return p
 }
 
-#_________________________________________________________________
+##############################
 function _th3(p0, p1, p2, r)
 {
+	#_________________________________________________________________
 	return p
 }
 
 #_________________________________________________________________
 function _tifend(l)
 {
+	###############################################
 	return ((_t_ENDF[0] + l in _t_ENDF ? (_t_ENDF[_t_ENDF[0] + l] ? _t_ENDF[_t_ENDF[0] + l] : 1) : ""))
 }
 
@@ -6592,6 +6792,7 @@ function _tlist_i1(L, p)
 #_________________________________________________________________
 function _tmbframe(f, p, p0, p1, t)
 {
+	##################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		t = t _tbframe_i0(f, p, p0, p1, p = (p in _tPREV ? _tPREV[p] : ""))
 	}
@@ -6601,6 +6802,7 @@ function _tmbframe(f, p, p0, p1, t)
 #_________________________________________________________________
 function _tmbframex(f, p, p0, p1, t)
 {
+	#################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		t = t _tbframex_i0(f, p, p0, p1)
 		p = (p in _tPREV ? _tPREV[p] : "")
@@ -6611,6 +6813,7 @@ function _tmbframex(f, p, p0, p1, t)
 #_________________________________________________________________
 function _tmbpass(f, p, p0, p1)
 {
+	######################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tPREV ? _tPREV[p] : ""))
 	}
@@ -6620,6 +6823,7 @@ function _tmbpass(f, p, p0, p1)
 #_________________________________________________________________
 function _tmbpassx(f, p, p0, p1)
 {
+	#####################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		p0 = _tbpassx_i0(f, p, p0, p1)
 		p = (p in _tPREV ? _tPREV[p] : "")
@@ -6630,6 +6834,7 @@ function _tmbpassx(f, p, p0, p1)
 #_________________________________________________________________
 function _tmframe(f, p, p0, p1, p2)
 {
+	###################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tmframe_i0(f, p, p0, p1, p2) : "")
 	--_t_ENDF[0]
@@ -6657,6 +6862,7 @@ function _tmframe_i1(F, p, p0, p1, p2, t)
 #_________________________________________________________________
 function _tmframex(f, p, p0, p1, t)
 {
+	##################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		t = t _tframex_i0(f, p, p0, p1)
 		p = (p in _tNEXT ? _tNEXT[p] : "")
@@ -6667,6 +6873,7 @@ function _tmframex(f, p, p0, p1, t)
 #_________________________________________________________________
 function _tmpass(f, p, p0, p1)
 {
+	#######################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tNEXT ? _tNEXT[p] : ""))
 	}
@@ -6676,6 +6883,7 @@ function _tmpass(f, p, p0, p1)
 #_________________________________________________________________
 function _tmpassx(f, p, p0, p1)
 {
+	######################################
 	while (p && ! (_t_ENDF[0] in _t_ENDF)) {
 		p0 = _tbpassx_i0(f, p, p0, p1)
 		p = (p in _tNEXT ? _tNEXT[p] : "")
@@ -6719,6 +6927,7 @@ function _torexp_rexp(t)
 #_____________________________________________________________________________
 function _tpass(f, p, p0, p1)
 {
+	####################################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tpass_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -6737,6 +6946,7 @@ function _tpass_i0(f, p, p0, p1, a)
 #_____________________________________________________________________________
 function _tpassx(f, p, p0, p1)
 {
+	###################################################
 	delete _t_ENDF[++_t_ENDF[0]]
 	f = (p ? _tpassx_i0(f, p, p0, p1) : "")
 	--_t_ENDF[0]
@@ -6755,6 +6965,7 @@ function _tpassx_i0(f, p, p0, p1)
 #_________________________________________________________________
 function _tpop(p, aA, a)
 {
+	###########################################
 	if ((a = _tSTACK[p][0]) > 0) {
 		_tSTACK[p][0]--
 		if (isarray(_tSTACK[p][a])) {
@@ -6770,6 +6981,7 @@ function _tpop(p, aA, a)
 #_____________________________________________________________________________
 function _tpush(p, aA, a)
 {
+	######################################################
 	if (isarray(aA)) {
 		delete _tSTACK[p][a = ++_tSTACK[p][0]]
 		_tSTACK[p][a][""]
@@ -6808,6 +7020,7 @@ function _tr(n, cs, H)
 #_______________________________________________________________________
 function _trace(t, d, A)
 {
+	#################################################
 	if (_ERRLOG_TF) {
 		A["TYPE"] = "TRACE"
 		A["TEXT"] = t
@@ -6818,6 +7031,7 @@ function _trace(t, d, A)
 #_________________________________________________________________
 function _trunframe(f, p, p0, p1, p2)
 {
+	#################################
 	return _tframe((f ? f : "_trunframe_i0"), p, p0, p1, p2)
 }
 
@@ -6833,24 +7047,28 @@ function _trunframe_i0(p, p0, p1, p2, f)
 #_________________________________________________________________
 function _trunframex(f, p, p0, p1)
 {
+	###################################
 	return _tframex((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_________________________________________________________________
 function _trunpass(f, p, p0, p1)
 {
+	#####################################
 	return _tpass((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_________________________________________________________________
 function _trunpassx(f, p, p0, p1)
 {
+	####################################
 	return _tpassx((f ? f : "_trunframe_i0"), p, p0, p1)
 }
 
 #_________________________________________________________________
 function _tsetsp(p, v)
 {
+	#############################################
 	return (_tSTACK[p][0] = v)
 }
 
@@ -7031,6 +7249,7 @@ function _typa(p, A)
 #_______________________________________________________________________
 function _tzend(a, b)
 {
+	#####################################################
 	if (b == 0 && b == "") {
 		return (_TEND[_TEND[_ARRLEN]] = a)
 	} else {
@@ -7170,6 +7389,7 @@ function _unstr(t)
 #_________________________________________________________________
 function _untmp(f, a)
 {
+	#############################################
 	if (f = filepath(f)) {
 		if (match(f, /\\$/)) {
 			_deletepfx(_FILEIO_RDTMP, a = toupper(f))
@@ -7221,6 +7441,7 @@ function _var(v, t)
 #_______________________________________________________________________
 function _verb(t, d, A)
 {
+	##################################################
 	if (_ERRLOG_VF) {
 		A["TYPE"] = "VERB"
 		A["TEXT"] = t
@@ -7231,6 +7452,7 @@ function _verb(t, d, A)
 #_________________________________________________________________
 function _wFBRO(p, v, a)
 {
+	###########################################
 	if (p) {
 		if (v) {
 			for (a = p; a in _tPARENT; ) {
@@ -7238,6 +7460,7 @@ function _wFBRO(p, v, a)
 					return v
 				}
 			}
+			######################## v is parentesis of p
 			if (p in _tPARENT) {
 				p = _tPARENT[p]
 				if (v in _tNEXT) {
@@ -7328,14 +7551,16 @@ function _wFBRO(p, v, a)
 			if (v == 0) {
 				return v
 			}
+			######################## p=ptr, v=0
 			return v
 		}
 	} else {
+		######################## p=ptr, v=""
 		if (p == 0) {
-			return v
+			return v	######################## p=0
 		}
 		if (v) {
-			return _texclude(v)
+			return _texclude(v)	######################## p="", v=ptr	- exclude v
 		}
 		return v
 	}
@@ -7344,16 +7569,19 @@ function _wFBRO(p, v, a)
 #_________________________________________________________________
 function _wFCHLD(p, v, a)
 {
+	##########################################
 	if (p) {
 		if (v) {
 			if (p == v) {
 				return v
 			}
+			######################## p=v=ptr
 			for (a = p; a in _tPARENT; ) {
 				if ((a = _tPARENT[a]) == v) {
 					return v
 				}
 			}
+			######################## v is parentesis of p
 			if (v in _tNEXT) {
 				if (v in _tPREV) {
 					_tPREV[_tNEXT[a] = _tNEXT[v]] = a = _tPREV[v]
@@ -7409,6 +7637,7 @@ function _wFCHLD(p, v, a)
 		} else {
 			if (v == 0) {
 				if (p in _tFCHLD) {
+					######################## p=ptr, v=0 > delete all chld
 					v = _tFCHLD[p]
 					delete _tFCHLD[p]
 					delete _tLCHLD[p]
@@ -7421,8 +7650,9 @@ function _wFCHLD(p, v, a)
 			return v
 		}
 	} else {
+		######################## p=ptr, v="" > ignore action
 		if (p == 0) {
-			return v
+			return v	######################## p=0
 		}
 		return v
 	}
@@ -7431,6 +7661,7 @@ function _wFCHLD(p, v, a)
 #_________________________________________________________________
 function _wLBRO(p, v, a)
 {
+	###########################################
 	if (p) {
 		if (v) {
 			for (a = p; a in _tPARENT; ) {
@@ -7438,6 +7669,7 @@ function _wLBRO(p, v, a)
 					return v
 				}
 			}
+			######################## v is parentesis of p
 			if (p in _tPARENT) {
 				p = _tPARENT[p]
 				if (v in _tPREV) {
@@ -7528,14 +7760,16 @@ function _wLBRO(p, v, a)
 			if (v == 0) {
 				return v
 			}
+			######################## p=ptr, v=0
 			return v
 		}
 	} else {
+		######################## p=ptr, v=""
 		if (p == 0) {
-			return v
+			return v	######################## p=0
 		}
 		if (v) {
-			return _texclude(v)
+			return _texclude(v)	######################## p="", v=ptr	- exclude v
 		}
 		return v
 	}
@@ -7544,16 +7778,19 @@ function _wLBRO(p, v, a)
 #_________________________________________________________________
 function _wLCHLD(p, v, a)
 {
+	##########################################
 	if (p) {
 		if (v) {
 			if (p == v) {
 				return v
 			}
+			######################## p=v=ptr
 			for (a = p; a in _tPARENT; ) {
 				if ((a = _tPARENT[a]) == v) {
 					return v
 				}
 			}
+			######################## v is parentesis of p
 			if (v in _tPREV) {
 				if (v in _tNEXT) {
 					_tNEXT[_tPREV[a] = _tPREV[v]] = a = _tNEXT[v]
@@ -7609,6 +7846,7 @@ function _wLCHLD(p, v, a)
 		} else {
 			if (v == 0) {
 				if (p in _tFCHLD) {
+					######################## p=ptr, v=0 > delete all chld
 					v = _tFCHLD[p]
 					delete _tFCHLD[p]
 					delete _tLCHLD[p]
@@ -7621,8 +7859,9 @@ function _wLCHLD(p, v, a)
 			return v
 		}
 	} else {
+		######################## p=ptr, v="" > ignore action
 		if (p == 0) {
-			return v
+			return v	######################## p=0
 		}
 		return v
 	}
@@ -7631,22 +7870,26 @@ function _wLCHLD(p, v, a)
 #_________________________________________________________________
 function _wLINK(p, v)
 {
+	##############################################
 	return (_tLINK[p] = v)
 }
 
 #_________________________________________________________________
 function _wNEXT(p, v, a, b)
 {
+	#########################################
 	if (p) {
 		if (v) {
 			if (p == v) {
 				return v
 			}
+			######################## p=v=ptr
 			for (a = p; a in _tPARENT; ) {
 				if ((a = _tPARENT[a]) == v) {
 					return v
 				}
 			}
+			######################## v is parentesis of p
 			if (v in _tPREV) {
 				if (p == (a = _tPREV[v])) {
 					return v
@@ -7695,14 +7938,16 @@ function _wNEXT(p, v, a, b)
 			if (v == 0) {
 				return v
 			}
+			######################## p=ptr, v=0
 			return v
 		}
 	} else {
+		######################## p=ptr, v=""
 		if (p == 0) {
-			return v
+			return v	######################## p=0
 		}
 		if (v) {
-			return _texclude(v)
+			return _texclude(v)	######################## p="", v=ptr	- exclude v
 		}
 		return v
 	}
@@ -7711,22 +7956,26 @@ function _wNEXT(p, v, a, b)
 #_________________________________________________________________
 function _wPARENT(p, v)
 {
+	############################################
 	return v
 }
 
 #_________________________________________________________________
 function _wPREV(p, v, a, b)
 {
+	#########################################
 	if (p) {
 		if (v) {
 			if (p == v) {
 				return v
 			}
+			######################## p=v=ptr
 			for (a = p; a in _tPARENT; ) {
 				if ((a = _tPARENT[a]) == v) {
 					return v
 				}
 			}
+			######################## v is parentesis of p
 			if (v in _tNEXT) {
 				if (p == (a = _tNEXT[v])) {
 					return v
@@ -7775,14 +8024,16 @@ function _wPREV(p, v, a, b)
 			if (v == 0) {
 				return v
 			}
+			######################## p=ptr, v=0
 			return v
 		}
 	} else {
+		######################## p=ptr, v=""
 		if (p == 0) {
-			return v
+			return v	######################## p=0
 		}
 		if (v) {
-			return _texclude(v)
+			return _texclude(v)	######################## p="", v=ptr	- exclude v
 		}
 		return v
 	}
@@ -7791,17 +8042,21 @@ function _wPREV(p, v, a, b)
 #_________________________________________________________________
 function _wQBRO(p, v)
 {
+	##############################################
 	return v
 }
 
 #_________________________________________________________________
 function _wQCHLD(p, v)
 {
+	#############################################
 	if (p) {
 		if (v) {
 		} else {
+			######################## p=ptr, v=ptr
 			if (v == 0) {
 				if (p in _tFCHLD) {
+					######################## p=ptr, v=0 > delete all chld
 					v = _tFCHLD[p]
 					delete _tFCHLD[p]
 					delete _tLCHLD[p]
@@ -7814,9 +8069,11 @@ function _wQCHLD(p, v)
 			return v
 		}
 	} else {
+		######################## p=ptr, v="" > ignore action
 		if (p == 0) {
 			return v
 		}
+		######################## p=0
 		return v
 	}
 }
@@ -7824,6 +8081,7 @@ function _wQCHLD(p, v)
 #_______________________________________________________________________
 function _warning(t, d, A)
 {
+	###############################################
 	if (_ERRLOG_WF) {
 		A["TYPE"] = "WARNING"
 		A["TEXT"] = t
@@ -7875,6 +8133,7 @@ function _wr_shortcut(f, S)
 #_________________________________________________________________
 function _wrfile(f, d, a, b)
 {
+	#########################################
 	if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
 		ERRNO = "Filename error"
 		return 
@@ -7900,6 +8159,7 @@ function _wrfile(f, d, a, b)
 #___________________________________________________________
 function _wrfile1(f, d, a, b)
 {
+	##################################
 	if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
 		ERRNO = "Filename error"
 		return 
@@ -7925,6 +8185,7 @@ function _wrfile1(f, d, a, b)
 #_______________________________________________________________________
 function _yexport(p)
 {
+	#####################################################
 	return _tframe("_yexport_i0", p)
 }
 
@@ -7945,6 +8206,7 @@ function _yexport_i0(p, p0, p1, p2)
 #_________________________________________________________________
 function cmp_str_idx(i1, v1, i2, v2)
 {
+	##############################
 	return ((i1 < i2 ? -1 : 1))
 }
 
@@ -8099,6 +8361,7 @@ function hujf(a, b, c)
 #___________________________________________________________
 function ncmp_str_idx(i1, v1, i2, v2)
 {
+	#######################
 	return ((i1 < i2 ? 1 : -1))
 }
 
@@ -8225,4 +8488,5 @@ function zorr(A, i, r)
 #_____________________________________________________________________________
 function zzer()
 {
+	################################################################
 }