CLS
 CONST TRUE = 1, FALSE = NOT TRUE
 OPEN "poly.in" FOR INPUT AS #1
 DIM a(9)
 WHILE NOT EOF(1)
        FOR i = 1 TO 9
                INPUT #1, a(i)
        NEXT
        GOSUB Make
 WEND
 CLOSE #1
END


Make:
First = FALSE
Ok = FALSE
FOR i = 1 TO 7
        IF a(i) <> 0 THEN
                Ok = TRUE
                IF First = TRUE THEN
                        IF a(i) < 0 THEN PRINT " - ";  ELSE PRINT " + ";
                ELSE
                        IF a(i) < 0 THEN PRINT "-";
                END IF
               
                IF ABS(a(i)) <> 1 THEN PRINT LTRIM$(STR$(ABS(a(i))));
                PRINT "x^"; LTRIM$(STR$(9 - i));
                First = TRUE
        END IF
NEXT
IF a(8) <> 0 THEN
        Ok = TRUE
        IF First = TRUE THEN
                IF a(8) < 0 THEN PRINT " - ";  ELSE PRINT " + ";
                IF ABS(a(8)) <> 1 THEN PRINT LTRIM$(STR$(ABS(a(8))));
        ELSE
                IF a(8) < 0 THEN PRINT "-";
        END IF
        PRINT "x";

END IF

IF a(9) <> 0 THEN
        Ok = TRUE
        IF First = TRUE THEN
                IF a(9) < 0 THEN PRINT " - ";  ELSE PRINT " + ";
        ELSE
                IF a(9) < 0 THEN PRINT "-";
        END IF
        PRINT LTRIM$(STR$(ABS(a(9))));
END IF
IF Ok = FALSE THEN PRINT "0" ELSE PRINT
RETURN