home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
CLIPPER
/
HLPSYS11
/
TEST.PRG
< prev
Wrap
Text File
|
1993-06-30
|
757b
|
22 lines
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