File PRFACH.BA (BASIC source file)

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

10 DIM A(100,4),F(45,3)
20 FILE#1:"DTA1:PRAUS.BA"\INPUT#1:Z3,H,H
30 FOR I=1 TO Z3\FOR I1=1 TO 4\INPUT#1:A(I,I1)
40 NEXT I1\INPUT#1:H,H\IF END#1 THEN 50
50 NEXT I\CLOSE#1
60 FOR I=1 TO 45\FOR I1=1 TO Z3\FOR I2=2 TO 4
70 IF A(I1,I2)<>I THEN 105
80 FOR I3=1 TO 3\IF F(I,I3)=A(I1,1) THEN 110\IF F(I,I3)=0 THEN 100
90 NEXT I3\PRINT "LEHRER NR.";I;"MEHR ALS 3 FAECHER!"\S=1
100 F(I,I3)=A(I1,1)
105 NEXT I2
110 NEXT I1
120 NEXT I
130 IF S=1 THEN 160\FILEV#2:"SYS:PRLDTF.BA"
140 FOR I=1 TO 45\FOR I1=1 TO 2\PRINT#2:F(I,I1);\NEXT I1
150 PRINT#2:F(I,3)\NEXT I\CLOSE#2
160 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