examples of codes in visual basic 60 grinder mill