10 DIM M(1,2)
20 PRINT
30 PRINT "極座標表示に変換します。"
40 PRINT "　　極座標表示　（　動径 × cos ( 偏角 ），　動径 × sin ( 偏角 ））"
50 PRINT
60 MAT INPUT PROMPT "　χ座標値 ， ｙ座標値　と入力してください。　":M
70 LET x=M(1,1)
80 LET y=M(1,2)
90 LET r=SQR(x^2+y^2)
100 LET t=ANGLE(x,y)
110 PRINT
120 PRINT "［ 動径 ，　偏角　］"
130 PRINT "［ ";r;" ，";180*t/PI;" 度 ］"
140 PRINT "［ ";r;" ，";t;"ラジアン ］"
150 PRINT "［ ";r;" ，";t/PI;"×π ラジアン ］"
160 PRINT
170 END