100 SCREEN 1:KEY OFF:WIDTH 40:CLS:U=ATN(1)/45:Q=7:R=Q*5:S=R*4:M=319-Q*7:N=Q*7 110 FOR W=0 TO 350 STEP 45 : WW = W + 225 : RR = R * .5 : SS = S * .5 115 LOCATE 22,5:PRINT 1+W/45;:LOCATE 22,15:PRINT W; 120 A =W *U:B =(W +30)*U:C =(W -30)*U:D =(W +150)*U:E =(W -150)*U 130 AA=WW*U:BB=(WW+30)*U:CC=(WW-30)*U:DD=(WW+150)*U:EE=(WW-150)*U 140 X = M + R * COS( A ) 150 XX = M + RR * COS( AA ) 160 Y = N - R * SIN( A ) 170 YY = N - RR * SIN( AA ) 180 P = SQR( (S ^2)-((R *SIN(A ))^2) ) : L = X - P 190 PP = SQR( (SS^2)-((RR*COS(AA))^2) ) : LL = YY + PP 200 F = ATN( (R *SIN(A )) / P ) + 30 * U 210 FF = ATN( (RR*COS(AA)) / PP ) + 30 * U 220 G = ATN( (R *SIN(A )) / P ) - 30 * U 230 GG = ATN( (RR*COS(AA)) / PP ) - 30 * U 240 H = ATN( (R *SIN(A )) / P ) + 150 * U 250 HH = ATN( (RR*COS(AA)) / PP ) + 150 * U 260 I = ATN( (R *SIN(A )) / P ) - 150 * U 270 II = ATN( (RR*COS(AA)) / PP ) - 150 * U 280 CIRCLE(X ,Y ),Q*.5,3,,,1 290 CIRCLE(XX,YY),Q*.5,3,,,1 300 CIRCLE(X ,Y ),Q ,3,,,1 310 CIRCLE(XX,YY),Q ,3,,,1 320 PSET(X ,Y ) ,3 330 PSET(XX,YY) ,3 340 CIRCLE(M ,N ),Q*.5,3,,,1 350 CIRCLE(M ,N ),Q ,3,,,1 360 PSET(M ,N ) ,3 370 CIRCLE(L ,N ),Q*.5,3,,,1 380 CIRCLE(M ,LL),Q*.5,3,,,1 390 CIRCLE(L ,N ),Q ,3,,,1 400 CIRCLE(M ,LL),Q ,3,,,1 410 PSET(L ,N ) ,3 : LLL = N*2+SS-LL : AAA = 30 * U 420 PSET(M ,LL) ,3 : MMM = M-R-S-2-Q*6 : MNN = ( MMM + M ) * .5 460 CIRCLE(MMM,LLL+SS ),Q*.5,3,,,1 470 CIRCLE(MMM,LLL+SS ),Q ,3,,,1 480 PSET(MMM,LLL+SS ) ,3 481 CIRCLE(MMM,LLL+Q*2),Q*.5,3,,,1 482 CIRCLE(MMM,LLL+Q*2),Q ,3,,,1 483 PSET(MMM,LLL+Q*2) ,3 484 CIRCLE(MNN,N +SS ),Q*.5,3,,,1 485 CIRCLE(MNN,N +SS ),Q ,3,,,1 486 PSET(MNN,N +SS ) ,3 487 LINE(MMM+Q*2,LLL)-(MMM+Q,LLL+Q*4),3,B 488 CIRCLE(M ,N ),R ,3,,,1 489 CIRCLE(M ,N ),RR ,3,,,1 490 LINE( L-Q*2 , N-Q*2 )-( L+Q*3 , N+Q*2 ),3,B 500 LINE( L-Q*3 , N-Q*3 )-( L+Q*3 , N+Q*3 ),3,B 510 LINE(M-R-S-1-Q*3, N-Q*3-1 )-(M+R-S+Q*3 , N+Q*3+1 ),3,B 520 LINE(M-R-S-1-Q*4, N-Q*4-1 )-(M+R-S+Q*3 , N+Q*4+1 ),3,B 530 LINE(M-R-S-1-Q*4, N-Q )-(M-R-S-1-Q*3, N+Q ),3,B 540 LINE( 1 , 1 )-( 318 , N+RR+SS+Q*2-1 ),3,B 545 LINE( 3 , N+Q*5 )-( 40 , N+RR+SS+Q*2-3 ),3,B 547 LINE( 40-Q*2 , N+Q*4 )-( 40-Q , N +Q*5 ),3,B 550 LINE(M +COS(B )*Q,N -SIN(B )*Q)-(X +COS(D )*Q,Y -SIN(D )*Q),3 560 LINE(M +COS(BB)*Q,N -SIN(BB)*Q)-(XX+COS(DD)*Q,YY-SIN(DD)*Q),3 570 LINE(M +COS(C )*Q,N -SIN(C )*Q)-(X +COS(E )*Q,Y -SIN(E )*Q),3 580 LINE(M +COS(CC)*Q,N -SIN(CC)*Q)-(XX+COS(EE)*Q,YY-SIN(EE)*Q),3 590 LINE(L +COS(F )*Q,N -SIN(F )*Q)-(X +COS(H )*Q,Y -SIN(H )*Q),3 600 LINE(M +SIN(FF)*Q,LL-COS(FF)*Q)-(XX+SIN(HH)*Q,YY-COS(HH)*Q),3 610 LINE(L +COS(G )*Q,N -SIN(G )*Q)-(X +COS(I )*Q,Y -SIN(I )*Q),3 620 LINE(M +SIN(GG)*Q,LL-COS(GG)*Q)-(XX+SIN(II)*Q,YY-COS(II)*Q),3 621 LINE(MMM+COS(AAA*7.9)*Q,LLL+Q*2-SIN(AAA* 8)*Q) -(MMM+COS(AAA* 4)*Q,LLL+SS -SIN(AAA* 4)*Q),3 622 LINE(MMM+COS(AAA*10 )*Q,LLL+Q*2-SIN(AAA*10)*Q) -(MMM+COS(AAA* 2)*Q,LLL+SS -SIN(AAA* 2)*Q),3 623 LINE(MMM+COS(AAA )*Q,LLL+SS -SIN(AAA )*Q) -(M +COS(AAA* 5)*Q,LL -SIN(AAA* 5)*Q),3 624 LINE(MMM+COS(AAA*11 )*Q,LLL+SS -SIN(AAA*11)*Q) -(M +COS(AAA* 7)*Q,LL -SIN(AAA* 7)*Q),3 630 IF INKEY$="" THEN GOTO 630 640 CLS : NEXT W 650 SCREEN 0:KEY OFF:WIDTH 80:CLS:LIST:END 660 REM SAVE"KURBEL-3.TXT",A GWBASIC.EXE