home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / CLIPWIND.ARC / TESTLTR.PRG < prev    next >
Encoding:
Text File  |  1988-03-14  |  343 b   |  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