Número de columnas en nuestro editor de código fuente

[[rcarrillom]]

Empezado por Lepe

En mi impresora no cabe nada más ancho del A4.

Esteee, si, se me olvidaba, el pequeño detalle del tamaño máximo que admite la impresora; estoy muy mal acostumbrado en eso de la impresión porque en mi trabajo hay plotters, impresoras de hoja grande y laser a color y si no cabe en una tamaño carta, lo mandamos a una que sí quepa

Empezado por Al González

Código Delphi [-]
PROCEDURE FORMAR;
 BEGIN
   TEXTCOLOR (0);
   YANO := FALSE;
   Y := - (ANY - 1);
   REPEAT
     INC (Y, ANY);
     X := - (ANX - 1);
     REPEAT
       INC (X, ANX);
       TEXTBACKGROUND ( ARCOLOR [RANDOM (MAXCOLOR)] );
       VENTIW (X, Y, X + (ANX - 1), Y + (ANY - 1) );
     UNTIL X >= 75;
   UNTIL Y >= 21;
 END;

¡No me pregunten para qué era esa rutina!

Para qué es esa rutina?