home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / HLPSYS11.ZIP / TEST.PRG < prev   
Text File  |  1993-06-29  |  757b  |  22 lines
  1. FUNCTION Main
  2.   OpenWindow(10,10,20,70,"Top Title","Bottom Title",.T.)
  3.   SetColor("R/B")
  4.   PrintWindow(5,5,"Test Text")
  5.   SetColor("B/R")
  6.   PrintWindow(4,5,"This is")
  7.   SetColor("N/W")
  8.   PrintWindow(7,1,"This is a sample line that should wrap"+;
  9.                   " to the next line once the edge of the window is reached")
  10.   PrintAlert("Sample Alert")
  11.   PrintWindow(0,1,"Test Line 1")
  12.   PrintWindow(1,0,"Test Line 2")
  13.   PrintWindow(1,0,"Test Line 3")
  14.   * NOTE: If the row parameter is greater than the number of lines in the
  15.   *       window, the window is automatically scrolled up one and then
  16.   *       the line is printed
  17.   PrintWindow(100,1,"Test Line 4")
  18.   PrintWindow(100,1,"Press Anykey")
  19.   INKEY(0)
  20.   CloseWindow()
  21. RETURN NIL
  22.