标题模拟作色程序

　　其实，解决这个问题并不难，我用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)班马晓光)