/* Hello3.pkg */
fun _end(a,b)=_closemachine;;
fun _resize(a,t,x,y)=_SIZEtext t x-2 y-2 1 1;;
fun main()=
let
_CRwindow _channel nil 150 150 400 300
WN_MENU|WN_MINBOX|WN_SIZEBOX "Hello World"
->
win in
let
_CRtext _channel win 1 1 398 298
ET_VSCROLL|ET_HSCROLL "Hello World"
-> text in
(_CBwinDestroy
win @_end nil;
_CBwinSize win
@_resize text
);;