* Window program sample code
* [The PrintWindow() calls will only work with the registered version]
*
* COMPILE with   CLIPPER <file> /w/n
* LINK with      RTLINK FI <file>,HELPSYS2 LI HELPSYS2

FUNCTION Main
  OpenWindow(10,10,20,70,"Top Title","Bottom Title",.T.)
  SetColor("R/B")
  PrintWindow(5,5,"Test Text")
  SetColor("B/R")
  PrintWindow(4,5,"This is")
  SetColor("N/W")
  PrintWindow(7,1,"This is a sample line that should wrap"+;
                  " to the next line once the edge of the window is reached")
  PrintAlert("Sample Alert")
  PrintWindow(0,1,"Test Line 1")
  PrintWindow(1,0,"Test Line 2")
  PrintWindow(1,0,"Test Line 3")
  * NOTE: If the row parameter is greater than the number of lines in the
  *       window, the window is automatically scrolled up one and then
  *       the line is printed
  PrintWindow(100,1,"Test Line 4")
  PrintWindow(100,1,"Press Anykey")
  INKEY(0)
  CloseWindow()
RETURN NIL