Using property sheets may give you the functionality that you are looking for in your second question.
Here's my standard building block for starting new code.
program main
include<windows.ins>
integer i
integer,save:: h1, h2, h3
!---1st sheet
i = winio@('%sh&',h1)
i = winio@('%fn[Tahoma]&')
i = winio@('%ca[Sheet 1]&')
i = winio@('%bg&',rgb@(250,250,250))
! MAIN BODY OF SHEET 1 GOES HERE
i = winio@('%tc[red]&')
i = winio@('%ws&','Sheet 1')
! END OF MAIN BODY OF SHEET 1
i = winio@(' ')
!---2nd sheet
i = winio@('%sh&',h2)
i = winio@('%fn[Tahoma]&')
i = winio@('%ca[Sheet 2]&')
i = winio@('%bg&',rgb@(250,250,250))
! MAIN BODY OF SHEET 2 GOES HERE
i = winio@('%tc[blue]&')
i = winio@('%ws&','Sheet 2')
! END OF MAIN BODY OF SHEET 1
i = winio@(' ')
!---3rd sheet
i = winio@('%sh&',h3)
i = winio@('%fn[Tahoma]&')
i = winio@('%ca[Sheet 3]&')
i = winio@('%bg&',rgb@(250,250,250))
! MAIN BODY OF SHEET 3 GOES HERE
i = winio@('%tc[green]&')
i = winio@('%ws&','Sheet 3')
! END OF MAIN BODY OF SHEET 1
i = winio@(' ')
!---Display the combined sheets
i = winio@('%mn[Exit]&','exit')
i = winio@('%ca[Property Sheet Example]&')
i = winio@('%bg&',rgb@(250,250,250))
i = winio@('%3ps[hot_track]&',h1,h2,h3)
i = winio@(' ')
end program main