File DATE.E8

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


 100 REM:*****: GLENN BRITT :*****:
 110 REM:*****:HOWARD BENSON:*****:
 120 REM:*****: ENTERPRISES :*****:
 130 REM:*****:  JUNE1,1974 :*****:
 140 REM:*************************:
 145 DIM A(499,499)\DIM H$(499)\DIM N$(499)\DIM T(499)
 150 READ N
 155 I1=1
 160 FOR Y=1 TO N
 170 FOR X=1 TO 6
 180 IF X<>1 THEN 210
 190 READ H$(Y)
 200 GOTO 220
 210 READ A(X,Y)
 220 NEXT X
 225 FOR I=1 TO 5\READ N$(I,Y)\NEXT I
 230 NEXT Y
 240 FOR Y=1 TO N
 250 FOR X=3 TO 6
 260 LET T(Y)=T(Y)+A(X,Y)
 270 NEXT X
 280 NEXT Y
 290 FOR Y=1 TO N
 310 FOR X=3 TO 6
 320 IF H$(I1)=H$(Y) THEN 390
 330 IF T(I1)-T(Y)>11111 THEN 390
 340 IF T(I1)-T(Y)<-11111 THEN 390
 350 FOR X1=3 TO 6
 360 IF A(X1,I1)-A(X1,Y)>11111 THEN 380
 370 IF A(X1,I1)-A(X1,Y)<-11111 THEN 380
 375 C=C+1
 380 NEXT X1
 390 NEXT X
 400 IF C<6 THEN 435
 410 LET E=1
 420 FORI=1 TO 5\PRINT N$(I,I1);\NEXT I
 421 PRINT
 422 PRINT"IS COMPATABLE WITH"
 423 FOR I=1 TO 5\PRINT N$(I,Y);\NEXT I
 424 PRINT
 425 PRINT
 435 IF E=1 THEN 450
 440 PRINT "SUBJECT";A(2,I1);"IS NOT COMPATABLE WITH";A(2,Y)
 441 PRINT
 450 LET C=0
 455 LET E=0
 460 NEXT Y
 470 LET I1=I1+1
 480 IF I1>N THEN 500
 485 FOR I=1 TO N\PRI\NEXT I
 490 GOTO 290
 500 STOP
 510 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