5 SELECT R
11 READ N 
12 PRINT "X","Y","R","A"  
15 IF N=-1 THEN 135
20 READ X,Y
25 IF X=0 THEN 45
30 IF Y=0 THEN 85
35 PRINT X,Y,SGN(X)*SQR(X^2+Y^2),ATN(Y/X)*180/3.1415927 
40 GOTO 20
45 IF Y=0 THEN 75
47 PRINT X,Y,ABS(Y),  
50 IF Y<0 THEN 65
55 PRINT 90 
60 GOTO 20  
65 PRINT 270  
70 GOTO 20  
75 PRINT X,Y,0,0  
80 GOTO 20  
85 PRINT X,Y,ABS(X),  
90 IF X<1 THEN 120 
100 PRINT 0 
110 GOTO 20 
120 PRINT 180 
130 GOTO 20 
135 READ R,A 
136 LET Z=(A-INT(A/360)*360)*3.1415927/180  
140 PRINT R*COS(Z),R*SIN(Z),R,A 
150 GOTO 135 
999 END 

