a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
42 lines
383 B
Plaintext
42 lines
383 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#ifndef __HARBOUR__
|
|
#include "clipper.ch"
|
|
#endif
|
|
|
|
MEMVAR i
|
|
|
|
PROCEDURE Main( Param1 )
|
|
|
|
LOCAL i, j, k
|
|
|
|
i := 1
|
|
j := 2
|
|
|
|
Sub( @j )
|
|
|
|
? j
|
|
|
|
HB_SYMBOL_UNUSED( Param1 )
|
|
HB_SYMBOL_UNUSED( k )
|
|
HB_SYMBOL_UNUSED( i )
|
|
|
|
RETURN
|
|
|
|
FUNCTION Sub( j )
|
|
|
|
m->i := 1
|
|
j := 3
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION arrvar()
|
|
|
|
// LOCAL i := { 1 }
|
|
|
|
i[ 1 ] := 2
|
|
|
|
RETURN NIL
|