a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
20 lines
165 B
Plaintext
20 lines
165 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL a, b, c
|
|
|
|
a := { {, } }
|
|
|
|
a[ 1, 2 ] := [Hello]
|
|
|
|
c := { 1 }
|
|
|
|
b := a[ c[ 1 ] ][ Val( [ 2 ] ) ]
|
|
|
|
? b
|
|
|
|
RETURN
|