Type Mismatch

[jelamb]

Here is more of the Code. What do you think?

500 REM PRINT RESULTS FOR THIS CATEGORY
        LPRINT PN$, " ", CAT$
        LPRINT
                FOR K = 1 TO NOR
                LPRINT SC$(K), ID$(K); "  "; USING "####.##"; UCST(K); "    "; TQTY(K)
                TCST = TCST + UCST(K) * TQTY(K)
                NEXT K
        LPRINT