模拟作色程序

Author: 四川绵竹中学高９５（２）班马晓光 Date: 1993-11-05

        其实，解决这个问题并不难，我用BASIC语言编写了下面的这个程序，达到了较好的效果。程序中利用了“PUT(X1，Y1)，ARRAY，XOR”(其中“XOR”可省略)语句放置图形(一条竖线)与原背景异或，形成了着色的效果。本程序在PCXT，GWBASIC3.22，西山汉字系统下通过。如果286以上机型，则只需改变30句中的数据就行了。
        10  DIM  DR(3)，P(4)：A＄=＂十五的月亮＂：SCREEN 1
        20  CLS：LOCATE 12，15：PRINTA＄：LINE(111，98)-(111，108)：GET(111，98)-(111，，108)，DR
        30  FOR I=0 TO 4：READP(I)：NEXT：DATA 40，75，40，250，400
        40  PLAY＂mbo3b-6fl6gl7e-dc＜b-l1＞e-l7＂
        50  FOR J=1 TO 15：X=111＋I16＋J
        70  PUT(X，98)，DR
        80  FOR K=1 TO P(I)：NEXT
        90 NEXT ：NEXT
        100  END
        (四川绵竹中学高95(2)班马晓光)