LOCAL dNewDate

// Set the system date in each case; but the hardware clock only
// on an AT:

dNewDate := 0d19910730
IF IsAt()
   SetDate( dNewDate, .T. )
ELSE
   SetDate( dNewDate )
ENDIF

// Or, more compactly:

SetDate( dNewDate, IsAt() )

LOCAL cNewTime

// Set the system time in each case; but the hardware clock only
// on an AT:

cNewTime := "10:20:00"
IF IsAt()
   SetTime( cNewTime, .T. )
ELSE
   SetTime( cNewTime )
ENDIF

// Or, more compactly:

SetTime( cNewTime, IsAt() )

LOCAL cBegin, GetList := {}

// Using the VALID clause with RTrim(), all valid times are
// accepted, even if no seconds or minutes are specified:

cBegin := Space( 11 )
@ 5, 10 SAY "Please input time for beginning work:";
   GET cBegin VALID TimeValid( RTrim( cBegin ) )
READ

// Using a VALID clause without TRIM, hours and minutes must be
// specified, so that TimeValid() can confirm a valid time:

cBegin := Space( 5 )
@ 5, 10 SAY "Please input time for beginning work:" ;
   GET cBegin VALID TimeValid( cBegin )
READ

// Run a loop for 5 seconds:

WaitPeriod( 500 )             // Initialization, 5 seconds
DO WHILE <cond1> .AND. <cond2> .AND. WaitPeriod()
   // ...
ENDDO

? Acos( 0.0 )  // --> Pi() / 2
? Acos( 0.5 )  // --> 1.04719...

? Asin( 0.0 )  // --> 0.0
? Asin( 0.5 )  // --> 0.5235...

? Atan( 0.0 )  // --> 0.0
? Atan( 0.5 )  // --> 0.4636...

? Atn2( 0.0, 1.0 )  // --> 0.0
? Atn2( Sqrt( 1 / 2 ), Sqrt( 1 / 2 ) )  // --> Pi() / 4

? Ceiling( 1.1 )   // --> 2.0
? Ceiling( -1.1 )  // --> -1.0

? Cos( 0.0 )  // --> 1.0
? Cos( 1.0 )  // --> 0.5403...

? Cosh( 0.0 )  // --> 1.0
? Cosh( 1.0 )  // --> 1.5430...

? Cot( 1.0 )  // --> 0.6420...

? DToR( 180 )  // --> Pi()
? DToR( 60 )   // --> Pi() / 3

? Fact( 0 )  // --> 1
? Fact( 1 )  // --> 1
? Fact( 4 )  // --> 24

? Floor( 1.1 )   // --> 1.0
? Floor( -1.1 )  // --> -2.0

// Payment of 1000 per year for 10 years at a interest rate
// of 5 per cent per year

? FV( 1000, 0.05, 10 )  // --> 12577.893

? Log10( 10.0 )          // --> 1.0
? Log10( Sqrt( 10.0 ) )  // --> 0.5

// You get a loan of 5172.56 at a interest rate of 0.5% per
// month (6% per year).
// For 5 years, you have to pay back every month

? Payment( 5172.56, 0.005, 60 ) // --> 100.00

// You get a loan of 5172.56 at a interest rate of 0.5% per
// month (6% per year).
// You can afford to pay 100 back every month, so you need

? Periods( 5172.56, 100, 0.005 ) // --> 60.0

// months to cancel the loan.

// the diameter of a circle-like swimming pool is 3.4 meters, how
// long is the perimeter?

? Str( Pi() * 3.4, 5, 3 ) + " meters"  // --> "10.681 meters"

// You can afford to pay back 100 Dollars per month for 5 years
// at a interest rate of 0.5% per month (6% per year), so instead
// of 6000 Dollars (the amount you will pay back) the bank will pay
// you

? PV( 100, 0.005, 60 ) // --> 5172.56

// You get a loan of 5172.56, pay 100 back every month for
// 5 years (60 months). The effective interest rate per
// period (=month) is

? Rate( 5172.56, 100, 60 ) // --> 0.005

? RToD( Pi() )      // --> 180
? Tanh( Pi() / 3 )  // --> 60

? Sign( 1.1 )   // --> 1
? Sign( -1.1 )  // --> -1
? Sign( 0.0 )   // --> 0

? Sin( 0.0 )  // --> 0.0
? Sin( 1.0 )  // --> 0.8414...

? Sinh( 0.0 )  // --> 0.0
? Sinh( 1.0 )  // --> 1.1752...

? Tan( 0.0 )  // --> 0.0
? Tan( 1.0 )  // --> 1.5574...

? Tanh( 0.0 )  // --> 0.0
? Tanh( 1.0 )  // --> 0.7615...

// melting point of water in standard conditions
? Celsius( 32.0 )      // --> 0.0
// boiling point of water in standard conditions
? Celsius( 212.0 )     // --> 100.0

// melting point of water in standard conditions
? Fahrenheit( 0.0 )    // --> 32.0
// boiling point of water in standard conditions
? Fahrenheit( 100.0 )  // --> 212.0

// Add 32 to the ASCII value of the character at the last position
// in the string

? AddAscii( "SmitH", 32 )  // --> "Smith"

? AfterAtNum( "!", "What is the answer ? 4 ! 5 !" )  // --> ""
? AfterAtNum( "!", "What is the answer ? 4 ! 5 ?" )  // --> " 5 ?"
// TODO: add some examples here with CSetAtMupa() and SetAtLike()

? AsciiSum( "ABC" )  // -->  197
? AsciiSum( "ACB" )  // -->  197

? AscPos( "0123456789" )     // --> 57
? AscPos( "0123456789", 1 )  // --> 48

? AtNum( "!", "What is the answer ? 4 ! 5 !" )  // --> 28
? AtNum( "!", "What is the answer ? 4 ! 5 ?" )  // --> 24
<TODO: add some examples here with CSetAtMupa() and SetAtLike()>

? AtRepl( "ABC", "ABCDABCDABC", "xx" )          // --> "xxDxxDxx"
? AtRepl( "ABC", "ABCDABC", "ZYXW" )            // --> "ZYXWDZYXW"
? AtRepl( "ABC", "ABCDABCDABC", "xx", 2 )       // --> "xxDxxDABC"
? AtRepl( "ABC", "ABCDABCDABC", "xx", 2, .T. )  // --> "ABCDxxDABC"

AtToken( "Hello, World!" )  // --> 8 (empty strings after tokenizer are not a token !)

? BeforAtNum( "!", "What is the answer ? 4 ! 5 !" )  // --> "What is the answer ? 4 ! 5 "
? BeforAtNum( "!", "What is the answer ? 4 ! 5 ?" )  // --> "What is the answer ? 4 "
<TODO: add some examples here with CSetAtMupa() and SetAtLike()>

? CharAdd( "012345678", hb_BChar( 1 ) )    // --> "123456789"
? CharAdd( "123456789", hb_BChar( 255 ) )  // --> "012345678"
? CharAdd( "0000", hb_BChar( 0 ) + hb_BChar( 1 ) + hb_BChar( 2 ) + hb_BChar( 3 ) )  // --> "0123"

// clear the LSB
? CharAnd( "012345678", hb_BChar( 254 ) ) // --> "002244668"
? CharAnd( "012345678", hb_BChar( 254 ) + hb_BChar( 252 ) ) // --> "002044648"

? CharEven( " H E L L O !" )  // --> "HELLO!"

? CharHist( "Hello World !" )[ 109 ] // --> 3  // Chr( 108 ) == "l"

? CharList( "Hello World !" )  // --> "Helo Wrd!"

? CharMirr( "racecar" )         // "racecar"
? CharMirr( "racecar  ", .T. )  // "racecar  "
? CharMirr( "racecar  ", .F. )  // "  racecar"

? CharMix( "ABC", "123" )   // "A1B2C3"
? CharMix( "ABCDE", "12" )  // "A1B2C1D2E1"
? CharMix( "AB", "12345" )  // "A1B2"
? CharMix( "HELLO", " " )   // "H E L L O "
? CharMix( "HELLO", "" )    // "HELLO"

? CharNoList( CharNoList( "Hello World !" ) ) // --> " !HWdelor"

? CharNot( hb_BChar(  85 ) + hb_BChar( 128 ) + hb_BChar( 170 ) + hb_BChar(   1 ) )
// -->     hb_BChar( 170 ) + hb_BChar( 127 ) + hb_BChar(  85 ) + hb_BChar( 254 )
? CharNot( CharNot( "This is a test!" ) ) // --> "This is a test!"

? CharOdd( "H E L L O ! " )  // --> "HELLO!"

? CharOne( "122333a123" )       // "123a123"
? CharOne( "A  B  CCCD" )       // "A B CD"
? CharOne( " ", "A  B  A  B" )  // "A B A B"
? CharOne( "o", "122oooB12o" )  // "122oB12o"

? CharOnly( "0123456789", "0211 - 38 99 77" )  // "0211389977"
? CharOnly( "0123456789", "0211/ 389 977" )    // "0211389977"

// set the LSB
? CharOr( "012345678", hb_BChar( 1 ) ) // --> "113355779"
? CharOr( "012345678", hb_BChar( 1 ) + hb_BChar( 3 ) ) // --> "133357779"

? CharRem( " ", " 1  2  " )   // "12"
? CharRem( "3y", "xyz123" )   // "xz12"

? CharRepl( "1234", "1x2y3z", "abcd" )             // "axbycz"
? CharRepl( "abcdefghij", "jhfdb", "1234567890" )  // "08642"
? CharRepl( "abcdefghij", "jhfdb", "12345" )       // "55542"
? CharRepl( "1234", "1234", "234A" )               // "AAAA"
? CharRepl( "1234", "1234", "234A", .T. )          // "234A"

? CharRll( hb_BChar(   1 ) + hb_BChar(  2 ) + hb_BChar(  4 ) + hb_BChar(   8 ) + ;
           hb_BChar(  16 ) + hb_BChar( 32 ) + hb_BChar( 64 ) + hb_BChar( 128 ), 3 )
// -->     hb_BChar(   8 ) + hb_BChar( 16 ) + hb_BChar( 32 ) + hb_BChar(  64 ) + ;
//         hb_BChar( 128 ) + hb_BChar(  1 ) + hb_BChar(  2 ) + hb_BChar(   4 )

? CharRlr( hb_BChar(  1 ) + hb_BChar(  2 ) + hb_BChar(   4 ) + hb_BChar(   8 ) + ;
           hb_BChar( 16 ) + hb_BChar( 32 ) + hb_BChar(  64 ) + hb_BChar( 128 ), 3 )
// -->     hb_BChar( 32 ) + hb_BChar( 64 ) + hb_BChar( 128 ) + hb_BChar(   1 ) + ;
//         hb_BChar(  2 ) + hb_BChar(  4 ) + hb_BChar(   8 ) + hb_BChar(  16 )

? CharShl( hb_BChar(   1 ) + hb_BChar(  2 ) + hb_BChar(  4 ) + hb_BChar(   8 ) + ;
           hb_BChar(  16 ) + hb_BChar( 32 ) + hb_BChar( 64 ) + hb_BChar( 128 ), 3 )
// -->     hb_BChar(   8 ) + hb_BChar( 16 ) + hb_BChar( 32 ) + hb_BChar(  64 ) + ;
//         hb_BChar( 128 ) + hb_BChar(  0 ) + hb_BChar(  0 ) + hb_BChar(   0 )

? CharShr( hb_BChar(  1 ) + hb_BChar(  2 ) + hb_BChar(  4 ) + hb_BChar(   8 ) + ;
           hb_BChar( 16 ) + hb_BChar( 32 ) + hb_BChar( 64 ) + hb_BChar( 128 ), 3 )
// -->     hb_BChar(  0 ) + hb_BChar(  0 ) + hb_BChar(  0 ) + hb_BChar(   1 ) + ;
//         hb_BChar(  2 ) + hb_BChar(  4 ) + hb_BChar(  8 ) + hb_BChar(  16 )

? CharSList( "Hello World !" )  // --> " !HWdelor"

? CharSort( "qwert" )                     // "eqrtw"
? CharSort( "qwert", 2 )                  // "erqwt"
? CharSort( "b1a4a3a2a1", 2, 1 )          // "a2a1a3a4b1"
? CharSort( "XXXqwert", 1, 1, 3 )         // "XXXeqrtw"
? CharSort( "b1a4a3a2a1", 2, 1, 0, 1 )    // "a1b1a2a3a4"
? CharSort( "384172852", 1, 1, 0, 0, 4 )  // "134872852"
? CharSort( "qwert", .T. )                // "wtrqe"

? CharSub( "012345678", hb_BChar( 1 ) )    // --> "/01234567"
? CharSub( "123456789", hb_BChar( 255 ) )  // --> "23456789:"
? CharSub( "9999", hb_BChar( 0 ) + hb_BChar( 1 ) + hb_BChar( 2 ) + hb_BChar( 3 ) )  // --> "9876"

? CharSwap( "0123456789" )   // "1032547698"
? CharSwap( "ABCDEFGHIJK" )  // "BADCFEHGJIK"

// easy encryption
? CharXor( "This is top secret !", "My Password" ) // --> <encrypted sentence>

? RangeRem( "0", "9", "year2002.dbf" )  // "year.dbf", remove all digits
? RangeRem( "9", "0", "year2002.dbf" )  // "22", testing removal from "9" to hb_BChar( 255 )
                                        // and from hb_BChar( 0 ) to "0"
? RangeRem( "0", "9", "yearcurr.dbf" )  // "yearcurr.dbf", test leaving string untouched

? RangeRepl( "0", "9", "year2002.dbf", "?" )  // "year????.dbf", replace all digits
? RangeRepl( "9", "0", "year2002.dbf", "?" )  // "????2??2????", testing replacement from "9" to hb_BChar( 255 )
                                              // and from hb_BChar( 0 ) to "0"
? RangeRepl( "0", "9", "yearcurr.dbf", "?" )  // "yearcurr.dbf", test leaving string untouched

? StrDiff( "ABC", "ADC" )   // 3, one character replaced
? StrDiff( "ABC", "AEC" )   // 3, ditto
? StrDiff( "CBA", "ABC" )   // 6, two characters replaced
? StrDiff( "ABC", "AXBC" )  // 1, one character inserted
? StrDiff( "AXBC", "ABC" )  // 6, one character removed
? StrDiff( "AXBC", "ADC" )  // 9, one character removed and one replaced

? Token( "Hello, World!" )             // "World"
? Token( "Hello, World!",, 2, 1 )      // ""
? Token( "Hello, World!", ",", 2, 1 )  // " World!"
? Token( "Hello, World!", " ", 2, 1 )  // "World!"

LOCAL cString := "The quick brown fox jumps over the lazy dog"
TokenInit( cString ) // initialize a TE
DO WHILE ! TokenEnd()
   ? "From", TokenAt(), "to", TokenAt( .T. ) - 1
   ? TokenNext( cString )  // get all tokens successively
ENDDO
? TokenNext( cString, 3 )  // get the 3rd token, counter will remain the same
TokenExit()                // free the memory used for the global TE

TokenInit( "a.b.c.d", ".", 1 )  // initialize global TE
DO WHILE ! TokenEnd()
   ? TokenNext( "a.b.c.d" )     // get all tokens successively
ENDDO

LOCAL cString := "The quick brown fox jumps over the lazy dog"
TokenInit( cString ) // initialize a TE
DO WHILE ! TokenEnd()
   ? TokenNext( cString )  // get all tokens successively
ENDDO
? TokenNext( cString, 3 )  // get the 3rd token, counter will remain the same
TokenExit()                // free the memory used for the global TE

TokenInit( cString )             // tokenize the string <cString> with default
                                 // rules and store the token environment globally
                                 // and eventually delete an old global TE
TokenInit( @cString )            // no difference in result, but eventually faster,
                                 // since the string must not be copied
TokenInit()                      // rewind counter of global TE to 1
TokenInit( "1,2,3", "," , 1 )    // tokenize constant string, store in global TE
TokenInit( cString, , 1, @cTE1 ) // tokenize cString and store TE in
                                 // cTE1 only without overriding global TE
TokenInit( cString, , 1, cTE1 )  // tokenize cString and store TE in
                                 // GLOBAL TE since 4th parameter is
                                 // not given by reference !!!
TokenInit( ,,, @cTE1 )           // set counter in TE stored in cTE1 to 1

? TokenLower( "Hello, World, here I am!" )          // "hello, world, here i am!"
? TokenLower( "Hello, World, here I am!",, 3 )      // "hello, world, here I am!"
? TokenLower( "Hello, World, here I am!", ",", 3 )  // "hello, World, here I am!"
? TokenLower( "Hello, World, here I am!", " W" )    // "hello, World, here i am!"

LOCAL cString := "The quick brown fox jumps over the lazy dog"
// default behaviour
TokenInit( cString )  // initialize a TE
DO WHILE ! TokenEnd()
   ? TokenNext( cString )  // get all tokens successively
ENDDO
? TokenNext( cString, 3 )  // get the 3rd token, counter will remain the same
TokenExit()                // free the memory used for the global TE

TokenInit( "a.b.c.d", ".", 1 )  // initialize global TE
? TokenNum()  // --> 4

see Token() function

? TokenUpper( "Hello, world, here I am!" )          // "Hello, World, Here I Am!"
? TokenUpper( "Hello, world, here I am!",, 3 )      // "Hello, World, Here I am!"
? TokenUpper( "Hello, world, here I am!", ",", 3 )  // "Hello, world, here I am!"
? TokenUpper( "Hello, world, here I am!", " w" )    // "Hello, wOrld, Here I Am!"

? ValPos( "1234x56789" ) // --> 9
? ValPos( "1234x56789", 1 ) // --> 1

? WordOne( "12ABAB12" )       // "12AB12"
? WordOne( "1AAAA2" )         // "1AAAA2"
? WordOne( "12", "1212ABAB" ) // "12ABAB"

? WordOnly( "AABBCCDD", "XXAAYYBBZZ" )  // "AABB"
? WordOnly( "AABBCCDD", "XAAYYYBBZZ" )  // "BB"

? WordRem( "abcd", "0ab1cd" )   // "0ab1"
? WordRem( "abcd", "ab0cd1" )   // "0cd1"

? WordRepl( "CC", "AABBCCDDEE", "XX" )  // "AABBXXDDEE"
? WordRepl( "aa", "1aaaa", "ba" )       // "1abaa"
? WordRepl( "aa", "1aaaa", "ba", .T. )  // "1baba"
CSetAtMupa( .T. )
? WordRepl( "aa", "1aaaa", "ba" )       // "1abaa"
? WordRepl( "aa", "1aaaa", "ba", .T. )  // "1bbba"

? WordSwap( "1234567890" )       // "3412785690"
? WordSwap( "1234567890", .T. )  // "4321876590"