Tabla de contenido
Publicidad
10 INPUT "Escriba su nombre: ",a$:CLS
20 PRINT "Se mueve usted mucho, ";a$
30 TAG
40 x=LEN(a$)*17:y=50+RND*300:MOVE -x,y
50 FOR f=-x TO 640 STEP RND*7+3
60 MOVE f,y:PRINT " ";a$;:FRAME:NEXT
70 FOR b=640 TO -x STEP-RND*7+3
80 MOVE b,y:PRINT a$;" ";:FRAME:NEXT
90 GOTO 40
run
Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla gráfica, en la
posición actual del cursor. De esta forma se puede mezclar texto con gráficos, o mover los
caracteres pixel a pixel. Si se omite la <expresión de número de canal>, se supone el #0.
El punto superior izquierdo del carácter se conecta al cursor gráfico. Si se omite el signo de
punto y coma al final de la instrucción PRINT, los códigos de retorno del carro y de avance de
línea se visualizan como caracteres gráficos.
Si se ha aplicado TAG al canal #0, BASIC desactiva TAG al volver a modo directo.
Palabras clave asociadas: TAGOFF.
TAGOFF
Sintaxis: TAGOFF [#<expresión de número de canal>]
Ejemplo:
10 MODE 2:TAG :REM texto ligado al cursor grafico
20 periodo=1984:FOR x=1 TO 640 STEP 70
30 MOVE x,400:DRAWR 0,-350
40 periodo=periodo+1:PRINT periodo;:NEXT
50 TAGOFF :REM texto desconectado de cursor grafico
60 LOCATE 34,25:PRINT "Datos anuales"
70 GOTO 70
run
Orden. Cancela la orden TAG para el canal especificado (o para el #0, si no se especifica otro) y
redirige el texto a la posición que tenía el cursor de texto antes de ejecutarse TAG.
Palabras clave asociadas: TAG.
TAN
Sintaxis: TAN (<expresión numérica>)
Ejemplo:
PRINT TAN(45)
1.61977519
Función. Calcula la tangente de la <expresión numérica>, que debe tener un valor
comprendido entre -20000 y +20000.
Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos
como dados en grados o en radianes, respectivamente.
Palabras clave asociadas: ATN, COS, DEG, RAD, SIN.
Manual de Amstrad CPC 6128 (revisión 2008) - Página 173
Publicidad
Tabla de contenido
