Berechnung der Abiturnote (Sachsen)

Die erste Hürde zu einem erfolgreichen Absolvieren des sächsischen Abiturs stellt die Berechnung der Abiturnote dar. Zumindest haben die verantwortlichen Stellen sogar mal richtig ihre Kreativität bewiesen und haben für die geübten Mathematiker unter uns gleich noch ein paar unlogische Verschleierungen eingebaut, damit auch wirklich niemand hinter das Geheimnis der Berechnung steigen kann...

Damit ich nicht ständig diese unhandliche Tabelle mit mir herumschleppen muss, habe ich aus Langeweile ein Taschenrechnerprogramm geschrieben, was die Berechnung übernimmt. Ich habe mir nicht die Mühe gemacht und herausgefunden, wie die Punktverteilung auf die Endnote abgebildet wird (und vor allem warum ausgerechnet so *g*), sondern durch genaueres Hinsehen hat sich ergeben, dass die Abstände der Punktebereiche für 0,1er Notenabstände jeweils 18 Punkte betragen. Die Berechnung hier ist demzufolge nicht der offizielle Weg, aber solange die Ergebnisse stimmen, ist es mir auch egal.

"Punkte"?→A↲
823→B↲
1.0→C↲
While (A<B)
B-18→B
C+0.1→C
WhileEnd↲
"Abiturnote:":C

Ich habe mir alle Halbjahres-Ergebnisse noch im Listenmenü gespeichert. Liste 1-4 wären mit den Halbjahren 1 bis 4 zu füllen (jeweils 13 Noten, die ersten beiden wären die Leistungskurse und werden doppelt gewertet). Die Abiturprüfungen kommen dann in Liste 5. Das nachfolgende Programm berechnet dann die Ergebnisse für Block I und II, sowie die Gesamtpunktzahl (die man dem obigen Programm übergeben kann).

0→A↲
0→B↲
For 1→I To 4↲
I=1⇒List 1↲
I=2⇒List 2↲
I=3⇒List 3↲
I=4⇒List 4↲
Sum List Ans+List Ans[1]+List Ans[2]→C↲
Dim List Ans+2→D↲
A+C→A↲
B+D→B↲
ClrText↲
" "↲
" "↲
Locate 1,1,"Halbjahr  :"↲
Locate 10,1,I↲
C÷D◢
Next↲
A÷B×40→C↲
Sum List 5×4→D↲
ClrText↲
" "↲
" "↲
" "↲
" "↲
" "↲
Locate 1,1,"Block I:"↲
Locate 10,1,C↲
Locate 1,2,"Block II:"↲
Locate 10,2,D↲
Locate 1,3,"---------------------"↲
Locate 1,5,"Gesamt:"↲
Locate 10,5,C+D◢
C+D

Da es nirgendwo anders hinpasst, war ich so frei und habe es hier veröffentlicht. Vielleicht freut sich ja jemand drüber ;)