Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C EINGABE DER LED ZUORDNUNG ZUR LAUTSPRECHER POSITION\r |
2 | C FUER BIS ZU 100 UMDREHUNGEN.\r | |
3 | C UNIT 9 EINGABE: FILE DES EICHEN PROGRAMMS\r | |
4 | C UNIT 8 EIN/AUS: EINGABE FALLS NUR WERTE VERAENDERT WERDEN SOLLEN.\r | |
5 | C AUSGABE FUER LED PROGRAMM\r | |
6 | C\r | |
7 | INTEGER NCOND,REIHE(100,8,2),UMD,NO,PKT(8),N,LED,DELTA,MAXUMD\r | |
8 | * ,KENUNG(5,2)\r | |
9 | * ,TTO,TTI,LPT\r | |
10 | DATA TTO,TTI,LPT /4,4,3/, PKT/1,2,3,4,5,4,3,2/\r | |
11 | C\r | |
12 | DO 46 UMD=1,100\r | |
13 | DO 46 N=1,8\r | |
14 | REIHE(UMD,N,1)=1H \r | |
15 | 46 REIHE(UMD,N,2)=7\r | |
16 | 40 REWIND 8\r | |
17 | WRITE (TTO,4)\r | |
18 | READ (TTI,3) I\r | |
19 | IF (I.NE.1HJ) GOTO 45\r | |
20 | READ(8,7)(((KENUNG(PKT(N),I),I=1,2)\r | |
21 | * ,(REIHE(UMD,N,I),I=1,2),N=1,8),\r | |
22 | * UMD=1,100),MAXUMD\r | |
23 | 45 CONTINUE\r | |
24 | C\r | |
25 | REWIND 9\r | |
26 | READ (9,91) ((KENUNG(I,J),J=1,2),I=1,5)\r | |
27 | C\r | |
28 | DO 10 UMD=1,100\r | |
29 | WRITE (TTO,1) UMD\r | |
30 | DO 10 N=1,8\r | |
31 | WRITE (TTO,2) KENUNG(PKT(N),1),(REIHE(UMD,N,I),I=1,2)\r | |
32 | READ (TTI,3) LED,DELTA\r | |
33 | REIHE(UMD,N,1)=NCOND(LED.EQ.1H ,REIHE(UMD,N,1),LED)\r | |
34 | REIHE(UMD,N,2)=NCOND(DELTA.LT.0,0,DELTA,DELTA,REIHE(UMD,N,2))\r | |
35 | IF (LED.EQ.1H9)GOTO20\r | |
36 | 10 CONTINUE\r | |
37 | C\r | |
38 | 20 MAXUMD=MAX0(UMD-1,1)\r | |
39 | DO 30 UMD=1,MAXUMD\r | |
40 | WRITE (LPT,1) UMD\r | |
41 | 30 WRITE(LPT,5)((KENUNG(PKT(N),I),I=1,2)\r | |
42 | * ,(REIHE(UMD,N,I),I=1,2),N=1,8)\r | |
43 | WRITE (TTO,6)\r | |
44 | READ(TTI,3) I\r | |
45 | IF (I.EQ.1HN) GOTO 40\r | |
46 | WRITE(8,7)(((KENUNG(PKT(N),I),I=1,2)\r | |
47 | * ,(REIHE(UMD,N,I),I=1,2),N=1,8),\r | |
48 | * UMD=1,100),MAXUMD\r | |
49 | ENDFILE 8\r | |
50 | STOP\r | |
51 | 91 FORMAT (' KENNUNG:',A6,' ZUGEHOERIGE SPANNUNG:',I6)\r | |
52 | 1 FORMAT (1X,6(2H* ),I3,'. UMDREHUNG')\r | |
53 | 2 FORMAT (' FUER ',A6,': LED,DELTA (A1,I4)? (',A1,I4,')',$)\r | |
54 | 3 FORMAT (A1,I4)\r | |
55 | 4 FORMAT (' ALTE WERTE EINLESEN? (J/ )',$)\r | |
56 | 5 FORMAT (' KENNUNG ',A6,' WERT',I6,' LED ',A1,' DELTA',I4)\r | |
57 | 6 FORMAT (' WERTE RICHTIG? ( /N)',$)\r | |
58 | 7 FORMAT (100(1X,8(A6,I6,A1,I4)/),I4)\r | |
59 | END\r | |
60 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |