BORRAR LA PANTALLA CON MODULA2???

Miguel Pérez López

unread,

Oct 30, 2003, 10:18:41 AM10/30/03

to

Hola amigos,

¿Cómo se borra la pantalla donde se ejecutan los programas de Modula2?. Lo
he intentado con ClrScreen(), pero no lo he conseguido, creo que no se
utilizarlo, si es que realmente sirve para eso.

Gracias,
Miguel

garrobo

unread,

Oct 30, 2003, 11:00:59 AM10/30/03

to

Miguel Pérez López escribió:

En el modulo Terminal existe ClrScreen, pero la debes usar asi, sin
parentesis creo...
Un saludo

--
==GARROBO==

JMDominguez

unread,

Oct 30, 2003, 1:03:49 PM10/30/03

to

Eso de "y au" es de Valencia ¿no?...
(Salu2 a to2 los valencianos)

"." <javi_mail@_QUITA_ESTO_telefonica.net> escribió en el mensaje
news:bnrere$22b$1...@hefestos.uned.es...
> De todos modos en una pantalla de terminal ya sea en linux o dos, creo que
> había veintypico lineas, así k le puedes meter 30 WriteLn y au. Es mas
> cutre, pero el efecto final es el mismo.
>
> Saludos
>
> "garrobo" <carlo...@eresmas.com> escribió en el mensaje
> news:bnrckk$f3$1...@hefestos.uned.es...

.

unread,

Oct 30, 2003, 11:46:47 AM10/30/03

to

De todos modos en una pantalla de terminal ya sea en linux o dos, creo que
había veintypico lineas, así k le puedes meter 30 WriteLn y au. Es mas
cutre, pero el efecto final es el mismo.

Saludos

"garrobo" <carlo...@eresmas.com> escribió en el mensaje
news:bnrckk$f3$1...@hefestos.uned.es...

tarod

unread,

Oct 30, 2003, 3:40:06 PM10/30/03

to

PROCEDURE BorrarPant;
VAR
I:INTEGER;
BEGIN
FOR I:=1 TO 30 DO
WriteLn;
END;
Goto(1,1);
END BorrarPant;

y en el encabezado poned:

FROM Display IMPORT Goto;

Un borra pantalla Made In Tarod ^_^

"JMDominguez" <dom...@fonocom.es> escribió en el mensaje
news:bnrjot$5uk$1...@hefestos.uned.es...

Miguel Pérez López

unread,

Oct 31, 2003, 10:11:07 AM10/31/03

to

Que jodio!!!. Eso también lo hago yo.

"tarod" <taro...@hotmail.com> escribió en el mensaje
news:bnrsvr$djv$1...@hefestos.uned.es...

.

unread,

Oct 31, 2003, 7:30:52 AM10/31/03

to

Si es d valencia, me lo pego el tono cuando estuve alli, jeje, mu buena
gente por esa zona

Tarod ese nick es famoso, aunk no creo k seas el mismo, żo si?
El GoTo que hace, żcoloca el cursor arriba en la izquierda (1Ş fila, 1Ş
columna)?

Saludos

Miguel Pérez López

unread,

Oct 31, 2003, 2:28:12 PM10/31/03

to

Muchas gracias Deschamps, y también para todos los que estáis respondiendo.

Saludos,
MIguel
"Deschamps" <[NOSPAM]@canarias.org> escribió en el mensaje
news:Xns9425A759053DF23...@62.204.192.39...
> Hola,
>
> Miguel Pérez López ha comentado:

> > Que jodio!!!. Eso también lo hago yo.
>

> Si importas estas funciones de la librería Display, puedes borrar el
> contenido de la pantalla escribiendo:
>
> SetCursorPosition(0,0);
> ClrEOS;
>
> SetCursorPosition establece el cursor en la esquina superior
> izquierda, y ClrEOS limpia desde el cursor hasta el final de la
> ventana (si no posicionas antes el cursor arriba, solo borraría desde
> donde se encuentre hasta el final).
>
> Un saludo!
>
> --
> Serge Deschamps
> deschamps en canarias.org

Deschamps

unread,

Oct 31, 2003, 11:26:56 AM10/31/03

to

Hola,

Miguel Pérez López ha comentado:

> Que jodio!!!. Eso también lo hago yo.

Si importas estas funciones de la librería Display, puedes borrar el