LEARC-Server1

//0
//browserspezifische Definitionen
 MRbN=(na=navigator.appName.split(' '))[na.length-1];
 MRbV=navigator.appVersion.split(' ')[0]; //z.B. Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
 (MRbA=navigator.userAgent.match(/(Opera) (\d{1,2})/))?(MRbN=MRbA[1])+(MRbV=MRbA[2]):'';
 MRbn=MRbN.split('')[0];
 MRbv=MRbV.split('')[0];
 MRbi=MRbn+MRbv;
 MRdE=(MRbn=='E')?1:0;
 MRdN=(MRbn=='N')?1:0;
 MRdN4=(MRbi=='N4')?1:0;
 MRdO=(MRbn=='O')?1:0;
 MRdC=navigator.appVersion.match(/Chrome/)?1:0;
 gBI=function(){alert(['Browserspezifische Systemvariablen und deren Werte:','MRbN '+MRbN,'MRbV '+MRbV,'MRbA '+MRbA,'MRbn '+MRbn,'MRbi'+MRbi,'av '+navigator.appVersion,'cn '+navigator.appCodeName,'pf '+navigator.platform,'la '+navigator.language].join('\n'))};

//grundsätzliche Definitionen
 rT='return(true)';rF='return(false)';
 Frf=function(){return''};Bn=Frf;px=MRdE?'px':'';lda=Frf;z=1;dw=0;dh=0;
 parseAlpha=function(v){return(v.replace(/[^a-z%]*/gi,''))};
 eval("gsw=function(){return "+(MRdN?"self.innerWidth;":"document.body.clientWidth;")+"};");
 eval("gsh=function(){return "+(MRdN?"self.innerHeight;":"document.body.clientHeight;")+"};");
 //HF-Bibliothek
 HF={
  S:{
   a:'position:absolute',
   pa:'position:absolute',
   pf:'position:fixed',
   l:'left:',
   t:'top:',
   w:'width:',
   h:'height:',
   rt:'right:',
   bm:'bottom:',
   b:'border:',
   bl:'border-left:',
   bt:'border-top:',
   br:'border-right:',
   bb:'border-bottom:',
   r:'border-radius:',
   m:'margin:',
   ml:'margin-left:',
   mt:'margin-top:',
   mr:'margin-right:',
   mb:'margin-bottom:',
   p:'padding:',
   pl:'padding-left:',
   pt:'padding-top:',
   pr:'padding-right:',
   pb:'padding-bottom:',
   bc:'background-color:',
   bi:'background-image:',
   ba:'background-attachement:',
   bp:'background-position:',
   bw:'background-repeat:',
   bs:'box-shadow:',
   f:'font:',
   ff:'font-family:',
   fs:'font-size:',
   fy:'font-style:',
   fv:'font-variant:',
   fw:'font-weight:',
   fc:'color:',
   ta:'text-align:',
   ti:'text-indent:',
   ws:'white-space:',
   tv:'vertical-align:',
   td:'text-decoration:',
   ts:'text-shadow:',
   to:'text-overflow:',
   ls:'letter-spacing:',
   lh:'line-height:',
   ww:'word-wrap:',
   ya:'page-break-after:',
   yb:'page-break-before:',
   rs:'resize:',
   d:'display:',
   c:'cursor:',
   v:'visibility:',
   vh:'visibility:hidden',
   vv:'visibility:visible',
   o:'overflow:',
   oh:'overflow:hidden',
   ov:'overflow:visible',
   op:'opacity:',
   zi:'z-index:'
  },
  _S:{},
  Tags:'A_2Aa1ofobayshtitgtyhfrervhlysconmAB2ABBRa1AC2ACRONYMa1AD2ADDRESSa1ZA2APPLETidtlsyyc!dwd!fanatarcbhtnmzsvscdzjAR1AREAat!fa1ofobayshtitghfcoxhB_2Ba1BA1BASEtghfZB1BASEFONTid!dsz!ffczfBD2BDOdr!fidlatlsyycBI2BIGa1BQ2BLOCKQUOTEa1ceBY0BODYa1oeox!dakbglktxvkbcBR1BRidtlsyycol!dcrBN2BUTTONa1ofobaytityxdnmvaCT2CAPTIONa1anZC2CENTERa1CI2CITEa1CD2CODEa1CL1COLa1anvnyayospwdCG3COLGROUPa1anvnyayospwdDD3DDa1DQ2DELa1cedtDF2DFNa1ZD2DIRa1!dxcD_2DIVa1!danDL2DLa1!dxcDT3DTa1E_1EMBEDidsrhdlpauwdhtnmEM2EMa1FT2FIELDSETa1ZF2FONTiddrlatlsyyc!dszfczfF_2FORMao!fa1aceymtomortgFR1FRAMEidtlsyycldfbscmhmwnmsrxzFS2FRAMESETidtlsyyccloeoxrwH12H1a1!danH22H2a1!danH32H3a1!danH42H4a1!danH52H5a1!danH62H6a1!danHD0HEADdrlapfHR1HRidocodkdkpkumdmmmomamutlsyyc!danwdszzeH_0HTMLdrla!dveIT2Ia1FI2IFRAMEidtlsyycanhtwdldfbscmhmwnmsr!danI_1IMGatsr!fa1htwdxildum!danbdzsvsIX1INPUTa1apxkmlofobogosxrayattityxdnmszsrumvaph!danIQ2INSa1cedtZI1ISINDEXiddrlatlsyyc!dzrKB2KBDa1LL2LABELa1ofobaylfLG2LEGENDa1ayanLI3LIa1!dtyvaLK1LINKa1tgtyhfrervhlysmiMA2MAPnm!fa1ZM2MENUa1!dxcMT1METAct!fdrlahqnmmsNF2NOFRAMESa1NJ2NOSCRIPTa1OJ2OBJECTa1tityyicydaxasbhtwdnmumarcb!danbdzsvsOL2OLa1!dtyxcstOG2OPTGROUPll!fa1xdON3OPTIONa1xdllxsvaosP_3Pa1!danPM1PARAMnm!fidtyvavtPR2PREa1!dwdQU2Qa1ceZS2Sa1SE2SAMPa1SC2SCRIPTty!fysxfsr!dlgXS2SELECTa1ofobogtixdxmnmszSM2SMALLa1S_2SPANa1ZT2STRIKEa1SG2STRONGa1SY2STYLEty!fdrlatlmiSB2SUBa1SP2SUPa1T_2TABLEa1frbdcpcsrusuwd!danbcTB2TBODYa1anvnyayoTD2TDa1anabaxcnhdrnspvnyayo!dhtwdbc!dzwXY2TEXTAREAcl!fa1ofobogosolxraytixdnmrwphYF3TFOOTa1anvnyayoTH3THa1anabaxcnhdrnspvnyayo!dhtwdbc!dzwYH3THEADa1anvnyayoTL2TITLEdrlaTR2TRa1anvnyayo!dbcTT2TTa1ZU2Ua1UL2ULa1!dtyxcVA2VARa1'.replace(/a1/g,'iddrlaocodkdkpkumdmmmomamucmtlsyyc'),
  Atts:'idIDdrDIRlaLANGocONCLICKodONDBLCLICKkdONKEYDOWNkpONKEYPRESSkuONKEYUPmdONMOUSEDOWNmmONMOUSEMOVEmoONMOUSEOVERmaONMOUSEOUTmuONMOUSEUPcmONCONTEXTMENUolONSCROLLtlTITLEsySTYLEycCLASSanALIGNatALTshSHAPEtiTABINDEXtgTARGETtyTYPEhfHREFreRELrvREVhlHREFLANGysCHARSETcoCOORDSfrFRAMEbdBORDERcpCELLPADDINGcsCELLSPACINGruRULESsuSUMMARYabABBRaxAXIScnCOLSPANhdHEADERSrnROWSPANspSCOPEzwNOWRAPvnVALIGNyaCHARyoCHAROFFspSPANceCITEclCOLSctCONTENTdtDATETIMExfDEFERxdDISABLEDhtHEIGHTwdWIDTHhqHTTP-EQUIVxiISMAPllLABELldLONGDESCfbFRAMEBORDERscSCROLLINGmhMARGINHEIGHTmwMARGINWIDTHmiMEDIAnmNAMExzNORESIZEoeONLOADoxONUNLOADpfPROFILEphPLACEHOLDERrwROWSmsSCHEMExsSELECTEDszSIZEsrSRClrLOWSRCumUSEMAPvaVALUEvtVALUETYPEakALINKbgBACKGROUNDlkLINKtxTEXTvkVLINKbcBGCOLORcrCLEARxcCOMPACTlgLANGUAGEzeNOSHADEzrPROMPTstSTARTveVERSIONzsHSPACEvsVSPACEcdCODEzjOBJECTfcCOLORzfFACEacACCEPT-CHARSETeyENCTYPEmtMETHODomONSUBMITorONRESETaoACTIONapACCEPTxkCHECKEDmxMAXmnMINmlMAXLENGTHofONFOCUSobONBLURogONCHANGEosONSELECToiONINPUTxrREADONLYlfFORxmMULTIPLExhNOHREFayACCESSKEYarARCHIVEcbCODEBASEyiCLASSIDcyCODETYPEdaDATAxaDECLAREsbSTANDBYauAUTOSTARThdHIDDENlpLOOP',
  A:{},B:{},
  tags:{},_tags:{},
  mX:[],mY:[],
  ic:0,
  NO:[],
  SO:[],
  Keys:[],
  KeyDo:Frf,
  Mvs:[],//{d:{m:{c:0}}},
  write:'',
  uc:0,
  Imgs:{},
  Urls:{},
  L3:document.referrer||location.href,
  ImgLL:'I0=0.gif,cmsL16=learc.16.gif,cmsL16o=learc.16o.gif,cmshr=cms.hr0.gif,cmsvr=cms.vr0.gif,cmsHR=cms.hr1.gif,cmsVR=cms.vr1.gif,cmsVrH=cms.VrH.gif,'+
'cms00=cms.color.000.gif,cms01=cms.color.B00.gif,cms02=cms.color.FB0.gif,cms03=cms.color.EE0.gif,'+
'cms04=cms.color.0B0.gif,cms05=cms.color.0BB.gif,cms06=cms.color.00B.gif,cms07=cms.color.B0B.gif,'+
'cms31=cms.ws.new.1.gif,cms32=cms.FileOpen.16.png,cms34=cms.Save.16.png,cms39=cms.ws.close.1.gif,'+
'cms512=cms.ws.colors.1.gif,cms71=cms.zoomin.1.gif,cms70=cms.zoomout.1.gif,'+
'cms90=cms.r90.gif,cms91=cms.r180.gif,cms92=cms.r270.gif,'+
'cms41=cms.cut.1.gif,cms42=cms.copy.1.gif,cms43=cms.insert.1.gif,cms44=cms.delete.1.gif,'+ 'cmsTno=cms.tag.no.gif,cmsTgr=cms.tag.red.gif,cmsTgg=cms.tag.green.gif,cmsTgb=cms.tag.blue.gif,cmsTxl=cms.tag.textl.gif,cmsTxm=cms.tag.textm.gif,cmsTxr=cms.tag.textr.gif,cmsColors=cms.ws.colors.16.gif,cmsFileOpen=cms.FileOpen.16.png,ColOb=cms.ColOb.Colors.png,ColObCF=cms.crossfade.png',
  ImgLC:''
 }// HF

// ##### HF.Source( objekt [,formatiert] ) ##### Gibt rekursiv Objekt-Quellcode als String zurück
 HF.Source=function(o,m){pR='';pC=0;pR=m?HF.Source.part.mL(o):HF.Source.part.sL(o);return(pR)};
 HF.Source.part={
  mL:function(o){ // Ausgabe mehrzeilig mit Einrückung formatiert
   pC++
    R='';
    for(var i in o){(R+=HF.repl(' ',pC)+i+":"+(typeof(o[i])=='object'?HF.Source.part.mL(o[i]):(typeof(o[i])=='string'?'"'+o[i]+'"':o[i]))+",\n")}
    R=R.replace(/,\n$/,'');
    pR+=R;
   pC--;
   return("{\n"+R+"\n"+HF.repl(' ',pC)+"}")
  },
  sL:function(o){ // Ausgabe in einer Zeile
   R=''
   for(var i in o){(R+=i+":"+(typeof(o[i])=='object'?HF.Source.part.sL(o[i]):(typeof(o[i])=='string'?'"'+o[i]+'"':o[i]))+",")}
   R=R.replace(/,$/,'');pR+=R;return("{"+R+"}")
  }
 };
 HF.Source.Names=function(o){R='';for(var i in o){R+=i+','};return(R)}; // gibt Liste mit den Namen der Teil-Objekte einer Objektebene zurück

//HF._S aus HF.S erzeugen
 for(var i in HF.S){HF._S[HF.S[i]]=i};HF._S['position:']='pa';

//HF.s aus HF.S erzeugen
 SF={//Sonderfälle
  pa:"a.pa?'position:absolute;':''",
  a:"a.a?'position:absolute;':''",
  pf:"a.pf?'position:fixed;':''",
  bi:"a.bi?'background-image:url('+a.bi.replace(/^url\$?([^\$]*)\\)?/,'$1')+');':''",
  v:"a.v?'visibility:'+(a.v>0?'visible':'hidden')+';':''",
  vh:"a.vh?'visibility:hidden;':''",
  vv:"a.vv?'visibility:visible;':''",
  o:"a.o?'overflow:'+(a.o>0?'visible':'hidden')+';':''",
  oh:"a.oh?'overflow:hidden;':''",
  ov:"a.ov?'overflow:visible;':''"
 }
 A=[];for(var i in HF.S){A.push(SF[i]||"a."+i+"?'"+HF.S[i]+"'+a."+i+"+';':''")};
 eval("HF.s=function(a){return["+A.join(',')+"].join('')}");SF='';

//Hilfsobjekte und Hilfsfunktionen für HTML-Funktionen erzeugen
 eval(HF.Atts.replace(/([a-z]{2})([A-Z-]*)/g,"HF.A.$1='$2'.toLowerCase();HF.B[HF.A.$1]='$1';"))
 makeAtStr=function(a){//erzeugt Attributstring aus QX oder Kurzstring
  if(a){
   if(typeof(a)=='string'){
    return((a.split(',')[1]?eval([a.split(',')[1].replace(/([a-z]{2})([^;]*);/g,"(' '+HF.A.$1+'=\"$2\"')+"),"('')"].join('')):'')+
    (' style="'+(eval([a.split(',')[0].replace(/([a-z]{1,2})(-?#?[A-Z\.0-9-\%\/ #]*)/g,"(HF.S.$1+'$2;')+"),"('')"].join('')))+'"'));
   }else{if(a.sy&&typeof(a.sy)=='object'){a.sy=HF.s(a.sy)};x1R=[];for(var ai in a){HF.A[ai]&&a[ai]?x1R[x1R.length]=' '+HF.A[ai]+'="'+a[ai]+'"':''};return(x1R.join(' '))};
  }else{return ''};
 }; aD='';TC=function(t){return t};
 makeAtObj=function(a){//erzeugt Attributobjekt aus String
  if(a){
   var A=[];qm='"';
   eval(a.replace(/([^=]*)(=")([^"]*)(")/gi,
    "x1='$1'.replace(/^ */gi,'');"+
    'x2="$3".replace(/^[=]/gi,"");'+
    "x1.length>0?A[A.length]=(HF.B[x1])+':'+(qm+x2+qm):'';"
   ));
   eval('A={'+A.join(',')+'}');
   if(A.sy){
    var s={};//Styleobjekt erzeugen
    eval(A.sy.replace(/([A-Za-z\-\.\/_,]*):{1}([^;]*);?/gi,"s[HF._S['$1:']]='$2';"));
    s.bi?s.bi=s.bi.replace(/^url$?([^$]*)\)?/,'$1'):'';//Sonderfälle behandeln
    s.pa?s.pa=s.pa.match(/absolute/i)?1:0:'';
    s.v?s.v=s.v.match(/hidden/i)?-1:1:'';
    s.o?s.o=s.o.match(/hidden/i)?-1:1:'';
    A.sy='""'+HF.Source(s)+'""';
   }
   return(HF.Source(A).replace(/"{3}/g,''))
  }else{return ''};
 };
 //HTML-Funktionen und deren Umkehrfunktionen erzeugen
 eval(HF.Tags.replace(/([A-Z_1-6]{2})(\d{1})([A-Z1-6]*)([a-z1!]*)/g,
  "$1=function(a){return('<$3'+makeAtStr(a)+'>')};"+
  "_$3=function(a){return('$1('+makeAtObj(a)+')')};"+
  "HF.tags.$3=$2;"+
  "HF._tags.$3='$1';"+
  "E='e$1'.replace(/_/,'')+'=';$2!=1?eval(E+'\"</$3>\"'):'';"
 ));
 //erzeugt Qx aus HTML (die finale Umkehrfunktion)
 HTMLtoQx1=function(t,a){return(eval('_'+t+'(a)'))};//nur eine Zeile z.B.: HTMLtoQx1('TABLE','width="30" border="1"')
	HTMLtoQx=function(H,s,o){//mehrzeilig  H=HTML [ s=strukturierte Ausgabe (Einrückung um s Stellen) [ o=Offset auf Einrückung ]]
		if(H){
 		var R='';var N=H.split('<');var p=0;var S;
 		for(var i in N){
	 		if(S=N[i].match(/(\/?)(\w*) ?(.*)>(.*)?/)){
     S[2]=S[2].toUpperCase()
			 	R+=(
				  S[1]?HF.repl(' ',(p-=s)+o)+'e'+HF._tags[S[2]].replace(/_/,''):
				  S[2]&&(t=HF.tags[S[2]])!=null?HF.repl(' ',p+o)+HTMLtoQx1(S[2],S[3],p+=t>1?s:0):''
 			 )+',\n'+(S[4]?HF.repl(' ',p+o)+'TC("'+S[4].replace(/"/g,'\\"')+'"),\n':'')
		  }else{i==0&&N[0].length?R+=HF.repl(' ',p+o)+'TC("'+N[0].replace(/"/g,'\"')+'"),\n':''}
 		}
		 return(R)
	 }
	};

// weitere Hilfsfunktionen

//String c wird n-mal zurückgegeben
 HF.repl=function(c,n){a=[];a[n-1]='.';return(a.join('.').replace(/./g,c))};

//zur kaufmännisch formatierten Rückgabe von Beträgen (z. B.: HF.betr('123.7389614',8) ergibt '  123,74')
 HF.betr=function(v,n,d,f){//Syntax: v=Betrag[,n=Stellen[,d=Dezimaltrennzeichen[,f=Füllzeichen]]]
  v=(''+(parseFloat(v)||'')).replace(/,/,'.');
  d=d||',';//Komma ist Standardtrennzeichen
  f=f||String.fromCharCode(160);//Füllzeichen f bei Option n (  ist Standardfüllzeichen)
  return(HF.repl(f,n-(V=(v?((str=''+Math.round(parseFloat(v*100))).slice(0,-2)+d+str.slice(-2)).replace('/^\#/'.replace(/#/,d),'0'+d):'0'+d+'00').replace(/^\D/,'0'+d)).length)+V)

}

//zur Formatierung von großen Zahlen (z.B.: HF.Format('1234567890','...') ergibt '1.234.567.890')
 HF.format=function(v,m){return((''+v).split('').reverse().join('').replace(eval('/('+m+')/g'),'$1.').replace(/\.$/,'').split('').reverse().join(''))};

HF.Rnd=function(a){//gibt String mit a Zufallszeichen zurück
  p='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'.split('');
  r='';
  for(i=0;i<a;i++){r+=p[parseInt(Math.random()*62)]};return(r)
 };

HF.SQLwait=function(tn,fc,pt){// führt fc aus, sobald SQL-Tabelle tn existiert (pt=polling time)
  (f=frames['FISQL'+tn])&&f.document&&f.document.forms&&f.document.forms[0]&&f.document.forms[0].elements&&(lex=f.document.forms[0].elements[0])?eval(fc):setTimeout('HF.SQLwait("'+tn+'","'+fc+'",'+pt+')',pt)
 };

HF.wait=function(ex,fc,pt){eval(ex)?eval(fc):setTimeout('HF.wait("'+ex+'","'+fc+'",'+pt+')',pt)};// führt fc aus, sobald HTML-Element id existiert (pt=polling time)

HF.watchJob=function(bed,exe,max,ms){
	 ms=ms||500;//Default 500 ms RelayTime
  if(max&&eval(bed)){eval(exe)}else{setTimeout("HF.watchJob('"+bed+"','"+exe+"',"+(max-1)+","+ms+")",ms)}
 };

HF.watchJob=function (bed,exe,max,ms){
 ms=ms||500;//Default 500 ms RelayTime
 b=typeof(bed)=='function'?1:0;
 e=typeof(exe)=='function'?1:0;
 if(max&&(b?bed():eval(bed))){e?exe():eval(exe)}
 else{setTimeout("HF.watchJob( "+(b?"bed":"'"+bed+"'")+","+(e?"exe":"'"+exe+"'")+","+(max-1)+","+ms+")",ms)}
};

HF.gg=function(o){ // zur Erzeugung von Grafiken auf Basis von 1x1-Pixel DIV's (z.B. für runde Ecken)
  R=[];y=o.y;w=o.w;h=o.h;hrl=0;vrl=0;
  eval(o.d.replace(/(.)(.)/g,"if('$1'=='l'){y=(y<<0)+vrl;vrl=$2;x=(o.x<<0)}else{hrl=$2;gc=$1;R[R.length]=[D_({sy:{bc:gc?'#'+o.c[gc]:'',a:1,l:x?x:Q,t:y?y:Q,w:hrl,h:vrl}}),I_({sr:I0,wd:hrl,ht:vrl}),eD].join('');x=(x<<0)+hrl};"));
  return R.join('');
 };

//Ermöglicht Abfrage des Mausrades
HF.whl=function(e){
 v=0;
 e?'':e=window.event;
 if(e.detail){v=-(e.detail/3)}//Firefox
 else if(e.wheelDelta){v=e.wheelDelta/120};//Opera
 v?HF.Whl(v):'';
 e.preventDefault?e.preventDefault():'';
 e.returnValue=false;
};
HF.Whl=Frf;
window.addEventListener?
window.addEventListener('DOMMouseScroll',HF.whl,false):
window.onmousewheel=document.onmousewheel=HF.whl;
MRdC?document.onmousewheel=function(e){HF.Whl(e.wheelDelta/120)}:'';//Chrome

//zählt die Elemente eines Objekts
 HF.cntEl=function(o){cnt=0;for(var i in o){cnt++};return(cnt)};

//gibt Datensatz-Objekt aus Array zurück
 HF.mOfA=mOfA=function(nmA,vaA){i=0;o={};for(var f in nmA){o[nmA[f]]=vaA[i];i++};return(o)}
 //gibt Arrays aus Objekt zurück
 HF.mAfO=function(o){nmA=[];vaA=[];for(var f in o){nmA.push(f);vaA.push(o[f])};return([nmA,vaA])}
 //verschmelzt zwei Objekte
 HF.merge=function(a,b){for(var i in b){a[i]=b[i]};return(a)}

//zum Ausrichten der Kopfzeilenfelder einer Tabelle
 // o = Zeiger auf gerenderte Tabelle zum Lesen
 // t = Zeiger auf Parent-Element der Zielfelder
 HF.getsetColPos=function(o,t,z){
  o=o.firstChild.firstChild // auf erste Zeile
  z?o=o.nextSibling:''; // ggf. auf zweite Zeile
  W=o.scrollWidth // gesamte Breite auslesen (PX)
  E=[] // Ergebnise speichern 
  P=0 // Positionszeiger
  o=o.firstChild // auf erstes Quell-Feld
  f=W/t.scrollWidth // Verhältnis für Korrekturfaktor
  t=t.firstChild // auf erstes Ziel-Feld
  do{
    E.push([P+'%',(w=o.scrollWidth/W*100*f)+'%',f])
    with(t.style){position='absolute';left=P+'%';width=w+'%'};
    P+=w
  }while((o=o.nextSibling)&&(t=t.nextSibling))
  return(E)
 };

//TF// ##### Trigonometrische Funktionen #####
 TF={
  Copyright:'Copyright (C) 2002- Martin Rebhan Berlin / LEARC',
  rad:function(x,y){return(ret=Math.sqrt((x*x)+(y*y)))?ret:0},
  grad:function(x,y){with(Math){if(x>=0){return(y>=0)?(90+atan(y/x)/PI*180):(-atan(x/y)/PI*180)}else{return(y>=0)?(180-atan(x/y)/PI*180):(270+atan(y/x)/PI*180)}}},
  arcv:function(teiler){v=(180/teiler);return Math.floor(((180/teiler)+this.grad(x,y))/360*teiler)},
  arcx:function(g,r){with(Math){return r*sin(g*PI/180)}},
  arcy:function(g,r){with(Math){return g==90?0:-r*cos(g*PI/180)}},
  arcc:function(g,r){with(Math){return{x:r*sin(b=g*PI/180),y:g==90?0:-r*cos(b)}}}
 };

//S4
 HF.imgPLL=HF.imgPLL||(HF.L3.match(/http:/)?'http://www.learc.de/img/':'img/');
 HF.imgPLC=HF.imgPLC||'img/';
 HF.imgPre=/([A-Z_a-z0-9]*)=([A-Z_a-z.\/0-9]*),?/g;
 eval(HF.ImgLL.replace(HF.imgPre,"(HF.Imgs.$1=new Image()).src='"+(HF.imgPLL)+"$2';"));
 eval(HF.ImgLC.replace(HF.imgPre,"(HF.Imgs.$1=new Image()).src='"+(HF.imgPLC)+"$2';"));
 HF.ImgLS?eval(HF.ImgLS.replace(HF.imgPre,"(HF.Imgs.$1=new Image()).src='KiGa/img/$2';")):'';
 //eval('soundTest=S1033486.WAV'.replace(HF.imgPre,"HF.Imgs.$1=new Image();HF.Imgs.$1.src='../wav/$2';"));
 HF.Slang?document.getElementById('LMAIN').style.backgroundImage="url("+HF.Imgs.bgi00.src+")":'';
 N0=I_({sr:I0=HF.Imgs.I0.src});N100=I_({sr:I0,wd:'100%',ht:'100%'});//IT=function(w,h){return(I_({sr:I0,wd:w||nul,ht:h||nul}))};

write=function(cont,targ){document.getElementById(targ)?document.getElementById(targ).innerHTML=cont:''};
 SO=function(n){return(document.getElementById(n)?document.getElementById(n).style:'')};
 GO=function(n){return(document.getElementById(n)?document.getElementById(n):'')};
 HF.GO=function(n){return(document.getElementById(n)?document.getElementById(n):'')};

nO=function(){HF.icZ=(HF.icz=HF.ic/10)?HF.icz:'';HF.ic%10?'':write('123456789'.replace(/(.)/g,D_('pal0t0,idLE'+HF.icZ+'$1;')+eD)+D_('pal0t0,idLE'+(HF.icZ+1)+'0;')+eD,('LE'+HF.ic++));return('LE'+HF.ic++)}
 gO=function(nm){return(HF.NO[nm]?HF.NO[nm]:HF.NO[nm]=nO())};
 gF=function(id,fn){return(((f=frames['FI'+id])&&f.document&&f.document.forms&&f.document.forms[0]&&f.document.forms[0].elements&&(lex=f.document.forms[0].elements[fn?fn:0])&&(tc=lex.value))?tc:'')};

SO('LMAIN').fontSize=MRdE?'16PX':'12PT';  // ##############  !!!!!  BASE-FONT   !!!!!   ###########

Key=0;key=0;key_shift=0;key_ctrl=0;key_alt=0;DO=false;Z=1;xK=0;yK=0;
 mo={on:'',ow:'',ol:'',dn:'',dw:'',dl:'',un:'',uw:'',ul:'',m:''};
 wz='';
 document.KEYDOWN=false;
 HF.oM={};

keyhandler=function(e){
  Key=e?e.which:window.event.keyCode;
  HF.Keys[Key]&&HF.Keys[Key]['on'+e.type]?eval(HF.Keys[Key]['on'+e.type]):'';
  HF.Key=Key;HF.KeyDo();return Key
 };

if(DO.m){DO.m.x[DO.m.c]=wx;DO.m.y[DO.m.c]=wy;DO.m.c++}
   if(DO.dr>3){
    nw=dw+(DO.dr&1?DO.m.x[0]-(wx=wx<0?0:wx):wx-DO.m.x[0]);nh=dh+(DO.dr&2?DO.m.y[0]-(wy=wy<0?0:wy):wy-DO.m.y[0]);
    DO.dr&&DO.dr&4&&dw?DO.o.width= (DO.drxm?(nw<DO.drxm[2]?DO.drxm[2]:nw>(xm3=DO.dr&1?nw+wx:DO.drxm[3])?xm3:nw):nw)+px:'';
    DO.dr&&DO.dr&8&&dh?DO.o.height=(DO.drym?(nh<DO.drym[2]?DO.drym[2]:nh>(ym3=DO.dr&2?nh+wy:DO.drym[3])?ym3:nh):nh)+px:'';
   }
   DO.f?DO.f():'';DO.f1?(DO.f1())+(DO.f1=''):'';
   if(DO.disp){with(DO.disp.OUT){innerHTML=DO.disp.VAL;style.left=mx+px;style.top=my+px}};
  }
  if(HF.FOF){HF.FOF(e)}
  wmo='';
  if(location.href.match(/#adminC/)){ // (gesperrt)
   //document.getElementById(gO('status')).innerHTML=[D_('pal1024t410w100ffARIALfs9PTfc#000000'),
   document.getElementById(gO('status')).innerHTML=[D_('pal1t1w160h300ffARIALfs8PTbc#CCCCCCfc#000000b1PX #FF0000 SOLID')+
    'ind:'+(ind=HF.impal)+' LIn:'+HF.LIn,
    'zz:'+(LEX&&LEX[ind]?LEX[ind].impal+' zf'+LEX[ind].zf/*+' '+LEX[ind].doc.body.scrollHeight*/:''),
    (LEX&&LEX[ind]&&LEX[ind].doc?'HF.mX:'+(HF.mX)+' HF.mY:'+(HF.mY):''),
    //(LEX&&LEX[HF.scrWhlind]&&LEX[HF.scrWhlind].doc?'x:'+(HF.ppx)+'('+HF.ppX+') | y:'+(HF.ppy)+'('+HF.ppY+')':''),
    //HF.ws,HF.wss,key_ctrl,MRbi,
    HF.LV&&(to=HF.LV.HB.style)?'LV.HB:'+[to.left,to.top,to.width,to.height].join(','):'',
    HF.LV&&(to=HF.LV.HP.style)?'LV.HP:'+['-','-',to.width,to.height].join(','):'',
    HF.LV&&(to=HF.LV.LXn.name)?'LV.LXn:'+['-','-',to.width,to.height].join(','):'',
    HF.LI&&(to=LEX[HF.LI].doc.body)?'LI.bs:'+[to.scrollLeft,to.scrollTop].join(','):'',
    HF.LV&&(to=HF.LV.LEX.style)?'LV.LEX:'+['bgPos:',to.backgroundPosition].join(','):'',
    HF.LV&&(to=HF.LV.Hq.style)?'LV.Hq:'+[to.left,to.top,to.width,to.height].join(','):'',
    HF.LV&&(to=HF.LV.Hi.id)?'LV.Hi:'+['-','-',to.width,to.height].join(','):'',
    '-----------------------------------',
    HF.Lv&&(to=HF.Lv.Hq.style)?'Lv.Hq:'+[to.left,to.top,to.width,to.height].join(','):'',
    HF.Lv&&(to=HF.Lv.Hi.id)?'Lv.Hi:'+['-','-',to.width,to.height].join(','):'',
    'mx:'+mx+' my:'+my,
    'HF.dx:'+HF.dx+' HF.dy:'+HF.dy,
    dx&&dy?'dx:'+dx+' dy:'+dy:'',
    wx&&wy?'wx:'+wx+' wy:'+wy:'',
    'scroff:'+HF.scroff,
    'gsw():'+gsw()+' gsh():'+gsh(),
    'dr: '+(DO&&DO.dr?DO.dr:''),
    (DO.m&&DO.dr>3?'DO.m.x:'+DO.m.x+'<br>'+'DO.m.y:'+DO.m.y+'<br>nw:'+nw+' | nh:'+nh:''),
    'mo:['+([[mo.on,mo.ow,mo.ol],[mo.dn,mo.dw,mo.dl],[mo.un,mo.uw,mo.ul],mo.m].join(']['))+']',
    'radius:'+TF.rad(505-mx,243-my),
    'main:'+(tto=SO(gO('main'))).left+','+tto.top+','+tto.width+','+tto.height+','+tto.visibility,
    eD
   ].join('<br>');//alert(document.getElementById(gO('status')).id);document.getElementById(gO('status')).style.zIndex=(Z++);
  };

if(DO.b){
   for(i=0;i<DO.b.length;i++){iv=DO.bs?DO.bs[i]:0;with(DO.b[i]){left=(-(parseInt(DO.o.left)+iv))+px;top=(-(parseInt(DO.o.top)+iv))+px;}}
  }
  return false;
 }/*DMMC*/;

document.onmousemove=document.ONMOUSEMOVE;

show=function(n){SO(n).visibility='visible'};
 shoW=function(o){o.visibility='visible'};
 shOW=function(n,l,t){with(HF.SO[n]?HF.SO[n]:HF.SO[n]=SO(n)){visibility='visible';l?left=l+px:'';t?top=t+px:''}};
 hide=function(n){SO(n).visibility='hidden'};
 hidE=function(o){o.visibility='hidden'};
 hiDE=function(n,l,t){with(HF.SO[n]?HF.SO[n]:HF.SO[n]=SO(n)){visibility='hidden';l?left=l+px:'';t?top=t+px:''}};
 shif=function(obj,sh){sh?show(obj):hide(obj)};
 shiF=function(obj,sh){sh?shoW(obj):hidE(obj)};
 swap=function(os,oh){hide(oh);show(os)};
 swaP=swap;//function(os,oh){SO(oh).top=(-5000)+px;SO(os).top=1+px};

// ##### DBOX erzeugen #####
 write(
//  D_('ohpal0t0w6h6,idDBOX;')+
//   D_('pal0t0w100%h3')+I_({sr:HF.Imgs.cmshr.src,wd:'100%',ht:3})+eD+
//   D_('pal3t0w3h100%,idDBOXv;')+I_({sr:HF.Imgs.cmsvr.src,wd:3,ht:'100%'})+eD+
//   D_('pal0t3w100%h3,idDBOXh;')+I_({sr:HF.Imgs.cmshr.src,wd:'100%',ht:3})+eD+
//   D_('palt0w3h100%')+I_({sr:HF.Imgs.cmsvr.src,wd:3,ht:'100%'})+eD+
  D_({sy:{a:1,l:Q,t:Q,w:6,h:6,o:-1},id:'DBOX'})+
   D_({sy:{a:1,l:Q,t:Q,w:'100%',h:3}})+I_({sr:HF.Imgs.cmshr.src,wd:'100%',ht:3})+eD+
   D_({sy:{a:1,l:3,t:Q,w:3,h:'100%'},id:'DBOXv'})+I_({sr:HF.Imgs.cmsvr.src,wd:3,ht:'100%'})+eD+
   D_({sy:{a:1,l:Q,t:3,w:'100%',h:3},id:'DBOXh'})+I_({sr:HF.Imgs.cmshr.src,wd:'100%',ht:3})+eD+
   D_({sy:{a:1,l:Q,t:Q,w:3,h:'100%'}})+I_({sr:HF.Imgs.cmsvr.src,wd:3,ht:'100%'})+eD+
  eD,gO('DBOX')
 );SO('DBOX').left=-(9<<9)+px;

draG=function(o,ro){
  if(ro){DO=o;DO.id=ro.id;DO.o=ro.style}else{
   DO={
    id:o.o?o.o:o.id,o:o.o?SO(o.o):o.style,t:new Date(),m:{c:1,x:[0],y:[0]},bs:o.bs,dr:o.dr?o.dr:3,c:o.c?SO(o.c):'',
    f:o.f,f1:o.f1,dPf:o.dPf?o.dPf:'',dn:o.dn?o.dn:'',
    drym:o.drym,ch:o.ch,cH:o.cH,
    drxm:o.drxm,cw:o.cw,cW:o.cW
   }
  };
  if(o.b){DO.b=[];for(i=0;i<o.b.length;i++){DO.b[i]=SO(o.b[i])}};
  if(o.z){DO.z=o.z;o.z==1?DO.zI=DO.o.zIndex:'';DO.o.zIndex=(Z++)};o.f?o.f():'';
  dx=mx-parseInt(DO.o.left);DO.m?DO.m.x[0]=o.xS?o.xS:mx-dx:'';
  dy=my-parseInt(DO.o.top);DO.m?DO.m.y[0]=o.yS?o.yS:my-dy:'';DO.z=my;
  dw=parseInt(DO.o.width);dh=parseInt(DO.o.height);
  if(o.dBox){
   HF.tDO=DO;
   DO={
    id:'DBOX',o:SO('DBOX'),m:{c:1,x:[parseInt(DO.o.left)],y:[parseInt(DO.o.top)]},dr:o.dr?o.dr:3,
    f1:function(){SO(gO('DBOX')).zIndex=(Z++);SO('DBOX').zIndex=(Z++)},
    f:function(){SO('DBOXv').left=(parseInt(DO.o.width)-3)+px;SO('DBOXh').top=(parseInt(DO.o.height)-3)+px}
   };
   with(DO.o){left=HF.tDO.o.left;top=HF.tDO.o.top;width=HF.tDO.o.width;height=HF.tDO.o.height;zIndex=(Z++)};
   DO.f();
   document.onmouseup=function(){
    with(droP().o){HF.tDO.o.left=left;HF.tDO.o.top=top;HF.tDO.o.width=width;HF.tDO.o.height=height};
    droP[o.dn](o.dr);
    SO('DBOX').left=-(9<<9)+px;document.onmouseup=Frf;
   };
  };
  if(o.disp){
   DO.disp={OUT:document.getElementById(gO('DOdisp'))};
   with(DO.disp.OUT.style){zIndex=(Z++);left=(parseInt(mx)+20)+px;top=(parseInt(my)+20)+px};
   //DO.disp.OUT.innerHTML=
  }
 };
 draG.csr=function(o,tn){
  with(SO('SysObDRAG'+tn)){
   dr=0;cr='';
   my<parseInt(top)+3-yK?(dr|=10)+(cr+='N'):'';
   my>parseInt(top)+parseInt(height)-3?(dr|=8)+(cr+='S'):'';
   mx<parseInt(left)+3?(dr|=5)+(cr+='W'):'';
   mx>parseInt(left)+parseInt(width)-3?(dr|=4)+(cr+='E'):'';
  };
  o.style.cursor=cr+'-RESIZE';
  o.onmousedown=function(){draG.move(tn,dr);return false}
 };
 droP=function(o){
  if(!DO){return}
  DO.t=(new Date())-DO.t;
  DO.z&&DO.z==1?DO.o.zIndex=DO.zI:'';
  if(DO.disp){with(DO.disp.OUT){innerHTML=''}};
  o&&o.mb?movE(DO):'';
  ret=DO;DO=false;return ret;
 };
 movE=function(D){
  HF.Mvs[D.id]={
   L:{s:D.o,m:D.m,b:D.b,bs:D.bs},
   M:function(){with(HF.Mvs[D.id].L){if(m.c){m.c--;s.left=m.x[m.c]+px;s.top=m.y[m.c]+px;
    if(b){for(i=0;i<b.length;i++){iv=bs?bs[i]:0;with(b[i]){left=(-(parseInt(m.x[m.c])+iv))+px;top=(-(parseInt(m.y[m.c])+iv))+px;}}};
    setTimeout("HF.Mvs['"+D.id+"'].M()",50)}}
   }
  }
  HF.Mvs[D.id].M();
 };

document.onselect=Frf;
 document.ondragstart=Frf;

HF.write=write;

write(
  //D_('pal0t0w'+gsw()+'h'+gsh()+'vh,idLS;md#md;').replace(/#md/,"with(parent){HF.Menu.sc(1)};"+rF)+N100+D_('pal0t0w100%h100%')+eD+eD+
  D_('pal0t0w'+gsw()+'h'+gsh()+'vh,idLS;md#md;').replace(/#md/,"HF.Menu.sc(1);"+rF)+N100+D_('pal0t0w100%h100%')+eD+eD+
  D_('pal0t0w'+gsw()+'h20,idLAMB;')+eD+
  D_('pal0t0,idLACM;')+eD+
  D_('pal0t0,idLAM;')+eD
  ,'LA'
 )

cmsMen=Frf;

// Alternative Alert-Anzeige (Ein- und Ausblendung)
// Autor:Martin Rebhan LEARC / IMPAL
// Systax:Alert(string Text[,number zusätzliche Wartezeit in Sekunden])
// Beispiel:Alert('Hallo!',5)
Alert=function(a,z){
 z=Math.abs(z||0)*1000;
 with(SO('LAM')){width=gsw();height=gsh();opacity=0;zIndex=(Z++)}
 GO('LAM').onmousedown=function(){return(HF.dG?true:false)};
 GO('LAM').innerHTML= 
  T_('pal0t0w100%h100%')+TR()+TD(',anCENTER;')+
   T_('b0.2EM SOLID #FFFm1EMp1EMbc#0F0bs0EM 0EM 20EM 10EM #00Fr1.5EM')+TR()+TD()+
    T_('bm1EMp3EMr3EMfc#FFFfs1.5EM')+TR()+TD(',anCENTER;mdreturn(false);')+
     TC(a)+
    eT+
   eT+
  eT;
  for(i=1;i<=10;i++){setTimeout("SO('LAM').opacity="+(i/10),i*200)}
  for(i=10;i>=1;i--){setTimeout("SO('LAM').opacity="+(i/10),z+7000-i*200)}
  setTimeout("GO('LAM').innerHTML='';with(SO('LAM')){width='0PX';height='0PX'}",z+7000-i*200)
  return''  
};

// Alternative Confirm-Anzeige (Ein- und Ausblendung)
// Autor:Martin Rebhan LEARC / IMPAL
// Systax:Confirm(string Text,object Buttons[,boolean flag_kein_AbbruchButton])
// Beispiel:Confirm('Wählen Sie!',{Ja:"Func1()",Nein:"Func2(a,b,c)",Test_1:"Func3()",...},1)
Confirm=function(a,b,f){
 B=[];
 for(var i in b){B.push(IX({ty:'BUTTON',mu:b[i]+";HF.Confirm()",va:i.replace(/_/g,' ')}))}
 f?'':B.push(IX({ty:'BUTTON',mu:"HF.Confirm();",va:"abbrechen"}));
 with(SO('LAM')){width=gsw();height=gsh();opacity=0;zIndex=(Z++)}
 GO('LAM').onmousedown=function(){return(HF.dG?true:false)};
 GO('LAM').innerHTML= 
  T_('pal0t0w100%h100%')+TR()+TD(',anCENTER;')+
   T_('b0.2EM SOLID #FFFm1EMp1EMbc#0F0bs0EM 0EM 20EM 10EM #00Fr1.5EM')+TR()+TD()+
    T_('bm1EMp3EMr3EMfc#FFFfs1.5EM')+
     TR()+TD(',anCENTER;mdreturn(false);')+TC(a)+
     TR()+TD()+BR()+
     TR()+TD('wsPRE,anCENTER;')+B.join('  ')+
    eT+
   eT+
  eT;
  for(i=1;i<=10;i++){setTimeout("SO('LAM').opacity="+(i/10),i*200)}
  HF.Confirm=function(){
   for(i=10;i>=1;i--){setTimeout("SO('LAM').opacity="+(i/10),2000-i*200)}
   setTimeout("GO('LAM').innerHTML='';with(SO('LAM')){width='0PX';height='0PX'}",2000-i*200)
   HF.Confirm=''
  }
  return''  
};

CMS={}

HF.Licen='Martin Rebhan';
HF.L3.split(/\.de\/?#?/)[1]?HF.Admin=1:'';
HF.imgPLL='http://www.learc.de/img/';
HF.imgPLC='img/';
HF.ImgLL+=''
HF.ImgLC='bgi00=B00.jpg,bgi10=B10.jpg';
HF.Color={
 c:{c:'#000000',H:'#B9B67F',D:'#53512D',C:'#ABA875',P:'#7D7A43'},
 C:{h:'#33AA33',c:'#000000',H:'',D1:'#000000',H1:'',D2:'',H2:'',C:'#A0A000',d:''},
 XCA:['#DCE200','#DCE200','#DCE200','#DCE200','#DCE200','#DCE200','#DCE200'],
 CA:['#9FB200','#9FB200','#9FB200','#9FB200','#9FB200','#9FB200','#9FB200']
};
HF.zst=0.4;HF.vst=500;
HF.MDIl1=270;HF.MDIl0=145;HF.MDIt1=20;HF.MDIt0=70;HF.MDIw='297MM';HF.MDIh='210MM';HF.MDIp1n='Sonstiges';
HF.MDIani=1;HF.MDIz=0.16;HF.MDIZ=0.65;HF.MDIr='1EM';

HF.AnsKLc='#DEDEFE';HF.AnsKLC='#0000DD';HF.dragMDI=0;HF.MDIsingle=0;
HF.URL='';
HF.MR_M={x:HF.Admin?11:11,y:250,w:134,h:500,gg:1,ggc:['333399','555599'],h1:28,f1:12,c0:'#F7F722',c1:'#FABA12',bg0:'10',bg1:'01',Slang:['s'],p:2,d:3};
HF.RgX=180;HF.RgY=170;HF.RgW=gsw()-180-10;HF.RgH=gsh()-170-10;HF.RgHH=80;HF.RgC='r.';

HF.MRPZCMSf=0;
HF.qd=0;//Q-Divs
(HF.mALOrefresh=function(){
 w8=gsw()>>3;HF.mALOl=w8;HF.mALOt=10;HF.mALOw=w8*6;HF.mALOh=gsh()-(HF.mALOt<<1)-(HF.mALOhh=110);HF.mALOp=2;HF.mALObgi='bgi10';HF.mALOfs='16PT';//#53512D
 //w4=gsw()>>2;HF.mALOl=w4;HF.mALOt=10;HF.mALOw=w4<<1;HF.mALOh=gsh()-(HF.mALOt<<1)-(HF.mALOhh=110);HF.mALOp=2;HF.mALObgi='bgi10';HF.mALOfs='16PT';//#53512D

HF.mALOr=20;HF.mALOu=20;HF.mALObc='#FFFFFF';HF.mALObgR=1;HF.mALOsrR=0;
})();
if(HF.L3.match(/puzzle/i)){/*HF.mALOpl=11;HF.mALOpr=11;HF.mALOpb=26;*/HF.mALObgf=1;HF.MPRZCMSf=1;}

HF.scrBGc='#B9B67F'/*'#4C93FF'*/;HF.scrBGce='#7D7A43'//'#66D8FF';

HF.cntUnbenannt=0;
CMS=LEA=['MR','MRPZ','CMS','PWA','KeysDef','MRMDI','SXA'];