home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 144.FFT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-06-30  |  2KB  |  60 lines
  1. (****************************************************************************)
  2. (*                                                                          *)
  3. (* Program written by Jeff Falter, SLCHD-NW-ED.                             *)
  4. (*                                                                          *)
  5. (****************************************************************************)
  6. (*                                                                          *)
  7. (* To change the number of points which may be operated upon, the following *)
  8. (* constant(s) must be changed in file Global:                              *)
  9. (*     1. TNArraySize : the maximum number of input points allowed.         *)
  10. (*                                                                          *)
  11. (****************************************************************************)
  12.  
  13.  
  14. PROGRAM FFT;
  15.  
  16. USES
  17. {$IFDEF DOSCrt}
  18.    DOSCrt,
  19. {$ELSE}
  20.    Crt,
  21. {$ENDIF}
  22.    TextOps,
  23.    Global,
  24.    DigitizeWaveform,       { routines for menu option 1, manual digitization }
  25.    FileSystem,             { routines for menu option 2, file I/O operations }
  26.    SignalProcessing,       { routines for menu option 3, signal processing   }
  27.    GraphWaveform,          { routines for menu option 4, graph results       }
  28.    AdvancedOpts,           { routines for menu option 5, advanced options    }
  29.    CreateWaveform;         { routines for menu option 6, create waveform     }
  30.  
  31.  
  32. (****************************************************************************)
  33.  
  34. BEGIN   {FFT}
  35.    (*** First initialize variables. ***)
  36.    Read_DefaultOptions;
  37.    TextColor (ForeColor);
  38.    TextBackground (BackColor);
  39.    ClrScr;
  40.    Initialize_Variables;
  41.  
  42.    (*** Create windows, show menu, ask choice. ***)
  43.    REPEAT
  44.       MainMenu;
  45.       CASE Choice OF
  46.          '1': AnalyticWaveform;
  47.          '2': FileIO;
  48.          '3': IF ORIG OR TRANS THEN SPS;
  49.          '4': IF ORIG OR TRANS THEN Graph_Wave;
  50.          '5': AdvancedOptions;
  51.          '6': Digitize_Wave;
  52.          ESC: BEGIN   {finished}
  53.                  ClrScr;
  54.                  Release (HeapTop);
  55.                  Exit;
  56.               END;   {finished}
  57.       END;   {CASE}
  58.    UNTIL FALSE;
  59. END.   {FFT}
  60.