20 DIM X1(15),Y1(15),X2(15),Y2(15):XM=255
40 FOR K=1 TO13:READ X1(K),Y1(K):NEXT
70 FOR K=1 TO 12:READ X2(K),Y2(K):NEXT
100 XO=0
110 COLOR15:SCREEN2
120 IF XO+X1(12)>XM THEN 740
130 GOSUB210:GOSUB330 'Рисуем, а затем стираем положение 1
150 XO=XO+15
160 IF XO+X2(11)>XM THEN 740
170 GOSUB 460:GOSUB 570 'Рисуем,а затем стираем положение 2
190 XO=XO+20
200 GOTO 130
210 '©©©©© Рисунок первой позиции ©©©©©
230 FORK=1TO2:LINE(XO+X2(K),Y2(K))-(XO+X2(K+1),Y2(K+1)):NEXT
260 LINE (XO+X2(4),Y2(4))-(XO+X2(5),Y2(5))
270 LINE (XO+X2(5),Y2(5))-(XO+X2(6),Y2(6))
280 FORK=7TO10:LINE(XO+X2(K),Y2(K))-(XO+X2(K+1),Y2(K+1))
300 NEXTK
310 CIRCLE(XO+X2(12),Y2(12)),10:RETURN'
W
W▐
330 '©©©©© Уничтожение первой позиции ©©©©©
350 FOR K=1 TO2:LINE (XO+X2(K),Y2(K))-(XO+X2(K+1),Y2(K+1)),4
370 NEXT K
380 LINE (XO+X2(4),Y2(4))-(XO+X2(5),Y2(5)),4
390 LINE (XO+X2(5),Y2(5))-(XO+X2(6),Y2(6)),4
400 FOR K=7 TO10:LINE(XO+X2(K),Y2(K))-(XO+X2(K+1),Y2(K+1)),4
420 NEXTK:CIRCLE(XO+X2(12),Y2(12)),10,4:RETURN
460 '©©©©© Рисунок второй позиции ©©©©©
470 FORK=1TO3:LINE(XO+X1(K),Y1(K))-(XO+X1(K+1),Y1(K+1)):NEXT
500 LINE (XO+X1(5),Y1(5))-(XO+X1(6),Y1(6))
510 LINE (XO+X1(6),Y1(6))-(XO+X1(7),Y1(7))
520 FORK=8TO11:LINE(XO+X1(K),Y1(K))-(XO+X1(K+1),Y1(K+1))
540 NEXT K
550 CIRCLE(XO+X1(13),Y1(13)),10:RETURN '
W
W▐
570 '©©©©© Уничтожение второй позиции ©©©©©
590 FOR K=1 TO3:LINE(XO+X1(K),Y1(K))-(XO+X1(K+1),Y1(K+1)),4
610 NEXTK
620 LINE(XO+X1(5),Y1(5))-(XO+X1(6),Y1(6)),4
630 LINE(XO+X1(6),Y1(6))-(XO+X1(7),Y1(7)),4
640 FOR K=8TO11:LINE(XO+X1(K),Y1(K))-(XO+X1(K+1),Y1(K+1)),4
660 NEXT K
670 CIRCLE (XO+X1(13),Y1(13)),10,4:RETURN'
W
W▐
700 DATA 14,150,20,133,15,120,20,93,5,145,25,133,15,120
710 DATA 20,115,10,110,19,92,20,108,30,113,20,83
720 DATA 2,132,25,136,40,93,43,150,50,130,30,120
730 DATA 30,111,22,103,38,95,43,110,58,104,40,83
740 XO=0:X2=0:GOTO 120