Diferencias

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

--- 027:trucos [d/m/Y H:i] – [Para colorear la pantalla] miguel
+++ 027:trucos [d/m/Y H:i] (actual) – [Simulación de la sentencia PRINT USING] miguel
@@ Línea 21: / Línea 21: @@
 <code basic>
- 20 30 40 45 50 60 62 63 65 : 70 80 90 95 : 100
+    REM *** SIMULACION DE ***
+    REM ***  PRINT USING  ***
-: 120
+    :
+    REM *** INICIALICION ***
-REM *** REM ***
+    :
+    LET SPACE=32: LET E$=""
-REM ***
+    LET L0NGCAMPO=15
+    LET ERROR=0
-***
+    LET COMPROBAR=1000
+    :
-***
+    FOR I=1 TO LONGCAMPO
+    LET E$=E$+CHR$ (SPACE)
-LET SPRCE =32: LET E$ = "" LET L0NGCRMP0=15 LET ERROR =0 LET COMPROBRR = 1000
+    NEXT I
+    :
-FOR 1=1 TO LONGCRMRO
+   DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N
+   :
-LET E$=E$+CHR$ ( 5PRCE) NEXT I
+   REM *** ENTRADA DATOS ***
+   :
-DEF FN U$(N,L)= E$( TO L-LEN STR* N)+ STR $ N
+   INPUT "NUMERO ";NUM
+   INPUT "CAMPO ";LCAMPO
-REM ***
+   GO 5UB COMPROBAR
+   IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130
-:
+   :
+   PRINT INVERSE 1; FN U$(NUM,LCAMPO)
-INPUT "NUMERO ";NUM 140 INPUT "CRMPO ";LCAMPO 145 GO 5UB COMPROBRR
+   :
+   GO TO (130 AND NUM) + (2000 AND NOT NUM)
-	IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130
+   :
+  REM *** COMPROBAR ***
-	.
+  REM ***  ERRORES  ***
+  LET ERROR=NOT LCAMPO OR (LEN STR$ NUM>LCAMPO)
-PRINT INUERSE 1;
+  RETURN
-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
 </code>