Hola @AdonaiVera, te he enviado un privado para que edites tu post (enlace y visualización de la imagen adjunta).
Respecto a lo que presentas y a los efectos de poder evaluarlo ahorrá trabajo para quien lo haga adjuntando el archivo Proteus teniendo en cuenta que debes subirlo como .zip (no uses otra extensión de compresor).
Creo recordar el código que has presentando o es similar a uno que vi hace un buen tiempo.
Ya te diré cuando lo mire con mas tiempo.