WINDOW(WINdowhandle=handle, Width=80, Height=-400, X=1, Y=1/2, TItle="Rosetta Window_creation Example")
! window units: as pixels < 0,  as relative window size 0...1,  ascurrent character sizes > 1

WRITE(WINdowhandle=handle) '... some output ...'