96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
11 lines
196 B
Plaintext
11 lines
196 B
Plaintext
#require "hbnf"
|
|
|
|
PROCEDURE Main( cTime )
|
|
|
|
cTime := iif( cTime == NIL, Time(), cTime )
|
|
? "Setting time to: " + cTime + "... "
|
|
ft_SetTime( cTime )
|
|
? "Time is now: " + Time()
|
|
|
|
RETURN
|