import java.io.*;

/**
 * K L A S S E :  Person
 *
 * Aufgabe     : bildet das Objekt Person ab.
 *
 * @author Siegfried Spolwig (Entwurf Algorithmik und Kommentare)
 * @author Johann Penon (Anpassung an Java)
 * @version 3.0
 * @since Juli 2000
 */
public class person implements Serializable
{
    private String  Name,
                    VorName,
                    Geburtstag,
                    Geschlecht;
    public adresse  Adresse;     

/**
 * Constructor person
 *   Auftrag: Person und Adresse erzeugen und Initialisieren
 *   vorher : -
 *   nachher: Person ist erzeugt, alle Datenfelder sind leer.
 */
public person()
{
  Name       = "";
  VorName    = "";
  Geburtstag = "";
  Geschlecht = "";
  Adresse = new adresse();
 }

/**
 * Set...
 *   Auftrag: Attribut schreiben
 *   vorher : Person ist vorhanden.
 *   nachher: Attribut ist gesetzt
 */
public void SetName (String n)
{
  Name = n;
}
 

/**
 * Get...
 *   Anfrage: Attribut aus dem Objekt lesen
 *   vorher : Person ist vorhanden.
 *   nachher: -
 */
public String GetName()
{
  return Name;
}

 ....

import java.util.*;
import java.io.*;

/**
 * K L A S S E :  Liste
 * 
 * Aufgabe     :  Sammlung aller Objekte eines Modells; hier: Sammlung aller Patienten
 * 
 * @author Siegfried Spolwig (Entwurf und Kommentare)
 * @author Johann Penon (Anpassung an Java)
 * @version 4.0
 * @since since Juli 2000
 */

public class Liste 
   final int Maxliste = 100;
   private patient Kollektion[]= new patient[Maxliste + 1];
   private int Laenge;
   private int AktuellePos;

    /**
     * Auftrag : leere L. erzeugen (Konstruktor)
     *   vorher  : -
     *   nachher : Lilaenge ist Null, AktuellePos ist 0.
     */
    public Liste()
    {
      Laenge = 0;
      AktuellePos = 1;
      int i;
      for(i = 0; i < Maxliste-1; i++)
      {
        Kollektion[i] = null;
      }    
    }

...

public static void sortieren { 
  boolean istfertig;
  int endmarke;      

  while (! istfertig) { 
    istfertig = true; 
    for (int i=0; i<kollektion.length-1; i++) {
     if (kollektion[i].GetName > kollektion[i+1].GetName){
       swap (kollektion[i], kollektion[i+1])
       istfertig = false;          
     }
    }
    endmarke = endmarke -1; 
  }
};