; open a CON: window
If OpenFile(0,"CON:0/0/100/100")
  ; Window opened, direct output to it
  FileOutput 0

  For a.w = 0 To 1000
    NPrint a
  Next a

  ; Close Window
  CloseFile 0
EndIf