高分辨率图形前景色的设置

Author: 天津崔宝深 Date: 1992-04-17

        OUT  985，C
        其中C为颜色编码，它可以取1、2、3、4、5、6等整数值。
        下面给出一个演示程序，其中第20-50行依次用6种不同的颜色画圆；第?60-90行实现前景色与背景色的转换，即背景为棕色，前景为黑色。
        10  KEY  OFF：CLS：SCREEN  2
        20  FOR  C=1  TO  6：OUT  985，C
        30  CIRCLE  (300，90)，90
        40  FOR  I=1  TO  1000：NEXT
        50  NEXT
        60  DEF  SEG=&HB800
        70  FOR  I％=0  TO  16191
        80  POKE  I％，PEEK(I％)XOR  255
        90  NEXT
        100  GOTO  10