home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / oberon.lha / system / Colors.Tool (.txt) < prev    next >
Encoding:
Oberon Text  |  1994-06-24  |  473 b   |  21 lines
  1. Syntax10.Scn.Fnt
  2. Colors.Open
  3. Edit.ChangeColor 15
  4. Edit.ChangeColor 1
  5. Edit.ChangeColor 2
  6. Edit.ChangeColor 3
  7. System.SetColor 15
  8. System.SetColor 1
  9. System.SetColor 2
  10. System.SetColor 3
  11. Colors.Load My.Pal
  12. Colors.Store My.Pal
  13. Colors.Set ^
  14.   1 255 0 0 ~ 2 0 255 0 ~ 3 0 0 255 ~
  15. Colors.Get ^  Colors.OpenRGB ^  Colors.OpenHLS ^
  16.   0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  17. invert screen:
  18.     Colors.Set 0 127 127 127~
  19.     Colors.Set 15 255 255 255~
  20.     Colors.Set 0 0 0 0~
  21.