Create main.bas

Start of main code