22 lines
249 B
Plaintext
22 lines
249 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
procedure main()
|
|
|
|
local aArray := {{NIL}}
|
|
|
|
aArray [ 1 /*first*/ ][ 1 /* second */ ] := [Hello]
|
|
|
|
QOut( aArray[1][1] )
|
|
|
|
QOut( 'World "Peace[!]"' )
|
|
|
|
QOut( "Harbour 'Power[!]'" )
|
|
|
|
QOut( [King 'Clipper "!"'] )
|
|
|
|
return
|
|
|
|
|