SET NO DOUBLE 
10 CLEAR 
20 SET VIEWPORT 0,1,0,.625
30 DIM A(300),B(200),AA(15),BB(15)
40 GOTO 60
50 SET CHARACTER SIZE X,4*X\ SET CHARACTER SPACING 1.05*X,0\ RETURN 
60 REM .....................KOMMUNICATION ......................
70 RESTORE 
80 SET WINDOW 0,300,0,300
90 SET POSITION (40,270)
100 X=8\ GOSUB 50
110 GRAPHIC PRINT "    "
120 SET LINE STYLE 6
130 PLOT (0,190),(300,190),(300,270),(0,270),(0,190)
140 SET LINE STYLE 1
150 X=4\ GOSUB 50
160 SET POSITION (20,250)
170 GRAPHIC PRINT "     : "
180 SET POSITION (30,230)
190 GRAPHIC PRINT "-      "
200 SET POSITION (30,210)
210 GRAPHIC PRINT "-        "
220 GOSUB 240
230 GOTO 580
240 DATA 0,30,34,76,80,86,90,104
250 DATA 108,114,118,140,144,154,158,164,168,174,178
260 DATA 184,188,194,198,204,208,234,238,260,264,270
270 DATA 10,40,50,60,140,60,100,40,10,40
280 DATA 10,20,100,20,140,40,136,38,136,34
290 DATA 100,15,16,15,16,20,100,20,100,40
300 DATA 140,60,140,40,95,35,75,35,75,25
310 DATA 95,25,95,35,90,35,90,31,87,31
320 DATA 87,33,83,33,83,31,80,31,80,35
330 DATA 75,35,75,25,80,25,80,29,83,29
340 DATA 83,27,87,27,87,29,90,29,90,25
350 DATA 70,35,50,35,50,25,70,25,70,35
360 DATA 20,35,15,35,15,30,20,30,20,35
370 DATA 25,35,25,30,20,30,20,35
380 DATA 90,75,90,135,185,135,185,75,90,75
390 DATA 195,65,80,65,80,145,205,145,205,135
400 DATA 240,100,240,80,205,70,205,65,195,65
410 DATA 195,145,205,145,205,65,325,55,325,20,270,0,325,55
420 DATA 25,55,-30,0,270,0,25,45,25,50
430 DATA 75,50,75,45,25,45,85,45,85,50
440 DATA 135,50,135,45,85,45,145,45,145,50
450 DATA 185,50,185,45,145,45,195,45,195,50
460 DATA 225,50,225,45,195,45,235,45,235,50
470 DATA 270,50,270,45,235,45,35,10,35,15
480 DATA 25,15,25,25,35,25,35,35,160,35
490 DATA 160,30,165,30,165,20,160,20,160,15
500 DATA 140,15,140,10,35,10,195,10,195,20
510 DATA 205,20,205,25,195,25,195,35,225,35
520 DATA 225,25,215,25,215,20,225,20
530 DATA 225,10,195,10,235,10,235,35,270,35
540 DATA 270,10,235,10
550 FOR I=0 TO 14\ READ AA(I),BB(I)\ NEXT I
560 FOR I=0 TO 273 STEP 2\ READ A,B\A(I)=A*.6\A(I+1)=B\ NEXT I
570 RETURN 
580 SET POSITION (130,150)
590 GRAPHIC PRINT " :  '-85'"
600 AX1=140\AY1=0\AX2=600\AY2=80\AX3=600\AY3=50\MX=800\MY=800
610 GOSUB 650
620 GOSUB 710
630 GOSUB 790
640 GOTO 880
650 FOR J=0 TO 3
660 FOR I=AA(J) TO BB(J) STEP 2
670 PLOT (A(I)+AX1,A(I+1)+AY1),(A(I+2)+AX1,A(I+3)+AY1)
680 NEXT I
690 NEXT J
700 RETURN 
710 SET WINDOW 0,MX,0,MY
720 SET COLOR 3
730 FOR J=4 TO 5
740 FOR I=AA(J) TO BB(J) STEP 2
750 PLOT (A(I)+AX2,A(I+1)+AY2),(A(I+2)+AX2,A(I+3)+AY2)
760 NEXT I
770 NEXT J
780 RETURN 
790 REM 
800 SET COLOR 4
810 FOR J=6 TO 14
820 FOR I=AA(J) TO BB(J) STEP 2
830 PLOT (A(I)+AX3,A(I+1)+AY3),(A(I+2)+AX3,A(I+3)+AY3)
840 NEXT I
850 NEXT J
860 REM 
870 RETURN 
880 SET POSITION (500,360)
890 SET COLOR 7
900 GRAPHIC PRINT "    "
910 SET WINDOW 0,300,0,300
920 SET VIEWPORT 0,1,0,.625
930 SET COLOR 5
940 DATA 10,18,10,120,40,135,112,135,112,12
950 DATA 42,12,10,18,40,12,40,135,40,125
960 DATA 112,125,112,115,40,115,44,115,44,12
970 DATA 77,12,77,115,110,115,110,12,111,12
980 DATA 111,1,42,1,42,12,42,1,11,8,11,18,107,120
990 DATA 106,120,91,120,90,120,85,120,84,120
1000 DATA 85,118,83,118,83,116
1010 FOR I=0 TO 63 STEP 2\ READ A,B\B(I)=A*.8\B(I+1)=B*1.3\ NEXT I
1020 GOSUB 1040
1030 GOTO 1160
1040 FOR I=0 TO 49 STEP 2
1050 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
1060 NEXT I
1070 FOR I=52 TO 61 STEP 4
1080 SET POSITION (B(I),B(I+1))
1090 PLOT ARC (B(I+2),B(I+3),360)
1100 NEXT I
1110 SET POSITION (B(18)-2,B(19))
1120 X=3.7
1130 GOSUB 50
1140 GRAPHIC PRINT " "
1150 RETURN 
1160 SET POSITION (180,120)
1170 SET COLOR 7
1180 GRAPHIC PRINT "  "
1190 FOR I=0 TO 300\ NEXT I
1200 SET POSITION (180,105)
1210 GRAPHIC PRINT "  "
1220 FOR I=0 TO 300\ NEXT I
1230 SET COLOR 3
1240 SET POSITION (98,35)
1250 GRAPHIC PRINT " "
1260 PLOT (157,50),(90,50)
1270 FOR I=0 TO 200\ NEXT I
1280 SET COLOR 7
1290 GOTO 1360
1300 S=34\A=181
1310 FOR J=0 TO 8
1320 PLOT (A-10,S),(A,S)
1330 S=S-1
1340 NEXT J
1350 RETURN 
1360 C=85\D=80
1370 FOR K=0 TO 3
1380 A1=160
1390 GOSUB 1300
1400 SET LINE STYLE 6
1410 FOR I=0 TO 6
1420 PLOT (A1,55),(A1-10,55)
1430 A1=A1-10
1440 FOR J=0 TO 50\ NEXT J
1450 NEXT I
1460 IF K=0 OR K=2 THEN N=8\ PRINT CHR$(7); ELSE N=4
1470 SET WRITING MODE N
1480 SET LINE STYLE 1
1490 IF N=8 GOTO 1550
1500 FOR I=0 TO 3
1510 PLOT (C,D),(C-20,D)
1520 PLOT (C-25,D),(C-45,D)
1530 D=D-1
1540 NEXT I
1550 NEXT K
1560 FOR M=0 TO 1
1570 FOR I=0 TO 2\ PRINT CHR$(7);\ NEXT I
1580 FOR I=0 TO 450\ NEXT I
1590 NEXT M
1600 C=85\D=80
1610 SET WRITING MODE 8
1620 FOR I=0 TO 7
1630 PLOT (C,D),(C-20,D)
1640 PLOT (C-25,D),(C-45,D)
1650 D=D-1
1660 NEXT I
1670 FOR N=4 TO 8 STEP 4
1680 A1=100
1690 SET WRITING MODE N
1700 SET LINE STYLE 3
1710 FOR I=0 TO 5
1720 PLOT (A1,55),(A1+10,55)
1730 A1=A1+10
1740 NEXT I
1750 NEXT N
1760 PRINT CHR$(7);
1770 FOR N=4 TO 8 STEP 4
1780 SET WRITING MODE N
1790 GOSUB 1300
1800 NEXT N
1810 SET LINE STYLE 1
1820 SET WRITING MODE 4
1830 A=238\B=51
1840 GOSUB 1860
1850 GOTO 1930
1860 SET COLOR 1
1870 FOR I=0 TO 5
1880 PLOT (A+10+I,B+10+I),(A+10+I,B+20+I),(A+20+I,B+20+I),
1890 PLOT (A+20+I,B+10+I),(A+10+I,B+10+I)
1900 NEXT I
1910 SET COLOR 7
1920 RETURN 
1930 REM ...........     ...............................
1940 SET POSITION (0,0)
1950 FOR I=0 TO 3000\ NEXT I
1960 SET WRITING MODE 8
1970 GOSUB 1040
1980 PLOT (157,50),(90,50)
1990 SET POSITION (98,35)
2000 GRAPHIC PRINT " "
2010 SET POSITION (130,150)
2020 GRAPHIC PRINT " :   '-85'ASDFG"
2030 SET WINDOW 0,800,0,800
2040 SET POSITION (500,360)
2050 GRAPHIC PRINT "    8822"
2060 SET WINDOW 0,300,0,300
2070 SET POSITION (180,120)
2080 GRAPHIC PRINT "  "
2090 SET POSITION (180,105)
2100 GRAPHIC PRINT "  "
2110 SET WRITING MODE 4
2120 SET POSITION (150,130)
2130 GRAPHIC PRINT "      "
2140 SET POSITION (150,110)
2150 GRAPHIC PRINT " '-85'  "
2160 SET POSITION (150,90)
2170 GRAPHIC PRINT "   "
2180 AX1=20\AY1=20\AX2=100\AY2=180\AX3=40\AY3=10
2190 GOSUB 650
2200 GOSUB 710
2210 GOSUB 790
2220 SET COLOR 3
2230 PLOT (430,140),(330,140),(390,190),(278,190)
2240 SET POSITION (280,100)
2250 GRAPHIC PRINT " "
2260 SET COLOR 5
2270 FOR N=4 TO 8 STEP 4
2280 A=455\B=90
2290 SET WRITING MODE N
2300 FOR I=0 TO 16
2310 PLOT (A,B),(A+28,B)
2320 B=B-1
2330 NEXT I
2340 FOR R=0 TO 300\ NEXT R
2350 NEXT N
2360 PRINT CHR$(7);
2370 SET LINE STYLE 5
2380 FOR N=4 TO 8 STEP 4
2390 SET WRITING MODE N
2400 PLOT (430,149),(345,149),(405,199),(278,199)
2410 FOR T=0 TO 300\ NEXT T
2420 NEXT N
2430 PRINT CHR$(7);
2440 SET WRITING MODE 8
2450 SET WINDOW 0,300,0,300
2460 SET LINE STYLE 1
2470 A=238\B=51
2480 GOSUB 1860
2490 SET WRITING MODE 4
2500 A=50\B=88
2510 GOSUB 1860
2520 SET POSITION (0,0)
2530 FOR I=0 TO 3000\ NEXT I
2550 REM ................ KOMNATY ..............................
2560 CLEAR 
2570 GOTO 2610
2580 SET CHARACTER SIZE X,4*X
2590 SET CHARACTER SPACING 1.05*X,0
2600 RETURN 
2610 REM .....................KOMMUNICATION ......................
2620 SET WINDOW 0,300,0,300
2630 GOSUB 3320
2640 GOSUB 2660
2650 GOTO 2920
2660 REM 
2670 SET WRITING MODE 8
2680 PLOT (190,77),(105,77)
2690 SET WRITING MODE 4
2700 SET WINDOW -100,200,0,300
2710 REM SET VIEWPORT 0,1,0,.625
2720 RESTORE 2740
2730 SET COLOR 5
2740 DATA 10,18,10,120,40,135,112,135,112,12
2750 DATA 42,12,10,18,40,12,40,135,40,125
2760 DATA 112,125,112,115,40,115,44,115,44,12
2770 DATA 77,12,77,115,110,115,110,12,111,12
2780 DATA 111,1,42,1,42,12,42,1,11,8,11,18,107,120
2790 DATA 106,120,91,120,90,120,85,120,84,120
2800 DATA 85,118,83,118,83,116
2810 FOR I=0 TO 63 STEP 2\ READ A,B\B(I)=A*.8\B(I+1)=B*1.3\ NEXT I
2820 GOSUB 2840
2830 GOTO 2920
2840 FOR I=0 TO 49 STEP 2
2850 PLOT (B(I),B(I+1)),(B(I+2),B(I+3))
2860 NEXT I
2870 FOR I=52 TO 61 STEP 4
2880 SET POSITION (B(I),B(I+1))
2890 PLOT ARC (B(I+2),B(I+3),360)
2900 NEXT I
2910 RETURN 
2920 SET VIEWPORT 0,1,0,.5
2930 SET WINDOW 0,800,0,800
2940 PLOT (60,110),(50,110),(50,3),(360,3),(360,450),(600,450),(600,565)
2950 PLOT (540,110),(520,110),(520,0),(440,0),(440,400),(610,400),(610,560)
2960 PLOT (60,675),(50,675),(50,500),(590,500),(590,565)
2965 SET LINE STYLE 6
2967 SET COLOR 6
2970 FOR N=4 TO 8 STEP 4
2980 SET WRITING MODE N
3000 PLOT (60,112),(48,112),(48,0),(362,0),(362,458),(602,458),(602,565)
3010 NEXT N
3020 SET WRITING MODE 4
3030 FOR N=4 TO 8 STEP 4
3040 SET WRITING MODE N
3050 PLOT (540,112),(518,112),(518,3),(442,3),(442,398),(612,398),(612,560)
3060 NEXT N
3070 FOR N=4 TO 8 STEP 4
3080 SET WRITING MODE N
3090 PLOT (60,678),(47,678),(47,490),(593,490),(593,565)
3100 NEXT N
3110 FOR N=4 TO 8 STEP 4
3120 SET WRITING MODE N
3130 PLOT (602,565),(602,458),(362,458),(362,0),(48,0),(48,112),(60,112)
3140 NEXT N
3150 FOR N=4 TO 8 STEP 4
3160 SET WRITING MODE N
3170 PLOT (612,560),(612,398),(442,398),(442,3),(518,3),(518,112),(540,112)
3180 NEXT N
3190 FOR N=4 TO 8 STEP 4
3200 SET WRITING MODE N
3210 PLOT (593,565),(593,490),(47,490),(47,678),(60,678)
3220 NEXT N
3230 PLOT (200,150),(210,160)\ PLOT (200,730),(240,750)
3240 PLOT (670,170),(680,200)
3250 SET WRITING MODE 4
3260 SET LINE STYLE 1
3270 SET WRITING MODE 4
3280 CHAIN "GRAFIKA"
3290 REM ...................   .....................
3300 REM ........................  ....................
3310 REM 
3320 REM 
3330 REM SET VIEWPORT 0,1,0,.625
3340 REM PLOT (0,150),(300,150)\ PLOT (150,0),(150,300)
3350 SET VIEWPORT 0,.35,0,.2
3360 GOSUB 3380
3370 GOTO 4580
3380 REM ....................................
3390 SET WINDOW 0,300,0,300
3400 RESTORE 3430
3410 REM SET COLORMAP 0,0,0,1
3420 SET COLOR 4
3430 DATA 50,175,50,50,0,5,0,190,50,175
3440 DATA 250,175,300,190,0,190,300,190,300,5
3450 DATA 250,50,250,175,0,50,35,70,35,165
3460 DATA 0,170,0,150,35,145,10,148,10,55
3470 DATA 260,40,260,165,300,175,285,171,285,17
3480 DATA 275,115,275,100,295,115,295,100
3490 REM 29 K
3500 DATA 60,50,90,80,200,80,175,50,60,50
3510 DATA 60,5,95,5,95,50,95,5,110,25
3520 DATA 110,50,140,50,140,5,175,5,200,35
3530 DATA 200,80,175,50,175,5,175,20,140,20
3540 DATA 140,30,175,30,175,40,140,40
3550 REM 53 S
3560 DATA 155,45,160,45,155,35,160,35,155,25
3570 DATA 160,25,155,15,160,15,90,35,90,25
3580 REM 63
3590 FOR I=0 TO 125 STEP 2
3600 READ A,B
3610 A(I)=A\A(I+1)=B*1.5
3620 NEXT I
3630 FOR I=0 TO 20 STEP 2
3640 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3650 NEXT I
3660 SET COLOR 3
3670 FOR I=24 TO 36 STEP 2
3680 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3690 NEXT I
3700 SET COLOR 4
3710 FOR I=40 TO 46 STEP 2
3720 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
3730 NEXT I
3740 SDX=0\SDY=10
3750 REM SET COLORMAP 0,0,0,.5
3760 REM SET COLORMAP 6,0,0,0
3770 SET COLOR 4
3780 FOR I=58 TO 102 STEP 2
3790 PLOT (A(I)+SDX,A(I+1)+SDY),(A(I+2)+SDX,A(I+3)+SDY)
3800 NEXT I
3810 PLOT (275,140),(275,155)
3820 PLOT (295,140),(295,155)
3830 PLOT (155+SDX,25+SDY),(160+SDX,25+SDY)
3840 PLOT (90+SDX,45+SDY),(90+SDX,35+SDY)
3850 PLOT (155+SDX,40+SDY),(160+SDX,40+SDY)
3860 PLOT (155+SDX,55+SDY),(160+SDX,55+SDY)
3870 PLOT (155+SDX,70+SDY),(160+SDX,70+SDY)
3880 PLOT (250,77),(200,77)
3890 PLOT (60,77),(50,77)
3900 SET COLOR 7
3910 DATA 0,30,34,40,80,86,90,104
3920 DATA 108,114,118,140,144,154,160,160,170,170,180
3930 DATA 180,190,190,200,200,208,234,238,254,264,270
3940 DATA 10,40,50,60,140,60,100,40,10,40
3950 DATA 10,20,100,20,140,40,136,38,136,34
3960 DATA 100,15,16,15,16,20,100,20,100,40
3970 DATA 140,60,140,40,95,35,75,35,75,25
3980 DATA 95,25,95,35,90,35,90,31,87,31
3990 DATA 87,33,83,33,83,31,80,31,80,35
4000 DATA 75,35,75,25,80,25,80,29,83,29
4010 DATA 83,27,87,27,87,29,90,29,90,25
4020 DATA 70,35,50,35,50,25,70,25,70,35
4030 DATA 20,35,15,35,15,30,20,30,20,35
4040 DATA 25,35,25,30,20,30,20,35
4050 DATA 90,75,90,135,185,135,185,75,90,75
4060 DATA 195,65,80,65,80,145,205,145,205,135
4070 DATA 240,100,240,80,205,70,205,65,195,65
4080 DATA 195,145,205,145,205,65,325,55,325,20,270,0,325,55
4090 DATA 25,55,-30,0,270,0,25,45,25,50
4100 DATA 75,50,75,45,25,45,85,45,85,50
4110 DATA 135,50,135,45,85,45,145,45,145,50
4120 DATA 185,50,185,45,145,45,195,45,195,50
4130 DATA 225,50,225,45,195,45,235,45,235,50
4140 DATA 270,50,270,45,235,45,35,10,35,15
4150 DATA 25,15,25,25,35,25,35,35,160,35
4160 DATA 160,30,165,30,165,20,160,20,160,15
4170 DATA 140,15,140,10,35,10,195,10,195,35
4180 DATA 225,35
4190 DATA 225,10,195,10,235,10,235,35,270,35
4200 DATA 270,10,235,10
4210 FOR I=0 TO 14\ READ AA(I),BB(I)\ NEXT I
4220 FOR I=0 TO 257 STEP 2\ READ A,B\A(I)=A*.6\A(I+1)=B\ NEXT I
4230 AX1=80\AY1=110\AX2=270\AY2=220\AX3=400\AY3=300\MX=700\MY=700
4240 SET WRITING MODE 8
4250 PLOT (60,85),(90,130)
4260 SET WRITING MODE 4
4270 PLOT (60,85),(67,97)
4280 SET WINDOW 0,400,0,400
4290 GOSUB 4370
4300 SET WINDOW 0,300,0,300
4310 SET WRITING MODE 8
4320 PLOT (135,130),(180,130)
4330 SET WRITING MODE 4
4340 GOSUB 4430
4350 GOSUB 4500
4360 GOTO 4570
4370 FOR J=0 TO 3
4380 FOR I=AA(J) TO BB(J) STEP 2
4390 PLOT (A(I)+AX1,A(I+1)+AY1),(A(I+2)+AX1,A(I+3)+AY1)
4400 NEXT I
4410 NEXT J
4420 RETURN 
4430 SET WINDOW 0,MX,0,MY
4440 FOR J=4 TO 5
4450 FOR I=AA(J) TO BB(J) STEP 2
4460 PLOT (A(I)+AX2,A(I+1)+AY2),(A(I+2)+AX2,A(I+3)+AY2)
4470 NEXT I
4480 NEXT J
4490 RETURN 
4500 SET WINDOW 0,1000,0,1000
4510 FOR J=6 TO 14
4520 FOR I=AA(J) TO BB(J) STEP 2
4530 PLOT (A(I)+AX3,A(I+1)+AY3),(A(I+2)+AX3,A(I+3)+AY3)
4540 NEXT I
4550 NEXT J
4560 RETURN 
4570 RETURN 
4580 REM 
4590 SET VIEWPORT .6,.95,0,.2
4600 GOSUB 3380
4610 SET VIEWPORT 0,.35,.35,.55
4620 GOSUB 3380
4630 SET VIEWPORT .6,.95,.35,.55
4640 SET WINDOW 0,300,0,300
4650 DATA 50,175,50,50,0,5,0,190,50,175
4660 DATA 250,175,300,190,0,190,300,190,300,5
4670 DATA 250,50,250,175,0,50,35,70,35,165
4680 DATA 0,170,0,150,35,145,10,148,10,55
4690 DATA 260,40,260,165,300,175,285,171,285,17
4700 DATA 275,115,275,100,295,115,295,100
4710 REM 29 K
4720 FOR I=0 TO 57 STEP 2
4730 READ A,B
4740 A(I)=A\A(I+1)=B*1.5
4750 NEXT I
4760 FOR I=0 TO 20 STEP 2
4770 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4780 NEXT I
4790 FOR I=24 TO 36 STEP 2
4800 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4810 NEXT I
4820 FOR I=40 TO 46 STEP 2
4830 PLOT (A(I),A(I+1)),(A(I+2),A(I+3))
4840 NEXT I
4850 PLOT (275,140),(275,155)
4860 PLOT (295,140),(295,155)
4870 PLOT (250,77),(50,77)
4880 RETURN 
