T,
FAKTOR,RESET
IFVAREXIST,HAUSG1
T,
MZPERIODE,HAUSG1
SAVEMEMORY,AUSGABEN1
READMEMORY,AUSGABEN1
DESIGNER-DEFVAR,AUSGABEN1,SPEICHER-PERIODEZ
ADDMEMORY,AUSGABEN
MSPERIODE,Summe Ausgaben(1) HAUSNAME

ENDIF

IFVAREXIST,HAUSG2
T,
MZPERIODE,HAUSG2
SAVEMEMORY,AUSGABEN2
READMEMORY,AUSGABEN2
DESIGNER-DEFVAR,AUSGABEN2,SPEICHER-PERIODEZ
ADDMEMORY,AUSGABEN
MSPERIODE,Summe Ausgaben(2) HAUSNAME
ENDIF