BASIC 100 .6340