/* */
call rxfuncadd 'Sys2LoadFuncs', 'RXUTILEX', 'Sys2LoadFuncs'
call Sys2LoadFuncs

say Sys2Version()

cltext = 'Test clipboard text'
say 'Copying text to clipboard:   "'cltext'"'
call Sys2PutClipboardText cltext
say 'Getting text from clipboard: "' || Sys2GetClipboardText() || '"'

say Sys2QueryProcess( 40, 'P')
say 'Current process:' Sys2QueryProcess( 0, 'P')

pc = Sys2QueryProcessList('procs.')
say pc 'processes found.'
/*
do i = 1 to procs.0
    say procs.i
end
*/
say 'Current foreground process:' Sys2QueryForegroundProcess()
/*
call Sys2KillProcess 'xyz', 'n'
*/
say

say 'Physical Memory:' Sys2FormatNumber( Sys2QueryPhysicalMemory() ) 'kB'
say

et = Sys2GetEpochTime()
say 'Current calendar time is' Sys2FormatNumber( et ) 'seconds after the epoch.'
say 'Current local time is "'Sys2FormatTime(et, 'l')'"'
say 'Current  UTC  time is "'Sys2FormatTime(et, 'l', 'u')'"'
say

say Sys2LocateDLL('ehxdlmri')
say Sys2LocateDLL('ehxdlmri', 'a')
say Sys2LocateDLL('ehxdlmri', 'l')
say Sys2LocateDLL('gcc1', 'l')
say

map = SysDriveMap('A', 'USED')
do i = 1 to words( map )
    info = Sys2QueryDriveInfo( WORD( map, i ))
    if info == '' then info = WORD( map, i ) 'Unable to get drive data ('SYS2ERR')'
    say info
end
say

say 'Current screen resolution:' Sys2QuerySysValue('CXSCREEN') Sys2QuerySysValue('CYSCREEN')
say

say Sys2FormatNumber('9375739912303')
say Sys2FormatNumber('-64583.449286', 5)

pid = Sys2Exec('e.exe', SysBootDrive() || '\config.sys /read', 'd')
say 'Started program with PID =' pid

/*
hf = Sys2Open('test1')
CALL Sys2SetSize hf, 100
CALL Sys2Close hf
*/

call Sys2DropFuncs
return 0