home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
clipper
/
clipwind.arc
/
TESTNC.PRG
< prev
next >
Wrap
Text File
|
1988-03-14
|
1KB
|
26 lines
CLEAR
TEXT
1 Welcome, this is a demo of the Windows For Clipper Library for the
2 Summer '87 version of the compiler. This demo will give you a breif
3 introduction to the power of the library and what it can do for you.
4
5 The above display was generated by initializing each window, drawing
6 each window, drawing each BIG letter, and then inserting a 150 count loop
7 to delay movement. Your ROM BIOS was used to write the characters. Next,
8 it will do all of the above, without the 150 count loop and using direct
9 screen writes. Ready to watch it scream!
0
1 Press A key when you're ready
ENDTEXT
STORE 0 TO ltrow, ltcol, lerow, lecol
clrcode = " "
DO WHILE .T.
@ 21,0 SAY "Enter Starting Row " GET ltrow
@ 21, COL() + 2 SAY "Enter Starting Column " GET ltcol
@ 22,0 SAY "Enter Ending Row " GET lerow
@ 22,COL() + 2 SAY "Enter Ending Column " GET lecol
@ 23,0 SAY "Enter Color Code String " GET clrcode PICTURE "A/A/A/A"
READ
_newcolor(ltcol, ltrow, lecol, lerow, clrcode)
ENDDO