1
mode
para volver a modo 1 y borrar la pantalla.
DRAW
Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. La instrucción DRAW dibuja una recta a
partir de la posición actual del cursor gráfico. Para verla en acción, dibuje un rectángulo con el
siguiente programa:
5
cls
10
plot
10,10
20
10,390
draw
30
draw
630,390
40
draw
630,10
50
10,10
draw
60
goto
60
run
En la línea 10 la instrucción PLOT coloca el cursor en el punto de partida deseado. A
continuación, las instrucciones DRAW van dibujando segmentos de recta: hacia arriba, hacia la
derecha, etc.
Pulse [ESC] dos veces para abandonar el programa.
(Observe la línea 60 de este programa. Esta línea establece un bucle infinito, del que sólo se sale
deteniendo el programa. Una instrucción de este tipo es útil cuando se quiere evitar que el
ordenador exhiba el mensaje Ready al terminar el programa.)
Añada al programa las siguientes líneas, las cuales dibujan un segundo rectángulo dentro del
anterior:
60
plot
20,20
70
draw
20,380
80
draw
620,380
90
draw
620,20
100
draw
20,20
110
110
goto
run
Pulse [ESC] dos veces para detener el programa.
MOVE
Esta instrucción funciona igual que PLOT en cuanto a llevar el cursor gráfico a la posición
especificada, pero no dibuja el punto.
Escriba:
cls
move
639,399
Aunque no podamos verlo, hemos llevado el cursor al extremo superior derecho de la pantalla.
Para demostrarlo, vamos a dibujar una recta desde ese punto hasta el centro de la pantalla.
Escriba:
Manual de Amstrad CPC 6128 (revisión 2008) - Página 70