Динамическая графика созвездия

DEFSNG X-Y
DEFINT I
CLS
DATA 1,60,14,58,74,64,95,67,186,14,112,73,131,73,97,97,69,163
DATA 112,178,37,136,144,89,286,11,265,48,211,99,202,139
DATA 290,97,308,112,281,141,289,192,265,212,358,149,376,173
DATA 219,111,313,130,348,198,436,72,428,84,531,10,562,12
DATA 576,16,482,78,403,191,426,175,513,120,513,167,528,159
DATA 549,158,561,180,506,204,543,221,637,145,633,156,630,206
DATA 482,172,60,223,109,263,154,250,169,290,22,318,33,317
DATA 43,314,40,332,38,259,31,411,175,369,124,386,94,410,79,384
DATA 262,259,319,320,281,375,226,400,360,380,384,394,407,392
DATA 349,304,439,289,604,310,532,351,481,363,446,399,499,404,619,400,449,377
 
SCREEN 12
FOR i = 1 TO 75
   READ x, y
   PSET (x, y), 11
NEXT i
LINE (37, 136)-(39, 139), 11, BF : SLEEP 1
LINE (144, 89)-(146, 92), 11, BF : SLEEP 1
LINE (219, 111)-(221, 114), 11, BF : SLEEP 1
LINE (482, 78)-(484, 81), 11, BF : SLEEP 1
LINE (482, 172)-(484, 175), 11, BF : SLEEP 1
LINE (313, 130)-(315, 133), 11, BF : SLEEP 1
LINE (348, 198)-(350, 201), 11, BF 
END