Lenguaje 4DComandosSystem EnvironmentVersión: 20 R8 BETASystem EnvironmentCount screens : IntegerCurrent client authentication {( dominio ; protocolo )} : TextCurrent machine : TextCurrent system user : TextFont file ( familiaFuente {; estiloFuente} ) : anyFONT LIST ( fuentes {; tipoLista} )FONT STYLE LIST ( familiaFuiente ; listaEstilosFuente ; listaNomsFuente )GET SYSTEM FORMAT ( formato ; valor )Is macOS : BooleanIs Windows : BooleanLOG EVENT ( {tipoSalida ;} mensaje {; importancia} )Menu bar height : IntegerMenu bar screen : IntegerOPEN COLOR PICKER {( textOFondo )}OPEN FONT PICKERSCREEN COORDINATES ( izquierda ; superior ; derecha ; inferior {; IDpantalla {; areaPantalla}} )SCREEN DEPTH ( profundidad ; color {; pantalla} )Screen height {( * )} : IntegerScreen width {( * )} : IntegerSelect RGB color {( colorDefecto {; mensaje} )} : IntegerSET RECENT FONTS ( arrayFuentes )System folder {( tipo )} : TextSystem info : ObjectTemporary folder : Text