Código en BASIC del PIC Simulator IDE