谁能告诉我这是干什么的程序？
0 CLS
10 DIM a(100), a1(100), b(20)
20 INPUT "X , M , P = ", x, m, p
30 PRINT x, m, p
40 IF x < 0 THEN x = ABS(x): sig = -1
50 ix = FIX(x)
60 i = 1
70 a(i) = ix MOD m
80 ix = ix \ m
90 IF ix = 0 THEN 120
100 i = i + 1
110 GOTO 70
120 k = i: p = m ^ (-p)
130 FOR k1 = 1 TO k
140 a1(k1) = a(i)
150 i = i - 1
160 NEXT
170 y = x - FIX(x)
180 j = 1
190 b(j) = FIX(m * y)
200 y = y * m - b(j)
210 IF (y / m ^ j < p) THEN 240
220 j = j + 1
230 GOTO 190
240 IF sig = -1 THEN PRINT "-";
250 GOSUB 320
260 PRINT ".";
270 FOR i = 1 TO j
280 a1(i) = b(i)
290 NEXT: k = j
300 GOSUB 320
310 END
320 FOR i = 1 TO k
330 IF a1(i) <= 9 THEN PRINT a1(i);
340 IF a1(i) = 10 THEN PRINT "A";
350 IF a1(i) = 11 THEN PRINT "B";
360 IF a1(i) = 12 THEN PRINT "C";
370 IF a1(i) = 13 THEN PRINT "D";
380 IF a1(i) = 14 THEN PRINT "E";
390 IF a1(i) = 15 THEN PRINT "F";
400 NEXT
410 RETURN