Parte ii - IIS Marconi Latina - Area didattica

1042 volume V Programmazione
|004700*------------------------- LIVELLO 1 -----------------------------
|004800 ELABORAZIONE.
|004900 DISPLAY "INSERISCI LA CHIAVE PRIMARIA INIZIALE, POI QUELLA ",
|005000 "FINALE".
|005100 ACCEPT CHIAVE-INIZIALE.
|005200 ACCEPT CHIAVE-FINALE.
|005300 IF CHIAVE-INIZIALE > CHIAVE-FINALE
|005400 THEN
|005500 MOVE CHIAVE-INIZIALE TO CHIAVE-SCAMBIO,
|005600 MOVE CHIAVE-FINALE TO CHIAVE-INIZIALE,
|005700 MOVE CHIAVE-SCAMBIO TO CHIAVE-FINALE.
|005800 IF CHIAVE-INIZIALE = SPACES
|005900 THEN
|006000 MOVE 1 TO EOJ,
|006100 ELSE
|006200 MOVE CHIAVE-INIZIALE TO CHIAVE,
|006300 PERFORM START-LEGGI,
|006400 IF INV-KEY = 1
|006500 THEN
|006600 DISPLAY "INVALID KEY: ", CHIAVE,
|006700 ELSE
|006800 PERFORM MOSTRA-LEGGI-NEXT
|006900 UNTIL END-KEY = 1
|007000 OR EOF = 1.
|007100*------------------------- LIVELLO 2 -----------------------------
|007200 START-LEGGI.
|007300 MOVE ZERO TO END-KEY.
|007400 MOVE ZERO TO EOF.
|007500 MOVE ZERO TO INV-KEY.
|007600 START FILE-DA-LEGGERE KEY IS NOT < CHIAVE
|007700 INVALID KEY MOVE 1 TO INV-KEY.
|007800 IF NOT INV-KEY = 1
|007900 THEN
|008000 PERFORM LEGGI.
|008100*-----------------------------------------------------------------
|008200 MOSTRA-LEGGI-NEXT.
|008300 DISPLAY CHIAVE, " ", CHIAVE2, " ", TESTO.
|008400 PERFORM LEGGI.
|008500*------------------------- LIVELLO 3 -----------------------------
|008600 LEGGI.
|008700 READ FILE-DA-LEGGERE NEXT RECORD
|008800 AT END MOVE 1 TO EOF.
|008900 IF CHIAVE > CHIAVE-FINALE
|009000 THEN
|009100 MOVE 1 TO END-KEY.
|009200*