home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / window / clipwin / testltr.prg < prev    next >
Text File  |  1988-03-13  |  343b  |  13 lines
  1. CLEAR
  2. method = 0
  3. DO WHILE method <> 2
  4.    ccode = "w/h/ "
  5.    @ 21,0 SAY "A=Blk B=Blu G=Grn C=Cyn R=Red M=Mgn O=Brn W=Wht"
  6.    @ 22,0 SAY "Enter Color Code String " get ccode 
  7.    @ 23,0 SAY "Method for write " GET method PICTURE "9"
  8.    READ
  9.    IF method = 2
  10.       LOOP
  11.    ENDIF
  12.    _bigstr("TEST", 0, 5, CHR(219), ccode, method)
  13. ENDDO