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
Próxima revisión
Revisión previa
Última revisiónAmbos lados, revisión siguiente
027:trucos [d/m/Y H:i] miguel027:trucos [d/m/Y H:i] – [Simulación de la sentencia PRINT USING] miguel
Línea 21: Línea 21:
 <code basic> <code basic>
  
-10 20 30 40 45 50 60 62 63 65 : 70 80 90 95 : 100 +10  REM *** SIMULACION DE *** 
- +20  REM ***  PRINT USING  *** 
-110 : 120 +30  : 
- +40  REM *** INICIALICION *** 
-REM *** REM *** +45  : 
- +50  LET SPACE=32: LET E$="" 
-REM *** +60  LET L0NGCAMPO=15 
- +62  LET ERROR=0 
-*** +63  LET COMPROBAR=1000 
- +65  : 
-*** +70  FOR I=1 TO LONGCAMPO 
- +80  LET E$=E$+CHR$ (SPACE) 
-LET SPRCE =32: LET E$ = "" LET L0NGCRMP0=15 LET ERROR =0 LET COMPROBRR = 1000 +90  NEXT I 
- +95  : 
-FOR 1=1 TO LONGCRMRO +100 DEF FN U$(N,L)=E$( TO L-LEN STRN)+STR$ N
- +
-LET E$=E$+CHR$ ( 5PRCE) NEXT I +
- +
-DEF FN U$(N,L)= E$( TO L-LEN STRN)+ STR $ N+
  
 REM *** REM ***
Línea 70: Línea 66:
  
 --- //José Epalza// --- //José Epalza//
 +
 --- //Andrés López Montalvo// --- //Andrés López Montalvo//
  
  • 027/trucos.txt
  • Última modificación: d/m/Y H:i
  • por miguel