a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
18 lines
200 B
Plaintext
18 lines
200 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
? CMonth( Date() )
|
|
? CMonth( Date() + 31 )
|
|
? CMonth( Date() + 60 )
|
|
?
|
|
|
|
? CDoW( Date() )
|
|
? CDoW( Date() + 6 )
|
|
? CDoW( Date() + 7 )
|
|
?
|
|
|
|
RETURN
|