Directory of image this file is from
This file as a plain text file

10 DIM A$(14,20),B(14,7),L(12),G(10),H$(4,6)
20 FILE#1:"SYS:AQU2T2.BA"\INPUT#1:S,H,H,Z5,H,H,F,H,H,N8,H,H,F8,H,H
30 INPUT#1:F1,H,H,F2,H,H,N1,H,H,N2,H,H,L(1),H,H,L(2),H,H,Z6,H,H
40 FOR I=1 TO Z6+1\INPUT#1:G(I),H,H\NEXT I
50 FOR I=1 TO 2\FOR J=1 TO 4\INPUT#1:B(L(I),J),H,H\NEXT J\NEXT I
60 FOR I=1 TO Z6\FOR J=1 TO 4\INPUT#1:B(G(I),J),H,H\NEXT J\NEXT I
70 FOR J=1 TO 3\INPUT#1:B(G(Z6+1),J),H,H\NEXT J\INPUT#1:B(G(Z6+1),4)
80 CLOSE#1
90 FILE#1:"SYS:FAENAM.BA"
100 FOR I=1 TO 14\INPUT#1:A$(I)\NEXT I\CLOSE#1
110 H$(1)="11/2"\H$(2)="12/1"\H$(3)="12/2"\H$(4)="13/1"
750 FOR I=1 TO 3\Y2=0\GOSUB 2800
760 NEXT I
770 FOR I=4 TO 7STEP 3\Y2=2\GOSUB 2800
780 NEXT I
781 B=0\FOR I=1 TO 2\FOR K=1 TO 4\IF B(L(I),K)<0 THEN 782\GOTO783
782 B=B-B(L(I),K)
783 NEXT K\NEXT I\IF Z5<>0 THEN 784\B=3*B\IF B<100 THEN 785\GOTO 790
784 B=3*B+2*F\IF B<100 THEN 785\GOTO 790
785 PRINT "SIE HABEN IM BEREICH DER LK NUR ";B;" PUNKTE"
786 IF Z5=0 THEN 787\PRINT "(MIT FACHARBEIT)"
787 GOTO 2990
790 I=10\Y2=1\GOSUB 2800
805 Z9=0\K=0
810 M=-1\FOR I=1 TO Z6+1\FOR J=1 TO 4
820 IF B(G(I),J)<0 THEN 860\IF B(G(I),J)<20 THEN 840
821 IF B(G(I),J)<100 THEN 830\GOTO 860
830 B(G(I),J)=B(G(I),J)-20
840 IF B(G(I),J)<=M THEN 860\IF I<>Z6 THEN 850\IF Z9=3THEN 855
850 M=B(G(I),J)\I1=I\J1=J\IF I<>Z6 THEN 860\Z9=Z9+1\GOTO 860
855 B(G(I),J)=B(G(I),J)-100
860 NEXT J\NEXT I\B(G(I1),J1)=B(G(I1),J1)+100
862 K=K+1\IF K<26-T THEN 810
863 Z8=0\IF K>26-T THEN870\M1=M\GOTO 810
870 PRINTM;M1;A$(G(I1));T;K\IF M<M1 THEN 872\Z8=1
872 B(G(I1),J1)=B(G(I1),J1)-100
873 B1=0\B2=0\FOR I=1 TO Z6+1\FOR K=1 TO 4\IF B(G(I),K)<0 THEN 880
875 IF B(G(I),K)<100 THEN 885\B2=B2+B(G(I),K)\GOTO 885
880 IF B(G(I),K)<-70 THEN 885\B1=B1-B(G(I),K)
885 NEXT K\NEXT I\B1=B1+B2-(26-T)*100\IF B1<100 THEN 886\GOTO 887
886 PRINT "SIE HABEN IM BEREICH DER GK NUR";B1;" PUNKTE"\GOTO2990
887 FORI=1TOZ6+1\FORJ=1TO4\IFB(G(I),J)>=0THEN889\IFB(G(I),J)<-4THEN891
888 P1=P1+1\GOTO 891
889 IF B(G(I),J)<100 THEN891\IF B(G(I),J)>104THEN 891\P1=P1+1
891 NEXTJ\NEXTI\IFP1<6THEN893\PRINT"SIE HABEN NUR";20-P1;"GR.KURSE";
892 PRINT" MIT MEHR ALS 4 PKT."\GOTO 2990
893 PRINT "FACH:",\FOR I=1 TO 4\PRINT H$(I),\NEXT I
895 PRINT "LEISTUNGSKURSE:"\PRINT
900 FOR I=1 TO 2\PRINT A$(L(I)),\FOR J=1 TO 4\IF B(L(I),J)>= 0 THEN 907
905 PRINT -B(L(I),J);"**",\GOTO 910
907 PRINT B(L(I),J),
910 NEXT J\NEXT I
912 IF Z5=0 THEN 915\PRINT"FACHARBEIT IN ";A$(Z5);":";F;" PUNKTE"\PRINT
915 FOR I=Z6+1 TO 1 STEP -1\IF I<>Z6+1 THEN 920
917 PRINT "ABGESTUFTER LK:"
920 IF I<>Z6 THEN 925\PRINT "GRUNDKURSE:"\PRINT
925 PRINT A$(G(I)),\IF I<>Z6 THEN 930\IF S<>1 THEN 930\GOTO 955
930 FOR J=1 TO 4\IF B(G(I),J)<-70 THEN 945\IF B(G(I),J)<0 THEN 940
935 IF B(G(I),J)<100 THEN 950\PRINT B(G(I),J)-100;" *",\GOTO 960
940 PRINT -B(G(I),J);"**",\GOTO 960
945 PRINT 100+B(G(I),J);"  ",\GOTO 960
950 PRINT B(G(I),J);"  ",\GOTO 960
955 PRINT "BEFREIT"
960 NEXT J\NEXT I\PRINT\PRINT
970 PRINT "ZEICHENERKLAERUNG:"
980 PRINT "** =VERPFLICHTEND EINGEBRACHT"
985 PRINT " * =FREIWILLIG EINGEBRACHT"
990 IF Z8=0 THEN 997
995 PRINT "SIE KOENNEN ANSTATT DER EINGEBRACHTEN GK MIT";M1;" PKT.AUCH"
996 PRINT"D. AND.GK MIT";M1;" PKT EINBRINGEN."
997 PRINT "PUNKTE IM BEREICH DER GRUNDKURSE:";B1
998 PRINT "PUNKTE IM BEREICH DER LEIST.KURSE:";B
999 B=B+B1
1000 IF B>548 THEN 1015\M=548\FOR I=1 TO 45\M=M-12
1005 IF B>M THEN 1010\NEXT I
1010 D=1.1+(I-1)*.1\IF D-INT(D)<>0THEN1012\D$=STR$(D)&".0"\GOTO 1020
1012 D$=STR$(D)\GOTO 1020
1015 D$="1.0"
1020 PRINT "SIE HABEN DIE QUALIFIKATION ZUM ABITUR ERREICHT MIT EINER"
1025 PRINT "GESAMTPUNKTZAHL VON";B;" PUNKTEN,DAS ENTSPRICHT D."
1030 PRINT "DURCHSCHNITTSNOTE ";D$\GOTO 2993
2800 FOR K=1 TO 2\FOR N=I TO I+Y2\IF L(K)=N THEN 2850
2805 NEXT N\NEXT K
2810 FOR K=1 TO Z6+1\FOR N=I TO I+Y2\IF G(K)=N THEN 2850
2815 NEXT N\NEXT K\GOTO 3000
2850 IF N<4THEN2880\IF N>9THEN2880\IF N>6THEN2860\IF L(K)=NTHEN2880
2852 IF G(K)<>G(F8) THEN 2815\GOTO 2880
2860 IF L(K)=N THEN 2880\IF N8<>0THEN 2865
2862 IF N1=1 THEN 2880\GOTO 2905
2865 IF G(K)<>G(N8) THEN 2815
2880 FOR J=1 TO 4\IF B(N,J)<21 THEN 2895\B(N,J)=20-B(N,J)\T=T+1
2895 NEXT J\IF Y2<>3 THEN 2900\IF F2=2 THEN 2805\IF N2=2THEN 2805
2900 GOTO 3000
2905 FOR I=1 TO 9\IF G(I)>6 THEN 2910\NEXT I
2910 I5=I\FOR I=I5TOI5+N1\IF B(G(I),1)<20 THEN 2915\B(G(I),5)=B(G(I),1)
2915 FOR J=2 TO 4
2920 IF B(G(I),J)<20 THEN 2925\B(G(I),5)=B(G(I),5)+B(G(I),J)
2925 NEXT J\NEXT I
2930 P=B(G(I5),5)\I1=I5
2935 FOR I=I5+1 TO I5+N1\IF B(G(I),5)<P THEN 2940\IF B(G(I),5)=PTHEN2945
2940 P=B(G(I),5)\I1=I\I2=0\GOTO 2955
2945 IF I2<>0 THEN 2950\I2=I\GOTO 2955
2950 I3=I
2955 NEXT I
2960 FOR I=1 TO 4\IF B(G(I1),I)<20 THEN 2965\B(G(I1),I)=20-B(G(I1),I)
2963 T=T+1
2965 NEXT I
2970 M=-1\FOR I=I5 TO I5+N1\FOR J=1 TO 4
2975 IF B(G(I),J)<0 THEN 2985\IF B(G(I),J)<21 THEN 2985
2980 IF B(G(I),J)<=M THEN 2985\M=B(G(I),J)\I1=I\J1=I
2985 NEXT J\NEXT I\B(G(I1),J1)=20-M\T=T+1\GOTO 3000
2990 PRINT "SIE HABEN DIE QUALIFIKATION ZUM ABITUR NICHT ERREICHT !"
2993 PRINT\PRINT\PRINT "NOCH MEHR SCHUELER ";\INPUT D$
2994 IF D$="J" THEN 3010\IF D$<>"N" THEN 2996\GOTO 3500
2996 PRINT "FALSCHE EINGABE"\GOTO 2993
3000 RETURN
3010 CHAIN"SYS:ABIQU2.BA"
3500 END