' ------------ 演示图块操作的程序 ------------- SCREEN 12: CLS '置成图形方式,清屏 LINE (0, 0)-(104, 60), , B'画一矩形 CIRCLE (30, 30), 20, , , , .8: PAINT (30, 30)'画一圆形,填成实心 LINE (70, 10)-(90, 50), , BF '画一白色实心矩形 LINE (30, 20)-(80, 40), 0, BF '画一黑色实心矩形 DIM A(1000) '定义数组以存放截取的图象 GET (0, 0)-(104, 60), A '截取图象 CLS '清屏 LINE (0, 0)-(395, 395), , B '画矩形 p$ = CHR$(&H80) + CHR$(&H40) + CHR$(&H20) + CHR$(&H10) + CHR$(8) + CHR$(4) + CHR$(2) + CHR$(1) PAINT (100, 100), p$ '以斜线填充矩形 PUT (500, 140), A: LOCATE 15, 68: PRINT "原图" PUT (40, 20), A, PSET: LOCATE 7, 9: PRINT "PSET方式" PUT (250, 20), A, PRESET: LOCATE 7, 34: PRINT "PRESET方式" PUT (40, 140), A, OR: LOCATE 13, 10: PRINT "OR方式" PUT (250, 140), A, XOR: LOCATE 13, 35: PRINT "XOR方式" PUT (40, 260), A, AND: LOCATE 20, 9: PRINT "AND方式" LOCATE 22, 61 '移动光标 PRINT "以各种方式显示图块"; END '程序结束