projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E C F R . F I \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C CHANGE THE FREQUENCY LIMITS OF THE FIVE BANDS\r | |
| 4 | C\r | |
| 5 | SUBROUTINE CFREQU\r | |
| 6 | INCLUDE HAETTY.FI\r | |
| 7 | INCLUDE HAEGSA.FI\r | |
| 8 | INCLUDE HAEPTI.FI\r | |
| 9 | C\f INTEGER NCOND\r | |
| 10 | REAL COND\r | |
| 11 | LOGICAL BETW\r | |
| 12 | EXTERNAL COND,NCOND,BETW\r | |
| 13 | C\r | |
| 14 | INTEGER BAND, @ DO LOOP INDEX\r | |
| 15 | * TEXT(2), @ MESSAGE LOWER LIMIT OR UPPER LIMIT\r | |
| 16 | * BLOW,BUP, @ LOWER AND UPPER BAND LIMITS TO CHANGE\r | |
| 17 | * TEMP2 @ HOLDS BAND INDEX ( GREEK LETTER )\r | |
| 18 | LOGICAL L @ A SPECIAL BAND LIMIT IS CHANGED\r | |
| 19 | REAL TEMP @ USER INPUT\r | |
| 20 | DATA TEXT /'UNTERE','OBERE'/\r | |
| 21 | C\r | |
| 22 | L=BETW(1,OPTION-1,6)\r | |
| 23 | BLOW=NCOND(L,OPTION-1,1) @ COMPUTE LOWER BAND TO CHANGE\r | |
| 24 | BUP =NCOND(L,BLOW ,5) @ COMPUTE UPPER BAND TO CHANGE\r | |
| 25 | C\r | |
| 26 | DO 20 BAND=BLOW,BUP\r | |
| 27 | 15 DO 10 LIMIT=1,2 @ LOWER LIMIT, UPPER LIMIT TO READ\r | |
| 28 | WRITE (TTO,1) TEXT(LIMIT),BAND,FREQU(BAND,LIMIT)\r | |
| 29 | READ (TTI,2) TEMP,TEMP2 @ WRITE THE OLD VALUE AND ASK FOR THE NEW ONE\r | |
| 30 | GENAM(BAND)=NCOND(TEMP2.NE.1H ,TEMP2,\r | |
| 31 | * TEMP1.NE.FREQU(BAND,LIMIT),1H ,GENAM(BAND)) @ INSERT THE NEW BAND INDEX (GREEK LETTER) IF DESIERED, OR IF LIMITS CHANGED DELETE IT\r | |
| 32 | 10 FREQU(BAND,LIMIT)=COND(TEMP,TEMP,FREQU(BAND,LIMIT)) @ INSERT THE NEW VALUE\r | |
| 33 | IF (FREQU(BAND,1).LT.FREQU(BAND,2)) GOTO 20 @ IF THE LIMITS ARE MIXED THEN\r | |
| 34 | WRITE (TTO,3) BAND,(FREQU(BAND,LIMIT),LIMIT=1,2) @ WRITE AN ERROR MSG AND ASK AGAIN\r | |
| 35 | GOTO 15\r | |
| 36 | 20 CONTINUE\r | |
| 37 | RETURN\r | |
| 38 | 1 FORMAT (1X,A6,' GRENZE VON BAND',I2,' (',F4.1,' HZ) ? ',$)\r | |
| 39 | 2 FORMAT (F4.0,A2)\r | |
| 40 | 3 FORMAT (' GRENZEN VON BAND',I2,' DURCHEINANDER:',2F7.1)\r | |
| 41 | END\r | |
| 42 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0 |