File KUR2D.FT (FORTRAN source file)

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


        IF (N(K3)+2016)111,100,111
111     M=0
        DO 110 K1=IANF,296
        DO 110 K2=2,3
        IF (I(K2,K1)-K3)110,120,110
120     M=M+1
110     CONTINUE
        IF (M)100,100,130
130     WRITE (1,460)N(K3),M,
S       JMS DRUCK
100     CONTINUE
        IZZAEH=0
460     FORMAT (2X,A2,'='I3)
        IF (IFORM+911)10,20,10
20      KK=4
        GOTO 30
10      WRITE (1,410)
410     FORMAT (///'3.ABITURFACH'/)
        DO 300 K3=11,67
        IF (N(K3)+2016)311,300,311
311     M=0
        DO 310 K1=IANF,296
        IF (I(4,K1)-K3)310,320,310
320     M=M+1
310     CONTINUE
        IF (M)300,300,330
330     WRITE (1,460)N(K3),M,
S       JMS DRUCK
300     CONTINUE
        IZZAEH=0
        WRITE (1,430)
430     FORMAT (///'4.ABITURFACH'/)
        DO 600 K3=11,67
        IF (N(K3)+2016)611,600,611
611     M=0
        DO 610 K1=IANF,296
        IF (I(5,K1)-K3)610,620,610
620     M=M+1
610     CONTINUE
        IF (M)600,600,630
630     WRITE (1,460)N(K3),M,
S       JMS DRUCK
600     CONTINUE
        IZZAEH=0
30      WRITE (1,420)
420     FORMAT (///'GK-BELEGUNGEN'/)
        DO 700 K3=11,67
        IF (N(K3)+2016)711,700,711
711     M=0
        DO 710 K1=IANF,296
        DO 710 K2=KK,11
        IF (I(K2,K1)-K3)710,720,710
720     M=M+1
710     CONTINUE
        IF (M)700,700,730
730     WRITE (1,460)N(K3),M,
S       JMS DRUCK
700     CONTINUE
        IZZAEH=0
        WRITE (1,435)
435     FORMAT (///'LK-KOMBINATIONEN'/)
        KDRUCK=4
135     DO 210 K3=11,67
        IF (N(K3)+2016)125,210,125
125     DO 210 K4=11,K3
        IF (N(K4)+2016)126,210,126
126     IF (K3-K4)136,210,136
136     LK=0
        DO 220 K1=IANF,296
        K5=I(KW,K1)
        K6=I(KW+1,K1)
        IF (K5-K6)150,160,160
150     K2=K5
        K5=K6
        K6=K2
160     IF (K5-K3)220,170,220
170     IF (K6-K4)220,190,220
190     LK=LK+1
220    



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