class Partei()
public Wahlversprechen as string
public Ideologie as string
public Ausrichtung as string
private Politgehalt as long
private Parteien_finanzierung_formal as long
protected Parteien_finanzierung_informal as long
protected Korrupt as boolean
...
end class
sub mein_Oesterreich()
dim spoe as Partei
dim oevp as Partei
dim fpoe as Partei
dim bzoe as Partei
dim piraten as new Partei
...
end sub