En este caso el BASIC hace todo el trabajo.