9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
26 lines
715 B
Plaintext
26 lines
715 B
Plaintext
|
|
#require "hbnf"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aString := { ;
|
|
"RTrim('abc ')", ;
|
|
"NotARealFunc()", ;
|
|
"ft_DispMsg()", ;
|
|
'RTrim(cVar+"abc"+Left(cString)), Found()', ;
|
|
"IsItLinked()", ;
|
|
"lRetVal := Found()", ;
|
|
"!Eof() .AND. Month(Date())=12 .AND. YeeHa()", ;
|
|
"!Eof() .AND. Month(Date())=12", ;
|
|
"!Eof() .AND. Month(Date(YeeHa()))=12", ;
|
|
"Left(SubStr(nNum,4,Val(cChar+Asc(c))))", ;
|
|
"Eof(>> Note: Syntax IS NOT checked! <<)" }
|
|
|
|
CLS
|
|
@ 1, 0 SAY "String Tested Result"
|
|
@ 2, 0 TO 2, MaxCol()
|
|
AEval( aString, {| ele | QOut( ele, Space( 45 - Len( ele ) ), ft_Linked( ele ) ) } )
|
|
@ MaxRow() - 2, 0
|
|
|
|
RETURN
|