IF LEN(COMMAND$) THEN OPEN "Euler.Dat" FOR OUTPUT AS #1
REDIM EulerCoefficient(1 TO 1, 1 TO 1) AS DOUBLE
PRINT
PRINT "Coefficiente del polinomio di Eulero di grado 0:"
IF LEN(COMMAND$) THEN PRINT #1, "Coefficiente del polinomio di Eulero di grado 0:"
EulerCoefficient#(1, 1) = 1
PRINT SPACE$(40 - LEN(STR$(EulerCoefficient#(1, 1)))); STR$(EulerCoefficient#(1, 1));
IF LEN(COMMAND$) THEN PRINT #1, SPACE$(24 - LEN(STR$(EulerCoefficient#(1, 1)))); STR$(EulerCoefficient#(1, 1))
DO
   Break$ = INKEY$
LOOP UNTIL Break$ <> ""
PRINT
IF Break$ = CHR$(27) THEN
   IF LEN(COMMAND$) THEN CLOSE #1
   END
END IF
NIter% = 2
DO
   REDIM TempCoefficient(1 TO NIter%, 1 TO NIter%) AS DOUBLE
   FOR I = 1 TO NIter% - 1
      FOR J = 1 TO NIter% - 1
         TempCoefficient#(I, J) = EulerCoefficient#(I, J)
      NEXT
   NEXT
   REDIM EulerCoefficient(1 TO NIter%, 1 TO NIter%) AS DOUBLE
   FOR I = 1 TO NIter% - 1
      FOR J = 1 TO NIter% - 1
         EulerCoefficient#(I, J) = TempCoefficient#(I, J)
      NEXT
   NEXT
   EulerCoefficient#(NIter%, 1) = 1
   FOR P% = 2 TO NIter%
      EulerCoefficient#(NIter%, P%) = EulerCoefficient#(NIter% - 1, P%) + (1 - NIter%) * EulerCoefficient#(NIter% - 1, P% - 1)
   NEXT
   PRINT
   IF LEN(COMMAND$) THEN PRINT #1, ""
   PRINT "Coefficienti del polinomio di Eulero di grado"; STR$(NIter% - 1); ":"
   IF LEN(COMMAND$) THEN PRINT #1, "Coefficienti del polinomio di Eulero di grado"; STR$(NIter% - 1); ":"
   FOR P% = NIter% TO 1 STEP -1
      PRINT SPACE$(40 - LEN(STR$(EulerCoefficient#(NIter%, P%)))); STR$(EulerCoefficient#(NIter%, P%));
      IF LEN(COMMAND$) THEN PRINT #1, SPACE$(24 - LEN(STR$(EulerCoefficient#(NIter%, P%)))); STR$(EulerCoefficient#(NIter%, P%));
   NEXT
   NIter% = NIter% + 1
   DO
      Break$ = INKEY$
   LOOP UNTIL Break$ <> ""
   PRINT
   IF LEN(COMMAND$) THEN PRINT #1, ""
LOOP UNTIL Break$ = CHR$(27) OR NIter% = 91