added sysprog entities

SYSPROG/STPROC/STATUSLINE.txt

@@ -0,0 +1,14 @@
+COMPILE FUNCTION StatusLine(Window,StatusLine,StatusOutline)
+
+DECLARE Subroutine Set_Property
+
+Window = IF ASSIGNED(Window) THEN Window ELSE @WINDOW
+StatusLine = IF ASSIGNED(StatusLine) THEN StatusLine ELSE 'STATUSLINE_FIX'
+StatusOutLine = IF ASSIGNED(StatusOutLine) THEN StatusOutLine ELSE 'STATUS_OUTLINE_FIX'
+
+Ctrls  = Window:'.":StatusOutLine':@RM	;	Props  = 'STYLE':@RM		; Vals  = '0X0000008':@RM
+Ctrls := Window							;	Props := 'STATUSLINE'		; Vals := Window:'.':Statusline
+
+Set_Property(Ctrls,Props,Vals)
+
+RETURN ''