Cada vez más la gente pasa de contestar a los post

[marcoszorrilla]

No he podido resistirme:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. " PROYECTO DE VIDEO CLUB ".
      *-----------------------------------------------------------------
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT CLIENTE ASSIGN TO RANDOM,
           ORGANIZATION IS INDEXED,
           ACCESS MODE IS DYNAMIC,
           RECORD KEY IS CLI-RUT,
           ALTERNATE RECORD KEY IS CLI-NOMBRE WITH DUPLICATES,
           ALTERNATE RECORD KEY IS CLI-DIRECCION WITH DUPLICATES,
           ALTERNATE RECORD KEY IS CLI-FONO-CASA WITH DUPLICATES,
           ALTERNATE RECORD KEY IS CLI-FONO-OFICINA WITH DUPLICATES,
           ALTERNATE RECORD KEY IS CLI-FAX WITH DUPLICATES,
           FILE STATUS IS FS-CLIENTE.

           SELECT PELICULA ASSIGN TO RANDOM,
           ORGANIZATION IS INDEXED,
           ACCESS MODE IS DYNAMIC,
           RECORD KEY IS PEL-CODIGO,
           ALTERNATE RECORD KEY IS PEL-TITULO WITH DUPLICATES,
           ALTERNATE RECORD KEY IS PEL-ACTORES WITH DUPLICATES,
           ALTERNATE RECORD KEY IS PEL-EDAD-MINIMA WITH DUPLICATES,
           ALTERNATE RECORD KEY IS PEL-STOCK-TOTAL WITH DUPLICATES,
           ALTERNATE RECORD KEY IS PEL-STOCK-DISPONIBLE WITH DUPLICATES,
           FILE STATUS IS FS-PELICULA.
                                    
           SELECT PRESTAMO ASSIGN TO RANDOM,
           ORGANIZATION IS INDEXED,
           ACCESS MODE IS DYNAMIC,
      * clave compuesta:
      *                  PRE-RUT-CLIENTE
      *                  PRE-COD-PELICULA
      *                  PRE-FECHA-PRESTAMO

           RECORD KEY IS CLAVE-PRESTAMO,
           ALTERNATE RECORD KEY IS PRE-ESTADO WITH DUPLICATES,
           ALTERNATE RECORD KEY IS PRE-FECHA-ENTREGA WITH DUPLICATES,
           ALTERNATE RECORD KEY IS PRE-FECHA-DEVOLUCION WITH DUPLICATES,
           FILE STATUS IS FS-PRESTAMO.

Un Saludo.

[Casimiro Noteví]

Viendo ese código que ha puesto marcoszorrilla, me he acordado que la primera vez que vi algo en cobol, me dije: "quietoooorrrr... ¿pero esto qué es?, ¿un lenguaje o una broma?", y vi que no era ninguna broma, lo borré y seguí con mi lenguaje C

[[kuan-yiu]]

Que mareo , si es que me pongo mala leyendo eso... Lo peor de todo es que se me daba muy bien.

[marcoszorrilla]

For I = 1 To 24
Locate I,35
PRINT "Esto es un ejemplo de Bucle"
Next I
Rem Para el compilador
End

Aquí os dejo otro, para el recuerdo.

Un Saludo.

[jacanche]

Empezado por marcoszorrilla

No he podido resistirme:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. " PROYECTO DE VIDEO CLUB ".
      *-----------------------------------------------------------------
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
....

Vaya, eso me trajo recuerdos de hace 18 años cuando empece a programar y aprendi gwbasic, cobol, dbase III plus, usaba discos flexibles de 5 1/4 de 160 kb, vaya que pasan los años, y la tecnologia avanza a pasos agigantados

[[maeyanes]]

Ya estás viejo Procu...

[[egostar]]

Empezado por maeyanes

Ya estás viejo Procu...

Hombre, si esto apenas paso hace 20 años, no hay que ser, cuales viejos.

Yo aún use tarjetas perforadas y la primer maquina que conocimos fue una Comodore compartida para todos los alumnos de la escuela con dos unidades de disquette 5 1/4 no existia disco duro, incluso teniamos que apartar la hora desde una semana antes.

Saludos

[Ñuño Martínez]

Yo recuerdo a mi padre cambiando los tambores del IBM... ¡Qué tiempos! Yo tenía unos 4 años de edad. Más tarde me enteré de que los departamentos de la empresa tenían que pedir hora y, cuando llegaba esta, tenían que apagar el computador, cambiar el tambor del programa, el de datos, y encenderlo de nuevo.

Luego vino el 360 y la cosa cambió mucho: ¡todos los departamentos podían trabajar al mismo tiempo con el ordenador! Ese fue el primer ordenador que toqué (bueno, un terminal que el 360 no lo tocaba nadie). Con 6 años aprendí a apagar el terminal, y no era tan fácil como ahora, os lo aseguro.

Me encantan las batallitas que me cuenta...

[[Lepe]]

Con 15 años fué cuando toqué el 80086, dos unidades de 5 y un cuarto, 256 KB de RAM, sin HDD por supuesto. En un disquete el MS-DOS 3.0, cargado el SO, se extraía y metíamos el Write Assistant. En la segunda unidad, el disco con los archivos. Por cierto, preciosos monitores aquellos de fósforo verde .

Recuerdo despues de haber escrito 2 folios con dos dedos, como el profesor explicaba que trás el corte de luz habido, todos los datos no guardado (o sea, los dos folios) se habían perdido.... Mi reacción fué levantarme de la silla en plena clase y decir ... ¡¡ Cago en Diooo !! (con perdón). Para aprobar la asignatura el profesor me dió las llaves del aula de informática para que pudiese terminar el trabajo, unos archivos en el fabuloso procesador de Textos y un programa que hacía rebotar unos asteriscos en la pantalla, realizados con gwbasic.

No sé por qué... pero siempre tengo copias de seguridad a mano... .