SET NO DOUBLE 
10 CLEAR 
20 SET VIEWPORT 0,1,0,.625
30 DIM A(300),B(300),AA(15),BB(15)
40 SET WINDOW 0,1000,0,1000
50 CLEAR \ REM .................   ZAGOLOWOK  ...............
60 PLOT (50,500),(50,1000),(900,1000),(900,500),(50,500)
70 X=60\ GOSUB 310
80 SET POSITION (150,750)
90 SET COLOR 1\ GRAPHIC PRINT ""
100 X=30\ GOSUB 310
110 SET POSITION (140,650)
120 GRAPHIC PRINT '  '
130 SET COLOR 5\ SET POSITION (140,530)
140 GRAPHIC PRINT '   "-85"'
150 SET POSITION (0,0)\ FOR I=1 TO 2000\ NEXT I
160 NN=1\ REM ........................ SODERVANIE ..............
170 SET WINDOW 0,1000,0,1000\ CLEAR 
180 PLOT (10,50),(10,950),(990,950),(990,50),(10,50)
190 SET COLOR 6\X=40\ GOSUB 310
200 SET POSITION (250,800)\ GRAPHIC PRINT "   "
210 X=24\ GOSUB 310
220 SET POSITION (100,500)\ GRAPHIC PRINT "1.    '-85'"
230 SET POSITION (100,400)\ GRAPHIC PRINT "2.    "
240 SET POSITION (100,300)\ GRAPHIC PRINT "3.      "
250 SET POSITION (100,200)\ GRAPHIC PRINT "4.    "
260 SET POSITION (0,0)\ FOR R=0 TO 3000\ NEXT R
270 REM ...............  WYBOR  ...............
280 ON NN GOSUB 910,2750,320,300
290 NN=NN+1\ GOTO 280
300 END 
310 SET CHARACTER SIZE X,4*X\ SET CHARACTER SPACING 1.05*X,0\ RETURN 
320 REM .....................KOMMUNICATION ......................
330 CHAIN "COMMUN"
340 DATA 0,30,34,76,80,86,90,104
350 DATA 108,114,118,140,144,154,158,164,168,174,178
360 DATA 184,188,194,198,204,208,234,238,260,264,270
370 DATA 10,40,50,60,140,60,100,40,10,40
380 DATA 10,20,100,20,140,40,136,38,136,34
390 DATA 100,15,16,15,16,20,100,20,100,40
400 DATA 140,60,140,40,95,35,75,35,75,25
410 DATA 95,25,95,35,90,35,90,31,87,31
420 DATA 87,33,83,33,83,31,80,31,80,35
430 DATA 75,35,75,25,80,25,80,29,83,29
440 DATA 83,27,87,27,87,29,90,29,90,25
450 DATA 70,35,50,35,50,25,70,25,70,35
460 DATA 20,35,15,35,15,30,20,30,20,35
470 DATA 25,35,25,30,20,30,20,35
480 DATA 90,75,90,135,185,135,185,75,90,75
490 DATA 195,65,80,65,80,145,205,145,205,135
500 DATA 240,100,240,80,205,70,205,65,195,65
510 DATA 195,145,205,145,205,65,325,55,325,20,270,0,325,55
520 DATA 25,55,-30,0,270,0,25,45,25,50
530 DATA 75,50,75,45,25,45,85,45,85,50
540 DATA 135,50,135,45,85,45,145,45,145,50
550 DATA 185,50,185,45,145,45,195,45,195,50
560 DATA 225,50,225,45,195,45,235,45,235,50
570 DATA 270,50,270,45,235,45,35,10,35,15
580 DATA 25,15,25,25,35,25,35,35,160,35
590 DATA 160,30,165,30,165,20,160,20,160,15
600 DATA 140,15,140,10,35,10,195,10,195,20
610 DATA 205,20,205,25,195,25,195,35,225,35
620 DATA 225,25,215,25,215,20,225,20
630 DATA 225,10,195,10,235,10,235,35,270,35
640 DATA 270,10,235,10
650 FOR I=0 TO 14\ READ AA(I),BB(I)\ NEXT I
660 FOR I=0 TO 273 STEP 2\ READ A,B\A(I)=A*.6\A(I+1)=B\ NEXT I
670 RETURN 
680 FOR J=0 TO 3
690 FOR I=AA(J) TO BB(J) STEP 2
700 PLOT (A(I)+AX1,A(I+1)+AY1),(A(I+2)+AX1,A(I+3)+AY1)
710 NEXT I
720 NEXT J
730 RETURN 
740 SET WINDOW 0,MX,0,MY
750 SET COLOR 3
760 FOR J=4 TO 5
770 FOR I=AA(J) TO BB(J) STEP 2
780 PLOT (A(I)+AX2,A(I+1)+AY2),(A(I+2)+AX2,A(I+3)+AY2)
790 NEXT I
800 NEXT J
810 RETURN 
820 REM 
830 SET COLOR 4
840 FOR J=6 TO 14
850 FOR I=AA(J) TO BB(J) STEP 2
860 PLOT (A(I)+AX3,A(I+1)+AY3),(A(I+2)+AX3,A(I+3)+AY3)
870 NEXT I
880 NEXT J
890 RETURN 
900 REM ...........     ...............................
910 REM ............ USTROJSTWO MIKRO EWM ..........
920 RESTORE 
930 SET WINDOW 0,300,0,300
940 CLEAR 
950 X=8
960 GOSUB 310
970 SET POSITION (25,270)
980 GRAPHIC PRINT "   '-85'"
990 SET LINE STYLE 6
1000 SET COLOR 5
1010 PLOT (0,195),(300,195),(300,270),(0,270),(0,195)
1020 SET COLOR 7
1030 SET LINE STYLE 1
1040 X=4
1050 GOSUB 310
1060 SET POSITION (20,250)
1070 GRAPHIC PRINT " '-85'     :"
1080 SET COLOR 6
1090 SET POSITION (50,230)
1100 GRAPHIC PRINT " -   "
1110 AX1=0\AY1=20
1120 SET WINDOW 0,150,0,150
1130 GOSUB 340
1140 GOSUB 680
1150 SET POSITION (27,107)
1160 SET COLOR 3
1170 GRAPHIC PRINT "- "
1180 AX2=150\AY2=0\MX=300\MY=300
1190 GOSUB 740
1200 SET POSITION (50,200)
1210 SET COLOR 4
1220 GRAPHIC PRINT " -  "
1230 SET WINDOW 0,400,0,400
1240 AX3=50\AY3=0
1250 GOSUB 820
1260 SET POSITION (0,0)
1270 FOR I=0 TO 4000\ NEXT I
1280 SET COLOR 7
1290 SET WRITING MODE 8
1300 SET POSITION (0,-10)
1310 SET CHARACTER SIZE 400,260
1320 SET FONT 1
1330 GRAPHIC PRINT "A"
1340 SET FONT 0
1350 SET WRITING MODE 4
1360 OPEN "UK1" FOR INPUT AS FILE #1
1370 X=12\ GOSUB 310
1380 SET POSITION (30,200)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1390 DATA 10,10,8,15,10,28,28,45,95,45,97,33,95,28,75,10,10,10
1400 DATA 13,28,30,43,53,43,35,28,13,28,13,15,35,15,35,28,53,43
1410 DATA 53,40,37,28,47,35,50,36,61,36,62,35,53,28,37,28,37,15
1420 DATA 53,15,53,28,62,35,62,33,55,28,66,36,83,36,73,28,55,28
1430 DATA 55,15,73,15,73,28,73,15,83,23,83,36,83,23,86,23,25,15
1440 DATA 23,13,23,11,75,11,92,26,92,28,75,13,23,13,49,36,49,37
1450 DATA 55,43,92,43,92,28,86,23,86,37,49,37,50,38,87,38,87,24
1460 DATA 88,25,88,39,51,39,52,40,89,40,89,26,90,27,90,41,53,41
1470 DATA 54,42,91,42,91,28
1480 SET WINDOW -3,197,0,200
1490 RESTORE 1390
1500 FOR I=0 TO 149 STEP 2\ READ A,B\B(I)=A*.8\B(I+1)=B\ NEXT I
1510 FOR I=0 TO 14 STEP 2
1520 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1530 NEXT I
1540 X=3\ GOSUB 310
1550 SET COLOR 1
1560 SET POSITION (85,80)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1570 FOR I=18 TO 34 STEP 2
1580 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1590 NEXT I
1600 SET POSITION (0,0)
1610 FOR I=0 TO 2000\ NEXT I
1620 SET COLOR 2
1630 SET POSITION (85,65)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1640 SET POSITION (85,55)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1650 PLOT (135,65),(200,65)
1660 PLOT (90,55),(145,55)
1670 FOR I=38 TO 58 STEP 2
1680 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1690 NEXT I
1700 SET POSITION (0,0)
1710 FOR I=0 TO 2000\ NEXT I
1720 SET COLOR 3
1730 SET POSITION (85,40)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1740 SET POSITION (85,30)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1750 PLOT (90,30),(153,30)
1760 FOR I=62 TO 84 STEP 2
1770 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1780 NEXT I
1790 SET POSITION (0,0)
1800 FOR I=0 TO 2000\ NEXT I
1810 SET COLOR 5
1820 SET POSITION (85,15)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1830 FOR I=88 TO 100 STEP 2
1840 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1850 NEXT I
1860 FOR I=104 TO 116 STEP 2
1870 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1880 NEXT I
1890 I=120
1900 FOR K=0 TO 4
1910 PLOT (B(I),B(I+1)),(B(I+2),B(I+3)),(B(I+4),B(I+5))
1920 I=I+6
1930 NEXT K
1940 SET POSITION (0,0)
1950 FOR I=0 TO 2000\ NEXT I
1960 SET COLOR 6
1970 SET POSITION (85,0)\ LINPUT #1,A$\ GRAPHIC PRINT A$
1980 PLOT (8,0),(8,10)
1990 PLOT (60,0),(60,10)
2000 PLOT (8,2),(60,2)
2010 PLOT (8,2),(10,0)\ PLOT (8,2),(10,4)
2020 PLOT (60,2),(58,0)\ PLOT (60,2),(58,4)
2030 SET WRITING MODE 8
2040 PLOT (25,2),(45,2)
2050 SET WRITING MODE 4
2060 SET POSITION (30,-2)\ GRAPHIC PRINT "558 "
2070 PLOT (0,10),(7,10)\ PLOT (0,27),(7,27)
2080 PLOT (0,13),(1,11),(1,14),(1,11),(2,13)\ PLOT (0,24),(1,26),(1,23),(1,26),
2090 PLOT (2,24)
2100 SET POSITION (-4,13)
2110 GRAPHIC PRINT "165"
2120 PLOT (67,2),(61,10)\ PLOT (77,27),(82,20)
2130 PLOT (67,7),(66,5),(69,8),(66,5),(68,5)
2140 PLOT (78,20),(80,21),(76,17),(80,21),(79,18)
2150 SET POSITION (68,8)
2160 GRAPHIC PRINT "363"
2170 SET POSITION (0,0)
2180 FOR I=0 TO 7000\ NEXT I
2190 SET WINDOW 0,250,0,250
2200 SET FONT 1
2210 SET CHARACTER SIZE 170,117
2220 SET POSITION (110,0)
2230 REM SET WRITING MODE 8
2232 SET COLORMAP 3,0,0,.7
2235 SET COLOR 3
2240 GRAPHIC PRINT "A"
2250 SET WRITING MODE 4
2255 SET COLOR 7
2270 X=3\ GOSUB 310
2280 SET FONT 0
2290 FOR I=0 TO 6
2300 SET POSITION (120,90-I*15)\ LINPUT #1,A$\ GRAPHIC PRINT A$
2310 IF I=2 THEN SET POSITION (0,0)
2320 NEXT I
2330 SET POSITION (0,0)
2340 FOR J=0 TO 1000\ NEXT J
2350 N=5
2360 FOR D=0 TO 1
2370 SET POSITION (0,0)
2380 FOR I=0 TO 3000\ NEXT I
2390 SET WINDOW 0,400,0,400
2400 SET WRITING MODE 8
2410 SET POSITION (0,-10)
2420 SET CHARACTER SIZE 420,267
2430 SET FONT 1
2440 GRAPHIC PRINT "A"
2450 SET FONT 0
2455 SET COLORMAP 3,0,0,1
2460 SET WRITING MODE 4
2470 X=12\ GOSUB 310
2480 SET COLOR 3+D
2490 SET POSITION (130,200)\ LINPUT #1,A$\ GRAPHIC PRINT A$
2500 AX2=-30\AY2=-50\AX3=20\AY3=40\MX=250\MY=250
2510 ON D+1 GOSUB 740,820
2520 SET COLOR 7
2530 SET WINDOW 0,MX,0,MY
2540 X=3\ GOSUB 310
2550 FOR I=0 TO N
2560 SET POSITION (120,70-I*10)\ LINPUT #1,A$\ GRAPHIC PRINT A$
2570 NEXT I
2580 NEXT D
2590 CLOSE #1
2600 PLOT (1,15),(1,25)\ PLOT (114,15),(114,25)
2610 PLOT (5,19),(2,17),(40,17),(2,17),(5,15)
2620 PLOT (110,19),(113,17),(70,17),(113,17),(110,15)
2630 SET POSITION (50,12)\ GRAPHIC PRINT "533"
2640 PLOT (136,60),(145,60)\ PLOT (136,37),(145,37)
2650 PLOT (140,56),(142,59),(142,54),(142,59),(144,56)
2660 PLOT (140,41),(142,38),(142,42),(142,38),(144,41)
2670 SET POSITION (139,41)\ GRAPHIC PRINT "50"
2680 PLOT (115,24),(121,16)\ PLOT (135,37),(142,28)
2690 PLOT (122,21),(120,19),(124,21),(120,19),(123,19)
2700 PLOT (138,27),(139,30),(136,27),(139,30),(136,30)
2710 SET POSITION (125,20)\ GRAPHIC PRINT "171"
2720 SET POSITION (0,0)
2730 FOR Z=0 TO 4000\ NEXT Z
2740 RETURN 
2750 REM ........................  ....................
2760 RESTORE 
2770 SET WINDOW 0,300,0,300
2780 CLEAR 
2790 OPEN "UK" FOR INPUT AS FILE #1
2800 REM ---------------------ZAGOLOWOK-------------------
2810 X=12
2820 GOSUB 310
2830 SET POSITION (10,240)\ LINPUT #1,A$\ GRAPHIC PRINT A$
2840 SET POSITION (60,200)\ LINPUT #1,A$\ GRAPHIC PRINT A$
2850 SET LINE STYLE 6
2860 PLOT (0,0),(300,0),(300,190),(0,190),(0,0)
2870 SET LINE STYLE 1
2880 REM ------------------CODERVANIE RAZDELA--------
2890 X=8
2900 GOSUB 310
2910 FOR I=0 TO 2
2920 SET COLOR I+1\ SET POSITION (20,130-I*50)\ LINPUT #1,A$\ GRAPHIC PRINT A$
2930 NEXT I
2940 REM ----------------- PROS -----------------
2950 FOR I=0 TO 4000\ NEXT I
2960 CLEAR 
2970 SET COLOR 1
2980 X=8
2990 GOSUB 310
3000 SET POSITION (55,255)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3010 SET COLOR 7
3020 REM ------------- INFORMACIQ O PROS ---------------
3030 X=4
3040 GOSUB 310
3042 FOR I=0 TO 12
3044 SET POSITION (15,225-I*20)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3046 NEXT I
3048 FOR I=0 TO 13000\ NEXT I
3050 SET WINDOW 0,400,0,400
3052 SET WRITING MODE 8
3054 SET POSITION (0,-10)
3056 SET CHARACTER SIZE 420,350
3058 SET FONT 1
3060 GRAPHIC PRINT "A"
3062 SET FONT 0
3064 REM SET COLORMAP 3,0,0,1
3066 SET WRITING MODE 4
3068 SET WINDOW 0,300,0,300
3070 X=4
3072 GOSUB 310
3077 SET POSITION (25,225)
3078 GRAPHIC PRINT "       ,"
3080 SET POSITION (25,205)
3082 GRAPHIC PRINT "    ."
3083 SET POSITION (25,170)
3084 GRAPHIC PRINT '     "-85"    -'
3085 SET POSITION (25,150)
3086 GRAPHIC PRINT ' "  1701",  '
3087 SET POSITION (25,130)
3088 GRAPHIC PRINT "  ,  "
3089 SET POSITION (25,110)
3090 GRAPHIC PRINT "  181086,  "
3091 SET POSITION (25,90)
3092 GRAPHIC PRINT ",     ."
3095 FOR I=0 TO 10000\ NEXT I
3099 REM ---------------------- QZYKI PROGRAMIROWANIQ  ------------
3100 CLEAR 
3110 SET COLOR 2
3120 X=12\ GOSUB 310
3130 SET POSITION (55,255)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3140 SET POSITION (100,220)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3150 X=8\ GOSUB 310
3160 FOR I=0 TO 2
3170 SET COLOR I+4\ SET POSITION (75,160-I*50)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3180 NEXT I
3190 FOR I=0 TO 12000\ NEXT I
3200 REM ----------------- PRIKLADNYE PROGRAMMY ----------------
3210 CLEAR 
3220 SET COLOR 3
3230 X=8
3240 GOSUB 310
3250 SET POSITION (55,255)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3260 SET COLOR 7
3270 REM ------------- INFORMACIQ O PRIKLADNYX PROGRAMMAX------------
3280 X=4\ GOSUB 310
3290 FOR I=0 TO 5
3300 SET POSITION (40,200-I*20)\ LINPUT #1,A$\ GRAPHIC PRINT A$
3310 NEXT I
3320 RETURN 
