Diferencias

Muestra las diferencias entre dos versiones de la página.

--- 027:trucos [d/m/Y H:i] – miguel
+++ 027:trucos [d/m/Y H:i] (actual) – [Simulación de la sentencia PRINT USING] miguel
@@ Línea 4: / Línea 4: @@
 ==== Simulación de la sentencia PRINT USING ====
+{{ :027:trucos.jpg?200|}}
+--- //José Maria Martínez Arbex//
 Hemos recibido consultas de algunos lectores sobre cómo podrían formatear la salida impresa en la pantalla para conseguir, por ejemplo, una columna alineada de números para programas de aplicación técnica o utilidad.
-José Maria Martínez Ar-bex nos ha resuelto el problema al enviarnos una pequeña rutina Basic que imita, hasta cierto punto, a la famosa y potente sentencia PRINT USING de otros dialectos de Basic.
+José Maria Martínez Arbex nos ha resuelto el problema al enviarnos una pequeña rutina Basic que imita, hasta cierto punto, a la famosa y potente sentencia PRINT USING de otros dialectos de Basic.
 El trabajo lo realiza la función definida en la línea 100; necesita dos datos: el número a representar y la longitud del campo donde va a ser representado.
-Para flexibilizarla al máximo, hemos definido una variable, LONGCAMPO, inicia-lizada a 15, que nos permite elegir la longitud máxima del campo de representación que queremos.
+Para flexibilizarla al máximo, hemos definido una variable, LONGCAMPO, inicializada a 15, que nos permite elegir la longitud máxima del campo de representación que queremos.
 También está incluida una subrutina para atrapar errores, (que el campo sea cero o que su longitud sea menor que la del número a pintar).
-20 30 40 45 50 60 62 63 65 : 70 80 90 95 : 100
+<code basic>
-: 120
+    REM *** SIMULACION DE ***
+    REM ***  PRINT USING  ***
+    :
+    REM *** INICIALICION ***
+    :
+    LET SPACE=32: LET E$=""
+    LET L0NGCAMPO=15
+    LET ERROR=0
+    LET COMPROBAR=1000
+    :
+    FOR I=1 TO LONGCAMPO
+    LET E$=E$+CHR$ (SPACE)
+    NEXT I
+    :
+   DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N
+   :
+   REM *** ENTRADA DATOS ***
+   :
+   INPUT "NUMERO ";NUM
+   INPUT "CAMPO ";LCAMPO
+   GO 5UB COMPROBAR
+   IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130
+   :
+   PRINT INVERSE 1; FN U$(NUM,LCAMPO)
+   :
+   GO TO (130 AND NUM) + (2000 AND NOT NUM)
+   :
+  REM *** COMPROBAR ***
+  REM ***  ERRORES  ***
+  LET ERROR=NOT LCAMPO OR (LEN STR$ NUM>LCAMPO)
+  RETURN
-REM *** REM ***
+</code>
-REM ***
-***
-***
-LET SPRCE =32: LET E$ = "" LET L0NGCRMP0=15 LET ERROR =0 LET COMPROBRR = 1000
-FOR 1=1 TO LONGCRMRO
-LET E$=E$+CHR$ ( 5PRCE) NEXT I
-DEF FN U$(N,L)= E$( TO L-LEN STR* N)+ STR $ N
-REM ***
-:
-INPUT "NUMERO ";NUM 140 INPUT "CRMPO ";LCAMPO 145 GO 5UB COMPROBRR
-	IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130
-	.
-PRINT INUERSE 1;
-FN U$(NUM,LCRMPO)
-:
-GO TO (130 RND NUM)+ (2000 ANO NOT NUM)
-:	_
-REM *** wwaiaawaa^ ***
-REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN
 ==== Para colorear la pantalla ====
 --- //José Epalza//
 --- //Andrés López Montalvo//