checkKonto =
record
  id: KontoId;
  balance: Kroner;
  renteSats: Real;
  antalUdnyttedeChecks: Integer;
end

procedure transaktion(kt: Kontotype);
Type TransaktionsType = (opret, hæve, indsætte, tilskrivRente,
                        clearCheck, nedlaeg);

Procedurer for forskellige typer af transaktioner;

begin
  case kt of
    checkKonto:  checkKontoTransaktion;
    aktionærKonto:  aktionærKontoTransaktion;
    pensionsKonto:  pensionsKontoTransakton;
    gevinstKonto:  gevinstKontoTransaktion;
  end;
end (* transaktion *)