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

5 REM    PROGRAMM ZUR ERSTELLUNG EINES DATENSATZES FUER ZA2 AUS
6 REM                1.) DATENSATZ DER ZA1-KONFERENZ
7 REM                 2.) SCHRIFTL. PRUEFUNGSERGEBNISSE
8 REM AUSSERDEM     KORREKTURMOEGLICHKEIT DES DATENSATZES ZU (1)
30 PRINT"BEI SPORT ALS 4. ABIFACH IST DAS PRUEFUNGS-"
60PRINT "ERGEBIS MIT DEZIMALPUNKT EINZUGEBEN: VOR DEM PUNKT DAS"
90 PRINT"ERGEBNIS DER  P R A K T I SC H E N  PRUEFUNG, HINTER DEM"
120 PRINT"PUNKT DAS ERGEBNIS DER THEORETISCHEN PRUEFUNG"
150 PRINT"Z W E I STELLIG, Z.B. 10 PKTE PRAKTISCH, 6 PKTE THEORE-"
180PRINT "TISCH ====> 10.06"
210 PRINT\PRINT
240 DIM N$(20),F(4,3),X$(14),Y$(14)
245 PRINT" ABZURUFENDER DATENSATZ";\INPUT X$
247X$="DTA1:"&X$&".BA"
250 PRINT" AUFZUBAUENDER DATENSATZ";\INPUT Y$
253 Y$="DTA1:"&Y$&".BA"
270 FILE#1:X$\FILEV#2:Y$
300 INPUT#1:N$,D\ IF N$="ENDE" THEN 780
330 FOR I=1 TO4
360 INPUT#1:F$(I),D
390 NEXT I
420 INPUT#1:F(1,1),F(1,2),F(2,1),F(2,2),F(3,1),D,D
450 INPUT#1:F(3,2),F(4,1),F(4,2),D,D
470 PRINT N$
480 PRINT,F$(1);" ";F$(2);" ";F$(3);" ";F$(4)
482 PRINT"SUMME",F(1,1);" ";F(2,1);" ";F(3,1);" ";F(4,1)
483 PRINT"13(2):",F(1,2);" ";F(2,2);" ";F(3,2);" ";F(4,2)
486 PRINT"KORREKTUREN (J ODER N)";\INPUT A$
488  IF A$ = "N" THEN 510
489 IF A$ = "J" THEN 490\ GOTO 486
490 PRINT "FACH (1 BIS 4),ZEILE (1 OD. 2)";\ INPUT K,Z
491 IF K>4 THEN 490
493 IF Z>2 THEN 490
494 PRINT"FALSCHER WERT: ";F(K,Z); TAB(20);"RICHTIGER WERT";\INPUT W
496 F(K,Z) = W
498 GOTO  486
510 PRINT ,"PKTE ARBEIT";\ INPUT F(1,3),F(2,3),F(3,3),F(4,3)
540PRINT#2:N$
570 FOR I= 1 TO 4
600 PRINT#2:F$(I)
630 NEXT I
660 PRINT#2: F(1,1),F(1,2),F(1,3),F(2,1),F(2,2)
690 PRINT#2:F(2,3),F(3,1),F(3,2),F(3,3),F(4,1)
720 PRINT#2: F(4,2),F(4,3)
750 GOTO 300
780 PRINT#2: N$\CLOSE#2\END