Ejemplo 1: BASIC original no estructurado (Applesoft BASIC)