PRIMA FASE DELLO SVIPLUPPO DEL PROGRAMMA

Modulo MAIN

Completamente sviluppato

Modulo STATO

Interfaccia parzialmente sviluppata

Modulo ATTVITÀ BASE

Interfaccia completamente sviluppata

Modulo COMANDI

Interfaccia parzialmente sviluppata

Modulo RISPOSTE

MODULO MAIN

var  COM: COMMANDO;
     C: CHAR;

begin
  writeln('Vuoi recuperare lo stato iniziale ? (S/N)?');
  readln(C);
  if C= 'S' then RECUPERA_STATO
  else STATO_VUOTO;
  repeat
    LEGGI_COMMANDO(COM);
    ESEGUI(COM);
  until  E_FINIRE(COM);
  SALVA_STAT0;
end.

MODULO ATTIVITÀ BASE

procedure ESEGUI(COM:COMMANDO);
{ Usa la variabile globale ARCHI }
begin
.....
end;

MODULO COMANDI

type  COMANDO = ......

procedure LEGGI_COMMANDO(var COM: COMANDO);
.....
end;

function E_FINE(COM: COMANDO): bool;
....
end;

MODULO STATO

type STATO = .....

var  ARCHI: STATO;

procedure RECUPERA_STATO;
{ recupero lo stato corrent dalla memoria di massa e lo mette in ARCHI }
.....
end;

procedure SALVA_STATO;
{salva lo stato corrente, contenuto nella variabile ARCHI, sulla memoria di massa}
.....
end;

procedure STATO_VUOTO;
{assegna alla variabile ARCHI l'archivio vuoto}
.....
end;

sviluppo successivo del modulo






MODULO RISPOSTE


....


sviluppo successivo del modulo