027:trucos

Diferencias

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

Enlace a la vista de comparación

Ambos lados, revisión anterior Revisión previa
027:trucos [d/m/Y H:i] – [Simulación de la sentencia PRINT USING] miguel027:trucos [d/m/Y H:i] (actual) – [Simulación de la sentencia PRINT USING] miguel
Línea 21: Línea 21:
 <code basic> <code basic>
  
-10  REM *** SIMULACION DE *** +10    REM *** SIMULACION DE *** 
-20  REM ***  PRINT USING  *** +20    REM ***  PRINT USING  *** 
-30  : +30    : 
-40  REM *** INICIALICION *** +40    REM *** INICIALICION *** 
-45  : +45    : 
-50  LET SPACE=32: LET E$="" +50    LET SPACE=32: LET E$="" 
-60  LET L0NGCAMPO=15 +60    LET L0NGCAMPO=15 
-62  LET ERROR=0 +62    LET ERROR=0 
-63  LET COMPROBAR=1000 +63    LET COMPROBAR=1000 
-65  : +65    : 
-70  FOR I=1 TO LONGCAMPO +70    FOR I=1 TO LONGCAMPO 
-80  LET E$=E$+CHR$ (SPACE) +80    LET E$=E$+CHR$ (SPACE) 
-90  NEXT I +90    NEXT I 
-95  : +95    : 
-100 DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N +100   DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N 
- +110   : 
-REM *** +120   REM *** ENTRADA DATOS *** 
- +125   : 
-125 : +130   INPUT "NUMERO ";NUM 
- +140   INPUT "CAMPO ";LCAMPO 
-130 INPUT "NUMERO ";NUM 140 INPUT "CRMPO ";LCAMPO 145 GO 5UB COMPROBRR +145   GO 5UB COMPROBAR 
- +147   IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130 
-147 IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130 +148   : 
- +150   PRINT INVERSE 1; FN U$(NUM,LCAMPO) 
-148 . +155   : 
- +160   GO TO (130 AND NUM) + (2000 AND NOT NUM) 
-150 PRINT INUERSE 1; +170   : 
- +1000  REM *** COMPROBAR *** 
-FN U$(NUM,LCRMPO) +1010  REM ***  ERRORES  *** 
- +1020  LET ERROR=NOT LCAMPO OR (LEN STR$ NUM>LCAMPO) 
-155: +1030  RETURN
- +
-160 GO TO (130 RND NUM)+ (2000 ANO NOT NUM) +
- +
-170: _ +
- +
-1000 REM *** wwaiaawaa^ *** +
- +
-1010 REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN+
  
 </code> </code>
  • 027/trucos.1442011025.txt.gz
  • Última modificación: d/m/Y H:i
  • por miguel