Contents of file named text

FUNCGEN SEISMOGRAM  ;* create test data
CUTIM A -0.2 N 512  ;* window data in memory

BEGINFRAME          ;* turn off automatic framing
XVPORT .1 .9        ;* define viewport and options
YVPORT .7 .9
TITLE 'SEISMIC TRACE'
FILEID OFF          ;* turn off fileid and qdp option
QDP OFF
PLOT                ;* plot the trace

XVPORT PREVIOUS     ;* restore viewport
YVPORT PREVIOUS
TITLE PREVIOUS      ;* restore title

FFT WMEAN           ;* take transform of data
XVPORT .1 .45       ;* second viewport and options
YVPORT .15 .55
TITLE 'Amplitude Response @(linlog@)'
                         ;* use of escape character @ prevents
                         ;* parsing of linlog as a function name
LINE FILL OFF       ;* suppress any fill of spectral plots
YLIM 1E-5 1
PLOTSP AM LINLOG    ;* plot the amplitude

XVPORT PREVIOUS     ;* restore viewport
TITLE PREVIOUS      ;* restore title

XVPORT .55 .9       ;* third viewport and options
TITLE 'Amplitude Response @(loglog@)'
XLIM 1 60
PLOTSP AM LOGLOG    ;* plot amplitude again
XVPORT PREVIOUS     ;* restore viewport
YVPORT PREVIOUS
TITLE PREVIOUS      ;* restore title
ENDFRAME            ;* resume automatic framing

LINE FILL PREVIOUS  ;* reset changes to previous values
FILEID PREVIOUS
XLIM PREVIOUS
YLIM PREVIOUS