File PRSTAT.BA (BASIC source file)

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

10 DIM A(70,4),M(40,12),M1(40,10),K(300,5),S(12),P$(45,3),F$(13,1)
11 DIM F1$(13)
20 FILE#1:"DTA1:PRAUS.BA"\INPUT#1:Z4,H,H\FORI=1 TO Z4\FOR I1=1 TO 4
30 INPUT#1:A(I,I1)\NEXT I1\INPUT#1:H,H\IF END#1 THEN 40
40 NEXT I\CLOSE#1
50 FILE#2:"SYS:PRMAT.BA"\FOR I=1 TO 40\FOR I1=1 TO 10
60 INPUT#2:M(I,I1)\NEXT I1\INPUT#2:H,H
65 FOR I1=1 TO 10\INPUT#2:M1(I,I1)\NEXT I1\INPUT#2:H,H\IF END#2 THEN 70
70 NEXT I\CLOSE#2
75 F1$="DEFLKNGMPCBR"\FOR I=1 TO 12\F$(I)=SEG$(F1$,I,I)\NEXT I
80 FILE#3:"DTA1:PRKOM.BA"\INPUT#3:Z3,H,H
90 FOR I=1 TO Z3\FOR I1=1 TO 5\INPUT#3:K(I,I1)
100 NEXT I1\INPUT#3:H,H\IF END#3 THEN 101
101 NEXT I\CLOSE#3
102 FILE#4:"DTA1:PRLPER.BA"\INPUT#4:Z6,H,H
104 FOR I=1 TO Z6\INPUT#4:P$(I),H\IF END#4 THEN 106
106 NEXT I\CLOSE#4
110 FILEV#4:"LPT:"\PRINT#4:"NICHT VERPLANTE KOMBINATIONEN:"
120 FOR I=1 TO Z3\FOR I1=1 TO 40\FOR I2=1 TO 10
130 IF M(I1,I2)=I THEN 150\NEXT I2\NEXT I1
140 FOR I3=1 TO 5\PRINT#4:K(I,I3);\NEXT I3\PRINT#4:
145 Z1=Z1+1
150 NEXT I\PRINT#4:"GESAMT";Z1\PRINT#4:\PRINT#4:
160 PRINT#4:"ANZAHL KOMBINATIONEN PRO EINHEIT"
170 FOR I=1 TO 40\PRINT#4:I,\FOR I1=1 TO 10
180 IF M(I,I1)=0 THEN 190\NEXT I1\I1=11
190 PRINT#4:I1-1\NEXT I\PRINT#4:"DURCHSCHNITT";(Z3-Z1)/40
200 PRINT#4:\PRINT#4:
210 PRINT#4:"SCHUELER DIE NICHT MINDESTENS 2 EINHEITEN PAUSE ZWISCHEN"
211 PRINT#4:"JEDER PRUEFUNG HABEN:"
215 FOR I=1 TO 120
220 PRINT I;\Z2=0\FOR I1=1 TO 40\FOR I2=1 TO 10
230 IF K(M(I1,I2),1)<>I THEN 250
240 Z2=Z2+1\IF Z2=1 THEN 260\IF I1-X2<=2 THEN 280\GOTO 260
250 NEXT I2\GOTO 270
260 X2=I1
270 NEXT I1\GOTO 290
280 PRINT#4:I\Z9=Z9+1
290 NEXT I
340 PRINT#4:"GESAMT";Z9;" SCHUELER"\PRINT#4:\PRINT#4:
350 PRINT#4:"ANZAHL DER PRUEFUNGEN,DIE JEDER AUSSCHUSS ZU HALTEN HAT"
360 FOR I=1 TO Z4\Z5=0\IF A(I,1)=0 THEN 420
365 FOR I4=2 TO 3\PRINT#4:P$(A(I,I4));",";\NEXT I4\PRINT#4:P$(A(I,4));
370 FOR I1=1 TO 40\FOR I2=1 TO 10\FOR I3=3 TO 5
380 IF K(M(I1,I2),I3)<>A(I,I3-1) THEN 400
390 NEXT I3\Z5=Z5+1\GOTO 410
400 NEXT I2
410 NEXT I1\PRINT#4:TAB(12);Z5
420 NEXT I\PRINT#4:\PRINT#4:
430 PRINT#4:"ANZAHL DER PRUEFUNGEN DIE JEDER LEHRER BESUCHEN MUSS"
450 FOR I=1 TO Z6\PRINT#4:P$(I),\Z5=0\FOR I1=1 TO 40\FOR I2=1 TO 10
460 A=INT(M1(I1,I2)/100)\IF A=I THEN 480\IF M1(I1,I2)-100*A=I THEN 480
470 FOR I3=3 TO 5\IF K(M(I1,I2),I3)=I THEN 480\NEXT I3\GOTO 490
480 Z5=Z5+1\GOTO 500
490 NEXT I2
500 NEXT I1
510 PRINT#4:Z5\NEXT I
515 CLOSE#4
520 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search