Jabarkan Contoh dari Harbour (perisian) dalam bahasa melayu

Contoh atur cara "hello world" biasa ialah:

Atau, dikurung dalam tatacara nyata:

LOCAL oPerson := Orang( "Dave" )

ASSIGN Eyes( x ) INLINE IIF( ValType( x ) == 'C' .AND. x IN "Blue,Brown,Green", ::pvtEyes := x, Alert( "Invalid value" ) )

// Contoh pentakrifan Method DALAM-BARIS