home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
clipper
/
clipwind.arc
/
TESTLTR.PRG
< prev
next >
Wrap
Text File
|
1988-03-14
|
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