The Defenders-Minissérie Nsfw Easter Eggs In Games No Season 2

Divisão de identificação GCobol. IDENTIFICAÇÃO DO PROGRAMA. PRTCBL. * Autor. J C CURREY. ************************************************************ * IMPRIME UM FICHEIRO DE CÓDIGO COBOL COM OS SEUS LIVROS DE CÓPIA * * * VERSÃO 001 -- VERSÃO ORIGINAL * * 26/03/2009 -- J C CURREY * * * * 002-ACRESCENTA.CPY (CAPS) IF., ENCONTRAR O * * DO ARQUIVO E EXPANDE A ENTRADA DE 132 CARACTERES* * 4/09/2009--J C CURREY * * * * 003--ADICIONA NOLIST E LISTA DE SUPORTE (NOTA: NÃO * * * * SUPORTADO PELO OPENCOBOL COMPILADOR) * * **NOLIST NO COL 7-14 DESLIGA LISTAGEM * * **LISTA DE COL 7-12 SE TRANSFORMA EM LISTAGEM * * 4/22/2009--J C CURREY * * * * 004--ADICIONA SUPORTE PARA /teste-de escrever -1/cadernos * * Cadernos são pesquisados para o número 1 o índio * * anestesia local de diretório e, se não estabelecer, de modo que o índio * * /teste-de escrever -1/cadernos * * 5/7/2009--J C CURREY * * * * 005--CORRIGE a FALTA de LINHA de PROBLEMA EM QUEBRAS de PÁGINA* * NA CÓPIA de ARQUIVO SEÇÃO de IMPRESSÃO., * * 1285451-SANDY DOSS * * 19/06/2009-JEREMY MONTOYA * * * * 006--USA UM FICHEIRO DE CÓDIGO PCL EXTERNO PARA INSERIR O CÓDIGO PCL * * NO FICHEIRO DE IMPRESSÃO PARA A FORMATAÇÃO. * * 1330505--JIM CURREY * * 12/14/2009--PETE MCTHOMPSON * ************************************************************ DIVISÃO DE MEIO AMBIENTE. SECÇÃO ENTRADA-SAÍDA. CONTROLO DE FICHEIROS. 121409 SELECT FORMAT-FILE ASSIGN TO WS-NAME-FORMAT-FILE 121409 ORGANIZATION IS LINE nsfw easter eggs in games SEQUENTIAL. SELECCIONE A OPÇÃO IMPRIMIR-FICHEIRO ATRIBUIR À ORGANIZAÇÃO WS-NAME-PRINT-FILE É SEQUENCIAL DA LINHA., SELECCIONE A ATRIBUIÇÃO DO FICHEIRO DE ENTRADA À ORGANIZAÇÃO DO FICHEIRO WS-NOME-ENTRADA-É O ESTADO SEQUENCIAL DO FICHEIRO DE LINHA É O ESTADO DO FICHEIRO DE ENTRADA-DE-ENTRADA-DE-ENTRADA. SELECCIONE A OPÇÃO COPIAR-FICHEIRO ATRIBUIR À ORGANIZAÇÃO WS-NAME-COPY-FILE É O ESTADO SEQUENCIAL DA LINHA FICHEIRO É O ESTADO WS-COPY-FILE-STATUS. DIVISÃO DE DADOS. SECÇÃO DE FICHEIROS. * FD PRINT-FILE. 121409 01 FORMAT-LINE PIC X(140). 01 PRINT-LINE. 05 OU-NÚMERO DE LINHA PIC Z(6). 05 OR-FILLER - 1 PIC XX. 05 OU-TEXT PIC X(132). 121409 * 121409 FD FORMAT-FILE. 121409 01 FORMAT-RECORD PIC X(140). * FD INPUT-FILE. 01 INPUT-RECORD. 05 IR-BUFFER PIC X(132). FICHEIRO DE CÓPIA FD. 01 COPY-RECORD. 05 CR-BUFFER PIC X(132)., ** NOLIST * THIS IS ANOTHER LINE * * LIST * WORKING-STORAGE SECTION. **************************************************** * CONSTANTES, CONTADORES E ÁREAS de TRABALHO * **************************************************** 01 WS-NOME-PROGRAMA PIC X(12) VALOR 121409 "prtcbl 006". 01 WS-NO-paragrafo PIC S9 (4) COMP. 01 WS-I PIC S9 (4) COMP. 01 WS-J PIC S9 (4) COMP. 01 WS-K PIC S9 (4) COMP. 01 WS-NAME-PRINT-FILE PIC X(64) VALUE SPACES. 01 WS-NAME-INPUT-FILE PIC X(64) VALUE SPACES. 01 WS-INPUT-FILE-STATUS PIC XX VALOR "00". 050709 01 WS-NAME-COPY-FILE PIC X(128) VALUE SPACES., 050709 01 WS-HOLD-NAME-COPY-FILE PIC X(128) VALUE SPACES. 121409 01 WS-NAME-FORMAT-FILE PIC X(128) VALUE SPACES. 01 WS-COPY-FILE-STATUS PIC XX VALOR "00". 01 WS-LINE-PRINTER-NAME PIC X(16) VALUE SPACES. 01 WS-LINE-NUMBER PIC S9 (6) COMP valor ZERO. 01 WS-PAGE-LINE-COUNTER PIC S9(4) COMP valor 999. 01 WS-PAGE-NUMBER PIC S9 (4) COMP VALUE ZERO. 01 WS-PRINT-COMMAND PIC X(128). * 01 WS-ESCAPE-CHARACTER PIC X VALUE X "1B". * 01 WS-HEADING-LINE PIC X(132). 01 WS-CURRENT-DATE PIC X(21). 01 WS-ED4S PIC ZZZZ -. 042209 01 WS-SWITCH-PRINT PIC X VALUE SPACE., **************************************************************** * PROCEDIMENTO DE DIVISÃO * **************************************************************** PROCEDIMENTO DE DIVISÃO. 0000-SECÇÃO PRINCIPAL. EXECUTAR 1000 INICIALIZAÇÃO ATRAVÉS DE 1990 - SAÍDA. EXECUTAR 2000-PROCESSO ATRAVÉS DE 2990-SAÍDA. EXECUTE 9000-END - OF-PROGRAM THRU 9990-EXIT. PÁRA DE CORRER. **************************************************************** * A INICIALIZAÇÃO * **************************************************************** 1000 - A INICIALIZAÇÃO. MOVER 1000 PARA WS-NO-PARAGRAPH., DISPLAY " I)", WS-NAME-PROGRAM," BEGINNING AT-- " FUNCTION CURRENT-DATE. 1002-GET-INPUT-FILE. MOSTRAR "A) INDIQUE O NOME DO FICHEIRO DE ENTRADA" SEM AVANÇAR. ACEITAR O FICHEIRO WS-NAME-INPUT. ABRIR O FICHEIRO DE ENTRADA. SE WS-INPUT-FILE-STATUS FOR IGUAL A 35 DISPLAY" W) INPUT FILE NOT FOUND " GO TO 1002 - GET-INPUT-FILE. MOSTRAR "A) INDIQUE O NOME DO FICHEIRO DE IMPRESSÃO (FICHEIRO DE TRABALHO)" SEM AVANÇAR. ACEITAR O FICHEIRO WS-NAME-PRINT. MOSTRAR "A) INDIQUE O NOME DA IMPRESSORA" SEM AVANÇAR. ACEITAR WS-LINE-PRINTER-NAME. ABRIR O FICHEIRO DE IMPRESSÃO DE SAÍDA. 121409 mover "laserjet_113D.txt" to WS-NAME-FORMAT-FILE. 121409 OPEN INPUT FORMAT-FILE., 121409 1010-OUTPUT-PCL-CODES. 121409 READ FORMAT-FILE NEXT RECORD AT END GO TO 1020-FORMAT-EOF. 121409 MOVE FORMAT-RECORD TO FORMAT-LINE. 121409 WRITE FORMAT-LINE. 121409 GO TO 1010-OUTPUT-PCL-CODES. 121409 1020-FORMAT-EOF. 121409 CLOSE FORMAT-FILE. 1990-saída. SAIR. ************************************************************** * SECÇÃO DE DETALHE * ************************************************************** 2000 - DO PROCESSO. MUDAR 2000 PARA WS-NO-PARAGRAFO. LER O FICHEIRO DE ENTRADA NO FIM IR PARA 2990-EXIT. ADICIONAR 1 AO WS-LINE-NUMBER., SE WS-PAGE-LINE-COUNTER FOR SUPERIOR A 112 EXECUTE 2800-HEADINGS THRU 2890-EXIT. MOVER O WS-LINE-NUMBER PARA O OU-LINE-NUMBER. MOVER OS ESPAÇOS PARA OR-FILLER-1. MOVER O INPUT-RECORD PARA O OR-TEXT. 042209 IF IR-BUFFER (7 : 6 ) IS EQUAL TO "**LIST" 042209 MOVE "Y" TO WS-SWITCH-PRINT. 042209 IF WS-SWITCH-PRINT IS EQUAL TO " N " 042209 THEN NEXT SENTENCE 042209 ELSE WRITE PRINT-LINE 042209 ADD 1 TO WS-PAGE-LINE-COUNTER. 042209 IF IR-BUFFER (7 : 8 ) IS EQUAL TO "**NOLIST" 042209 MOVE "N" TO WS-SWITCH-PRINT. IF IR-BUFFER (7 : 1 ) IS EQUAL TO "*" GO TO 2000 - PROCESS. MOVE 1 para WS-I. 2010-COMPARE-LOOP., SE IR-BUFFER (WS-I : 2 ) FOR IGUAL A "*>" GO TO 2090 - ENDER. SE IR-BUFFER (WS-I: 6) FOR IGUAL A "COPY" GO TO 2020 - COPY. ADD 1 TO WS-I. IF WS - I IS LESS THAN 73 GO TO 2010-COMPARE-LOOP. IR PARA 2000-PROCESSO. 2020-entendido. SUBTRAIA 1 DO NÚMERO DE LINHA WS. Adicionar 6 ao WS-I. mover 1 para o WS-J. mover os espaços para o WS-NAME-COPY-FILE. 2022-MOVE-LOOP. SE IR-BUFFER (WS-I : 1 ) FOR IGUAL AO ESPAÇO GO TO 2030 - OPEN-COPYFILE. SE IR-BUFFER (WS-I : 1 ) FOR IGUAL A "." MOVER ".cpy " para WS-NAME-COPY-FILE ( WS - J : 4 ) Ir para 2030-OPEN-COPYFILE. MOVER O IR-BUFFER ( WS-I : 1 ) PARA O WS-NAME-COPY-FILE (WS-J : 1 )., ADD 1 TO WS-I, WS-J. IF WS-I IS GREATER THAN 73 OR WS-J IS GREATER THAN 64 THEN MOVE "**PROBLEM WITH.COPY STATEMENT ABOVE * * " TO OR-TEXT WRITE PRINT-LINE ADD 1 TO WS-PAGE-LINE - COUNTER GO TO 2000-PROCESS. VAI PARA 2022-MOVE-LOOP. 2030-OPEN-COPYFILE. ABRIR O FICHEIRO DE CÓPIA DE ENTRADA. SE O WS-COPY-FILE-STATUS NÃO FOR IGUAL A "00" 040909 MOVER ".,CPY "to WS-NAME-COPY-FILE ( WS-J : 4 ) 040909 OPEN INPUT COPY-FILE 040909 IF WS-COPY-FILE-STATUS IS NOT EQUAL TO" 00 "050709 MOVE WS-NAME-COPY-FILE TO WS-HOLD-NAME-COPY-FILE 050709 STRING" /testing-typeset -1/copybooks/ "050709 WS-HOLD-NAME-COPY-FILE 050709 INTO WS-NAME-COPY-FILE * DISPLAY" D) AT.COPIAR O FICHEIRO ABRIR NOME=\"