000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. ELM1100. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 1985-02-15. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 DATA DIVISION. 000900* 001000 WORKING-STORAGE SECTION. 001100 01 RECORD-ELEMENTI. 001200 02 ELEMENTO PIC X OCCURS 60 TIMES. 001300 01 POSIZIONE PIC 99. 001400 01 EOJ PIC 9 VALUE ZERO. 001500 01 RISPOSTA PIC XX. 001600 01 LETTERA PIC X. 001700* 001800 PROCEDURE DIVISION. 001900*------------------------- LIVELLO 0 ----------------- 002000 MAIN. 002100 PERFORM INSERIMENTO-DATI. 002200 PERFORM LAVORO UNTIL EOJ = 1. 002300* 002400 STOP RUN. 002500*------------------------- LIVELLO 1 ----------------- 002600 LAVORO. 002700 PERFORM RICERCA. 002800* 002900 IF POSIZIONE < 61 003000 THEN 003100 DISPLAY "LA LETTERA ", LETTERA, 003200 " E' NELLA POSIZIONE ", POSIZIONE; 003300 ELSE 003400 DISPLAY "LA LETTERA ", LETTERA, 003500 " NON E' CONTENUTA NELLA FRASE". 003600* 003700 DISPLAY "VUOI CONTINUARE? SI O NO". 003800 ACCEPT RISPOSTA. 003900* 004000 IF RISPOSTA = "SI" 004100 THEN 004200 PERFORM INSERIMENTO-DATI; 004300 ELSE 004400 MOVE 1 TO EOJ. 004500*------------------------- LIVELLO 2 ----------------- 004600 INSERIMENTO-DATI. 004700 DISPLAY "INSERISCI LA FRASE". 004800 ACCEPT RECORD-ELEMENTI. 004900* 005000 DISPLAY "INSERISCI LA LETTERA DA TROVARE". 005100 ACCEPT LETTERA. 005200*----------------------------------------------------- 005300 RICERCA. 005400 PERFORM EXIT-PARAGRAPH 005500 VARYING POSIZIONE FROM 1 BY 1 005600 UNTIL POSIZIONE > 60 005700 OR ELEMENTO(POSIZIONE) = LETTERA. 005800*------------------------- LIVELLO 3 ----------------- 005900 EXIT-PARAGRAPH. 006000 EXIT. 006100*