96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
25 lines
714 B
Plaintext
25 lines
714 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
|