given long word to
_TaggedWriter (Action) Test_UintTo
POINTER TO Plc
Value POINTER TO DWORD
Value POINTER TO DWORD Return
TO tSysDirSetCurrent
TO tSysDirGetCurrent
access to the file t