CONST PI = 3.14159
CONST TODEG = PI / 180
DIM a(40) AS INTEGER

SCREEN 12
COLOR 12
LOCATE 1, 1: PRINT "*"
COLOR 7
GET (0, 0)-(7, 15), a
PUT (0, 0), a, XOR

cx = 300: cy = 220: cr = 100
FOR sita = 0 TO 350 STEP 10
  dx = cr * COS(sita * TODEG) - 4
  dy = cr * SIN(sita * TODEG) - 7
  PUT (cx + dx, cy + dy), a, PSET
NEXT sita
END

CONST PI = 3.14159
CONST TODEG = PI / 180
DIM a(40) AS INTEGER

SCREEN 12 这条语句什么意思啊？
COLOR 12　
LOCATE 1, 1: PRINT "*"
COLOR 7　　这条语句什么意思啊？
GET (0, 0)-(7, 15), a　　这条语句什么意思啊？
PUT (0, 0), a, XOR　这条语句什么意思啊？
cx = 300: cy = 220: cr = 100
FOR sita = 0 TO 350 STEP 10
  dx = cr * COS(sita * TODEG) - 4
  dy = cr * SIN(sita * TODEG) - 7
  PUT (cx + dx, cy + dy), a, PSET
NEXT sita
END

SCREEN 12
设置屏幕为 640*480 16色 图像模式

COLOR 12　
LOCATE 1, 1: PRINT "*"
COLOR 7
以红色（12＃） 在屏幕第一行第一列 显示 "*"
然后将当前颜色 改回默认颜色 白色（7＃）

GET (0, 0)-(7, 15), a
PUT (0, 0), a, XOR
将屏幕矩形区域(0, 0)-(7, 15) 的图像保存到 数组a中
以异或方式 显示保存在数组a中图像 (左上角坐标 0，0)
     －－－》清除上面显示的"*"