Tabla de contenido
Publicidad
50 PRINT "Que no quiere bailar con usted" [RETURN
60 PRINT "Dejala, dejala sola" [RETURN]
70 PRINT [RETURN]
80 PRINT "Es tu cara lo mismo que luna blanca" [RETURN]
90 PRINT "Y tus ojos luceros que la acompañan" [RETURN]
100 PRINT "Al tribulete" [RETURN]
110 PRINT "Que no quiere bailar con usted" [RETURN]
120 PRINT "Dejala, dejala sola" [RETURN]
130 PRINT [RETURN]
140 PRINT "Tengo yo comparado, niña, tu rostro" [RETURN]
150 PRINT "Con la luna de enero y el sol de agosto" [RETURN]
180 PRINT "Al tribulete" [ENTER]
190 PRINT "Que no quiere bailar con usted" [RETURN]
200 PRINT "Dejala, dejala sola" [RETURN]
210 PRINT [RETURN]
run [RETURN]
puede observar que hemos repetido varias instrucciones. Por ejemplo, la línea 40 (principio del
estribillo) está repetida en la 100 y en la 180. Pongamos todo el estribillo en una subrutina, con
RETURN al final; entonces podremos 'llamarlo' con la instrucción GOSUB 180 cada vez que lo
necesitemos. El programa queda de la siguiente forma:
10 MODE 2 [RETURN]
20 PRINT "Dicen que no la quieres y la regalas"[RETURN]
30 PRINT "Peritas de Don Guindo y uvas tempranas"[RETURN]
40 GOSUB 180 [RETURN]
80 PRINT "Es tu cara lo mismo que luna blanca"[RETURN]
90 PRINT "Y tus ojos luceros que la acompañan"[RETURN]
100 GOSUB 180 [RETURN]
140 PRINT "Tengo yo comparado, niña, tu rostro" [RETURN]
150 PRINT "Con la luna de enero y el sol de agosto" [RETURN]
170 END [RETURN]
180 PRINT "Al tribulete" [RETURN]
190 PRINT "Que no quiere bailar con usted" [RETURN]
200 PRINT "Dejala, dejala sola" [RETURN]
210 PRINT [RETURN]
220 RETURN [RETURN]
run [RETURN]
El ahorro de trabajo es evidente. El correcto diseño de subrutinas es una faceta esencial de la
informática. Con ellas se puede escribir programas 'estructurados': son la base para la
adquisición de buenos hábitos de programación.
Cuando escriba subrutinas, tenga en cuenta que no está obligado a saltar siempre a su primera
línea. Por ejemplo, si hay una rutina en las líneas 500 a 800, podría interesar llamarla con
GOSUB 500, con GOSUB 640 o con GOSUB 790, según las funciones de la subrutina que se
desee ejecutar.
Observe que en el programa anterior hemos incluido la instrucción END en la línea 170 para
aislar la subrutina del resto del programa. De no haberlo hecho, el programa pasaría de la línea
160 a la 180.
Aritmética sencilla
El ordenador se puede utilizar como calculadora.
Manual de Amstrad CPC 6128 (revisión 2008) - Página 47
Publicidad
Tabla de contenido
