File KUR2B.FT (FORTRAN source file)

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


C       KURSWAHL - DEFINITION DRUCK - UNWICHTIGE DATEN UEBERPRUEFEN
        COMMON IFORM,IHALB,FILEB,FILED,FILEE,FILEF,FILEL,FILEM,FILEN
        COMMON LANF,IANF,I,IZFE,IZFA,N
        DIMENSION I(12,296),N(67)
C       DEFINITION DER DRUCKVARIABLEN
        DO 1 K3=1,67
1       N(K3)=-2016
        N(2)=-32
        N(11)=288
        N(12)=334
        N(13)=390
        N(14)=774
        N(15)=1173
        N(16)=398
        N(17)=782
        N(21)=464
        N(22)=853
        N(23)=725
        N(24)=788
        N(25)=836
	N(26)=339
        N(31)=480
        N(32)=331
        N(33)=1495
        N(34)=1231
        N(35)=1025
        N(36)=1039
        N(41)=864
        N(42)=1032
        N(43)=200
        N(44)=137
        N(45)=590
        N(51)=1157
        N(52)=1163
        N(53)=1043
        N(54)=1232
C       UEERPRUFEN KLASSENSTUFE UND HALBJAHR
        DO 30 K1=IANF,296
        I(12,K1)=0
        IF (I(4,K1)-(IFORM+922))20,10,20
10      IF (I(5,K1)-(IHALB+992)/64)20,30,20
20      I(12,K1)=1
30      CONTINUE
        IF (IANF-148)40,50,50
40      CALL IOPEN ('DTA1',FILED)
        DO 60 K1=1,148
        DO 60 K2=1,11
60      READ (4,400)I(K2,K1)
400     FORMAT (A2)
50      CALL IOPEN ('DTA1',FILEE)
        DO 70 K1=149,296
        DO 70 K2=1,11
70      READ (4,400)I(K2,K1)
C       FALSCHER KURSNAME
        DO 100 K1=IANF,296
        K4=1
        DO 110 K2=2,11
        K3=I(K2,K1)
        IF (K3)120,115,14
14      IF (K3-10)120,120,15
15      IF (K3-67)130,130,120
130     IF (N(K3)+2016)110,120,110
120     I(K2,K1)=2
        K4=2
        GOTO 110
115     I(K2,K1)=1
110     CONTINUE
        IF (K4-1)700,700,140
140     I(12,K1)=I(12,K1)+4
700     IF (IFORM+911)100,710,100
710     DO 720 K2=2,3
        IF (I(K2,K1)-41)740,730,730
730     IF (I(K2,K1)-44)100,100,740
740     IF (I(K2,K1)-12)720,750,750
750     IF (I(K2,K1)-17)100,100,720
720     CONTINUE
        I(12,K1)=I(12,K1)+2
100     CONTINUE
        CALL CHAIN ('KUR2C')
        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