Using SMOTE Function with Multi levels class

My data set contains 14 variables and my class has 4 levels. The data set is heavily imbalanced and I'm trying to use the SMOTE function to balance it. However it under samples my data. Is there any one who knows how to use the SMOTE function with 4 level classifiers?

The code I used is

smoteprogram1 <- SMOTE(Programs ~ ., DecisionT_dATA,perc.over = 100 , perc.under = 200)

where DecisionT_dATA is my data set and program is my classifier

My data have 1143 obs and when I run the command I get 116 obs which is really weird.

appreciate your help thanks