8 lines
286 B
Text
8 lines
286 B
Text
|
CHARACTER timestamp*18
|
||
|
|
|
||
|
|
timestamp = ' ' ! blank timestamp will read:
|
||
|
|
SYSTEM(FIle="File_modification_time.hic", FileTime=timestamp) ! 20100320141940.525
|
||
|
|
|
||
|
|
timestamp = '19991231235950' ! set timestamp to Millenium - 10 seconds
|
||
|
|
SYSTEM(FIle="File_modification_time.hic", FileTime=timestamp)
|