home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / MISC / COLORS.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  347 b   |  19 lines
  1. create window 'Colors' at 2,5 to 21,70
  2.  
  3. for x = 0 to 15
  4.   for y = 0 to 15
  5.     set say video to x * 16 + y
  6.     @ x,y * 4 say str((x * 16) + y,4) 
  7.   next y  
  8. next x
  9.  
  10. create button ' OK ' at 17,18 size 1,30
  11.  
  12. do while .t.
  13.     MyEvent=chkevent()
  14.     if MyEvent=6
  15.         exit
  16.     elseif MyEvent=1 .and. lastkey()=13        && ENTER key
  17.         exit
  18.     endif
  19. enddo