home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
CLIPPER
/
CLIPWIND
/
TESTLTR.PRG
< prev
next >
Wrap
Text File
|
1993-12-01
|
343b
|
13 lines
CLEAR
method = 0
DO WHILE method <> 2
ccode = "w/h/ "
@ 21,0 SAY "A=Blk B=Blu G=Grn C=Cyn R=Red M=Mgn O=Brn W=Wht"
@ 22,0 SAY "Enter Color Code String " get ccode
@ 23,0 SAY "Method for write " GET method PICTURE "9"
READ
IF method = 2
LOOP
ENDIF
_bigstr("TEST", 0, 5, CHR(219), ccode, method)
ENDDO