OPTION SHOW OFF
OPTION C_COORDS
OPTION C_STRINGS

dim n as int
dim w as int
dim h as int

w=40
h=40

font "mini_normal_font"

sub repaint
  cls
  rect 0,0,w,h
  rect 80,0,w,h
  rect 0,50,w,h
  n = wrap(0,0,w,h,LEFT,WORD,"This is a test\nof the emergency broadcast system");
  n = wrap(80,0,w,h,CENTER,WORD,"This is a test\nof the emergency broadcast system");
  n = wrap(0,50,w,h,RIGHT,CHAR,"This is a test\nof the emergency broadcast system");
  printxy 80,90,n
  redraw show
end sub

repaint

while true
  if key(#KEY_LEFT) then
      w=w-1
      repaint
  endif
  if key(#KEY_RIGHT) then
      w=w+1
      repaint
  endif
  if key(#KEY_UP) then
      h=h-1
      repaint
  endif
  if key(#KEY_DOWN) then
      h=h+1
      repaint
  endif
wend