000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. ELM0900. 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. 001500 01 EOJ PIC 9 VALUE ZERO. 001600 01 RISPOSTA PIC XX. 001700 01 LETTERA PIC X. 001800* 001900 PROCEDURE DIVISION. 002000*------------------------- LIVELLO 0 ----------------------------- 002100 MAIN. 002200 PERFORM INSERIMENTO-DATI. 002300 PERFORM LAVORO UNTIL EOJ = 1. 002400* 002500 STOP RUN. 002600*------------------------- LIVELLO 1 ----------------------------- 002700 LAVORO. 002800 PERFORM RICERCA. 002900 DISPLAY "LA LETTERA ", LETTERA, 003000 " E' NELLA POSIZIONE ", POSIZIONE. 003100* 003200 DISPLAY "VUOI CONTINUARE? SI O NO". 003300 ACCEPT RISPOSTA. 003400* 003500 IF RISPOSTA = "SI" 003600 THEN 003700 PERFORM INSERIMENTO-DATI; 003800 ELSE 003900 MOVE 1 TO EOJ. 004000*------------------------- LIVELLO 2 ----------------------------- 004100 INSERIMENTO-DATI. 004200 DISPLAY "INSERISCI LA FRASE". 004300 ACCEPT RECORD-ELEMENTI. 004400* 004500 DISPLAY "INSERISCI LA LETTERA DA TROVARE". 004600 ACCEPT LETTERA. 004700*----------------------------------------------------------------- 004800 RICERCA. 004900 PERFORM EXIT-PARAGRAPH 005000 VARYING POSIZIONE FROM 1 BY 1 005100 UNTIL ELEMENTO(POSIZIONE) = LETTERA. 005200*------------------------- LIVELLO 3 ----------------------------- 005300 EXIT-PARAGRAPH. 005400 EXIT. 005500*