9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
39 lines
368 B
Plaintext
39 lines
368 B
Plaintext
|
|
#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
|