100 SCREEN 3,,0,1 : COLOR ,,,,2 110 CONSOLE ,,0 : CLS 3 120 DEF FNX(A,B)=320+COS(A*3.14159#/180)*B*20 130 DEF FNY(A,B)=200-SIN(A*3.14159#/180)*B*20 140 ' 150 FOR I%=20 TO 620 STEP 20 160 LINE (I%,0)-(I%,399),8 170 LINE (0,I%)-(639,I%),8 180 NEXT 190 LINE (0,200)-(639,200),7 200 LINE (320,0)-(320,399),7 210 ' 220 INPUT " ‹N“_ ",X0,Y0 230 D0=SQR(X0^2+Y0^2) 240 IF X0=0 THEN 250 IF Y>=0 THEN T0=90 ELSE T0=270 260 ELSE 270 T0=ATN(Y0/X0) 280 END IF 290 TT=T0 : DD=D0 300 PSET (FNX(TT,DD),FNY(TT,DD)),2 310 ' 320 DO 330 INPUT " Šp“x,‹——£ ",T,D 340 TT=T+TT : DD=DD+D 350 IF TT>360 THEN TT=TT-360 ELSE IF TT<0 THEN TT=TT+360 360 LINE -(FNX(TT,DD),FNY(TT,DD)),2 370 LOOP UNTIL D=0 AND T=0 380 ' 390 END