home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a112 / 1.img / COLORS.PRG < prev    next >
Encoding:
Text File  |  1986-06-09  |  384 b   |  15 lines
  1. set talk off
  2. load cfill.bin
  3. code = 0
  4. row  = 1
  5. col  = 5
  6. clear
  7. do while code <= 127
  8.    @ row,col say 'code '+ltrim(str(code,3))è   call cfill with chr(row+1)+chr(col+1)+chr(1)+chr(8)+chr(code)
  9.    code = code + 1
  10.    row  = iif(row = 16,     1, row+1)
  11.    col  = iif(row =  1, col+9, col)
  12. enddo
  13. @ 20,0
  14. wait
  15.