projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E A S K . F T \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C ASK'S OPERATOR FOR BEGIN AND SPAN WIDTH OF SPECTRUM BEEING ANALYSED\r | |
| 4 | SUBROUTINE ASKHIM (COUNT)\r | |
| 5 | INTEGER COUNT @ CONTROLS THE NUMBER OF QUESTIONS\r | |
| 6 | INCLUDE HAEGSA.FI\r | |
| 7 | C\r | |
| 8 | INTEGER TOASCI,NCOND\r | |
| 9 | EXTERNAL TOASCI,NCOND\r | |
| 10 | INCLUDE HAEBUF.FI\r | |
| 11 | INCLUDE HAETTY.FI\r | |
| 12 | C\r | |
| 13 | \f INTEGER BMM,BSS,C,CH,D,O\r | |
| 14 | C\r | |
| 15 | C READ BEGIN\r | |
| 16 | BMM=NCOND(BEGIN.GT.3600,BEGIN/60,BEGIN) @ EITHER MINUTES OR HOURS\r | |
| 17 | CH=NCOND(BEGIN.GT.3600,1HH,1HM) @ MAKE THE CORRECT HOUR/MINUTE INDICATOR\r | |
| 18 | BSS=TOASCI(MOD(BMM,60)) @ CONVERT DEFAULT VALUES TO ASCII CHARACTERS\r | |
| 19 | BMM=BMM/60\r | |
| 20 | D=BMM/10 @ TO TYPE A LEADING ZERO\r | |
| 21 | O=MOD(BMM,10)\r | |
| 22 | WRITE (TTO,1) D,O,CH,BSS\r | |
| 23 | READ (TTI,2) BMM,C,BSS\r | |
| 24 | IF (C.NE.1H ) BEGIN=0 @ COL 3 NON BLANK FORCES ZERO INPUT\r | |
| 25 | BEGIN=NCOND(BMM+BSS,(BMM*60+BSS)*\r | |
| 26 | * NCOND (C.EQ.1HH,60,C.EQ.1HM,1,CH.EQ.1HH,60,1),BEGIN)\r | |
| 27 | IF (COUNT.LE.1) RETURN\r | |
| 28 | C\r | |
| 29 | C READ ENDS\r | |
| 30 | C\r | |
| 31 | ENDS=NCOND(ENDS.LE.BEGIN,BEGIN+SPAN,ENDS)\r | |
| 32 | BMM=NCOND(ENDS.GT.3600,ENDS/60,ENDS)\r | |
| 33 | CH=NCOND(ENDS.GT.3600,1HH,1HM)\r | |
| 34 | BSS=TOASCI(MOD(BMM,60))\r | |
| 35 | BMM=BMM/60\r | |
| 36 | D=BMM/10 @ TO TYPE LEADING ZERO\r | |
| 37 | O=MOD(BMM,10)\r | |
| 38 | WRITE (TTO,3) D,O,CH,BSS\r | |
| 39 | READ (TTI,2) BMM,C,BSS\r | |
| 40 | IF (C.NE.1H )ENDS=0 @ COL 3 NON BLANK FORCES ZERO INPUT\r | |
| 41 | ENDS=NCOND(BMM+BSS,(BMM*60+BSS)*\r | |
| 42 | * NCOND(C.EQ.1HH,60,C.EQ.1HM,1,CH.EQ.1HH,60,1),ENDS)\r | |
| 43 | \r | |
| 44 | IF (COUNT.LE.2) RETURN\r | |
| 45 | C READ SPAN\r | |
| 46 | SPAN=NCOND((ENDS-BEGIN).LT.SPAN,1,SPAN)\r | |
| 47 | WRITE (TTO,5) SPAN\r | |
| 48 | READ (TTI,2) BSS\r | |
| 49 | SPAN=NCOND(BSS,BSS,SPAN)\r | |
| 50 | IF (COUNT.LE.3) RETURN\r | |
| 51 | C READ OVERLAP\r | |
| 52 | C\r | |
| 53 | OVRLAP=NCOND(SPAN-1,SPAN/2,1)\r | |
| 54 | WRITE (TTO,7) OVRLAP \r | |
| 55 | READ (TTI,2) C\r | |
| 56 | OVRLAP=NCOND(C,C,OVRLAP,OVRLAP,SPAN/2)\r | |
| 57 | RETURN\r | |
| 58 | 1 FORMAT (' SPEKTRUM ANFANG [MM:SS](',2I1,A1,A2,')? ',$)\r | |
| 59 | 2 FORMAT (I2,A1,I2)\r | |
| 60 | 3 FORMAT (10X,'ENDE [MM:SS](',2I1,A1,A2,')? ',$)\r | |
| 61 | 5 FORMAT (' SPANNWEITE DER FFT [SEC] (',I2, ' )? ',$)\r | |
| 62 | 7 FORMAT (' SCHRITTWEITE DER FFT [SEC] (',I2,')? ',$)\r | |
| 63 | END\r | |
| 64 | \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 |