Diferencias
Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anterior Revisión previa Próxima revisión | Revisión previa | ||
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 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 | |
- | 110 : 120 | + | 30 : |
- | + | 40 REM *** INICIALICION | |
- | REM *** REM *** | + | 45 : |
- | + | 50 | |
- | REM *** | + | 60 |
- | + | 62 | |
- | *** | + | 63 |
- | + | 65 : | |
- | *** | + | 70 |
- | + | 80 | |
- | LET SPRCE =32: LET E$ = "" | + | 90 |
- | + | 95 : | |
- | FOR 1=1 TO LONGCRMRO | + | 100 DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N |
- | + | 110 : | |
- | LET E$=E$+CHR$ ( 5PRCE) NEXT I | + | 120 REM *** ENTRADA DATOS *** |
- | + | 125 | |
- | DEF FN U$(N,L)= E$( TO L-LEN STR* N)+ STR $ N | + | 130 |
- | + | 140 | |
- | REM *** | + | 145 |
- | + | 147 | |
- | 125 : | + | 148 : |
- | + | 150 | |
- | 130 INPUT " | + | 155 |
- | + | 160 | |
- | 147 IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130 | + | 170 |
- | + | 1000 REM *** COMPROBAR | |
- | 148 . | + | 1010 REM *** |
- | + | 1020 LET ERROR=NOT | |
- | 150 PRINT INUERSE | + | 1030 RETURN |
- | + | ||
- | FN U$(NUM,LCRMPO) | + | |
- | + | ||
- | 155: | + | |
- | + | ||
- | 160 GO TO (130 RND NUM)+ (2000 ANO NOT NUM) | + | |
- | + | ||
- | 170: _ | + | |
- | + | ||
- | 1000 REM *** wwaiaawaa^ | + | |
- | + | ||
- | 1010 REM *** naaiia^ | + | |
</ | </ | ||
Línea 70: | Línea 58: | ||
--- //José Epalza// | --- //José Epalza// | ||
+ | |||
--- //Andrés López Montalvo// | --- //Andrés López Montalvo// | ||