dim scalars(10,4)
scalars(1,1) = 1: scalars(1,2) = 2: scalars(1,3) = 3
scalars(2,1) = 0: scalars(2,2) = 1: scalars(2,3) = 2: scalars(2,4) = 3
scalars(3,1) = 1: scalars(3,2) = 0: scalars(3,3) = 3: scalars(3,4) = 4
scalars(4,1) = 1: scalars(4,2) = 2: scalars(4,3) = 0
scalars(5,1) = 0: scalars(5,2) = 0: scalars(5,3) = 0
scalars(6,1) = 0
scalars(7,1) = 1: scalars(7,2) = 1: scalars(7,3) = 1
scalars(8,1) = -1: scalars(8,2) = -1: scalars(8,3) = -1
scalars(9,1) = -1: scalars(9,2) = -2: scalars(9,3) = 0: scalars(9,4) = -3
scalars(10,1) = -1

for n = 1 to arraysize(scalars(),1)
    cadena$ = ""

    for m = 1 to arraysize(scalars(),2)
        scalar = scalars(n, m)
        if scalar <> 0 then
            if scalar = 1 then
                cadena$ = cadena$ + "+e" + str$(m)
            else
                if scalar = -1 then
                    cadena$ = cadena$ + "-e" + str$(m)
                else
                    if scalar > 0 then
                        cadena$ = cadena$ + chr$(43) + str$(scalar) + "*e" + str$(m)
                    else
                        cadena$ = cadena$ + str$(scalar) + "*e" + str$(m)
                    fi
                fi
            fi
        fi
    next m
    if cadena$ = ""  cadena$ = "0"
    if left$(cadena$, 1) = "+"  cadena$ = right$(cadena$, len(cadena$)-1)
    print cadena$
next n
end