SET NO DOUBLE 
1 PRINT CHR$(27)+'[?5l'
5 REM zastawka
10 CLEAR 
100 SET VIEWPORT 0,1,0,.625\ SET WINDOW -200,200,-120,120
1000 FOR I=0 TO 70 STEP 2
1100 SET COLOR 1\ SET FILL (0,0)
1200 SET POSITION (I,0)\ PLOT ARC (0,0,360)
1300 NEXT I
2000 SET WRITING MODE 8
2100 SET COLOR 0\ SET FILL (0,0)\ PLOT (50,40),(50,-40)
2110 SET FILL (0,0)\ PLOT (-50,-40),(-50,40)
2200 SET FILL (0,65)\ PLOT (-40,42),(0,53),(40,42)
2300 SET FILL (0,-65)\ PLOT (-40,-42),(0,-53),(40,-42)
2400 SET COLOR 1\ SET WRITING MODE 4
2410 FOR I=0 TO 40 STEP 1.5
2420 SET POSITION (I,0)\ PLOT ARC (0,0,360)\ NEXT I
2430 SET FILL OFF 
2440 SET WRITING MODE 2\ SET COLOR 0\ SET CHARACTER SIZE 20,30
2500 T$=""\X=-68\Y=-15\ GOSUB 5000
2510 T$=""\X=51\Y=-15\ GOSUB 5000
2590 SET CHARACTER SIZE 15,30
2600 T$=""\X=-37\Y=-15\ GOSUB 5000
2700 SET WRITING MODE 8\ SET COLOR 0
2710 SET FILL (0,30)\ SET POSITION (0,20)\ PLOT ARC (0,30,270)
2720 SET FILL (0,-30)\ SET POSITION (0,-20)\ PLOT ARC (0,-30,270)
3000 SET FILL OFF \ SET WRITING MODE 2
3100 FOR I=0 TO 2*PI STEP .05
3200 X1=80*SIN(I)\Y1=80*COS(I)\X2=90*SIN(I)\Y2=90*COS(I)
3300 SET FILL (X1,Y1)\ SET POSITION (X2,Y2)\ PLOT ARC (X1,Y1,360)
4000 NEXT I
4900 GOTO 10000
5000 SET POSITION (X,Y)\ GRAPHIC PRINT T$\ RETURN 
10000 END 
