mocos.bas