Factorial in COBOL + Screens

      ****************************************************************
      * 3.141592653589793238462643383279502884197169399375105820974944
      * Yo ya tengo por seguro que voy a ejecutar mi plan, tristemente
      * me voy a Ingeniería en software en San Lorenzo Tezonco, de
      * verdad tenía mucho entusiasmo y muchas ganas de ser de los
      * primeros egresados de la licenciatura en Modelación Matemática
      * en Cuautepec (y de la #UACM en general), pero dado lo negativo
      * del «Monopolio de Modelación Matemática» en Cuautepec y lo
      * lejos que quedan tanto Casa Libertad como San Lorenzo Tezonco
      * de Zacatenco (que es tanto donde están ESFM y Escom), voy a
      * poner el mundo al revés, donde el blanco ahora sea negro y el
      * negro sea blanco
      *
      * De sobra esta decir que, por otra parte, los compañeros que
      * conocí ya no están, ni los que entraron en mi generación ni
      * tampoco los que conocí desde hace un año en las clases de
      * modelación, el buen José Max acaba de «tirar la toalla», la
      * hipócrita y arpía de Paty va a seguir siendo arrastrada y
      * «tóxica» por siempre, y Jessy siendo la única que como persona
      * vale la pena esta estancada, y no solo académicamente sino
      * intelectualmente. Samuel inclusive se marchó a SLT y no dudo
      * que le fue mejor, al menos allá abren más materias que acá,
      * hasta Luis Fernando me ha contado hay incluso 2 hay grupos
      * discutiendo la supremacía de la licenciatura en MM en SLT,
      * donde cada uno tiene investigadores de vanguardia; no este
      * puñado de 3 cabrones del Monopolio MM en el que (por dar
      * ejemplo) cuando Samuel se fue, el Dr. Prado solo se limito
      * a decir «...acaba de perder todos los privilegios y
      * consideraciones que tuvo...», a lo que yo me pregunté para
      * mi mismo: ¿Cuáles privilegios? ¿Cuáles consideraciones?
      * Si usted es el OGeTe que no abre materias para que
      * avancemos, si cuando alguien inscribe algo usted lo cambia,
      * propiciando que todos aquellos quienes estamos en
      * una licenciatura que dura 4 años no logremos avanzar a menos
      * de la mitad en 6 años, si usted es quien en una licenciatura
      * de matemáticas dice «las demostraciones no lo son todo», si
      * usted es quien no quiere que la especialidad de análisis
      * estadístico entre a Cuautepec porque «...casi no tiene muchas
      * aplicaciones...», y si cuando pensábamos en titularnos por
      * créditos de posgrado usted sutilmente nos dio a entender que
      * no porque... claro, como de seguro a usted le van a dar algún
      * bono extra por ser director de tesis, no le viene bien que
      * nos titulemos con maestría, y de otra institución educativa
      * menos. ¿De verdad tenemos privilegios? Yo digo que quienes SI
      * son privilegiados andan en otro lado menos aquí. Usted mismo
      * con su despotismo, egoísmo, codicia, y falta de mérito esta
      * causando que se quede cavando su propia tumba SOLO.
      *
      * Mi próximo plan será entonces (después del anterior) pedir mi
      * cambio, desde la Ingeniería en Sistemas Computacionales de la
      * Escom hacia la ESFM a la Licenciatura en Física y Matemáticas
      * para ser orgullosamente egresado del #IPN también.
      *
      * Y es que, en lo personal sigo con mi sueño, sigo esperando el
      * día en el que me sienta bien conmigo mismo y en el que pueda
      * consagrarme como siempre he querido proclamar: «El programador
      * que sabe demostrar y el matemático que sabe programar»; pero
      * sin dejar de lado mis pensamiento (socialistas), porque
      * «Nada humano me es ajeno» es que pretendo poner «La técnica al
      * servicio de la patria» ¡y juro que así sera! #Huelum #Gloria ☭
      * 2.718281828459045235360287471352662497757247093699959574966967
      ******** ********  F v q _ U k r a N a z i s  ******* ********
      ****************************************************************
       IDENTIFICATION DIVISION.
         PROGRAM-ID. XBZ0-FACT.
         AUTHOR JESÚS GUSTAVO VARGAS PÉREZ (@XEBUZER0).
         INSTALLATION EN TU KORA :V .
         DATE-WRITTEN 30-ABRIL-2020.
         DATE-COMPILED 30-ABRIL-2020.
         REMARKS Soy la mera v3rdur4 p3rr05 #DoNotDisturb #DnD.
       ENVIRONMENT    DIVISION.
       DATA           DIVISION.
         WORKING-STORAGE SECTION.
           01 WS-CONT  PIC 9(38) VALUE 1.
           01 WS-ACUM  PIC 9(38) VALUE 1.
           01 WS-NOMER PIC 9(38) VALUE ZEROS.
         SCREEN SECTION.
           01 DATA-ENTRY-SCREEN.
             05 WS-TEXT VALUE "INGRESE NUMERO NATURAL MENOR 34: "
               BLANK SCREEN LINE 1 COL 0 PIC A(33).
             05  ID-INPUT LINE 1 COL 40 PIC X(2) TO WS-NOMER.
           01 FINAL-SCREEN.
             05 WS-TEXT-EXIT BLANK SCREEN LINE 1 COL 0 PIC A(33).
             05 INT-EXIT VALUE ZEROS
               LINE 1 COL 30 PIC 9(38) TO WS-NOMER.
       PROCEDURE      DIVISION.
         0000-PRINCIPAL.
           PERFORM 1000-LEER.
           PERFORM 2000-FACTORIAL.
           PERFORM 3000-SALIR.
         0000-EXIT.
         EXIT.
         1000-LEER.
      *     DISPLAY "INGRESE NÚMERO NATURAL (menor a 34): ".
           DISPLAY DATA-ENTRY-SCREEN.
           ACCEPT ID-INPUT.
           IF WS-NOMER IS GREATER THAN OR EQUAL TO 34
             PERFORM 7500-ERROR.
         1000-EXIT.
         EXIT.
         2000-FACTORIAL.
           IF WS-NOMER IS POSITIVE THEN
             PERFORM 2500-PRODUCTO WITH TEST AFTER
               VARYING WS-CONT FROM 1 BY 1
                 UNTIL WS-CONT EQUALS TO WS-NOMER
           ELSE
             MOVE 1 TO WS-ACUM
           END-IF.
           MOVE "El factorial es: " TO WS-TEXT-EXIT.
           MOVE WS-ACUM TO INT-EXIT.
           DISPLAY FINAL-SCREEN.
         2000-EXIT.
         EXIT.
         2500-PRODUCTO.
           MULTIPLY WS-ACUM BY WS-CONT GIVING WS-ACUM.
         2500-EXIT.
         3000-SALIR.
           STOP RUN.
         3000-EXIT.
         EXIT.
         7500-ERROR.
           MOVE "ERROR: Numero mayor a 33." TO WS-TEXT-EXIT.
           DISPLAY WS-TEXT-EXIT.
           STOP RUN.
         7500-EXIT.
         EXIT.