96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
38 lines
367 B
Plaintext
38 lines
367 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
|