50 IF INKEY(0)<>-1 THEN PRINT CHR$(11);
60 IF INKEY(2)<>-1 THEN PRINT CHR$(10);
70 LOCATE #1,1,23
80 PRINT #1,"Posicion vertical del"
90 PRINT #1,"cursor de texto =";
100 PRINT #1,VPOS(#0):GOTO 50
run
Función. Da la posición vertical del cursor de texto, referida al extremo superior de la ventana.
Es necesario especificar la <expresión de número de canal>, pues el ordenador no da por
supuesto el #0.
Palabras clave asociadas: POS, WINDOW.
WAIT
Sintaxis: WAIT <número de puerta>, <máscara>[ , <inversión>]
Ejemplo:
WAIT &FF34,20,25
Orden. Espera hasta que por la puerta de entrada/salida especificada por <número de puerta>
se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el valor recibido y el
parámetro <inversión> se realiza la operación lógica XOR; con este resultado y el parámetro
<máscara> se realiza la operación lógica AND; el proceso se repite hasta que el resultado final
sea distinto de cero.
BASIC espera indefinidamente hasta que se cumple la condición requerida. Esta orden no debe
ser utilizada por quien no sepa cuáles son sus efectos.
Palabras clave asociadas: INP, OUT.
WEND
Sintaxis: WEND
Ejemplo:
WEND
Orden. Señala el final del grupo de instrucciones cuya ejecución se repite en un bucle del tipo
WHILE. BASIC determina automáticamente a qué WHILE corresponde cada WEND.
Palabras clave asociadas: TIME, WHILE.
WHILE
Sintaxis: WHILE <expresión lógica>
Ejemplo:
10 CLS:PRINT "Temporizador de 10 segundos":t=TIME
20 WHILE TIME< t+3000
30 SOUND 1,0,100,15
40 WEND: SOUND 129,40,30,15
run
Orden. Repite la ejecución de un grupo de instrucciones mientras se cumpla cierta condición. La
Manual de Amstrad CPC 6128 (revisión 2008) - Página 177