SET NO DOUBLE 
10 GOTO 60
20 SET CHARACTER SIZE X,X*4
30 SET CHARACTER SPACING 1.1*X,0
40 RETURN 
50 REM   ........................ GRAFIKA ..........
60 CLEAR 
65 SET COLOR 6
70 DIM A(240)
80 SET COLORMAP 6,0,1,1
90 SET WINDOW 0,300,0,300
100 SET VIEWPORT 0,1,0,.625
110 SET POSITION (40,270)
120 X=8\ GOSUB 20
130 GRAPHIC PRINT "  "
140 X=4\ GOSUB 20
150 SET WINDOW 0,300,-50,250
160 PLOT (0,130),(50,40)
170 SET POSITION (0,0)
180 FOR I=0 TO 500\ NEXT I
190 PLOT (70,150),(90,130),(70,110),(90,90),(70,70),(90,50)
200 SET POSITION (0,0)
210 FOR I=0 TO 500\ NEXT I
220 XX(0)=130\YY(0)=90\XX(1)=140\YY(1)=40\XX(2)=155\YY(2)=140\XX(3)=170
230 YY(3)=40\XX(4)=185\YY(4)=140\XX(5)=195\YY(5)=90
240 PLOT CURVE (XX(),YY(),6,0)
250 SET POSITION (0,0)
260 FOR I=0 TO 500\ NEXT I
270 SET POSITION (280,100)
280 PLOT ARC (250,100,360)
290 SET POSITION (0,100)
300 SET TEXT ANGLE 7
310 GRAPHIC PRINT "  "
320 SET TEXT ANGLE 0
330 FOR I=0 TO 300\ NEXT I
340 SET POSITION (50,150)
350 GRAPHIC PRINT " "
360 FOR I=0 TO 300\ NEXT I
370 SET ITALICS -40
380 X=8\ GOSUB 20
390 SET POSITION (120,10)
400 GRAPHIC PRINT " "
410 SET ITALICS 0
420 FOR I=0 TO 300\ NEXT I
430 X=4\ GOSUB 20
440 SET POSITION (225,93)
450 GRAPHIC PRINT ""
460 SET POSITION (228,105)
470 GRAPHIC PRINT ""
480 SET POSITION (233,114)
490 GRAPHIC PRINT ""
500 SET POSITION (238,123)
510 GRAPHIC PRINT ""
520 SET POSITION (245,127)
530 GRAPHIC PRINT ""
540 SET POSITION (253,127)
550 GRAPHIC PRINT ""
560 SET POSITION (260,123)
570 GRAPHIC PRINT ""
580 SET POSITION (265,114)
590 GRAPHIC PRINT ""
600 SET POSITION (268,105)
610 GRAPHIC PRINT ""
620 SET POSITION (270,93)
630 GRAPHIC PRINT ""
640 SET COLOR 1
650 PLOT (0,130),(50,40)
660 SET POSITION (0,100)
670 SET TEXT ANGLE 7
680 GRAPHIC PRINT "  "
690 SET TEXT ANGLE 0
700 REM FOR I=0 TO 200\ NEXT I
710 SET COLOR 4
720 PLOT (70,150),(90,130),(70,110),(90,90),(70,70),(90,50)
730 SET POSITION (50,150)
740 GRAPHIC PRINT " "
750 REM FOR I=0 TO 200\ NEXT I
760 SET COLOR 3
770 XX(0)=130\YY(0)=90\XX(1)=140\YY(1)=40\XX(2)=155\YY(2)=140\XX(3)=170
780 YY(3)=40\XX(4)=185\YY(4)=140\XX(5)=195\YY(5)=90
790 PLOT CURVE (XX(),YY(),6,0)
800 SET ITALICS -40
810 X=8\ GOSUB 20
820  SET POSITION (120,10)
830 GRAPHIC PRINT " "
840 SET ITALICS 0
850 REM FOR I=0 TO 200\ NEXT I
860 SET COLOR 5
870 SET POSITION (280,100)
880 PLOT ARC (250,100,360)
890 X=4\ GOSUB 20
900 SET POSITION (225,93)
910 GRAPHIC PRINT ""
920 SET POSITION (228,105)
930 GRAPHIC PRINT ""
940 SET POSITION (233,114)
950 GRAPHIC PRINT ""
960 SET POSITION (238,123)
970 GRAPHIC PRINT ""
980 SET POSITION (245,127)
990 GRAPHIC PRINT ""
1000 SET POSITION (253,127)
1010 GRAPHIC PRINT ""
1020 SET POSITION (260,123)
1030 GRAPHIC PRINT ""
1040 SET POSITION (265,114)
1050 GRAPHIC PRINT ""
1060 SET POSITION (268,105)
1070 GRAPHIC PRINT ""
1080 SET POSITION (270,93)
1090 GRAPHIC PRINT ""
1100 SET POSITION (0,0)
1110 FOR I=0 TO 2000\ NEXT I
1120 SET WINDOW 0,400,0,400
1130 CLEAR 
1140 REM STOP
1150 SET FILLX 400
1160 FOR C=0 TO 7
1170      SET COLOR C
1180      PLOT (0,400-50*C),(0,400-50*C-20)
1190 NEXT C
1200 SET FILLY 400
1210 FOR C=0 TO 7
1220 SET COLOR C
1230 PLOT (400-50*C,0),(400-50*C-20,0)
1240 NEXT C
1250 SET FILL OFF 
1255 FOR I=0 TO 1000\ NEXT I
1260 SCROLL (420,0)
1270 CLEAR 
1280 SET WINDOW 0,1,0,1
1290 SET VIEWPORT .375,1,0,.625
1300 N=17
1310 FOR I=0 TO N
1320 C=(I-INT(I/6)*6)+1
1330 SET COLOR C
1340 RAD=2*PI*I/N
1350 X=(SIN(RAD)+1)/2
1360 Y=(COS(RAD)+1)/2
1370 FOR J=I+1 TO N
1380 RAD2=2*PI*J/N
1390 X2=(SIN(RAD2)+1)/2
1400 Y2=(COS(RAD2)+1)/2
1410 PLOT (X,Y),(X2,Y2)
1420 NEXT J
1430 NEXT I
1440 SCROLL (.6,.001)
1450 X=16
1460 SET VIEWPORT 0,1,0,.625
1470 SET WINDOW 0,960,0,960
1480 SET CHARACTER SIZE X,5*X
1490 SET CHARACTER SPACING 1.5*X,0
1500 DATA " "," "," "," "," "," "," "
1510 SET TEXT ANGLE 1
1520 CLEAR 
1530 SET POSITION (0,175)
1540 GOSUB 1560
1550 GOTO 1630
1560 RESTORE 
1570 FOR C=1 TO 7
1580 IF C=7 THEN SET COLOR 1 ELSE SET COLOR C
1590 READ A$
1600 GRAPHIC PRINT A$;
1610 NEXT C
1620 RETURN 
1630 SET POSITION (450,800)
1640 SET TEXT ANGLE 7
1650 GOSUB 1560
1660 SET TEXT ANGLE 0
1670 SET POSITION (50,50)
1680 GOSUB 1560
1690 GRAPHIC PRINT "- ";
1700 GOSUB 1560
1710 FOR I=1 TO 5000\ NEXT I\ CLEAR 
1720 SET POSITION (0,500)
1730 SET TEXT ANGLE 0
1740 DATA 0,4,5,3,7,2,1,3
1750 RESTORE 1740
1760 I=-.5
1770 FOR B=0 TO 1
1780 FOR G=0 TO 1
1790 FOR R=0 TO 1
1800 I=I+.5
1810 CLEAR 
1820 SET CHARACTER SIZE I*X,I*X*6
1830 SET CHARACTER SPACING I*1.5*X,0
1840 SET POSITION (0,400)
1850 REM IF R=1 AND G=0 AND B=0 THEN SET COLOR 4 ELSE SET COLOR 1
1860 SET COLORMAP 0,R,G,B
1870 READ W
1880 SET COLOR W
1890 GRAPHIC PRINT ""
1900 FOR H=1 TO 1000\ NEXT H
1910 NEXT R
1920 NEXT G
1930 NEXT B
1940 SET COLORMAP 3,1,0,0
1950 SET COLORMAP 0,0,0,0
1960 FOR I=1 TO 3000\ NEXT I
1970 CLEAR 
1980 N=100
1990 DIM X(N),Y(N)
2000 FOR I=0 TO N-1
2010 X(I)=RND*700+100\Y(I)=RND*700+100
2020 NEXT I
2030 X1=X(N-1)\Y1=Y(N-1)
2040 SET POSITION (X1,Y1)
2050 PLOT CURVE (X(),Y(),N-1,1)
2060 FOR I=1 TO 1000\ NEXT I
2070 SET COLOR 7
2080 REM ..............SHATL ..................................
2100 SET COLORMAP 3,0,0,1
2150 CLEAR 
2160 SET COLOR 3
2170 SET VIEWPORT 0,1,0,.625
2180 SET WINDOW 0,400,0,400
2190 RESTORE 3010
2200 FOR I=0 TO 123
2210 READ A(I)
2220 NEXT I
2230 FOR I=0 TO 28 STEP 2
2240 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
2250 NEXT I
2260 SET POSITION (35,95)
2270 PLOT ARC (50,82.5,60)
2280 FOR I=32 TO 50 STEP 2
2290 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
2300 NEXT I
2310 SET POSITION (275,110)
2320 PLOT ARC (260,87.5,-95)
2330 PLOT (260,55),(70,55)
2340 REM 
2350 FOR I=54 TO 76 STEP 2
2360 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
2370 NEXT I
2380 FOR I=80 TO 90 STEP 2
2390 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
2400 NEXT I
2410 SET POSITION (280,120)
2420 PLOT ARC (270,105,-95)
2430 SET POSITION (280,85)
2440 PLOT ARC (275,70,-155)
2450 REM 
2460 I=94
2470 FOR K=0 TO 2
2480 PLOT (A(I),A(I+1)),(A(I+2),A(I+3)),(A(I+4),A(I+5)),(A(I+6),A(I+7)),
2490 PLOT (A(I+8),A(I+9))
2500 I=I+10
2510 NEXT K
2520 PLOT (220,120),(200,105),(110,105)
2530 PLOT (110,70),(215,70)
2540 FOR I=0 TO 100
2550 IF I=10 THEN SET COLORMAP 0,0,.8,.8
2560 IF I=20 THEN SET COLORMAP 0,0,0,.8
2570 IF I=30 THEN SET COLORMAP 0,.8,.8,0
2580 IF I=40 THEN SET COLORMAP 0,.8,0,.8
2590 IF I=50 THEN SET COLORMAP 0,0,.8,0
2600 IF I=60 THEN SET COLORMAP 0,.8,0,0
2610 IF I=70 THEN SET COLORMAP 0,.8,0,0
2620 IF I=80 THEN SET COLORMAP 0,.4,0,0
2630 IF I=90 THEN SET COLORMAP 0,0,0,0
2640 SCROLL (0,-2)
2650 NEXT I
2660 GOSUB 2680
2670 GOTO 2750
2680 OPEN "ZWEZDA" FOR INPUT AS FILE #1
2690 FOR J=0 TO 100
2700 INPUT #1,M,N
2710 PLOT (M,N)
2720 NEXT J
2730 CLOSE #1
2740 RETURN 
2750 SET WRITING MODE 8
2760 GOSUB 2680
2770 SET WRITING MODE 4
2780 REM 
2790 SET FILLX 400
2800 SET COLOR 1
2810 SET POSITION (281,288)
2820 PLOT ARC (271,274,-95)
2830 SET POSITION (281,253)
2840 PLOT ARC (276,238,-155)
2850 SCROLL (430,1)
2860 CLOSE #1
2870 REM ..................... KARTINKA ............................
2880 SET FILL OFF 
2890 RESTORE 3010
2900 X=8\ GOSUB 20
2910 SET VIEWPORT 0,1,0,.625
2920 SET WINDOW 0,400,0,400
2930 SET COLOR 3
2940 PLOT (0,0),(0,400),(400,400),(400,0),(0,0)
2950 PLOT (200,0),(200,400)\ PLOT (0,200),(400,200)
2960 GOTO 4030
2970 REM ..................... 3 OKNO ..........
2980 SET WINDOW 20,330,-40,220
2990 SET VIEWPORT .5,1,.32,.624
3000 SET COLOR 1
3010 DATA 35,95,85,120,220,120,155,120,170,140,185,140
3020 DATA 211,124,205,120,230,135,245,140,220,120
3030 DATA 265,155,305,170,275,110,225,110,205,95,205,75
3040 DATA 225,65,275,65,265,65,260,55,335,20
3050 DATA 310,5,195,45,140,55,70,55,35,70
3060 REM 27 EK
3070 REM :
3080 DATA 110,100,95,100,85,105,80,110,80,117
3090 DATA 85,120,100,120,110,110,110,55,110,65
3100 DATA 85,65,85,80,40,80,45,100,50,95
3110 DATA 55,85,55,62,40,68,40,90,35,95
3120 REM 20 
3130 REM :
3140 DATA 105,95,105,90,97.5,90,97.5,95,105,95
3150 DATA 92.5,95,90,90,85,92.5,87.5,97.5,92.5,95
3160 DATA 73,116,85,100,80,95,67,111,67,111
3170 REM 15 
3180 RESTORE 3010
3190 FOR I=0 TO 123
3200 READ A(I)
3210 NEXT I
3220 FOR I=0 TO 28 STEP 2
3230 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3240 NEXT I
3250 SET POSITION (35,95)
3260 PLOT ARC (50,82.5,60)
3270 FOR I=32 TO 50 STEP 2
3280 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3290 NEXT I
3300 SET POSITION (275,110)
3310 PLOT ARC (260,87.5,-95)
3320 PLOT (260,55),(70,55)
3330 REM 
3340 FOR I=54 TO 76 STEP 2
3350 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3360 NEXT I
3370 FOR I=80 TO 90 STEP 2
3380 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3390 NEXT I
3400 SET POSITION (280,120)
3410 PLOT ARC (270,105,-95)
3420 SET POSITION (280,85)
3430 PLOT ARC (275,70,-155)
3440 REM 
3450 I=94
3460 FOR K=0 TO 2
3470 PLOT (A(I),A(I+1)),(A(I+2),A(I+3)),(A(I+4),A(I+5)),(A(I+6),A(I+7)),
3480 PLOT (A(I+8),A(I+9))
3490 I=I+10
3500 NEXT K
3510 PLOT (220,120),(200,105),(110,105)
3520 PLOT (110,70),(215,70)
3530 GOTO 4490
3540 REM ..................... 2 OKNO .......................
3550 SET VIEWPORT .55,1,0,.35
3560 SET WINDOW 0,500,0,400
3570 SET COLOR 5
3580 PLOT (0,0),(450,0)
3590 SET POSITION (440,0)
3600 GRAPHIC PRINT "X"
3610 PLOT (0,0),(125,250)
3620 SET POSITION (140,250)
3630 GRAPHIC PRINT "Y"
3640 PLOT (0,0),(0,300)
3650 SET POSITION (0,310)
3660 GRAPHIC PRINT "Z"
3670 FOR I=0 TO 200 STEP 5
3680 PLOT (2*I,0),(I+100,200)
3690 NEXT I
3700 PLOT (0,0),(400,0)
3710 J=10
3720 N=1
3730 IF J<=200 THEN PLOT (J/2,J),(400-J/2,J)\J=J+10/N\N=N+.05\ GOTO 3730
3740 DATA 200,30,150,30,160,120,170,144,200,144,210,54,200,30,190,120,160
3750 DATA 120,162.5,128,192.5,128,202.5,38,205,46,195,136,165,136,160,120
3760 DATA 160,30,170,30,170,120,180,144,190,144,180,120,180,30,190,30,190,120
3770 DATA 200,144
3780 FOR I=0 TO 51
3790 READ A(I)
3800 NEXT I
3810 SET WRITING MODE 8
3820 SET FILL (150,30)
3830 FOR I=0 TO 10 STEP 2
3840 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3850 NEXT I
3860 SET WRITING MODE 4
3870 SET FILL OFF 
3880 SET COLOR 4
3890 FOR I=0 TO 48 STEP 2
3900 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3910 NEXT I
3920  SET WRITING MODE 8
3930 SET FILL (280,50)
3940 FOR I=0 TO 10 STEP 2
3950 PLOT (1.2*A(I)+72,.8*A(I+1)),(72+1.2*A(I+2),.8*A(I+3))
3960 NEXT I
3970 SET WRITING MODE 4
3980 SET FILL OFF 
3990 FOR I=0 TO 48 STEP 2
4000 PLOT (1.2*A(I)+72,.8*A(I+1)),(72+1.2*A(I+2),.8*A(I+3))
4010 NEXT I
4020 GOTO 2980
4030 REM ................ 1 OKNO .....................
4040 SET VIEWPORT 0,.5,0,.3
4050 SET WINDOW 0,800,0,400
4060 SET COLORMAP 6,0,1,1
4070 SET COLOR 6
4080 FOR I=0 TO 123
4090 READ A(I)
4100 NEXT I
4110 GOSUB 4130
4120 GOTO 4450
4130 FOR I=0 TO 28 STEP 2
4140 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4150 NEXT I
4160 SET POSITION (35,95)
4170 PLOT ARC (50,82.5,60)
4180 FOR I=32 TO 50 STEP 2
4190 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4200 NEXT I
4210 SET POSITION (275,110)
4220 PLOT ARC (260,87.5,-95)
4230 PLOT (260,55),(70,55)
4240 REM 
4250 FOR I=54 TO 76 STEP 2
4260 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4270 NEXT I
4280 FOR I=80 TO 90 STEP 2
4290 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4300 NEXT I
4310 SET POSITION (280,120)
4320 PLOT ARC (270,105,-95)
4330 SET POSITION (280,85)
4340 PLOT ARC (275,70,-155)
4350 REM 
4360 I=94
4370 FOR K=0 TO 2
4380 PLOT (A(I),A(I+1)),(A(I+2),A(I+3)),(A(I+4),A(I+5)),(A(I+6),A(I+7)),
4390 PLOT (A(I+8),A(I+9))
4400 I=I+10
4410 NEXT K
4420 PLOT (220,120),(200,105),(110,105)
4430 PLOT (110,70),(215,70)
4440 RETURN 
4450 SET WINDOW 0,350,0,500
4460 SET VIEWPORT .2,.5,.15,.4
4470 GOSUB 4130
4480 GOTO 3550
4490 REM ........................ 4 OKNO ..................
4500 SET VIEWPORT 0,.5,.32,.625
4510 SET WINDOW 0,200,0,200
4520 SET COLOR 4
4530 FOR I=0 TO 100 STEP 5
4540 PLOT (2*I,0),(I+50,100)
4550 NEXT I
4560 PLOT (0,0),(200,0)
4570 J=10
4580 N=1
4590 IF J<=102 THEN PLOT (J/2,J),(200-J/2,J)\J=J+10/N\N=N+.1\ GOTO 4590
4600 SET WRITING MODE 8
4610 SET FILL (70,45)
4620 SET POSITION (70,45)
4630 PLOT ARC (100,45,-180)
4640 PLOT ARC (100,100,-85)
4650 SET WRITING MODE 4
4660 SET FILL OFF 
4670 REM SET COLOR 5
4680 SET POSITION (70,45)
4690 PLOT ARC (100,45,-180)
4700 SET POSITION (76,38)
4710 PLOT ARC (100,5,-101)
4720 SET POSITION (87,29)
4730 PLOT ARC (100,0,-73)
4740 SET POSITION (70,45)
4750 PLOT ARC (100,20,-125)
4760 SET POSITION (70,52)
4770 PLOT ARC (100,30,-128)
4780 SET POSITION (72,60)
4790 PLOT ARC (100,35,-124)
4800 SET POSITION (72,65)
4810 PLOT ARC (100,37,-125)
4820 SET POSITION (76,37)
4830 PLOT ARC (130,45,-33)
4840 SET POSITION (83,32)
4850 PLOT ARC (140,48,-38)
4860 SET POSITION (91.5,28)
4870 PLOT ARC (150,52,-39)
4880 PLOT (100,25),(100,92)
4890 SET POSITION (109,28)
4900 PLOT ARC (50,52,39)
4910 SET POSITION (116.5,32)
4920 PLOT ARC (60,48,39)
4930 SET POSITION (124,37)
4940 PLOT ARC (70,45,33)
4950 SET POSITION (0,0)
4960 REM STOP
4970 CHAIN "T"
