Tabla de contenido
Publicidad
TEST
Sintaxis: TEST (<coordenada x>, <coordenada y>)
Ejemplo:
10 CLS
20 PRINT "Estamos utilizando la pluma numero";
30 PRINT TEST(10,386)
40 PRINT "Cambie la pluma y el modo ";
50 PRINT "... y ejecute otra vez el programa."
Run
Función. Traslada el cursor gráfico al punto de coordenadas absolutas especificadas e informa del
valor de la tinta presente en esa posición.
Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS.
TESTR
Sintaxis: TESTR (<incremento de x>, <incremento de y>)
Ejemplo:
10 MODE 0:FOR x=1 TO 15:LOCATE 1,x
20 PEN x:PRINT STRING$(10,143);:NEXT
30 MOVE 200,400:PEN 1
40 FOR n=1 TO 23:LOCATE 12,n
50 PRINT "pen";TESTR(0,-16):NEXT
run
Función. Lleva el cursor gráfico a un punto cuya posición, referida a la posición actual, viene dada
por los parámetros <incremento de x> e <incremento de y>, e informa del valor de la tinta
presente en ese punto.
Palabras clave asociadas: MOVE, MOVER, TEST, XPOS, YPOS.
THEN
Véase IF.
TIME
Sintaxis: TIME
Ejemplo:
10 CLS:REM reloj
20 INPUT "Hora: ",hora
30 INPUT "Minuto: ",minuto
40 INPUT "Segundo: ",segundo
50 CLS:referencia=INT(TIME/300)
60 WHILE hora<13
70 WHILE minuto<60
80 WHILE tiempo<60
90 tiempo=(INT(TIME/300)-referencia)+segundo
100 LOCATE 1,1
110 PRINT USING "## ";hora,minuto,tiempo
120 WEND
Manual de Amstrad CPC 6128 (revisión 2008) - Página 174
Publicidad
Tabla de contenido
